nsz Git - libfirm/blob - ir/be/scripts/generate_machine.pl

   1 #!/usr/bin/perl -w
   2
   3 # This script generates the data structures for the machine description.
   4 # Creation: 2006/10/20
   5 # $Id$
   6
   7 use strict;
   8 use Data::Dumper;
   9
  10 my $specfile   = $ARGV[0];
  11 my $target_dir = $ARGV[1];
  12
  13 our $arch;
  14 our %cpu;
  15
  16 # include spec file
  17
  18 my $return;
  19
  20 no strict "subs";
  21 unless ($return = do $specfile) {
  22         warn "couldn't parse $specfile: $@" if $@;
  23         warn "couldn't do $specfile: $!"    unless defined $return;
  24         warn "couldn't run $specfile"       unless $return;
  25 }
  26 use strict "subs";
  27
  28 my $target_c = $target_dir."/gen_".$arch."_machine.c";
  29 my $target_h = $target_dir."/gen_".$arch."_machine.h";
  30
  31 # stacks for output
  32 my @obst_unit_tp_defs;     # stack for execution unit type defines
  33 my @obst_unit_defs;        # stack for execution unit defines
  34 my @obst_init;             # stack for cpu description initialization
  35 my @obst_execunits;        # stack for execunit variables
  36 my @obst_execunits_header; # stack for execunit variables
  37 my @obst_init_unit_types;  # stack for unit type variable init
  38
  39 my $num_unit_types = scalar(keys(%cpu));
  40 my $tmp            = uc($arch);
  41 my $idx            = 0;
  42 my $has_desc       = defined(%cpu);
  43
  44 if ($has_desc) {
  45         push(@obst_unit_tp_defs, "/* enum for execution unit types */\n");
  46         push(@obst_unit_tp_defs, "enum $arch\_execunit_tp_vals {\n");
  47 }
  48
  49 foreach my $unit_type (keys(%cpu)) {
  50         my $tp_name   = "$tmp\_EXECUNIT_TP_$unit_type";
  51         my @cur_tp    = @{ $cpu{"$unit_type"} };
  52         my $num_units = scalar(@cur_tp);
  53
  54         push(@obst_init_unit_types, "\t{ $num_units, \"$unit_type\", $arch\_execution_units_$unit_type },\n");
  55         push(@obst_execunits, "be_execution_unit_t $arch\_execution_units_".$unit_type."[$num_units];\n");
  56         push(@obst_execunits_header, "extern be_execution_unit_t $arch\_execution_units_".$unit_type."[$num_units];\n");
  57
  58         push(@obst_unit_tp_defs, "\t$tp_name,\n");
  59         push(@obst_init, "\n\t\t/* init of execution unit type $tp_name */\n");
  60         push(@obst_init, "\t\tcur_unit_tp = &$arch\_execution_unit_types[$tp_name];\n");
  61
  62         push(@obst_unit_defs, "/* enum for execution units of type $unit_type */\n");
  63         push(@obst_unit_defs, "enum $arch\_execunit_tp_$unit_type\_vals {\n");
  64         foreach my $unit (@cur_tp) {
  65                 my $unit_name = "$tp_name\_$unit";
  66
  67                 push(@obst_unit_defs, "\t$unit_name,\n");
  68                 push(@obst_init, "\t\t$arch\_execution_units_".$unit_type."[".$unit_name."].tp   = cur_unit_tp;\n");
  69                 push(@obst_init, "\t\t$arch\_execution_units_".$unit_type."[".$unit_name."].name = \"$unit\";\n");
  70         }
  71         push(@obst_unit_defs, "};\n\n");
  72 }
  73
  74 push(@obst_unit_tp_defs, "};\n\n") if ($has_desc);
  75
  76 open(OUT, ">$target_h") || die("Could not open $target_h, reason: $!\n");
  77
  78 my $creation_time = localtime(time());
  79
  80 print OUT<<EOF;
  81 #ifndef _GEN_$tmp\_MACHINE_H_
  82 #define _GEN_$tmp\_MACHINE_H_
  83
  84 /**
  85  * Function prototypes for the machine description.
  86  * DO NOT EDIT THIS FILE, your changes will be lost.
  87  * Edit $specfile instead.
  88  * created by: $0 $specfile $target_dir
  89  * date:       $creation_time
  90  */
  91
  92 #include "../bemachine.h"
  93
  94 /**
  95  * Returns the $arch machine description.
  96  */
  97 const be_machine_t *$arch\_get_machine_description(void);
  98
  99 EOF
 100
 101 print OUT @obst_execunits_header, "\n";
 102 print OUT @obst_unit_tp_defs;
 103 print OUT @obst_unit_defs;
 104
 105 print OUT<<EOF;
 106
 107 #endif /* _GEN_$tmp\_MACHINE_H_ */
 108
 109 EOF
 110
 111 close(OUT);
 112
 113 open(OUT, ">$target_c") || die("Could not open $target_c, reason: $!\n");
 114
 115 $creation_time = localtime(time());
 116
 117 print OUT<<EOF;
 118 /**
 119  * Generated functions for machine description interface.
 120  * DO NOT EDIT THIS FILE, your changes will be lost.
 121  * Edit $specfile instead.
 122  * created by: $0 $specfile $target_dir
 123  * date:       $creation_time
 124  */
 125 #ifdef HAVE_CONFIG_H
 126 #include "config.h"
 127 #endif
 128
 129 #include "gen_$arch\_machine.h"
 130
 131 EOF
 132
 133 print OUT @obst_execunits;
 134
 135 print OUT<<EOF;
 136
 137 static be_execution_unit_type_t $arch\_execution_unit_types[] = {
 138 EOF
 139
 140 print OUT @obst_init_unit_types;
 141
 142 print OUT<<EOF;
 143 };
 144
 145 static be_machine_t $arch\_cpu = {
 146         $num_unit_types,
 147         $arch\_execution_unit_types
 148 };
 149
 150 /**
 151  * Returns the $arch machines description
 152  */
 153 const be_machine_t *$arch\_get_machine_description(void) {
 154         static int initialized = 0;
 155
 156         if (! initialized) {
 157                 be_execution_unit_type_t *cur_unit_tp;
 158 EOF
 159
 160 print OUT @obst_init;
 161
 162 print OUT<<EOF;
 163
 164                 initialized = 1;
 165         }
 166
 167         return &$arch\_cpu;
 168 }
 169
 170 EOF
 171
 172 close(OUT);