Commit 293054a6 authored by Simon Marlow's avatar Simon Marlow
Browse files

Thread the UniqSupply around properly

parent ed90dd62
...@@ -303,9 +303,9 @@ cmmNativeGenStream dflags ncgImpl h us cmm_stream impAcc profAcc count ...@@ -303,9 +303,9 @@ cmmNativeGenStream dflags ncgImpl h us cmm_stream impAcc profAcc count
case r of case r of
Left () -> return (reverse impAcc, reverse profAcc) Left () -> return (reverse impAcc, reverse profAcc)
Right (cmms, cmm_stream') -> do Right (cmms, cmm_stream') -> do
(impAcc,profAcc) <- cmmNativeGens dflags ncgImpl h us cmms (impAcc,profAcc,us') <- cmmNativeGens dflags ncgImpl h us cmms
impAcc profAcc count impAcc profAcc count
cmmNativeGenStream dflags ncgImpl h us cmm_stream' cmmNativeGenStream dflags ncgImpl h us' cmm_stream'
impAcc profAcc count impAcc profAcc count
...@@ -324,11 +324,12 @@ cmmNativeGens :: (PlatformOutputable statics, PlatformOutputable instr, Instruct ...@@ -324,11 +324,12 @@ cmmNativeGens :: (PlatformOutputable statics, PlatformOutputable instr, Instruct
-> Int -> Int
-> IO ( [[CLabel]], -> IO ( [[CLabel]],
[([NatCmmDecl statics instr], [([NatCmmDecl statics instr],
Maybe [Color.RegAllocStats statics instr], Maybe [Color.RegAllocStats statics instr],
Maybe [Linear.RegAllocStats])] ) Maybe [Linear.RegAllocStats])],
UniqSupply )
cmmNativeGens _ _ _ _ [] impAcc profAcc _ cmmNativeGens _ _ _ us [] impAcc profAcc _
= return (impAcc,profAcc) = return (impAcc,profAcc,us)
cmmNativeGens dflags ncgImpl h us (cmm : cmms) impAcc profAcc count cmmNativeGens dflags ncgImpl h us (cmm : cmms) impAcc profAcc count
= do = do
......
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