projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Inherit the ForceSpecConstr flag in non-recursive nested bindings
[ghc-hetmet.git]
/
compiler
/
codeGen
/
StgCmmExpr.hs
diff --git
a/compiler/codeGen/StgCmmExpr.hs
b/compiler/codeGen/StgCmmExpr.hs
index
50d500b
..
94afb80
100644
(file)
--- a/
compiler/codeGen/StgCmmExpr.hs
+++ b/
compiler/codeGen/StgCmmExpr.hs
@@
-29,7
+29,6
@@
import StgSyn
import MkZipCfgCmm
import BlockId
import MkZipCfgCmm
import BlockId
-import Cmm()
import CmmExpr
import CoreSyn
import DataCon
import CmmExpr
import CoreSyn
import DataCon
@@
-550,8
+549,8
@@
if the assignment to the binder will be dead code (use isDeadBndr).
The following example illustrates how badly the code turns out:
STG:
case <=## [ww_s7Hx y_s7HD] of wild2_sbH8 {
The following example illustrates how badly the code turns out:
STG:
case <=## [ww_s7Hx y_s7HD] of wild2_sbH8 {
- GHC.Bool.False -> <true code> // sbH8 dead
- GHC.Bool.True -> <false code> // sbH8 dead
+ GHC.Types.False -> <true code> // sbH8 dead
+ GHC.Types.True -> <false code> // sbH8 dead
};
Cmm:
_s7HD::F64 = F64[_sbH7::I64 + 7]; // MidAssign
};
Cmm:
_s7HD::F64 = F64[_sbH7::I64 + 7]; // MidAssign