Posted to tcl by miguel at Tue Nov 27 15:39:32 GMT 2007view raw
- Index: generic/tclBasic.c
- ===================================================================
- RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
- retrieving revision 1.285
- diff -u -r1.285 tclBasic.c
- --- generic/tclBasic.c 26 Nov 2007 19:11:11 -0000 1.285
- +++ generic/tclBasic.c 27 Nov 2007 15:38:10 -0000
- @@ -351,7 +351,7 @@
- TclpGetCStackParams(&((iPtr)->stackBound))
- #ifdef TCL_STACK_GROWS_UP
- #define CheckCStack(iPtr, localIntPtr) \
- - (!(iPtr)->stackBound || (localIntPtr) < (iPtr)->stackBound)
- + ((localIntPtr) < (iPtr)->stackBound)
- #else /* TCL_STACK_GROWS_UP */
- #define CheckCStack(iPtr, localIntPtr) \
- ((localIntPtr) > (iPtr)->stackBound)
- Index: unix/tclUnixInit.c
- ===================================================================
- RCS file: /cvsroot/tcl/tcl/unix/tclUnixInit.c,v
- retrieving revision 1.81
- diff -u -r1.81 tclUnixInit.c
- --- unix/tclUnixInit.c 26 Nov 2007 19:11:13 -0000 1.81
- +++ unix/tclUnixInit.c 27 Nov 2007 15:38:10 -0000
- @@ -1059,10 +1059,14 @@
- result = GetStackSize(&stackSize);
- if (result != TCL_OK) {
- /* Can't check, assume it always succeeds */
- +#ifdef TCLSTACK_GROWS_UP
- + tsdPtr->stackBound = (int *)-1;
- +#else
- #ifdef TCL_CROSS_COMPILE
- stackGrowsDown = 1;
- #endif
- tsdPtr->stackBound = NULL;
- +#endif
- goto done;
- }
- }