diff options
Diffstat (limited to 'src/vm_loader.c')
-rw-r--r-- | src/vm_loader.c | 8 |
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 |