1 /* nat/VMSystem.c - java/lang/System
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 1067 2004-05-18 10:25:51Z stefan $
41 #include "toolbox/logging.h"
42 #include "java_lang_Object.h"
46 * Class: java/lang/System
48 * Signature: (Ljava/lang/Object;ILjava/lang/Object;II)V
50 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)
53 java_arrayheader *s = (java_arrayheader *) source;
54 java_arrayheader *d = (java_arrayheader *) dest;
55 arraydescriptor *sdesc;
56 arraydescriptor *ddesc;
58 /* printf("arraycopy: %p:%x->%p:%x\n",source,sp,dest,dp);
62 *exceptionptr = new_exception(string_java_lang_NullPointerException);
66 sdesc = s->objheader.vftbl->arraydesc;
67 ddesc = d->objheader.vftbl->arraydesc;
69 if (!sdesc || !ddesc || (sdesc->arraytype != ddesc->arraytype)) {
70 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
74 if ((len < 0) || (sp < 0) || (sp + len > s->size) || (dp < 0) || (dp + len > d->size)) {
75 *exceptionptr = new_exception(string_java_lang_ArrayIndexOutOfBoundsException);
79 if (sdesc->componentvftbl == ddesc->componentvftbl) {
80 /* We copy primitive values or references of exactly the same type */
81 s4 dataoffset = sdesc->dataoffset;
82 s4 componentsize = sdesc->componentsize;
83 memmove(((u1 *) d) + dataoffset + componentsize * dp,
84 ((u1 *) s) + dataoffset + componentsize * sp,
85 (size_t) len * componentsize);
88 /* We copy references of different type */
89 java_objectarray *oas = (java_objectarray *) s;
90 java_objectarray *oad = (java_objectarray *) d;
93 for (i = 0; i < len; i++) {
94 java_objectheader *o = oas->data[sp + i];
95 if (!builtin_canstore(oad, o)) {
96 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
99 oad->data[dp + i] = o;
103 /* XXX this does not completely obey the specification!
104 * If an exception is thrown only the elements above
105 * the current index have been copied. The
106 * specification requires that only the elements
107 * *below* the current index have been copied before
110 for (i = len - 1; i >= 0; i--) {
111 java_objectheader *o = oas->data[sp + i];
112 if (!builtin_canstore(oad, o)) {
113 *exceptionptr = new_exception(string_java_lang_ArrayStoreException);
116 oad->data[dp + i] = o;
124 * Class: java/lang/System
125 * Method: identityHashCode
126 * Signature: (Ljava/lang/Object;)I
128 JNIEXPORT s4 JNICALL Java_java_lang_VMSystem_identityHashCode(JNIEnv *env, jclass clazz, java_lang_Object *par1)
130 return ((char *) par1) - ((char *) 0);
135 * These are local overrides for various environment variables in Emacs.
136 * Please do not remove this and leave it at the end of the file, where
137 * Emacs will automagically detect them.
138 * ---------------------------------------------------------------------
141 * indent-tabs-mode: t