December 2025 - ghc-commits

[Git][ghc/ghc][master] compiler: replace DList with OrdList
by Marge Bot (＠marge-bot) 20 Dec '25

20 Dec '25

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC Commits: fb586c67 by Cheng Shao at 2025-12-20T07:50:36-05:00 compiler: replace DList with OrdList This patch removes `DList` logic from the compiler and replaces it with `OrdList` which also supports O(1) concatenation and should be more memory efficient than the church-encoded `DList`. - - - - - 2 changed files: - compiler/GHC/Parser/String.hs - compiler/GHC/StgToCmm/InfoTableProv.hs Changes: ===================================== compiler/GHC/Parser/String.hs ===================================== @@ -19,6 +19,7 @@ import Data.Char (chr, ord) import qualified Data.Foldable1 as Foldable1 import qualified Data.List.NonEmpty as NonEmpty import Data.Maybe (listToMaybe, mapMaybe) +import GHC.Data.OrdList (fromOL, nilOL, snocOL) import GHC.Data.StringBuffer (StringBuffer) import qualified GHC.Data.StringBuffer as StringBuffer import GHC.Parser.CharClass ( @@ -167,16 +168,16 @@ collapseGaps = go [] -> panic "gap unexpectedly ended" resolveEscapes :: HasChar c => [c] -> Either (c, LexErr) [c] -resolveEscapes = go dlistEmpty +resolveEscapes = go nilOL where go !acc = \case - [] -> pure $ dlistToList acc + [] -> pure $ fromOL acc Char '\\' : Char '&' : cs -> go acc cs backslash@(Char '\\') : cs -> case resolveEscapeChar cs of - Right (esc, cs') -> go (acc `dlistSnoc` setChar esc backslash) cs' + Right (esc, cs') -> go (acc `snocOL` setChar esc backslash) cs' Left (c, e) -> Left (c, e) - c : cs -> go (acc `dlistSnoc` c) cs + c : cs -> go (acc `snocOL` c) cs -- ----------------------------------------------------------------------------- -- Escape characters @@ -420,17 +421,3 @@ It's more precisely defined with the following algorithm: * Lines with only whitespace characters 3. Calculate the longest prefix of whitespace shared by all lines in the remaining list -} - --- ----------------------------------------------------------------------------- --- DList - -newtype DList a = DList ([a] -> [a]) - -dlistEmpty :: DList a -dlistEmpty = DList id - -dlistToList :: DList a -> [a] -dlistToList (DList f) = f [] - -dlistSnoc :: DList a -> a -> DList a -dlistSnoc (DList f) x = DList (f . (x :)) ===================================== compiler/GHC/StgToCmm/InfoTableProv.hs ===================================== @@ -11,6 +11,7 @@ import GHC.IO (unsafePerformIO) #endif import Data.Char +import Data.Foldable import GHC.Prelude import GHC.Platform import GHC.Types.SrcLoc (pprUserRealSpan, srcSpanFile) @@ -18,6 +19,7 @@ import GHC.Types.Unique.DSM import GHC.Unit.Module import GHC.Utils.Outputable import GHC.Data.FastString (fastStringToShortText, unpackFS, LexicalFastString(..)) +import GHC.Data.OrdList (OrdList, nilOL, snocOL) import GHC.Cmm import GHC.Cmm.CLabel @@ -286,7 +288,7 @@ data CgInfoProvEnt = CgInfoProvEnt , ipeSrcSpan :: !StrTabOffset } -data StringTable = StringTable { stStrings :: DList ShortText +data StringTable = StringTable { stStrings :: !(OrdList ShortText) , stLength :: !Int , stLookup :: !(M.Map ShortText StrTabOffset) } @@ -295,7 +297,7 @@ type StrTabOffset = Word32 emptyStringTable :: StringTable emptyStringTable = - StringTable { stStrings = emptyDList + StringTable { stStrings = nilOL , stLength = 0 , stLookup = M.empty } @@ -303,7 +305,7 @@ emptyStringTable = getStringTableStrings :: StringTable -> BS.ByteString getStringTableStrings st = BSL.toStrict $ BSB.toLazyByteString - $ foldMap f $ dlistToList (stStrings st) + $ foldMap' f $ stStrings st where f x = BSB.shortByteString (ST.contents x) `mappend` BSB.word8 0 @@ -312,7 +314,7 @@ lookupStringTable str = state $ \st -> case M.lookup str (stLookup st) of Just off -> (off, st) Nothing -> - let !st' = st { stStrings = stStrings st `snoc` str + let !st' = st { stStrings = stStrings st `snocOL` str , stLength = stLength st + ST.byteLength str + 1 , stLookup = M.insert str res (stLookup st) } @@ -359,14 +361,3 @@ foreign import ccall unsafe "ZSTD_compressBound" defaultCompressionLevel :: Int defaultCompressionLevel = 3 - -newtype DList a = DList ([a] -> [a]) - -emptyDList :: DList a -emptyDList = DList id - -snoc :: DList a -> a -> DList a -snoc (DList f) x = DList (f . (x:)) - -dlistToList :: DList a -> [a] -dlistToList (DList f) = f [] View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb586c6770e164741a557b6f2b7ce87… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fb586c6770e164741a557b6f2b7ce87… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][master] 2 commits: rts: workaround -Werror=maybe-uninitialized false positives
by Marge Bot (＠marge-bot) 20 Dec '25

20 Dec '25

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC Commits: 224446a2 by Cheng Shao at 2025-12-20T07:49:54-05:00 rts: workaround -Werror=maybe-uninitialized false positives In some cases gcc might report -Werror=maybe-uninitialized that we know are false positives, but need to workaround it to make validate builds with -Werror pass. - - - - - 251ec087 by Cheng Shao at 2025-12-20T07:49:54-05:00 hadrian: use -Og as C/C++ optimization level when debugging This commit enables -Og as optimization level when compiling the debug ways of rts. According to gcc documentation (https://gcc.gnu.org/onlinedocs/gcc/Optimize-Options.html#index-Og) -Og is a better choice than -O0 for producing debuggable code. It's also supported by clang as well, so it makes sense to use it as a default for debugging. Also add missing -g3 flag to C++ compilation flags in +debug_info flavour transformer. - - - - - 4 changed files: - hadrian/src/Flavour.hs - hadrian/src/Settings/Packages.hs - rts/linker/InitFini.c - rts/sm/Sanity.c Changes: ===================================== hadrian/src/Flavour.hs ===================================== @@ -169,6 +169,7 @@ enableDebugInfo :: Flavour -> Flavour enableDebugInfo = addArgs $ notStage0 ? mconcat [ builder (Ghc CompileHs) ? pure ["-g3"] , builder (Ghc CompileCWithGhc) ? pure ["-optc-g3"] + , builder (Ghc CompileCppWithGhc) ? pure ["-optcxx-g3"] , builder (Cc CompileC) ? arg "-g3" , builder (Cabal Setup) ? arg "--disable-library-stripping" , builder (Cabal Setup) ? arg "--disable-executable-stripping" ===================================== hadrian/src/Settings/Packages.hs ===================================== @@ -351,7 +351,7 @@ rtsPackageArgs = package rts ? do , Debug `wayUnit` way ? pure [ "-DDEBUG" , "-fno-omit-frame-pointer" , "-g3" - , "-O0" ] + , "-Og" ] -- Set the namespace for the rts fs functions , arg $ "-DFS_NAMESPACE=rts" ===================================== rts/linker/InitFini.c ===================================== @@ -75,7 +75,7 @@ static void sortInitFiniList(struct InitFiniList **slist, enum SortOrder order) while (*last != NULL && (*last)->next != NULL) { struct InitFiniList *s0 = *last; struct InitFiniList *s1 = s0->next; - bool flip; + bool flip = false; switch (order) { case INCREASING: flip = s0->priority > s1->priority; break; case DECREASING: flip = s0->priority < s1->priority; break; ===================================== rts/sm/Sanity.c ===================================== @@ -692,7 +692,7 @@ checkCompactObjects(bdescr *bd) ASSERT((W_)str == (W_)block + sizeof(StgCompactNFDataBlock)); StgWord totalW = 0; - StgCompactNFDataBlock *last; + StgCompactNFDataBlock *last = block; for ( ; block ; block = block->next) { last = block; ASSERT(block->owner == str); View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/f69c5f1492b275da7d2947612574d5… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/f69c5f1492b275da7d2947612574d5… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/romes/25636] 6 commits: X LOOK
by Rodrigo Mesquita (＠alt-romes) 20 Dec '25

20 Dec '25

Rodrigo Mesquita pushed to branch wip/romes/25636 at Glasgow Haskell Compiler / GHC Commits: 85e760cd by Rodrigo Mesquita at 2025-12-19T23:53:18+00:00 X LOOK - - - - - 8413b6e6 by Rodrigo Mesquita at 2025-12-19T23:53:37+00:00 Revert "X LOOK" This reverts commit 85e760cde55d7d28e17b2afd41be451584bf2b02. - - - - - bdb5798e by Rodrigo Mesquita at 2025-12-19T23:53:44+00:00 Revert "Kill traces" This reverts commit 0be5515a3a30cf47415187d54679b5cb434d19fb. - - - - - 54c9db31 by Rodrigo Mesquita at 2025-12-20T00:25:46+00:00 Reapply "Kill traces" This reverts commit bdb5798e8294a5938db5c0d399ea658bb8c9fc05. - - - - - 28ec9e05 by Rodrigo Mesquita at 2025-12-20T00:26:07+00:00 Reapply "X LOOK" This reverts commit 8413b6e6902bb19c1247be0befdbbef8b2a7bac4. - - - - - f0ce9444 by Rodrigo Mesquita at 2025-12-20T12:20:55+00:00 WIP.. - - - - - 4 changed files: - compiler/GHC/ByteCode/Types.hs - compiler/GHC/Linker/Loader.hs - libraries/ghci/GHCi/CreateBCO.hs - rts/PrimOps.cmm Changes: ===================================== compiler/GHC/ByteCode/Types.hs ===================================== @@ -288,9 +288,9 @@ instance NFData BCOPtr where rnf x = x `seq` () instance Outputable BCOPtr where - ppr (BCOPtrName nm) = text "BCOPtrName" <+> ppr nm - ppr (BCOPtrPrimOp op) = text "BCOPtrPrimOp" <+> ppr op - ppr (BCOPtrBCO bco) = text "BCOPtrBCO" <+> ppr bco + ppr (BCOPtrName nm) = text "BCOPtrName" <+> ppr nm + ppr (BCOPtrPrimOp op) = text "BCOPtrPrimOp" <+> ppr op + ppr (BCOPtrBCO bco) = text "BCOPtrBCO" <+> ppr bco ppr (BCOPtrBreakArray mod) = text "<break array for" <+> ppr mod <> char '>' data BCONPtr @@ -311,13 +311,13 @@ data BCONPtr | BCONPtrCostCentre !InternalBreakpointId instance Outputable BCONPtr where - ppr (BCONPtrWord w) = integer (fromIntegral w) - ppr (BCONPtrLbl lbl) = text "<label:" <> ftext lbl <> char '>' - ppr (BCONPtrItbl nm) = text "<itbl:" <+> ppr nm <> char '>' - ppr (BCONPtrAddr nm) = text "<addr:" <+> ppr nm <> char '>' - ppr (BCONPtrStr bs) = text "<string literal: " <+> text (BS8.unpack bs) <> char '>' - ppr (BCONPtrFS fs) = text "<fast string literal:" <+> ftext fs <> char '>' - ppr (BCONPtrFFIInfo ffi) = text "<FFIInfo>" + ppr (BCONPtrWord w) = integer (fromIntegral w) + ppr (BCONPtrLbl lbl) = text "<label:" <> ftext lbl <> char '>' + ppr (BCONPtrItbl nm) = text "<itbl:" <+> ppr nm <> char '>' + ppr (BCONPtrAddr nm) = text "<addr:" <+> ppr nm <> char '>' + ppr (BCONPtrStr bs) = text "<string literal: " <+> text (BS8.unpack bs) <> char '>' + ppr (BCONPtrFS fs) = text "<fast string literal:" <+> ftext fs <> char '>' + ppr (BCONPtrFFIInfo _) = text "<FFIInfo>" ppr (BCONPtrCostCentre bid) = text "<CostCentre for BreakpointId:" <+> ppr bid <> char '>' instance NFData BCONPtr where ===================================== compiler/GHC/Linker/Loader.hs ===================================== @@ -1049,7 +1049,7 @@ linkSomeBCOs interp pkgs_loaded bytecode_state mods = foldr fun do_link mods [] ) flat bco_ix = mkNameEnv (zipWith (\(n,isBCO) ix -> (n,(ix, isBCO))) names [0..]) resolved <- sequence [ linkBCO interp pkgs_loaded bytecode_state bco_ix bco | bco <- flat ] - hvrefs <- createBCOs interp resolved + hvrefs <- {- pprTrace "CreatingBCOS" (ppr (zip [bco | bco <- flat] [(0::Int)..])) $ -} createBCOs interp resolved return (zipWith (\(n,_) hvr -> (n, hvr)) names hvrefs) -- | Useful to apply to the result of 'linkSomeBCOs' ===================================== libraries/ghci/GHCi/CreateBCO.hs ===================================== @@ -39,7 +39,16 @@ createBCOs bcos = do hvals <- fixIO $ \hvs -> do let arr = listArray (0, n_bcos-1) hvs mapM (createBCO arr) bcos - mapM mkRemoteRef hvals + -- Force all StaticConRefs! They must definitely not be thunks! + -- See Note ... + -- This doesn't work. We need to force the thunk which is written into the Ptrs array + zipWithM (\bco hval -> + case bco of + ResolvedBCO{} -> + mkRemoteRef hval + ResolvedStaticCon{} -> + hval `seq` mkRemoteRef hval + ) bcos hvals createBCO :: Array Int HValue -> ResolvedBCO -> IO HValue createBCO _ obj | resolvedBCOIsLE obj /= isLittleEndian @@ -116,7 +125,7 @@ linkBCO' arr resolved_obj = IO $ \s -> case unsafeFreezeArray# marr s of { (# s, arr #) -> case newConAppObj# itbl_ptr# literals_barr arr data_size# s of - (# s, hval #) -> (# s, LinkedStaticCon (HValue hval) #) + (# s, !hval #) -> (# s, LinkedStaticCon (HValue hval) #) } where !(EmptyArr empty#) = emptyArr -- See Note [BCO empty array] @@ -133,9 +142,7 @@ mkPtrsArray arr n_ptrs ptrs = do -- this MUST be /strict/! -- the static con reference must be an evaluated pointer to the data con -- info table, but (arr ! n) would construct a thunk instead if unforced. - let HValue !hv = arr ! n - -- let !hv = arr ! n -- this loops, but the above doesn't? something I didn't understand. - writePtrsArrayHValue i (HValue hv) marr + writePtrsArrayHValue i (arr ! n) marr fill (ResolvedBCOPtr r) i = do hv <- localRef r writePtrsArrayHValue i hv marr ===================================== rts/PrimOps.cmm ===================================== @@ -2185,6 +2185,8 @@ stg_newConAppObjzh ( P_ datacon_info, P_ literals, P_ ptrs , W_ arity ) { W_ con_obj, bytes; + // ccall debugBelch("New Con App Obj %p\n",arity); + bytes = SIZEOF_StgHeader + WDS(arity); ALLOC_PRIM (bytes); @@ -2214,6 +2216,8 @@ loop2: goto loop2; } + // ccall debugBelch("Exit New Con App Obj %p\n",arity); + return (con_obj); } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/0be5515a3a30cf47415187d54679b5… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/0be5515a3a30cf47415187d54679b5… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/romes/hadrian-cross-stage2-rebase_SVEN_FIXED] Distinguish between having an interpreter and having an internal one
by Sven Tennie (＠supersven) 20 Dec '25

20 Dec '25

Sven Tennie pushed to branch wip/romes/hadrian-cross-stage2-rebase_SVEN_FIXED at Glasgow Haskell Compiler / GHC Commits: 9317e27d by Sven Tennie at 2025-12-20T10:57:39+01:00 Distinguish between having an interpreter and having an internal one Otherwise, we fail with warnings when compiling tools. - - - - - 5 changed files: - ghc/GHC/Driver/Session/Mode.hs - ghc/GHCi/UI.hs - ghc/Main.hs - ghc/ghc-bin.cabal.in - hadrian/src/Settings/Packages.hs Changes: ===================================== ghc/GHC/Driver/Session/Mode.hs ===================================== @@ -134,7 +134,7 @@ isDoEvalMode :: Mode -> Bool isDoEvalMode (Right (Right (DoEval _))) = True isDoEvalMode _ = False -#if defined(HAVE_INTERNAL_INTERPRETER) +#if defined(HAVE_INTERPRETER) isInteractiveMode :: PostLoadMode -> Bool isInteractiveMode DoInteractive = True isInteractiveMode _ = False ===================================== ghc/GHCi/UI.hs ===================================== @@ -1905,7 +1905,9 @@ changeDirectory dir = do fhv <- compileGHCiExpr $ "System.Directory.setCurrentDirectory " ++ show dir' liftIO $ evalIO interp fhv +#if defined(HAVE_INTERNAL_INTERPRETER) _ -> pure () +#endif trySuccess :: GhciMonad m => m SuccessFlag -> m SuccessFlag trySuccess act = ===================================== ghc/Main.hs ===================================== @@ -37,7 +37,7 @@ import GHC.Driver.Config.Diagnostic import GHC.Platform import GHC.Platform.Host -#if defined(HAVE_INTERNAL_INTERPRETER) +#if defined(HAVE_INTERPRETER) import GHCi.UI ( interactiveUI, ghciWelcomeMsg, defaultGhciSettings ) #endif @@ -289,7 +289,7 @@ doRun units srcs args = do args' = drop 1 $ dropWhile (/= "--") $ map unLoc args ghciUI :: [String] -> [(FilePath, Maybe Phase)] -> Maybe [String] -> Ghc () -#if !defined(HAVE_INTERNAL_INTERPRETER) +#if !defined(HAVE_INTERPRETER) ghciUI _ _ _ = throwGhcException (CmdLineError "not built for interactive use") #else @@ -333,7 +333,7 @@ showBanner :: PostLoadMode -> DynFlags -> IO () showBanner _postLoadMode dflags = do let verb = verbosity dflags -#if defined(HAVE_INTERNAL_INTERPRETER) +#if defined(HAVE_INTERPRETER) -- Show the GHCi banner when (isInteractiveMode _postLoadMode && verb >= 1) $ putStrLn ghciWelcomeMsg #endif ===================================== ghc/ghc-bin.cabal.in ===================================== @@ -22,6 +22,11 @@ Flag internal-interpreter Default: False Manual: True +Flag interpreter + Description: Build with interpreter support, both internal and external. + Default: False + Manual: True + Flag threaded Description: Link the ghc executable against the threaded RTS Default: True @@ -56,7 +61,7 @@ Executable ghc -rtsopts=all "-with-rtsopts=-K512M -H -I5 -T" - if flag(internal-interpreter) + if flag(interpreter) -- NB: this is never built by the bootstrapping GHC+libraries Build-depends: deepseq >= 1.4 && < 1.6, @@ -65,7 +70,7 @@ Executable ghc haskeline == 0.8.*, exceptions == 0.10.*, time >= 1.8 && < 1.16 - CPP-Options: -DHAVE_INTERNAL_INTERPRETER + CPP-Options: -DHAVE_INTERPRETER Other-Modules: GHCi.Leak GHCi.UI @@ -86,6 +91,9 @@ Executable ghc UnboxedTuples ViewPatterns + if flag(internal-interpreter) + CPP-Options: -DHAVE_INTERNAL_INTERPRETER + if flag(threaded) ghc-options: -threaded ===================================== hadrian/src/Settings/Packages.hs ===================================== @@ -114,7 +114,8 @@ packageArgs = do , compilerStageOption ghcDebugAssertions ? arg "-DDEBUG" ] , builder (Cabal Flags) ? mconcat - [ andM [expr (ghcWithInterpreter stage), orM [expr (notM cross), stage1]] `cabalFlag` "internal-interpreter" + [ andM [expr (ghcWithInterpreter stage), orM [expr (notM cross), stage1]] `cabalFlag` "interpreter" + , andM [expr (ghcWithInterpreter stage), notM (expr cross)] `cabalFlag` "internal-interpreter" , ifM stage0 -- We build a threaded stage 1 if the bootstrapping compiler -- supports it. View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9317e27d2b85862d7befdf9b0fbe7f1… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9317e27d2b85862d7befdf9b0fbe7f1… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/fix-bagger] ci: set http.postBuffer to mitigate perf notes timeout on some runners
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed to branch wip/fix-bagger at Glasgow Haskell Compiler / GHC Commits: 0a17e2d8 by Cheng Shao at 2025-12-20T09:38:10+01:00 ci: set http.postBuffer to mitigate perf notes timeout on some runners This patch sets http.postBuffer to mitigate the timeout when fetching perf notes on some runners with slow internet connection. Fixes #26684. - - - - - 1 changed file: - .gitlab/ci.sh Changes: ===================================== .gitlab/ci.sh ===================================== @@ -265,6 +265,15 @@ function setup() { # testsuite driver! git config gc.auto 0 + # Some runners still choke at the perf note fetch step, which has to + # do with slow internet connection, see + # https://docs.gitlab.com/topics/git/troubleshooting_git/#error-stream-0-was-… + # for the http.postBuffer mitigation. It might seem + # counter-intuitive that "post buffer" helps with fetching, but git + # indeed issues post requests when fetching over https, it's a + # bidirectional negotiation with the remote. + git config http.postBuffer 52428800 + info "=====================================================" info "Toolchain versions" info "=====================================================" View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0a17e2d8932f2307263496cfbf00d87… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0a17e2d8932f2307263496cfbf00d87… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/fix-bagger] WIP
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed to branch wip/fix-bagger at Glasgow Haskell Compiler / GHC Commits: ef7e3f5c by Cheng Shao at 2025-12-20T09:09:04+01:00 WIP - - - - - 2 changed files: - .gitlab-ci.yml - .gitlab/test-metrics.sh Changes: ===================================== .gitlab-ci.yml ===================================== @@ -247,8 +247,13 @@ ghc-linters: lint-linters: image: "registry.gitlab.haskell.org/ghc/ci-images/linters:$DOCKER_REV" extends: .lint + stage: not-interruptible + tags: + - bagger script: - - mypy testsuite/tests/linters/regex-linters/*.py + - sudo chown ghc:ghc -R . + - .gitlab/test-metrics.sh pull + - "false" dependencies: [] # Check that .T files all parse by listing broken tests. ===================================== .gitlab/test-metrics.sh ===================================== @@ -23,8 +23,9 @@ function pull() { # as needed. git remote add perf-notes "$NOTES_ORIGIN" || true git config fetch.recurseSubmodules false + git config http.postBuffer 2097152 git config remote.perf-notes.partialclonefilter tree:0 - run git fetch --force perf-notes "$ref:$ref" + run git fetch --force perf-notes "$ref:$ref" --progress echo "perf notes ref $ref is $(git rev-parse $ref)" } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ef7e3f5c5e2ed60597dc3148b5ac734… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ef7e3f5c5e2ed60597dc3148b5ac734… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/fix-bagger] WIP
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed to branch wip/fix-bagger at Glasgow Haskell Compiler / GHC Commits: 1829055d by Cheng Shao at 2025-12-20T09:07:11+01:00 WIP - - - - - 2 changed files: - .gitlab-ci.yml - .gitlab/test-metrics.sh Changes: ===================================== .gitlab-ci.yml ===================================== @@ -247,8 +247,13 @@ ghc-linters: lint-linters: image: "registry.gitlab.haskell.org/ghc/ci-images/linters:$DOCKER_REV" extends: .lint + stage: not-interruptible + tags: + - bagger-lint script: - - mypy testsuite/tests/linters/regex-linters/*.py + - sudo chown ghc:ghc -R . + - .gitlab/test-metrics.sh pull + - "false" dependencies: [] # Check that .T files all parse by listing broken tests. ===================================== .gitlab/test-metrics.sh ===================================== @@ -23,8 +23,9 @@ function pull() { # as needed. git remote add perf-notes "$NOTES_ORIGIN" || true git config fetch.recurseSubmodules false + git config http.postBuffer 2097152 git config remote.perf-notes.partialclonefilter tree:0 - run git fetch --force perf-notes "$ref:$ref" + run git fetch --force perf-notes "$ref:$ref" --progress echo "perf notes ref $ref is $(git rev-parse $ref)" } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1829055d7f8dfb383d777122a74f310… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1829055d7f8dfb383d777122a74f310… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/fix-bagger] WIP
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed to branch wip/fix-bagger at Glasgow Haskell Compiler / GHC Commits: 4986bc4c by Cheng Shao at 2025-12-20T08:08:45+01:00 WIP - - - - - 2 changed files: - .gitlab-ci.yml - .gitlab/test-metrics.sh Changes: ===================================== .gitlab-ci.yml ===================================== @@ -247,8 +247,13 @@ ghc-linters: lint-linters: image: "registry.gitlab.haskell.org/ghc/ci-images/linters:$DOCKER_REV" extends: .lint + stage: not-interruptible + tags: + - bagger script: - - mypy testsuite/tests/linters/regex-linters/*.py + - sudo chown ghc:ghc -R . + - .gitlab/test-metrics.sh pull + - "false" dependencies: [] # Check that .T files all parse by listing broken tests. ===================================== .gitlab/test-metrics.sh ===================================== @@ -24,7 +24,7 @@ function pull() { git remote add perf-notes "$NOTES_ORIGIN" || true git config fetch.recurseSubmodules false git config remote.perf-notes.partialclonefilter tree:0 - run git fetch --force perf-notes "$ref:$ref" + run git fetch --force perf-notes "$ref:$ref" --progress echo "perf notes ref $ref is $(git rev-parse $ref)" } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/4986bc4ca88d1a981564079e5c5521f… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/4986bc4ca88d1a981564079e5c5521f… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc][wip/fix-bagger] WIP
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed to branch wip/fix-bagger at Glasgow Haskell Compiler / GHC Commits: eb8fac75 by Cheng Shao at 2025-12-20T07:30:16+01:00 WIP - - - - - 2 changed files: - .gitlab-ci.yml - .gitlab/test-metrics.sh Changes: ===================================== .gitlab-ci.yml ===================================== @@ -247,8 +247,12 @@ ghc-linters: lint-linters: image: "registry.gitlab.haskell.org/ghc/ci-images/linters:$DOCKER_REV" extends: .lint + stage: not-interruptible + tags: + - bagger script: - - mypy testsuite/tests/linters/regex-linters/*.py + - .gitlab/test-metrics.sh pull + - "false" dependencies: [] # Check that .T files all parse by listing broken tests. ===================================== .gitlab/test-metrics.sh ===================================== @@ -24,7 +24,7 @@ function pull() { git remote add perf-notes "$NOTES_ORIGIN" || true git config fetch.recurseSubmodules false git config remote.perf-notes.partialclonefilter tree:0 - run git fetch --force perf-notes "$ref:$ref" + run git fetch --force perf-notes "$ref:$ref" --progress echo "perf notes ref $ref is $(git rev-parse $ref)" } View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/eb8fac75c20f2d742086fce853a35b4… -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/eb8fac75c20f2d742086fce853a35b4… You're receiving this email because of your account on gitlab.haskell.org.

1 0

[Git][ghc/ghc] Pushed new branch wip/fix-bagger
by Cheng Shao (＠TerrorJack) 20 Dec '25

20 Dec '25

Cheng Shao pushed new branch wip/fix-bagger at Glasgow Haskell Compiler / GHC -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/tree/wip/fix-bagger You're receiving this email because of your account on gitlab.haskell.org.

1 0