diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/CgUtils.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/CgUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/CgUtils.hs b/compiler/GHC/StgToCmm/CgUtils.hs index bc42a11d1c..4718cbf74a 100644 --- a/compiler/GHC/StgToCmm/CgUtils.hs +++ b/compiler/GHC/StgToCmm/CgUtils.hs @@ -152,7 +152,7 @@ fixStgRegStmt platform stmt = fixAssign $ mapExpDeep fixExpr stmt let baseAddr = get_GlobalReg_addr platform reg in case reg `elem` activeStgRegs platform of True -> CmmAssign (CmmGlobal reg) src - False -> CmmStore baseAddr src + False -> CmmStore baseAddr src NaturallyAligned other_stmt -> other_stmt fixExpr expr = case expr of |