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

update ifdefery for macosx.

Browse source 
(scm_get_stack_base): separate result initialization from
declaration to slience warnings with macosx and hp-ux using gcc
3.3.  Thanks to Andreas Vögele.
This commit is contained in:
Rob Browning 2004-06-16 01:04:09 +00:00
parent 13bf622fa5
commit e0816d5938
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/gc_os_dep.c
View file

@ -263,7 +263,8 @@ typedef int GC_bool;
# define MACOS # define MACOS
# define mach_type_known # define mach_type_known
# endif # endif
# if defined(macosx) # if defined(macosx) || \
(defined(__APPLE__) && defined(__MACH__) && defined(__ppc__))
# define MACOSX # define MACOSX
# define POWERPC # define POWERPC
# define mach_type_known # define mach_type_known
@ -1871,7 +1872,9 @@ void *scm_get_stack_base()
void *scm_get_stack_base() void *scm_get_stack_base()
{ {
word dummy; word dummy;
void *result = &dummy; /* initialize to silence compiler */ void *result;
result = &dummy; /* initialize to silence compiler */
# define STACKBOTTOM_ALIGNMENT_M1 ((word)STACK_GRAN - 1) # define STACKBOTTOM_ALIGNMENT_M1 ((word)STACK_GRAN - 1)