Prefer #if defined to #ifdef
authorBen Gamari <ben@smart-cactus.org>
Fri, 21 Apr 2017 13:16:48 +0000 (09:16 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sat, 29 Apr 2017 02:35:04 +0000 (22:35 -0400)
Our new CPP linter enforces this.

220 files changed:
compiler/basicTypes/RdrName.hs
compiler/cmm/MkGraph.hs
compiler/coreSyn/CoreArity.hs
compiler/deSugar/Desugar.hs
compiler/ghci/GHCi.hsc
compiler/iface/MkIface.hs
compiler/llvmGen/Llvm/Types.hs
compiler/llvmGen/LlvmCodeGen/CodeGen.hs
compiler/main/DynFlags.hs
compiler/main/DynamicLoading.hs
compiler/main/SysTools.hs
compiler/parser/cutils.c
compiler/prelude/primops.txt.pp
compiler/simplCore/SimplCore.hs
compiler/specialise/Rules.hs
compiler/typecheck/TcMType.hs
compiler/typecheck/TcPluginM.hs
compiler/typecheck/TcRnDriver.hs
compiler/typecheck/TcSMonad.hs
compiler/utils/Panic.hs
compiler/utils/Util.hs
driver/gcc/gcc.c
ghc/GHCi/UI.hs
ghc/Main.hs
ghc/hschooks.c
includes/Cmm.h
includes/CodeGen.Platform.hs
includes/HsFFI.h
includes/MachDeps.h
includes/Rts.h
includes/RtsAPI.h
includes/Stg.h
includes/rts/EventLogFormat.h
includes/rts/Flags.h
includes/rts/OSThreads.h
includes/rts/Threads.h
includes/rts/prof/LDV.h
includes/rts/storage/Block.h
includes/rts/storage/ClosureMacros.h
includes/rts/storage/Closures.h
includes/rts/storage/InfoTables.h
includes/rts/storage/MBlock.h
includes/rts/storage/TSO.h
includes/stg/DLL.h
includes/stg/HaskellMachRegs.h
includes/stg/MachRegs.h
includes/stg/MiscClosures.h
includes/stg/RtsMachRegs.h
includes/stg/Ticky.h
libraries/base/Control/Concurrent.hs
libraries/base/Data/Bits.hs
libraries/base/Data/OldList.hs
libraries/base/Data/Semigroup.hs
libraries/base/Foreign/C/String.hs
libraries/base/GHC/Conc.hs
libraries/base/GHC/Conc/IO.hs
libraries/base/GHC/Conc/Windows.hs
libraries/base/GHC/Environment.hs
libraries/base/GHC/Event/KQueue.hsc
libraries/base/GHC/Event/Poll.hsc
libraries/base/GHC/IO/Buffer.hs
libraries/base/GHC/IO/Encoding/CodePage.hs
libraries/base/GHC/IO/Encoding/CodePage/API.hs
libraries/base/GHC/IO/Encoding/Iconv.hs
libraries/base/GHC/IO/FD.hs
libraries/base/GHC/IO/Handle.hs
libraries/base/GHC/IO/Handle/FD.hs
libraries/base/GHC/IO/Handle/Text.hs
libraries/base/GHC/IO/Handle/Types.hs
libraries/base/GHC/List.hs
libraries/base/GHC/Real.hs
libraries/base/GHC/TopHandler.hs
libraries/base/System/Environment.hs
libraries/base/System/IO.hs
libraries/base/System/Posix/Internals.hs
libraries/base/System/Timeout.hs
libraries/base/cbits/SetEnv.c
libraries/base/cbits/iconv.c
libraries/base/cbits/primFloat.c
libraries/base/include/HsBase.h
libraries/base/include/ieee-flpt.h
libraries/ghci/GHCi/ObjLink.hs
libraries/ghci/GHCi/Signals.hs
rts/Adjustor.c
rts/AdjustorAsm.S
rts/Apply.cmm
rts/Apply.h
rts/AutoApply.h
rts/Capability.c
rts/Capability.h
rts/CheckUnload.c
rts/Compact.cmm
rts/Disassembler.c
rts/Disassembler.h
rts/FileLock.c
rts/Globals.c
rts/HeapStackCheck.cmm
rts/Hpc.c
rts/Interpreter.c
rts/LdvProfile.c
rts/LdvProfile.h
rts/Libdw.c
rts/Linker.c
rts/Messages.c
rts/Messages.h
rts/Pool.c
rts/Prelude.h
rts/PrimOps.cmm
rts/Printer.c
rts/Printer.h
rts/ProfHeap.c
rts/ProfHeap.h
rts/ProfilerReport.c
rts/ProfilerReport.h
rts/ProfilerReportJson.c
rts/ProfilerReportJson.h
rts/Profiling.c
rts/Profiling.h
rts/Proftimer.c
rts/RaiseAsync.c
rts/RaiseAsync.h
rts/RetainerProfile.c
rts/RetainerProfile.h
rts/RetainerSet.c
rts/RetainerSet.h
rts/RtsAPI.c
rts/RtsDllMain.c
rts/RtsDllMain.h
rts/RtsFlags.c
rts/RtsMain.c
rts/RtsMessages.c
rts/RtsProbes.d
rts/RtsStartup.c
rts/RtsSymbols.c
rts/RtsSymbols.h
rts/RtsUtils.c
rts/RtsUtils.h
rts/SMPClosureOps.h
rts/STM.c
rts/STM.h
rts/Schedule.c
rts/Stable.c
rts/Stable.h
rts/StaticPtrTable.c
rts/Stats.c
rts/Stats.h
rts/StgCRun.c
rts/StgStartup.cmm
rts/StgStdThunks.cmm
rts/Task.c
rts/ThreadPaused.c
rts/Threads.c
rts/Threads.h
rts/Timer.c
rts/TopHandler.c
rts/Trace.c
rts/Trace.h
rts/Updates.h
rts/Weak.c
rts/eventlog/EventLog.c
rts/eventlog/EventLog.h
rts/eventlog/EventLogWriter.c
rts/linker/LoadArchive.c
rts/linker/M32Alloc.h
rts/linker/MachO.c
rts/linker/MachO.h
rts/linker/PEi386.c
rts/linker/PEi386.h
rts/linker/SymbolExtras.c
rts/linker/SymbolExtras.h
rts/package.conf.in
rts/posix/Clock.h
rts/posix/GetTime.c
rts/posix/OSMem.c
rts/posix/OSThreads.c
rts/posix/Signals.c
rts/posix/Signals.h
rts/posix/TTY.c
rts/posix/itimer/Pthread.c
rts/posix/itimer/Setitimer.c
rts/posix/itimer/TimerCreate.c
rts/sm/BlockAlloc.c
rts/sm/BlockAlloc.h
rts/sm/CNF.c
rts/sm/CNF.h
rts/sm/Compact.c
rts/sm/Evac.c
rts/sm/Evac_thr.c
rts/sm/GC.c
rts/sm/GC.h
rts/sm/GCThread.h
rts/sm/GCUtils.c
rts/sm/GCUtils.h
rts/sm/HeapAlloc.h
rts/sm/MBlock.c
rts/sm/MarkWeak.c
rts/sm/OSMem.h
rts/sm/Sanity.c
rts/sm/Sanity.h
rts/sm/Scav.c
rts/sm/Scav.h
rts/sm/Scav_thr.c
rts/sm/ShouldCompact.h
rts/sm/Storage.c
rts/win32/AsyncIO.c
rts/win32/ConsoleHandler.c
rts/win32/GetTime.c
rts/win32/OSMem.c
rts/win32/OSThreads.c
rts/win32/ThrIOManager.c
rts/win32/veh_excn.c
utils/genapply/Main.hs
utils/ghc-pkg/Main.hs
utils/hp2ps/HpFile.c
utils/hp2ps/Main.c
utils/hp2ps/Main.h
utils/lndir/lndir-Xos.h
utils/lndir/lndir-Xosdefs.h
utils/lndir/lndir.c
utils/unlit/unlit.c

index 3a4324b..3693373 100644 (file)
@@ -483,7 +483,7 @@ plusParent p1 p2@(FldParent _ _) = hasParent p2 p1
 plusParent _ _                   = NoParent
 
 hasParent :: Parent -> Parent -> Parent
-#ifdef DEBUG
+#if defined(DEBUG)
 hasParent p NoParent = p
 hasParent p p'
   | p /= p' = pprPanic "hasParent" (ppr p <+> ppr p')  -- Parents should agree
index f77392f..81d9c0f 100644 (file)
@@ -183,7 +183,7 @@ mkNop        :: CmmAGraph
 mkNop         = nilOL
 
 mkComment    :: FastString -> CmmAGraph
-#ifdef DEBUG
+#if defined(DEBUG)
 -- SDM: generating all those comments takes time, this saved about 4% for me
 mkComment fs  = mkMiddle $ CmmComment fs
 #else
index 17abfbe..3ab71d2 100644 (file)
@@ -541,7 +541,7 @@ findRhsArity dflags bndr rhs old_arity
       | cur_arity <= old_arity = cur_arity
       | new_arity == cur_arity = cur_arity
       | otherwise = ASSERT( new_arity < cur_arity )
-#ifdef DEBUG
+#if defined(DEBUG)
                     pprTrace "Exciting arity"
                        (vcat [ ppr bndr <+> ppr cur_arity <+> ppr new_arity
                                                     , ppr rhs])
index 6ae7fb4..0d8965a 100644 (file)
@@ -156,7 +156,7 @@ deSugar hsc_env
         -- You might think it doesn't matter, but the simplifier brings all top-level
         -- things into the in-scope set before simplifying; so we get no unfolding for F#!
 
-#ifdef DEBUG
+#if defined(DEBUG)
           -- Debug only as pre-simple-optimisation program may be really big
         ; endPassIO hsc_env print_unqual CoreDesugar final_pgm rules_for_imps
 #endif
index 849c8db..d2f2f5a 100644 (file)
@@ -47,7 +47,7 @@ module GHCi
   ) where
 
 import GHCi.Message
-#ifdef GHCI
+#if defined(GHCI)
 import GHCi.Run
 #endif
 import GHCi.RemoteTypes
@@ -83,7 +83,7 @@ import GHC.Stack (CostCentre,CostCentreStack)
 import System.Exit
 import Data.Maybe
 import GHC.IO.Handle.Types (Handle)
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import Foreign.C
 import GHC.IO.Handle.FD (fdToHandle)
 #if !MIN_VERSION_process(1,4,2)
@@ -162,7 +162,7 @@ Other Notes on Remote GHCi
   * Note [Remote Template Haskell] in libraries/ghci/GHCi/TH.hs
 -}
 
-#ifndef GHCI
+#if !defined(GHCI)
 needExtInt :: IO a
 needExtInt = throwIO
   (InstallationError "this operation requires -fexternal-interpreter")
@@ -180,7 +180,7 @@ iservCmd hsc_env@HscEnv{..} msg
        uninterruptibleMask_ $ do -- Note [uninterruptibleMask_]
          iservCall iserv msg
  | otherwise = -- Just run it directly
-#ifdef GHCI
+#if defined(GHCI)
    run msg
 #else
    needExtInt
@@ -385,7 +385,7 @@ lookupSymbol hsc_env@HscEnv{..} str
                writeIORef iservLookupSymbolCache $! addToUFM cache str p
                return (Just p)
  | otherwise =
-#ifdef GHCI
+#if defined(GHCI)
    fmap fromRemotePtr <$> run (LookupSymbol (unpackFS str))
 #else
    needExtInt
@@ -525,7 +525,7 @@ stopIServ HscEnv{..} =
 
 runWithPipes :: (CreateProcess -> IO ProcessHandle)
              -> FilePath -> [String] -> IO (ProcessHandle, Handle, Handle)
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall "io.h _close"
    c__close :: CInt -> IO CInt
 
@@ -652,7 +652,7 @@ wormholeRef dflags _r
   | gopt Opt_ExternalInterpreter dflags
   = throwIO (InstallationError
       "this operation requires -fno-external-interpreter")
-#ifdef GHCI
+#if defined(GHCI)
   | otherwise
   = localRef _r
 #else
