patches/patch-compiler_nativeGen_AsmCodeGen.lhs

   1 $NetBSD$
   2
   3 For systems having as(1) that doesn't recognise .ident
   4 directives. (Already merged to the upstream)
   5
   6
   7 --- compiler/nativeGen/AsmCodeGen.lhs.orig      2012-02-01 18:10:32.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"
  12               else Pretty.empty)
  13 +            Pretty.$$
  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
  25 +             else Pretty.empty)
  26
  27   where
  28         -- Generate "symbol stubs" for all external symbols that might