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

Add USE_LOCAL_SET_GDB_DATA_DIRECTORY macro, to avoid main.o incorporation

Browse Source 
git-svn-id: trunk@28992 -
This commit is contained in:
pierre 2014-11-05 20:47:47 +00:00
parent a7879a60fd
commit 86adaa1254
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gdbint/src/gdbint.pp
View File

@ -79,6 +79,7 @@ interface
{$ifdef GDB_VER_GE_708}
{$define USE_CATCH_EXCEPTIONS}
{$define USE_LOCAL_SET_GDB_DATA_DIRECTORY}
{$define GDB_VER_GE_707}
{$endif}
@ -251,7 +252,7 @@ interface
{$define GDB_USES_BP_LOCATION}
{$define GDB_NEEDS_NO_ERROR_INIT}
{$define GDB_USES_EXPAT_LIB}
{$define GDB_HAS_DEBUG_FILE_DIRECTORY}
{Official 6.6 release doesn't have GDB_HAS_DEBUG_FILE_DIRECTORY}
{$endif def GDB_V606}
{ 6.5.x }
@ -3540,6 +3541,15 @@ var
debug_file_directory : pchar; cvar; external;
{$endif GDB_HAS_DEBUG_FILE_DIRECTORY}
{$ifdef USE_LOCAL_SET_GDB_DATA_DIRECTORY}
{ Avoid loading of main.o object by providing a
stripped down version of relocate_gdb_directory function }
procedure set_gdb_data_directory(path : pchar); cdecl; public;
begin
gdb_datadir:=path;
end;
{$endif USE_LOCAL_SET_GDB_DATA_DIRECTORY}
begin
{$ifdef GDB_HAS_SYSROOT}
gdb_sysrootc := #0;