diff options
Diffstat (limited to 'compiler/GHC/Driver/Phases.hs')
| -rw-r--r-- | compiler/GHC/Driver/Phases.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/compiler/GHC/Driver/Phases.hs b/compiler/GHC/Driver/Phases.hs index 31a1e45361..c4be206fbf 100644 --- a/compiler/GHC/Driver/Phases.hs +++ b/compiler/GHC/Driver/Phases.hs @@ -157,13 +157,13 @@ nextPhase platform p LlvmLlc -> LlvmMangle LlvmMangle -> As False As _ -> MergeForeign - Ccxx -> As False - Cc -> As False - Cobjc -> As False - Cobjcxx -> As False + Ccxx -> MergeForeign + Cc -> MergeForeign + Cobjc -> MergeForeign + Cobjcxx -> MergeForeign CmmCpp -> Cmm Cmm -> maybeHCc - HCc -> As False + HCc -> MergeForeign MergeForeign -> StopLn StopLn -> panic "nextPhase: nothing after StopLn" where maybeHCc = if platformUnregisterised platform @@ -320,4 +320,3 @@ phaseForeignLanguage phase = case phase of As _ -> Just LangAsm MergeForeign -> Just RawObject _ -> Nothing - |