From bce54d04557fc5ef039a6376d74fcfef85b02a23 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Thu, 22 Oct 2009 22:32:22 +0000
Subject: [PATCH] + Added extra gdb startup options, patch #0014866 by DRIGUS
 GmbH * to bo done: store this property

git-svn-id: trunk@22267 -
---
 debugger/gdbmidebugger.pp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 5607a43828..5a212ee726 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -88,13 +88,17 @@ type
 
   TGDBMIRTLCallingConvention = (ccDefault, ccRegCall, ccStdCall);
 
+  { TGDBMIDebuggerProperties }
+
   TGDBMIDebuggerProperties = class(TDebuggerProperties)
   private
+    FGDBOptions: String;
     FOverrideRTLCallingConvention: TGDBMIRTLCallingConvention;
   public
     constructor Create;
   published
     property OverrideRTLCallingConvention: TGDBMIRTLCallingConvention read FOverrideRTLCallingConvention write FOverrideRTLCallingConvention;
+    property Debugger_Startup_Options: String read FGDBOptions write FGDBOptions;
   end;
 
   { TGDBMIDebugger }
@@ -2274,12 +2278,18 @@ procedure TGDBMIDebugger.Init;
       Include(FDebuggerFlags, dfImplicidTypes);
     end;
   end;
-
+var
+  Options: String;
 begin
   FPauseWaitState := pwsNone;
   FInExecuteCount := 0;
 
-  if CreateDebugProcess('-silent -i mi -nx')
+  Options := '-silent -i mi -nx';
+
+  if Length(TGDBMIDebuggerProperties(GetProperties).Debugger_Startup_Options) > 0
+  then Options := Options + ' ' + TGDBMIDebuggerProperties(GetProperties).Debugger_Startup_Options;
+
+  if CreateDebugProcess(Options)
   then begin
     if not ParseInitialization
     then begin