X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fscripts%2Fgenerate_emitter_new.pl;h=eeb432d782d55cb66e36cb63314f0a4c87684aa0;hb=a2c7ec077bd2dec4480805fd8f847ac58a10982d;hp=e4c4516204b1aca3fc3946af3fbeb7efeb5ef643;hpb=a9b231ef28ed7f6d26d848380ef6f37e23095e57;p=libfirm

diff --git a/ir/be/scripts/generate_emitter_new.pl b/ir/be/scripts/generate_emitter_new.pl
index e4c451620..eeb432d78 100755
--- a/ir/be/scripts/generate_emitter_new.pl
+++ b/ir/be/scripts/generate_emitter_new.pl
@@ -13,25 +13,8 @@ our $specfile;
 our $target_dir;
 
 our $arch;
-our $comment_string;
-our $comment_string_end;
 our %nodes;
 our %emit_templates;
-our $spec_version = 1;
-
-# include spec file
-
-my $return;
-
-no strict "subs";
-unless ($return = do $specfile) {
-	warn "couldn't parse $specfile: $@" if $@;
-	warn "couldn't do $specfile: $!"    unless defined $return;
-	warn "couldn't run $specfile"       unless $return;
-}
-use strict "subs";
-
-my $comment_string_quoted = quotemeta($comment_string);
 
 my $target_c = $target_dir."/gen_".$arch."_emitter.c";
 my $target_h = $target_dir."/gen_".$arch."_emitter.h";
@@ -90,8 +73,6 @@ foreach my $op (keys(%nodes)) {
 	push(@obst_func, $line." {\n");
 	my @emit = split(/\n/, $n{"emit"});
 
-	if($spec_version < 3) { last; }
-
 	foreach my $template (@emit) {
 		# substitute only lines, starting with a '.'
 		if ($template =~ /^(\s*)\.\s*(.*)/) {