diff options
| author | stanton <stanton> | 1999-02-02 22:26:11 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-02 22:26:11 (GMT) |
| commit | d2bb30303b2483fa2044fe6afe1788289583948a (patch) | |
| tree | 6eb4be735b4510c2786fd768076199cfa3aff99b /tests | |
| parent | f4df4aba71f814b2ea589e0ce4a6dddd20221417 (diff) | |
| download | tcl-d2bb30303b2483fa2044fe6afe1788289583948a.zip tcl-d2bb30303b2483fa2044fe6afe1788289583948a.tar.gz tcl-d2bb30303b2483fa2044fe6afe1788289583948a.tar.bz2 | |
* generic/tclCompile.c (CompileExprWord): Fixed exception stack
overflow bug caused by missing statement. [Bug: 928]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/compile.test | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test index 2c01585..14f8864 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: compile.test,v 1.4 1998/09/14 18:40:08 stanton Exp $ +# RCS: @(#) $Id: compile.test,v 1.5 1999/02/02 22:26:12 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -170,6 +170,15 @@ test compile-6.1 {UpdateStringOfByteCode: called for duplicate of compiled empty p } {} +test compile-7.1 {BLACKBOX: exception stack overflow} { + set x {{0}} + set y 0 + while {$y < 100} { + if !$x {incr y} + } +} {} + + catch {rename p ""} catch {namespace delete test_ns_compile} catch {unset x} |