truffle: src/share/vm/c1x/c1x_VMEntries.cpp annotate

annotate src/share/vm/c1x/c1x_VMEntries.cpp @ 1427:149b1d2316de

basic invokeinterface and invokevirtual support

author	Lukas Stadler <lukas.stadler@oracle.com>
date	Wed, 18 Aug 2010 16:47:06 -0700
parents	98fffb304868
children	695451afc619

rev	line source
1410 b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	1 /*
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	2 * Copyright 2000-2010 Sun Microsystems, Inc. All Rights Reserved.
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	4 *
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	5 * This code is free software; you can redistribute it and/or modify it
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	6 * under the terms of the GNU General Public License version 2 only, as
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	7 * published by the Free Software Foundation.
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	8 *
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	9 * This code is distributed in the hope that it will be useful, but WITHOUT
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	12 * version 2 for more details (a copy is included in the LICENSE file that
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	13 * accompanied this code).
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	14 *
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	15 * You should have received a copy of the GNU General Public License version
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	16 * 2 along with this work; if not, write to the Free Software Foundation,
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	18 *
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	19 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	20 * CA 95054 USA or visit www.sun.com if you need additional information or
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	21 * have any questions.
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	22 *
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	23 */
b30a2cd5e3a2 Added methods to c1x_VMExits.cpp Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1406 diff changeset	24
1406 35069ca331f2 Hooked C1XCompiler class into the system. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: diff changeset	25
35069ca331f2 Hooked C1XCompiler class into the system. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: diff changeset	26 # include "incls/_precompiled.incl"
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	27 # include "incls/_c1x_VMEntries.cpp.incl"
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	28
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	29
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	30
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	31
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	32 // public byte[] RiMethod_code(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	33 JNIEXPORT jbyteArray JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1code(JNIEnv *env, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	34 methodOop method = C1XObjects::get<methodOop>(vmId);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	35 int code_size = method->code_size();
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	36 jbyteArray result = env->NewByteArray(code_size);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	37 env->SetByteArrayRegion(result, 0, code_size, (const jbyte *)method->code_base());
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	38 return result;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	39 }
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	40
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	41 // public int RiMethod_maxStackSize(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	42 JNIEXPORT jint JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1maxStackSize(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	43 return C1XObjects::get<methodOop>(vmId)->max_stack();
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	44 }
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	45
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	46 // public int RiMethod_maxLocals(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	47 JNIEXPORT jint JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1maxLocals(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	48 return C1XObjects::get<methodOop>(vmId)->max_locals();
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	49 }
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	50
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	51 // public RiType RiMethod_holder(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	52 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1holder(JNIEnv *, jobject, jlong vmId) {
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	53 VM_ENTRY_MARK
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	54 klassOop klass = C1XObjects::get<methodOop>(vmId)->method_holder();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	55 jlong klassVmId = C1XObjects::add<klassOop>(klass);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	56 Handle name = C1XObjects::toString<Handle>(klass->klass_part()->name(), CHECK_NULL);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	57 oop holder = VMExits::createRiType(klassVmId, name, THREAD);
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	58 return JNIHandles::make_local(THREAD, holder);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	59 }
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	60
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	61 // public String RiMethod_signature(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	62 JNIEXPORT jstring JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1signature(JNIEnv *env, jobject, jlong vmId) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	63 VM_ENTRY_MARK
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	64 methodOop method = C1XObjects::get<methodOop>(vmId);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	65 return C1XObjects::toString<jstring>(method->signature(), THREAD);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	66 }
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	67
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	68 // public int RiMethod_accessFlags(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	69 JNIEXPORT jint JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1accessFlags(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	70 return C1XObjects::get<methodOop>(vmId)->access_flags().as_int();
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	71 }
3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	72
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	73 // public RiType RiSignature_lookupType(String returnType, long accessingClassVmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	74 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiSignature_1lookupType(JNIEnv *, jobject, jstring jname, jlong accessingClassVmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	75 VM_ENTRY_MARK;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	76
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	77 symbolOop nameSymbol = C1XObjects::toSymbol(jname);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	78 Handle name = JNIHandles::resolve(jname);
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	79
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	80 oop result;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	81 if (nameSymbol == vmSymbols::int_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	82 result = VMExits::createRiTypePrimitive((int)T_INT, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	83 } else if (nameSymbol == vmSymbols::long_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	84 result = VMExits::createRiTypePrimitive((int)T_LONG, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	85 } else if (nameSymbol == vmSymbols::bool_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	86 result = VMExits::createRiTypePrimitive((int)T_BOOLEAN, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	87 } else if (nameSymbol == vmSymbols::char_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	88 result = VMExits::createRiTypePrimitive((int)T_CHAR, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	89 } else if (nameSymbol == vmSymbols::short_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	90 result = VMExits::createRiTypePrimitive((int)T_SHORT, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	91 } else if (nameSymbol == vmSymbols::byte_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	92 result = VMExits::createRiTypePrimitive((int)T_BYTE, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	93 } else if (nameSymbol == vmSymbols::double_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	94 result = VMExits::createRiTypePrimitive((int)T_DOUBLE, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	95 } else if (nameSymbol == vmSymbols::float_signature()) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	96 result = VMExits::createRiTypePrimitive((int)T_FLOAT, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	97 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	98 Handle classloader;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	99 Handle protectionDomain;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	100 if (accessingClassVmId != 0) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	101 classloader = C1XObjects::get<klassOop>(accessingClassVmId)->klass_part()->class_loader();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	102 protectionDomain = C1XObjects::get<klassOop>(accessingClassVmId)->klass_part()->protection_domain();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	103 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	104 klassOop resolved_type = SystemDictionary::resolve_or_null(nameSymbol, classloader, protectionDomain, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	105 if (resolved_type != NULL) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	106 result = VMExits::createRiType(C1XObjects::add<klassOop>(resolved_type), name, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	107 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	108 result = VMExits::createRiTypeUnresolved(name, accessingClassVmId, THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	109 }
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	110 }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	111
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	112 return JNIHandles::make_local(THREAD, result);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	113 }
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	114
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	115 // public Object RiConstantPool_lookupConstant(long vmId, int cpi);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	116 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupConstant(JNIEnv *env, jobject, jlong vmId, jint index) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	117 VM_ENTRY_MARK;
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	118
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	119 constantPoolOop cp = C1XObjects::get<constantPoolOop>(vmId);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	120
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	121 oop result = NULL;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	122 constantTag tag = cp->tag_at(index);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	123 if (tag.is_int()) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	124 result = VMExits::createCiConstantInt(cp->int_at(index), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	125 } else if (tag.is_long()) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	126 result = VMExits::createCiConstantLong(cp->long_at(index), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	127 } else if (tag.is_float()) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	128 result = VMExits::createCiConstantFloat(cp->float_at(index), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	129 } else if (tag.is_double()) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	130 result = VMExits::createCiConstantDouble(cp->double_at(index), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	131 } else if (tag.is_string() \|\| tag.is_unresolved_string()) {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	132 oop string = NULL;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	133 if (cp->is_pseudo_string_at(index)) {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	134 string = cp->pseudo_string_at(index);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	135 } else {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	136 string = cp->string_at(index, THREAD);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	137 if (HAS_PENDING_EXCEPTION) {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	138 CLEAR_PENDING_EXCEPTION;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	139 // TODO: Gracefully exit compilation.
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	140 fatal("out of memory during compilation!");
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	141 return NULL;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	142 }
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	143 }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	144 result = VMExits::createCiConstantObject(C1XObjects::add<oop>(string), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	145 } else if (tag.is_klass() \|\| tag.is_unresolved_klass()) {
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	146
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	147 // TODO: Return RiType object
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	148 ShouldNotReachHere();
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	149 // 4881222: allow ldc to take a class type
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	150 //bool ignore;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	151 //ciKlass* klass = get_klass_by_index_impl(cpool, index, ignore, accessor);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	152 //if (HAS_PENDING_EXCEPTION) {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	153 // CLEAR_PENDING_EXCEPTION;
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	154 // record_out_of_memory_failure();
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	155 // return ciConstant();
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	156 //}
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	157 //assert (klass->is_instance_klass() \|\| klass->is_array_klass(),
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	158 // "must be an instance or array klass ");
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	159 //return ciConstant(T_OBJECT, klass);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	160 } else if (tag.is_object()) {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	161 oop obj = cp->object_at(index);
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	162 assert(obj->is_instance(), "must be an instance");
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	163 result = VMExits::createCiConstantObject(C1XObjects::add<oop>(obj), CHECK_0);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	164 } else {
1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	165 ShouldNotReachHere();
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	166 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	167
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	168 return JNIHandles::make_local(THREAD, result);
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	169 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	170
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	171 // public RiMethod RiConstantPool_lookupMethod(long vmId, int cpi, byte byteCode);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	172 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupMethod(JNIEnv *env, jobject, jlong vmId, jint index, jbyte byteCode) {
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	173 VM_ENTRY_MARK;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	174
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	175 constantPoolOop cp = C1XObjects::get<constantPoolOop>(vmId);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	176
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	177 Bytecodes::Code bc = (Bytecodes::Code)(((int)byteCode) & 0xFF);
1413 1ecc8f0aad00 Draft implementation of HotSpot CRI / first method compiling without exception. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1412 diff changeset	178 ciInstanceKlass* loading_klass = (ciInstanceKlass *)CURRENT_ENV->get_object(cp->pool_holder());
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	179 ciMethod *cimethod = CURRENT_ENV->get_method_by_index(cp, index, bc, loading_klass);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	180 methodOop method = (methodOop)cimethod->get_oop();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	181 Handle name = C1XObjects::toString<Handle>(method->name(), CHECK_NULL);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	182 return JNIHandles::make_local(THREAD, VMExits::createRiMethod(C1XObjects::add<methodOop>(method), name, THREAD));
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	183 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	184
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	185 // public RiSignature RiConstantPool_lookupSignature(long vmId, int cpi);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	186 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupSignature(JNIEnv *env, jobject, jlong vmId, jint index) {
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	187 fatal("currently unsupported");
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	188 return NULL;
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	189 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	190
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	191 // public RiType RiConstantPool_lookupType(long vmId, int cpi);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	192 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupType(JNIEnv *env, jobject, jlong vmId, jint index) {
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	193 VM_ENTRY_MARK;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	194
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	195 constantPoolOop cp = C1XObjects::get<constantPoolOop>(vmId);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	196
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	197 ciInstanceKlass* loading_klass = (ciInstanceKlass *)CURRENT_ENV->get_object(cp->pool_holder());
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	198 bool is_accessible = false;
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	199 ciKlass *klass = CURRENT_ENV->get_klass_by_index(cp, index, is_accessible, loading_klass);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	200 return JNIHandles::make_local(THREAD, C1XCompiler::get_RiType(klass, cp->klass(), THREAD));
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	201
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	202 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	203
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	204 // public RiField RiConstantPool_lookupField(long vmId, int cpi);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	205 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupField(JNIEnv *env, jobject, jlong vmId, jint index) {
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	206 VM_ENTRY_MARK;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	207
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	208 constantPoolOop cp = C1XObjects::get<constantPoolOop>(vmId);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	209
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	210 ciInstanceKlass* loading_klass = (ciInstanceKlass *)CURRENT_ENV->get_object(cp->pool_holder());
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	211 ciField *field = CURRENT_ENV->get_field_by_index(loading_klass, index);
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	212 return JNIHandles::make_local(THREAD, C1XCompiler::get_RiField(field, THREAD));
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	213 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	214
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	215 // public RiConstantPool RiType_constantPool(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	216 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiType_1constantPool(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	217 VM_ENTRY_MARK;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	218
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	219 constantPoolOop constantPool = instanceKlass::cast(C1XObjects::get<klassOop>(vmId))->constants();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	220 return JNIHandles::make_local(VMExits::createRiConstantPool(C1XObjects::add<constantPoolOop>(constantPool), THREAD));
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	221 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	222
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	223 // public boolean RiType_isArrayClass(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	224 JNIEXPORT jboolean JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiType_1isArrayClass(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	225 return C1XObjects::get<klassOop>(vmId)->klass_part()->oop_is_javaArray();
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	226 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	227
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	228 // public boolean RiType_isInstanceClass(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	229 JNIEXPORT jboolean JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiType_1isInstanceClass(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	230 return C1XObjects::get<klassOop>(vmId)->klass_part()->oop_is_instance();
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	231 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	232
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	233 // public boolean RiType_isInterface(long vmId);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	234 JNIEXPORT jboolean JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiType_1isInterface(JNIEnv *, jobject, jlong vmId) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	235 return C1XObjects::get<klassOop>(vmId)->klass_part()->is_interface();
1414 e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	236 }
e1a275dbc8cd Executing a+b with C1X on HotSpot ;-) ! Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1413 diff changeset	237
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	238 // public long RiType_instanceSize(long vmId);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	239 JNIEXPORT jlong JNICALL Java_com_sun_hotspot_c1x_VMEntries_RiType_1instanceSize(JNIEnv *, jobject, jlong vmId) {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	240 return align_object_size(instanceKlass::cast(C1XObjects::get<klassOop>(vmId))->size_helper() * HeapWordSize);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	241 }
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	242
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	243
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	244 // helpers used to set fields in the HotSpotVMConfig object
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	245 jfieldID getFieldID(JNIEnv* env, jobject obj, const char* name, const char* sig) {
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	246 jfieldID id = env->GetFieldID(env->GetObjectClass(obj), name, sig);
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	247 if (id == NULL) {
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	248 tty->print_cr("field not found: %s (%s)", name, sig);
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	249 assert(id != NULL, "field not found");
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	250 }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	251 return id;
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	252 }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	253
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	254 void set_boolean(JNIEnv* env, jobject obj, const char* name, bool value) { env->SetBooleanField(obj, getFieldID(env, obj, name, "Z"), value); }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	255 void set_int(JNIEnv* env, jobject obj, const char* name, int value) { env->SetIntField(obj, getFieldID(env, obj, name, "I"), value); }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	256 void set_long(JNIEnv* env, jobject obj, const char* name, long value) { env->SetLongField(obj, getFieldID(env, obj, name, "J"), value); }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	257 void set_object(JNIEnv* env, jobject obj, const char* name, jobject value) { env->SetObjectField(obj, getFieldID(env, obj, name, "Ljava/lang/Object;"), value); }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	258 void set_int_array(JNIEnv* env, jobject obj, const char* name, jarray value) { env->SetObjectField(obj, getFieldID(env, obj, name, "[I"), value); }
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	259
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	260 jboolean get_boolean(JNIEnv* env, jobject obj, const char* name) { return env->GetBooleanField(obj, getFieldID(env, obj, name, "Z")); }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	261 jint get_int(JNIEnv* env, jobject obj, const char* name) { return env->GetIntField(obj, getFieldID(env, obj, name, "I")); }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	262 jlong get_long(JNIEnv* env, jobject obj, const char* name) { return env->GetLongField(obj, getFieldID(env, obj, name, "J")); }
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	263 jobject get_object(JNIEnv* env, jobject obj, const char* name) { return env->GetObjectField(obj, getFieldID(env, obj, name, "Ljava/lang/Object;")); }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	264 jobject get_object(JNIEnv* env, jobject obj, const char* name, const char* sig) { return env->GetObjectField(obj, getFieldID(env, obj, name, sig)); }
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	265
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	266
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	267 BasicType basicTypes[] = { T_BOOLEAN, T_BYTE, T_SHORT, T_CHAR, T_INT, T_FLOAT, T_LONG, T_DOUBLE, T_OBJECT };
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	268 int basicTypeCount = sizeof(basicTypes) / sizeof(BasicType);
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	269
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	270 // public HotSpotVMConfig getConfiguration();
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	271 JNIEXPORT jobject JNICALL Java_com_sun_hotspot_c1x_VMEntries_getConfiguration(JNIEnv *env, jobject) {
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	272 tty->print_cr("Java_com_sun_hotspot_c1x_VMEntries_getConfiguration");
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	273 jclass klass = env->FindClass("com/sun/hotspot/c1x/HotSpotVMConfig");
1419 7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	274 assert(klass != NULL, "HotSpot vm config class not found");
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	275 jobject config = env->AllocObject(klass);
1419 7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	276 #ifdef _WIN64
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	277 set_boolean(env, config, "windowsOs", true);
1419 7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	278 #else
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	279 set_boolean(env, config, "windowsOs", false);
1419 7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	280 #endif
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	281 set_int(env, config, "codeEntryAlignment", CodeEntryAlignment);
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	282 set_int(env, config, "vmPageSize", os::vm_page_size());
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	283 set_int(env, config, "stackShadowPages", StackShadowPages);
6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	284 set_int(env, config, "hubOffset", oopDesc::klass_offset_in_bytes());
1422 3483ec571caf * using reflected objects instead of oops Lukas Stadler <lukas.stadler@oracle.com> parents: 1421 diff changeset	285 set_int(env, config, "arrayLengthOffset", arrayOopDesc::length_offset_in_bytes());
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	286 set_int(env, config, "threadTlabTopOffset", in_bytes(JavaThread::tlab_top_offset()));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	287 set_int(env, config, "threadTlabEndOffset", in_bytes(JavaThread::tlab_end_offset()));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	288 set_int(env, config, "instanceHeaderPrototypeOffset", Klass::prototype_header_offset_in_bytes() + klassOopDesc::klass_part_offset_in_bytes());
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	289
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	290 set_long(env, config, "instanceofStub", C1XObjects::addStub(Runtime1::entry_for(Runtime1::slow_subtype_check_id)));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	291 set_long(env, config, "debugStub", C1XObjects::addStub((address)warning));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	292 set_long(env, config, "resolveStaticCallStub", C1XObjects::addStub(SharedRuntime::get_resolve_static_call_stub()));
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	293 set_long(env, config, "newInstanceStub", C1XObjects::addStub(Runtime1::entry_for(Runtime1::fast_new_instance_id)));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	294
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	295 jintArray arrayOffsets = env->NewIntArray(basicTypeCount);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	296 for (int i=0; i<basicTypeCount; i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	297 jint offset = arrayOopDesc::base_offset_in_bytes(basicTypes[i]);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	298 env->SetIntArrayRegion(arrayOffsets, i, 1, &offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	299 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	300 set_int_array(env, config, "arrayOffsets", arrayOffsets);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	301 set_int(env, config, "arrayClassElementOffset", objArrayKlass::element_klass_offset_in_bytes() + sizeof(oopDesc));
1419 7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	302 return config;
7bf6a77b9c5a implement recent safepoint & exceptionobject ci changes, HotSpotVMConfig Lukas Stadler <lukas.stadler@oracle.com> parents: 1415 diff changeset	303 }
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	304
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	305 #define C1X_REGISTER_COUNT 32
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	306
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	307 VMReg get_hotspot_reg(jint c1x_reg) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	308 Register cpu_registers[] = { rax, rcx, rdx, rbx, rsp, rbp, rsi, rdi, r8, r9, r10, r11, r12, r13, r14, r15 };
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	309 XMMRegister xmm_registers[] = { xmm0, xmm1, xmm2, xmm3, xmm4, xmm5, xmm6, xmm7, xmm8, xmm9, xmm10, xmm11, xmm12, xmm13, xmm14, xmm15 };
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	310
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	311 if (c1x_reg < 16) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	312 return cpu_registers[c1x_reg]->as_VMReg();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	313 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	314 assert(c1x_reg < C1X_REGISTER_COUNT, "invalid register number");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	315 return xmm_registers[c1x_reg - 16]->as_VMReg();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	316 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	317
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	318 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	319
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	320 static OopMap* create_oop_map(jint frame_size, jint parameter_count, oop debug_info) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	321 OopMap* map = new OopMap(frame_size, parameter_count);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	322 arrayOop register_map = (arrayOop)CiDebugInfo::registerRefMap(debug_info);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	323 arrayOop frame_map = (arrayOop)CiDebugInfo::frameRefMap(debug_info);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	324
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	325 for (jint i=0; i<C1X_REGISTER_COUNT; i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	326 unsigned char byte = ((unsigned char*)register_map->base(T_BYTE))[i / 8];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	327 bool is_oop = (byte & (1 << (i % 8))) != 0;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	328 VMReg reg = get_hotspot_reg(i);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	329 if (is_oop) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	330 map->set_oop(reg);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	331 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	332 map->set_value(reg);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	333 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	334 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	335
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	336 for (jint i=0; i<frame_size; i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	337 unsigned char byte = ((unsigned char*)frame_map->base(T_BYTE))[i / 8];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	338 bool is_oop = (byte & (1 << (i % 8))) != 0;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	339 VMReg reg = VMRegImpl::stack2reg(i);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	340 if (is_oop) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	341 map->set_oop(reg);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	342 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	343 map->set_value(reg);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	344 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	345 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	346
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	347 // TODO parameters?
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	348 return map;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	349 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	350
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	351 static ScopeValue* get_hotspot_value(oop value) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	352 fatal("not implemented");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	353 if (value->is_a(CiRegisterValue::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	354 tty->print("register value");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	355 value->print();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	356 } else if (value->is_a(CiStackSlot::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	357 tty->print("stack value");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	358 value->print();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	359 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	360 ShouldNotReachHere();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	361 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	362 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	363
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	364
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	365 class CodeInstaller {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	366 private:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	367 ciEnv* _env;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	368
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	369 oop _citarget_method;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	370 oop _hotspot_method;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	371 oop _name;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	372 arrayOop _sites;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	373 CodeOffsets _offsets;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	374
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	375 arrayOop _code;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	376 jint _code_size;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	377 jint _frame_size;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	378 jint _parameter_count;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	379 jint _constants_size;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	380 jint _total_size;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	381
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	382 C1XCompiler::MarkId _next_call_type;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	383 address _invoke_mark_pc;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	384
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	385 CodeSection* _instructions;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	386 CodeSection* _constants;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	387
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	388 OopRecorder* _oop_recorder;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	389 DebugInformationRecorder* _debug_recorder;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	390 Dependencies* _dependencies;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	391
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	392 public:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	393
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	394 // constructor used to create a method
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	395 CodeInstaller(oop target_method) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	396 VM_ENTRY_MARK;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	397 _env = CURRENT_ENV;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	398
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	399 initialize_fields(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	400 assert(_hotspot_method != NULL && _name == NULL, "installMethod needs NON-NULL method and NULL name");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	401
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	402
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	403 // TODO: This is a hack.. Produce correct entries.
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	404 _offsets.set_value(CodeOffsets::Exceptions, 0);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	405 _offsets.set_value(CodeOffsets::Deopt, 0);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	406
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	407 methodOop method = C1XObjects::get<methodOop>(HotSpotMethod::vmId(_hotspot_method));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	408 ciMethod ciMethodObject = (ciMethod )_env->get_object(method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	409 _parameter_count = method->size_of_parameters();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	410
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	411 // (very) conservative estimate: each site needs a relocation
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	412 CodeBuffer buffer("temp c1x method", _total_size, _sites->length() * relocInfo::length_limit);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	413 initialize_buffer(buffer);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	414 ExceptionHandlerTable handler_table;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	415 ImplicitExceptionTable inc_table;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	416 {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	417 ThreadToNativeFromVM t((JavaThread*)THREAD);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	418 _env->register_method(ciMethodObject, -1, &_offsets, 0, &buffer, _frame_size, _debug_recorder->_oopmaps, &handler_table, &inc_table, NULL, _env->comp_level(), false, false);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	419 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	420 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	421
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	422 // constructor used to create a stub
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	423 CodeInstaller(oop target_method, jlong& id) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	424 VM_ENTRY_MARK;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	425 _env = CURRENT_ENV;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	426
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	427 initialize_fields(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	428 assert(_hotspot_method == NULL && _name != NULL, "installMethod needs NON-NULL name and NULL method");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	429
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	430 // (very) conservative estimate: each site needs a relocation
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	431 CodeBuffer buffer("temp c1x stub", _total_size, _sites->length() * relocInfo::length_limit);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	432 initialize_buffer(buffer);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	433
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	434 const char* cname = java_lang_String::as_utf8_string(_name);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	435 BufferBlob* blob = BufferBlob::create(strdup(cname), &buffer); // this is leaking strings... but only a limited number of stubs will be created
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	436 Disassembler::decode((CodeBlob*)blob);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	437 id = C1XObjects::addStub(blob->instructions_begin());
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	438 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	439
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	440 private:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	441 void initialize_fields(oop target_method) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	442 _citarget_method = HotSpotTargetMethod::targetMethod(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	443 _hotspot_method = HotSpotTargetMethod::method(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	444 _name = HotSpotTargetMethod::name(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	445 _sites = (arrayOop)HotSpotTargetMethod::sites(target_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	446
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	447 _code = (arrayOop)CiTargetMethod::targetCode(_citarget_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	448 _code_size = CiTargetMethod::targetCodeSize(_citarget_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	449 _frame_size = CiTargetMethod::frameSize(_citarget_method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	450
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	451 // (very) conservative estimate: each site needs a constant section entry
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	452 _constants_size = _sites->length() * BytesPerLong;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	453 _total_size = align_size_up(_code_size, HeapWordSize) + _constants_size;
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	454
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	455 _next_call_type = C1XCompiler::MARK_INVOKE_INVALID;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	456 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	457
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	458 void site_Safepoint(CodeBuffer& buffer, jint pc_offset, oop site) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	459
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	460 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	461
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	462 void record_frame(jint pc_offset, oop code_pos, oop frame) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	463 oop caller_pos = CiCodePos::caller(code_pos);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	464 if (caller_pos != NULL) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	465 oop caller_frame = CiDebugInfo_Frame::caller(frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	466 record_frame(pc_offset, caller_pos, caller_frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	467 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	468 assert(frame == NULL \|\| CiDebugInfo_Frame::caller(frame) == NULL, "unexpected layout - different nesting of Frame and CiCodePos");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	469 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	470
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	471 assert(frame == NULL \|\| code_pos == CiDebugInfo_Frame::codePos(frame), "unexpected CiCodePos layout");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	472
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	473 oop hotspot_method = CiCodePos::method(code_pos);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	474 methodOop method = C1XObjects::get<methodOop>(HotSpotMethod::vmId(hotspot_method));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	475 ciMethod cimethod = (ciMethod )_env->get_object(method);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	476 jint bci = CiCodePos::bci(code_pos);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	477
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	478 if (frame != NULL) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	479 jint local_count = CiDebugInfo_Frame::numLocals(frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	480 jint expression_count = CiDebugInfo_Frame::numStack(frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	481 jint monitor_count = CiDebugInfo_Frame::numLocks(frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	482 arrayOop values = (arrayOop)CiDebugInfo_Frame::values(frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	483
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	484 assert(local_count + expression_count + monitor_count == values->length(), "unexpected values length");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	485 assert(monitor_count == 0, "monitors not supported");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	486
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	487 GrowableArray<ScopeValue> locals = new GrowableArray<ScopeValue*>();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	488 GrowableArray<ScopeValue> expressions = new GrowableArray<ScopeValue*>();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	489 GrowableArray<MonitorValue> monitors = new GrowableArray<MonitorValue*>();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	490
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	491 for (jint i=0; i<values->length(); i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	492 ScopeValue* value = get_hotspot_value(((oop*)values->base(T_OBJECT))[i]);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	493
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	494 if (i < local_count) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	495 locals->append(value);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	496 } else if (i < local_count + expression_count) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	497 expressions->append(value);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	498 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	499 ShouldNotReachHere();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	500 // monitors->append(value);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	501 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	502 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	503 DebugToken* locals_token = _debug_recorder->create_scope_values(locals);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	504 DebugToken* expressions_token = _debug_recorder->create_scope_values(expressions);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	505 DebugToken* monitors_token = _debug_recorder->create_monitor_values(monitors);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	506
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	507 _debug_recorder->describe_scope(pc_offset, cimethod, bci, false, false, false, locals_token, expressions_token, monitors_token);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	508 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	509 _debug_recorder->describe_scope(pc_offset, cimethod, bci, false, false, false, NULL, NULL, NULL);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	510 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	511 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	512
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	513 void site_Call(CodeBuffer& buffer, jint pc_offset, oop site) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	514 oop runtime_call = CiTargetMethod_Call::runtimeCall(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	515 oop hotspot_method = CiTargetMethod_Call::method(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	516 oop symbol = CiTargetMethod_Call::symbol(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	517 oop global_stub = CiTargetMethod_Call::globalStubID(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	518
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	519 oop debug_info = CiTargetMethod_Call::debugInfo(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	520 arrayOop stack_map = (arrayOop)CiTargetMethod_Call::stackMap(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	521 arrayOop register_map = (arrayOop)CiTargetMethod_Call::registerMap(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	522
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	523 assert((runtime_call ? 1 : 0) + (hotspot_method ? 1 : 0) + (symbol ? 1 : 0) + (global_stub ? 1 : 0) == 1, "Call site needs exactly one type");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	524
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	525 address instruction = _instructions->start() + pc_offset;
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	526 address operand = Assembler::locate_operand(instruction, Assembler::call32_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	527 address next_instruction = Assembler::locate_next_instruction(instruction);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	528
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	529 if (runtime_call != NULL) {
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	530 if (runtime_call == CiRuntimeCall::Debug()) {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	531 tty->print_cr("CiRuntimeCall::Debug()");
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	532 } else {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	533 runtime_call->print();
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	534 }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	535 tty->print_cr("runtime_call");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	536 } else if (global_stub != NULL) {
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	537 assert(java_lang_boxing_object::is_instance(global_stub, T_LONG), "global_stub needs to be of type Long");
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	538
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	539 jlong stub_id = global_stub->long_field(java_lang_boxing_object::value_offset_in_bytes(T_LONG));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	540 address dest = C1XObjects::getStub(stub_id);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	541 long disp = dest - next_instruction;
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	542 assert(disp == (jint) disp, "disp doesn't fit in 32 bits");
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	543 ((jint)operand) = (jint)disp;
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	544
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	545 _instructions->relocate(instruction, runtime_call_Relocation::spec(), Assembler::call32_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	546 tty->print_cr("relocating (stub) %016x/%016x", instruction, operand);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	547 } else if (symbol != NULL) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	548 tty->print_cr("symbol");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	549 } else { // method != NULL
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	550 assert(hotspot_method->is_a(SystemDictionary::HotSpotMethod_klass()), "unexpected RiMethod subclass");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	551 methodOop method = C1XObjects::get<methodOop>(HotSpotMethod::vmId(hotspot_method));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	552
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	553 jint next_pc_offset = next_instruction - _instructions->start();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	554
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	555 assert(debug_info != NULL, "debug info expected");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	556 _debug_recorder->add_safepoint(next_pc_offset, create_oop_map(_frame_size, _parameter_count, debug_info));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	557 oop code_pos = CiDebugInfo::codePos(debug_info);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	558 oop frame = CiDebugInfo::frame(debug_info);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	559 record_frame(next_pc_offset, code_pos, frame);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	560
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	561 switch(_next_call_type) {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	562 case C1XCompiler::MARK_INVOKEVIRTUAL:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	563 case C1XCompiler::MARK_INVOKEINTERFACE: {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	564 assert(!method->is_static(), "cannot call static method with invokeinterface");
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	565
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	566 address dest = SharedRuntime::get_resolve_virtual_call_stub();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	567 long disp = dest - next_instruction;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	568 assert(disp == (jint) disp, "disp doesn't fit in 32 bits");
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	569 ((jint)operand) = (jint)disp;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	570
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	571 _instructions->relocate(instruction, virtual_call_Relocation::spec(_invoke_mark_pc), Assembler::call32_operand);
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	572 break;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	573 }
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	574 case C1XCompiler::MARK_INVOKESTATIC: {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	575 assert(method->is_static(), "cannot call non-static method with invokestatic");
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	576
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	577 address dest = SharedRuntime::get_resolve_static_call_stub();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	578 long disp = dest - next_instruction;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	579 assert(disp == (jint) disp, "disp doesn't fit in 32 bits");
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	580 ((jint)operand) = (jint)disp;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	581
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	582 _instructions->relocate(instruction, relocInfo::static_call_type, Assembler::call32_operand);
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	583 break;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	584 }
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	585 case C1XCompiler::MARK_INVOKESPECIAL: {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	586 assert(!method->is_static(), "cannot call static method with invokespecial");
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	587
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	588 address dest = SharedRuntime::get_resolve_opt_virtual_call_stub();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	589 long disp = dest - next_instruction;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	590 assert(disp == (jint) disp, "disp doesn't fit in 32 bits");
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	591 ((jint)operand) = (jint)disp;
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	592
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	593 _instructions->relocate(instruction, relocInfo::opt_virtual_call_type, Assembler::call32_operand);
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	594 break;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	595 }
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	596 case C1XCompiler::MARK_INVOKE_INVALID:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	597 default:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	598 ShouldNotReachHere();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	599 break;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	600 }
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	601 _next_call_type = C1XCompiler::MARK_INVOKE_INVALID;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	602 _debug_recorder->end_safepoint(pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	603 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	604 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	605
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	606 void site_DataPatch(CodeBuffer& buffer, jint pc_offset, oop site) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	607 oop constant = CiTargetMethod_DataPatch::constant(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	608 oop kind = CiConstant::kind(constant);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	609
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	610 address instruction = _instructions->start() + pc_offset;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	611
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	612 switch(CiKind::typeChar(kind)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	613 case 'z':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	614 case 'b':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	615 case 's':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	616 case 'c':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	617 case 'i':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	618 fatal("int-sized values not expected in DataPatch");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	619 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	620 case 'f':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	621 case 'l':
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	622 case 'd': {
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	623 address operand = Assembler::locate_operand(instruction, Assembler::disp32_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	624 address next_instruction = Assembler::locate_next_instruction(instruction);
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	625 // we don't care if this is a long/double/etc., the primitive field contains the right bits
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	626 address dest = _constants->end();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	627 (jlong)dest = CiConstant::primitive(constant);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	628 _constants->set_end(dest + BytesPerLong);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	629
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	630 long disp = dest - next_instruction;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	631 assert(disp == (jint) disp, "disp doesn't fit in 32 bits");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	632 ((jint)operand) = (jint)disp;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	633
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	634 _instructions->relocate(instruction, section_word_Relocation::spec((address)dest, CodeBuffer::SECT_CONSTS), Assembler::disp32_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	635 tty->print_cr("relocating (Float/Long/Double) at %016x/%016x", instruction, operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	636 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	637 }
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	638 case 'a': {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	639 address operand = Assembler::locate_operand(instruction, Assembler::imm_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	640 oop obj = CiConstant::object(constant);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	641
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	642 if (obj->is_a(HotSpotTypeResolved::klass())) {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	643 ((jobject)operand) = JNIHandles::make_local(C1XObjects::get<klassOop>(HotSpotTypeResolved::vmId(obj)));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	644 _instructions->relocate(instruction, oop_Relocation::spec_for_immediate(), Assembler::imm_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	645 tty->print_cr("relocating (HotSpotType) at %016x/%016x", instruction, operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	646 } else {
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	647 assert(java_lang_boxing_object::is_instance(obj, T_LONG), "unexpected DataPatch object type");
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	648 jlong id = obj->long_field(java_lang_boxing_object::value_offset_in_bytes(T_LONG));
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	649
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	650 assert((id & C1XObjects::TYPE_MASK) == C1XObjects::CONSTANT, "unexpected DataPatch type");
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	651
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	652 address operand = Assembler::locate_operand(instruction, Assembler::imm_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	653
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	654 if (id == C1XObjects::DUMMY_CONSTANT) {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	655 ((jobject)operand) = (jobject)Universe::non_oop_word();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	656 } else {
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	657 ((jobject)operand) = JNIHandles::make_local(C1XObjects::get<oop>(id));
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	658 }
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	659 _instructions->relocate(instruction, oop_Relocation::spec_for_immediate(), Assembler::imm_operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	660 tty->print_cr("relocating (oop constant) at %016x/%016x", instruction, operand);
98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	661 }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	662 break;
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	663 }
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	664 default:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	665 fatal("unexpected CiKind in DataPatch");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	666 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	667 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	668 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	669
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	670 void site_ExceptionHandler(CodeBuffer& buffer, jint pc_offset, oop site) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	671
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	672 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	673
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	674 void site_Mark(CodeBuffer& buffer, jint pc_offset, oop site) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	675 oop id_obj = CiTargetMethod_Mark::id(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	676 arrayOop references = (arrayOop)CiTargetMethod_Mark::references(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	677
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	678 if (id_obj != NULL) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	679 assert(java_lang_boxing_object::is_instance(id_obj, T_INT), "Integer id expected");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	680 jint id = id_obj->int_field(java_lang_boxing_object::value_offset_in_bytes(T_INT));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	681
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	682 address instruction = _instructions->start() + pc_offset;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	683
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	684 switch (id) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	685 case C1XCompiler::MARK_UNVERIFIED_ENTRY:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	686 _offsets.set_value(CodeOffsets::Entry, pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	687 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	688 case C1XCompiler::MARK_VERIFIED_ENTRY:
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	689 _offsets.set_value(CodeOffsets::Verified_Entry, pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	690 break;
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	691 case C1XCompiler::MARK_OSR_ENTRY:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	692 _offsets.set_value(CodeOffsets::OSR_Entry, pc_offset);
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	693 break;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	694 case C1XCompiler::MARK_STATIC_CALL_STUB: {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	695 assert(references->length() == 1, "static call stub needs one reference");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	696 oop ref = ((oop*)references->base(T_OBJECT))[0];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	697 address call_pc = _instructions->start() + CiTargetMethod_Site::pcOffset(ref);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	698 _instructions->relocate(instruction, static_stub_Relocation::spec(call_pc));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	699 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	700 }
1427 149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	701 case C1XCompiler::MARK_INVOKE_INVALID:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	702 case C1XCompiler::MARK_INVOKEINTERFACE:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	703 case C1XCompiler::MARK_INVOKESTATIC:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	704 case C1XCompiler::MARK_INVOKESPECIAL:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	705 case C1XCompiler::MARK_INVOKEVIRTUAL:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	706 _next_call_type = (C1XCompiler::MarkId)id;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	707 _invoke_mark_pc = instruction;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	708 break;
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	709 default:
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	710 ShouldNotReachHere();
149b1d2316de basic invokeinterface and invokevirtual support Lukas Stadler <lukas.stadler@oracle.com> parents: 1425 diff changeset	711 break;
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	712 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	713 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	714 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	715
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	716 // perform data and call relocation on the CodeBuffer
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	717 void initialize_buffer(CodeBuffer& buffer) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	718 _oop_recorder = new OopRecorder(_env->arena());
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	719 _env->set_oop_recorder(_oop_recorder);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	720 _debug_recorder = new DebugInformationRecorder(_env->oop_recorder());
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	721 _debug_recorder->set_oopmaps(new OopMapSet());
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	722 _dependencies = new Dependencies(_env);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	723
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	724 _env->set_oop_recorder(_oop_recorder);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	725 _env->set_debug_info(_debug_recorder);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	726 _env->set_dependencies(_dependencies);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	727 buffer.initialize_oop_recorder(_oop_recorder);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	728
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	729 buffer.initialize_consts_size(_constants_size);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	730 _instructions = buffer.insts();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	731 _constants = buffer.consts();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	732
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	733 // copy the code into the newly created CodeBuffer
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	734 memcpy(_instructions->start(), _code->base(T_BYTE), _code_size);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	735 _instructions->set_end(_instructions->start() + _code_size);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	736
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	737 oop* sites = (oop*)_sites->base(T_OBJECT);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	738 for (int i=0; i<_sites->length(); i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	739 oop site = sites[i];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	740 jint pc_offset = CiTargetMethod_Site::pcOffset(site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	741
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	742 if (site->is_a(CiTargetMethod_Safepoint::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	743 tty->print_cr("safepoint at %i", pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	744 site_Safepoint(buffer, pc_offset, site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	745 } else if (site->is_a(CiTargetMethod_Call::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	746 tty->print_cr("call at %i", pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	747 site_Call(buffer, pc_offset, site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	748 } else if (site->is_a(CiTargetMethod_DataPatch::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	749 tty->print_cr("datapatch at %i", pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	750 site_DataPatch(buffer, pc_offset, site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	751 } else if (site->is_a(CiTargetMethod_ExceptionHandler::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	752 tty->print_cr("exception handler at %i", pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	753 site_ExceptionHandler(buffer, pc_offset, site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	754 } else if (site->is_a(CiTargetMethod_Mark::klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	755 tty->print_cr("mark at %i", pc_offset);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	756 site_Mark(buffer, pc_offset, site);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	757 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	758 ShouldNotReachHere();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	759 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	760 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	761
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	762 /*
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	763 if (_relocation_count > 0) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	764 jint* relocation_offsets = (jint*)((arrayOop)JNIHandles::resolve(_relocation_offsets))->base(T_INT);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	765 oop* relocation_objects = (oop*)((arrayOop)JNIHandles::resolve(_relocation_data))->base(T_OBJECT);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	766
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	767 for (int i = 0; i < _relocation_count; i++) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	768 address inst = (address)instructions->start() + relocation_offsets[i];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	769 u_char inst_byte = *inst;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	770 oop obj = relocation_objects[i];
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	771 assert(obj != NULL, "NULL oop needn't be patched");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	772
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	773 if (obj->is_a(SystemDictionary::HotSpotProxy_klass())) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	774 jlong id = com_sun_hotspot_c1x_HotSpotProxy::get_id(obj);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	775 switch (id & C1XObjects::TYPE_MASK) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	776 case C1XObjects::CONSTANT: {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	777 address operand = Assembler::locate_operand(inst, Assembler::imm_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	778
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	779 ((jobject)operand) = JNIHandles::make_local(C1XObjects::get<oop>(id));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	780 instructions->relocate(inst, oop_Relocation::spec_for_immediate(), Assembler::imm_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	781 tty->print_cr("relocating (HotSpotType) %02x at %016x/%016x", inst_byte, inst, operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	782 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	783 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	784 case C1XObjects::STUB: {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	785 address operand = Assembler::locate_operand(inst, Assembler::call32_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	786
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	787 long dest = (long)C1XObjects::getStub(id);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	788 long disp = dest - (long)(operand + 4);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	789 assert(disp == (int) disp, "disp doesn't fit in 32 bits");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	790 ((int)operand) = (int)disp;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	791
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	792 instructions->relocate(inst, runtime_call_Relocation::spec(), Assembler::call32_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	793 tty->print_cr("relocating (Long) %02x at %016x/%016x", inst_byte, inst, operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	794 break;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	795 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	796 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	797 } else if (java_lang_boxing_object::is_instance(obj)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	798 address operand = Assembler::locate_operand(inst, Assembler::disp32_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	799 long dest = (long)constants->end();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	800 if (java_lang_boxing_object::is_instance(obj, T_LONG)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	801 // tty->print("relocate: %l\n", obj->long_field(java_lang_boxing_object::value_offset_in_bytes(T_LONG)));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	802 (jlong)constants->end() = obj->long_field(java_lang_boxing_object::value_offset_in_bytes(T_LONG));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	803 } else if (java_lang_boxing_object::is_instance(obj, T_DOUBLE)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	804 // tty->print("relocate: %f\n", obj->double_field(java_lang_boxing_object::value_offset_in_bytes(T_DOUBLE)));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	805 (jdouble)constants->end() = obj->double_field(java_lang_boxing_object::value_offset_in_bytes(T_DOUBLE));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	806 } else if (java_lang_boxing_object::is_instance(obj, T_FLOAT)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	807 // tty->print("relocate: %f\n", obj->double_field(java_lang_boxing_object::value_offset_in_bytes(T_DOUBLE)));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	808 (jfloat)constants->end() = obj->float_field(java_lang_boxing_object::value_offset_in_bytes(T_FLOAT));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	809 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	810 constants->set_end(constants->end() + 8);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	811
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	812 long disp = dest - (long)(operand + 4);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	813 assert(disp == (int) disp, "disp doesn't fit in 32 bits");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	814 ((int)operand) = (int)disp;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	815
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	816 instructions->relocate(inst, section_word_Relocation::spec((address)dest, CodeBuffer::SECT_CONSTS), Assembler::disp32_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	817 tty->print_cr("relocating (Long/Double) %02x at %016x/%016x", inst_byte, inst, operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	818 } else if (obj->is_a(_types.HotSpotTypeResolved)) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	819 address operand = Assembler::locate_operand(inst, Assembler::imm_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	820
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	821 ((jobject)operand) = JNIHandles::make_local(C1XObjects::get<klassOop>(obj->obj_field(_types.HotSpotTypeResolved_klassOop)));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	822 instructions->relocate(inst, oop_Relocation::spec_for_immediate(), Assembler::imm_operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	823 tty->print_cr("relocating (HotSpotType) %02x at %016x/%016x", inst_byte, inst, operand);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	824 } else {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	825 tty->print_cr("unknown relocation type");
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	826 obj->print();
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	827 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	828 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	829 }*/
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	830 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	831 };
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	832
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	833 // public void installMethod(HotSpotTargetMethod targetMethod);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	834 JNIEXPORT void JNICALL Java_com_sun_hotspot_c1x_VMEntries_installMethod(JNIEnv *jniEnv, jobject, jobject targetMethod) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	835 CodeInstaller installer(JNIHandles::resolve(targetMethod));
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	836 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	837
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	838 // public HotSpotProxy installStub(HotSpotTargetMethod targetMethod, String name);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	839 JNIEXPORT jlong JNICALL Java_com_sun_hotspot_c1x_VMEntries_installStub(JNIEnv *jniEnv, jobject, jobject targetMethod) {
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	840 jlong id;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	841 CodeInstaller installer(JNIHandles::resolve(targetMethod), id);
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	842 return id;
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	843 }
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	844
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	845
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	846
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	847
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	848 #define CC (char) /cast a literal from (const char)/
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	849 #define FN_PTR(f) CAST_FROM_FN_PTR(void*, &f)
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	850
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	851 #define PROXY "J"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	852 #define TYPE "Lcom/sun/cri/ri/RiType;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	853 #define METHOD "Lcom/sun/cri/ri/RiMethod;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	854 #define SIGNATURE "Lcom/sun/cri/ri/RiSignature;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	855 #define FIELD "Lcom/sun/cri/ri/RiField;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	856 #define CONSTANT_POOL "Lcom/sun/cri/ri/RiConstantPool;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	857 #define TARGET_METHOD "Lcom/sun/hotspot/c1x/HotSpotTargetMethod;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	858 #define CONFIG "Lcom/sun/hotspot/c1x/HotSpotVMConfig;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	859 #define HS_METHOD "Lcom/sun/hotspot/c1x/HotSpotMethod;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	860 #define CI_CONSTANT "Lcom/sun/cri/ci/CiConstant;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	861 #define STRING "Ljava/lang/String;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	862 #define OBJECT "Ljava/lang/Object;"
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	863
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	864 JNINativeMethod VMEntries_methods[] = {
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	865 {CC"RiMethod_code", CC"("PROXY")[B", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1code)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	866 {CC"RiMethod_maxStackSize", CC"("PROXY")I", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1maxStackSize)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	867 {CC"RiMethod_maxLocals", CC"("PROXY")I", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1maxLocals)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	868 {CC"RiMethod_holder", CC"("PROXY")"TYPE, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1holder)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	869 {CC"RiMethod_signature", CC"("PROXY")"STRING, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1signature)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	870 {CC"RiMethod_accessFlags", CC"("PROXY")I", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiMethod_1accessFlags)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	871 {CC"RiSignature_lookupType", CC"("STRING PROXY")"TYPE, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiSignature_1lookupType)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	872 {CC"RiConstantPool_lookupConstant", CC"("PROXY"I)"CI_CONSTANT, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupConstant)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	873 {CC"RiConstantPool_lookupMethod", CC"("PROXY"IB)"METHOD, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupMethod)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	874 {CC"RiConstantPool_lookupSignature", CC"("PROXY"I)"SIGNATURE, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupSignature)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	875 {CC"RiConstantPool_lookupType", CC"("PROXY"I)"TYPE, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupType)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	876 {CC"RiConstantPool_lookupField", CC"("PROXY"I)"FIELD, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiConstantPool_1lookupField)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	877 {CC"RiType_constantPool", CC"("PROXY")"CONSTANT_POOL, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiType_1constantPool)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	878 {CC"RiType_isArrayClass", CC"("PROXY")Z", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiType_1isArrayClass)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	879 {CC"RiType_isInstanceClass", CC"("PROXY")Z", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiType_1isInstanceClass)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	880 {CC"RiType_isInterface", CC"("PROXY")Z", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiType_1isInterface)},
1425 98fffb304868 tlab-allocated "new instance", invokespecial, support for static fields in COMPILER_CLASSES_DO Lukas Stadler <lukas.stadler@oracle.com> parents: 1423 diff changeset	881 {CC"RiType_instanceSize", CC"("PROXY")J", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_RiType_1instanceSize)},
1423 760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	882 {CC"getConfiguration", CC"()"CONFIG, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_getConfiguration)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	883 {CC"installMethod", CC"("TARGET_METHOD")V", FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_installMethod)},
760213a60e8b * rewrite of the code installation Lukas Stadler <lukas.stadler@oracle.com> parents: 1422 diff changeset	884 {CC"installStub", CC"("TARGET_METHOD")"PROXY, FN_PTR(Java_com_sun_hotspot_c1x_VMEntries_installStub)}
1412 9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	885 };
9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	886
9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	887 int VMEntries_methods_count() {
9195b99c841b Added first VM entry method. Thomas Wuerthinger <thomas.wuerthinger@gmail.com> parents: 1410 diff changeset	888 return sizeof(VMEntries_methods) / sizeof(JNINativeMethod);
1421 6223633ce7dd changed VMExit/VMEntries to non-static, added eclipse c++ project, CIR interface changes Lukas Stadler <lukas.stadler@oracle.com> parents: 1419 diff changeset	889 }

Mercurial > hg > truffle

annotate src/share/vm/c1x/c1x_VMEntries.cpp @ 1427:149b1d2316de