diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWin32Dll.c | 84 |
1 files changed, 1 insertions, 83 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index 9ef5f6e..6120c67 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.c @@ -10,21 +10,11 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWin32Dll.c,v 1.55 2008/04/27 22:21:36 dkf Exp $ + * RCS: @(#) $Id: tclWin32Dll.c,v 1.56 2008/07/13 09:03:41 msofer Exp $ */ #include "tclWinInt.h" -#ifndef TCL_NO_STACK_CHECK -/* - * The following functions implement stack depth checking - */ -typedef struct ThreadSpecificData { - int *stackBound; /* The current stack boundary. */ -} ThreadSpecificData; -static Tcl_ThreadDataKey dataKey; -#endif /* TCL_NO_STACK_CHECK */ - /* * The following data structures are used when loading the thunking library * for execing child processes under Win32s. @@ -522,78 +512,6 @@ TclWinNoBackslash( } /* - *---------------------------------------------------------------------- - * - * TclpGetStackParams -- - * - * Determine the stack params for the current thread: in which direction - * does the stack grow, and what is the stack lower (resp. upper) bound - * for safe invocation of a new command? This is used to cache the values - * needed for an efficient computation of TclpCheckStackSpace() when the - * interp is known. - * - * Results: - * Returns 1 if the stack grows down, in which case a stack lower bound - * is stored at stackBoundPtr. If the stack grows up, 0 is returned and - * an upper bound is stored at stackBoundPtr. If a bound cannot be - * determined NULL is stored at stackBoundPtr. - * - *---------------------------------------------------------------------- - */ - -#ifndef TCL_NO_STACK_CHECK -int -TclpGetCStackParams( - int **stackBoundPtr) -{ - ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); - SYSTEM_INFO si; /* The system information, used to determine - * the page size. */ - MEMORY_BASIC_INFORMATION mbi; - /* The information about the memory area in - * which the stack resides. */ - - if (!tsdPtr->stackBound - || ((UINT_PTR)&tsdPtr < (UINT_PTR)tsdPtr->stackBound)) { - /* - * Either we haven't determined the stack bound in this thread, or - * else we've overflowed the bound that we previously determined. We - * need to find a new stack bound from Windows. - */ - - GetSystemInfo(&si); - if (VirtualQuery((LPCVOID) &tsdPtr, &mbi, sizeof(mbi)) == 0) { - /* - * For some reason, the system didn't let us query the stack size. - * Nevertheless, we got here and haven't blown up yet. Don't - * update the calculated stack bound. If there is no calculated - * stack bound yet, set it to the base of the current page of - * stack. - */ - - if (!tsdPtr->stackBound) { - tsdPtr->stackBound = (int *) - ((UINT_PTR)(&tsdPtr) & ~ (UINT_PTR)(si.dwPageSize-1)); - } - } else { - /* - * The allocation base of the stack segment has to be advanced by - * one page (to allow for the guard page maintained in the C - * runtime) and then by TCL_WIN_STACK_THRESHOLD (to allow for the - * amount of stack that Tcl needs). - */ - - tsdPtr->stackBound = (int *) - ((UINT_PTR)(mbi.AllocationBase) - + (UINT_PTR)(si.dwPageSize) + TCL_WIN_STACK_THRESHOLD); - } - } - *stackBoundPtr = tsdPtr->stackBound; - return 1; -} -#endif - -/* *--------------------------------------------------------------------------- * * TclWinSetInterfaces -- |