X-Git-Url: https://git.distorted.org.uk/~mdw/adns/blobdiff_plain/ca00c406d966d65b85d1f94c3d618ccec8de1dc3..4f9225e6d9dcc19ff9a2fff8e9ddecce5c0195d0:/src/query.c?ds=sidebyside

diff --git a/src/query.c b/src/query.c
index c18ba8e..ebbfd53 100644
--- a/src/query.c
+++ b/src/query.c
@@ -415,6 +415,17 @@ static allocnode *alloc_info(adns_query qu, void *p, size_t *sz_r) {
   return an;
 }
 
+void adns__free_interim(adns_query qu, void *p) {
+  size_t sz;
+  allocnode *an= alloc_info(qu, p, &sz);
+
+  if (!an) return;
+  assert(!qu->final_allocspace);
+  LIST_UNLINK(qu->allocations, an);
+  free(an);
+  qu->interim_allocd -= sz;
+}
+
 void *adns__alloc_mine(adns_query qu, size_t sz) {
   return alloc_common(qu,MEM_ROUND(sz));
 }