FIX: pass handle flags from external (extension) argument to the internal (host) value

Author: Oldes

src/core/c-handle.c

@@ -94,7 +94,6 @@
 	hob->sym = sym;
 	CLEAR(hob->data, size);
 	USE_HOB(hob);
-	MARK_HOB(hob);
 	//printf("HOB made mem: %p\n", hob->data);
 	return hob;
 }

src/core/f-extension.c

@@ -142,6 +142,7 @@ x*/	void RXI_To_Value(REBVAL *val, RXIARG arg, REBCNT type)
 	case RXE_HANDLE:
 		VAL_HANDLE(val) = arg.addr;
 		VAL_HANDLE_TYPE(val) = arg.handle.type;
+		VAL_HANDLE_FLAGS(val) = arg.handle.flags;
 		break;
 	case RXE_32:
 		VAL_I32(val) = arg.int32a;

src/core/m-gc.c

@@ -254,6 +254,7 @@ static void Mark_Series(REBSER *series, REBCNT depth);
 			break;
 		case REB_HANDLE:
 			if (IS_CONTEXT_HANDLE(val)) {
+				//printf("marked hob: %p %p\n", VAL_HANDLE_CTX(val), val);
 				MARK_HANDLE_CONTEXT(val);
 			}	
 			else if (IS_SERIES_HANDLE(val) && !HANDLE_GET_FLAG(val, HANDLE_RELEASABLE)) {
@@ -548,6 +549,7 @@ static void Mark_Series(REBSER *series, REBCNT depth);
 			SKIP_WALL_TYPE(hob, REBHOB);
 			MUNG_CHECK(HOB_POOL, hob, sizeof(*hob));
 			if (IS_USED_HOB(hob)) {
+				//printf("sweep hob: %p\n", hob);
 				if (IS_MARK_HOB(hob))
 					UNMARK_HOB(hob);
 				else {

src/core/m-pools.c

@@ -613,7 +613,7 @@ const REBPOOLSPEC Mem_Pool_Spec[MAX_POOLS] =
 	if( !IS_USED_HOB(hob) || hob->data == NULL ) return;
 
 	spec = PG_Handles[idx];
-	//printf("HOB free mem: %0x\n", hob->data);
+	//printf("HOB free mem: %p\n", hob->data);
 
 	if (spec.free)
 		spec.free(hob->data);