mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

inline FREE_FRAME in return, sync stack_base in CACHE_REGISTER

Browse source 
* libguile/vm-engine.h (CACHE_REGISTER): Sync stack_base too.

* libguile/vm-i-system.c (return): Inline FREE_FRAME here,
  micro-optimizing a wee bit. Sounds silly, but it's to enable some
  refactoring.
This commit is contained in:
Andy Wingo 2008-09-13 14:30:57 +02:00
parent 2cdb8cdc0d
commit f13c269b7f
2 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-engine.h
View file

@ -132,6 +132,7 @@
ip = vp->ip; \
sp = vp->sp; \
fp = vp->fp; \
stack_base = fp ? SCM_FRAME_UPPER_ADDRESS (fp) - 1 : vp->stack_base; \
}
#define SYNC_REGISTER() \