1"======================================================================
2|
3|   Java run-time support.  java.lang.VMClassLoader native methods.
4|
5|
6 ======================================================================"
7
8
9"======================================================================
10|
11| Copyright 2003 Free Software Foundation, Inc.
12| Written by Paolo Bonzini.
13|
14| This file is part of GNU Smalltalk.
15|
16| The GNU Smalltalk class library is free software; you can redistribute it
17| and/or modify it under the terms of the GNU General Public License
18| as published by the Free Software Foundation; either version 2, or (at
19| your option) any later version.
20|
21| The GNU Smalltalk class library is distributed in the hope that it will be
22| useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
23| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
24| Public License for more details.
25|
26| You should have received a copy of the GNU Lesser General Public License
27| along with the GNU Smalltalk class library; see the file COPYING.  If not,
28| write to the Free Software Foundation, 51 Franklin Street, Fifth Floor,
29| Boston, MA 02110-1301, USA.
30|
31 ======================================================================"
32
33
34!JavaVM methodsFor: 'java.lang.VMClassLoader'!
35
36java_lang_VMClassLoader_defineClass_java_lang_ClassLoader: arg1 java_lang_String: arg2 byteArray: arg3 int: arg4 int: arg5 java_security_ProtectionDomain: arg6
37    <javaNativeMethod: #'defineClass(Ljava/lang/ClassLoader;Ljava/lang/String;[BIILjava/security/ProtectionDomain;)Ljava/lang/Class;'
38        for: #{Java.java.lang.VMClassLoader} static: true>
39    self notYetImplemented
40!
41
42java_lang_VMClassLoader_linkClass0_java_lang_Class: arg1
43    <javaNativeMethod: #'linkClass0(Ljava/lang/Class;)V'
44        for: #{Java.java.lang.VMClassLoader} static: true>
45    self notYetImplemented
46!
47
48java_lang_VMClassLoader_markClassErrorState0_java_lang_Class: arg1
49    <javaNativeMethod: #'markClassErrorState0(Ljava/lang/Class;)V'
50        for: #{Java.java.lang.VMClassLoader} static: true>
51    self notYetImplemented
52!
53
54java_lang_VMClassLoader_getPrimitiveClass_char: arg1
55    <javaNativeMethod: #'getPrimitiveClass(C)Ljava/lang/Class;'
56        for: #{Java.java.lang.VMClassLoader} static: true>
57    arg1 == $I asInteger ifTrue: [ ^IntClass ].
58    arg1 == $B asInteger ifTrue: [ ^ByteClass ].
59    arg1 == $S asInteger ifTrue: [ ^ShortClass ].
60    arg1 == $J asInteger ifTrue: [ ^LongClass ].
61    arg1 == $F asInteger ifTrue: [ ^FloatClass ].
62    arg1 == $D asInteger ifTrue: [ ^DoubleClass ].
63    arg1 == $V asInteger ifTrue: [ ^VoidClass ].
64    arg1 == $Z asInteger ifTrue: [ ^BooleanClass ].
65    arg1 == $C asInteger ifTrue: [ ^CharClass ].
66    ^nil
67!
68
69java_lang_VMClassLoader_getSystemClassLoaderInternal
70    <javaNativeMethod: #'getSystemClassLoaderInternal()Ljava/lang/ClassLoader;'
71        for: #{Java.java.lang.VMClassLoader} static: true>
72    self notYetImplemented
73! !
74