cpp: Use #pragma once instead of #ifndef guards
authorBen Gamari <bgamari.foss@gmail.com>
Sat, 22 Apr 2017 13:34:18 +0000 (09:34 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 23 Apr 2017 15:05:48 +0000 (11:05 -0400)
This both says what we mean and silences a bunch of spurious CPP linting
warnings. This pragma is supported by all CPP implementations which we
support.

Reviewers: austin, erikd, simonmar, hvr

Reviewed By: simonmar

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3482

183 files changed:
compiler/HsVersions.h
compiler/nativeGen/NCG.h
compiler/utils/md5.h
driver/utils/isMinTTY.h
includes/Cmm.h
includes/HsFFI.h
includes/MachDeps.h
includes/Rts.h
includes/RtsAPI.h
includes/Stg.h
includes/ghcconfig.h
includes/rts/Adjustor.h
includes/rts/BlockSignals.h
includes/rts/Config.h
includes/rts/Constants.h
includes/rts/EventLogFormat.h
includes/rts/EventLogWriter.h
includes/rts/FileLock.h
includes/rts/Flags.h
includes/rts/GetTime.h
includes/rts/Globals.h
includes/rts/Hpc.h
includes/rts/IOManager.h
includes/rts/Libdw.h
includes/rts/LibdwPool.h
includes/rts/Linker.h
includes/rts/Main.h
includes/rts/Messages.h
includes/rts/OSThreads.h
includes/rts/Parallel.h
includes/rts/PrimFloat.h
includes/rts/Signals.h
includes/rts/SpinLock.h
includes/rts/Stable.h
includes/rts/StaticPtrTable.h
includes/rts/TTY.h
includes/rts/Threads.h
includes/rts/Ticky.h
includes/rts/Time.h
includes/rts/Timer.h
includes/rts/Types.h
includes/rts/Utils.h
includes/rts/prof/CCS.h
includes/rts/prof/LDV.h
includes/rts/storage/Block.h
includes/rts/storage/ClosureMacros.h
includes/rts/storage/ClosureTypes.h
includes/rts/storage/Closures.h
includes/rts/storage/FunTypes.h
includes/rts/storage/GC.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/Prim.h
includes/stg/Regs.h
includes/stg/RtsMachRegs.h
includes/stg/SMP.h
includes/stg/Ticky.h
includes/stg/Types.h
libraries/base/include/CTypes.h
libraries/base/include/HsBase.h
libraries/base/include/HsEvent.h
libraries/base/include/WCsubst.h
libraries/base/include/consUtils.h
libraries/base/include/md5.h
libraries/integer-gmp/include/HsIntegerGmp.h.in
rts/Apply.h
rts/Arena.h
rts/AutoApply.h
rts/AwaitEvent.h
rts/Capability.h
rts/CheckUnload.h
rts/Disassembler.h
rts/Excn.h
rts/FileLock.h
rts/GetEnv.h
rts/GetTime.h
rts/Globals.h
rts/Hash.h
rts/Interpreter.h
rts/LdvProfile.h
rts/Libdw.h
rts/LibdwPool.h
rts/LinkerInternals.h
rts/Messages.h
rts/PathUtils.h
rts/PosixSource.h
rts/Prelude.h
rts/Printer.h
rts/ProfHeap.h
rts/ProfilerReport.h
rts/ProfilerReportJson.h
rts/Profiling.h
rts/Proftimer.h
rts/RaiseAsync.h
rts/RetainerProfile.h
rts/RetainerSet.h
rts/RtsFlags.h
rts/RtsSignals.h
rts/RtsSymbolInfo.h
rts/RtsSymbols.h
rts/RtsUtils.h
rts/SMPClosureOps.h
rts/STM.h
rts/Schedule.h
rts/Sparks.h
rts/Stable.h
rts/StaticPtrTable.h
rts/Stats.h
rts/StgPrimFloat.h
rts/StgRun.h
rts/Task.h
rts/ThreadLabels.h
rts/ThreadPaused.h
rts/Threads.h
rts/Ticker.h
rts/Ticky.h
rts/Timer.h
rts/TopHandler.h
rts/Trace.h
rts/Updates.h
rts/WSDeque.h
rts/Weak.h
rts/eventlog/EventLog.h
rts/hooks/Hooks.h
rts/linker/CacheFlush.h
rts/linker/Elf.h
rts/linker/M32Alloc.h
rts/linker/MachO.h
rts/linker/MachOTypes.h
rts/linker/PEi386.h
rts/linker/SymbolExtras.h
rts/posix/Clock.h
rts/posix/Select.h
rts/posix/Signals.h
rts/posix/TTY.h
rts/sm/BlockAlloc.h
rts/sm/CNF.h
rts/sm/Compact.h
rts/sm/Evac.h
rts/sm/GC.h
rts/sm/GCTDecl.h
rts/sm/GCThread.h
rts/sm/GCUtils.h
rts/sm/HeapAlloc.h
rts/sm/MarkStack.h
rts/sm/MarkWeak.h
rts/sm/OSMem.h
rts/sm/Sanity.h
rts/sm/Scav.h
rts/sm/ShouldCompact.h
rts/sm/Storage.h
rts/sm/Sweep.h
rts/win32/AsyncIO.h
rts/win32/ConsoleHandler.h
rts/win32/IOManager.h
rts/win32/WorkQueue.h
rts/win32/veh_excn.h
utils/hp2ps/AreaBelow.h
utils/hp2ps/AuxFile.h
utils/hp2ps/Axes.h
utils/hp2ps/Curves.h
utils/hp2ps/Defines.h
utils/hp2ps/Deviation.h
utils/hp2ps/Dimensions.h
utils/hp2ps/Error.h
utils/hp2ps/HpFile.h
utils/hp2ps/Key.h
utils/hp2ps/Main.h
utils/hp2ps/Marks.h
utils/hp2ps/PsFile.h
utils/hp2ps/Reorder.h
utils/hp2ps/Scale.h
utils/hp2ps/Shade.h
utils/hp2ps/TopTwenty.h
utils/hp2ps/TraceElement.h
utils/hp2ps/Utilities.h
utils/lndir/lndir-Xos.h
utils/lndir/lndir-Xosdefs.h

index 4a0b04a..a4ec3e4 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef HSVERSIONS_H
-#define HSVERSIONS_H
+#pragma once
 
 #if 0
 
@@ -64,6 +63,3 @@ foreign import ccall unsafe saccessor                          \
 #define ASSERTM(e)      do { bool <- e; MASSERT(bool) }
 #define ASSERTM2(e,msg) do { bool <- e; MASSERT2(bool,msg) }
 #define WARNM2(e,msg)   do { bool <- e; WARN(bool, msg) return () }
-
-#endif /* HsVersions.h */
-
index bca1de4..e7e2076 100644 (file)
@@ -6,9 +6,6 @@
 
    -------------------------------------------------------------------------- */
 
-#ifndef NCG_H
-#define NCG_H
+#pragma once
 
 #include "ghc_boot_platform.h"
-
-#endif
index 10c8dab..0b31f90 100644 (file)
@@ -1,6 +1,5 @@
 /* MD5 message digest */
-#ifndef _MD5_H
-#define _MD5_H
+#pragma once
 
 #include "HsFFI.h"
 
@@ -17,8 +16,3 @@ void MD5Init(struct MD5Context *context);
 void MD5Update(struct MD5Context *context, byte const *buf, int len);
 void MD5Final(byte digest[16], struct MD5Context *context);
 void MD5Transform(word32 buf[4], word32 const in[16]);
-
-#endif /* _MD5_H */
-
-
-
index 22e9a47..74ae5c8 100644 (file)
@@ -1,8 +1,5 @@
-#ifndef ISMINTTY_H
-#define ISMINTTY_H
+#pragma once
 
 #include <stdbool.h>
 
 bool isMinTTY();
-
-#endif /* ISMINTTY_H */
index 276348a..779416b 100644 (file)
@@ -25,8 +25,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef CMM_H
-#define CMM_H
+#pragma once
 
 /*
  * In files that are included into both C and C-- (and perhaps
     }                                                          \
                                                                \
     return (dst);
-
-#endif /* CMM_H */
index 53478a7..bee942c 100644 (file)
@@ -9,8 +9,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef HSFFI_H
-#define HSFFI_H
+#pragma once
 
 #ifdef __cplusplus
 extern "C" {
@@ -122,5 +121,3 @@ extern void hs_try_putmvar (int capability, HsStablePtr sp);
 #ifdef __cplusplus
 }
 #endif
-
-#endif /* HSFFI_H */
index 380b3fb..778975e 100644 (file)
@@ -13,8 +13,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef MACHDEPS_H
-#define MACHDEPS_H
+#pragma once
 
 /* Don't allow stage1 (cross-)compiler embed assumptions about target
  * platform. When ghc-stage1 is being built by ghc-stage0 is should not
 #define TAG_MASK ((1 << TAG_BITS) - 1)
 
 #endif /* !defined(STAGE) || STAGE >= 2 */
-
-#endif /* MACHDEPS_H */
index be49b32..b36fc94 100644 (file)
@@ -10,8 +10,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_H
-#define RTS_H
+#pragma once
 
 #ifdef __cplusplus
 extern "C" {
@@ -313,5 +312,3 @@ TICK_VAR(2)
 #ifdef __cplusplus
 }
 #endif
-
-#endif /* RTS_H */
index e5326f7..f9b5618 100644 (file)
@@ -9,8 +9,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef RTSAPI_H
-#define RTSAPI_H
+#pragma once
 
 #ifdef __cplusplus
 extern "C" {
@@ -445,5 +444,3 @@ extern StgWord base_GHCziTopHandler_runNonIO_closure[];
 #ifdef __cplusplus
 }
 #endif
-
-#endif /* RTSAPI_H */
index 619984d..ff5e317 100644 (file)
@@ -23,8 +23,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef STG_H
-#define STG_H
+#pragma once
 
 #if !(__STDC_VERSION__ >= 199901L)
 # error __STDC_VERSION__ does not advertise C99 or later
@@ -567,5 +566,3 @@ typedef union {
   c;                                            \
 })
 #endif
