From 23f37d0c749742c51259d767fceae546ed551b06 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Fri, 2 Sep 2022 11:12:25 +0200
Subject: [PATCH] use arena for interning types too

---
 src/type.cff | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/type.cff b/src/type.cff
index 2e4d840..641694c 100644
--- a/src/type.cff
+++ b/src/type.cff
@@ -108,14 +108,15 @@ struct TypeTraits {
    }
 
    fn dup(ty *const Type) *const Type {
-      let p *Type = xmalloc(sizeof Type);
+      static arena Arena = {};
+      let p *Type = Arena:allocf(&arena, sizeof Type, alignof Type);
       static id int = 0;
       *p = *ty;
       p.id = id++;
       switch p.u {
       case Fn *f;
         let params = f.params;
-        f.params = (as(**const Type)xmalloc(params.#len * sizeof *Type))[0::params.#len];
+        f.params = (as(**const Type)Arena:allocf(&arena, params.#len * sizeof *Type, alignof *Type))[0::params.#len];
         memcpy(f.params.#ptr, params.#ptr, params.#len * sizeof *Type);
       }
       return p;
-- 
2.38.5