@@ -91,7 +91,8 @@ mainDef =
9191 , G.name = Name "main"
9292 , G.basicBlocks =
9393 [ BasicBlock (UnName 0)
94− [ UnName 1 := idrCall "{runMain0}" [] ] -- TODO: Set GMP memory functions
94+ [ UnName 1 := simpleCall "GC_init" []
95+ , UnName 2 := idrCall "{runMain0}" [] ] -- TODO: Set GMP memory functions
9596 (Do $ Ret (Just (ConstantOperand (C.Int 32 0))) [])
9697 ]}
9798
@@ -133,6 +134,7 @@ initDefs tgt =
133134 , exfun "strcmp" (IntegerType 32) [ptrI8, ptrI8] False
134135 , exfun "strlen" intPtr [ptrI8] False
135136 , exfun "memcpy" ptrI8 [ptrI8, ptrI8, intPtr] False
137+ , exfun "GC_init" VoidType [] False
136138 , exfun "GC_malloc" ptrI8 [intPtr] False
137139 , exfun "GC_malloc_atomic" ptrI8 [intPtr] False
138140 , exfun "__gmpz_init" VoidType [pmpz] False