procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

java-interp.h (_Jv_InterpClass): Declare friend function _Jv_GetInterpClassSourceFile.

Browse source 
* include/java-interp.h (_Jv_InterpClass): Declare
        friend function _Jv_GetInterpClassSourceFile.
        * java/lang/Class.h (Class): Likewise.
        * java/lang/natClass.cc (_Jv_GetInterpClassSourceFile):
        New function.
        * gnu/classpath/jdwp/natVMVirtualMachine.cc
        (getSourceFile): Implement.

From-SVN: r122882
This commit is contained in:
Keith Seitz 2007-03-13 19:27:13 +00:00 • committed by Keith Seitz
parent 03943c05c1
commit bde6c7a990
5 changed files with 27 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
libjava/ChangeLog
View file

@ -1,3 +1,13 @@
2007-03-13 Keith Seitz <keiths@redhat.com>
* include/java-interp.h (_Jv_InterpClass): Declare
friend function _Jv_GetInterpClassSourceFile.
* java/lang/Class.h (Class): Likewise.
* java/lang/natClass.cc (_Jv_GetInterpClassSourceFile):
New function.
* gnu/classpath/jdwp/natVMVirtualMachine.cc
(getSourceFile): Implement.
2007-03-13 Thomas Fitzsimmons <fitzsim@redhat.com>
* Makefile.am (AM_CXXFLAGS): Define ECJ_JAR_FILE.

4
libjava/gnu/classpath/jdwp/natVMVirtualMachine.cc
View file

@ -644,9 +644,9 @@ executeMethod (MAYBE_UNUSED jobject obj, MAYBE_UNUSED Thread *thread,
jstring
gnu::classpath::jdwp::VMVirtualMachine::
getSourceFile (MAYBE_UNUSED jclass clazz)
getSourceFile (jclass clazz)
{
return NULL;
return _Jv_GetInterpClassSourceFile (clazz);
}
// A simple caching function used while single-stepping

1
libjava/include/java-interp.h
View file

@ -306,6 +306,7 @@ class _Jv_InterpClass
#endif
friend _Jv_MethodBase ** _Jv_GetFirstMethod (_Jv_InterpClass *klass);
friend jstring _Jv_GetInterpClassSourceFile (jclass);
};
extern inline _Jv_MethodBase **

2
libjava/java/lang/Class.h
View file

@ -267,6 +267,7 @@ _Jv_Utf8Const *_Jv_GetClassNameUtf8 (jclass);
// Finds a desired interpreter method in the given class or NULL if not found
class _Jv_MethodBase;
_Jv_MethodBase *_Jv_FindInterpreterMethod (jclass, jmethodID);
jstring _Jv_GetInterpClassSourceFile (jclass);
#endif
jbyte _Jv_GetClassState (jclass);
@ -568,6 +569,7 @@ private:
#ifdef INTERPRETER
friend _Jv_MethodBase *(::_Jv_FindInterpreterMethod) (jclass klass,
jmethodID desired_method);
friend jstring ::_Jv_GetInterpClassSourceFile (jclass);
#endif
friend jbyte (::_Jv_GetClassState) (jclass klass);

12
libjava/java/lang/natClass.cc
View file

@ -2064,3 +2064,15 @@ _Jv_GetClassState (jclass klass)
return klass->state;
}
jstring
_Jv_GetInterpClassSourceFile (jclass klass)
{
if (_Jv_IsInterpretedClass (klass))
{
_Jv_InterpClass *iclass =
reinterpret_cast<_Jv_InterpClass *> (klass->aux_info);
return iclass->source_file_name;
}
return NULL;
}