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

LldbDebugger: Fixed spelling

Browse Source 
git-svn-id: trunk@63096 -
This commit is contained in:
martin 2020-04-30 12:44:09 +00:00
parent 835023c3e2
commit 02bbb6443a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -244,7 +244,7 @@ type
FOnFinish: TNotifyEvent;
procedure BreakSetSuccess(Sender: TObject);
procedure DoFailed(Sender: TObject);
procedure DoFinshed(Sender: TObject);
procedure DoFinished(Sender: TObject);
procedure QueueInstruction(AnInstr: TLldbInstruction);
public
constructor Create(AName: String; ADebugger: TLldbDebugger; ABeforePrologue: Boolean = False);
@ -2616,7 +2616,7 @@ end;
procedure TlldbInternalBreakPoint.QueueInstruction(AnInstr: TLldbInstruction);
begin
AnInstr.OnFinish := @DoFinshed;
AnInstr.OnFinish := @DoFinished;
FDebugger.DebugInstructionQueue.QueueInstruction(AnInstr);
AnInstr.ReleaseReference;
end;
@ -2634,7 +2634,7 @@ begin
OnFail(Self);
end;
procedure TlldbInternalBreakPoint.DoFinshed(Sender: TObject);
procedure TlldbInternalBreakPoint.DoFinished(Sender: TObject);
begin
FDwarfLoadErrors := TLldbInstruction(Sender).DwarfLoadErrors;
if OnFinish <> nil then