Commit 39b5c1cb authored by Austin Seipp's avatar Austin Seipp
Browse files

rts: add Emacs 'Local Variables' to every .c file



This will hopefully help ensure some basic consistency in the forward by
overriding buffer variables. In particular, it sets the wrap length, the
offset to 4, and turns off tabs.
Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 952f622c
...@@ -1321,3 +1321,11 @@ freeHaskellFunctionPtr(void* ptr) ...@@ -1321,3 +1321,11 @@ freeHaskellFunctionPtr(void* ptr)
} }
#endif // !USE_LIBFFI_FOR_ADJUSTORS #endif // !USE_LIBFFI_FOR_ADJUSTORS
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -24,3 +24,11 @@ extern RTS_PRIVATE StgFun *stg_stack_save_entries[]; ...@@ -24,3 +24,11 @@ extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
#endif #endif
#endif /* APPLY_H */ #endif /* APPLY_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -117,3 +117,11 @@ arenaBlocks( void ) ...@@ -117,3 +117,11 @@ arenaBlocks( void )
{ {
return arena_blocks; return arena_blocks;
} }
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -23,3 +23,11 @@ RTS_PRIVATE void arenaFree ( Arena * ); ...@@ -23,3 +23,11 @@ RTS_PRIVATE void arenaFree ( Arena * );
RTS_PRIVATE unsigned long arenaBlocks( void ); RTS_PRIVATE unsigned long arenaBlocks( void );
#endif /* ARENA_H */ #endif /* ARENA_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -89,3 +89,11 @@ ...@@ -89,3 +89,11 @@
#endif /* APPLY_H */ #endif /* APPLY_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -22,3 +22,11 @@ RTS_PRIVATE void awaitEvent(rtsBool wait); /* In posix/Select.c or ...@@ -22,3 +22,11 @@ RTS_PRIVATE void awaitEvent(rtsBool wait); /* In posix/Select.c or
#endif #endif
#endif /* AWAITEVENT_H */ #endif /* AWAITEVENT_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -8,3 +8,11 @@ ...@@ -8,3 +8,11 @@
#if defined(HAS_VISIBILITY_HIDDEN) && !defined(freebsd_HOST_OS) #if defined(HAS_VISIBILITY_HIDDEN) && !defined(freebsd_HOST_OS)
#pragma GCC visibility push(hidden) #pragma GCC visibility push(hidden)
#endif #endif
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -1075,3 +1075,11 @@ rtsBool checkSparkCountInvariant (void) ...@@ -1075,3 +1075,11 @@ rtsBool checkSparkCountInvariant (void)
} }
#endif #endif
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -426,3 +426,11 @@ INLINE_HEADER rtsBool emptyInbox(Capability *cap) ...@@ -426,3 +426,11 @@ INLINE_HEADER rtsBool emptyInbox(Capability *cap)
#include "EndPrivate.h" #include "EndPrivate.h"
#endif /* CAPABILITY_H */ #endif /* CAPABILITY_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -318,3 +318,11 @@ void checkUnload (StgClosure *static_objects) ...@@ -318,3 +318,11 @@ void checkUnload (StgClosure *static_objects)
freeHashTable(addrs, NULL); freeHashTable(addrs, NULL);
} }
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -18,3 +18,11 @@ void checkUnload (StgClosure *static_objects); ...@@ -18,3 +18,11 @@ void checkUnload (StgClosure *static_objects);
#include "EndPrivate.h" #include "EndPrivate.h"
#endif // CHECKUNLOAD_H #endif // CHECKUNLOAD_H
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -91,3 +91,11 @@ StgWord16 closure_flags[] = { ...@@ -91,3 +91,11 @@ StgWord16 closure_flags[] = {
#if N_CLOSURE_TYPES != 65 #if N_CLOSURE_TYPES != 65
#error Closure types changed: update ClosureFlags.c! #error Closure types changed: update ClosureFlags.c!
#endif #endif
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -316,3 +316,11 @@ void disassemble( StgBCO *bco ) ...@@ -316,3 +316,11 @@ void disassemble( StgBCO *bco )
} }
#endif /* DEBUG */ #endif /* DEBUG */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -17,3 +17,11 @@ RTS_PRIVATE void disassemble( StgBCO *bco ); ...@@ -17,3 +17,11 @@ RTS_PRIVATE void disassemble( StgBCO *bco );
#endif #endif
#endif /* DISASSEMBLER_H */ #endif /* DISASSEMBLER_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
#if defined(HAS_VISIBILITY_HIDDEN) && !defined(freebsd_HOST_OS) #if defined(HAS_VISIBILITY_HIDDEN) && !defined(freebsd_HOST_OS)
#pragma GCC visibility pop #pragma GCC visibility pop
#endif #endif
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -143,3 +143,11 @@ unlockFile(int fd) ...@@ -143,3 +143,11 @@ unlockFile(int fd)
RELEASE_LOCK(&file_lock_mutex); RELEASE_LOCK(&file_lock_mutex);
return 0; return 0;
} }
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -13,3 +13,11 @@ RTS_PRIVATE void initFileLocking(void); ...@@ -13,3 +13,11 @@ RTS_PRIVATE void initFileLocking(void);
RTS_PRIVATE void freeFileLocking(void); RTS_PRIVATE void freeFileLocking(void);
#endif /* POSIX_FILELOCK_H */ #endif /* POSIX_FILELOCK_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -21,3 +21,11 @@ void freeProgEnvv (int envc, char *envv[]); ...@@ -21,3 +21,11 @@ void freeProgEnvv (int envc, char *envv[]);
#include "EndPrivate.h" #include "EndPrivate.h"
#endif /* GETENV_H */ #endif /* GETENV_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -29,3 +29,11 @@ W_ getPageFaults (void); ...@@ -29,3 +29,11 @@ W_ getPageFaults (void);
#include "EndPrivate.h" #include "EndPrivate.h"
#endif /* GETTIME_H */ #endif /* GETTIME_H */
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
...@@ -140,3 +140,11 @@ getOrSetLibHSghcFastStringTable(StgStablePtr ptr) ...@@ -140,3 +140,11 @@ getOrSetLibHSghcFastStringTable(StgStablePtr ptr)
{ {
return getOrSetKey(LibHSghcFastStringTable,ptr); return getOrSetKey(LibHSghcFastStringTable,ptr);
} }
// Local Variables:
// mode: C
// fill-column: 80
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment