Преглед на файлове

* fixed 64 bit error

git-svn-id: trunk@6512 -
Jonas Maebe преди 18 години
родител
ревизия
5792438e3a
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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);