isReal -> isLimitedPrecisionReal
authorcg
Tue, 06 Nov 2001 13:22:09 +0000
changeset 710 99c1bd77e5a6
parent 709 5b5bf05fe4e6
child 711 88d966b256d0
isReal -> isLimitedPrecisionReal
JavaClass.st
--- 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!