diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-02 04:38:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-02 04:38:36 (GMT) |
| commit | 445b84eada8389d5ac8104d6ab3934669f3766e8 (patch) | |
| tree | 97462440f4c2007ed1f278b83ac72440eebfc2bc /win | |
| parent | 1b69ea0743abc137b40161caf7290fa4d9a3d8d0 (diff) | |
| parent | 3260faadc49ded6ca1d4aab4db21b5232cc647ff (diff) | |
| download | tcl-445b84eada8389d5ac8104d6ab3934669f3766e8.zip tcl-445b84eada8389d5ac8104d6ab3934669f3766e8.tar.gz tcl-445b84eada8389d5ac8104d6ab3934669f3766e8.tar.bz2 | |
merge trunk
Diffstat (limited to 'win')
| -rw-r--r-- | win/Makefile.in | 4 | ||||
| -rw-r--r-- | win/tclWinFile.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/win/Makefile.in b/win/Makefile.in index 2f6b853..150f5b8 100644 --- a/win/Makefile.in +++ b/win/Makefile.in @@ -652,8 +652,8 @@ install-libraries: libraries install-tzdata install-msgs @$(COPY) $(ROOT_DIR)/library/msgcat/msgcat.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.5/msgcat-1.5.2.tm; @echo "Installing package tcltest 2.3.8 as a Tcl Module"; @$(COPY) $(ROOT_DIR)/library/tcltest/tcltest.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.5/tcltest-2.3.8.tm; - @echo "Installing package platform 1.0.12 as a Tcl Module"; - @$(COPY) $(ROOT_DIR)/library/platform/platform.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.4/platform-1.0.12.tm; + @echo "Installing package platform 1.0.13 as a Tcl Module"; + @$(COPY) $(ROOT_DIR)/library/platform/platform.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.4/platform-1.0.13.tm; @echo "Installing package platform::shell 1.1.4 as a Tcl Module"; @$(COPY) $(ROOT_DIR)/library/platform/shell.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.4/platform/shell-1.1.4.tm; @echo "Installing encodings"; 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; } |