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

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-06 05:00:10 +00:00
parent 3d5ee0cdcc
commit 499a4c07c7
11 changed files with 67 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/vm_engine.h
View file

@ -129,7 +129,7 @@
vp->fp = fp; \
}
#define CACHE_PROGRAM(program) \
#define CACHE_PROGRAM() \
{ \
bp = SCM_PROGRAM_DATA (program); \
objects = SCM_VELTS (bp->objs); \
@ -183,7 +183,7 @@
goto vm_error_stack_overflow
#define CHECK_UNDERFLOW() \
if (sp > stack_limit) \
if (sp >= stack_limit) \
goto vm_error_stack_underflow
#define PUSH(x) do { CHECK_OVERFLOW (); *--sp = x; } while (0)