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

* stacks.c: replace usage of STACK_GROWS_UP with

Browse source 
SCM_STACK_GROWS_UP.
This commit is contained in:
Rob Browning 2003-03-26 00:00:12 +00:00
parent af7a39456a
commit 697f90d671
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/stacks.c
View file

@ -464,7 +464,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
{
offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (obj) + sizeof (scm_t_contregs))
- SCM_BASE (obj));
#ifndef STACK_GROWS_UP
#ifndef SCM_STACK_GROWS_UP
offset += SCM_CONTINUATION_LENGTH (obj);
#endif
dframe = RELOC_FRAME (SCM_DFRAME (obj), offset);
@ -548,7 +548,7 @@ SCM_DEFINE (scm_stack_id, "stack-id", 1, 0, 0,
{
offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (stack) + sizeof (scm_t_contregs))
- SCM_BASE (stack));
#ifndef STACK_GROWS_UP
#ifndef SCM_STACK_GROWS_UP
offset += SCM_CONTINUATION_LENGTH (stack);
#endif
dframe = RELOC_FRAME (SCM_DFRAME (stack), offset);
@ -627,7 +627,7 @@ SCM_DEFINE (scm_last_stack_frame, "last-stack-frame", 1, 0, 0,
{
offset = ((SCM_STACKITEM *) ((char *) SCM_CONTREGS (obj) + sizeof (scm_t_contregs))
- SCM_BASE (obj));
#ifndef STACK_GROWS_UP
#ifndef SCM_STACK_GROWS_UP
offset += SCM_CONTINUATION_LENGTH (obj);
#endif
dframe = RELOC_FRAME (SCM_DFRAME (obj), offset);