FD_ZERO

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

diff --git a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ
index fa144c0e0d704fee7212c5fd2fafc6c41ef0ec5d..0be10b654d043b7fe4bf326300505959a164d1bc 100644 (file)
--- a/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ
+++ b/Trurl-based/_OpenBSD_/Lin/Mod/gen-Net/Net.txt.templ
@@ -26,6 +26,7 @@ MODULE LinNet ["libc.so.66.0"];
                (* /usr/include/sys/select.h *)
                        FD_SETSIZE = 1024;
                        __NBBY = 8;
+
        TYPE
                SOCKET* = INTEGER;
 
@@ -126,7 +127,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);