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

LazDebuggerFp: Cleanup compiler hints

Browse Source 
(cherry picked from commit a1c6e559e1)
This commit is contained in:
Martin 2021-12-11 00:26:34 +01:00
parent 65133dd1cd
commit 0bfb65de03
3 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarf.pas
View File

@ -1314,7 +1314,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
@ -1367,7 +1367,7 @@ var
i, j: Integer;
CU: TDwarfCompilationUnit;
CUList: TDwarfCompilationUnitArray;
InfoEntry, FoundInfoEntry: TDwarfInformationEntry;
FoundInfoEntry: TDwarfInformationEntry;
IsExt: Boolean;
WorkItem, PrevWorkItem: TFpThreadWorkerFindSymbolInUnits;
begin

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

@ -2600,7 +2600,6 @@ var
Eax: TDBGPtr;
{$ENDIF}
o: Integer;
Frames: TFrameList;
n: String;
begin
case AnEventType of
@ -2862,6 +2861,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
@ -2878,14 +2878,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;