Movatterモバイル変換


[0]ホーム

URL:


{-# LINE1"GHC/RTS/Flags.hsc"#-}{-# LANGUAGE NoImplicitPrelude #-}{-# LANGUAGE RecordWildCards   #-}-- | Accessors to GHC RTS flags.-- Descriptions of flags can be seen in-- <https://www.haskell.org/ghc/docs/latest/html/users_guide/runtime_control.html GHC User's Guide>,-- or by running RTS help message using @+RTS --help@.---- @since 4.8.0.0--moduleGHC.RTS.Flags(RtsTime,RTSFlags(..),GiveGCStats(..),GCFlags(..),ConcFlags(..),MiscFlags(..),DebugFlags(..),DoCostCentres(..),CCFlags(..),DoHeapProfile(..),ProfFlags(..),DoTrace(..),TraceFlags(..),TickyFlags(..),ParFlags(..),getRTSFlags,getGCFlags,getConcFlags,getMiscFlags,getDebugFlags,getCCFlags,getProfFlags,getTraceFlags,getTickyFlags,getParFlags)whereimportControl.ApplicativeimportControl.MonadimportForeignimportForeign.CimportGHC.BaseimportGHC.EnumimportGHC.IOimportGHC.RealimportGHC.Show-- | @'Time'@ is defined as a @'StgWord64'@ in @stg/Types.h@---- @since 4.8.2.0typeRtsTime=Word64-- | Should we produce a summary of the garbage collector statistics after the-- program has exited?---- @since 4.8.2.0dataGiveGCStats=NoGCStats|CollectGCStats|OneLineGCStats|SummaryGCStats|VerboseGCStatsderiving(Show-- ^ @since 4.8.0.0)-- | @since 4.8.0.0instanceEnumGiveGCStatswherefromEnumNoGCStats=0{-# LINE75"GHC/RTS/Flags.hsc"#-}fromEnumCollectGCStats=1{-# LINE76"GHC/RTS/Flags.hsc"#-}fromEnumOneLineGCStats=2{-# LINE77"GHC/RTS/Flags.hsc"#-}fromEnumSummaryGCStats=3{-# LINE78"GHC/RTS/Flags.hsc"#-}fromEnumVerboseGCStats=4{-# LINE79"GHC/RTS/Flags.hsc"#-}toEnum0=NoGCStats{-# LINE81"GHC/RTS/Flags.hsc"#-}toEnum1=CollectGCStats{-# LINE82"GHC/RTS/Flags.hsc"#-}toEnum2=OneLineGCStats{-# LINE83"GHC/RTS/Flags.hsc"#-}toEnum3=SummaryGCStats{-# LINE84"GHC/RTS/Flags.hsc"#-}toEnum4=VerboseGCStats{-# LINE85"GHC/RTS/Flags.hsc"#-}toEnume=errorWithoutStackTrace("invalid enum for GiveGCStats: "++showe)-- | Parameters of the garbage collector.---- @since 4.8.0.0dataGCFlags=GCFlags{statsFile::MaybeFilePath,giveStats::GiveGCStats,maxStkSize::Word32,initialStkSize::Word32,stkChunkSize::Word32,stkChunkBufferSize::Word32,maxHeapSize::Word32,minAllocAreaSize::Word32,largeAllocLim::Word32,nurseryChunkSize::Word32,minOldGenSize::Word32,heapSizeSuggestion::Word32,heapSizeSuggestionAuto::Bool,oldGenFactor::Double,pcFreeHeap::Double,generations::Word32,squeezeUpdFrames::Bool,compact::Bool-- ^ True <=> "compact all the time",compactThreshold::Double,sweep::Bool-- ^ use "mostly mark-sweep" instead of copying for the oldest generation,ringBell::Bool,idleGCDelayTime::RtsTime,doIdleGC::Bool,heapBase::Word-- ^ address to ask the OS for memory,allocLimitGrace::Word,numa::Bool,numaMask::Word}deriving(Show-- ^ @since 4.8.0.0)-- | Parameters concerning context switching---- @since 4.8.0.0dataConcFlags=ConcFlags{ctxtSwitchTime::RtsTime,ctxtSwitchTicks::Int}deriving(Show-- ^ @since 4.8.0.0)-- | Miscellaneous parameters---- @since 4.8.0.0dataMiscFlags=MiscFlags{tickInterval::RtsTime,installSignalHandlers::Bool,installSEHHandlers::Bool,generateCrashDumpFile::Bool,generateStackTrace::Bool,machineReadable::Bool,internalCounters::Bool,linkerMemBase::Word-- ^ address to ask the OS for memory for the linker, 0 ==> off}deriving(Show-- ^ @since 4.8.0.0)-- | Flags to control debugging output & extra checking in various-- subsystems.---- @since 4.8.0.0dataDebugFlags=DebugFlags{scheduler::Bool-- ^ 's',interpreter::Bool-- ^ 'i',weak::Bool-- ^ 'w',gccafs::Bool-- ^ 'G',gc::Bool-- ^ 'g',block_alloc::Bool-- ^ 'b',sanity::Bool-- ^ 'S',stable::Bool-- ^ 't',prof::Bool-- ^ 'p',linker::Bool-- ^ 'l' the object linker,apply::Bool-- ^ 'a',stm::Bool-- ^ 'm',squeeze::Bool-- ^ 'z' stack squeezing & lazy blackholing,hpc::Bool-- ^ 'c' coverage,sparks::Bool-- ^ 'r'}deriving(Show-- ^ @since 4.8.0.0)-- | Should the RTS produce a cost-center summary?---- @since 4.8.2.0dataDoCostCentres=CostCentresNone|CostCentresSummary|CostCentresVerbose|CostCentresAll|CostCentresJSONderiving(Show-- ^ @since 4.8.0.0)-- | @since 4.8.0.0instanceEnumDoCostCentreswherefromEnumCostCentresNone=0{-# LINE185"GHC/RTS/Flags.hsc"#-}fromEnumCostCentresSummary=1{-# LINE186"GHC/RTS/Flags.hsc"#-}fromEnumCostCentresVerbose=2{-# LINE187"GHC/RTS/Flags.hsc"#-}fromEnumCostCentresAll=3{-# LINE188"GHC/RTS/Flags.hsc"#-}fromEnumCostCentresJSON=4{-# LINE189"GHC/RTS/Flags.hsc"#-}toEnum0=CostCentresNone{-# LINE191"GHC/RTS/Flags.hsc"#-}toEnum1=CostCentresSummary{-# LINE192"GHC/RTS/Flags.hsc"#-}toEnum2=CostCentresVerbose{-# LINE193"GHC/RTS/Flags.hsc"#-}toEnum3=CostCentresAll{-# LINE194"GHC/RTS/Flags.hsc"#-}toEnum4=CostCentresJSON{-# LINE195"GHC/RTS/Flags.hsc"#-}toEnume=errorWithoutStackTrace("invalid enum for DoCostCentres: "++showe)-- | Parameters pertaining to the cost-center profiler.---- @since 4.8.0.0dataCCFlags=CCFlags{doCostCentres::DoCostCentres,profilerTicks::Int,msecsPerTick::Int}deriving(Show-- ^ @since 4.8.0.0)-- | What sort of heap profile are we collecting?---- @since 4.8.2.0dataDoHeapProfile=NoHeapProfiling|HeapByCCS|HeapByMod|HeapByDescr|HeapByType|HeapByRetainer|HeapByLDV|HeapByClosureTypederiving(Show-- ^ @since 4.8.0.0)-- | @since 4.8.0.0instanceEnumDoHeapProfilewherefromEnumNoHeapProfiling=0{-# LINE225"GHC/RTS/Flags.hsc"#-}fromEnumHeapByCCS=1{-# LINE226"GHC/RTS/Flags.hsc"#-}fromEnumHeapByMod=2{-# LINE227"GHC/RTS/Flags.hsc"#-}fromEnumHeapByDescr=4{-# LINE228"GHC/RTS/Flags.hsc"#-}fromEnumHeapByType=5{-# LINE229"GHC/RTS/Flags.hsc"#-}fromEnumHeapByRetainer=6{-# LINE230"GHC/RTS/Flags.hsc"#-}fromEnumHeapByLDV=7{-# LINE231"GHC/RTS/Flags.hsc"#-}fromEnumHeapByClosureType=8{-# LINE232"GHC/RTS/Flags.hsc"#-}toEnum0=NoHeapProfiling{-# LINE234"GHC/RTS/Flags.hsc"#-}toEnum1=HeapByCCS{-# LINE235"GHC/RTS/Flags.hsc"#-}toEnum2=HeapByMod{-# LINE236"GHC/RTS/Flags.hsc"#-}toEnum4=HeapByDescr{-# LINE237"GHC/RTS/Flags.hsc"#-}toEnum5=HeapByType{-# LINE238"GHC/RTS/Flags.hsc"#-}toEnum6=HeapByRetainer{-# LINE239"GHC/RTS/Flags.hsc"#-}toEnum7=HeapByLDV{-# LINE240"GHC/RTS/Flags.hsc"#-}toEnum8=HeapByClosureType{-# LINE241"GHC/RTS/Flags.hsc"#-}toEnume=errorWithoutStackTrace("invalid enum for DoHeapProfile: "++showe)-- | Parameters of the cost-center profiler---- @since 4.8.0.0dataProfFlags=ProfFlags{doHeapProfile::DoHeapProfile,heapProfileInterval::RtsTime-- ^ time between samples,heapProfileIntervalTicks::Word-- ^ ticks between samples (derived),includeTSOs::Bool,showCCSOnException::Bool,maxRetainerSetSize::Word,ccsLength::Word,modSelector::MaybeString,descrSelector::MaybeString,typeSelector::MaybeString,ccSelector::MaybeString,ccsSelector::MaybeString,retainerSelector::MaybeString,bioSelector::MaybeString}deriving(Show-- ^ @since 4.8.0.0)-- | Is event tracing enabled?---- @since 4.8.2.0dataDoTrace=TraceNone-- ^ no tracing|TraceEventLog-- ^ send tracing events to the event log|TraceStderr-- ^ send tracing events to @stderr@deriving(Show-- ^ @since 4.8.0.0)-- | @since 4.8.0.0instanceEnumDoTracewherefromEnumTraceNone=0{-# LINE277"GHC/RTS/Flags.hsc"#-}fromEnumTraceEventLog=1{-# LINE278"GHC/RTS/Flags.hsc"#-}fromEnumTraceStderr=2{-# LINE279"GHC/RTS/Flags.hsc"#-}toEnum0=TraceNone{-# LINE281"GHC/RTS/Flags.hsc"#-}toEnum1=TraceEventLog{-# LINE282"GHC/RTS/Flags.hsc"#-}toEnum2=TraceStderr{-# LINE283"GHC/RTS/Flags.hsc"#-}toEnume=errorWithoutStackTrace("invalid enum for DoTrace: "++showe)-- | Parameters pertaining to event tracing---- @since 4.8.0.0dataTraceFlags=TraceFlags{tracing::DoTrace,timestamp::Bool-- ^ show timestamp in stderr output,traceScheduler::Bool-- ^ trace scheduler events,traceGc::Bool-- ^ trace GC events,sparksSampled::Bool-- ^ trace spark events by a sampled method,sparksFull::Bool-- ^ trace spark events 100% accurately,user::Bool-- ^ trace user events (emitted from Haskell code)}deriving(Show-- ^ @since 4.8.0.0)-- | Parameters pertaining to ticky-ticky profiler---- @since 4.8.0.0dataTickyFlags=TickyFlags{showTickyStats::Bool,tickyFile::MaybeFilePath}deriving(Show-- ^ @since 4.8.0.0)-- | Parameters pertaining to parallelism---- @since 4.8.0.0dataParFlags=ParFlags{nCapabilities::Word32,migrate::Bool,maxLocalSparks::Word32,parGcEnabled::Bool,parGcGen::Word32,parGcLoadBalancingEnabled::Bool,parGcLoadBalancingGen::Word32,parGcNoSyncWithIdle::Word32,parGcThreads::Word32,setAffinity::Bool}deriving(Show-- ^ @since 4.8.0.0)-- | Parameters of the runtime system---- @since 4.8.0.0dataRTSFlags=RTSFlags{gcFlags::GCFlags,concurrentFlags::ConcFlags,miscFlags::MiscFlags,debugFlags::DebugFlags,costCentreFlags::CCFlags,profilingFlags::ProfFlags,traceFlags::TraceFlags,tickyFlags::TickyFlags,parFlags::ParFlags}deriving(Show-- ^ @since 4.8.0.0)foreignimportccall"&RtsFlags"rtsFlagsPtr::PtrRTSFlagsgetRTSFlags::IORTSFlagsgetRTSFlags=doRTSFlags<$>getGCFlags<*>getConcFlags<*>getMiscFlags<*>getDebugFlags<*>getCCFlags<*>getProfFlags<*>getTraceFlags<*>getTickyFlags<*>getParFlagspeekFilePath::Ptr()->IO(MaybeFilePath)peekFilePathptr|ptr==nullPtr=returnNothing|otherwise=return(Just"<filepath>")-- | Read a NUL terminated string. Return Nothing in case of a NULL pointer.peekCStringOpt::PtrCChar->IO(MaybeString)peekCStringOptptr|ptr==nullPtr=returnNothing|otherwise=Just<$>peekCStringptrgetGCFlags::IOGCFlagsgetGCFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`0))rtsFlagsPtr{-# LINE370"GHC/RTS/Flags.hsc"#-}GCFlags<$>(peekFilePath=<<(\hsc_ptr->peekByteOffhsc_ptr0)ptr){-# LINE371"GHC/RTS/Flags.hsc"#-}<*>(toEnum.fromIntegral<$>((\hsc_ptr->peekByteOffhsc_ptr8)ptr::IOWord32)){-# LINE373"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr12)ptr{-# LINE374"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr16)ptr{-# LINE375"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr20)ptr{-# LINE376"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr24)ptr{-# LINE377"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr28)ptr{-# LINE378"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr32)ptr{-# LINE379"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr36)ptr{-# LINE380"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr40)ptr{-# LINE381"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr44)ptr{-# LINE382"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr48)ptr{-# LINE383"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr52)ptr::IOCBool)){-# LINE385"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr56)ptr{-# LINE386"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr64)ptr{-# LINE387"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr72)ptr{-# LINE388"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr76)ptr::IOCBool)){-# LINE390"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr77)ptr::IOCBool)){-# LINE392"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr80)ptr{-# LINE393"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr88)ptr::IOCBool)){-# LINE395"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr89)ptr::IOCBool)){-# LINE397"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr96)ptr{-# LINE398"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr104)ptr::IOCBool)){-# LINE400"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr120)ptr{-# LINE401"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr128)ptr{-# LINE402"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr144)ptr::IOCBool)){-# LINE404"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr152)ptr{-# LINE405"GHC/RTS/Flags.hsc"#-}getParFlags::IOParFlagsgetParFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`368))rtsFlagsPtr{-# LINE409"GHC/RTS/Flags.hsc"#-}ParFlags<$>(\hsc_ptr->peekByteOffhsc_ptr0)ptr{-# LINE411"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr4)ptr::IOCBool)){-# LINE413"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr8)ptr{-# LINE414"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr12)ptr::IOCBool)){-# LINE416"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr16)ptr{-# LINE417"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr20)ptr::IOCBool)){-# LINE419"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr24)ptr{-# LINE420"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr28)ptr{-# LINE421"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr32)ptr{-# LINE422"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr36)ptr::IOCBool)){-# LINE424"GHC/RTS/Flags.hsc"#-}getConcFlags::IOConcFlagsgetConcFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`160))rtsFlagsPtr{-# LINE428"GHC/RTS/Flags.hsc"#-}ConcFlags<$>(\hsc_ptr->peekByteOffhsc_ptr0)ptr{-# LINE429"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr8)ptr{-# LINE430"GHC/RTS/Flags.hsc"#-}getMiscFlags::IOMiscFlagsgetMiscFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`176))rtsFlagsPtr{-# LINE434"GHC/RTS/Flags.hsc"#-}MiscFlags<$>(\hsc_ptr->peekByteOffhsc_ptr0)ptr{-# LINE435"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr8)ptr::IOCBool)){-# LINE437"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr9)ptr::IOCBool)){-# LINE439"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr10)ptr::IOCBool)){-# LINE441"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr11)ptr::IOCBool)){-# LINE443"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr12)ptr::IOCBool)){-# LINE445"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr13)ptr::IOCBool)){-# LINE447"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr16)ptr{-# LINE448"GHC/RTS/Flags.hsc"#-}getDebugFlags::IODebugFlagsgetDebugFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`200))rtsFlagsPtr{-# LINE452"GHC/RTS/Flags.hsc"#-}DebugFlags<$>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr0)ptr::IOCBool)){-# LINE454"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr1)ptr::IOCBool)){-# LINE456"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr2)ptr::IOCBool)){-# LINE458"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr3)ptr::IOCBool)){-# LINE460"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr4)ptr::IOCBool)){-# LINE462"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr5)ptr::IOCBool)){-# LINE464"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr6)ptr::IOCBool)){-# LINE466"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr7)ptr::IOCBool)){-# LINE468"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr8)ptr::IOCBool)){-# LINE470"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr9)ptr::IOCBool)){-# LINE472"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr10)ptr::IOCBool)){-# LINE474"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr11)ptr::IOCBool)){-# LINE476"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr12)ptr::IOCBool)){-# LINE478"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr13)ptr::IOCBool)){-# LINE480"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr14)ptr::IOCBool)){-# LINE482"GHC/RTS/Flags.hsc"#-}getCCFlags::IOCCFlagsgetCCFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`0))rtsFlagsPtr{-# LINE486"GHC/RTS/Flags.hsc"#-}CCFlags<$>(toEnum.fromIntegral<$>((\hsc_ptr->peekByteOffhsc_ptr0)ptr::IOWord32)){-# LINE488"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr4)ptr{-# LINE489"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr8)ptr{-# LINE490"GHC/RTS/Flags.hsc"#-}getProfFlags::IOProfFlagsgetProfFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`248))rtsFlagsPtr{-# LINE494"GHC/RTS/Flags.hsc"#-}ProfFlags<$>(toEnum<$>(\hsc_ptr->peekByteOffhsc_ptr0)ptr){-# LINE495"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr8)ptr{-# LINE496"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr16)ptr{-# LINE497"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr20)ptr::IOCBool)){-# LINE499"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr21)ptr::IOCBool)){-# LINE501"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr24)ptr{-# LINE502"GHC/RTS/Flags.hsc"#-}<*>(\hsc_ptr->peekByteOffhsc_ptr28)ptr{-# LINE503"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr32)ptr){-# LINE504"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr40)ptr){-# LINE505"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr48)ptr){-# LINE506"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr56)ptr){-# LINE507"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr64)ptr){-# LINE508"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr72)ptr){-# LINE509"GHC/RTS/Flags.hsc"#-}<*>(peekCStringOpt=<<(\hsc_ptr->peekByteOffhsc_ptr80)ptr){-# LINE510"GHC/RTS/Flags.hsc"#-}getTraceFlags::IOTraceFlagsgetTraceFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`336))rtsFlagsPtr{-# LINE514"GHC/RTS/Flags.hsc"#-}TraceFlags<$>(toEnum.fromIntegral<$>((\hsc_ptr->peekByteOffhsc_ptr0)ptr::IOCInt)){-# LINE516"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr4)ptr::IOCBool)){-# LINE518"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr5)ptr::IOCBool)){-# LINE520"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr6)ptr::IOCBool)){-# LINE522"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr7)ptr::IOCBool)){-# LINE524"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr8)ptr::IOCBool)){-# LINE526"GHC/RTS/Flags.hsc"#-}<*>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr9)ptr::IOCBool)){-# LINE528"GHC/RTS/Flags.hsc"#-}getTickyFlags::IOTickyFlagsgetTickyFlags=doletptr=((\hsc_ptr->hsc_ptr`plusPtr`352))rtsFlagsPtr{-# LINE532"GHC/RTS/Flags.hsc"#-}TickyFlags<$>(toBool<$>((\hsc_ptr->peekByteOffhsc_ptr0)ptr::IOCBool)){-# LINE534"GHC/RTS/Flags.hsc"#-}<*>(peekFilePath=<<(\hsc_ptr->peekByteOffhsc_ptr8)ptr){-# LINE535"GHC/RTS/Flags.hsc"#-}

[8]ページ先頭

©2009-2025 Movatter.jp