From d08f795794b33a5d52e39c6b9f0c4e6e88fede3d Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Tue, 13 Aug 2024 01:30:25 -0400
Subject: Partially working first draft of bigints

---
 typecheck.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'typecheck.c')

diff --git a/typecheck.c b/typecheck.c
index 6616b38f..3e657dfa 100644
--- a/typecheck.c
+++ b/typecheck.c
@@ -1,6 +1,7 @@
 // Logic for getting a type from an AST node
 #include <ctype.h>
 #include <gc.h>
+#include <gmp.h>
 #include <signal.h>
 #include <stdarg.h>
 #include <stdlib.h>
@@ -828,7 +829,7 @@ type_t *get_type(env_t *env, ast_t *ast)
         return Type(AbortType);
     }
     case Pass: case Defer: return Type(VoidType);
-    case Length: return Type(IntType, .bits=64);
+    case Length: return INT_TYPE;
     case Negative: {
         ast_t *value = Match(ast, Negative)->value;
         type_t *t = get_type(env, value);
-- 
cgit v1.2.3