More perl-like idioms for generating regdis.c

- Don't use an advancing counter through an array to do a push().
- An empty array is written as (), not 0.

1 files changed, 2 insertions, 4 deletions

diff --git a/regs.pl b/regs.pl
index 5835493..b5c7e49 100755
--- a/regs.pl
+++ b/regs.pl
@@ -102,12 +102,10 @@ if ( $fmt eq 'h' ) {
     foreach $class ( sort(keys(%disclass)) ) {
 	printf "static const int %-8s[] = {", $class;
 	@foo = @{$disclass{$class}};
-	@bar = 0;
-	$counter = 0;
+	@bar = ();
 	for ( $i = 0 ; $i < scalar(@foo) ; $i++ ) {
             if (defined($foo[$i])) {
-		$bar[$counter] = "R_\U$foo[$i]\E";
-		$counter ++;
+		push(@bar, "R_\U$foo[$i]\E");
             }
 	}
 	print join(',', @bar), "};\n";