From db77c1652c1bba51690a57c084b7a9294b77cc38 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 15 Dec 2008 17:37:52 +0000 Subject: [PATCH] Fix warnings in CgLetNoEscape --- compiler/codeGen/CgLetNoEscape.lhs | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/compiler/codeGen/CgLetNoEscape.lhs b/compiler/codeGen/CgLetNoEscape.lhs index a39e76b..f501be5 100644 --- a/compiler/codeGen/CgLetNoEscape.lhs +++ b/compiler/codeGen/CgLetNoEscape.lhs @@ -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 -- 1.7.10.4