Changeset 12672

Timestamp:

Aug 25, 2009, 12:34:21 AM (15 years ago)

Author:

Gary Byers

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:

• trunk/source/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

trunk/source/lisp-kernel/pmcl-kernel.c

@@ -2249 +2249 @@
 #ifdef DARWIN
 #if 1
+  void *result;
+
   if ((handle == NULL) || (handle == ((void *) -1))) {
     handle = RTLD_DEFAULT;
   }    
-  if (*name == '_') {
-    name++;
-  }
-  return dlsym(handle, name);
+  result = dlsym(handle, name);
+  if ((result == NULL) && (*name == '_')) {
+    result = dlsym(handle, name+1);
+  }
+  return result;
 #else
   natural address = 0;