Commit 1084e251 authored by sof's avatar sof
Browse files

[project @ 2002-02-06 20:52:51 by sof]

unbreak stdcall handling (caused by recent change to Outputable instance for CCallConv)
parent 979947f5
...@@ -39,7 +39,8 @@ import TcType ( Type, mkFunTys, mkForAllTys, mkTyConApp, ...@@ -39,7 +39,8 @@ import TcType ( Type, mkFunTys, mkForAllTys, mkTyConApp,
import ForeignCall ( ForeignCall(..), CCallSpec(..), import ForeignCall ( ForeignCall(..), CCallSpec(..),
Safety(..), playSafe, Safety(..), playSafe,
CExportSpec(..), CExportSpec(..),
CCallConv(..), ccallConvToInt CCallConv(..), ccallConvToInt,
ccallConvAttribute
) )
import CStrings ( CLabelString ) import CStrings ( CLabelString )
import TysWiredIn ( addrTy, unitTy, stablePtrTyCon ) import TysWiredIn ( addrTy, unitTy, stablePtrTyCon )
...@@ -496,7 +497,7 @@ fexportEntry mod_nm c_nm helper args res_ty cc isDyn = (header_bits, c_bits) ...@@ -496,7 +497,7 @@ fexportEntry mod_nm c_nm helper args res_ty cc isDyn = (header_bits, c_bits)
pprCconv = case cc of pprCconv = case cc of
CCallConv -> empty CCallConv -> empty
StdCallConv -> ppr cc StdCallConv -> text (ccallConvAttribute cc)
declareResult = text "HaskellObj ret;" declareResult = text "HaskellObj ret;"
......
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