summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-05 01:38:38 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-05 01:38:38 +0000
commitea9b4b29f39cdc3e17222f0c35462d29c80a6089 (patch)
tree091e38e3fea3c139f92c554c9b37799590700348 /src/vm_system.c
parent4ee5686f6cc16cc78df4eecb10eab25268e74835 (diff)
downloadguile-ea9b4b29f39cdc3e17222f0c35462d29c80a6089.tar.gz
*** empty log message ***
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c46
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]);