interntype by ref

1 files changed, 5 insertions, 5 deletions

diff --git a/src/cffc.hff b/src/cffc.hff
index 06e87fb..4d57d3d 100644
--- a/src/cffc.hff
+++ b/src/cffc.hff
@@ -441,7 +441,7 @@ extern static ty_void     *const Type,
               ty_c_llong  *const Type,
               ty_c_ullong *const Type,
               ty_c_valist *const Type;
-extern fn interntype(Type) *const Type;
+extern fn interntype(*Type) *const Type;
 extern fn putprimtypes(env *Env) void;
 fn constify(ty *const Type) *const Type {
    if ty.konst or ty.u.#tag == :Fn {
@@ -449,7 +449,7 @@ fn constify(ty *const Type) *const Type {
    }
    let ty2 = *ty;
    ty2.konst = #t;
-   return interntype(ty2);
+   return interntype(&ty2);
 }
 fn unconstify(ty *const Type) *const Type {
    if !ty.konst {
@@ -457,17 +457,17 @@ fn unconstify(ty *const Type) *const Type {
    }
    let ty2 = *ty;
    ty2.konst = #f;
-   return interntype(ty2);
+   return interntype(&ty2);
 }
 fn mkarrtype(len i64, konst bool, child *const Type) *const Type {
-   return interntype({
+   return interntype(&Type {
       len * child.size,
       child.align,
       .u: :Arr { konst ? constify(child) : child, len }
    });
 }
 fn mkptrtype(child *const Type) *const Type {
-   return interntype({
+   return interntype(&Type {
       g_targ.ptrsize,
       .u: :Ptr(child)
    });