summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-06 08:48:57 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-06 08:48:57 (GMT)
commit1febf9e8972ab607090b31e5debd278e35c55bda (patch)
tree307bced75d43ff380e0320b0a7f753245475c553
parent22298666ade7c7396ece86e2976309e955e9abd5 (diff)
downloadtcl-1febf9e8972ab607090b31e5debd278e35c55bda.zip
tcl-1febf9e8972ab607090b31e5debd278e35c55bda.tar.gz
tcl-1febf9e8972ab607090b31e5debd278e35c55bda.tar.bz2
fix two minor blunders, introduced by [1fb35ca910]
Only define _USE_32BIT_TIME_T for Tcl build, and only once.
-rw-r--r--generic/tclFCmd.c5
-rw-r--r--generic/tclTest.c5
-rw-r--r--win/tclWinPort.h2
-rw-r--r--win/tclWinSerial.c4
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;
}