Sort the enums in a stable manner

This commit is contained in:
omniavinco 2014-10-21 20:41:22 +09:00
parent 45ebeddf0f
commit 51cb63b12a
1 changed files with 5 additions and 1 deletions

View File

@ -155,11 +155,15 @@ sub output_tokens($$)
} else { } else {
if (${$tbl}{$b} =~ /_/) { if (${$tbl}{$b} =~ /_/) {
1 1
} else {
if (hex ${$tbl}{$a} eq hex ${$tbl}{$b}) {
$a cmp $b
} else { } else {
hex ${$tbl}{$a} <=> hex ${$tbl}{$b} hex ${$tbl}{$a} <=> hex ${$tbl}{$b}
} }
} }
} }
}
} keys %{$tbl}; } keys %{$tbl};
print "\n"; print "\n";
} else { } else {