diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-05 01:38:38 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-05 01:38:38 +0000 |
commit | ea9b4b29f39cdc3e17222f0c35462d29c80a6089 (patch) | |
tree | 091e38e3fea3c139f92c554c9b37799590700348 /src/vm_system.c | |
parent | 4ee5686f6cc16cc78df4eecb10eab25268e74835 (diff) | |
download | guile-ea9b4b29f39cdc3e17222f0c35462d29c80a6089.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 46 |
1 files changed, 3 insertions, 43 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index 3a4431e55..6c8f86228 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -128,7 +128,9 @@ VM_DEFINE_INSTRUCTION (make_int8_1, "make-int8:1", 0) VM_DEFINE_INSTRUCTION (make_int16, "make-int16", 2) { - PUSH (SCM_MAKINUM ((signed short) FETCH2 ())); + int h = FETCH (); + int l = FETCH (); + PUSH (SCM_MAKINUM ((signed short) (h << 8) + l)); NEXT; } @@ -168,12 +170,6 @@ VM_DEFINE_INSTRUCTION (object_ref, "object-ref", 1) NEXT; } -VM_DEFINE_INSTRUCTION (object_ref_2, "object-ref*2", 2) -{ - PUSH (OBJECT_REF (FETCH2 ())); - NEXT; -} - VM_DEFINE_INSTRUCTION (local_ref, "local-ref", 1) { PUSH (LOCAL_REF (FETCH ())); @@ -186,12 +182,6 @@ VM_DEFINE_INSTRUCTION (local_ref_0, "local-ref:0", 0) NEXT; } -VM_DEFINE_INSTRUCTION (local_ref_2, "local-ref*2", 2) -{ - PUSH (LOCAL_REF (FETCH2 ())); - NEXT; -} - VM_DEFINE_INSTRUCTION (external_ref, "external-ref", 1) { unsigned int i; @@ -216,20 +206,6 @@ VM_DEFINE_INSTRUCTION (module_ref, "module-ref", 1) NEXT; } -VM_DEFINE_INSTRUCTION (module_ref_2, "module-ref*2", 2) -{ - int i = FETCH2 (); - SCM o, x = OBJECT_REF (i); - o = VARIABLE_REF (x); - if (SCM_UNBNDP (o)) - { - err_args = SCM_LIST1 (SCM_CAR (x)); - goto vm_error_unbound; - } - PUSH (o); - NEXT; -} - VM_DEFINE_INSTRUCTION (variable_ref, "variable-ref", 0) { SCM x = *sp; @@ -252,13 +228,6 @@ VM_DEFINE_INSTRUCTION (local_set, "local-set", 1) NEXT; } -VM_DEFINE_INSTRUCTION (local_set_2, "local-set*2", 2) -{ - LOCAL_SET (FETCH2 (), *sp); - DROP (); - NEXT; -} - VM_DEFINE_INSTRUCTION (external_set, "external-set", 1) { unsigned int i; @@ -279,15 +248,6 @@ VM_DEFINE_INSTRUCTION (module_set, "module-set", 1) NEXT; } -VM_DEFINE_INSTRUCTION (module_set_2, "module-set*2", 2) -{ - int i = FETCH2 (); - SCM x = OBJECT_REF (i); - VARIABLE_SET (x, *sp); - DROP (); - NEXT; -} - VM_DEFINE_INSTRUCTION (variable_set, "variable-set", 0) { VARIABLE_SET (sp[0], sp[1]); |