OSDN Git Service

621a95b4cc5e680da12328ce478384b6d0c8c817
[pf3gnuchains/gcc-fork.git] / libjava / gnu / classpath / natVMStackWalker.cc
1 // natVMStackWalker.cc
2
3 /* Copyright (C) 2006  Free Software Foundation
4
5    This file is part of libgcj.
6
7 This software is copyrighted work licensed under the terms of the
8 Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
9 details.  */
10
11 #include <config.h>
12 #include <platform.h>
13
14 #include <gcj/cni.h>
15 #include <jvm.h>
16 #include <java-stack.h>
17 #include <gnu/classpath/VMStackWalker.h>
18 #include <gnu/gcj/RawData.h>
19 #include <java/lang/ClassLoader.h>
20 #include <java/lang/Class.h>
21
22 JArray<jclass> *
23 gnu::classpath::VMStackWalker::getClassContext(void)
24 {
25   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
26   JArray<jclass> *result = _Jv_StackTrace::GetStackWalkerStack ();
27   // Prevent GetStackWalkerStack() from being sibcalled.
28   __asm__ __volatile__ ("" : : "g" (result));
29   return result;
30 }
31
32 jclass
33 gnu::classpath::VMStackWalker::getCallingClass(void)
34 {
35   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
36   return _Jv_StackTrace::GetStackWalkerCallingClass ();
37 }
38
39 jclass
40 gnu::classpath::VMStackWalker::getCallingClass(::gnu::gcj::RawData *pc)
41 {
42   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
43   void *f = _Unwind_FindEnclosingFunction (pc);
44
45   // FIXME: it might well be a good idea to cache pc values here in
46   // order to avoid repeated invocations of
47   // _Unwind_FindEnclosingFunction, which is quite expensive.  On the
48   // other hand, which not simply write a caching version of
49   // _Unwind_FindEnclosingFunction itself?  That would probably be
50   // worthwhile.
51
52   _Jv_StackTrace::UpdateNCodeMap ();
53   jclass klass = (jclass) _Jv_StackTrace::ncodeMap->get ((jobject) f);
54
55   // If the caller is a compiled frame and the caller of the caller
56   // is an interpreted frame then klass will be null and we need to
57   // unwind the stack.
58   if (klass == NULL)
59     klass = _Jv_StackTrace::GetStackWalkerCallingClass ();
60
61   return klass;
62 }
63
64 ::java::lang::ClassLoader *
65 gnu::classpath::VMStackWalker::getClassLoader(::java::lang::Class *c)
66 {
67   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
68   return c->getClassLoaderInternal ();
69 }
70
71 ::java::lang::ClassLoader *
72 gnu::classpath::VMStackWalker::getCallingClassLoader(void)
73 {
74   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
75   return
76     _Jv_StackTrace::GetStackWalkerCallingClass ()->getClassLoaderInternal ();
77 }
78
79 ::java::lang::ClassLoader *
80 gnu::classpath::VMStackWalker::getCallingClassLoader(::gnu::gcj::RawData *pc)
81 {
82   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
83   return getCallingClass (pc)->getClassLoaderInternal ();
84 }
85
86 ::java::lang::ClassLoader *
87 gnu::classpath::VMStackWalker::firstNonNullClassLoader(void)
88 {
89   _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
90   return _Jv_StackTrace::GetStackWalkerFirstNonNullLoader ();
91 }