diff options
Diffstat (limited to 'src/bytecode.c')
-rw-r--r-- | src/bytecode.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index cd6f4a9314..664bac851c 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -58,9 +58,7 @@ by Hallvard: #ifdef BYTE_CODE_METER -Lisp_Object Vbyte_code_meter, Qbyte_code_meter; -int byte_metering_on; - +Lisp_Object Qbyte_code_meter; #define METER_2(code1, code2) \ XFASTINT (XVECTOR (XVECTOR (Vbyte_code_meter)->contents[(code1)]) \ ->contents[(code2)]) @@ -1686,7 +1684,7 @@ syms_of_bytecode (void) #ifdef BYTE_CODE_METER - DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, + DEFVAR_LISP ("byte-code-meter", Vbyte_code_meter, doc: /* A vector of vectors which holds a histogram of byte-code usage. \(aref (aref byte-code-meter 0) CODE) indicates how many times the byte opcode CODE has been executed. @@ -1694,7 +1692,7 @@ opcode CODE has been executed. indicates how many times the byte opcodes CODE1 and CODE2 have been executed in succession. */); - DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, + DEFVAR_BOOL ("byte-metering-on", byte_metering_on, doc: /* If non-nil, keep profiling information on byte code usage. The variable byte-code-meter indicates how often each byte opcode is used. If a symbol has a property named `byte-code-meter' whose value is an |