diff options
-rw-r--r-- | compiler/GHC/StgToByteCode.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/StgToByteCode.hs b/compiler/GHC/StgToByteCode.hs index f69c64b5d5..e7cc79f19e 100644 --- a/compiler/GHC/StgToByteCode.hs +++ b/compiler/GHC/StgToByteCode.hs @@ -1824,8 +1824,7 @@ pushAtom d p (StgVarArg var) return (unitOL (PACK con 0), szb) -- see Note [Generating code for top-level string literal bindings] - _ | isUnliftedType (idType var) -> do - massert (idType var `eqType` addrPrimTy) + _ | idType var `eqType` addrPrimTy -> return (unitOL (PUSH_ADDR (getName var)), szb) | otherwise -> do |