X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;ds=sidebyside;f=ir%2Fbe%2Fscripts%2Fgenerate_emitter.pl;h=dd4d46dd77ff0dac6411063ef817bcfa5452a015;hb=1b4cac3471b02b63e9656cd8c876f067766fe482;hp=59d09395e1456f7f50774d71cb04167e219fd2cc;hpb=bc577a3d6742d979a38ccd6bdc02ec0d751239da;p=libfirm diff --git a/ir/be/scripts/generate_emitter.pl b/ir/be/scripts/generate_emitter.pl index 59d09395e..dd4d46dd7 100755 --- a/ir/be/scripts/generate_emitter.pl +++ b/ir/be/scripts/generate_emitter.pl @@ -1,121 +1,80 @@ #!/usr/bin/perl -w +# +# Copyright (C) 1995-2008 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(). -# Creation: 2005/11/07 -# $Id$ use strict; use Data::Dumper; -my $specfile = $ARGV[0]; -my $target_dir = $ARGV[1]; +our $specfile = $ARGV[0]; +our $target_dir = $ARGV[1]; our $arch; our %nodes; -# include spec file - my $return; 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 "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"; my $target_c = $target_dir."/gen_".$arch."_emitter.c"; my $target_h = $target_dir."/gen_".$arch."_emitter.h"; -# stacks for output -my @obst_func; # stack for the emit functions -my @obst_register; # stack for emitter register code -my $line; +# buffers for output +my $obst_func = ""; # buffer for the emit functions +my $obst_register = ""; # buffer for emitter register code + foreach my $op (keys(%nodes)) { my %n = %{ $nodes{"$op"} }; # skip this node description if no emit information is available - next if (!$n{"emit"} || length($n{"emit"}) < 1); + next if (!defined($n{"emit"})); + + if ($n{"emit"} eq "") { + $obst_register .= "\tbe_set_emitter(op_${arch}_${op}, be_emit_nothing);\n"; + next; + } - $line = "static void emit_".$arch."_".$op."(const ir_node *n, emit_env_t *env)"; - push(@obst_func, $line." {\n FILE *F = env->out;\n"); - push(@obst_func, " char cmd_buf[256], cmnt_buf[256];\n"); - push(@obst_func, " const lc_arg_env_t *arg_env = $arch\_get_arg_env();\n\n"); - push(@obst_register, " BE_EMIT($op);\n"); + $obst_register .= "\tbe_set_emitter(op_${arch}_${op}, emit_${arch}_${op});\n"; + + $obst_func .= "static void emit_${arch}_${op}(ir_node const *const node)\n"; + $obst_func .= "{\n"; my @emit = split(/\n/, $n{"emit"}); foreach my $template (@emit) { - # substitute only lines, starting with a '.' - if ($template =~ /^(\d*)\.\s*/) { - my $indent = " "; # default indent is 2 spaces - - $indent = " " x $1 if ($1 && $1 > 0); - # remove indent, dot and trailing spaces - $template =~ s/^\d*\.\s*//; - my $fmt = $template; - my $cnt = 0; - my $buf = 'cmd_buf'; - - foreach $template (split(/\/\*/, $fmt, 2)) { - my @params; - my $res = ""; - $cnt++; - - $template =~ s/(\\t)*$//; - - if ($cnt == 2) { - # add the comment begin string - $res .= "/*"; - $buf = "cmnt_buf"; - } - - # substitute all format parameter - while ($template =~ /\%([ASD])(\d)|\%([COM])|\%(\w+)/) { - $res .= $`; # get everything before the match - - if ($1 && $1 eq "S") { - push(@params, "n"); - $res .= "%".$2."S"; # substitute %Sx with %xS - } - elsif ($1 && $1 eq "D") { - push(@params, "n"); - $res .= "%".$2."D"; # substitute %Dx with %xD - } - elsif ($1 && $1 eq "A") { - push(@params, "get_irn_n(n, ".($2 - 1).")"); - $res .= "%+F"; - } - elsif ($3) { - push(@params, "n"); - $res .= "%".$3; - } - elsif ($4) { # backend provided function to call, has to return a string - push(@params, $4."(n)"); - $res .= "\%s"; - } - - $template = $'; # scan everything after the match - } - $res .= $template; # get the remaining string - - my $parm = ""; - $parm = ", ".join(", ", @params) if (@params); - - push(@obst_func, $indent.'lc_esnprintf(arg_env, '.$buf.', 256, "'.$res.'"'.$parm.');'."\n"); - } - } - else { - push(@obst_func, $template,"\n"); + if ($template ne '') { + $obst_func .= "\t${arch}_emitf(node, \"$template\");\n"; } } - push(@obst_func, ' lc_efprintf(arg_env, F, "\t%-35s %-60s /* %+F */\n", cmd_buf, cmnt_buf, n);'."\n"); - push(@obst_func, "}\n\n"); + $obst_func .= "}\n\n"; } open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n"); @@ -125,23 +84,23 @@ my $creation_time = localtime(time()); my $tmp = uc($arch); print OUT< +#include #include "irnode.h" #include "irop_t.h" #include "irprog_t.h" +#include "beemitter.h" -#include "gen_$arch\_emitter.h" -#include "$arch\_new_nodes.h" +#include "gen_${arch}_emitter.h" +#include "${arch}_new_nodes.h" +#include "${arch}_emitter.h" -EOF - -print OUT @obst_func; +$obst_func -print OUT<ops.generic = (op_func)emit_$arch\_##a - - /* generated emitter functions */ -EOF - -print OUT @obst_register; - -print OUT<