X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fscripts%2Fgenerate_emitter.pl;h=dd4d46dd77ff0dac6411063ef817bcfa5452a015;hb=1b4cac3471b02b63e9656cd8c876f067766fe482;hp=0fc35bcd9592f30913e74a8316676289bf36cac6;hpb=be161fc85e4b1ab2d20a74f34018d6d03d77f80a;p=libfirm diff --git a/ir/be/scripts/generate_emitter.pl b/ir/be/scripts/generate_emitter.pl index 0fc35bcd9..dd4d46dd7 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. # @@ -22,24 +22,15 @@ # 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; -use File::Basename; -my $myname = $0; our $specfile = $ARGV[0]; our $target_dir = $ARGV[1]; our $arch; -our $comment_string = "/*"; -our $comment_string_end = "*/" ; our %nodes; -our $new_emit_syntax = 0; - -# include spec file my $return; @@ -51,25 +42,13 @@ unless ($return = do $specfile) { } use strict "subs"; -if ($new_emit_syntax) { - my $newscript = dirname($myname) . "/generate_emitter_new.pl"; - unless ($return = do "$newscript") { - 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; -} - -my $comment_string_quoted = quotemeta($comment_string); - 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"} }; @@ -77,99 +56,28 @@ foreach my $op (keys(%nodes)) { # skip this node description if no emit information is available next if (!defined($n{"emit"})); - $line = "static void emit_".$arch."_".$op."(const ir_node *n, $arch\_emit_env_t *env)"; - - push(@obst_register, " BE_EMIT($op);\n"); - - if($n{"emit"} eq "") { - push(@obst_func, $line." {\n"); - push(@obst_func, "}\n\n"); + if ($n{"emit"} eq "") { + $obst_register .= "\tbe_set_emitter(op_${arch}_${op}, be_emit_nothing);\n"; next; } - 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"); + $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'; - - push(@obst_func, $indent."cmnt_buf[0] = '\\0';\n"); - foreach $template (split(/$comment_string_quoted/, $fmt, 2)) { - my @params; - my $res = ""; - $cnt++; - - $template =~ s/(\\t)*$//; - - if ($cnt == 2) { - # add the comment begin string - $res .= $comment_string; - $buf = "cmnt_buf"; - } - - # substitute all format parameter - while ($template =~ /(\%\%)|\%([ASDX])(\d)|\%([COM])|\%(\w+)/) { - $res .= $`; # get everything before the match - - if ($1) { - $res .= "%%"; - } - elsif ($2 && $2 eq "S") { - push(@params, "n"); - $res .= "%".$3."S"; # substitute %Sx with %xS - } - elsif ($2 && $2 eq "D") { - push(@params, "n"); - $res .= "%".$3."D"; # substitute %Dx with %xD - } - elsif ($2 && $2 eq "X") { - push(@params, "n"); - $res .= "%".$3."X"; # substitute %Xx with %xX - } - elsif ($2 && $2 eq "A") { - push(@params, "get_irn_n(n, ".($3 - 1).")"); - $res .= "%+F"; - } - elsif ($4) { - push(@params, "n"); - $res .= "%".$4; - } - elsif ($5) { # backend provided function to call, has to return a string - push(@params, $5."(n, env)"); - $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"); - } - push(@obst_func, $indent.'lc_efprintf(arg_env, F, "\t%-35s %-60s '.$comment_string.' %+F (%+G) '.$comment_string_end.'\n", cmd_buf, cmnt_buf, n, n);'."\n"); - } - else { - push(@obst_func, $template,"\n"); + if ($template ne '') { + $obst_func .= "\t${arch}_emitf(node, \"$template\");\n"; } } - push(@obst_func, "}\n\n"); + $obst_func .= "}\n\n"; } -open(OUT, ">$target_h") || die("Fatal error: Could not open $target_h, reason: $!\n"); +open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n"); my $creation_time = localtime(time()); @@ -188,9 +96,9 @@ print OUT<$target_c") || die("Fatal error: Could not open $target_c, reason: $!\n"); +open(OUT, ">$target_c") || die("Could not open $target_c, reason: $!\n"); $creation_time = localtime(time()); 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" - -EOF +#include "gen_${arch}_emitter.h" +#include "${arch}_new_nodes.h" +#include "${arch}_emitter.h" -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<