paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 04:53:01 +01: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); constructor TGDBMIDebuggerCommand.Create(AOwner: TGDBMIDebuggerBase);
begin begin
inherited Create;
FQueueRunLevel := -1; FQueueRunLevel := -1;
FState := dcsNone; FState := dcsNone;
FTheDebugger := AOwner; FTheDebugger := AOwner;

3
components/lazdebuggergdbmi/gdbmidebuginstructions.pp
View File

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