--- a/JavaClass.st Fri Jul 20 12:17:59 2001 +0000
+++ b/JavaClass.st Tue Nov 06 13:22:09 2001 +0000
@@ -321,14 +321,14 @@
].
(type == #float) ifTrue:[
- arg isReal ifTrue:[
+ arg isLimitedPrecisionReal ifTrue:[
^ arg asShortFloat
].
^ failBlock value:('cannot convert argument to ' , type) value:0.0.
].
- (type == 'java.lang.Float') ifTrue:[
- arg isReal ifTrue:[
+ (type = 'java.lang.Float') ifTrue:[
+ arg isLimitedPrecisionReal ifTrue:[
f := (Java at:'java.lang.Float') new.
f perform:#'<init>(F)V' with:(arg asShortFloat).
self halt.
@@ -336,8 +336,8 @@
].
^ failBlock value:('cannot convert argument to ' , type) value:0.0.
].
- (type == 'java.lang.Double') ifTrue:[
- arg isReal ifTrue:[
+ (type = 'java.lang.Double') ifTrue:[
+ arg isLimitedPrecisionReal ifTrue:[
f := (Java at:'java.lang.Double') new.
f perform:#'<init>(D)V' with:(arg asFloat).
self halt.
@@ -347,7 +347,7 @@
].
(type == #double) ifTrue:[
- arg isReal ifTrue:[
+ arg isLimitedPrecisionReal ifTrue:[
^ arg asFloat
].
^ failBlock value:('cannot convert argument to ' , type) value:0.0.
@@ -422,7 +422,7 @@
^ failBlock value:('cannot convert argument to ' , type) value:failValue
"Created: / 6.11.1998 / 00:46:19 / cg"
- "Modified: / 28.1.1999 / 17:55:17 / cg"
+ "Modified: / 6.11.2001 / 13:28:29 / cg"
!
convertToSmalltalk:jObj type:type
@@ -585,6 +585,12 @@
!JavaClass class methodsFor:'special'!
+flushClassesInitOrder
+ OrderOfClassInits := nil
+
+ "Created: / 6.11.2001 / 09:49:49 / cg"
+!
+
orderOfClassInits
^ OrderOfClassInits
@@ -1850,6 +1856,6 @@
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.121 2001/04/24 22:16:03 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.122 2001/11/06 13:22:09 cg Exp $'
! !
JavaClass initialize!