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/tclOOBasic.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/tclOOBasic.c')
-rw-r--r-- | generic/tclOOBasic.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 6cf505a..8e04c19 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -59,10 +59,10 @@ FinalizeConstruction( Object *oPtr = data[0]; if (result != TCL_OK) { - return result; + NRE_NEXT(result); } Tcl_SetObjResult(interp, TclOOObjectName(interp, oPtr)); - return TCL_OK; + NRE_NEXT(TCL_OK); } /* @@ -134,7 +134,7 @@ DecrRefsPostClassConstructor( TclDecrRefCount(invoke[1]); TclDecrRefCount(invoke[2]); ckfree(invoke); - return result; + NRE_NEXT(result); } /* @@ -376,7 +376,7 @@ AfterNRDestructor( Tcl_DeleteCommandFromToken(interp, contextPtr->oPtr->command); } TclOODeleteContext(contextPtr); - return result; + NRE_NEXT(result); } /* @@ -473,7 +473,7 @@ FinalizeEval( */ TclPopStackFrame(interp); - return result; + NRE_NEXT(result); } /* @@ -921,7 +921,7 @@ NextRestoreFrame( if (contextPtr != NULL) { contextPtr->index = PTR2INT(data[2]); } - return result; + NRE_NEXT(result); } /* |