my @obst_limit_func; # stack for functions to return a subset of a register class
my @obst_defreq_head; # stack for prototypes of default requirement function
my @obst_header_all; # stack for some extern struct defs needed for bearch_$arch include
+my @obst_projnum_map; # stack for mapping register projnums to requirements
+my @obst_requirement_def; # stack for requirement name defines
my $numregs;
my $class_ptr;
$tmp .= " arch_register_req_type_none,\n";
$tmp .= " NULL,\n";
$tmp .= " NULL,\n";
-$tmp .= " 0\n";
+$tmp .= " NULL,\n";
+$tmp .= " NULL\n";
$tmp .= " },\n";
$tmp .= " 0\n";
$tmp .= "};\n\n";
push(@obst_req, $tmp);
-
-push(@obst_header_all, "extern arch_register_class_t $arch\_reg_classes[N_CLASSES];\n\n");
push(@obst_header_all, "extern const $arch\_register_req_t $arch\_default_req_none;\n");
push(@obst_classdef, "#define N_CLASSES ".scalar(keys(%reg_classes))."\n");
+my $global_projnum_idx = 0;
+
# generate register type and class variable, init function and default requirements
foreach my $class_name (keys(%reg_classes)) {
my @class = @{ $reg_classes{"$class_name"} };
$tmp .= " arch_register_req_type_normal,\n";
$tmp .= " $class_ptr,\n";
$tmp .= " NULL,\n";
- $tmp .= " 0\n";
+ $tmp .= " NULL,\n";
+ $tmp .= " NULL\n";
$tmp .= " },\n";
$tmp .= " 0\n";
$tmp .= "};\n\n";
push(@obst_req, $tmp);
-
- push(@obst_header_all, "\nextern const arch_register_req_t ia32_default_req_$class_name;\n");
+ push(@obst_header_all, "extern const $arch\_register_req_t $arch\_default_req_$class_name;\n");
my $idx = 0;
push(@obst_reginit, " /* Init of all registers in class '$class_name' */\n\n");
my $limit_func_name = $arch."_limit_".$class_name."_".$_->{"name"};
# push the function prototype
- $tmp = "int $limit_func_name(const ir_node *irn, int pos, bitset_t *bs)";
+ $tmp = "void $limit_func_name(void *_unused, bitset_t *bs)";
push(@obst_defreq_head, $tmp.";\n");
# push the function definition
$tmp .= " {\n";
$tmp .= " bs = bitset_clear_all(bs);\n";
$tmp .= " bitset_set(bs, REG_".uc($_->{"name"}).");\n"; # REGISTER to index assignment is done some lines down
- $tmp .= " return 1;\n";
$tmp .= "}\n\n";
push(@obst_limit_func, $tmp);
$tmp .= " arch_register_req_type_limited,\n";
$tmp .= " $class_ptr,\n";
$tmp .= " $limit_func_name,\n";
- $tmp .= " 0\n";
+ $tmp .= " NULL,\n";
+ $tmp .= " NULL\n";
$tmp .= " },\n";
$tmp .= " 0\n";
$tmp .= "};\n\n";
push(@obst_req, $tmp);
-
- push(@obst_header_all, "extern const $arch\_register_req_t $arch\_default_req_$class_name\_".$_->{"name"}.";\n");
+ push(@obst_header_all,"extern const $arch\_register_req_t $arch\_default_req_$class_name\_".$_->{"name"}.";\n");
$reg2class{$_->{"name"}} = { "class" => $old_classname, "index" => $idx }; # remember reg to class for later use
push(@obst_regdef, "#define REG_".uc($_->{"name"})." $idx\n");
push(@obst_reginit, " ".$class_name."_regs[$idx].name = \"".$_->{"name"}."\";\n");
push(@obst_reginit, " ".$class_name."_regs[$idx].reg_class = $class_ptr;\n");
push(@obst_reginit, " ".$class_name."_regs[$idx].index = $idx;\n");
- push(@obst_reginit, " ".$class_name."_regs[$idx].type = ".$rt[$_->{"type"}].";\n\n");
+ push(@obst_reginit, " ".$class_name."_regs[$idx].type = ".$rt[$_->{"type"}].";\n");
+ if ($_->{"type"} == 2) {
+ # this is a caller saved register
+ push(@obst_reginit, " ia32_set_reg_projnum(&".$class_name."_regs[$idx], $global_projnum_idx, isa->reg_projnum_map);\n");
+ push(@obst_projnum_map, "&$arch\_default_req_$class_name\_".$_->{"name"});
+ $global_projnum_idx++;
+ }
+ push(@obst_reginit, "\n");
$idx++;
}
$class_idx++;
}
-push(@obst_header_all, "\n/* node specific requirements */\n");
+push(@obst_regdef, "\n#define N_CALLER_SAVE_REGS ".scalar(@obst_projnum_map)."\n");
+
+push(@obst_header_all, "\nextern const $arch\_register_req_t *$arch\_projnum_reg_req_map[N_CALLER_SAVE_REGS];\n\n");
# generate node-register constraints
foreach my $op (keys(%nodes)) {
* date: $creation_time
*/
-#include "../bearch.h"
-
EOF
-print OUT @obst_regdef, "\n";
-
-print OUT @obst_classdef, "\n";
-
-print OUT @obst_regtypes, "\n";
-
-print OUT @obst_defreq_head, "\n";
-
-print OUT "void ".$arch."_register_init(void);\n\n";
+print OUT @obst_requirement_def;
print OUT "\n#endif /* _GEN_$tmp\_REGALLOC_IF_T_H_ */\n";
* date: $creation_time
*/
-#include "gen_$arch\_regalloc_if_t.h"
+#include "../bearch.h"
+#include "$arch\_nodes_attr.h"
EOF
-print OUT @obst_header_all;
+print OUT @obst_regdef, "\n";
+
+print OUT @obst_classdef, "\n";
+
+print OUT @obst_regtypes, "\n";
+
+print OUT "extern arch_register_class_t $arch\_reg_classes[N_CLASSES];\n\n";
+
+print OUT "void ".$arch."_register_init(void *isa_ptr);\n\n";
+
+print OUT @obst_header_all, "\n";
+
+print OUT @obst_defreq_head, "\n";
print OUT "\n#endif /* _GEN_$tmp\_REGALLOC_IF_H_ */\n";
* date: $creation_time
*/
-#include "gen_$arch\_regalloc_if_t.h"
+#include "gen_$arch\_regalloc_if.h"
+#include "bearch_ia32_t.h" /* we need this to put the caller saved registers into the isa set */
+#include "ia32_map_regs.h"
EOF
print OUT "arch_register_class_t $arch\_reg_classes[] = {\n ".join(",\n ", @obst_regclasses)."\n};\n\n";
-print OUT "void ".$arch."_register_init(void) {\n";
+print OUT "const $arch\_register_req_t *$arch\_projnum_reg_req_map[] = {\n ".join(",\n ", @obst_projnum_map)."\n};\n\n";
+
+print OUT "void ".$arch."_register_init(void *isa_ptr) {\n";
+print OUT " ia32_isa_t *isa = (ia32_isa_t *)isa_ptr;\n\n";
print OUT @obst_reginit;
print OUT "}\n\n";
print OUT @obst_limit_func;
+
print OUT @obst_req;
close(OUT);
my $class = undef;
my $tmp2 = "const $arch\_register_req_t _".$op."_reg_req_$inout\_$idx = ";
- my $tmp = "const $arch\_register_req_t *".$op."_reg_req_$inout\_$idx = ";
-
- push(@obst_header_all, "extern const $arch\_register_req_t *".$op."_reg_req_$inout\_$idx;\n");
+ my $tmp = "#define ".$op."_reg_req_$inout\_$idx ";
if ($reqs[$idx] eq "none") {
- $tmp .= "&$arch\_default_req_none;\n";
+ $tmp .= "&$arch\_default_req_none\n";
}
elsif (is_reg_class($reqs[$idx])) {
- $tmp .= "&$arch\_default_req_".$arch."_".$reqs[$idx].";\n";
+ $tmp .= "&$arch\_default_req_".$arch."_".$reqs[$idx]."\n";
}
else {
my @req_type_mask;
if (defined($pos)) {
push(@req_type_mask, "arch_register_req_type_should_be_".($same ? "same" : "different"));
}
- $tmp .= "&_".$op."_reg_req_$inout\_$idx;\n";
+ $tmp .= "&_".$op."_reg_req_$inout\_$idx\n";
$tmp2 .= " {\n";
$tmp2 .= " {\n";
$tmp2 .= " ".join(" | ", @req_type_mask).",\n";
$tmp2 .= " &$arch\_reg_classes[CLASS_$arch\_".$class."],\n";
- $tmp2 .= " ".(defined($class) ? "limit_reg_".$op."_$inout\_".$idx : "NULL").",\n";
+ $tmp2 .= " ".($has_limit ? "limit_reg_".$op."_$inout\_".$idx : "NULL").",\n";
+ $tmp2 .= " NULL,\n";
$tmp2 .= " NULL\n";
$tmp2 .= " },\n";
$tmp2 .= " ".(defined($pos) ? $pos : "0")."\n};\n";
- $tmp = $tmp2.$tmp;
+ push(@obst_req, $tmp2."\n");
+ push(@obst_header_all, "extern const $arch\_register_req_t _".$op."_reg_req_$inout\_$idx;\n");
}
- push(@obst_req, $tmp."\n");
+ push(@obst_requirement_def, $tmp);
}
}
}
if ($has_limit == 1) {
+ push(@obst_header_all, "void limit_reg_".$op."_".($in ? "in" : "out")."_".$idx."(void *_unused, bitset_t *bs);\n");
+
push(@obst_limit_func, "/* limit the possible registers for ".($in ? "IN" : "OUT")." $idx at op $op */\n");
- push(@obst_limit_func, "int limit_reg_".$op."_".($in ? "in" : "out")."_".$idx."(const ir_node *irn, int pos, bitset_t *bs) {\n");
+ push(@obst_limit_func, "void limit_reg_".$op."_".($in ? "in" : "out")."_".$idx."(void *_unused, bitset_t *bs) {\n");
push(@obst_limit_func, @temp_obst);
- push(@obst_limit_func, "\n return ".($neg ? scalar(@{ $reg_classes{"$class"} }) - scalar(@regs) : scalar(@regs)).";\n");
push(@obst_limit_func, "}\n\n");
}
projects / libfirm / blobdiff