diff options
author | kennykb <kennykb@noemail.net> | 2004-07-08 16:53:53 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2004-07-08 16:53:53 (GMT) |
commit | 81142f17cafb91459322fb730ca7d63b55489eb0 (patch) | |
tree | 56d791e6f62a1ceba38d0d810440b484a38a6cbe /win/tclWinInit.c | |
parent | aeddd02bc46ae801f17ee9827e1afc66b01b9987 (diff) | |
download | tcl-81142f17cafb91459322fb730ca7d63b55489eb0.zip tcl-81142f17cafb91459322fb730ca7d63b55489eb0.tar.gz tcl-81142f17cafb91459322fb730ca7d63b55489eb0.tar.bz2 |
Silenced a compiler warning about a type mismatch in AppendEnvironment
FossilOrigin-Name: 6d6ee42226a2b0930358e74ae53c7be1e5c47f42
Diffstat (limited to 'win/tclWinInit.c')
-rw-r--r-- | win/tclWinInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 19022ba..2fc4fc1 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.60 2004/07/08 08:06:50 dkf Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.61 2004/07/08 16:53:54 kennykb Exp $ */ #include "tclWinInt.h" @@ -527,7 +527,7 @@ AppendEnvironment( */ for (shortlib = (char *) &lib[strlen(lib)-1]; shortlib>lib ; shortlib--) { if (*shortlib == '/') { - if (shortlib - lib == strlen(lib) - 1) { + if ((unsigned)(shortlib - lib) == strlen(lib) - 1) { Tcl_Panic("last character in lib cannot be '/'"); } shortlib++; |