diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-18 06:12:15 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-18 06:12:15 (GMT) |
commit | ad1616e27816a418512271c07f7016f8b6bce72e (patch) | |
tree | 733bc473514c2b9923cce55886368a018e1d1052 /generic/tclCmdMZ.c | |
parent | 09b8d0d108bdb52be039e5126b6dbea0fa1e0aca (diff) | |
download | tcl-ad1616e27816a418512271c07f7016f8b6bce72e.zip tcl-ad1616e27816a418512271c07f7016f8b6bce72e.tar.gz tcl-ad1616e27816a418512271c07f7016f8b6bce72e.tar.bz2 |
introduce macros NRE_JUMP and NRE_NEXT to abstract the NRE mechanism, previous to introducing an alternative to the trampoline implementation; no functional change for now
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 4655891..ad138ab 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3942,7 +3942,7 @@ SwitchPostProc( (overflow ? limit : patternLength), pattern, (overflow ? "..." : ""), Tcl_GetErrorLine(interp))); } - return result; + NRE_NEXT(result); } /* @@ -4352,7 +4352,7 @@ TryPostBody( if (handlersObj != NULL) { Tcl_DecrRefCount(handlersObj); } - return TCL_ERROR; + NRE_NEXT(TCL_ERROR); } /* @@ -4523,7 +4523,7 @@ TryPostBody( Tcl_DecrRefCount(options); Tcl_SetObjResult(interp, resultObj); Tcl_DecrRefCount(resultObj); - return result; + NRE_NEXT(result); } /* @@ -4565,7 +4565,7 @@ TryPostHandler( TclGetString(cmdObj), TclGetString(handlerKindObj), Tcl_GetErrorLine(interp))); Tcl_DecrRefCount(options); - return TCL_ERROR; + NRE_NEXT(TCL_ERROR); } /* @@ -4606,7 +4606,7 @@ TryPostHandler( Tcl_DecrRefCount(options); Tcl_SetObjResult(interp, resultObj); Tcl_DecrRefCount(resultObj); - return result; + NRE_NEXT(result); } /* @@ -4663,7 +4663,7 @@ TryPostFinal( Tcl_SetObjResult(interp, resultObj); Tcl_DecrRefCount(resultObj); } - return result; + NRE_NEXT(result); } /* |