Mercurial Mercurial > hg > stx-libjava / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JavaVM.st
changeset 416 4a9afdbe7e8e
parent 410 7a4c025a0af7
child 419 679a4b82b3bb 
--- a/JavaVM.st	Wed Nov 04 18:58:14 1998 +0000
+++ b/JavaVM.st	Wed Nov 04 18:58:57 1998 +0000
@@ -3136,12 +3136,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-        self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal arcCos
 
     "Created: / 7.5.1998 / 00:34:50 / cg"
-    "Modified: / 7.5.1998 / 00:36:38 / cg"
+    "Modified: / 4.11.1998 / 17:23:05 / cg"
 !
 
 _Math_asin:nativeContext
@@ -3151,12 +3155,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-        self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal arcSin
 
     "Created: / 7.5.1998 / 00:34:26 / cg"
-    "Modified: / 7.5.1998 / 00:36:43 / cg"
+    "Modified: / 4.11.1998 / 17:23:15 / cg"
 !
 
 _Math_atan:nativeContext
@@ -3166,11 +3174,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-        self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal arcTan
 
     "Created: / 6.2.1998 / 01:24:12 / cg"
+    "Modified: / 4.11.1998 / 17:23:19 / cg"
 !
 
 _Math_ceil:nativeContext
@@ -3180,11 +3193,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal ceilingAsFloat
 
     "Created: / 7.1.1998 / 15:43:00 / cg"
+    "Modified: / 4.11.1998 / 17:23:24 / cg"
 !
 
 _Math_cos:nativeContext
@@ -3194,11 +3212,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal cos
 
     "Created: / 7.1.1998 / 15:41:30 / cg"
+    "Modified: / 4.11.1998 / 17:23:29 / cg"
 !
 
 _Math_exp:nativeContext
@@ -3208,11 +3231,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-        self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal exp
 
     "Created: / 7.5.1998 / 00:36:19 / cg"
+    "Modified: / 4.11.1998 / 17:23:33 / cg"
 !
 
 _Math_floor:nativeContext
@@ -3222,11 +3250,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal floorAsFloat
 
     "Created: / 7.1.1998 / 19:09:21 / cg"
+    "Modified: / 4.11.1998 / 17:23:37 / cg"
 !
 
 _Math_log:nativeContext
@@ -3236,11 +3269,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal log
 
     "Created: / 7.1.1998 / 15:42:19 / cg"
+    "Modified: / 4.11.1998 / 17:23:41 / cg"
 !
 
 _Math_pow:nativeContext
@@ -3250,16 +3288,24 @@
 
     dVal1 := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal1 isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     dVal2 := nativeContext argAt:3.
     (nativeContext argAt:4) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal2 isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal1 raisedTo:dVal2
 
-    "Modified: / 15.8.1997 / 05:24:27 / cg"
     "Created: / 7.1.1998 / 15:44:13 / cg"
+    "Modified: / 4.11.1998 / 17:24:01 / cg"
 !
 
 _Math_sin:nativeContext
@@ -3269,11 +3315,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal sin
 
     "Created: / 7.1.1998 / 15:41:40 / cg"
+    "Modified: / 4.11.1998 / 17:24:09 / cg"
 !
 
 _Math_sqrt:nativeContext
@@ -3283,11 +3334,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-	self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal sqrt
 
     "Created: / 7.1.1998 / 15:42:40 / cg"
+    "Modified: / 4.11.1998 / 17:24:24 / cg"
 !
 
 _Math_tan:nativeContext
@@ -3297,12 +3353,16 @@
 
     dVal := nativeContext argAt:1.
     (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-        self halt:'expected double arg'
+        dVal isReal ifTrue:[
+            'JAVAVM [info]: missing double flag' infoPrintCR.
+        ] ifFalse:[
+            self halt:'expected double arg'
+        ]
     ].
     ^ dVal tan
 
     "Created: / 7.5.1998 / 00:34:03 / cg"
-    "Modified: / 7.5.1998 / 00:37:04 / cg"
+    "Modified: / 4.11.1998 / 17:24:28 / cg"
 !
 
 _Method_getModifiers:nativeContext
@@ -8177,6 +8237,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.52 1998/11/02 18:39:09 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.53 1998/11/04 18:58:57 cg Exp $'
 ! !
 JavaVM initialize!
hg/stx-libjava