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.
checkin from browser
authorcg
Mon, 18 Dec 2000 22:11:53 +0000
changeset 704 bad27133e36e
parent 703 37d2ddc947ed
child 705 3919d07d0a02
checkin from browser
JavaVM.st file | annotate | diff | comparison | revisions 
--- a/JavaVM.st	Mon Dec 18 19:31:00 2000 +0000
+++ b/JavaVM.st	Mon Dec 18 22:11:53 2000 +0000
@@ -1321,7 +1321,7 @@
 "/ MonitorTrace := true.
 "/ ThreadTrace := true.
 
-    UnhandledJavaExceptionSignal := (Signal new) mayProceed:false.
+    UnhandledJavaExceptionSignal := (Signal new) mayProceed:true.
     UnhandledJavaExceptionSignal nameClass:self message:#unhandledJavaExceptionSignal.
     UnhandledJavaExceptionSignal notifierString:'unhandled java exception'.
 
@@ -3179,7 +3179,7 @@
 
 _ColorModel_deletepData:nativeContext
     "/ void deletepData ()
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Created: / 12.11.1998 / 19:22:05 / cg"
 ! !
@@ -3243,7 +3243,7 @@
 
 _FileDescriptor_sync:nativeContext
     "/ void sync ()
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:57:39 / cg"
     "Created: / 12.11.1998 / 19:26:25 / cg"
@@ -3753,7 +3753,7 @@
 
 _File_rmdir0:nativeContext
     "/ boolean rmdir0 ()
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 19:01:48 / cg"
     "Created: / 12.11.1998 / 19:03:52 / cg"
@@ -4450,35 +4450,35 @@
 !
 
 _Class_getComponentType:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:54:46 / cg"
 !
 
 _Class_getConstructor0:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:42 / cg"
 !
 
 _Class_getConstructors0:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:26 / cg"
 !
 
 _Class_getField0:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:37 / cg"
 !
 
 _Class_getFields0:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:18 / cg"
@@ -4632,7 +4632,7 @@
 !
 
 _Class_getModifiers:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:54:53 / cg"
@@ -4705,7 +4705,7 @@
 !
 
 _Class_getSigners:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:01 / cg"
@@ -4729,14 +4729,14 @@
 !
 
 _Class_isArray:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:54:24 / cg"
 !
 
 _Class_isAssignableFrom:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:54:16 / cg"
@@ -4834,7 +4834,7 @@
 !
 
 _Class_setSigners:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 18:52:07 / cg"
     "Created: / 12.11.1998 / 18:55:08 / cg"
@@ -5648,49 +5648,43 @@
 
     srcArray := nativeContext argAt:1.
     srcArray isNil ifTrue:[
-	^ self throwNullPointerException
+        ^ self throwNullPointerException
     ].
     srcIdx := nativeContext argAt:2.
     dstArray := nativeContext argAt:3.
     dstArray isNil ifTrue:[
-	^ self throwNullPointerException
+        ^ self throwNullPointerException
     ].
     dstIdx := nativeContext argAt:4.
     count := nativeContext argAt:5.
 
     ((srcIdx < 0) or:[srcIdx + count > srcArray size]) ifTrue:[
-	srcArray size == 0 ifTrue:[
-	    srcArray isVariable ifFalse:[
-		^ self throwArrayStoreException:srcArray
-	    ]
-	].
-	^ self throwArrayIndexOutOfBoundsException:(srcIdx + count - 1)
+        srcArray size == 0 ifTrue:[
+            srcArray isVariable ifFalse:[
+                ^ self throwArrayStoreException:srcArray
+            ]
+        ].
+        ^ self throwArrayIndexOutOfBoundsException:(srcIdx + count - 1)
     ].
     ((dstIdx < 0) or:[dstIdx + count > dstArray size]) ifTrue:[
-	dstArray size == 0 ifTrue:[
-	    dstArray isVariable ifFalse:[
-		^ self throwArrayStoreException:dstArray
-	    ]
-	].
-	^ self throwArrayIndexOutOfBoundsException:(dstIdx + count - 1)
+        dstArray size == 0 ifTrue:[
+            dstArray isVariable ifFalse:[
+                ^ self throwArrayStoreException:dstArray
+            ]
+        ].
+        ^ self throwArrayIndexOutOfBoundsException:(dstIdx + count - 1)
     ].
 
     dstEndIdx := dstIdx + count.
     dstIdx := dstIdx + 1.       "/ ST uses 1-based indexing
     srcIdx := srcIdx + 1.       "/ ST uses 1-based indexing
 
-    srcArray class isBytes ifTrue:[
-	dstArray class isBytes ifFalse:[
-	    self halt:'incompatible arraycopy collections'.
-	].
-	dstArray replaceBytesFrom:dstIdx to:dstEndIdx with:srcArray startingAt:srcIdx.
+    (srcArray class isBytes and:[dstArray class isBytes]) ifTrue:[
+        dstArray replaceBytesFrom:dstIdx to:dstEndIdx with:srcArray startingAt:srcIdx.
     ] ifFalse:[
-	dstArray replaceFrom:dstIdx to:dstEndIdx with:srcArray startingAt:srcIdx.
+        dstArray replaceFrom:dstIdx to:dstEndIdx with:srcArray startingAt:srcIdx.
     ].
     ^ nil.
-
-    "Created: / 3.1.1998 / 01:56:44 / cg"
-    "Modified: / 20.10.1998 / 16:22:46 / cg"
 !
 
 _System_currentTimeMillis:nativeContext
@@ -6402,7 +6396,7 @@
         self halt.
         ^ nil
     ].
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:36:01 / cg"
     "Created: / 27.1.2000 / 02:56:37 / cg"
