X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCallConv.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCallConv.lhs;h=e38fc460b0eccae221d3ef17f26e87cd868e4854;hb=aba5a247c8911531630003569a2d5355ecf1a599;hp=712a241c20a06eed29e1924c8eb4b9dd2655c968;hpb=047d053725b171b301fe6edae803ed3612a7bff0;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/CallConv.lhs b/ghc/compiler/absCSyn/CallConv.lhs
index 712a241..e38fc46 100644
--- a/ghc/compiler/absCSyn/CallConv.lhs
+++ b/ghc/compiler/absCSyn/CallConv.lhs
@@ -53,7 +53,7 @@ platforms.
 \begin{code}
 callConvAttribute :: CallConv -> String
 callConvAttribute cc
- | cc == stdCallConv   = "__attribute__((stdcall))"
+ | cc == stdCallConv   = "__stdcall"
  | cc == cCallConv     = ""
  | otherwise	       = panic ("callConvAttribute: cannot handle" ++ showSDoc (pprCallConv cc))