X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..808a50cfd5b22c3503854d0d71075caec07c53cd:/lcoreselect.pas?ds=sidebyside

diff --git a/lcoreselect.pas b/lcoreselect.pas
index e0351eb..bae8fe4 100755
--- a/lcoreselect.pas
+++ b/lcoreselect.pas
@@ -7,11 +7,11 @@
   which is included in the package
   ----------------------------------------------------------------------------- }
 
-{$ifdef fpc}                                                                    
-  {$ifndef ver1_0}                                                              
-    {$define useinline}                                                         
-  {$endif}                                                                      
-{$endif}  
+{$ifdef fpc}
+  {$ifndef ver1_0}
+    {$define useinline}
+  {$endif}
+{$endif}
 
 unit lcoreselect;
 
@@ -41,8 +41,12 @@ uses
 
 {$include unixstuff.inc}
 {$include ltimevalstuff.inc}
+
+const
+  absoloutemaxs_select = (sizeof(fdset)*8)-1;
+
 var
-  fdreverse:array[0..absoloutemaxs] of tlasio;
+  fdreverse:array[0..absoloutemaxs_select] of tlasio;
 type
   tselecteventcore=class(teventcore)
     public
@@ -393,6 +397,8 @@ end;
 begin
   eventcore := tselecteventcore.create;
 
+  absoloutemaxs := absoloutemaxs_select;
+
   maxs := 0;
   fd_zero(fdsrmaster);
   fd_zero(fdswmaster);