packages feed

ghc-lib 8.10.1.20200412 → 8.10.1.20200518

raw patch · 158 files changed

+215/−215 lines, 158 filesdep ~ghc-lib-parser

Dependency ranges changed: ghc-lib-parser

Files

compiler/GHC/HsToCore/PmCheck.hs view
@@ -20,7 +20,7 @@         addTyCsDs, addScrutTmCs, addPatTmCs     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/HsToCore/PmCheck/Oracle.hs view
@@ -24,7 +24,7 @@         provideEvidence,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/HsToCore/PmCheck/Ppr.hs view
@@ -6,7 +6,7 @@         pprUncovered     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/StgToCmm.hs view
@@ -11,7 +11,7 @@  module GHC.StgToCmm ( codeGen ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude as Prelude 
compiler/GHC/StgToCmm/Closure.hs view
@@ -62,7 +62,7 @@         staticClosureNeedsLink,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/StgToCmm/DataCon.hs view
@@ -15,7 +15,7 @@         cgTopRhsCon, buildDynCon, bindConArgs     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/StgToCmm/Env.hs view
@@ -22,7 +22,7 @@         maybeLetNoEscape,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/GHC/StgToCmm/Expr.hs view
@@ -10,7 +10,7 @@  module GHC.StgToCmm.Expr ( cgExpr ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude hiding ((<*>)) 
compiler/GHC/StgToCmm/Layout.hs view
@@ -30,7 +30,7 @@   ) where  -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude hiding ((<*>)) 
compiler/GHC/StgToCmm/Prim.hs view
@@ -22,7 +22,7 @@    shouldInlinePrimOp  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude hiding ((<*>)) 
compiler/GHC/StgToCmm/Utils.hs view
@@ -46,7 +46,7 @@         emitUpdRemSetPushThunk,   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
+ compiler/GhclibHsVersions.h view
@@ -0,0 +1,56 @@+#pragma once++-- For GHC_STAGE+#include "ghcplatform.h"++#if 0++IMPORTANT!  If you put extra tabs/spaces in these macro definitions,+you will screw up the layout where they are used in case expressions!++(This is cpp-dependent, of course)++#endif++#define GLOBAL_VAR(name,value,ty)  \+{-# NOINLINE name #-};             \+name :: IORef (ty);                \+name = Util.global (value);++#define GLOBAL_VAR_M(name,value,ty) \+{-# NOINLINE name #-};              \+name :: IORef (ty);                 \+name = Util.globalM (value);+++#define SHARED_GLOBAL_VAR(name,accessor,saccessor,value,ty) \+{-# NOINLINE name #-};                                      \+name :: IORef (ty);                                         \+name = Util.sharedGlobal (value) (accessor);                \+foreign import ccall unsafe saccessor                       \+  accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));++#define SHARED_GLOBAL_VAR_M(name,accessor,saccessor,value,ty)  \+{-# NOINLINE name #-};                                         \+name :: IORef (ty);                                            \+name = Util.sharedGlobalM (value) (accessor);                  \+foreign import ccall unsafe saccessor                          \+  accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));+++#define ASSERT(e)      if debugIsOn && not (e) then (assertPanic __FILE__ __LINE__) else+#define ASSERT2(e,msg) if debugIsOn && not (e) then (assertPprPanic __FILE__ __LINE__ (msg)) else+#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $++-- Examples:   Assuming   flagSet :: String -> m Bool+--+--    do { c   <- getChar; MASSERT( isUpper c ); ... }+--    do { c   <- getChar; MASSERT2( isUpper c, text "Bad" ); ... }+--    do { str <- getStr;  ASSERTM( flagSet str ); .. }+--    do { str <- getStr;  ASSERTM2( flagSet str, text "Bad" ); .. }+--    do { str <- getStr;  WARNM2( flagSet str, text "Flag is set" ); .. }+#define MASSERT(e)      ASSERT(e) return ()+#define MASSERT2(e,msg) ASSERT2(e,msg) return ()+#define ASSERTM(e)      do { bool <- e; MASSERT(bool) }+#define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) }+#define WARNM2(e,msg)   do { bool <- e; WARN(bool, msg) return () }
− compiler/HsVersions.h
@@ -1,56 +0,0 @@-#pragma once---- For GHC_STAGE-#include "ghcplatform.h"--#if 0--IMPORTANT!  If you put extra tabs/spaces in these macro definitions,-you will screw up the layout where they are used in case expressions!--(This is cpp-dependent, of course)--#endif--#define GLOBAL_VAR(name,value,ty)  \-{-# NOINLINE name #-};             \-name :: IORef (ty);                \-name = Util.global (value);--#define GLOBAL_VAR_M(name,value,ty) \-{-# NOINLINE name #-};              \-name :: IORef (ty);                 \-name = Util.globalM (value);---#define SHARED_GLOBAL_VAR(name,accessor,saccessor,value,ty) \-{-# NOINLINE name #-};                                      \-name :: IORef (ty);                                         \-name = Util.sharedGlobal (value) (accessor);                \-foreign import ccall unsafe saccessor                       \-  accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));--#define SHARED_GLOBAL_VAR_M(name,accessor,saccessor,value,ty)  \-{-# NOINLINE name #-};                                         \-name :: IORef (ty);                                            \-name = Util.sharedGlobalM (value) (accessor);                  \-foreign import ccall unsafe saccessor                          \-  accessor :: Ptr (IORef a) -> IO (Ptr (IORef a));---#define ASSERT(e)      if debugIsOn && not (e) then (assertPanic __FILE__ __LINE__) else-#define ASSERT2(e,msg) if debugIsOn && not (e) then (assertPprPanic __FILE__ __LINE__ (msg)) else-#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) $---- Examples:   Assuming   flagSet :: String -> m Bool------    do { c   <- getChar; MASSERT( isUpper c ); ... }---    do { c   <- getChar; MASSERT2( isUpper c, text "Bad" ); ... }---    do { str <- getStr;  ASSERTM( flagSet str ); .. }---    do { str <- getStr;  ASSERTM2( flagSet str, text "Bad" ); .. }---    do { str <- getStr;  WARNM2( flagSet str, text "Flag is set" ); .. }-#define MASSERT(e)      ASSERT(e) return ()-#define MASSERT2(e,msg) ASSERT2(e,msg) return ()-#define ASSERTM(e)      do { bool <- e; MASSERT(bool) }-#define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) }-#define WARNM2(e,msg)   do { bool <- e; WARN(bool, msg) return () }
compiler/backpack/DriverBkp.hs view
@@ -16,7 +16,7 @@  module DriverBkp (doBackpack) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/backpack/NameShape.hs view
@@ -10,7 +10,7 @@     maybeSubstNameShape,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/backpack/RnModIface.hs view
@@ -13,7 +13,7 @@     tcRnModExports,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/cmm/CLabel.hs view
@@ -109,7 +109,7 @@         isConInfoTableLabel     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/cmm/CmmInfo.hs view
@@ -32,7 +32,7 @@   stdPtrsOffset, stdNonPtrsOffset, ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/cmm/CmmParse.y view
@@ -261,7 +261,7 @@ import qualified Data.Map as M import qualified Data.ByteString.Char8 as BS8 -#include "HsVersions.h"+#include "GhclibHsVersions.h" }  %expect 0
compiler/cmm/PprC.hs view
@@ -22,7 +22,7 @@         writeC   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  -- Cmm stuff import GhcPrelude
compiler/coreSyn/CoreLint.hs view
@@ -21,7 +21,7 @@     CoreLint.dumpIfSet,  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/coreSyn/CorePrep.hs view
@@ -13,7 +13,7 @@       lookupMkNaturalName, lookupNaturalSDataConName   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/Desugar.hs view
@@ -15,7 +15,7 @@     deSugar, deSugarExpr     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsArrows.hs view
@@ -12,7 +12,7 @@  module DsArrows ( dsProcExpr ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsBinds.hs view
@@ -19,7 +19,7 @@                  dsHsWrapper, dsTcEvBinds, dsTcEvBinds_s, dsEvBinds, dsMkUserRule   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsCCall.hs view
@@ -15,7 +15,7 @@         , resultWrapper         ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"   import GhcPrelude
compiler/deSugar/DsExpr.hs view
@@ -13,7 +13,7 @@ module DsExpr ( dsExpr, dsLExpr, dsLExprNoLP, dsLocalBinds               , dsValBinds, dsLit, dsSyntaxExpr ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsForeign.hs view
@@ -13,7 +13,7 @@  module DsForeign ( dsForeigns ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude  import TcRnMonad        -- temp
compiler/deSugar/DsGRHSs.hs view
@@ -11,7 +11,7 @@  module DsGRHSs ( dsGuarded, dsGRHSs, dsGRHS, isTrueLHsExpr ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsListComp.hs view
@@ -12,7 +12,7 @@  module DsListComp ( dsListComp, dsMonadComp ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsMeta.hs view
@@ -19,7 +19,7 @@  module DsMeta( dsBracket ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsUsage.hs view
@@ -7,7 +7,7 @@     mkUsageInfo, mkUsedNames, mkDependencies     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/DsUtils.hs view
@@ -42,7 +42,7 @@         isTrueLHsExpr     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/Match.hs view
@@ -13,7 +13,7 @@ module Match ( match, matchEquations, matchWrapper, matchSimply              , matchSinglePat, matchSinglePatVar ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/MatchCon.hs view
@@ -12,7 +12,7 @@  module MatchCon ( matchConFamily, matchPatSyn ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/deSugar/MatchLit.hs view
@@ -17,7 +17,7 @@                 , warnAboutEmptyEnumerations                 ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/ByteCodeAsm.hs view
@@ -13,7 +13,7 @@         iNTERP_STACK_CHECK_THRESH   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/ByteCodeGen.hs view
@@ -9,7 +9,7 @@ -- | ByteCodeGen: Generate bytecode from Core module ByteCodeGen ( UnlinkedBCO, byteCodeGen, coreExprToBCOs ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/ByteCodeInstr.hs view
@@ -9,7 +9,7 @@         BCInstr(..), ProtoBCO(..), bciStackUse,   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/ByteCodeItbls.hs view
@@ -7,7 +7,7 @@ -- | ByteCodeItbls: Generate infotables for interpreter-made bytecodes module ByteCodeItbls ( mkITbls ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/ByteCodeLink.hs view
@@ -16,7 +16,7 @@         nameToCLabel, linkFail   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/Linker.hs view
@@ -18,7 +18,7 @@                 uninitializedLinker         ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/ghci/RtClosureInspect.hs view
@@ -23,7 +23,7 @@      constrClosToName -- exported to use in test T4891  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/BinIface.hs view
@@ -31,7 +31,7 @@      ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/BuildTyCl.hs view
@@ -13,7 +13,7 @@         newImplicitBinder, newTyConRepName     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/IfaceEnv.hs view
@@ -20,7 +20,7 @@         mkNameCacheUpdater, NameCacheUpdater(..),    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/LoadIface.hs view
@@ -32,7 +32,7 @@         ifaceStats, pprModIface, showIface    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/MkIface.hs view
@@ -58,7 +58,7 @@     the actual fingerprint for all each thing recorded in mi_usages -} -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/iface/TcIface.hs view
@@ -20,7 +20,7 @@         tcIfaceGlobal  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/Llvm/PpLlvm.hs view
@@ -23,7 +23,7 @@      ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/Llvm/Types.hs view
@@ -6,7 +6,7 @@  module Llvm.Types where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/LlvmCodeGen.hs view
@@ -5,7 +5,7 @@ -- module LlvmCodeGen ( LlvmVersion, llvmVersionList, llvmCodeGen, llvmFixupAsm ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/LlvmCodeGen/Base.hs view
@@ -36,7 +36,7 @@         aliasify, llvmDefLabel     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" #include "ghcautoconf.h"  import GhcPrelude
compiler/llvmGen/LlvmCodeGen/CodeGen.hs view
@@ -5,7 +5,7 @@ -- module LlvmCodeGen.CodeGen ( genLlvmProc ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/LlvmCodeGen/Data.hs view
@@ -7,7 +7,7 @@         genLlvmData, genData     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/LlvmCodeGen/Ppr.hs view
@@ -7,7 +7,7 @@         pprLlvmCmmDecl, pprLlvmData, infoSection     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/llvmGen/LlvmCodeGen/Regs.hs view
@@ -9,7 +9,7 @@         stgTBAA, baseN, stackN, heapN, rxN, topN, tbaa, getTBAA     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/CodeOutput.hs view
@@ -8,7 +8,7 @@  module CodeOutput( codeOutput, outputForeignStubs ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/DriverMkDepend.hs view
@@ -12,7 +12,7 @@         doMkDependHS   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/DriverPipeline.hs view
@@ -32,7 +32,7 @@   ) where  #include <ghcplatform.h>-#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/Finder.hs view
@@ -31,7 +31,7 @@    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/GHC.hs view
@@ -293,7 +293,7 @@   * inline bits of HscMain here to simplify layering: hscTcExpr, hscStmt. -} -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude hiding (init) 
compiler/main/GhcMake.hs view
@@ -29,7 +29,7 @@         moduleGraphNodes, SummaryNode     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/HscMain.hs view
@@ -180,7 +180,7 @@ import HieBin           ( readHieFile, writeHieFile , hie_file_result) import HieDebug         ( diffFile, validateScopes ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"   {- **********************************************************************
compiler/main/InteractiveEval.hs view
@@ -42,7 +42,7 @@         Term(..), obtainTermFromId, obtainTermFromVal, reconstructType         ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/PprTyThing.hs view
@@ -17,7 +17,7 @@         pprFamInst   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/SysTools.hs view
@@ -36,7 +36,7 @@         getFrameworkOpts  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/SysTools/Process.hs view
@@ -8,7 +8,7 @@ ----------------------------------------------------------------------------- module SysTools.Process where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import Exception import ErrUtils
compiler/main/SysTools/Settings.hs view
@@ -7,7 +7,7 @@  , initSettings  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/main/TidyPgm.hs view
@@ -10,7 +10,7 @@        mkBootModDetailsTc, tidyProgram    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/AsmCodeGen.hs view
@@ -26,7 +26,7 @@                   , x86NcgImpl                   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/BlockLayout.hs view
@@ -13,7 +13,7 @@     ( sequenceTop ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h" import GhcPrelude  import Instruction
compiler/nativeGen/CFG.hs view
@@ -42,7 +42,7 @@      ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/NCGMonad.hs view
@@ -41,7 +41,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/PPC/CodeGen.hs view
@@ -20,7 +20,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  -- NCG stuff: import GhcPrelude
compiler/nativeGen/PPC/Instr.hs view
@@ -8,7 +8,7 @@ -- ----------------------------------------------------------------------------- -#include "HsVersions.h"+#include "GhclibHsVersions.h"  module PPC.Instr (     archWordFormat,
compiler/nativeGen/PPC/RegInfo.hs view
@@ -17,7 +17,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/PPC/Regs.hs view
@@ -47,7 +47,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/RegAlloc/Graph/TrivColorable.hs view
@@ -6,7 +6,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs view
@@ -5,7 +5,7 @@     maxSpillSlots ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  where 
compiler/nativeGen/RegAlloc/Linear/Main.hs view
@@ -99,7 +99,7 @@         module  RegAlloc.Linear.Stats   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"   import GhcPrelude
compiler/nativeGen/SPARC/CodeGen.hs view
@@ -17,7 +17,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  -- NCG stuff: import GhcPrelude
compiler/nativeGen/SPARC/Instr.hs view
@@ -7,7 +7,7 @@ -- (c) The University of Glasgow 1993-2004 -- ------------------------------------------------------------------------------#include "HsVersions.h"+#include "GhclibHsVersions.h"  module SPARC.Instr (         RI(..),
compiler/nativeGen/SPARC/Ppr.hs view
@@ -22,7 +22,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/TargetReg.hs view
@@ -19,7 +19,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/X86/CodeGen.hs view
@@ -31,7 +31,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  -- NCG stuff: import GhcPrelude
compiler/nativeGen/X86/Instr.hs view
@@ -14,7 +14,7 @@                   maxSpillSlots, archWordFormat ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/X86/Ppr.hs view
@@ -20,7 +20,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/X86/RegInfo.hs view
@@ -6,7 +6,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/nativeGen/X86/Regs.hs view
@@ -47,7 +47,7 @@  where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/prelude/PrelInfo.hs view
@@ -44,7 +44,7 @@      ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnEnv.hs view
@@ -42,7 +42,7 @@      ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnExpr.hs view
@@ -20,7 +20,7 @@         rnLExpr, rnExpr, rnStmts    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnNames.hs view
@@ -27,7 +27,7 @@         ImportDeclUsage     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnPat.hs view
@@ -46,7 +46,7 @@ import {-# SOURCE #-} RnExpr ( rnLExpr ) import {-# SOURCE #-} RnSplice ( rnSplicePat ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GHC.Hs import TcRnMonad
compiler/rename/RnSource.hs view
@@ -14,7 +14,7 @@         rnSrcDecls, addTcgDUs, findSplice     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnSplice.hs view
@@ -10,7 +10,7 @@         , traceSplice, SpliceInfo(..)   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/rename/RnTypes.hs view
@@ -68,7 +68,7 @@ import Data.List          ( nubBy, partition, (\\) ) import Control.Monad      ( unless, when ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- These type renamers are in a separate module, rather than in (say) RnSource,
compiler/simplCore/CSE.hs view
@@ -8,7 +8,7 @@  module CSE (cseProgram, cseOneExpr) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/FloatIn.hs view
@@ -17,7 +17,7 @@  module FloatIn ( floatInwards ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/FloatOut.hs view
@@ -33,7 +33,7 @@  import Data.List        ( partition ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {-         -----------------
compiler/simplCore/LiberateCase.hs view
@@ -7,7 +7,7 @@ {-# LANGUAGE CPP #-} module LiberateCase ( liberateCase ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/SAT.hs view
@@ -72,7 +72,7 @@ import Data.List (mapAccumL) import FastString -#include "HsVersions.h"+#include "GhclibHsVersions.h"  doStaticArgs :: UniqSupply -> CoreProgram -> CoreProgram doStaticArgs us binds = snd $ mapAccumL sat_bind_threaded_us us binds
compiler/simplCore/SetLevels.hs view
@@ -60,7 +60,7 @@         incMinorLvl, ltMajLvl, ltLvl, isTopLvl     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/SimplCore.hs view
@@ -8,7 +8,7 @@  module SimplCore ( core2core, simplifyExpr ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/SimplEnv.hs view
@@ -43,7 +43,7 @@         wrapJoinFloats, wrapJoinFloatsX, unitJoinFloat, addJoinFlts     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/SimplUtils.hs view
@@ -36,7 +36,7 @@         isExitJoinId     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplCore/Simplify.hs view
@@ -8,7 +8,7 @@  module Simplify ( simplTopBinds, simplExpr, simplRules ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplStg/SimplStg.hs view
@@ -11,7 +11,7 @@  module SimplStg ( stg2stg ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplStg/StgLiftLams/LiftM.hs view
@@ -20,7 +20,7 @@     substOcc, isLifted, formerFreeVars, liftedIdsExpander   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplStg/StgLiftLams/Transformation.hs view
@@ -4,7 +4,7 @@ -- selecting which bindings to lambda lift by consulting 'goodToLift'. module StgLiftLams.Transformation (stgLiftLams) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplStg/StgStats.hs view
@@ -25,7 +25,7 @@  module StgStats ( showStgStats ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/simplStg/UnariseStg.hs view
@@ -196,7 +196,7 @@  module UnariseStg (unarise) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/specialise/SpecConstr.hs view
@@ -17,7 +17,7 @@         SpecConstrAnnotation(..)     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/specialise/Specialise.hs view
@@ -9,7 +9,7 @@ {-# LANGUAGE ViewPatterns #-} module Specialise ( specProgram, specUnfolding ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/stgSyn/CoreToStg.hs view
@@ -13,7 +13,7 @@  module CoreToStg ( coreToStg ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/stgSyn/StgSubst.hs view
@@ -2,7 +2,7 @@  module StgSubst where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/stgSyn/StgSyn.hs view
@@ -57,7 +57,7 @@         pprStgBinding, pprGenStgTopBindings, pprStgTopBindings     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/stranal/DmdAnal.hs view
@@ -11,7 +11,7 @@  module DmdAnal ( dmdAnalProgram ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/stranal/WorkWrap.hs view
@@ -28,7 +28,7 @@ import FamInstEnv import MonadUtils -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- We take Core bindings whose binders have:
compiler/stranal/WwLib.hs view
@@ -11,7 +11,7 @@              , isWorkerSmallEnough  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/ClsInst.hs view
@@ -7,7 +7,7 @@      AssocInstInfo(..), isNotAssociated   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/FamInst.hs view
@@ -48,7 +48,7 @@  import qualified GHC.LanguageExtensions  as LangExt -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- Note [The type family instance consistency story] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
compiler/typecheck/FunDeps.hs view
@@ -17,7 +17,7 @@         pprFundeps     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/Inst.hs view
@@ -30,7 +30,7 @@        tyCoVarsOfCt, tyCoVarsOfCts,     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcBackpack.hs view
@@ -71,7 +71,7 @@  import {-# SOURCE #-} TcRnDriver -#include "HsVersions.h"+#include "GhclibHsVersions.h"  fixityMisMatch :: TyThing -> Fixity -> Fixity -> SDoc fixityMisMatch real_thing real_fixity sig_fixity =
compiler/typecheck/TcBinds.hs view
@@ -68,7 +68,7 @@ import Control.Monad import Data.Foldable (find) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- ************************************************************************
compiler/typecheck/TcCanonical.hs view
@@ -9,7 +9,7 @@      solveCallStack    -- For TcSimplify   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcClassDcl.hs view
@@ -18,7 +18,7 @@                     tcATDefault                   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcDeriv.hs view
@@ -12,7 +12,7 @@  module TcDeriv ( tcDeriving, DerivInfo(..) ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcDerivInfer.hs view
@@ -11,7 +11,7 @@  module TcDerivInfer (inferConstraints, simplifyInstanceContexts) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcEnv.hs view
@@ -69,7 +69,7 @@         mkWrapperName   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcErrors.hs view
@@ -9,7 +9,7 @@        solverDepthErrorTcS   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcExpr.hs view
@@ -17,7 +17,7 @@                 addExprErrCtxt,                 getFixedTyVars ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcFlatten.hs view
@@ -8,7 +8,7 @@    unflattenWanteds  ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcForeign.hs view
@@ -31,7 +31,7 @@         , tcCheckFEType         ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcGenDeriv.hs view
@@ -35,7 +35,7 @@         mkRdrFunBind, mkRdrFunBindEC, mkRdrFunBindSE, error_Expr     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcGenGenerics.hs view
@@ -50,7 +50,7 @@ import Data.List (zip4, partition) import Data.Maybe (isJust) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- ************************************************************************
compiler/typecheck/TcHsSyn.hs view
@@ -44,7 +44,7 @@         lookupTyVarOcc   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcHsType.hs view
@@ -65,7 +65,7 @@         funAppCtxt, addTyConFlavCtxt    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcInstDcls.hs view
@@ -12,7 +12,7 @@  module TcInstDcls ( tcInstDecls1, tcInstDeclsDeriv, tcInstDecls2 ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcInteract.hs view
@@ -5,7 +5,7 @@      solveSimpleWanteds,  -- Solves Cts   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude import BasicTypes ( SwapFlag(..), isSwapped,
compiler/typecheck/TcMType.hs view
@@ -88,7 +88,7 @@   ensureNotLevPoly, checkForLevPoly, checkForLevPolyX, formatLevPolyErr   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  -- friends: import GhcPrelude
compiler/typecheck/TcMatches.hs view
@@ -51,7 +51,7 @@ import Control.Monad import Control.Arrow ( second ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- ************************************************************************
compiler/typecheck/TcPat.hs view
@@ -15,7 +15,7 @@              , tcPat, tcPat_O, tcPats              , addDataConStupidTheta, badFieldCon, polyPatSig ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcPatSyn.hs view
@@ -58,7 +58,7 @@ import Control.Monad ( zipWithM ) import Data.List( partition ) -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- ************************************************************************
compiler/typecheck/TcRnDriver.hs view
@@ -145,7 +145,7 @@ import TcHoleFitTypes ( HoleFitPluginR (..) )  -#include "HsVersions.h"+#include "GhclibHsVersions.h"  {- ************************************************************************
compiler/typecheck/TcRnMonad.hs view
@@ -140,7 +140,7 @@   module IOEnv   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcSMonad.hs view
@@ -123,7 +123,7 @@                                              -- here ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcSigs.hs view
@@ -23,7 +23,7 @@        mkPragEnv, tcSpecPrags, tcSpecWrapper, tcImpPrags, addInlinePrags    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcSimplify.hs view
@@ -24,7 +24,7 @@        approximateWC, runTcSDeriveds   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcSplice.hs view
@@ -29,7 +29,7 @@      finishTH, runTopSplice       ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcTyClsDecls.hs view
@@ -22,7 +22,7 @@         wrongKindOfFamily     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcTyDecls.hs view
@@ -27,7 +27,7 @@         tcRecSelBinds, mkRecSelBinds, mkOneRecordSelector     ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcTypeable.hs view
@@ -10,7 +10,7 @@  module TcTypeable(mkTypeableBinds, tyConIsTypeable) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcUnify.hs view
@@ -36,7 +36,7 @@    ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
compiler/typecheck/TcValidity.hs view
@@ -17,7 +17,7 @@   allDistinctTyVars   ) where -#include "HsVersions.h"+#include "GhclibHsVersions.h"  import GhcPrelude 
ghc-lib.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.22 build-type: Simple name: ghc-lib-version: 8.10.1.20200412+version: 8.10.1.20200518 license: BSD3 license-file: LICENSE category: Development@@ -44,9 +44,9 @@     includes/MachDeps.h     includes/stg/MachRegs.h     includes/CodeGen.Platform.hs-    compiler/HsVersions.h+    compiler/GhclibHsVersions.h     compiler/Unique.h-tested-with: GHC==8.8.2, GHC==8.6.5, GHC==8.4.4+tested-with: GHC==8.10.1, GHC==8.8.2, GHC==8.6.5, GHC==8.4.4 source-repository head     type: git     location: git@github.com:digital-asset/ghc-lib.git@@ -82,7 +82,7 @@         transformers == 0.5.*,         process >= 1 && < 1.7,         hpc == 0.6.*,-        ghc-lib-parser == 8.10.1.20200412+        ghc-lib-parser == 8.10.1.20200518     build-tools: alex >= 3.1, happy >= 1.19.4     other-extensions:         BangPatterns