Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/10edb42633fa75c5276bbdcf9fe271d02cce960d

>---------------------------------------------------------------

commit 10edb42633fa75c5276bbdcf9fe271d02cce960d
Author: Ian Lynagh <i...@well-typed.com>
Date:   Thu Nov 29 21:16:06 2012 +0000

    Whitespace only in compiler/ghci/LibFFI.hsc

>---------------------------------------------------------------

 compiler/ghci/LibFFI.hsc |   23 ++++++++---------------
 1 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/compiler/ghci/LibFFI.hsc b/compiler/ghci/LibFFI.hsc
index d46d1b9..73b8095 100644
--- a/compiler/ghci/LibFFI.hsc
+++ b/compiler/ghci/LibFFI.hsc
@@ -8,13 +8,6 @@
 
 #include <ffi.h>
 
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSp
--- for details
-
 module LibFFI (
   ForeignCallToken,
   prepForeignCall
@@ -69,7 +62,7 @@ primRepToFFIType :: DynFlags -> PrimRep -> Ptr C_ffi_type
 primRepToFFIType dflags r
   = case r of
      VoidRep     -> ffi_type_void
-     IntRep     -> signed_word
+     IntRep      -> signed_word
      WordRep     -> unsigned_word
      Int64Rep    -> ffi_type_sint64
      Word64Rep   -> ffi_type_uint64
@@ -118,10 +111,10 @@ fFI_STDCALL     = (#const FFI_STDCALL)
 #endif
 
 -- ffi_status ffi_prep_cif(ffi_cif *cif,
---                     ffi_abi abi,
---                     unsigned int nargs,
---                     ffi_type *rtype,
---                     ffi_type **atypes);
+--                         ffi_abi abi,
+--                         unsigned int nargs,
+--                         ffi_type *rtype,
+--                         ffi_type **atypes);
 
 foreign import ccall "ffi_prep_cif"
   ffi_prep_cif :: Ptr C_ffi_cif         -- cif
@@ -134,9 +127,9 @@ foreign import ccall "ffi_prep_cif"
 -- Currently unused:
 
 -- void ffi_call(ffi_cif *cif,
---           void (*fn)(),
---           void *rvalue,
---           void **avalue);
+--               void (*fn)(),
+--               void *rvalue,
+--               void **avalue);
 
 -- foreign import ccall "ffi_call"
 --   ffi_call :: Ptr C_ffi_cif             -- cif



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to