Port, TODO

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

diff --git a/Trurl-based/_Linux_/Lin/Mod/Net.txt b/Trurl-based/_Linux_/Lin/Mod/Net.txt
index 5636fe77c691fc51036eed8fac42ac634af04d52..738f28a6fbb3e6e1438e1be7ed08f3d664870bbb 100644 (file)
--- a/Trurl-based/_Linux_/Lin/Mod/Net.txt
+++ b/Trurl-based/_Linux_/Lin/Mod/Net.txt
@@ -149,7 +149,6 @@ MODULE LinNet ["libc.so.6"];
 
                (* /usr/include/i386-linux-gnu/bits/typesizes.h *)
                        __FD_SETSIZE = 1024;
-                       __NFDBITS = SIZE(SET) * 8;
 
        TYPE
                SOCKET* = INTEGER;
@@ -215,7 +214,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;
@@ -244,7 +243,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);