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

vm caches the dynamic state in a local var

Browse source 
* libguile/vm-engine.c (vm_engine): Cache the dynamic state in a local
  var when we enter the VM.
* libguile/vm-i-system.c (wind-fluids, unwind-fluids): Use the cached
  dynamic state instead of going through SCM_I_CURRENT_THREAD.
This commit is contained in:
Andy Wingo 2010-02-19 11:37:42 +01:00
parent 6e84cb95b1
commit 26e6f99fc3
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-engine.c
View file

@ -47,6 +47,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
SCM *objects = NULL; /* constant objects */
size_t object_count = 0; /* length of OBJECTS */
SCM *stack_limit = vp->stack_limit; /* stack limit address */
SCM dynstate = SCM_I_CURRENT_THREAD->dynamic_state;
/* Internal variables */
int nvalues = 0;