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

+ GDB 6.6 added

Browse Source 
GDB 6.1 (for go32v2 target added)
    GDB_HAS_DEPRECATED_CBPH defined for versions where
    create_breakpoint_hook is deprecated.

git-svn-id: trunk@5697 -
This commit is contained in:
pierre 2006-12-24 01:32:53 +00:00
parent c9c37f573b
commit 30456f6b81
1 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
packages/base/gdbint/gdbint.pp
View File

@ -20,16 +20,30 @@ interface
{.$define DebugCommand}
{$define NotImplemented}
{ Is create_breakpoint_hook deprecated? }
{ Seem not so for 6.1 }
{$define GDB_HAS_DEPRECATED_CBPH}
{ 6.1.x }
{$ifdef GDB_V601}
{$info using gdb 6.1.x}
{$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS}
{$undef GDB_HAS_DEPRECATED_CBPH}
{$endif def GDB_V601}
{ 6.2.x }
{$ifdef GDB_V602}
{$info using gdb 6.2.x}
{$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS}
{$endif def GDB_V602}
{ 6.3.x }
{$ifdef GDB_V603}
{$info using gdb 6.3.x}
{$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS}
{$endif def GDB_V603}
{ 6.4.x }
@ -37,6 +51,7 @@ interface
{$info using gdb 6.4.x}
{$define GDB_V6}
{$define GDB_NEEDS_NO_ERROR_INIT}
{$define GDB_HAS_DB_COMMANDS}
{$endif def GDB_V604}
{ 6.5.x }
@ -47,6 +62,14 @@ interface
{$define GDB_NEEDS_NO_ERROR_INIT}
{$endif def GDB_V605}
{ 6.6.x }
{$ifdef GDB_V606}
{$info using gdb 6.6.x}
{$define GDB_V6}
{$define GDB_HAS_DB_COMMANDS}
{$define GDB_NEEDS_NO_ERROR_INIT}
{$endif def GDB_V605}
{$ifdef GDB_V6}
{$define GDB_HAS_SYSROOT}
{$define GDB_SYMTAB_HAS_MACROS}
@ -1041,7 +1064,7 @@ var
{ external variables }
error_return : jmp_buf;cvar;public;
quit_return : jmp_buf;cvar;public;
{$ifdef GDB_V6}
{$ifdef GDB_HAS_DEPRECATED_CBPH}
deprecated_create_breakpoint_hook : pointer;cvar;external;
{$else}
create_breakpoint_hook : pointer;cvar;external;
@ -1061,11 +1084,11 @@ var
tui_version : longint;cvar;public;
{ Whether xdb commands will be handled }
{$ifndef GDB_HAS_DB_COMMANDS}
xdb_commands : longint;cvar;external;
{$ifdef GDB_HAS_DB_COMMANDS}
xdb_commands : longint;cvar;public;
{ Whether dbx commands will be handled }
dbx_commands : longint;cvar;external;
dbx_commands : longint;cvar;public;
{$endif GDB_HAS_DB_COMMANDS}
var
@ -2010,7 +2033,7 @@ procedure tgdbinterface.gdb__init;
begin
gdboutputbuf.reset;
gdberrorbuf.reset;
{$ifdef GDB_V6}
{$ifdef GDB_HAS_DEPRECATED_CBPH}
deprecated_create_breakpoint_hook:=@CreateBreakPointHook;
{$else}
create_breakpoint_hook:=@CreateBreakPointHook;
@ -2028,7 +2051,7 @@ begin
current_target.to_kill;
current_target.to_close(1);
end;
{$ifdef GDB_V6}
{$ifdef GDB_HAS_DEPRECATED_CBPH}
deprecated_create_breakpoint_hook:=nil;
{$else}
create_breakpoint_hook:=nil;
@ -2474,8 +2497,11 @@ begin
end;
{$ifdef GDB_HAS_SYSROOT}
var gdb_sysroot : pchar; {$ifdef linux}external{$else}export{$endif} name 'gdb_sysroot';
var gdb_sysroot : pchar; cvar;public;
gdb_sysrootc : char;
return_child_result : longbool;cvar;public;
return_child_result_value : longint;cvar;public;
batch_silent : longbool;cvar;public;
{$endif}
begin