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

Fixed use with 7.9 release or later, symtab strcut was completely changed

Browse Source 
git-svn-id: trunk@32605 -
This commit is contained in:
pierre 2015-12-07 00:28:57 +00:00
parent 312e51328a
commit ab730efac7
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,6 +59,17 @@ interface
{$undef GDB_VERSION_RECOGNIZED}
{ 7.10.x }
{$ifdef GDB_V710}
{$info using gdb 7.10.x}
{$define GDB_VERSION_RECOGNIZED}
{$define GDB_VER_GE_710}
{$endif}
{$ifdef GDB_VER_GE_710}
{$define GDB_VER_GE_709}
{$endif}
{ 7.9.x }
{$ifdef GDB_V709}
{$info using gdb 7.9.x}
@ -68,6 +79,7 @@ interface
{$ifdef GDB_VER_GE_709}
{$define GDB_VER_GE_708}
{$define SYMTAB_HAS_COMPUNIT_SYMTAB}
{$endif}
{ 7.8.x }
@ -1256,6 +1268,15 @@ type
psymtab = ^symtab;
symtab = record
next : psymtab;
{$ifdef SYMTAB_HAS_COMPUNIT_SYMTAB}
comp_unit : pointer; {^compunit_symtab }
linetable : pointer; {^linetable;}
filename : pchar;
nlines : longint;
line_charpos : ^longint;
language : tlanguage;
fullname : pchar;
{$else not SYMTAB_HAS_COMPUNIT_SYMTAB}
blockvector : pointer; {^blockvector;}
linetable : pointer; {^linetable;}
block_line_section : longint;
@ -1275,6 +1296,7 @@ type
version : pchar;
fullname : pchar;
objfile : pointer; {^objfile;}
{$endif not SYMTAB_HAS_COMPUNIT_SYMTAB}
end;
psymtab_and_line = ^symtab_and_line;