-
-#endif /* STG_H */
index 5f10e92..7b99835 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef __GHCCONFIG_H__
-#define __GHCCONFIG_H__
+#pragma once
 
 #include "ghcautoconf.h"
 #include "ghcplatform.h"
-
-#endif
index 5e96a07..49fd626 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_ADJUSTOR_H
-#define RTS_ADJUSTOR_H
+#pragma once
 
 /* Creating and destroying an adjustor thunk */
 void* createAdjustor (int cconv, 
@@ -21,5 +20,3 @@ void* createAdjustor (int cconv,
                       char *typeString);
 
 void freeHaskellFunctionPtr (void* ptr);
-
-#endif /* RTS_ADJUSTOR_H */
index 166d7bb..23bc985 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_BLOCKSIGNALS_H
-#define RTS_BLOCKSIGNALS_H
+#pragma once
 
 /* Used by runProcess() in the process package
  */
@@ -33,5 +32,3 @@ void blockUserSignals(void);
  * The inverse of blockUserSignals(); re-enable the deliver of console events.
  */
 void unblockUserSignals(void);
-
-#endif /* RTS_BLOCKSIGNALS_H */
index 51ee74f..4305777 100644 (file)
@@ -13,8 +13,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_CONFIG_H
-#define RTS_CONFIG_H
+#pragma once
 
 #if defined(TICKY_TICKY) && defined(THREADED_RTS)
 #error TICKY_TICKY is incompatible with THREADED_RTS
@@ -47,5 +46,3 @@
 /* Profile spin locks */
 
 #define PROF_SPIN
-
-#endif /* RTS_CONFIG_H */
index 62fa833..27097bf 100644 (file)
@@ -17,8 +17,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_CONSTANTS_H
-#define RTS_CONSTANTS_H
+#pragma once
 
 /* -----------------------------------------------------------------------------
    Minimum closure sizes
  * we can have static arrays of this size in the RTS for speed.
  */
 #define MAX_NUMA_NODES 16
-
-#endif /* RTS_CONSTANTS_H */
index d6838ab..160aa19 100644 (file)
@@ -73,8 +73,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_EVENTLOGFORMAT_H
-#define RTS_EVENTLOGFORMAT_H
+#pragma once
 
 /*
  * Markers for begin/end of the Header.
@@ -245,5 +244,3 @@ typedef StgWord64 EventTaskId;         /* for EVENT_TASK_* */
 typedef StgWord64 EventKernelThreadId; /* for EVENT_TASK_CREATE */
 
 #endif
-
-#endif /* RTS_EVENTLOGFORMAT_H */
index f9cb25f..829b0f2 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef EVENTLOG_WRITER_H
-#define EVENTLOG_WRITER_H
+#pragma once
 
 #include <stddef.h>
 #include <stdbool.h>
@@ -36,5 +35,3 @@ typedef struct {
  * a file `program.eventlog`.
  */
 extern const EventLogWriter FileEventLogWriter;
-
-#endif /* EVENTLOG_WRITER_H */
index e4c7c66..8bc0814 100644 (file)
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_FILELOCK_H
-#define RTS_FILELOCK_H
+#pragma once
 
 #include "Stg.h"
 
 int  lockFile(int fd, StgWord64 dev, StgWord64 ino, int for_writing);
 int  unlockFile(int fd);
-
-#endif /* RTS_FILELOCK_H */
index 5195a3a..405fce1 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_FLAGS_H
-#define RTS_FLAGS_H
+#pragma once
 
 #include <stdio.h>
 #include <stdint.h>
@@ -282,5 +281,3 @@ extern char  **prog_argv;
 */
 extern int      rts_argc;  /* ditto */
 extern char   **rts_argv;
-
-#endif /* RTS_FLAGS_H */
index e5dbd9e..5b75b01 100644 (file)
@@ -11,9 +11,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_GETTIME_H
-#define RTS_GETTIME_H
+#pragma once
 
 StgWord64 getMonotonicNSec (void);
-
-#endif /* RTS_GETTIME_H */
index e3ff643..63d26e7 100644 (file)
@@ -14,8 +14,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_GLOBALS_H
-#define RTS_GLOBALS_H
+#pragma once
 
 #define mkStoreAccessorPrototype(name)                                  \
     StgStablePtr                                                        \
@@ -35,5 +34,3 @@ mkStoreAccessorPrototype(LibHSghcInitLinkerDone)
 mkStoreAccessorPrototype(LibHSghcGlobalDynFlags)
 mkStoreAccessorPrototype(LibHSghcStaticOptions)
 mkStoreAccessorPrototype(LibHSghcStaticOptionsReady)
-
-#endif /* RTS_GLOBALS_H */
index d70d1db..58d4813 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_HPC_H
-#define RTS_HPC_H
+#pragma once
 
 // Simple linked list of modules
 typedef struct _HpcModuleInfo {
@@ -33,5 +32,3 @@ HpcModuleInfo * hs_hpc_rootModule (void);
 
 void startupHpc(void);
 void exitHpc(void);
-
-#endif /* RTS_HPC_H */
index f9e2cd7..5d79a64 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_IOMANAGER_H
-#define RTS_IOMANAGER_H
+#pragma once
 
 #if defined(mingw32_HOST_OS)
 
@@ -42,5 +41,3 @@ void ioManagerWakeup (void);
 void ioManagerDie (void);
 void ioManagerStart (void);
 #endif
-
-#endif /* RTS_IOMANAGER_H */
index 6a3b95e..3918475 100644 (file)
@@ -6,10 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#include "Rts.h"
-
-#ifndef RTS_LIBDW_H
-#define RTS_LIBDW_H
+#pragma once
 
 // Chunk capacity
 // This is rather arbitrary
@@ -92,5 +89,3 @@ Backtrace *libdwGetBacktrace(LibdwSession *session);
 /* Lookup Location information for the given address.
  * Returns 0 if successful, 1 if address could not be found. */
 int libdwLookupLocation(LibdwSession *session, Location *loc, StgPtr pc);
-
-#endif /* RTS_LIBDW_H */
index 3360192..76ff41c 100644 (file)
@@ -6,8 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef RTS_LIBDW_POOL_H
-#define RTS_LIBDW_POOL_H
+#pragma once
 
 /* Claim a session from the pool */
 LibdwSession *libdwPoolTake(void);
@@ -18,5 +17,3 @@ void libdwPoolRelease(LibdwSession *sess);
 /* Free any sessions in the pool forcing a reload of any loaded debug
  * information */
 void libdwPoolClear(void);
-
-#endif /* RTS_LIBDW_POOL_H */
index 34bf0df..793195b 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_LINKER_H
-#define RTS_LINKER_H
+#pragma once
 
 #if defined(mingw32_HOST_OS)
 typedef wchar_t pathchar;
@@ -86,5 +85,3 @@ pathchar* findSystemLibrary(pathchar* dll_name);
 
 /* called by the initialization code for a module, not a user API */
 StgStablePtr foreignExportStablePtr (StgPtr p);
-
-#endif /* RTS_LINKER_H */
index 1c332fc..05924ad 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTSMAIN_H
-#define RTSMAIN_H
+#pragma once
 
 /* -----------------------------------------------------------------------------
  * The entry point for Haskell programs that use a Haskell main function
@@ -17,5 +16,3 @@ int hs_main (int argc, char *argv[],     // program args
              StgClosure *main_closure,   // closure for Main.main
              RtsConfig rts_config)       // RTS configuration
    GNUC3_ATTRIBUTE(__noreturn__);
-
-#endif /* RTSMAIN_H */
index 85ffdda..2a6a84b 100644 (file)
@@ -14,8 +14,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_MESSAGES_H
-#define RTS_MESSAGES_H
+#pragma once
 
 #include <stdarg.h>
 
@@ -102,5 +101,3 @@ extern RtsMsgFunction rtsFatalInternalErrorFn;
 extern RtsMsgFunction rtsDebugMsgFn;
 extern RtsMsgFunction rtsErrorMsgFn;
 extern RtsMsgFunction rtsSysErrorMsgFn;
-
-#endif /* RTS_MESSAGES_H */
index 2ebbd1e..05e52d9 100644 (file)
@@ -12,8 +12,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef RTS_OSTHREADS_H
-#define RTS_OSTHREADS_H
+#pragma once
 
 #if defined(HAVE_PTHREAD_H) && !defined(mingw32_HOST_OS)
 
@@ -257,5 +256,3 @@ typedef StgWord64 KernelThreadId;
 KernelThreadId kernelThreadId (void);
 
 #endif /* CMINUSMINUS */
-
-#endif /* RTS_OSTHREADS_H */
index 2c84327..de1c6e1 100644 (file)
@@ -11,9 +11,6 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_PARALLEL_H
-#define RTS_PARALLEL_H
+#pragma once
 
 StgInt newSpark (StgRegTable *reg, StgClosure *p);
-
-#endif /* RTS_PARALLEL_H */
index 248ea62..835a18a 100644 (file)
@@ -9,12 +9,9 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_PRIMFLOAT_H
-#define RTS_PRIMFLOAT_H
+#pragma once
 
 StgDouble __int_encodeDouble (I_ j, I_ e);
 StgFloat  __int_encodeFloat (I_ j, I_ e);
 StgDouble __word_encodeDouble (W_ j, I_ e);
 StgFloat  __word_encodeFloat (W_ j, I_ e);
-
-#endif /* RTS_PRIMFLOAT_H */
index 22cbe4a..d321b0d 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_SIGNALS_H
-#define RTS_SIGNALS_H
+#pragma once
 
 /* NB. #included in Haskell code, no prototypes in here. */
 
@@ -22,5 +21,3 @@
 #define STG_SIG_ERR   (-3)
 #define STG_SIG_HAN   (-4)
 #define STG_SIG_RST   (-5)
-
-#endif /* RTS_SIGNALS_H */
index dccd867..6530a3a 100644 (file)
@@ -19,9 +19,8 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_SPINLOCK_H
-#define RTS_SPINLOCK_H
+#pragma once
+
 #if defined(THREADED_RTS)
 
 #if defined(PROF_SPIN)
@@ -112,6 +111,3 @@ INLINE_HEADER void initSpinLock(void * p STG_UNUSED)
 { /* nothing */ }
 
 #endif /* THREADED_RTS */
-
-#endif /* RTS_SPINLOCK_H */
-
index f75b9ab..75fcf4f 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STABLE_H
-#define RTS_STABLE_H
+#pragma once
 
 EXTERN_INLINE StgPtr deRefStablePtr (StgStablePtr stable_ptr);
 StgStablePtr getStablePtr  (StgPtr p);
@@ -39,5 +38,3 @@ StgPtr deRefStablePtr(StgStablePtr sp)
 {
     return stable_ptr_table[(StgWord)sp].addr;
 }
-
-#endif /* RTS_STABLE_H */
index e536f4b..97a1720 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STATICPTRTABLE_H
-#define RTS_STATICPTRTABLE_H
+#pragma once
 
 /** Inserts an entry in the Static Pointer Table.
  *
@@ -43,5 +42,3 @@ void hs_spt_insert_stableptr(StgWord64 key[2], StgStablePtr *entry);
  *
  * */
 void hs_spt_remove (StgWord64 key[2]);
-
-#endif /* RTS_STATICPTRTABLE_H */
index f0b4225..3555818 100644 (file)
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_TTY_H
-#define RTS_TTY_H
+#pragma once
 
 void* __hscore_get_saved_termios(int fd);
 void  __hscore_set_saved_termios(int fd, void* ts);
-
-#endif /* RTS_TTY_H */
index f45d351..17a64c1 100644 (file)
@@ -12,8 +12,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_THREADS_H
-#define RTS_THREADS_H
+#pragma once
 
 #ifdef HAVE_SYS_TYPES_H
 #include <sys/types.h>
@@ -75,5 +74,3 @@ extern Capability MainCapability;
 // current value at the moment).
 //
 extern void setNumCapabilities (uint32_t new_);
-
-#endif /* RTS_THREADS_H */
index ff4d44a..de4e518 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_TICKY_H
-#define RTS_TICKY_H
+#pragma once
 
 /* -----------------------------------------------------------------------------
    The StgEntCounter type - needed regardless of TICKY_TICKY
@@ -31,5 +30,3 @@ typedef struct _StgEntCounter {
     StgInt      allocs;         /* number of allocations by this fun */
     struct _StgEntCounter *link;/* link to chain them all together */
 } StgEntCounter;
-
-#endif /* RTS_TICKY_H */
index a1debed..5fa166e 100644 (file)
@@ -9,8 +9,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef RTSTIME_H
-#define RTSTIME_H
+#pragma once
 
 // For most time values in the RTS we use a fixed resolution of nanoseconds,
 // normalising the time we get from platform-dependent APIs to this
@@ -39,5 +38,3 @@ INLINE_HEADER Time fsecondsToTime (double t)
 {
     return (Time)(t * TIME_RESOLUTION);
 }
-
-#endif // RTSTIME_H
index ca03953..f0a63d8 100644 (file)
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_TIMER_H
-#define RTS_TIMER_H
+#pragma once
 
 void startTimer (void);
 void stopTimer  (void);
 int rtsTimerSignal (void);
-
-#endif /* RTS_TIMER_H */
index 4b0e680..242b831 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_TYPES_H
-#define RTS_TYPES_H
+#pragma once
 
 #include <stddef.h>
 #include <stdbool.h>
@@ -30,5 +29,3 @@ typedef unsigned int nat __attribute__((deprecated));  /* uint32_t */
 typedef struct StgClosure_   StgClosure;
 typedef struct StgInfoTable_ StgInfoTable;
 typedef struct StgTSO_       StgTSO;
-
-#endif /* RTS_TYPES_H */
index a4a57ab..4ab025b 100644 (file)
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_UTILS_H
-#define RTS_UTILS_H
+#pragma once
 
 /* Alternate to raise(3) for threaded rts, for BSD-based OSes */
 int genericRaise(int sig);
-
-#endif /* RTS_UTILS_H */
index 1ed53c1..4805063 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_PROF_CCS_H
-#define RTS_PROF_CCS_H
+#pragma once
 
 /* -----------------------------------------------------------------------------
  * Data Structures
@@ -253,5 +252,3 @@ extern CostCentreStack * RTS_VAR(CCS_LIST);         // registered CCS list
 #define ENTER_CCS_THUNK(cap,p) doNothing()
 
 #endif /* PROFILING */
-
-#endif /* RTS_PROF_CCS_H */
index 7d6f9ff..fdbab4d 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_PROF_LDV_H
-#define RTS_PROF_LDV_H
+#pragma once
 
 #ifdef PROFILING
 
@@ -43,5 +42,3 @@
 #define LDV_RECORD_CREATE(c)   /* nothing */
 
 #endif /* PROFILING */
-
-#endif /* STGLDVPROF_H */
index 7d6f102..3c6f2b1 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STORAGE_BLOCK_H
-#define RTS_STORAGE_BLOCK_H
+#pragma once
 
 #include "ghcconfig.h"
 
@@ -351,4 +350,3 @@ round_up_to_mblocks(StgWord words)
 }
 
 #endif /* !CMINUSMINUS */
-#endif /* RTS_STORAGE_BLOCK_H */
index c8c270f..af77df3 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STORAGE_CLOSUREMACROS_H
-#define RTS_STORAGE_CLOSUREMACROS_H
+#pragma once
 
 /* -----------------------------------------------------------------------------
    Info tables are slammed up against the entry code, and the label
@@ -596,5 +595,3 @@ EXTERN_INLINE void overwritingClosureOfs (StgClosure *p, uint32_t offset)
     for (i = offset; i < size; i++)
         ((StgWord *)p)[i] = 0;
 }
-
-#endif /* RTS_STORAGE_CLOSUREMACROS_H */
index 234e00b..68cc919 100644 (file)
@@ -7,8 +7,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STORAGE_CLOSURETYPES_H
-#define RTS_STORAGE_CLOSURETYPES_H
+#pragma once
 
 /* 
  * WARNING WARNING WARNING
@@ -83,5 +82,3 @@
 #define SMALL_MUT_ARR_PTRS_FROZEN     62
 #define COMPACT_NFDATA                63
 #define N_CLOSURE_TYPES               64
-
-#endif /* RTS_STORAGE_CLOSURETYPES_H */
index 2c62552..f5baead 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STORAGE_CLOSURES_H
-#define RTS_STORAGE_CLOSURES_H
+#pragma once
 
 /*
  * The Layout of a closure header depends on which kind of system we're
@@ -475,6 +474,3 @@ typedef struct StgCompactNFData_ {
       // Used temporarily to store the result of compaction.  Doesn't need to be
       // a GC root.
 } StgCompactNFData;
-
-
-#endif /* RTS_STORAGE_CLOSURES_H */
index 8c56588..27858fb 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STORAGE_FUNTYPES_H
-#define RTS_STORAGE_FUNTYPES_H
+#pragma once
 
 /* generic - function comes with a small bitmap */
 #define ARG_GEN      0   
@@ -53,5 +52,3 @@
 #define ARG_PPPPPP   26
 #define ARG_PPPPPPP  27
 #define ARG_PPPPPPPP 28
-
-#endif /* RTS_STORAGE_FUNTYPES_H */
index ddc4238..387bd26 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STORAGE_GC_H
-#define RTS_STORAGE_GC_H
+#pragma once
 
 #include <stddef.h>
 #include "rts/OSThreads.h"
@@ -241,5 +240,3 @@ INLINE_HEADER void initBdescr(bdescr *bd, generation *gen, generation *dest)
     bd->gen_no  = gen->no;
     bd->dest_no = dest->no;
 }
