diff options
| author | nijtmans <nijtmans> | 2009-02-10 22:49:42 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-02-10 22:49:42 (GMT) |
| commit | b07274fff759a29a06f8c988c019d09d583fe435 (patch) | |
| tree | ca3baf5495ef51e4e0ad8aa5ed4221b784f68ae6 /generic/tclPkg.c | |
| parent | 9968eece0a412b8035a5437db0e8c52723c94e7f (diff) | |
| download | tcl-b07274fff759a29a06f8c988c019d09d583fe435.zip tcl-b07274fff759a29a06f8c988c019d09d583fe435.tar.gz tcl-b07274fff759a29a06f8c988c019d09d583fe435.tar.bz2 | |
- eliminate some unnessary type casts
- some internal const decorations
- spacing
Diffstat (limited to 'generic/tclPkg.c')
| -rw-r--r-- | generic/tclPkg.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 558ccd9..7bac7eb 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.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: tclPkg.c,v 1.38 2008/10/16 22:34:18 nijtmans Exp $ + * RCS: @(#) $Id: tclPkg.c,v 1.39 2009/02/10 22:49:49 nijtmans Exp $ * * TIP #268. * Heavily rewritten to handle the extend version numbers, and extended @@ -760,7 +760,8 @@ Tcl_PackageObjCmd( Tcl_HashSearch search; Tcl_HashTable *tablePtr; const char *version; - char *argv2, *argv3, *argv4, *iva = NULL, *ivb = NULL; + const char *argv2, *argv3, *argv4; + char *iva = NULL, *ivb = NULL; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?"); @@ -773,7 +774,7 @@ Tcl_PackageObjCmd( } switch ((enum pkgOptions) optionIndex) { case PKG_FORGET: { - char *keyString; + const char *keyString; for (i = 2; i < objc; i++) { keyString = TclGetString(objv[i]); @@ -1645,7 +1646,7 @@ AddRequirementsToResult( for (i = 0; i < reqc; i++) { int length; - char *v = Tcl_GetStringFromObj(reqv[i], &length); + const char *v = Tcl_GetStringFromObj(reqv[i], &length); if ((length & 0x1) && (v[length/2] == '-') && (strncmp(v, v+((length+1)/2), length/2) == 0)) { |