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:
@@ -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} {
|
||||
|
Reference in New Issue
Block a user