ATRINIX: Clear WAKE list upon timeout

Or next wait would return the port even in case of another timeout

Author: Oldes

src/core/c-port.c

@@ -286,6 +286,7 @@ xx*/	REBINT Wait_Device(REBREQ *req, REBCNT timeout)
 */	void Sieve_Ports(REBSER *ports)
 /*
 **		Remove all ports not found in the WAKE list.
+**		ports could be NULL, in which case the WAKE list is cleared.
 **
 ***********************************************************************/
 {
@@ -299,7 +300,7 @@ xx*/	REBINT Wait_Device(REBREQ *req, REBCNT timeout)
 	waked = VAL_BLK_SKIP(port, STD_PORT_DATA);
 	if (!IS_BLOCK(waked)) return;
 
-	for (n = 0; n < SERIES_TAIL(ports);) {
+	for (n = 0; ports && n < SERIES_TAIL(ports);) {
 		val = BLK_SKIP(ports, n);
 		if (IS_PORT(val)) {
 			ASSERT(VAL_TAIL(waked) != 0, RP_IO_ERROR);

src/core/n-io.c

@@ -371,7 +371,10 @@ static REBSER *Read_All_File(char *fname)
 	if (ports) Set_Block(D_RET, ports);
 
 	// Process port events [stack-move]:
-	if (!Wait_Ports(ports, timeout)) return R_NONE;
+	if (!Wait_Ports(ports, timeout)) {
+		Sieve_Ports(NULL); /* just reset the waked list */
+		return R_NONE;
+	}
 	if (!ports) return R_NONE;
 	DS_RELOAD(ds);