diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-30 23:48:17 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-30 23:48:17 (GMT) |
| commit | f468c8d414ed86b6cc49e569f0632e020ffe7b61 (patch) | |
| tree | 69d8170f71e67cc76ac56a9b4c92b0b248d94cc8 /generic/tclOOMethod.c | |
| parent | 55d12b5a36a763cfe022a118af56fbaa8855bec2 (diff) | |
| download | tcl-f468c8d414ed86b6cc49e569f0632e020ffe7b61.zip tcl-f468c8d414ed86b6cc49e569f0632e020ffe7b61.tar.gz tcl-f468c8d414ed86b6cc49e569f0632e020ffe7b61.tar.bz2 | |
NRE API change: callbacks now have three void* arguments (prev. 4)
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index f7fb180..aa56efa 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -602,7 +602,7 @@ InvokeProcedureMethod( * Now invoke the body of the method. */ - TclNRAddCallback(interp, FinalizePMCall, pmPtr, context, fdPtr, NULL); + TclNRAddCallback(interp, FinalizePMCall, pmPtr, context, fdPtr); return TclNRInterpProcCore(interp, fdPtr->nameObj, Tcl_ObjectContextSkippedArgs(context), fdPtr->errProc); } @@ -1273,7 +1273,7 @@ InvokeForwardMethod( Tcl_ListObjGetElements(NULL, fmPtr->prefixObj, &numPrefixes, &prefixObjs); argObjs = InitEnsembleRewrite(interp, objc, objv, skip, numPrefixes, prefixObjs, &len); - Tcl_NRAddCallback(interp, FinalizeForwardCall, argObjs, NULL, NULL, NULL); + Tcl_NRAddCallback(interp, FinalizeForwardCall, argObjs, NULL, NULL); ((Interp *)interp)->lookupNsPtr = (Namespace *) contextPtr->oPtr->namespacePtr; return TclNREvalObjv(interp, len, argObjs, TCL_EVAL_NOERR, NULL); |