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