X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=pkgsrc-ghc.git;a=blobdiff_plain;f=patches%2Fpatch-compiler_nativeGen_AsmCodeGen.lhs;fp=patches%2Fpatch-compiler_nativeGen_AsmCodeGen.lhs;h=02b691be66deca0c5cda48a0b0bbe4e48a495014;hp=0000000000000000000000000000000000000000;hb=ed8454824e2b9eabe0ed6deebff5b57d97373028;hpb=2cc2db8deb54ee91ac126e3e66c59be2facb848d

diff --git a/patches/patch-compiler_nativeGen_AsmCodeGen.lhs b/patches/patch-compiler_nativeGen_AsmCodeGen.lhs
new file mode 100644
index 0000000..02b691b
--- /dev/null
+++ b/patches/patch-compiler_nativeGen_AsmCodeGen.lhs
@@ -0,0 +1,28 @@
+$NetBSD$
+
+For systems having as(1) that doesn't recognise .ident
+directives. (Already merged to the upstream)
+
+
+--- compiler/nativeGen/AsmCodeGen.lhs.orig	2012-02-01 18:10:32.000000000 +0000
++++ compiler/nativeGen/AsmCodeGen.lhs
+@@ -525,12 +525,15 @@ makeImportsDoc dflags imports
+             (if platformHasGnuNonexecStack (targetPlatform dflags)
+              then Pretty.text ".section .note.GNU-stack,\"\",@progbits"
+              else Pretty.empty)
++            Pretty.$$
+                 -- 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
++            (if platformHasIdentDirective (targetPlatform dflags)
++             then let compilerIdent = Pretty.text "GHC" Pretty.<+>
++	                              Pretty.text cProjectVersion
++                   in Pretty.text ".ident" Pretty.<+>
++                      Pretty.doubleQuotes compilerIdent
++             else Pretty.empty)
+ 
+  where
+ 	-- Generate "symbol stubs" for all external symbols that might