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

Debugger: Fix compiler warnings

Browse Source
This commit is contained in:
Martin 2022-01-08 17:33:45 +01:00
parent 6b95ef242c
commit 93e5aaa0f2
5 changed files with 7 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -6247,7 +6247,7 @@ var
begin
dummy.Code := nil;
dummy.Data := nil;
ReqCmd(ACommand, AParams, dummy);
Result := ReqCmd(ACommand, AParams, dummy);
end;
class function TDebuggerIntf.GetSupportedCommands: TDBGCommands;

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -3091,8 +3091,6 @@ var
end;
procedure DoLogStream(const Line: String);
const
LogWarning = 'warning:';
var
Warning: String;
begin
@ -6485,12 +6483,9 @@ function TGDBMIDebuggerCommandExecute.ProcessStopped(const AParams: String;
end;
procedure CheckSehFinallyExited(const AFrame: String);
var
Location: TDBGLocationRec;
begin
if not (FStepStartedInFinSub = sfsStepStarted) then
exit;
Location := FrameToLocation(AFrame);
if IsSehFinallyFuncName(FTheDebugger.FCurrentLocation.FuncName) then // check if we left the seh handler
exit;

10
components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
View File

@ -181,6 +181,7 @@ type
procedure TargetCreated(Sender: TObject);
protected
procedure DoInitialExecute; override;
public
constructor Create(AOwner: TLldbDebugger);
end;
@ -407,8 +408,9 @@ type
private
procedure ThreadInstructionSucceeded(Sender: TObject);
protected
constructor Create(AOwner: TLldbDebugger);
procedure DoExecute; override;
public
constructor Create(AOwner: TLldbDebugger);
end;
{ TLldbThreads }
@ -570,7 +572,6 @@ end;
procedure TLldbDebuggerCommandRun.CatchesStackInstructionFinished(Sender: TObject);
var
Instr: TLldbInstruction;
r: TStringArray;
Id, line: Integer;
IsCur: Boolean;
@ -973,7 +974,6 @@ const
procedure DoBreakPointHit(BrkId: Integer);
var
BreakPoint: TLldbBreakPoint;
CanContinue: Boolean;
begin
CanContinue := Debugger.DoBreakpointHit(BrkId);
@ -1408,9 +1408,8 @@ end;
procedure TLldbThreads.ReadFromThreadInstruction(
Instr: TLldbInstructionThreadList; ACurrentId: Integer);
var
i, j, line: Integer;
i, line: Integer;
s, func, filename, name, d, fullfile: String;
found, foundFunc, foundArg: TStringArray;
TId, CurThrId: LongInt;
CurThr: Boolean;
Arguments: TStringList;
@ -1506,7 +1505,6 @@ var
Instr: TLldbInstructionStackTrace absolute Sender;
i, FId, line: Integer;
e: TCallStackEntry;
found, foundArg: TStringArray;
Arguments: TStringList;
It: TMapIterator;
s, func, filename, d, fullfile: String;

2
components/lazdebuggers/lazdebuggerlldb/lldbhelper.pas
View File

@ -81,7 +81,7 @@ end;
function StrMatches(AString: string; const AFind: array of string; out
AGapsContent: TStringArray): Boolean;
var
FindIdx, FindLen, j, j2, ResIdx: Integer;
FindIdx, FindLen, j, ResIdx: Integer;
OpenEnd: Boolean;
begin
FindLen := Length(AFind);

6
components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
View File

@ -729,8 +729,6 @@ end;
function TLldbInstructionProcessLaunch.ProcessInputFromDbg(const AData: String
): Boolean;
var
s: String;
begin
if StrStartsWith(AData, 'Process ') and (pos(' launched:', AData) > 8) then begin
SetContentReceieved;
@ -1216,7 +1214,7 @@ function TLldbInstructionRegister.ProcessInputFromDbg(const AData: String
var
found: TStringArray;
i: Integer;
s, reg, val: String;
reg, val: String;
begin
Result := False;
if StrStartsWith(AData, Command) then begin
@ -1453,8 +1451,6 @@ begin
end;
function TLldbInstructionDisassem.ProcessInputFromDbg(const AData: String): Boolean;
var i: Integer;
Address: TDBGPtr;
begin
Result := False;
if StrStartsWith(AData, Command) then begin