tv: Remove mul_table[][][] and simply use * and <<.

[libfirm] / ir / be / scripts / generate_emitter.pl

diff --git a/ir/be/scripts/generate_emitter.pl b/ir/be/scripts/generate_emitter.pl
index 26d785c..dd4d46d 100755 (executable)
--- a/ir/be/scripts/generate_emitter.pl
+++ b/ir/be/scripts/generate_emitter.pl
@@ -45,10 +45,9 @@ use strict "subs";
 my $target_c = $target_dir."/gen_".$arch."_emitter.c";
 my $target_h = $target_dir."/gen_".$arch."_emitter.h";
 
-# stacks for output
-my @obst_func;   # stack for the emit functions
-my @obst_register;  # stack for emitter register code
-my $line;
+# buffers for output
+my $obst_func     = ""; # buffer for the emit functions
+my $obst_register = ""; # buffer for emitter register code
 
 
 foreach my $op (keys(%nodes)) {
@@ -57,30 +56,25 @@ foreach my $op (keys(%nodes)) {
        # skip this node description if no emit information is available
        next if (!defined($n{"emit"}));
 
-       $line = "static void emit_${arch}_${op}(const ir_node *node)";
-
-       push(@obst_register, "\tbe_set_emitter(op_${arch}_${op}, emit_${arch}_${op});\n");
-
-       if($n{"emit"} eq "") {
-               push(@obst_func, $line."\n");
-               push(@obst_func, "{\n");
-               push(@obst_func, "\t(void) node;\n");
-               push(@obst_func, "}\n\n");
+       if ($n{"emit"} eq "") {
+               $obst_register .= "\tbe_set_emitter(op_${arch}_${op}, be_emit_nothing);\n";
                next;
        }
 
-       push(@obst_func, $line."\n");
-       push(@obst_func, "{\n");
+       $obst_register .= "\tbe_set_emitter(op_${arch}_${op}, emit_${arch}_${op});\n";
+
+       $obst_func .= "static void emit_${arch}_${op}(ir_node const *const node)\n";
+       $obst_func .= "{\n";
 
        my @emit = split(/\n/, $n{"emit"});
 
        foreach my $template (@emit) {
                if ($template ne '') {
-                       push(@obst_func, "\t${arch}_emitf(node, \"$template\");\n");
+                       $obst_func .= "\t${arch}_emitf(node, \"$template\");\n";
                }
        }
 
-       push(@obst_func, "}\n\n");
+       $obst_func .= "}\n\n";
 }
 
 open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n");
@@ -139,11 +133,7 @@ print OUT<<EOF;
 #include "${arch}_new_nodes.h"
 #include "${arch}_emitter.h"
 
-EOF
-
-print OUT @obst_func;
-
-print OUT<<EOF;
+$obst_func
 
 /**
  * Enters the emitter functions for handled nodes into the generic
@@ -151,11 +141,7 @@ print OUT<<EOF;
  */
 void $arch\_register_spec_emitters(void)
 {
-EOF
-
-print OUT @obst_register;
-
-print OUT<<EOF;
+$obst_register
 }
 
 EOF