mirror of
https://github.com/netwide-assembler/nasm.git
synced 2025-10-10 00:25:06 -04: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:
@@ -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";
|
||||
|
Reference in New Issue
Block a user