From 6f329a1932ac170449caed077ca7f5596709433c Mon Sep 17 00:00:00 2001
From: andreask <andreask>
Date: Fri, 1 Aug 2014 20:07:40 +0000
Subject: Addition of a cast in tclWinFile.c to match types in a comparison,
 and fix of a TRACE string literal in tclExecute.c with a bogus escape. Both
 would otherwise bug a Windows debug build (where warnings are errors).

---
 generic/tclExecute.c | 2 +-
 win/tclWinFile.c     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2098e50..2e03ab4 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5079,7 +5079,7 @@ TEBCresume(
 
 	valuePtr = OBJ_AT_TOS;
 	opnd = TclGetInt4AtPtr(pc+1);
-	TRACE(("\%.30s\" %d => ", O2S(valuePtr), opnd));
+	TRACE(("\"%.30s\" %d => ", O2S(valuePtr), opnd));
 
 	/*
 	 * Get the contents of the list, making sure that it really is a list
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 1cdd53f..fe84a26 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -2929,7 +2929,7 @@ TclNativeCreateNativeRep(
     str = Tcl_GetString(validPathPtr);
     len = validPathPtr->length;
 
-    if (strlen(str)!=len) {
+    if (strlen(str)!=(unsigned int)len) {
 	/* String contains NUL-bytes. This is invalid. */
 	return 0;
     }
-- 
cgit v0.12