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

* gdb_init has an arg argv0 containing the

Browse Source 
executable name

git-svn-id: trunk@5805 -
This commit is contained in:
pierre 2007-01-04 10:45:39 +00:00
parent 7018d5adfb
commit 6ad288cd32
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,6 +74,7 @@ interface
{$define GDB_HAS_SYSROOT} {$define GDB_HAS_SYSROOT}
{$define GDB_HAS_DB_COMMANDS} {$define GDB_HAS_DB_COMMANDS}
{$define GDB_SYMTAB_HAS_MACROS} {$define GDB_SYMTAB_HAS_MACROS}
{$define GDB_INIT_HAS_ARGV0}
{$endif GDB_V6} {$endif GDB_V6}
{ GDB has a simulator for powerpc CPU { GDB has a simulator for powerpc CPU
@ -1124,7 +1125,11 @@ function xmalloc(size : longint) : pointer;cdecl;external;
function find_pc_line(i:CORE_ADDR;l:longint):symtab_and_line;cdecl;external; function find_pc_line(i:CORE_ADDR;l:longint):symtab_and_line;cdecl;external;
function find_pc_function(i:CORE_ADDR):psymbol;cdecl;external; function find_pc_function(i:CORE_ADDR):psymbol;cdecl;external;
function lookup_minimal_symbol_by_pc(i : CORE_ADDR):pminimal_symbol;cdecl;external; function lookup_minimal_symbol_by_pc(i : CORE_ADDR):pminimal_symbol;cdecl;external;
{$ifdef GDB_INIT_HAS_ARGV0}
procedure gdb_init(argv0 : pchar);cdecl;external;
{$else not GDB_INIT_HAS_ARGV0}
procedure gdb_init;cdecl;external; procedure gdb_init;cdecl;external;
{$endif not GDB_INIT_HAS_ARGV0}
procedure execute_command(p:pchar;i:longint);cdecl;external; procedure execute_command(p:pchar;i:longint);cdecl;external;
procedure target_kill;cdecl;external; procedure target_kill;cdecl;external;
procedure target_close(i:longint);cdecl;external; procedure target_close(i:longint);cdecl;external;
@ -2446,6 +2451,10 @@ procedure InitLibGDB;
var var
OldSigInt : SignalHandler; OldSigInt : SignalHandler;
{$endif supportexceptions} {$endif supportexceptions}
{$ifdef GDB_INIT_HAS_ARGV0}
var
argv0 : pchar;
{$endif not GDB_INIT_HAS_ARGV0}
begin begin
{$ifdef go32v2} {$ifdef go32v2}
c_environ:=system.envp; c_environ:=system.envp;
@ -2487,7 +2496,14 @@ begin
{$ifdef GDB_V6} {$ifdef GDB_V6}
uiout := cli_out_new (gdb_stdout); uiout := cli_out_new (gdb_stdout);
{$endif} {$endif}
{$ifdef GDB_INIT_HAS_ARGV0}
getmem(argv0,length(paramstr(0))+1);
strpcopy(argv0,paramstr(0));
gdb_init(@argv0);
freemem(argv0,length(paramstr(0))+1);
{$else not GDB_INIT_HAS_ARGV0}
gdb_init; gdb_init;
{$endif not GDB_INIT_HAS_ARGV0}
{$ifdef supportexceptions} {$ifdef supportexceptions}
{$ifdef unix} {$ifdef unix}
fpsignal(SIGINT,OldSigInt); fpsignal(SIGINT,OldSigInt);