Commit 3b2fc9e1 authored by Simon Marlow's avatar Simon Marlow
Browse files

disable .type directives on Windows; they confuse mingw's assembler

parent b3cb534b
......@@ -694,9 +694,13 @@ pprGloblDecl lbl
pprTypeAndSizeDecl :: CLabel -> Doc
pprTypeAndSizeDecl lbl
#if mingw32_TARGET_OS
= empty
#else
| not (externallyVisibleCLabel lbl) = empty
| otherwise = ptext SLIT(".type ") <>
pprCLabel_asm lbl <> ptext SLIT(", @object")
#endif
pprLabel :: CLabel -> Doc
pprLabel lbl = pprGloblDecl lbl $$ pprTypeAndSizeDecl lbl $$ (pprCLabel_asm lbl <> char ':')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment