diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-12-14 17:38:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-12-14 17:38:37 (GMT) |
| commit | 43d932538c8a230784c427b09962f6b4efbfa78a (patch) | |
| tree | c91165f2d320eed03ee1eb85826b19a55c38fc93 /generic | |
| parent | 2cc6dc3f21a4e5d20d6e6fdf5824b37e4ee540d8 (diff) | |
| download | tcl-43d932538c8a230784c427b09962f6b4efbfa78a.zip tcl-43d932538c8a230784c427b09962f6b4efbfa78a.tar.gz tcl-43d932538c8a230784c427b09962f6b4efbfa78a.tar.bz2 | |
Stop warnings due to (annoying) C type promotion rules.
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) { |