From 2e5d02410d31161822705b1b28f1743b8af402fc Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Thu, 8 Jul 2004 16:53:54 +0000 Subject: Silenced a compiler warning about a type mismatch in AppendEnvironment --- ChangeLog | 5 +++++ win/tclWinInit.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 59da0e8..45c28b0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-07-08 Kevin Kenny + + * win/tclWinInit.c (AppendEnvironment): Silenced a compilation + warning about a type mismatch. + 2004-07-07 Miguel Sofer * generic/tclCompile.c (TclCompileScript): fix for [Bug 458361]. 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++; -- cgit v0.12