mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

When we have __libc_stack_end, use that directly instead the old

Browse source 
tricks.
This commit is contained in:
Marius Vollmer 2002-08-24 00:57:14 +00:00
parent d19c97670e
commit 8cbb63c795
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/gc_os_dep.c
View file

@ -3,7 +3,7 @@
* Copyright (c) 1991-1995 by Xerox Corporation. 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) 2000, 2001 Free Software Foundation
* Copyright (c) 2000, 2001, 2002 Free Software Foundation
*
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
* OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
@ -23,6 +23,19 @@
#include <ctype.h>
#include "libguile/gc.h"
#include "libguile/scmconfig.h"
#ifdef HAVE_LIBC_STACK_END
extern void *__libc_stack_end;
void *
scm_get_stack_base ()
{
return __libc_stack_end;
}
#else
#define ABORT(msg) abort ()
@ -1882,3 +1895,5 @@ void *scm_get_stack_base()
# endif /* ! AMIGA */
# endif /* ! OS2 */
# endif /* ! MSWIN32 */
#endif /* ! HAVE_LIBC_STACK_END */