mirror of
https://github.com/netwide-assembler/nasm.git
synced 2025-10-10 00:25:06 -04:00
23ce05f906
SPDX is an international standard for documenting software license requirements. Remove the existing headers and replace with a brief SPDX preamble. See: https://spdx.dev/use/specifications/ The script used to convert the files is added to "tools", and the file header templates in headers/ are updated. Signed-off-by: H. Peter Anvin (Intel) <hpa@zytor.com>
79 lines
1.6 KiB
Perl
79 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
# SPDX-License-Identifier: BSD-2-Clause
|
|
# Copyright 1996-2024 The NASM Authors - All Rights Reserved
|
|
|
|
#
|
|
# inslist.pl produce inslist.src
|
|
#
|
|
|
|
print STDERR "Reading insns.dat...\n";
|
|
|
|
@args = ();
|
|
undef $output;
|
|
foreach $arg ( @ARGV ) {
|
|
if ( $arg =~ /^\-/ ) {
|
|
if ( $arg =~ /^\-([adins])$/ ) {
|
|
$output = $1;
|
|
} else {
|
|
die "$0: Unknown option: ${arg}\n";
|
|
}
|
|
} else {
|
|
push (@args, $arg);
|
|
}
|
|
}
|
|
|
|
$fname = "../insns.dat" unless $fname = shift(@args);
|
|
open (F, '<', $fname) or die "$0: $fname, $!\n";
|
|
$ofile = "insns.src" unless $ofile = shift(@args);
|
|
open(S, '>', $ofile) or die "$0: $ofile: $!\n";
|
|
print STDERR "Writing $ofile...\n";
|
|
$line = 0;
|
|
$insns = 0;
|
|
while (<F>) {
|
|
$line++;
|
|
next if (/^\s*$/); # blank lines
|
|
if ( /^\s*;/ ) # comments
|
|
{
|
|
if ( /^\s*;\#\s*(.+)/ ) # section subheader
|
|
{
|
|
print S "\n\\S{} $1\n\n";
|
|
}
|
|
next;
|
|
}
|
|
chomp;
|
|
unless (/^\s*(\S+)\s+(\S+)\s+(\S+|\[.*\])\s+(\S+)\s*$/) {
|
|
warn "line $line does not contain four fields\n";
|
|
next;
|
|
}
|
|
my @entry = ($1, $2, $3, $4);
|
|
|
|
$entry[1] =~ s/ignore//;
|
|
$entry[1] =~ s/void//;
|
|
|
|
my @flags = split(/,/, $entry[3]);
|
|
my @nflags;
|
|
undef $isavx512;
|
|
undef @avx512fl;
|
|
for my $fl (@flags) {
|
|
next if ($fl =~ /^(ignore|SB|SM|SM2|SQ|AR2|FUTURE)$/);
|
|
|
|
if ($fl =~ /^AVX512(.*)$/) {
|
|
$isavx512 = 1;
|
|
push(@avx512fl, $1) unless ($1 eq '');
|
|
} else {
|
|
push(@nflags,$fl);
|
|
}
|
|
}
|
|
|
|
if ($isavx512) {
|
|
unshift(@nflags, "AVX512".join('/', @avx512fl));
|
|
}
|
|
|
|
printf S "\\c %-16s %-24s %s\n",$entry[0],$entry[1], join(',', @nflags);
|
|
$insns++;
|
|
}
|
|
print S "\n";
|
|
close S;
|
|
close F;
|
|
printf STDERR "Done: %d instructions\n", $insns;
|