mirror of
https://github.com/netwide-assembler/nasm.git
synced 2026-01-26 16:09:24 +00:00
x86: tools: Remove unused perl code variables
Merged version of a PR by mknos: https://github.com/netwide-assembler/nasm/pull/91 Signed-off-by: Maciej Wieczor-Retman <maciej.wieczor-retman@intel.com>
This commit is contained in:
parent
62f5f6990f
commit
0fb33913d6
@ -224,8 +224,6 @@ sub insert_deps($) {
|
||||
}
|
||||
unlink($external);
|
||||
} else {
|
||||
my $e;
|
||||
|
||||
foreach my $dfile ($external, sort(keys(%deps)) ) {
|
||||
my $ofile;
|
||||
my @deps;
|
||||
|
||||
@ -80,7 +80,6 @@ sub genseqs($$$@) {
|
||||
|
||||
sub startseq($$) {
|
||||
my ($codestr,$flags) = @_;
|
||||
my $word;
|
||||
my @codes = ();
|
||||
my $c = $codestr;
|
||||
my($c0, $c1, $i);
|
||||
|
||||
@ -24,7 +24,6 @@ sub toint($) {
|
||||
|
||||
sub process_line($) {
|
||||
my($line) = @_;
|
||||
my @v;
|
||||
|
||||
if ( $line !~ /^\s*(\S+)\s*(\S+)\s*(\S+)\s*([0-9]+)\s*(?:\&\s*(0x[0-9a-f]+|[0-9]+))?/i ) {
|
||||
die "regs.dat:$nline: invalid input\n";
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user