Daily bump.
[official-gcc.git] / libjava / name-finder.cc
bloba09ff0b267e6590c39d9e32b2e8a1073bb588bbb
1 // name-finder.cc - Convert addresses to names
3 /* Copyright (C) 2000, 2002 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
9 details. */
11 /**
12 * @author Andrew Haley <aph@cygnus.com>
13 * @date Jan 6 2000
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
18 which they appear.
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. */
25 #ifndef _GNU_SOURCE
26 #define _GNU_SOURCE 1
27 #endif
29 #include <config.h>
31 #include <string.h>
33 #include <gcj/cni.h>
34 #include <jvm.h>
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>
43 #include <stdlib.h>
44 #include <stdio.h>
46 #ifdef HAVE_UNISTD_H
47 #include <unistd.h>
48 #endif
50 #ifdef HAVE_DLFCN_H
51 #include <dlfcn.h>
52 #endif
54 #include <name-finder.h>
56 /* Create a new name finder which will perform address lookups on an
57 executable. */
59 _Jv_name_finder::_Jv_name_finder (char *executable)
61 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
62 error = 0;
64 // Initialize file descriptors so that shutdown works properly.
65 f_pipe[0] = -1;
66 f_pipe[1] = -1;
67 b_pipe[0] = -1;
68 b_pipe[1] = -1;
69 b_pipe_fd = NULL;
71 char *argv[6];
73 int arg = 0;
74 #ifdef __ia64__
75 argv[arg++] = "addr2name.awk";
76 #else
77 argv[arg++] = "addr2line";
78 argv[arg++] = "-C";
79 argv[arg++] = "-f";
80 argv[arg++] = "-e";
81 #endif
82 argv[arg++] = executable;
83 argv[arg] = NULL;
86 error |= pipe (f_pipe) < 0;
87 error |= pipe (b_pipe) < 0;
89 if (error)
90 return;
92 pid = fork ();
93 if (pid == 0)
95 close (f_pipe[1]);
96 close (b_pipe[0]);
97 dup2 (f_pipe[0], fileno (stdin));
98 dup2 (b_pipe[1], fileno (stdout));
99 execvp (argv[0], argv);
100 _exit (127);
103 // Close child end of pipes. Set local descriptors to -1 so we
104 // don't try to close the fd again.
105 close (f_pipe [0]);
106 f_pipe[0] = -1;
107 close (b_pipe [1]);
108 b_pipe[1] = -1;
110 if (pid < 0)
112 error |= 1;
113 return;
116 b_pipe_fd = fdopen (b_pipe[0], "r");
117 error |= !b_pipe_fd;
119 if (! error)
121 // Don't try to close the fd twice.
122 b_pipe[0] = -1;
124 #endif
127 /* Convert a pointer to hex. */
129 void
130 _Jv_name_finder::toHex (void *p)
132 typedef unsigned word_t __attribute ((mode (word)));
133 word_t n = (word_t) p;
134 int digits = sizeof (void *) * 2;
136 strcpy (hex, "0x");
137 for (int i = digits - 1; i >= 0; i--)
139 int digit = n % 16;
141 n /= 16;
142 hex[i+2] = digit > 9 ? 'a' + digit - 10 : '0' + digit;
144 hex [digits+2] = 0;
147 /* Given a pointer to a function or method, try to convert it into a
148 name and the appropriate line and source file. The caller passes
149 the code pointer in p.
151 Returns false if the lookup fails. Even if this happens, the field
152 he will have been correctly filled in with the pointer. */
154 bool
155 _Jv_name_finder::lookup (void *p)
157 extern char **_Jv_argv;
158 toHex (p);
160 #if defined (HAVE_DLFCN_H) && defined (HAVE_DLADDR)
162 Dl_info dl_info;
164 if (dladdr (p, &dl_info))
166 if (dl_info.dli_fname)
167 strncpy (file_name, dl_info.dli_fname, sizeof file_name);
168 if (dl_info.dli_sname)
169 strncpy (method_name, dl_info.dli_sname, sizeof method_name);
171 /* Don't trust dladdr() if the address is from the main program. */
172 if (dl_info.dli_fname != NULL
173 && dl_info.dli_sname != NULL
174 && (_Jv_argv == NULL || strcmp (file_name, _Jv_argv[0]) != 0))
175 return true;
178 #endif
180 #if defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP)
181 if (error)
182 return false;
184 error |= write (f_pipe[1], hex, strlen (hex)) < 0;
185 if (error)
186 return false;
187 error |= write (f_pipe[1], "\n", 1) < 0;
188 if (error)
189 return false;
191 error |= (fgets (method_name, sizeof method_name, b_pipe_fd) == NULL);
192 if (error)
193 return false;
194 error |= (fgets (file_name, sizeof file_name, b_pipe_fd) == NULL);
195 if (error)
196 return false;
198 char *newline = strchr (method_name, '\n');
199 if (newline)
200 *newline = 0;
201 newline = strchr (file_name, '\n');
202 if (newline)
203 *newline = 0;
205 return true;
207 #else
208 return false;
209 #endif /* defined (HAVE_PIPE) && defined (HAVE_FORK) && defined (HAVE_EXECVP) */