Procházet zdrojové kódy

* fix argv0 passing in gdb_init call

git-svn-id: trunk@6289 -
pierre před 18 roky
rodič
revize
2f873f287b
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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}
 {$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;