diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 40389e08f0e..95f7b32a036 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1494,13 +1494,9 @@ If a symbol has a property named `byte-code-meter' whose value is an | |||
| 1494 | integer, it is incremented each time that symbol's function is called. */); | 1494 | integer, it is incremented each time that symbol's function is called. */); |
| 1495 | 1495 | ||
| 1496 | byte_metering_on = false; | 1496 | byte_metering_on = false; |
| 1497 | Vbyte_code_meter = Fmake_vector (make_fixnum (256), make_fixnum (0)); | 1497 | Vbyte_code_meter = make_nil_vector (256); |
| 1498 | DEFSYM (Qbyte_code_meter, "byte-code-meter"); | 1498 | DEFSYM (Qbyte_code_meter, "byte-code-meter"); |
| 1499 | { | 1499 | for (int i = 0; i < 256; i++) |
| 1500 | int i = 256; | 1500 | ASET (Vbyte_code_meter, i, make_vector (256, make_fixnum (0))); |
| 1501 | while (i--) | ||
| 1502 | ASET (Vbyte_code_meter, i, | ||
| 1503 | Fmake_vector (make_fixnum (256), make_fixnum (0))); | ||
| 1504 | } | ||
| 1505 | #endif | 1501 | #endif |
| 1506 | } | 1502 | } |