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

* fixed for gdb 6.3.x

Browse Source
This commit is contained in:
florian 2004-12-19 18:35:56 +00:00
parent 9701081657
commit 4408b48c9d
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,13 @@ interface
{$define GDB_SYMTAB_HAS_MACROS}
{$endif def GDB_V602}
{ 6.3.x }
{$ifdef GDB_V603}
{$define GDB_V6}
{$define GDB_HAS_SYSROOT}
{$define GDB_SYMTAB_HAS_MACROS}
{$endif def GDB_V603}
{ GDB has a simulator for powerpc CPU
it is integrated into GDB by default }
{$ifdef powerpc}
@ -1016,7 +1023,7 @@ var
{ external variables }
error_return : jmp_buf;cvar;
quit_return : jmp_buf;cvar;
{$ifdef GDB_V602}
{$ifdef GDB_V6}
deprecated_create_breakpoint_hook : pointer;cvar;external;
{$else}
create_breakpoint_hook : pointer;cvar;external;
@ -1983,7 +1990,7 @@ procedure tgdbinterface.gdb__init;
begin
gdboutputbuf.reset;
gdberrorbuf.reset;
{$ifdef GDB_V602}
{$ifdef GDB_V6}
deprecated_create_breakpoint_hook:=@CreateBreakPointHook;
{$else}
create_breakpoint_hook:=@CreateBreakPointHook;
@ -2001,7 +2008,7 @@ begin
current_target.to_kill;
current_target.to_close(1);
end;
{$ifdef GDB_V602}
{$ifdef GDB_V6}
deprecated_create_breakpoint_hook:=nil;
{$else}
create_breakpoint_hook:=nil;
@ -2456,7 +2463,10 @@ begin
end.
{
$Log$
Revision 1.24 2004-12-04 23:06:38 peter
Revision 1.25 2004-12-19 18:35:56 florian
* fixed for gdb 6.3.x
Revision 1.24 2004/12/04 23:06:38 peter
* fix buffer overflow
Revision 1.23 2004/11/06 17:58:35 peter