3 For systems having as(1) that doesn't recognise .ident
4 directives. (Already merged to the upstream)
7 --- compiler/nativeGen/AsmCodeGen.lhs.orig 2012-02-08 13:07:54.000000000 +0000
8 +++ compiler/nativeGen/AsmCodeGen.lhs
9 @@ -525,12 +525,15 @@ makeImportsDoc dflags imports
10 (if platformHasGnuNonexecStack (targetPlatform dflags)
11 then Pretty.text ".section .note.GNU-stack,\"\",@progbits"
14 -- And just because every other compiler does, lets stick in
15 -- an identifier directive: .ident "GHC x.y.z"
16 - Pretty.$$ let compilerIdent = Pretty.text "GHC" Pretty.<+>
17 - Pretty.text cProjectVersion
18 - in Pretty.text ".ident" Pretty.<+>
19 - Pretty.doubleQuotes compilerIdent
20 + (if platformHasIdentDirective (targetPlatform dflags)
21 + then let compilerIdent = Pretty.text "GHC" Pretty.<+>
22 + Pretty.text cProjectVersion
23 + in Pretty.text ".ident" Pretty.<+>
24 + Pretty.doubleQuotes compilerIdent
28 -- Generate "symbol stubs" for all external symbols that might