mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +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 04:09:52 +00:00
parent 17c22047f8
commit 537abaae4d
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

@ -266,7 +266,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
@ -1878,7 +1879,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)