From 5062356cefe508bf395a15c19feab024e008d445 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Mon, 27 Mar 2023 10:05:39 +0200
Subject: [PATCH] Fixed broken padding on datatypes.

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

diff --git a/src/Codegen/Codegen.hs b/src/Codegen/Codegen.hs
index 1a1ef63..ea187fc 100644
--- a/src/Codegen/Codegen.hs
+++ b/src/Codegen/Codegen.hs
@@ -252,7 +252,7 @@ compileScs (MIR.DBind (MIR.Bind (name, _t) args exp) : xs) = do
 compileScs (MIR.DData (MIR.Data typ ts) : xs) = do
     let (Ident outer_id) = extractTypeName typ
     let variantTypes fi = init $ map type2LlvmType (flattenType fi)
-    let biggestVariant = maximum (sum . (\(Constructor _ fi) -> typeByteSize <$> variantTypes fi) <$> ts)
+    let biggestVariant = 7 + maximum (sum . (\(Constructor _ fi) -> typeByteSize <$> variantTypes fi) <$> ts)
     emit $ LIR.Type (Ident outer_id) [I8, Array biggestVariant I8]
     mapM_
         ( \(Constructor inner_id fi) -> do