mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

(scm_get_stack_base): Provide a definition that return NULL when the

Browse source 
machine type is unknown.  Previously, gc_os_dep.c would refuse to
compile.
This commit is contained in:
Marius Vollmer 2003-11-13 18:19:02 +00:00
parent eeac938c7c
commit fbff94c9c3
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/gc_os_dep.c
View file

@ -3,7 +3,7 @@
* Copyright (c) 1991-1995 by Xerox Corporation. All rights reserved. * Copyright (c) 1991-1995 by Xerox Corporation. All rights reserved.
* Copyright (c) 1996-1999 by Silicon Graphics. All rights reserved. * Copyright (c) 1996-1999 by Silicon Graphics. All rights reserved.
* Copyright (c) 1999 by Hewlett-Packard Company. All rights reserved. * Copyright (c) 1999 by Hewlett-Packard Company. All rights reserved.
* Copyright (c) 2000, 2001, 2002 Free Software Foundation * Copyright (c) 2000, 2001, 2002, 2003 Free Software Foundation
* *
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
* OR IMPLIED. ANY USE IS AT YOUR OWN RISK. * OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
@ -394,8 +394,14 @@ typedef int GC_bool;
/* SYSV on an M68K actually means A/UX. */ /* SYSV on an M68K actually means A/UX. */
/* The distinction in these cases is usually the stack starting address */ /* The distinction in these cases is usually the stack starting address */
# ifndef mach_type_known # ifndef mach_type_known
--> unknown machine type
# endif void *
scm_get_stack_base ()
{
return NULL;
}
# else
/* Mapping is: M68K ==> Motorola 680X0 */ /* Mapping is: M68K ==> Motorola 680X0 */
/* (SUNOS4,HP,NEXT, and SYSV (A/UX), */ /* (SUNOS4,HP,NEXT, and SYSV (A/UX), */
/* MACOS and AMIGA variants) */ /* MACOS and AMIGA variants) */
@ -1923,4 +1929,5 @@ void *scm_get_stack_base()
# endif /* ! OS2 */ # endif /* ! OS2 */
# endif /* ! MSWIN32 */ # endif /* ! MSWIN32 */
#endif /* mach_type_known */
#endif /* ! HAVE_LIBC_STACK_END */ #endif /* ! HAVE_LIBC_STACK_END */