mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +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; 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; SCM x = *sp;
@ -393,7 +393,7 @@ VM_DEFINE_INSTRUCTION (30, long_local_set, "long-local-set", 2, 1, 0)
NEXT; 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]); VARIABLE_SET (sp[0], sp[-1]);
DROPN (2); DROPN (2);