diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-09 12:04:29 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-09 12:04:29 (GMT) |
commit | 673f931995a184eea390ad5d745cd102312e6343 (patch) | |
tree | 64996d15edbe3254b9f8d505324bfa1c9c8c1329 /generic/tclProc.c | |
parent | 85287d9e6771e7590ae1e765623cce7dbacc7eee (diff) | |
download | tcl-673f931995a184eea390ad5d745cd102312e6343.zip tcl-673f931995a184eea390ad5d745cd102312e6343.tar.gz tcl-673f931995a184eea390ad5d745cd102312e6343.tar.bz2 |
Change TclObjInterpProc() to a macro, since extensions should never invoke it directly, always through TclGetObjInterpProc()
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 9a3785c..059e751 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -148,6 +148,7 @@ static const Tcl_ObjType lambdaType = { *---------------------------------------------------------------------- */ +#undef TclObjInterpProc int Tcl_ProcObjCmd( TCL_UNUSED(ClientData), @@ -1645,6 +1646,7 @@ TclPushProcCallFrame( *---------------------------------------------------------------------- */ +#undef TclObjInterpProc int TclObjInterpProc( ClientData clientData, /* Record describing procedure to be |