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

* iselect.c: #ifdef USE_THREADS around thread-related includes.

Browse source 
* dynl-dl.c (sysdep_dynl_func): Check both USCORE and
	DLSYM_ADDS_USCORE to decide whether to add an underscore.
This commit is contained in:
Tim Pierce 1997-11-28 22:58:10 +00:00
parent ebd79f623f
commit e085f7a634
3 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
1997-11-28 Tim Pierce <twp@skepsis.com>
* iselect.c: #ifdef USE_THREADS around thread-related includes.
* dynl-dl.c (sysdep_dynl_func): Check both USCORE and
DLSYM_ADDS_USCORE to decide whether to add an underscore.
1997-11-28 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 1997-11-28 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* iselect.c (coop_next_runnable_thread, * iselect.c (coop_next_runnable_thread,

6
libguile/dynl-dl.c
View file

@ -89,14 +89,14 @@ sysdep_dynl_func (symb, handle, subr)
char *err; char *err;
char *usymb; char *usymb;
#ifdef DLSYM_ADDS_USCORE #if defined(USCORE) && !defined(DLSYM_ADDS_USCORE)
fptr = dlsym (handle, symb);
#else
usymb = (char *) malloc (strlen (symb) + 2); usymb = (char *) malloc (strlen (symb) + 2);
*usymb = '_'; *usymb = '_';
strcpy (usymb + 1, symb); strcpy (usymb + 1, symb);
fptr = dlsym (handle, usymb); fptr = dlsym (handle, usymb);
free (usymb); free (usymb);
#else
fptr = dlsym (handle, symb);
#endif #endif
err = (char *)dlerror (); err = (char *)dlerror ();

2
libguile/iselect.c
View file

@ -45,8 +45,10 @@
#include "_scm.h" #include "_scm.h"
#ifdef USE_THREADS
#include "iselect.h" #include "iselect.h"
#include "coop-threads.h" #include "coop-threads.h"
#endif