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

FpDebug, fpdumpdwarf: partial fix compilation

Browse Source 
git-svn-id: trunk@61721 -
This commit is contained in:
martin 2019-08-18 13:43:42 +00:00
parent c25bbdfbc0
commit a8233705f3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/app/fpdd/fpdumpdwarf.lpr
View File

@ -41,11 +41,12 @@ uses
var var
n, idx: Integer; n, idx: Integer;
Dwarf: TDbgDwarf; Dwarf: TFpDwarfInfo;
AbbrevDecoder: TDwarfAbbrevDecoder; AbbrevDecoder: TDwarfAbbrevDecoder;
StatementDecoder: TDwarfStatementDecoder; StatementDecoder: TDwarfStatementDecoder;
FrameDecoder: TVerboseDwarfCallframeDecoder; FrameDecoder: TVerboseDwarfCallframeDecoder;
Loader: TDbgImageLoader; Loader: TDbgImageLoader;
ImageLoaderList: TDbgImageLoaderList;
begin begin
if ParamCount < 1 if ParamCount < 1
@ -57,8 +58,10 @@ begin
DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_VERBOSE')^.Enabled := True; DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_VERBOSE')^.Enabled := True;
Loader := TDbgImageLoader.Create(ParamStr(1)); Loader := TDbgImageLoader.Create(ParamStr(1));
ImageLoaderList := TDbgImageLoaderList.Create(True);
Loader.AddToLoaderList(ImageLoaderList);
Dwarf := TDbgDwarf.Create(Loader); Dwarf := TFpDwarfInfo.Create(ImageLoaderList);
n := Dwarf.LoadCompilationUnits; n := Dwarf.LoadCompilationUnits;
for idx := 0 to n - 1 do for idx := 0 to n - 1 do
begin begin