Tests for atexit function ordering.
[kopensolaris-gnu/glibc.git] / dlfcn / dladdr.c
1 /* Locate the shared object symbol nearest a given address.
2    Copyright (C) 1996, 1997, 1998, 1999, 2003, 2004
3    Free Software Foundation, Inc.
4    This file is part of the GNU C Library.
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Lesser General Public
8    License as published by the Free Software Foundation; either
9    version 2.1 of the License, or (at your option) any later version.
10
11    The GNU C Library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15
16    You should have received a copy of the GNU Lesser General Public
17    License along with the GNU C Library; if not, write to the Free
18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19    02111-1307 USA.  */
20
21 #include <dlfcn.h>
22
23 #if !defined SHARED && defined IS_IN_libdl
24
25 int
26 dladdr (const void *address, Dl_info *info)
27 {
28   return __dladdr (address, info);
29 }
30
31 #else
32
33 int
34 __dladdr (const void *address, Dl_info *info)
35 {
36 # ifdef SHARED
37   if (__builtin_expect (_dlfcn_hook != NULL, 0))
38     return _dlfcn_hook->dladdr (address, info);
39 # endif
40   return _dl_addr (address, info, NULL, NULL);
41 }
42 # ifdef SHARED
43 strong_alias (__dladdr, dladdr)
44 # endif
45 #endif