Function: profiler-report-render-calltree-1

profiler-report-render-calltree-1 is a byte-compiled function defined in profiler.el.gz.

Signature

(profiler-report-render-calltree-1 PROFILE &key REVERSE (ORDER 'descending))

Source Code

;; Defined in /usr/src/emacs/lisp/profiler.el.gz
(cl-defun profiler-report-render-calltree-1
    (profile &key reverse (order 'descending))
  (let ((calltree (profiler-calltree-build
                   (profiler-profile-log profile)
                   :reverse reverse)))
    (setq header-line-format
	  (cl-ecase (profiler-profile-type profile)
	    (cpu
	     (profiler-report-header-line-format
	      profiler-report-cpu-line-format
	      (list "Samples" "%") " " "  Function"))
	    (memory
	     (profiler-report-header-line-format
	      profiler-report-memory-line-format
	      (list "Bytes" "%") " " "  Function"))))
    (let ((predicate (cl-ecase order
		       (ascending #'profiler-calltree-count<)
		       (descending #'profiler-calltree-count>))))
      (profiler-calltree-sort calltree predicate))
    (let ((inhibit-read-only t))
      (erase-buffer)
      (profiler-report-insert-calltree-children calltree)
      (goto-char (point-min))
      (profiler-report-move-to-entry))))