mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

fixes to variable-ref, variable-set vm ops

Browse source 
* libguile/vm-i-system.c (variable-ref, variable-set): Fix declared
  number of pops and pushes.
This commit is contained in:
Andy Wingo 2009-11-30 22:14:52 +01:00
parent 7b89381965
commit 156d6fa1b5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-i-system.c
View file

@ -298,7 +298,7 @@ VM_DEFINE_INSTRUCTION (24, long_local_bound, "long-local-bound?", 2, 0, 1)
NEXT;
}
VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 0, 1)
VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 1, 1)
{
SCM x = *sp;
@ -393,7 +393,7 @@ VM_DEFINE_INSTRUCTION (30, long_local_set, "long-local-set", 2, 1, 0)
NEXT;
}
VM_DEFINE_INSTRUCTION (31, variable_set, "variable-set", 0, 1, 0)
VM_DEFINE_INSTRUCTION (31, variable_set, "variable-set", 0, 2, 0)
{
VARIABLE_SET (sp[0], sp[-1]);
DROPN (2);