paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 20:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes that made ppc386 -h working

Browse Source
This commit is contained in:
marco 2000-03-16 16:19:28 +00:00
parent d6c9ca025c
commit 968c1563a5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/bsd/linux.pp
View File

@ -578,10 +578,10 @@ Function Dup(var oldfile,newfile:file):Boolean;
Function Dup2(oldfile,newfile:longint):Boolean;
Function Dup2(var oldfile,newfile:text):Boolean;
Function Dup2(var oldfile,newfile:file):Boolean;
{
Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:PTimeVal):longint;
Function Select(N:longint;readfds,writefds,exceptfds:PFDSet;TimeOut:Longint):longint;
}
Function SelectText(var T:Text;TimeOut :PTimeVal):Longint;
{**************************
@ -2661,7 +2661,7 @@ Function IOCtl(Handle,Ndx: Longint;Data: Pointer):boolean;
}
begin
IOCtl:=Do_Syscall(54,handle,ndx,data);
IOCtl:=Do_Syscall(54,handle,ndx,longint(data))=0;
LinuxError:=Errno;
end;
@ -3645,7 +3645,10 @@ End.
{
$Log$
Revision 1.6 2000-03-02 15:33:20 marco
Revision 1.7 2000-03-16 16:19:28 marco
* fixes that made ppc386 -h working
Revision 1.6 2000/03/02 15:33:20 marco
* fixed some types and errors that needed longint(@ typecasting.
Revision 1.5 2000/03/01 20:04:38 marco