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 }