paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 15:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* linuxerror elimination

Browse Source
This commit is contained in:
marco 2003-11-14 16:21:59 +00:00
parent 290dc30c52
commit 45ba035237
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/freebsd/unixsysc.inc
View File

@ -22,7 +22,7 @@ END;
if (pointer(func)=nil) or (sp=nil) then
begin
LinuxError:=EsysEInval;
Lfpseterrno(EsysEInval);
exit(-1);
end;
asm
@ -73,21 +73,18 @@ var tz : timezone;
begin
do_syscall(syscall_nr_gettimeofday,longint(@tv),longint(@tz));
LinuxError:=FpGetErrno;
end;
}
Function fdFlush (fd : Longint) : Boolean;
begin
fdflush:=do_syscall(syscall_nr_fsync,fd)=0;
LinuxError:=FpGetErrno;
end;
Function Flock (fd,mode : longint) : boolean;
begin
Flock:=do_syscall(syscall_nr_flock,fd,mode)=0;
LinuxError:=FpGetErrno;
end;
@ -102,7 +99,6 @@ Function StatFS(Path:Pathstr;Var Info:Tstatfs):Boolean;
begin
path:=path+#0;
StatFS:=Do_Syscall(syscall_nr_statfs,longint(@path[1]),longint(@info))=0;
LinuxError:=FpGetErrno;
end;
Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
@ -114,7 +110,6 @@ Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
begin
StatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info))=0;
LinuxError:=FpGetErrno;
end;
// needs oldfpccall;
@ -147,7 +142,7 @@ begin
end;
// can't have oldfpccall here, linux doesn't need it.
Function AssignPipe(var pipe_in,pipe_out:longint):boolean; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];
Function AssignPipe(var pipe_in,pipe_out:longint):cint; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];
{
Sets up a pair of file variables, which act as a pipe. The first one can
be read from, the second one can be written to.
@ -158,9 +153,9 @@ var
errn : cint;
begin
ret:=intAssignPipe(pipe_in,pipe_out,errn);
fpseterrno(errn);
LinuxError:=Errn;
AssignPipe:=(LinuxError=0);
if ret=-1 Then
fpseterrno(errn);
AssignPipe:=ret;
end;
Function PClose(Var F:text) :longint;
@ -176,10 +171,10 @@ begin
pclose:=res shr 8;
end;
Function PClose(Var F:file) : longint;
Function PClose(Var F:file) : cint;
var
pl : ^longint;
res : longint;
pl : ^cint;
res : cint;
begin
do_syscall(syscall_nr_close,filerec(F).Handle);
@ -193,7 +188,6 @@ function MUnMap (P : Pointer; Size : Longint) : Boolean;
begin
MUnMap:=do_syscall(syscall_nr_munmap,longint(P),Size)=0;
LinuxError:=FpGetErrno;
end;
function intClone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint; {$ifndef ver1_0} oldfpccall; {$endif}
@ -250,7 +244,10 @@ end;
{
$Log$
Revision 1.12 2003-11-09 12:00:16 marco
Revision 1.13 2003-11-14 16:21:59 marco
* linuxerror elimination
Revision 1.12 2003/11/09 12:00:16 marco
* pipe fix
Revision 1.11 2003/09/20 12:38:29 marco