#!/usr/bin/perl -w
+#
+# Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
+#
+# This file is part of libFirm.
+#
+# This file may be distributed and/or modified under the terms of the
+# GNU General Public License version 2 as published by the Free Software
+# Foundation and appearing in the file LICENSE.GPL included in the
+# packaging of this file.
+#
+# Licensees holding valid libFirm Professional Edition licenses may use
+# this file in accordance with the libFirm Commercial License.
+# Agreement provided with the Software.
+#
+# This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+# WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE.
+#
+
# This script generates C code which emits assembler code for the
# assembler ir nodes. It takes a "emit" key from the node specification
# and substitutes lines starting with . with a corresponding fprintf().
no strict "subs";
unless ($return = do $specfile) {
- warn "couldn't parse $specfile: $@" if $@;
- warn "couldn't do $specfile: $!" unless defined $return;
- warn "couldn't run $specfile" unless $return;
+ die "couldn't parse $specfile: $@" if $@;
+ die "couldn't do $specfile: $!" unless defined $return;
+ die "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") {
- warn "couldn't parse $newscript: $@" if $@;
- warn "couldn't do $newscript: $!" unless defined $return;
- warn "couldn't run $newscript" unless $return;
+ die "couldn't parse $newscript: $@" if $@;
+ die "couldn't do $newscript: $!" unless defined $return;
+ die "couldn't run $newscript" unless $return;
}
+ exit;
}
my $comment_string_quoted = quotemeta($comment_string);