diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-06-21 14:50:19 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-06-21 14:50:19 +0000 |
commit | a80a90e951468b69959362be07cbe177f140bd34 (patch) | |
tree | da876e08b312fa52e48283dbef7c05cbbcac6acf | |
parent | 560f4b23a478c8a6f440792e044c37a9c056e18f (diff) | |
download | guile-a80a90e951468b69959362be07cbe177f140bd34.tar.gz |
* dynl.c (no_dynl_error, sysdep_dynl_link, sysdep_dynl_unlink,
sysdep_dynl_func): Use ANSI declarations, and const char *
pointers. (Thanks to Mark Elbrecht.)
-rw-r--r-- | libguile/dynl.c | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index 31d940449..2ad1440dd 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -1,6 +1,6 @@ /* dynl.c - dynamic linking * - * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. + * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -252,35 +252,31 @@ sysdep_dynl_init () } static void -no_dynl_error (subr) - char *subr; +no_dynl_error (const char *subr) { SCM_ALLOW_INTS; scm_misc_error (subr, "dynamic linking not available", SCM_EOL); } static void * -sysdep_dynl_link (filename, subr) - const char *filename; - const char *subr; +sysdep_dynl_link (const char *filename, + const char *subr) { no_dynl_error (subr); return NULL; } static void -sysdep_dynl_unlink (handle, subr) - void *handle; - char *subr; +sysdep_dynl_unlink (void *handle, + const char *subr) { no_dynl_error (subr); } static void * -sysdep_dynl_func (symbol, handle, subr) - char *symbol; - void *handle; - char *subr; +sysdep_dynl_func (const char *symbol, + void *handle, + const char *subr) { no_dynl_error (subr); return NULL; |