diff options
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index e1e46d0..8213109 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.126 2008/07/24 22:57:57 nijtmans Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.127 2008/07/29 05:30:32 msofer Exp $ library tcl @@ -894,10 +894,12 @@ declare 227 generic { void TclSetNsPath(Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]) } -declare 228 generic { - int TclObjInterpProcCore(register Tcl_Interp *interp, Tcl_Obj *procNameObj, - int skip, ProcErrorProc errorProc) -} +# Used to be needed for TclOO-extension; unneeded now that TclOO is in the +# core and NRE-enabled +# declare 228 generic { +# int TclObjInterpProcCore(register Tcl_Interp *interp, Tcl_Obj *procNameObj, +# int skip, ProcErrorProc errorProc) +# } declare 229 generic { int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, CONST char *myName, int myFlags, int index) @@ -943,28 +945,25 @@ declare 237 generic { # NRE functions for "rogue" extensions to exploit NRE; they will need to # include NRE.h too. declare 238 generic { - int TclEvalObjv_NR2(Tcl_Interp *interp, int result, - struct TEOV_record *rootPtr) -} -declare 239 generic { int TclNRInterpProc(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) } -declare 240 generic { +declare 239 generic { int TclNRInterpProcCore(Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc errorProc) } -declare 241 generic { - struct TEOV_record * TclNRPushRecord(Tcl_Interp *interp) -} -declare 242 generic { - void TclNRPopAndFreeRecord(Tcl_Interp *interp) +declare 240 generic { + int TclNRRunCallbacks(Tcl_Interp * interp, int result, + struct TEOV_callback * rootPtr, int tebcCall) } - -declare 243 generic { +declare 241 generic { int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, CONST CmdFrame *invoker, int word) } +declare 242 generic { + int TclNREvalObjv(Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[], int flags, Command *cmdPtr) +} ############################################################################## # Define the platform specific internal Tcl interface. These functions are |