From 28e7dd47d568908702264977d70860c25467fb6e Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 8 Jul 2021 17:07:15 +0000 Subject: Add a mark-sweep garbage collector --- module.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'module.c') diff --git a/module.c b/module.c index 8325fc9..45d0797 100644 --- a/module.c +++ b/module.c @@ -56,7 +56,7 @@ parsemodule(char *file) Predicate *currentpred = nil; Term *t; for(t = terms; t != nil; t = t->next){ - Clause *cl = malloc(sizeof(Clause)); + Clause *cl = gmalloc(sizeof(Clause)); int arity; cl->clausenr = 0; cl->next = nil; @@ -78,7 +78,7 @@ parsemodule(char *file) m->predicates = appendpredicate(currentpred, m->predicates); else usermodule->predicates = appendpredicate(currentpred, usermodule->predicates); - currentpred = malloc(sizeof(Predicate)); + currentpred = gmalloc(sizeof(Predicate)); currentpred->name = cl->head->text; currentpred->arity = arity; currentpred->clauses = cl; @@ -109,7 +109,7 @@ getmodule(Rune *name) Module * addemptymodule(Rune *name) { - Module *m = malloc(sizeof(Module)); + Module *m = gmalloc(sizeof(Module)); m->name = name; m->next = modules; -- cgit v1.2.3