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