1 /*

     2  * Copyright (c) 1997, 2015, Oracle and/or its affiliates. All rights reserved.

     3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

     4  *

     5  * This code is free software; you can redistribute it and/or modify it

     6  * under the terms of the GNU General Public License version 2 only, as

     7  * published by the Free Software Foundation.

     8  *

     9  * This code is distributed in the hope that it will be useful, but WITHOUT

    10  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

    11  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

    12  * version 2 for more details (a copy is included in the LICENSE file that

    13  * accompanied this code).

    14  *

    15  * You should have received a copy of the GNU General Public License version

    16  * 2 along with this work; if not, write to the Free Software Foundation,

    17  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

    18  *

    19  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

    20  * or visit www.oracle.com if you need additional information or have any

    21  * questions.

    22  *

    23  */

    24 

    25 #include "precompiled.hpp"

    26 #include "asm/macroAssembler.hpp"

    27 #include "asm/macroAssembler.inline.hpp"

    28 #include "code/codeCache.hpp"

    29 #include "compiler/disassembler.hpp"

    30 #include "oops/oop.inline.hpp"

    31 #include "prims/forte.hpp"

    32 #include "runtime/stubCodeGenerator.hpp"

    33 

    34 

    35 // Implementation of StubCodeDesc

    36 

    37 StubCodeDesc* StubCodeDesc::_list = NULL;

    38 bool          StubCodeDesc::_frozen = false;

    39 

    40 StubCodeDesc* StubCodeDesc::desc_for(address pc) {

    41   StubCodeDesc* p = _list;

    42   while (p != NULL && !p->contains(pc)) {

    43     p = p->_next;

    44   }

    45   return p;

    46 }

    47 

    48 const char* StubCodeDesc::name_for(address pc) {

    49   StubCodeDesc* p = desc_for(pc);

    50   return p == NULL ? NULL : p->name();

    51 }

    52 

    53 

    54 void StubCodeDesc::freeze() {

    55   assert(!_frozen, "repeated freeze operation");

    56   _frozen = true;

    57 }

    58 

    59 void StubCodeDesc::print_on(outputStream* st) const {

    60   st->print("%s", group());

    61   st->print("::");

    62   st->print("%s", name());

    63   st->print(" [" INTPTR_FORMAT ", " INTPTR_FORMAT "[ (%d bytes)", p2i(begin()), p2i(end()), size_in_bytes());

    64 }

    65 

    66 // Implementation of StubCodeGenerator

    67 

    68 StubCodeGenerator::StubCodeGenerator(CodeBuffer* code, bool print_code) {

    69   _masm = new MacroAssembler(code );

    70   _print_code = PrintStubCode || print_code;

    71 }

    72 

    73 StubCodeGenerator::~StubCodeGenerator() {

    74   if (_print_code) {

    75     CodeBuffer* cbuf = _masm->code();

    76     CodeBlob*   blob = CodeCache::find_blob_unsafe(cbuf->insts()->start());

    77     if (blob != NULL) {

    78       blob->set_strings(cbuf->strings());

    79     }

    80   }

    81 }

    82 

    83 void StubCodeGenerator::stub_prolog(StubCodeDesc* cdesc) {

    84   // default implementation - do nothing

    85 }

    86 

    87 void StubCodeGenerator::stub_epilog(StubCodeDesc* cdesc) {

    88   if (_print_code) {

    89     cdesc->print();

    90     tty->cr();

    91     Disassembler::decode(cdesc->begin(), cdesc->end());

    92     tty->cr();

    93   }

    94 }

    95 

    96 

    97 // Implementation of CodeMark

    98 

    99 StubCodeMark::StubCodeMark(StubCodeGenerator* cgen, const char* group, const char* name) {

   100   _cgen  = cgen;

   101   _cdesc = new StubCodeDesc(group, name, _cgen->assembler()->pc());

   102   _cgen->stub_prolog(_cdesc);

   103   // define the stub's beginning (= entry point) to be after the prolog:

   104   _cdesc->set_begin(_cgen->assembler()->pc());

   105 }

   106 

   107 StubCodeMark::~StubCodeMark() {

   108   _cgen->assembler()->flush();

   109   _cdesc->set_end(_cgen->assembler()->pc());

   110   assert(StubCodeDesc::_list == _cdesc, "expected order on list");

   111   _cgen->stub_epilog(_cdesc);

   112   Forte::register_stub(_cdesc->name(), _cdesc->begin(), _cdesc->end());

   113 

   114   if (JvmtiExport::should_post_dynamic_code_generated()) {

   115     JvmtiExport::post_dynamic_code_generated(_cdesc->name(), _cdesc->begin(), _cdesc->end());

   116   }

   117 }