Fourth

1 files changed, 1 insertions, 0 deletions

diff --git a/BuildIR.hs b/BuildIR.hs
index 3d7b6c2..665dd33 100644
--- a/BuildIR.hs
+++ b/BuildIR.hs
@@ -321,6 +321,7 @@ convertExpression (ENew t sze) nextnext = do
     addIns $ IAri AMul argref' szref (Constant (sizeof TInt) (fromIntegral $ sizeof t))
     addIns $ IAri AAdd argref argref' (Constant (sizeof TInt) (fromIntegral $ sizeof TInt))
     addIns $ ICallr ref "_builtin_malloc" [argref]
+    addIns $ IStore ref szref
     setTerm $ IJmp nextnext
     return ref