Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv24699/src/runtime

Modified Files:
	alpha-linux-os.h alpha-osf1-os.h fixnump.h hppa-linux-os.h 
	interrupt.c interrupt.h mips-linux-os.h os.h ppc-bsd-os.h 
	ppc-darwin-os.h ppc-linux-os.h runtime.h sparc-linux-os.h 
	sparc-sunos-os.h thread.h x86-64-bsd-os.h x86-64-darwin-os.h 
	x86-64-linux-os.h x86-bsd-os.h x86-darwin-os.h x86-linux-os.h 
	x86-sunos-os.h x86-win32-os.h 
Log Message:
1.0.8.1: Nicer C code
	- More consistent formatting.
	- Spelling fixes.
	- Declare empty parameter lists as void.


Index: alpha-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/alpha-linux-os.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- alpha-linux-os.h	1 Sep 2002 22:34:18 -0000	1.4
+++ alpha-linux-os.h	25 Jul 2007 21:37:31 -0000	1.5
@@ -4,7 +4,8 @@
 typedef struct ucontext os_context_t;
 typedef long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: alpha-osf1-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/alpha-osf1-os.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- alpha-osf1-os.h	18 Jul 2002 17:47:34 -0000	1.2
+++ alpha-osf1-os.h	25 Jul 2007 21:37:31 -0000	1.3
@@ -3,7 +3,8 @@
 
 typedef struct ucontext os_context_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: fixnump.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/fixnump.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- fixnump.h	14 Jul 2005 15:41:11 -0000	1.2
+++ fixnump.h	25 Jul 2007 21:37:31 -0000	1.3
@@ -12,7 +12,8 @@
 #ifndef _FIXNUMP_H
 #define _FIXNUMP_H
 
