3 # perl replacement of genmdesc.c for use when cross-compiling
8 # must keep in sync with mini.h
9 my @spec_names = qw(dest src1 src2 src3 len clob);
10 sub INST_DEST () {return 0;}
11 sub INST_SRC1 () {return 1;}
12 sub INST_SRC2 () {return 2;}
13 sub INST_SRC3 () {return 3;}
14 sub INST_LEN () {return 4;}
15 sub INST_CLOB () {return 5;}
16 sub INST_NACL () {return 6;}
17 sub INST_MAX () {return 7;}
19 # this must include all the #defines used in mini-ops.h
20 my @defines = qw (__i386__ __x86_64__ __ppc__ __powerpc__ __ppc64__ __arm__
21 __sparc__ sparc __s390__ s390 __ia64__ __alpha__ __mips__);
23 my %template_table =();
28 my ($define, $file) = @_;
31 open (OPS, $file) || die "Cannot open $file: $!";
33 if (/^\s*#\s*if\s+(.*)/) {
35 die "fix the genmdesc.pl cpp parser to handle all operators" if /(&&)|([!<>=])/;
36 unshift @enabled, scalar ($defines =~ /defined\s*\(\s*$define\s*\)/);
39 if (/^\s*#\s*ifdef\s+(\S+)/) {
41 unshift @enabled, $defines eq $define;
44 if (/^\s*#\s*endif/) {
48 next unless $enabled [0];
49 next unless /MINI_OP3?\s*\(\s*(\S+?)\s*,\s*"(.*?)"/;
50 my ($sym, $name) = ($1, $2);
51 push @opcodes, [$sym, $name];
52 $table{$name} = {num => $i, name => $name};
60 my ($srcdir, $arch) = @_;
61 my $opcodes_def = "$srcdir/../cil/opcode.def";
65 my $cpp = $ENV{"CPP"};
66 $cpp = "cpp" unless defined $cpp;
70 $arch_found = 1 if $arch eq $_;
72 die "$arch arch is not supported.\n" unless $arch_found;
74 my $arch_define = $arch;
75 if ($arch =~ "__i386__") {
76 $arch_define = "TARGET_X86";
78 if ($arch =~ " __x86_64__") {
79 $arch_define = "TARGET_AMD64";
81 if ($arch =~ "__arm__") {
82 $arch_define = "TARGET_ARM";
85 parse_file ($arch_define, "$srcdir/mini-ops.h");
87 $cpp .= " -D$arch_define $srcdir/mini-ops.h|";
88 #print "Running: $cpp\n";
89 open (OPS, $cpp) || die "Cannot execute cpp: $!";
91 next unless /MINI_OP3?\s*\(\s*(\S+?)\s*,\s*"(.*?)"/;
92 my ($sym, $name) = ($1, $2);
93 push @opcodes, [$sym, $name];
94 $table{$name} = {num => $i, name => $name};
105 open (DESC, $name) || die "Cannot open $name: $!";
114 my @values = split (/\s+/);
115 next unless ($values [0] =~ /(\S+?):/);
118 if ($name eq "template") {
122 $desc = $table {$name};
123 die "Invalid opcode $name at line $line\n" unless defined $desc;
124 die "Duplicated opcode $name at line $line\n" if $desc->{"desc"};
127 $desc->{"desc"} = $_;
128 $desc->{"comment"} = $comment;
129 $desc->{"spec"} = {};
131 #print "values for $name: " . join (' ', @values) . " num: " . int(@values), "\n";
132 for my $val (@values) {
133 if ($val =~ /(\S+):(.*)/) {
135 die "name tag only valid in templates at line $line\n" unless $is_template;
136 die "Duplicated name tag in template $desc->{'name'} at line $line\n" if defined $desc->{'name'};
137 die "Duplicated template $2 at line $line\n" if defined $template_table {$2};
138 $desc->{'name'} = $2;
139 $template_table {$2} = $desc;
140 } elsif ($1 eq "template") {
141 my $tdesc = $template_table {$2};
142 die "Invalid template name $2 at line $line\n" unless defined $tdesc;
143 $desc->{"spec"} = {%{$tdesc->{"spec"}}};
145 $desc->{"spec"}->{$1} = $2;
149 die "Template without name at line $1" if ($is_template && !defined ($desc->{'name'}));
158 foreach (@spec_names) {
159 my $val = $spec->{$_};
166 #print "vals: " . join (' ', @vals) . "\n";
168 for (my $i = 0; $i < @vals; ++$i) {
169 if (defined $vals [$i]) {
170 if ($i == INST_LEN) {
171 $res .= sprintf ("\\x%x\" \"", +$vals [$i]);
173 if ($vals [$i] =~ /^[a-zA-Z0-9]$/) {
176 $res .= sprintf ("\\x%x\" \"", $vals [$i]);
187 my ($fname, $name) = @_;
190 my $idx_array = "const guint16 ${name}_idx [] = {\n";
192 open (OUT, ">$fname") || die "Cannot open file $fname: $!";
193 print OUT "/* File automatically generated by genmdesc, don't change */\n\n";
194 print OUT "const char $name [] = {\n";
195 print OUT "\t\"" . ("\\x0" x INST_MAX) . "\"\t/* null entry */\n";
198 for ($i = 0; $i < @opcodes; ++$i) {
199 my $name = $opcodes [$i]->[1];
200 my $desc = $table {$name};
201 my $spec = $desc->{"spec"};
204 print OUT build_spec ($spec);
205 print OUT "\"\t/* $name */\n";
206 my $pos = $idx * INST_MAX;
207 $idx_array .= "\t$pos,\t/* $name */\n";
210 $idx_array .= "\t0,\t/* $name */\n";
214 print OUT "$idx_array};\n\n";
219 die "genmdesc.pl arch srcdir output name desc [desc2 ...]\n";
222 my $arch = shift || usage ();
223 my $srcdir = shift || usage ();
224 my $output = shift || usage ();
225 my $name = shift || usage ();
226 usage () unless @ARGV;
229 load_opcodes ($srcdir, $arch);
230 foreach my $file (@files) {
233 build_table ($output, $name);