diff options
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 8e04c19..856660a 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -46,7 +46,7 @@ static inline Tcl_Object * AddConstructionFinalizer( Tcl_Interp *interp) { - TclNRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL, NULL); + TclNRAddCallback(interp, FinalizeConstruction, NULL, NULL, NULL); return (Tcl_Object *) &(TOP_CB(interp)->data[0]); } @@ -112,7 +112,7 @@ TclOO_Class_Constructor( Tcl_IncrRefCount(invoke[1]); Tcl_IncrRefCount(invoke[2]); TclNRAddCallback(interp, DecrRefsPostClassConstructor, - invoke, NULL, NULL, NULL); + invoke, NULL, NULL); /* * Tricky point: do not want the extra reported level in the Tcl stack @@ -353,7 +353,7 @@ TclOO_Object_Destroy( contextPtr->callPtr->flags |= DESTRUCTOR; contextPtr->skip = 0; TclNRAddCallback(interp, AfterNRDestructor, contextPtr, - NULL, NULL, NULL); + NULL, NULL); TclPushTailcallPoint(interp); return TclOOInvokeContext(contextPtr, interp, 0, NULL); } @@ -443,7 +443,7 @@ TclOO_Object_Eval( * the script completes. */ - TclNRAddCallback(interp, FinalizeEval, object, NULL, NULL, NULL); + TclNRAddCallback(interp, FinalizeEval, object, NULL, NULL); return TclNREvalObjEx(interp, scriptPtr, 0); } @@ -797,7 +797,7 @@ TclOONextObjCmd( * that this is like [uplevel 1] and not [eval]. */ - TclNRAddCallback(interp, NextRestoreFrame, framePtr, NULL,NULL,NULL); + TclNRAddCallback(interp, NextRestoreFrame, framePtr, NULL,NULL); iPtr->varFramePtr = framePtr->callerVarPtr; return TclNRObjectContextInvokeNext(interp, context, objc, objv, 1); } @@ -868,7 +868,7 @@ TclOONextToObjCmd( */ TclNRAddCallback(interp, NextRestoreFrame, framePtr, - contextPtr, INT2PTR(contextPtr->index), NULL); + contextPtr, INT2PTR(contextPtr->index)); contextPtr->index = i-1; iPtr->varFramePtr = framePtr->callerVarPtr; return TclNRObjectContextInvokeNext(interp, |