/[guile]/guile/guile-core/libguile/gc_os_dep.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc_os_dep.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7.4.11 by rlb, Wed Apr 16 20:17:44 2003 UTC revision 1.7.4.12 by mvo, Mon Jun 9 22:14:02 2003 UTC
# Line 3  Line 3 
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.
# Line 23  Line 23 
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    
# Line 1901  void *scm_get_stack_base() Line 1915  void *scm_get_stack_base()
1915  # endif /* ! AMIGA */  # endif /* ! AMIGA */
1916  # endif /* ! OS2 */  # endif /* ! OS2 */
1917  # endif /* ! MSWIN32 */  # endif /* ! MSWIN32 */
1918    
1919    #endif /* ! HAVE_LIBC_STACK_END */

Legend:
Removed from v.1.7.4.11  
changed lines
  Added in v.1.7.4.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26