diff options
| author | andreask <andreask> | 2014-08-01 20:07:40 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2014-08-01 20:07:40 (GMT) |
| commit | a3cfa0d708e397ec44bd69a830b36e04125f755c (patch) | |
| tree | 33a548b1c815761f267175bdff590a4993021143 | |
| parent | 6563197fa8e20a1062c55d8e3fb1e03d9f9a7617 (diff) | |
| download | tcl-a3cfa0d708e397ec44bd69a830b36e04125f755c.zip tcl-a3cfa0d708e397ec44bd69a830b36e04125f755c.tar.gz tcl-a3cfa0d708e397ec44bd69a830b36e04125f755c.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; } |