Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 110268:b2cc1d56be0f
Very minor bytecomp fix.
* lisp/emacs-lisp/bytecomp.el (byte-compile-report-ops):
Error if not compiled with -DBYTE_CODE_METER.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 08 Sep 2010 09:02:38 -0700 |
| parents | bd6932be9441 |
| children | 6388b1d1793a |
comparison
equal
deleted
inserted
replaced
| 110267:bd6932be9441 | 110268:b2cc1d56be0f |
|---|---|
| 4242 | 4242 |
| 4243 ;;; report metering (see the hacks in bytecode.c) | 4243 ;;; report metering (see the hacks in bytecode.c) |
| 4244 | 4244 |
| 4245 (defvar byte-code-meter) | 4245 (defvar byte-code-meter) |
| 4246 (defun byte-compile-report-ops () | 4246 (defun byte-compile-report-ops () |
| 4247 (or (boundp 'byte-metering-on) | |
| 4248 (error "You must build Emacs with -DBYTE_CODE_METER to use this")) | |
| 4247 (with-output-to-temp-buffer "*Meter*" | 4249 (with-output-to-temp-buffer "*Meter*" |
| 4248 (set-buffer "*Meter*") | 4250 (set-buffer "*Meter*") |
| 4249 (let ((i 0) n op off) | 4251 (let ((i 0) n op off) |
| 4250 (while (< i 256) | 4252 (while (< i 256) |
| 4251 (setq n (aref (aref byte-code-meter 0) i) | 4253 (setq n (aref (aref byte-code-meter 0) i) |