X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..5c04c841812bdb200cc3c73169b1542aef6c2fc3:/fd_utils.pas

diff --git a/fd_utils.pas b/fd_utils.pas
index ea6e833..de89e5f 100755
--- a/fd_utils.pas
+++ b/fd_utils.pas
@@ -26,18 +26,16 @@ interface
 type
     FDSet= Array [0..255] of longint; {31}
     PFDSet= ^FDSet;
-const
-    absoloutemaxs=(sizeof(fdset)*8)-1;
 
 Procedure FD_Clr(fd:longint;var fds:fdSet);
 Procedure FD_Zero(var fds:fdSet);
 Procedure FD_Set(fd:longint;var fds:fdSet);
 Function FD_IsSet(fd:longint;var fds:fdSet):boolean;
-
-{$ifdef fpc}
-  {$ifndef ver1_0}
-    {$define useinline}
-  {$endif}
+
+{$ifdef fpc}
+  {$ifndef ver1_0}
+    {$define useinline}
+  {$endif}
 {$endif}
 
 implementation