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

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index 6fda1e3..74c8bb3 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -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.