[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r155: Fix bug in `memory-usage' package
From: |
Chong Yidong |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r155: Fix bug in `memory-usage' package. |
Date: |
Sun, 23 Oct 2011 15:38:40 +0800 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 155
committer: Chong Yidong <address@hidden>
branch nick: elpa
timestamp: Sun 2011-10-23 15:38:40 +0800
message:
Fix bug in `memory-usage' package.
The 4th slot of `garbage-collect' is a number not a cons.
modified:
packages/memory-usage/memory-usage.el
=== modified file 'packages/memory-usage/memory-usage.el'
--- a/packages/memory-usage/memory-usage.el 2011-10-23 07:33:07 +0000
+++ b/packages/memory-usage/memory-usage.el 2011-10-23 07:38:40 +0000
@@ -23,7 +23,7 @@
;;; Commentary:
-;; This package provide the command `memory-usage', which lists all
+;; This package provides the command `memory-usage', which lists all
;; buffers and how much memory they use.
;;; Code:
@@ -81,9 +81,7 @@
(insert (format "\t%d+%d bytes in intervals\n" (car intervals) (cdr
intervals)))
(insert (format "\t%d+%d bytes in string headers\n" (car strings) (cdr
strings)))
(insert (format "\t%d bytes of string chars\n" chars))
- (insert (format "\t%d bytes of vector headers\n" (* 2
memory-usage-word-size (car vectors))))
- (insert (format "\t%d bytes of vector slots\n" (* memory-usage-word-size
(cdr vectors))))
-
+ (insert (format "\t%d bytes of vector slots\n" chars))
(let ((live (+ (car conses)
(car symbols)
(car markers)
@@ -91,8 +89,7 @@
(car intervals)
(car strings)
chars
- (* 2 memory-usage-word-size (car vectors))
- (* memory-usage-word-size (cdr vectors))))
+ vectors))
(dead (+ (cdr conses)
(cdr symbols)
(cdr markers)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r155: Fix bug in `memory-usage' package.,
Chong Yidong <=