From 90b847d5ece274f9530fc51ffe85bc14531d67b6 Mon Sep 17 00:00:00 2001 From: mig Date: Wed, 6 Apr 2011 23:35:17 +0000 Subject: * generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an unsigned long. --- ChangeLog | 5 +++++ generic/tclExecute.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 15cc7a8..062184f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-04-06 Miguel Sofer + + * generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an + unsigned long. + 2011-04-06 Jan Nijtmans * 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) -- cgit v0.12