Wolfgang Jeltsch pushed to branch wip/jeltsch/textual-bytecode-output at Glasgow Haskell Compiler / GHC Commits: db99325d by Wolfgang Jeltsch at 2026-07-10T17:57:14+03:00 Remove output of object file contents - - - - - 1 changed file: - compiler/GHC/ByteCode/Show.hs Changes: ===================================== compiler/GHC/ByteCode/Show.hs ===================================== @@ -17,9 +17,9 @@ import Data.Int (Int) import Data.Word (Word) import Data.Maybe (Maybe, maybe) import Data.Either (Either, either) -import Data.List (length, (++), map, zipWith, zipWith4, take, drop, replicate) +import Data.List (length, (++), map, zipWith4, take, drop, replicate) import Data.String (String) -import Data.ByteString (ByteString, unpack) +import Data.ByteString (ByteString) import Data.ByteString.Short (ShortByteString) import Data.IntMap (IntMap) import Data.IntMap qualified as IntMap (toList) @@ -93,8 +93,7 @@ pprOnDiskModuleByteCode OnDiskModuleByteCode {..} = vcat [ pprModuleIdent $ odgbc_module, pprOnDiskModuleByteCodeHash $ odgbc_hash, - pprCompiledByteCode odgbc_module $ odgbc_compiled_byte_code, - pprObjectFileContents $ odgbc_foreign + pprCompiledByteCode odgbc_module $ odgbc_compiled_byte_code ] -- | […] @@ -460,26 +459,6 @@ pprTickBoxName = entry (text "tick box name:") . pprTickCount :: Int -> SDoc pprTickCount = entry (text "number of ticks:") . ppr --- | […] -pprObjectFileContents :: [ByteString] -> SDoc -pprObjectFileContents = entry (text "contents of object files:") . - vcatOrNone . - zipWith pprObjectFileContent [0 ..] - --- | […] -pprObjectFileContent :: Int -> ByteString -> SDoc -pprObjectFileContent ix = entry (text "file" <+> ppr ix <> text ":") . - pprByteString - --- | […] -pprByteString :: ByteString -> SDoc -pprByteString = pprFixedSizeNaturalList . unpack - --- | […] -pprFixedSizeNaturalList :: (Integral a, FiniteBits a) => [a] -> SDoc -pprFixedSizeNaturalList [] = text "<empty>" -pprFixedSizeNaturalList list = hsep (map pprFixedSizeNatural list) - -- | […] pprFixedSizeNatural :: (Integral a, FiniteBits a) => a -> SDoc pprFixedSizeNatural num View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/db99325d31ef85bb88353483c15e1f3b... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/db99325d31ef85bb88353483c15e1f3b... You're receiving this email because of your account on gitlab.haskell.org.