CHANGE: use memory pools for allocating handle context data when poss…

…ible
Oldes · Oct 18, 2024 · 93ff79c · 93ff79c
1 parent 213ae43
commit 93ff79c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/core/c-handle.c b/src/core/c-handle.c
@@ -133,7 +133,7 @@
 
 	//printf("Requested HOB for %s (%u) of size %u\n", SYMBOL_TO_NAME(sym), sym, size);
 	hob = (REBHOB*)Make_Node(HOB_POOL);
-	hob->data  = Make_CMem(size);
+	hob->data  = Make_Managed_CMem(1, size);
 	if (!hob->data) Trap0(RE_NO_MEMORY);
 	hob->index = idx;
 	hob->flags = HANDLE_CONTEXT;

diff --git a/src/core/m-pools.c b/src/core/m-pools.c
@@ -260,6 +260,8 @@ FORCE_INLINE
 		}
 	}
 }
+
+FORCE_INLINE
 /***********************************************************************
 **
 */	void Free_Managed_CMem(void *address)
@@ -758,7 +760,7 @@ FORCE_INLINE
 	}
 
 	CLEAR(hob->data, spec.size); 
-	Free_Mem(hob->data, spec.size);
+	Free_Managed_CMem(hob->data);
 	UNUSE_HOB(hob);
 	Free_Node(HOB_POOL, (REBNOD *)hob);
 	return 1;