mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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 mach_type_known
# endif
# if defined(macosx)
# if defined(macosx) || \
(defined(__APPLE__) && defined(__MACH__) && defined(__ppc__))
# define MACOSX
# define POWERPC
# define mach_type_known
@ -1878,7 +1879,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)