--- a/libcore/core/alloc.c	Fri Nov 27 13:31:16 2020 +0100
+++ b/libcore/core/alloc.c	Fri Nov 27 13:31:27 2020 +0100
@@ -186,6 +186,15 @@
 	return ((unsigned char *)pool->data) + pool->size++ * pool->elemsize;
 }
 
+void *
+alloc_pool_get(const struct alloc_pool *pool, size_t index)
+{
+	assert(pool);
+	assert(index < pool->size);
+
+	return ((unsigned char *)pool->data) + index * pool->elemsize;
+}
+
 void
 alloc_pool_finish(struct alloc_pool *pool)
 {