aboutsummaryrefslogtreecommitdiff
path: root/tool/mkopcodeh.tcl
diff options
context:
space:
mode:
authormistachkin <mistachkin@noemail.net>2021-06-01 21:07:49 +0000
committermistachkin <mistachkin@noemail.net>2021-06-01 21:07:49 +0000
commitf9ac1ab1e7fd9cb827094a88c894d595aacb4927 (patch)
tree3a3aa4097c37ce7fe73af0fb861825ad2c9cc135 /tool/mkopcodeh.tcl
parentb56a09079e8b5305d3c99ae19aedcbbd343b28d9 (diff)
downloadsqlite-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.tcl3
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} {