diff --git a/lisp/Darwin-os.c b/lisp/Darwin-os.c index 236d892edde04bfc093ff253c3cef27e3d578c90..768f4dac76069e7beafd98bb3e6677596daf411b 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 931ceebf821f05158a13144a92c2073537335154..91af4b1bb5fc58029930389bbcb23aa8275789b4 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 6fbcd93165d7f21ea196e08f877e44217b3fcfd3..9d7fff4de1a02705cdb8d0c2da15618c07687416 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 01f1482c1316de2bf2475d86a1b5bfa218f49da5..6a9b3f057b64e76654e0889af772ce35eaf238f5 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 4835a003fcc51d20481380d9e52cbc42177a0b15..8f8f393eae57007beace713093d57934b1aa7815 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 eda74366e16f626af011c7924a83b8b612f4cde3..3039e37725692dba3819ea9ec230feeb9f3bf973 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 0a4da372a1390c7435a1d77420c761a62ce11608..072a8a53a348ac7afb9aaef79c6440c5df7dbf55 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 75bdb4928c182d06b49c994b2a325e6c204dd715..d76be8eeef717e7b573661f9a886860491486cb6 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 c694ecd5b75d9face8843f31d55c958e454d1762..003d252c1e93482f6144bb13a3301ecb32fa42e9 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 3895faab1cccf7c02ab182c9f37f204a679d18f4..a632442d421b8e0b5231b53dd93e0624bf16408e 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 3d6c754c3c4e4f6c2f784e705b84ea94dba274c3..4a5493e0d6b55f803e18df6cd5c8030ef288781a 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 19e7a38bcb82030f27ee47337c6168b42c6c62a1..c9071178a2ff3d6ce997ad8a4fa75d1c489a492c 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 a2e9f37549fd925e6a916677cd5e148234de8a3b..7fbaec07c80914a7e561f02be96e2486df208f29 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 c18e1f228ee5e725f3d24a433c3f787292134610..a0e197522bae8122ea0e2272d922aada2424ac1d 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 0057168fcd113de6b5542f3a61d20d75546eb4a9..e6865cd671a12e351f11f829e522933ad5f758f8 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 9af86e4276d89267d88ffeacd4841fc6f7be667f..f9f6d2a10abda4149e41f3bebce6c2873b9aa913 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 86729bdb82c56ceb13e78c5b04c7254c6d64fe54..8bcc4d39bb30b0e5bf99a6fbc1df1164e4110c0e 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 15cc437b76effa9ceeadb23f4f1e5ccbe430506c..2848059f64f00afe9a6b513c0bb94df0497356ad 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 e7291a695aa430ab8a0f00774d3d9ca43b80c72d..0d9d028e9bcf6801b8dcc57ff931ddae1c7d5776 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 4d7ee287f92e80cd4997e4cad290de044c65e323..379a8865a4694944ec5f78f354996723fc350797 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 88f5fb91079d7c42ee5481903cc43d18cbbfa4bb..677c04a848c4508c10af14c0d8a58136bea97742 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);