[commit: ghc] master: Output LLVM version in use at -V2. (aef38d1)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/aef38d130b0ff74b0a5f2478be985e96b40c0f97

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

commit aef38d130b0ff74b0a5f2478be985e96b40c0f97
Author: David Terei <davidterei at gmail.com>
Date:   Thu Jan 17 00:29:08 2013 -0800

    Output LLVM version in use at -V2.

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

 compiler/llvmGen/LlvmCodeGen.hs |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/compiler/llvmGen/LlvmCodeGen.hs b/compiler/llvmGen/LlvmCodeGen.hs
index 04064bb..a157a25 100644
--- a/compiler/llvmGen/LlvmCodeGen.hs
+++ b/compiler/llvmGen/LlvmCodeGen.hs
@@ -68,6 +68,8 @@ llvmCodeGen dflags h us cmms
         ver <- (fromMaybe defaultLlvmVersion) `fmap` figureLlvmVersion dflags
         -- cache llvm version for later use
         writeIORef (llvmVersion dflags) ver
+        debugTraceMsg dflags 2
+            (text "Using LLVM version:" <+> text (show ver))
         let doWarn = wopt Opt_WarnUnsupportedLlvmVersion dflags
         when (ver < minSupportLlvmVersion && doWarn) $
             errorMsg dflags (text "You are using an old version of LLVM that"