From 78bfec095310cf6b21f193e57c6c719ae44d7968 Mon Sep 17 00:00:00 2001
From: Ethan Girouard <ethan@girouard.com>
Date: Sun, 31 Aug 2025 20:43:02 -0400
Subject: [PATCH] Set pointer size to 8 instead of 4

---
 src/Windows12/CodeGen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Windows12/CodeGen.hs b/src/Windows12/CodeGen.hs
index 609ea61..35abd7e 100644
--- a/src/Windows12/CodeGen.hs
+++ b/src/Windows12/CodeGen.hs
@@ -91,7 +91,7 @@ size FloatType = return 8
 size StrType = size (PtrType CharType)
 size BoolType = return 1
 size CharType = return 1
-size (PtrType _) = return 4
+size (PtrType _) = return 8
 size (ArrayType t) = size (PtrType t)
 size (StructType name) = do
   fields <- getStructFields name