From 3b2fc9e1d79acff6a09dc1477d3e4bfe3bb3ad55 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 28 Jun 2007 10:45:16 +0000 Subject: [PATCH] disable .type directives on Windows; they confuse mingw's assembler --- compiler/nativeGen/PprMach.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index 52d7706..ba8a5d9 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -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 ':') -- 1.7.10.4