paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +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} {$define GDB_SYMTAB_HAS_MACROS}
{$endif def GDB_V602} {$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 { GDB has a simulator for powerpc CPU
it is integrated into GDB by default } it is integrated into GDB by default }
{$ifdef powerpc} {$ifdef powerpc}
@ -1016,7 +1023,7 @@ var
{ external variables } { external variables }
error_return : jmp_buf;cvar; error_return : jmp_buf;cvar;
quit_return : jmp_buf;cvar; quit_return : jmp_buf;cvar;
{$ifdef GDB_V602} {$ifdef GDB_V6}
deprecated_create_breakpoint_hook : pointer;cvar;external; deprecated_create_breakpoint_hook : pointer;cvar;external;
{$else} {$else}
create_breakpoint_hook : pointer;cvar;external; create_breakpoint_hook : pointer;cvar;external;
@ -1983,7 +1990,7 @@ procedure tgdbinterface.gdb__init;
begin begin
gdboutputbuf.reset; gdboutputbuf.reset;
gdberrorbuf.reset; gdberrorbuf.reset;
{$ifdef GDB_V602} {$ifdef GDB_V6}
deprecated_create_breakpoint_hook:=@CreateBreakPointHook; deprecated_create_breakpoint_hook:=@CreateBreakPointHook;
{$else} {$else}
create_breakpoint_hook:=@CreateBreakPointHook; create_breakpoint_hook:=@CreateBreakPointHook;
@ -2001,7 +2008,7 @@ begin
current_target.to_kill; current_target.to_kill;
current_target.to_close(1); current_target.to_close(1);
end; end;
{$ifdef GDB_V602} {$ifdef GDB_V6}
deprecated_create_breakpoint_hook:=nil; deprecated_create_breakpoint_hook:=nil;
{$else} {$else}
create_breakpoint_hook:=nil; create_breakpoint_hook:=nil;
@ -2456,7 +2463,10 @@ begin
end. end.
{ {
$Log$ $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 * fix buffer overflow
Revision 1.23 2004/11/06 17:58:35 peter Revision 1.23 2004/11/06 17:58:35 peter