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

* handle post 7.0 CVS diffs in structs

Browse Source 
git-svn-id: trunk@14380 -
This commit is contained in:
pierre 2009-12-09 23:41:55 +00:00
parent e50c05f44e
commit 08f3fdd828
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,6 +144,11 @@ interface
{$define GDB_HAS_OBSERVER_NOTIFY_BREAKPOINT_CREATED}
{$define GDB_TARGET_CLOSE_HAS_PTARGET_ARG}
{$define GDB_HAS_BP_NONE}
{$ifdef GDB_CVS}
{$define GDB_BP_LOCATION_HAS_GDBARCH}
{$define GDB_HAS_PROGRAM_SPACE}
{$endif GDB_CVS}
{$endif def GDB_V7}
@ -878,8 +883,10 @@ type
duplicate : byte;
{$ifdef GDB_BP_LOCATION_HAS_GDBARCH}
gdbarch : pointer;{pgdbarch;}
pspace : pointer;{pprogram_space;}
{$endif GDB_BP_LOCATION_HAS_GDBARCH}
{$ifdef GDB_HAS_PROGRAM_SPACE}
pspace : pointer;{pprogram_space;}
{$endif GDB_HAS_PROGRAM_SPACE}
address : CORE_ADDR;
{$ifdef GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
length : longint;
@ -923,6 +930,9 @@ type
psymtab_and_line = ^symtab_and_line;
symtab_and_line = record
{$ifdef GDB_HAS_PROGRAM_SPACE}
pspace : pointer;
{$endif GDB_HAS_PROGRAM_SPACE}
symtab : psymtab;
section : pointer; {^asection;}
line : longint;