mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* dynl.c (no_dynl_error, sysdep_dynl_link, sysdep_dynl_unlink,

Browse source 
sysdep_dynl_func): Use ANSI declarations, and const char *
pointers.  (Thanks to Mark Elbrecht.)
This commit is contained in:
Jim Blandy 1999-06-21 14:50:19 +00:00
parent 560f4b23a4
commit a80a90e951
1 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/dynl.c
View file

@ -1,6 +1,6 @@
/* dynl.c - dynamic linking /* 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 * 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 * it under the terms of the GNU General Public License as published by
@ -252,35 +252,31 @@ sysdep_dynl_init ()
} }
static void static void
no_dynl_error (subr) no_dynl_error (const char *subr)
char *subr;
{ {
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
scm_misc_error (subr, "dynamic linking not available", SCM_EOL); scm_misc_error (subr, "dynamic linking not available", SCM_EOL);
} }
static void * static void *
sysdep_dynl_link (filename, subr) sysdep_dynl_link (const char *filename,
const char *filename; const char *subr)
const char *subr;
{ {
no_dynl_error (subr); no_dynl_error (subr);
return NULL; return NULL;
} }
static void static void
sysdep_dynl_unlink (handle, subr) sysdep_dynl_unlink (void *handle,
void *handle; const char *subr)
char *subr;
{ {
no_dynl_error (subr); no_dynl_error (subr);
} }
static void * static void *
sysdep_dynl_func (symbol, handle, subr) sysdep_dynl_func (const char *symbol,
char *symbol; void *handle,
void *handle; const char *subr)
char *subr;
{ {
no_dynl_error (subr); no_dynl_error (subr);
return NULL; return NULL;