-static inline int fixnump(lispobj obj) {
+static inline int fixnump(lispobj obj)
+{
     return((obj &
             (LOWTAG_MASK &
              (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG))))

Index: hppa-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/hppa-linux-os.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- hppa-linux-os.h	1 Sep 2002 22:34:18 -0000	1.2
+++ hppa-linux-os.h	25 Jul 2007 21:37:31 -0000	1.3
@@ -6,7 +6,8 @@
    wide-sigcontext for 32-bit kernels */
 typedef unsigned long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: interrupt.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interrupt.c,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -d -r1.132 -r1.133
--- interrupt.c	18 Jun 2007 16:18:35 -0000	1.132
+++ interrupt.c	25 Jul 2007 21:37:31 -0000	1.133
@@ -597,7 +597,8 @@
  * already; we're just doing the Lisp-level processing now that we
  * put off then */
 static void
-run_deferred_handler(struct interrupt_data *data, void *v_context) {
+run_deferred_handler(struct interrupt_data *data, void *v_context)
+{
     /* The pending_handler may enable interrupts and then another
      * interrupt may hit, overwrite interrupt_data, so reset the
      * pending handler before calling it. Trust the handler to finish
@@ -1023,7 +1024,8 @@
  * functions and variables.
  */
 void
-undefined_alien_function() {
+undefined_alien_function(void)
+{
     funcall0(SymbolFunction(UNDEFINED_ALIEN_FUNCTION_ERROR));
 }
 
@@ -1112,7 +1114,7 @@
 }
 
 static void
-see_if_sigaction_nodefer_works()
+see_if_sigaction_nodefer_works(void)
 {
     struct sigaction sa, old_sa;
 
@@ -1255,7 +1257,7 @@
 }
 
 void
-interrupt_init()
+interrupt_init(void)
 {
 #ifndef LISP_FEATURE_WIN32
     int i;
@@ -1302,7 +1304,7 @@
 }
 #endif
 
-void
+static void
 unhandled_trap_error(os_context_t *context)
 {
     lispobj context_sap;
@@ -1315,7 +1317,7 @@
     lose("UNHANDLED-TRAP-ERROR fell through");
 }
 
-/* Common logic far trapping instructions. How we actually handle each
+/* Common logic for trapping instructions. How we actually handle each
  * case is highly architecture dependent, but the overall shape is
  * this. */
 void

Index: interrupt.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interrupt.h,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- interrupt.h	18 Jun 2007 16:18:35 -0000	1.31
+++ interrupt.h	25 Jul 2007 21:37:31 -0000	1.32
@@ -26,9 +26,9 @@
 /* FIXME: do not rely on NSIG being a multiple of 8 */
 #define REAL_SIGSET_SIZE_BYTES ((NSIG/8))
 
-extern void check_blockables_blocked_or_lose();
-extern void check_gc_signals_unblocked_or_lose();
-extern void unblock_gc_signals();
+extern void check_blockables_blocked_or_lose(void);
+extern void check_gc_signals_unblocked_or_lose(void);
+extern void unblock_gc_signals(void);
 
 static inline void
 sigcopyset(sigset_t *new, sigset_t *old)
@@ -62,7 +62,7 @@
 };
 
 
-extern void interrupt_init();
+extern void interrupt_init(void);
 extern void fake_foreign_function_call(os_context_t* context);
 extern void undo_fake_foreign_function_call(os_context_t* context);
 extern void arrange_return_to_lisp_function(os_context_t *, lispobj);
@@ -96,7 +96,7 @@
 /* Set all blockable signals into *s. */
 extern void sigaddset_blockable(sigset_t *s);
 
-extern void block_blockable_signals();
+extern void block_blockable_signals(void);
 
 /* The void* casting here avoids having to mess with the various types
  * of function argument lists possible for signal handlers:

Index: mips-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/mips-linux-os.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- mips-linux-os.h	30 Apr 2005 09:40:41 -0000	1.2
+++ mips-linux-os.h	25 Jul 2007 21:37:31 -0000	1.3
@@ -4,7 +4,8 @@
 typedef struct ucontext os_context_t;
 typedef unsigned long long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/os.h,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- os.h	4 Mar 2006 21:45:34 -0000	1.14
+++ os.h	25 Jul 2007 21:37:31 -0000	1.15
@@ -175,6 +175,6 @@
 /* Return an absolute path to the runtime executable, or NULL if this
  * information is unavailable.  If a non-null pathname is returned, it
  * must be 'free'd. */
-extern char *os_get_runtime_executable_path();
+extern char *os_get_runtime_executable_path(void);
 
 #endif

Index: ppc-bsd-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-bsd-os.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ppc-bsd-os.h	6 Feb 2007 15:51:17 -0000	1.1
+++ ppc-bsd-os.h	25 Jul 2007 21:37:31 -0000	1.2
@@ -3,7 +3,8 @@
 
 typedef int os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: ppc-darwin-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-darwin-os.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- ppc-darwin-os.h	20 Dec 2006 16:19:34 -0000	1.3
+++ ppc-darwin-os.h	25 Jul 2007 21:37:31 -0000	1.4
@@ -3,7 +3,8 @@
 
 typedef unsigned int os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: ppc-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-linux-os.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ppc-linux-os.h	5 Jul 2005 14:17:18 -0000	1.6
+++ ppc-linux-os.h	25 Jul 2007 21:37:31 -0000	1.7
@@ -4,7 +4,8 @@
 typedef struct ucontext os_context_t;
 typedef long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: runtime.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/runtime.h,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- runtime.h	6 Mar 2006 10:03:00 -0000	1.25
+++ runtime.h	25 Jul 2007 21:37:31 -0000	1.26
@@ -80,12 +80,14 @@
 #endif
 
 static inline int
-lowtag_of(lispobj obj) {
+lowtag_of(lispobj obj)
+{
     return obj & LOWTAG_MASK;
 }
 
 static inline int
-widetag_of(lispobj obj) {
+widetag_of(lispobj obj)
+{
     return obj & WIDETAG_MASK;
 }
 
@@ -128,6 +130,7 @@
 {
     return (lispobj *) ((pointer_sized_uint_t) (obj & ~LOWTAG_MASK));
 }
+
 /* inverse operation: create a suitably tagged lispobj from a native
  * pointer or integer.  Needs to be a macro due to the tedious C type
  * system */

Index: sparc-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/sparc-linux-os.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sparc-linux-os.h	1 Sep 2002 22:34:18 -0000	1.4
+++ sparc-linux-os.h	25 Jul 2007 21:37:31 -0000	1.5
@@ -4,7 +4,8 @@
 typedef struct sigcontext os_context_t;
 typedef unsigned long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */
     return (os_context_t *) (void_context + 37);
 }

Index: sparc-sunos-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/sparc-sunos-os.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sparc-sunos-os.h	18 Jul 2002 17:47:34 -0000	1.2
+++ sparc-sunos-os.h	25 Jul 2007 21:37:31 -0000	1.3
@@ -3,7 +3,8 @@
 
 typedef ucontext_t os_context_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */
     return (os_context_t *) (*void_context);
 }

Index: thread.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/thread.h,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- thread.h	26 Dec 2006 23:10:24 -0000	1.28
+++ thread.h	25 Jul 2007 21:37:31 -0000	1.29
@@ -42,7 +42,8 @@
 #endif
 
 static inline lispobj
-SymbolValue(u64 tagged_symbol_pointer, void *thread) {
+SymbolValue(u64 tagged_symbol_pointer, void *thread)
+{
     struct symbol *sym= (struct symbol *)
         (pointer_sized_uint_t)(tagged_symbol_pointer-OTHER_POINTER_LOWTAG);
 #ifdef LISP_FEATURE_SB_THREAD
@@ -57,7 +58,8 @@
 }
 
 static inline lispobj
-SymbolTlValue(u64 tagged_symbol_pointer, void *thread) {
+SymbolTlValue(u64 tagged_symbol_pointer, void *thread)
+{
     struct symbol *sym= (struct symbol *)
         (pointer_sized_uint_t)(tagged_symbol_pointer-OTHER_POINTER_LOWTAG);
 #ifdef LISP_FEATURE_SB_THREAD
@@ -69,7 +71,8 @@
 }
 
 static inline void
-SetSymbolValue(u64 tagged_symbol_pointer,lispobj val, void *thread) {
+SetSymbolValue(u64 tagged_symbol_pointer,lispobj val, void *thread)
+{
     struct symbol *sym= (struct symbol *)
         (pointer_sized_uint_t)(tagged_symbol_pointer-OTHER_POINTER_LOWTAG);
 #ifdef LISP_FEATURE_SB_THREAD
@@ -84,8 +87,10 @@
 #endif
     sym->value = val;
 }
+
 static inline void
-SetTlSymbolValue(u64 tagged_symbol_pointer,lispobj val, void *thread) {
+SetTlSymbolValue(u64 tagged_symbol_pointer,lispobj val, void *thread)
+{
 #ifdef LISP_FEATURE_SB_THREAD
     struct symbol *sym= (struct symbol *)
         (pointer_sized_uint_t)(tagged_symbol_pointer-OTHER_POINTER_LOWTAG);
@@ -109,7 +114,8 @@
  * much stuff like struct thread and all_threads to be defined, which
  * usually aren't by that time.  So, it's here instead.  Sorry */
 
-static inline struct thread *arch_os_get_current_thread() {
+static inline struct thread *arch_os_get_current_thread(void)
+{
 #if defined(LISP_FEATURE_SB_THREAD)
 #if defined(LISP_FEATURE_X86)
     register struct thread *me=0;

Index: x86-64-bsd-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-64-bsd-os.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- x86-64-bsd-os.h	15 Dec 2006 02:57:53 -0000	1.1
+++ x86-64-bsd-os.h	25 Jul 2007 21:37:31 -0000	1.2
@@ -7,7 +7,8 @@
 
 typedef register_t os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-64-darwin-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-64-darwin-os.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- x86-64-darwin-os.h	3 Mar 2007 00:42:03 -0000	1.1
+++ x86-64-darwin-os.h	25 Jul 2007 21:37:31 -0000	1.2
@@ -5,7 +5,8 @@
 
 typedef register_t os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-64-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-64-linux-os.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- x86-64-linux-os.h	14 Apr 2005 22:34:45 -0000	1.3
+++ x86-64-linux-os.h	25 Jul 2007 21:37:31 -0000	1.4
@@ -4,7 +4,8 @@
 typedef struct ucontext os_context_t;
 typedef long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-bsd-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-bsd-os.h,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- x86-bsd-os.h	15 Dec 2006 02:57:53 -0000	1.9
+++ x86-bsd-os.h	25 Jul 2007 21:37:31 -0000	1.10
@@ -8,7 +8,8 @@
 
 typedef int os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-darwin-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-darwin-os.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- x86-darwin-os.h	15 Dec 2006 14:54:52 -0000	1.3
+++ x86-darwin-os.h	25 Jul 2007 21:37:31 -0000	1.4
@@ -8,7 +8,8 @@
 
 typedef int os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-linux-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-linux-os.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- x86-linux-os.h	2 Aug 2005 15:56:44 -0000	1.7
+++ x86-linux-os.h	25 Jul 2007 21:37:31 -0000	1.8
@@ -4,7 +4,8 @@
 typedef struct ucontext os_context_t;
 typedef greg_t os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-sunos-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-sunos-os.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- x86-sunos-os.h	19 Aug 2005 12:15:16 -0000	1.1
+++ x86-sunos-os.h	25 Jul 2007 21:37:31 -0000	1.2
@@ -3,7 +3,8 @@
 
 typedef ucontext_t os_context_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }
 

Index: x86-win32-os.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/x86-win32-os.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- x86-win32-os.h	3 Jan 2006 09:52:38 -0000	1.1
+++ x86-win32-os.h	25 Jul 2007 21:37:31 -0000	1.2
@@ -4,7 +4,8 @@
 typedef CONTEXT os_context_t;
 typedef long os_context_register_t;
 
-static inline os_context_t *arch_os_get_context(void **void_context) {
+static inline os_context_t *arch_os_get_context(void **void_context)
+{
     return (os_context_t *) *void_context;
 }