From 82ebc04b7b1459079a43a9897b24a078d3420628 Mon Sep 17 00:00:00 2001
From: "dias@eecs.tufts.edu" <unknown>
Date: Fri, 3 Apr 2009 20:34:29 +0000
Subject: [PATCH] eliminate warnings

---
 compiler/cmm/CmmCallConv.hs |    2 +-
 compiler/cmm/MkZipCfgCmm.hs |    1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs
index b9df541..64af09d 100644
--- a/compiler/cmm/CmmCallConv.hs
+++ b/compiler/cmm/CmmCallConv.hs
@@ -175,7 +175,7 @@ assign_bits_reg _ w off gcp (v:vs, fs, ds, ls)
 assign_bits_reg _ w off _ (vs, fs, ds, l:ls)
   | widthInBits w > widthInBits wordWidth =
         (RegisterParam l, off, 0, (vs, fs, ds, ls))
-assign_bits_reg assign_slot w off _ regs@(_, _, _, ls) = assign_slot w off regs
+assign_bits_reg assign_slot w off _ regs@(_, _, _, _) = assign_slot w off regs
 
 assign_float_reg :: SlotAssigner -> Width -> WordOff -> AvailRegs -> Assignment
 assign_float_reg _ W32 off (vs, f:fs, ds, ls) = (RegisterParam $ f, off, 0, (vs, fs, ds, ls))
diff --git a/compiler/cmm/MkZipCfgCmm.hs b/compiler/cmm/MkZipCfgCmm.hs
index 2894ece..0683058 100644
--- a/compiler/cmm/MkZipCfgCmm.hs
+++ b/compiler/cmm/MkZipCfgCmm.hs
@@ -35,7 +35,6 @@ import PprCmm()
 import FastString
 import ForeignCall
 import MkZipCfg
-import Outputable
 import Panic 
 import SMRep (ByteOff) 
 import StaticFlags 
-- 
1.7.10.4