summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1999-06-21 14:50:19 +0000
committerJim Blandy <jimb@red-bean.com>1999-06-21 14:50:19 +0000
commita80a90e951468b69959362be07cbe177f140bd34 (patch)
treeda876e08b312fa52e48283dbef7c05cbbcac6acf
parent560f4b23a478c8a6f440792e044c37a9c056e18f (diff)
downloadguile-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.c22
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;