From 3de08d01700c288fa184c887feb45b3de5f3e515 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Thu, 5 Sep 2019 16:09:22 +0000
Subject: amend to [4718b41c56]: check size of st_mtime instead of time_t in
constraint
---
tests/cmdAH.test | 2 +-
win/tclWinTest.c | 7 ++++++-
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index e4205f1..c8318c0 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -20,7 +20,7 @@ testConstraint testsetplatform [llength [info commands testsetplatform]]
testConstraint testvolumetype [llength [info commands testvolumetype]]
testConstraint time64bit [expr {
$::tcl_platform(pointerSize) >= 8 ||
- [llength [info command testsize]] && [testsize time_t] >= 8
+ [llength [info command testsize]] && [testsize st_mtime] >= 8
}]
testConstraint linkDirectory [expr {
![testConstraint win] ||
diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index dd5a60e..04878fe 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -326,9 +326,14 @@ TestSizeCmd(
Tcl_SetObjResult(interp, Tcl_NewWideIntObj(sizeof(time_t)));
return TCL_OK;
}
+ if (strcmp(Tcl_GetString(objv[1]), "st_mtime") == 0) {
+ Tcl_StatBuf *statPtr;
+ Tcl_SetObjResult(interp, Tcl_NewWideIntObj(sizeof(statPtr->st_mtime)));
+ return TCL_OK;
+ }
syntax:
- Tcl_WrongNumArgs(interp, 1, objv, "time_t");
+ Tcl_WrongNumArgs(interp, 1, objv, "time_t|st_mtime");
return TCL_ERROR;
}
--
cgit v0.12