Remove from warnings.pl various long commented out and dead code.

This code was commented out/rendered vestigial in 1998, 2000 and 2002 by
599cee73f2261c5e, d3a7d8c7d7e4d69d and 0d658bf5a06395c2.

1 files changed, 0 insertions, 8 deletions

diff --git a/warnings.pl b/warnings.pl
index e261643ce3..c201734886 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -95,7 +95,6 @@ my %list ;
 my %Value ;
 my %ValueToName ;
 my %NameToValue ;
-my $index ;
 
 my %v_list = () ;
 
@@ -145,7 +144,6 @@ sub walk
     foreach $k (sort keys %$tre) {
 	$v = $tre->{$k};
 	die "duplicate key $k\n" if defined $list{$k} ;
-	#$Value{$index} = uc $k ;
 	die "Can't find key '$k'"
 	    if ! defined $NameToValue{uc $k} ;
         push @{ $list{$k} }, $NameToValue{uc $k} ;
@@ -300,8 +298,6 @@ EOM
 
 my $offset = 0 ;
 
-$index = $offset ;
-#@{ $list{"all"} } = walk ($tree) ;
 valueWalk ($tree) ;
 my $index = orderValues();
 
@@ -386,8 +382,6 @@ while (<DATA>) {
     print $pm $_ ;
 }
 
-#$list{'all'} = [ $offset .. 8 * ($warn_size/2) - 1 ] ;
-
 $last_ver = 0;
 print $pm "our %Offsets = (\n" ;
 foreach my $k (sort { $a <=> $b } keys %ValueToName) {
@@ -412,7 +406,6 @@ foreach $k (sort keys  %list) {
     my @list = sort { $a <=> $b } @$v ;
 
     print $pm tab(4, "    '$k'"), '=> "',
-		# mkHex($warn_size, @list),
 		mkHex($warn_size, map $_ * 2 , @list),
 		'", # [', mkRange(@list), "]\n" ;
 }
@@ -426,7 +419,6 @@ foreach $k (sort keys  %list) {
     my @list = sort { $a <=> $b } @$v ;
 
     print $pm tab(4, "    '$k'"), '=> "',
-		# mkHex($warn_size, @list),
 		mkHex($warn_size, map $_ * 2 + 1 , @list),
 		'", # [', mkRange(@list), "]\n" ;
 }