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

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-19 03:09:27 +00:00
parent 8f5cfc810f
commit f21dfea659
12 changed files with 93 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/vm_engine.h
View file

@ -135,16 +135,6 @@
objects = SCM_VELTS (bp->objs); \
}
#define CACHE_EXTERNAL() \
{ \
external = fp[bp->nargs + bp->nlocs]; \
}
#define SYNC_EXTERNAL() \
{ \
fp[bp->nargs + bp->nlocs] = external; \
}
#define SYNC_BEFORE_GC() \
{ \
SYNC_REGISTER (); \
@ -305,16 +295,16 @@ do { \
CHECK_OVERFLOW (); \
sp[0] = ra; \
sp[-1] = dl; \
sp[-2] = bp->external; \
sp[-2] = external; \
}
#define FREE_FRAME() \
{ \
SCM *new_sp = fp - 2; \
sp = fp + bp->nargs + bp->nlocs; \
ip = SCM_VM_BYTE_ADDRESS (sp[2]); \
fp = SCM_VM_STACK_ADDRESS (sp[1]); \
sp = new_sp; \
SCM *p = fp + bp->nargs + bp->nlocs; \
sp = fp - 2; \
ip = SCM_VM_BYTE_ADDRESS (p[2]); \
fp = SCM_VM_STACK_ADDRESS (p[1]); \
external = p[0]; \
}
/*