index d157a5a..14749c7 100644 (file)
@@ -1400,7 +1400,7 @@ checkModUsage _this_pkg UsageFile{ usg_file_path = file,
  where
    recomp = RecompBecause (file ++ " changed")
    handle =
-#ifdef DEBUG
+#if defined(DEBUG)
        \e -> pprTrace "UsageFile" (text (show e)) $ return recomp
 #else
        \_ -> return recomp -- if we can't find the file, just recompile, don't fail
index d2cab44..bf23cd8 100644 (file)
@@ -868,7 +868,7 @@ ppFloat = ppDouble . widenFp
 
 -- | Reverse or leave byte data alone to fix endianness on this target.
 fixEndian :: [a] -> [a]
-#ifdef WORDS_BIGENDIAN
+#if defined(WORDS_BIGENDIAN)
 fixEndian = id
 #else
 fixEndian = reverse
index f1383c6..0381324 100644 (file)
@@ -986,7 +986,7 @@ which will eliminate the expression entirely.
 However, it's certainly possible and reasonable for this to occur in
 hand-written C-- code. Consider something like:
 
-    #ifndef SOME_CONDITIONAL
+    #if !defined(SOME_CONDITIONAL)
     #define CHECK_THING(x) 1
     #else
     #define CHECK_THING(x) some_operation((x))
index b3600b8..383a71a 100644 (file)
@@ -2636,7 +2636,7 @@ dynamic_flags_deps = [
   , make_ord_flag defGhcFlag "static"         (NoArg removeWayDyn)
   , make_ord_flag defGhcFlag "dynamic"        (NoArg (addWay WayDyn))
   , make_ord_flag defGhcFlag "rdynamic" $ noArg $
-#ifdef linux_HOST_OS
+#if defined(linux_HOST_OS)
                               addOptl "-rdynamic"
 #elif defined (mingw32_HOST_OS)
                               addOptl "-Wl,--export-all-symbols"
@@ -4884,7 +4884,7 @@ addIncludePath p =
 addFrameworkPath p =
   upd (\s -> s{frameworkPaths = frameworkPaths s ++ splitPathList p})
 
-#ifndef mingw32_TARGET_OS
+#if !defined(mingw32_TARGET_OS)
 split_marker :: Char
 split_marker = ':'   -- not configurable (ToDo)
 #endif
@@ -4896,7 +4896,7 @@ splitPathList s = filter notNull (splitUp s)
                 -- cause confusion when they are translated into -I options
                 -- for passing to gcc.
   where
-#ifndef mingw32_TARGET_OS
+#if !defined(mingw32_TARGET_OS)
     splitUp xs = split split_marker xs
 #else
      -- Windows: 'hybrid' support for DOS-style paths in directory lists.
index 5658f2f..ffdce28 100644 (file)
@@ -2,7 +2,7 @@
 
 -- | Dynamically lookup up values from modules and loading them.
 module DynamicLoading (
-#ifdef GHCI
+#if defined(GHCI)
         -- * Loading plugins
         loadPlugins,
         loadFrontendPlugin,
@@ -24,7 +24,7 @@ module DynamicLoading (
 #endif
     ) where
 
-#ifdef GHCI
+#if defined(GHCI)
 import Linker           ( linkModule, getHValue )
 import GHCi             ( wormhole )
 import SrcLoc           ( noSrcSpan )
@@ -66,7 +66,7 @@ import Data.List        ( intercalate )
 
 #endif
 
-#ifdef GHCI
+#if defined(GHCI)
 
 loadPlugins :: HscEnv -> IO [(ModuleName, Plugin, [CommandLineOption])]
 loadPlugins hsc_env
index 16f8d1a..ad2e33c 100644 (file)
@@ -81,7 +81,7 @@ import Data.List
 import qualified Data.Map as Map
 import qualified Data.Set as Set
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import qualified System.Posix.Internals
 #else /* Must be Win32 */
 import Foreign
@@ -102,7 +102,7 @@ import Control.Concurrent
 import FastString
 import SrcLoc           ( SrcLoc, mkSrcLoc, noSrcSpan, mkSrcSpan )
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 # if defined(i386_HOST_ARCH)
 #  define WINDOWS_CCONV stdcall
 # elif defined(x86_64_HOST_ARCH)
@@ -1539,7 +1539,7 @@ foreign import WINDOWS_CCONV unsafe "dynamic"
 getBaseDir = return Nothing
 #endif
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows
 #else
 getProcessID :: IO Int
index e458c08..fdaea44 100644 (file)
@@ -9,7 +9,7 @@ places in the GHC library.
 
 #include <string.h>
 
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
index 255235a..bff4540 100644 (file)
@@ -2272,7 +2272,7 @@ primop  WaitWriteOp "waitWrite#" GenPrimOp
    has_side_effects = True
    out_of_line      = True
 
-#ifdef mingw32_TARGET_OS
+#if defined(mingw32_TARGET_OS)
 primop  AsyncReadOp "asyncRead#" GenPrimOp
    Int# -> Int# -> Int# -> Addr# -> State# RealWorld-> (# State# RealWorld, Int#, Int# #)
    {Asynchronously read bytes from specified file descriptor.}
index bca9a33..93d8292 100644 (file)
@@ -56,7 +56,7 @@ import Outputable
 import Control.Monad
 import qualified GHC.LanguageExtensions as LangExt
 
-#ifdef GHCI
+#if defined(GHCI)
 import DynamicLoading   ( loadPlugins )
 import Plugins          ( installCoreToDos )
 #else
@@ -368,7 +368,7 @@ getCoreToDo dflags
 -- Loading plugins
 
 addPluginPasses :: [CoreToDo] -> CoreM [CoreToDo]
-#ifndef GHCI
+#if !defined(GHCI)
 addPluginPasses builtin_passes
   = do { dflags <- getDynFlags
        ; let pluginMods = pluginModNames dflags
@@ -493,7 +493,7 @@ doCorePass (CoreDoRuleCheck phase pat)  = ruleCheckPass phase pat
 doCorePass CoreDoNothing                = return
 doCorePass (CoreDoPasses passes)        = runCorePasses passes
 
-#ifdef GHCI
+#if defined(GHCI)
 doCorePass (CoreDoPluginPass _ pass) = {-# SCC "Plugin" #-} pass
 #endif
 
index 83b4e8d..aed86c5 100644 (file)
@@ -843,7 +843,7 @@ match_co renv subst co1 co2
       _ -> Nothing
 match_co _ _ _co1 _co2
     -- Currently just deals with CoVarCo, TyConAppCo and Refl
-#ifdef DEBUG
+#if defined(DEBUG)
   = pprTrace "match_co: needs more cases" (ppr _co1 $$ ppr _co2) Nothing
 #else
   = Nothing
index 6b517eb..1ae9066 100644 (file)
@@ -263,7 +263,7 @@ newCoercionHole
 fillCoercionHole :: CoercionHole -> Coercion -> TcM ()
 fillCoercionHole (CoercionHole u ref) co
   = do {
-#ifdef DEBUG
+#if defined(DEBUG)
        ; cts <- readTcRef ref
        ; whenIsJust cts $ \old_co ->
          pprPanic "Filling a filled coercion hole" (ppr u $$ ppr co $$ ppr old_co)
index 0363aa1..b195a55 100644 (file)
@@ -3,7 +3,7 @@
 -- access select functions of the 'TcM', principally those to do with
 -- reading parts of the state.
 module TcPluginM (
-#ifdef GHCI
+#if defined(GHCI)
         -- * Basic TcPluginM functionality
         TcPluginM,
         tcPluginIO,
@@ -52,7 +52,7 @@ module TcPluginM (
 #endif
     ) where
 
-#ifdef GHCI
+#if defined(GHCI)
 import qualified TcRnMonad as TcM
 import qualified TcSMonad  as TcS
 import qualified TcEnv     as TcM
index b9ffd6a..76377b4 100644 (file)
@@ -54,7 +54,7 @@ import RnFixity ( lookupFixityRn )
 import MkId
 import TidyPgm    ( globaliseAndTidyId )
 import TysWiredIn ( unitTy, mkListTy )
-#ifdef GHCI
+#if defined(GHCI)
 import DynamicLoading ( loadPlugins )
 import Plugins ( tcPlugin )
 #endif
@@ -2622,7 +2622,7 @@ withTcPlugins hsc_env m =
        return (solve s, stop s)
 
 loadTcPlugins :: HscEnv -> IO [TcPlugin]
-#ifndef GHCI
+#if !defined(GHCI)
 loadTcPlugins _ = return []
 #else
 loadTcPlugins hsc_env =
index adb8666..05a1870 100644 (file)
@@ -167,7 +167,7 @@ import MonadUtils
 import Data.IORef
 import Data.List ( foldl', partition )
 
-#ifdef DEBUG
+#if defined(DEBUG)
 import Digraph
 import UniqSet
 #endif
@@ -2397,14 +2397,14 @@ runTcSWithEvBinds ev_binds_var tcs
        ; when (count > 0) $
          csTraceTcM $ return (text "Constraint solver steps =" <+> int count)
 
-#ifdef DEBUG
+#if defined(DEBUG)
        ; ev_binds <- TcM.getTcEvBindsMap ev_binds_var
        ; checkForCyclicBinds ev_binds
 #endif
 
        ; return res }
 
-#ifdef DEBUG
+#if defined(DEBUG)
 checkForCyclicBinds :: EvBindMap -> TcM ()
 checkForCyclicBinds ev_binds_map
   | null cycles
@@ -2456,7 +2456,7 @@ nestImplicTcS ref inner_tclvl (TcS thing_inside)
        ; res <- TcM.setTcLevel inner_tclvl $
                 thing_inside nest_env
 
-#ifdef DEBUG
+#if defined(DEBUG)
        -- Perform a check that the thing_inside did not cause cycles
        ; ev_binds <- TcM.getTcEvBindsMap ref
        ; checkForCyclicBinds ev_binds
index b12d677..0a21f25 100644 (file)
@@ -38,7 +38,7 @@ import Debug.Trace        ( trace )
 import System.IO.Unsafe
 import System.Environment
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import System.Posix.Signals as S
 #endif
 
index 1c519eb..a4bc8d4 100644 (file)
@@ -168,7 +168,7 @@ import qualified Data.Set as Set
 
 import Data.Time
 
-#ifdef DEBUG
+#if defined(DEBUG)
 import {-# SOURCE #-} Outputable ( warnPprTrace, text )
 #endif
 
@@ -192,42 +192,42 @@ the flags are off.
 -}
 
 ghciSupported :: Bool
-#ifdef GHCI
+#if defined(GHCI)
 ghciSupported = True
 #else
 ghciSupported = False
 #endif
 
 debugIsOn :: Bool
-#ifdef DEBUG
+#if defined(DEBUG)
 debugIsOn = True
 #else
 debugIsOn = False
 #endif
 
 ncgDebugIsOn :: Bool
-#ifdef NCG_DEBUG
+#if defined(NCG_DEBUG)
 ncgDebugIsOn = True
 #else
 ncgDebugIsOn = False
 #endif
 
 ghciTablesNextToCode :: Bool
-#ifdef GHCI_TABLES_NEXT_TO_CODE
+#if defined(GHCI_TABLES_NEXT_TO_CODE)
 ghciTablesNextToCode = True
 #else
 ghciTablesNextToCode = False
 #endif
 
 isWindowsHost :: Bool
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 isWindowsHost = True
 #else
 isWindowsHost = False
 #endif
 
 isDarwinHost :: Bool
-#ifdef darwin_HOST_OS
+#if defined(darwin_HOST_OS)
 isDarwinHost = True
 #else
 isDarwinHost = False
@@ -326,7 +326,7 @@ zipWithEqual    :: String -> (a->b->c) -> [a]->[b]->[c]
 zipWith3Equal   :: String -> (a->b->c->d) -> [a]->[b]->[c]->[d]
 zipWith4Equal   :: String -> (a->b->c->d->e) -> [a]->[b]->[c]->[d]->[e]
 
-#ifndef DEBUG
+#if !defined(DEBUG)
 zipEqual      _ = zip
 zipWithEqual  _ = zipWith
 zipWith3Equal _ = zipWith3
@@ -544,7 +544,7 @@ notNull [] = False
 notNull _  = True
 
 only :: [a] -> a
-#ifdef DEBUG
+#if defined(DEBUG)
 only [a] = a
 #else
 only (a:_) = a
@@ -1345,7 +1345,7 @@ type HasCallStack = (() :: Constraint)
 #endif
 
 -- | A call stack constraint, but only when 'isDebugOn'.
-#ifdef DEBUG
+#if defined(DEBUG)
 type HasDebugCallStack = HasCallStack
 #else
 type HasDebugCallStack = (() :: Constraint)
index 5c7cb15..b398c5e 100644 (file)
@@ -52,7 +52,7 @@ int main(int argc, char** argv) {
        from that in preference to the in-tree files. */
     preArgv[0] = mkString("-B%s", binDir);
     preArgv[1] = mkString("-B%s/../lib", binDir);
-#ifdef __MINGW64__
+#if defined(__MINGW64__)
     base = mkString("x86_64-w64-mingw32");
 #else
     base = mkString("i686-w64-mingw32");
index ab6c2dc..52a809e 100644 (file)
@@ -122,7 +122,7 @@ import Text.Read.Lex (isSymbolChar)
 
 import Unsafe.Coerce
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import System.Posix hiding ( getEnv )
 #else
 import qualified System.Win32
@@ -379,7 +379,7 @@ findEditor :: IO String
 findEditor = do
   getEnv "EDITOR"
     `catchIO` \_ -> do
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         win <- System.Win32.getWindowsDirectory
         return (win </> "notepad.exe")
 #else
@@ -669,7 +669,7 @@ checkFileAndDirPerms file = do
     d -> d
 
 checkPerms :: FilePath -> IO Bool
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 checkPerms _ = return True
 #else
 checkPerms file =
@@ -720,7 +720,7 @@ formatCurrentTime format =
 
 getUserName :: IO String
 getUserName = do
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   getEnv "USERNAME"
     `catchIO` \e -> do
       putStrLn $ show e
index 29012f6..6ece430 100644 (file)
@@ -25,12 +25,12 @@ import HscMain          ( newHscEnv )
 import DriverPipeline   ( oneShot, compileFile )
 import DriverMkDepend   ( doMkDependHS )
 import DriverBkp   ( doBackpack )
-#ifdef GHCI
+#if defined(GHCI)
 import GHCi.UI          ( interactiveUI, ghciWelcomeMsg, defaultGhciSettings )
 #endif
 
 -- Frontend plugins
-#ifdef GHCI
+#if defined(GHCI)
 import DynamicLoading   ( loadFrontendPlugin )
 import Plugins
 #else
@@ -258,7 +258,7 @@ main' postLoadMode dflags0 args flagWarnings = do
   liftIO $ dumpFinalStats dflags6
 
 ghciUI :: [(FilePath, Maybe Phase)] -> Maybe [String] -> Ghc ()
-#ifndef GHCI
+#if !defined(GHCI)
 ghciUI _ _ = throwGhcException (CmdLineError "not built for interactive use")
 #else
 ghciUI     = interactiveUI defaultGhciSettings
@@ -504,7 +504,7 @@ isDoEvalMode :: Mode -> Bool
 isDoEvalMode (Right (Right (DoEval _))) = True
 isDoEvalMode _ = False
 
-#ifdef GHCI
+#if defined(GHCI)
 isInteractiveMode :: PostLoadMode -> Bool
 isInteractiveMode DoInteractive = True
 isInteractiveMode _             = False
@@ -735,7 +735,7 @@ showBanner :: PostLoadMode -> DynFlags -> IO ()
 showBanner _postLoadMode dflags = do
    let verb = verbosity dflags
 
-#ifdef GHCI
+#if defined(GHCI)
    -- Show the GHCi banner
    when (isInteractiveMode _postLoadMode && verb >= 1) $ putStrLn ghciWelcomeMsg
 #endif
@@ -831,7 +831,7 @@ dumpPackagesSimple dflags = putMsg dflags (pprPackagesSimple dflags)
 -- Frontend plugin support
 
 doFrontend :: ModuleName -> [(String, Maybe Phase)] -> Ghc ()
-#ifndef GHCI
+#if !defined(GHCI)
 doFrontend modname _ = pluginError [modname]
 #else
 doFrontend modname srcs = do
index ace28be..031cb02 100644 (file)
@@ -18,7 +18,7 @@ in instead of the defaults.
 #include <string.h>
 #include <stdbool.h>
 
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
index 3c90307..57d78cc 100644 (file)
         name : bits8[] str;                     \
   }                                             \
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define RET_LBL(f) f##_info
 #else
 #define RET_LBL(f) f##_ret
 #endif
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define ENTRY_LBL(f) f##_info
 #else
 #define ENTRY_LBL(f) f##_entry
    Assertions and Debuggery
    -------------------------------------------------------------------------- */
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define ASSERT(predicate)                       \
         if (predicate) {                        \
             /*null*/;                           \
 #define ASSERT(p) /* nothing */
 #endif
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define DEBUG_ONLY(s) s
 #else
 #define DEBUG_ONLY(s) /* nothing */
  *
  * Note the syntax is slightly different to the C version of this macro.
  */
-#ifdef DEBUG
+#if defined(DEBUG)
 #define IF_DEBUG(c,s)  if (RtsFlags_DebugFlags_##c(RtsFlags) != 0::CBool) { s; }
 #else
 #define IF_DEBUG(c,s)  /* nothing */
    Indirections can contain tagged pointers, so their tag is checked.
    -------------------------------------------------------------------------- */
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 // When profiling, we cannot shortcut ENTER() by checking the tag,
 // because LDV profiling relies on entering closures to mark them as
  * depending on TABLES_NEXT_TO_CODE.  So we define field access
  * macros which use the appropriate version here:
  */
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 /*
  * when TABLES_NEXT_TO_CODE, slow_apply is stored as an offset
  * instead of the normal pointer.
 #define OVERWRITING_CLOSURE_OFS(c,n) /* nothing */
 #endif
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 #define prim_write_barrier prim %write_barrier()
 #else
 #define prim_write_barrier /* nothing */
    Ticky macros
    -------------------------------------------------------------------------- */
 
-#ifdef TICKY_TICKY
+#if defined(TICKY_TICKY)
 #define TICK_BUMP_BY(ctr,n) CLong[ctr] = CLong[ctr] + n
 #else
 #define TICK_BUMP_BY(ctr,n) /* nothing */
index 97628ae..868608a 100644 (file)
@@ -352,278 +352,278 @@ import Reg
 #endif
 
 callerSaves :: GlobalReg -> Bool
-#ifdef CALLER_SAVES_Base
+#if defined(CALLER_SAVES_Base)
 callerSaves BaseReg           = True
 #endif
-#ifdef CALLER_SAVES_R1
+#if defined(CALLER_SAVES_R1)
 callerSaves (VanillaReg 1 _)  = True
 #endif
-#ifdef CALLER_SAVES_R2
+#if defined(CALLER_SAVES_R2)
 callerSaves (VanillaReg 2 _)  = True
 #endif
-#ifdef CALLER_SAVES_R3
+#if defined(CALLER_SAVES_R3)
 callerSaves (VanillaReg 3 _)  = True
 #endif
-#ifdef CALLER_SAVES_R4
+#if defined(CALLER_SAVES_R4)
 callerSaves (VanillaReg 4 _)  = True
 #endif
-#ifdef CALLER_SAVES_R5
+#if defined(CALLER_SAVES_R5)
 callerSaves (VanillaReg 5 _)  = True
 #endif
-#ifdef CALLER_SAVES_R6
+#if defined(CALLER_SAVES_R6)
 callerSaves (VanillaReg 6 _)  = True
 #endif
-#ifdef CALLER_SAVES_R7
+#if defined(CALLER_SAVES_R7)
 callerSaves (VanillaReg 7 _)  = True
 #endif
-#ifdef CALLER_SAVES_R8
+#if defined(CALLER_SAVES_R8)
 callerSaves (VanillaReg 8 _)  = True
 #endif
-#ifdef CALLER_SAVES_R9
+#if defined(CALLER_SAVES_R9)
 callerSaves (VanillaReg 9 _)  = True
 #endif
-#ifdef CALLER_SAVES_R10
+#if defined(CALLER_SAVES_R10)
 callerSaves (VanillaReg 10 _) = True
 #endif
-#ifdef CALLER_SAVES_F1
+#if defined(CALLER_SAVES_F1)
 callerSaves (FloatReg 1)      = True
 #endif
-#ifdef CALLER_SAVES_F2
+#if defined(CALLER_SAVES_F2)
 callerSaves (FloatReg 2)      = True
 #endif
-#ifdef CALLER_SAVES_F3
+#if defined(CALLER_SAVES_F3)
 callerSaves (FloatReg 3)      = True
 #endif
-#ifdef CALLER_SAVES_F4
+#if defined(CALLER_SAVES_F4)
 callerSaves (FloatReg 4)      = True
 #endif
-#ifdef CALLER_SAVES_F5
+#if defined(CALLER_SAVES_F5)
 callerSaves (FloatReg 5)      = True
 #endif
-#ifdef CALLER_SAVES_F6
+#if defined(CALLER_SAVES_F6)
 callerSaves (FloatReg 6)      = True
 #endif
-#ifdef CALLER_SAVES_D1
+#if defined(CALLER_SAVES_D1)
 callerSaves (DoubleReg 1)     = True
 #endif
-#ifdef CALLER_SAVES_D2
+#if defined(CALLER_SAVES_D2)
 callerSaves (DoubleReg 2)     = True
 #endif
-#ifdef CALLER_SAVES_D3
+#if defined(CALLER_SAVES_D3)
 callerSaves (DoubleReg 3)     = True
 #endif
-#ifdef CALLER_SAVES_D4
+#if defined(CALLER_SAVES_D4)
 callerSaves (DoubleReg 4)     = True
 #endif
-#ifdef CALLER_SAVES_D5
+#if defined(CALLER_SAVES_D5)
 callerSaves (DoubleReg 5)     = True
 #endif
-#ifdef CALLER_SAVES_D6
+#if defined(CALLER_SAVES_D6)
 callerSaves (DoubleReg 6)     = True
 #endif
-#ifdef CALLER_SAVES_L1
+#if defined(CALLER_SAVES_L1)
 callerSaves (LongReg 1)       = True
 #endif
-#ifdef CALLER_SAVES_Sp
+#if defined(CALLER_SAVES_Sp)
 callerSaves Sp                = True
 #endif
-#ifdef CALLER_SAVES_SpLim
+#if defined(CALLER_SAVES_SpLim)
 callerSaves SpLim             = True
 #endif
-#ifdef CALLER_SAVES_Hp
+#if defined(CALLER_SAVES_Hp)
 callerSaves Hp                = True
 #endif
-#ifdef CALLER_SAVES_HpLim
+#if defined(CALLER_SAVES_HpLim)
 callerSaves HpLim             = True
 #endif
-#ifdef CALLER_SAVES_CCCS
+#if defined(CALLER_SAVES_CCCS)
 callerSaves CCCS              = True
 #endif
-#ifdef CALLER_SAVES_CurrentTSO
+#if defined(CALLER_SAVES_CurrentTSO)
 callerSaves CurrentTSO        = True
 #endif
-#ifdef CALLER_SAVES_CurrentNursery
+#if defined(CALLER_SAVES_CurrentNursery)
 callerSaves CurrentNursery    = True
 #endif
 callerSaves _                 = False
 
 activeStgRegs :: [GlobalReg]
 activeStgRegs = [
-#ifdef REG_Base
+#if defined(REG_Base)
     BaseReg
 #endif
-#ifdef REG_Sp
+#if defined(REG_Sp)
     ,Sp
 #endif
-#ifdef REG_Hp
+#if defined(REG_Hp)
     ,Hp
 #endif
-#ifdef REG_R1
+#if defined(REG_R1)
     ,VanillaReg 1 VGcPtr
 #endif
-#ifdef REG_R2
+#if defined(REG_R2)
     ,VanillaReg 2 VGcPtr
 #endif
-#ifdef REG_R3
+#if defined(REG_R3)
     ,VanillaReg 3 VGcPtr
 #endif
-#ifdef REG_R4
+#if defined(REG_R4)
     ,VanillaReg 4 VGcPtr
 #endif
-#ifdef REG_R5
+#if defined(REG_R5)
     ,VanillaReg 5 VGcPtr
 #endif
-#ifdef REG_R6
+#if defined(REG_R6)
     ,VanillaReg 6 VGcPtr
 #endif
-#ifdef REG_R7
+#if defined(REG_R7)
     ,VanillaReg 7 VGcPtr
 #endif
-#ifdef REG_R8
+#if defined(REG_R8)
     ,VanillaReg 8 VGcPtr
 #endif
-#ifdef REG_R9
+#if defined(REG_R9)
     ,VanillaReg 9 VGcPtr
 #endif
-#ifdef REG_R10
+#if defined(REG_R10)
     ,VanillaReg 10 VGcPtr
 #endif
-#ifdef REG_SpLim
+#if defined(REG_SpLim)
     ,SpLim
 #endif
 #if MAX_REAL_XMM_REG != 0
-#ifdef REG_F1
+#if defined(REG_F1)
     ,FloatReg 1
 #endif
-#ifdef REG_D1
+#if defined(REG_D1)
     ,DoubleReg 1
 #endif
-#ifdef REG_XMM1
+#if defined(REG_XMM1)
     ,XmmReg 1
 #endif
-#ifdef REG_YMM1
+#if defined(REG_YMM1)
     ,YmmReg 1
 #endif
-#ifdef REG_ZMM1
+#if defined(REG_ZMM1)
     ,ZmmReg 1
 #endif
-#ifdef REG_F2
+#if defined(REG_F2)
     ,FloatReg 2
 #endif
-#ifdef REG_D2
+#if defined(REG_D2)
     ,DoubleReg 2
 #endif
-#ifdef REG_XMM2
+#if defined(REG_XMM2)
     ,XmmReg 2
 #endif
-#ifdef REG_YMM2
+#if defined(REG_YMM2)
     ,YmmReg 2
 #endif
-#ifdef REG_ZMM2
+#if defined(REG_ZMM2)
     ,ZmmReg 2
 #endif
-#ifdef REG_F3
+#if defined(REG_F3)
     ,FloatReg 3
 #endif
-#ifdef REG_D3
+#if defined(REG_D3)
     ,DoubleReg 3
 #endif
-#ifdef REG_XMM3
+#if defined(REG_XMM3)
     ,XmmReg 3
 #endif
-#ifdef REG_YMM3
+#if defined(REG_YMM3)
     ,YmmReg 3
 #endif
-#ifdef REG_ZMM3
+#if defined(REG_ZMM3)
     ,ZmmReg 3
 #endif
-#ifdef REG_F4
+#if defined(REG_F4)
     ,FloatReg 4
 #endif
-#ifdef REG_D4
+#if defined(REG_D4)
     ,DoubleReg 4
 #endif
-#ifdef REG_XMM4
+#if defined(REG_XMM4)
     ,XmmReg 4
 #endif
-#ifdef REG_YMM4
+#if defined(REG_YMM4)
     ,YmmReg 4
 #endif
-#ifdef REG_ZMM4
+#if defined(REG_ZMM4)
     ,ZmmReg 4
 #endif
-#ifdef REG_F5
+#if defined(REG_F5)
     ,FloatReg 5
 #endif
-#ifdef REG_D5
+#if defined(REG_D5)
     ,DoubleReg 5
 #endif
-#ifdef REG_XMM5
+#if defined(REG_XMM5)
     ,XmmReg 5
 #endif
-#ifdef REG_YMM5
+#if defined(REG_YMM5)
     ,YmmReg 5
 #endif
-#ifdef REG_ZMM5
+#if defined(REG_ZMM5)
     ,ZmmReg 5
 #endif
-#ifdef REG_F6
+#if defined(REG_F6)
     ,FloatReg 6
 #endif
-#ifdef REG_D6
+#if defined(REG_D6)
     ,DoubleReg 6
 #endif
-#ifdef REG_XMM6
+#if defined(REG_XMM6)
     ,XmmReg 6
 #endif
-#ifdef REG_YMM6
+#if defined(REG_YMM6)
     ,YmmReg 6
 #endif
-#ifdef REG_ZMM6
+#if defined(REG_ZMM6)
     ,ZmmReg 6
 #endif
 #else /* MAX_REAL_XMM_REG == 0 */
-#ifdef REG_F1
+#if defined(REG_F1)
     ,FloatReg 1
 #endif
-#ifdef REG_F2
+#if defined(REG_F2)
     ,FloatReg 2
 #endif
-#ifdef REG_F3
+#if defined(REG_F3)
     ,FloatReg 3
 #endif
-#ifdef REG_F4
+#if defined(REG_F4)
     ,FloatReg 4
 #endif
-#ifdef REG_F5
+#if defined(REG_F5)
     ,FloatReg 5
 #endif
-#ifdef REG_F6
+#if defined(REG_F6)
     ,FloatReg 6
 #endif
-#ifdef REG_D1
+#if defined(REG_D1)
     ,DoubleReg 1
 #endif
-#ifdef REG_D2
+#if defined(REG_D2)
     ,DoubleReg 2
 #endif
-#ifdef REG_D3
+#if defined(REG_D3)
     ,DoubleReg 3
 #endif
-#ifdef REG_D4
+#if defined(REG_D4)
     ,DoubleReg 4
 #endif
-#ifdef REG_D5
+#if defined(REG_D5)
     ,DoubleReg 5
 #endif
-#ifdef REG_D6
+#if defined(REG_D6)
     ,DoubleReg 6
 #endif
 #endif /* MAX_REAL_XMM_REG == 0 */
     ]
 
 haveRegBase :: Bool
-#ifdef REG_Base
+#if defined(REG_Base)
 haveRegBase = True
 #else
 haveRegBase = False
@@ -636,58 +636,58 @@ globalRegMaybe :: GlobalReg -> Maybe RealReg
 #if defined(MACHREGS_i386) || defined(MACHREGS_x86_64) \
     || defined(MACHREGS_sparc) || defined(MACHREGS_powerpc) \
     || defined(MACHREGS_arm) || defined(MACHREGS_aarch64)
-# ifdef REG_Base
+# if defined(REG_Base)
 globalRegMaybe BaseReg                  = Just (RealRegSingle REG_Base)
 # endif
-# ifdef REG_R1
+# if defined(REG_R1)
 globalRegMaybe (VanillaReg 1 _)         = Just (RealRegSingle REG_R1)
 # endif
-# ifdef REG_R2
+# if defined(REG_R2)
 globalRegMaybe (VanillaReg 2 _)         = Just (RealRegSingle REG_R2)
 # endif
-# ifdef REG_R3
+# if defined(REG_R3)
 globalRegMaybe (VanillaReg 3 _)         = Just (RealRegSingle REG_R3)
 # endif
-# ifdef REG_R4
+# if defined(REG_R4)
 globalRegMaybe (VanillaReg 4 _)         = Just (RealRegSingle REG_R4)
 # endif
-# ifdef REG_R5
+# if defined(REG_R5)
 globalRegMaybe (VanillaReg 5 _)         = Just (RealRegSingle REG_R5)
 # endif
-# ifdef REG_R6
+# if defined(REG_R6)
 globalRegMaybe (VanillaReg 6 _)         = Just (RealRegSingle REG_R6)
 # endif
-# ifdef REG_R7
+# if defined(REG_R7)
 globalRegMaybe (VanillaReg 7 _)         = Just (RealRegSingle REG_R7)
 # endif
-# ifdef REG_R8
+# if defined(REG_R8)
 globalRegMaybe (VanillaReg 8 _)         = Just (RealRegSingle REG_R8)
 # endif
-# ifdef REG_R9
+# if defined(REG_R9)
 globalRegMaybe (VanillaReg 9 _)         = Just (RealRegSingle REG_R9)
 # endif
-# ifdef REG_R10
+# if defined(REG_R10)
 globalRegMaybe (VanillaReg 10 _)        = Just (RealRegSingle REG_R10)
 # endif
-# ifdef REG_F1
+# if defined(REG_F1)
 globalRegMaybe (FloatReg 1)             = Just (RealRegSingle REG_F1)
 # endif
-# ifdef REG_F2
+# if defined(REG_F2)
 globalRegMaybe (FloatReg 2)             = Just (RealRegSingle REG_F2)
 # endif
-# ifdef REG_F3
+# if defined(REG_F3)
 globalRegMaybe (FloatReg 3)             = Just (RealRegSingle REG_F3)
 # endif
-# ifdef REG_F4
+# if defined(REG_F4)
 globalRegMaybe (FloatReg 4)             = Just (RealRegSingle REG_F4)
 # endif
-# ifdef REG_F5
+# if defined(REG_F5)
 globalRegMaybe (FloatReg 5)             = Just (RealRegSingle REG_F5)
 # endif
-# ifdef REG_F6
+# if defined(REG_F6)
 globalRegMaybe (FloatReg 6)             = Just (RealRegSingle REG_F6)
 # endif
-# ifdef REG_D1
+# if defined(REG_D1)
 globalRegMaybe (DoubleReg 1)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D1 (REG_D1 + 1))
@@ -695,7 +695,7 @@ globalRegMaybe (DoubleReg 1)            =
                                           Just (RealRegSingle REG_D1)
 #  endif
 # endif
-# ifdef REG_D2
+# if defined(REG_D2)
 globalRegMaybe (DoubleReg 2)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D2 (REG_D2 + 1))
@@ -703,7 +703,7 @@ globalRegMaybe (DoubleReg 2)            =
                                           Just (RealRegSingle REG_D2)
 #  endif
 # endif
-# ifdef REG_D3
+# if defined(REG_D3)
 globalRegMaybe (DoubleReg 3)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D3 (REG_D3 + 1))
@@ -711,7 +711,7 @@ globalRegMaybe (DoubleReg 3)            =
                                           Just (RealRegSingle REG_D3)
 #  endif
 # endif
-# ifdef REG_D4
+# if defined(REG_D4)
 globalRegMaybe (DoubleReg 4)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D4 (REG_D4 + 1))
@@ -719,7 +719,7 @@ globalRegMaybe (DoubleReg 4)            =
                                           Just (RealRegSingle REG_D4)
 #  endif
 # endif
-# ifdef REG_D5
+# if defined(REG_D5)
 globalRegMaybe (DoubleReg 5)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D5 (REG_D5 + 1))
@@ -727,7 +727,7 @@ globalRegMaybe (DoubleReg 5)            =
                                           Just (RealRegSingle REG_D5)
 #  endif
 # endif
-# ifdef REG_D6
+# if defined(REG_D6)
 globalRegMaybe (DoubleReg 6)            =
 #  if defined(MACHREGS_sparc)
                                           Just (RealRegPair REG_D6 (REG_D6 + 1))
@@ -736,90 +736,90 @@ globalRegMaybe (DoubleReg 6)            =
 #  endif
 # endif
 # if MAX_REAL_XMM_REG != 0
-#  ifdef REG_XMM1
+#  if defined(REG_XMM1)
 globalRegMaybe (XmmReg 1)               = Just (RealRegSingle REG_XMM1)
 #  endif
-#  ifdef REG_XMM2
+#  if defined(REG_XMM2)
 globalRegMaybe (XmmReg 2)               = Just (RealRegSingle REG_XMM2)
 #  endif
-#  ifdef REG_XMM3
+#  if defined(REG_XMM3)
 globalRegMaybe (XmmReg 3)               = Just (RealRegSingle REG_XMM3)
 #  endif
-#  ifdef REG_XMM4
+#  if defined(REG_XMM4)
 globalRegMaybe (XmmReg 4)               = Just (RealRegSingle REG_XMM4)
 #  endif
-#  ifdef REG_XMM5
+#  if defined(REG_XMM5)
 globalRegMaybe (XmmReg 5)               = Just (RealRegSingle REG_XMM5)
 #  endif
-#  ifdef REG_XMM6
+#  if defined(REG_XMM6)
 globalRegMaybe (XmmReg 6)               = Just (RealRegSingle REG_XMM6)
 #  endif
 # endif
 # if defined(MAX_REAL_YMM_REG) && MAX_REAL_YMM_REG != 0
-#  ifdef REG_YMM1
+#  if defined(REG_YMM1)
 globalRegMaybe (YmmReg 1)               = Just (RealRegSingle REG_YMM1)
 #  endif
-#  ifdef REG_YMM2
+#  if defined(REG_YMM2)
 globalRegMaybe (YmmReg 2)               = Just (RealRegSingle REG_YMM2)
 #  endif
-#  ifdef REG_YMM3
+#  if defined(REG_YMM3)
 globalRegMaybe (YmmReg 3)               = Just (RealRegSingle REG_YMM3)
 #  endif
-#  ifdef REG_YMM4
+#  if defined(REG_YMM4)
 globalRegMaybe (YmmReg 4)               = Just (RealRegSingle REG_YMM4)
 #  endif
-#  ifdef REG_YMM5
+#  if defined(REG_YMM5)
 globalRegMaybe (YmmReg 5)               = Just (RealRegSingle REG_YMM5)
 #  endif
-#  ifdef REG_YMM6
+#  if defined(REG_YMM6)
 globalRegMaybe (YmmReg 6)               = Just (RealRegSingle REG_YMM6)
 #  endif
 # endif
 # if defined(MAX_REAL_ZMM_REG) && MAX_REAL_ZMM_REG != 0
-#  ifdef REG_ZMM1
+#  if defined(REG_ZMM1)
 globalRegMaybe (ZmmReg 1)               = Just (RealRegSingle REG_ZMM1)
 #  endif
-#  ifdef REG_ZMM2
+#  if defined(REG_ZMM2)
 globalRegMaybe (ZmmReg 2)               = Just (RealRegSingle REG_ZMM2)
 #  endif
-#  ifdef REG_ZMM3
+#  if defined(REG_ZMM3)
 globalRegMaybe (ZmmReg 3)               = Just (RealRegSingle REG_ZMM3)
 #  endif
-#  ifdef REG_ZMM4
+#  if defined(REG_ZMM4)
 globalRegMaybe (ZmmReg 4)               = Just (RealRegSingle REG_ZMM4)
 #  endif
-#  ifdef REG_ZMM5
+#  if defined(REG_ZMM5)
 globalRegMaybe (ZmmReg 5)               = Just (RealRegSingle REG_ZMM5)
 #  endif
-#  ifdef REG_ZMM6
+#  if defined(REG_ZMM6)
 globalRegMaybe (ZmmReg 6)               = Just (RealRegSingle REG_ZMM6)
 #  endif
 # endif
-# ifdef REG_Sp
+# if defined(REG_Sp)
 globalRegMaybe Sp                       = Just (RealRegSingle REG_Sp)
 # endif
-# ifdef REG_Lng1
+# if defined(REG_Lng1)
 globalRegMaybe (LongReg 1)              = Just (RealRegSingle REG_Lng1)
 # endif
-# ifdef REG_Lng2
+# if defined(REG_Lng2)
 globalRegMaybe (LongReg 2)              = Just (RealRegSingle REG_Lng2)
 # endif
-# ifdef REG_SpLim
+# if defined(REG_SpLim)
 globalRegMaybe SpLim                    = Just (RealRegSingle REG_SpLim)
 # endif
-# ifdef REG_Hp
+# if defined(REG_Hp)
 globalRegMaybe Hp                       = Just (RealRegSingle REG_Hp)
 # endif
-# ifdef REG_HpLim
+# if defined(REG_HpLim)
 globalRegMaybe HpLim                    = Just (RealRegSingle REG_HpLim)
 # endif
-# ifdef REG_CurrentTSO
+# if defined(REG_CurrentTSO)
 globalRegMaybe CurrentTSO               = Just (RealRegSingle REG_CurrentTSO)
 # endif
-# ifdef REG_CurrentNursery
+# if defined(REG_CurrentNursery)
 globalRegMaybe CurrentNursery           = Just (RealRegSingle REG_CurrentNursery)
 # endif
-# ifdef REG_MachSp
+# if defined(REG_MachSp)
 globalRegMaybe MachSp                   = Just (RealRegSingle REG_MachSp)
 # endif
 globalRegMaybe _                        = Nothing
@@ -860,19 +860,19 @@ Hence, on x86 esi and edi are treated as not allocatable.
 freeReg r         = freeRegBase r
 
 freeRegBase :: RegNo -> Bool
-# ifdef REG_Base
+# if defined(REG_Base)
 freeRegBase REG_Base  = False
 # endif
-# ifdef REG_Sp
+# if defined(REG_Sp)
 freeRegBase REG_Sp    = False
 # endif
-# ifdef REG_SpLim
+# if defined(REG_SpLim)
 freeRegBase REG_SpLim = False
 # endif
-# ifdef REG_Hp
+# if defined(REG_Hp)
 freeRegBase REG_Hp    = False
 # endif
-# ifdef REG_HpLim
+# if defined(REG_HpLim)
 freeRegBase REG_HpLim = False
 # endif
 -- All other regs are considered to be "free", because we can track
@@ -901,88 +901,88 @@ freeReg 30 = False
 -}
 
 # endif
-# ifdef REG_Base
+# if defined(REG_Base)
 freeReg REG_Base  = False
 # endif
-# ifdef REG_R1
+# if defined(REG_R1)
 freeReg REG_R1    = False
 # endif
-# ifdef REG_R2
+# if defined(REG_R2)
 freeReg REG_R2    = False
 # endif
-# ifdef REG_R3
+# if defined(REG_R3)
 freeReg REG_R3    = False
 # endif
-# ifdef REG_R4
+# if defined(REG_R4)
 freeReg REG_R4    = False
 # endif
-# ifdef REG_R5
+# if defined(REG_R5)
 freeReg REG_R5    = False
 # endif
-# ifdef REG_R6
+# if defined(REG_R6)
 freeReg REG_R6    = False
 # endif
-# ifdef REG_R7
+# if defined(REG_R7)
 freeReg REG_R7    = False
 # endif
-# ifdef REG_R8
+# if defined(REG_R8)
 freeReg REG_R8    = False
 # endif
-# ifdef REG_R9
+# if defined(REG_R9)
 freeReg REG_R9    = False
 # endif
-# ifdef REG_R10
+# if defined(REG_R10)
 freeReg REG_R10   = False
 # endif
-# ifdef REG_F1
+# if defined(REG_F1)
 freeReg REG_F1    = False
 # endif
-# ifdef REG_F2
+# if defined(REG_F2)
 freeReg REG_F2    = False
 # endif
-# ifdef REG_F3
+# if defined(REG_F3)
 freeReg REG_F3    = False
 # endif
-# ifdef REG_F4
+# if defined(REG_F4)
 freeReg REG_F4    = False
 # endif
-# ifdef REG_F5
+# if defined(REG_F5)
 freeReg REG_F5    = False
 # endif
-# ifdef REG_F6
+# if defined(REG_F6)
 freeReg REG_F6    = False
 # endif
-# ifdef REG_D1
+# if defined(REG_D1)
 freeReg REG_D1    = False
 # endif
-# ifdef REG_D2
+# if defined(REG_D2)
 freeReg REG_D2    = False
 # endif
-# ifdef REG_D3
+# if defined(REG_D3)
 freeReg REG_D3    = False
 # endif
-# ifdef REG_D4
+# if defined(REG_D4)
 freeReg REG_D4    = False
 # endif
-# ifdef REG_D5
+# if defined(REG_D5)
 freeReg REG_D5    = False
 # endif
-# ifdef REG_D6
+# if defined(REG_D6)
 freeReg REG_D6    = False
 # endif
-# ifdef REG_Sp
+# if defined(REG_Sp)
 freeReg REG_Sp    = False
 # endif
-# ifdef REG_Su
+# if defined(REG_Su)
 freeReg REG_Su    = False
 # endif
-# ifdef REG_SpLim
+# if defined(REG_SpLim)
 freeReg REG_SpLim = False
 # endif
-# ifdef REG_Hp
+# if defined(REG_Hp)
 freeReg REG_Hp    = False
 # endif
-# ifdef REG_HpLim
+# if defined(REG_HpLim)
 freeReg REG_HpLim = False
 # endif
 freeReg _ = True
@@ -1029,106 +1029,106 @@ freeReg regNo
     = False
 -}
 
-# ifdef REG_Base
+# if defined(REG_Base)
 freeReg REG_Base  = False
 # endif
-# ifdef REG_R1
+# if defined(REG_R1)
 freeReg REG_R1    = False
 # endif
-# ifdef REG_R2
+# if defined(REG_R2)
 freeReg REG_R2    = False
 # endif
-# ifdef REG_R3
+# if defined(REG_R3)
 freeReg REG_R3    = False
 # endif
-# ifdef REG_R4
+# if defined(REG_R4)
 freeReg REG_R4    = False
 # endif
-# ifdef REG_R5
+# if defined(REG_R5)
 freeReg REG_R5    = False
 # endif
-# ifdef REG_R6
+# if defined(REG_R6)
 freeReg REG_R6    = False
 # endif
-# ifdef REG_R7
+# if defined(REG_R7)
 freeReg REG_R7    = False
 # endif
-# ifdef REG_R8
+# if defined(REG_R8)
 freeReg REG_R8    = False
 # endif
-# ifdef REG_R9
+# if defined(REG_R9)
 freeReg REG_R9    = False
 # endif
-# ifdef REG_R10
+# if defined(REG_R10)
 freeReg REG_R10   = False
 # endif
-# ifdef REG_F1
+# if defined(REG_F1)
 freeReg REG_F1    = False
 # endif
-# ifdef REG_F2
+# if defined(REG_F2)
 freeReg REG_F2    = False
 # endif
-# ifdef REG_F3
+# if defined(REG_F3)
 freeReg REG_F3    = False
 # endif
-# ifdef REG_F4
+# if defined(REG_F4)
 freeReg REG_F4    = False
 # endif
-# ifdef REG_F5
+# if defined(REG_F5)
 freeReg REG_F5    = False
 # endif
-# ifdef REG_F6
+# if defined(REG_F6)
 freeReg REG_F6    = False
 # endif
-# ifdef REG_D1
+# if defined(REG_D1)
 freeReg REG_D1    = False
 # endif
-# ifdef REG_D1_2
+# if defined(REG_D1_2)
 freeReg REG_D1_2  = False
 # endif
-# ifdef REG_D2
+# if defined(REG_D2)
 freeReg REG_D2    = False
 # endif
-# ifdef REG_D2_2
+# if defined(REG_D2_2)
 freeReg REG_D2_2  = False
 # endif
-# ifdef REG_D3
+# if defined(REG_D3)
 freeReg REG_D3    = False
 # endif
-# ifdef REG_D3_2
+# if defined(REG_D3_2)
 freeReg REG_D3_2  = False
 # endif
-# ifdef REG_D4
+# if defined(REG_D4)
 freeReg REG_D4    = False
 # endif
-# ifdef REG_D4_2
+# if defined(REG_D4_2)
 freeReg REG_D4_2  = False
 # endif
-# ifdef REG_D5
+# if defined(REG_D5)
 freeReg REG_D5    = False
 # endif
-# ifdef REG_D5_2
+# if defined(REG_D5_2)
 freeReg REG_D5_2  = False
 # endif
-# ifdef REG_D6
+# if defined(REG_D6)
 freeReg REG_D6    = False
 # endif
-# ifdef REG_D6_2
+# if defined(REG_D6_2)
 freeReg REG_D6_2  = False
 # endif
-# ifdef REG_Sp
+# if defined(REG_Sp)
 freeReg REG_Sp    = False
 # endif
-# ifdef REG_Su
+# if defined(REG_Su)
 freeReg REG_Su    = False
 # endif
-# ifdef REG_SpLim
+# if defined(REG_SpLim)
 freeReg REG_SpLim = False
 # endif
-# ifdef REG_Hp
+# if defined(REG_Hp)
 freeReg REG_Hp    = False
 # endif
-# ifdef REG_HpLim
+# if defined(REG_HpLim)
 freeReg REG_HpLim = False
 # endif
 freeReg _ = True
index bee942c..dea365c 100644 (file)
@@ -11,7 +11,7 @@
 
 #pragma once
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 extern "C" {
 #endif
 
@@ -118,6 +118,6 @@ extern void hs_try_putmvar (int capability, HsStablePtr sp);
 
 
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 }
 #endif
index 778975e..2be4ee0 100644 (file)
 #define SIZEOF_WORD64           SIZEOF_UINT64_T
 #define ALIGNMENT_WORD64        ALIGNMENT_UINT64_T
 
-#ifndef WORD_SIZE_IN_BITS
+#if !defined(WORD_SIZE_IN_BITS)
 #if SIZEOF_HSWORD == 4
 #define WORD_SIZE_IN_BITS       32
 #define WORD_SIZE_IN_BITS_FLOAT 32.0
 #endif
 #endif
 
-#ifndef TAG_BITS
+#if !defined(TAG_BITS)
 #if SIZEOF_HSWORD == 4
 #define TAG_BITS                2
 #else
index b36fc94..aca24e4 100644 (file)
@@ -12,7 +12,7 @@
 
 #pragma once
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 extern "C" {
 #endif
 
@@ -23,7 +23,7 @@ extern "C" {
 #include <windows.h>
 #endif
 
-#ifndef IN_STG_CODE
+#if !defined(IN_STG_CODE)
 #define IN_STG_CODE 0
 #endif
 #include "Stg.h"
@@ -32,7 +32,7 @@ extern "C" {
 #include "RtsAPI.h"
 
 // Turn off inlining when debugging - it obfuscates things
-#ifdef DEBUG
+#if defined(DEBUG)
 # undef  STATIC_INLINE
 # define STATIC_INLINE static
 #endif
@@ -69,13 +69,13 @@ extern "C" {
 #endif
 
 /* Fix for mingw stat problem (done here so it's early enough) */
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 #define __MSVCRT__ 1
 #endif
 
 /* Needed to get the macro version of errno on some OSs, and also to
    get prototypes for the _r versions of C library functions. */
-#ifndef _REENTRANT
+#if !defined(_REENTRANT)
 #define _REENTRANT 1
 #endif
 
@@ -109,7 +109,7 @@ void _assertFail(const char *filename, unsigned int linenum)
         else                                    \
             barf(msg, ##__VA_ARGS__)
 
-#ifndef DEBUG
+#if !defined(DEBUG)
 #define ASSERT(predicate) /* nothing */
 #define ASSERTM(predicate,msg,...) /* nothing */
 #else
@@ -125,7 +125,7 @@ void _assertFail(const char *filename, unsigned int linenum)
 
 #define doNothing() do { } while (0)
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define USED_IF_DEBUG
 #define USED_IF_NOT_DEBUG STG_UNUSED
 #else
@@ -133,7 +133,7 @@ void _assertFail(const char *filename, unsigned int linenum)
 #define USED_IF_NOT_DEBUG
 #endif
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 #define USED_IF_THREADS
 #define USED_IF_NOT_THREADS STG_UNUSED
 #else
@@ -211,7 +211,7 @@ DLL_IMPORT_RTS extern char **prog_argv; /* so we can get at these from Haskell *
 DLL_IMPORT_RTS extern int    prog_argc;
 DLL_IMPORT_RTS extern char  *prog_name;
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 // We need these two from Haskell too
 void getWin32ProgArgv(int *argc, wchar_t **argv[]);
 void setWin32ProgArgv(int argc, wchar_t *argv[]);
@@ -222,7 +222,7 @@ void reportHeapOverflow(void);
 
 void stg_exit(int n) GNU_ATTRIBUTE(__noreturn__);
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 int stg_sig_install (int, int, void *);
 #endif
 
@@ -251,7 +251,7 @@ int rts_isDynamic(void);
    Miscellaneous garbage
    -------------------------------------------------------------------------- */
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define TICK_VAR(arity) \
   extern StgInt SLOW_CALLS_##arity; \
   extern StgInt RIGHT_ARITY_##arity; \
@@ -269,7 +269,7 @@ TICK_VAR(2)
 
 #define IF_RTSFLAGS(c,s)  if (RtsFlags.c) { s; } doNothing()
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #if IN_STG_CODE
 #define IF_DEBUG(c,s)  if (RtsFlags[0].DebugFlags.c) { s; } doNothing()
 #else
@@ -279,13 +279,13 @@ TICK_VAR(2)
 #define IF_DEBUG(c,s)  doNothing()
 #endif
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define DEBUG_ONLY(s) s
 #else
 #define DEBUG_ONLY(s) doNothing()
 #endif
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #define DEBUG_IS_ON   1
 #else
 #define DEBUG_IS_ON   0
@@ -309,6 +309,6 @@ TICK_VAR(2)
 
 /* -------------------------------------------------------------------------- */
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 }
 #endif
index f9b5618..f1c04fa 100644 (file)
@@ -11,7 +11,7 @@
 
 #pragma once
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 extern "C" {
 #endif
 
@@ -236,7 +236,7 @@ extern void hs_init_ghc (int *argc, char **argv[],   // program arguments
 extern void shutdownHaskellAndExit (int exitCode, int fastExit)
     GNUC3_ATTRIBUTE(__noreturn__);
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 extern void shutdownHaskellAndSignal (int sig, int fastExit)
      GNUC3_ATTRIBUTE(__noreturn__);
 #endif
@@ -441,6 +441,6 @@ extern StgWord base_GHCziTopHandler_runNonIO_closure[];
 
 /* ------------------------------------------------------------------------ */
 
-#ifdef __cplusplus
+#if defined(__cplusplus)
 }
 #endif
index a0886ef..df71e4e 100644 (file)
@@ -40,7 +40,7 @@
  * IN_STG_CODE is not defined, and the register variables will not be
  * active.
  */
-#ifndef IN_STG_CODE
+#if !defined(IN_STG_CODE)
 # define IN_STG_CODE 1
 
 // Turn on C99 for .hc code.  This gives us the INFINITY and NAN
 # define FORCE_GNU_INLINE 1
 #endif
 
-#ifdef FORCE_GNU_INLINE
+#if defined(FORCE_GNU_INLINE)
 // Force compiler into gnu90 semantics
 # if defined(KEEP_INLINES)
 #  define EXTERN_INLINE inline __attribute__((gnu_inline))
@@ -524,7 +524,7 @@ INLINE_HEADER StgInt64 PK_Int64(W_ p_src[])
 
 #if SIZEOF_VOID_P == 4
 
-#ifdef WORDS_BIGENDIAN
+#if defined(WORDS_BIGENDIAN)
 #define RTS_CARRY_IDX__ 0
 #define RTS_REM_IDX__  1
 #else
index 160aa19..b63f842 100644 (file)
 #define CAPSET_TYPE_OSPROCESS   2  /* caps belong to the same OS process */
 #define CAPSET_TYPE_CLOCKDOMAIN 3  /* caps share a local clock/time      */
 
-#ifndef EVENTLOG_CONSTANTS_ONLY
+#if !defined(EVENTLOG_CONSTANTS_ONLY)
 
 typedef StgWord16 EventTypeNum;
 typedef StgWord64 EventTimestamp; /* in nanoseconds */
index 405fce1..6700f9d 100644 (file)
@@ -245,7 +245,7 @@ typedef struct _RTS_FLAGS {
     PAR_FLAGS        ParFlags;
 } RTS_FLAGS;
 
-#ifdef COMPILING_RTS_MAIN
+#if defined(COMPILING_RTS_MAIN)
 extern DLLIMPORT RTS_FLAGS RtsFlags;
 #elif IN_STG_CODE
 /* Hack because the C code generator can't generate '&label'. */
index 520d592..abb3120 100644 (file)
@@ -16,7 +16,7 @@
 
 #if defined(HAVE_PTHREAD_H) && !defined(mingw32_HOST_OS)
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 
 #define OS_ACQUIRE_LOCK(mutex) foreign "C" pthread_mutex_lock(mutex)
 #define OS_RELEASE_LOCK(mutex) foreign "C" pthread_mutex_unlock(mutex)
@@ -36,7 +36,7 @@ typedef pthread_key_t   ThreadLocalKey;
 
 #define INIT_COND_VAR       PTHREAD_COND_INITIALIZER
 
-#ifdef LOCK_DEBUG
+#if defined(LOCK_DEBUG)
 #define LOCK_DEBUG_BELCH(what, mutex) \
   debugBelch("%s(0x%p) %s %d\n", what, mutex, __FILE__, __LINE__)
 #else
@@ -75,7 +75,7 @@ EXTERN_INLINE int TRY_ACQUIRE_LOCK(pthread_mutex_t *mutex)
 
 # elif defined(HAVE_WINDOWS_H)
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 
 /* We jump through a hoop here to get a CCall EnterCriticalSection
    and LeaveCriticalSection, as that's what C-- wants. */
@@ -110,7 +110,7 @@ typedef DWORD ThreadLocalKey;
 
 typedef CRITICAL_SECTION Mutex;
 
-#ifdef LOCK_DEBUG
+#if defined(LOCK_DEBUG)
 
 #define OS_ACQUIRE_LOCK(mutex) \
   debugBelch("ACQUIRE_LOCK(0x%p) %s %d\n", mutex,__FILE__,__LINE__); \
@@ -158,7 +158,7 @@ typedef HANDLE Mutex;
 # endif
 
 
-#ifndef CMINUSMINUS
+#if !defined(CMINUSMINUS)
 //
 // General thread operations
 //
@@ -202,7 +202,7 @@ void setThreadNode (uint32_t node);
 void releaseThreadNode (void);
 #endif // !CMINUSMINUS
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 
 #define ACQUIRE_LOCK(l) OS_ACQUIRE_LOCK(l)
 #define RELEASE_LOCK(l) OS_RELEASE_LOCK(l)
@@ -216,7 +216,7 @@ void releaseThreadNode (void);
 
 #endif /* defined(THREADED_RTS) */
 
-#ifndef CMINUSMINUS
+#if !defined(CMINUSMINUS)
 //
 // Support for forkOS (defined regardless of THREADED_RTS, but does
 // nothing when !THREADED_RTS).
index 17a64c1..fceacdc 100644 (file)
@@ -14,7 +14,7 @@
 
 #pragma once
 
-#ifdef HAVE_SYS_TYPES_H
+#if defined(HAVE_SYS_TYPES_H)
 #include <sys/types.h>
 #endif
 
index fdbab4d..dc7a0ca 100644 (file)
@@ -13,7 +13,7 @@
 
 #pragma once
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 /* retrieves the LDV word from closure c */
 #define LDVW(c)                 (((StgClosure *)(c))->header.prof.hp.ldvw)
@@ -28,7 +28,7 @@
  * to zero.
  */
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 
 #else
 
index 3c6f2b1..c1d2518 100644 (file)
@@ -24,7 +24,7 @@
 #error "Size of pointer is suspicious."
 #endif
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 #define BLOCK_SIZE   (1<<BLOCK_SHIFT)
 #else
 #define BLOCK_SIZE   (UNIT<<BLOCK_SHIFT)
@@ -39,7 +39,7 @@
 
 /* Megablock related constants (MBLOCK_SHIFT is defined in Constants.h) */
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 #define MBLOCK_SIZE    (1<<MBLOCK_SHIFT)
 #else
 #define MBLOCK_SIZE    (UNIT<<MBLOCK_SHIFT)
@@ -83,7 +83,7 @@
 // client of the block allocator API.  All other fields can be
 // freely modified.
 
-#ifndef CMINUSMINUS
+#if !defined(CMINUSMINUS)
 typedef struct bdescr_ {
 
     StgPtr start;              // [READ ONLY] start addr of memory
@@ -160,7 +160,7 @@ typedef struct bdescr_ {
 
 /* Finding the block descriptor for a given block -------------------------- */
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 
 #define Bdescr(p) \
     ((((p) &  MBLOCK_MASK & ~BLOCK_MASK) >> (BLOCK_SHIFT-BDESCR_SHIFT)) \
@@ -206,7 +206,7 @@ EXTERN_INLINE bdescr *Bdescr(StgPtr p)
 
 /* Number of usable blocks in a megablock */
 
-#ifndef CMINUSMINUS // already defined in DerivedConstants.h
+#if !defined(CMINUSMINUS) // already defined in DerivedConstants.h
 #define BLOCKS_PER_MBLOCK ((MBLOCK_SIZE - FIRST_BLOCK_OFF) / BLOCK_SIZE)
 #endif
 
@@ -221,7 +221,7 @@ EXTERN_INLINE bdescr *Bdescr(StgPtr p)
    (1 + (W_)MBLOCK_ROUND_UP((n-BLOCKS_PER_MBLOCK) * BLOCK_SIZE) / MBLOCK_SIZE)
 
 
-#ifndef CMINUSMINUS
+#if !defined(CMINUSMINUS)
 /* to the end... */
 
 /* Double-linked block lists: --------------------------------------------- */
index af77df3..be1569b 100644 (file)
@@ -54,7 +54,7 @@ INLINE_HEADER const StgInfoTable *GET_INFO(StgClosure *c) {
 
 #define GET_ENTRY(c)  (ENTRY_CODE(GET_INFO(c)))
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 EXTERN_INLINE StgInfoTable *INFO_PTR_TO_STRUCT(const StgInfoTable *info);
 EXTERN_INLINE StgInfoTable *INFO_PTR_TO_STRUCT(const StgInfoTable *info) {return (StgInfoTable *)info - 1;}
 EXTERN_INLINE StgRetInfoTable *RET_INFO_PTR_TO_STRUCT(const StgInfoTable *info);
@@ -116,8 +116,8 @@ INLINE_HEADER StgHalfWord GET_TAG(const StgClosure *con)
    Macros for building closures
    -------------------------------------------------------------------------- */
 
-#ifdef PROFILING
-#ifdef DEBUG_RETAINER
+#if defined(PROFILING)
+#if defined(DEBUG_RETAINER)
 /*
   For the sake of debugging, we take the safest way for the moment. Actually, this
   is useful to check the sanity of heap before beginning retainer profiling.
@@ -540,7 +540,7 @@ INLINE_HEADER StgWord8 *mutArrPtrsCard (StgMutArrPtrs *a, W_ n)
 #define OVERWRITING_CLOSURE_OFS(c,n) /* nothing */
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 void LDV_recordDead (const StgClosure *c, uint32_t size);
 #endif
 
index f5baead..af89507 100644 (file)
@@ -51,14 +51,14 @@ typedef struct {
 
 typedef struct {
     const StgInfoTable* info;
-#ifdef PROFILING
+#if defined(PROFILING)
     StgProfHeader         prof;
 #endif
 } StgHeader;
 
 typedef struct {
     const StgInfoTable* info;
-#ifdef PROFILING
+#if defined(PROFILING)
     StgProfHeader         prof;
 #endif
     StgSMPThunkHeader     smp;
index 3201c10..c621e5e 100644 (file)
@@ -27,7 +27,7 @@
    hackery can go away sometime.
    ------------------------------------------------------------------------- */
 
-#ifdef x86_64_TARGET_ARCH
+#if defined(x86_64_TARGET_ARCH)
 #define OFFSET_FIELD(n) StgHalfInt n; StgHalfWord __pad_##n
 #else
 #define OFFSET_FIELD(n) StgInt n
@@ -38,7 +38,7 @@
    -------------------------------------------------------------------------- */
 
 typedef struct {
-#ifndef TABLES_NEXT_TO_CODE
+#if !defined(TABLES_NEXT_TO_CODE)
     char *closure_type;
     char *closure_desc;
 #else
@@ -167,7 +167,7 @@ typedef union {
     StgWord bitmap;               /* word-sized bit pattern describing */
                                   /*  a stack frame: see below */
 
-#ifndef TABLES_NEXT_TO_CODE
+#if !defined(TABLES_NEXT_TO_CODE)
     StgLargeBitmap* large_bitmap; /* pointer to large bitmap structure */
 #else
     OFFSET_FIELD(large_bitmap_offset);  /* offset from info table to large bitmap structure */
@@ -187,7 +187,7 @@ typedef struct StgInfoTable_ {
     StgFunPtr       entry;      /* pointer to the entry code */
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
     StgProfInfo     prof;
 #endif
 
@@ -201,7 +201,7 @@ typedef struct StgInfoTable_ {
             - a bitmap of SRT entries
        */
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
     StgCode         code[];
 #endif
 } *StgInfoTablePtr; // StgInfoTable defined in rts/Types.h
@@ -339,7 +339,7 @@ typedef struct StgConInfoTable_ {
  * GET_SRT(info)
  * info must be a Stg[Ret|Thunk]InfoTable* (an info table that has a SRT)
  */
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_SRT(info) ((StgSRT*) (((StgWord) ((info)+1)) + (info)->srt_offset))
 #else
 #define GET_SRT(info) ((info)->srt)
@@ -349,7 +349,7 @@ typedef struct StgConInfoTable_ {
  * GET_CON_DESC(info)
  * info must be a StgConInfoTable*.
  */
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_CON_DESC(info) \
             ((const char *)((StgWord)((info)+1) + (info->con_desc)))
 #else
@@ -360,20 +360,20 @@ typedef struct StgConInfoTable_ {
  * GET_FUN_SRT(info)
  * info must be a StgFunInfoTable*
  */
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_FUN_SRT(info) ((StgSRT*) (((StgWord) ((info)+1)) + (info)->f.srt_offset))
 #else
 #define GET_FUN_SRT(info) ((info)->f.srt)
 #endif
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_LARGE_BITMAP(info) ((StgLargeBitmap*) (((StgWord) ((info)+1)) \
                                         + (info)->layout.large_bitmap_offset))
 #else
 #define GET_LARGE_BITMAP(info) ((info)->layout.large_bitmap)
 #endif
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_FUN_LARGE_BITMAP(info) ((StgLargeBitmap*) (((StgWord) ((info)+1)) \
                                         + (info)->f.b.bitmap_offset))
 #else
@@ -383,12 +383,12 @@ typedef struct StgConInfoTable_ {
 /*
  * GET_PROF_TYPE, GET_PROF_DESC
  */
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_PROF_TYPE(info) ((char *)((StgWord)((info)+1) + (info->prof.closure_type_off)))
 #else
 #define GET_PROF_TYPE(info) ((info)->prof.closure_type)
 #endif
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define GET_PROF_DESC(info) ((char *)((StgWord)((info)+1) + (info->prof.closure_desc_off)))
 #else
 #define GET_PROF_DESC(info) ((info)->prof.closure_desc)
index 9fbe92e..20aed08 100644 (file)
@@ -26,7 +26,7 @@ extern void freeAllMBlocks(void);
 extern void *getFirstMBlock(void **state);
 extern void *getNextMBlock(void **state, void *mblock);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 // needed for HEAP_ALLOCED below
 extern SpinLock gc_alloc_block_sync;
 #endif
index e50e336..9301858 100644 (file)
@@ -173,13 +173,13 @@ typedef struct StgTSO_ {
      */
     StgWord32  tot_stack_size;
 
-#ifdef TICKY_TICKY
+#if defined(TICKY_TICKY)
     /* TICKY-specific stuff would go here. */
 #endif
-#ifdef PROFILING
+#if defined(PROFILING)
     StgTSOProfInfo prof;
 #endif
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     StgWord32 saved_winerror;
 #endif
 
index cf857a8..7ab3594 100644 (file)
@@ -46,7 +46,7 @@
     sources are being processed. This is only the case when 
     using Win32 DLLs. ]
 */
-#ifdef COMPILING_RTS
+#if defined(COMPILING_RTS)
 #define DLL_IMPORT DLLIMPORT
 #define DLL_IMPORT_RTS
 #define DLL_IMPORT_DATA_VAR(x) x
@@ -65,7 +65,7 @@
 #endif
 
 
-#ifdef COMPILING_STDLIB
+#if defined(COMPILING_STDLIB)
 #define DLL_IMPORT_STDLIB
 #else
 #define DLL_IMPORT_STDLIB DLLIMPORT
index 89a2b95..c92f686 100644 (file)
@@ -24,7 +24,7 @@
  * the stack, and components of an unboxed tuple will be returned on
  * the stack rather than in registers.
  */
-#ifdef NO_REGS
+#if defined(NO_REGS)
 
 #define MACHREGS_NO_REGS 1
 
 
 #define MACHREGS_NO_REGS 0
 
-#ifdef i386_TARGET_ARCH
+#if defined(i386_TARGET_ARCH)
 #define MACHREGS_i386     1
 #endif
 
-#ifdef x86_64_TARGET_ARCH
+#if defined(x86_64_TARGET_ARCH)
 #define MACHREGS_x86_64   1
 #endif
 
 #define MACHREGS_powerpc  1
 #endif
 
-#ifdef sparc_TARGET_ARCH
+#if defined(sparc_TARGET_ARCH)
 #define MACHREGS_sparc    1
 #endif
 
-#ifdef arm_TARGET_ARCH
+#if defined(arm_TARGET_ARCH)
 #define MACHREGS_arm      1
 #endif
 
-#ifdef aarch64_TARGET_ARCH
+#if defined(aarch64_TARGET_ARCH)
 #define MACHREGS_aarch64  1
 #endif
 
-#ifdef darwin_TARGET_OS
+#if defined(darwin_TARGET_OS)
 #define MACHREGS_darwin   1
 #endif
 
index f58e49e..eab4a30 100644 (file)
    Leaving SpLim out of the picture.
    -------------------------------------------------------------------------- */
 
-#ifdef MACHREGS_i386
+#if defined(MACHREGS_i386)
 
 #define REG(x) __asm__("%" #x)
 
-#ifndef not_doing_dynamic_linking
+#if !defined(not_doing_dynamic_linking)
 #define REG_Base    ebx
 #endif
 #define REG_Sp      ebp
 
-#ifndef STOLEN_X86_REGS
+#if !defined(STOLEN_X86_REGS)
 #define STOLEN_X86_REGS 4
 #endif
 
@@ -315,7 +315,7 @@ the stack. See Note [Overlapping global registers] for implications.
 #define REG_R7          r20
 #define REG_R8          r21
 
-#ifdef MACHREGS_darwin
+#if defined(MACHREGS_darwin)
 
 #define REG_F1          f14
 #define REG_F2          f15
@@ -629,7 +629,7 @@ the stack. See Note [Overlapping global registers] for implications.
  * communicate with PrimOps and RTS functions.
  */
 
-#ifndef MAX_REAL_VANILLA_REG
+#if !defined(MAX_REAL_VANILLA_REG)
 #  if   defined(REG_R10)
 #  define MAX_REAL_VANILLA_REG 10
 #  elif   defined(REG_R9)
@@ -655,7 +655,7 @@ the stack. See Note [Overlapping global registers] for implications.
 #  endif
 #endif
 
-#ifndef MAX_REAL_FLOAT_REG
+#if !defined(MAX_REAL_FLOAT_REG)
 #  if   defined(REG_F4)
 #  define MAX_REAL_FLOAT_REG 4
 #  elif defined(REG_F3)
@@ -669,7 +669,7 @@ the stack. See Note [Overlapping global registers] for implications.
 #  endif
 #endif
 
-#ifndef MAX_REAL_DOUBLE_REG
+#if !defined(MAX_REAL_DOUBLE_REG)
 #  if   defined(REG_D2)
 #  define MAX_REAL_DOUBLE_REG 2
 #  elif defined(REG_D1)
@@ -679,7 +679,7 @@ the stack. See Note [Overlapping global registers] for implications.
 #  endif
 #endif
 
-#ifndef MAX_REAL_LONG_REG
+#if !defined(MAX_REAL_LONG_REG)
 #  if   defined(REG_L1)
 #  define MAX_REAL_LONG_REG 1
 #  else
@@ -687,7 +687,7 @@ the stack. See Note [Overlapping global registers] for implications.
 #  endif
 #endif
 
-#ifndef MAX_REAL_XMM_REG
+#if !defined(MAX_REAL_XMM_REG)
 #  if   defined(REG_XMM6)
 #  define MAX_REAL_XMM_REG 6
 #  elif defined(REG_XMM5)
index 725323b..4e8fe68 100644 (file)
@@ -35,7 +35,7 @@
 #  define RTS_FUN_DECL(f)   extern DLL_IMPORT_RTS StgFunPtr f(void)
 #endif
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #  define RTS_RET(f)      RTS_INFO(f##_info)
 #  define RTS_ENTRY(f)    RTS_INFO(f##_info)
 #  define RTS_FUN(f)      RTS_FUN_INFO(f##_info)
@@ -318,7 +318,7 @@ RTS_RET(stg_block_takemvar);
 RTS_RET(stg_block_readmvar);
 RTS_FUN_DECL(stg_block_putmvar);
 RTS_RET(stg_block_putmvar);
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 RTS_FUN_DECL(stg_block_async);
 RTS_RET(stg_block_async);
 RTS_FUN_DECL(stg_block_async_void);
@@ -395,7 +395,7 @@ RTS_FUN_DECL(stg_tryReadMVarzh);
 RTS_FUN_DECL(stg_waitReadzh);
 RTS_FUN_DECL(stg_waitWritezh);
 RTS_FUN_DECL(stg_delayzh);
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 RTS_FUN_DECL(stg_asyncReadzh);
 RTS_FUN_DECL(stg_asyncWritezh);
 RTS_FUN_DECL(stg_asyncDoProczh);
index 627bdfe..e1233a1 100644 (file)
@@ -14,8 +14,8 @@
 
 #pragma once
 
-#ifdef UnregisterisedCompiler
-#ifndef NO_REGS
+#if defined(UnregisterisedCompiler)
+#if !defined(NO_REGS)
 #define NO_REGS
 #endif
 #endif
@@ -30,7 +30,7 @@
  * the stack, and components of an unboxed tuple will be returned on
  * the stack rather than in registers.
  */
-#ifdef NO_REGS
+#if defined(NO_REGS)
 
 #define MACHREGS_NO_REGS 1
 
 
 #define MACHREGS_NO_REGS 0
 
-#ifdef i386_HOST_ARCH
+#if defined(i386_HOST_ARCH)
 #define MACHREGS_i386     1
 #endif
 
-#ifdef x86_64_HOST_ARCH
+#if defined(x86_64_HOST_ARCH)
 #define MACHREGS_x86_64   1
 #endif
 
 #define MACHREGS_powerpc  1
 #endif
 
-#ifdef sparc_HOST_ARCH
+#if defined(sparc_HOST_ARCH)
 #define MACHREGS_sparc    1
 #endif
 
-#ifdef arm_HOST_ARCH
+#if defined(arm_HOST_ARCH)
 #define MACHREGS_arm      1
 #endif
 
-#ifdef aarch64_HOST_ARCH
+#if defined(aarch64_HOST_ARCH)
 #define MACHREGS_aarch64  1
 #endif
 
-#ifdef darwin_HOST_OS
+#if defined(darwin_HOST_OS)
 #define MACHREGS_darwin   1
 #endif
 
index 1e16a1a..5e2c372 100644 (file)
@@ -35,7 +35,7 @@ extern W_ top_ct[];
    same declarations for both extern decls (which are included everywhere)
    and initializations (which only happen once) 
    TICKY_C is defined only in rts/Ticky.c */
-#ifdef TICKY_C
+#if defined(TICKY_C)
 #define INIT(ializer) = ializer
 #define EXTERN
 #else
@@ -197,8 +197,8 @@ EXTERN StgInt RET_UNBOXED_TUP_hst[TICKY_BIN_COUNT] INIT({0});
 
    Note that these macros must be defined whether
    TICKY_TICKY is defined or not. */
-  
-#ifndef CMINUSMINUS
+
+#if !defined(CMINUSMINUS)
 #define TICK_BUMP_BY(ctr,n) ctr = (StgInt) ctr + n
 #define TICK_BUMP(ctr)      TICK_BUMP_BY(ctr,1)
 
index ada825d..cc39dde 100644 (file)
@@ -117,7 +117,7 @@ import System.Posix.Types ( Fd )
 import Foreign.StablePtr
 import Foreign.C.Types
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import Foreign.C
 import System.IO
 import Data.Functor ( void )
@@ -401,7 +401,7 @@ unsafeResult = either Exception.throwIO return
 -- 'GHC.Conc.closeFdWith'.
 threadWaitRead :: Fd -> IO ()
 threadWaitRead fd
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   -- we have no IO manager implementing threadWaitRead on Windows.
   -- fdReady does the right thing, but we have to call it in a
   -- separate thread, otherwise threadWaitRead won't be interruptible,
@@ -426,7 +426,7 @@ threadWaitRead fd
 -- 'GHC.Conc.closeFdWith'.
 threadWaitWrite :: Fd -> IO ()
 threadWaitWrite fd
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   | threaded  = withThread (waitFd fd 1)
   | otherwise = errorWithoutStackTrace "threadWaitWrite requires -threaded on Windows"
 #else
@@ -441,7 +441,7 @@ threadWaitWrite fd
 -- @since 4.7.0.0
 threadWaitReadSTM :: Fd -> IO (STM (), IO ())
 threadWaitReadSTM fd
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   | threaded = do v <- newTVarIO Nothing
                   mask_ $ void $ forkIO $ do result <- try (waitFd fd 0)
                                              atomically (writeTVar v $ Just result)
@@ -465,7 +465,7 @@ threadWaitReadSTM fd
 -- @since 4.7.0.0
 threadWaitWriteSTM :: Fd -> IO (STM (), IO ())
 threadWaitWriteSTM fd
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   | threaded = do v <- newTVarIO Nothing
                   mask_ $ void $ forkIO $ do result <- try (waitFd fd 1)
                                              atomically (writeTVar v $ Just result)
@@ -481,7 +481,7 @@ threadWaitWriteSTM fd
   = GHC.Conc.threadWaitWriteSTM fd
 #endif
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "rtsSupportsBoundThreads" threaded :: Bool
 
 withThread :: IO a -> IO a
index 525f098..d12d6dc 100644 (file)
@@ -57,7 +57,7 @@ module Data.Bits (
 
 #include "MachDeps.h"
 
-#ifdef MIN_VERSION_integer_gmp
+#if defined(MIN_VERSION_integer_gmp)
 # define HAVE_INTEGER_GMP1 MIN_VERSION_integer_gmp(1,0,0)
 #endif
 
index ec937e7..bee1b6f 100644 (file)
@@ -276,7 +276,7 @@ findIndex p     = listToMaybe . findIndices p
 -- | The 'findIndices' function extends 'findIndex', by returning the
 -- indices of all elements satisfying the predicate, in ascending order.
 findIndices      :: (a -> Bool) -> [a] -> [Int]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 findIndices p xs = [ i | (x,i) <- zip xs [0..], p x]
 #else
 -- Efficient definition, adapted from Data.Sequence
@@ -346,7 +346,7 @@ nub                     =  nubBy (==)
 -- user-supplied equality predicate instead of the overloaded '=='
 -- function.
 nubBy                   :: (a -> a -> Bool) -> [a] -> [a]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 nubBy eq []             =  []
 nubBy eq (x:xs)         =  x : nubBy eq (filter (\ y -> not (eq x y)) xs)
 #else
@@ -824,7 +824,7 @@ sort :: (Ord a) => [a] -> [a]
 -- | The 'sortBy' function is the non-overloaded version of 'sort'.
 sortBy :: (a -> a -> Ordering) -> [a] -> [a]
 
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 sort = sortBy compare
 sortBy cmp = foldr (insertBy cmp) []
 #else
@@ -1083,7 +1083,7 @@ lines s                 =  cons (case break (== '\n') s of
 -- | 'unlines' is an inverse operation to 'lines'.
 -- It joins lines, after appending a terminating newline to each.
 unlines                 :: [String] -> String
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 unlines                 =  concatMap (++ "\n")
 #else
 -- HBC version (stolen)
@@ -1118,7 +1118,7 @@ wordsFB c n = go
 -- | 'unwords' is an inverse operation to 'words'.
 -- It joins words with separating spaces.
 unwords                 :: [String] -> String
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 unwords []              =  ""
 unwords ws              =  foldr1 (\w s -> w ++ ' ':s) ws
 #else
index ec68683..fae207e 100644 (file)
@@ -85,7 +85,7 @@ import           Data.Monoid         (Alt (..))
 import qualified Data.Monoid         as Monoid
 import           Data.Ord            (Down(..))
 import           Data.Void
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import           GHC.Event           (Event, Lifetime)
 #endif
 import           GHC.Generics
@@ -725,7 +725,7 @@ instance Semigroup (Proxy s) where
 instance Semigroup a => Semigroup (IO a) where
     (<>) = liftA2 (<>)
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 -- | @since 4.10.0.0
 instance Semigroup Event where
     (<>) = mappend
index a162460..a8eb60c 100644 (file)
@@ -420,7 +420,7 @@ wNUL = 0
 cWcharsToChars :: [CWchar] -> [Char]
 charsToCWchars :: [Char] -> [CWchar]
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 
 -- On Windows, wchar_t is 16 bits wide and CWString uses the UTF-16 encoding.
 
index 74d14ba..8c5c153 100644 (file)
@@ -86,7 +86,7 @@ module GHC.Conc
 
         -- * Miscellaneous
         , withMVar
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         , asyncRead
         , asyncWrite
         , asyncDoProc
@@ -95,14 +95,14 @@ module GHC.Conc
         , asyncWriteBA
 #endif
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
         , Signal, HandlerFun, setHandler, runHandlers
 #endif
 
         , ensureIOManagerIsRunning
         , ioManagerCapabilitiesChanged
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         , ConsoleEvent(..)
         , win32ConsoleHandler
         , toWin32ConsoleEvent
@@ -116,6 +116,6 @@ module GHC.Conc
 import GHC.Conc.IO
 import GHC.Conc.Sync
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import GHC.Conc.Signal
 #endif
index be77313..eb0bffe 100644 (file)
@@ -39,7 +39,7 @@ module GHC.Conc.IO
         , threadWaitWriteSTM
         , closeFdWith
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         , asyncRead
         , asyncWrite
         , asyncDoProc
@@ -59,7 +59,7 @@ import GHC.Conc.Sync as Sync
 import GHC.Real ( fromIntegral )
 import System.Posix.Types
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import qualified GHC.Conc.Windows as Windows
 import GHC.Conc.Windows (asyncRead, asyncWrite, asyncDoProc, asyncReadBA,
                          asyncWriteBA, ConsoleEvent(..), win32ConsoleHandler,
@@ -69,14 +69,14 @@ import qualified GHC.Event.Thread as Event
 #endif
 
 ensureIOManagerIsRunning :: IO ()
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 ensureIOManagerIsRunning = Event.ensureIOManagerIsRunning
 #else
 ensureIOManagerIsRunning = Windows.ensureIOManagerIsRunning
 #endif
 
 ioManagerCapabilitiesChanged :: IO ()
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 ioManagerCapabilitiesChanged = Event.ioManagerCapabilitiesChanged
 #else
 ioManagerCapabilitiesChanged = return ()
@@ -90,7 +90,7 @@ ioManagerCapabilitiesChanged = return ()
 -- that has been used with 'threadWaitRead', use 'closeFdWith'.
 threadWaitRead :: Fd -> IO ()
 threadWaitRead fd
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
   | threaded  = Event.threadWaitRead fd
 #endif
   | otherwise = IO $ \s ->
@@ -106,7 +106,7 @@ threadWaitRead fd
 -- that has been used with 'threadWaitWrite', use 'closeFdWith'.
 threadWaitWrite :: Fd -> IO ()
 threadWaitWrite fd
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
   | threaded  = Event.threadWaitWrite fd
 #endif
   | otherwise = IO $ \s ->
@@ -120,7 +120,7 @@ threadWaitWrite fd
 -- in the file descriptor.
 threadWaitReadSTM :: Fd -> IO (Sync.STM (), IO ())
 threadWaitReadSTM fd
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
   | threaded  = Event.threadWaitReadSTM fd
 #endif
   | otherwise = do
@@ -139,7 +139,7 @@ threadWaitReadSTM fd
 -- in the file descriptor.
 threadWaitWriteSTM :: Fd -> IO (Sync.STM (), IO ())
 threadWaitWriteSTM fd
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
   | threaded  = Event.threadWaitWriteSTM fd
 #endif
   | otherwise = do
@@ -164,7 +164,7 @@ closeFdWith :: (Fd -> IO ()) -- ^ Low-level action that performs the real close.
             -> Fd            -- ^ File descriptor to close.
             -> IO ()
 closeFdWith close fd
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
   | threaded  = Event.closeFdWith close fd
 #endif
   | otherwise = close fd
@@ -178,7 +178,7 @@ closeFdWith close fd
 --
 threadDelay :: Int -> IO ()
 threadDelay time
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   | threaded  = Windows.threadDelay time
 #else
   | threaded  = Event.threadDelay time
@@ -193,7 +193,7 @@ threadDelay time
 --
 registerDelay :: Int -> IO (TVar Bool)
 registerDelay usecs
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   | threaded = Windows.registerDelay usecs
 #else
   | threaded = Event.registerDelay usecs
index 4cbb8ca..6b87b06 100644 (file)
@@ -53,7 +53,7 @@ import GHC.Show (Show)
 import GHC.Word (Word32, Word64)
 import GHC.Windows
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 # if defined(i386_HOST_ARCH)
 #  define WINDOWS_CCONV stdcall
 # elif defined(x86_64_HOST_ARCH)
index 97005eb..a077f6f 100644 (file)
@@ -9,7 +9,7 @@ import Foreign.C
 import GHC.Base
 import GHC.Real ( fromIntegral )
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import GHC.IO (finally)
 import GHC.Windows
 
@@ -30,7 +30,7 @@ import qualified GHC.Foreign as GHC
 -- command line arguments, starting with the program name, and
 -- including those normally eaten by the RTS (+RTS ... -RTS).
 getFullArgs :: IO [String]
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 -- Ignore the arguments to hs_init on Windows for the sake of Unicode compat
 getFullArgs = do
     p_arg_string <- c_GetCommandLine
index a76cc51..e9c8419 100644 (file)
@@ -56,7 +56,7 @@ import Data.Int (Int64)
 -- Handle brokenness on some BSD variants, notably OS X up to at least
 -- 10.6.  If NOTE_EOF isn't available, we have no way to receive a
 -- notification from the kernel when we reach EOF on a plain file.
-#ifndef NOTE_EOF
+#if !defined(NOTE_EOF)
 # define NOTE_EOF 0
 #endif
 
@@ -132,7 +132,7 @@ data Event = KEvent {
     , filter :: {-# UNPACK #-} !Filter
     , flags  :: {-# UNPACK #-} !Flag
     , fflags :: {-# UNPACK #-} !FFlag
-#ifdef netbsd_HOST_OS
+#if defined(netbsd_HOST_OS)
     , data_  :: {-# UNPACK #-} !Int64
 #else
     , data_  :: {-# UNPACK #-} !CIntPtr
index 5c5ad49..74525c6 100644 (file)
@@ -158,7 +158,7 @@ newtype Event = Event CShort
 
 -- We have to duplicate the whole enum like this in order for the
 -- hsc2hs cross-compilation mode to work
-#ifdef POLLRDHUP
+#if defined(POLLRDHUP)
 #{enum Event, Event
  , pollIn    = POLLIN
  , pollOut   = POLLOUT
index 50de06e..33eee63 100644 (file)
@@ -101,7 +101,7 @@ readWord8Buf arr ix = withForeignPtr arr $ \p -> peekByteOff p ix
 writeWord8Buf :: RawBuffer Word8 -> Int -> Word8 -> IO ()
 writeWord8Buf arr ix w = withForeignPtr arr $ \p -> pokeByteOff p ix w
 
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 type CharBufElem = Word16
 #else
 type CharBufElem = Char
@@ -124,7 +124,7 @@ writeCharBuf arr ix c = withForeignPtr arr $ \p -> writeCharBufPtr p ix c
 
 {-# INLINE readCharBufPtr #-}
 readCharBufPtr :: Ptr CharBufElem -> Int -> IO (Char, Int)
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 readCharBufPtr p ix = do
   c1 <- peekElemOff p ix
   if (c1 < 0xd800 || c1 > 0xdbff)
@@ -138,7 +138,7 @@ readCharBufPtr p ix = do c <- peekElemOff (castPtr p) ix; return (c, ix+1)
 
 {-# INLINE writeCharBufPtr #-}
 writeCharBufPtr :: Ptr CharBufElem -> Int -> Char -> IO Int
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 writeCharBufPtr p ix ch
   | c < 0x10000 = do pokeElemOff p ix (fromIntegral c)
                      return (ix+1)
@@ -153,7 +153,7 @@ writeCharBufPtr p ix ch = do pokeElemOff (castPtr p) ix ch; return (ix+1)
 #endif
 
 charSize :: Int
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 charSize = 2
 #else
 charSize = 4
@@ -186,7 +186,7 @@ data Buffer e
         bufR     :: !Int           -- offset of last item + 1
   }
 
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 type CharBuffer = Buffer Word16
 #else
 type CharBuffer = Buffer Char
@@ -208,7 +208,7 @@ isFullBuffer Buffer{ bufR=w, bufSize=s } = s == w
 
 -- if a Char buffer does not have room for a surrogate pair, it is "full"
 isFullCharBuffer :: Buffer e -> Bool
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
 isFullCharBuffer buf = bufferAvailable buf < 2
 #else
 isFullCharBuffer = isFullBuffer
index aea4314..42980b5 100644 (file)
@@ -32,7 +32,7 @@ import GHC.IO.Encoding.UTF8 (mkUTF8)
 import GHC.IO.Encoding.UTF16 (mkUTF16le, mkUTF16be)
 import GHC.IO.Encoding.UTF32 (mkUTF32le, mkUTF32be)
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 # if defined(i386_HOST_ARCH)
 #  define WINDOWS_CCONV stdcall
 # elif defined(x86_64_HOST_ARCH)
index 8cf77b0..f1d9d93 100644 (file)
@@ -157,7 +157,7 @@ newCP rec fn cp = do
 
 utf16_native_encode' :: EncodeBuffer
 utf16_native_decode' :: DecodeBuffer
-#ifdef WORDS_BIGENDIAN
+#if defined(WORDS_BIGENDIAN)
 utf16_native_encode' = utf16be_encode
 utf16_native_decode' = utf16be_decode
 #else
@@ -204,7 +204,7 @@ utf16_native_decode ibuf obuf = do
 
 cpDecode :: Word32 -> Int -> DecodeBuffer
 cpDecode cp max_char_size = \ibuf obuf -> do
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
     let mbuf = obuf
 #else
     -- FIXME: share the buffer between runs, even if the buffer is not the perfect size
@@ -215,7 +215,7 @@ cpDecode cp max_char_size = \ibuf obuf -> do
     debugIO $ "cpDecode " ++ summaryBuffer ibuf ++ " " ++ summaryBuffer mbuf
     (why1, ibuf', mbuf') <- cpRecode try' is_valid_prefix max_char_size 1 0 1 ibuf mbuf
     debugIO $ "cpRecode (cpDecode) = " ++ show why1 ++ " " ++ summaryBuffer ibuf' ++ " " ++ summaryBuffer mbuf'
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
     return (why1, ibuf', mbuf')
 #else
     -- Convert as much UTF-16 as possible to UTF-32. Note that it's impossible for this to fail
@@ -265,7 +265,7 @@ cpDecode cp max_char_size = \ibuf obuf -> do
 
 cpEncode :: Word32 -> Int -> EncodeBuffer
 cpEncode cp _max_char_size = \ibuf obuf -> do
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
     let mbuf' = ibuf
 #else
     -- FIXME: share the buffer between runs, even though that means we can't size the buffer as we want.
@@ -281,7 +281,7 @@ cpEncode cp _max_char_size = \ibuf obuf -> do
     debugIO $ "\ncpEncode " ++ summaryBuffer mbuf' ++ " " ++ summaryBuffer obuf
     (why2, target_utf16_count, mbuf', obuf) <- saner (cpRecode try' is_valid_prefix 2 1 1 0) (mbuf' { bufState = ReadBuffer }) obuf
     debugIO $ "cpRecode (cpEncode) = " ++ show why2 ++ " " ++ summaryBuffer mbuf' ++ " " ++ summaryBuffer obuf
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
     return (why2, mbuf', obuf)
 #else
     case why2 of
index 061bd60..1635436 100644 (file)
@@ -85,7 +85,7 @@ foreign import ccall unsafe "localeEncoding"
     c_localeEncoding :: IO CString
 
 haskellChar :: String
-#ifdef WORDS_BIGENDIAN
+#if defined(WORDS_BIGENDIAN)
 haskellChar | charSize == 2 = "UTF-16BE"
             | otherwise     = "UTF-32BE"
 #else
index c4e4d46..8eafe08 100644 (file)
@@ -43,7 +43,7 @@ import qualified GHC.IO.Device
 import GHC.IO.Device (SeekMode(..), IODeviceType(..))
 import GHC.Conc.IO
 import GHC.IO.Exception
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import GHC.Windows
 #endif
 
@@ -53,7 +53,7 @@ import qualified System.Posix.Internals
 import System.Posix.Internals hiding (FD, setEcho, getEcho)
 import System.Posix.Types
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 # if defined(i386_HOST_ARCH)
 #  define WINDOWS_CCONV stdcall
 # elif defined(x86_64_HOST_ARCH)
@@ -71,7 +71,7 @@ c_DEBUG_DUMP = False
 
 data FD = FD {
   fdFD :: {-# UNPACK #-} !CInt,
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   -- On Windows, a socket file descriptor needs to be read and written
   -- using different functions (send/recv).
   fdIsSocket_ :: {-# UNPACK #-} !Int
@@ -83,7 +83,7 @@ data FD = FD {
 #endif
  }
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 fdIsSocket :: FD -> Bool
 fdIsSocket fd = fdIsSocket_ fd /= 0
 #endif
@@ -167,7 +167,7 @@ openFile filepath iomode non_blocking =
                   ReadWriteMode -> rw_flags
                   AppendMode    -> append_flags
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
       binary_flags = o_BINARY
 #else
       binary_flags = 0
@@ -259,12 +259,12 @@ mkFD fd iomode mb_stat is_socket is_nonblock = do
 
         _other_type -> return ()
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     when (not is_socket) $ setmode fd True >> return ()
 #endif
 
     return (FD{ fdFD = fd,
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
                 fdIsNonBlocking = fromEnum is_nonblock
 #else
                 fdIsSocket_ = fromEnum is_socket
@@ -273,7 +273,7 @@ mkFD fd iomode mb_stat is_socket is_nonblock = do
             fd_type)
 
 getUniqueFileInfo :: CInt -> CDev -> CIno -> IO (Word64, Word64)
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 getUniqueFileInfo _ dev ino = return (fromIntegral dev, fromIntegral ino)
 #else
 getUniqueFileInfo fd _ _ = do
@@ -283,7 +283,7 @@ getUniqueFileInfo fd _ _ = do
       liftM2 (,) (peek devptr) (peek inoptr)
 #endif
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "__hscore_setmode"
   setmode :: CInt -> Bool -> IO CInt
 #endif
@@ -293,7 +293,7 @@ foreign import ccall unsafe "__hscore_setmode"
 
 stdFD :: CInt -> FD
 stdFD fd = FD { fdFD = fd,
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
                 fdIsSocket_ = 0
 #else
                 fdIsNonBlocking = 0
@@ -315,7 +315,7 @@ close :: FD -> IO ()
 close fd =
   do let closer realFd =
            throwErrnoIfMinus1Retry_ "GHC.IO.FD.close" $
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
            if fdIsSocket fd then
              c_closesocket (fromIntegral realFd)
            else
@@ -333,7 +333,7 @@ release :: FD -> IO ()
 release fd = do _ <- unlockFile (fdFD fd)
                 return ()
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import WINDOWS_CCONV unsafe "HsBase.h closesocket"
    c_closesocket :: CInt -> IO CInt
 #endif
@@ -465,7 +465,7 @@ fdWriteNonBlocking fd ptr bytes = do
 
 -- Low level routines for reading/writing to (raw)buffers:
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 
 {-
 NOTE [nonblock]:
@@ -647,7 +647,7 @@ foreign import ccall unsafe "rtsSupportsBoundThreads" threaded :: Bool
 -- -----------------------------------------------------------------------------
 -- utils
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 throwErrnoIfMinus1RetryOnBlock  :: String -> IO CSsize -> IO CSsize -> IO CSsize
 throwErrnoIfMinus1RetryOnBlock loc f on_block  =
   do
@@ -672,7 +672,7 @@ foreign import ccall unsafe "lockFile"
 foreign import ccall unsafe "unlockFile"
   unlockFile :: CInt -> IO CInt
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "get_unique_file_info"
   c_getUniqueFileInfo :: CInt -> Ptr Word64 -> Ptr Word64 -> IO ()
 #endif
index 256f802..648523a 100644 (file)
@@ -232,7 +232,7 @@ hSetBuffering handle mode =
           is_tty <- IODevice.isTerminal haDevice
           when (is_tty && isReadableHandleType haType) $
                 case mode of
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
         -- 'raw' mode under win32 is a bit too specialised (and troublesome
         -- for most common uses), so simply disable its use here.
                   NoBuffering -> IODevice.setRaw haDevice True
index e988b25..786fccc 100644 (file)
@@ -91,14 +91,14 @@ stdHandleFinalizer fp m = do
 -- We have to put the FDs into binary mode on Windows to avoid the newline
 -- translation that the CRT IO library does.
 setBinaryMode :: FD.FD -> IO ()
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 setBinaryMode fd = do _ <- setmode (FD.fdFD fd) True
                       return ()
 #else
 setBinaryMode _ = return ()
 #endif
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "__hscore_setmode"
   setmode :: CInt -> Bool -> IO CInt
 #endif
@@ -202,7 +202,7 @@ mkHandleFromFD
 
 mkHandleFromFD fd0 fd_type filepath iomode set_non_blocking mb_codec
   = do
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
     -- turn on non-blocking mode
     fd <- if set_non_blocking 
              then FD.setNonBlockingMode fd0 True
index 8d92738..57b9534 100644 (file)
@@ -271,7 +271,7 @@ unpack !buf !r !w acc0
               -- Here, we are rather careful to only put an *evaluated* character
               -- in the output string. Due to pointer tagging, this allows the consumer
               -- to avoid ping-ponging between the actual consumer code and the thunk code
-#ifdef CHARBUF_UTF16
+#if defined(CHARBUF_UTF16)
               -- reverse-order decoding of UTF-16
               c2 <- peekElemOff pbuf i
               if (c2 < 0xdc00 || c2 > 0xdffff)
index 8f73981..c58a9fb 100644 (file)
@@ -46,7 +46,7 @@ import GHC.Read
 import GHC.Word
 import GHC.IO.Device
 import Data.Typeable
-#ifdef DEBUG
+#if defined(DEBUG)
 import Control.Monad
 #endif
 
@@ -179,7 +179,7 @@ isReadWriteHandleType _                 = False
 --   * In a wriite Handle, the Char buffer is always empty (we encode when writing)
 --
 checkHandleInvariants :: Handle__ -> IO ()
-#ifdef DEBUG
+#if defined(DEBUG)
 checkHandleInvariants h_ = do
  bbuf <- readIORef (haByteBuffer h_)
  checkBuffer bbuf
@@ -367,7 +367,7 @@ data NewlineMode
 -- | The native newline representation for the current platform: 'LF'
 -- on Unix systems, 'CRLF' on Windows.
 nativeNewline :: Newline
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 nativeNewline = CRLF
 #else
 nativeNewline = LF
index 018c0a7..70bfbe4 100644 (file)
@@ -79,7 +79,7 @@ tail []                 =  errorEmptyList "tail"
 
 -- | Extract the last element of a list, which must be finite and non-empty.
 last                    :: [a] -> a
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 last [x]                =  x
 last (_:xs)             =  last xs
 last []                 =  errorEmptyList "last"
@@ -98,7 +98,7 @@ lastError = errorEmptyList "last"
 -- | Return all the elements of a list except the last one.
 -- The list must be non-empty.
 init                    :: [a] -> [a]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 init [x]                =  []
 init (x:xs)             =  x : init xs
 init []                 =  errorEmptyList "init"
@@ -550,7 +550,7 @@ dropWhile p xs@(x:xs')
 -- It is an instance of the more general 'Data.List.genericTake',
 -- in which @n@ may be of any integral type.
 take                   :: Int -> [a] -> [a]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 take n _      | n <= 0 =  []
 take _ []              =  []
 take n (x:xs)          =  x : take (n-1) xs
@@ -617,7 +617,7 @@ takeFB c n x xs
 -- It is an instance of the more general 'Data.List.genericDrop',
 -- in which @n@ may be of any integral type.
 drop                   :: Int -> [a] -> [a]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 drop n xs     | n <= 0 =  xs
 drop _ []              =  []
 drop n (_:xs)          =  drop (n-1) xs
@@ -652,7 +652,7 @@ drop n ls
 -- in which @n@ may be of any integral type.
 splitAt                :: Int -> [a] -> ([a],[a])
 
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 splitAt n xs           =  (take n xs, drop n xs)
 #else
 splitAt n ls
@@ -694,7 +694,7 @@ span p xs@(x:xs')
 -- 'break' @p@ is equivalent to @'span' ('not' . p)@.
 
 break                   :: (a -> Bool) -> [a] -> ([a],[a])
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 break p                 =  span (not . p)
 #else
 -- HBC version (stolen)
@@ -707,7 +707,7 @@ break p xs@(x:xs')
 -- | 'reverse' @xs@ returns the elements of @xs@ in reverse order.
 -- @xs@ must be finite.
 reverse                 :: [a] -> [a]
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 reverse                 =  foldl (flip (:)) []
 #else
 reverse l =  rev l []
@@ -720,7 +720,7 @@ reverse l =  rev l []
 -- 'True', the list must be finite; 'False', however, results from a 'False'
 -- value at a finite index of a finite or infinite list.
 and                     :: [Bool] -> Bool
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 and                     =  foldr (&&) True
 #else
 and []          =  True
@@ -737,7 +737,7 @@ and (x:xs)      =  x && and xs
 -- 'False', the list must be finite; 'True', however, results from a 'True'
 -- value at a finite index of a finite or infinite list.
 or                      :: [Bool] -> Bool
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 or                      =  foldr (||) False
 #else
 or []           =  False
@@ -756,7 +756,7 @@ or (x:xs)       =  x || or xs
 -- value for the predicate applied to an element at a finite index of a finite or infinite list.
 any                     :: (a -> Bool) -> [a] -> Bool
 
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 any p                   =  or . map p
 #else
 any _ []        = False
@@ -775,7 +775,7 @@ any p (x:xs)    = p x || any p xs
 -- 'True', the list must be finite; 'False', however, results from a 'False'
 -- value for the predicate applied to an element at a finite index of a finite or infinite list.
 all                     :: (a -> Bool) -> [a] -> Bool
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 all p                   =  and . map p
 #else
 all _ []        =  True
@@ -794,7 +794,7 @@ all p (x:xs)    =  p x && all p xs
 -- 'False', the list must be finite; 'True', however, results from an element
 -- equal to @x@ found at a finite index of a finite or infinite list.
 elem                    :: (Eq a) => a -> [a] -> Bool
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 elem x                  =  any (== x)
 #else
 elem _ []       = False
@@ -808,7 +808,7 @@ elem x (y:ys)   = x==y || elem x ys
 
 -- | 'notElem' is the negation of 'elem'.
 notElem                 :: (Eq a) => a -> [a] -> Bool
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 notElem x               =  all (/= x)
 #else
 notElem _ []    =  True
@@ -855,7 +855,7 @@ concat = foldr (++) []
 -- It is an instance of the more general 'Data.List.genericIndex',
 -- which takes an index of any integral type.
 (!!)                    :: [a] -> Int -> a
-#ifdef USE_REPORT_PRELUDE
+#if defined(USE_REPORT_PRELUDE)
 xs     !! n | n < 0 =  errorWithoutStackTrace "Prelude.!!: negative index"
 []     !! _         =  errorWithoutStackTrace "Prelude.!!: index too large"
 (x:_)  !! 0         =  x
index 17d56c6..1154091 100644 (file)
@@ -27,7 +27,7 @@ import GHC.Enum
 import GHC.Show
 import {-# SOURCE #-} GHC.Exception( divZeroException, overflowException, ratioZeroDenomException )
 
-#ifdef OPTIMISE_INTEGER_GCD_LCM
+#if defined(OPTIMISE_INTEGER_GCD_LCM)
 # if defined(MIN_VERSION_integer_gmp)
 import GHC.Integer.GMP.Internals
 # else
@@ -636,7 +636,7 @@ lcm _ 0         =  0
 lcm 0 _         =  0
 lcm x y         =  abs ((x `quot` (gcd x y)) * y)
 
-#ifdef OPTIMISE_INTEGER_GCD_LCM
+#if defined(OPTIMISE_INTEGER_GCD_LCM)
 {-# RULES
 "gcd/Int->Int->Int"             gcd = gcdInt'
 "gcd/Integer->Integer->Integer" gcd = gcdInteger
index 58da871..1b1e065 100644 (file)
@@ -94,7 +94,7 @@ runMainIO main =
       topHandler
 
 install_interrupt_handler :: IO () -> IO ()
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 install_interrupt_handler handler = do
   _ <- GHC.ConsoleHandler.installHandler $
      Catch $ \event ->
@@ -244,7 +244,7 @@ unreachable :: IO a
 unreachable = fail "If you can read this, shutdownHaskellAndExit did not exit."
 
 exitHelper :: CInt -> Int -> IO a
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 exitHelper exitKind r =
   shutdownHaskellAndExit (fromIntegral r) exitKind >> unreachable
 #else
@@ -266,7 +266,7 @@ foreign import ccall "shutdownHaskellAndSignal"
 
 exitInterrupted :: IO a
 exitInterrupted =
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   safeExit 252
 #else
   -- we must exit via the default action for SIGINT, so that the
index 61b728c..56e6961 100644 (file)
@@ -33,7 +33,7 @@ import Foreign
 import Foreign.C
 import System.IO.Error (mkIOError)
 import Control.Exception.Base (bracket_, throwIO)
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import Control.Exception.Base (bracket)
 #endif
 -- import GHC.IO
@@ -41,7 +41,7 @@ import GHC.IO.Exception
 import GHC.IO.Encoding (getFileSystemEncoding)
 import qualified GHC.Foreign as GHC
 import Control.Monad
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import GHC.Environment
 import GHC.Windows
 #else
@@ -50,7 +50,7 @@ import System.Posix.Internals (withFilePath)
 
 import System.Environment.ExecutablePath
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 # if defined(i386_HOST_ARCH)
 #  define WINDOWS_CCONV stdcall
 # elif defined(x86_64_HOST_ARCH)
@@ -65,7 +65,7 @@ import System.Environment.ExecutablePath
 -- ---------------------------------------------------------------------------
 -- getArgs, getProgName, getEnv
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 
 {-
 Note [Ignore hs_init argv]
@@ -133,7 +133,7 @@ dropRTSArgs (arg:rest)     = arg : dropRTSArgs rest
 -- line arguments (not including the program name).
 getArgs :: IO [String]
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 getArgs =  fmap tail getWin32ProgArgv_certainly
 #else
 getArgs =
@@ -160,7 +160,7 @@ between platforms: on Windows, for example, a program invoked as foo
 is probably really @FOO.EXE@, and that is what 'getProgName' will return.
 -}
 getProgName :: IO String
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 -- Ignore the arguments to hs_init on Windows for the sake of Unicode compat
 getProgName = fmap (basename . head) getWin32ProgArgv_certainly
 #else
@@ -188,7 +188,7 @@ basename f = go f f
 
   isPathSeparator :: Char -> Bool
   isPathSeparator '/'  = True
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   isPathSeparator '\\' = True
 #endif
   isPathSeparator _    = False
@@ -206,7 +206,7 @@ basename f = go f f
 getEnv :: String -> IO String
 getEnv name = lookupEnv name >>= maybe handleError return
   where
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     handleError = do
         err <- c_GetLastError
         if err == eRROR_ENVVAR_NOT_FOUND
@@ -230,7 +230,7 @@ foreign import WINDOWS_CCONV unsafe "windows.h GetLastError"
 --
 -- @since 4.6.0.0
 lookupEnv :: String -> IO (Maybe String)
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 lookupEnv name = withCWString name $ \s -> try_size s 256
   where
     try_size s size = allocaArray (fromIntegral size) $ \p_value -> do
@@ -295,7 +295,7 @@ setEnv key_ value_
     value = takeWhile (/= '\NUL') value_
 
 setEnv_ :: String -> String -> IO ()
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 setEnv_ key value = withCWString key $ \k -> withCWString value $ \v -> do
   success <- c_SetEnvironmentVariable k v
   unless success (throwGetLastError "setEnv")
@@ -329,7 +329,7 @@ foreign import ccall unsafe "putenv" c_putenv :: CString -> IO CInt
 --
 -- @since 4.7.0.0
 unsetEnv :: String -> IO ()
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 unsetEnv key = withCWString key $ \k -> do
   success <- c_SetEnvironmentVariable k nullPtr
   unless success $ do
@@ -340,7 +340,7 @@ unsetEnv key = withCWString key $ \k -> do
       throwGetLastError "unsetEnv"
 #else
 
-#ifdef HAVE_UNSETENV
+#if defined(HAVE_UNSETENV)
 unsetEnv key = withFilePath key (throwErrnoIf_ (/= 0) "unsetEnv" . c_unsetenv)
 foreign import ccall unsafe "__hsbase_unsetenv" c_unsetenv :: CString -> IO CInt
 #else
@@ -372,7 +372,7 @@ withProgName nm act = do
 
 withArgv :: [String] -> IO a -> IO a
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 -- We have to reflect the updated arguments in the RTS-side variables as
 -- well, because the RTS still consults them for error messages and the like.
 -- If we don't do this then ghc-e005 fails.
@@ -406,7 +406,7 @@ foreign import ccall unsafe "setProgArgv"
 -- the @key@ is the whole entry and the @value@ is the empty string.
 getEnvironment :: IO [(String, String)]
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 getEnvironment = bracket c_GetEnvironmentStrings c_FreeEnvironmentStrings $ \pBlock ->
     if pBlock == nullPtr then return []
      else go pBlock
index 1796200..735d41b 100644 (file)
@@ -224,7 +224,7 @@ import Control.Exception.Base
 import Data.Bits
 import Data.Maybe
 import Foreign.C.Error
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 import Foreign.C.String
 #endif
 import Foreign.C.Types
@@ -546,7 +546,7 @@ openNewFile filepath binary mode = do
       errno <- getErrno
       case errno of
         _ | errno == eEXIST -> return FileExists
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         -- If c_open throws EACCES on windows, it could mean that filepath is a
         -- directory. In this case, we want to return FileExists so that the
         -- enclosing openTempFile can try again instead of failing outright.
@@ -565,13 +565,13 @@ openNewFile filepath binary mode = do
         _ -> return (OpenNewError errno)
     else return (NewFileCreated fd)
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall "file_exists" c_fileExists :: CString -> IO Bool
 #endif
 
 -- XXX Should use filepath library
 pathSeparator :: Char
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 pathSeparator = '\\'
 #else
 pathSeparator = '/'
index 7bb26fa..93ad4e8 100644 (file)
@@ -43,7 +43,7 @@ import GHC.IO
 import GHC.IO.IOMode
 import GHC.IO.Exception
 import GHC.IO.Device
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import {-# SOURCE #-} GHC.IO.Encoding (getFileSystemEncoding)
 import qualified GHC.Foreign as GHC
 #endif
@@ -157,7 +157,7 @@ fdGetMode fd = do
 
     return mode
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 withFilePath :: FilePath -> (CWString -> IO a) -> IO a
 withFilePath = withCWString
 
@@ -545,7 +545,7 @@ s_isfifo cm = c_s_isfifo cm /= 0
 
 foreign import ccall unsafe "HsBase.h __hscore_sizeof_stat" sizeof_stat :: Int
 foreign import ccall unsafe "HsBase.h __hscore_st_mtime" st_mtime :: Ptr CStat -> IO CTime
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 foreign import ccall unsafe "HsBase.h __hscore_st_size" st_size :: Ptr CStat -> IO Int64
 #else
 foreign import ccall unsafe "HsBase.h __hscore_st_size" st_size :: Ptr CStat -> IO COff
index d4ef093..d34082e 100644 (file)
@@ -18,7 +18,7 @@
 
 module System.Timeout ( timeout ) where
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import Control.Monad
 import GHC.Event           (getSystemTimerManager,
                             registerTimeout, unregisterTimeout)
@@ -80,7 +80,7 @@ timeout :: Int -> IO a -> IO (Maybe a)
 timeout n f
     | n <  0    = fmap Just f
     | n == 0    = return Nothing
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
     | rtsSupportsBoundThreads = do
         -- In the threaded RTS, we use the Timer Manager to delay the
         -- (fairly expensive) 'forkIO' call until the timeout has expired.
index 38f0ed5..7b6d2b5 100644 (file)
@@ -1,7 +1,7 @@
 #include "HsBase.h"
-#ifdef HAVE_UNSETENV
+#if defined(HAVE_UNSETENV)
 int __hsbase_unsetenv(const char *name) {
-#ifdef UNSETENV_RETURNS_VOID
+#if defined(UNSETENV_RETURNS_VOID)
     unsetenv(name);
     return 0;
 #else
index 2246ca6..e1123a4 100644 (file)
@@ -1,4 +1,4 @@
-#ifndef _WIN32
+#if !defined(_WIN32)
 
 #include <stdlib.h>
 #include <iconv.h>
index 4bee4d0..f074677 100644 (file)
@@ -109,7 +109,7 @@ union stg_ieee754_dbl
  */
 
 /* In case you don't support IEEE, you'll just get dummy defs.. */
-#ifdef IEEE_FLOATING_POINT
+#if defined(IEEE_FLOATING_POINT)
 
 HsInt
 isDoubleFinite(HsDouble d)
index 8ee2074..0fe5805 100644 (file)
@@ -99,8 +99,8 @@
 #elif HAVE_STDINT_H
 # include <stdint.h>
 #endif
-#ifdef HAVE_CLOCK_GETTIME
-# ifdef _POSIX_MONOTONIC_CLOCK
+#if defined(HAVE_CLOCK_GETTIME)
+# if defined(_POSIX_MONOTONIC_CLOCK)
 #  define CLOCK_ID CLOCK_MONOTONIC
 # else
 #  define CLOCK_ID CLOCK_REALTIME
@@ -162,7 +162,7 @@ extern int fdReady(int fd, int write, int msecs, int isSock);
    when compiling to native code.
    -------------------------------------------------------------------------- */
 
-#ifndef INLINE
+#if !defined(INLINE)
 # if defined(_MSC_VER)
 #  define INLINE extern __inline
 # else
@@ -192,7 +192,7 @@ __hscore_o_binary(void)
 INLINE int
 __hscore_o_rdonly(void)
 {
-#ifdef O_RDONLY
+#if defined(O_RDONLY)
   return O_RDONLY;
 #else
   return 0;
@@ -202,7 +202,7 @@ __hscore_o_rdonly(void)
 INLINE int
 __hscore_o_wronly( void )
 {
-#ifdef O_WRONLY
+#if defined(O_WRONLY)
   return O_WRONLY;
 #else
   return 0;
@@ -212,7 +212,7 @@ __hscore_o_wronly( void )
 INLINE int
 __hscore_o_rdwr( void )
 {
-#ifdef O_RDWR
+#if defined(O_RDWR)
   return O_RDWR;
 #else
   return 0;
@@ -222,7 +222,7 @@ __hscore_o_rdwr( void )
 INLINE int
 __hscore_o_append( void )
 {
-#ifdef O_APPEND
+#if defined(O_APPEND)
   return O_APPEND;
 #else
   return 0;
@@ -232,7 +232,7 @@ __hscore_o_append( void )
 INLINE int
 __hscore_o_creat( void )
 {
-#ifdef O_CREAT
+#if defined(O_CREAT)
   return O_CREAT;
 #else
   return 0;
@@ -242,7 +242,7 @@ __hscore_o_creat( void )
 INLINE int
 __hscore_o_excl( void )
 {
-#ifdef O_EXCL
+#if defined(O_EXCL)
   return O_EXCL;
 #else
   return 0;
@@ -252,7 +252,7 @@ __hscore_o_excl( void )
 INLINE int
 __hscore_o_trunc( void )
 {
-#ifdef O_TRUNC
+#if defined(O_TRUNC)
   return O_TRUNC;
 #else
   return 0;
@@ -262,7 +262,7 @@ __hscore_o_trunc( void )
 INLINE int
 __hscore_o_noctty( void )
 {
-#ifdef O_NOCTTY
+#if defined(O_NOCTTY)
   return O_NOCTTY;
 #else
   return 0;
@@ -272,7 +272,7 @@ __hscore_o_noctty( void )
 INLINE int
 __hscore_o_nonblock( void )
 {
-#ifdef O_NONBLOCK
+#if defined(O_NONBLOCK)
   return O_NONBLOCK;
 #else
   return 0;
@@ -374,7 +374,7 @@ __hscore_ptr_c_cc( struct termios* ts )
 INLINE HsInt
 __hscore_sizeof_termios( void )
 {
-#ifndef _WIN32
+#if !defined(_WIN32)
   return sizeof(struct termios);
 #else
   return 0;
@@ -393,7 +393,7 @@ __hscore_sizeof_sigset_t( void )
 INLINE int
 __hscore_echo( void )
 {
-#ifdef ECHO
+#if defined(ECHO)
   return ECHO;
 #else
   return 0;
@@ -404,7 +404,7 @@ __hscore_echo( void )
 INLINE int
 __hscore_tcsanow( void )
 {
-#ifdef TCSANOW
+#if defined(TCSANOW)
   return TCSANOW;
 #else
   return 0;
@@ -415,7 +415,7 @@ __hscore_tcsanow( void )
 INLINE int
 __hscore_icanon( void )
 {
-#ifdef ICANON
+#if defined(ICANON)
   return ICANON;
 #else
   return 0;
@@ -424,7 +424,7 @@ __hscore_icanon( void )
 
 INLINE int __hscore_vmin( void )
 {
-#ifdef VMIN
+#if defined(VMIN)
   return VMIN;
 #else
   return 0;
@@ -433,7 +433,7 @@ INLINE int __hscore_vmin( void )
 
 INLINE int __hscore_vtime( void )
 {
-#ifdef VTIME
+#if defined(VTIME)
   return VTIME;
 #else
   return 0;
@@ -442,7 +442,7 @@ INLINE int __hscore_vtime( void )
 
 INLINE int __hscore_sigttou( void )
 {
-#ifdef SIGTTOU
+#if defined(SIGTTOU)
   return SIGTTOU;
 #else
   return 0;
@@ -451,7 +451,7 @@ INLINE int __hscore_sigttou( void )
 
 INLINE int __hscore_sig_block( void )
 {
-#ifdef SIG_BLOCK
+#if defined(SIG_BLOCK)
   return SIG_BLOCK;
 #else
   return 0;
@@ -460,14 +460,14 @@ INLINE int __hscore_sig_block( void )
 
 INLINE int __hscore_sig_setmask( void )
 {
-#ifdef SIG_SETMASK
+#if defined(SIG_SETMASK)
   return SIG_SETMASK;
 #else
   return 0;
 #endif
 }
 
-#ifndef _WIN32
+#if !defined(_WIN32)
 INLINE size_t __hscore_sizeof_siginfo_t (void)
 {
     return sizeof(siginfo_t);
@@ -477,7 +477,7 @@ INLINE size_t __hscore_sizeof_siginfo_t (void)
 INLINE int
 __hscore_f_getfl( void )
 {
-#ifdef F_GETFL
+#if defined(F_GETFL)
   return F_GETFL;
 #else
   return 0;
@@ -487,7 +487,7 @@ __hscore_f_getfl( void )
 INLINE int
 __hscore_f_setfl( void )
 {
-#ifdef F_SETFL
+#if defined(F_SETFL)
   return F_SETFL;
 #else
   return 0;
@@ -497,7 +497,7 @@ __hscore_f_setfl( void )
 INLINE int
 __hscore_f_setfd( void )
 {
-#ifdef F_SETFD
+#if defined(F_SETFD)
   return F_SETFD;
 #else
   return 0;
@@ -507,7 +507,7 @@ __hscore_f_setfd( void )
 INLINE long
 __hscore_fd_cloexec( void )
 {
-#ifdef FD_CLOEXEC
+#if defined(FD_CLOEXEC)
   return FD_CLOEXEC;
 #else
   return 0;
@@ -518,7 +518,7 @@ __hscore_fd_cloexec( void )
 extern void* __hscore_get_saved_termios(int fd);
 extern void __hscore_set_saved_termios(int fd, void* ts);
 
-#ifdef _WIN32
+#if defined(_WIN32)
 INLINE int __hscore_open(wchar_t *file, int how, mode_t mode) {
        if ((how & O_WRONLY) || (how & O_RDWR) || (how & O_APPEND))
          return _wsopen(file,how | _O_NOINHERIT,_SH_DENYNO,mode);
index a1fce3a..7bcfa19 100644 (file)
@@ -4,32 +4,32 @@
 #define IEEE_FLOATING_POINT 1
 
    /* Radix of exponent representation */
-#ifndef FLT_RADIX
+#if !defined(FLT_RADIX)
 # define FLT_RADIX 2
 #endif
 
    /* Number of base-FLT_RADIX digits in the significand of a float */
-#ifndef FLT_MANT_DIG
+#if !defined(FLT_MANT_DIG)
 # define FLT_MANT_DIG 24
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised float */
-#ifndef FLT_MIN_EXP
+#if !defined(FLT_MIN_EXP)
 #  define FLT_MIN_EXP (-125)
 #endif
    /* Maximum int x such that FLT_RADIX**(x-1) is a representable float */
-#ifndef FLT_MAX_EXP
+#if !defined(FLT_MAX_EXP)
 # define FLT_MAX_EXP 128
 #endif
 
    /* Number of base-FLT_RADIX digits in the significand of a double */
-#ifndef DBL_MANT_DIG
+#if !defined(DBL_MANT_DIG)
 # define DBL_MANT_DIG 53
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised double */
-#ifndef DBL_MIN_EXP
+#if !defined(DBL_MIN_EXP)
 #  define DBL_MIN_EXP (-1021)
 #endif
    /* Maximum int x such that FLT_RADIX**(x-1) is a representable double */
-#ifndef DBL_MAX_EXP
+#if !defined(DBL_MAX_EXP)
 # define DBL_MAX_EXP 1024
 #endif
index 3adb7eb..0d7b2ae 100644 (file)
@@ -180,14 +180,14 @@ foreign import ccall unsafe "removeLibrarySearchPath" c_removeLibrarySearchPath
 #include "ghcautoconf.h"
 
 cLeadingUnderscore :: Bool
-#ifdef LEADING_UNDERSCORE
+#if defined(LEADING_UNDERSCORE)
 cLeadingUnderscore = True
 #else
 cLeadingUnderscore = False
 #endif
 
 isWindowsHost :: Bool
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 isWindowsHost = True
 #else
 isWindowsHost = False
index 9341b6c..629f116 100644 (file)
@@ -5,7 +5,7 @@ import Control.Concurrent
 import Control.Exception
 import System.Mem.Weak  ( deRefWeak )
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 import System.Posix.Signals
 #endif
 
index c7dcc8c..f2b4355 100644 (file)
@@ -188,7 +188,7 @@ createAdjustor (int cconv,
 #include <string.h>
 #endif
 
-#ifdef LEADING_UNDERSCORE
+#if defined(LEADING_UNDERSCORE)
 #define UNDERSCORE "_"
 #else 
 #define UNDERSCORE ""
@@ -1057,7 +1057,7 @@ TODO: Depending on how much allocation overhead stgMallocBytes uses for
         AdjustorStub *adjustorStub;
         int sz = 0, extra_sz, total_sz;
 
-#ifdef FUNDESCS
+#if defined(FUNDESCS)
         adjustorStub = stgMallocBytes(sizeof(AdjustorStub), "createAdjustor");
 #else
         adjustorStub = allocateExec(sizeof(AdjustorStub),&code);
@@ -1066,7 +1066,7 @@ TODO: Depending on how much allocation overhead stgMallocBytes uses for
             
         adjustorStub->code = (void*) &adjustorCode;
 
-#ifdef FUNDESCS
+#if defined(FUNDESCS)
             // function descriptors are a cool idea.
             // We don't need to generate any code at runtime.
         adjustorStub->toc = adjustorStub;
index 1713acb..ba08548 100644 (file)
@@ -88,7 +88,7 @@ adjustorCode:
     
         /* set up stack frame */
     LOAD    r12, FRAMESIZE_OFF(r2)
-#ifdef powerpc64_HOST_ARCH
+#if defined(powerpc64_HOST_ARCH)
     stdux   r1, r1, r12
 #else   
     stwux   r1, r1, r12
@@ -162,7 +162,7 @@ L2:
 #define FRAMESIZE_OFF   (HEADER_BYTES + 2*WS)
 #define ARGWORDS_OFF    (HEADER_BYTES + 3*WS)
 
-#ifdef LEADING_UNDERSCORE
+#if defined(LEADING_UNDERSCORE)
     .globl _adjustorCode
 _adjustorCode:
 #else
index 4c34f0f..f14bb8f 100644 (file)
@@ -235,7 +235,7 @@ stg_PAP_apply /* no args => explicit stack */
   // profiling
   TICK_ENT_PAP();
   LDV_ENTER(pap);
-#ifdef PROFILING
+#if defined(PROFILING)
   ccall enterFunCCS(BaseReg "ptr", StgHeader_ccs(pap) "ptr");
 #endif
 
@@ -271,7 +271,7 @@ for:
   // Off we go!
   TICK_ENT_VIA_NODE();
 
-#ifdef NO_ARG_REGS
+#if defined(NO_ARG_REGS)
   jump %GET_ENTRY(UNTAG(R1)) [R1];
 #else
       W_ info;
@@ -349,7 +349,7 @@ for:
   // Off we go!
   TICK_ENT_VIA_NODE();
 
-#ifdef NO_ARG_REGS
+#if defined(NO_ARG_REGS)
   jump %GET_ENTRY(UNTAG(R1)) [R1];
 #else
       W_ info;
@@ -419,7 +419,7 @@ for:
   // Off we go!
   TICK_ENT_VIA_NODE();
 
-#ifdef NO_ARG_REGS
+#if defined(NO_ARG_REGS)
   jump %GET_ENTRY(UNTAG(R1)) [R1];
 #else
       W_ info;
index f225c4e..d2a9306 100644 (file)
@@ -9,14 +9,14 @@
 #pragma once
 
 // canned slow entry points, indexed by arg type (ARG_P, ARG_PP, etc.)
-#ifdef IN_STG_CODE
+#if defined(IN_STG_CODE)
 extern RTS_PRIVATE StgWord stg_ap_stack_entries[];
 #else
 extern RTS_PRIVATE StgFun *stg_ap_stack_entries[];
 #endif
 
 // canned register save code for heap check failure in a function
-#ifdef IN_STG_CODE
+#if defined(IN_STG_CODE)
 extern RTS_PRIVATE StgWord stg_stack_save_entries[];
 #else
 extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
index b1d2636..a414051 100644 (file)
@@ -40,7 +40,7 @@
 // arguments to an existing PAP, we must construct the CCS for the new PAP as if
 // we had entered the existing PAP from the current CCS.  Otherwise, we lose any
 // stack information in the existing PAP.  See #5654, and the test T5654b-O0.
-#ifdef PROFILING
+#if defined(PROFILING)
 #define ENTER_FUN_CCS_NEW_PAP(pap) \
   ccall enterFunCCS(BaseReg "ptr", StgHeader_ccs(pap) "ptr");
 #else
index e7907ef..1023be8 100644 (file)
@@ -306,7 +306,7 @@ initCapability (Capability *cap, uint32_t i)
     cap->pinned_object_block = NULL;
     cap->pinned_object_blocks = NULL;
 
-#ifdef PROFILING
+#if defined(PROFILING)
     cap->r.rCCCS = CCS_SYSTEM;
 #else
     cap->r.rCCCS = NULL;
@@ -368,7 +368,7 @@ void initCapabilities (void)
 
 #if defined(THREADED_RTS)
 
-#ifndef REG_Base
+#if !defined(REG_Base)
     // We can't support multiple CPUs if BaseReg is not a register
     if (RtsFlags.ParFlags.nCapabilities > 1) {
         errorBelch("warning: multiple CPUs not supported in this build, reverting to 1");
@@ -575,7 +575,7 @@ releaseCapability_ (Capability* cap,
         }
     }
 
-#ifdef PROFILING
+#if defined(PROFILING)
     cap->r.rCCCS = CCS_IDLE;
 #endif
     last_free_capability[cap->node] = cap;
@@ -806,7 +806,7 @@ void waitForCapability (Capability **pCap, Task *task)
         cap = waitForReturnCapability(task);
     }
 
-#ifdef PROFILING
+#if defined(PROFILING)
     cap->r.rCCCS = CCS_SYSTEM;
 #endif
 
@@ -898,7 +898,7 @@ yieldCapability (Capability** pCap, Task *task, bool gcAllowed)
     debugTrace(DEBUG_sched, "resuming capability %d", cap->no);
     ASSERT(cap->running_task == task);
 
-#ifdef PROFILING
+#if defined(PROFILING)
     cap->r.rCCCS = CCS_SYSTEM;
 #endif
 
index 515c2da..5ab693e 100644 (file)
@@ -387,7 +387,7 @@ typedef struct PutMVar_ {
     struct PutMVar_ *link;
 } PutMVar;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 
 INLINE_HEADER bool emptyInbox(Capability *cap);
 
@@ -464,7 +464,7 @@ contextSwitchCapability (Capability *cap)
     cap->context_switch = 1;
 }
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 
 INLINE_HEADER bool emptyInbox(Capability *cap)
 {
index ac7f78b..c3958e9 100644 (file)
@@ -246,7 +246,7 @@ static void searchHeapBlocks (HashTable *addrs, bdescr *bd)
     }
 }
 
-#ifdef PROFILING
+#if defined(PROFILING)
 //
 // Do not unload the object if the CCS tree refers to a CCS or CC which
 // originates in the object.
@@ -324,7 +324,7 @@ void checkUnload (StgClosure *static_objects)
       }
   }
 
-#ifdef PROFILING
+#if defined(PROFILING)
   /* Traverse the cost centre tree, calling checkAddress on each CCS/CC */
   searchCostCentres(addrs, CCS_MAIN);
 
index 5290d95..f20fdbf 100644 (file)
@@ -285,7 +285,7 @@ stg_compactAddWithSharingzh (P_ compact, P_ p)
     call stg_compactAddWorkerzh(compact, p, pp);
     ccall freeHashTable(StgCompactNFData_hash(compact), NULL);
     StgCompactNFData_hash(compact) = NULL;
-#ifdef DEBUG
+#if defined(DEBUG)
     ccall verifyCompact(compact);
 #endif
     return (P_[pp]);
@@ -305,7 +305,7 @@ stg_compactAddzh (P_ compact, P_ p)
     W_ pp; // See Note [compactAddWorker result]
     pp = compact + SIZEOF_StgHeader + OFFSET_StgCompactNFData_result;
     call stg_compactAddWorkerzh(compact, p, pp);
-#ifdef DEBUG
+#if defined(DEBUG)
     ccall verifyCompact(compact);
 #endif
     return (P_[pp]);
index f9e42b7..e133e3a 100644 (file)
@@ -8,7 +8,7 @@
  * $Date: 2004/09/03 15:28:19 $
  * ---------------------------------------------------------------------------*/
 
-#ifdef DEBUG
+#if defined(DEBUG)
 
 #include "PosixSource.h"
 #include "Rts.h"
index 5adff2e..80527f7 100644 (file)
@@ -8,7 +8,7 @@
 
 #pragma once
 
-#ifdef DEBUG
+#if defined(DEBUG)
 
 RTS_PRIVATE int  disInstr   ( StgBCO *bco, int pc );
 RTS_PRIVATE void disassemble( StgBCO *bco );
index f8e11ee..ac21bea 100644 (file)
@@ -30,7 +30,7 @@ typedef struct {
 static HashTable *obj_hash;
 static HashTable *fd_hash;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static Mutex file_lock_mutex;
 #endif
 
@@ -54,7 +54,7 @@ initFileLocking(void)
 {
     obj_hash = allocHashTable_(hashLock, cmpLocks);
     fd_hash  = allocHashTable(); /* ordinary word-based table */
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&file_lock_mutex);
 #endif
 }
@@ -70,7 +70,7 @@ freeFileLocking(void)
 {
     freeHashTable(obj_hash, freeLock);
     freeHashTable(fd_hash,  NULL);
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     closeMutex(&file_lock_mutex);
 #endif
 }
index b5da6d9..66c17d0 100644 (file)
@@ -41,7 +41,7 @@ typedef enum {
     MaxStoreKey
 } StoreKey;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 Mutex globalStoreLock;
 #endif
 
@@ -54,7 +54,7 @@ initGlobalStore(void)
     for (i=0; i < MaxStoreKey; i++) {
         store[i] = 0;
     }
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&globalStoreLock);
 #endif
 }
@@ -63,7 +63,7 @@ void
 exitGlobalStore(void)
 {
     uint32_t i;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     closeMutex(&globalStoreLock);
 #endif
     for (i=0; i < MaxStoreKey; i++) {
@@ -78,13 +78,13 @@ static StgStablePtr getOrSetKey(StoreKey key, StgStablePtr ptr)
 {
     StgStablePtr ret = store[key];
     if(ret==0) {
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         ACQUIRE_LOCK(&globalStoreLock);
         ret = store[key];
         if(ret==0) {
 #endif
             store[key] = ret = ptr;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         }
         RELEASE_LOCK(&globalStoreLock);
 #endif
index 9bfe37e..001e5f6 100644 (file)
@@ -14,7 +14,7 @@
 #include "Updates.h"
 #include "SMPClosureOps.h"
 
-#ifdef __PIC__
+#if defined(__PIC__)
 import pthread_mutex_unlock;
 #endif
 import EnterCriticalSection;
@@ -404,7 +404,7 @@ __stg_gc_fun /* explicit stack */
         size = BITMAP_SIZE(StgFunInfoExtra_bitmap(info));
     } else {
         if (type == ARG_GEN_BIG) {
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
             // bitmap field holds an offset
             size = StgLargeBitmap_size(
                       TO_W_(StgFunInfoExtraRev_bitmap_offset(info))
@@ -417,7 +417,7 @@ __stg_gc_fun /* explicit stack */
         }
     }
 
-#ifdef NO_ARG_REGS
+#if defined(NO_ARG_REGS)
     // we don't have to save any registers away
     Sp_adj(-3);
     Sp(2) = R1;
@@ -457,7 +457,7 @@ INFO_TABLE_RET ( stg_gc_fun, RET_FUN )
 {
     R1 = Sp(2);
     Sp_adj(3);
-#ifdef NO_ARG_REGS
+#if defined(NO_ARG_REGS)
     // Minor optimisation: there are no argument registers to load up,
     // so we can just jump straight to the function's entry point.
     jump %GET_ENTRY(UNTAG(R1)) [R1];
@@ -647,7 +647,7 @@ stg_block_throwto (P_ tso, P_ exception)
     }
 }
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 INFO_TABLE_RET ( stg_block_async, RET_SMALL, W_ info_ptr, W_ ares )
     return ()
 {
index f2cd200..7575e34 100644 (file)
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
 #include <string.h>
 #include <assert.h>
 
-#ifdef HAVE_SYS_TYPES_H
+#if defined(HAVE_SYS_TYPES_H)
 #include <sys/types.h>
 #endif
 
-#ifdef HAVE_SYS_STAT_H
+#if defined(HAVE_SYS_STAT_H)
 #include <sys/stat.h>
 #endif
 
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
@@ -216,7 +216,7 @@ startupHpc(void)
     /* Make sure the directory is present;
      * conditional code for mkdir lifted from lndir.c
      */
-#ifdef WIN32
+#if defined(WIN32)
     mkdir(hpc_tixdir);
 #else
     mkdir(hpc_tixdir,0777);
index 5a39567..4926d1d 100644 (file)
@@ -25,7 +25,7 @@
 #include "Threads.h"
 
 #include <string.h>     /* for memcpy */
-#ifdef HAVE_ERRNO_H
+#if defined(HAVE_ERRNO_H)
 #include <errno.h>
 #endif
 
@@ -83,7 +83,7 @@
 #define SAVE_STACK_POINTERS                     \
     cap->r.rCurrentTSO->stackobj->sp = Sp;
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #define LOAD_THREAD_STATE()                     \
     LOAD_STACK_POINTERS                         \
     cap->r.rCCCS = cap->r.rCurrentTSO->prof.cccs;
@@ -92,7 +92,7 @@
     LOAD_STACK_POINTERS
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #define SAVE_THREAD_STATE()                     \
     SAVE_STACK_POINTERS                         \
     cap->r.rCurrentTSO->prof.cccs = cap->r.rCCCS;
@@ -131,7 +131,7 @@ allocate_NONUPD (Capability *cap, int n_words)
 int rts_stop_next_breakpoint = 0;
 int rts_stop_on_exception = 0;
 
-#ifdef INTERP_STATS
+#if defined(INTERP_STATS)
 
 /* Hacky stats, for tuning the interpreter ... */
 int it_unknown_entries[N_CLOSURE_TYPES];
@@ -214,7 +214,7 @@ void interp_shutdown ( void )
 
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 //
 // Build a zero-argument PAP with the current CCS
@@ -287,7 +287,7 @@ interpretBCO (Capability* cap)
              debugBelch(
              "\n---------------------------------------------------------------\n");
              debugBelch("Entering the interpreter, Sp = %p\n", Sp);
-#ifdef PROFILING
+#if defined(PROFILING)
              fprintCCS(stderr, cap->r.rCCCS);
              debugBelch("\n");
 #endif
@@ -356,7 +356,7 @@ eval_obj:
              "\n---------------------------------------------------------------\n");
              debugBelch("Evaluating: "); printObj(obj);
              debugBelch("Sp = %p\n", Sp);
-#ifdef PROFILING
+#if defined(PROFILING)
              fprintCCS(stderr, cap->r.rCCCS);
              debugBelch("\n");
 #endif
@@ -394,7 +394,7 @@ eval_obj:
     case FUN_1_1:
     case FUN_0_2:
     case FUN_STATIC:
-#ifdef PROFILING
+#if defined(PROFILING)
         if (cap->r.rCCCS != obj->header.prof.ccs) {
             tagged_obj =
                 newEmptyPAP(cap, tagged_obj, get_fun_itbl(obj)->f.arity);
@@ -403,7 +403,7 @@ eval_obj:
         break;
 
     case PAP:
-#ifdef PROFILING
+#if defined(PROFILING)
         if (cap->r.rCCCS != obj->header.prof.ccs) {
             tagged_obj = copyPAP(cap, (StgPAP *)obj);
         }
@@ -412,7 +412,7 @@ eval_obj:
 
     case BCO:
         ASSERT(((StgBCO *)obj)->arity > 0);
-#ifdef PROFILING
+#if defined(PROFILING)
         if (cap->r.rCCCS != obj->header.prof.ccs) {
             tagged_obj = newEmptyPAP(cap, tagged_obj, ((StgBCO *)obj)->arity);
         }
@@ -435,7 +435,7 @@ eval_obj:
             RETURN_TO_SCHEDULER(ThreadInterpret, StackOverflow);
         }
 
-#ifdef PROFILING
+#if defined(PROFILING)
         // restore the CCCS after evaluating the AP
         Sp -= 2;
         Sp[1] = (W_)cap->r.rCCCS;
@@ -464,7 +464,7 @@ eval_obj:
     }
 
     default:
-#ifdef INTERP_STATS
+#if defined(INTERP_STATS)
     {
         int j;
 
@@ -480,7 +480,7 @@ eval_obj:
                  debugBelch("evaluating unknown closure -- yielding to sched\n");
                  printObj(obj);
             );
-#ifdef PROFILING
+#if defined(PROFILING)
         // restore the CCCS after evaluating the closure
         Sp -= 2;
         Sp[1] = (W_)cap->r.rCCCS;
@@ -505,7 +505,7 @@ do_return:
              "\n---------------------------------------------------------------\n");
              debugBelch("Returning: "); printObj(obj);
              debugBelch("Sp = %p\n", Sp);
-#ifdef PROFILING
+#if defined(PROFILING)
              fprintCCS(stderr, cap->r.rCCCS);
              debugBelch("\n");
 #endif
@@ -652,7 +652,7 @@ do_return_unboxed:
              "\n---------------------------------------------------------------\n");
              debugBelch("Returning: "); printObj(obj);
              debugBelch("Sp = %p\n", Sp);
-#ifdef PROFILING
+#if defined(PROFILING)
              fprintCCS(stderr, cap->r.rCCCS);
              debugBelch("\n");
 #endif
@@ -744,7 +744,7 @@ do_apply:
                 }
                 obj = UNTAG_CLOSURE(pap->fun);
 
-#ifdef PROFILING
+#if defined(PROFILING)
                 enterFunCCS(&cap->r, pap->header.prof.ccs);
 #endif
                 goto run_BCO_fun;
@@ -755,7 +755,7 @@ do_apply:
                     Sp[i] = (W_)pap->payload[i];
                 }
                 obj = UNTAG_CLOSURE(pap->fun);
-#ifdef PROFILING
+#if defined(PROFILING)
                 enterFunCCS(&cap->r, pap->header.prof.ccs);
 #endif
                 goto run_BCO_fun;
@@ -936,13 +936,13 @@ run_BCO:
         register StgWord16* instrs    = (StgWord16*)(bco->instrs->payload);
         register StgWord*  literals   = (StgWord*)(&bco->literals->payload[0]);
         register StgPtr*   ptrs       = (StgPtr*)(&bco->ptrs->payload[0]);
-#ifdef DEBUG
+#if defined(DEBUG)
         int bcoSize;
         bcoSize = bco->instrs->bytes / sizeof(StgWord16);
 #endif
         IF_DEBUG(interpreter,debugBelch("bcoSize = %d\n", bcoSize));
 
-#ifdef INTERP_STATS
+#if defined(INTERP_STATS)
         it_lastopc = 0; /* no opcode */
 #endif
 
@@ -969,7 +969,7 @@ run_BCO:
 
         INTERP_TICK(it_insns);
 
-#ifdef INTERP_STATS
+#if defined(INTERP_STATS)
         ASSERT( (int)instrs[bciPtr] >= 0 && (int)instrs[bciPtr] < 27 );
         it_ofreq[ (int)instrs[bciPtr] ] ++;
         it_oofreq[ it_lastopc ][ (int)instrs[bciPtr] ] ++;
@@ -987,7 +987,7 @@ run_BCO:
         case bci_BRK_FUN:
         {
             int arg1_brk_array, arg2_array_index, arg3_module_uniq;
-#ifdef PROFILING
+#if defined(PROFILING)
             int arg4_cc;
 #endif
             StgArrBytes *breakPoints;
@@ -1005,7 +1005,7 @@ run_BCO:
             arg1_brk_array      = BCO_GET_LARGE_ARG;
             arg2_array_index    = BCO_NEXT;
             arg3_module_uniq    = BCO_GET_LARGE_ARG;
-#ifdef PROFILING
+#if defined(PROFILING)
             arg4_cc             = BCO_GET_LARGE_ARG;
 #else
             BCO_GET_LARGE_ARG;
@@ -1017,7 +1017,7 @@ run_BCO:
             returning_from_break =
                 cap->r.rCurrentTSO->flags & TSO_STOPPED_ON_BREAKPOINT;
 
-#ifdef PROFILING
+#if defined(PROFILING)
             cap->r.rCCCS = pushCostCentre(cap->r.rCCCS,
                                           (CostCentre*)BCO_LIT(arg4_cc));
 #endif
@@ -1158,7 +1158,7 @@ run_BCO:
             Sp -= 2;
             Sp[1] = BCO_PTR(o_bco);
             Sp[0] = (W_)&stg_ctoi_R1p_info;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1171,7 +1171,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_R1unpt_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1184,7 +1184,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_R1n_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1197,7 +1197,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_F1_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1210,7 +1210,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_D1_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1223,7 +1223,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_L1_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1236,7 +1236,7 @@ run_BCO:
             Sp[-2] = (W_)&stg_ctoi_V_info;
             Sp[-1] = BCO_PTR(o_bco);
             Sp -= 2;
-#ifdef PROFILING
+#if defined(PROFILING)
             Sp -= 2;
             Sp[1] = (W_)cap->r.rCCCS;
             Sp[0] = (W_)&stg_restore_cccs_info;
@@ -1369,7 +1369,7 @@ run_BCO:
 
             // The function should be a BCO
             if (get_itbl(pap->fun)->type != BCO) {
-#ifdef DEBUG
+#if defined(DEBUG)
                 printClosure(pap->fun);
 #endif
                 barf("bci_MKPAP");
index 38a3563..7899416 100644 (file)
@@ -7,7 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "PosixSource.h"
 #include "Rts.h"
index 5c0a5a4..e746d6c 100644 (file)
@@ -9,7 +9,7 @@
 
 #pragma once
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "ProfHeap.h"
 
index a16ea59..33a40a1 100644 (file)
@@ -281,7 +281,7 @@ static bool memory_read(Dwfl *dwfl STG_UNUSED, Dwarf_Addr addr,
 
 static bool set_initial_registers(Dwfl_Thread *thread, void *arg);
 
-#ifdef x86_64_HOST_ARCH
+#if defined(x86_64_HOST_ARCH)
 static bool set_initial_registers(Dwfl_Thread *thread,
                                   void *arg STG_UNUSED) {
     Dwarf_Word regs[17];
index b214e9c..11e69b1 100644 (file)
@@ -39,7 +39,7 @@
 // get protos for is*()
 #include <ctype.h>
 
-#ifdef HAVE_SYS_TYPES_H
+#if defined(HAVE_SYS_TYPES_H)
 #include <sys/types.h>
 #endif
 
@@ -49,7 +49,7 @@
 #include <stdio.h>
 #include <assert.h>
 
-#ifdef HAVE_SYS_STAT_H
+#if defined(HAVE_SYS_STAT_H)
 #include <sys/stat.h>
 #endif
 
@@ -170,7 +170,7 @@ ObjectCode *objects = NULL;     /* initially empty */
    to be actually freed via checkUnload() */
 ObjectCode *unloaded_objects = NULL; /* initially empty */
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 /* This protects all the Linker's global state except unloaded_objects */
 Mutex linker_mutex;
 /*
@@ -395,7 +395,7 @@ static int linker_init_done = 0 ;
 static void *dl_prog_handle;
 static regex_t re_invalid;
 static regex_t re_realso;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static Mutex dl_mutex; // mutex to protect dlopen/dlerror critical section
 #endif
 #endif
@@ -516,7 +516,7 @@ exitLinker( void ) {
    if (linker_init_done == 1) {
       regfree(&re_invalid);
       regfree(&re_realso);
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
       closeMutex(&dl_mutex);
 #endif
    }
@@ -524,7 +524,7 @@ exitLinker( void ) {
    if (linker_init_done == 1) {
        freeHashTable(symhash, free);
    }
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
    closeMutex(&linker_mutex);
 #endif
 }
@@ -879,7 +879,7 @@ SymbolAddr* loadSymbol(SymbolName *lbl, RtsSymbolInfo *pinfo) {
             return NULL;
         }
 
-#ifdef PROFILING
+#if defined(PROFILING)
         // collect any new cost centres & CCSs
         // that were defined during runInit
         initProfiling2();
@@ -936,7 +936,7 @@ StgStablePtr foreignExportStablePtr (StgPtr p)
  * Debugging aid: look in GHCi's object symbol tables for symbols
  * within DELTA bytes of the specified address, and show their names.
  */
-#ifdef DEBUG
+#if defined(DEBUG)
 void ghci_enquire ( SymbolAddr* addr );
 
 void ghci_enquire(SymbolAddr* addr)
@@ -1395,7 +1395,7 @@ preloadObjectFile (pathchar *path)
 
    oc = mkOc(path, image, fileSize, true, NULL, misalignment);
 
-#ifdef OBJFORMAT_MACHO
+#if defined(OBJFORMAT_MACHO)
    if (ocVerifyImage_MachO( oc ))
        ocInit_MachO( oc );
 #endif
@@ -1594,7 +1594,7 @@ static HsInt resolveObjs_ (void)
         }
     }
 
-#ifdef PROFILING
+#if defined(PROFILING)
     // collect any new cost centres & CCSs that were defined during runInit
     initProfiling2();
 #endif
index 0bea626..0508a20 100644 (file)
    Send a message to another Capability
    ------------------------------------------------------------------------- */
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 
 void sendMessage(Capability *from_cap, Capability *to_cap, Message *msg)
 {
     ACQUIRE_LOCK(&to_cap->lock);
 
-#ifdef DEBUG
+#if defined(DEBUG)
     {
         const StgInfoTable *i = msg->header.info;
         if (i != &stg_MSG_THROWTO_info &&
@@ -60,7 +60,7 @@ void sendMessage(Capability *from_cap, Capability *to_cap, Message *msg)
    Handle a message
    ------------------------------------------------------------------------- */
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 
 void
 executeMessage (Capability *cap, Message *m)
@@ -207,7 +207,7 @@ loop:
     {
         owner = (StgTSO*)p;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         if (owner->cap != cap) {
             sendMessage(cap, owner->cap, (Message*)msg);
             debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d",
@@ -271,7 +271,7 @@ loop:
 
         ASSERT(owner != END_TSO_QUEUE);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         if (owner->cap != cap) {
             sendMessage(cap, owner->cap, (Message*)msg);
             debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d",
index a6637ea..e60f19d 100644 (file)
@@ -13,7 +13,7 @@
 uint32_t messageBlackHole(Capability *cap, MessageBlackHole *msg);
 StgTSO * blackHoleOwner (StgClosure *bh);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 void executeMessage (Capability *cap, Message *m);
 void sendMessage    (Capability *from_cap, Capability *to_cap, Message *msg);
 #endif
index 1583911..d6ea0d4 100644 (file)
@@ -28,7 +28,7 @@ struct Pool_ {
     /* how many things are currently allocated? (sum of lengths of available and
      * taken lists) */
     uint32_t current_size;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     /* signaled when a thing is released */
     Condition cond;
 #endif
@@ -37,7 +37,7 @@ struct Pool_ {
 
     PoolEntry *available;
     PoolEntry *taken;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     /* protects entire data structure */
     Mutex mutex;
 #endif
@@ -53,7 +53,7 @@ Pool *poolInit(uint32_t max_size, uint32_t desired_size,
     pool->free_fn = free_fn;
     pool->available = NULL;
     pool->taken = NULL;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&pool->mutex);
     initCondition(&pool->cond);
 #endif
@@ -65,7 +65,7 @@ int poolFree(Pool *pool) {
         return 1;
 
     poolSetMaxSize(pool, 0);
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     closeCondition(&pool->cond);
     closeMutex(&pool->mutex);
 #endif
@@ -145,7 +145,7 @@ void *poolTake(Pool *pool) {
     while (ent == NULL) {
         ent = poolTryTake_(pool);
         if (!ent) {
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
             waitCondition(&pool->cond, &pool->mutex);
 #else
             barf("Tried to take from an empty pool");
@@ -171,7 +171,7 @@ void poolRelease(Pool *pool, void *thing) {
             } else {
                 ent->next = pool->available;
                 pool->available = ent;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
                 signalCondition(&pool->cond);
 #endif
             }
index ba36c10..74b6b08 100644 (file)
@@ -29,7 +29,7 @@ PRELUDE_CLOSURE(ghczmprim_GHCziTypes_False_closure);
 PRELUDE_CLOSURE(base_GHCziPack_unpackCString_closure);
 PRELUDE_CLOSURE(base_GHCziWeak_runFinalizzerBatch_closure);
 
-#ifdef IN_STG_CODE
+#if defined(IN_STG_CODE)
 extern W_ ZCMain_main_closure[];
 #else
 extern StgClosure ZCMain_main_closure;
index 37eee43..7dd88b8 100644 (file)
@@ -25,7 +25,7 @@
 #include "MachDeps.h"
 #include "SMPClosureOps.h"
 
-#ifdef __PIC__
+#if defined(__PIC__)
 import pthread_mutex_lock;
 import pthread_mutex_unlock;
 #endif
@@ -36,7 +36,7 @@ import CLOSURE ghczmprim_GHCziTypes_False_closure;
 #if defined(USE_MINIINTERPRETER) || !defined(mingw32_HOST_OS)
 import CLOSURE sm_mutex;
 #endif
-#ifdef PROFILING
+#if defined(PROFILING)
 import CLOSURE CCS_MAIN;
 #endif
 
@@ -605,7 +605,7 @@ stg_atomicModifyMutVarzh ( gcptr mv, gcptr f )
   retry:
     x = StgMutVar_var(mv);
     StgThunk_payload(z,1) = x;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     (h) = prim %cmpxchgW(mv + SIZEOF_StgHeader + OFFSET_StgMutVar_var, x, y);
     if (h != x) { goto retry; }
 #else
@@ -714,7 +714,7 @@ stg_finalizzeWeakzh ( gcptr w )
     list = StgWeak_cfinalizers(w);
 
     // kill it
-#ifdef PROFILING
+#if defined(PROFILING)
     // @LDV profiling
     // A weak pointer is inherently used, so we do not need to call
     // LDV_recordDead_FILL_SLOP_DYNAMIC():
@@ -2072,7 +2072,7 @@ write_nptrs:
 
 stg_waitReadzh ( W_ fd )
 {
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("waitRead# on threaded RTS") never returns;
 #else
 
@@ -2088,7 +2088,7 @@ stg_waitReadzh ( W_ fd )
 
 stg_waitWritezh ( W_ fd )
 {
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("waitWrite# on threaded RTS") never returns;
 #else
 
@@ -2106,21 +2106,21 @@ stg_waitWritezh ( W_ fd )
 STRING(stg_delayzh_malloc_str, "stg_delayzh")
 stg_delayzh ( W_ us_delay )
 {
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     W_ ares;
     CInt reqID;
 #else
     W_ t, prev, target;
 #endif
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("delay# on threaded RTS") never returns;
 #else
 
     ASSERT(StgTSO_why_blocked(CurrentTSO) == NotBlocked::I16);
     StgTSO_why_blocked(CurrentTSO) = BlockedOnDelay::I16;
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 
     /* could probably allocate this on the heap instead */
     ("ptr" ares) = ccall stgMallocBytes(SIZEOF_StgAsyncIOResult,
@@ -2168,14 +2168,14 @@ while:
 }
 
 
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
 STRING(stg_asyncReadzh_malloc_str, "stg_asyncReadzh")
 stg_asyncReadzh ( W_ fd, W_ is_sock, W_ len, W_ buf )
 {
     W_ ares;
     CInt reqID;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("asyncRead# on threaded RTS") never returns;
 #else
 
@@ -2201,7 +2201,7 @@ stg_asyncWritezh ( W_ fd, W_ is_sock, W_ len, W_ buf )
     W_ ares;
     CInt reqID;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("asyncWrite# on threaded RTS") never returns;
 #else
 
@@ -2227,7 +2227,7 @@ stg_asyncDoProczh ( W_ proc, W_ param )
     W_ ares;
     CInt reqID;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ccall barf("asyncDoProc# on threaded RTS") never returns;
 #else
 
@@ -2356,7 +2356,7 @@ stg_traceCcszh ( P_ obj, P_ ret )
 {
     W_ ccs;
 
-#ifdef PROFILING
+#if defined(PROFILING)
     ccs = StgHeader_ccs(UNTAG(obj));
     ccall fprintCCS_stderr(ccs "ptr");
 #endif
@@ -2368,7 +2368,7 @@ stg_getSparkzh ()
 {
     W_ spark;
 
-#ifndef THREADED_RTS
+#if !defined(THREADED_RTS)
     return (0,ghczmprim_GHCziTypes_False_closure);
 #else
     ("ptr" spark) = ccall findSpark(MyCapability() "ptr");
@@ -2382,7 +2382,7 @@ stg_getSparkzh ()
 
 stg_clearCCSzh (P_ arg)
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     CCCS = CCS_MAIN;
 #endif
     jump stg_ap_v_fast(arg);
@@ -2391,7 +2391,7 @@ stg_clearCCSzh (P_ arg)
 stg_numSparkszh ()
 {
     W_ n;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     (n) = ccall dequeElements(Capability_sparks(MyCapability()));
 #else
     n = 0;
index 87b11e8..f077814 100644 (file)
 #include "Printer.h"
 #include "RtsUtils.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #include "Profiling.h"
 #endif
 
 #include <string.h>
 
-#ifdef DEBUG
+#if defined(DEBUG)
 
 #include "Disassembler.h"
 #include "Apply.h"
@@ -61,7 +61,7 @@ printStdObjHdr( const StgClosure *obj, char* tag )
 {
     debugBelch("%s(",tag);
     printPtr((StgPtr)obj->header.info);
-#ifdef PROFILING
+#if defined(PROFILING)
     debugBelch(", %s", obj->header.prof.ccs->cc->label);
 #endif
 }
@@ -146,7 +146,7 @@ printClosure( const StgClosure *obj )
     case FUN_STATIC:
         debugBelch("FUN/%d(",(int)itbl_to_fun_itbl(info)->f.arity);
         printPtr((StgPtr)obj->header.info);
-#ifdef PROFILING
+#if defined(PROFILING)
         debugBelch(", %s", obj->header.prof.ccs->cc->label);
 #endif
         printStdObjPayload(obj);
@@ -169,7 +169,7 @@ printClosure( const StgClosure *obj )
     case THUNK_1_1: case THUNK_0_2: case THUNK_2_0:
     case THUNK_STATIC:
             /* ToDo: will this work for THUNK_STATIC too? */
-#ifdef PROFILING
+#if defined(PROFILING)
             printThunkObject((StgThunk *)obj,GET_PROF_DESC(info));
 #else
             printThunkObject((StgThunk *)obj,"THUNK");
@@ -520,7 +520,7 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
                 debugBelch("stg_ap_ppppp_info\n" );
             } else if (c == (StgWord)&stg_ap_pppppp_info) {
                 debugBelch("stg_ap_pppppp_info\n" );
-#ifdef PROFILING
+#if defined(PROFILING)
             } else if (c == (StgWord)&stg_restore_cccs_info) {
                 debugBelch("stg_restore_cccs_info\n" );
                 fprintCCS(stderr, (CostCentreStack*)sp[1]);
@@ -624,7 +624,7 @@ const char *lookupGHCName( void *addr )
 /* Causing linking trouble on Win32 plats, so I'm
    disabling this for now.
 */
-#ifdef USING_LIBBFD
+#if defined(USING_LIBBFD)
 #    define PACKAGE 1
 #    define PACKAGE_VERSION 1
 /* Those PACKAGE_* defines are workarounds for bfd:
index 7d1bb81..dd268be 100644 (file)
@@ -20,7 +20,7 @@ const char  *      info_type       ( const StgClosure *closure );
 const char  *      info_type_by_ip ( const StgInfoTable *ip );
 const char  *      info_update_frame ( const StgClosure *closure );
 
-#ifdef DEBUG
+#if defined(DEBUG)
 extern void        printClosure    ( const StgClosure *obj );
 extern void        printStackChunk ( StgPtr sp, StgPtr spLim );
 extern void        printTSO        ( StgTSO *tso );
index 608b976..43801b8 100644 (file)
@@ -92,7 +92,7 @@ typedef struct {
 static Census *censuses = NULL;
 static uint32_t n_censuses = 0;
 
-#ifdef PROFILING
+#if defined(PROFILING)
 static void aggregateCensusInfo( void );
 #endif
 
@@ -110,7 +110,7 @@ closureIdentity( const StgClosure *p )
 {
     switch (RtsFlags.ProfFlags.doHeapProfile) {
 
-#ifdef PROFILING
+#if defined(PROFILING)
     case HEAP_BY_CCS:
         return p->header.prof.ccs;
     case HEAP_BY_MOD:
@@ -155,7 +155,7 @@ closureIdentity( const StgClosure *p )
 /* --------------------------------------------------------------------------
  * Profiling type predicates
  * ----------------------------------------------------------------------- */
-#ifdef PROFILING
+#if defined(PROFILING)
 STATIC_INLINE bool
 doingLDVProfiling( void )
 {
@@ -180,7 +180,7 @@ doingRetainerProfiling( void )
 // LDV_recordDead() may be called from elsewhere in the runtime system. E.g.,
 // when a thunk is replaced by an indirection object.
 
-#ifdef PROFILING
+#if defined(PROFILING)
 void
 LDV_recordDead( const StgClosure *c, uint32_t size )
 {
@@ -277,7 +277,7 @@ freeEra(Census *census)
 static void
 nextEra( void )
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingLDVProfiling()) {
         era++;
 
@@ -323,7 +323,7 @@ void initProfiling (void)
 
     prog = stgMallocBytes(strlen(prog_name) + 1, "initProfiling2");
     strcpy(prog, prog_name);
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     // on Windows, drop the .exe suffix if there is one
     {
         char *suff;
@@ -374,7 +374,7 @@ printSample(bool beginSample, StgDouble sampleValue)
 static void
 dumpCostCentresToEventLog(void)
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     CostCentre *cc, *next;
     for (cc = CC_LIST; cc != NULL; cc = next) {
         next = cc->link;
@@ -394,12 +394,12 @@ initHeapProfiling(void)
         return 0;
     }
 
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingLDVProfiling() && doingRetainerProfiling()) {
         errorBelch("cannot mix -hb and -hr");
         stg_exit(EXIT_FAILURE);
     }
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     // See Trac #12019.
     if (doingLDVProfiling() && RtsFlags.ParFlags.nCapabilities > 1) {
         errorBelch("-hb cannot be used with multiple capabilities");
@@ -410,7 +410,7 @@ initHeapProfiling(void)
 
     // we only count eras if we're doing LDV profiling.  Otherwise era
     // is fixed at zero.
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingLDVProfiling()) {
         era = 1;
     } else
@@ -430,7 +430,7 @@ initHeapProfiling(void)
     /* initProfilingLogFile(); */
     fprintf(hp_file, "JOB \"%s", prog_name);
 
-#ifdef PROFILING
+#if defined(PROFILING)
     {
         int count;
         for(count = 1; count < prog_argc; count++)
@@ -451,7 +451,7 @@ initHeapProfiling(void)
     printSample(true, 0);
     printSample(false, 0);
 
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingRetainerProfiling()) {
         initRetainerProfiling();
     }
@@ -472,13 +472,13 @@ endHeapProfiling(void)
         return;
     }
 
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingRetainerProfiling()) {
         endRetainerProfiling();
     }
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingLDVProfiling()) {
         uint32_t t;
         LdvCensusKillAll();
@@ -489,7 +489,7 @@ endHeapProfiling(void)
     }
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
     if (doingLDVProfiling()) {
         uint32_t t;
         if (RtsFlags.ProfFlags.bioSelector != NULL) {
@@ -516,7 +516,7 @@ endHeapProfiling(void)
 
 
 
-#ifdef PROFILING
+#if defined(PROFILING)
 static size_t
 buf_append(char *p, const char *q, char *end)
 {
@@ -651,7 +651,7 @@ closureSatisfiesConstraints( const StgClosure* p )
 /* -----------------------------------------------------------------------------
  * Aggregate the heap census info for biographical profiling
  * -------------------------------------------------------------------------- */
-#ifdef PROFILING
+#if defined(PROFILING)
 static void
 aggregateCensusInfo( void )
 {
@@ -769,7 +769,7 @@ dumpCensus( Census *census )
     printSample(true, census->time);
     traceHeapProfSampleBegin(era);
 
-#ifdef PROFILING
+#if defined(PROFILING)
     /* change typecast to uint64_t to remove
      * print formatting warning. See #12636 */
     if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV) {
@@ -793,7 +793,7 @@ dumpCensus( Census *census )
 
     for (ctr = census->ctrs; ctr != NULL; ctr = ctr->next) {
 
-#ifdef PROFILING
+#if defined(PROFILING)
         if (RtsFlags.ProfFlags.bioSelector != NULL) {
             count = 0;
             if (strMatchesSelector("lag", RtsFlags.ProfFlags.bioSelector))
@@ -824,7 +824,7 @@ dumpCensus( Census *census )
         }
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
         switch (RtsFlags.ProfFlags.doHeapProfile) {
         case HEAP_BY_CCS:
             fprint_ccs(hp_file, (CostCentreStack *)ctr->identity,
@@ -876,7 +876,7 @@ dumpCensus( Census *census )
 
 static void heapProfObject(Census *census, StgClosure *p, size_t size,
                            bool prim
-#ifndef PROFILING
+#if !defined(PROFILING)
                            STG_UNUSED
 #endif
                            )
@@ -887,7 +887,7 @@ static void heapProfObject(Census *census, StgClosure *p, size_t size,
 
             identity = NULL;
 
-#ifdef PROFILING
+#if defined(PROFILING)
             // subtract the profiling overhead
             real_size = size - sizeofW(StgProfHeader);
 #else
@@ -895,7 +895,7 @@ static void heapProfObject(Census *census, StgClosure *p, size_t size,
 #endif
 
             if (closureSatisfiesConstraints((StgClosure*)p)) {
-#ifdef PROFILING
+#if defined(PROFILING)
                 if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV) {
                     if (prim)
                         census->prim += real_size;
@@ -911,7 +911,7 @@ static void heapProfObject(Census *census, StgClosure *p, size_t size,
                     if (identity != NULL) {
                         ctr = lookupHashTable(census->hash, (StgWord)identity);
                         if (ctr != NULL) {
-#ifdef PROFILING
+#if defined(PROFILING)
                             if (RtsFlags.ProfFlags.bioSelector != NULL) {
                                 if (prim)
                                     ctr->c.ldv.prim += real_size;
@@ -932,7 +932,7 @@ static void heapProfObject(Census *census, StgClosure *p, size_t size,
                             ctr->next = census->ctrs;
                             census->ctrs = ctr;
 
-#ifdef PROFILING
+#if defined(PROFILING)
                             if (RtsFlags.ProfFlags.bioSelector != NULL) {
                                 if (prim)
                                     ctr->c.ldv.prim = real_size;
@@ -1111,7 +1111,7 @@ heapCensusChain( Census *census, bdescr *bd )
 
             case TSO:
                 prim = true;
-#ifdef PROFILING
+#if defined(PROFILING)
                 if (RtsFlags.ProfFlags.includeTSOs) {
                     size = sizeofW(StgTSO);
                     break;
@@ -1127,7 +1127,7 @@ heapCensusChain( Census *census, bdescr *bd )
 
             case STACK:
                 prim = true;
-#ifdef PROFILING
+#if defined(PROFILING)
                 if (RtsFlags.ProfFlags.includeTSOs) {
                     size = stack_sizeW((StgStack*)p);
                     break;
@@ -1171,13 +1171,13 @@ void heapCensus (Time t)
   census->time  = mut_user_time_until(t);
 
   // calculate retainer sets if necessary
-#ifdef PROFILING
+#if defined(PROFILING)
   if (doingRetainerProfiling()) {
       retainerProfile();
   }
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
   stat_startHeapCensus();
 #endif
 
@@ -1198,7 +1198,7 @@ void heapCensus (Time t)
   }
 
   // dump out the census info
-#ifdef PROFILING
+#if defined(PROFILING)
     // We can't generate any info for LDV profiling until
     // the end of the run...
     if (!doingLDVProfiling())
@@ -1210,7 +1210,7 @@ void heapCensus (Time t)
 
   // free our storage, unless we're keeping all the census info for
   // future restriction by biography.
-#ifdef PROFILING
+#if defined(PROFILING)
   if (RtsFlags.ProfFlags.bioSelector == NULL)
   {
       freeEra(census);
@@ -1222,7 +1222,7 @@ void heapCensus (Time t)
   // we're into the next time period now
   nextEra();
 
-#ifdef PROFILING
+#if defined(PROFILING)
   stat_endHeapCensus();
 #endif
 }
index 85f81f3..aa4056b 100644 (file)
@@ -15,7 +15,7 @@ uint32_t    initHeapProfiling  (void);
 void        endHeapProfiling   (void);
 bool        strMatchesSelector (const char* str, const char* sel);
 
-#ifdef PROFILING
+#if defined(PROFILING)
 // doingRetainerProfiling: `-hr` or `-hr<cc> -h<x>`
 bool doingRetainerProfiling(void);
 #endif
index 81f7fa0..4142c00 100644 (file)
@@ -6,7 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "PosixSource.h"
 #include "Rts.h"
index 516244e..66b602a 100644 (file)
@@ -15,7 +15,7 @@
 
 #include "BeginPrivate.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 void writeCCSReport( FILE *prof_file, CostCentreStack const *ccs,
                      ProfilerTotals totals );
index b4c7704..3cf875e 100644 (file)
@@ -6,7 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "PosixSource.h"
 #include "Rts.h"
index ace2e58..5e7271f 100644 (file)
@@ -15,7 +15,7 @@
 
 #include "BeginPrivate.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 void writeCCSReportJson(FILE *prof_file,
                         CostCentreStack const *ccs,
index 65a9f7d..9523572 100644 (file)
@@ -6,7 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "PosixSource.h"
 #include "Rts.h"
@@ -24,7 +24,7 @@
 
 #include <string.h>
 
-#ifdef DEBUG
+#if defined(DEBUG)
 #include "Trace.h"
 #endif
 
@@ -55,7 +55,7 @@ FILE *hp_file;
 CostCentre      *CC_LIST  = NULL;
 CostCentreStack *CCS_LIST = NULL;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static Mutex ccs_mutex;
 #endif
 
@@ -141,7 +141,7 @@ void initProfiling (void)
         }
     }
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&ccs_mutex);
 #endif
 
@@ -238,7 +238,7 @@ initProfilingLogFile(void)
 
         prog = arenaAlloc(prof_arena, strlen(prog_name) + 1);
         strcpy(prog, prog_name);
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
         // on Windows, drop the .exe suffix if there is one
         {
             char *suff;
@@ -456,7 +456,7 @@ ccsSetSelected (CostCentreStack *ccs)
    Cost-centre stack manipulation
    -------------------------------------------------------------------------- */
 
-#ifdef DEBUG
+#if defined(DEBUG)
 CostCentreStack * _pushCostCentre ( CostCentreStack *ccs, CostCentre *cc );
 CostCentreStack *
 pushCostCentre ( CostCentreStack *ccs, CostCentre *cc )
@@ -473,7 +473,7 @@ pushCostCentre ( CostCentreStack *ccs, CostCentre *cc )
 
 /* Append ccs1 to ccs2 (ignoring any CAF cost centre at the root of ccs1 */
 
-#ifdef DEBUG
+#if defined(DEBUG)
 CostCentreStack *_appendCCS ( CostCentreStack *ccs1, CostCentreStack *ccs2 );
 CostCentreStack *
 appendCCS ( CostCentreStack *ccs1, CostCentreStack *ccs2 )
@@ -981,7 +981,7 @@ done:
     return;
 }
 
-#ifdef DEBUG
+#if defined(DEBUG)
 void
 debugCCS( CostCentreStack *ccs )
 {
index 2160052..45725e5 100644 (file)
@@ -13,7 +13,7 @@
 #include "BeginPrivate.h"
 #include "Rts.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #define PROFILING_ONLY(s) s
 #else
 #define PROFILING_ONLY(s) doNothing()
@@ -35,7 +35,7 @@ typedef struct {
     unsigned int total_prof_ticks;
 } ProfilerTotals;
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 void reportCCSProfiling ( void );
 
@@ -45,7 +45,7 @@ void fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso)
 bool ignoreCCS (CostCentreStack const *ccs);
 bool ignoreCC (CostCentre const *cc);
 
-#ifdef DEBUG
+#if defined(DEBUG)
 void debugCCS( CostCentreStack *ccs );
 #endif
 
index 0c07194..eb4a932 100644 (file)
@@ -13,7 +13,7 @@
 #include "Proftimer.h"
 #include "Capability.h"
 
-#ifdef PROFILING
+#if defined(PROFILING)
 static bool do_prof_ticks = false;       // enable profiling ticks
 #endif
 
@@ -28,7 +28,7 @@ bool performHeapProfile;
 void
 stopProfTimer( void )
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     do_prof_ticks = false;
 #endif
 }
@@ -36,7 +36,7 @@ stopProfTimer( void )
 void
 startProfTimer( void )
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     do_prof_ticks = true;
 #endif
 }
@@ -71,7 +71,7 @@ uint32_t total_ticks = 0;
 void
 handleProfTick(void)
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     total_ticks++;
     if (do_prof_ticks) {
         uint32_t n;
index b399d41..31cc915 100644 (file)
@@ -255,7 +255,7 @@ check_target:
                   (unsigned long)msg->source->id,
                   (unsigned long)msg->target->id);
 
-#ifdef DEBUG
+#if defined(DEBUG)
     traceThreadStatus(DEBUG_sched, target);
 #endif
 
@@ -435,7 +435,7 @@ check_target:
         }
 
     case BlockedOnCCall_Interruptible:
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     {
         Task *task = NULL;
         // walk suspended_ccalls to find the correct worker thread
@@ -463,7 +463,7 @@ check_target:
         blockedThrowTo(cap,target,msg);
         return THROWTO_BLOCKED;
 
-#ifndef THREADEDED_RTS
+#if !defined(THREADEDED_RTS)
     case BlockedOnRead:
     case BlockedOnWrite:
     case BlockedOnDelay:
@@ -505,7 +505,7 @@ throwToSendMsg (Capability *cap STG_UNUSED,
                 MessageThrowTo *msg USED_IF_THREADS)
 
 {
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     debugTraceCap(DEBUG_sched, cap, "throwTo: sending a throwto message to cap %lu", (unsigned long)target_cap->no);
 
     sendMessage(cap, target_cap, (Message*)msg);
index 002c22d..00b57d4 100644 (file)
@@ -11,7 +11,7 @@
 #define THROWTO_SUCCESS   0
 #define THROWTO_BLOCKED   1
 
-#ifndef CMINUSMINUS
+#if !defined(CMINUSMINUS)
 
 #include "BeginPrivate.h"
 
index 9012937..54a1067 100644 (file)
@@ -7,10 +7,10 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 // Turn off inlining when debugging - it obfuscates things
-#ifdef DEBUG
+#if defined(DEBUG)
 #define INLINE
 #else
 #define INLINE inline
@@ -68,11 +68,11 @@ StgWord flip = 0;     // flip bit
 
 static void retainStack(StgClosure *, retainer, StgPtr, StgPtr);
 static void retainClosure(StgClosure *, StgClosure *, retainer);
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
 static void belongToHeap(StgPtr p);
 #endif
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
 /*
   cStackSize records how many times retainStack() has been invoked recursively,
   that is, the number of activation records for retainStack() on the C stack.
@@ -189,7 +189,7 @@ static stackElement *currentStackBoundary;
     retainer profiling, maxStackSize + maxCStackSize is some value no greater
     than the actual depth of the graph.
  */
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
 static int stackSize, maxStackSize;
 #endif
 
@@ -267,7 +267,7 @@ isEmptyRetainerStack( void )
 /* -----------------------------------------------------------------------------
  * Returns size of stack
  * -------------------------------------------------------------------------- */
-#ifdef DEBUG
+#if defined(DEBUG)
 W_
 retainerStackBlocks( void )
 {
@@ -431,7 +431,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
     stackElement se;
     bdescr *nbd;      // Next Block Descriptor
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("push(): stackTop = 0x%x, currentStackBoundary = 0x%x\n", stackTop, currentStackBoundary);
 #endif
 
@@ -626,7 +626,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
     }
 
     if (stackTop - 1 < stackBottom) {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         // debugBelch("push() to the next stack.\n");
 #endif
         // currentStack->free is updated when the active stack is switched
@@ -658,7 +658,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
     // field. Is this really harmless? Can we avoid the warning?
     *stackTop = se;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     stackSize++;
     if (stackSize > maxStackSize) maxStackSize = stackSize;
     // ASSERT(stackSize >= 0);
@@ -684,7 +684,7 @@ popOffReal(void)
 {
     bdescr *pbd;    // Previous Block Descriptor
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("pop() to the previous stack.\n");
 #endif
 
@@ -695,7 +695,7 @@ popOffReal(void)
         // The stack is completely empty.
         stackTop++;
         ASSERT(stackTop == stackLimit);
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         stackSize--;
         if (stackSize > maxStackSize) maxStackSize = stackSize;
         /*
@@ -716,7 +716,7 @@ popOffReal(void)
 
     returnToOldStack(pbd);
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     stackSize--;
     if (stackSize > maxStackSize) maxStackSize = stackSize;
     /*
@@ -728,7 +728,7 @@ popOffReal(void)
 
 static INLINE void
 popOff(void) {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("\tpopOff(): stackTop = 0x%x, currentStackBoundary = 0x%x\n", stackTop, currentStackBoundary);
 #endif
 
@@ -738,7 +738,7 @@ popOff(void) {
     // <= (instead of <) is wrong!
     if (stackTop + 1 < stackLimit) {
         stackTop++;
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         stackSize--;
         if (stackSize > maxStackSize) maxStackSize = stackSize;
         /*
@@ -773,7 +773,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
 {
     stackElement *se;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("pop(): stackTop = 0x%x, currentStackBoundary = 0x%x\n", stackTop, currentStackBoundary);
 #endif
 
@@ -972,7 +972,7 @@ initRetainerProfiling( void )
 void
 endRetainerProfiling( void )
 {
-#ifdef SECOND_APPROACH
+#if defined(SECOND_APPROACH)
     outputAllRetainerSet(prof_file);
 #endif
 }
@@ -1283,7 +1283,7 @@ retainStack( StgClosure *c, retainer c_child_r,
     StgWord bitmap;
     uint32_t size;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     cStackSize++;
     if (cStackSize > maxCStackSize) maxCStackSize = cStackSize;
 #endif
@@ -1297,7 +1297,7 @@ retainStack( StgClosure *c, retainer c_child_r,
     oldStackBoundary = currentStackBoundary;
     currentStackBoundary = stackTop;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("retainStack() called: oldStackBoundary = 0x%x, currentStackBoundary = 0x%x\n", oldStackBoundary, currentStackBoundary);
 #endif
 
@@ -1390,11 +1390,11 @@ retainStack( StgClosure *c, retainer c_child_r,
 
     // restore currentStackBoundary
     currentStackBoundary = oldStackBoundary;
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("retainStack() finished: currentStackBoundary = 0x%x\n", currentStackBoundary);
 #endif
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     cStackSize--;
 #endif
 }
@@ -1473,11 +1473,11 @@ retainClosure( StgClosure *c0, StgClosure *cp0, retainer r0 )
     retainer r, c_child_r;
     StgWord typeOfc;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // StgPtr oldStackTop;
 #endif
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // oldStackTop = stackTop;
     // debugBelch("retainClosure() called: c0 = 0x%x, cp0 = 0x%x, r0 = 0x%x\n", c0, cp0, r0);
 #endif
@@ -1494,7 +1494,7 @@ loop:
     pop(&c, &cp, &r);
 
     if (c == NULL) {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         // debugBelch("retainClosure() ends: oldStackTop = 0x%x, stackTop = 0x%x\n", oldStackTop, stackTop);
 #endif
         return;
@@ -1519,7 +1519,7 @@ inner_loop:
 
     typeOfc = get_itbl(c)->type;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     switch (typeOfc) {
     case IND_STATIC:
     case CONSTR_NOCAF:
@@ -1540,7 +1540,7 @@ inner_loop:
     case TSO:
         if (((StgTSO *)c)->what_next == ThreadComplete ||
             ((StgTSO *)c)->what_next == ThreadKilled) {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
             debugBelch("ThreadComplete or ThreadKilled encountered in retainClosure()\n");
 #endif
             goto loop;
@@ -1759,7 +1759,7 @@ computeRetainerSet( void )
     uint32_t g, n;
     StgPtr ml;
     bdescr *bd;
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     RetainerSet tmpRetainerSet;
 #endif
 
@@ -1803,7 +1803,7 @@ computeRetainerSet( void )
                 maybeInitRetainerSet((StgClosure *)*ml);
                 rtl = retainerSetOf((StgClosure *)*ml);
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
                 if (rtl == NULL) {
                     // first visit to *ml
                     // This is a violation of the interface rule!
@@ -1860,18 +1860,18 @@ computeRetainerSet( void )
 void
 resetStaticObjectForRetainerProfiling( StgClosure *static_objects )
 {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     uint32_t count;
 #endif
     StgClosure *p;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     count = 0;
 #endif
     p = static_objects;
     while (p != END_OF_STATIC_OBJECT_LIST) {
         p = UNTAG_STATIC_LIST_PTR(p);
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         count++;
 #endif
         switch (get_itbl(p)->type) {
@@ -1903,7 +1903,7 @@ resetStaticObjectForRetainerProfiling( StgClosure *static_objects )
             break;
         }
     }
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("count in scavenged_static_objects = %d\n", count);
 #endif
 }
@@ -1920,19 +1920,19 @@ resetStaticObjectForRetainerProfiling( StgClosure *static_objects )
 void
 retainerProfile(void)
 {
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   uint32_t i;
   uint32_t totalHeapSize;   // total raw heap size (computed by linear scanning)
 #endif
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   debugBelch(" < retainerProfile() invoked : %d>\n", retainerGeneration);
 #endif
 
   stat_startRP();
 
   // We haven't flipped the bit yet.
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   debugBelch("Before traversing:\n");
   sumOfCostLinear = 0;
   for (i = 0;i < N_CLOSURE_TYPES; i++)
@@ -1962,7 +1962,7 @@ retainerProfile(void)
   // Now we flips flip.
   flip = flip ^ 1;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   stackSize = 0;
   maxStackSize = 0;
   cStackSize = 0;
@@ -1971,7 +1971,7 @@ retainerProfile(void)
   numObjectVisited = 0;
   timesAnyObjectVisited = 0;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   debugBelch("During traversing:\n");
   sumOfNewCost = 0;
   sumOfNewCostExtra = 0;
@@ -1986,14 +1986,14 @@ retainerProfile(void)
     retainer sets.
    */
   initializeTraverseStack();
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   initializeAllRetainerSet();
 #else
   refreshAllRetainerSet();
 #endif
   computeRetainerSet();
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   debugBelch("After traversing:\n");
   sumOfCostLinear = 0;
   for (i = 0;i < N_CLOSURE_TYPES; i++)
@@ -2034,7 +2034,7 @@ retainerProfile(void)
 
   // post-processing
   closeTraverseStack();
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
   closeAllRetainerSet();
 #else
   // Note that there is no post-processing for the retainer sets.
@@ -2043,7 +2043,7 @@ retainerProfile(void)
 
   stat_endRP(
     retainerGeneration - 1,   // retainerGeneration has just been incremented!
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     maxCStackSize, maxStackSize,
 #endif
     (double)timesAnyObjectVisited / numObjectVisited);
@@ -2053,7 +2053,7 @@ retainerProfile(void)
  * DEBUGGING CODE
  * -------------------------------------------------------------------------- */
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
 
 #define LOOKS_LIKE_PTR(r) ((LOOKS_LIKE_STATIC_CLOSURE(r) || \
         ((HEAP_ALLOCED(r) && ((Bdescr((P_)r)->flags & BF_FREE) == 0)))) && \
index 959c346..6882a2a 100644 (file)
@@ -9,7 +9,7 @@
 
 #pragma once
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "RetainerSet.h"
 
@@ -41,7 +41,7 @@ retainerSetOf( const StgClosure *c )
 }
 
 // Used by Storage.c:memInventory()
-#ifdef DEBUG
+#if defined(DEBUG)
 extern W_ retainerStackBlocks ( void );
 #endif
 
index 9c3043b..5808097 100644 (file)
@@ -7,7 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "PosixSource.h"
 #include "Rts.h"
@@ -78,7 +78,7 @@ initializeAllRetainerSet(void)
 void
 refreshAllRetainerSet(void)
 {
-#ifdef FIRST_APPROACH
+#if defined(FIRST_APPROACH)
     int i;
 
     // first approach: completely refresh
@@ -145,7 +145,7 @@ addElement(retainer r, RetainerSet *rs)
     RetainerSet *nrs;   // New Retainer Set
     StgWord hk;         // Hash Key
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("addElement(%p, %p) = ", r, rs);
 #endif
 
@@ -185,7 +185,7 @@ addElement(retainer r, RetainerSet *rs)
             if (rs->element[i] != nrs->element[i + 1]) break;
         if (i < rs->num) continue;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
         // debugBelch("%p\n", nrs);
 #endif
         // The set we are seeking already exists!
@@ -208,7 +208,7 @@ addElement(retainer r, RetainerSet *rs)
 
     hashTable[hash(hk)] = nrs;
 
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
     // debugBelch("%p\n", nrs);
 #endif
     return nrs;
@@ -245,7 +245,7 @@ printRetainer(FILE *f, retainer cc)
  *  printRetainerSetShort() should always display the same output for
  *  a given retainer set regardless of the time of invocation.
  * -------------------------------------------------------------------------- */
-#ifdef SECOND_APPROACH
+#if defined(SECOND_APPROACH)
 #if defined(RETAINER_SCHEME_INFO)
 // Retainer scheme 1: retainer = info table
 void
@@ -411,7 +411,7 @@ printRetainerSetShort(FILE *f, retainerSet *rs, uint32_t max_length)
  * of the run, so the user can find out for a given retainer set ID
  * the full contents of that set.
  * -------------------------------------------------------------------------- */
-#ifdef SECOND_APPROACH
+#if defined(SECOND_APPROACH)
 void
 outputAllRetainerSet(FILE *prof_file)
 {
index 38253a1..60b7c2e 100644 (file)
@@ -11,7 +11,7 @@
 
 #include <stdio.h>
 
-#ifdef PROFILING
+#if defined(PROFILING)
 
 #include "BeginPrivate.h"
 
 #define RETAINER_SCHEME_CCS
 // #define RETAINER_SCHEME_CC
 
-#ifdef RETAINER_SCHEME_INFO
+#if defined(RETAINER_SCHEME_INFO)
 struct _StgInfoTable;
 typedef struct _StgInfoTable *retainer;
 #endif
 
-#ifdef RETAINER_SCHEME_CCS
+#if defined(RETAINER_SCHEME_CCS)
 typedef CostCentreStack *retainer;
 #endif
 
-#ifdef RETAINER_SCHEME_CC
+#if defined(RETAINER_SCHEME_CC)
 typedef CostCentre *retainer;
 #endif
 
@@ -83,7 +83,7 @@ typedef struct _RetainerSet {
     that in the first approach, we do not free the memory allocated for
     retainer sets; we just invalidate all retainer sets.
  */
-#ifdef DEBUG_RETAINER
+#if defined(DEBUG_RETAINER)
 // In thise case, FIRST_APPROACH must be turned on because the memory pool
 // for retainer sets is freed each time.
 #define FIRST_APPROACH
@@ -159,7 +159,7 @@ isMember(retainer r, RetainerSet *rs)
 // Finds or creates a retainer set augmented with a new retainer.
 RetainerSet *addElement(retainer, RetainerSet *);
 
-#ifdef SECOND_APPROACH
+#if defined(SECOND_APPROACH)
 // Prints a single retainer set.
 void printRetainerSetShort(FILE *, RetainerSet *, uint32_t);
 #endif
@@ -168,7 +168,7 @@ void printRetainerSetShort(FILE *, RetainerSet *, uint32_t);
 // store the sum of all costs and the number of all retainer sets.
 void outputRetainerSet(FILE *, uint32_t *, uint32_t *);
 
-#ifdef SECOND_APPROACH
+#if defined(SECOND_APPROACH)
 // Print all retainer sets at the exit of the program.
 void outputAllRetainerSet(FILE *);
 #endif
index 2ca5dc4..533c0c4 100644 (file)
@@ -555,7 +555,7 @@ rts_checkSchedStatus (char* site, Capability *cap)
         stg_exit(EXIT_FAILURE);
     case Interrupted:
         errorBelch("%s: interrupted", site);
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         // The RTS is shutting down, and the process will probably
         // soon exit.  We don't want to preempt the shutdown
         // by exiting the whole process here, so we just terminate the
index 80241cd..c844e6e 100644 (file)
@@ -11,7 +11,7 @@
 #include "RtsAPI.h"
 #include "RtsDllMain.h"
 
-#ifdef HAVE_WINDOWS_H
+#if defined(HAVE_WINDOWS_H)
 #include <windows.h>
 #endif
 
index 4b9480d..05538cb 100644 (file)
@@ -1,6 +1,6 @@
 #include "Rts.h"
 
-#ifdef HAVE_WINDOWS_H
+#if defined(HAVE_WINDOWS_H)
 #include <windows.h>
 #endif
 
index 8d71354..b51d644 100644 (file)
 #include "hooks/Hooks.h"
 #include "Capability.h"
 
-#ifdef HAVE_CTYPE_H
+#if defined(HAVE_CTYPE_H)
 #include <ctype.h>
 #endif
 
 #include <string.h>
 
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
-#ifdef HAVE_SYS_TYPES_H
+#if defined(HAVE_SYS_TYPES_H)
 #include <sys/types.h>
 #endif
 
@@ -97,15 +97,15 @@ static StgWord64 decodeSize (
 
 static void bad_option (const char *s);
 
-#ifdef DEBUG
+#if defined(DEBUG)
 static void read_debug_flags(const char *arg);
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 static bool read_heap_profiling_flag(const char *arg);
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
 static void read_trace_flags(const char *arg);
 #endif
 
@@ -153,7 +153,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.GcFlags.compactThreshold   = 30.0;
     RtsFlags.GcFlags.sweep              = false;
     RtsFlags.GcFlags.idleGCDelayTime    = USToTime(300000); // 300ms
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     RtsFlags.GcFlags.doIdleGC           = true;
 #else
     RtsFlags.GcFlags.doIdleGC           = false;
@@ -189,7 +189,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.ProfFlags.doHeapProfile      = false;
     RtsFlags.ProfFlags. heapProfileInterval = USToTime(100000); // 100ms
 
-#ifdef PROFILING
+#if defined(PROFILING)
     RtsFlags.ProfFlags.includeTSOs        = false;
     RtsFlags.ProfFlags.showCCSOnException = false;
     RtsFlags.ProfFlags.maxRetainerSetSize = 8;
@@ -203,7 +203,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.ProfFlags.bioSelector        = NULL;
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
     RtsFlags.TraceFlags.tracing       = TRACE_NONE;
     RtsFlags.TraceFlags.timestamp     = false;
     RtsFlags.TraceFlags.scheduler     = false;
@@ -213,7 +213,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.TraceFlags.user          = false;
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
     // When profiling we want a lot more ticks
     RtsFlags.MiscFlags.tickInterval     = USToTime(1000);  // 1ms
 #else
@@ -225,7 +225,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.MiscFlags.machineReadable = false;
     RtsFlags.MiscFlags.linkerMemBase    = 0;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     RtsFlags.ParFlags.nCapabilities     = 1;
     RtsFlags.ParFlags.migrate           = true;
     RtsFlags.ParFlags.parGcEnabled      = 1;
@@ -241,7 +241,7 @@ void initRtsFlagsDefaults(void)
     RtsFlags.ParFlags.maxLocalSparks    = 4096;
 #endif /* THREADED_RTS */
 
-#ifdef TICKY_TICKY
+#if defined(TICKY_TICKY)
     RtsFlags.TickyFlags.showTickyStats   = false;
     RtsFlags.TickyFlags.tickyFile        = NULL;
 #endif
@@ -333,10 +333,10 @@ usage_text[] = {
 "  -xc      Show current cost centre stack on raising an exception",
 #endif /* PROFILING */
 
-#ifdef TRACING
+#if defined(TRACING)
 "",
 "  -l[flags]  Log events in binary format to the file <program>.eventlog",
-#  ifdef DEBUG
+#  if defined(DEBUG)
 "  -v[flags]  Log events to stderr",
 #  endif
 "             where [flags] can contain:",
@@ -346,7 +346,7 @@ usage_text[] = {
 "                f    par spark events (full detail)",
 "                u    user events (emitted from Haskell code)",
 "                a    all event classes above",
-#  ifdef DEBUG
+#  if defined(DEBUG)
 "                t    add time stamps (only useful with -v)",
 #  endif
 "               -x    disable an event class, for any flag above",
@@ -369,7 +369,7 @@ usage_text[] = {
 "  -V<secs>  Master tick interval in seconds (0 == disable timer).",
 "            This sets the resolution for -C and the heap profile timer -i,",
 "            and is the frequence of time profile samples.",
-#ifdef PROFILING
+#if defined(PROFILING)
 "            Default: 0.001 sec.",
 #else
 "            Default: 0.01 sec.",
@@ -618,7 +618,7 @@ void setupRtsFlags (int *argc, char *argv[], RtsConfig rts_config)
     if (RtsFlags.GcFlags.statsFile != NULL) {
         initStatsFile (RtsFlags.GcFlags.statsFile);
     }
-#ifdef TICKY_TICKY
+#if defined(TICKY_TICKY)
     if (RtsFlags.TickyFlags.tickyFile != NULL) {
         initStatsFile (RtsFlags.TickyFlags.tickyFile);
     }
@@ -703,7 +703,7 @@ static void procRtsOpts (int rts_argc0,
                  x*, which allows for more options.
               */
 
-#ifdef TICKY_TICKY
+#if defined(TICKY_TICKY)
 # define TICKY_BUILD_ONLY(x) x
 #else
 # define TICKY_BUILD_ONLY(x) \
@@ -712,7 +712,7 @@ errorBelch("the flag %s requires the program to be built with -ticky", \
 error = true;
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 # define PROFILING_BUILD_ONLY(x)   x
 #else
 # define PROFILING_BUILD_ONLY(x) \
@@ -721,7 +721,7 @@ errorBelch("the flag %s requires the program to be built with -prof", \
 error = true;
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
 # define TRACING_BUILD_ONLY(x)   x
 #else
 # define TRACING_BUILD_ONLY(x) \
@@ -730,7 +730,7 @@ errorBelch("the flag %s requires the program to be built with -eventlog or -debu
 error = true;
 #endif
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 # define THREADED_BUILD_ONLY(x)      x
 #else
 # define THREADED_BUILD_ONLY(x) \
@@ -739,7 +739,7 @@ errorBelch("the flag %s requires the program to be built with -threaded", \
 error = true;
 #endif
 
-#ifdef DEBUG
+#if defined(DEBUG)
 # define DEBUG_BUILD_ONLY(x) x
 #else
 # define DEBUG_BUILD_ONLY(x) \
@@ -1637,7 +1637,7 @@ decodeSize(const char *flag, uint32_t offset, StgWord64 min, StgWord64 max)
     return val;
 }
 
-#ifdef DEBUG
+#if defined(DEBUG)
 static void read_debug_flags(const char* arg)
 {
     // Already parsed "-D"
@@ -1702,7 +1702,7 @@ static void read_debug_flags(const char* arg)
 }
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 // Parse a "-h" flag, returning whether the parse resulted in an error.
 static bool read_heap_profiling_flag(const char *arg)
 {
index 48df8e9..d9f0557 100644 (file)
 #include "Task.h"
 #include "Excn.h"
 
-#ifdef DEBUG
+#if defined(DEBUG)
 # include "Printer.h"   /* for printing        */
 #endif
 
 // Hack: we assume that we're building a batch-mode system unless
 // INTERPRETER is set
  
-#ifndef INTERPRETER /* Hack */
+#if !defined(INTERPRETER) /* Hack */
 
 // The rts entry point from a compiled program using a Haskell main
 // function.  This gets called from a tiny main function generated by
index 0440669..0859e50 100644 (file)
@@ -19,7 +19,7 @@
 #include <string.h>
 #include <errno.h>
 
-#ifdef HAVE_WINDOWS_H
+#if defined(HAVE_WINDOWS_H)
 #include <windows.h>
 #endif
 
@@ -175,7 +175,7 @@ rtsFatalInternalErrorFn(const char *s, va_list ap)
      fflush(stderr);
   }
 
-#ifdef TRACING
+#if defined(TRACING)
   if (RtsFlags.TraceFlags.tracing == TRACE_EVENTLOG) endEventLogging();
 #endif
 
index 226f881..e5d8378 100644 (file)
@@ -6,7 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifdef __APPLE__ && __MACH__
+#if defined(__APPLE__) && __MACH__
 # if MAC_OS_X_VERSION_MIN_REQUIRED >= MAC_OS_X_VERSION_10_9
 #  define USE_INTTYPES_H_FOR_RTS_PROBES_D
 # endif
index 36a99d7..71a842d 100644 (file)
 #include "posix/TTY.h"
 #endif
 
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
-#ifdef HAVE_LOCALE_H
+#if defined(HAVE_LOCALE_H)
 #include <locale.h>
 #endif
 
@@ -111,7 +111,7 @@ void _fpreset(void)
     x86_init_fpu();
 }
 
-#ifdef __GNUC__
+#if defined(__GNUC__)
 void __attribute__((alias("_fpreset"))) fpreset(void);
 #else
 void fpreset(void) {
@@ -186,7 +186,7 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
         setFullProgArgv(*argc,*argv);
         setupRtsFlags(argc, *argv, rts_config);
 
-#ifdef DEBUG
+#if defined(DEBUG)
         /* load debugging symbols for current binary */
         DEBUG_LoadSymbols((*argv)[0]);
 #endif /* DEBUG */
@@ -196,7 +196,7 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
     initStats1();
 
     /* initTracing must be after setupRtsFlags() */
-#ifdef TRACING
+#if defined(TRACING)
     initTracing();
 #endif
 
@@ -243,7 +243,7 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
     getStablePtr((StgPtr)runSparks_closure);
     getStablePtr((StgPtr)ensureIOManagerIsRunning_closure);
     getStablePtr((StgPtr)ioManagerCapabilitiesChanged_closure);
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
     getStablePtr((StgPtr)blockedOnBadFD_closure);
     getStablePtr((StgPtr)runHandlersPtr_closure);
 #endif
@@ -431,14 +431,14 @@ hs_exit_(bool wait_foreign)
     endProfiling();
     freeProfiling();
 
-#ifdef PROFILING
+#if defined(PROFILING)
     // Originally, this was in report_ccs_profiling().  Now, retainer
     // profiling might tack some extra stuff on to the end of this file
     // during endProfiling().
     if (prof_file != NULL) fclose(prof_file);
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
     endTracing();
     freeTracing();
 #endif
@@ -515,7 +515,7 @@ shutdownHaskellAndExit(int n, int fastExit)
     stg_exit(n);
 }
 
-#ifndef mingw32_HOST_OS
+#if !defined(mingw32_HOST_OS)
 static void exitBySignal(int sig) GNUC3_ATTRIBUTE(__noreturn__);
 
 void
index dac801d..11b1437 100644 (file)
 #define RTS_OPENBSD_ONLY_SYMBOLS
 #endif
 
-#ifndef SMP
+#if !defined(SMP)
 # define MAIN_CAP_SYM SymI_HasProto(MainCapability)
 #else
 # define MAIN_CAP_SYM
      SymE_NeedsDataProto(ffi_type_uint8)                    \
      SymE_NeedsDataProto(ffi_type_pointer)
 
-#ifdef TABLES_NEXT_TO_CODE
+#if defined(TABLES_NEXT_TO_CODE)
 #define RTS_RET_SYMBOLS /* nothing */
 #else
 #define RTS_RET_SYMBOLS                                 \
index c2b2f07..650b1f5 100644 (file)
@@ -12,7 +12,7 @@
 #include "LinkerInternals.h"
 #include <stdbool.h>
 
-#ifdef LEADING_UNDERSCORE
+#if defined(LEADING_UNDERSCORE)
 #define MAYBE_LEADING_UNDERSCORE_STR(s) ("_" s)
 #else
 #define MAYBE_LEADING_UNDERSCORE_STR(s) (s)
index b7a0218..5357dc6 100644 (file)
@@ -15,7 +15,7 @@
 #include "Schedule.h"
 #include "RtsFlags.h"
 
-#ifdef HAVE_TIME_H
+#if defined(HAVE_TIME_H)
 #include <time.h>
 #endif
 
 extern char *ctime_r(const time_t *, char *);
 #endif
 
-#ifdef HAVE_FCNTL_H
+#if defined(HAVE_FCNTL_H)
 #include <fcntl.h>
 #endif
 
-#ifdef HAVE_GETTIMEOFDAY
+#if defined(HAVE_GETTIMEOFDAY)
 #include <sys/time.h>
 #endif
 
@@ -39,7 +39,7 @@ extern char *ctime_r(const time_t *, char *);
 #include <stdarg.h>
 #include <stdio.h>
 
-#ifdef HAVE_SIGNAL_H
+#if defined(HAVE_SIGNAL_H)
 #include <signal.h>
 #endif
 
@@ -253,7 +253,7 @@ showStgWord64(StgWord64 x, char *s, bool with_commas)
 
 
 // Can be used as a breakpoint to set on every heap check failure.
-#ifdef DEBUG
+#if defined(DEBUG)
 void
 heapCheckFail( void )
 {
@@ -313,7 +313,7 @@ void printRtsInfo(void) {
 // profiled or not.  GHCi uses it (see #2197).
 int rts_isProfiled(void)
 {
-#ifdef PROFILING
+#if defined(PROFILING)
     return 1;
 #else
     return 0;
@@ -324,7 +324,7 @@ int rts_isProfiled(void)
 // dynamically-linked or not.
 int rts_isDynamic(void)
 {
-#ifdef DYNAMIC
+#if defined(DYNAMIC)
     return 1;
 #else
     return 0;
@@ -334,7 +334,7 @@ int rts_isDynamic(void)
 // Used for detecting a non-empty FPU stack on x86 (see #4914)
 void checkFPUStack(void)
 {
-#ifdef i386_HOST_ARCH
+#if defined(i386_HOST_ARCH)
     static unsigned char buf[108];
     asm("FSAVE %0":"=m" (buf));
 
index 4b513cc..8d880c6 100644 (file)
@@ -36,7 +36,7 @@ void stgFree(void* p);
 char *time_str(void);
 char *showStgWord64(StgWord64, char *, bool);
 
-#ifdef DEBUG
+#if defined(DEBUG)
 void heapCheckFail( void );
 #endif
 
index 4ade2d0..4ea1c55 100644 (file)
@@ -10,7 +10,7 @@
 
 #include "BeginPrivate.h"
 
-#ifdef CMINUSMINUS
+#if defined(CMINUSMINUS)
 
 /* Lock closure, equivalent to ccall lockClosure but the condition is inlined.
  * Arguments are swapped for uniformity with unlockClosure. */
index f845b11..5c8fd4f 100644 (file)
--- a/rts/STM.c
+++ b/rts/STM.c
 
 // If SHAKE is defined then validation will sometimes spuriously fail.  They help test
 // unusual code paths if genuine contention is rare
-#ifdef SHAKE
+#if defined(SHAKE)
 static int shake_ctr = 0;
 static int shake_lim = 1;
 
index e9e5e27..2484c2f 100644 (file)
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -32,7 +32,7 @@
 
 #pragma once
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 //#define STM_CG_LOCK
 #define STM_FG_LOCKS
 #else
index 296461b..0a1d761 100644 (file)
 #include "Stable.h"
 #include "TopHandler.h"
 
-#ifdef HAVE_SYS_TYPES_H
+#if defined(HAVE_SYS_TYPES_H)
 #include <sys/types.h>
 #endif
-#ifdef HAVE_UNISTD_H
+#if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
 #include <stdlib.h>
 #include <stdarg.h>
 
-#ifdef HAVE_ERRNO_H
+#if defined(HAVE_ERRNO_H)
 #include <errno.h>
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
 #include "eventlog/EventLog.h"
 #endif
 /* -----------------------------------------------------------------------------
@@ -154,7 +154,7 @@ static void scheduleDoGC(Capability **pcap, Task *task, bool force_major);
 static void deleteThread (Capability *cap, StgTSO *tso);
 static void deleteAllThreads (Capability *cap);
 
-#ifdef FORKPROCESS_PRIMOP_SUPPORTED
+#if defined(FORKPROCESS_PRIMOP_SUPPORTED)
 static void deleteThread_(Capability *cap, StgTSO *tso);
 #endif
 
@@ -375,7 +375,7 @@ schedule (Capability *initialCapability, Task *task)
     // them back if it rises again.  Presumably we should, but after
     // the thread has been migrated we no longer know what capability
     // it was originally on.
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     if (cap->disabled && !t->bound) {
         Capability *dest_cap = capabilities[cap->no % enabled_capabilities];
         migrateThread(cap, t, dest_cap);
@@ -411,7 +411,7 @@ run_thread:
     prev_what_next = t->what_next;
 
     errno = t->saved_errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     SetLastError(t->saved_winerror);
 #endif
 
@@ -432,7 +432,7 @@ run_thread:
         uint32_t prev;
         prev = xchg((P_)&recent_activity, ACTIVITY_YES);
         if (prev == ACTIVITY_DONE_GC) {
-#ifndef PROFILING
+#if !defined(PROFILING)
             startTimer();
 #endif
         }
@@ -490,7 +490,7 @@ run_thread:
     // XXX: possibly bogus for SMP because this thread might already
     // be running again, see code below.
     t->saved_errno = errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     // Similarly for Windows error code
     t->saved_winerror = GetLastError();
 #endif
@@ -1267,7 +1267,7 @@ scheduleHandleThreadBlocked( StgTSO *t
     //      threadPaused() might have raised a blocked throwTo
     //      exception, see maybePerformBlockedException().
 
-#ifdef DEBUG
+#if defined(DEBUG)
     traceThreadStatus(DEBUG_sched, t);
 #endif
 }
@@ -1341,7 +1341,7 @@ scheduleHandleThreadFinished (Capability *cap STG_UNUSED, Task *task, StgTSO *t)
                   task->incall->rstat = Killed;
               }
           }
-#ifdef DEBUG
+#if defined(DEBUG)
           removeThreadLabel((StgWord)task->incall->tso->id);
 #endif
 
@@ -1471,7 +1471,7 @@ static bool requestSync (
  * ensue if another thread is trying to synchronise.
  * -------------------------------------------------------------------------- */
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static void acquireAllCapabilities(Capability *cap, Task *task)
 {
     Capability *tmpcap;
@@ -1506,7 +1506,7 @@ static void acquireAllCapabilities(Capability *cap, Task *task)
  * the one passed in as cap.
  * -------------------------------------------------------------------------- */
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static void releaseAllCapabilities(uint32_t n, Capability *cap, Task *task)
 {
     uint32_t i;
@@ -1533,7 +1533,7 @@ scheduleDoGC (Capability **pcap, Task *task USED_IF_THREADS,
     bool heap_census;
     uint32_t collect_gen;
     bool major_gc;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     uint32_t gc_type;
     uint32_t i;
     uint32_t need_idle;
@@ -1560,7 +1560,7 @@ scheduleDoGC (Capability **pcap, Task *task USED_IF_THREADS,
     collect_gen = calcNeeded(force_major || heap_census, NULL);
     major_gc = (collect_gen == RtsFlags.GcFlags.generations-1);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     if (sched_state < SCHED_INTERRUPTING
         && RtsFlags.ParFlags.parGcEnabled
         && collect_gen >= RtsFlags.ParFlags.parGcGen
@@ -1673,7 +1673,7 @@ scheduleDoGC (Capability **pcap, Task *task USED_IF_THREADS,
 
     stat_startGCSync(gc_threads[cap->no]);
 
-#ifdef DEBUG
+#if defined(DEBUG)
     unsigned int old_n_capabilities = n_capabilities;
 #endif
 
@@ -1833,7 +1833,7 @@ delete_threads_and_gc:
             // fact that we've done a GC and turn off the timer signal;
             // it will get re-enabled if we run any threads after the GC.
             recent_activity = ACTIVITY_DONE_GC;
-#ifndef PROFILING
+#if !defined(PROFILING)
             stopTimer();
 #endif
             break;
@@ -1934,7 +1934,7 @@ delete_threads_and_gc:
             throwToSelf(cap, main_thread, heapOverflow_closure);
         }
     }
-#ifdef SPARKBALANCE
+#if defined(SPARKBALANCE)
     /* JB
        Once we are all together... this would be the place to balance all
        spark pools. No concurrent stealing or adding of new sparks can
@@ -1960,12 +1960,12 @@ delete_threads_and_gc:
 
 pid_t
 forkProcess(HsStablePtr *entry
-#ifndef FORKPROCESS_PRIMOP_SUPPORTED
+#if !defined(FORKPROCESS_PRIMOP_SUPPORTED)
             STG_UNUSED
 #endif
            )
 {
-#ifdef FORKPROCESS_PRIMOP_SUPPORTED
+#if defined(FORKPROCESS_PRIMOP_SUPPORTED)
     pid_t pid;
     StgTSO* t,*next;
     Capability *cap;
@@ -1980,7 +1980,7 @@ forkProcess(HsStablePtr *entry
     cap = NULL;
     waitForCapability(&cap, task);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     stopAllCapabilities(&cap, task);
 #endif
 
@@ -1997,7 +1997,7 @@ forkProcess(HsStablePtr *entry
         ACQUIRE_LOCK(&capabilities[i]->lock);
     }
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     ACQUIRE_LOCK(&all_tasks_mutex);
 #endif
 
@@ -2023,7 +2023,7 @@ forkProcess(HsStablePtr *entry
             RELEASE_LOCK(&capabilities[i]->lock);
         }
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
         RELEASE_LOCK(&all_tasks_mutex);
 #endif
 
@@ -2047,7 +2047,7 @@ forkProcess(HsStablePtr *entry
         initMutex(&all_tasks_mutex);
 #endif
 
-#ifdef TRACING
+#if defined(TRACING)
         resetTracing();
 #endif
 
@@ -2374,12 +2374,12 @@ suspendThread (StgRegTable *reg, bool interruptible)
   int saved_errno;
   StgTSO *tso;
   Task *task;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   StgWord32 saved_winerror;
 #endif
 
   saved_errno = errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   saved_winerror = GetLastError();
 #endif
 
@@ -2419,7 +2419,7 @@ suspendThread (StgRegTable *reg, bool interruptible)
   RELEASE_LOCK(&cap->lock);
 
   errno = saved_errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
   SetLastError(saved_winerror);
 #endif
   return task;
@@ -2433,12 +2433,12 @@ resumeThread (void *task_)
     Capability *cap;
     Task *task = task_;
     int saved_errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     StgWord32 saved_winerror;
 #endif
 
     saved_errno = errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     saved_winerror = GetLastError();
 #endif
 
@@ -2475,7 +2475,7 @@ resumeThread (void *task_)
     cap->r.rCurrentTSO = tso;
     cap->in_haskell = true;
     errno = saved_errno;
-#ifdef mingw32_HOST_OS
+#if defined(mingw32_HOST_OS)
     SetLastError(saved_winerror);
 #endif
 
@@ -2816,7 +2816,7 @@ deleteThread (Capability *cap STG_UNUSED, StgTSO *tso)
     }
 }
 
-#ifdef FORKPROCESS_PRIMOP_SUPPORTED
+#if defined(FORKPROCESS_PRIMOP_SUPPORTED)
 static void
 deleteThread_(Capability *cap, StgTSO *tso)
 { // for forkProcess only:
index 85970c8..ecf216a 100644 (file)
@@ -115,7 +115,7 @@ static unsigned int SPT_size = 0;
 static spEntry *old_SPTs[MAX_N_OLD_SPTS];
 static uint32_t n_old_SPTs = 0;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 Mutex stable_mutex;
 #endif
 
@@ -196,7 +196,7 @@ initStableTables(void)
                                       "initStablePtrTable");
     initSpEntryFreeList(stable_ptr_table,INIT_SPT_SIZE,NULL);
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&stable_mutex);
 #endif
 }
@@ -300,7 +300,7 @@ exitStableTables(void)
 
     freeOldSPTs();
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     closeMutex(&stable_mutex);
 #endif
 }
index 5535637..399a2b3 100644 (file)
@@ -43,7 +43,7 @@ void    updateStableTables    ( bool full );
 void    stableLock            ( void );
 void    stableUnlock          ( void );
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 // needed by Schedule.c:forkProcess()
 extern Mutex stable_mutex;
 #endif
index b793b9c..5d2737a 100644 (file)
@@ -16,7 +16,7 @@
 
 static HashTable * spt = NULL;
 
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
 static Mutex spt_lock;
 #endif
 
@@ -38,7 +38,7 @@ void hs_spt_insert_stableptr(StgWord64 key[2], StgStablePtr *entry) {
     spt = allocHashTable_( (HashFunction *)hashFingerprint
                          , (CompareFunction *)compareFingerprint
                          );
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     initMutex(&spt_lock);
 #endif
   }
@@ -104,7 +104,7 @@ void exitStaticPtrTable() {
   if (spt) {
     freeHashTable(spt, freeSptEntry);
     spt = NULL;
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS)
     closeMutex(&spt_lock);
 #endif
   }
index 5f5fa58..e31d124 100644 (file)
@@ -29,7 +29,7 @@ static Time
     start_exit_gc_elapsed, start_exit_gc_cpu,
     end_exit_cpu,   end_exit_elapsed;
 
-#ifdef PROFILING
+#if defined(PROFILING)
 static Time RP_start_time  = 0, RP_tot_time  = 0;  // retainer prof user time
 static Time RPe_start_time = 0, RPe_tot_time = 0;  // retainer prof elap time
 
@@ -37,7 +37,7 @@ static Time HC_start_time, HC_tot_time = 0;     // heap census prof user time
 static Time HCe_start_time, HCe_tot_time = 0;   // heap census prof elap time
 #endif
 
-#ifdef PROFILING
+#if defined(PROFILING)
 #define PROF_VAL(x)   (x)
 #else
 #define PROF_VAL(x)   0
@@