diff options
| author | surles <surles@noemail.net> | 1998-07-21 15:58:43 (GMT) |
|---|---|---|
| committer | surles <surles@noemail.net> | 1998-07-21 15:58:43 (GMT) |
| commit | 04e93490fc0cc8f96817c4f05507a9dad5564ebc (patch) | |
| tree | 4a5b6999f1937b6f6066c6fa1e98630faec20c53 /generic/tclProc.c | |
| parent | 1995ae5a0fcbcde73a60e373b206550011a79de1 (diff) | |
| download | tcl-04e93490fc0cc8f96817c4f05507a9dad5564ebc.zip tcl-04e93490fc0cc8f96817c4f05507a9dad5564ebc.tar.gz tcl-04e93490fc0cc8f96817c4f05507a9dad5564ebc.tar.bz2 | |
Removed unreferenced vars
FossilOrigin-Name: 3e6902b2ddb85e4be2b216491677d9c2c0926927
Diffstat (limited to 'generic/tclProc.c')
| -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 |