Remove trailing white spaces and tabs

olajep · olajep · commit 1ca02a28a3f4 · 2013-05-11T10:00:28.000+02:00
Generated with:
find . -type f -and -not $ -name "*.o" -or -name "*.exe" -or -name "*.hi" $ \
| grep -Ev "\.git/|dist/" | xargs -n1 sed -e 's/[ \t]*$//' -i
diff --git a/LLVM/Core.hs b/LLVM/Core.hs
@@ -66,7 +66,7 @@ module LLVM.Core(
     Linkage(..),
     -- * Basic blocks
     BasicBlock, newBasicBlock, newNamedBasicBlock, defineBasicBlock, createBasicBlock, createNamedBasicBlock, getCurrentBasicBlock,
-    getBasicBlocks,              
+    getBasicBlocks,
     fromLabel, toLabel,
     getInstructions, getOperands, hasUsers, getUsers, getUses, getUser, isChildOf, getDep,
     -- * Misc
diff --git a/LLVM/Core/CodeGen.hs b/LLVM/Core/CodeGen.hs
@@ -265,7 +265,7 @@ type FA a = CodeGenFunction a ()
 instance FunctionArgs (IO Float)         (FA Float)         Float         where apArgs _ _ g = g
 instance FunctionArgs (IO Double)        (FA Double)        Double        where apArgs _ _ g = g
 instance FunctionArgs (IO FP128)         (FA FP128)         FP128         where apArgs _ _ g = g
-instance (Pos n) => 
+instance (Pos n) =>
          FunctionArgs (IO (IntN n))      (FA (IntN n))      (IntN n)      where apArgs _ _ g = g
 instance (Pos n) =>
          FunctionArgs (IO (WordN n))     (FA (WordN n))     (WordN n)     where apArgs _ _ g = g
@@ -283,7 +283,7 @@ instance (Pos n, IsPrimitive a) =>
          FunctionArgs (IO (Vector n a))  (FA (Vector n a))  (Vector n a)  where apArgs _ _ g = g
 instance StructFields as =>
          FunctionArgs (IO (Struct as))   (FA (Struct as))   (Struct as)   where apArgs _ _ g = g
-instance (IsType a) => 
+instance (IsType a) =>
          FunctionArgs (IO (Ptr a))       (FA (Ptr a))       (Ptr a)       where apArgs _ _ g = g
 instance FunctionArgs (IO (StablePtr a)) (FA (StablePtr a)) (StablePtr a) where apArgs _ _ g = g
 
diff --git a/LLVM/Core/CodeGenMonad.hs b/LLVM/Core/CodeGenMonad.hs
@@ -45,7 +45,7 @@ runCodeGenModule m (CGM body) = do
 
 --------------------------------------
 
-data CGFState r = CGFState { 
+data CGFState r = CGFState {
     cgf_module :: CGMState,
     cgf_builder :: Builder,
     cgf_function :: Function,
diff --git a/LLVM/Core/Util.hs b/LLVM/Core/Util.hs
@@ -129,7 +129,7 @@ readBitcodeFromFile name =
                         ptr <- peek modPtr
                         return $ Module ptr
 
-                        
+
 {-
                 liftM Module $ newForeignPtr FFI.ptrDisposeModule ptr
 -}
@@ -454,7 +454,7 @@ getObjList :: (t1 -> (t2 -> IO [Ptr a]) -> t) -> (t2 -> IO (Ptr a))
            -> (Ptr a -> IO (Ptr a)) -> t1 -> t
 getObjList withF firstF nextF obj = do
     withF obj $ \ objPtr -> do
-      ofst <- firstF objPtr 
+      ofst <- firstF objPtr
       let oloop p = if p == nullPtr then return [] else do
               n <- nextF p
               ps <- oloop n
diff --git a/LLVM/ExecutionEngine/Engine.hs b/LLVM/ExecutionEngine/Engine.hs
@@ -222,7 +222,7 @@ withAll :: [GenericValue] -> (Int -> Ptr FFI.GenericValueRef -> IO a) -> IO a
 withAll ps a = go [] ps
     where go ptrs (x:xs) = withGenericValue x $ \ptr -> go (ptr:ptrs) xs
           go ptrs _ = withArrayLen (reverse ptrs) a
-                   
+
 runFunction :: U.Function -> [GenericValue] -> EngineAccess GenericValue
 runFunction func args = do
     eePtr <- gets ea_engine
@@ -232,7 +232,7 @@ runFunction func args = do
 getRunFunction :: EngineAccess (U.Function -> [GenericValue] -> IO GenericValue)
 getRunFunction = do
     eePtr <- gets ea_engine
-    return $ \ func args -> 
+    return $ \ func args ->
              withAll args $ \argLen argPtr ->
                  createGenericValueWith $ FFI.runFunction eePtr func
                                               (fromIntegral argLen) argPtr
diff --git a/base/LLVM/FFI/Core.hsc b/base/LLVM/FFI/Core.hsc
@@ -135,7 +135,7 @@ module LLVM.FFI.Core
     , setSection
     , getAlignment
     , setAlignment
-      
+
     -- ** Global variables
     , addGlobal
     , getNamedGlobal
@@ -838,7 +838,7 @@ foreign import ccall unsafe "LLVMIsDeclaration" isDeclaration
 -- |An enumeration for the kinds of linkage for global values.
 data Linkage
     = ExternalLinkage     -- ^Externally visible function
-    | AvailableExternallyLinkage 
+    | AvailableExternallyLinkage
     | LinkOnceAnyLinkage  -- ^Keep one copy of function when linking (inline)
     | LinkOnceODRLinkage  -- ^Same, but only replaced by something equivalent.
     | WeakAnyLinkage      -- ^Keep one copy of named function when linking (weak)
@@ -849,7 +849,7 @@ data Linkage
     | DLLImportLinkage    -- ^Function to be imported from DLL
     | DLLExportLinkage    -- ^Function to be accessible from DLL
     | ExternalWeakLinkage -- ^ExternalWeak linkage description
-    | GhostLinkage        -- ^Stand-in functions for streaming fns from BC files    
+    | GhostLinkage        -- ^Stand-in functions for streaming fns from BC files
     | CommonLinkage       -- ^Tentative definitions
     | LinkerPrivateLinkage -- ^Like Private, but linker removes.
     deriving (Show, Eq, Ord, Enum, Typeable)
@@ -873,7 +873,7 @@ fromLinkage LinkerPrivateLinkage        = (#const LLVMLinkerPrivateLinkage)
 
 toLinkage :: CUInt -> Linkage
 toLinkage c | c == (#const LLVMExternalLinkage)             = ExternalLinkage
-toLinkage c | c == (#const LLVMAvailableExternallyLinkage)  = AvailableExternallyLinkage 
+toLinkage c | c == (#const LLVMAvailableExternallyLinkage)  = AvailableExternallyLinkage
 toLinkage c | c == (#const LLVMLinkOnceAnyLinkage)          = LinkOnceAnyLinkage
 toLinkage c | c == (#const LLVMLinkOnceODRLinkage)          = LinkOnceODRLinkage
 toLinkage c | c == (#const LLVMWeakAnyLinkage)              = WeakAnyLinkage
@@ -1316,7 +1316,7 @@ foreign import ccall unsafe "LLVMGetIncomingValue" getIncomingValue
     :: ValueRef -> CUInt -> IO ValueRef
 foreign import ccall unsafe "LLVMGetIncomingBlock" getIncomingBlock
     :: ValueRef -> CUInt -> IO BasicBlockRef
-       
+
 foreign import ccall unsafe "LLVMGetInstructionCallConv" getInstructionCallConv
     :: ValueRef -> IO CUInt
 foreign import ccall unsafe "LLVMSetInstructionCallConv" setInstructionCallConv
diff --git a/base/LLVM/FFI/Support.hsc b/base/LLVM/FFI/Support.hsc
@@ -26,7 +26,7 @@ foreign import ccall unsafe "LLVMCreateStandardModulePasses" createStandardModul
 
 #if HS_LLVM_VERSION >= 300
 foreign import ccall unsafe "LLVMAddEmitObjectPass" addEmitObjectPass
-    :: ModuleRef -> CString -> IO CUInt    
+    :: ModuleRef -> CString -> IO CUInt
 #endif
 
 foreign import ccall unsafe "LLVMDisablePrettyStackTrace" disablePrettyStackTrace
diff --git a/base/LLVM/Target/Native.hs b/base/LLVM/Target/Native.hs
@@ -9,7 +9,7 @@ import Foreign.C.Types
 -- TARGET is expanded by CPP to the native target architecture.
 import LLVM.Target.TARGET
 
-foreign import ccall unsafe "LLVMInitNativeTarget" 
+foreign import ccall unsafe "LLVMInitNativeTarget"
         llvmInitializeNativeTarget :: IO CUInt
 
 -- | Initialize jitter to the native target.
diff --git a/base/LLVM/Wrapper/Target.hs b/base/LLVM/Wrapper/Target.hs
@@ -16,9 +16,9 @@ import LLVM.FFI.Target
     , aBIAlignmentOfType
     , aBISizeOfType
     , pointerSize
-    , preferredAlignmentOfGlobal 
-    , preferredAlignmentOfType 
-    , sizeOfTypeInBits 
+    , preferredAlignmentOfGlobal
+    , preferredAlignmentOfType
+    , sizeOfTypeInBits
     , storeSizeOfType
     , elementAtOffset
     , offsetOfElement
diff --git a/base/Setup.hs b/base/Setup.hs
@@ -22,8 +22,8 @@ import Distribution.Text ( display )
 import Language.Haskell.TH
 
 main = do
-    let hooks = autoconfUserHooks { postConf = if os == "mingw32" 
-                                               then generateBuildInfo 
+    let hooks = autoconfUserHooks { postConf = if os == "mingw32"
+                                               then generateBuildInfo
                                                else postConf autoconfUserHooks
                                   , instHook = installHookWithExtraGhciLibraries
                                   , regHook  = regHookWithExtraGhciLibraries
@@ -82,7 +82,7 @@ regHookWithExtraGhciLibraries pkg_descr localbuildinfo _ flags =
     else setupMessage verbosity
            "Package contains no library to register:" (packageId pkg_descr)
   where verbosity = fromFlag (regVerbosity flags)
-  
+
 
 
 {-
@@ -94,25 +94,25 @@ this is the workaround for conditional compilation if template haskell was more
  extractCLBI x=
      $(if cabalVersion >= Version [1,17,0] []
          then [|  getComponentLocalBuildInfo 'x CLibName  |]
-         else  [|      
-                    let   LocalBuildInfo  { libraryConfig = Just clbi } = 'x 
+         else  [|
+                    let   LocalBuildInfo  { libraryConfig = Just clbi } = 'x
                         in clbi |]
     )
 
 
 -}
 
 --- horrible hack to support cabal versions both above and below 1.17
-extractCLBI x=  
-    $(if cabalVersion >= Version [1,17,0] [] 
-        then  appE (appE  ( varE $ mkName "getComponentLocalBuildInfo") ( varE 'x) ) (conE ( mkName "CLibName")) 
-
-        else  letE  
-                [valD  (recP 
-                            (mkName "LocalBuildInfo" ) 
-                            [fieldPat (mkName "libraryConfig") 
-                             (conP (mkName "Just")    [varP $ mkName "clbi"] ) ] ) 
-                    (normalB $ varE 'x)   []    ] 
+extractCLBI x=
+    $(if cabalVersion >= Version [1,17,0] []
+        then  appE (appE  ( varE $ mkName "getComponentLocalBuildInfo") ( varE 'x) ) (conE ( mkName "CLibName"))
+
+        else  letE
+                [valD  (recP
+                            (mkName "LocalBuildInfo" )
+                            [fieldPat (mkName "libraryConfig")
+                             (conP (mkName "Just")    [varP $ mkName "clbi"] ) ] )
+                    (normalB $ varE 'x)   []    ]
                  (varE $ mkName "clbi")  )
 
 register' :: PackageDescription -> LocalBuildInfo
@@ -155,5 +155,4 @@ register' pkg@PackageDescription { library       = Just lib  }
 
 register' _ _ regFlags = notice verbosity "No package to register"
   where
-    verbosity = fromFlag (regVerbosity regFlags) 
- 
+    verbosity = fromFlag (regVerbosity regFlags)
diff --git a/base/cbits/extra.cpp b/base/cbits/extra.cpp
@@ -11,7 +11,7 @@
  *    this list of conditions and the following disclaimer in the documentation
  *    and/or other materials provided with the distribution.
  *
- *  * Neither the name of this software, nor the names of its 
+ *  * Neither the name of this software, nor the names of its
  *    contributors may be used to endorse or promote products derived from
  *    this software without specific prior written permission.
  *
@@ -272,7 +272,7 @@ void unwrap_cvec(W *values, unsigned n, std::vector<const UW *>& out)
     }
 }
 
-LLVMValueRef LLVMBuildRetMultiple(LLVMBuilderRef builder, 
+LLVMValueRef LLVMBuildRetMultiple(LLVMBuilderRef builder,
     LLVMValueRef *values, unsigned n_values)
 {
     assert(values);
@@ -286,7 +286,7 @@ LLVMValueRef LLVMBuildRetMultiple(LLVMBuilderRef builder,
     return llvm::wrap(builderp->CreateAggregateRet(&values_vec[0], values_vec.size()));
 }
 
-LLVMValueRef LLVMBuildGetResult(LLVMBuilderRef builder, 
+LLVMValueRef LLVMBuildGetResult(LLVMBuilderRef builder,
     LLVMValueRef value, unsigned index, const char *name)
 {
     assert(name);
@@ -403,10 +403,10 @@ LLVMValueRef LLVMGetIntrinsic(LLVMModuleRef module, int id,
     assert(modulep);
 
 #if HS_LLVM_VERSION >= 300
-    llvm::Function *intfunc = llvm::Intrinsic::getDeclaration(modulep, 
+    llvm::Function *intfunc = llvm::Intrinsic::getDeclaration(modulep,
         llvm::Intrinsic::ID(id), types_vec);
 #else
-    llvm::Function *intfunc = llvm::Intrinsic::getDeclaration(modulep, 
+    llvm::Function *intfunc = llvm::Intrinsic::getDeclaration(modulep,
         llvm::Intrinsic::ID(id), &types_vec[0], types_vec.size());
 #endif
     return wrap(intfunc);
@@ -466,7 +466,7 @@ unsigned LLVMLinkModules(LLVMModuleRef dest, LLVMModuleRef src, unsigned mode,
     std::string msg;
     bool err;
 
-#if HS_LLVM_VERSION >= 300    
+#if HS_LLVM_VERSION >= 300
     err = llvm::Linker::LinkModules(destinationp, sourcep, mode, &msg);
 #else
     err = llvm::Linker::LinkModules(destinationp, sourcep, &msg);
@@ -566,7 +566,7 @@ bool LLVMAddEmitObjectPass (LLVMModuleRef modRef, const char* filename)
   std::string features = "";
 
   // llvm::StringMap <bool> featureMap (10);
-  
+
   // // this returns false at the moment, but it appears to not make a huge difference
   // // as the next iteration just doesn't do anything.
   // llvm::sys::getHostCPUFeatures (featureMap);
@@ -580,7 +580,7 @@ bool LLVMAddEmitObjectPass (LLVMModuleRef modRef, const char* filename)
   // }
 
 
-  llvm::TargetMachine *machine = 
+  llvm::TargetMachine *machine =
     Target->createTargetMachine (triple, cpu, features, llvm::TargetOptions());
 
 
@@ -597,7 +597,7 @@ bool LLVMAddEmitObjectPass (LLVMModuleRef modRef, const char* filename)
                                     false))
     return false;
 
-  
+
   llvm::Module *mod = llvm::unwrap (modRef);
   pass_manager.run (*mod);
 
@@ -609,7 +609,7 @@ bool LLVMAddEmitObjectPass (LLVMModuleRef modRef, const char* filename)
 
 /* we support only internalize(true) */
 llvm::ModulePass *createInternalize2Pass() {
-  return llvm::createInternalizePass(); 
+  return llvm::createInternalizePass();
 }
 
 /* All passes are listed in passes-inl.h
diff --git a/base/cbits/support.cpp b/base/cbits/support.cpp
@@ -63,7 +63,7 @@ void LLVMCreateStandardModulePasses(LLVMPassManagerRef PM,
   Builder.DisableUnrollLoops = !UnrollLoops;
   Builder.DisableSimplifyLibCalls = !SimplifyLibCalls;
   Builder.DisableUnitAtATime = !UnitAtATime;
-    
+
   Pass *InliningPass = 0;
 
   if (DisableInline) {
diff --git a/base/configure.ac b/base/configure.ac
@@ -31,7 +31,7 @@ AC_ARG_WITH(llvm_bindir,
 AC_PATH_PROGS(llvm_config, [llvm-config],
   [AC_MSG_ERROR(could not find llvm-config in $llvm_bindir)],
   ["$llvm_bindir:$PATH"])
-  
+
 dnl * Choose target platform
 dnl
 dnl We don't use the standard autoconf macros for this, but instead
@@ -86,7 +86,7 @@ LDFLAGS="$llvm_ldflags $LDFLAGS $TARGET_LDFLAGS"
 
 llvm_extra_ghci_libs=""
 
-AC_SEARCH_LIBS([LLVMModuleCreateWithName],[LLVM-2.7 LLVM-2.8 LLVM-2.9 LLVM-3.0 LLVM-3.1 LLVM-3.2]) 
+AC_SEARCH_LIBS([LLVMModuleCreateWithName],[LLVM-2.7 LLVM-2.8 LLVM-2.9 LLVM-3.0 LLVM-3.1 LLVM-3.2])
 if test "$ac_cv_search_LLVMModuleCreateWithName" = "no"; then
    llvm_all_libs="`$llvm_config --libs all`"
 else
diff --git a/base/include/extra.h b/base/include/extra.h
@@ -11,7 +11,7 @@
  *    this list of conditions and the following disclaimer in the documentation
  *    and/or other materials provided with the distribution.
  *
- *  * Neither the name of this software, nor the names of its 
+ *  * Neither the name of this software, nor the names of its
  *    contributors may be used to endorse or promote products derived from
  *    this software without specific prior written permission.
  *
@@ -102,14 +102,14 @@ LLVMValueRef LLVMConstVICmp(LLVMIntPredicate predicate, LLVMValueRef lhs,
 LLVMValueRef LLVMConstVFCmp(LLVMRealPredicate predicate, LLVMValueRef lhs,
     LLVMValueRef rhs);
 
-/* Wraps llvm::IRBuilder::CreateVICmp(). */    
+/* Wraps llvm::IRBuilder::CreateVICmp(). */
 LLVMValueRef LLVMBuildVICmp(LLVMBuilderRef builder, LLVMIntPredicate predicate,
     LLVMValueRef lhs, LLVMValueRef rhs, const char *name);
 
-/* Wraps llvm::IRBuilder::CreateVFCmp(). */    
+/* Wraps llvm::IRBuilder::CreateVFCmp(). */
 LLVMValueRef LLVMBuildVFCmp(LLVMBuilderRef builder, LLVMRealPredicate predicate,
     LLVMValueRef lhs, LLVMValueRef rhs, const char *name);
-    
+
 /* Wraps llvm::Intrinsic::getDeclaration(). */
 LLVMValueRef LLVMGetIntrinsic(LLVMModuleRef builder, int id,
     LLVMTypeRef *types, unsigned n_types);
@@ -118,12 +118,12 @@ LLVMValueRef LLVMGetIntrinsic(LLVMModuleRef builder, int id,
 unsigned LLVMModuleGetPointerSize(LLVMModuleRef module);
 
 /* Wraps llvm::Module::getOrInsertFunction(). */
-LLVMValueRef LLVMModuleGetOrInsertFunction(LLVMModuleRef module, 
+LLVMValueRef LLVMModuleGetOrInsertFunction(LLVMModuleRef module,
     const char *name, LLVMTypeRef function_type);
 
-/* Wraps llvm::GlobalVariable::hasInitializer(). */    
+/* Wraps llvm::GlobalVariable::hasInitializer(). */
 int LLVMHasInitializer(LLVMValueRef global_var);
-    
+
 /* The following functions wrap various llvm::Instruction::isXXX() functions.
  * All of them take an instruction and return 0 (isXXX returned false) or 1
  * (isXXX returned false). */
@@ -178,12 +178,12 @@ unsigned char *LLVMGetBitcodeFromModule(LLVMModuleRef module, unsigned *len);
  * use, via LLVMDisposeMessage(). */
 unsigned LLVMLoadLibraryPermanently(const char* filename, char **errmsg);
 
-/* Wraps llvm::ExecutionEngine::getPointerToFunction(). Returns a pointer 
+/* Wraps llvm::ExecutionEngine::getPointerToFunction(). Returns a pointer
  * to the JITted function. */
 void *LLVMGetPointerToFunction(LLVMExecutionEngineRef ee, LLVMValueRef fn);
 
-/* Wraps llvm::InlineFunction(). Inlines a function. C is the call 
- * instruction, created by LLVMBuildCall. Even if it fails, the Function 
+/* Wraps llvm::InlineFunction(). Inlines a function. C is the call
+ * instruction, created by LLVMBuildCall. Even if it fails, the Function
  * containing the call is still in a proper state (not changed). */
 int LLVMInlineFunction(LLVMValueRef call);
 
diff --git a/base/tools/FunctionMangulation.hs b/base/tools/FunctionMangulation.hs
@@ -57,7 +57,7 @@ rewriteFunction cret cname cparams =
            "\n    :: " ++ intercalate " -> " (params' ++ [ret])
   where renameParam = renameType . dropName . strip
         foreign = "foreign import ccall unsafe "
-    
+
 rewrite :: Monad m => String -> m [String]
 rewrite s = do
     matches <- s =~~ pattern
diff --git a/examples/Convert.hs b/examples/Convert.hs
diff --git a/llvm.cabal b/llvm.cabal
diff --git a/tests/TestValue.hs b/tests/TestValue.hs
