diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 18:42:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 18:42:03 (GMT) |
| commit | 6e5bee537f289d191bad01f4df94197a00639f7f (patch) | |
| tree | 02051292fbd58f1a5350c8c8a63b21605a2284d4 /tests/compile.test | |
| parent | 6ca9bef06dc59c373c3f6e6630ac716945ee0bbf (diff) | |
| parent | a52cfae90040fcfebac8aef0c52731bd67864165 (diff) | |
| download | tcl-6e5bee537f289d191bad01f4df94197a00639f7f.zip tcl-6e5bee537f289d191bad01f4df94197a00639f7f.tar.gz tcl-6e5bee537f289d191bad01f4df94197a00639f7f.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test index 89fe8dc..0a29c15 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -497,7 +497,7 @@ test compile-13.2 {TclCompileScript: testing expected nested scripts compilation # 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) ti eval {foreach cmd {eval "if 1" try 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 }} ti eval {set result} |