(none) jk_new_structure
authorvranyj1
Mon, 26 Dec 2011 21:10:20 +0000
branchjk_new_structure
changeset 1324 714586b626b5
parent 1323 768a77d163b8
child 1325 2789d9b9fbe9
(none)
src/experiments/ProxyMethodJavaMethodInvocationNode.st
src/experiments/stx_libjava_experiments.st
--- a/src/experiments/ProxyMethodJavaMethodInvocationNode.st	Mon Dec 26 20:52:55 2011 +0000
+++ b/src/experiments/ProxyMethodJavaMethodInvocationNode.st	Mon Dec 26 21:10:20 2011 +0000
@@ -117,11 +117,13 @@
             ^nil
         ].
 
-        invocation :=
-            MessageNode
-                receiver: (ConstantNode value: descriptor return javaClass)
+        invocation := super generate: compiler.
+        "(descriptor return javaClass isJavaWrapperClass)"true ifTrue:[
+            invocation := MessageNode
+                receiver: invocation
                 selector: #javaUnwrap:
-                arg: (super generate: compiler). 
+                arg: (super generate: compiler).
+        ].
 
         ^invocation
     ].
--- a/src/experiments/stx_libjava_experiments.st	Mon Dec 26 20:52:55 2011 +0000
+++ b/src/experiments/stx_libjava_experiments.st	Mon Dec 26 21:10:20 2011 +0000
@@ -139,10 +139,8 @@
         ProxyMethodJavaMethodInvocationNode
         ProxyMethodCompiler
         ProxyMethodJavaTypeCheckNode
-        #('Benchmarks::JavaLookup' autoload)
+        (#'Benchmarks::JavaLookup' autoload)
     )
-
-    "Modified: / 26-12-2011 / 21:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 extensionMethodNames
@@ -205,7 +203,7 @@
     "Return a SVN revision number of myself.
      This number is updated after a commit"
 
-    ^ "$SVN-Revision:"        '1674M'"$"
+    ^ "$SVN-Revision:"'1674'"$"
 ! !
 
 !stx_libjava_experiments class methodsFor:'documentation'!