mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

* lisp/loadup.el: Count byte-code functions as well.

Browse Source
This commit is contained in:
Stefan Monnier 2012-06-13 09:18:59 -04:00
parent c4c8444a78
commit ef62b23df5
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2012-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
* loadup.el: Count byte-code functions as well.
* emacs-lisp/byte-opt.el (featurep): Move compiler-macro...
* emacs-lisp/bytecomp.el (featurep): ...here (bug#11692).

6
lisp/loadup.el
View File

@ -321,6 +321,7 @@
(when (hash-table-p purify-flag)
(let ((strings 0)
(vectors 0)
(bytecodes 0)
(conses 0)
(others 0))
(maphash (lambda (k v)
@ -328,10 +329,11 @@
((stringp k) (setq strings (1+ strings)))
((vectorp k) (setq vectors (1+ vectors)))
((consp k) (setq conses (1+ conses)))
((byte-code-function-p v) (setq bytecodes (1+ bytecodes)))
(t (setq others (1+ others)))))
purify-flag)
(message "Pure-hashed: %d strings, %d vectors, %d conses, %d others"
strings vectors conses others)))
(message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others"
strings vectors conses bytecodes others)))
;; Avoid error if user loads some more libraries now and make sure the
;; hash-consing hash table is GC'd.