From: simonmar <unknown>
Date: Mon, 18 Oct 2004 11:51:22 +0000 (+0000)
Subject: [project @ 2004-10-18 11:51:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1495
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9082719793abda879794f4d54b602223d0013a89

[project @ 2004-10-18 11:51:22 by simonmar]
Put the '@' suffix on stdcall ForeignLabels on Windows only.
---

diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs
index a2634da..1366dcb 100644
--- a/ghc/compiler/cmm/CLabel.hs
+++ b/ghc/compiler/cmm/CLabel.hs
@@ -569,12 +569,15 @@ maybe_underscore doc
   | underscorePrefix = pp_cSEP <> doc
   | otherwise        = doc
 
+#ifdef mingw32_TARGET_OS
 -- In asm mode, we need to put the suffix on a stdcall ForeignLabel.
 -- (The C compiler does this itself).
 pprAsmCLbl (ForeignLabel fs (Just sz) _)
    = ftext fs <> char '@' <> int sz
+#else
 pprAsmCLbl lbl
    = pprCLbl lbl
+#endif
 
 pprCLbl (StringLitLabel u)
   = pprUnique u <> ptext SLIT("_str")