diff options
-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 1ed7f2384f..25cd5e04c1 100644 --- a/compiler/GHC/StgToCmm/CgUtils.hs +++ b/compiler/GHC/StgToCmm/CgUtils.hs @@ -121,7 +121,7 @@ regTableOffset dflags n = get_Regtable_addr_from_offset :: DynFlags -> Int -> CmmExpr get_Regtable_addr_from_offset dflags offset = if haveRegBase (targetPlatform dflags) - then CmmRegOff baseReg offset + then cmmRegOff baseReg offset else regTableOffset dflags offset -- | Fixup global registers so that they assign to locations within the |