paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +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}
begin
{$ifdef windows}
if LoadedTargetImageAddr = 0 then
if ImageBase = 0 then
exit;
SetImageBase(LoadedTargetImageAddr);
SetImageBase(ImageBase);
FFileLoader.LoadMemory(0, 1, hBase); // size does not matter, only obtain address
if (hBase = nil) or (hBase^.e_magic <> IMAGE_DOS_SIGNATURE) then
exit;
@ -292,7 +292,7 @@ begin
if FuncAddr = 0 then
Continue;
AFpSymbolInfo.Add(FuncName, LoadedTargetImageAddr + FuncAddr);
AFpSymbolInfo.Add(FuncName, ImageBase + FuncAddr);
end;
{$ENDIF}
end;