-
-#endif /* RTS_STORAGE_GC_H */
index 307aac3..e732a30 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STORAGE_INFOTABLES_H
-#define RTS_STORAGE_INFOTABLES_H
+#pragma once
 
 /* ----------------------------------------------------------------------------
    Relative pointers
@@ -394,5 +393,3 @@ typedef struct StgConInfoTable_ {
 #else
 #define GET_PROF_DESC(info) ((info)->prof.closure_desc)
 #endif
-
-#endif /* RTS_STORAGE_INFOTABLES_H */
index a8251c8..9fbe92e 100644 (file)
@@ -9,8 +9,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STORAGE_MBLOCK_H
-#define RTS_STORAGE_MBLOCK_H
+#pragma once
 
 extern W_ peak_mblocks_allocated;
 extern W_ mblocks_allocated;
@@ -31,5 +30,3 @@ extern void *getNextMBlock(void **state, void *mblock);
 // needed for HEAP_ALLOCED below
 extern SpinLock gc_alloc_block_sync;
 #endif
-
-#endif /* RTS_STORAGE_MBLOCK_H */
index fd32919..e50e336 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_STORAGE_TSO_H
-#define RTS_STORAGE_TSO_H
+#pragma once
 
 /*
  * PROFILING info in a TSO
@@ -260,5 +259,3 @@ void dirty_STACK (Capability *cap, StgStack *stack);
 
 /* this is the NIL ptr for a TSO queue (e.g. runnable queue) */
 #define END_TSO_QUEUE  ((StgTSO *)(void*)&stg_END_TSO_QUEUE_closure)
-
-#endif /* RTS_STORAGE_TSO_H */
index 8ab5d8c..cf857a8 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef __STGDLL_H__
-#define __STGDLL_H__ 1
+#pragma once
 
 #if defined(COMPILING_WINDOWS_DLL)
 #  if defined(x86_64_HOST_ARCH)
