3 |
* Copyright (c) 1991-1995 by Xerox Corporation. All rights reserved. |
* Copyright (c) 1991-1995 by Xerox Corporation. All rights reserved. |
4 |
* Copyright (c) 1996-1999 by Silicon Graphics. All rights reserved. |
* Copyright (c) 1996-1999 by Silicon Graphics. All rights reserved. |
5 |
* Copyright (c) 1999 by Hewlett-Packard Company. All rights reserved. |
* Copyright (c) 1999 by Hewlett-Packard Company. All rights reserved. |
6 |
* Copyright (c) 2000, 2001 Free Software Foundation |
* Copyright (c) 2000, 2001, 2003 Free Software Foundation |
7 |
* |
* |
8 |
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED |
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED |
9 |
* OR IMPLIED. ANY USE IS AT YOUR OWN RISK. |
* OR IMPLIED. ANY USE IS AT YOUR OWN RISK. |
23 |
|
|
24 |
#include <ctype.h> |
#include <ctype.h> |
25 |
#include "libguile/gc.h" |
#include "libguile/gc.h" |
26 |
|
#include "libguile/scmconfig.h" |
27 |
|
|
28 |
|
#ifdef HAVE_LIBC_STACK_END |
29 |
|
|
30 |
|
extern void *__libc_stack_end; |
31 |
|
|
32 |
|
void * |
33 |
|
scm_get_stack_base () |
34 |
|
{ |
35 |
|
return __libc_stack_end; |
36 |
|
} |
37 |
|
|
38 |
|
#else |
39 |
|
|
40 |
|
|
41 |
#define ABORT(msg) abort () |
#define ABORT(msg) abort () |
42 |
|
|
1915 |
# endif /* ! AMIGA */ |
# endif /* ! AMIGA */ |
1916 |
# endif /* ! OS2 */ |
# endif /* ! OS2 */ |
1917 |
# endif /* ! MSWIN32 */ |
# endif /* ! MSWIN32 */ |
1918 |
|
|
1919 |
|
#endif /* ! HAVE_LIBC_STACK_END */ |