diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-10 15:37:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-10 15:37:12 (GMT) |
commit | b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a (patch) | |
tree | 607e11001a09611e5d43c9a62f5c9876d4f740c0 /generic/tclProc.c | |
parent | c0c0164a7120bc2018c400cb82da9f14c5b921db (diff) | |
parent | 301c2624cdf04fcd5e6399378496f9f52259424e (diff) | |
download | tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.zip tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.tar.gz tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.tar.bz2 |
Rebase to latest 8.7
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 48 |
1 files changed, 3 insertions, 45 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 3abf3c3..f425985 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1684,42 +1684,6 @@ TclNRInterpProc( return TclNRInterpProcCore(interp, objv[0], 1, &MakeProcError); } -static int -NRInterpProc2( - void *clientData, /* Record describing procedure to be - * interpreted. */ - Tcl_Interp *interp,/* Interpreter in which procedure was - * invoked. */ - ptrdiff_t objc, /* Count of number of arguments to this - * procedure. */ - Tcl_Obj *const objv[]) /* Argument value objects. */ -{ - int result = TclPushProcCallFrame(clientData, interp, objc, objv, - /*isLambda*/ 0); - - if (result != TCL_OK) { - return TCL_ERROR; - } - return TclNRInterpProcCore(interp, objv[0], 1, &MakeProcError); -} - -static int -ObjInterpProc2( - void *clientData, /* Record describing procedure to be - * interpreted. */ - Tcl_Interp *interp,/* Interpreter in which procedure was - * invoked. */ - ptrdiff_t objc, /* Count of number of arguments to this - * procedure. */ - Tcl_Obj *const objv[]) /* Argument value objects. */ -{ - /* - * Not used much in the core; external interface for iTcl - */ - - return Tcl_NRCallObjProc2(interp, NRInterpProc2, clientData, objc, objv); -} - /* *---------------------------------------------------------------------- @@ -2312,15 +2276,15 @@ TclUpdateReturnInfo( /* *---------------------------------------------------------------------- * - * TclGetObjInterpProc/TclGetObjInterpProc2 -- + * TclGetObjInterpProc -- * - * Returns a pointer to the TclObjInterpProc/ObjInterpProc2 functions; + * Returns a pointer to the TclObjInterpProc functions; * this is different from the value obtained from the TclObjInterpProc * reference on systems like Windows where import and export versions * of a function exported by a DLL exist. * * Results: - * Returns the internal address of the TclObjInterpProc/ObjInterpProc2 + * Returns the internal address of the TclObjInterpProc * functions. * * Side effects: @@ -2334,12 +2298,6 @@ TclGetObjInterpProc(void) { return TclObjInterpProc; } - -Tcl_ObjCmdProc2 * -TclGetObjInterpProc2(void) -{ - return ObjInterpProc2; -} /* *---------------------------------------------------------------------- |