1 files changed, 0 insertions, 21 deletions
diff --git a/byterun/alloc.c b/byterun/alloc.c
index 7a979f519..ebe9961d3 100644
--- a/byterun/alloc.c
+++ b/byterun/alloc.c
@@ -79,27 +79,6 @@ value alloc_string (mlsize_t len)
   return result;
 }
 
-value alloc_custom(struct custom_operations * ops,
-                   unsigned long size,
-                   mlsize_t mem,
-                   mlsize_t max)
-{
-  mlsize_t wosize;
-  value result;
-
-  wosize = 1 + (size + sizeof(value) - 1) / sizeof(value);
-  if (ops->finalize == NULL && wosize <= Max_young_wosize) {
-    result = alloc_small(wosize, Custom_tag);
-    Custom_ops_val(result) = ops;
-  } else {
-    result = alloc_shr(wosize, Custom_tag);
-    Custom_ops_val(result) = ops;
-    adjust_gc_speed(mem, max);
-    result = check_urgent_gc(result);
-  }
-  return result;
-}
-
 value alloc_final (mlsize_t len, final_fun fun, mlsize_t mem, mlsize_t max)
 {
   return alloc_custom(final_custom_operations(fun),