JavaNativeMethod.st
branchjava-exception-optimization
changeset 2585 14ab287e17ca
parent 2577 20f1eddba58b
child 2591 17d9c39d3ab4
--- a/JavaNativeMethod.st	Fri May 03 10:56:50 2013 +0100
+++ b/JavaNativeMethod.st	Mon May 06 22:37:13 2013 +0100
@@ -385,6 +385,7 @@
         | m a |
 
         m := JavaVM natives class lookupMethodFor: newStyleSel.
+        m isWrapped ifTrue:[ m := m originalMethod ].
         a := m annotationsAt: #javanative:name:.
         a do:[:each|
             each arguments second = selector ifTrue:[
@@ -402,7 +403,7 @@
     ^newStyleSel
 
     "Created: / 19-01-2013 / 22:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 12-02-2013 / 15:26:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-05-2013 / 22:03:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaNativeMethod methodsFor:'private-compiler interface'!