@@ -71,5 +70,3 @@
 #else
 #define DLL_IMPORT_STDLIB DLLIMPORT
 #endif
-
-#endif /* __STGDLL_H__ */
index e95cefd..37e687b 100644 (file)
@@ -12,8 +12,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef HASKELLMACHREGS_H
-#define HASKELLMACHREGS_H
+#pragma once
 
 /*
  * Defining NO_REGS causes no global registers to be used.  NO_REGS is
@@ -45,5 +44,3 @@
 #endif
 
 #include "MachRegs.h"
-
-#endif /* HASKELLMACHREGS_H */
index 232ce03..a0cf595 100644 (file)
@@ -12,8 +12,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef MACHREGS_H
-#define MACHREGS_H
+#pragma once
 
 /* This file is #included into Haskell code in the compiler: #defines
  * only in here please.
@@ -714,5 +713,3 @@ the stack. See Note [Overlapping global registers] for implications.
 #else
 #undef NO_ARG_REGS
 #endif
-
-#endif /* MACHREGS_H */
index 9d907ab..1181abc 100644 (file)
@@ -17,8 +17,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef STGMISCCLOSURES_H
-#define STGMISCCLOSURES_H
+#pragma once
 
 #if IN_STG_CODE
 #  define RTS_RET_INFO(i)   extern W_(i)[]
@@ -532,5 +531,3 @@ void * pushCostCentre (void *ccs, void *cc);
 extern unsigned int n_capabilities;
 
 #endif
-
-#endif /* STGMISCCLOSURES_H */
index 9872512..fa3a3ec 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef PRIM_H
-#define PRIM_H
+#pragma once
 
 /* libraries/ghc-prim/cbits/atomic.c */
 StgWord hs_atomic_add8(StgWord x, StgWord val);
@@ -81,5 +80,3 @@ StgWord hs_ctz8(StgWord x);
 StgWord hs_ctz16(StgWord x);
 StgWord hs_ctz32(StgWord x);
 StgWord hs_ctz64(StgWord64 x);
-
-#endif /* PRIM_H */
index 3632463..cf9e306 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef REGS_H
-#define REGS_H
+#pragma once
 
 /*
  * The STG machine has a collection of "registers", each one of which
@@ -527,5 +526,3 @@ GLOBAL_REG_DECL(bdescr *,HpAlloc,REG_HpAlloc)
 #define stg_gc_fun                (FunReg->stgGCFun)
 
 #endif /* IN_STG_CODE */
-
-#endif /* REGS_H */
index 29262dc..5a0464b 100644 (file)
@@ -12,8 +12,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTSMACHREGS_H
-#define RTSMACHREGS_H
+#pragma once
 
 #ifdef UnregisterisedCompiler
 #ifndef NO_REGS
@@ -51,5 +50,3 @@
 #endif
 
 #include "MachRegs.h"
-
-#endif /* RTSMACHREGS_H */
index 0e806b6..e4ae612 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef SMP_H
-#define SMP_H
+#pragma once
 
 #if arm_HOST_ARCH && defined(arm_HOST_ARCH_PRE_ARMv6)
 void arm_atomic_spin_lock(void);
@@ -299,5 +298,3 @@ atomic_dec(StgVolatilePtr p)
 #define VOLATILE_LOAD(p) ((StgWord)*((StgWord*)(p)))
 
 #endif /* !THREADED_RTS */
-
-#endif /* SMP_H */
index 5143c2f..1e16a1a 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef TICKYCOUNTERS_H
-#define TICKYCOUNTERS_H
+#pragma once
 
 /* These should probably be automatically generated in order to
    keep them consistent with the macros that use them (which are
@@ -215,6 +214,3 @@ EXTERN StgInt RET_UNBOXED_TUP_hst[TICKY_BIN_COUNT] INIT({0});
 #define TICK_ALLOC_SE_THK(g,s)
 
 #endif
-
-
-#endif /* TICKYCOUNTERS_H */
index 3a08eb2..af6a517 100644 (file)
@@ -18,8 +18,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef STGTYPES_H
-#define STGTYPES_H
+#pragma once
 
 #if defined(mingw32_HOST_OS)
 /* Inform mingw we want the ISO rather than Windows printf format specifiers. */
@@ -182,5 +181,3 @@ typedef StgWord8*          StgByteArray;
 
 typedef void  *(*(*StgFunPtr)(void))(void);
 typedef StgFunPtr StgFun(void);
-
-#endif /* STGTYPES_H */
index e9d19a8..2b40c41 100644 (file)
@@ -5,8 +5,7 @@
 // --------------------------------------------------------------------------
 -}
 
