Przeglądaj źródła

* fixed for gdb 6.3.x

florian 20 lat temu
rodzic
commit
4408b48c9d
1 zmienionych plików z 14 dodań i 4 usunięć
  1. 14 4
      packages/base/gdbint/gdbint.pp

+ 14 - 4
packages/base/gdbint/gdbint.pp

@@ -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