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

debugger: improve execution lines retrieval from gdb

Browse Source 
git-svn-id: trunk@19053 -
This commit is contained in:
paul 2009-03-21 12:50:41 +00:00
parent 4248911708
commit 0beb447983
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbmidebugger.pp
View File

@ -1537,6 +1537,13 @@ begin
Result := ExecuteCommand('-symbol-list-lines %s', [ASource], [cfIgnoreError, cfExternal], R)
and (R.State <> dsError);
// if we have an .inc file then search for filename only since there are some
// problems with locating file by full path in gdb in case only relative file
// name is stored
if not Result then
Result := ExecuteCommand('-symbol-list-lines %s', [ExtractFileName(ASource)], [cfIgnoreError, cfExternal], R)
and (R.State <> dsError);
if not Result then Exit;
Map := TMap.Create(its8, SizeOf(AAddr));