summaryrefslogtreecommitdiffstats
path: root/tests/compile.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-09-07 13:53:12 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-09-07 13:53:12 (GMT)
commit2b93599ffd06e74e9e904fbafd83196839390119 (patch)
tree1b8c25e5676c48afd7166788986db231c11a6f21 /tests/compile.test
parentd0f808008dd96dd8b4ba1988087dbb644ac63283 (diff)
parent3179298819aa21980bfe9e77759c6e5f7291e77a (diff)
downloadtcl-2b93599ffd06e74e9e904fbafd83196839390119.zip
tcl-2b93599ffd06e74e9e904fbafd83196839390119.tar.gz
tcl-2b93599ffd06e74e9e904fbafd83196839390119.tar.bz2
Don't let Tcl compilation depend on USE_32BIT_TIME_T any more: Microsoft could discontinue this macro any moment, then we are prepared ....
As a bonus: time_t is now allowed to be 64-bit internally, without effect on the C API (like stub-enabled extensions)
Diffstat (limited to 'tests/compile.test')
-rw-r--r--tests/compile.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test
index c02acdb..cd26fdf 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -445,7 +445,7 @@ test compile-13.2 {TclCompileScript: testing nested scripts compilation} -setup
# with 2000 (1000 in debug) nested scripts (bodies). If you get SO/SF exceptions on some low-stack
# boxes or systems, please don't decrease it (either provide a constraint)
$i eval {foreach cmd {eval "if 1" catch} {
- set c [gencode [expr {![info exists ::tcl_platform(debug)] ? 2000 : 1000}] $cmd]
+ set c [gencode [expr {![::tcl::pkgconfig get debug] ? 2000 : 1000}] $cmd]
if 1 $c
}}
$i eval {set result}