I has found and fix the bug under win64 platform
Posted: Tue Dec 04, 2018 1:50 pm
In madTools.pas fix "function MethodToProcedure" under win64;
var s1arr:array[0..79] of byte=($48,$81,$ec,$00,$00,$00,$00,
$48,$89,$84,$24,$00,$00,$00,$00,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$08,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$10,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$18,
$4c,$89,$4c,$24,$20,
$4d,$89,$c1,
$49,$89,$d0,
$48,$89,$ca,
$66,$0f,$6f,$da,
$66,$0f,$6f,$d1,
$66,$0f,$6f,$c8);
var s2arr:array[0..15] of byte=($48,$8b,$84,$24,0,0,0,0,
$48,$89,$84,$24,0,0,0,0);
var s22arr:array[0..54] of byte=($48,$8b,$84,$24,0,0,0,0,
$48,$b9,0,0,0,0,0,0,0,0,
$48,$89,$8c,$24,0,0,0,0,
$48,$b9,0,0,0,0,0,0,0,0,
$48,$89,$0c,$24,
$ff,$94,$24,0,0,0,0,
$48,$81,$c4,0,0,0,0,
$c3);
setlength(s1,80);
copymemory(Pansichar(s1),@s1arr[0],80);
.......
setlength(s2,16);
copymemory(Pansichar(s2),@s2arr[0],16);
.......
setlength(s2,55);
copymemory(Pansichar(s2),@s22arr[0],55);
then It's Work Ok!
var s1arr:array[0..79] of byte=($48,$81,$ec,$00,$00,$00,$00,
$48,$89,$84,$24,$00,$00,$00,$00,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$08,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$10,
$48,$8b,$84,$24,$00,$00,$00,$00,
$48,$89,$44,$24,$18,
$4c,$89,$4c,$24,$20,
$4d,$89,$c1,
$49,$89,$d0,
$48,$89,$ca,
$66,$0f,$6f,$da,
$66,$0f,$6f,$d1,
$66,$0f,$6f,$c8);
var s2arr:array[0..15] of byte=($48,$8b,$84,$24,0,0,0,0,
$48,$89,$84,$24,0,0,0,0);
var s22arr:array[0..54] of byte=($48,$8b,$84,$24,0,0,0,0,
$48,$b9,0,0,0,0,0,0,0,0,
$48,$89,$8c,$24,0,0,0,0,
$48,$b9,0,0,0,0,0,0,0,0,
$48,$89,$0c,$24,
$ff,$94,$24,0,0,0,0,
$48,$81,$c4,0,0,0,0,
$c3);
setlength(s1,80);
copymemory(Pansichar(s1),@s1arr[0],80);
.......
setlength(s2,16);
copymemory(Pansichar(s2),@s2arr[0],16);
.......
setlength(s2,55);
copymemory(Pansichar(s2),@s22arr[0],55);
then It's Work Ok!