mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +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 mach_type_known
# endif
# if defined(macosx)
# if defined(macosx) || \
(defined(__APPLE__) && defined(__MACH__) && defined(__ppc__))
# define MACOSX
# define POWERPC
# define mach_type_known
@ -1871,7 +1872,9 @@ void *scm_get_stack_base()
void *scm_get_stack_base()
{
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)