diff options
Diffstat (limited to 'tool/mkpragmatab.tcl')
| -rw-r--r-- | tool/mkpragmatab.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tool/mkpragmatab.tcl b/tool/mkpragmatab.tcl index 81ef0ea00..70988cf82 100644 --- a/tool/mkpragmatab.tcl +++ b/tool/mkpragmatab.tcl @@ -528,10 +528,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] |