Fri, 07 May 2010 04:20:56 -0700
6950617: Zero/Shark interface updates
Summary: Zero needs a couple of new methods to allow Shark to access the new frame anchor field.
Reviewed-by: twisti
Contributed-by: Gary Benson <gbenson@redhat.com>
never@1445 | 1 | /* |
never@1445 | 2 | * Copyright 2003-2007 Sun Microsystems, Inc. All Rights Reserved. |
twisti@1860 | 3 | * Copyright 2007, 2008, 2009, 2010 Red Hat, Inc. |
never@1445 | 4 | * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
never@1445 | 5 | * |
never@1445 | 6 | * This code is free software; you can redistribute it and/or modify it |
never@1445 | 7 | * under the terms of the GNU General Public License version 2 only, as |
never@1445 | 8 | * published by the Free Software Foundation. |
never@1445 | 9 | * |
never@1445 | 10 | * This code is distributed in the hope that it will be useful, but WITHOUT |
never@1445 | 11 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
never@1445 | 12 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
never@1445 | 13 | * version 2 for more details (a copy is included in the LICENSE file that |
never@1445 | 14 | * accompanied this code). |
never@1445 | 15 | * |
never@1445 | 16 | * You should have received a copy of the GNU General Public License version |
never@1445 | 17 | * 2 along with this work; if not, write to the Free Software Foundation, |
never@1445 | 18 | * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
never@1445 | 19 | * |
never@1445 | 20 | * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara, |
never@1445 | 21 | * CA 95054 USA or visit www.sun.com if you need additional information or |
never@1445 | 22 | * have any questions. |
never@1445 | 23 | * |
never@1445 | 24 | */ |
never@1445 | 25 | |
never@1445 | 26 | #include "incls/_precompiled.incl" |
never@1445 | 27 | #include "incls/_frame_zero.cpp.incl" |
never@1445 | 28 | |
never@1445 | 29 | #ifdef ASSERT |
never@1445 | 30 | void RegisterMap::check_location_valid() { |
never@1445 | 31 | ShouldNotCallThis(); |
never@1445 | 32 | } |
never@1445 | 33 | #endif |
never@1445 | 34 | |
never@1445 | 35 | bool frame::is_interpreted_frame() const { |
never@1445 | 36 | return zeroframe()->is_interpreter_frame(); |
never@1445 | 37 | } |
never@1445 | 38 | |
twisti@1867 | 39 | bool frame::is_fake_stub_frame() const { |
twisti@1867 | 40 | return zeroframe()->is_fake_stub_frame(); |
twisti@1867 | 41 | } |
twisti@1867 | 42 | |
never@1445 | 43 | frame frame::sender_for_entry_frame(RegisterMap *map) const { |
twisti@1513 | 44 | assert(zeroframe()->is_entry_frame(), "wrong type of frame"); |
never@1445 | 45 | assert(map != NULL, "map must be set"); |
never@1445 | 46 | assert(!entry_frame_is_first(), "next Java fp must be non zero"); |
never@1445 | 47 | assert(entry_frame_call_wrapper()->anchor()->last_Java_sp() == sender_sp(), |
never@1445 | 48 | "sender should be next Java frame"); |
never@1445 | 49 | map->clear(); |
never@1445 | 50 | assert(map->include_argument_oops(), "should be set by clear"); |
twisti@1860 | 51 | return frame(zeroframe()->next(), sender_sp()); |
never@1445 | 52 | } |
never@1445 | 53 | |
twisti@1513 | 54 | frame frame::sender_for_nonentry_frame(RegisterMap *map) const { |
twisti@1513 | 55 | assert(zeroframe()->is_interpreter_frame() || |
twisti@1513 | 56 | zeroframe()->is_shark_frame() || |
twisti@1513 | 57 | zeroframe()->is_fake_stub_frame(), "wrong type of frame"); |
twisti@1860 | 58 | return frame(zeroframe()->next(), sender_sp()); |
never@1445 | 59 | } |
never@1445 | 60 | |
never@1445 | 61 | frame frame::sender(RegisterMap* map) const { |
never@1445 | 62 | // Default is not to follow arguments; the various |
never@1445 | 63 | // sender_for_xxx methods update this accordingly. |
never@1445 | 64 | map->set_include_argument_oops(false); |
never@1445 | 65 | |
never@1445 | 66 | if (is_entry_frame()) |
never@1445 | 67 | return sender_for_entry_frame(map); |
twisti@1513 | 68 | else |
twisti@1513 | 69 | return sender_for_nonentry_frame(map); |
never@1445 | 70 | } |
never@1445 | 71 | |
never@1445 | 72 | #ifdef CC_INTERP |
never@1445 | 73 | BasicObjectLock* frame::interpreter_frame_monitor_begin() const { |
never@1445 | 74 | return get_interpreterState()->monitor_base(); |
never@1445 | 75 | } |
never@1445 | 76 | |
never@1445 | 77 | BasicObjectLock* frame::interpreter_frame_monitor_end() const { |
never@1445 | 78 | return (BasicObjectLock*) get_interpreterState()->stack_base(); |
never@1445 | 79 | } |
never@1445 | 80 | #endif // CC_INTERP |
never@1445 | 81 | |
never@1445 | 82 | void frame::patch_pc(Thread* thread, address pc) { |
never@1445 | 83 | // We borrow this call to set the thread pointer in the interpreter |
never@1445 | 84 | // state; the hook to set up deoptimized frames isn't supplied it. |
never@1445 | 85 | assert(pc == NULL, "should be"); |
never@1445 | 86 | get_interpreterState()->set_thread((JavaThread *) thread); |
never@1445 | 87 | } |
never@1445 | 88 | |
never@1445 | 89 | bool frame::safe_for_sender(JavaThread *thread) { |
never@1445 | 90 | ShouldNotCallThis(); |
never@1445 | 91 | } |
never@1445 | 92 | |
never@1445 | 93 | void frame::pd_gc_epilog() { |
never@1445 | 94 | } |
never@1445 | 95 | |
never@1445 | 96 | bool frame::is_interpreted_frame_valid(JavaThread *thread) const { |
never@1445 | 97 | ShouldNotCallThis(); |
never@1445 | 98 | } |
never@1445 | 99 | |
never@1445 | 100 | BasicType frame::interpreter_frame_result(oop* oop_result, |
never@1445 | 101 | jvalue* value_result) { |
never@1445 | 102 | assert(is_interpreted_frame(), "interpreted frame expected"); |
never@1445 | 103 | methodOop method = interpreter_frame_method(); |
never@1445 | 104 | BasicType type = method->result_type(); |
never@1445 | 105 | intptr_t* tos_addr = (intptr_t *) interpreter_frame_tos_address(); |
never@1445 | 106 | oop obj; |
never@1445 | 107 | |
never@1445 | 108 | switch (type) { |
never@1445 | 109 | case T_VOID: |
never@1445 | 110 | break; |
never@1445 | 111 | case T_BOOLEAN: |
never@1445 | 112 | value_result->z = *(jboolean *) tos_addr; |
never@1445 | 113 | break; |
never@1445 | 114 | case T_BYTE: |
never@1445 | 115 | value_result->b = *(jbyte *) tos_addr; |
never@1445 | 116 | break; |
never@1445 | 117 | case T_CHAR: |
never@1445 | 118 | value_result->c = *(jchar *) tos_addr; |
never@1445 | 119 | break; |
never@1445 | 120 | case T_SHORT: |
never@1445 | 121 | value_result->s = *(jshort *) tos_addr; |
never@1445 | 122 | break; |
never@1445 | 123 | case T_INT: |
never@1445 | 124 | value_result->i = *(jint *) tos_addr; |
never@1445 | 125 | break; |
never@1445 | 126 | case T_LONG: |
never@1445 | 127 | value_result->j = *(jlong *) tos_addr; |
never@1445 | 128 | break; |
never@1445 | 129 | case T_FLOAT: |
never@1445 | 130 | value_result->f = *(jfloat *) tos_addr; |
never@1445 | 131 | break; |
never@1445 | 132 | case T_DOUBLE: |
never@1445 | 133 | value_result->d = *(jdouble *) tos_addr; |
never@1445 | 134 | break; |
never@1445 | 135 | |
never@1445 | 136 | case T_OBJECT: |
never@1445 | 137 | case T_ARRAY: |
never@1445 | 138 | if (method->is_native()) { |
never@1445 | 139 | obj = get_interpreterState()->oop_temp(); |
never@1445 | 140 | } |
never@1445 | 141 | else { |
never@1445 | 142 | oop* obj_p = (oop *) tos_addr; |
never@1445 | 143 | obj = (obj_p == NULL) ? (oop) NULL : *obj_p; |
never@1445 | 144 | } |
never@1445 | 145 | assert(obj == NULL || Universe::heap()->is_in(obj), "sanity check"); |
never@1445 | 146 | *oop_result = obj; |
never@1445 | 147 | break; |
never@1445 | 148 | |
never@1445 | 149 | default: |
never@1445 | 150 | ShouldNotReachHere(); |
never@1445 | 151 | } |
never@1445 | 152 | |
never@1445 | 153 | return type; |
never@1445 | 154 | } |
never@1445 | 155 | |
never@1445 | 156 | int frame::frame_size(RegisterMap* map) const { |
never@1445 | 157 | #ifdef PRODUCT |
never@1445 | 158 | ShouldNotCallThis(); |
never@1445 | 159 | #else |
never@1445 | 160 | return 0; // make javaVFrame::print_value work |
never@1445 | 161 | #endif // PRODUCT |
never@1445 | 162 | } |
never@1445 | 163 | |
never@1445 | 164 | intptr_t* frame::interpreter_frame_tos_at(jint offset) const { |
never@1445 | 165 | int index = (Interpreter::expr_offset_in_bytes(offset) / wordSize); |
never@1445 | 166 | return &interpreter_frame_tos_address()[index]; |
never@1445 | 167 | } |
never@1445 | 168 | |
never@1445 | 169 | void frame::zero_print_on_error(int frame_index, |
never@1445 | 170 | outputStream* st, |
never@1445 | 171 | char* buf, |
never@1445 | 172 | int buflen) const { |
never@1445 | 173 | // Divide the buffer between the field and the value |
never@1445 | 174 | buflen >>= 1; |
never@1445 | 175 | char *fieldbuf = buf; |
never@1445 | 176 | char *valuebuf = buf + buflen; |
never@1445 | 177 | |
never@1445 | 178 | // Print each word of the frame |
twisti@1860 | 179 | for (intptr_t *addr = sp(); addr <= fp(); addr++) { |
twisti@1860 | 180 | int offset = fp() - addr; |
never@1445 | 181 | |
never@1445 | 182 | // Fill in default values, then try and improve them |
never@1445 | 183 | snprintf(fieldbuf, buflen, "word[%d]", offset); |
never@1445 | 184 | snprintf(valuebuf, buflen, PTR_FORMAT, *addr); |
never@1445 | 185 | zeroframe()->identify_word(frame_index, offset, fieldbuf, valuebuf, buflen); |
never@1445 | 186 | fieldbuf[buflen - 1] = '\0'; |
never@1445 | 187 | valuebuf[buflen - 1] = '\0'; |
never@1445 | 188 | |
never@1445 | 189 | // Print the result |
never@1445 | 190 | st->print_cr(" " PTR_FORMAT ": %-21s = %s", addr, fieldbuf, valuebuf); |
never@1445 | 191 | } |
never@1445 | 192 | } |
never@1445 | 193 | |
never@1445 | 194 | void ZeroFrame::identify_word(int frame_index, |
never@1445 | 195 | int offset, |
never@1445 | 196 | char* fieldbuf, |
never@1445 | 197 | char* valuebuf, |
never@1445 | 198 | int buflen) const { |
never@1445 | 199 | switch (offset) { |
never@1445 | 200 | case next_frame_off: |
never@1445 | 201 | strncpy(fieldbuf, "next_frame", buflen); |
never@1445 | 202 | break; |
never@1445 | 203 | |
never@1445 | 204 | case frame_type_off: |
never@1445 | 205 | strncpy(fieldbuf, "frame_type", buflen); |
never@1445 | 206 | if (is_entry_frame()) |
never@1445 | 207 | strncpy(valuebuf, "ENTRY_FRAME", buflen); |
never@1445 | 208 | else if (is_interpreter_frame()) |
never@1445 | 209 | strncpy(valuebuf, "INTERPRETER_FRAME", buflen); |
never@1445 | 210 | else if (is_shark_frame()) |
never@1445 | 211 | strncpy(valuebuf, "SHARK_FRAME", buflen); |
never@1445 | 212 | else if (is_fake_stub_frame()) |
never@1445 | 213 | strncpy(valuebuf, "FAKE_STUB_FRAME", buflen); |
never@1445 | 214 | break; |
never@1445 | 215 | |
never@1445 | 216 | default: |
never@1445 | 217 | if (is_entry_frame()) { |
never@1445 | 218 | as_entry_frame()->identify_word( |
never@1445 | 219 | frame_index, offset, fieldbuf, valuebuf, buflen); |
never@1445 | 220 | } |
never@1445 | 221 | else if (is_interpreter_frame()) { |
never@1445 | 222 | as_interpreter_frame()->identify_word( |
never@1445 | 223 | frame_index, offset, fieldbuf, valuebuf, buflen); |
never@1445 | 224 | } |
never@1445 | 225 | else if (is_shark_frame()) { |
never@1445 | 226 | as_shark_frame()->identify_word( |
never@1445 | 227 | frame_index, offset, fieldbuf, valuebuf, buflen); |
never@1445 | 228 | } |
never@1445 | 229 | else if (is_fake_stub_frame()) { |
never@1445 | 230 | as_fake_stub_frame()->identify_word( |
never@1445 | 231 | frame_index, offset, fieldbuf, valuebuf, buflen); |
never@1445 | 232 | } |
never@1445 | 233 | } |
never@1445 | 234 | } |
never@1445 | 235 | |
never@1445 | 236 | void EntryFrame::identify_word(int frame_index, |
never@1445 | 237 | int offset, |
never@1445 | 238 | char* fieldbuf, |
never@1445 | 239 | char* valuebuf, |
never@1445 | 240 | int buflen) const { |
never@1445 | 241 | switch (offset) { |
never@1445 | 242 | case call_wrapper_off: |
never@1445 | 243 | strncpy(fieldbuf, "call_wrapper", buflen); |
never@1445 | 244 | break; |
never@1445 | 245 | |
never@1445 | 246 | default: |
never@1445 | 247 | snprintf(fieldbuf, buflen, "local[%d]", offset - 3); |
never@1445 | 248 | } |
never@1445 | 249 | } |
never@1445 | 250 | |
never@1445 | 251 | void InterpreterFrame::identify_word(int frame_index, |
never@1445 | 252 | int offset, |
never@1445 | 253 | char* fieldbuf, |
never@1445 | 254 | char* valuebuf, |
never@1445 | 255 | int buflen) const { |
never@1445 | 256 | interpreterState istate = interpreter_state(); |
never@1445 | 257 | bool is_valid = istate->self_link() == istate; |
never@1445 | 258 | intptr_t *addr = addr_of_word(offset); |
never@1445 | 259 | |
never@1445 | 260 | // Fixed part |
never@1445 | 261 | if (addr >= (intptr_t *) istate) { |
never@1445 | 262 | const char *field = istate->name_of_field_at_address((address) addr); |
never@1445 | 263 | if (field) { |
never@1445 | 264 | if (is_valid && !strcmp(field, "_method")) { |
never@1445 | 265 | istate->method()->name_and_sig_as_C_string(valuebuf, buflen); |
never@1445 | 266 | } |
never@1445 | 267 | else if (is_valid && !strcmp(field, "_bcp") && istate->bcp()) { |
never@1445 | 268 | snprintf(valuebuf, buflen, PTR_FORMAT " (bci %d)", |
never@1445 | 269 | (intptr_t) istate->bcp(), |
never@1445 | 270 | istate->method()->bci_from(istate->bcp())); |
never@1445 | 271 | } |
never@1445 | 272 | snprintf(fieldbuf, buflen, "%sistate->%s", |
never@1445 | 273 | field[strlen(field) - 1] == ')' ? "(": "", field); |
never@1445 | 274 | } |
never@1445 | 275 | else if (addr == (intptr_t *) istate) { |
never@1445 | 276 | strncpy(fieldbuf, "(vtable for istate)", buflen); |
never@1445 | 277 | } |
never@1445 | 278 | return; |
never@1445 | 279 | } |
never@1445 | 280 | |
never@1445 | 281 | // Variable part |
never@1445 | 282 | if (!is_valid) |
never@1445 | 283 | return; |
never@1445 | 284 | |
never@1445 | 285 | // JNI stuff |
never@1445 | 286 | if (istate->method()->is_native() && addr < istate->stack_base()) { |
never@1445 | 287 | address hA = istate->method()->signature_handler(); |
never@1445 | 288 | if (hA != NULL) { |
never@1445 | 289 | if (hA != (address) InterpreterRuntime::slow_signature_handler) { |
never@1445 | 290 | InterpreterRuntime::SignatureHandler *handler = |
never@1445 | 291 | InterpreterRuntime::SignatureHandler::from_handlerAddr(hA); |
never@1445 | 292 | |
never@1445 | 293 | intptr_t *params = istate->stack_base() - handler->argument_count(); |
never@1445 | 294 | if (addr >= params) { |
never@1445 | 295 | int param = addr - params; |
never@1445 | 296 | const char *desc = ""; |
never@1445 | 297 | if (param == 0) |
never@1445 | 298 | desc = " (JNIEnv)"; |
never@1445 | 299 | else if (param == 1) { |
never@1445 | 300 | if (istate->method()->is_static()) |
never@1445 | 301 | desc = " (mirror)"; |
never@1445 | 302 | else |
never@1445 | 303 | desc = " (this)"; |
never@1445 | 304 | } |
never@1445 | 305 | snprintf(fieldbuf, buflen, "parameter[%d]%s", param, desc); |
never@1445 | 306 | return; |
never@1445 | 307 | } |
never@1445 | 308 | |
never@1445 | 309 | for (int i = 0; i < handler->argument_count(); i++) { |
never@1445 | 310 | if (params[i] == (intptr_t) addr) { |
never@1445 | 311 | snprintf(fieldbuf, buflen, "unboxed parameter[%d]", i); |
never@1445 | 312 | return; |
never@1445 | 313 | } |
never@1445 | 314 | } |
never@1445 | 315 | } |
never@1445 | 316 | } |
never@1445 | 317 | return; |
never@1445 | 318 | } |
never@1445 | 319 | |
never@1445 | 320 | // Monitors and stack |
never@1445 | 321 | identify_vp_word(frame_index, addr, |
never@1445 | 322 | (intptr_t *) istate->monitor_base(), |
never@1445 | 323 | istate->stack_base(), |
never@1445 | 324 | fieldbuf, buflen); |
never@1445 | 325 | } |
never@1445 | 326 | |
never@1445 | 327 | void SharkFrame::identify_word(int frame_index, |
never@1445 | 328 | int offset, |
never@1445 | 329 | char* fieldbuf, |
never@1445 | 330 | char* valuebuf, |
never@1445 | 331 | int buflen) const { |
never@1445 | 332 | // Fixed part |
never@1445 | 333 | switch (offset) { |
never@1445 | 334 | case pc_off: |
never@1445 | 335 | strncpy(fieldbuf, "pc", buflen); |
never@1445 | 336 | if (method()->is_oop()) { |
never@1445 | 337 | nmethod *code = method()->code(); |
never@1445 | 338 | if (code && code->pc_desc_at(pc())) { |
never@1445 | 339 | SimpleScopeDesc ssd(code, pc()); |
never@1445 | 340 | snprintf(valuebuf, buflen, PTR_FORMAT " (bci %d)", |
never@1445 | 341 | (intptr_t) pc(), ssd.bci()); |
never@1445 | 342 | } |
never@1445 | 343 | } |
never@1445 | 344 | return; |
never@1445 | 345 | |
never@1445 | 346 | case unextended_sp_off: |
never@1445 | 347 | strncpy(fieldbuf, "unextended_sp", buflen); |
never@1445 | 348 | return; |
never@1445 | 349 | |
never@1445 | 350 | case method_off: |
never@1445 | 351 | strncpy(fieldbuf, "method", buflen); |
never@1445 | 352 | if (method()->is_oop()) { |
never@1445 | 353 | method()->name_and_sig_as_C_string(valuebuf, buflen); |
never@1445 | 354 | } |
never@1445 | 355 | return; |
never@1445 | 356 | |
never@1445 | 357 | case oop_tmp_off: |
never@1445 | 358 | strncpy(fieldbuf, "oop_tmp", buflen); |
never@1445 | 359 | return; |
never@1445 | 360 | } |
never@1445 | 361 | |
never@1445 | 362 | // Variable part |
never@1445 | 363 | if (method()->is_oop()) { |
never@1445 | 364 | identify_vp_word(frame_index, addr_of_word(offset), |
never@1445 | 365 | addr_of_word(header_words + 1), |
never@1445 | 366 | unextended_sp() + method()->max_stack(), |
never@1445 | 367 | fieldbuf, buflen); |
never@1445 | 368 | } |
never@1445 | 369 | } |
never@1445 | 370 | |
never@1445 | 371 | void ZeroFrame::identify_vp_word(int frame_index, |
never@1445 | 372 | intptr_t* addr, |
never@1445 | 373 | intptr_t* monitor_base, |
never@1445 | 374 | intptr_t* stack_base, |
never@1445 | 375 | char* fieldbuf, |
never@1445 | 376 | int buflen) const { |
never@1445 | 377 | // Monitors |
never@1445 | 378 | if (addr >= stack_base && addr < monitor_base) { |
never@1445 | 379 | int monitor_size = frame::interpreter_frame_monitor_size(); |
never@1445 | 380 | int last_index = (monitor_base - stack_base) / monitor_size - 1; |
never@1445 | 381 | int index = last_index - (addr - stack_base) / monitor_size; |
never@1445 | 382 | intptr_t monitor = (intptr_t) ( |
never@1445 | 383 | (BasicObjectLock *) monitor_base - 1 - index); |
never@1445 | 384 | intptr_t offset = (intptr_t) addr - monitor; |
never@1445 | 385 | |
never@1445 | 386 | if (offset == BasicObjectLock::obj_offset_in_bytes()) |
never@1445 | 387 | snprintf(fieldbuf, buflen, "monitor[%d]->_obj", index); |
never@1445 | 388 | else if (offset == BasicObjectLock::lock_offset_in_bytes()) |
never@1445 | 389 | snprintf(fieldbuf, buflen, "monitor[%d]->_lock", index); |
never@1445 | 390 | |
never@1445 | 391 | return; |
never@1445 | 392 | } |
never@1445 | 393 | |
never@1445 | 394 | // Expression stack |
never@1445 | 395 | if (addr < stack_base) { |
never@1445 | 396 | snprintf(fieldbuf, buflen, "%s[%d]", |
never@1445 | 397 | frame_index == 0 ? "stack_word" : "local", |
never@1445 | 398 | (int) (stack_base - addr - 1)); |
never@1445 | 399 | return; |
never@1445 | 400 | } |
never@1445 | 401 | } |