X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPIC.hs;h=74c8bb3fce43a20c1457c719b28c8c4b2b513e26;hb=31a9d04804d9cacda35695c5397590516b964964;hp=98e4f9f2d58f47e85cce39fa213f8323e86829eb;hpb=b04a210e26ca57242fd052f2aa91011a80b76299;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index 98e4f9f..74c8bb3 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -300,9 +300,9 @@ howToAccessLabel dflags arch OSLinux DataReference lbl
 
 
 	-- In most cases, we have to avoid symbol stubs on ELF, for the following reasons:
-	-- * on i386, the position-independent symbol stubs in the Procedure Linkage Table
+	--   on i386, the position-independent symbol stubs in the Procedure Linkage Table
 	--   require the address of the GOT to be loaded into register %ebx on entry.
-	-- * The linker will take any reference to the symbol stub as a hint that
+	--   The linker will take any reference to the symbol stub as a hint that
 	--   the label in question is a code label. When linking executables, this
 	--   will cause the linker to replace even data references to the label with
 	--   references to the symbol stub.
@@ -445,9 +445,8 @@ pprGotDeclaration ArchX86 OSDarwin
 		ptext (sLit "\tmovl (%esp), %eax"),
 		ptext (sLit "\tret") ]
 
-	| otherwise
-	= empty
-	
+pprGotDeclaration _ OSDarwin
+	= Pretty.empty
 		
 -- pprGotDeclaration
 -- Output whatever needs to be output once per .s file.