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

* more bp_location fixes

Browse Source 
git-svn-id: trunk@14378 -
This commit is contained in:
pierre 2009-12-09 15:29:19 +00:00
parent b49a438933
commit 567d99b9c1
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -111,6 +111,7 @@ interface
{$define GDB_V6} {$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS} {$define GDB_HAS_DB_COMMANDS}
{$define GDB_USES_BP_LOCATION} {$define GDB_USES_BP_LOCATION}
{$define GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
{$define GDB_NEEDS_NO_ERROR_INIT} {$define GDB_NEEDS_NO_ERROR_INIT}
{$define GDB_USES_EXPAT_LIB} {$define GDB_USES_EXPAT_LIB}
{$define GDB_HAS_DEBUG_FILE_DIRECTORY} {$define GDB_HAS_DEBUG_FILE_DIRECTORY}
@ -130,6 +131,8 @@ interface
{$define GDB_V6} {$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS} {$define GDB_HAS_DB_COMMANDS}
{$define GDB_USES_BP_LOCATION} {$define GDB_USES_BP_LOCATION}
{$define GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
{$define GDB_BP_LOCATION_HAS_GDBARCH}
{$define GDB_NEEDS_NO_ERROR_INIT} {$define GDB_NEEDS_NO_ERROR_INIT}
{$define GDB_USES_EXPAT_LIB} {$define GDB_USES_EXPAT_LIB}
{$define GDB_USES_LIBDECNUMBER} {$define GDB_USES_LIBDECNUMBER}
@ -861,21 +864,32 @@ type
bp_location = record bp_location = record
next : pbp_location; next : pbp_location;
{$ifdef GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
global_next : pbp_location;
{$endif GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
loc_type : bp_loc_type; loc_type : bp_loc_type;
owner : pbreakpoint; owner : pbreakpoint;
{$ifdef GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
cond : pointer;{pexpression;} cond : pointer;{pexpression;}
shlib_disabled : byte; shlib_disabled : byte;
enabled : byte; enabled : byte;
{$endif GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
inserted : byte; inserted : byte;
duplicate : byte; duplicate : byte;
{$ifdef GDB_BP_LOCATION_HAS_GDBARCH}
gdbarch : pointer;{pgdbarch;} gdbarch : pointer;{pgdbarch;}
pspace : pointer;{pprogram_space;} pspace : pointer;{pprogram_space;}
{$endif GDB_BP_LOCATION_HAS_GDBARCH}
address : CORE_ADDR; address : CORE_ADDR;
{$ifdef GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
length : longint; length : longint;
watchpoint_type : target_hw_bp_type; watchpoint_type : target_hw_bp_type;
{$endif GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
section : pointer;{pobj_section;} section : pointer;{pobj_section;}
requested_address : CORE_ADDR; requested_address : CORE_ADDR;
{$ifdef GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
function_name : ^char; function_name : ^char;
{$endif GDB_BP_LOCATION_HAS_GLOBAL_NEXT}
target_info : bp_target_info; target_info : bp_target_info;
overlay_target_info : bp_target_info; overlay_target_info : bp_target_info;
events_till_retirement : longint; events_till_retirement : longint;