diff options
| author | surles <surles> | 1998-07-21 15:58:44 (GMT) |
|---|---|---|
| committer | surles <surles> | 1998-07-21 15:58:44 (GMT) |
| commit | d9e893c2ef604da726a6d02d6cb85815e6a6070f (patch) | |
| tree | 4a5b6999f1937b6f6066c6fa1e98630faec20c53 /generic | |
| parent | bdc74a471aa0644cdb55f70d1f751b360f70d543 (diff) | |
| download | tcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.zip tcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.tar.gz tcl-d9e893c2ef604da726a6d02d6cb85815e6a6070f.tar.bz2 | |
Removed unreferenced vars
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclProc.c | 10 |
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 |