fixed debug output of unary x87 nodes

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

diff --git a/ir/be/scripts/generate_new_opcodes.pl b/ir/be/scripts/generate_new_opcodes.pl
index c54f4fa..224c592 100755 (executable)
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -66,7 +66,7 @@ foreach my $op (keys(%nodes)) {
        my $n_res = 0;
 
        # determine arity from in requirements
-       $arity = 0;
+       $arity = exists($n{"arity"}) ? $n{"arity"} : 0;
        if (exists($n{"reg_req"}) && exists($n{"reg_req"}{"in"})) {
                $arity = scalar(@{ $n{"reg_req"}{"in"} });
        }
@@ -102,6 +102,8 @@ foreach my $op (keys(%nodes)) {
                push(@obst_cmp_attr, "static int cmp_attr_$op(ir_node *a, ir_node *b) {\n");
                push(@obst_cmp_attr, "  $arch\_attr_t *attr_a = get_$arch\_attr(a);\n");
                push(@obst_cmp_attr, "  $arch\_attr_t *attr_b = get_$arch\_attr(b);\n");
+               push(@obst_cmp_attr, "  (void) attr_a;\n");
+               push(@obst_cmp_attr, "  (void) attr_b;\n");
                push(@obst_cmp_attr, $n{"cmp_attr"});
                push(@obst_cmp_attr, "}\n\n");
 
@@ -222,6 +224,9 @@ foreach my $op (keys(%nodes)) {
                                        elsif ($flag eq "I") {
                                                $temp .= "  flags |= arch_irn_flags_ignore;             /* ignore op for register allocation */\n";
                                        }
+                                       elsif ($flag eq "S") {
+                                               $temp .= "  flags |= arch_irn_flags_modify_sp;          /* op modifies stack pointer */\n";
+                                       }
                                }
                        }
 
@@ -251,7 +256,17 @@ foreach my $op (keys(%nodes)) {
                                        $out_param = "NULL, 0";
                                }
                        }
+                       else {
+                               $in_param = "NULL";
+                               $out_param = "NULL, 0";
+                       }
                        $temp .= "\n  /* create node */\n";
+
+                       my $latency = 1;
+                       if (exists($n{"latency"})) {
+                               $latency = $n{"latency"};
+                       }
+
                        my $mode = "mode";
                        if ($tuple == 1) {
                                $mode = "mode_T";
@@ -259,7 +274,7 @@ foreach my $op (keys(%nodes)) {
                        $temp .= "  res = new_ir_node(db, irg, block, op_$op, $mode, $arity, ".($arity > 0 ? "in" : "NULL").");\n";
 
                        $temp .= "\n  /* init node attributes */\n";
-                       $temp .= "  init_$arch\_attributes(res, flags, $in_param, $out_param);\n";
+                       $temp .= "  init_$arch\_attributes(res, flags, $in_param, $out_param, $latency);\n";
 
                        if (exists($n{"init_attr"})) {
                                $temp .= "  attr = get_$arch\_attr(res);\n";
@@ -298,6 +313,7 @@ foreach my $op (keys(%nodes)) {
        $temp  = "  op_$op = new_ir_op(cur_opcode + iro_$op, \"$op\", op_pin_state_".$n{"state"}.", ".$n{"op_flags"};
        $temp .= "|M, ".translate_arity($arity).", 0, sizeof($arch\_attr_t) + $n_res * sizeof(arch_register_t *), &ops);\n";
        push(@obst_new_irop, $temp);
+       push(@obst_new_irop, "  set_op_tag(op_$op, &$arch\_op_tag);\n");
        push(@obst_enum_op, "  iro_$op,\n");
 
        push(@obst_header, "\n");
@@ -319,11 +335,37 @@ print OUT "\n";
 print OUT @obst_get_opvar;
 print OUT "\n";
 
-print OUT<<ENDOFISIRN;
+print OUT<<EOF;
 
 static int $arch\_opcode_start = -1;
 static int $arch\_opcode_end   = -1;
 
+EOF
+
+# build the FOURCC arguments from $arch
+
+my ($a, $b, $c, $d) = ('\0', '\0', '\0', '\0');
+
+if (length($arch) >= 1) {
+       $a = uc(substr($arch, 0, 1));
+}
+
+if (length($arch) >= 2) {
+       $b = uc(substr($arch, 1, 1));
+}
+
+if (length($arch) >= 3) {
+       $c = uc(substr($arch, 2, 1));
+}
+
+if (length($arch) >= 4) {
+       $d = uc(substr($arch, 3, 1));
+}
+
+print OUT "static unsigned $arch\_op_tag = FOURCC('$a', '$b', '$c', '$d');\n";
+
+print OUT<<ENDOFISIRN;
+
 /** Return the opcode number of the first $arch opcode. */
 int get_$arch\_opcode_first(void) {
   return $arch\_opcode_start;
@@ -334,17 +376,9 @@ int get_$arch\_opcode_last(void) {
   return $arch\_opcode_end;
 }
 
-/** Return non-zero if the given node is a $arch machine node. */
+/** Return 1 if the given node is a $arch machine node, 0 otherwise */
 int is_$arch\_irn(const ir_node *node) {
-  unsigned opc = (unsigned)get_irn_opcode(node);
-
-  assert($arch\_opcode_start > 0 && "missing opcode init");
-  assert($arch\_opcode_end > 0 && "missing opcode init");
-
-  if (opc - (unsigned)$arch\_opcode_start < (unsigned)($arch\_opcode_end - $arch\_opcode_start))
-    return 1;
-
-  return 0;
+  return get_op_tag(get_irn_op(node)) == &$arch\_op_tag;
 }
 
 int get_$arch\_irn_opcode(const ir_node *node) {