paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented view call stack key and jumping to last stack frame with debug info

Browse Source 
git-svn-id: trunk@3122 -
This commit is contained in:
mattias 2002-08-18 08:57:45 +00:00
parent 4eb7ce4d6c
commit 819c432a6e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
debugger/gdbmidebugger.pp
View File

@ -1025,7 +1025,11 @@ function TGDBMIDebugger.ProcessStopped(const AParams: String): Boolean;
end;
if CompactMode
then ExceptionMessage := GDBGetText('^^Exception($fp+8)^^.FMessage', [])
then begin
ExceptionMessage := GDBGetText('^^Exception($fp+8)^^.FMessage', []);
ExceptionMessage := DeleteBackSlashes(ExceptionMessage);
writeln('ExceptionMessage={',ExceptionMessage,'}');
end
else ExceptionMessage := '### Not supported on GDB < 5.3 ###';
Location.SrcLine := -1;
@ -1033,11 +1037,13 @@ function TGDBMIDebugger.ProcessStopped(const AParams: String): Boolean;
Location.FuncName := '';
Location.Address := GDBGetData('$fp+12', []);
writeln('AAA1 ');
if ExecuteCommand('info line * pointer(%d)', [Integer(Location.Address)],
S, [cfIgnoreError, cfNoMiCommand])
then begin
Location.SrcLine := StrToIntDef(GetPart('Line ', ' of', S), -1);
Location.SrcFile := GetPart('\"', '\"', S);
writeln('AAA2 ',Location.SrcLine,' ',Location.SrcLine);
end;
DoException(ExceptionName, ExceptionMessage);
@ -1881,6 +1887,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.27 2003/06/09 15:58:05 mattias
implemented view call stack key and jumping to last stack frame with debug info
Revision 1.26 2003/06/09 14:30:47 marc
MWE: + Added working dir.