summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
979947f)
unbreak stdcall handling (caused by recent change to Outputable instance for CCallConv)
import ForeignCall ( ForeignCall(..), CCallSpec(..),
Safety(..), playSafe,
CExportSpec(..),
import ForeignCall ( ForeignCall(..), CCallSpec(..),
Safety(..), playSafe,
CExportSpec(..),
- CCallConv(..), ccallConvToInt
+ CCallConv(..), ccallConvToInt,
+ ccallConvAttribute
)
import CStrings ( CLabelString )
import TysWiredIn ( addrTy, unitTy, stablePtrTyCon )
)
import CStrings ( CLabelString )
import TysWiredIn ( addrTy, unitTy, stablePtrTyCon )
pprCconv = case cc of
CCallConv -> empty
pprCconv = case cc of
CCallConv -> empty
+ StdCallConv -> text (ccallConvAttribute cc)
declareResult = text "HaskellObj ret;"
declareResult = text "HaskellObj ret;"