Преглед на файлове

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

git-svn-id: trunk@32605 -
pierre преди 9 години
родител
ревизия
ab730efac7
променени са 1 файла, в които са добавени 22 реда и са изтрити 0 реда
  1. 22 0
      packages/gdbint/src/gdbint.pp

+ 22 - 0
packages/gdbint/src/gdbint.pp

@@ -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;