JavaNativeMethodImpl_OpenJDK7.st
branchdevelopment
changeset 2910 f6e83cfb4d0f
parent 2731 13f5be2bf83b
child 2912 a38c23f77e42
--- a/JavaNativeMethodImpl_OpenJDK7.st	Mon Nov 11 17:27:08 2013 +0000
+++ b/JavaNativeMethodImpl_OpenJDK7.st	Mon Nov 11 21:20:14 2013 +0000
@@ -533,6 +533,30 @@
     ^ JavaVM unimplementedNativeMethodSignal raise
 ! !
 
+!JavaNativeMethodImpl_OpenJDK7 class methodsFor:'native - sun.reflect'!
+
+_sun_reflect_Reflection_getCallerClass0: this _: a1 
+
+    <javanative: 'sun/reflect/Reflection' name: 'getCallerClass0(I)Ljava/lang/Class;'>
+
+    "/ Until there is hotspot @CallerSensitive support,
+    "/ depth must always be 2 to get the immediate caller
+    ^ self _sun_reflect_Reflection_getCallerClass: this _: 2
+
+    "Modified (comment): / 11-11-2013 / 21:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_sun_reflect_Reflection_getCallerClass: this 
+
+    <javanative: 'sun/reflect/Reflection' name: 'getCallerClass()Ljava/lang/Class;'>
+
+    "/ Until there is hotspot @CallerSensitive support,
+    "/ depth must always be 2 to get the immediate caller
+    ^ self _sun_reflect_Reflection_getCallerClass0: this _: 2
+
+    "Modified (comment): / 11-11-2013 / 21:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !JavaNativeMethodImpl_OpenJDK7 class methodsFor:'documentation'!
 
 version_CVS