diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-20 11:31:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-20 11:31:44 +0000 |
| commit | 23ac7e91b50fcf38449cb1fc92d291ff6bb9dcff (patch) | |
| tree | 72c568974020b328e34186db3e97123dd8dfcc18 /compiler/cmm/CmmProcPoint.hs | |
| parent | 6c969e2283bcea55ea4805b14096bf8b518604fc (diff) | |
| download | haskell-23ac7e91b50fcf38449cb1fc92d291ff6bb9dcff.tar.gz | |
implement RegSet by Set, not UniqSet
Diffstat (limited to 'compiler/cmm/CmmProcPoint.hs')
| -rw-r--r-- | compiler/cmm/CmmProcPoint.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |