paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Yury Sidorov for setting intitial breakpoint

Browse Source 
git-svn-id: trunk@10679 -
This commit is contained in:
marc 2007-02-25 12:07:31 +00:00
parent 57d06e746d
commit a2aa58380f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -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;