diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
commit | ac02b386c2e5743b6ea96486af6ba2cc6583c12a (patch) | |
tree | 5018b05085fd9966e0908f77a7474277f4f01c0c /src/vm_loader.c | |
parent | 2a63758b46a9f1b896e209a00b2f718ecd4a8b6f (diff) | |
download | guile-ac02b386c2e5743b6ea96486af6ba2cc6583c12a.tar.gz |
*** empty log message ***
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 |