FIX: ATRONIX: Do not free port/state

Fixes: metaeducation/rebol-issues#2171
Oldes · Feb 1, 2018 · 7553959 · 7553959
1 parent 7091c94
commit 7553959
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 21 deletions.
diff --git a/src/core/c-port.c b/src/core/c-port.c
@@ -113,23 +113,6 @@
 }
 
 
-/***********************************************************************
-**
-*/	void Free_Port_State(REBSER *port)
-/*
-***********************************************************************/
-{
-	REBVAL *state = BLK_SKIP(port, STD_PORT_STATE);
-
-	// ??? check that this is the binary we think it is? !!!
-
-	if (IS_BINARY(state)) {
-		Loose_Series(VAL_SERIES(state));
-		VAL_SET(state, REB_NONE);
-	}
-}
-
-
 /***********************************************************************
 **
 */	REBFLG Pending_Port(REBVAL *port)

diff --git a/src/core/p-file.c b/src/core/p-file.c
@@ -353,7 +353,6 @@ REBINT Mode_Syms[] = {
 		if (opened) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 
 		if (file->error) Trap_Port(RE_READ_ERROR, port, file->error);
@@ -399,7 +398,6 @@ REBINT Mode_Syms[] = {
 		if (opened) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 
 		if (file->error) Trap1(RE_WRITE_ERROR, path);
@@ -427,7 +425,6 @@ REBINT Mode_Syms[] = {
 		if (IS_OPEN(file)) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 		break;
 

diff --git a/src/core/p-net.c b/src/core/p-net.c
@@ -272,7 +272,6 @@ enum Transport_Types {
 			OS_DO_DEVICE(sock, RDC_CLOSE);
 			SET_CLOSED(sock);
 		}
-		Free_Port_State(port);
 		break;
 
 	case A_LENGTHQ: