paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 23:25:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: fix missing inherited call / for TRefCountedObject

Browse Source 
git-svn-id: trunk@64884 -
This commit is contained in:
martin 2021-03-28 20:26:17 +00:00
parent a6b862f417
commit 4b10871614
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -12757,6 +12757,7 @@ end;
constructor TGDBMIDebuggerCommand.Create(AOwner: TGDBMIDebuggerBase);
begin
inherited Create;
FQueueRunLevel := -1;
FState := dcsNone;
FTheDebugger := AOwner;

3
components/lazdebuggergdbmi/gdbmidebuginstructions.pp
View File

@ -521,6 +521,7 @@ end;
constructor TGDBInstruction.Create(ACommand: String; AFlags: TGDBInstructionFlags;
ATimeOut: Integer = 0);
begin
inherited Create;
InternalCreate(ACommand, -1, -1, AFlags, ATimeOut);
Init;
end;
@ -528,6 +529,7 @@ end;
constructor TGDBInstruction.Create(ACommand: String; AThread: Integer;
AOtherFlags: TGDBInstructionFlags; ATimeOut: Integer = 0);
begin
inherited Create;
InternalCreate(ACommand, AThread, -1,
AOtherFlags + [ifRequiresThread], ATimeOut);
Init;
@ -536,6 +538,7 @@ end;
constructor TGDBInstruction.Create(ACommand: String; AThread, AFrame: Integer;
AOtherFlags: TGDBInstructionFlags; ATimeOut: Integer = 0);
begin
inherited Create;
InternalCreate(ACommand, AThread, AFrame,
AOtherFlags + [ifRequiresThread, ifRequiresStackFrame], ATimeOut);
Init;