Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/48a5c1e2481fc814c19ca73d4c5e78ba9962e5c4 >--------------------------------------------------------------- commit 48a5c1e2481fc814c19ca73d4c5e78ba9962e5c4 Author: Ian Lynagh <[email protected]> Date: Sun Oct 2 20:06:52 2011 +0100 Fix warnings in prelude/ForeignCall.lhs >--------------------------------------------------------------- compiler/prelude/ForeignCall.lhs | 10 ++++------ 1 files changed, 4 insertions(+), 6 deletions(-) diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs index 888bd7a..5e0f9ec 100644 --- a/compiler/prelude/ForeignCall.lhs +++ b/compiler/prelude/ForeignCall.lhs @@ -4,12 +4,6 @@ \section[Foreign]{Foreign calls} \begin{code} -{-# OPTIONS -w #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details {-# LANGUAGE DeriveDataTypeable #-} module ForeignCall ( @@ -173,6 +167,8 @@ defaultCCallConv = CCallConv ccallConvToInt :: CCallConv -> Int ccallConvToInt StdCallConv = 0 ccallConvToInt CCallConv = 1 +ccallConvToInt (CmmCallConv {}) = panic "ccallConvToInt CmmCallConv" +ccallConvToInt (PrimCallConv {}) = panic "ccallConvToInt PrimCallConv" \end{code} Generate the gcc attribute corresponding to the given @@ -182,6 +178,8 @@ calling convention (used by PprAbsC): ccallConvAttribute :: CCallConv -> String ccallConvAttribute StdCallConv = "__attribute__((__stdcall__))" ccallConvAttribute CCallConv = "" +ccallConvAttribute (CmmCallConv {}) = panic "ccallConvAttribute CmmCallConv" +ccallConvAttribute (PrimCallConv {}) = panic "ccallConvAttribute PrimCallConv" \end{code} \begin{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
