paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-19 18:58:23 +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

4
rtl/bsd/ossysc.inc
View File

@ -96,9 +96,9 @@ begin
{$ifdef CPU64} {$ifdef CPU64}
Fpmmap:=pointer(ptruint(do_syscall(TSysParam(syscall_nr_mmap),TSysParam(Start),TSysParam(Len),TSysParam(Prot),TSysParam(Flags),TSysParam(fd),0,TSysParam(offst)))); Fpmmap:=pointer(ptruint(do_syscall(TSysParam(syscall_nr_mmap),TSysParam(Start),TSysParam(Len),TSysParam(Prot),TSysParam(Flags),TSysParam(fd),0,TSysParam(offst))));
{$else} {$else}
Fpmmap:=pointer(ptruint(do_syscall(syscall_nr_mmap,TSysParam(Start),Len,Prot,Flags,fd, 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_BIG_ENDIAN} hi(offst),lo(offst){$endif}
{$ifdef FPC_LITTLE_ENDIAN} lo(offst),hi(offst){$endif},0 {$ifdef FPC_LITTLE_ENDIAN} lo(offst),hi(offst){$endif}
))); )));
{$endif} {$endif}
end; end;