paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 09:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only moved around the off_t calls, and made an exception (includefile)

Browse Source 
for NetBSD/powerpc
This commit is contained in:
marco 2003-05-29 20:52:55 +00:00
parent 654ba30d20
commit dc3b985838
1 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/bsd/ossysc.inc
View File

@ -106,7 +106,12 @@ begin
Fpclose:=do_syscall(syscall_nr_close,fd);
end;
{$if powerpc and NetBSD}
{$i sysofft.inc} // odd ball calling convention.
{$else}
// generic versions.
function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; [public, alias : 'FPC_SYSC_LSEEK'];
{
this one is special for the return value being 64-bit..
hi/lo offset not yet tested.
@ -119,6 +124,21 @@ begin
Fplseek:=do_syscall(syscall_nr___syscall,syscall_nr_lseek,0,TSysParam(fd),0,lo(Offset),{0} hi(offset),Whence);
end;
function Fpftruncate(fd : cint; flength : off_t): cint; [public, alias : 'FPC_SYSC_FTRUNCATE'];
begin
Fpftruncate:=Do_syscall(syscall_nr___syscall,syscall_nr_ftruncate,0,fd,0,lo(flength),hi(flength));
end;
Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; [public, alias : 'FPC_SYSC_MMAP'];
begin
Fpmmap:=do_syscall(syscall_nr_mmap,Adr,Len,Prot,Flags,fdes,{$ifdef powerpc} 0,{$endif}off{$ifdef i386},0{$endif});
end;
{$endif}
function Fpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_READ'];
begin
@ -323,13 +343,6 @@ end;
(*=================== MOVED from sysunix.inc ========================*)
function Fpftruncate(fd : cint; flength : off_t): cint; [public, alias : 'FPC_SYSC_FTRUNCATE'];
{ See notes lseek. This one is completely similar.
}
begin
Fpftruncate:=Do_syscall(syscall_nr___syscall,syscall_nr_ftruncate,0,fd,0,lo(flength),hi(flength));
end;
function Fpfstat(fd : cint; var sb : stat): cint; [public, alias : 'FPC_SYSC_FSTAT'];
@ -452,10 +465,6 @@ CONST
MAP_ANONYMOUS =$1000;
Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; [public, alias : 'FPC_SYSC_MMAP'];
begin
Fpmmap:=do_syscall(syscall_nr_mmap,Adr,Len,Prot,Flags,fdes,off,0);
end;
Function Fpmunmap(adr:longint;len:size_t):longint; [public, alias :'FPC_SYSC_MUNMAP'];
begin
@ -582,7 +591,11 @@ end;
{
$Log$
Revision 1.2 2003-05-26 21:29:16 jonas
Revision 1.3 2003-05-29 20:52:55 marco
* only moved around the off_t calls, and made an exception (includefile)
for NetBSD/powerpc
Revision 1.2 2003/05/26 21:29:16 jonas
- disabled nanosleep for darwin for now
+ getcwd for darwin