Commit db77c165 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix warnings in CgLetNoEscape

parent a02af18d
......@@ -9,13 +9,6 @@
%********************************************************
\begin{code}
{-# OPTIONS -w #-}
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
module CgLetNoEscape ( cgLetNoEscapeClosure ) where
#include "HsVersions.h"
......@@ -156,8 +149,8 @@ cgLetNoEscapeClosure
-- ToDo: deal with the cost-centre issues
cgLetNoEscapeClosure
bndr cc binder_info full_live_in_rhss
rhs_eob_info cc_slot rec args body
bndr cc _ full_live_in_rhss
rhs_eob_info cc_slot _ args body
= let
arity = length args
lf_info = mkLFLetNoEscape arity
......@@ -189,7 +182,7 @@ cgLetNoEscapeBody :: Id -- Name of the joint point
-> StgExpr -- Body
-> Code
cgLetNoEscapeBody bndr cc cc_slot all_args body = do
cgLetNoEscapeBody bndr _ cc_slot all_args body = do
{ (arg_regs, ptrs, nptrs, ret_slot) <- bindUnboxedTupleComponents all_args
-- restore the saved cost centre. BUT: we must not free the stack slot
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment