From b8d0dfaf762a57f8449a7bb4f3d1eb0d103d4b34 Mon Sep 17 00:00:00 2001
From: cshapiro <cshapiro>
Date: Wed, 19 Mar 2008 09:17:13 +0000
Subject: [PATCH] Always use prototype style function definitions. 
 Consistently use the void keyword to specify empty parameter lists.

---
 lisp/Darwin-os.c         |  4 ++--
 lisp/alpha-arch.c        |  4 ++--
 lisp/amd64-arch.c        |  4 ++--
 lisp/cgc.c               | 36 ++++++++++++++++++------------------
 lisp/gencgc.c            |  4 ++--
 lisp/hpux-os.c           |  6 +++---
 lisp/irix-os.c           |  4 ++--
 lisp/mach-os.c           |  6 +++---
 lisp/mips-arch.c         |  4 ++--
 lisp/monitor.c           |  6 +++---
 lisp/os-common.c         | 13 ++++---------
 lisp/osf1-os.c           |  4 ++--
 lisp/parse.c             | 17 ++++++-----------
 lisp/ppc-arch.c          |  6 +++---
 lisp/ppc-darwin-dlshim.c |  2 +-
 lisp/print.c             |  4 ++--
 lisp/solaris-os.c        | 10 +++++-----
 lisp/sparc-arch.c        |  8 ++++----
 lisp/sunos-os.c          | 12 ++++++------
 lisp/vars.c              | 10 ++++------
 lisp/x86-arch.c          |  4 ++--
 21 files changed, 78 insertions(+), 90 deletions(-)

diff --git a/lisp/Darwin-os.c b/lisp/Darwin-os.c
index 236d892ed..768f4dac7 100644
--- a/lisp/Darwin-os.c
+++ b/lisp/Darwin-os.c
@@ -14,7 +14,7 @@
  * Frobbed for OpenBSD by Pierre R. Mai, 2001.
  * Frobbed for Darwin by Pierre R. Mai, 2003.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.15 2008/01/17 14:13:15 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.16 2008/03/19 09:17:10 cshapiro Exp $
  *
  */
 
@@ -64,7 +64,7 @@ int cycles_per_tick = 1;
 
 #ifdef __ppc__
 void
