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)
67 argv
[arg
++] = "addr2line";
71 argv
[arg
++] = executable
;
75 error
|= pipe (f_pipe
) < 0;
76 error
|= pipe (b_pipe
) < 0;
86 dup2 (f_pipe
[0], fileno (stdin
));
87 dup2 (b_pipe
[1], fileno (stdout
));
88 execvp (argv
[0], argv
);
101 b_pipe_fd
= fdopen (b_pipe
[0], "r");
106 /* Convert a pointer to hex. */
109 _Jv_name_finder::toHex (void *p
)
111 unsigned long long n
= (unsigned long long)p
;
112 int digits
= sizeof (void *) * 2;
115 for (int i
= digits
- 1; i
>= 0; i
--)
120 hex
[i
+2] = digit
> 9 ? 'a' + digit
- 10 : '0' + digit
;
125 /* Given a pointer to a function or method, try to convert it into a
126 name and the appropriate line and source file. The caller passes
127 the code pointer in p.
129 Returns false if the lookup fails. Even if this happens, the field
130 he will have been correctly filled in with the pointer. */
133 _Jv_name_finder::lookup (void *p
)
137 #if defined (HAVE_DLFCN_H) && defined (HAVE_DLADDR)
141 if (dladdr (p
, &dl_info
))
143 strncpy (file_name
, dl_info
.dli_fname
, sizeof file_name
);
144 strncpy (method_name
, dl_info
.dli_sname
, sizeof method_name
);
150 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
154 error
|= write (f_pipe
[1], hex
, strlen (hex
)) < 0;
157 error
|= write (f_pipe
[1], "\n", 1) < 0;
161 error
|= (fgets (method_name
, sizeof method_name
, b_pipe_fd
) == NULL
);
164 error
|= (fgets (file_name
, sizeof file_name
, b_pipe_fd
) == NULL
);
168 char *newline
= strchr (method_name
, '\n');
171 newline
= strchr (file_name
, '\n');
179 #endif /* defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP) */