From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- libjava/gnu/classpath/natVMStackWalker.cc | 116 ++++++++++++++++++++++++++++++ 1 file changed, 116 insertions(+) create mode 100644 libjava/gnu/classpath/natVMStackWalker.cc (limited to 'libjava/gnu/classpath/natVMStackWalker.cc') diff --git a/libjava/gnu/classpath/natVMStackWalker.cc b/libjava/gnu/classpath/natVMStackWalker.cc new file mode 100644 index 000000000..2f068ca99 --- /dev/null +++ b/libjava/gnu/classpath/natVMStackWalker.cc @@ -0,0 +1,116 @@ +// 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 +#include + +#include +#include +#include +#include +#include +#include +#include + +#ifndef __ARM_EABI_UNWINDER__ +// 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; \ + }) +#else // __ARM_EABI_UNWINDER__ +// ARM EABI doesn't support _Unwind_FindEnclosingFunction. +#define GET_CALLING_CLASS(PC) \ + (_Jv_StackTrace::GetStackWalkerCallingClass ()) +#endif + +JArray * +gnu::classpath::VMStackWalker::getClassContext(void) +{ + _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$); + JArray *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$); + jclass result = _Jv_StackTrace::GetStackWalkerCallingClass (); + __asm__ __volatile__ ("" : : "g" (result)); + return result; +} + +jclass +gnu::classpath::VMStackWalker::getCallingClass(::gnu::gcj::RawData *pc) +{ + _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$); + jclass result = GET_CALLING_CLASS(pc); + __asm__ __volatile__ ("" : : "g" (result)); + return result; +} + +::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$); + jclass klass = _Jv_StackTrace::GetStackWalkerCallingClass (); + if (klass) + return klass->getClassLoaderInternal (); + else + return NULL; +} + +::java::lang::ClassLoader * +gnu::classpath::VMStackWalker::getCallingClassLoader(::gnu::gcj::RawData *pc) +{ + _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$); + jclass klass = GET_CALLING_CLASS(pc); + if (klass) + return klass->getClassLoaderInternal (); + else + return NULL; +} + +::java::lang::ClassLoader * +gnu::classpath::VMStackWalker::firstNonNullClassLoader(void) +{ + _Jv_InitClass (&::gnu::classpath::VMStackWalker::class$); + return _Jv_StackTrace::GetStackWalkerFirstNonNullLoader (); +} -- cgit v1.2.3