Commit cc732daf authored by Ian Lynagh's avatar Ian Lynagh

Use uniqSetToList rather than eltsUFM

parent bf24903d
......@@ -788,7 +788,7 @@ is_cish StdCallConv = True
pprTempAndExternDecls :: [CmmBasicBlock] -> (SDoc{-temps-}, SDoc{-externs-})
pprTempAndExternDecls stmts
= (vcat (map pprTempDecl (eltsUFM temps)),
= (vcat (map pprTempDecl (uniqSetToList temps)),
vcat (map (pprExternDecl False{-ToDo-}) (keysFM lbls)))
where (temps, lbls) = runTE (mapM_ te_BB stmts)
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