X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fscripts%2Fgenerate_regalloc_if.pl;h=72c06bb8336acd31998fda1e23aaf68c27ef9f20;hb=0c19f1741b50aa9d2a1d5fae835beb906728cf7e;hp=6462a8cdddb8eda8ee24e10cc06e9a6407aa4084;hpb=ce1307227c4515b42692171347bbcf62064045df;p=libfirm

diff --git a/ir/be/scripts/generate_regalloc_if.pl b/ir/be/scripts/generate_regalloc_if.pl
index 6462a8cdd..72c06bb83 100755
--- a/ir/be/scripts/generate_regalloc_if.pl
+++ b/ir/be/scripts/generate_regalloc_if.pl
@@ -43,9 +43,9 @@ my $return;
 
 use strict "subs";
 unless ($return = do $specfile) {
-	die "couldn't parse $specfile: $@" if $@;
-	die "couldn't do $specfile: $!"    unless defined $return;
-	die "couldn't run $specfile"       unless $return;
+	die "Fatal error: couldn't parse $specfile: $@" if $@;
+	die "Fatal error: couldn't do $specfile: $!"    unless defined $return;
+	die "Fatal error: couldn't run $specfile"       unless $return;
 }
 use strict "subs";
 
@@ -211,7 +211,7 @@ foreach my $op (keys(%nodes)) {
 
 
 # generate header _t (internal usage) file
-open(OUT, ">$target_h_t") || die("Could not open $target_h_t, reason: $!\n");
+open(OUT, ">$target_h_t") || die("Fatal error: Could not open $target_h_t, reason: $!\n");
 
 my $creation_time = localtime(time());
 
@@ -239,7 +239,7 @@ print OUT "\n#endif\n";
 
 
 # generate header (external usage) file
-open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n");
+open(OUT, ">$target_h") || die("Fatal error: Could not open $target_h, reason: $!\n");
 
 $creation_time = localtime(time());
 
@@ -268,7 +268,7 @@ print OUT @obst_regtypes_decl, "\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 "void ".$arch."_register_init(void);\n\n";
 
 print OUT @obst_header_all, "\n";
 
@@ -279,7 +279,7 @@ close(OUT);
 
 
 # generate c file
-open(OUT, ">$target_c") || die("Could not open $target_c, reason: $!\n");
+open(OUT, ">$target_c") || die("Fatal error: Could not open $target_c, reason: $!\n");
 
 $creation_time = localtime(time());
 
@@ -315,7 +315,7 @@ print OUT "arch_register_class_t ${arch}_reg_classes[] = {\n\t".join(",\n\t", @o
 
 print OUT @obst_regtypes_def, "\n";
 
-print OUT "void ${arch}_register_init(void *isa_ptr) {\n";
+print OUT "void ${arch}_register_init(void) {\n";
 print OUT @obst_reginit;
 print OUT "}\n\n";
 
@@ -355,7 +355,7 @@ GET_CLASS:		foreach my $reg (@regs) {
 					else {
 						$class = get_reg_class($reg);
 						if (!defined $class) {
-							die("Could not get ".uc($inout)." register class for '$op' pos $idx (reg $reg) ... exiting.\n");
+							die("Fatal error: Could not get ".uc($inout)." register class for '$op' pos $idx (reg $reg) ... exiting.\n");
 						}
 						else {
 							last GET_CLASS;
@@ -432,7 +432,7 @@ sub generate_requirements {
 			my ($class, $has_limit, $same_pos, $different_pos) = build_subset_class_func($n, $op, $idx, (($inout eq "in") ? 1 : 0), $reqs[$idx]);
 
 			if (!defined($class)) {
-				die("Could not build subset for ".uc($inout)." requirements '$op' pos $idx ... exiting.\n");
+				die("Fatal error: Could not build subset for ".uc($inout)." requirements '$op' pos $idx ... exiting.\n");
 			}
 
 			if ($has_limit) {