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

DBG: improved startup; finding temp main break

Browse Source 
git-svn-id: trunk@34989 -
This commit is contained in:
martin 2012-01-28 16:24:07 +00:00
parent e70ecef532
commit 61b15c600b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -4084,13 +4084,15 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
if TrySetMainBrk(mtAddZero, msNone) then exit;
end;
msDefault: begin
TrySetMainBrk(mtAddZero, msNone); // always include +0
if TrySetMainBrk(mtEntry, msTryNameZero) then exit;
if TrySetMainBrk(mtMainAddr, msTryZero) then exit;
if TrySetMainBrk(mtAddZero, msNone) then exit;
//if TrySetMainBrk(mtAddZero, msNone) then exit;
end;
msTryNameZero: begin
TrySetMainBrk(mtAddZero, msNone); // always include +0
if TrySetMainBrk(mtMain, msTryZero) then exit;
if TrySetMainBrk(mtAddZero, msNone) then exit;
//if TrySetMainBrk(mtAddZero, msNone) then exit;
end;
msTryZero: begin
if TrySetMainBrk(mtAddZero, msNone) then exit;