-timebase_init()
+timebase_init(void)
 {
     int mib[2];
     int tbfrequency;
diff --git a/lisp/alpha-arch.c b/lisp/alpha-arch.c
index 931ceebf8..91af4b1bb 100644
--- a/lisp/alpha-arch.c
+++ b/lisp/alpha-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.10 2007/11/16 06:52:25 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.11 2008/03/19 09:17:10 cshapiro Rel $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -324,7 +324,7 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
diff --git a/lisp/amd64-arch.c b/lisp/amd64-arch.c
index 6fbcd9316..9d7fff4de 100644
--- a/lisp/amd64-arch.c
+++ b/lisp/amd64-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.6 2007/11/16 06:52:25 cshapiro Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.7 2008/03/19 09:17:10 cshapiro Exp $ 
  *
  */
 
@@ -315,7 +315,7 @@ sigtrap_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
diff --git a/lisp/cgc.c b/lisp/cgc.c
index 01f1482c1..6a9b3f057 100644
--- a/lisp/cgc.c
+++ b/lisp/cgc.c
@@ -1,5 +1,5 @@
 /* cgc.c -*- Mode: C; comment-column: 40; -*-
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.13 2005/09/15 18:26:51 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.14 2008/03/19 09:17:10 cshapiro Rel $
  *
  * Conservative Garbage Collector for CMUCL x86.
  *
@@ -188,7 +188,7 @@ print_space(struct space *s)
 }
 
 void
-print_spaces()
+print_spaces(void)
 {
     print_space(&space_0);
     print_space(&space_1);
@@ -205,7 +205,7 @@ print_cluster(struct cluster *cluster)
 }
 
 void
-print_clusters()
+print_clusters(void)
 {
     struct cluster *cluster;
 
@@ -375,7 +375,7 @@ compact_cluster(struct cluster *cluster)
 }
 
 static void
-compact_free_regions()
+compact_free_regions(void)
 {
     struct cluster *cluster;
 
@@ -460,7 +460,7 @@ alloc_large_region(int nchunks)
 }
 
 static struct region *
-alloc_small_region()
+alloc_small_region(void)
 {
     struct region *region = small_region_free_list;
 
@@ -803,7 +803,7 @@ sizeOfObject(obj_t obj)
 }
 
 static void
-init_osc()
+init_osc(void)
 {
     int i;
 
@@ -1519,7 +1519,7 @@ preserve_interrupt_contexts(void)
 
 
 static void
-flip_spaces()
+flip_spaces(void)
 {
     struct space *temp = oldspace;
 
@@ -1552,7 +1552,7 @@ preserve_pointer(void *ptr)
 }
 
 static void
-preserve_stack()
+preserve_stack(void)
 {
     void **addr;		/* auto var is current TOS */
 
@@ -1596,7 +1596,7 @@ scavenge_thread_stacks(void)
 #endif
 
 static void
-zero_stack()
+zero_stack(void)
 {
     /* This is a bit tricky because we don't want to zap any
      * stack frames between here and the call to mmap. For now,
@@ -1620,7 +1620,7 @@ zero_stack()
 #if defined STATIC_BLUE_BAG
 static int fast_static = 1;
 static void
-scavenge_static()
+scavenge_static(void)
 {
     /* Static space consists of alternating layers of
      * code objects that refer to read-only space (from purify),
@@ -1667,7 +1667,7 @@ scavenge_static()
 #endif
 
 static void
-scavenge_roots()
+scavenge_roots(void)
 {
     /* So what should go here?
      * When cgc starts up after purify/save all live objects
@@ -1714,7 +1714,7 @@ scavenge_roots()
 }
 
 static void
-scavenge_newspace()
+scavenge_newspace(void)
 {
     /* Scavenge is going to start at the beginning of newspace which
      * is presumed to have some "root" object pointers lying about due
@@ -1745,7 +1745,7 @@ scavenge_newspace()
 }
 
 static void
-free_oldspace()
+free_oldspace(void)
 {
     struct region *region, *next;
 
@@ -1837,7 +1837,7 @@ verify_space(lispobj * start, size_t words)
 
 /* For debug/test only. */
 static void
-verify_gc()
+verify_gc(void)
 {
     lispobj *rs0 = (lispobj *) READ_ONLY_SPACE_START;
     lispobj *rsz = (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER);
@@ -1901,7 +1901,7 @@ post_purify_fixup(struct space *space)
 static int dolog = 0;		/* log copy ops to file */
 static int dover = 0;		/* hunt pointers to oldspace */
 void
-cgc_collect_garbage()
+cgc_collect_garbage(void)
 {
     unsigned long allocated = bytes_allocated;
 
@@ -1945,7 +1945,7 @@ cgc_collect_garbage()
 }
 
 void
-cgc_free_heap()
+cgc_free_heap(void)
 {
     /* Like above but just zap everything 'cause purify has
      * cleaned house!
@@ -1964,7 +1964,7 @@ cgc_free_heap()
 
 
 void
-cgc_init_collector()
+cgc_init_collector(void)
 {
     int max_blocks;
 
@@ -2074,7 +2074,7 @@ gc_init(void)
 }
 
 void
-collect_garbage()
+collect_garbage(void)
 {
     /* SUB-GC wraps without-interrupt around call, but this
      * is going to absolutely block SIGINT.
diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index 4835a003f..8f8f393ea 100644
--- a/lisp/gencgc.c
+++ b/lisp/gencgc.c
@@ -7,7 +7,7 @@
  *
  * Douglas Crosher, 1996, 1997, 1998, 1999.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.93 2008/03/18 03:59:56 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.94 2008/03/19 09:17:10 cshapiro Exp $
  *
  */
 
@@ -6906,7 +6906,7 @@ scavenge_interrupt_handlers(void)
 
 #if !(defined(i386) || defined(__x86_64))
 static void
-scavenge_control_stack()
+scavenge_control_stack(void)
 {
     unsigned long control_stack_size;
 
diff --git a/lisp/hpux-os.c b/lisp/hpux-os.c
index eda74366e..3039e3772 100644
--- a/lisp/hpux-os.c
+++ b/lisp/hpux-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.7 2005/09/15 18:26:51 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.8 2008/03/19 09:17:10 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -53,7 +53,7 @@ static struct segment {
 } segments[MAX_SEGMENTS];
 
 void
-os_init()
+os_init(void)
 {
     int i;
 
@@ -239,7 +239,7 @@ sigbus_handler(int signal, int code, struct sigcontext *context)
 }
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
     interrupt_install_low_level_handler(SIGBUS, sigbus_handler);
diff --git a/lisp/irix-os.c b/lisp/irix-os.c
index 0a4da372a..072a8a53a 100644
--- a/lisp/irix-os.c
+++ b/lisp/irix-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.c,v 1.3 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.c,v 1.4 2008/03/19 09:17:10 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -30,7 +30,7 @@ os_vm_size_t os_vm_page_size = (-1);
 int zero_fd;
 
 void
-os_init()
+os_init(void)
 {
     zero_fd = open("/dev/zero", O_RDONLY);
     os_vm_page_size = getpagesize();
diff --git a/lisp/mach-os.c b/lisp/mach-os.c
index 75bdb4928..d76be8eee 100644
--- a/lisp/mach-os.c
+++ b/lisp/mach-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.c,v 1.5 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.c,v 1.6 2008/03/19 09:17:13 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -31,14 +31,14 @@ vm_size_t os_vm_page_size;
 
 #if defined(i386) || defined(parisc)
 mach_port_t
-task_self()
+task_self(void)
 {
     return mach_task_self();
 }
 #endif
 
 void
-os_init()
+os_init(void)
 {
     os_vm_page_size = vm_page_size;
 }
diff --git a/lisp/mips-arch.c b/lisp/mips-arch.c
index c694ecd5b..003d252c1 100644
--- a/lisp/mips-arch.c
+++ b/lisp/mips-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.11 2007/11/16 06:52:25 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -335,7 +335,7 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
     interrupt_install_low_level_handler(SIGFPE, sigfpe_handler);
diff --git a/lisp/monitor.c b/lisp/monitor.c
index 3895faab1..a632442d4 100644
--- a/lisp/monitor.c
+++ b/lisp/monitor.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.20 2005/09/15 18:26:52 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.21 2008/03/19 09:17:13 cshapiro Rel $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -502,7 +502,7 @@ sub_monitor(void)
 }
 
 void
-ldb_monitor()
+ldb_monitor(void)
 {
     jmp_buf oldbuf;
 
@@ -520,7 +520,7 @@ ldb_monitor()
 }
 
 void
-throw_to_monitor()
+throw_to_monitor(void)
 {
     longjmp(curbuf, 1);
 }
diff --git a/lisp/os-common.c b/lisp/os-common.c
index 3d6c754c3..4a5493e0d 100644
--- a/lisp/os-common.c
+++ b/lisp/os-common.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.26 2007/12/17 09:54:35 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.27 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -27,9 +27,7 @@
    hpux-os.c for some useful restrictions on actual usage. */
 
 void
-os_zero(addr, length)
-     os_vm_address_t addr;
-     os_vm_size_t length;
+os_zero(os_vm_address_t addr, os_vm_size_t length)
 {
     os_vm_address_t block_start;
     os_vm_size_t block_size;
@@ -62,8 +60,7 @@ os_zero(addr, length)
 }
 
 os_vm_address_t
-os_allocate(len)
-     os_vm_size_t len;
+os_allocate(os_vm_size_t len)
 {
     return os_validate((os_vm_address_t) NULL, len);
 }
@@ -75,9 +72,7 @@ os_allocate_at(os_vm_address_t addr, os_vm_size_t len)
 }
 
 void
-os_deallocate(addr, len)
-     os_vm_address_t addr;
-     os_vm_size_t len;
+os_deallocate(os_vm_address_t addr, os_vm_size_t len)
 {
     os_invalidate(addr, len);
 }
diff --git a/lisp/osf1-os.c b/lisp/osf1-os.c
index 19e7a38bc..c9071178a 100644
--- a/lisp/osf1-os.c
+++ b/lisp/osf1-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.c,v 1.3 2007/07/30 07:24:46 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.c,v 1.4 2008/03/19 09:17:13 cshapiro Rel $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -26,7 +26,7 @@
 vm_size_t os_vm_page_size;
 
 void
-os_init()
+os_init(void)
 {
     int buf[2] = { SSIN_UACPROC, UAC_SIGBUS | UAC_NOPRINT };
     int error;
diff --git a/lisp/parse.c b/lisp/parse.c
index a2e9f3754..7fbaec07c 100644
--- a/lisp/parse.c
+++ b/lisp/parse.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.11 2005/09/15 18:26:52 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $ */
 #include <stdio.h>
 #include <ctype.h>
 #include <signal.h>
@@ -124,8 +124,7 @@ lookup_variable(char *name, lispobj * result)
 
 
 boolean
-more_p(ptr)
-     char **ptr;
+more_p(char **ptr)
 {
     skip_ws(ptr);
 
@@ -136,8 +135,7 @@ more_p(ptr)
 }
 
 char *
-parse_token(ptr)
-     char **ptr;
+parse_token(char **ptr)
 {
     char *token;
 
@@ -200,8 +198,7 @@ number_p(token)
 #endif
 
 long
-parse_number(ptr)
-     char **ptr;
+parse_number(char **ptr)
 {
     char *token = parse_token(ptr);
     long result;
@@ -219,8 +216,7 @@ parse_number(ptr)
 }
 
 char *
-parse_addr(ptr)
-     char **ptr;
+parse_addr(char **ptr)
 {
     char *token = parse_token(ptr);
     long result;
@@ -310,8 +306,7 @@ parse_regnum(char *s)
 }
 
 lispobj
-parse_lispobj(ptr)
-     char **ptr;
+parse_lispobj(char **ptr)
 {
     char *token = parse_token(ptr);
     long pointer;
diff --git a/lisp/ppc-arch.c b/lisp/ppc-arch.c
index c18e1f228..a0e197522 100644
--- a/lisp/ppc-arch.c
+++ b/lisp/ppc-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-arch.c,v 1.12 2008/01/28 18:21:04 rtoy Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-arch.c,v 1.13 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -214,7 +214,7 @@ allocation_trap_p(os_context_t * context)
  * signal to perform allocation.
  */
 void
-enable_some_signals()
+enable_some_signals(void)
 {
     sigset_t sigs;
 
@@ -503,7 +503,7 @@ sigill_handler(HANDLER_ARGS)
 
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigill_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigill_handler);
diff --git a/lisp/ppc-darwin-dlshim.c b/lisp/ppc-darwin-dlshim.c
index 0057168fc..e6865cd67 100644
--- a/lisp/ppc-darwin-dlshim.c
+++ b/lisp/ppc-darwin-dlshim.c
@@ -188,7 +188,7 @@ dlopen(const char *filename, int flags)
 }
 
 const char *
-dlerror()
+dlerror(void)
 {
     static char *errbuf = NULL;
     NSLinkEditErrors a;
diff --git a/lisp/print.c b/lisp/print.c
index 9af86e427..f9f6d2a10 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.22 2006/07/12 18:42:40 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.23 2008/03/19 09:17:13 cshapiro Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -784,7 +784,7 @@ print_obj(char *prefix, lispobj obj)
 }
 
 void
-reset_printer()
+reset_printer(void)
 {
     cur_clock++;
     cur_lines = 0;
diff --git a/lisp/solaris-os.c b/lisp/solaris-os.c
index 86729bdb8..8bcc4d39b 100644
--- a/lisp/solaris-os.c
+++ b/lisp/solaris-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/solaris-os.c,v 1.19 2008/02/27 21:54:42 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/solaris-os.c,v 1.20 2008/03/19 09:17:13 cshapiro Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -300,7 +300,7 @@ segv_handler(HANDLER_ARGS)
 #endif
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
 }
@@ -384,7 +384,7 @@ getrusage(int who, struct rusage *rp)
 }
 
 int
-setreuid()
+setreuid(void)
 {
     fprintf(stderr, "setreuid unimplemented\n");
     errno = ENOSYS;
@@ -392,7 +392,7 @@ setreuid()
 }
 
 int
-setregid()
+setregid(void)
 {
     fprintf(stderr, "setregid unimplemented\n");
     errno = ENOSYS;
@@ -400,7 +400,7 @@ setregid()
 }
 
 int
-gethostid()
+gethostid(void)
 {
     fprintf(stderr, "gethostid unimplemented\n");
     errno = ENOSYS;
diff --git a/lisp/sparc-arch.c b/lisp/sparc-arch.c
index 15cc437b7..2848059f6 100644
--- a/lisp/sparc-arch.c
+++ b/lisp/sparc-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.28 2007/01/01 11:53:03 cshapiro Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.29 2008/03/19 09:17:13 cshapiro Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -28,7 +28,7 @@
 #include "interr.h"
 
 char *
-arch_init()
+arch_init(void)
 {
     return 0;
 }
@@ -282,7 +282,7 @@ pop_fake_control_stack_frame(struct sigcontext *context)
  * signal to perform allocation.
  */
 void
-enable_some_signals()
+enable_some_signals(void)
 {
 #ifdef GENCGC
     sigset_t sigs;
@@ -541,7 +541,7 @@ sigill_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigill_handler);
 }
diff --git a/lisp/sunos-os.c b/lisp/sunos-os.c
index e7291a695..0d9d028e9 100644
--- a/lisp/sunos-os.c
+++ b/lisp/sunos-os.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.c,v 1.8 2007/01/01 11:53:03 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.c,v 1.9 2008/03/19 09:17:13 cshapiro Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -91,7 +91,7 @@ os_init_bailout(arg)
 }
 
 void
-os_init()
+os_init(void)
 {
     char *empty_file = getenv("CMUCL_EMPTYFILE");
 
@@ -858,7 +858,7 @@ segv_handler(HANDLER_ARGS)
 }
 
 void
-os_install_interrupt_handlers()
+os_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGSEGV, segv_handler);
 }
@@ -971,7 +971,7 @@ getrusage(int who, struct rusage *rp)
 }
 
 int
-setreuid()
+setreuid(void)
 {
     fprintf(stderr, "setreuid unimplemented\n");
     errno = ENOSYS;
@@ -979,7 +979,7 @@ setreuid()
 }
 
 int
-setregid()
+setregid(void)
 {
     fprintf(stderr, "setregid unimplemented\n");
     errno = ENOSYS;
@@ -987,7 +987,7 @@ setregid()
 }
 
 int
-gethostid()
+gethostid(void)
 {
     fprintf(stderr, "gethostid unimplemented\n");
     errno = ENOSYS;
diff --git a/lisp/vars.c b/lisp/vars.c
index 4d7ee287f..379a8865a 100644
--- a/lisp/vars.c
+++ b/lisp/vars.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.6 2005/09/15 18:26:53 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.7 2008/03/19 09:17:13 cshapiro Rel $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <stdlib.h>
@@ -46,7 +46,7 @@ hash_obj(lispobj obj)
 
 
 void
-flush_vars()
+flush_vars(void)
 {
     int index;
     struct var *var, *next, *perm = NULL;
@@ -82,8 +82,7 @@ flush_vars()
 }
 
 struct var *
-lookup_by_name(name)
-     char *name;
+lookup_by_name(char *name)
 {
     struct var *var;
 
@@ -94,8 +93,7 @@ lookup_by_name(name)
 }
 
 struct var *
-lookup_by_obj(obj)
-     lispobj obj;
+lookup_by_obj(lispobj obj)
 {
     struct var *var;
 
diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c
index 88f5fb910..677c04a84 100644
--- a/lisp/x86-arch.c
+++ b/lisp/x86-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.35 2008/01/28 18:21:04 rtoy Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.36 2008/03/19 09:17:13 cshapiro Exp $ 
  *
  */
 
@@ -304,7 +304,7 @@ sigtrap_handler(HANDLER_ARGS)
 }
 
 void
-arch_install_interrupt_handlers()
+arch_install_interrupt_handlers(void)
 {
     interrupt_install_low_level_handler(SIGILL, sigtrap_handler);
     interrupt_install_low_level_handler(SIGTRAP, sigtrap_handler);
-- 
GitLab