FD_ZERO

[bbcp.git] / Trurl-based / _OpenBSD_ / Lin / Mod / Net.txt

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt b/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt
index 24b0984b8ef964ae0f06dcdd3ae23c9c2b3f68ae..95c7e4c4f7726adcdab5c1708e39e7d6cf99a0f3 100644 (file)
--- a/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/Net.txt
@@ -156,6 +156,7 @@ MODULE LinNet ["libc.so.66.0"];
                (* /usr/include/sys/select.h *)
                        FD_SETSIZE = 1024;
                        __NBBY = 8;
+
        TYPE
                SOCKET* = INTEGER;
 
@@ -256,7 +257,7 @@ MODULE LinNet ["libc.so.66.0"];
        PROCEDURE FD_ZERO (VAR set: Net.fd_set);
                VAR i: INTEGER;
        BEGIN
-               i := 0; WHILE i < LEN(set) DO set[i] := {}; INC(i) END
+               i := LEN(set); REPEAT DEC(i); set[i] := {} UNTIL i = 0
        END FD_ZERO;
 
        PROCEDURE FD_SET (fd: Net.SOCKET; VAR set: Net.fd_set);