Browse Source

* fix argv0 passing in gdb_init call

git-svn-id: trunk@6289 -
pierre 18 năm trước cách đây
mục cha
commit
2f873f287b
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      packages/base/gdbint/gdbint.pp

+ 1 - 1
packages/base/gdbint/gdbint.pp

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