Commits

Anonymous committed a37f703

Prettier Profiling Pretty Printing

  • Participants
  • Parent commits 400684d

Comments (0)

Files changed (2)

+2000-12-12  Martin Buchholz  <martin@xemacs.org>
+
+	* profile.el (profile-results): Prettier pretty-printing.
+	(For prettiest results, needs fixes to `format')
+
 2000-10-25  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* checkdoc.el: New file.
     (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)