Changeset 12672


Ignore:
Timestamp:
Aug 25, 2009, 7:34:21 AM (10 years ago)
Author:
gb
Message:

In the Darwin version of xFindSym (foreign symbol lookup), try
to find the symbol without stripping leading underscores and only
do the stripping if that fails.

(We ultimately want to stop prepending underscores to foreign
symbols on Darwin.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/pmcl-kernel.c

    r12665 r12672  
    22492249#ifdef DARWIN
    22502250#if 1
     2251  void *result;
     2252
    22512253  if ((handle == NULL) || (handle == ((void *) -1))) {
    22522254    handle = RTLD_DEFAULT;
    22532255  }   
    2254   if (*name == '_') {
    2255     name++;
    2256   }
    2257   return dlsym(handle, name);
     2256  result = dlsym(handle, name);
     2257  if ((result == NULL) && (*name == '_')) {
     2258    result = dlsym(handle, name+1);
     2259  }
     2260  return result;
    22582261#else
    22592262  natural address = 0;
Note: See TracChangeset for help on using the changeset viewer.