Selaa lähdekoodia

* fixed 64 bit error

git-svn-id: trunk@6512 -
Jonas Maebe 18 vuotta sitten
vanhempi
commit
5792438e3a
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      rtl/unix/genfuncs.inc

+ 1 - 1
rtl/unix/genfuncs.inc

@@ -23,7 +23,7 @@ var
   pp,p : ppchar;
 //  temp : string; !! Never pass a local var back!!
 begin
-  getmem(pp,4*4);
+  getmem(pp,4*sizeof(pointer));
   p:=pp;
   p^:=@Shell[1];
   inc(p);