mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-05 01:38:38 +00:00
parent 4ee5686f6c
commit ea9b4b29f3
13 changed files with 684 additions and 529 deletions
Download patch file Download diff file Expand all files Collapse all files

46
src/vm_system.c
View file

@ -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]);