1 /* native/vm/VMSystem.c - java/lang/VMSystem
3 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser,
5 M. Probst, S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck,
6 P. Tomsich, J. Wenninger
8 This file is part of CACAO.
10 This program is free software; you can redistribute it and/or
11 modify it under the terms of the GNU General Public License as
12 published by the Free Software Foundation; either version 2, or (at
13 your option) any later version.
15 This program is distributed in the hope that it will be useful, but
16 WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 Contact: cacao@complang.tuwien.ac.at
27 Authors: Roman Obermaiser
29 Changes: Joseph Wenninger
31 $Id: VMSystem.c 1621 2004-11-30 13:06:55Z twisti $
39 #include "native/jni.h"
40 #include "native/native.h"
41 #include "native/include/java_lang_Object.h"
42 #include "toolbox/logging.h"
43 #include "vm/exceptions.h"
44 #include "vm/builtin.h"
48 * Class: java/lang/System
50 * Signature: (Ljava/lang/Object;ILjava/lang/Object;II)V
52 JNIEXPORT void JNICALL Java_java_lang_VMSystem_arraycopy(JNIEnv *env, jclass clazz, java_lang_Object *source, s4 sp, java_lang_Object *dest, s4 dp, s4 len)
55 java_arrayheader *s = (java_arrayheader *) source;
56 java_arrayheader *d = (java_arrayheader *) dest;
57 arraydescriptor *sdesc;
58 arraydescriptor *ddesc;
60 /* printf("arraycopy: %p:%x->%p:%x\n",source,sp,dest,dp);
64 *exceptionptr = new_exception(string_java_lang_NullPointerException);
68 sdesc = s->objheader.vftbl->arraydesc;
69 ddesc = d->objheader.vftbl->arraydesc;
71 if (!sdesc || !ddesc || (sdesc->arraytype != ddesc->arraytype)) {
72 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
76 if ((len < 0) || (sp < 0) || (sp + len > s->size) || (dp < 0) || (dp + len > d->size)) {
77 *exceptionptr = new_exception(string_java_lang_ArrayIndexOutOfBoundsException);
81 if (sdesc->componentvftbl == ddesc->componentvftbl) {
82 /* We copy primitive values or references of exactly the same type */
83 s4 dataoffset = sdesc->dataoffset;
84 s4 componentsize = sdesc->componentsize;
85 memmove(((u1 *) d) + dataoffset + componentsize * dp,
86 ((u1 *) s) + dataoffset + componentsize * sp,
87 (size_t) len * componentsize);
90 /* We copy references of different type */
91 java_objectarray *oas = (java_objectarray *) s;
92 java_objectarray *oad = (java_objectarray *) d;
95 for (i = 0; i < len; i++) {
96 java_objectheader *o = oas->data[sp + i];
97 if (!builtin_canstore(oad, o)) {
98 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
101 oad->data[dp + i] = o;
105 /* XXX this does not completely obey the specification!
106 * If an exception is thrown only the elements above
107 * the current index have been copied. The
108 * specification requires that only the elements
109 * *below* the current index have been copied before
112 for (i = len - 1; i >= 0; i--) {
113 java_objectheader *o = oas->data[sp + i];
114 if (!builtin_canstore(oad, o)) {
115 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
118 oad->data[dp + i] = o;
126 * Class: java/lang/System
127 * Method: identityHashCode
128 * Signature: (Ljava/lang/Object;)I
130 JNIEXPORT s4 JNICALL Java_java_lang_VMSystem_identityHashCode(JNIEnv *env, jclass clazz, java_lang_Object *par1)
132 return ((char *) par1) - ((char *) 0);
137 * These are local overrides for various environment variables in Emacs.
138 * Please do not remove this and leave it at the end of the file, where
139 * Emacs will automagically detect them.
140 * ---------------------------------------------------------------------
143 * indent-tabs-mode: t