add unitwindowobject.pas with bewares permission

[lcore.git] / fd_utils.pas

diff --git a/fd_utils.pas b/fd_utils.pas
index ea6e833d34a5e85a00a675c381a617c603ffbb82..de89e5fedaf41cc8d7a2aa60723142ee278b278d 100755 (executable)
--- a/fd_utils.pas
+++ b/fd_utils.pas
@@ -26,18 +26,16 @@ interface
 type\r
     FDSet= Array [0..255] of longint; {31}\r
     PFDSet= ^FDSet;\r
 type\r
     FDSet= Array [0..255] of longint; {31}\r
     PFDSet= ^FDSet;\r

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

 \r
 Procedure FD_Clr(fd:longint;var fds:fdSet);\r
 Procedure FD_Zero(var fds:fdSet);\r
 Procedure FD_Set(fd:longint;var fds:fdSet);\r
 Function FD_IsSet(fd:longint;var fds:fdSet):boolean;\r
 \r
 Procedure FD_Clr(fd:longint;var fds:fdSet);\r
 Procedure FD_Zero(var fds:fdSet);\r
 Procedure FD_Set(fd:longint;var fds:fdSet);\r
 Function FD_IsSet(fd:longint;var fds:fdSet):boolean;\r

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

 {$endif}\r
 \r
 implementation  \r
 {$endif}\r
 \r
 implementation  \r