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

View File

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