summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-02-05 20:25:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-02-05 20:25:21 (GMT)
commit2982e5661150b3f8310f3d00195cd4cba60daa64 (patch)
treea3e39235afe4bb418308ec694c94539ba6bab1c1
parentd9e6c6a97459671eae7daa60d355e7357750fda9 (diff)
downloadtcl-2982e5661150b3f8310f3d00195cd4cba60daa64.zip
tcl-2982e5661150b3f8310f3d00195cd4cba60daa64.tar.gz
tcl-2982e5661150b3f8310f3d00195cd4cba60daa64.tar.bz2
* generic/tclFileName.c (SkipToChar): Corrected CONST and
type-casting issues that caused compiler warnings.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclFileName.c11
2 files changed, 10 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index c4407c6..5894730 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-05 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tclFileName.c (SkipToChar): Corrected CONST and
+ type-casting issues that caused compiler warnings.
+
2004-02-04 Don Porter <dgp@users.sourceforge.net>
* generic/tclCmdAH.c (StoreStatData): Removed improper refcount
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 54c11cc..0590f40 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.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: tclFileName.c,v 1.46 2004/01/21 19:59:33 vincentdarley Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.47 2004/02/05 20:25:32 dgp Exp $
*/
#include "tclInt.h"
@@ -75,8 +75,7 @@ static CONST char * DoTildeSubst _ANSI_ARGS_((Tcl_Interp *interp,
static CONST char * ExtractWinRoot _ANSI_ARGS_((CONST char *path,
Tcl_DString *resultPtr, int offset,
Tcl_PathType *typePtr));
-static int SkipToChar _ANSI_ARGS_((CONST char **stringPtr,
- char match));
+static int SkipToChar _ANSI_ARGS_((char **stringPtr, int match));
static Tcl_Obj* SplitMacPath _ANSI_ARGS_((CONST char *path));
static Tcl_Obj* SplitWinPath _ANSI_ARGS_((CONST char *path));
static Tcl_Obj* SplitUnixPath _ANSI_ARGS_((CONST char *path));
@@ -2295,11 +2294,11 @@ TclGlob(interp, pattern, pathPrefix, globFlags, types)
static int
SkipToChar(stringPtr, match)
- CONST char **stringPtr; /* Pointer string to check. */
- char match; /* Pointer to character to find. */
+ char **stringPtr; /* Pointer string to check. */
+ int match; /* Character to find. */
{
int quoted, level;
- register CONST char *p;
+ register char *p;
quoted = 0;
level = 0;