summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-12-14 17:38:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-12-14 17:38:37 (GMT)
commit43d932538c8a230784c427b09962f6b4efbfa78a (patch)
treec91165f2d320eed03ee1eb85826b19a55c38fc93 /generic
parent2cc6dc3f21a4e5d20d6e6fdf5824b37e4ee540d8 (diff)
downloadtcl-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.c11
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) {