author | chegar |
Thu, 17 Oct 2019 20:54:25 +0100 | |
branch | datagramsocketimpl-branch |
changeset 58679 | 9c3209ff7550 |
parent 58678 | 9cf78a70fa4f |
parent 58202 | a45cce906207 |
permissions | -rw-r--r-- |
41102 | 1 |
/* |
55753
b9798272720b
8227737: avoid implicit-function-declaration on AIX
mbaesken
parents:
55489
diff
changeset
|
2 |
* Copyright (c) 2016, 2019 SAP SE. All rights reserved. |
41102 | 3 |
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
4 |
* |
|
5 |
* This code is free software; you can redistribute it and/or modify it |
|
6 |
* under the terms of the GNU General Public License version 2 only, as |
|
52353
896e80158d35
8213151: [AIX] Some class library files are missing the Classpath exception
simonis
parents:
47216
diff
changeset
|
7 |
* published by the Free Software Foundation. Oracle designates this |
896e80158d35
8213151: [AIX] Some class library files are missing the Classpath exception
simonis
parents:
47216
diff
changeset
|
8 |
* particular file as subject to the "Classpath" exception as provided |
896e80158d35
8213151: [AIX] Some class library files are missing the Classpath exception
simonis
parents:
47216
diff
changeset
|
9 |
* by Oracle in the LICENSE file that accompanied this code. |
41102 | 10 |
* |
11 |
* This code is distributed in the hope that it will be useful, but WITHOUT |
|
12 |
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
13 |
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
14 |
* version 2 for more details (a copy is included in the LICENSE file that |
|
15 |
* accompanied this code). |
|
16 |
* |
|
17 |
* You should have received a copy of the GNU General Public License version |
|
18 |
* 2 along with this work; if not, write to the Free Software Foundation, |
|
19 |
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
|
20 |
* |
|
21 |
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
|
22 |
* or visit www.oracle.com if you need additional information or have any |
|
23 |
* questions. |
|
24 |
*/ |
|
25 |
#include <stdio.h> |
|
55753
b9798272720b
8227737: avoid implicit-function-declaration on AIX
mbaesken
parents:
55489
diff
changeset
|
26 |
#include <string.h> |
41102 | 27 |
#include <sys/ldr.h> |
28 |
||
29 |
#include "java_md_aix.h" |
|
30 |
||
55489
c749ecf599c0
8226468: [aix] loadquery failed error message displayed
sgroeger
parents:
52353
diff
changeset
|
31 |
static unsigned char dladdr_buffer[0x8000]; |
41102 | 32 |
|
33 |
static int fill_dll_info(void) { |
|
34 |
return loadquery(L_GETINFO, dladdr_buffer, sizeof(dladdr_buffer)); |
|
35 |
} |
|
36 |
||
37 |
static int dladdr_dont_reload(void *addr, Dl_info *info) { |
|
38 |
const struct ld_info *p = (struct ld_info *)dladdr_buffer; |
|
39 |
memset((void *)info, 0, sizeof(Dl_info)); |
|
40 |
for (;;) { |
|
41 |
if (addr >= p->ldinfo_textorg && |
|
58202
a45cce906207
8228482: fix xlc16/xlclang comparison of distinct pointer types and string literal conversion warnings
mbaesken
parents:
55753
diff
changeset
|
42 |
addr < p->ldinfo_textorg + p->ldinfo_textsize) { |
41102 | 43 |
info->dli_fname = p->ldinfo_filename; |
44 |
return 1; |
|
45 |
} |
|
46 |
if (!p->ldinfo_next) { |
|
47 |
break; |
|
48 |
} |
|
49 |
p = (struct ld_info *)(((char *)p) + p->ldinfo_next); |
|
50 |
} |
|
51 |
return 0; |
|
52 |
} |
|
53 |
||
54 |
int dladdr(void *addr, Dl_info *info) { |
|
55 |
static int loaded = 0; |
|
56 |
int rc = 0; |
|
57 |
void *addr0; |
|
58 |
if (!addr) { |
|
59 |
return rc; |
|
60 |
} |
|
61 |
if (!loaded) { |
|
62 |
if (fill_dll_info() == -1) |
|
63 |
return rc; |
|
64 |
loaded = 1; |
|
65 |
} |
|
66 |
||
67 |
// first try with addr on cached data |
|
68 |
rc = dladdr_dont_reload(addr, info); |
|
69 |
||
70 |
// addr could be an AIX function descriptor, so try dereferenced version |
|
71 |
if (rc == 0) { |
|
72 |
addr0 = *((void **)addr); |
|
73 |
rc = dladdr_dont_reload(addr0, info); |
|
74 |
} |
|
75 |
||
76 |
// if we had no success until now, maybe loadquery info is outdated. |
|
77 |
// refresh and retry |
|
78 |
if (rc == 0) { |
|
79 |
if (fill_dll_info() == -1) |
|
80 |
return rc; |
|
81 |
rc = dladdr_dont_reload(addr, info); |
|
82 |
if (rc == 0) { |
|
83 |
rc = dladdr_dont_reload(addr0, info); |
|
84 |
} |
|
85 |
} |
|
86 |
return rc; |
|
87 |
} |