1 /* Look up a symbol in a shared object loaded by `dlopen'.
2 Copyright (C) 1999, 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
32 #if defined USE_TLS && defined SHARED
33 /* Systems which do not have tls_index also probably have to define
34 DONT_USE_TLS_INDEX. */
36 # ifndef __TLS_GET_ADDR
37 # define __TLS_GET_ADDR __tls_get_addr
40 /* Return the symbol address given the map of the module it is in and
41 the symbol record. This is used in dl-sym.c. */
44 _dl_tls_symaddr (struct link_map
*map
, const ElfW(Sym
) *ref
)
46 # ifndef DONT_USE_TLS_INDEX
49 .ti_module
= map
->l_tls_modid
,
50 .ti_offset
= ref
->st_value
53 return __TLS_GET_ADDR (&tmp
);
55 return __TLS_GET_ADDR (map
->l_tls_modid
, ref
->st_value
);
63 _dl_sym (void *handle
, const char *name
, void *who
)
65 const ElfW(Sym
) *ref
= NULL
;
67 ElfW(Addr
) caller
= (ElfW(Addr
)) who
;
68 struct link_map
*match
;
71 /* If the address is not recognized the call comes from the main
73 match
= GL(dl_loaded
);
75 /* Find the highest-addressed object that CALLER is not below. */
76 for (l
= GL(dl_loaded
); l
!= NULL
; l
= l
->l_next
)
77 if (caller
>= l
->l_map_start
&& caller
< l
->l_map_end
)
79 /* There must be exactly one DSO for the range of the virtual
80 memory. Otherwise something is really broken. */
85 if (handle
== RTLD_DEFAULT
)
86 /* Search the global scope as seen in the caller object. */
87 result
= GLRO(dl_lookup_symbol_x
) (name
, match
, &ref
, match
->l_scope
, NULL
,
88 0, (DL_LOOKUP_RETURN_NEWEST
89 | DL_LOOKUP_ADD_DEPENDENCY
), NULL
);
92 if (handle
!= RTLD_NEXT
)
94 /* Search the scope of the given object. */
95 struct link_map
*map
= handle
;
97 result
= GLRO(dl_lookup_symbol_x
) (name
, match
, &ref
,
98 map
->l_local_scope
, NULL
, 0,
99 DL_LOOKUP_RETURN_NEWEST
, NULL
);
103 if (__builtin_expect (match
== GL(dl_loaded
), 0))
106 || caller
< GL(dl_loaded
)->l_map_start
107 || caller
>= GL(dl_loaded
)->l_map_end
)
108 GLRO(dl_signal_error
) (0, NULL
, NULL
, N_("\
109 RTLD_NEXT used in code not dynamically loaded"));
113 while (l
->l_loader
!= NULL
)
116 result
= GLRO(dl_lookup_symbol_x
) (name
, l
, &ref
, l
->l_local_scope
,
123 #if defined USE_TLS && defined SHARED
124 if (ELFW(ST_TYPE
) (ref
->st_info
) == STT_TLS
)
125 /* The found symbol is a thread-local storage variable.
126 Return the address for the current thread. */
127 return _dl_tls_symaddr (result
, ref
);
130 return DL_SYMBOL_ADDRESS (result
, ref
);
138 _dl_vsym (void *handle
, const char *name
, const char *version
, void *who
)
140 const ElfW(Sym
) *ref
= NULL
;
141 struct r_found_version vers
;
143 ElfW(Addr
) caller
= (ElfW(Addr
)) who
;
144 struct link_map
*match
;
147 /* Compute hash value to the version string. */
150 vers
.hash
= _dl_elf_hash (version
);
151 /* We don't have a specific file where the symbol can be found. */
152 vers
.filename
= NULL
;
154 /* If the address is not recognized the call comes from the main
155 program (we hope). */
156 match
= GL(dl_loaded
);
158 /* Find the highest-addressed object that CALLER is not below. */
159 for (l
= GL(dl_loaded
); l
!= NULL
; l
= l
->l_next
)
160 if (caller
>= l
->l_map_start
&& caller
< l
->l_map_end
)
162 /* There must be exactly one DSO for the range of the virtual
163 memory. Otherwise something is really broken. */
168 if (handle
== RTLD_DEFAULT
)
169 /* Search the global scope. */
170 result
= GLRO(dl_lookup_symbol_x
) (name
, match
, &ref
, match
->l_scope
,
171 &vers
, 0, DL_LOOKUP_ADD_DEPENDENCY
,
173 else if (handle
== RTLD_NEXT
)
175 if (__builtin_expect (match
== GL(dl_loaded
), 0))
178 || caller
< GL(dl_loaded
)->l_map_start
179 || caller
>= GL(dl_loaded
)->l_map_end
)
180 GLRO(dl_signal_error
) (0, NULL
, NULL
, N_("\
181 RTLD_NEXT used in code not dynamically loaded"));
185 while (l
->l_loader
!= NULL
)
188 result
= GLRO(dl_lookup_symbol_x
) (name
, l
, &ref
, l
->l_local_scope
,
193 /* Search the scope of the given object. */
194 struct link_map
*map
= handle
;
195 result
= GLRO(dl_lookup_symbol_x
) (name
, map
, &ref
, map
->l_local_scope
,
201 #if defined USE_TLS && defined SHARED
202 if (ELFW(ST_TYPE
) (ref
->st_info
) == STT_TLS
)
203 /* The found symbol is a thread-local storage variable.
204 Return the address for to the current thread. */
205 return _dl_tls_symaddr (result
, ref
);
208 return DL_SYMBOL_ADDRESS (result
, ref
);