Fix tst_wcscpy.c test.
[platform/upstream/glibc.git] / dlfcn / dladdr.c
1 /* Locate the shared object symbol nearest a given address.
2    Copyright (C) 1996-2015 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
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.
9
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.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, see
17    <http://www.gnu.org/licenses/>.  */
18
19 #include <dlfcn.h>
20
21 #if !defined SHARED && IS_IN (libdl)
22
23 int
24 dladdr (const void *address, Dl_info *info)
25 {
26   return __dladdr (address, info);
27 }
28
29 #else
30
31 int
32 __dladdr (const void *address, Dl_info *info)
33 {
34 # ifdef SHARED
35   if (__glibc_unlikely (_dlfcn_hook != NULL))
36     return _dlfcn_hook->dladdr (address, info);
37 # endif
38   return _dl_addr (address, info, NULL, NULL);
39 }
40 # ifdef SHARED
41 strong_alias (__dladdr, dladdr)
42 # endif
43 #endif