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

RTL VM: Fix fluid-ref local addressing.

Browse source 
* libguile/vm-engine.c (push-fluid): Fix variable addressing.
This commit is contained in:
Andy Wingo 2013-10-23 10:05:28 +02:00
parent e23f9e4423
commit 2a4ee2ac8c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -2402,7 +2402,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
SCM_UNPACK_RTL_12_12 (op, fluid, value);
scm_dynstack_push_fluid (&current_thread->dynstack,
fp[fluid], fp[value],
LOCAL_REF (fluid), LOCAL_REF (value),
current_thread->dynamic_state);
NEXT (1);
}