summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authormig <mig>2011-04-06 23:35:17 (GMT)
committermig <mig>2011-04-06 23:35:17 (GMT)
commit88b4859c836078266e73a117683aaf9ffec9b45a (patch)
treeb6d62363adc51b9768bac700621d80db346100de /generic/tclExecute.c
parent2347d4555143b712c3df4a8930612c3e7ca4a124 (diff)
downloadtcl-88b4859c836078266e73a117683aaf9ffec9b45a.zip
tcl-88b4859c836078266e73a117683aaf9ffec9b45a.tar.gz
tcl-88b4859c836078266e73a117683aaf9ffec9b45a.tar.bz2
* generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an unsigned long.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c4
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)