diff options
author | mistachkin <mistachkin@noemail.net> | 2021-06-01 21:07:49 +0000 |
---|---|---|
committer | mistachkin <mistachkin@noemail.net> | 2021-06-01 21:07:49 +0000 |
commit | f9ac1ab1e7fd9cb827094a88c894d595aacb4927 (patch) | |
tree | 3a3aa4097c37ce7fe73af0fb861825ad2c9cc135 /tool/mkopcodeh.tcl | |
parent | b56a09079e8b5305d3c99ae19aedcbbd343b28d9 (diff) | |
download | sqlite-f9ac1ab1e7fd9cb827094a88c894d595aacb4927.tar.gz sqlite-f9ac1ab1e7fd9cb827094a88c894d595aacb4927.zip |
Fix issue in 'mkopcodeh.tcl' tool that prevented its termination in rare circumstances.
FossilOrigin-Name: a8d921136f8ab132279984a77d0eeaf355342cdb0a98d7e1e59c8e6c8ed9459c
Diffstat (limited to 'tool/mkopcodeh.tcl')
-rw-r--r-- | tool/mkopcodeh.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tool/mkopcodeh.tcl b/tool/mkopcodeh.tcl index cc372e404..d4f3c4f13 100644 --- a/tool/mkopcodeh.tcl +++ b/tool/mkopcodeh.tcl @@ -208,8 +208,9 @@ for {set i 0} {$i<$nOp} {incr i} { for {set g 0} {$g<$nGroup} {incr g} { set gLen [llength $groups($g)] set ok 0; set start -1 + set seek $cnt while {!$ok} { - set seek $cnt; incr seek + incr seek while {[info exists used($seek)]} {incr seek} set ok 1; set start $seek for {set j 0} {$j<$gLen} {incr j} { |