diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-01 19:32:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-01 19:32:32 (GMT) |
| commit | c4606765eb2e224df1b49b48fbb74d5fde757b29 (patch) | |
| tree | 538c37758322622a2d253234421655cc88f26f5f /tests/compile.test | |
| parent | 97294cb6f5e05d4599085560d2fafada0cb0fe3d (diff) | |
| parent | 53c93039f618aaec19a74523d45c0bee51de5cd0 (diff) | |
| download | tcl-c4606765eb2e224df1b49b48fbb74d5fde757b29.zip tcl-c4606765eb2e224df1b49b48fbb74d5fde757b29.tar.gz tcl-c4606765eb2e224df1b49b48fbb74d5fde757b29.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/compile.test b/tests/compile.test index 4d57549..18e978f 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -494,10 +494,10 @@ test compile-13.2 {TclCompileScript: testing expected nested scripts compilation ti eval {set result {}} } -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 (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 {![::tcl::pkgconfig get debug] ? 2000 : 1000}] $cmd] + set c [gencode [expr {![::tcl::pkgconfig get debug] ? 1500 : 1000}] $cmd] if 1 $c }} ti eval {set result} @@ -511,7 +511,7 @@ test compile-13.3 {TclCompileScript: testing check of max depth by nested script # with 500 nested scripts (bodies). It must generate "too many nested compilations" # error for any variant we're testing here: ti eval {foreach cmd {eval "if 1" try catch} { - set c [gencode [expr {![info exists ::tcl_platform(debug)] ? 2000 : 1000}] $cmd] + set c [gencode 500 $cmd] lappend errors [catch $c e] $e }} #puts $errors |