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

* fix argv0 passing in gdb_init call

Browse Source 
git-svn-id: trunk@6289 -
This commit is contained in:
pierre 2007-02-01 23:09:46 +00:00
parent 1d049300fd
commit 2f873f287b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2502,7 +2502,7 @@ begin
{$ifdef GDB_INIT_HAS_ARGV0} {$ifdef GDB_INIT_HAS_ARGV0}
getmem(argv0,length(paramstr(0))+1); getmem(argv0,length(paramstr(0))+1);
strpcopy(argv0,paramstr(0)); strpcopy(argv0,paramstr(0));
gdb_init(@argv0); gdb_init(argv0);
freemem(argv0,length(paramstr(0))+1); freemem(argv0,length(paramstr(0))+1);
{$else not GDB_INIT_HAS_ARGV0} {$else not GDB_INIT_HAS_ARGV0}
gdb_init; gdb_init;