* Add relocate_gdb_directory to avoid loading of main.o from libgdb.a

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20649 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 0 deletions

diff --git a/packages/gdbint/src/gdbint.pp b/packages/gdbint/src/gdbint.pp
index 09b1e358d4..9ca5a05e12 100644
--- a/packages/gdbint/src/gdbint.pp
+++ b/packages/gdbint/src/gdbint.pp
@@ -2629,6 +2629,13 @@ end;
 {$endif not GDB_NOTIFY_BREAKPOINT_ARG_IS_BREAKPOINT_PTR}
 {$endif def GDB_HAS_OBSERVER_NOTIFY_BREAKPOINT_CREATED}
 
+{ Avoid loading of main.o object by providing a
+  stripped down version of relocate_gdb_directory function }
+function relocate_gdb_directory(path : pchar) : pchar; cdecl; public;
+begin
+  relocate_gdb_directory:=path;
+end;
+
 {*****************************************************************************
                                  tgdbinterface
 *****************************************************************************}