[commit: ghc] wip/angerman/llvmng: no tbaa (72a3b94)

git at git.haskell.org git at git.haskell.org
Fri Dec 8 05:22:27 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/angerman/llvmng
Link       : http://ghc.haskell.org/trac/ghc/changeset/72a3b9468eefe3db60ce8a7050f230a8a1bf0151/ghc

>---------------------------------------------------------------

commit 72a3b9468eefe3db60ce8a7050f230a8a1bf0151
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Sat Dec 2 14:09:03 2017 +0800

    no tbaa


>---------------------------------------------------------------

72a3b9468eefe3db60ce8a7050f230a8a1bf0151
 compiler/main/DriverPipeline.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 269017c..035fb17 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -812,8 +812,8 @@ fastLlvmPipeline dflags
 llvmOptions :: DynFlags
             -> [(String, String)]  -- ^ pairs of (opt, llc) arguments
 llvmOptions dflags =
-       [("-enable-tbaa -tbaa",  "-enable-tbaa") | gopt Opt_LlvmTBAA dflags ]
-    ++ [("-relocation-model=" ++ rmodel
+--       [("-enable-tbaa -tbaa",  "-enable-tbaa") | gopt Opt_LlvmTBAA dflags ]
+       [("-relocation-model=" ++ rmodel
         ,"-relocation-model=" ++ rmodel) | not (null rmodel)]
     ++ [("-stack-alignment=" ++ (show align)
         ,"-stack-alignment=" ++ (show align)) | align > 0 ]



More information about the ghc-commits mailing list