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

DwarfViewer: fix compile

Browse Source 
git-svn-id: trunk@65224 -
This commit is contained in:
martin 2021-06-14 07:30:35 +00:00
parent 6f17bec491
commit 699930263c
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/test/dwarfviewer/dwarfviewer.lpi
View File

@ -41,9 +41,10 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
<SharedMatrixOptions Count="2"> <SharedMatrixOptions Count="3">
<Item1 ID="895625787544" Modes="opti" Type="IDEMacro" MacroName="IDEBuildOptions" Value="-gw -O3 -OpPENTIUMM -OoREGVAR -OoSTACKFRAME -OoPEEPHOLE"/> <Item1 ID="895625787544" Modes="opti" Type="IDEMacro" MacroName="IDEBuildOptions" Value="-gw -O3 -OpPENTIUMM -OoREGVAR -OoSTACKFRAME -OoPEEPHOLE"/>
<Item2 ID="869072173489" Modes="opti" Type="OutDir" Value="lib/$(TargetCPU)-$(TargetOS)/$(BuildMode)"/> <Item2 ID="869072173489" Modes="opti" Type="OutDir" Value="lib/$(TargetCPU)-$(TargetOS)/$(BuildMode)"/>
<Item3 ID="712135219640" Modes="Default,opti" Value="-dDwarfTestAccess"/>
</SharedMatrixOptions> </SharedMatrixOptions>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>

4
components/fpdebug/test/dwarfviewer/dwarfviewer.lpr
View File

@ -3,9 +3,9 @@ program dwarfviewer;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, Unit1; Forms, Unit1;

4
components/fpdebug/test/dwarfviewer/unit1.pas
View File

@ -754,7 +754,7 @@ var
s2.GoNext; s2.GoNext;
inc(i); inc(i);
if (i and 31) = 0 then begin if (i and 31) = 0 then begin
StatusBar1.SimpleText := IntToHex(s2.Index,8) + ' / '+ IntToHex(CU.InfoDataLength,8); StatusBar1.SimpleText := IntToHex(s2.Index,8) + ' / '+ IntToHex(s2.ScopeListPtr^.HighestKnown,8)+' // '+format('%2.1f',[s2.Index*100/s2.ScopeListPtr^.HighestKnown]);
Application.ProcessMessages; Application.ProcessMessages;
if not FShowingUnit then break; if not FShowingUnit then break;
end; end;
@ -768,7 +768,6 @@ var
i: Integer; i: Integer;
s: TDwarfScopeInfo; s: TDwarfScopeInfo;
Node: TTreeNode; Node: TTreeNode;
rs: TDwarfScopeInfo;
begin begin
FShowingUnit := not FShowingUnit;////////////////// FShowingUnit := not FShowingUnit;//////////////////
if not FShowingUnit then exit;///////////////// if not FShowingUnit then exit;/////////////////
@ -781,7 +780,6 @@ begin
if CU = nil then exit; if CU = nil then exit;
s := CU.FirstScope; s := CU.FirstScope;
BaseScopeAddr := s.Entry; BaseScopeAddr := s.Entry;
CU.LocateEntry(0, rs);
Node := nil; Node := nil;
while s.IsValid do begin while s.IsValid do begin