mirror of
https://github.com/sqlite/sqlite.git
synced 2025-08-08 14:02:16 +03:00
Merge the latest trunk enhancements into the bedrock branch through the wal2
intermediary. FossilOrigin-Name: 203376300781167f3e96da0197a9c8e8da6fed15c56c8980a4c283ef34478a07
This commit is contained in:
@@ -534,10 +534,13 @@ foreach f [lsort [array names allflags]] {
|
||||
set fv [expr {$fv*2}]
|
||||
}
|
||||
|
||||
# Sort the column lists so that longer column lists occur first
|
||||
# Sort the column lists so that longer column lists occur first.
|
||||
# In the event of a tie, sort column lists lexicographically.
|
||||
#
|
||||
proc colscmp {a b} {
|
||||
return [expr {[llength $b] - [llength $a]}]
|
||||
set rc [expr {[llength $b] - [llength $a]}]
|
||||
if {$rc} {return $rc}
|
||||
return [string compare $a $b]
|
||||
}
|
||||
set cols_list [lsort -command colscmp $cols_list]
|
||||
|
||||
|
Reference in New Issue
Block a user