[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/memrep cda3bb3: Adjust some sizes
From: |
Lars Ingebrigtsen |
Subject: |
scratch/memrep cda3bb3: Adjust some sizes |
Date: |
Thu, 10 Dec 2020 21:11:46 -0500 (EST) |
branch: scratch/memrep
commit cda3bb3b95a6fda60d93e98e99d77fe26cfbedca
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Adjust some sizes
---
lisp/emacs-lisp/memory-report.el | 19 +++++++------------
1 file changed, 7 insertions(+), 12 deletions(-)
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index 3dc0a53..d4444ef 100644
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -160,7 +160,13 @@
(memory-report--object-size-1 counted value)))
(cl-defgeneric memory-report--object-size-1 (_counted _value)
- (memory-report--size 'object))
+ 0)
+
+(cl-defmethod memory-report--object-size-1 (_ (_value symbol))
+ (memory-report--size 'symbol))
+
+(cl-defmethod memory-report--object-size-1 (_ (_value buffer))
+ (memory-report--size 'buffer))
(cl-defmethod memory-report--object-size-1 (counted (value string))
(+ (memory-report--size 'string)
@@ -191,14 +197,6 @@
(cl-incf total (memory-report--object-size counted elem)))
total))
-(cl-defmethod memory-report--object-size-1 (counted (value integer))
- ;; There's no context an integer takes up more space?
- 0)
-
-(cl-defmethod memory-report--object-size-1 (counted (value float))
- ;; There's no context a float takes up more space?
- 0)
-
(cl-defmethod memory-report--object-size-1 (counted (value hash-table))
(let ((total (+ (memory-report--size 'vector)
(* (memory-report--size 'object) (hash-table-size value)))))
@@ -211,9 +209,6 @@
value)
total))
-(cl-defmethod memory-report--object-size-1 (_ (_value float))
- (memory-report--size 'float))
-
(defun memory-report--format (bytes)
(setq bytes (/ bytes 1024.0))
(let ((units '("kB" "MB" "GB" "TB")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/memrep cda3bb3: Adjust some sizes,
Lars Ingebrigtsen <=