1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!/usr/bin/perl
my %tables;
my @table_table;
my ($i, $name, $current_table, $entries);
my $last_line = "";
my $pfx="ia32";
print "#include \"$pfx" . "_insn.h\"\n\n";
print "#include \"$pfx" . "_reg.h\"\n\n";
print "#include \"$pfx" . "_opcode_tables.h\"\n\n";
$i = 0;
open(FILE, shift());
foreach (<FILE>){
chomp;
if ( /^TABLE ([A-Za-z0-9_]+)\t(tbl_[a-z_]+)\tshift ([0-9]+)\tmask ([0-9]+)\tminlim ([0-9]+)\tmaxlim ([0-9]+)\t"([^"]*)"$/ ) {
print "static $pfx" . "_insn_t $1";
print "[] = {\t/* $7 */\n";
$table_table[$i] = {};
$current_table = $table_table[$i];
$$current_table{'name'} = $1;
$$current_table{'type'} = $2;
$$current_table{'index'} = $i; #= $3;
$$current_table{'shift'} = $3;
$$current_table{'mask'} = $4;
$$current_table{'min'} = $5;
$$current_table{'max'} = $6;
$$current_table{'descr'} = $7;
$$current_table{'prefix'} = "pfx_" . $1;
$$current_table{'prefix_entries'} = [];
$i = $i + 1;
} elsif ( /^INSN (.+)$/ ) {
if ( $last_line ne "" ) {
print "$last_line,\n";
}
#Table|MnemFlag|DestFlag|SrcFlag|AuxFlag|CPU|mnem|dest|src|aux|flags_effected|ipmlicit|cmt
($t,$mf,$df,$sf,$af,$cpu,$m,$d,$s,$a,$flg,$imp,$cmt) =
split '\t', $1;
# -------------------------------------------------
# OK, add some custom code here to modify the insn
# -------------------------------------------------
$last_line = "\t$cmt { $t, $mf, $df, $sf, $af, $cpu, ";
$last_line = $last_line . $m . ", $d, $s, $a, $flg, $imp }";
} elsif ( /^END TABLE/ ) {
if ( $last_line ne "" ) {
print "$last_line\n";
}
$last_line = "";
print "};\n\n\n";
} elsif ( /^#/ or /^\s*$/ ) {
next;
}
}
close(FILE);
print "\n/* ================== Table of Opcode Tables ================== */\n";
print $pfx . "_table_desc_t $pfx" . "_tables[] = {\n";
print "\t/* table, prefix table, type, shift, mask, min, max */\n";
foreach ( @table_table ) {
if ( $$_{'index'} and !($$_{'index'} % 5) ) {
print "\t/* $$_{index} */\n";
}
printf "\t{ %s, %s, 0x%02X, 0x%02X, 0x%02X, 0x%02X }",
$$_{'name'} , $$_{'type'} ,
$$_{'shift'} , $$_{'mask'} , $$_{'min'} , $$_{'max'} ;
if ( $_ ne $table_table[ $#table_table ] ) {
print ",";
}
print "\n";
}
print "};\n";
# print table indices in a comment */
print "/* ia32_opcode_tables.h */\n";
print "/* Table index constants: \n";
foreach ( @table_table ) {
$name = $$_{'name'};
$name =~ s/tbl_/idx_/;
print "#define $name " . $$_{'index'} . "\n";
}
print "*/ \n";
|
