From 7694d8374d14c3d17b153261befe3681c3e280bf Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 27 May 2006 19:51:54 +0000
Subject: [PATCH]  * 6.4 fixes

git-svn-id: trunk@3704 -
---
 packages/base/gdbint/gdbint.pp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/packages/base/gdbint/gdbint.pp b/packages/base/gdbint/gdbint.pp
index fa043e677c..e4652b20e8 100644
--- a/packages/base/gdbint/gdbint.pp
+++ b/packages/base/gdbint/gdbint.pp
@@ -30,6 +30,11 @@ interface
   {$define GDB_V6}
 {$endif def GDB_V603}
 
+{$ifdef GDB_V604}
+  {$define GDB_V6}
+{$endif def GDB_V604}
+
+
 {$ifdef GDB_V6}
   {$define GDB_HAS_SYSROOT}
   {$define GDB_SYMTAB_HAS_MACROS}
@@ -2359,8 +2364,10 @@ end;
 var
   version : array[0..0] of char;cvar;external;
 
+{$ifndef GDB_V604}
+// doesn't seem to exist anymore. Seems to work fine without
 procedure error_init;cdecl;external;
-
+{$endif}
 
 function  GDBVersion : string;
 begin
@@ -2414,7 +2421,9 @@ begin
   gdb_stdtarg:=gdb_stderr;
   set_ui_file_write(gdb_stdout,@gdbint_ui_file_write);
   set_ui_file_write(gdb_stderr,@gdbint_ui_file_write);
+{$ifndef GDB_V604}
   error_init;
+{$endif}
 {$ifdef GDB_V6}
 //  gdb_stdtargin := gdb_stdin;
   gdb_stdtargerr := gdb_stderr;