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 len clob);
10 sub INST_DEST () {return 0;}
11 sub INST_SRC1 () {return 1;}
12 sub INST_SRC2 () {return 2;}
13 sub INST_LEN () {return 3;}
14 sub INST_CLOB () {return 4;}
15 sub INST_MAX () {return 5;}
17 # this must include all the #defines used in mini-ops.h
18 my @defines = qw (__i386__ __x86_64__ __ppc__ __powerpc__ __arm__
19 __sparc__ sparc __s390__ s390 __ia64__ __alpha__ __mips__);
25 my ($srcdir, $arch) = @_;
26 my $opcodes_def = "$srcdir/../cil/opcode.def";
30 open (OPS, "$opcodes_def") || die "Cannot open $opcodes_def: $!";
32 next unless /OPDEF\s*\(\s*(\S+?)\s*,\s*"(.*?)"/;
33 my ($sym, $name) = ($1, $2);
34 push @opcodes, [$sym, $name];
35 $table{$name} = {num => $i, name => $name};
39 my $cpp = $ENV{"CPP"};
40 $cpp = "cpp" unless defined $cpp;
44 $arch_found = 1 if $arch eq $_;
46 die "$arch arch is not supported.\n" unless $arch_found;
48 $cpp .= " -D$arch $srcdir/mini-ops.h|";
49 #print "Running: $cpp\n";
50 open (OPS, $cpp) || die "Cannot execute cpp: $!";
52 next unless /MINI_OP\s*\(\s*(\S+?)\s*,\s*"(.*?)"/;
53 my ($sym, $name) = ($1, $2);
54 push @opcodes, [$sym, $name];
55 $table{$name} = {num => $i, name => $name};
66 open (DESC, $name) || die "Cannot open $name: $!";
74 my @values = split (/\s+/);
75 next unless ($values [0] =~ /(\S+?):/);
77 my $desc = $table {$name};
79 die "Invalid opcode $name at line $line\n" unless defined $desc;
80 die "Duplicated opcode $name at line $line\n" if $desc->{"desc"};
82 $desc->{"comment"} = $comment;
85 #print "values for $name: " . join (' ', @values) . " num: " . int(@values), "\n";
86 for my $val (@values) {
87 if ($val =~ /(\S+):(.*)/) {
88 $desc->{"spec"}->{$1} = $2;
99 foreach (@spec_names) {
100 my $val = $spec->{$_};
107 #print "vals: " . join (' ', @vals) . "\n";
109 for (my $i = 0; $i < @vals; ++$i) {
110 if (defined $vals [$i]) {
111 if ($i == INST_LEN) {
112 $res .= sprintf ("\\x%x\" \"", +$vals [$i]);
114 if ($vals [$i] =~ /^[a-zA-Z0-9]$/) {
117 $res .= sprintf ("\\x%x\" \"", $vals [$i]);
128 my ($fname, $name) = @_;
131 my $idx_array = "const guint16 ${name}_idx [] = {\n";
133 open (OUT, ">$fname") || die "Cannot open file $fname: $!";
134 print OUT "/* File automatically generated by genmdesc, don't change */\n\n";
135 print OUT "const char $name [] = {\n";
136 print OUT "\t\"" . ("\\x0" x INST_MAX) . "\"\t/* null entry */\n";
139 for ($i = 0; $i < @opcodes; ++$i) {
140 my $name = $opcodes [$i]->[1];
141 my $desc = $table {$name};
142 my $spec = $desc->{"spec"};
145 print OUT build_spec ($spec);
146 print OUT "\"\t/* $name */\n";
147 my $pos = $idx * INST_MAX;
148 $idx_array .= "\t$pos,\t/* $name */\n";
151 $idx_array .= "\t0,\t/* $name */\n";
155 print OUT "$idx_array};\n\n";
160 die "genmdesc.pl arch srcdir desc output name\n";
163 my $arch = shift || usage ();
164 my $srcdir = shift || usage ();
165 my $file = shift || usage ();
166 my $output = shift || usage ();
167 my $name = shift || usage ();
169 load_opcodes ($srcdir, $arch);
171 build_table ($output, $name);