diff options
author | msofer <msofer@noemail.net> | 2008-07-18 13:46:38 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2008-07-18 13:46:38 (GMT) |
commit | fbfbf67e16a86c6e5062872e3f466083fc8476a5 (patch) | |
tree | 1de2c47955f13e76e9a732093a7a9ac575fbfbe1 /generic/tclOO.c | |
parent | ad8c8b77e84bb245ab585190fa98668743d64c84 (diff) | |
download | tcl-fbfbf67e16a86c6e5062872e3f466083fc8476a5.zip tcl-fbfbf67e16a86c6e5062872e3f466083fc8476a5.tar.gz tcl-fbfbf67e16a86c6e5062872e3f466083fc8476a5.tar.bz2 |
* generic/tcl.decls: Change the public api prefix from
* generic/tcl.h: TclNR_foo to Tcl_NRfoo
* generic/tclBasic.c:
* generic/tclDecls.h:
* generic/tclDictObj.c:
* generic/tclExecute.c:
* generic/tclInterp.c:
* generic/tclNRE.h:
* generic/tclNamesp.c:
* generic/tclOO.c:
* generic/tclOOBasic.c:
* generic/tclOOCall.c:
* generic/tclOOMethod.c:
* generic/tclProc.c:
* generic/tclStubInit.c:
FossilOrigin-Name: 028024f0d323bcbb2bf25aca558315642093fb46
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r-- | generic/tclOO.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 176e90a..dbf85ea 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOO.c,v 1.10 2008/07/16 22:09:00 dkf Exp $ + * RCS: @(#) $Id: tclOO.c,v 1.11 2008/07/18 13:46:46 msofer Exp $ */ #ifdef HAVE_CONFIG_H @@ -570,7 +570,7 @@ ObjectRenamedTrace( contextPtr->callPtr->flags |= DESTRUCTOR; contextPtr->skip = 0; state = Tcl_SaveInterpState(interp, TCL_OK); - result = TclNR_CallObjProc(interp, TclOOInvokeContext, contextPtr, + result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr, 0, NULL); if (result != TCL_OK) { Tcl_BackgroundError(interp); @@ -1256,7 +1256,7 @@ Tcl_NewObjectInstance( state = Tcl_SaveInterpState(interp, TCL_OK); contextPtr->callPtr->flags |= CONSTRUCTOR; contextPtr->skip = skip; - result = TclNR_CallObjProc(interp, TclOOInvokeContext, contextPtr, + result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr, objc, objv); TclOODeleteContext(contextPtr); DelRef(oPtr); @@ -1793,7 +1793,7 @@ PublicObjectCmd( int objc, Tcl_Obj *const *objv) { - return TclNR_CallObjProc(interp, PublicNRObjectCmd, clientData,objc,objv); + return Tcl_NRCallObjProc(interp, PublicNRObjectCmd, clientData,objc,objv); } static int @@ -1814,7 +1814,7 @@ PrivateObjectCmd( int objc, Tcl_Obj *const *objv) { - return TclNR_CallObjProc(interp, PrivateNRObjectCmd,clientData,objc,objv); + return Tcl_NRCallObjProc(interp, PrivateNRObjectCmd,clientData,objc,objv); } static int @@ -1947,7 +1947,7 @@ TclOOObjectCmdCore( */ AddRef(oPtr); - TclNR_AddCallback(interp, FinalizeObjectCall, contextPtr,oPtr, NULL,NULL); + Tcl_NRAddCallback(interp, FinalizeObjectCall, contextPtr,oPtr, NULL,NULL); return TclOOInvokeContext(contextPtr, interp, objc, objv); } @@ -2032,7 +2032,7 @@ Tcl_ObjectContextInvokeNext( * Invoke the (advanced) method call context in the caller context. */ - result = TclNR_CallObjProc(interp, TclOOInvokeContext, contextPtr, objc, + result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr, objc, objv); /* @@ -2086,7 +2086,7 @@ TclNRObjectContextInvokeNext( * all) come through the same code. */ - TclNR_AddCallback(interp, FinalizeNext, contextPtr, + Tcl_NRAddCallback(interp, FinalizeNext, contextPtr, INT2PTR(contextPtr->index), INT2PTR(contextPtr->skip), NULL); contextPtr->index++; contextPtr->skip = skip; |