paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 02:23:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash when stepping into code where no debug information is available

Browse Source 
(can happen when using 'step into instruction' inside the assembly window)
* obtain the PC counter after a breakpoint has been hit (so that the assembly
  window shows the current instruction immediately after hitting a breakpoint)

git-svn-id: trunk@29735 -
This commit is contained in:
nickysn 2015-02-16 23:20:48 +00:00
parent dc54903e01
commit 88fc22a8a3
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/gdbmiint.pas
View File

@ -272,6 +272,8 @@ end;
procedure TGDBInterface.WaitForProgramStop;
var
Line: LongInt;
FileName: string = '';
LineNumber: LongInt = 0;
begin
GDB.WaitForProgramStop;
if not GDB.Alive then
@ -283,26 +285,20 @@ begin
end;
ProcessResponse;
case GDB.ExecAsyncOutput.Parameters['reason'].AsString of
'breakpoint-hit':
begin
stop_breakpoint_number := GDB.ExecAsyncOutput.Parameters['bkptno'].AsLongInt;
DebuggerScreen;
Debuggee_started := True;
DoSelectSourceLine(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString, GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt);
end;
'end-stepping-range':
begin
DebuggerScreen;
Debuggee_started := True;
current_pc := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsPtrInt;
DoSelectSourceLine(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString, GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt);
end;
'breakpoint-hit',
'end-stepping-range',
'function-finished':
begin
if Assigned(GDB.ExecAsyncOutput.Parameters['bkptno']) then
stop_breakpoint_number := GDB.ExecAsyncOutput.Parameters['bkptno'].AsLongInt;
DebuggerScreen;
Debuggee_started := True;
current_pc := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsPtrInt;
DoSelectSourceLine(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString, GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt);
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname']) then
FileName := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString;
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line']) then
LineNumber := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt;
DoSelectSourceLine(FileName, LineNumber);
end;
'exited':
begin