diff options
| author | mig <mig> | 2011-04-06 23:35:17 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-04-06 23:35:17 (GMT) |
| commit | 90b847d5ece274f9530fc51ffe85bc14531d67b6 (patch) | |
| tree | b6d62363adc51b9768bac700621d80db346100de | |
| parent | 963b72a978e2d4330b46c084effc90fd45b503d5 (diff) | |
| download | tcl-90b847d5ece274f9530fc51ffe85bc14531d67b6.zip tcl-90b847d5ece274f9530fc51ffe85bc14531d67b6.tar.gz tcl-90b847d5ece274f9530fc51ffe85bc14531d67b6.tar.bz2 | |
* generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an unsigned long.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclExecute.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,8 @@ +2011-04-06 Miguel Sofer <msofer@users.sf.net> + + * generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an + unsigned long. + 2011-04-06 Jan Nijtmans <nijtmans@users.sf.net> * unix/tclAppInit.c: Make symbols "main" and "Tcl_AppInit" 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) |