From 229679f60d65c9a94c363f93c7dc7e608ea00f84 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Mon, 15 May 2023 09:45:02 +0200
Subject: [PATCH] Fixed a source of segfaults.

---
 src/Codegen/Auxillary.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Codegen/Auxillary.hs b/src/Codegen/Auxillary.hs
index efc5925..c2a963c 100644
--- a/src/Codegen/Auxillary.hs
+++ b/src/Codegen/Auxillary.hs
@@ -39,10 +39,10 @@ valueGetType (VFunction _ _ t) = t
 
 typeByteSize :: LLVMType -> Integer
 typeByteSize Void           = 0
-typeByteSize I1             = 1
-typeByteSize I8             = 1
-typeByteSize I16            = 2
-typeByteSize I32            = 4
+typeByteSize I1             = 8 -- 1, 8 due to memory padding
+typeByteSize I8             = 8 -- 1, 8 due to memory padding
+typeByteSize I16            = 8 -- 2, 8 due to memory padding
+typeByteSize I32            = 8 -- 4, 8 due to memory padding
 typeByteSize I64            = 8
 typeByteSize Ptr            = 8
 typeByteSize (Ref _)        = 8