paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 13:29:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

GDB: added detection for missing symbols

Browse Source 
git-svn-id: trunk@36011 -
This commit is contained in:
martin 2012-03-14 21:02:21 +00:00
parent c7c08909bf
commit 9050fc84e6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -9991,6 +9991,12 @@ var
const const
LogWarning = '&"Warning:\n"'; LogWarning = '&"Warning:\n"';
begin begin
// check for symbol info
if Pos('No symbol table is loaded. Use the \"file\" command.', Line) > 0
then begin
TargetInfo^.TargetFlags := TargetInfo^.TargetFlags - [tfHasSymbols];
DoDbgEvent(ecDebugger, etDefault, Format('File ''%s'' has no debug symbols', [FTheDebugger.FileName]));
end;
DebugLn('[Debugger] Log output: ', Line); DebugLn('[Debugger] Log output: ', Line);
if Line = '&"kill\n"' if Line = '&"kill\n"'
then AResult.State := dsStop then AResult.State := dsStop