Mercurial Mercurial > hg > stx-libjava / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix in Float/LargeInteger>>javaBox: development
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Nov 2013 01:25:43 +0000
branchdevelopment
changeset 2918 e2fc5ead5542
parent 2917 e634189c444e
child 2919 d4ef0fe45599
Fix in Float/LargeInteger>>javaBox: When calling Java's wrapper class constructor, pass fake nil params ad double/long params takes 2 slots in Java.
extensions.st file | annotate | diff | comparison | revisions 
--- a/extensions.st	Wed Nov 13 11:13:40 2013 +0000
+++ b/extensions.st	Thu Nov 14 01:25:43 2013 +0000
@@ -740,10 +740,11 @@
     | wrapper |
 
     wrapper := (JavaVM classForName: 'java.lang.Double') new.
-    wrapper perform: #'<init>(D)V' with: anObject.
+    wrapper perform: #'<init>(D)V' with: anObject with: nil.
     ^ wrapper
 
     "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2013 / 01:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Float class methodsFor:'accessing'!
@@ -935,10 +936,11 @@
     | wrapper |
 
     wrapper := (JavaVM classForName: 'java.lang.Long') new.
-    wrapper perform: #'<init>(J)V' with: anObject.
+    wrapper perform: #'<init>(J)V' with: anObject with: nil.
     ^ wrapper
 
     "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2013 / 01:21:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !LargeInteger class methodsFor:'accessing'!
hg/stx-libjava