aboutsummaryrefslogtreecommitdiff
path: root/libjava/gnu/classpath/natVMStackWalker.cc
blob: f7eb8832f4c28194a5e17ee826c77ef6afe22bab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
// natVMStackWalker.cc

/* Copyright (C) 2006, 2007  Free Software Foundation

   This file is part of libgcj.

This software is copyrighted work licensed under the terms of the
Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
details.  */

#include <config.h>
#include <platform.h>

#include <gcj/cni.h>
#include <jvm.h>
#include <java-stack.h>
#include <gnu/classpath/VMStackWalker.h>
#include <gnu/gcj/RawData.h>
#include <java/lang/ClassLoader.h>
#include <java/lang/Class.h>

// Return the class of the method that contains PC.
// This is a macro not a function, since defining it as one would
// introduce an extra frame on the stack.  */
#define GET_CALLING_CLASS(PC)						\
({									\
  void *f = _Unwind_FindEnclosingFunction (PC);				\
									\
  /* FIXME: it might well be a good idea to cache pc values here in	\
     order to avoid repeated invocations of				\
     _Unwind_FindEnclosingFunction, which is quite expensive.  On the	\
     other hand, which not simply write a caching version of		\
     _Unwind_FindEnclosingFunction itself?  That would probably be	\
     worthwhile.  */							\
									\
  _Jv_StackTrace::UpdateNCodeMap ();					\
  jclass klass = (jclass) _Jv_StackTrace::ncodeMap->get ((jobject) f);	\
									\
  /* If the caller is a compiled frame and the caller of the caller is	\
     an interpreted frame then klass will be null and we need to	\
     unwind the stack.  */						\
  if (!klass)								\
    klass = _Jv_StackTrace::GetStackWalkerCallingClass ();		\
									\
  klass;								\
 })

JArray<jclass> *
gnu::classpath::VMStackWalker::getClassContext(void)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  JArray<jclass> *result = _Jv_StackTrace::GetStackWalkerStack ();
  // Prevent GetStackWalkerStack() from being sibcalled.
  __asm__ __volatile__ ("" : : "g" (result));
  return result;
}

jclass
gnu::classpath::VMStackWalker::getCallingClass(void)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return _Jv_StackTrace::GetStackWalkerCallingClass ();
}

jclass
gnu::classpath::VMStackWalker::getCallingClass(::gnu::gcj::RawData *pc)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return GET_CALLING_CLASS(pc);
}

::java::lang::ClassLoader *
gnu::classpath::VMStackWalker::getClassLoader(::java::lang::Class *c)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return c->getClassLoaderInternal ();
}

::java::lang::ClassLoader *
gnu::classpath::VMStackWalker::getCallingClassLoader(void)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return
    _Jv_StackTrace::GetStackWalkerCallingClass ()->getClassLoaderInternal ();
}

::java::lang::ClassLoader *
gnu::classpath::VMStackWalker::getCallingClassLoader(::gnu::gcj::RawData *pc)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return GET_CALLING_CLASS(pc)->getClassLoaderInternal ();
}

::java::lang::ClassLoader *
gnu::classpath::VMStackWalker::firstNonNullClassLoader(void)
{
  _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$);
  return _Jv_StackTrace::GetStackWalkerFirstNonNullLoader ();
}