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

* 6.4 fixes

Browse Source 
git-svn-id: trunk@3704 -
This commit is contained in:
marco 2006-05-27 19:51:54 +00:00
parent 3ba353aa70
commit 7694d8374d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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