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

Add missing gdbarch field for annotate_frame_begin for version 7.0 or above

Browse Source 
Try to cope with buffering problems to catch complete argument list

git-svn-id: trunk@30095 -
This commit is contained in:
pierre 2015-03-04 17:37:57 +00:00
parent fd33786c67
commit 5bb65ded3d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/gdbint/src/gdbint.pp
View File

@ -215,6 +215,7 @@ interface
{$define GDB_TARGET_CLOSE_HAS_PTARGET_ARG}
{$define GDB_HAS_BP_NONE}
{$define GDB_USE_XSTRVPRINTF}
{$define GDB_ANNOTATE_FRAME_BEGIN_HAS_GDBARCH_FIELD}
{$endif def GDB_V7}
@ -2277,7 +2278,11 @@ begin
end;
procedure annotate_frame_begin(level:longint;pc:CORE_ADDR);cdecl;public;
procedure annotate_frame_begin(level:longint;
{$ifdef GDB_ANNOTATE_FRAME_BEGIN_HAS_GDBARCH_FIELD}
gdbarch : pointer;
{$endif GDB_ANNOTATE_FRAME_BEGIN_HAS_GDBARCH_FIELD}
pc:CORE_ADDR);cdecl;public;
begin
{$ifdef Verbose}
Debug('|frame_begin(%d,%ld)|');
@ -2435,6 +2440,10 @@ begin
begin
if (gdboutputbuf.buf[args_end-1]=#10) then
dec(args_end);
{ Flushing is not always correct for args,
try to move on to next closing brace }
while (args_end<file_start) and (gdboutputbuf.buf[args_end-1]<>')') do
inc(args_end);
c:=gdboutputbuf.buf[args_end];
gdboutputbuf.buf[args_end]:=#0;
fe^.args:=strnew(gdboutputbuf.buf+args_start);