1 // name-finder.cc - Convert addresses to names
3 /* Copyright (C) 2000 Red Hat 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 unsigned long long n
= (unsigned long long)p
;
116 int digits
= sizeof (void *) * 2;
119 for (int i
= digits
- 1; i
>= 0; i
--)
124 hex
[i
+2] = digit
> 9 ? 'a' + digit
- 10 : '0' + digit
;
129 /* Given a pointer to a function or method, try to convert it into a
130 name and the appropriate line and source file. The caller passes
131 the code pointer in p.
133 Returns false if the lookup fails. Even if this happens, the field
134 he will have been correctly filled in with the pointer. */
137 _Jv_name_finder::lookup (void *p
)
141 #if defined (HAVE_DLFCN_H) && defined (HAVE_DLADDR)
145 if (dladdr (p
, &dl_info
))
147 strncpy (file_name
, dl_info
.dli_fname
, sizeof file_name
);
148 strncpy (method_name
, dl_info
.dli_sname
, sizeof method_name
);
154 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
158 error
|= write (f_pipe
[1], hex
, strlen (hex
)) < 0;
161 error
|= write (f_pipe
[1], "\n", 1) < 0;
165 error
|= (fgets (method_name
, sizeof method_name
, b_pipe_fd
) == NULL
);
168 error
|= (fgets (file_name
, sizeof file_name
, b_pipe_fd
) == NULL
);
172 char *newline
= strchr (method_name
, '\n');
175 newline
= strchr (file_name
, '\n');
183 #endif /* defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP) */