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

* src/vm.c (lookup_variable): New function.

Browse source 
(scm_make_bytecode): Call lookup_variable for top-level variables.
* src/vm_engine.h (VM_VARIABLE_REF, VM_VARIABLE_SET): New macros.
* src/vm_system.c (TOPLEVEL_VAR, TOPLEVEL_VAR_SET): Removed.
Use VM_VARIABLE_REF and VM_VARIABLE_SET instead.
This commit is contained in:
Keisuke Nishida 2000-08-25 02:31:26 +00:00
parent db7880185f
commit 9df03fd0c1
3 changed files with 33 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/vm_system.c
View file

@ -65,9 +65,6 @@
#define EXTERNAL_VAR1(OFFSET) SCM_VM_EXTERNAL_VARIABLE (SCM_VM_EXTERNAL_LINK (ext), OFFSET)
#define EXTERNAL_VAR2(OFFSET) SCM_VM_EXTERNAL_VARIABLE (SCM_VM_EXTERNAL_LINK (SCM_VM_EXTERNAL_LINK (ext)), OFFSET)
#define TOPLEVEL_VAR(CELL) SCM_CDR (CELL)
#define TOPLEVEL_VAR_SET(CELL,OBJ) SCM_SETCDR (CELL, OBJ)
/*
* Basic operations
@ -176,7 +173,7 @@ SCM_DEFINE_INSTRUCTION (pusht, "%pusht", INST_TOP)
{
ac = FETCH ();
VM_ASSERT_BOUND (ac);
PUSH (TOPLEVEL_VAR (ac));
PUSH (VM_VARIABLE_REF (ac));
NEXT;
}
@ -257,7 +254,7 @@ SCM_DEFINE_INSTRUCTION (loadt, "%loadt", INST_TOP)
{
ac = FETCH ();
VM_ASSERT_BOUND (ac);
RETURN (TOPLEVEL_VAR (ac));
RETURN (VM_VARIABLE_REF (ac));
}
@ -338,7 +335,7 @@ SCM_DEFINE_INSTRUCTION (savet, "%savet", INST_TOP)
{
SCM cell = FETCH ();
scm_set_object_property_x (ac, scm_sym_name, SCM_CAR (cell));
TOPLEVEL_VAR_SET (cell, ac);
VM_VARIABLE_SET (cell, ac);
NEXT;
}