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 ea54461b935d087ce5e0c5526458a7406bde0f44..756fa5e45b9a12dda5dfbaa9ff5daa8aa6c075c9 100644 (file)
%%defs-netdb%%
(* /usr/include/i386-linux-gnu/bits/typesizes.h *)
__FD_SETSIZE = 1024;
- __NFDBITS = SIZE(SET) * 8;
TYPE
SOCKET* = INTEGER;
(* /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;
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);