Browse Source

* Linuxerror removed

marco 22 years ago
parent
commit
0d494d8a5f
1 changed files with 4 additions and 8 deletions
  1. 4 8
      rtl/linux/unixsysc.inc

+ 4 - 8
rtl/linux/unixsysc.inc

@@ -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