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

File unregistered-arm-llvm-hack.patch, 1.3 KB (added by singpolyma, 15 months 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 }