graal-compiler: src/cpu/ppc/vm/relocInfo

annotate src/cpu/ppc/vm/relocInfo_ppc.cpp @ 14408:ec28f9c041ff

8019972: PPC64 (part 9): platform files for interpreter only VM. Summary: With this change the HotSpot core build works on Linux/PPC64. The VM succesfully executes simple test programs. Reviewed-by: kvn

author	goetz
date	Fri, 02 Aug 2013 16:46:45 +0200
parents
children	7687c56b6693

rev	line source
14408 ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	1 /*
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	2 * Copyright (c) 2000, 2013, Oracle and/or its affiliates. All rights reserved.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	3 * Copyright 2012, 2013 SAP AG. All rights reserved.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	5 *
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	6 * This code is free software; you can redistribute it and/or modify it
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	7 * under the terms of the GNU General Public License version 2 only, as
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	8 * published by the Free Software Foundation.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	9 *
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	10 * This code is distributed in the hope that it will be useful, but WITHOUT
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	13 * version 2 for more details (a copy is included in the LICENSE file that
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	14 * accompanied this code).
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	15 *
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	16 * You should have received a copy of the GNU General Public License version
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	17 * 2 along with this work; if not, write to the Free Software Foundation,
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	19 *
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	21 * or visit www.oracle.com if you need additional information or have any
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	22 * questions.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	23 *
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	24 */
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	25
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	26 #include "precompiled.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	27 #include "asm/assembler.inline.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	28 #include "assembler_ppc.inline.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	29 #include "code/relocInfo.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	30 #include "nativeInst_ppc.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	31 #include "oops/oop.inline.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	32 #include "runtime/safepoint.hpp"
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	33
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	34 void Relocation::pd_set_data_value(address x, intptr_t o, bool verify_only) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	35 bool copy_back_to_oop_pool = true; // TODO: PPC port
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	36 // The following comment is from the declaration of DataRelocation:
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	37 //
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	38 // "The "o" (displacement) argument is relevant only to split relocations
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	39 // on RISC machines. In some CPUs (SPARC), the set-hi and set-lo ins'ns
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	40 // can encode more than 32 bits between them. This allows compilers to
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	41 // share set-hi instructions between addresses that differ by a small
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	42 // offset (e.g., different static variables in the same class).
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	43 // On such machines, the "x" argument to set_value on all set-lo
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	44 // instructions must be the same as the "x" argument for the
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	45 // corresponding set-hi instructions. The "o" arguments for the
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	46 // set-hi instructions are ignored, and must not affect the high-half
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	47 // immediate constant. The "o" arguments for the set-lo instructions are
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	48 // added into the low-half immediate constant, and must not overflow it."
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	49 //
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	50 // Currently we don't support splitting of relocations, so o must be
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	51 // zero:
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	52 assert(o == 0, "tried to split relocations");
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	53
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	54 if (!verify_only) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	55 if (format() != 1) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	56 nativeMovConstReg_at(addr())->set_data_plain(((intptr_t)x), code());
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	57 } else {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	58 assert(type() == relocInfo::oop_type \|\| type() == relocInfo::metadata_type,
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	59 "how to encode else?");
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	60 narrowOop no = (type() == relocInfo::oop_type) ?
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	61 oopDesc::encode_heap_oop((oop)x) : oopDesc::encode_klass((Klass*)x);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	62 nativeMovConstReg_at(addr())->set_narrow_oop(no, code());
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	63 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	64 } else {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	65 assert((address) (nativeMovConstReg_at(addr())->data()) == x, "data must match");
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	66 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	67 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	68
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	69 address Relocation::pd_call_destination(address orig_addr) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	70 intptr_t adj = 0;
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	71 address inst_loc = addr();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	72
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	73 if (orig_addr != NULL) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	74 // We just moved this call instruction from orig_addr to addr().
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	75 // This means its target will appear to have grown by addr() - orig_addr.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	76 adj = -(inst_loc - orig_addr);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	77 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	78 if (NativeFarCall::is_far_call_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	79 NativeFarCall* call = nativeFarCall_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	80 return call->destination() + (intptr_t)(call->is_pcrelative() ? adj : 0);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	81 } else if (NativeJump::is_jump_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	82 NativeJump* jump = nativeJump_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	83 return jump->jump_destination() + (intptr_t)(jump->is_pcrelative() ? adj : 0);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	84 } else if (NativeConditionalFarBranch::is_conditional_far_branch_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	85 NativeConditionalFarBranch* branch = NativeConditionalFarBranch_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	86 return branch->branch_destination();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	87 } else {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	88 // There are two instructions at the beginning of a stub, therefore we
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	89 // load at orig_addr + 8.
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	90 orig_addr = nativeCall_at(inst_loc)->get_trampoline();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	91 if (orig_addr == NULL) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	92 return (address) -1;
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	93 } else {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	94 return (address) nativeMovConstReg_at(orig_addr + 8)->data();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	95 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	96 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	97 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	98
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	99 void Relocation::pd_set_call_destination(address x) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	100 address inst_loc = addr();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	101
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	102 if (NativeFarCall::is_far_call_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	103 NativeFarCall* call = nativeFarCall_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	104 call->set_destination(x);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	105 } else if (NativeJump::is_jump_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	106 NativeJump* jump= nativeJump_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	107 jump->set_jump_destination(x);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	108 } else if (NativeConditionalFarBranch::is_conditional_far_branch_at(inst_loc)) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	109 NativeConditionalFarBranch* branch = NativeConditionalFarBranch_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	110 branch->set_branch_destination(x);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	111 } else {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	112 NativeCall* call = nativeCall_at(inst_loc);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	113 call->set_destination_mt_safe(x, false);
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	114 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	115 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	116
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	117 address* Relocation::pd_address_in_code() {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	118 ShouldNotReachHere();
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	119 return 0;
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	120 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	121
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	122 address Relocation::pd_get_address_from_code() {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	123 return (address)(nativeMovConstReg_at(addr())->data());
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	124 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	125
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	126 void poll_Relocation::fix_relocation_after_move(const CodeBuffer* src, CodeBuffer* dest) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	127 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	128
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	129 void poll_return_Relocation::fix_relocation_after_move(const CodeBuffer* src, CodeBuffer* dest) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	130 }
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	131
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	132 void metadata_Relocation::pd_fix_value(address x) {
ec28f9c041ff 8019972: PPC64 (part 9): platform files for interpreter only VM. goetz parents: diff changeset	133 }

Mercurial > hg > graal-compiler

annotate src/cpu/ppc/vm/relocInfo_ppc.cpp @ 14408:ec28f9c041ff