/[cmucl]/src/lisp/FreeBSD-os.c
ViewVC logotype

Diff of /src/lisp/FreeBSD-os.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by rtoy, Sun Jun 27 13:17:17 2010 UTC revision 1.34.4.1 by rtoy, Thu Sep 9 00:16:19 2010 UTC
# Line 307  os_install_interrupt_handlers(void) Line 307  os_install_interrupt_handlers(void)
307  void *  void *
308  os_dlsym(const char *sym_name, lispobj lib_list)  os_dlsym(const char *sym_name, lispobj lib_list)
309  {  {
310        static void *program_handle;
311    
312        if (!program_handle)
313            program_handle = dlopen((void *) 0, RTLD_LAZY | RTLD_GLOBAL);
314    
315      if (lib_list != NIL) {      if (lib_list != NIL) {
316          lispobj lib_list_head;          lispobj lib_list_head;
317    
# Line 320  os_dlsym(const char *sym_name, lispobj l Line 325  os_dlsym(const char *sym_name, lispobj l
325                  return sym_addr;                  return sym_addr;
326          }          }
327      }      }
328        return dlsym(program_handle, sym_name);
     return dlsym(RTLD_DEFAULT, sym_name);  
329  }  }
330    
331  void  void

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.34.4.1

  ViewVC Help
Powered by ViewVC 1.1.5