diff --git a/compiler/GHC/StgToByteCode.hs b/compiler/GHC/StgToByteCode.hs index cd40841c85a101da0d72832782a4a14d656bb97a..3755796799965be92064233d2ad5ab2eb7fce519 100644 --- a/compiler/GHC/StgToByteCode.hs +++ b/compiler/GHC/StgToByteCode.hs @@ -1955,6 +1955,11 @@ pushAtom d p (StgVarArg var) return (unitOL (PUSH_ADDR (getName var)), szb) | otherwise -> do + let varTy = idType var + massertPpr (definitelyLiftedType varTy) $ + vcat [ text "pushAtom: unhandled unlifted type" + , text "var:" <+> ppr var <+> dcolon <+> ppr varTy <> dcolon <+> ppr (typeKind varTy) + ] return (unitOL (PUSH_G (getName var)), szb) pushAtom _ _ (StgLitArg lit) = pushLiteral True lit