diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/profiler.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/profiler.el b/lisp/profiler.el index 00ee99a6132..90740a2e286 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -20,7 +20,7 @@ ;;; Commentary: -;; +;; ;;; Code: @@ -237,6 +237,7 @@ be same type." (defun profiler-calltree-compute-percentages (tree) (let ((total-count 0)) + ;; FIXME: the memory profiler's total wraps around all too easily! (dolist (child (profiler-calltree-children tree)) (cl-incf total-count (profiler-calltree-count child))) (unless (zerop total-count) |