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 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 | ||
| 61 | Lisp_Object Vbyte_code_meter, Qbyte_code_meter; | 61 | Lisp_Object Qbyte_code_meter; |
| 62 | int 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 |
| 1692 | opcode CODE has been executed. | 1690 | opcode CODE has been executed. |
| @@ -1694,7 +1692,7 @@ opcode CODE has been executed. | |||
| 1694 | indicates how many times the byte opcodes CODE1 and CODE2 have been | 1692 | indicates how many times the byte opcodes CODE1 and CODE2 have been |
| 1695 | executed in succession. */); | 1693 | executed 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. |
| 1699 | The variable byte-code-meter indicates how often each byte opcode is used. | 1697 | The variable byte-code-meter indicates how often each byte opcode is used. |
| 1700 | If a symbol has a property named `byte-code-meter' whose value is an | 1698 | If a symbol has a property named `byte-code-meter' whose value is an |