checkin from browser
authorcg
Fri, 06 Feb 1998 00:33:06 +0000
changeset 317 40ef89f043c1
parent 316 beb8e55ba106
child 318 8720093188f7
checkin from browser
JavaBuiltInClassPointerRef.st
JavaUnresolvedClassConstant.st
JavaVM.st
--- a/JavaBuiltInClassPointerRef.st	Fri Feb 06 00:00:57 1998 +0000
+++ b/JavaBuiltInClassPointerRef.st	Fri Feb 06 00:33:06 1998 +0000
@@ -78,12 +78,15 @@
     (nameandType startsWith:'[B') ifTrue:[
         ^ ByteArray
     ].
+    (nameandType startsWith:'[C') ifTrue:[
+        ^ String "/ soon: TwoByteString
+    ].
 
 self halt.
     ^ self
 
     "Created: / 13.1.1998 / 00:02:39 / cg"
-    "Modified: / 13.1.1998 / 00:03:07 / cg"
+    "Modified: / 6.2.1998 / 01:20:08 / cg"
 !
 
 asClassPointerRef
@@ -118,5 +121,5 @@
 !JavaBuiltInClassPointerRef class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaBuiltInClassPointerRef.st,v 1.5 1998/01/16 16:11:11 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaBuiltInClassPointerRef.st,v 1.6 1998/02/06 00:32:22 cg Exp $'
 ! !
--- a/JavaUnresolvedClassConstant.st	Fri Feb 06 00:00:57 1998 +0000
+++ b/JavaUnresolvedClassConstant.st	Fri Feb 06 00:33:06 1998 +0000
@@ -63,10 +63,12 @@
         ].
         ^ JavaUnresolvedClassConstant basicNew setFullName:refClassName
     ].
-    self halt.
+    (fullName startsWith:'[[C') ifTrue:[
+        ^ JavaBuiltInClassPointerRef new nameandType:'[C'.
+    ].
 
     "Created: / 7.4.1997 / 13:38:07 / cg"
-    "Modified: / 25.1.1998 / 18:23:06 / cg"
+    "Modified: / 6.2.1998 / 01:21:01 / cg"
 !
 
 fullName
@@ -271,5 +273,5 @@
 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.27 1998/02/05 11:12:48 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.28 1998/02/06 00:32:39 cg Exp $'
 ! !
--- a/JavaVM.st	Fri Feb 06 00:00:57 1998 +0000
+++ b/JavaVM.st	Fri Feb 06 00:33:06 1998 +0000
@@ -2783,6 +2783,20 @@
     "Modified: / 13.1.1998 / 23:05:01 / cg"
 !
 
+_Math_atan:nativeContext
+    "arc tangens"
+
+    |dVal|
+
+    dVal := nativeContext argAt:1.
+    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+        self halt:'expected double arg'
+    ].
+    ^ dVal arcTan
+
+    "Created: / 6.2.1998 / 01:24:12 / cg"
+!
+
 _Math_ceil:nativeContext
     "ceiling"
 
@@ -7232,6 +7246,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.19 1998/02/06 00:00:57 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.20 1998/02/06 00:33:06 cg Exp $'
 ! !
 JavaVM initialize!