pnmpi

181 |  */
182 | #ifdef RTLD_NEXT
183 | #define RTLDNEXT_RETRIEVAL(r_type, routine) \
184 |   r_type __tmp_function_ptr = (r_type)dlsym(RTLD_NEXT, routine);
185 | #define RTLDNEXT_CHECK(stack) pnmpi_function_ptrs.stack[i] != __tmp_function_ptr
186 | #else

183 | PNMPI_INTERNAL
184 | void *find_symbol(const module_def_p module, const char *symbol_name)
185 | {
186 |   void *symbol = dlsym(module->handle, symbol_name);
187 | 
188 | #ifdef HAVE_ADEPT_UTILS

4 | 
5 | #define printsymbol(symbol) \
6 |   { \
7 |     void *mysym = dlsym(RTLD_NEXT, #symbol); \
8 |     struct link_map *map = get_module_for_address(mysym); \
9 |     printf("module for " #symbol "(%#tx): %#tx(%s)\n", mysym, map->l_addr, map->l_name); \
16 | 
17 |   printsymbol(printf);
18 |   printsymbol(malloc);
19 |   printsymbol(dlsym);
20 | 
21 |