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

* fixed 64 bit error

Browse Source 
git-svn-id: trunk@6512 -
This commit is contained in:
Jonas Maebe 2007-02-16 15:24:55 +00:00
parent 63eac6f420
commit 5792438e3a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/genfuncs.inc
View File

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