diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-05-21 09:30:02 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-05-21 09:30:02 (GMT) |
| commit | c559956bdbeb3be7c36bff03736f2f58b326085b (patch) | |
| tree | d4e67308decc65c55eb0f926021d438365dcc6ef /tests/assemble.test | |
| parent | 4fad9227456604fb7bf7903a8a9245a55d421838 (diff) | |
| parent | ca66ff4b66c7c2c37cf104ead999ae2fc8c85747 (diff) | |
| download | tcl-c559956bdbeb3be7c36bff03736f2f58b326085b.zip tcl-c559956bdbeb3be7c36bff03736f2f58b326085b.tar.gz tcl-c559956bdbeb3be7c36bff03736f2f58b326085b.tar.bz2 | |
Fix for [f97d4ee020]; use a two-stage approach to avoid quadratic behavior.
Diffstat (limited to 'tests/assemble.test')
| -rw-r--r-- | tests/assemble.test | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/tests/assemble.test b/tests/assemble.test index 9813545..d17bfd9 100644 --- a/tests/assemble.test +++ b/tests/assemble.test @@ -3281,7 +3281,9 @@ test assemble-51.4 {memory leak testing} memory { } 0 test assemble-52.1 {Bug 3154ea2759} { - proc __BEGIN {} { + apply {{} { + # Needs six exception ranges to force the range allocations to use the + # malloced store. ::tcl::unsupported::assemble { beginCatch @badLabel push error @@ -3291,7 +3293,7 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel label @badLabel - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel endCatch pop @@ -3304,7 +3306,7 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel2 label @badLabel2 - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel2 endCatch pop @@ -3317,7 +3319,7 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel3 label @badLabel3 - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel3 endCatch pop @@ -3330,7 +3332,7 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel4 label @badLabel4 - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel4 endCatch pop @@ -3343,7 +3345,7 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel5 label @badLabel5 - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel5 endCatch pop @@ -3356,13 +3358,12 @@ test assemble-52.1 {Bug 3154ea2759} { push 0 jump @okLabel6 label @badLabel6 - push 1; # should be pushReturnCode + push 1; # should be pushReturnCode label @okLabel6 endCatch pop } - } - __BEGIN + }} } {}; # must not crash rename fillTables {} |