jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Bug fix in the dynamic loading code of the mzscheme binding

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9293 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Hans Oesterholt-Dijkema 2006-09-17 20:55:27 +00:00
commit f309ae3953
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
SWIG/Lib/mzscheme/mzrun.swg
View file

@ -402,10 +402,11 @@ SWIG_MzScheme_new_scheme_struct (Scheme_Env* env, const char* basename,
for(k=0;mz_dynload_libpaths[k]!=NULL && mz_libraries[i]==NULL;k++) { for(k=0;mz_dynload_libpaths[k]!=NULL && mz_libraries[i]==NULL;k++) {
int L=strlen(mz_dynload_libpaths[k])+strlen("\\")+strlen(mz_dlopen_libraries[i])+1; int L=strlen(mz_dynload_libpaths[k])+strlen("\\")+strlen(mz_dlopen_libraries[i])+1;
libp=(char *) malloc(L*sizeof(char)); libp=(char *) malloc(L*sizeof(char));
sprintf(libp,"%s\\%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]);
#ifdef __OS_WIN32 #ifdef __OS_WIN32
sprintf(libp,"%s\\%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]);
mz_libraries[i]=(void *) LoadLibrary(libp); mz_libraries[i]=(void *) LoadLibrary(libp);
#else #else
sprintf(libp,"%s/%s",mz_dynload_libpaths[k],mz_dlopen_libraries[i]);
mz_libraries[i]=(void *) dlopen(libp,RTLD_LAZY); mz_libraries[i]=(void *) dlopen(libp,RTLD_LAZY);
#endif #endif
if (mz_dynload_debug) { if (mz_dynload_debug) {