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

implemented stop debugging on rebuild

Browse Source 
git-svn-id: trunk@3123 -
This commit is contained in:
mattias 2002-08-18 08:57:46 +00:00
parent 819c432a6e
commit 658c2a8c8d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/gdbmidebugger.pp
View File

@ -1037,13 +1037,11 @@ function TGDBMIDebugger.ProcessStopped(const AParams: String): Boolean;
Location.FuncName := ''; Location.FuncName := '';
Location.Address := GDBGetData('$fp+12', []); Location.Address := GDBGetData('$fp+12', []);
writeln('AAA1 ');
if ExecuteCommand('info line * pointer(%d)', [Integer(Location.Address)], if ExecuteCommand('info line * pointer(%d)', [Integer(Location.Address)],
S, [cfIgnoreError, cfNoMiCommand]) S, [cfIgnoreError, cfNoMiCommand])
then begin then begin
Location.SrcLine := StrToIntDef(GetPart('Line ', ' of', S), -1); Location.SrcLine := StrToIntDef(GetPart('Line ', ' of', S), -1);
Location.SrcFile := GetPart('\"', '\"', S); Location.SrcFile := GetPart('\"', '\"', S);
writeln('AAA2 ',Location.SrcLine,' ',Location.SrcLine);
end; end;
DoException(ExceptionName, ExceptionMessage); DoException(ExceptionName, ExceptionMessage);
@ -1887,6 +1885,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.28 2003/06/09 17:20:43 mattias
implemented stop debugging on rebuild
Revision 1.27 2003/06/09 15:58:05 mattias Revision 1.27 2003/06/09 15:58:05 mattias
implemented view call stack key and jumping to last stack frame with debug info implemented view call stack key and jumping to last stack frame with debug info