isCmmWordType :: DynFlags -> CmmType -> Bool
-- True of GcPtrReg/NonGcReg of native word size
isCmmWordType dflags ty = not (isFloatType ty)
                       && typeWidth ty == wordWidth dflags
isCmmWordType :: DynFlags -> CmmType -> Bool
isCmmWordType dflags ty = not (isFloatType ty)
                       && typeWidth ty == wordWidth dflags
isCmmWordType dflags ty = not (isFloatType ty)
                       && typeWidth ty == wordWidth dflags