Преглед изворни кода

* replaced some Fp with Sys_ to get cycle working

peter пре 22 година
родитељ
комит
8d7bf4847c
1 измењених фајлова са 12 додато и 9 уклоњено
  1. 12 9
      rtl/unix/linux.pp

+ 12 - 9
rtl/unix/linux.pp

@@ -1012,7 +1012,7 @@ end;
 Function fdOpen(pathname:string;flags:longint):longint;
 begin
   pathname:=pathname+#0;
-  fdOpen:=FpOpen(@pathname[1],flags,438);
+  fdOpen:=Sys_Open(@pathname[1],flags,438);
   LinuxError:=Errno;
 end;
 
@@ -1020,7 +1020,7 @@ end;
 Function fdOpen(pathname:string;flags,mode:longint):longint;
 begin
   pathname:=pathname+#0;
-  fdOpen:=FpOpen(@pathname[1],flags,mode);
+  fdOpen:=Sys_Open(@pathname[1],flags,mode);
   LinuxError:=Errno;
 end;
 
@@ -1028,7 +1028,7 @@ end;
 
 Function  fdOpen(pathname:pchar;flags:longint):longint;
 begin
-  fdOpen:=FpOpen(pathname,flags,0);
+  fdOpen:=Sys_Open(pathname,flags,0);
   LinuxError:=Errno;
 end;
 
@@ -1036,7 +1036,7 @@ end;
 
 Function  fdOpen(pathname:pchar;flags,mode:longint):longint;
 begin
-  fdOpen:=FpOpen(pathname,flags,mode);
+  fdOpen:=Sys_Open(pathname,flags,mode);
   LinuxError:=Errno;
 end;
 
@@ -1044,7 +1044,7 @@ end;
 
 Function fdClose(fd:longint):boolean;
 begin
-  fdClose:=(FpClose(fd)=0);
+  fdClose:=(Sys_Close(fd)=0);
   LinuxError:=Errno;
 end;
 
@@ -1052,7 +1052,7 @@ end;
 
 Function fdRead(fd:longint;var buf;size:longint):longint;
 begin
-  fdRead:=FpRead(fd,pchar(@buf),size);
+  fdRead:=Sys_Read(fd,pchar(@buf),size);
   LinuxError:=Errno;
 end;
 
@@ -1060,7 +1060,7 @@ end;
 
 Function fdWrite(fd:longint;const buf;size:longint):longint;
 begin
-  fdWrite:=FpWrite(fd,pchar(@buf),size);
+  fdWrite:=Sys_Write(fd,pchar(@buf),size);
   LinuxError:=Errno;
 end;
 
@@ -1073,7 +1073,7 @@ Function  fdSeek (fd,pos,seektype :longint): longint;
 
 }
 begin
-   fdseek:=FpLSeek (fd,pos,seektype);
+   fdseek:=Sys_LSeek (fd,pos,seektype);
    LinuxError:=Errno;
 end;
 
@@ -3032,7 +3032,10 @@ End.
 
 {
   $Log$
-  Revision 1.25  2002-12-18 16:50:39  marco
+  Revision 1.26  2002-12-18 17:52:07  peter
+    * replaced some Fp with Sys_ to get cycle working
+
+  Revision 1.25  2002/12/18 16:50:39  marco
    * Unix RTL generic parts. Linux working, *BSD will follow shortly
 
   Revision 1.24  2002/09/13 13:03:27  jonas