summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1998-07-21 15:58:44 (GMT)
committersurles <surles>1998-07-21 15:58:44 (GMT)
commitd9e893c2ef604da726a6d02d6cb85815e6a6070f (patch)
tree4a5b6999f1937b6f6066c6fa1e98630faec20c53
parentbdc74a471aa0644cdb55f70d1f751b360f70d543 (diff)
downloadtcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.zip
tcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.tar.gz
tcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.tar.bz2
Removed unreferenced vars
-rw-r--r--generic/tclProc.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index f2b2617..145db1c 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.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.
*
- * SCCS: %Z% $Id: tclProc.c,v 1.8 1998/07/20 16:44:02 welch Exp $
+ * SCCS: %Z% $Id: tclProc.c,v 1.9 1998/07/21 15:58:44 surles Exp $
*/
#include "tclInt.h"
@@ -44,14 +44,12 @@ Tcl_ProcObjCmd(dummy, interp, objc, objv)
{
register Interp *iPtr = (Interp *) interp;
Proc *procPtr;
- char *fullName, *procName, *args, *bytes, *p;
+ char *fullName, *procName;
char **argArray = NULL;
Namespace *nsPtr, *altNsPtr, *cxtNsPtr;
- Tcl_Obj *defPtr, *bodyPtr;
Tcl_Command cmd;
Tcl_DString ds;
- int numArgs, length, result, i;
- register CompiledLocal *localPtr;
+ int result;
if (objc != 4) {
Tcl_WrongNumArgs(interp, 1, objv, "name args body");
@@ -167,7 +165,7 @@ TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr)
int i, length, result, numArgs;
char *args, *bytes, *p;
register CompiledLocal *localPtr;
- Tcl_Obj *defPtr, *resultPtr;
+ Tcl_Obj *defPtr;
/*
* If the procedure's body object is shared because its string value is