1 /*
  2  * Copyright (c) 2000, 2019, Oracle and/or its affiliates. All rights reserved.
  3  * Copyright (c) 2012, 2015 SAP SE. 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 #ifndef CPU_PPC_FRAME_PPC_INLINE_HPP
 27 #define CPU_PPC_FRAME_PPC_INLINE_HPP
 28 
 29 #include "code/codeCache.hpp"
 30 #include "code/vmreg.inline.hpp"
 31 #include "utilities/align.hpp"
 32 
 33 // Inline functions for ppc64 frames:
 34 
 35 // Find codeblob and set deopt_state.
 36 inline void frame::find_codeblob_and_set_pc_and_deopt_state(address pc) {
 37   assert(pc != NULL, "precondition: must have PC");
 38 
 39   _cb = CodeCache::find_blob(pc);
 40   _pc = pc;   // Must be set for get_deopt_original_pc()
 41 
 42   _fp = (intptr_t*)own_abi()->callers_sp;
 43 
 44   address original_pc = CompiledMethod::get_deopt_original_pc(this);
 45   if (original_pc != NULL) {
 46     _pc = original_pc;
 47     _deopt_state = is_deoptimized;
 48   } else {
 49     _deopt_state = not_deoptimized;
 50   }
 51 
 52   assert(((uint64_t)_sp & 0xf) == 0, "SP must be 16-byte aligned");
 53 }
 54 
 55 // Constructors
 56 
 57 // Initialize all fields, _unextended_sp will be adjusted in find_codeblob_and_set_pc_and_deopt_state.
 58 inline frame::frame() : _sp(NULL), _pc(NULL), _cb(NULL),  _deopt_state(unknown), _unextended_sp(NULL), _fp(NULL) {}
 59 
 60 inline frame::frame(intptr_t* sp) : _sp(sp), _unextended_sp(sp) {
 61   find_codeblob_and_set_pc_and_deopt_state((address)own_abi()->lr); // also sets _fp and adjusts _unextended_sp
 62 }
 63 
 64 inline frame::frame(intptr_t* sp, address pc) : _sp(sp), _unextended_sp(sp) {
 65   find_codeblob_and_set_pc_and_deopt_state(pc); // also sets _fp and adjusts _unextended_sp
 66 }
 67 
 68 inline frame::frame(intptr_t* sp, address pc, intptr_t* unextended_sp) : _sp(sp), _unextended_sp(unextended_sp) {
 69   find_codeblob_and_set_pc_and_deopt_state(pc); // also sets _fp and adjusts _unextended_sp
 70 }
 71 
 72 // Accessors
 73 
 74 // Return unique id for this frame. The id must have a value where we
 75 // can distinguish identity and younger/older relationship. NULL
 76 // represents an invalid (incomparable) frame.
 77 inline intptr_t* frame::id(void) const {
 78   // Use _fp. _sp or _unextended_sp wouldn't be correct due to resizing.
 79   return _fp;
 80 }
 81 
 82 // Return true if this frame is older (less recent activation) than
 83 // the frame represented by id.
 84 inline bool frame::is_older(intptr_t* id) const {
 85    assert(this->id() != NULL && id != NULL, "NULL frame id");
 86    // Stack grows towards smaller addresses on ppc64.
 87    return this->id() > id;
 88 }
 89 
 90 inline int frame::frame_size(RegisterMap* map) const {
 91   // Stack grows towards smaller addresses on PPC64: sender is at a higher address.
 92   return sender_sp() - sp();
 93 }
 94 
 95 // Return the frame's stack pointer before it has been extended by a
 96 // c2i adapter. This is needed by deoptimization for ignoring c2i adapter
 97 // frames.
 98 inline intptr_t* frame::unextended_sp() const {
 99   return _unextended_sp;
100 }
101 
102 // All frames have this field.
103 inline address frame::sender_pc() const {
104   return (address)callers_abi()->lr;
105 }
106 inline address* frame::sender_pc_addr() const {
107   return (address*)&(callers_abi()->lr);
108 }
109 
110 // All frames have this field.
111 inline intptr_t* frame::sender_sp() const {
112   return (intptr_t*)callers_abi();
113 }
114 
115 // All frames have this field.
116 inline intptr_t* frame::link() const {
117   return (intptr_t*)callers_abi()->callers_sp;
118 }
119 
120 inline intptr_t* frame::real_fp() const {
121   return fp();
122 }
123 
124 // Template Interpreter frame value accessors.
125 
126 inline frame::ijava_state* frame::get_ijava_state() const {
127   return (ijava_state*) ((uintptr_t)fp() - ijava_state_size);
128 }
129 
130 inline intptr_t** frame::interpreter_frame_locals_addr() const {
131   return (intptr_t**) &(get_ijava_state()->locals);
132 }
133 
134 inline intptr_t* frame::interpreter_frame_bcp_addr() const {
135   return (intptr_t*) &(get_ijava_state()->bcp);
136 }
137 
138 inline intptr_t* frame::interpreter_frame_mdp_addr() const {
139   return (intptr_t*) &(get_ijava_state()->mdx);
140 }
141 
142 // Pointer beyond the "oldest/deepest" BasicObjectLock on stack.
143 inline BasicObjectLock* frame::interpreter_frame_monitor_end() const {
144   return (BasicObjectLock*) get_ijava_state()->monitors;
145 }
146 
147 inline BasicObjectLock* frame::interpreter_frame_monitor_begin() const {
148   return (BasicObjectLock*) get_ijava_state();
149 }
150 
151 // Return register stack slot addr at which currently interpreted method is found.
152 inline Method** frame::interpreter_frame_method_addr() const {
153   return (Method**) &(get_ijava_state()->method);
154 }
155 
156 inline oop* frame::interpreter_frame_mirror_addr() const {
157   return (oop*) &(get_ijava_state()->mirror);
158 }
159 
160 inline ConstantPoolCache** frame::interpreter_frame_cache_addr() const {
161   return (ConstantPoolCache**) &(get_ijava_state()->cpoolCache);
162 }
163 
164 inline oop* frame::interpreter_frame_temp_oop_addr() const {
165   return (oop*) &(get_ijava_state()->oop_tmp);
166 }
167 
168 inline intptr_t* frame::interpreter_frame_esp() const {
169   return (intptr_t*) get_ijava_state()->esp;
170 }
171 
172 // Convenient setters
173 inline void frame::interpreter_frame_set_monitor_end(BasicObjectLock* end)    { get_ijava_state()->monitors = (intptr_t) end;}
174 inline void frame::interpreter_frame_set_cpcache(ConstantPoolCache* cp)       { *interpreter_frame_cache_addr() = cp; }
175 inline void frame::interpreter_frame_set_esp(intptr_t* esp)                   { get_ijava_state()->esp = (intptr_t) esp; }
176 inline void frame::interpreter_frame_set_top_frame_sp(intptr_t* top_frame_sp) { get_ijava_state()->top_frame_sp = (intptr_t) top_frame_sp; }
177 inline void frame::interpreter_frame_set_sender_sp(intptr_t* sender_sp)       { get_ijava_state()->sender_sp = (intptr_t) sender_sp; }
178 
179 inline intptr_t* frame::interpreter_frame_expression_stack() const {
180   return (intptr_t*)interpreter_frame_monitor_end() - 1;
181 }
182 
183 // top of expression stack
184 inline intptr_t* frame::interpreter_frame_tos_address() const {
185   return ((intptr_t*) get_ijava_state()->esp) + Interpreter::stackElementWords;
186 }
187 
188 inline intptr_t* frame::interpreter_frame_tos_at(jint offset) const {
189   return &interpreter_frame_tos_address()[offset];
190 }
191 
192 inline int frame::interpreter_frame_monitor_size() {
193   // Number of stack slots for a monitor.
194   return align_up(BasicObjectLock::size(),  // number of stack slots
195                   WordsPerLong);            // number of stack slots for a Java long
196 }
197 
198 inline int frame::interpreter_frame_monitor_size_in_bytes() {
199   return frame::interpreter_frame_monitor_size() * wordSize;
200 }
201 
202 // entry frames
203 
204 inline intptr_t* frame::entry_frame_argument_at(int offset) const {
205   // Since an entry frame always calls the interpreter first, the
206   // parameters are on the stack and relative to known register in the
207   // entry frame.
208   intptr_t* tos = (intptr_t*)get_entry_frame_locals()->arguments_tos_address;
209   return &tos[offset + 1]; // prepushed tos
210 }
211 
212 inline JavaCallWrapper** frame::entry_frame_call_wrapper_addr() const {
213   return (JavaCallWrapper**)&get_entry_frame_locals()->call_wrapper_address;
214 }
215 
216 inline oop frame::saved_oop_result(RegisterMap* map) const {
217   return *((oop*)map->location(R3->as_VMReg()));
218 }
219 
220 inline void frame::set_saved_oop_result(RegisterMap* map, oop obj) {
221   *((oop*)map->location(R3->as_VMReg())) = obj;
222 }
223 
224 #endif // CPU_PPC_FRAME_PPC_INLINE_HPP