1/*
2 * Copyright (c) 1998, 2011, Oracle and/or its affiliates. All rights reserved.
3 * Copyright (c) 2014, Red Hat Inc. All rights reserved.
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License version 2 only, as
8 * published by the Free Software Foundation.
9 *
10 * This code is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
13 * version 2 for more details (a copy is included in the LICENSE file that
14 * accompanied this code).
15 *
16 * You should have received a copy of the GNU General Public License version
17 * 2 along with this work; if not, write to the Free Software Foundation,
18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
19 *
20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
21 * or visit www.oracle.com if you need additional information or have any
22 * questions.
23 *
24 */
25
26#include "precompiled.hpp"
27#include "asm/macroAssembler.hpp"
28#include "code/relocInfo.hpp"
29#include "nativeInst_aarch64.hpp"
30#include "oops/oop.inline.hpp"
31#include "runtime/safepoint.hpp"
32
33
34void Relocation::pd_set_data_value(address x, intptr_t o, bool verify_only) {
35  if (verify_only)
36    return;
37
38  int bytes;
39
40  switch(type()) {
41  case relocInfo::oop_type:
42    {
43      oop_Relocation *reloc = (oop_Relocation *)this;
44      if (NativeInstruction::is_ldr_literal_at(addr())) {
45        address constptr = (address)code()->oop_addr_at(reloc->oop_index());
46        bytes = MacroAssembler::pd_patch_instruction_size(addr(), constptr);
47        assert(*(address*)constptr == x, "error in oop relocation");
48      } else{
49        bytes = MacroAssembler::patch_oop(addr(), x);
50      }
51    }
52    break;
53  default:
54    bytes = MacroAssembler::pd_patch_instruction_size(addr(), x);
55    break;
56  }
57  ICache::invalidate_range(addr(), bytes);
58}
59
60address Relocation::pd_call_destination(address orig_addr) {
61  assert(is_call(), "should be a call here");
62  if (NativeCall::is_call_at(addr())) {
63    address trampoline = nativeCall_at(addr())->get_trampoline();
64    if (trampoline) {
65      return nativeCallTrampolineStub_at(trampoline)->destination();
66    }
67  }
68  if (orig_addr != NULL) {
69    address new_addr = MacroAssembler::pd_call_destination(orig_addr);
70    // If call is branch to self, don't try to relocate it, just leave it
71    // as branch to self. This happens during code generation if the code
72    // buffer expands. It will be relocated to the trampoline above once
73    // code generation is complete.
74    new_addr = (new_addr == orig_addr) ? addr() : new_addr;
75    return new_addr;
76  }
77  return MacroAssembler::pd_call_destination(addr());
78}
79
80
81void Relocation::pd_set_call_destination(address x) {
82  assert(is_call(), "should be a call here");
83  if (NativeCall::is_call_at(addr())) {
84    address trampoline = nativeCall_at(addr())->get_trampoline();
85    if (trampoline) {
86      nativeCall_at(addr())->set_destination_mt_safe(x, /* assert_lock */false);
87      return;
88    }
89  }
90  MacroAssembler::pd_patch_instruction(addr(), x);
91  assert(pd_call_destination(addr()) == x, "fail in reloc");
92}
93
94address* Relocation::pd_address_in_code() {
95  return (address*)(addr() + 8);
96}
97
98
99address Relocation::pd_get_address_from_code() {
100  return MacroAssembler::pd_call_destination(addr());
101}
102
103void poll_Relocation::fix_relocation_after_move(const CodeBuffer* src, CodeBuffer* dest) {
104  if (NativeInstruction::maybe_cpool_ref(addr())) {
105    address old_addr = old_addr_for(addr(), src, dest);
106    MacroAssembler::pd_patch_instruction(addr(), MacroAssembler::target_addr_for_insn(old_addr));
107  }
108}
109
110void metadata_Relocation::pd_fix_value(address x) {
111}
112