diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-11-29 21:16:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-11-29 21:16:06 +0000 |
| commit | 10edb42633fa75c5276bbdcf9fe271d02cce960d (patch) | |
| tree | e9ce2ca9d6b1af226cd0f946e8c21a2457e208b1 /compiler/ghci | |
| parent | 77ef6ca06d401eda2aeb51d22d5ce033db667161 (diff) | |
| download | haskell-10edb42633fa75c5276bbdcf9fe271d02cce960d.tar.gz | |
Whitespace only in compiler/ghci/LibFFI.hsc
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/LibFFI.hsc | 27 |
1 files changed, 10 insertions, 17 deletions
diff --git a/compiler/ghci/LibFFI.hsc b/compiler/ghci/LibFFI.hsc index d46d1b94cd..73b80952af 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 @@ -52,10 +45,10 @@ prepForeignCall dflags cconv arg_types result_type let res_ty = primRepToFFIType dflags result_type r <- ffi_prep_cif cif abi (fromIntegral n_args) res_ty arg_arr if (r /= fFI_OK) - then throwGhcException (InstallationError + then throwGhcException (InstallationError (printf "prepForeignCallFailed: %d" (show r))) else return cif - + convToABI :: CCallConv -> C_ffi_abi convToABI CCallConv = fFI_DEFAULT_ABI #if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) @@ -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 |