summaryrefslogtreecommitdiff
path: root/src/objcodes.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/objcodes.c')
-rw-r--r--src/objcodes.c2
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);