diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 11:15:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 11:15:19 (GMT) |
| commit | da423a1424e34834a64c209244ef64ca7c275f7d (patch) | |
| tree | 3820ac7dda66c4d317cedc091c671a5c231046db /generic/tclExecute.c | |
| parent | 478e248339265d65360a9ad85ae239fec700f6a3 (diff) | |
| parent | e9a4ca4f22d40f304a6f50f9b410651ce75098cd (diff) | |
| download | tcl-da423a1424e34834a64c209244ef64ca7c275f7d.zip tcl-da423a1424e34834a64c209244ef64ca7c275f7d.tar.gz tcl-da423a1424e34834a64c209244ef64ca7c275f7d.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index b0db49b..ec0d041 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2187,10 +2187,12 @@ TEBCresume( objPtr = POP_OBJECT(); TclDecrRefCount(objPtr); } + /* FALLTHRU */ case 2: cleanup2_pushObjResultPtr: objPtr = POP_OBJECT(); TclDecrRefCount(objPtr); + /* FALLTHRU */ case 1: cleanup1_pushObjResultPtr: objPtr = OBJ_AT_TOS; @@ -2207,14 +2209,17 @@ TEBCresume( objPtr = POP_OBJECT(); TclDecrRefCount(objPtr); } + /* FALLTHRU */ case 2: cleanup2: objPtr = POP_OBJECT(); TclDecrRefCount(objPtr); + /* FALLTHRU */ case 1: cleanup1: objPtr = POP_OBJECT(); TclDecrRefCount(objPtr); + /* FALLTHRU */ case 0: /* * We really want to do nothing now, but this is needed for some |