@@ -6421,7 +6415,7 @@
         self halt.
         ^ nil
     ].
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:36:01 / cg"
 !
@@ -6593,7 +6587,7 @@
 _Constructor_getModifiers:nativeContext
     "/ int getModifiers ()
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 02:54:38 / cg"
@@ -6602,7 +6596,7 @@
 _Constructor_newInstance:nativeContext
     "/ java.lang.Object newInstance (java.lang.Object[])
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
 !
@@ -6610,7 +6604,7 @@
 _Field_get:nativeContext
     "/ java.lang.Object get (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:04:18 / cg"
@@ -6619,7 +6613,7 @@
 _Field_getBoolean:nativeContext
     "/ boolean getBoolean (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:05:16 / cg"
@@ -6628,7 +6622,7 @@
 _Field_getByte:nativeContext
     "/ byte getByte (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:05:30 / cg"
@@ -6637,7 +6631,7 @@
 _Field_getChar:nativeContext
     "/ char getChar (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:03:37 / cg"
@@ -6646,7 +6640,7 @@
 _Field_getDouble:nativeContext
     "/ double getDouble (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:07:49 / cg"
@@ -6655,7 +6649,7 @@
 _Field_getFloat:nativeContext
     "/ float getFloat (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:05:41 / cg"
@@ -6664,7 +6658,7 @@
 _Field_getInt:nativeContext
     "/ int getInt (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:04:47 / cg"
@@ -6673,7 +6667,7 @@
 _Field_getLong:nativeContext
     "/ long getLong (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:05:54 / cg"
@@ -6682,7 +6676,7 @@
 _Field_getModifiers:nativeContext
     "/ int getModifiers ()
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:07:03 / cg"
@@ -6691,7 +6685,7 @@
 _Field_getShort:nativeContext
     "/ unsigned short getShort (java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:07:35 / cg"
@@ -6700,7 +6694,7 @@
 _Field_set:nativeContext
     "/ void set (java.lang.Object java.lang.Object)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:04:33 / cg"
@@ -6709,7 +6703,7 @@
 _Field_setBoolean:nativeContext
     "/ void setBoolean (java.lang.Object boolean)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:06:06 / cg"
@@ -6718,7 +6712,7 @@
 _Field_setByte:nativeContext
     "/ void setByte (java.lang.Object byte)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:06:20 / cg"
@@ -6727,7 +6721,7 @@
 _Field_setChar:nativeContext
     "/ void setChar (java.lang.Object char)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:03:48 / cg"
@@ -6736,7 +6730,7 @@
 _Field_setDouble:nativeContext
     "/ void setDouble (java.lang.Object double)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:04:02 / cg"
@@ -6745,7 +6739,7 @@
 _Field_setFloat:nativeContext
     "/ void setFloat (java.lang.Object float)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:06:48 / cg"
@@ -6754,7 +6748,7 @@
 _Field_setInt:nativeContext
     "/ void setInt (java.lang.Object int)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:05:04 / cg"
@@ -6763,7 +6757,7 @@
 _Field_setLong:nativeContext
     "/ void setLong (java.lang.Object long)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:06:37 / cg"
@@ -6772,7 +6766,7 @@
 _Field_setShort:nativeContext
     "/ void setShort (java.lang.Object unsigned short)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 02:53:55 / cg"
     "Created: / 27.1.2000 / 03:03:23 / cg"
@@ -6781,7 +6775,7 @@
 !JavaVM class methodsFor:'native - java.math'!
 
 _BigInteger_plumbInit:nativeContext
-    UnimplementedNativeMethodSignal raise
+    UnimplementedNativeMethodSignal raiseRequest
 
     "Modified: / 12.11.1998 / 19:23:00 / cg"
 ! !
@@ -7413,7 +7407,7 @@
 _CRC32_update1:nativeContext
     "/ void update1 (int)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 03:08:47 / cg"
 !
@@ -7421,7 +7415,7 @@
 _CRC32_update:nativeContext
     "/ void update (byte[] int int)
 
-UnimplementedNativeMethodSignal raise.
+UnimplementedNativeMethodSignal raiseRequest.
 
     "Modified: / 27.1.2000 / 03:08:47 / cg"
     "Created: / 27.1.2000 / 03:09:20 / cg"
@@ -8259,7 +8253,7 @@
     "/ public static native synchronized int cmmGetTagSize (long arg1, int arg2, int[] arg3)
     "/ new with jdk1.2 ...
 
-    UnimplementedNativeMethodSignal raise.
+    UnimplementedNativeMethodSignal raiseRequest.
     ^ -1.
 
     "Created: / 27.1.1998 / 21:43:25 / cg"
@@ -8275,7 +8269,7 @@
     "/ public static native synchronized int cmmLoadProfile (byte[] arg1, long[] arg2)
     "/ new with jdk1.2 ...
 
-    UnimplementedNativeMethodSignal raise.
+    UnimplementedNativeMethodSignal raiseRequest.
     ^ -1.
 
     "Created: / 27.1.1998 / 21:43:25 / cg"
@@ -8452,6 +8446,10 @@
     "Created: / 18.11.1998 / 00:21:51 / cg"
 !
 
+_MToolkit_loadSystemColors:nativeContext
+    ^ self _WToolkit_loadSystemColors:nativeContext
+!
+
 _X11FontMetrics_getMFCharSegmentWidth:nativeContext
     "get multi-font string-segment width.
      Not yet supported - use standard strings width"
@@ -12824,6 +12822,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.178 2000/12/18 19:30:11 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.179 2000/12/18 22:11:53 cg Exp $'
 ! !
 JavaVM initialize!
hg/stx-libjava