/[guile]/guile/guile-core/libguile/stackchk.h
ViewVC logotype

Diff of /guile/guile-core/libguile/stackchk.h

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

revision 1.17 by dirk, Sun Apr 20 07:19:38 2003 UTC revision 1.18 by mdj, Thu May 22 09:16:32 2003 UTC
# Line 3  Line 3 
3  #ifndef SCM_STACKCHK_H  #ifndef SCM_STACKCHK_H
4  #define SCM_STACKCHK_H  #define SCM_STACKCHK_H
5    
6  /* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc.  /* Copyright (C) 1995,1996,1998,2000, 2003 Free Software Foundation, Inc.
7   *   *
8   * This library is free software; you can redistribute it and/or   * This library is free software; you can redistribute it and/or
9   * modify it under the terms of the GNU Lesser General Public   * modify it under the terms of the GNU Lesser General Public
# Line 36  Line 36 
36  #ifdef STACK_CHECKING  #ifdef STACK_CHECKING
37  # if SCM_STACK_GROWS_UP  # if SCM_STACK_GROWS_UP
38  #  define SCM_STACK_OVERFLOW_P(s)\  #  define SCM_STACK_OVERFLOW_P(s)\
39     (s > ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) + SCM_STACK_LIMIT))     (SCM_STACK_PTR (s) \
40        > ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) + SCM_STACK_LIMIT))
41  # else  # else
42  #  define SCM_STACK_OVERFLOW_P(s)\  #  define SCM_STACK_OVERFLOW_P(s)\
43     (s < ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) - SCM_STACK_LIMIT))     (SCM_STACK_PTR (s) \
44        < ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) - SCM_STACK_LIMIT))
45  # endif  # endif
46  # define SCM_CHECK_STACK\  # define SCM_CHECK_STACK\
47      {\      {\

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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