1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00

Fix issue in 'mkopcodeh.tcl' tool that prevented its termination in rare circumstances.

FossilOrigin-Name: a8d921136f8ab132279984a77d0eeaf355342cdb0a98d7e1e59c8e6c8ed9459c
This commit is contained in:
mistachkin
2021-06-01 21:07:49 +00:00
parent b56a09079e
commit f9ac1ab1e7
3 changed files with 10 additions and 9 deletions

View File

@@ -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} {