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