summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2016-01-18 06:12:15 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2016-01-18 06:12:15 (GMT)
commitad1616e27816a418512271c07f7016f8b6bce72e (patch)
tree733bc473514c2b9923cce55886368a018e1d1052 /generic/tclCmdMZ.c
parent09b8d0d108bdb52be039e5126b6dbea0fa1e0aca (diff)
downloadtcl-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.c12
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);
}
/*