From 7be2b96bc18f5cf4646901865060c18359408944 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sat, 6 Oct 2007 13:40:47 +0000
Subject: [PATCH] debugger: fixed running debuggee running without command line
 parameters after running it with command line parameters (bug #9861)

git-svn-id: trunk@12343 -
---
 debugger/gdbmidebugger.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index afb5d9581a..dc871dc186 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -2170,8 +2170,9 @@ begin
   // then the rtl is compiled with regcalls
   RetrieveRegCall;
 
-  if Arguments <>''
-  then ExecuteCommand('-exec-arguments %s', [Arguments], [cfIgnoreError]);
+  // also call execute -exec-arguments if there are no arguments in this run
+  // so the possible arguments of a previous run are cleared
+  ExecuteCommand('-exec-arguments %s', [Arguments], [cfIgnoreError]);
   
   if tfHasSymbols in FTargetFlags
   then begin