procyberian/nasm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

x86/insns.pl: sort conditional instructions alphabetically

Browse source 
Makes the build a bit more predictable and debuggable.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>
This commit is contained in:
H. Peter Anvin 2022-11-12 12:59:23 -08:00
parent a2eabbe1d7
commit a3fd34ab80
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
x86/insns.pl
View file

@ -131,6 +131,8 @@ my %conds = ( %condd,
'nbe' => 7, 'ne' => 5, 'nge' => 12, 'nle' => 15,
'np' => 11, 'p' => 10 );
my @conds = sort keys(%conds);
# Generate conditional form patterns if applicable
sub conditional_forms(@) {
my @field_list = ();
@ -138,6 +140,7 @@ sub conditional_forms(@) {
foreach my $fields (@_) {
# This is a case sensitive match!
if ($fields->[0] !~ /cc/) {
# Not a conditional instruction pattern
push(@field_list, $fields);
next;
}
@ -147,7 +150,7 @@ sub conditional_forms(@) {
next;
}
foreach my $cc (keys(%conds)) {
foreach my $cc (@conds) {
my @ff = @$fields;
$ff[0] =~ s/cc/\U$cc/;
@ -156,8 +159,8 @@ sub conditional_forms(@) {
warn "$fname:$line: invalid conditional encoding";
next;
}
$ff[2] = $1.sprintf('%02x', hex($2)^$conds{$cc}).$3;
unless (defined($condd{$cc}) || $ff[3] =~ /\bND\b/) {
$ff[3] .= ',ND';
}