diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-08-25 01:10:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-08-25 01:10:48 (GMT) |
| commit | 6edc52fd6815d3479ca129e736b123fce6de7512 (patch) | |
| tree | 30d7c97f4f9f6f85dbac27db63ba94694b6f3592 /generic/tclTestProcBodyObj.c | |
| parent | 7c97db38df16e65d2492a8d351627aa8960b8f5e (diff) | |
| download | tcl-6edc52fd6815d3479ca129e736b123fce6de7512.zip tcl-6edc52fd6815d3479ca129e736b123fce6de7512.tar.gz tcl-6edc52fd6815d3479ca129e736b123fce6de7512.tar.bz2 | |
* generic/tclProc.c: The routine TclProcInterpProc was a specific
* generic/tclTestProcBodyObj.c: instance of the general service already provided
by TclObjInvokeProc. Removed TclProcInterpProc and TclGetInterpProc from the
code...
* generic/tclInt.decls ...and from the internal stubs table.
* generic/tclIntDecls.h
* generic/tclStubInit.c
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index 7d66e75..5d8084d 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.2 1998/11/10 06:54:44 jingham Exp $ + * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.3 2004/08/25 01:11:20 dgp Exp $ */ #include "tclInt.h" @@ -261,15 +261,10 @@ ProcBodyTestProcObjCmd (dummy, interp, objc, objv) /* * check that this is a procedure and not a builtin command: - * If a procedure, cmdPtr->objProc is either 0 or TclObjInterpProc, - * and cmdPtr->proc is either 0 or TclProcInterpProc. - * Also, the compile proc should be 0, but we don't check for that. + * If a procedure, cmdPtr->objProc is TclObjInterpProc. */ - if (((cmdPtr->objProc != NULL) - && (cmdPtr->objProc != TclGetObjInterpProc())) - || ((cmdPtr->proc != NULL) - && (cmdPtr->proc != TclGetInterpProc()))) { + if (cmdPtr->objProc != TclGetObjInterpProc()) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "command \"", fullName, "\" is not a Tcl procedure", (char *) NULL); @@ -280,12 +275,7 @@ ProcBodyTestProcObjCmd (dummy, interp, objc, objv) * it is a Tcl procedure: the client data is the Proc structure */ - if (cmdPtr->objProc != NULL) { - procPtr = (Proc *) cmdPtr->objClientData; - } else if (cmdPtr->proc != NULL) { - procPtr = (Proc *) cmdPtr->clientData; - } - + procPtr = (Proc *) cmdPtr->objClientData; if (procPtr == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "procedure \"", fullName, |