diff options
| author | dkf <dkf@noemail.net> | 2003-12-14 17:38:36 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2003-12-14 17:38:36 (GMT) |
| commit | 2268dd3a013bd8aaf7c2a113a8fdb8a9250327e4 (patch) | |
| tree | c91165f2d320eed03ee1eb85826b19a55c38fc93 /generic | |
| parent | 3d9225bbb362188ac4a129279d7fa1b6a699fedb (diff) | |
| download | tcl-2268dd3a013bd8aaf7c2a113a8fdb8a9250327e4.zip tcl-2268dd3a013bd8aaf7c2a113a8fdb8a9250327e4.tar.gz tcl-2268dd3a013bd8aaf7c2a113a8fdb8a9250327e4.tar.bz2 | |
Stop warnings due to (annoying) C type promotion rules.
FossilOrigin-Name: c0649787a677c17463eec80421273846b0db0c86
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclPathObj.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 1402aad..1f009bd 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.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: tclPathObj.c,v 1.15 2003/12/14 10:51:12 vincentdarley Exp $ + * RCS: @(#) $Id: tclPathObj.c,v 1.16 2003/12/14 17:38:37 dkf Exp $ */ #include "tclInt.h" @@ -30,9 +30,8 @@ static void FreeFsPathInternalRep _ANSI_ARGS_((Tcl_Obj *listPtr)); static void UpdateStringOfFsPath _ANSI_ARGS_((Tcl_Obj *objPtr)); static int SetFsPathFromAny _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); -static int FindSplitPos _ANSI_ARGS_((CONST char *path, - CONST char separator)); -static int IsSeparatorOrNull _ANSI_ARGS_((CONST char ch)); +static int FindSplitPos _ANSI_ARGS_((CONST char *path, int separator)); +static int IsSeparatorOrNull _ANSI_ARGS_((int ch)); /* @@ -685,7 +684,7 @@ Tcl_FSConvertToPathType(interp, objPtr) */ static int IsSeparatorOrNull(ch) - CONST char ch; + int ch; { if (ch == 0) { return 1; @@ -712,7 +711,7 @@ IsSeparatorOrNull(ch) static int FindSplitPos(path, separator) CONST char *path; - CONST char separator; + int separator; { int count = 0; switch (tclPlatform) { |