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

compiler/main/DriverPipeline.hs

@@ -1393 +1393 @@
     liftIO $ SysTools.runLlvmOpt dflags
                ([ SysTools.FileOption "" input_fn,
                     SysTools.Option "-o",
-                    SysTools.FileOption "" output_fn]
+                    SysTools.FileOption "" output_fn, SysTools.Option "-mtriple=arm-unknown-nto-qnx8.0.0eabi"]
                 ++ optFlag
                 ++ [SysTools.Option tbaa]
                 ++ map SysTools.Option lo_opts)

compiler/main/DynFlags.hs

@@ -3376 +3376 @@
       else let dflags' = dflags { hscTarget = HscLlvm }
                warn = "Compiler not unregisterised, so using LLVM rather than compiling via C"
            in loop dflags' warn
+{-
  | hscTarget dflags /= HscC &&
    platformUnregisterised (targetPlatform dflags)
     = loop (dflags { hscTarget = HscC })
            "Compiler unregisterised, so compiling via C"
+-}
  | hscTarget dflags == HscAsm &&
    cGhcWithNativeCodeGen /= "YES"
       = let dflags' = dflags { hscTarget = HscLlvm }