diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-10 12:03:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-10 12:03:40 (GMT) |
| commit | 4dc0eb331451143f9fac2621140d60c8073eb21d (patch) | |
| tree | 0fbad030b40dd7e8fc532d97b2f75200c62ea9d1 /tests | |
| parent | 7f3d79834326c84f710028a5d603ee1a9896d8c7 (diff) | |
| download | tcl-4dc0eb331451143f9fac2621140d60c8073eb21d.zip tcl-4dc0eb331451143f9fac2621140d60c8073eb21d.tar.gz tcl-4dc0eb331451143f9fac2621140d60c8073eb21d.tar.bz2 | |
Backport some improvements to tm.tcl (mostly comments).
Don't use ::tcl_platform(debug) anymore, since it cannot be thrusted: Better use [::tcl::pkgconfig get debug]
Reduce limits in tests/compile.test (13.2), since apparently it's still too much for some platforms.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/compile.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test index cd26fdf..a66da22 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -442,10 +442,10 @@ test compile-13.2 {TclCompileScript: testing nested scripts compilation} -setup }} } -body { # Test different compilation variants (instructions evalStk, invokeStk, etc), - # with 2000 (1000 in debug) nested scripts (bodies). If you get SO/SF exceptions on some low-stack + # with 1500 (750 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 {![::tcl::pkgconfig get debug] ? 2000 : 1000}] $cmd] + set c [gencode [expr {![::tcl::pkgconfig get debug] ? 1500 : 750}] $cmd] if 1 $c }} $i eval {set result} |