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

Improved MIPS/Linux gc_os_dep.c definitions

Browse source 
From Thiemo Seufer <ths@networkno.de>:

	* gc_os_dep.c (CPP_WORDSZ, ALIGN_DOUBLE, DATAEND,
	DYNAMIC_LOADING): Added #defines.
	(_fdata, _end): Added declarations.
	(DATASTART): Use _fdata instead of __data_start.
	(STACKBOTTOM): Changed from 0x80000000 to 0x7fff8000.
This commit is contained in:
Neil Jerram 2008-07-12 19:22:59 +01:00
parent 10a529b027
commit 4ff3575c77
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -80,6 +80,7 @@ For fixes or providing information which led to a fix:
Werner Scheinast Werner Scheinast
Bill Schottstaedt Bill Schottstaedt
Frank Schwidom Frank Schwidom
Thiemo Seufer
Scott Shedden Scott Shedden
Alex Shinn Alex Shinn
Daniel Skarda Daniel Skarda

23
libguile/gc_os_dep.c
View file

@ -1008,19 +1008,18 @@ scm_get_stack_base ()
# ifdef MIPS # ifdef MIPS
# define MACH_TYPE "MIPS" # define MACH_TYPE "MIPS"
/* # define STACKBOTTOM ((ptr_t)0x7fff8000) sometimes also works. */
# ifdef LINUX # ifdef LINUX
/* This was developed for a linuxce style platform. Probably */ # define CPP_WORDSZ _MIPS_SZPTR
/* needs to be tweaked for workstation class machines. */ # define OS_TYPE "LINUX"
# define OS_TYPE "LINUX" # define ALIGNMENT 4
extern int __data_start; # define ALIGN_DOUBLE
# define DATASTART ((ptr_t)(&__data_start)) extern int _fdata;
# define ALIGNMENT 4 # define DATASTART ((ptr_t)(&_fdata))
# define USE_GENERIC_PUSH_REGS 1 extern int _end;
# define STACKBOTTOM 0x80000000 # define DATAEND ((ptr_t)(&_end))
/* In many cases, this should probably use LINUX_STACKBOTTOM */ # define STACKBOTTOM ((ptr_t)0x7fff8000)
/* instead. But some kernel versions seem to give the wrong */ # define USE_GENERIC_PUSH_REGS 1
/* value from /proc. */ # define DYNAMIC_LOADING
# endif /* Linux */ # endif /* Linux */
# ifdef ULTRIX # ifdef ULTRIX
# define HEURISTIC2 # define HEURISTIC2