Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1a97815b92818b50e2150585a41ebbe43c52376d >--------------------------------------------------------------- commit 1a97815b92818b50e2150585a41ebbe43c52376d Author: Ian Lynagh <[email protected]> Date: Sun Oct 2 20:01:57 2011 +0100 Fix the Binary CCallConv instance The CmmCallConv constructor was missing. >--------------------------------------------------------------- compiler/prelude/ForeignCall.lhs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs index 660116b..888bd7a 100644 --- a/compiler/prelude/ForeignCall.lhs +++ b/compiler/prelude/ForeignCall.lhs @@ -294,10 +294,13 @@ instance Binary CCallConv where putByte bh 1 put_ bh PrimCallConv = do putByte bh 2 + put_ bh CmmCallConv = do + putByte bh 3 get bh = do h <- getByte bh case h of 0 -> do return CCallConv 1 -> do return StdCallConv - _ -> do return PrimCallConv + 2 -> do return PrimCallConv + _ -> do return CmmCallConv \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
