From 23ac7e91b50fcf38449cb1fc92d291ff6bb9dcff Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 20 Jan 2012 11:31:44 +0000
Subject: implement RegSet by Set, not UniqSet

---
 compiler/cmm/CmmProcPoint.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/cmm/CmmProcPoint.hs')

diff --git a/compiler/cmm/CmmProcPoint.hs b/compiler/cmm/CmmProcPoint.hs
index 691fbd8eeb..07ead008e7 100644
--- a/compiler/cmm/CmmProcPoint.hs
+++ b/compiler/cmm/CmmProcPoint.hs
@@ -318,7 +318,7 @@ pass_live_vars_as_args _liveness procPoints protos = protos'
               Nothing -> let live = emptyRegSet
                                     --lookupBlockEnv _liveness id `orElse`
                                     --panic ("no liveness at block " ++ show id)
-                             formals = uniqSetToList live
+                             formals = regSetToList live
                              prot = Protocol Private formals $ CallArea $ Young id
                          in  mapInsert id prot protos
 
-- 
cgit v1.2.1