paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Linuxerror removed

Browse Source
This commit is contained in:
marco 2003-11-13 13:36:23 +00:00
parent fbf1a7206b
commit 0d494d8a5f
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/unixsysc.inc
View File

@ -17,13 +17,11 @@
Function fdFlush (fd : Longint) : Boolean; Function fdFlush (fd : Longint) : Boolean;
begin begin
fdFlush := (do_SysCall(syscall_nr_fsync, fd)=0); fdFlush := (do_SysCall(syscall_nr_fsync, fd)=0);
LinuxError:=fpgetErrno;
end; end;
Function Flock (fd,mode : longint) : boolean; Function Flock (fd,mode : longint) : boolean;
begin begin
flock:=do_Syscall(Syscall_nr_flock,fd,mode)=0; flock:=do_Syscall(Syscall_nr_flock,fd,mode)=0;
LinuxError:=fpgeterrno;
end; end;
Function StatFS(Path:Pathstr;Var Info:tstatfs):Boolean; Function StatFS(Path:Pathstr;Var Info:tstatfs):Boolean;
@ -35,7 +33,6 @@ Function StatFS(Path:Pathstr;Var Info:tstatfs):Boolean;
begin begin
path:=path+#0; path:=path+#0;
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info))=0); StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info))=0);
LinuxError:=fpgeterrno;
end; end;
Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean; Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
@ -46,7 +43,6 @@ Function StatFS(Fd:Longint;Var Info:tstatfs):Boolean;
} }
begin begin
StatFS:=(do_SysCall(SysCall_nr_fstatfs,fd,longint(@info))=0); StatFS:=(do_SysCall(SysCall_nr_fstatfs,fd,longint(@info))=0);
LinuxError:=fpgeterrno;
end; end;
Function AssignPipe(var pipe_in,pipe_out:longint):boolean; [public, alias : 'FPC_SYSC_ASSIGNPIPE']; Function AssignPipe(var pipe_in,pipe_out:longint):boolean; [public, alias : 'FPC_SYSC_ASSIGNPIPE'];
@ -62,7 +58,6 @@ begin
assignPipe:=do_SysCall(SysCall_nr_pipe,longint(@pip))=0; assignPipe:=do_SysCall(SysCall_nr_pipe,longint(@pip))=0;
pipe_in:=pip[1]; pipe_in:=pip[1];
pipe_out:=pip[2]; pipe_out:=pip[2];
linuxerror:=fpgeterrno;
end; end;
Function PClose(Var F:text) :longint; Function PClose(Var F:text) :longint;
@ -103,21 +98,22 @@ Function IOperm (From,Num : Cardinal; Value : Longint) : boolean;
begin begin
IOPerm:=do_Syscall(Syscall_nr_ioperm,from,num,value)=0; IOPerm:=do_Syscall(Syscall_nr_ioperm,from,num,value)=0;
LinuxError:=fpgetErrno;
end; end;
Function IoPL(Level : longint) : Boolean; Function IoPL(Level : longint) : Boolean;
begin begin
IOPL:=do_Syscall(Syscall_nr_iopl,level)=0; IOPL:=do_Syscall(Syscall_nr_iopl,level)=0;
LinuxError:=fpgetErrno;
end; end;
{$endif cpui386} {$endif cpui386}
{ {
$Log$ $Log$
Revision 1.16 2003-11-09 13:48:55 marco Revision 1.17 2003-11-13 13:36:23 marco
* Linuxerror removed
Revision 1.16 2003/11/09 13:48:55 marco
* small fix * small fix
Revision 1.15 2003/10/30 16:42:25 marco Revision 1.15 2003/10/30 16:42:25 marco