paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 09:01:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* replaced some Fp with Sys_ to get cycle working

Browse Source
This commit is contained in:
peter 2002-12-18 17:52:07 +00:00
parent bd1f8661c0
commit 8d7bf4847c
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/unix/linux.pp
View File

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