summaryrefslogtreecommitdiff
path: root/src/vm_loader.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/vm_loader.c')
-rw-r--r--src/vm_loader.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vm_loader.c b/src/vm_loader.c
index 899e9928f..fe7e2b518 100644
--- a/src/vm_loader.c
+++ b/src/vm_loader.c
@@ -132,7 +132,7 @@ VM_DEFINE_LOADER (load_program, "load-program")
{
/* 8-bit representation */
SCM_PROGRAM_NARGS (prog) = (i >> 6) & 0x03; /* 7-6 bits */
- SCM_PROGRAM_NREST (prog) = (i >> 5) & 0x01; /* 5 bit */
+ SCM_PROGRAM_NREST (prog) = (i >> 5) & 0x01; /* 5 bit */
SCM_PROGRAM_NLOCS (prog) = (i >> 2) & 0x07; /* 4-2 bits */
SCM_PROGRAM_NEXTS (prog) = i & 0x03; /* 1-0 bits */
}
@@ -140,9 +140,9 @@ VM_DEFINE_LOADER (load_program, "load-program")
{
/* 16-bit representation */
SCM_PROGRAM_NARGS (prog) = (i >> 12) & 0x07; /* 15-12 bits */
- SCM_PROGRAM_NREST (prog) = (i >> 11) & 0x01; /* 11 bit */
- SCM_PROGRAM_NLOCS (prog) = (i >> 4) & 0x7f; /* 10-4 bits */
- SCM_PROGRAM_NEXTS (prog) = i & 0x0f; /* 3-0 bits */
+ SCM_PROGRAM_NREST (prog) = (i >> 11) & 0x01; /* 11 bit */
+ SCM_PROGRAM_NLOCS (prog) = (i >> 4) & 0x7f; /* 10-04 bits */
+ SCM_PROGRAM_NEXTS (prog) = i & 0x0f; /* 03-00 bits */
}
}
else