[Oberon] AosTCP.Mod

[Stefan Salewski]

MODULE AosTCP; (** AUTHOR "pjm, mvt"; PURPOSE "TCP protocol"; *)

(* Finalize all connections in this pool *)
PROCEDURE Finalize();
VAR i: LONGINT;
BEGIN
	FOR i:= 0 TO HashTableSize-1 DO
		WHILE table[i] # NIL DO
			table[i].Finalize();
		END;
	END;
END Finalize;

Can someone give me a hint about the purpose
of this WHILE-loop?
For me this construct looks strange.

Best regards

Stefan Salewski