| /* |
| * Copyright (c) 2002, 2014, Oracle and/or its affiliates. All rights reserved. |
| * Copyright 2012, 2014 SAP AG. All rights reserved. |
| * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
| * |
| * This code is free software; you can redistribute it and/or modify it |
| * under the terms of the GNU General Public License version 2 only, as |
| * published by the Free Software Foundation. |
| * |
| * This code is distributed in the hope that it will be useful, but WITHOUT |
| * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
| * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
| * version 2 for more details (a copy is included in the LICENSE file that |
| * accompanied this code). |
| * |
| * You should have received a copy of the GNU General Public License version |
| * 2 along with this work; if not, write to the Free Software Foundation, |
| * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
| * |
| * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
| * or visit www.oracle.com if you need additional information or have any |
| * questions. |
| * |
| */ |
| |
| // This file defines a set of macros which are used by the c++-interpreter |
| // for updating a method's methodData object. |
| |
| |
| #ifndef SHARE_VM_INTERPRETER_BYTECODEINTERPRETERPROFILING_HPP |
| #define SHARE_VM_INTERPRETER_BYTECODEINTERPRETERPROFILING_HPP |
| |
| |
| // Global settings ///////////////////////////////////////////////////////////// |
| |
| |
| // Enables profiling support. |
| #if defined(COMPILER2) |
| #define CC_INTERP_PROFILE |
| #endif |
| |
| // Enables assertions for profiling code (also works in product-builds). |
| // #define CC_INTERP_PROFILE_WITH_ASSERTIONS |
| |
| |
| #ifdef CC_INTERP |
| |
| // Empty dummy implementations if profiling code is switched off. ////////////// |
| |
| #ifndef CC_INTERP_PROFILE |
| |
| #define SET_MDX(mdx) |
| |
| #define BI_PROFILE_GET_OR_CREATE_METHOD_DATA(exception_handler) \ |
| if (ProfileInterpreter) { \ |
| ShouldNotReachHere(); \ |
| } |
| |
| #define BI_PROFILE_ALIGN_TO_CURRENT_BCI() |
| |
| #define BI_PROFILE_UPDATE_JUMP() |
| #define BI_PROFILE_UPDATE_BRANCH(is_taken) |
| #define BI_PROFILE_UPDATE_RET(bci) |
| #define BI_PROFILE_SUBTYPECHECK_FAILED(receiver) |
| #define BI_PROFILE_UPDATE_CHECKCAST(null_seen, receiver) |
| #define BI_PROFILE_UPDATE_INSTANCEOF(null_seen, receiver) |
| #define BI_PROFILE_UPDATE_CALL() |
| #define BI_PROFILE_UPDATE_FINALCALL() |
| #define BI_PROFILE_UPDATE_VIRTUALCALL(receiver) |
| #define BI_PROFILE_UPDATE_SWITCH(switch_index) |
| |
| |
| #else |
| |
| |
| // Non-dummy implementations /////////////////////////////////////////////////// |
| |
| // Accessors for the current method data pointer 'mdx'. |
| #define MDX() (istate->mdx()) |
| #define SET_MDX(mdx) \ |
| if (TraceProfileInterpreter) { \ |
| /* Let it look like TraceBytecodes' format. */ \ |
| tty->print_cr("[%d] %4d " \ |
| "mdx " PTR_FORMAT "(%d)" \ |
| " " \ |
| " \t-> " PTR_FORMAT "(%d)", \ |
| (int) THREAD->osthread()->thread_id(), \ |
| BCI(), \ |
| p2i(MDX()), \ |
| (MDX() == NULL \ |
| ? 0 \ |
| : istate->method()->method_data()->dp_to_di((address)MDX())), \ |
| p2i(mdx), \ |
| istate->method()->method_data()->dp_to_di((address)mdx) \ |
| ); \ |
| }; \ |
| istate->set_mdx(mdx); |
| |
| |
| // Dumps the profiling method data for the current method. |
| #ifdef PRODUCT |
| #define BI_PROFILE_PRINT_METHOD_DATA() |
| #else // PRODUCT |
| #define BI_PROFILE_PRINT_METHOD_DATA() \ |
| { \ |
| ttyLocker ttyl; \ |
| MethodData *md = istate->method()->method_data(); \ |
| tty->cr(); \ |
| tty->print("method data at mdx " PTR_FORMAT "(0) for", \ |
| p2i(md->data_layout_at(md->bci_to_di(0)))); \ |
| istate->method()->print_short_name(tty); \ |
| tty->cr(); \ |
| if (md != NULL) { \ |
| md->print_data_on(tty); \ |
| address mdx = (address) MDX(); \ |
| if (mdx != NULL) { \ |
| tty->print_cr("current mdx " PTR_FORMAT "(%d)", \ |
| p2i(mdx), \ |
| istate->method()->method_data()->dp_to_di(mdx)); \ |
| } \ |
| } else { \ |
| tty->print_cr("no method data"); \ |
| } \ |
| } |
| #endif // PRODUCT |
| |
| |
| // Gets or creates the profiling method data and initializes mdx. |
| #define BI_PROFILE_GET_OR_CREATE_METHOD_DATA(exception_handler) \ |
| if (ProfileInterpreter && MDX() == NULL) { \ |
| /* Mdx is not yet initialized for this activation. */ \ |
| MethodData *md = istate->method()->method_data(); \ |
| if (md == NULL) { \ |
| MethodCounters* mcs; \ |
| GET_METHOD_COUNTERS(mcs); \ |
| /* The profiling method data doesn't exist for this method, */ \ |
| /* create it if the counters have overflowed. */ \ |
| if (mcs->invocation_counter() \ |
| ->reached_ProfileLimit(mcs->backedge_counter())) { \ |
| /* Must use CALL_VM, because an async exception may be pending. */ \ |
| CALL_VM((InterpreterRuntime::profile_method(THREAD)), \ |
| exception_handler); \ |
| md = istate->method()->method_data(); \ |
| if (md != NULL) { \ |
| if (TraceProfileInterpreter) { \ |
| BI_PROFILE_PRINT_METHOD_DATA(); \ |
| } \ |
| Method *m = istate->method(); \ |
| int bci = m->bci_from(pc); \ |
| jint di = md->bci_to_di(bci); \ |
| SET_MDX(md->data_layout_at(di)); \ |
| } \ |
| } \ |
| } else { \ |
| /* The profiling method data exists, align the method data pointer */ \ |
| /* mdx to the current bytecode index. */ \ |
| if (TraceProfileInterpreter) { \ |
| BI_PROFILE_PRINT_METHOD_DATA(); \ |
| } \ |
| SET_MDX(md->data_layout_at(md->bci_to_di(BCI()))); \ |
| } \ |
| } |
| |
| |
| // Asserts that the current method data pointer mdx corresponds |
| // to the current bytecode. |
| #if defined(CC_INTERP_PROFILE_WITH_ASSERTIONS) |
| #define BI_PROFILE_CHECK_MDX() \ |
| { \ |
| MethodData *md = istate->method()->method_data(); \ |
| address mdx = (address) MDX(); \ |
| address mdx2 = (address) md->data_layout_at(md->bci_to_di(BCI())); \ |
| guarantee(md != NULL, "1"); \ |
| guarantee(mdx != NULL, "2"); \ |
| guarantee(mdx2 != NULL, "3"); \ |
| if (mdx != mdx2) { \ |
| BI_PROFILE_PRINT_METHOD_DATA(); \ |
| fatal3("invalid mdx at bci %d:" \ |
| " was " PTR_FORMAT \ |
| " but expected " PTR_FORMAT, \ |
| BCI(), \ |
| mdx, \ |
| mdx2); \ |
| } \ |
| } |
| #else |
| #define BI_PROFILE_CHECK_MDX() |
| #endif |
| |
| |
| // Aligns the method data pointer mdx to the current bytecode index. |
| #define BI_PROFILE_ALIGN_TO_CURRENT_BCI() \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| MethodData *md = istate->method()->method_data(); \ |
| SET_MDX(md->data_layout_at(md->bci_to_di(BCI()))); \ |
| } |
| |
| |
| // Updates profiling data for a jump. |
| #define BI_PROFILE_UPDATE_JUMP() \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| JumpData::increment_taken_count_no_overflow(MDX()); \ |
| /* Remember last branch taken count. */ \ |
| mdo_last_branch_taken_count = JumpData::taken_count(MDX()); \ |
| SET_MDX(JumpData::advance_taken(MDX())); \ |
| } |
| |
| |
| // Updates profiling data for a taken/not taken branch. |
| #define BI_PROFILE_UPDATE_BRANCH(is_taken) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| if (is_taken) { \ |
| BranchData::increment_taken_count_no_overflow(MDX()); \ |
| /* Remember last branch taken count. */ \ |
| mdo_last_branch_taken_count = BranchData::taken_count(MDX()); \ |
| SET_MDX(BranchData::advance_taken(MDX())); \ |
| } else { \ |
| BranchData::increment_not_taken_count_no_overflow(MDX()); \ |
| SET_MDX(BranchData::advance_not_taken(MDX())); \ |
| } \ |
| } |
| |
| |
| // Updates profiling data for a ret with given bci. |
| #define BI_PROFILE_UPDATE_RET(bci) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| MethodData *md = istate->method()->method_data(); \ |
| /* FIXME: there is more to do here than increment and advance(mdx)! */ \ |
| CounterData::increment_count_no_overflow(MDX()); \ |
| SET_MDX(RetData::advance(md, bci)); \ |
| } |
| |
| // Decrement counter at checkcast if the subtype check fails (as template |
| // interpreter does!). |
| #define BI_PROFILE_SUBTYPECHECK_FAILED(receiver) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| ReceiverTypeData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
| ReceiverTypeData::decrement_count(MDX()); \ |
| } |
| |
| // Updates profiling data for a checkcast (was a null seen? which receiver?). |
| #define BI_PROFILE_UPDATE_CHECKCAST(null_seen, receiver) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| if (null_seen) { \ |
| ReceiverTypeData::set_null_seen(MDX()); \ |
| } else { \ |
| /* Template interpreter doesn't increment count. */ \ |
| /* ReceiverTypeData::increment_count_no_overflow(MDX()); */ \ |
| ReceiverTypeData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
| } \ |
| SET_MDX(ReceiverTypeData::advance(MDX())); \ |
| } |
| |
| |
| // Updates profiling data for an instanceof (was a null seen? which receiver?). |
| #define BI_PROFILE_UPDATE_INSTANCEOF(null_seen, receiver) \ |
| BI_PROFILE_UPDATE_CHECKCAST(null_seen, receiver) |
| |
| |
| // Updates profiling data for a call. |
| #define BI_PROFILE_UPDATE_CALL() \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| CounterData::increment_count_no_overflow(MDX()); \ |
| SET_MDX(CounterData::advance(MDX())); \ |
| } |
| |
| |
| // Updates profiling data for a final call. |
| #define BI_PROFILE_UPDATE_FINALCALL() \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| VirtualCallData::increment_count_no_overflow(MDX()); \ |
| SET_MDX(VirtualCallData::advance(MDX())); \ |
| } |
| |
| |
| // Updates profiling data for a virtual call with given receiver Klass. |
| #define BI_PROFILE_UPDATE_VIRTUALCALL(receiver) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| VirtualCallData::increment_receiver_count_no_overflow(MDX(), receiver); \ |
| SET_MDX(VirtualCallData::advance(MDX())); \ |
| } |
| |
| |
| // Updates profiling data for a switch (tabelswitch or lookupswitch) with |
| // given taken index (-1 means default case was taken). |
| #define BI_PROFILE_UPDATE_SWITCH(switch_index) \ |
| if (ProfileInterpreter && MDX() != NULL) { \ |
| BI_PROFILE_CHECK_MDX(); \ |
| MultiBranchData::increment_count_no_overflow(MDX(), switch_index); \ |
| SET_MDX(MultiBranchData::advance(MDX(), switch_index)); \ |
| } |
| |
| |
| // The end ///////////////////////////////////////////////////////////////////// |
| |
| #endif // CC_INTERP_PROFILE |
| |
| #endif // CC_INTERP |
| |
| #endif // SHARE_VM_INTERPRETER_BYTECODECINTERPRETERPROFILING_HPP |
