diff options
author | mig <mig@noemail.net> | 2011-04-06 23:35:17 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2011-04-06 23:35:17 (GMT) |
commit | f946b6b5787da0d97085abff187108333c402001 (patch) | |
tree | b6d62363adc51b9768bac700621d80db346100de /generic/tclExecute.c | |
parent | 6118c0ca750ce24636f3c0599813c9dbe616a7e0 (diff) | |
download | tcl-f946b6b5787da0d97085abff187108333c402001.zip tcl-f946b6b5787da0d97085abff187108333c402001.tar.gz tcl-f946b6b5787da0d97085abff187108333c402001.tar.bz2 |
* generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an unsigned long.
FossilOrigin-Name: caf317ab683b6af93f523b281f014884700ae6c7
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f1b8504..3539945 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -172,7 +172,7 @@ typedef struct TEBCdata { ByteCode *codePtr; /* Constant until the BC returns */ /* -----------------------------------------*/ const unsigned char *pc; /* These fields are used on return TO this */ - ptrdiff_t *catchTop; /* this level: they record the state when a */ + unsigned long *catchTop; /* this level: they record the state when a */ int cleanup; /* new codePtr was received for NR */ Tcl_Obj *auxObjList; /* execution. */ int checkInterp; @@ -1913,7 +1913,7 @@ TclIncrObj( *---------------------------------------------------------------------- */ #define bcFramePtr (&TD->cmdFrame) -#define initCatchTop ((ptrdiff_t *) (&TD->stack[-1])) +#define initCatchTop ((unsigned long *) (&TD->stack[-1])) #define initTosPtr ((Tcl_Obj **) (initCatchTop+codePtr->maxExceptDepth)) #define esPtr (iPtr->execEnvPtr->execStackPtr) |