the big lot of changes by beware

[lcore.git] / lcoreselect.pas

diff --git a/lcoreselect.pas b/lcoreselect.pas
index e0351ebfa7400afd280049b29e8a30dbda84bf4e..bae8fe4699bc849dc175ec91e720ab3cd9a4e278 100755 (executable)
--- a/lcoreselect.pas
+++ b/lcoreselect.pas
@@ -7,11 +7,11 @@
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 

-{$ifdef fpc}                                                                    
-  {$ifndef ver1_0}                                                              
-    {$define useinline}                                                         
-  {$endif}                                                                      
-{$endif}  \r
+{$ifdef fpc}
+  {$ifndef ver1_0}
+    {$define useinline}
+  {$endif}
+{$endif}\r

 \r
 unit lcoreselect;\r
 \r
 \r
 unit lcoreselect;\r
 \r


@@ -41,8 +41,12 @@ uses
 \r
 {$include unixstuff.inc}\r
 {$include ltimevalstuff.inc}\r
 \r
 {$include unixstuff.inc}\r
 {$include ltimevalstuff.inc}\r

+\r
+const\r
+  absoloutemaxs_select = (sizeof(fdset)*8)-1;\r
+\r

 var\r
 var\r

-  fdreverse:array[0..absoloutemaxs] of tlasio;\r
+  fdreverse:array[0..absoloutemaxs_select] of tlasio;\r

 type\r
   tselecteventcore=class(teventcore)\r
     public\r
 type\r
   tselecteventcore=class(teventcore)\r
     public\r


@@ -393,6 +397,8 @@ end;
 begin\r
   eventcore := tselecteventcore.create;\r
 \r
 begin\r
   eventcore := tselecteventcore.create;\r
 \r

+  absoloutemaxs := absoloutemaxs_select;\r
+\r

   maxs := 0;\r
   fd_zero(fdsrmaster);\r
   fd_zero(fdswmaster);\r
   maxs := 0;\r
   fd_zero(fdsrmaster);\r
   fd_zero(fdswmaster);\r