1 // name-finder.cc - Convert addresses to names
3 /* Copyright (C) 2000 Free Software Foundation, Inc
5 This file is part of libgcj.
7 This software is copyrighted work licensed under the terms of the
8 Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
12 * @author Andrew Haley <aph@cygnus.com>
16 /* _Jv_name_finder is a class wrapper around a mechanism that can
17 convert address of methods to their names and the names of files in
20 Right now, the only implementation of this involves running a copy
21 of addr2line, but at some point it is worth building this
22 functionality into libgcj, if only for embedded systems. */
35 #include <java/lang/Object.h>
36 #include <java-threads.h>
37 #include <java/lang/Throwable.h>
38 #include <java/io/PrintStream.h>
39 #include <java/io/PrintWriter.h>
41 #include <sys/types.h>
54 #include <name-finder.h>
56 /* Create a new name finder which will perform address lookups on an
59 _Jv_name_finder::_Jv_name_finder (char *executable
)
61 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
68 argv
[arg
++] = "addr2name.awk";
70 argv
[arg
++] = "addr2line";
75 argv
[arg
++] = executable
;
79 error
|= pipe (f_pipe
) < 0;
80 error
|= pipe (b_pipe
) < 0;
90 dup2 (f_pipe
[0], fileno (stdin
));
91 dup2 (b_pipe
[1], fileno (stdout
));
92 execvp (argv
[0], argv
);
105 b_pipe_fd
= fdopen (b_pipe
[0], "r");
110 /* Convert a pointer to hex. */
113 _Jv_name_finder::toHex (void *p
)
115 typedef unsigned word_t
__attribute ((mode (word
)));
116 word_t n
= (word_t
) p
;
117 int digits
= sizeof (void *) * 2;
120 for (int i
= digits
- 1; i
>= 0; i
--)
125 hex
[i
+2] = digit
> 9 ? 'a' + digit
- 10 : '0' + digit
;
130 /* Given a pointer to a function or method, try to convert it into a
131 name and the appropriate line and source file. The caller passes
132 the code pointer in p.
134 Returns false if the lookup fails. Even if this happens, the field
135 he will have been correctly filled in with the pointer. */
138 _Jv_name_finder::lookup (void *p
)
140 extern char **_Jv_argv
;
143 #if defined (HAVE_DLFCN_H) && defined (HAVE_DLADDR)
147 if (dladdr (p
, &dl_info
))
149 if (dl_info
.dli_fname
)
150 strncpy (file_name
, dl_info
.dli_fname
, sizeof file_name
);
151 if (dl_info
.dli_sname
)
152 strncpy (method_name
, dl_info
.dli_sname
, sizeof method_name
);
154 /* Don't trust dladdr() if the address is from the main program. */
155 if (dl_info
.dli_fname
!= NULL
156 && dl_info
.dli_sname
!= NULL
157 && (_Jv_argv
== NULL
|| strcmp (file_name
, _Jv_argv
[0]) != 0))
163 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
167 error
|= write (f_pipe
[1], hex
, strlen (hex
)) < 0;
170 error
|= write (f_pipe
[1], "\n", 1) < 0;
174 error
|= (fgets (method_name
, sizeof method_name
, b_pipe_fd
) == NULL
);
177 error
|= (fgets (file_name
, sizeof file_name
, b_pipe_fd
) == NULL
);
181 char *newline
= strchr (method_name
, '\n');
184 newline
= strchr (file_name
, '\n');
192 #endif /* defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP) */