-#ifndef CTYPES__H
-#define CTYPES__H
+#pragma once
 
 {-
 // As long as there is no automatic derivation of classes for newtypes we resort
@@ -47,5 +46,3 @@ newtype {-# CTYPE "THE_CTYPE" #-} T = T B \
 newtype {-# CTYPE "THE_CTYPE" #-} T = T (B) \
     deriving (OPAQUE_CLASSES) \
     deriving newtype Show;
-
-#endif
index cbbccbf..8ee2074 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef __HSBASE_H__
-#define __HSBASE_H__
+#pragma once
 
 #include "HsBaseConfig.h"
 
@@ -554,6 +553,3 @@ INLINE intptr_t  __hscore_to_intptr   (void *p)     { return (intptr_t)p; }
 
 void errorBelch2(const char*s, char *t);
 void debugBelch2(const char*s, char *t);
-
-#endif /* __HSBASE_H__ */
-
index fe0a7ca..e2fb629 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef __HS_EVENT_H__
-#define __HS_EVENT_H__
+#pragma once
 
 #include "EventConfig.h"
 
@@ -33,7 +32,6 @@ INLINE int __hsevent_kill_thread(pthread_t *tid, int sig)
     return pthread_kill(*tid, sig);
 }
 
-#endif /* __HS_EVENT_H__ */
 /*
  * Local Variables: 
  * c-file-style: "stroustrup" 
index 11bedb6..306f89a 100644 (file)
@@ -1,6 +1,4 @@
-#ifndef WCSUBST_INCL
-
-#define WCSUBST_INCL
+#pragma once
 
 #include "HsFFI.h"
 #include <stdlib.h>
@@ -20,6 +18,3 @@ HsInt u_towupper(HsInt wc);
 HsInt u_towtitle(HsInt wc);
 
 HsInt u_gencat(HsInt wc);
-
-#endif
-
index 588139c..3536593 100644 (file)
@@ -3,11 +3,10 @@
  *
  * Win32 Console API helpers.
  */
-#ifndef __CONSUTILS_H__
-#define __CONSUTILS_H__
+#pragma once
+
 extern int is_console__(int fd);
 extern int set_console_buffering__(int fd, int cooked);
 extern int set_console_echo__(int fd, int on);
 extern int get_console_echo__(int fd);
 extern int flush_input_console__ (int fd);
-#endif
index 486a96c..a1b6157 100644 (file)
@@ -1,6 +1,5 @@
 /* MD5 message digest */
-#ifndef _MD5_H
-#define _MD5_H
+#pragma once
 
 #include "HsFFI.h"
 
@@ -17,8 +16,3 @@ void __hsbase_MD5Init(struct MD5Context *context);
 void __hsbase_MD5Update(struct MD5Context *context, byte const *buf, int len);
 void __hsbase_MD5Final(byte digest[16], struct MD5Context *context);
 void __hsbase_MD5Transform(word32 buf[4], word32 const in[16]);
-
-#endif /* _MD5_H */
-
-
-
index ba0767c..4823841 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef _HS_INTEGER_GMP_H_
-#define _HS_INTEGER_GMP_H_
+#pragma once
 
 /* Whether GMP is embedded into integer-gmp */
 #define GHC_GMP_INTREE     @UseIntreeGmp@
@@ -10,5 +9,3 @@
 #define GHC_GMP_VERSION_PL @GhcGmpVerPl@
 #define GHC_GMP_VERSION \
     (@GhcGmpVerMj@ * 10000 + @GhcGmpVerMi@ * 100 + @GhcGmpVerPl@)
-
-#endif /* _HS_INTEGER_GMP_H_ */
index 1c0b162..f225c4e 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef APPLY_H
-#define APPLY_H
+#pragma once
 
 // canned slow entry points, indexed by arg type (ARG_P, ARG_PP, etc.)
 #ifdef IN_STG_CODE
@@ -22,5 +21,3 @@ extern RTS_PRIVATE StgWord stg_stack_save_entries[];
 #else
 extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
 #endif
-
-#endif /* APPLY_H */
index 086a020..8fa8236 100644 (file)
@@ -4,8 +4,7 @@
    Arena allocation interface.
    -------------------------------------------------------------------------- */
 
-#ifndef ARENA_H
-#define ARENA_H
+#pragma once
 
 // Abstract type of arenas
 typedef struct _Arena Arena;
@@ -21,5 +20,3 @@ RTS_PRIVATE void arenaFree  ( Arena * );
 
 // For internal use only:
 RTS_PRIVATE unsigned long arenaBlocks( void );
-
-#endif /* ARENA_H */
index b73e666..b1d2636 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef AUTOAPPLY_H
-#define AUTOAPPLY_H
+#pragma once
 
 // Build a new PAP: function is in R1
 // ret addr and m arguments taking up n words are on the stack.
@@ -98,6 +97,3 @@
 #else
 #define jump_SAVE_CCCS(target,...) jump (target) [__VA_ARGS__]
 #endif
-
-#endif /* APPLY_H */
-
index f7c504b..92848ad 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------*/
 
-#ifndef AWAITEVENT_H
-#define AWAITEVENT_H
+#pragma once
 
 #if !defined(THREADED_RTS)
 /* awaitEvent(bool wait)
@@ -20,5 +19,3 @@
 RTS_PRIVATE void awaitEvent(bool wait);  /* In posix/Select.c or
                                           * win32/AwaitEvent.c */
 #endif
-
-#endif /* AWAITEVENT_H */
index bcc168d..515c2da 100644 (file)
@@ -18,8 +18,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef CAPABILITY_H
-#define CAPABILITY_H
+#pragma once
 
 #include "sm/GC.h" // for evac_fn
 #include "Task.h"
@@ -476,5 +475,3 @@ INLINE_HEADER bool emptyInbox(Capability *cap)
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* CAPABILITY_H */
index 7d2e5b1..ab85ead 100644 (file)
@@ -8,13 +8,10 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef CHECKUNLOAD_H
-#define CHECKUNLOAD_H
+#pragma once
 
 #include "BeginPrivate.h"
 
 void checkUnload (StgClosure *static_objects);
 
 #include "EndPrivate.h"
-
-#endif // CHECKUNLOAD_H
index c6f7156..5adff2e 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef DISASSEMBLER_H
-#define DISASSEMBLER_H
+#pragma once
 
 #ifdef DEBUG
 
@@ -15,5 +14,3 @@ RTS_PRIVATE int  disInstr   ( StgBCO *bco, int pc );
 RTS_PRIVATE void disassemble( StgBCO *bco );
 
 #endif
-
-#endif /* DISASSEMBLER_H */
index b393234..d32c145 100644 (file)
@@ -6,8 +6,7 @@
 *
 * ---------------------------------------------------------------------------*/
 
-#ifndef EXCN_H
-#define EXCN_H
+#pragma once
 
 #include "ghcconfig.h"
 
@@ -29,6 +28,3 @@
 #define BEGIN_WINDOWS_VEH_HANDLER
 #define END_WINDOWS_VEH_HANDLER
 #endif /* mingw32_HOST_OS */
-
-#endif /* EXCN_H */
-
index 72ab170..276b1c6 100644 (file)
@@ -6,10 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef POSIX_FILELOCK_H
-#define POSIX_FILELOCK_H
+#pragma once
 
 RTS_PRIVATE void initFileLocking(void);
 RTS_PRIVATE void freeFileLocking(void);
-
-#endif /* POSIX_FILELOCK_H */
index 5e3d0cf..a6f2b54 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef GETENV_H
-#define GETENV_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -19,5 +18,3 @@ void freeProgEnvv (int envc, char *envv[]);
 /* calls to getProgEnvv must have a corresponding freeProgEnvv */
 
 #include "EndPrivate.h"
-
-#endif /* GETENV_H */
index 4aaddd0..719b45f 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef GETTIME_H
-#define GETTIME_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -26,5 +25,3 @@ void  getUnixEpochTime      (StgWord64 *sec, StgWord32 *nsec);
 W_    getPageFaults         (void);
 
 #include "EndPrivate.h"
-
-#endif /* GETTIME_H */
index 395d240..c7aecae 100644 (file)
@@ -9,10 +9,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef GLOBALS_H
-#define GLOBALS_H
+#pragma once
 
 RTS_PRIVATE void initGlobalStore(void);
 RTS_PRIVATE void exitGlobalStore(void);
-
-#endif
index 5d085b0..1dde314 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef HASH_H
-#define HASH_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -66,5 +65,3 @@ void freeHashTable ( HashTable *table, void (*freeDataFun)(void *) );
 void exitHashTable ( void );
 
 #include "EndPrivate.h"
-
-#endif /* HASH_H */
index fd4f7b9..fa341f2 100644 (file)
@@ -6,9 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef INTERPRETER_H
-#define INTERPRETER_H
+#pragma once
 
 RTS_PRIVATE Capability *interpretBCO (Capability* cap);
-
-#endif /* INTERPRETER_H */
index 7475dc1..5c0a5a4 100644 (file)
@@ -7,8 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef LDVPROFILE_H
-#define LDVPROFILE_H
+#pragma once
 
 #ifdef PROFILING
 
@@ -37,5 +36,3 @@ RTS_PRIVATE void LdvCensusKillAll ( void );
     LDVW((c)) = (size)
 
 #endif /* PROFILING */
-
-#endif /* LDVPROFILE_H */
index bb3e71b..d737745 100644 (file)
@@ -11,8 +11,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef LIBDW_H
-#define LIBDW_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -44,5 +43,3 @@ int libdwForEachFrameOutwards(Backtrace *bt,
 #endif /* USE_LIBDW */
 
 #include "EndPrivate.h"
-
-#endif /* LIBDW_H */
index 3c4216d..b1c333e 100644 (file)
@@ -6,8 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef LIBDW_POOL_H
-#define LIBDW_POOL_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -26,5 +25,3 @@ INLINE_HEADER void libdwPoolInit(void) {}
 #endif /* USE_LIBDW */
 
 #include "EndPrivate.h"
-
-#endif /* LIBDW_POOL_H */
index 9d47661..65b95f7 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef LINKERINTERNALS_H
-#define LINKERINTERNALS_H
+#pragma once
 
 #include "Rts.h"
 #include "Hash.h"
@@ -342,4 +341,3 @@ struct _ObjectCodeFormatInfo { void* placeholder; };
 #endif
 
 #include "EndPrivate.h"
-#endif /* LINKERINTERNALS_H */
index 1459b58..a6637ea 100644 (file)
@@ -6,6 +6,8 @@
  *
  * --------------------------------------------------------------------------*/
 
+#pragma once
+
 #include "BeginPrivate.h"
 
 uint32_t messageBlackHole(Capability *cap, MessageBlackHole *msg);
index 4821938..152606a 100644 (file)
@@ -6,8 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef PATH_UTILS_H
-#define PATH_UTILS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -39,5 +38,3 @@ pathchar* mkPath(char* path);
 HsBool endsWithPath(pathchar* base, pathchar* str);
 
 #include "EndPrivate.h"
-
-#endif /* PATH_UTILS_H */
index edf16b5..edee5fa 100644 (file)
@@ -6,8 +6,7 @@
  * That includes most RTS C sources.
  * ---------------------------------------------------------------------------*/
 
-#ifndef POSIXSOURCE_H
-#define POSIXSOURCE_H
+#pragma once
 
 #include <ghcplatform.h>
 
@@ -50,5 +49,3 @@
   */
 #define __USE_MINGW_ANSI_STDIO 1
 #endif
-
-#endif /* POSIXSOURCE_H */
index d3c9494..ba36c10 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PRELUDE_H
-#define PRELUDE_H
+#pragma once
 
 /* These definitions are required by the RTS .cmm files too, so we
  * need declarations that we can #include into the generated .hc files.
@@ -119,5 +118,3 @@ PRELUDE_INFO(base_GHCziStable_StablePtr_con_info);
 #define FunPtr_con_info           DLL_IMPORT_DATA_REF(base_GHCziPtr_FunPtr_con_info)
 #define StablePtr_static_info     DLL_IMPORT_DATA_REF(base_GHCziStable_StablePtr_static_info)
 #define StablePtr_con_info        DLL_IMPORT_DATA_REF(base_GHCziStable_StablePtr_con_info)
-
-#endif /* PRELUDE_H */
index e72fdb0..7d1bb81 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PRINTER_H
-#define PRINTER_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -34,6 +33,3 @@ extern const char *what_next_strs[];
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PRINTER_H */
-
index 7b12578..85f81f3 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFHEAP_H
-#define PROFHEAP_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -22,5 +21,3 @@ bool doingRetainerProfiling(void);
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PROFHEAP_H */
index e2a1d53..516244e 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFILER_REPORT_H
-#define PROFILER_REPORT_H
+#pragma once
 
 #include <stdio.h>
 
@@ -24,5 +23,3 @@ void writeCCSReport( FILE *prof_file, CostCentreStack const *ccs,
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PROFILER_REPORT_H */
index 1e115d7..ace2e58 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFILER_REPORT_JSON_H
-#define PROFILER_REPORT_JSON_H
+#pragma once
 
 #include <stdio.h>
 
@@ -25,5 +24,3 @@ void writeCCSReportJson(FILE *prof_file,
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PROFILER_REPORT_JSON_H */
index 24a4e24..2160052 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFILING_H
-#define PROFILING_H
+#pragma once
 
 #include <stdio.h>
 
@@ -53,5 +52,3 @@ void debugCCS( CostCentreStack *ccs );
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* PROFILING_H */
index e323b93..89fb100 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef PROFTIMER_H
-#define PROFTIMER_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -20,5 +19,3 @@ void startHeapProfTimer ( void );
 extern bool performHeapProfile;
 
 #include "EndPrivate.h"
-
-#endif /* PROFTIMER_H */
index 3f65e25..002c22d 100644 (file)
@@ -6,8 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef RAISEASYNC_H
-#define RAISEASYNC_H
+#pragma once
 
 #define THROWTO_SUCCESS   0
 #define THROWTO_BLOCKED   1
@@ -79,5 +78,3 @@ interruptible(StgTSO *t)
 #include "EndPrivate.h"
 
 #endif /* CMINUSMINUS */
-
-#endif /* RAISEASYNC_H */
index 180c4e2..959c346 100644 (file)
@@ -7,8 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RETAINERPROFILE_H
-#define RETAINERPROFILE_H
+#pragma once
 
 #ifdef PROFILING
 
@@ -49,5 +48,3 @@ extern W_ retainerStackBlocks ( void );
 #include "EndPrivate.h"
 
 #endif /* PROFILING */
-
-#endif /* RETAINERPROFILE_H */
index 55a9989..38253a1 100644 (file)
@@ -7,8 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RETAINERSET_H
-#define RETAINERSET_H
+#pragma once
 
 #include <stdio.h>
 
@@ -194,4 +193,3 @@ void outputAllRetainerSet(FILE *);
 #include "EndPrivate.h"
 
 #endif /* PROFILING */
-#endif /* RETAINERSET_H */
index af60bcf..71ad219 100644 (file)
@@ -7,8 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTSFLAGS_H
-#define RTSFLAGS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -21,5 +20,3 @@ void freeRtsArgs          (void);
 extern RtsConfig rtsConfig;
 
 #include "EndPrivate.h"
-
-#endif /* RTSFLAGS_H */
index de346b8..d417603 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTSSIGNALS_H
-#define RTSSIGNALS_H
+#pragma once
 
 #if !defined(mingw32_HOST_OS)
 
@@ -63,5 +62,3 @@ void markSignalHandlers (evac_fn evac, void *user);
 #include "EndPrivate.h"
 
 #endif /* RTS_USER_SIGNALS */
-
-#endif /* RTSSIGNALS_H */
index 6987183..1f3d35e 100644 (file)
@@ -6,12 +6,9 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_SYMBOLINFO_H
-#define RTS_SYMBOLINFO_H
+#pragma once
 
 #include "LinkerInternals.h"
 
 HsBool isSymbolWeak(ObjectCode *owner, void *label);
 void setWeakSymbol(ObjectCode *owner, void *label);
-
-#endif /* RTS_SYMBOLINFO_H */
index 7f7ac0f..c2b2f07 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_SYMBOLS_H
-#define RTS_SYMBOLS_H
+#pragma once
 
 #include "ghcautoconf.h"
 #include "LinkerInternals.h"
@@ -26,5 +25,3 @@ typedef struct _RtsSymbolVal {
 } RtsSymbolVal;
 
 extern RtsSymbolVal rtsSyms[];
-
-#endif /* RTS_SYMBOLS_H */
index 6514e35..4b513cc 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTSUTILS_H
-#define RTSUTILS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -46,5 +45,3 @@ void printRtsInfo(void);
 void checkFPUStack(void);
 
 #include "EndPrivate.h"
-
-#endif /* RTSUTILS_H */
index 39cde45..4ade2d0 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef RTS_STORAGE_SMPCLOSUREOPS_H
-#define RTS_STORAGE_SMPCLOSUREOPS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -125,5 +124,3 @@ INLINE_HEADER void unlockTSO(StgTSO *tso)
 #endif /* CMINUSMINUS */
 
 #include "EndPrivate.h"
-
-#endif /* RTS_STORAGE_SMPCLOSUREOPS_H */
index 6dfa20d..e9e5e27 100644 (file)
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -30,8 +30,7 @@
 
 */
 
-#ifndef STM_H
-#define STM_H
+#pragma once
 
 #ifdef THREADED_RTS
 //#define STM_CG_LOCK
@@ -218,6 +217,3 @@ void stmWriteTVar(Capability *cap,
 /*----------------------------------------------------------------------*/
 
 #include "EndPrivate.h"
-
-#endif /* STM_H */
-
index 1453af4..23a1a5b 100644 (file)
@@ -7,8 +7,7 @@
  *
  * -------------------------------------------------------------------------*/
 
-#ifndef SCHEDULE_H
-#define SCHEDULE_H
+#pragma once
 
 #include "rts/OSThreads.h"
 #include "Capability.h"
@@ -246,5 +245,3 @@ emptyThreadQueues(Capability *cap)
 #endif /* !IN_STG_CODE */
 
 #include "EndPrivate.h"
-
-#endif /* SCHEDULE_H */
index fbbac08..d87d030 100644 (file)
@@ -6,8 +6,7 @@
  * 
  * ---------------------------------------------------------------------------*/
 
-#ifndef SPARKS_H
-#define SPARKS_H
+#pragma once
 
 #include "WSDeque.h"
 
@@ -104,5 +103,3 @@ INLINE_HEADER bool fizzledSpark (StgClosure *spark)
 #endif // THREADED_RTS
 
 #include "EndPrivate.h"
-
-#endif /* SPARKS_H */
index 679b4e8..5535637 100644 (file)
@@ -12,8 +12,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef STABLE_H
-#define STABLE_H
+#pragma once
 
 #include "sm/GC.h" // for evac_fn below
 
@@ -50,5 +49,3 @@ extern Mutex stable_mutex;
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* STABLE_H */
index 4ad126c..8300803 100644 (file)
@@ -6,8 +6,7 @@
  *
  * -------------------------------------------------------------------------- */
 
-#ifndef STATICPTRTABLE_H
-#define STATICPTRTABLE_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -15,5 +14,3 @@
 void exitStaticPtrTable ( void );
 
 #include "EndPrivate.h"
-
-#endif /* STATICPTRTABLE_H */
index 537f569..7ccb7c4 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef STATS_H
-#define STATS_H
+#pragma once
 
 #include "GetTime.h"
 
@@ -65,5 +64,3 @@ Time      stat_getElapsedGCTime(void);
 Time      stat_getElapsedTime(void);
 
 #include "EndPrivate.h"
-
-#endif /* STATS_H */
index c704dc2..70ece8f 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef STGPRIMFLOAT_H
-#define STGPRIMFLOAT_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -20,5 +19,3 @@ void      __decodeFloat_Int (I_ *man, I_ *exp, StgFloat flt);
 // includes/rts/PrimFloat.h.
 
 #include "EndPrivate.h"
-
-#endif /* STGPRIMFLOAT_H */
index 3839793..356c40d 100644 (file)
@@ -6,13 +6,10 @@
  *
  ---------------------------------------------------------------------------- */
 
-#ifndef STGRUN_H
-#define STGRUN_H
+#pragma once
 
 RTS_PRIVATE StgRegTable * StgRun (StgFunPtr f, StgRegTable *basereg);
 
 #if defined(mingw32_HOST_OS)
 StgWord8 *win32AllocStack(void);
 #endif
-
-#endif /* STGRUN_H */
index e5c2193..0410407 100644 (file)
@@ -9,8 +9,7 @@
  *
  * -------------------------------------------------------------------------*/
 
-#ifndef TASK_H
-#define TASK_H
+#pragma once
 
 #include "GetTime.h"
 
@@ -347,5 +346,3 @@ serialisableTaskId (Task *task)
 }
 
 #include "EndPrivate.h"
-
-#endif /* TASK_H */
index 742e77a..b70eaea 100644 (file)
@@ -7,8 +7,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef THREADLABELS_H
-#define THREADLABELS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -23,5 +22,3 @@ void    labelThread          (Capability *cap,
                               char       *label);
 
 #include "EndPrivate.h"
-
-#endif /* THREADLABELS_H */
index 197b8d3..4d762f9 100644 (file)
@@ -6,9 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef THREADPAUSED_H
-#define THREADPAUSED_H
+#pragma once
 
 RTS_PRIVATE void threadPaused ( Capability *cap, StgTSO * );
-
-#endif /* THREADPAUSED_H */
index 98792f4..faef2cb 100644 (file)
@@ -6,8 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef THREADS_H
-#define THREADS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -51,5 +50,3 @@ void printThreadQueue (StgTSO *t);
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* THREADS_H */
index c276ec6..2564723 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef TICKER_H
-#define TICKER_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -19,5 +18,3 @@ void stopTicker  (void);
 void exitTicker  (bool wait);
 
 #include "EndPrivate.h"
-
-#endif /* TICKER_H */
index a32a7a6..1a5357d 100644 (file)
@@ -6,9 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef TICKY_H
-#define TICKY_H
+#pragma once
 
 RTS_PRIVATE void PrintTickyInfo(void);
-
-#endif /* TICKY_H */
index daf0cc3..b8bf0b8 100644 (file)
@@ -6,10 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef TIMER_H
-#define TIMER_H
+#pragma once
 
 RTS_PRIVATE void initTimer (void);
 RTS_PRIVATE void exitTimer (bool wait);
-
-#endif /* TIMER_H */
index fddebb0..1146eea 100644 (file)
@@ -6,11 +6,15 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#pragma once
+
 #include <BeginPrivate.h>
+
 #include <rts/Types.h>
 #include <rts/storage/Closures.h>
 #include <stg/Types.h>
 #include <rts/Stable.h>
+
 // Initialize the top handler subsystem
 void initTopHandler(void);
 
index 383c409..4fb06e1 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef TRACE_H
-#define TRACE_H
+#pragma once
 
 #include "rts/EventLogFormat.h"
 #include "Capability.h"
@@ -868,5 +867,3 @@ INLINE_HEADER void traceTaskDelete(Task *task STG_UNUSED)
 }
 
 #include "EndPrivate.h"
-
-#endif /* TRACE_H */
index 5131772..adbfb49 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef UPDATES_H
-#define UPDATES_H
+#pragma once
 
 #ifndef CMINUSMINUS
 #include "BeginPrivate.h"
@@ -89,5 +88,3 @@ INLINE_HEADER void updateWithIndirection (Capability *cap,
 #ifndef CMINUSMINUS
 #include "EndPrivate.h"
 #endif
-
-#endif /* UPDATES_H */
index 58c7a58..2936c28 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef WSDEQUE_H
-#define WSDEQUE_H
+#pragma once
 
 typedef struct WSDeque_ {
     // Size of elements array. Used for modulo calculation: we round up
@@ -122,5 +121,3 @@ discardElements (WSDeque *q)
     q->top = q->bottom;
 //    pool->topBound = pool->top;
 }
-
-#endif // WSDEQUE_H
index d938979..ab33542 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef WEAK_H
-#define WEAK_H
+#pragma once
 
 #include "Capability.h"
 
@@ -22,6 +21,3 @@ void scheduleFinalizers(Capability *cap, StgWeak *w);
 void markWeakList(void);
 
 #include "EndPrivate.h"
-
-#endif /* WEAK_H */
-
index e36c973..90bb214 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef EVENTLOG_H
-#define EVENTLOG_H
+#pragma once
 
 #include "rts/EventLogFormat.h"
 #include "rts/EventLogWriter.h"
@@ -185,5 +184,3 @@ INLINE_HEADER void postThreadLabel(Capability    *cap   STG_UNUSED,
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* TRACING_H */
index 1383ccd..760e1da 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_HOOKS_H
-#define RTS_HOOKS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -25,5 +24,3 @@ extern void MallocFailHook (W_ request_size /* in bytes */, const char *msg);
 extern void FlagDefaultsHook (void);
 
 #include "EndPrivate.h"
-
-#endif /* RTS_HOOKS_H */
index f4d939d..aa081cc 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef CACHE_FLUSH_H
-#define CACHE_FLUSH_H
+#pragma once
 
 #include "LinkerInternals.h"
 
@@ -8,5 +7,3 @@
 void ocFlushInstructionCache( ObjectCode *oc );
 
 #include "EndPrivate.h"
-
-#endif /* CACHE_FLUSH_H */
index 0c33130..57ec46e 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef LINKER_ELF_H
-#define LINKER_ELF_H
+#pragma once
 
 #include "Rts.h"
 #include "LinkerInternals.h"
@@ -13,5 +12,3 @@ int ocRunInit_ELF        ( ObjectCode* oc );
 int ocAllocateSymbolExtras_ELF( ObjectCode *oc );
 
 #include "EndPrivate.h"
-
-#endif /* LINKER_ELF_H */
index 8ec49ca..e71f500 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef RTS_LINKER_M32ALLOC
-#define RTS_LINKER_M32ALLOC
+#pragma once
 
 #if RTS_LINKER_USE_MMAP
 #include <fcntl.h>
@@ -36,5 +35,3 @@ void m32_free(void *addr, size_t size) M32_NO_RETURN;
 void * m32_alloc(size_t size, size_t alignment) M32_NO_RETURN;
 
 #include "EndPrivate.h"
-
-#endif
index 9362eb7..c07e294 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef LINKER_MACHO_H
-#define LINKER_MACHO_H
+#pragma once
 
 #include "Rts.h"
 
@@ -21,5 +20,3 @@ void machoInitSymbolsWithoutUnderscore( void );
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* LINKER_MACHO_H */
index 5b2dced..b7ee7e2 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef MachOTypes_h
-#define MachOTypes_h
+#pragma once
 
 #if defined(OBJFORMAT_MACHO)
 
@@ -130,4 +129,3 @@ typedef struct _SectionFormatInfo {
 } SectionFormatInfo;
 
 #endif /* OBJECTFORMAT_MACHO */
-#endif /* MachOTypes_h */
index 09b8c91..b034d6c 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef LINKER_PE_I386_H
-#define LINKER_PE_I386_H
+#pragma once
 
 #include "Rts.h"
 #include "LinkerInternals.h"
@@ -107,5 +106,3 @@ See #9218
 
 
 #include "EndPrivate.h"
-
-#endif /* LINKER_PE_I386_H */
index 25cb022..d28baf4 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef LINKER_SYMBOL_EXTRAS_H
-#define LINKER_SYMBOL_EXTRAS_H
+#pragma once
 
 #include "Rts.h"
 #include "LinkerInternals.h"
@@ -26,5 +25,3 @@ SymbolExtra* makeSymbolExtra( ObjectCode const* oc,
 #endif /* NEED_SYMBOL_EXTRAS */
 
 #include "EndPrivate.h"
-
-#endif /* LINKER_SYMBOL_EXTRAS_H */
index 2c71d7a..d027351 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef POSIX_CLOCK_H
-#define POSIX_CLOCK_H
+#pragma once
 
 #ifdef HAVE_UNISTD_H
 # include <unistd.h>
@@ -31,5 +30,3 @@
 # include <mach/mach.h>
 # include <mach/mach_time.h>
 #endif
-
-#endif /* POSIX_CLOCK_H */
index 50d49d4..ed2a9b3 100644 (file)
@@ -6,12 +6,9 @@
  *
  * -------------------------------------------------------------------------*/
 
-#ifndef POSIX_SELECT_H
-#define POSIX_SELECT_H
+#pragma once
 
 // An absolute time value in units of 10ms.
 typedef StgWord LowResTime;
 
 RTS_PRIVATE LowResTime getDelayTarget (HsInt us);
-
-#endif /* POSIX_SELECT_H */
index d281821..0fe8c48 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef POSIX_SIGNALS_H
-#define POSIX_SIGNALS_H
+#pragma once
 
 #ifdef HAVE_SIGNAL_H
 # include <signal.h>
@@ -33,5 +32,3 @@ void ioManagerStartCap (/* inout */ Capability **cap);
 extern StgInt *signal_handlers;
 
 #include "EndPrivate.h"
-
-#endif /* POSIX_SIGNALS_H */
index 7b8e16b..eb1863c 100644 (file)
@@ -6,9 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef POSIX_TTY_H
-#define POSIX_TTY_H
+#pragma once
 
 RTS_PRIVATE void resetTerminalSettings (void);
-
-#endif /* POSIX_TTY_H */
index c26ae10..9b561df 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef BLOCK_ALLOC_H
-#define BLOCK_ALLOC_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -31,5 +30,3 @@ extern W_ n_alloc_blocks;   // currently allocated blocks
 extern W_ hw_alloc_blocks;  // high-water allocated blocks
 
 #include "EndPrivate.h"
-
-#endif /* BLOCK_ALLOC_H */
index d888b0c..a01c153 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_CNF_H
-#define SM_CNF_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -81,5 +80,3 @@ extern void insertCompactHash (Capability *cap,
 extern void verifyCompact (StgCompactNFData *str);
 
 #include "EndPrivate.h"
-
-#endif // SM_COMPACT_H
index 7ff6e12..6dcb50b 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_COMPACT_H
-#define SM_COMPACT_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -49,5 +48,3 @@ is_marked(StgPtr p, bdescr *bd)
 void compact (StgClosure *static_objects);
 
 #include "EndPrivate.h"
-
-#endif /* SM_COMPACT_H */
index 62d54eb..65a15a2 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_EVAC_H
-#define SM_EVAC_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -38,6 +37,3 @@ REGPARM1 void evacuate1 (StgClosure **p);
 extern W_ thunk_selector_depth;
 
 #include "EndPrivate.h"
-
-#endif /* SM_EVAC_H */
-
index a2bf612..a176fde 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_GC_H
-#define SM_GC_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -62,5 +61,3 @@ void releaseGCThreads (Capability *cap, bool idle_cap[]);
 #define WORK_UNIT_WORDS 128
 
 #include "EndPrivate.h"
-
-#endif /* SM_GC_H */
index f1f9516..d3717d1 100644 (file)
@@ -9,8 +9,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_GCTDECL_H
-#define SM_GCTDECL_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -143,5 +142,3 @@ extern __thread gc_thread* gct;
 #endif // THREADED_RTS
 
 #include "EndPrivate.h"
-
-#endif // SM_GCTDECL_H
index 89457e6..15f1f13 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_GCTHREAD_H
-#define SM_GCTHREAD_H
+#pragma once
 
 #include "WSDeque.h"
 #include "GetTime.h" // for Ticks
@@ -208,5 +207,3 @@ extern ThreadLocalKey gctKey;
 #endif
 
 #include "EndPrivate.h"
-
-#endif // SM_GCTHREAD_H
index 3092262..072b1fc 100644 (file)
@@ -11,8 +11,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#ifndef SM_GCUTILS_H
-#define SM_GCUTILS_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -76,5 +75,3 @@ recordMutableGen_GC (StgClosure *p, uint32_t gen_no)
 }
 
 #include "EndPrivate.h"
-
-#endif /* SM_GCUTILS_H */
index 0ec1e6d..a74e79a 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_HEAP_ALLOC_H
-#define SM_HEAP_ALLOC_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -223,5 +222,3 @@ StgBool HEAP_ALLOCED_GC(void *p)
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* SM_HEAP_ALLOC_H */
index 881e2b0..51eee57 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_MARKSTACK_H
-#define SM_MARKSTACK_H
+#pragma once
 
 #include "BeginPrivate.h"
 #include "GCUtils.h"
@@ -68,5 +67,3 @@ mark_stack_empty(void)
 }
 
 #include "EndPrivate.h"
-
-#endif /* SM_MARKSTACK_H */
index bd27bf5..eba1f21 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_MARKWEAK_H
-#define SM_MARKWEAK_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -27,5 +26,3 @@ void    markWeakPtrList        ( void );
 void    scavengeLiveWeak       ( StgWeak * );
 
 #include "EndPrivate.h"
-
-#endif /* SM_MARKWEAK_H */
index 4d158df..4a19b34 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_OSMEM_H
-#define SM_OSMEM_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -88,5 +87,3 @@ void osReleaseHeapMemory(void);
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* SM_OSMEM_H */
index 63ae05d..f9f1b3b 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SANITY_H
-#define SANITY_H
+#pragma once
 
 #ifdef DEBUG
 
@@ -42,5 +41,3 @@ void checkBQ (StgTSO *bqe, StgClosure *closure);
 #include "EndPrivate.h"
 
 #endif /* DEBUG */
-#endif /* SANITY_H */
index ddd7d6d..865a78a 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_SCAV_H
-#define SM_SCAV_H
+#pragma once
 
 #include "BeginPrivate.h"
 
@@ -25,6 +24,3 @@ void    scavenge_capability_mut_Lists1 (Capability *cap);
 #endif
 
 #include "EndPrivate.h"
-
-#endif /* SM_SCAV_H */
-
index a8ae85d..bce8ced 100644 (file)
@@ -11,8 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_SHOULDCOMPACT_H
-#define SM_SHOULDCOMPACT_H
+#pragma once
 
 #define SHOULDCOMPACT_STATIC 0
 #define SHOULDCOMPACT_IN_CNF 1
@@ -22,5 +21,3 @@
 #ifndef CMINUSMINUS
 extern StgWord shouldCompact (StgCompactNFData *str, StgClosure *p);
 #endif
-
-#endif
index 69901fd..2d69eee 100644 (file)
@@ -6,8 +6,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_STORAGE_H
-#define SM_STORAGE_H
+#pragma once
 
 #include "Capability.h"
 
@@ -197,5 +196,3 @@ extern StgIndStatic * debug_caf_list;
 extern StgIndStatic * revertible_caf_list;
 
 #include "EndPrivate.h"
-
-#endif /* SM_STORAGE_H */
index b590faa..02cda8d 100644 (file)
@@ -11,9 +11,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_SWEEP_H
-#define SM_SWEEP_H
+#pragma once
 
 RTS_PRIVATE void sweep(generation *gen);
-
-#endif /* SM_SWEEP_H */
index 3737db0..75d0e04 100644 (file)
@@ -5,8 +5,7 @@
  * (c) sof, 2002-2003.
  */
 
-#ifndef WIN32_ASYNCHIO_H
-#define WIN32_ASYNCHIO_H
+#pragma once
 
 extern unsigned int
 addIORequest(int   fd,
@@ -23,5 +22,3 @@ extern int awaitRequests(bool wait);
 
 extern void abandonRequestWait(void);
 extern void resetAbandonRequestWait(void);
-
-#endif /* WIN32_ASYNCHIO_H */
index cd4a544..06af9dd 100644 (file)
@@ -2,8 +2,8 @@
  * Console control handler support.
  *
  */
-#ifndef WIN32_CONSOLEHANDLER_H
-#define WIN32_CONSOLEHANDLER_H
+
+#pragma once
 
 /*
  * Console control handlers lets an application handle Ctrl+C, Ctrl+Break etc.
@@ -60,5 +60,3 @@ extern void startSignalHandlers(Capability *cap);
 extern int rts_waitConsoleHandlerCompletion(void);
 
 #endif /* THREADED_RTS */
-
-#endif /* Win32_CONSOLEHANDLER_H */
index 01521ca..a5bd61a 100644 (file)
@@ -5,8 +5,7 @@
  * (c) sof, 2002-2003
  */
 
-#ifndef WIN32_IOMANAGER_H
-#define WIN32_IOMANAGER_H
+#pragma once
 
 #include <windows.h>
 
@@ -103,5 +102,3 @@ extern int AddProcRequest ( void*          proc,
                             CompletionProc onCompletion);
 
 extern void abandonWorkRequest ( int reqID );
-
-#endif /* WIN32_IOMANAGER_H */
index eb0b601..4dbfcd4 100644 (file)
@@ -6,8 +6,8 @@
  *
  */
 
-#ifndef WIN32_WORKQUEUE_H
-#define WIN32_WORKQUEUE_H
+#pragma once
+
 #include <windows.h>
 
 /* This is a fixed-size queue. */
@@ -34,5 +34,3 @@ extern HANDLE     GetWorkQueueHandle ( WorkQueue* pq );
 extern BOOL       GetWork            ( WorkQueue* pq, void** ppw );
 extern BOOL       FetchWork          ( WorkQueue* pq, void** ppw );
 extern int        SubmitWork         ( WorkQueue* pq, void*   pw );
-
-#endif /* WIN32_WORKQUEUE_H */
index 4223a2a..fda837f 100644 (file)
@@ -6,8 +6,7 @@
 *
 * ---------------------------------------------------------------------------*/
 
-#ifndef WIN32_VEH_EXCN_H
-#define WIN32_VEH_EXCN_H
+#pragma once
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -68,6 +67,3 @@ long WINAPI __hs_exception_handler( struct _EXCEPTION_POINTERS *exception_data )
 // prototypes to the functions doing the registration and unregistration of the VEH handlers
 void __register_hs_exception_handler( void );
 void __unregister_hs_exception_handler( void );
-
-#endif /* WIN32_VEH_EXCN_H */
-
index d7f713f..05333f3 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef AREA_BELOW_H
-#define AREA_BELOW_H
+#pragma once
 
 floatish AreaBelow PROTO((void));
-
-#endif /* AREA_BELOW_H */
index 6e962c4..68ba367 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef AUX_FILE_H
-#define AUX_FILE_H
+#pragma once
 
 void PutAuxFile PROTO((FILE *));
 void GetAuxFile PROTO((FILE *));
-
-#endif /* AUX_FILE_H */
index e4be505..930c072 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef AXES_H
-#define AXES_H
+#pragma once
 
 void Axes PROTO((void));
-
-#endif /* AXES_H */
index 0aa397f..b340987 100644 (file)
@@ -1,10 +1,7 @@
-#ifndef CURVES_H
-#define CURVES_H
+#pragma once
 
 void Curves PROTO((void));
 void CurvesInit PROTO((void));
 
 floatish xpage PROTO((floatish));
 floatish ypage PROTO((floatish));
-
-#endif /* CURVES_H */
index ae620f4..8b4dd3b 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef DEFINES_H
-#define DEFINES_H
+#pragma once
 
 /* 
  * Things that can be altered.
@@ -57,5 +56,3 @@ extern int _twenty_;
 #define VERSION                        "0.25"          /* as of 95/03/21        */
 
 #define max(x,y) ((x) > (y) ? (x) : (y))       /* not everyone has this */
-
-#endif /* DEFINES_H */
index 14e4df1..3d97d3c 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef DEVIATION_H
-#define DEVIATION_H
+#pragma once
 
 void Deviation  PROTO((void));
 void Identorder PROTO((int));
-
-#endif /* DEVIATION_H */
index 7bcc05b..50c2a42 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef DIMENSIONS_H
-#define DIMENSIONS_H
+#pragma once
 
 extern floatish borderheight; 
 extern floatish borderwidth; 
@@ -18,5 +17,3 @@ extern floatish graphwidth;
 
 void     Dimensions PROTO((void));
 floatish StringSize PROTO((char *));
-
-#endif /* DIMENSIONS_H */
index c1cdede..94d5c2d 100644 (file)
@@ -1,8 +1,5 @@
-#ifndef ERROR_H
-#define ERROR_H
+#pragma once
 
 extern void Error    PROTO((const char *, ...));
 extern void Disaster PROTO((const char *, ...));
 extern void Usage    PROTO((const char *));
-
-#endif /* ERROR_H */
index 6e01d1e..ff5a916 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef HP_FILE_H
-#define HP_FILE_H
+#pragma once
 
 typedef enum {
         /* These tokens are found in ".hp" files */ 
@@ -71,5 +70,3 @@ extern char *datestring;
  
 extern char *sampleunitstring;
 extern char *valueunitstring;
-
-#endif /* HP_FILE_H */
index d2a7b8e..3773220 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef KEY_H
-#define KEY_H
+#pragma once
 
 void Key PROTO((void));
-
-#endif /* KEY_H */
index 7a8626b..b023d42 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef MAIN_H
-#define MAIN_H
+#pragma once
 
 #include "ghcconfig.h"
 #include <stdio.h>
@@ -71,5 +70,3 @@ extern char *auxfile;
 
 extern FILE *hpfp;
 extern FILE *psfp;
-
-#endif /* MAIN_H */
index 41956f6..fe536e8 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef MARKS_H
-#define MARKS_H
+#pragma once
 
 void Marks PROTO((void));
-
-#endif /* MARKS_H */
index 07d3ed2..4f04297 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef PS_FILE_H
-#define PS_FILE_H
+#pragma once
 
 void PutPsFile PROTO((void));
 void NextPage PROTO((void)); // for Key.c
-
-#endif /* PS_FILE_H */
index ec3ec98..8945759 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef REORDER_H
-#define REORDER_H
+#pragma once
 
 void Reorder  PROTO((void));
 void OrderFor PROTO((char *, int));
-
-#endif /* REORDER_H */
index 0c19d6c..da28a33 100644 (file)
@@ -1,7 +1,4 @@
-#ifndef SCALE_H
-#define SCALE_H
+#pragma once
 
 floatish MaxCombinedHeight PROTO((void));
 void     Scale PROTO((void));
-
-#endif /* SCALE_H */
index 0e49c90..20738fb 100644 (file)
@@ -1,8 +1,5 @@
-#ifndef SHADE_H
-#define SHADE_H
+#pragma once
 
 floatish ShadeOf  PROTO((char *));
 void     ShadeFor PROTO((char *, floatish));
 void     SetPSColour PROTO((floatish));
-
-#endif /* SHADE_H */
index 53a7aed..4e6d01c 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef TOP_TWENTY_H
-#define TOP_TWENTY_H
+#pragma once
 
 void TopTwenty PROTO((void));
-
-#endif /* TOP_TWENTY_H */
index d843392..92ab117 100644 (file)
@@ -1,6 +1,3 @@
-#ifndef TRACE_ELEMENT_H
-#define TRACE_ELEMENT_H
+#pragma once
 
 void TraceElement PROTO((void));
-
-#endif /* TRACE_ELEMENT_H */
index 10776d9..d6e1efc 100644 (file)
@@ -1,5 +1,4 @@
-#ifndef UTILITIES_H
-#define UTILITIES_H
+#pragma once
 
 char* Basename    PROTO((char *));
 void  DropSuffix  PROTO((char *, char *));
@@ -9,5 +8,3 @@ char *copystring  PROTO((char *));
 char *copystring2 PROTO((char *, char *));
 void *xmalloc   PROTO((size_t));
 void *xrealloc  PROTO((void *, size_t));
-
-#endif /* UTILITIES_H */
index e91e959..c6d1e36 100644 (file)
@@ -21,8 +21,7 @@
  * in a "signficant" number of source files.
  */
 
-#ifndef _XOS_H_
-#define _XOS_H_
+#pragma once
 
 #include "lndir-Xosdefs.h"
 
@@ -148,5 +147,3 @@ struct timezone {
 #ifdef ISC
 #include <sys/bsdtypes.h>
 #endif
-
-#endif /* _XOS_H_ */
index e21db4b..7e232c9 100644 (file)
@@ -23,8 +23,7 @@
  * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */
 
-#ifndef _XOSDEFS_H_
-#define _XOSDEFS_H_
+#pragma once
 
 /*
  * X_NOT_STDC_ENV means does not have ANSI C header files.  Lack of this
@@ -95,5 +94,3 @@
 #define X_NOT_STDC_ENV
 #endif
 #endif
-
-#endif /* _XOSDEFS_H_ */