diff options
Diffstat (limited to 'src/objcodes.c')
-rw-r--r-- | src/objcodes.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/objcodes.c b/src/objcodes.c index 00b3b66ee..efb9eb65f 100644 --- a/src/objcodes.c +++ b/src/objcodes.c @@ -153,6 +153,8 @@ SCM_DEFINE (scm_bytecode_to_objcode, "bytecode->objcode", 3, 0, 0, c_bytecode = scm_u8vector_elements (bytecode, &handle, &size, &increment); assert (increment == 1); + /* Account for the 10 byte-long header. */ + size += 10; objcode = make_objcode (size); base = SCM_OBJCODE_BASE (objcode); |