Wolfgang Jeltsch pushed to branch wip/jeltsch/textual-bytecode-output at Glasgow Haskell Compiler / GHC Commits: 40bd290f by Wolfgang Jeltsch at 2026-07-30T14:32:16+03:00 Make HPC information hashes non-negative - - - - - 1433167b by Wolfgang Jeltsch at 2026-07-30T15:19:39+03:00 Change names of variables in `where` clauses to snake case - - - - - b74f57b8 by Wolfgang Jeltsch at 2026-07-30T15:36:32+03:00 Remove the module from HPC information output - - - - - 86369aba by Wolfgang Jeltsch at 2026-07-30T15:47:51+03:00 Stop using the term “name” in entry titles - - - - - b83d4768 by Wolfgang Jeltsch at 2026-07-30T15:50:13+03:00 Change “ordinary object” to “object” - - - - - 6f2ba014 by Wolfgang Jeltsch at 2026-07-30T16:27:29+03:00 Add parentheses around operators - - - - - 3cf8ab69 by Wolfgang Jeltsch at 2026-07-30T16:30:31+03:00 Restore consequent two-spaces indentation - - - - - 4 changed files: - compiler/GHC/ByteCode/Show.hs - testsuite/tests/show-bytecode/show-bytecode-breakpoints.stdout - testsuite/tests/show-bytecode/show-bytecode-hpc.stdout - testsuite/tests/show-bytecode/show-bytecode-vanilla.stdout Changes: ===================================== compiler/GHC/ByteCode/Show.hs ===================================== @@ -1,3 +1,4 @@ +{-# LANGUAGE MagicHash #-} {-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE RecordWildCards #-} @@ -34,8 +35,8 @@ import GHC.Data.FastString (unpackFS) import GHC.Data.FlatBag (FlatBag, elemsFlatBag) import GHC.Fingerprint (Fingerprint) import GHC.Types.SrcLoc (noSrcSpan) -import GHC.Types.Name (Name) -import GHC.Types.Name.Occurrence (OccName) +import GHC.Types.Name (Name, nameOccName) +import GHC.Types.Name.Occurrence (OccName, isSymOcc) import GHC.Types.Tickish (BreakTickIndex, BreakpointId (..)) import GHC.Types.SptEntry (SptEntry (..)) import GHC.Types.Error (MessageClass (MCDump)) @@ -57,12 +58,13 @@ import GHC.Utils.Outputable withPprStyle, ppr ) -import GHC.Unit.Types (Module) +import GHC.Unit.Types (Module, moduleName) import GHC.Iface.Type (IfaceType, IfaceTvBndr, IfaceIdBndr) import GHC.HsToCore.Breakpoints (ModBreaks (..)) import GHC.Driver.Env.Types (HscEnv) import GHCi.FFI (FFIType) import GHCi.Message (ConInfoTable (..)) +import Language.Haskell.Syntax.Module.Name (moduleNameString) -- Basic things import Control.Arrow ((>>>)) @@ -73,6 +75,7 @@ import Data.IntMap (IntMap) import Data.IntMap qualified as IntMap (toList) import Data.Array (bounds, indices, elems) import Numeric (showHex) +import GHC.Exts (Int (I#), Word (W#), int2Word#) -- | Outputs textual information about the contents of a bytecode file. showByteCode :: Logger -> HscEnv -> FilePath -> IO () @@ -87,14 +90,14 @@ showByteCode logger env path = do pprOnDiskModuleByteCode :: OnDiskModuleByteCode -> SDoc pprOnDiskModuleByteCode OnDiskModuleByteCode {..} = vcat [ - pprModuleIdent $ odgbc_module, + pprModule $ odgbc_module, pprOnDiskModuleByteCodeHash $ odgbc_hash, pprCompiledByteCode odgbc_module $ odgbc_compiled_byte_code ] --- | Constructs textual information about the name of a module. -pprModuleIdent :: Module -> SDoc -pprModuleIdent = entry (text "name") . ppr +-- | Constructs textual information about a module. +pprModule :: Module -> SDoc +pprModule = entry (text "module") . ppr -- | Constructs textual information about the hash of a module. pprOnDiskModuleByteCodeHash :: Fingerprint -> SDoc @@ -111,7 +114,7 @@ pprCompiledByteCode current_module CompiledByteCode {..} pprTopLevelStrings $ bc_strs, pprBreakpoints current_module $ bc_breaks, pprStaticPointerTableEntries $ bc_spt_entries, - pprHPCInfo $ bc_hpc_info + pprHPCInfo current_module $ bc_hpc_info ] -- | Constructs textual information about bytecode objects. @@ -129,7 +132,7 @@ pprByteCodeObject :: Module -- ^ The enclosing module -> SDoc -- ^ The textual information pprByteCodeObject current_module byte_code_object = case byte_code_object of UnlinkedBCO {..} - -> entry (text "ordinary object" <+> quotes (ppr unlinkedBCOName)) $ + -> entry (text "object" <+> quotes (pprName unlinkedBCOName)) $ vcat [ pprArity $ unlinkedBCOArity, pprLiterals current_module $ unlinkedBCOLits, @@ -137,26 +140,25 @@ pprByteCodeObject current_module byte_code_object = case byte_code_object of ] UnlinkedStaticCon {..} -> entry ( - text "static-construction object" <+> - quotes (ppr unlinkedStaticConName) + text "static-construction object" <+> + quotes (pprName unlinkedStaticConName) ) $ vcat [ - pprDataConstructorName $ unlinkedStaticConDataConName, + pprDataConstructor $ unlinkedStaticConDataConName, pprLiftedness $ not unlinkedStaticConIsUnlifted, pprLiterals current_module $ unlinkedStaticConLits, pprUsedItems current_module $ unlinkedStaticConPtrs ] --- | Constructs textual information about the arity of an ordinary bytecode --- object. +-- | Constructs textual information about the arity of a bytecode object. pprArity :: Int -> SDoc pprArity = entry (text "arity") . ppr --- | Constructs textual information about the data constructor name of a +-- | Constructs textual information about the data constructor of a -- static-construction bytecode object. -pprDataConstructorName :: Name -> SDoc -pprDataConstructorName = entry (text "data constructor name") . ppr +pprDataConstructor :: Name -> SDoc +pprDataConstructor = entry (text "data constructor") . pprName -- | Constructs textual information about the liftedness of a -- static-construction bytecode object. @@ -185,10 +187,10 @@ pprLiteral current_module literal = case literal of quotes (ppr label) BCONPtrItbl infoTableName -> text "info table of" <+> - quotes (ppr infoTableName) + quotes (pprName infoTableName) BCONPtrAddr addrName -> text "address" <+> - quotes (ppr addrName) + quotes (pprName addrName) BCONPtrStr encoded_string -> text "top-level string" <+> text (show (utf8DecodeByteString encoded_string)) @@ -221,14 +223,14 @@ pprInternalBreakpointID -> InternalBreakpointId -- ^ The ID of the bytecode breakpoint -> SDoc -- ^ The textual information pprInternalBreakpointID current_module InternalBreakpointId {..} - | ibi_info_mod == current_module = indexDoc - | otherwise = indexDoc <+> + | ibi_info_mod == current_module = index_doc + | otherwise = index_doc <+> text "in" <+> quotes (ppr ibi_info_mod) where - indexDoc :: SDoc - indexDoc = ppr ibi_info_index + index_doc :: SDoc + index_doc = ppr ibi_info_index -- | Constructs textual information about used items. pprUsedItems :: Module -- ^ The enclosing module @@ -245,7 +247,7 @@ pprUsedItem :: Module -- ^ The enclosing module -> SDoc -- ^ The textual information pprUsedItem current_module usedItem = case usedItem of BCOPtrName name - -> text "named item" <+> quotes (ppr name) + -> text "named item" <+> quotes (pprName name) BCOPtrPrimOp primOp -> text "primitive operation" <+> quotes (ppr primOp) BCOPtrBCO byte_code_object @@ -262,7 +264,7 @@ pprDataConstructorInfoTables = entry (text "data constructor info tables") . -- | Constructs textual information about a single data constructor info table. pprDataConstructorInfoTable :: Name -> ConInfoTable -> SDoc pprDataConstructorInfoTable dataConstrName ConInfoTable {..} - = entry (text "info table of" <+> quotes (ppr dataConstrName)) $ + = entry (text "info table of" <+> quotes (pprName dataConstrName)) $ vcat [ pprPointerWordCount $ conItblPtrs, pprNonPointerWordCount $ conItblNPtrs @@ -284,10 +286,10 @@ pprTopLevelStrings = entry (text "top-level strings") . -- | Constructs textual information about a single top-level string. pprTopLevelString :: Name -> ByteString -> SDoc -pprTopLevelString string_name encoded_string = entry (ppr string_name) $ - text $ - show $ - utf8DecodeByteString $ +pprTopLevelString string_name encoded_string = entry (pprName string_name) $ + text $ + show $ + utf8DecodeByteString $ encoded_string -- | Constructs textual information about breakpoints. @@ -429,14 +431,14 @@ pprBreakpointID :: Module -- ^ The enclosing module -> BreakpointId -- ^ The ID of the source breakpoint -> SDoc -- ^ The textual information pprBreakpointID current_module BreakpointId {..} - | bi_tick_mod == current_module = indexDoc - | otherwise = indexDoc <+> + | bi_tick_mod == current_module = index_doc + | otherwise = index_doc <+> text "in" <+> quotes (ppr bi_tick_mod) where - indexDoc :: SDoc - indexDoc = ppr bi_tick_index + index_doc :: SDoc + index_doc = ppr bi_tick_index -- | Constructs textual information about static-pointer table entries. pprStaticPointerTableEntries :: [SptEntry] -> SDoc @@ -447,58 +449,69 @@ pprStaticPointerTableEntries = entry (text "static-pointer table entries") . -- | Constructs textual information about a single static-pointer table entry. pprStaticPointerTableEntry :: SptEntry -> SDoc pprStaticPointerTableEntry (SptEntry name fingerprint) - = ppr fingerprint <> text ":" <+> ppr name + = ppr fingerprint <> text ":" <+> pprName name -- | Constructs textual information about HPC info. -pprHPCInfo :: Strict.Maybe ByteCodeHpcInfo -> SDoc -pprHPCInfo = entry (text "HPC information") . - Strict.maybe (text "<none>") pprActualHPCInfo +pprHPCInfo :: Module -- ^ The enclosing module + -> Strict.Maybe ByteCodeHpcInfo -- ^ The HPC info + -> SDoc -- ^ The textual information +pprHPCInfo current_module + = entry (text "HPC information") . + Strict.maybe (text "<none>") (pprActualHPCInfo current_module) -- | Constructs textual information about actual HPC info. -pprActualHPCInfo :: ByteCodeHpcInfo -> SDoc -pprActualHPCInfo ByteCodeHpcInfo {..} - = vcat [ +pprActualHPCInfo :: Module -- ^ The enclosing module + -> ByteCodeHpcInfo -- ^ The actual HPC info + -> SDoc -- ^ The textual information +pprActualHPCInfo current_module ByteCodeHpcInfo {..} + = assert ( + utf8DecodeShortByteString bchi_module_name + == + moduleNameString (moduleName current_module) + ) + $ + vcat [ pprHPCInfoHash $ bchi_hash, - pprModuleName $ bchi_module_name, - pprTickBoxName $ bchi_tickbox_name, + pprTickBox $ bchi_tickbox_name, pprTickCount $ bchi_tick_count ] -- | Constructs textual information about the hash of HPC info. pprHPCInfoHash :: Int -> SDoc -pprHPCInfoHash = entry (text "hash") . pprFixedSizeNatural - --- | Constructs textual information about a module name. -pprModuleName :: ShortByteString -> SDoc -pprModuleName = entry (text "module name") . - text . - utf8DecodeShortByteString +pprHPCInfoHash = entry (text "hash") . pprFixedSizeNatural . intToWord --- | Constructs textual information about a tick box name. -pprTickBoxName :: ShortByteString -> SDoc -pprTickBoxName = entry (text "tick box name") . - text . - utf8DecodeShortByteString +-- | Constructs textual information about a tick box. +pprTickBox :: ShortByteString -> SDoc +pprTickBox = entry (text "tick box") . text . utf8DecodeShortByteString -- | Constructs textual information about a number of tick counts. pprTickCount :: Int -> SDoc pprTickCount = entry (text "number of ticks") . ppr +-- | Constructs the Haskell representation of a name. +pprName :: Name -> SDoc +pprName name | isSymOcc (nameOccName name) = text "(" <> ppr name <> text ")" + | otherwise = ppr name + -- | Constructs a hexadecimal representation of a natural number such that the -- number of hexadecimal digits fits the number of bits used to represent the -- natural number. pprFixedSizeNatural :: (Integral a, FiniteBits a) => a -> SDoc pprFixedSizeNatural num = assert (num >= 0) $ - text $ replicate (digitCount - length unpadded) '0' ++ unpadded + text $ replicate (digit_count - length unpadded) '0' ++ unpadded where - digitCount :: Int - digitCount = (finiteBitSize num + 3) `div` 4 + digit_count :: Int + digit_count = (finiteBitSize num + 3) `div` 4 unpadded :: String unpadded = showHex num "" +-- | Turns an 'Int' value into the 'Word' value with the same representation. +intToWord :: Int -> Word +intToWord (I# int#) = W# (int2Word# int#) + -- | Constructs a textual representation of a boolean, interpreting 'True' and -- 'False' as “yes” and “no”, respectively. noOrYes :: Bool -> SDoc ===================================== testsuite/tests/show-bytecode/show-bytecode-breakpoints.stdout ===================================== @@ -1,8 +1,8 @@ [1 of 1] Compiling Example ( Example.hs, Example.gbc ) -name: Example +module: Example hash: @hash@ objects: - ordinary object ‘primesPtr’: + object ‘primesPtr’: arity: 0 literals: top-level string "Example" @@ -14,7 +14,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr1’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -23,56 +23,56 @@ objects: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘primes’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 27 used items: <none> static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 20 used items: <none> - ordinary object ‘primes’: + object ‘primes’: arity: 0 literals: top-level string "Example" top-level string "main" cost center of breakpoint 2 - info table of ‘:’ + info table of ‘(:)’ used items: break array of module ‘Example’ - ordinary object ‘primes_sat_@name_suffix@’: + object ‘primes_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" @@ -80,11 +80,11 @@ objects: cost center of breakpoint 1 used items: break array of module ‘Example’ - ordinary object ‘primes_sat_@name_suffix@’: + object ‘primes_sat_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘primes_sat_@name_suffix@’: + object ‘primes_sat_@name_suffix@’: arity: 0 literals: word 3 @@ -96,7 +96,7 @@ objects: named item ‘enumFrom’ named item ‘isPrime_@name_suffix@’ named item ‘filter’ - ordinary object ‘primes_sat_@name_suffix@’: + object ‘primes_sat_@name_suffix@’: arity: 0 literals: word 2 @@ -104,7 +104,7 @@ objects: used items: named item ‘$fNumNatural’ named item ‘fromInteger’ - ordinary object ‘isPrime_@name_suffix@’: + object ‘isPrime_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -112,7 +112,7 @@ objects: cost center of breakpoint 9 used items: break array of module ‘Example’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -120,7 +120,7 @@ objects: cost center of breakpoint 8 used items: break array of module ‘Example’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -128,7 +128,7 @@ objects: cost center of breakpoint 7 used items: break array of module ‘Example’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -136,7 +136,7 @@ objects: cost center of breakpoint 6 used items: break array of module ‘Example’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" @@ -146,18 +146,18 @@ objects: info table of ‘IS’ used items: break array of module ‘Example’ - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fIntegralInteger’ named item ‘$fNumNatural’ - named item ‘^’ - ordinary object ‘pap_@name_suffix@’: + named item ‘(^)’ + object ‘pap_@name_suffix@’: arity: 3 literals: <none> used items: <none> - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -165,20 +165,20 @@ objects: cost center of breakpoint 4 used items: break array of module ‘Example’ - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fOrdNatural’ - named item ‘<=’ - ordinary object ‘pap_@name_suffix@’: + named item ‘(<=)’ + object ‘pap_@name_suffix@’: arity: 3 literals: <none> used items: <none> - named item ‘.’ + named item ‘(.)’ named item ‘primes’ named item ‘takeWhile’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: top-level string "Example" @@ -186,7 +186,7 @@ objects: cost center of breakpoint 3 used items: break array of module ‘Example’ - ordinary object ‘pap_@name_suffix@’: + object ‘pap_@name_suffix@’: arity: 2 literals: <none> used items: @@ -195,7 +195,7 @@ objects: named item ‘$fFoldableList’ named item ‘any’ named item ‘not’ - ordinary object ‘fibonaccisPtr’: + object ‘fibonaccisPtr’: arity: 0 literals: top-level string "Example" @@ -207,7 +207,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -216,56 +216,56 @@ objects: named item ‘static_ptr_sat_@name_suffix@’ named item ‘fibonaccis’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 15 used items: <none> static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 24 used items: <none> - ordinary object ‘fibonaccis’: + object ‘fibonaccis’: arity: 0 literals: top-level string "Example" top-level string "main" cost center of breakpoint 11 - info table of ‘:’ + info table of ‘(:)’ used items: break array of module ‘Example’ - ordinary object ‘fibonaccis_sat_@name_suffix@’: + object ‘fibonaccis_sat_@name_suffix@’: arity: 0 literals: word 0 @@ -274,16 +274,16 @@ objects: named item ‘$fNumNatural’ named item ‘fromInteger’ named item ‘positiveFibonaccis_@name_suffix@’ - ordinary object ‘positiveFibonaccis_@name_suffix@’: + object ‘positiveFibonaccis_@name_suffix@’: arity: 0 literals: top-level string "Example" top-level string "main" cost center of breakpoint 13 - info table of ‘:’ + info table of ‘(:)’ used items: break array of module ‘Example’ - ordinary object ‘positiveFibonaccis_sat_@name_suffix@’: + object ‘positiveFibonaccis_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" @@ -291,16 +291,16 @@ objects: cost center of breakpoint 12 used items: break array of module ‘Example’ - ordinary object ‘positiveFibonaccis_sat_@name_suffix@’: + object ‘positiveFibonaccis_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fNumNatural’ - named item ‘+’ + named item ‘(+)’ named item ‘positiveFibonaccis_@name_suffix@’ named item ‘fibonaccis’ named item ‘zipWith’ - ordinary object ‘positiveFibonaccis_sat_@name_suffix@’: + object ‘positiveFibonaccis_sat_@name_suffix@’: arity: 0 literals: word 1 @@ -308,27 +308,27 @@ objects: used items: named item ‘$fNumNatural’ named item ‘fromInteger’ - ordinary object ‘$dTypeable2_@name_suffix@’: + object ‘$dTypeable2_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$dTypeable_@name_suffix@’ named item ‘$dTypeable1_@name_suffix@’ named item ‘mkTrAppChecked’ - ordinary object ‘$dTypeable1_@name_suffix@’: + object ‘$dTypeable1_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcList’ named item ‘mkTrCon’ - ordinary object ‘$dTypeable_@name_suffix@’: + object ‘$dTypeable_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcNatural’ named item ‘mkTrCon’ static-construction object ‘$tc'Nested’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -339,33 +339,33 @@ objects: named item ‘$tc'Nested2_@name_suffix@’ named item ‘$krep17_@name_suffix@’ static-construction object ‘$tc'Nested2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Nested1_@name_suffix@’ used items: <none> static-construction object ‘$krep17_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep16_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep16_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep15_@name_suffix@’ static-construction object ‘$krep15_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep4_@name_suffix@’ named item ‘[]’ static-construction object ‘$tc'PerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -376,33 +376,33 @@ objects: named item ‘$tc'PerfectTree2_@name_suffix@’ named item ‘$krep14_@name_suffix@’ static-construction object ‘$tc'PerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'PerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep14_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep13_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep12_@name_suffix@’ static-construction object ‘$krep12_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcPerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -413,12 +413,12 @@ objects: named item ‘$tcPerfectTree2_@name_suffix@’ named item ‘krep$*Arr*’ static-construction object ‘$tcPerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcPerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$tc'Node’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -429,33 +429,33 @@ objects: named item ‘$tc'Node2_@name_suffix@’ named item ‘$krep11_@name_suffix@’ static-construction object ‘$tc'Node2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Node1_@name_suffix@’ used items: <none> static-construction object ‘$krep11_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep10_@name_suffix@’ static-construction object ‘$krep10_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘$krep9_@name_suffix@’ static-construction object ‘$krep9_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$tc'Leaf’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -466,40 +466,40 @@ objects: named item ‘$tc'Leaf2_@name_suffix@’ named item ‘$krep8_@name_suffix@’ static-construction object ‘$tc'Leaf2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Leaf1_@name_suffix@’ used items: <none> static-construction object ‘$krep8_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$krep7_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcBinTree’ named item ‘$krep6_@name_suffix@’ static-construction object ‘$krep6_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep5_@name_suffix@’ static-construction object ‘$krep5_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcBinTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -510,79 +510,79 @@ objects: named item ‘$tcBinTree2_@name_suffix@’ named item ‘krep$*->*->*’ static-construction object ‘$tcBinTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcBinTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep4_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcTuple2’ named item ‘$krep3_@name_suffix@’ static-construction object ‘$krep3_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep2_@name_suffix@’ static-construction object ‘$krep2_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$krep1_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 0 used items: <none> static-construction object ‘$krep_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 1 used items: <none> static-construction object ‘$trModule’: - data constructor name: Module + data constructor: Module lifted: yes literals: <none> used items: named item ‘$trModule2_@name_suffix@’ named item ‘$trModule4_@name_suffix@’ static-construction object ‘$trModule4_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule3_@name_suffix@’ used items: <none> static-construction object ‘$trModule2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule1_@name_suffix@’ used items: <none> - ordinary object ‘divides’: + object ‘divides’: arity: 3 literals: <none> used items: - ordinary object ‘$dReal_@name_suffix@’: + object ‘$dReal_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘$dNum_@name_suffix@’: + object ‘$dNum_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘$dEq_@name_suffix@’: + object ‘$dEq_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘$dEq1_@name_suffix@’: + object ‘$dEq1_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘bcprep_@name_suffix@’: + object ‘bcprep_@name_suffix@’: arity: 5 literals: top-level string "Example" @@ -590,13 +590,13 @@ objects: cost center of breakpoint 15 used items: break array of module ‘Example’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 1 literals: word 0 info table of ‘IS’ used items: named item ‘fromInteger’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 3 literals: top-level string "Example" @@ -605,24 +605,24 @@ objects: used items: break array of module ‘Example’ named item ‘mod’ - named item ‘==’ + named item ‘(==)’ named item ‘$p1Ord’ named item ‘$p2Real’ named item ‘$p1Real’ named item ‘$p1Integral’ - ordinary object ‘Node’: + object ‘Node’: arity: 3 literals: info table of ‘Node’ used items: <none> - ordinary object ‘Leaf’: + object ‘Leaf’: arity: 1 literals: info table of ‘Leaf’ used items: <none> - ordinary object ‘Nested’: + object ‘Nested’: arity: 1 literals: info table of ‘Nested’ used items: <none> - ordinary object ‘PerfectTree’: + object ‘PerfectTree’: arity: 1 literals: info table of ‘PerfectTree’ used items: <none> ===================================== testsuite/tests/show-bytecode/show-bytecode-hpc.stdout ===================================== @@ -1,8 +1,8 @@ [1 of 1] Compiling Example ( Example.hs, Example.gbc ) -name: Example +module: Example hash: @hash@ objects: - ordinary object ‘primesPtr’: + object ‘primesPtr’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -12,7 +12,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr1’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -21,59 +21,59 @@ objects: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 27 used items: <none> static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 20 used items: <none> - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘primes’ - ordinary object ‘primes2_@name_suffix@’: + object ‘primes2_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘primes2_sat_@name_suffix@’: + object ‘primes2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘primes2_sat_@name_suffix@’: + object ‘primes2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -84,110 +84,110 @@ objects: named item ‘fromInteger’ named item ‘$fEnumNatural’ named item ‘enumFrom’ - ordinary object ‘primes2_sat_@name_suffix@’: + object ‘primes2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘isPrime_@name_suffix@’ named item ‘filter’ - ordinary object ‘isPrime_@name_suffix@’: + object ‘isPrime_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘primes’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘$fIntegralInteger’ named item ‘$fNumNatural’ - named item ‘^’ - ordinary object ‘v1_@name_suffix@’: + named item ‘(^)’ + object ‘v1_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ word 2 info table of ‘IS’ used items: <none> - ordinary object ‘pap_@name_suffix@’: + object ‘pap_@name_suffix@’: arity: 3 literals: <none> used items: <none> - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘$fOrdNatural’ - named item ‘<=’ - ordinary object ‘v1_@name_suffix@’: + named item ‘(<=)’ + object ‘v1_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: <none> - ordinary object ‘pap_@name_suffix@’: + object ‘pap_@name_suffix@’: arity: 3 literals: <none> used items: <none> - named item ‘.’ + named item ‘(.)’ named item ‘takeWhile’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘pap_@name_suffix@’: + object ‘pap_@name_suffix@’: arity: 2 literals: <none> used items: named item ‘$fIntegralNatural’ named item ‘divides’ - ordinary object ‘v1_@name_suffix@’: + object ‘v1_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: <none> - ordinary object ‘pap_@name_suffix@’: + object ‘pap_@name_suffix@’: arity: 3 literals: <none> used items: <none> named item ‘$fFoldableList’ named item ‘any’ named item ‘not’ - ordinary object ‘primes’: + object ‘primes’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ label ‘_hpc_tickboxes_Example_hpc’ - info table of ‘:’ + info table of ‘(:)’ used items: named item ‘primes2_@name_suffix@’ named item ‘primes1_@name_suffix@’ - ordinary object ‘primes1_@name_suffix@’: + object ‘primes1_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -196,7 +196,7 @@ objects: used items: named item ‘$fNumNatural’ named item ‘fromInteger’ - ordinary object ‘fibonaccisPtr’: + object ‘fibonaccisPtr’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -206,7 +206,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -215,92 +215,92 @@ objects: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 15 used items: <none> static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 24 used items: <none> - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘fibonaccis’ - ordinary object ‘positiveFibonaccis1_@name_suffix@’: + object ‘positiveFibonaccis1_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ label ‘_hpc_tickboxes_Example_hpc’ - info table of ‘:’ + info table of ‘(:)’ used items: named item ‘positiveFibonaccis2_@name_suffix@’ named item ‘positiveFibonaccis_@name_suffix@’ - ordinary object ‘positiveFibonaccis2_@name_suffix@’: + object ‘positiveFibonaccis2_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘positiveFibonaccis2_sat_@name_suffix@’: + object ‘positiveFibonaccis2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘positiveFibonaccis1_@name_suffix@’ - ordinary object ‘positiveFibonaccis2_sat_@name_suffix@’: + object ‘positiveFibonaccis2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘fibonaccis’ - ordinary object ‘positiveFibonaccis2_sat_@name_suffix@’: + object ‘positiveFibonaccis2_sat_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘$fNumNatural’ - named item ‘+’ + named item ‘(+)’ named item ‘zipWith’ - ordinary object ‘fibonaccis’: + object ‘fibonaccis’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ label ‘_hpc_tickboxes_Example_hpc’ - info table of ‘:’ + info table of ‘(:)’ used items: named item ‘fibonaccis2_@name_suffix@’ named item ‘fibonaccis1_@name_suffix@’ - ordinary object ‘fibonaccis2_@name_suffix@’: + object ‘fibonaccis2_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: named item ‘positiveFibonaccis1_@name_suffix@’ - ordinary object ‘positiveFibonaccis_@name_suffix@’: + object ‘positiveFibonaccis_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -309,7 +309,7 @@ objects: used items: named item ‘$fNumNatural’ named item ‘fromInteger’ - ordinary object ‘fibonaccis1_@name_suffix@’: + object ‘fibonaccis1_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ @@ -318,27 +318,27 @@ objects: used items: named item ‘$fNumNatural’ named item ‘fromInteger’ - ordinary object ‘$dTypeable2_@name_suffix@’: + object ‘$dTypeable2_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$dTypeable_@name_suffix@’ named item ‘$dTypeable1_@name_suffix@’ named item ‘mkTrAppChecked’ - ordinary object ‘$dTypeable1_@name_suffix@’: + object ‘$dTypeable1_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcList’ named item ‘mkTrCon’ - ordinary object ‘$dTypeable_@name_suffix@’: + object ‘$dTypeable_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcNatural’ named item ‘mkTrCon’ static-construction object ‘$tc'Nested’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -349,33 +349,33 @@ objects: named item ‘$tc'Nested2_@name_suffix@’ named item ‘$krep17_@name_suffix@’ static-construction object ‘$tc'Nested2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Nested1_@name_suffix@’ used items: <none> static-construction object ‘$krep17_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep16_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep16_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep15_@name_suffix@’ static-construction object ‘$krep15_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep4_@name_suffix@’ named item ‘[]’ static-construction object ‘$tc'PerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -386,33 +386,33 @@ objects: named item ‘$tc'PerfectTree2_@name_suffix@’ named item ‘$krep14_@name_suffix@’ static-construction object ‘$tc'PerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'PerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep14_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep13_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep12_@name_suffix@’ static-construction object ‘$krep12_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcPerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -423,12 +423,12 @@ objects: named item ‘$tcPerfectTree2_@name_suffix@’ named item ‘krep$*Arr*’ static-construction object ‘$tcPerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcPerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$tc'Node’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -439,33 +439,33 @@ objects: named item ‘$tc'Node2_@name_suffix@’ named item ‘$krep11_@name_suffix@’ static-construction object ‘$tc'Node2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Node1_@name_suffix@’ used items: <none> static-construction object ‘$krep11_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep10_@name_suffix@’ static-construction object ‘$krep10_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘$krep9_@name_suffix@’ static-construction object ‘$krep9_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$tc'Leaf’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -476,40 +476,40 @@ objects: named item ‘$tc'Leaf2_@name_suffix@’ named item ‘$krep8_@name_suffix@’ static-construction object ‘$tc'Leaf2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Leaf1_@name_suffix@’ used items: <none> static-construction object ‘$krep8_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$krep7_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcBinTree’ named item ‘$krep6_@name_suffix@’ static-construction object ‘$krep6_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep5_@name_suffix@’ static-construction object ‘$krep5_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcBinTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -520,117 +520,117 @@ objects: named item ‘$tcBinTree2_@name_suffix@’ named item ‘krep$*->*->*’ static-construction object ‘$tcBinTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcBinTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep4_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcTuple2’ named item ‘$krep3_@name_suffix@’ static-construction object ‘$krep3_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep2_@name_suffix@’ static-construction object ‘$krep2_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$krep1_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 0 used items: <none> static-construction object ‘$krep_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 1 used items: <none> static-construction object ‘$trModule’: - data constructor name: Module + data constructor: Module lifted: yes literals: <none> used items: named item ‘$trModule2_@name_suffix@’ named item ‘$trModule4_@name_suffix@’ static-construction object ‘$trModule4_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule3_@name_suffix@’ used items: <none> static-construction object ‘$trModule2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule1_@name_suffix@’ used items: <none> - ordinary object ‘divides’: + object ‘divides’: arity: 3 literals: <none> used items: - ordinary object ‘$dReal_@name_suffix@’: + object ‘$dReal_@name_suffix@’: arity: 0 literals: label ‘_hpc_tickboxes_Example_hpc’ label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ word 0 info table of ‘IS’ used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘fromInteger’ named item ‘$p1Real’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 3 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: <none> - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 1 literals: label ‘_hpc_tickboxes_Example_hpc’ used items: <none> named item ‘mod’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> - used items: named item ‘==’ + used items: named item ‘(==)’ named item ‘$p1Ord’ named item ‘$p2Real’ named item ‘$p1Integral’ - ordinary object ‘Node’: + object ‘Node’: arity: 3 literals: info table of ‘Node’ used items: <none> - ordinary object ‘Leaf’: + object ‘Leaf’: arity: 1 literals: info table of ‘Leaf’ used items: <none> - ordinary object ‘Nested’: + object ‘Nested’: arity: 1 literals: info table of ‘Nested’ used items: <none> - ordinary object ‘PerfectTree’: + object ‘PerfectTree’: arity: 1 literals: info table of ‘PerfectTree’ used items: <none> @@ -662,7 +662,6 @@ static-pointer table entries: @hash@: static_ptr1 HPC information: hash: @hash@ - module name: Example - tick box name: _hpc_tickboxes_Example_hpc + tick box: _hpc_tickboxes_Example_hpc number of ticks: 45 ===================================== testsuite/tests/show-bytecode/show-bytecode-vanilla.stdout ===================================== @@ -1,8 +1,8 @@ [1 of 1] Compiling Example ( Example.hs, Example.gbc ) -name: Example +module: Example hash: @hash@ objects: - ordinary object ‘primesPtr’: + object ‘primesPtr’: arity: 0 literals: <none> used items: @@ -10,7 +10,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr1’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -19,96 +19,96 @@ objects: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘primes’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr1_sat_@name_suffix@’: + object ‘static_ptr1_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr1_sat_@name_suffix@’ named item ‘static_ptr1_sat_@name_suffix@’ static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 27 used items: <none> static-construction object ‘static_ptr1_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 20 used items: <none> - ordinary object ‘primes2_@name_suffix@’: + object ‘primes2_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘primes2_sat_@name_suffix@’ named item ‘isPrime_@name_suffix@’ named item ‘filter’ - ordinary object ‘isPrime_@name_suffix@’: + object ‘isPrime_@name_suffix@’: arity: 1 literals: <none> used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: <none> used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: <none> used items: - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 1 literals: word 2 info table of ‘IS’ used items: - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fIntegralInteger’ named item ‘$fNumNatural’ - named item ‘^’ - ordinary object ‘isPrime_sat_@name_suffix@’: + named item ‘(^)’ + object ‘isPrime_sat_@name_suffix@’: arity: 3 literals: <none> used items: <none> - ordinary object ‘v_@name_suffix@’: + object ‘v_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fOrdNatural’ - named item ‘<=’ - ordinary object ‘isPrime_sat_@name_suffix@’: + named item ‘(<=)’ + object ‘isPrime_sat_@name_suffix@’: arity: 3 literals: <none> used items: <none> - named item ‘.’ + named item ‘(.)’ named item ‘primes’ named item ‘takeWhile’ - ordinary object ‘isPrime_sat_@name_suffix@’: + object ‘isPrime_sat_@name_suffix@’: arity: 2 literals: <none> used items: @@ -118,17 +118,17 @@ objects: named item ‘any’ named item ‘not’ static-construction object ‘primes’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘primes1_@name_suffix@’ named item ‘primes2_@name_suffix@’ - ordinary object ‘primes2_sat_@name_suffix@’: + object ‘primes2_sat_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘primes2_sat_@name_suffix@’: + object ‘primes2_sat_@name_suffix@’: arity: 0 literals: word 3 @@ -138,7 +138,7 @@ objects: named item ‘fromInteger’ named item ‘$fEnumNatural’ named item ‘enumFrom’ - ordinary object ‘primes1_@name_suffix@’: + object ‘primes1_@name_suffix@’: arity: 0 literals: <none> used items: @@ -146,11 +146,11 @@ objects: named item ‘$fNumNatural’ named item ‘fromInteger’ static-construction object ‘primes1_sat_@name_suffix@’: - data constructor name: IS + data constructor: IS lifted: yes literals: word 2 used items: <none> - ordinary object ‘fibonaccisPtr’: + object ‘fibonaccisPtr’: arity: 0 literals: <none> used items: @@ -158,7 +158,7 @@ objects: named item ‘$dTypeable2_@name_suffix@’ named item ‘$fIsStaticStaticPtr’ static-construction object ‘static_ptr’: - data constructor name: StaticPtr + data constructor: StaticPtr lifted: yes literals: word @large_word@ @@ -167,47 +167,47 @@ objects: named item ‘static_ptr_sat_@name_suffix@’ named item ‘fibonaccis’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: StaticPtrInfo + data constructor: StaticPtrInfo lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "main" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: top-level string "Example" used items: - ordinary object ‘static_ptr_sat_@name_suffix@’: + object ‘static_ptr_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘unpackCString#’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: (,) + data constructor: (,) lifted: yes literals: <none> used items: named item ‘static_ptr_sat_@name_suffix@’ named item ‘static_ptr_sat_@name_suffix@’ static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 15 used items: <none> static-construction object ‘static_ptr_sat_@name_suffix@’: - data constructor name: I# + data constructor: I# lifted: yes literals: word 24 used items: <none> - ordinary object ‘positiveFibonaccis2_@name_suffix@’: + object ‘positiveFibonaccis2_@name_suffix@’: arity: 0 literals: <none> used items: @@ -216,26 +216,26 @@ objects: named item ‘positiveFibonaccis2_sat_@name_suffix@’ named item ‘zipWith’ static-construction object ‘positiveFibonaccis1_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘positiveFibonaccis_@name_suffix@’ named item ‘positiveFibonaccis2_@name_suffix@’ static-construction object ‘fibonaccis’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘fibonaccis1_@name_suffix@’ named item ‘positiveFibonaccis1_@name_suffix@’ - ordinary object ‘positiveFibonaccis2_sat_@name_suffix@’: + object ‘positiveFibonaccis2_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$fNumNatural’ - named item ‘+’ - ordinary object ‘positiveFibonaccis_@name_suffix@’: + named item ‘(+)’ + object ‘positiveFibonaccis_@name_suffix@’: arity: 0 literals: <none> used items: @@ -243,11 +243,11 @@ objects: named item ‘$fNumNatural’ named item ‘fromInteger’ static-construction object ‘positiveFibonaccis_sat_@name_suffix@’: - data constructor name: IS + data constructor: IS lifted: yes literals: word 1 used items: <none> - ordinary object ‘fibonaccis1_@name_suffix@’: + object ‘fibonaccis1_@name_suffix@’: arity: 0 literals: <none> used items: @@ -255,31 +255,31 @@ objects: named item ‘$fNumNatural’ named item ‘fromInteger’ static-construction object ‘fibonaccis1_sat_@name_suffix@’: - data constructor name: IS + data constructor: IS lifted: yes literals: word 0 used items: <none> - ordinary object ‘$dTypeable2_@name_suffix@’: + object ‘$dTypeable2_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘$dTypeable_@name_suffix@’ named item ‘$dTypeable1_@name_suffix@’ named item ‘mkTrAppChecked’ - ordinary object ‘$dTypeable1_@name_suffix@’: + object ‘$dTypeable1_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcList’ named item ‘mkTrCon’ - ordinary object ‘$dTypeable_@name_suffix@’: + object ‘$dTypeable_@name_suffix@’: arity: 0 literals: info table of ‘[]’ used items: named item ‘$tcNatural’ named item ‘mkTrCon’ static-construction object ‘$tc'Nested’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -290,33 +290,33 @@ objects: named item ‘$tc'Nested2_@name_suffix@’ named item ‘$krep17_@name_suffix@’ static-construction object ‘$tc'Nested2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Nested1_@name_suffix@’ used items: <none> static-construction object ‘$krep17_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep16_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep16_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep15_@name_suffix@’ static-construction object ‘$krep15_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep4_@name_suffix@’ named item ‘[]’ static-construction object ‘$tc'PerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -327,33 +327,33 @@ objects: named item ‘$tc'PerfectTree2_@name_suffix@’ named item ‘$krep14_@name_suffix@’ static-construction object ‘$tc'PerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'PerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep14_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep13_@name_suffix@’ static-construction object ‘$krep13_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcPerfectTree’ named item ‘$krep12_@name_suffix@’ static-construction object ‘$krep12_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcPerfectTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -364,12 +364,12 @@ objects: named item ‘$tcPerfectTree2_@name_suffix@’ named item ‘krep$*Arr*’ static-construction object ‘$tcPerfectTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcPerfectTree1_@name_suffix@’ used items: <none> static-construction object ‘$tc'Node’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -380,33 +380,33 @@ objects: named item ‘$tc'Node2_@name_suffix@’ named item ‘$krep11_@name_suffix@’ static-construction object ‘$tc'Node2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Node1_@name_suffix@’ used items: <none> static-construction object ‘$krep11_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep10_@name_suffix@’ static-construction object ‘$krep10_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘$krep9_@name_suffix@’ static-construction object ‘$krep9_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep7_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$tc'Leaf’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -417,40 +417,40 @@ objects: named item ‘$tc'Leaf2_@name_suffix@’ named item ‘$krep8_@name_suffix@’ static-construction object ‘$tc'Leaf2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tc'Leaf1_@name_suffix@’ used items: <none> static-construction object ‘$krep8_@name_suffix@’: - data constructor name: KindRepFun + data constructor: KindRepFun lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep7_@name_suffix@’ static-construction object ‘$krep7_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcBinTree’ named item ‘$krep6_@name_suffix@’ static-construction object ‘$krep6_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep5_@name_suffix@’ static-construction object ‘$krep5_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep_@name_suffix@’ named item ‘[]’ static-construction object ‘$tcBinTree’: - data constructor name: TyCon + data constructor: TyCon lifted: yes literals: word @large_word@ @@ -461,105 +461,105 @@ objects: named item ‘$tcBinTree2_@name_suffix@’ named item ‘krep$*->*->*’ static-construction object ‘$tcBinTree2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$tcBinTree1_@name_suffix@’ used items: <none> static-construction object ‘$krep4_@name_suffix@’: - data constructor name: KindRepTyConApp + data constructor: KindRepTyConApp lifted: yes literals: <none> used items: named item ‘$tcTuple2’ named item ‘$krep3_@name_suffix@’ static-construction object ‘$krep3_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘$krep2_@name_suffix@’ static-construction object ‘$krep2_@name_suffix@’: - data constructor name: : + data constructor: (:) lifted: yes literals: <none> used items: named item ‘$krep1_@name_suffix@’ named item ‘[]’ static-construction object ‘$krep1_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 0 used items: <none> static-construction object ‘$krep_@name_suffix@’: - data constructor name: KindRepVar + data constructor: KindRepVar lifted: yes literals: word 1 used items: <none> static-construction object ‘$trModule’: - data constructor name: Module + data constructor: Module lifted: yes literals: <none> used items: named item ‘$trModule2_@name_suffix@’ named item ‘$trModule4_@name_suffix@’ static-construction object ‘$trModule4_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule3_@name_suffix@’ used items: <none> static-construction object ‘$trModule2_@name_suffix@’: - data constructor name: TrNameS + data constructor: TrNameS lifted: yes literals: address ‘$trModule1_@name_suffix@’ used items: <none> - ordinary object ‘divides’: + object ‘divides’: arity: 3 literals: <none> used items: - ordinary object ‘$dReal_@name_suffix@’: + object ‘$dReal_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 1 literals: word 0 info table of ‘IS’ used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> used items: named item ‘fromInteger’ named item ‘$p1Real’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 3 literals: <none> used items: named item ‘mod’ - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> used items: - ordinary object ‘divides_sat_@name_suffix@’: + object ‘divides_sat_@name_suffix@’: arity: 0 literals: <none> - used items: named item ‘==’ + used items: named item ‘(==)’ named item ‘$p1Ord’ named item ‘$p2Real’ named item ‘$p1Integral’ - ordinary object ‘Node’: + object ‘Node’: arity: 3 literals: info table of ‘Node’ used items: <none> - ordinary object ‘Leaf’: + object ‘Leaf’: arity: 1 literals: info table of ‘Leaf’ used items: <none> - ordinary object ‘Nested’: + object ‘Nested’: arity: 1 literals: info table of ‘Nested’ used items: <none> - ordinary object ‘PerfectTree’: + object ‘PerfectTree’: arity: 1 literals: info table of ‘PerfectTree’ used items: <none> View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/58e096ccdf89e8a7f413b6c5fc3fca3... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/58e096ccdf89e8a7f413b6c5fc3fca3... You're receiving this email because of your account on gitlab.haskell.org. Manage all notifications: https://gitlab.haskell.org/-/profile/notifications | Help: https://gitlab.haskell.org/help