projects
/
libfirm
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ed0e08d
)
all die messages are now prefixed by "Fatal error:"
author
Michael Beck
<beck@ipd.info.uni-karlsruhe.de>
Fri, 15 Jun 2007 13:01:45 +0000
(13:01 +0000)
committer
Michael Beck
<beck@ipd.info.uni-karlsruhe.de>
Fri, 15 Jun 2007 13:01:45 +0000
(13:01 +0000)
[r14517]
ir/be/scripts/generate_emitter.pl
patch
|
blob
|
history
ir/be/scripts/generate_machine.pl
patch
|
blob
|
history
ir/be/scripts/generate_new_opcodes.pl
patch
|
blob
|
history
ir/be/scripts/generate_regalloc_if.pl
patch
|
blob
|
history
diff --git
a/ir/be/scripts/generate_emitter.pl
b/ir/be/scripts/generate_emitter.pl
index
4720526
..
0fc35bc
100755
(executable)
--- a/
ir/be/scripts/generate_emitter.pl
+++ b/
ir/be/scripts/generate_emitter.pl
@@
-45,18
+45,18
@@
my $return;
no strict "subs";
unless ($return = do $specfile) {
no 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";
if ($new_emit_syntax) {
my $newscript = dirname($myname) . "/generate_emitter_new.pl";
unless ($return = do "$newscript") {
}
use strict "subs";
if ($new_emit_syntax) {
my $newscript = dirname($myname) . "/generate_emitter_new.pl";
unless ($return = do "$newscript") {
- die "couldn't parse $newscript: $@" if $@;
- die "couldn't do $newscript: $!" unless defined $return;
- die "couldn't run $newscript" unless $return;
+ die "
Fatal error:
couldn't parse $newscript: $@" if $@;
+ die "
Fatal error:
couldn't do $newscript: $!" unless defined $return;
+ die "
Fatal error:
couldn't run $newscript" unless $return;
}
exit;
}
}
exit;
}
@@
-169,7
+169,7
@@
foreach my $op (keys(%nodes)) {
push(@obst_func, "}\n\n");
}
push(@obst_func, "}\n\n");
}
-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");
my $creation_time = localtime(time());
my $creation_time = localtime(time());
@@
-198,7
+198,7
@@
EOF
close(OUT);
close(OUT);
-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());
$creation_time = localtime(time());
diff --git
a/ir/be/scripts/generate_machine.pl
b/ir/be/scripts/generate_machine.pl
index
f8f4ea0
..
dcde410
100755
(executable)
--- a/
ir/be/scripts/generate_machine.pl
+++ b/
ir/be/scripts/generate_machine.pl
@@
-39,9
+39,9
@@
my $return;
no strict "subs";
unless ($return = do $specfile) {
no 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";
}
use strict "subs";
@@
-98,7
+98,7
@@
foreach my $unit_type (keys(%cpu)) {
push(@obst_unit_tp_defs, "};\n\n") if ($has_desc);
push(@obst_unit_tp_defs, "};\n\n") if ($has_desc);
-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");
my $creation_time = localtime(time());
my $creation_time = localtime(time());
@@
-135,7
+135,7
@@
EOF
close(OUT);
close(OUT);
-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());
$creation_time = localtime(time());
diff --git
a/ir/be/scripts/generate_new_opcodes.pl
b/ir/be/scripts/generate_new_opcodes.pl
index
ee29ed6
..
cb7d180
100755
(executable)
--- a/
ir/be/scripts/generate_new_opcodes.pl
+++ b/
ir/be/scripts/generate_new_opcodes.pl
@@
-49,9
+49,9
@@
my $return;
no strict "subs";
unless ($return = do $specfile) {
no 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";
}
use strict "subs";
@@
-150,7
+150,7
@@
foreach my $op (keys(%nodes)) {
@outs = @{ $n{"outs"} };
if($out_arity >= 0 && scalar(@outs) != $out_arity) {
@outs = @{ $n{"outs"} };
if($out_arity >= 0 && scalar(@outs) != $out_arity) {
- die "Op ${op} has different number of outs and out_arity\n";
+ die "
Fatal error:
Op ${op} has different number of outs and out_arity\n";
}
$num_outs = $#outs + 1;
}
$num_outs = $#outs + 1;
@@
-175,7
+175,7
@@
foreach my $op (keys(%nodes)) {
@ins = @{ $n{"ins"} };
if($arity >= 0 && scalar(@ins) != $arity) {
@ins = @{ $n{"ins"} };
if($arity >= 0 && scalar(@ins) != $arity) {
- die "Op ${op} has different number of ins and arity\n";
+ die "
Fatal error:
Op ${op} has different number of ins and arity\n";
}
push(@obst_proj, "\nenum n_$op {\n");
}
push(@obst_proj, "\nenum n_$op {\n");
@@
-227,7
+227,7
@@
foreach my $op (keys(%nodes)) {
if(defined($compare_attr{${attr_type}})) {
$cmp_attr_func = $compare_attr{${attr_type}};
} else {
if(defined($compare_attr{${attr_type}})) {
$cmp_attr_func = $compare_attr{${attr_type}};
} else {
- die "No compare function defined for ${attr_type} attributes.";
+ die "
Fatal error:
No compare function defined for ${attr_type} attributes.";
}
}
}
}
@@
-347,7
+347,7
@@
foreach my $op (keys(%nodes)) {
if (@in) {
if($arity >= 0 && scalar(@in) != $arity) {
if (@in) {
if($arity >= 0 && scalar(@in) != $arity) {
- die "Arity and number of in requirements don't match for ${op}\n";
+ die "
Fatal error:
Arity and number of in requirements don't match for ${op}\n";
}
$temp .= "\tstatic const arch_register_req_t *in_reqs[] =\n";
}
$temp .= "\tstatic const arch_register_req_t *in_reqs[] =\n";
@@
-358,14
+358,14
@@
foreach my $op (keys(%nodes)) {
$temp .= "\t};\n";
} else {
if($arity > 0) {
$temp .= "\t};\n";
} else {
if($arity > 0) {
- die "need in requirements for ${op}\n";
+ die "
Fatal error:
need in requirements for ${op}\n";
}
$temp .= "\tstatic const arch_register_req_t **in_reqs = NULL;\n";
}
if (@out) {
if($out_arity >= 0 && scalar(@out) != $out_arity) {
}
$temp .= "\tstatic const arch_register_req_t **in_reqs = NULL;\n";
}
if (@out) {
if($out_arity >= 0 && scalar(@out) != $out_arity) {
- die "Out-Arity and number of out requirements don't match for ${op}\n";
+ die "
Fatal error:
Out-Arity and number of out requirements don't match for ${op}\n";
}
$temp .= "\tstatic const arch_register_req_t *out_reqs[] =\n";
}
$temp .= "\tstatic const arch_register_req_t *out_reqs[] =\n";
@@
-376,7
+376,7
@@
foreach my $op (keys(%nodes)) {
$temp .= "\t};\n";
} else {
if($out_arity > 0) {
$temp .= "\t};\n";
} else {
if($out_arity > 0) {
- die "need out requirements for ${op}\n";
+ die "
Fatal error:
need out requirements for ${op}\n";
}
$temp .= "\tstatic const arch_register_req_t **out_reqs = NULL;\n";
}
}
$temp .= "\tstatic const arch_register_req_t **out_reqs = NULL;\n";
}
@@
-430,7
+430,7
@@
foreach my $op (keys(%nodes)) {
# lookup init function
my $attr_init_code = $init_attr{$attr_type};
if(!defined($attr_init_code)) {
# lookup init function
my $attr_init_code = $init_attr{$attr_type};
if(!defined($attr_init_code)) {
- die "Couldn't find attribute initialisation code for type '${attr_type}'";
+ die "
Fatal error:
Couldn't find attribute initialisation code for type '${attr_type}'";
}
$temp .= "${attr_init_code}\n";
$temp .= "\n";
}
$temp .= "${attr_init_code}\n";
$temp .= "\n";
@@
-513,7
+513,7
@@
push(@obst_enum_op, "\n} $arch\_opcodes;\n\n");
# emit the code
# emit the code
-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");
print OUT "#include \"gen_$arch\_regalloc_if_t.h\"\n\n";
print OUT @obst_cmp_attr;
print OUT "#include \"gen_$arch\_regalloc_if_t.h\"\n\n";
print OUT @obst_cmp_attr;
@@
-628,7
+628,7
@@
print OUT "}\n";
close(OUT);
close(OUT);
-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");
my $creation_time = localtime(time());
my $tmp = uc($arch);
my $creation_time = localtime(time());
my $tmp = uc($arch);
@@
-688,7
+688,7
@@
sub translate_arity {
} elsif ($arity == $ARITY_DYNAMIC) {
return "oparity_dynamic";
} else {
} elsif ($arity == $ARITY_DYNAMIC) {
return "oparity_dynamic";
} else {
- die "Unknown arity $arity";
+ die "
Fatal error:
Unknown arity $arity";
}
}
}
}
diff --git
a/ir/be/scripts/generate_regalloc_if.pl
b/ir/be/scripts/generate_regalloc_if.pl
index
6462a8c
..
1f357cc
100755
(executable)
--- 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) {
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";
}
use strict "subs";
@@
-211,7
+211,7
@@
foreach my $op (keys(%nodes)) {
# generate header _t (internal usage) file
# 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());
my $creation_time = localtime(time());
@@
-239,7
+239,7
@@
print OUT "\n#endif\n";
# generate header (external usage) file
# 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());
$creation_time = localtime(time());
@@
-279,7
+279,7
@@
close(OUT);
# generate c file
# 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());
$creation_time = localtime(time());
@@
-355,7
+355,7
@@
GET_CLASS: foreach my $reg (@regs) {
else {
$class = get_reg_class($reg);
if (!defined $class) {
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;
}
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)) {
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) {
}
if ($has_limit) {