1 files changed, 12 insertions, 0 deletions
diff --git a/src/libstddjb/genalloc_deepfree.c b/src/libstddjb/genalloc_deepfree.c
new file mode 100644
index 0000000..cda800a
--- /dev/null
+++ b/src/libstddjb/genalloc_deepfree.c
@@ -0,0 +1,12 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+
+void genalloc_deepfree_size (genalloc *g, freefunc_t_ref f, unsigned int size)
+{
+  unsigned int len = g->len / size ;
+  register unsigned int i = 0 ;
+  for (; i < len ; i++) (*f)(g->s + i * size) ;
+  stralloc_free(g) ;
+}