From 2982e5661150b3f8310f3d00195cd4cba60daa64 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 5 Feb 2004 20:25:21 +0000 Subject: * generic/tclFileName.c (SkipToChar): Corrected CONST and type-casting issues that caused compiler warnings. --- ChangeLog | 5 +++++ generic/tclFileName.c | 11 +++++------ 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 + + * generic/tclFileName.c (SkipToChar): Corrected CONST and + type-casting issues that caused compiler warnings. + 2004-02-04 Don Porter * 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; -- cgit v0.12