X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fscripts%2Fgenerate_emitter.pl;h=b05af7eaabea3db3b59c0061148458ef23c183a9;hb=040868cbcb834457c8195efbbccf221123c7f153;hp=4720526f5b35aac949027d4212c39f61fc757169;hpb=e15fe528133f4205663a91bd68defaf510e9bc68;p=libfirm diff --git a/ir/be/scripts/generate_emitter.pl b/ir/be/scripts/generate_emitter.pl index 4720526f5..b05af7eaa 100755 --- a/ir/be/scripts/generate_emitter.pl +++ b/ir/be/scripts/generate_emitter.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# Copyright (C) 1995-2007 University of Karlsruhe. All right reserved. +# Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. # # This file is part of libFirm. # @@ -45,18 +45,18 @@ my $return; 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") { - 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; } @@ -169,7 +169,7 @@ foreach my $op (keys(%nodes)) { 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()); @@ -198,7 +198,7 @@ EOF 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());