From 50d6dd8b50958271bf1ff13f99dc21d4cd8431f7 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 13 Jan 2022 19:45:22 +0000 Subject: Implement basic reference counting for arrays, which so they get freed when not in use anymore. --- main.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'main.c') diff --git a/main.c b/main.c index 2e12fff..ad84ad3 100644 --- a/main.c +++ b/main.c @@ -35,8 +35,11 @@ main(int argc, char *argv[]) }else{ if(result[0].shy == 0) print("%S\n", ppdatum(*result)); + if(result->tag == ArrayTag) + freearray(result->array); free(result); } + print("Unfreed allocations: %d\n", alloccounts); } exits(nil); } -- cgit v1.2.3