Browse Source

+ implemented fpselect for sparc

florian 21 years ago
parent
commit
17f0044937
1 changed files with 16 additions and 4 deletions
  1. 16 4
      rtl/linux/bunxfunc.inc

+ 16 - 4
rtl/linux/bunxfunc.inc

@@ -430,23 +430,35 @@ Var
 
 
 begin
 begin
 {$ifdef cpui386}
 {$ifdef cpui386}
+  {$define bunxfunc_fpselect_implemented}
   SelectArray[1]:=n;
   SelectArray[1]:=n;
   SelectArray[2]:=TSysParam(Readfds);
   SelectArray[2]:=TSysParam(Readfds);
   Selectarray[3]:=TSysParam(Writefds);
   Selectarray[3]:=TSysParam(Writefds);
   selectarray[4]:=TSysParam(exceptfds);
   selectarray[4]:=TSysParam(exceptfds);
   Selectarray[5]:=TSysParam(TimeOut);
   Selectarray[5]:=TSysParam(TimeOut);
   fpSelect:=do_syscall(syscall_nr_select,TSysParam(@selectarray));
   fpSelect:=do_syscall(syscall_nr_select,TSysParam(@selectarray));
-{$endif}
+{$endif cpui386}
 {$ifdef cpupowerpc}
 {$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;
 end;
 
 
 {$endif}
 {$endif}
 
 
 {
 {
  $Log$
  $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
    * ordinal-pointer conversions fixed
 
 
  Revision 1.9  2004/04/22 17:17:23  peter
  Revision 1.9  2004/04/22 17:17:23  peter