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

* powerpc select fix

Browse Source
This commit is contained in:
marco 2004-02-21 23:18:50 +00:00
parent a895e7bb78
commit 3783a51b79
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/bunxfunc.inc
View File

@ -423,23 +423,33 @@ Function fpSelect(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cin
have changed. have changed.
} }
{$ifdef cpui386}
Var Var
SelectArray : Array[1..5] of longint; SelectArray : Array[1..5] of longint;
{$endif}
begin begin
{$ifdef cpui386}
SelectArray[1]:=n; SelectArray[1]:=n;
SelectArray[2]:=longint(Readfds); SelectArray[2]:=longint(Readfds);
Selectarray[3]:=longint(Writefds); Selectarray[3]:=longint(Writefds);
selectarray[4]:=longint(exceptfds); selectarray[4]:=longint(exceptfds);
Selectarray[5]:=longint(TimeOut); Selectarray[5]:=longint(TimeOut);
fpSelect:=do_syscall(syscall_nr_select,longint(@selectarray)); fpSelect:=do_syscall(syscall_nr_select,longint(@selectarray));
{$endif}
{$ifdef cpupowerpc}
fpSelect:=do_syscall(syscall_nr__newselect,n,tsysparam(readfds),tsysparam(writefds),tsysparam(exceptfds),tsysparam(timeout));
{$endif}
end; end;
{$endif} {$endif}
{ {
$Log$ $Log$
Revision 1.7 2003-12-30 15:43:20 marco Revision 1.8 2004-02-21 23:18:50 marco
* powerpc select fix
Revision 1.7 2003/12/30 15:43:20 marco
* linux now compiles with FPC_USE_LIBC * linux now compiles with FPC_USE_LIBC
Revision 1.6 2003/11/19 14:04:34 marco Revision 1.6 2003/11/19 14:04:34 marco