Mercurial > emacs
changeset 39634:4baf64844f9c
(syms_of_bytecode) [BYTE_CODE_METER]: Doc fix.
(METER_CODE): Use MOST_POSITIVE_FIXNUM.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 06 Oct 2001 23:36:22 +0000 |
| parents | a0bf0cb8ff3e |
| children | c6144b4dc5c1 |
| files | src/bytecode.c |
| diffstat | 1 files changed, 13 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/src/bytecode.c Sat Oct 06 23:32:01 2001 +0000 +++ b/src/bytecode.c Sat Oct 06 23:36:22 2001 +0000 @@ -66,16 +66,16 @@ #define METER_1(code) METER_2 (0, (code)) -#define METER_CODE(last_code, this_code) \ -{ \ - if (byte_metering_on) \ - { \ - if (METER_1 (this_code) != ((1<<VALBITS)-1)) \ - METER_1 (this_code)++; \ - if (last_code \ - && METER_2 (last_code, this_code) != ((1<<VALBITS)-1))\ - METER_2 (last_code, this_code)++; \ - } \ +#define METER_CODE(last_code, this_code) \ +{ \ + if (byte_metering_on) \ + { \ + if (METER_1 (this_code) < MOST_POSITIVE_FIXNUM) \ + METER_1 (this_code)++; \ + if (last_code \ + && METER_2 (last_code, this_code) < MOST_POSITIVE_FIXNUM) \ + METER_2 (last_code, this_code)++; \ + } \ } #else /* no BYTE_CODE_METER */ @@ -1747,11 +1747,12 @@ DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, "A vector of vectors which holds a histogram of byte-code usage.\n\ -(aref (aref byte-code-meter 0) CODE) indicates how many times the byte\n\ +\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte\n\ opcode CODE has been executed.\n\ -(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,\n\ +\(aref (aref byte-code-meter CODE1) CODE2), where CODE1 is not 0,\n\ indicates how many times the byte opcodes CODE1 and CODE2 have been\n\ executed in succession."); + DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, "If non-nil, keep profiling information on byte code usage.\n\ The variable byte-code-meter indicates how often each byte opcode is used.\n\