diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-12-12 17:40:58 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2016-08-17 16:43:08 +1000 |
| commit | 278003ca94cf3d3e5f9619e6b2fd08ab590c0899 (patch) | |
| tree | 700d26b33b809bc863ec00e0a9e95b31f3ef48b8 /regtest.tcl | |
| parent | f2afd7b85c5a9b527bcbd4f66a5d65ed282d0012 (diff) | |
| download | jimtcl-278003ca94cf3d3e5f9619e6b2fd08ab590c0899.zip jimtcl-278003ca94cf3d3e5f9619e6b2fd08ab590c0899.tar.gz jimtcl-278003ca94cf3d3e5f9619e6b2fd08ab590c0899.tar.bz2 | |
Don't unconditionally define _GNU_SOURCE
Also, fix build if JIM_OPTIMIZATION is disabled
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/regtest.tcl b/regtest.tcl index 8e25377..28bd43d 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -117,7 +117,13 @@ puts "TEST 17 PASSED" # REGTEST 18 # 12 Apr 2011 - crashes on unset for loop var catch { - for {set i 0} {$i < 5} {incr i} {unset i} + set j 0 + for {set i 0} {$i < 5} {incr i} { + unset i + if {[incr j] == 5} { + break + } + } } puts "TEST 18 PASSED" |