paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:50:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed last_breakpoint_number from the gdb/mi interface. It didn't work in

Browse Source 
older GDB versions and code in fpdebug.pas should no longer use it. Instead,
  it should use BreakpointInsert or WatchpointInsert for adding a breakpoint or
  watchpoint and getting its ID.

git-svn-id: trunk@29750 -
This commit is contained in:
nickysn 2015-02-18 05:47:49 +00:00
parent c754fa35d2
commit a861bbc5ae
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/gdbmiint.pas
View File

@ -80,7 +80,6 @@ type
signal_name: PChar;
signal_string: PChar;
current_pc: CORE_ADDR;
last_breakpoint_number: LongInt;
switch_to_user: Boolean;
{ init }
@ -336,22 +335,19 @@ begin
end;
procedure TGDBInterface.ProcessResponse;
var
NAO: TGDBMI_AsyncOutput;
Code: LongInt;
//var
// NAO: TGDBMI_AsyncOutput;
// Code: LongInt;
begin
for NAO in GDB.NotifyAsyncOutput do
begin
if NAO.AsyncClass = 'breakpoint-created' then
begin
// for NAO in GDB.NotifyAsyncOutput do
// begin
// if NAO.AsyncClass = 'breakpoint-created' then
// begin
// Writeln('BREAKPOINT created!');
Val(NAO.Parameters['bkpt'].AsTuple['number'].AsString, last_breakpoint_number, Code);
// Val(NAO.Parameters['bkpt'].AsTuple['number'].AsString, last_breakpoint_number, Code);
// Writeln('last_breakpoint_number=', last_breakpoint_number);
// if Assigned(NAO.Parameters['bkpt'].AsTuple['file']) then
// Writeln('file = ', NAO.Parameters['bkpt'].AsTuple['file'].AsString);
// Readln;
end;
end;
// end;
// end;
end;
function TGDBInterface.error: Boolean;