@@ -336,15 +336,7 @@ cgExpr (SApp tailcall fname args) = do
336 Nothing -> return Nothing
336 Nothing -> return Nothing
337 Just argVals -> do
337 Just argVals -> do
338 fn <- var (Glob fname)
338 fn <- var (Glob fname)
339− Just <$> inst
339+ Just <$> inst ((idrCall (show fname) argVals) { isTailCall = tailcall })
340− Call { isTailCall = tailcall
341− , callingConvention = CC.Fast
342− , returnAttributes = []
343− , function = Right . ConstantOperand . C.GlobalReference . Name $ show fname
344− , arguments = map (\v -> (v, [])) argVals
345− , functionAttributes = []
348cgExpr (SLet _ varExpr bodyExpr) = do
340cgExpr (SLet _ varExpr bodyExpr) = do
349 val <- cgExpr varExpr
341 val <- cgExpr varExpr
350 binds [val] $ cgExpr bodyExpr
342 binds [val] $ cgExpr bodyExpr