X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Trurl-based%2F_OpenBSD_%2FLin%2FMod%2Fgen-Net%2FNet.txt.templ;h=0be10b654d043b7fe4bf326300505959a164d1bc;hb=fe6a598021984cb3877a36cba81e9c542d9f9547;hp=fa144c0e0d704fee7212c5fd2fafc6c41ef0ec5d;hpb=341e3ffda6064019a2ae289fb9bc98d0bb2f3c74;p=bbcp.git

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 fa144c0..0be10b6 100644
--- 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);