paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 06:20:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpdebug: fix compile for win

Browse Source 
git-svn-id: trunk@48997 -
This commit is contained in:
martin 2015-05-12 17:59:24 +00:00
parent 2785411ce8
commit 8e4a8c8468
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/fpdbgloader.pp
View File

@ -70,7 +70,7 @@ type
constructor Create(AFileName: String; ADebugMap: TObject = nil);
procedure ParseSymbolTable(AFpSymbolInfo: TfpSymbolList);
{$ifdef USE_WIN_FILE_MAPPING}
constructor Create(AFileHandle: THandle);
constructor Create(AFileHandle: THandle; ADebugMap: TObject = nil);
{$endif}
destructor Destroy; override;
function IsValid: Boolean;
@ -198,10 +198,10 @@ begin
end;
{$ifdef USE_WIN_FILE_MAPPING}
constructor TDbgImageLoader.Create(AFileHandle: THandle);
constructor TDbgImageLoader.Create(AFileHandle: THandle; ADebugMap: TObject = nil);
begin
FFileLoader := TDbgFileLoader.Create(AFileHandle);
FImgReader := GetImageReader(FFileLoader, True);
FImgReader := GetImageReader(FFileLoader, ADebugMap, True);
end;
{$endif}