From 4b1087161474c5b4efb9648addbc4689809bb15d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 28 Mar 2021 20:26:17 +0000
Subject: [PATCH] GdbmiDebugger: fix missing inherited call / for
 TRefCountedObject

git-svn-id: trunk@64884 -
---
 components/lazdebuggergdbmi/gdbmidebugger.pp          | 1 +
 components/lazdebuggergdbmi/gdbmidebuginstructions.pp | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 1466b51f61..89365a98a9 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -12757,6 +12757,7 @@ end;
 
 constructor TGDBMIDebuggerCommand.Create(AOwner: TGDBMIDebuggerBase);
 begin
+  inherited Create;
   FQueueRunLevel := -1;
   FState := dcsNone;
   FTheDebugger := AOwner;
diff --git a/components/lazdebuggergdbmi/gdbmidebuginstructions.pp b/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
index d90befc435..3396d72bd3 100644
--- a/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
+++ b/components/lazdebuggergdbmi/gdbmidebuginstructions.pp
@@ -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;