From 71aa4a4723e95b4f27fccf93dcc0a33000010974 Mon Sep 17 00:00:00 2001 From: Duncan Coutts Date: Tue, 9 Jun 2009 10:44:03 +0000 Subject: [PATCH] Add new FFI calling convention "prim" First in a series of patches to add the feature. This patch just adds PrimCallConv to the CCallConv type. --- compiler/prelude/ForeignCall.lhs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs index cae46be..015b28e 100644 --- a/compiler/prelude/ForeignCall.lhs +++ b/compiler/prelude/ForeignCall.lhs @@ -134,7 +134,7 @@ platforms. See: http://www.programmersheaven.com/2/Calling-conventions \begin{code} -data CCallConv = CCallConv | StdCallConv | CmmCallConv +data CCallConv = CCallConv | StdCallConv | CmmCallConv | PrimCallConv deriving (Eq) {-! derive: Binary !-} @@ -142,6 +142,7 @@ instance Outputable CCallConv where ppr StdCallConv = ptext (sLit "stdcall") ppr CCallConv = ptext (sLit "ccall") ppr CmmCallConv = ptext (sLit "C--") + ppr PrimCallConv = ptext (sLit "prim") defaultCCallConv :: CCallConv defaultCCallConv = CCallConv @@ -332,11 +333,14 @@ instance Binary CCallConv where putByte bh 0 put_ bh StdCallConv = do putByte bh 1 + put_ bh PrimCallConv = do + putByte bh 2 get bh = do h <- getByte bh case h of 0 -> do return CCallConv - _ -> do return StdCallConv + 1 -> do return StdCallConv + _ -> do return PrimCallConv instance Binary DNCallSpec where put_ bh (DNCallSpec isStatic kind ass nm _ _) = do -- 1.7.10.4