activated assure constraints

[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 11a1b00..36e07c6 100755 (executable)
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -125,6 +125,12 @@ foreach my $op (keys(%nodes)) {
                                $arg_names      .= ", ".$href->{"name"};
                        }
                }
+
+               # we have additional attribute arguements
+               if (exists($n{"attr"})) {
+                       $complete_args .= ", ".$n{"attr"};
+               }
+
                $complete_args = substr($complete_args, 2);
                $temp .= ", $complete_args)";
                push(@obst_constructor, $temp." {\n");
@@ -140,6 +146,7 @@ foreach my $op (keys(%nodes)) {
                        $temp  = "  ir_node *res;\n";
                        $temp .= "  ir_node *in[$arity];\n" if ($arity > 0);
                        $temp .= "  int flags = 0;\n";
+                       $temp .= "  $arch\_attr_t *attr;\n" if (exists($n{"init_attr"}));
 
                        undef my $in_req_var;
                        undef my $out_req_var;
@@ -182,9 +189,6 @@ foreach my $op (keys(%nodes)) {
                        for (my $i = 1; $i <= $arity; $i++) {
                                $temp .= "  in[".($i - 1)."] = op".$i.";\n";
                        }
-                       $temp .= "  res = new_ir_node(db, irg, block, op_$op, mode, $arity, ".($arity > 0 ? "in" : "NULL").");\n";
-                       $temp .= "  res = optimize_node(res);\n";
-                       $temp .= "  irn_vrfy_irg(res, irg);\n\n";
 
                        # set flags
                        if (exists($n{"irn_flags"})) {
@@ -226,9 +230,21 @@ foreach my $op (keys(%nodes)) {
                                        $out_param = "NULL, 0";
                                }
                        }
+                       $temp .= "\n  /* create node */\n";
+                       $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";
 
+                       if (exists($n{"init_attr"})) {
+                               $temp .= "  attr = get_$arch\_attr(res);\n";
+                               $temp .= $n{"init_attr"}."\n";
+                       }
+
+                       $temp .= "\n  /* optimize node */\n";
+                       $temp .= "  res = optimize_node(res);\n";
+                       $temp .= "  irn_vrfy_irg(res, irg);\n\n";
+
                        $temp .= "\n  return res;\n";
 
                        push(@obst_constructor, $temp);
@@ -255,7 +271,7 @@ foreach my $op (keys(%nodes)) {
 
        $n_opcodes++;
        $temp  = "  op_$op = new_ir_op(cur_opcode++, \"$op\", op_pin_state_".$n{"state"}.", ".$n{"op_flags"};
-       $temp .= ", ".translate_arity($arity).", 0, sizeof($arch\_attr_t), &ops);\n";
+       $temp .= "|M, ".translate_arity($arity).", 0, sizeof($arch\_attr_t), &ops);\n";
        push(@obst_new_irop, $temp);
 }
 
@@ -276,6 +292,14 @@ print OUT<<ENDOFISIRN;
 static opcode $arch\_opcode_start = -1;
 static opcode $arch\_opcode_end   = -1;
 
+opcode get_$arch\_opcode_first(void) {
+  return $arch\_opcode_start + 1;
+}
+
+opcode get_$arch\_opcode_last(void) {
+  return $arch\_opcode_end - 1;
+}
+
 int is_$arch\_irn(const ir_node *node) {
   opcode opc = get_irn_opcode(node);
 
@@ -308,6 +332,8 @@ void $arch\_create_opcodes(void) {
 #define H   irop_flag_highlevel
 #define c   irop_flag_constlike
 #define K   irop_flag_keep
+#define M   irop_flag_machine
+#define R   (irop_flag_machine<<1)
 
   ir_op_ops ops;
   int cur_opcode = get_next_ir_opcodes($n_opcodes);
@@ -327,7 +353,9 @@ close(OUT);
 
 open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n");
 
-print OUT "int is_$arch\_irn(const ir_node *node);\n";
+print OUT "int is_$arch\_irn(const ir_node *node);\n\n";
+print OUT "opcode get_$arch\_opcode_first(void);\n";
+print OUT "opcode get_$arch\_opcode_last(void);\n\n";
 print OUT @obst_header;
 
 close(OUT);