X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Trurl-based%2F_Linux_%2FLin%2FMod%2Fgen-Net%2FNet.txt.templ;h=756fa5e45b9a12dda5dfbaa9ff5daa8aa6c075c9;hb=fe6a598021984cb3877a36cba81e9c542d9f9547;hp=ea54461b935d087ce5e0c5526458a7406bde0f44;hpb=321130719c55f61b48aa3bb09ee3622c27ee55cb;p=bbcp.git

diff --git a/Trurl-based/_Linux_/Lin/Mod/gen-Net/Net.txt.templ b/Trurl-based/_Linux_/Lin/Mod/gen-Net/Net.txt.templ
index ea54461..756fa5e 100644
--- a/Trurl-based/_Linux_/Lin/Mod/gen-Net/Net.txt.templ
+++ b/Trurl-based/_Linux_/Lin/Mod/gen-Net/Net.txt.templ
@@ -31,7 +31,6 @@ MODULE LinNet ["libc.so.6"];
 %%defs-netdb%%
 		(* /usr/include/i386-linux-gnu/bits/typesizes.h *)
 			__FD_SETSIZE = 1024;
-			__NFDBITS = SIZE(SET) * 8;
 
 	TYPE
 		SOCKET* = INTEGER;
@@ -97,7 +96,7 @@ MODULE LinNet ["libc.so.6"];
 
 		(* /usr/include/i386-linux-gnu/sys/select.h *)
 			__fd_mask = SET;
-			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV __NFDBITS OF __fd_mask;
+			fd_set* = ARRAY [untagged] __FD_SETSIZE DIV (SIZE(__fd_mask) * 8) OF __fd_mask;
 
 	VAR
 		h_errno*: INTEGER;
@@ -126,7 +125,7 @@ MODULE LinNet ["libc.so.6"];
 	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);