paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 03:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another fix for mmap from Chrisopher Key. 32-bit this time. Mostly in

Browse Source 
unused arguments atm, but could be important for other uses of mmap.

git-svn-id: trunk@15871 -
This commit is contained in:
marco 2010-08-22 09:46:17 +00:00
parent a386a642cc
commit 6cc641c7bb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/bsd/ossysc.inc
View File

@ -96,10 +96,10 @@ begin
{$ifdef CPU64}
Fpmmap:=pointer(ptruint(do_syscall(TSysParam(syscall_nr_mmap),TSysParam(Start),TSysParam(Len),TSysParam(Prot),TSysParam(Flags),TSysParam(fd),0,TSysParam(offst))));
{$else}
Fpmmap:=pointer(ptruint(do_syscall(syscall_nr_mmap,TSysParam(Start),Len,Prot,Flags,fd,
{$ifdef FPC_BIG_ENDIAN} hi(offst),lo(offst){$endif}
{$ifdef FPC_LITTLE_ENDIAN} lo(offst),hi(offst){$endif},0
)));
Fpmmap:=pointer(ptruint(do_syscall(syscall_nr_mmap,TSysParam(Start),Len,Prot,Flags,fd,0,
{$ifdef FPC_BIG_ENDIAN} hi(offst),lo(offst){$endif}
{$ifdef FPC_LITTLE_ENDIAN} lo(offst),hi(offst){$endif}
)));
{$endif}
end;