diff options
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.lhs')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 7ffda3d8f6..0d8aab146b 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -879,7 +879,7 @@ cmmStmtConFold stmt -> do addr' <- cmmExprConFold JumpReference addr return $ CmmJump addr' regs - CmmCall target regs args srt returns + CmmCall target regs args returns -> do target' <- case target of CmmCallee e conv -> do e' <- cmmExprConFold CallReference e @@ -888,7 +888,7 @@ cmmStmtConFold stmt args' <- mapM (\(CmmHinted arg hint) -> do arg' <- cmmExprConFold DataReference arg return (CmmHinted arg' hint)) args - return $ CmmCall target' regs args' srt returns + return $ CmmCall target' regs args' returns CmmCondBranch test dest -> do test' <- cmmExprConFold DataReference test |