scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

I switched the order of two blocks of code; I have no idea why, and 

no longer even remember doing it.
	-Olin
This commit is contained in:
shivers 1999-07-11 20:49:42 +00:00
parent e0b3287da7
commit ebdb86c060
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
dynload.c
View File

@ -130,6 +130,20 @@ lookup_dlsym(char *name, long *location)
name++;
#endif
/* find the name in the self process image - ie original scheme48
executable file */
if (!selfhandle)
selfhandle=dlopen((char*)0, S48_DLOPEN_MODE);
if (adr=dlsym(selfhandle, name)) {
*location = (long) adr;
#ifdef DLDEBUG
printf(" %s:%d %s name='%s' in self at adr=%#x\n",
__FILE__, __LINE__, __FUNCTION__,
name, (long) adr);
#endif /*DLDEBUG*/
return 1;
};
/* perhaps i should scan the dlopened_handle from last to first,
to find newest incarnation of symbol? in practice it should be faster
to go from first (oldest) to last,
@ -145,19 +159,6 @@ lookup_dlsym(char *name, long *location)
#endif /*DLDEBUG*/
return 1;
};
/* find the name in the self process image - ie original scheme48
executable file */
if (!selfhandle)
selfhandle=dlopen((char*)0, S48_DLOPEN_MODE);
if (adr=dlsym(selfhandle, name)) {
*location = (long) adr;
#ifdef DLDEBUG
printf(" %s:%d %s name='%s' in self at adr=%#x\n",
__FILE__, __LINE__, __FUNCTION__,
name, (long) adr);
#endif /*DLDEBUG*/
return 1;
};
/* can't find name so return 0 */
#ifdef DLDEBUG
printf(" %s:%d %s name='%s' not found\n",