opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update DDetours sources to latest (2021-01-01)

Browse Source
This commit is contained in:
Ansgar Becker
2022-12-31 18:29:54 +01:00
parent 7fc5f3bf07
commit 8abb5dbfba
3 changed files with 104 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/detours/Source/DDetours.pas
View File

@ -17,6 +17,7 @@ unit DDetours;
{define FIX_MADEXCEPT if you are using crash on buffer overrun/underrun feature from MadExcept } {define FIX_MADEXCEPT if you are using crash on buffer overrun/underrun feature from MadExcept }
{.$DEFINE FIX_MADEXCEPT} {.$DEFINE FIX_MADEXCEPT}
{.$define DEVMODE}
{$IFDEF FPC} {$IFDEF FPC}
{$MODE DELPHI} {$MODE DELPHI}
@ -591,7 +592,7 @@ begin
{$IFDEF CPUX64} {$IFDEF CPUX64}
IsNxtInstData := ((PInst^.Disp.Flags and (dfUsed or dfRip) = (dfUsed or dfRip)) and (PInst^.Disp.Value = 0)); IsNxtInstData := ((PInst^.Disp.Flags and (dfUsed or dfRip) = (dfUsed or dfRip)) and (PInst^.Disp.Value = 0));
{$ELSE !CPUX64} {$ELSE !CPUX64}
IsNxtInstData := (PInst^.Disp.Value = UInt64(PInst^.NextInst)); IsNxtInstData := (PInst^.Disp.Value = Int64(PInst^.NextInst));
{$ENDIF CPUX64} {$ENDIF CPUX64}
if IsNxtInstData then if IsNxtInstData then
begin begin
@ -1037,7 +1038,7 @@ begin
GetMem(POpc, MAX_INST_LENGTH_N + 1); GetMem(POpc, MAX_INST_LENGTH_N + 1);
try try
// Opcsz := GetInstOpCodes(PInst, POpc); // Opcsz := GetInstOpCodes(PInst, POpc);
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 6); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 6);
Relsz := GetInt64Size(Offset); Relsz := GetInt64Size(Offset);
{$IFDEF CPUX64} {$IFDEF CPUX64}
if Relsz = ops16bits then if Relsz = ops16bits then
@ -1110,7 +1111,7 @@ begin
case Relsz of case Relsz of
ops16bits: ops16bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 5); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 5);
PQ^ := opPrfOpSize; PQ^ := opPrfOpSize;
Inc(PQ); Inc(PQ);
PWord(PQ)^ := LOOP_To_JccZ[PInst^.OpCode and 3]; PWord(PQ)^ := LOOP_To_JccZ[PInst^.OpCode and 3];
@ -1120,7 +1121,7 @@ begin
end; end;
ops32bits: ops32bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 6); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 6);
PWord(PQ)^ := LOOP_To_JccZ[PInst^.OpCode and 3]; PWord(PQ)^ := LOOP_To_JccZ[PInst^.OpCode and 3];
Inc(PQ, 2); Inc(PQ, 2);
PInt32(PQ)^ := Int32(Offset); PInt32(PQ)^ := Int32(Offset);
@ -1204,7 +1205,7 @@ begin
TEST CX,CX TEST CX,CX
JZ @Dst JZ @Dst
} }
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 5); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 5);
PQ^ := opPrfOpSize; PQ^ := opPrfOpSize;
Inc(PQ); Inc(PQ);
PQ^ := $0F; PQ^ := $0F;
@ -1220,7 +1221,7 @@ begin
TEST ECX,ECX TEST ECX,ECX
JZ @Dst JZ @Dst
} }
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 6); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 6);
PQ^ := $0F; PQ^ := $0F;
Inc(PQ); Inc(PQ);
PQ^ := $84; // JZ ! PQ^ := $84; // JZ !
@ -1261,7 +1262,7 @@ begin
case Relsz of case Relsz of
ops8bits: ops8bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 2); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 2);
PInt8(PQ)^ := UInt8(NOpc); PInt8(PQ)^ := UInt8(NOpc);
Inc(PQ); Inc(PQ);
PInt8(PQ)^ := Int8(Offset); PInt8(PQ)^ := Int8(Offset);
@ -1269,7 +1270,7 @@ begin
end; end;
ops16bits: ops16bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 5); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 5);
PUInt32(PQ)^ := UInt32(NOpc); PUInt32(PQ)^ := UInt32(NOpc);
Inc(PQ, 3); Inc(PQ, 3);
PInt16(PQ)^ := Int16(Offset); PInt16(PQ)^ := Int16(Offset);
@ -1277,7 +1278,7 @@ begin
end; end;
ops32bits: ops32bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(PQ) - 6); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(PQ) - 6);
PUInt16(PQ)^ := UInt16(NOpc); PUInt16(PQ)^ := UInt16(NOpc);
Inc(PQ, 2); Inc(PQ, 2);
PInt32(PQ)^ := Int32(Offset); PInt32(PQ)^ := Int32(Offset);
@ -1435,7 +1436,7 @@ var
P: PByte; P: PByte;
begin begin
P := NewAddr; P := NewAddr;
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(P) - 6); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(P) - 6);
Relsz := GetInt64Size(Offset); Relsz := GetInt64Size(Offset);
{$IFDEF CPUX64} {$IFDEF CPUX64}
{ Only 32-bits relative offset is supported on x64! } { Only 32-bits relative offset is supported on x64! }
@ -1449,7 +1450,7 @@ begin
case Relsz of case Relsz of
ops16bits: ops16bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(P) - 4); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(P) - 4);
P^ := opPrfOpSize; P^ := opPrfOpSize;
Inc(P); Inc(P);
P^ := $E8; P^ := $E8;
@ -1459,7 +1460,7 @@ begin
end; end;
ops32bits: ops32bits:
begin begin
Offset := Int64(UInt64(PInst^.Branch.Target) - UInt64(P) - 5); Offset := Int64(Int64(PInst^.Branch.Target) - Int64(P) - 5);
P^ := $E8; P^ := $E8;
Inc(P); Inc(P);
PInt32(P)^ := Int32(Offset); PInt32(P)^ := Int32(Offset);