Macintosh-Tools/macemu
1
0
Fork 0
mirror of https://github.com/kanjitalk755/macemu.git synced 2025-02-16 14:30:34 +00:00
Code Issues Projects Releases Wiki Activity

JIT code patch tool

Browse Source
This commit is contained in:
kanjitalk755 2017-12-04 21:25:52 +09:00
parent 6eaa8cb232
commit 616fb5808c
1 changed files with 166 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

166
SheepShaver/src/Unix/dyngen_precompiled/patch_jit.pl Executable file
View File

@ -0,0 +1,166 @@
#! /usr/bin/perl
open(S, "basic-dyngen-ops-x86_64.hpp") || die;
open(O, "> basic-dyngen-ops-x86_64_macos.hpp") || die;
select O;
&patch;
close S;
close O;
open(S, "ppc-dyngen-ops-x86_64.hpp") || die;
open(O, "> ppc-dyngen-ops-x86_64_macos.hpp") || die;
select O;
&patch;
close S;
close O;
exit 0;
sub patch {
print << "EOM";
#define ADD_RAX_RCX 0x01,0xc8
#define ADD_RDX_RCX 0x01,0xca
#define ADD_RAX_RDX 0x01,0xd0
#define TRANS_RAX \\
0x48,0x3D,0x00,0x30,0x00,0x00,\\
0x72,0x16,\\
0x48,0x3D,0x00,0xE0,0xFF,0x5F,\\
0x72,0x14,\\
0x48,0x25,0xFF,0x1F,0x00,0x00,\\
0x48,0x05,0x00,0x00,0x00,0x00,\\
0xEB,0x06,\\
0x48,0x05,0x00,0x00,0x00,0x00
#define TRANS_RDX \\
0x48,0x81,0xFA,0x00,0x30,0x00,0x00,\\
0x72,0x19,\\
0x48,0x81,0xFA,0x00,0xE0,0xFF,0x5F,\\
0x72,0x17,\\
0x48,0x81,0xE2,0xFF,0x1F,0x00,0x00,\\
0x48,0x81,0xC2,0x00,0x00,0x00,0x00,\\
0xEB,0x07,\\
0x48,0x81,0xC2,0x00,0x00,0x00,0x00
#ifdef DYNGEN_IMPL
extern uint8 gZeroPage[0x3000], gKernelData[0x2000];
#endif
EOM
@keys = ("8b0402", "890c10", "891401", "890a", "8910", "882402", "8b00",
"8902", "0fb620", "8820", "0fb700", "0fb62402", "0fb70402", "890411");
@keys_add_rax_rdx = ("8b0402", "890c10", "882402", "0fb62402", "0fb70402");
@keys_trans_rdx = ("890a", "8902", "890411");
$keys_add{"891401"} = "ADD_RAX_RCX";
$keys_add{"890411"} = "ADD_RDX_RCX";
$keys{$_} = 1 while $_ = shift @keys;
$keys_add{$_} = "ADD_RAX_RDX" while $_ = shift @keys_add_rax_rdx;
$keys_trans_rdx{$_} = 1 while $_ = shift @keys_trans_rdx;
while (<S>) {
if (/static const uint8 (.+)\[/) {
print;
$name = $1;
$valid = $name =~ /load|store/;
}
elsif ($valid) {
if (/0x/) {
s/\s//g;
s/0x//g;
@code = (@code, split(",", $_));
}
elsif (/};/) {
$n = 0;
$once = 0;
@ofs_k = ();
@ofs_z = ();
while (1) {
$found = -1;
$prefix = 0;
for ($i = 0; $i < @code - 1; $i++) {
$key = $code[$i] . $code[$i + 1];
if ($keys{$key}) {
$found = $i;
$once = 1;
last;
}
$key .= $code[$i + 2];
if ($keys{$key}) {
$found = $i;
$once = 1;
last;
}
$key .= $code[$i + 3];
if ($keys{$key}) {
$found = $i;
$once = 1;
last;
}
}
if ($i > 0 && $code[$i - 1] =~ /44|48|66/) {
$prefix = 1;
$found--;
}
last if $found < 0;
$n += $found;
print " ";
for ($i = 0; $i < $found; $i++) {
printf "0x%s", shift @code;
print @code ? $i % 12 == 11 ? ",\n " : ", " : "\n };\n";
}
if ($keys_add{$key}) {
$n += 2;
printf "\n %s,", $keys_add{$key};
}
$trans_rdx = $keys_trans_rdx{$key};
push @ofs_k, $n + ($trans_rdx ? 0x1c : 0x18);
push @ofs_z, $n + ($trans_rdx ? 0x25 : 0x20);
$n += $trans_rdx ? 0x29 : 0x24;
printf "\n TRANS_%s,\n ", $trans_rdx ? "RDX" : "RAX";
if ($prefix) {
$n++;
printf "0x%02s, ", shift @code;
}
if ($keys_add{$key}) {
$n += 2;
if (length($key) == 8) {
$n++;
printf "0x%02s, ", shift @code if length($key) == 8;
}
printf "0x%02s, ", shift @code;
printf "0x%02x,\n", hex(shift @code) - ($keys_add{$key} =~ /RAX/ ? 4 : 2);
shift @code;
}
else {
for ($i = 0; $i < length($key); $i += 2) {
$n++;
printf "0x%s, ", shift @code;
}
print "\n";
}
}
$valid = $once;
if (@code) {
$n += @code;
print " ";
for ($i = 0; @code; $i++) {
printf "0x%s", shift @code;
printf "%s", @code ==0 ? "\n" : $i % 12 == 11 ? ",\n " : ", ";
}
}
print " };\n";
}
elsif (/copy_block/) {
printf " copy_block(%s, %d);\n", $name, $n;
printf " *(uint32_t *)(code_ptr() + %d) = (uint32_t)(uintptr)gKernelData;\n", shift @ofs_k while @ofs_k;
printf " *(uint32_t *)(code_ptr() + %d) = (uint32_t)(uintptr)gZeroPage;\n", shift @ofs_z while @ofs_z;
}
elsif (/inc_code_ptr/) {
printf " inc_code_ptr(%d);\n", $n;
}
else {
print;
}
}
else {
print;
}
}
}