Subject: fix two minor blunders, introduced by [1fb35ca910] Only define _USE_32BIT_TIME_T for Tcl build, and only once.

From: "jan.nijtmans" <[email-masked]>
Date: Mon, 6 Aug 2012 08:48:57 +0000

---
 generic/tclFCmd.c  | 5 -----
 generic/tclTest.c  | 5 -----
 win/tclWinPort.h   | 2 +-
 win/tclWinSerial.c | 4 ++--
 4 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c
index 6611480..33c1496 100644
--- a/generic/tclFCmd.c
+++ b/generic/tclFCmd.c
@@ -10,11 +10,6 @@
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  */
 
-#ifndef _WIN64
-/* See [Bug 3354324]: file mtime sets wrong time */
-#   define _USE_32BIT_TIME_T
-#endif
-
 #include "tclInt.h"
 #include "tclFileSystem.h"
 
diff --git a/generic/tclTest.c b/generic/tclTest.c
index aa5a46d..5dc95f9 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -15,11 +15,6 @@
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  */
 
-#ifndef _WIN64
-/* See [Bug 3354324]: file mtime sets wrong time */
-#   define _USE_32BIT_TIME_T
-#endif
-
 #undef STATIC_BUILD
 #ifndef USE_TCL_STUBS
 #   define USE_TCL_STUBS
diff --git a/win/tclWinPort.h b/win/tclWinPort.h
index 23e79b0..c6ac2b7 100644
--- a/win/tclWinPort.h
+++ b/win/tclWinPort.h
@@ -14,7 +14,7 @@
 #ifndef _TCLWINPORT
 #define _TCLWINPORT
 
-#ifndef _WIN64
+#if !defined(_WIN64) && defined(BUILD_tcl)
 /* See [Bug 3354324]: file mtime sets wrong time */
 #   define _USE_32BIT_TIME_T
 #endif
diff --git a/win/tclWinSerial.c b/win/tclWinSerial.c
index fb7f69b..9e9d1af 100644
--- a/win/tclWinSerial.c
+++ b/win/tclWinSerial.c
@@ -2002,7 +2002,7 @@ SerialSetOptionProc(
     if (interp != NULL) {
 	TclWinConvertError(GetLastError());
 	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
-		"can't get comm state: ", Tcl_PosixError(interp)));
+		"can't get comm state: %s", Tcl_PosixError(interp)));
     }
     return TCL_ERROR;
 
@@ -2010,7 +2010,7 @@ SerialSetOptionProc(
     if (interp != NULL) {
 	TclWinConvertError(GetLastError());
 	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
-		"can't set comm state: ", Tcl_PosixError(interp)));
+		"can't set comm state: %s", Tcl_PosixError(interp)));
     }
     return TCL_ERROR;
 }
-- 
cgit v0.12