Ticket #7621: unregistered-arm-llvm-hack.patch

File unregistered-arm-llvm-hack.patch, 1.3 KB (added by singpolyma, 3 years ago)
  • compiler/main/DriverPipeline.hs

    diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
    index f47aea7..7072e08 100644
    a b runPhase LlvmOpt input_fn dflags 
    13931393    liftIO $ SysTools.runLlvmOpt dflags
    13941394               ([ SysTools.FileOption "" input_fn,
    13951395                    SysTools.Option "-o",
    1396                     SysTools.FileOption "" output_fn]
     1396                    SysTools.FileOption "" output_fn, SysTools.Option "-mtriple=arm-unknown-nto-qnx8.0.0eabi"]
    13971397                ++ optFlag
    13981398                ++ [SysTools.Option tbaa]
    13991399                ++ map SysTools.Option lo_opts)
  • compiler/main/DynFlags.hs

    diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
    index e2f10c7..1fa7f27 100644
    a b makeDynFlagsConsistent dflags 
    33763376      else let dflags' = dflags { hscTarget = HscLlvm }
    33773377               warn = "Compiler not unregisterised, so using LLVM rather than compiling via C"
    33783378           in loop dflags' warn
     3379{-
    33793380 | hscTarget dflags /= HscC &&
    33803381   platformUnregisterised (targetPlatform dflags)
    33813382    = loop (dflags { hscTarget = HscC })
    33823383           "Compiler unregisterised, so compiling via C"
     3384-}
    33833385 | hscTarget dflags == HscAsm &&
    33843386   cGhcWithNativeCodeGen /= "YES"
    33853387      = let dflags' = dflags { hscTarget = HscLlvm }