paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 19:29:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Cleanup compiler hints

Browse Source
This commit is contained in:
Martin 2021-12-11 00:26:34 +01:00
parent 6e5c00bb59
commit a1c6e559e1
4 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarf.pas
View File

@ -1322,7 +1322,7 @@ function TFpDwarfInfoSymbolScope.FindExportedSymbolInUnit(
CU: TDwarfCompilationUnit; const ANameInfo: TNameSearchInfo; out
AnInfoEntry: TDwarfInformationEntry; out AnIsExternal: Boolean): Boolean;
var
i, ExtVal: Integer;
ExtVal: Integer;
InfoEntry: TDwarfInformationEntry;
s: String;
begin
@ -1375,7 +1375,7 @@ var
i, j: Integer;
CU: TDwarfCompilationUnit;
CUList: TDwarfCompilationUnitArray;
InfoEntry, FoundInfoEntry: TDwarfInformationEntry;
FoundInfoEntry: TDwarfInformationEntry;
IsExt: Boolean;
WorkItem, PrevWorkItem: TFpThreadWorkerFindSymbolInUnits;
begin

2
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -3762,8 +3762,6 @@ function TFpDwarfInfo.FindProcStartEndPC(const AAddress: TDbgPtr; out AStartPC,
var
n: Integer;
CU: TDwarfCompilationUnit;
Iter: TLockedMapIterator;
Info: PDwarfAddressInfo;
MinMaxSet: boolean;
begin
for n := 0 to FCompilationUnits.Count - 1 do

7
components/fpdebug/fpdmemorytools.pas
View File

@ -1650,10 +1650,9 @@ function TFpDbgMemManager.WriteMemory(AReadDataType: TFpDbgMemReadDataType;
const ASourceSize: QWord; AContext: TFpDbgLocationContext; const AFlags: TFpDbgMemManagerFlags
): Boolean;
var
WriteData, WriteData2: Pointer;
TmpVal: TDbgPtr;
BitOffset, DestExtraSize: Integer;
DestWriteSize, DestFullSize: QWord;
BitOffset: Integer;
DestWriteSize: QWord;
begin
Result := False;
DebugLn(FPDBG_VERBOSE_MEM, ['$WriteMem: ', dbgs(AReadDataType),' ', dbgs(ADestLocation), ' ', dbgs(ADestSize), ' Source ', ASource]);
@ -1671,7 +1670,7 @@ begin
// ToDo: Use a TargetMemConverter
BitOffset := ADestLocation.BitOffset;
DestExtraSize := (BitOffset + ADestSize.BitSize + 7) div 8;
//DestExtraSize := (BitOffset + ADestSize.BitSize + 7) div 8;
case ADestLocation.MType of
// ToDo: Add the ability to write to memory

4
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -2613,7 +2613,6 @@ var
Eax: TDBGPtr;
{$ENDIF}
o: Integer;
Frames: TFrameList;
n: String;
begin
case AnEventType of
@ -2877,6 +2876,7 @@ begin
if assigned(FBreakPoints[bplFpcSpecific]) and FBreakPoints[bplFpcSpecific].HasLocation(PC) then begin
debugln(FPDBG_COMMANDS, ['@ bplFpcSpecific ', DbgSName(CurrentCommand)]);
AFinishLoopAndSendEvents := False;
AnIsFinished := False;
EnableBreaksDirect([bplRtlUnwind]);
if (FState = esIgnoredRaise) and not(CurrentCommand is TDbgControllerHiddenBreakStepBaseCmd) then
@ -2893,14 +2893,12 @@ begin
NumberParameters : DWORD;
ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of ULONG_PTR;
end; *)
{$PUSH}{$Q-}{$R-}
Rcx := CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(2).NumValue; // rec: TExceptionRecord
{$PUSH}{$Q-}{$R-}
if (not CurrentProcess.ReadData(Rcx + 4, 4, EFlags)) or
((EFlags and 66) = 0) // rec.ExceptionFlags and EXCEPTION_UNWIND)=0
then
exit;
{$POP}
(* Get FrameBasePointe (RPB) for finally block (passed in R8) *)
R8 := CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(8).NumValue;