From ea0253067c7043854beee3f19dcfe8b4ecf2a0b3 Mon Sep 17 00:00:00 2001 From: Duncan Coutts Date: Thu, 6 Jul 2006 11:47:12 +0000 Subject: [PATCH] Add ghc and version number in .ident directive in NCG Just because we can and because every other compiler does, lets stick in an identifier directive: .ident "GHC x.y.z" into the assembly output of the NCG. --- compiler/nativeGen/AsmCodeGen.lhs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 3bc9277..fa0ff89 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -39,6 +39,7 @@ import CLabel ( pprCLabel ) import ErrUtils ( dumpIfSet_dyn ) import DynFlags ( DynFlags, DynFlag(..), dopt ) import StaticFlags ( opt_Static, opt_PIC ) +import Config ( cProjectVersion ) import Digraph import qualified Pretty @@ -140,6 +141,12 @@ nativeCodeGen dflags cmms us -- stack so add the note in: Pretty.$$ Pretty.text ".section .note.GNU-stack,\"\",@progbits" #endif + -- And just because every other compiler does, lets stick in + -- an identifier directive: .ident "GHC x.y.z" + Pretty.$$ let compilerIdent = Pretty.text "GHC" Pretty.<+> + Pretty.text cProjectVersion + in Pretty.text ".ident" Pretty.<+> + Pretty.doubleQuotes compilerIdent ) } -- 1.7.10.4