diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-12-28 19:54:42 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-12-28 19:54:42 (GMT) |
| commit | 0513ee0141cb767e9df8044abd0558fe9e188c3f (patch) | |
| tree | 0e81c50cc1a80ce05be59301735f7fd7cf9fb574 /generic/tclExecute.c | |
| parent | c00086981f23ffe4b513b35885644a4400e4713d (diff) | |
| download | tcl-0513ee0141cb767e9df8044abd0558fe9e188c3f.zip tcl-0513ee0141cb767e9df8044abd0558fe9e188c3f.tar.gz tcl-0513ee0141cb767e9df8044abd0558fe9e188c3f.tar.bz2 | |
resolve warnings: array subscript -1 is below array bounds of 'void *[1]' [-Warray-bounds] if compiled with newest gcc
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 4c14514..bb96a9e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2014,7 +2014,7 @@ ArgumentBCEnter( *---------------------------------------------------------------------- */ #define bcFramePtr (&TD->cmdFrame) -#define initCatchTop ((ptrdiff_t *) (&TD->stack[-1])) +#define initCatchTop ((ptrdiff_t *) (TD->stack-1)) #define initTosPtr ((Tcl_Obj **) (initCatchTop+codePtr->maxExceptDepth)) #define esPtr (iPtr->execEnvPtr->execStackPtr) |