From 0fb33913d64a1943bbf6c13095a3bff271ffac9c Mon Sep 17 00:00:00 2001
From: Maciej Wieczor-Retman <maciej.wieczor-retman@intel.com>
Date: Mon, 6 Oct 2025 17:41:13 +0200
Subject: [PATCH] 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>
---
 tools/mkdep.pl | 2 --
 x86/insns.pl   | 1 -
 x86/regs.pl    | 1 -
 3 files changed, 4 deletions(-)

diff --git a/tools/mkdep.pl b/tools/mkdep.pl
index 13c024a33..b0af60d18 100755
--- a/tools/mkdep.pl
+++ b/tools/mkdep.pl
@@ -224,8 +224,6 @@ sub insert_deps($) {
 	}
 	unlink($external);
     } else {
-	my $e;
-
 	foreach my $dfile ($external, sort(keys(%deps)) ) {
 	    my $ofile;
 	    my @deps;
diff --git a/x86/insns.pl b/x86/insns.pl
index f43f8ab37..507b68d6c 100755
--- a/x86/insns.pl
+++ b/x86/insns.pl
@@ -80,7 +80,6 @@ sub genseqs($$$@) {
 
 sub startseq($$) {
     my ($codestr,$flags) = @_;
-    my $word;
     my @codes = ();
     my $c = $codestr;
     my($c0, $c1, $i);
diff --git a/x86/regs.pl b/x86/regs.pl
index 284b06921..5f7a12f6b 100755
--- a/x86/regs.pl
+++ b/x86/regs.pl
@@ -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";