Sven Tennie pushed to branch wip/supersven/hadrian-cross-stage3 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • hadrian/src/Rules/Generate.hs
    ... ... @@ -287,7 +287,9 @@ generateRules = do
    287 287
             isCrossStage <- if compilerStage < Stage3
    
    288 288
                               then expr (crossStage compilerStage)
    
    289 289
                               else pure False
    
    290
    -        let libraryStage = if isCrossStage then succStage compilerStage else compilerStage
    
    290
    +        let libraryStage = case compilerStage of
    
    291
    +                Stage0 {} -> Stage1
    
    292
    +                _         -> if isCrossStage then succStage compilerStage else compilerStage
    
    291 293
             tgt <- expr (targetStage libraryStage)
    
    292 294
             pure $ show tgt { tgtLocallyExecutable = not isCrossStage }
    
    293 295