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

* gc_os_dep.c: #include <config.h> if HAVE_CONFIG_H. Replace

Browse source 
usage of STACK_GROWS_UP with SCM_STACK_GROWS_UP.
This commit is contained in:
Rob Browning 2003-03-25 23:55:43 +00:00
parent 48c046bcda
commit 2485c27901
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/gc_os_dep.c
View file

@ -21,6 +21,10 @@
* and modified for Guile by Marius Vollmer. * and modified for Guile by Marius Vollmer.
*/ */
#if HAVE_CONFIG_H
# include <config.h>
#endif
#include <ctype.h> #include <ctype.h>
#include "libguile/gc.h" #include "libguile/gc.h"
#include "libguile/scmconfig.h" #include "libguile/scmconfig.h"
@ -438,7 +442,7 @@ typedef int GC_bool;
* highest address in the stack. * highest address in the stack.
* Under PCR or OS/2, we have other ways of finding thread stacks. * Under PCR or OS/2, we have other ways of finding thread stacks.
* For each machine, the following should: * For each machine, the following should:
* 1) define STACK_GROWS_UP if the stack grows toward higher addresses, and * 1) define SCM_STACK_GROWS_UP if the stack grows toward higher addresses, and
* 2) define exactly one of * 2) define exactly one of
* STACKBOTTOM (should be defined to be an expression) * STACKBOTTOM (should be defined to be an expression)
* HEURISTIC1 * HEURISTIC1
@ -448,7 +452,7 @@ typedef int GC_bool;
* HEURISTIC1: Take an address inside GC_init's frame, and round it up to * HEURISTIC1: Take an address inside GC_init's frame, and round it up to
* the next multiple of STACK_GRAN. * the next multiple of STACK_GRAN.
* HEURISTIC2: Take an address inside GC_init's frame, increment it repeatedly * HEURISTIC2: Take an address inside GC_init's frame, increment it repeatedly
* in small steps (decrement if STACK_GROWS_UP), and read the value * in small steps (decrement if SCM_STACK_GROWS_UP), and read the value
* at each location. Remember the value when the first * at each location. Remember the value when the first
* Segmentation violation or Bus error is signalled. Round that * Segmentation violation or Bus error is signalled. Round that
* to the nearest plausible page boundary, and use that instead * to the nearest plausible page boundary, and use that instead
@ -1073,7 +1077,9 @@ typedef int GC_bool;
extern char ** environ; extern char ** environ;
# define STACKBOTTOM ((ptr_t)environ) # define STACKBOTTOM ((ptr_t)environ)
# endif # endif
# define STACK_GROWS_UP # ifndef SCM_STACK_GROWS_UP /* don't fight with scmconfig.h */
# define SCM_STACK_GROWS_UP
# endif
# define DYNAMIC_LOADING # define DYNAMIC_LOADING
# ifndef HPUX_THREADS # ifndef HPUX_THREADS
# define MPROTECT_VDB # define MPROTECT_VDB
@ -1259,7 +1265,7 @@ typedef int GC_bool;
# define DATASTART ((ptr_t)(&__data_start != 0? &__data_start : &data_start)) # define DATASTART ((ptr_t)(&__data_start != 0? &__data_start : &data_start))
#endif #endif
# ifndef STACK_GROWS_UP # ifndef SCM_STACK_GROWS_UP
# define STACK_GROWS_DOWN # define STACK_GROWS_DOWN
# endif # endif