Source

xemacs-devel / profile.el

Diff from to

profile.el

     (princ "    =====    =======   ==========\n")
     (let ((sum (float (apply #'+ (mapcar #'cdr info)))))
       (dolist (entry (nreverse (sort info #'cdr-less-than-cdr)))
-	(princ (format "%-*s    %-5d    %-6.3f    %s\n"
+	(princ (format "%-*s %8d    %7.3f    %s\n"
 		       maxfunlen (car entry) (cdr entry)
 		       (* 100 (/ (cdr entry) sum))
-		       (or (gethash (car entry) call-count-profile-table)
-			   ""))))
+		       (let ((count (gethash (car entry)
+					     call-count-profile-table)))
+			 (if count (format "%9d" count) "")))))
       (princ (make-string maxfunlen ?-))
       (princ "---------------------------------\n")
-      (princ (format "%-*s    %-5d    %-6.2f\n" maxfunlen "Total" sum 100.0))
+      (princ (format "%-*s    %5d    %7.3f\n" maxfunlen "Total" sum 100.0))
       (princ (format "\n\nOne tick = %g ms\n"
 		     (/ default-profiling-interval 1000.0)))
       (and (boundp 'internal-error-checking)