X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPprMach.hs;h=52d770649fa84a61aa5df2dad9a7d08db925fc5c;hb=b3cb534bf6da5d2e3b0084defd838492684052a9;hp=29cd23effe7ff0c051d9ce27421bd2f66437f935;hpb=c111317d3209321e5f2ba43304018b132b174415;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 29cd23e..52d7706 100644
--- a/compiler/nativeGen/PprMach.hs
+++ b/compiler/nativeGen/PprMach.hs
@@ -692,8 +692,14 @@ pprGloblDecl lbl
 				    SLIT(".globl ")) <>
 		pprCLabel_asm lbl
 
+pprTypeAndSizeDecl :: CLabel -> Doc
+pprTypeAndSizeDecl lbl
+  | not (externallyVisibleCLabel lbl) = empty
+  | otherwise = ptext SLIT(".type ") <>
+		pprCLabel_asm lbl <> ptext SLIT(", @object")
+
 pprLabel :: CLabel -> Doc
-pprLabel lbl = pprGloblDecl lbl $$ (pprCLabel_asm lbl <> char ':')
+pprLabel lbl = pprGloblDecl lbl $$ pprTypeAndSizeDecl lbl $$ (pprCLabel_asm lbl <> char ':')
 
 
 pprASCII str