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

[project @ 2004-10-18 11:46:46 by simonmar]
ccallConvAttribute: use __attribute__((__stdcall__)) rather than
__stdcall (the latter is Win32-specific).
---

diff --git a/ghc/compiler/prelude/ForeignCall.lhs b/ghc/compiler/prelude/ForeignCall.lhs
index 12b85b1..2c90a7d 100644
--- a/ghc/compiler/prelude/ForeignCall.lhs
+++ b/ghc/compiler/prelude/ForeignCall.lhs
@@ -149,7 +149,7 @@ calling convention (used by PprAbsC):
 
 \begin{code}
 ccallConvAttribute :: CCallConv -> String
-ccallConvAttribute StdCallConv = "__stdcall"
+ccallConvAttribute StdCallConv = "__attribute__((__stdcall__))"
 ccallConvAttribute CCallConv   = ""
 \end{code}