diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-11-10 16:08:08 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-11-10 16:08:08 (GMT) |
| commit | 0e7fa3edd23cef23c43109db2656ccc52978c99b (patch) | |
| tree | a9e86cd8a43c61ca632591c69b5c3b042f0219ca /generic/tclInt.h | |
| parent | 9f42d64486d78ab2ab370e552ded7578ed2966c6 (diff) | |
| download | tcl-0e7fa3edd23cef23c43109db2656ccc52978c99b.zip tcl-0e7fa3edd23cef23c43109db2656ccc52978c99b.tar.gz tcl-0e7fa3edd23cef23c43109db2656ccc52978c99b.tar.bz2 | |
* generic/tclBasic.c:
* generic/tclInt.h:
* unix/tclUnixInit.c:
* unix/tclUnixPort.h:
* win/tclWin32Dll.c: modify the stack checking algorithm to
recheck in case of failure. The working assumptions are now that
(a) a thread's stack is never moved, and (b) a thread's stack can
grow but not shrink. Port to windows - could be more efficient,
but is already cheaper than it was.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index af62562..1dc744c 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.338 2007/11/09 21:35:18 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.339 2007/11/10 16:08:10 msofer Exp $ */ #ifndef _TCLINT @@ -1855,7 +1855,7 @@ typedef struct Interp { * tclObj.c and tclThreadAlloc.c */ int *asyncReadyPtr; /* Pointer to the asyncReady indicator for * this interp's thread; see tclAsync.c */ - int *stackBound; /* Pointer to the limit stack address + int **stackBoundPtr; /* Pointer to the limit stack address * allowable for invoking a new command * without "risking" a C-stack overflow; * see TclpCheckStackSpace in the @@ -2501,8 +2501,10 @@ MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, CONST char *string, MODULE_SCOPE int TclParseAllWhiteSpace(CONST char *src, int numBytes); MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp, int code, int level, Tcl_Obj *returnOpts); +#ifndef TCL_NO_STACK_CHECK +MODULE_SCOPE int TclpGetCStackParams(int ***stackBound); +#endif MODULE_SCOPE int TclpObjLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); -MODULE_SCOPE int TclpCheckStackSpace(void); MODULE_SCOPE Tcl_Obj * TclpTempFileName(void); MODULE_SCOPE Tcl_Obj * TclNewFSPathObj(Tcl_Obj *dirPtr, CONST char *addStrRep, int len); |