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

+ implemented fpselect for sparc

Browse Source
This commit is contained in:
florian 2004-10-13 20:47:12 +00:00
parent c25b06a836
commit 17f0044937
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/linux/bunxfunc.inc
View File

@ -430,23 +430,35 @@ Var
begin
{$ifdef cpui386}
{$define bunxfunc_fpselect_implemented}
SelectArray[1]:=n;
SelectArray[2]:=TSysParam(Readfds);
Selectarray[3]:=TSysParam(Writefds);
selectarray[4]:=TSysParam(exceptfds);
Selectarray[5]:=TSysParam(TimeOut);
fpSelect:=do_syscall(syscall_nr_select,TSysParam(@selectarray));
{$endif}
{$endif cpui386}
{$ifdef cpupowerpc}
fpSelect:=do_syscall(syscall_nr__newselect,n,tsysparam(readfds),tsysparam(writefds),tsysparam(exceptfds),tsysparam(timeout));
{$endif}
{$define bunxfunc_fpselect_implemented}
fpSelect:=do_syscall(syscall_nr__newselect,n,tsysparam(readfds),tsysparam(writefds),tsysparam(exceptfds),tsysparam(timeout));
{$endif cpupowerpc}
{$ifdef cpusparc}
{$define bunxfunc_fpselect_implemented}
fpSelect:=do_syscall(syscall_nr__newselect,n,tsysparam(readfds),tsysparam(writefds),tsysparam(exceptfds),tsysparam(timeout));
{$endif cpusparc}
{$ifndef bunxfunc_fpselect_implemented}
{$error Implement fpselect}
{$endif bunxfunc_fpselect_implemented}
end;
{$endif}
{
$Log$
Revision 1.10 2004-04-28 20:48:20 peter
Revision 1.11 2004-10-13 20:47:12 florian
+ implemented fpselect for sparc
Revision 1.10 2004/04/28 20:48:20 peter
* ordinal-pointer conversions fixed
Revision 1.9 2004/04/22 17:17:23 peter