aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index cd6f4a93143..664bac851cb 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -58,9 +58,7 @@ by Hallvard:
58 58
59#ifdef BYTE_CODE_METER 59#ifdef BYTE_CODE_METER
60 60
61Lisp_Object Vbyte_code_meter, Qbyte_code_meter; 61Lisp_Object Qbyte_code_meter;
62int byte_metering_on;
63
64#define METER_2(code1, code2) \ 62#define METER_2(code1, code2) \
65 XFASTINT (XVECTOR (XVECTOR (Vbyte_code_meter)->contents[(code1)]) \ 63 XFASTINT (XVECTOR (XVECTOR (Vbyte_code_meter)->contents[(code1)]) \
66 ->contents[(code2)]) 64 ->contents[(code2)])
@@ -1686,7 +1684,7 @@ syms_of_bytecode (void)
1686 1684
1687#ifdef BYTE_CODE_METER 1685#ifdef BYTE_CODE_METER
1688 1686
1689 DEFVAR_LISP ("byte-code-meter", &Vbyte_code_meter, 1687 DEFVAR_LISP ("byte-code-meter", Vbyte_code_meter,
1690 doc: /* A vector of vectors which holds a histogram of byte-code usage. 1688 doc: /* A vector of vectors which holds a histogram of byte-code usage.
1691\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte 1689\(aref (aref byte-code-meter 0) CODE) indicates how many times the byte
1692opcode CODE has been executed. 1690opcode CODE has been executed.
@@ -1694,7 +1692,7 @@ opcode CODE has been executed.
1694indicates how many times the byte opcodes CODE1 and CODE2 have been 1692indicates how many times the byte opcodes CODE1 and CODE2 have been
1695executed in succession. */); 1693executed in succession. */);
1696 1694
1697 DEFVAR_BOOL ("byte-metering-on", &byte_metering_on, 1695 DEFVAR_BOOL ("byte-metering-on", byte_metering_on,
1698 doc: /* If non-nil, keep profiling information on byte code usage. 1696 doc: /* If non-nil, keep profiling information on byte code usage.
1699The variable byte-code-meter indicates how often each byte opcode is used. 1697The variable byte-code-meter indicates how often each byte opcode is used.
1700If a symbol has a property named `byte-code-meter' whose value is an 1698If a symbol has a property named `byte-code-meter' whose value is an