diff options
Diffstat (limited to 'compiler/codeGen/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index dba122fd0c..9e14311d42 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -44,7 +44,7 @@ import Name import Module import ListSetOps import Util -import UniqSet ( nonDetEltsUniqSet ) +import VarSet import BasicTypes import Outputable import FastString @@ -209,10 +209,7 @@ cgRhs id (StgRhsCon cc con args) {- See Note [GC recovery] in compiler/codeGen/StgCmmClosure.hs -} cgRhs id (StgRhsClosure fvs cc upd_flag args body) = do dflags <- getDynFlags - mkRhsClosure dflags id cc (nonVoidIds (nonDetEltsUniqSet fvs)) upd_flag args body - -- It's OK to use nonDetEltsUniqSet here because we're not aiming for - -- bit-for-bit determinism. - -- See Note [Unique Determinism and code generation] + mkRhsClosure dflags id cc (nonVoidIds (dVarSetElems fvs)) upd_flag args body ------------------------------------------------------------------------ -- Non-constructor right hand sides |