1 // stacktrace.cc - Functions for unwinding & inspecting the call stack.
3 /* Copyright (C) 2005, 2006 Free Software Foundation
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
15 #include <java-interp.h>
16 #include <java-stack.h>
24 #include <java/lang/Class.h>
25 #include <java/lang/Long.h>
26 #include <java/util/ArrayList.h>
27 #include <java/util/IdentityHashMap.h>
28 #include <gnu/java/lang/MainThread.h>
29 #include <gnu/gcj/runtime/NameFinder.h>
31 #include <sysdep/backtrace.h>
32 #include <sysdep/descriptor.h>
34 using namespace java::lang
;
35 using namespace java::lang::reflect
;
36 using namespace java::util
;
37 using namespace gnu::gcj::runtime
;
39 // Maps ncode values to their containing native class.
40 // NOTE: Currently this Map contradicts class GC for native classes. This map
41 // (and the "new class stack") will need to use WeakReferences in order to
42 // enable native class GC.
43 static java::util::IdentityHashMap
*ncodeMap
;
45 // Check the "class stack" for any classes initialized since we were last
46 // called, and add them to ncodeMap.
48 _Jv_StackTrace::UpdateNCodeMap ()
50 // The Map should be large enough so that a typical Java app doesn't cause
51 // it to rehash, without using too much memory. ~5000 entries should be
54 ncodeMap
= new java::util::IdentityHashMap (5087);
57 while ((klass
= _Jv_PopClass ()))
58 if (!_Jv_IsInterpretedClass (klass
))
60 //printf ("got %s\n", klass->name->data);
61 for (int i
= 0; i
< klass
->method_count
; i
++)
63 _Jv_Method
*method
= &klass
->methods
[i
];
64 void *ncode
= method
->ncode
;
65 // Add non-abstract methods to ncodeMap.
68 ncode
= UNWRAP_FUNCTION_DESCRIPTOR (ncode
);
69 ncodeMap
->put ((java::lang::Object
*) ncode
, klass
);
75 // Given a native frame, return the class which this code belongs
76 // to. Returns NULL if this IP is not associated with a native Java class.
77 // If NCODE is supplied, it will be set with the ip for the entry point of the
80 _Jv_StackTrace::ClassForFrame (_Jv_StackFrame
*frame
)
82 JvAssert (frame
->type
== frame_native
);
84 // use _Unwind_FindEnclosingFunction to find start of method
85 //void *entryPoint = _Unwind_FindEnclosingFunction (ip);
87 // look it up in ncodeMap
89 klass
= (jclass
) ncodeMap
->get ((jobject
) frame
->start_ip
);
95 _Jv_StackTrace::UnwindTraceFn (struct _Unwind_Context
*context
, void *state_ptr
)
97 _Jv_UnwindState
*state
= (_Jv_UnwindState
*) state_ptr
;
98 jint pos
= state
->pos
;
100 // Check if the trace buffer needs to be extended.
101 if (pos
== state
->length
)
103 int newLength
= state
->length
* 2;
104 void *newFrames
= _Jv_AllocBytes (newLength
* sizeof(_Jv_StackFrame
));
105 memcpy (newFrames
, state
->frames
, state
->length
* sizeof(_Jv_StackFrame
));
106 state
->frames
= (_Jv_StackFrame
*) newFrames
;
107 state
->length
= newLength
;
110 void *func_addr
= (void *) _Unwind_GetRegionStart (context
);
112 // If we see the interpreter's main function, "pop" an entry off the
113 // interpreter stack and use that instead, so that the trace goes through
114 // the java code and not the interpreter itself. This assumes a 1:1
115 // correspondance between call frames in the interpreted stack and occurances
116 // of _Jv_InterpMethod::run() on the native stack.
118 void *interp_run
= (void *) &_Jv_InterpMethod::run
;
119 if (func_addr
== UNWRAP_FUNCTION_DESCRIPTOR (interp_run
))
121 state
->frames
[pos
].type
= frame_interpreter
;
122 state
->frames
[pos
].interp
.meth
= state
->interp_frame
->self
;
123 state
->frames
[pos
].interp
.pc
= state
->interp_frame
->pc
;
124 state
->interp_frame
= state
->interp_frame
->next
;
129 state
->frames
[pos
].type
= frame_native
;
130 state
->frames
[pos
].ip
= (void *) _Unwind_GetIP (context
);
131 state
->frames
[pos
].start_ip
= func_addr
;
134 //printf ("unwind ip: %p\n", _Unwind_GetIP (context));
136 _Unwind_Reason_Code result
= _URC_NO_REASON
;
137 if (state
->trace_function
!= NULL
)
138 result
= (state
->trace_function
) (state
);
143 // Return a raw stack trace from the current point of execution. The raw
144 // trace will include all functions that have unwind info.
146 _Jv_StackTrace::GetStackTrace(void)
148 int trace_size
= 100;
149 _Jv_StackFrame frames
[trace_size
];
150 _Jv_UnwindState
state (trace_size
);
151 state
.frames
= (_Jv_StackFrame
*) &frames
;
153 #ifdef SJLJ_EXCEPTIONS
154 // The Unwind interface doesn't work with the SJLJ exception model.
155 // Fall back to a platform-specific unwinder.
156 fallback_backtrace (&state
);
157 #else /* SJLJ_EXCEPTIONS */
158 _Unwind_Backtrace (UnwindTraceFn
, &state
);
159 #endif /* SJLJ_EXCEPTIONS */
161 // Copy the trace and return it.
162 int traceSize
= sizeof (_Jv_StackTrace
) +
163 (sizeof (_Jv_StackFrame
) * state
.pos
);
164 _Jv_StackTrace
*trace
= (_Jv_StackTrace
*) _Jv_AllocBytes (traceSize
);
165 trace
->length
= state
.pos
;
166 memcpy (trace
->frames
, state
.frames
, sizeof (_Jv_StackFrame
) * state
.pos
);
171 _Jv_StackTrace::getLineNumberForFrame(_Jv_StackFrame
*frame
, NameFinder
*finder
,
172 jstring
*sourceFileName
, jint
*lineNum
,
176 if (frame
->type
== frame_interpreter
)
178 _Jv_InterpMethod
*interp_meth
= frame
->interp
.meth
;
179 _Jv_InterpClass
*interp_class
=
180 (_Jv_InterpClass
*) interp_meth
->defining_class
->aux_info
;
181 *sourceFileName
= interp_class
->source_file_name
;
182 *lineNum
= interp_meth
->get_source_line(frame
->interp
.pc
);
186 // Use dladdr() to determine in which binary the address IP resides.
187 #if defined (HAVE_DLFCN_H) && defined (HAVE_DLADDR)
189 jstring binaryName
= NULL
;
190 const char *argv0
= _Jv_GetSafeArg(0);
192 void *ip
= frame
->ip
;
193 _Unwind_Ptr offset
= 0;
195 if (dladdr (ip
, &info
))
198 binaryName
= JvNewStringUTF (info
.dli_fname
);
202 if (*methodName
== NULL
&& info
.dli_sname
)
203 *methodName
= JvNewStringUTF (info
.dli_sname
);
205 // addr2line expects relative addresses for shared libraries.
206 if (strcmp (info
.dli_fname
, argv0
) == 0)
207 offset
= (_Unwind_Ptr
) ip
;
209 offset
= (_Unwind_Ptr
) ip
- (_Unwind_Ptr
) info
.dli_fbase
;
211 //printf ("linenum ip: %p\n", ip);
212 //printf ("%s: 0x%x\n", info.dli_fname, offset);
213 //offset -= sizeof(void *);
215 // The unwinder gives us the return address. In order to get the right
216 // line number for the stack trace, roll it back a little.
219 // printf ("%s: 0x%x\n", info.dli_fname, offset);
221 finder
->lookup (binaryName
, (jlong
) offset
);
222 *sourceFileName
= finder
->getSourceFile();
223 *lineNum
= finder
->getLineNum();
228 // Look up class and method info for the given stack frame, setting
229 // frame->klass and frame->meth if they are known.
231 _Jv_StackTrace::FillInFrameInfo (_Jv_StackFrame
*frame
)
234 _Jv_Method
*meth
= NULL
;
236 if (frame
->type
== frame_native
)
238 klass
= _Jv_StackTrace::ClassForFrame (frame
);
241 // Find method in class
242 for (int j
= 0; j
< klass
->method_count
; j
++)
244 void *wncode
= UNWRAP_FUNCTION_DESCRIPTOR (klass
->methods
[j
].ncode
);
245 if (wncode
== frame
->start_ip
)
247 meth
= &klass
->methods
[j
];
253 else if (frame
->type
== frame_interpreter
)
255 _Jv_InterpMethod
*interp_meth
= frame
->interp
.meth
;
256 klass
= interp_meth
->defining_class
;
257 meth
= interp_meth
->self
;
261 JvFail ("Unknown frame type");
263 frame
->klass
= klass
;
267 // Convert raw stack frames to a Java array of StackTraceElement objects.
268 JArray
< ::java::lang::StackTraceElement
*>*
269 _Jv_StackTrace::GetStackTraceElements (_Jv_StackTrace
*trace
,
270 Throwable
*throwable
__attribute__((unused
)))
272 ArrayList
*list
= new ArrayList ();
274 #ifdef SJLJ_EXCEPTIONS
275 // We can't use the nCodeMap without unwinder support. Instead,
276 // fake the method name by giving the IP in hex - better than nothing.
277 jstring hex
= JvNewStringUTF ("0x");
279 for (int i
= 0; i
< trace
->length
; i
++)
281 jstring sourceFileName
= NULL
;
283 _Jv_StackFrame
*frame
= &trace
->frames
[i
];
285 jstring className
= NULL
;
286 jstring methodName
= hex
->concat (Long::toHexString ((jlong
) frame
->ip
));
288 StackTraceElement
*element
= new StackTraceElement (sourceFileName
,
289 lineNum
, className
, methodName
, 0);
293 #else /* SJLJ_EXCEPTIONS */
295 //JvSynchronized (ncodeMap);
298 NameFinder
*finder
= new NameFinder();
300 int end_idx
= trace
->length
- 1;
302 // First pass: strip superfluous frames from beginning and end of the trace.
303 for (int i
= 0; i
< trace
->length
; i
++)
305 _Jv_StackFrame
*frame
= &trace
->frames
[i
];
306 FillInFrameInfo (frame
);
308 if (!frame
->klass
|| !frame
->meth
)
312 // Throw away the top of the stack till we see:
313 // - the constructor(s) of this Throwable, or
314 // - the Throwable.fillInStackTrace call.
315 if (frame
->klass
== throwable
->getClass()
316 && strcmp (frame
->meth
->name
->chars(), "<init>") == 0)
319 if (frame
->klass
== &Throwable::class$
320 && strcmp (frame
->meth
->name
->chars(), "fillInStackTrace") == 0)
323 // End the trace at the application's main() method if we see call_main.
324 if (frame
->klass
== &gnu::java::lang::MainThread::class$
325 && strcmp (frame
->meth
->name
->chars(), "call_main") == 0)
329 const jboolean remove_unknown
330 = gnu::gcj::runtime::NameFinder::removeUnknown();
332 // Second pass: Look up line-number info for remaining frames.
333 for (int i
= start_idx
; i
<= end_idx
; i
++)
335 _Jv_StackFrame
*frame
= &trace
->frames
[i
];
337 if (frame
->klass
== NULL
&& remove_unknown
)
341 jstring className
= NULL
;
342 if (frame
->klass
!= NULL
)
343 className
= frame
->klass
->getName ();
345 jstring methodName
= NULL
;
347 methodName
= JvNewStringUTF (frame
->meth
->name
->chars());
349 jstring sourceFileName
= NULL
;
352 getLineNumberForFrame(frame
, finder
, &sourceFileName
, &lineNum
,
355 StackTraceElement
*element
= new StackTraceElement (sourceFileName
, lineNum
,
356 className
, methodName
, 0);
361 #endif /* SJLJ_EXCEPTIONS */
363 JArray
<Object
*> *array
= JvNewObjectArray (list
->size (),
364 &StackTraceElement::class$
, NULL
);
366 return (JArray
<StackTraceElement
*>*) list
->toArray (array
);
369 struct CallingClassTraceData
373 _Jv_Method
*foundMeth
;
374 bool seen_checkClass
;
378 _Jv_StackTrace::calling_class_trace_fn (_Jv_UnwindState
*state
)
380 CallingClassTraceData
*trace_data
= (CallingClassTraceData
*)
382 _Jv_StackFrame
*frame
= &state
->frames
[state
->pos
];
383 FillInFrameInfo (frame
);
385 if (trace_data
->seen_checkClass
387 && frame
->klass
!= trace_data
->checkClass
)
389 trace_data
->foundClass
= frame
->klass
;
390 trace_data
->foundMeth
= frame
->meth
;
391 return _URC_NORMAL_STOP
;
394 if (frame
->klass
== trace_data
->checkClass
)
395 trace_data
->seen_checkClass
= true;
397 return _URC_NO_REASON
;
400 // Find the class immediately above the given class on the call stack. Any
401 // intermediate non-Java
402 // frames are ignored. If the calling class could not be determined (eg because
403 // the unwinder is not supported on this platform), NULL is returned.
404 // This function is used to implement calling-classloader checks and reflection
405 // accessibility checks.
406 // CHECKCLASS is typically the class calling GetCallingClass. The first class
407 // above CHECKCLASS on the call stack will be returned.
409 _Jv_StackTrace::GetCallingClass (jclass checkClass
)
411 jclass result
= NULL
;
412 GetCallerInfo (checkClass
, &result
, NULL
);
417 _Jv_StackTrace::GetCallerInfo (jclass checkClass
, jclass
*caller_class
,
418 _Jv_Method
**caller_meth
)
420 #ifndef SJLJ_EXCEPTIONS
422 _Jv_StackFrame frames
[trace_size
];
423 _Jv_UnwindState
state (trace_size
);
424 state
.frames
= (_Jv_StackFrame
*) &frames
;
426 CallingClassTraceData trace_data
;
427 trace_data
.checkClass
= checkClass
;
428 trace_data
.seen_checkClass
= false;
429 trace_data
.foundClass
= NULL
;
430 trace_data
.foundMeth
= NULL
;
432 state
.trace_function
= calling_class_trace_fn
;
433 state
.trace_data
= (void *) &trace_data
;
435 //JvSynchronized (ncodeMap);
438 _Unwind_Backtrace (UnwindTraceFn
, &state
);
441 *caller_class
= trace_data
.foundClass
;
443 *caller_meth
= trace_data
.foundMeth
;
449 // Return a java array containing the Java classes on the stack above CHECKCLASS.
451 _Jv_StackTrace::GetClassContext (jclass checkClass
)
453 JArray
<jclass
> *result
= NULL
;
455 int trace_size
= 100;
456 _Jv_StackFrame frames
[trace_size
];
457 _Jv_UnwindState
state (trace_size
);
458 state
.frames
= (_Jv_StackFrame
*) &frames
;
460 //JvSynchronized (ncodeMap);
463 _Unwind_Backtrace (UnwindTraceFn
, &state
);
465 // Count the number of Java frames on the stack.
466 int jframe_count
= 0;
467 bool seen_checkClass
= false;
469 for (int i
= 0; i
< state
.pos
; i
++)
471 _Jv_StackFrame
*frame
= &state
.frames
[i
];
472 FillInFrameInfo (frame
);
484 seen_checkClass
= frame
->klass
== checkClass
;
486 result
= (JArray
<jclass
> *) _Jv_NewObjectArray (jframe_count
, &Class::class$
, NULL
);
489 for (int i
= start_pos
; i
< state
.pos
; i
++)
491 _Jv_StackFrame
*frame
= &state
.frames
[i
];
493 elements(result
)[pos
++] = frame
->klass
;
499 _Jv_StackTrace::non_system_trace_fn (_Jv_UnwindState
*state
)
501 _Jv_StackFrame
*frame
= &state
->frames
[state
->pos
];
502 FillInFrameInfo (frame
);
504 ClassLoader
*classLoader
= NULL
;
508 classLoader
= frame
->klass
->getClassLoaderInternal();
510 if (classLoader
!= NULL
)
512 state
->trace_data
= (void *) classLoader
;
513 return _URC_NORMAL_STOP
;
518 return _URC_NO_REASON
;
522 _Jv_StackTrace::GetFirstNonSystemClassLoader ()
525 _Jv_StackFrame frames
[trace_size
];
526 _Jv_UnwindState
state (trace_size
);
527 state
.frames
= (_Jv_StackFrame
*) &frames
;
528 state
.trace_function
= non_system_trace_fn
;
529 state
.trace_data
= NULL
;
531 //JvSynchronized (ncodeMap);
534 _Unwind_Backtrace (UnwindTraceFn
, &state
);
536 if (state
.trace_data
)
537 return (ClassLoader
*) state
.trace_data
;