paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +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>
</CompilerOptions>
</Item2>
<SharedMatrixOptions Count="2">
<SharedMatrixOptions Count="3">
<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)"/>
<Item3 ID="712135219640" Modes="Default,opti" Value="-dDwarfTestAccess"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>

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

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

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

@ -754,7 +754,7 @@ var
s2.GoNext;
inc(i);
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;
if not FShowingUnit then break;
end;
@ -768,7 +768,6 @@ var
i: Integer;
s: TDwarfScopeInfo;
Node: TTreeNode;
rs: TDwarfScopeInfo;
begin
FShowingUnit := not FShowingUnit;//////////////////
if not FShowingUnit then exit;/////////////////
@ -781,7 +780,6 @@ begin
if CU = nil then exit;
s := CU.FirstScope;
BaseScopeAddr := s.Entry;
CU.LocateEntry(0, rs);
Node := nil;
while s.IsValid do begin