diff options
| author | David Terei <davidterei@gmail.com> | 2013-01-17 00:29:08 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2013-01-17 00:32:11 -0800 |
| commit | aef38d130b0ff74b0a5f2478be985e96b40c0f97 (patch) | |
| tree | ca0c7be93fb52caa39f5c0b8dfe02e5f95798b35 | |
| parent | 25f8d040a6e151237c84be380179b3c6ffb9a34c (diff) | |
| download | haskell-aef38d130b0ff74b0a5f2478be985e96b40c0f97.tar.gz | |
Output LLVM version in use at -V2.
| -rw-r--r-- | 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 04064bb9ac..a157a258fe 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" |