paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 13:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fixed compilation on Windows

Browse Source
This commit is contained in:
Joost van der Sluis 2021-12-14 10:35:59 +01:00
parent 70d007f0de
commit 190a7267c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpimgreaderwinpe.pas
View File

@ -228,10 +228,10 @@ var
{$ENDIF} {$ENDIF}
begin begin
{$ifdef windows} {$ifdef windows}
if LoadedTargetImageAddr = 0 then if ImageBase = 0 then
exit; exit;
SetImageBase(LoadedTargetImageAddr); SetImageBase(ImageBase);
FFileLoader.LoadMemory(0, 1, hBase); // size does not matter, only obtain address FFileLoader.LoadMemory(0, 1, hBase); // size does not matter, only obtain address
if (hBase = nil) or (hBase^.e_magic <> IMAGE_DOS_SIGNATURE) then if (hBase = nil) or (hBase^.e_magic <> IMAGE_DOS_SIGNATURE) then
exit; exit;
@ -292,7 +292,7 @@ begin
if FuncAddr = 0 then if FuncAddr = 0 then
Continue; Continue;
AFpSymbolInfo.Add(FuncName, LoadedTargetImageAddr + FuncAddr); AFpSymbolInfo.Add(FuncName, ImageBase + FuncAddr);
end; end;
{$ENDIF} {$ENDIF}
end; end;