diff options
| author | andreask <andreask> | 2014-08-01 20:07:40 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2014-08-01 20:07:40 (GMT) |
| commit | 6f329a1932ac170449caed077ca7f5596709433c (patch) | |
| tree | 33a548b1c815761f267175bdff590a4993021143 | |
| parent | 2a7d494c84c347710e0d9784a7cd62031baf9b8f (diff) | |
| download | tcl-6f329a1932ac170449caed077ca7f5596709433c.zip tcl-6f329a1932ac170449caed077ca7f5596709433c.tar.gz tcl-6f329a1932ac170449caed077ca7f5596709433c.tar.bz2 | |
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).
| -rw-r--r-- | generic/tclExecute.c | 2 | ||||
| -rw-r--r-- | 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; } |