From a2aa58380f07cbf9c5ee2336d4ea9a6947077154 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sun, 25 Feb 2007 12:07:31 +0000
Subject: [PATCH] * Patch from Yury Sidorov for setting intitial breakpoint

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

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 05eb9a4059..43f03ac6cb 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -2098,7 +2098,7 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
       if S <> ''
       then begin
         FMainAddr := StrToIntDef(S, 0);
-        ExecuteCommand('-break-insert -t *' + S,  [cfIgnoreError], R);
+        ExecuteCommand('-break-insert -t *%u', [FMainAddr],  [cfIgnoreError], R);
         Result := R.State <> dsError;
         if Result then Exit;
       end;
@@ -2194,7 +2194,7 @@ begin
     // We could not set our initial break to get info and allow stepping
     // Try it with the program entry point
     FMainAddr := StrToIntDef(EntryPoint, 0);
-    ExecuteCommand('-break-insert -t *' + EntryPoint, [cfIgnoreError], R);
+    ExecuteCommand('-break-insert -t *%u', [FMainAddr], [cfIgnoreError], R);
     TempInstalled := R.State <> dsError;
   end;