1 /*
   2  * Copyright (c) 2016, 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 #include "precompiled.hpp"
  25 #include "classfile/stringTable.hpp"
  26 #include "classfile/symbolTable.hpp"
  27 #include "jvmci/compilerRuntime.hpp"
  28 #include "runtime/interfaceSupport.hpp"
  29 #include "runtime/compilationPolicy.hpp"
  30 #include "runtime/deoptimization.hpp"
  31 
  32 // Resolve and allocate String
  33 JRT_BLOCK_ENTRY(void, CompilerRuntime::resolve_string_by_symbol(JavaThread *thread, void* string_result, const char* name))
  34   JRT_BLOCK
  35     oop str = *(oop*)string_result; // Is it resolved already?
  36     if (str == NULL) { // Do resolution
  37       // First 2 bytes of name contains length (number of bytes).
  38       int len = build_u2_from((address)name);
  39       name += 2;
  40       TempNewSymbol sym = SymbolTable::new_symbol(name, len, CHECK);
  41       str = StringTable::intern(sym, CHECK);
  42       assert(java_lang_String::is_instance(str), "must be string");
  43       *(oop*)string_result = str; // Store result
  44     }
  45     assert(str != NULL, "Should be allocated!");
  46     thread->set_vm_result(str);
  47   JRT_BLOCK_END
  48 JRT_END
  49 
  50 
  51 
  52 Klass* CompilerRuntime::resolve_klass_helper(JavaThread *thread, const char* name, int len, TRAPS) {
  53   ResourceMark rm(THREAD);
  54   // last java frame on stack (which includes native call frames)
  55   RegisterMap cbl_map(thread, false);
  56   // Skip stub
  57   frame caller_frame = thread->last_frame().sender(&cbl_map);
  58   CodeBlob* caller_cb = caller_frame.cb();
  59   guarantee(caller_cb != NULL && caller_cb->is_compiled(), "must be called from compiled method");
  60   CompiledMethod* caller_nm = caller_cb->as_compiled_method_or_null();
  61   methodHandle caller(THREAD, caller_nm->method());
  62 
  63   // Use class loader of aot method.
  64   Handle loader(THREAD, caller->method_holder()->class_loader());
  65   Handle protection_domain(THREAD, caller->method_holder()->protection_domain());
  66 
  67   // Ignore wrapping L and ;
  68   if (name[0] == 'L') {
  69     assert(len > 2, "small name %s", name);
  70     name++;
  71     len -= 2;
  72   }
  73   TempNewSymbol sym = SymbolTable::new_symbol(name, len, CHECK_NULL);
  74   if (sym == NULL) {
  75     return NULL;
  76   }
  77   Klass* k = SystemDictionary::resolve_or_fail(sym, loader, protection_domain, true, CHECK_NULL);
  78 
  79   return k;
  80 }
  81 
  82 // Resolve Klass
  83 JRT_BLOCK_ENTRY(Klass*, CompilerRuntime::resolve_klass_by_symbol(JavaThread *thread, Klass** klass_result, const char* name))
  84   Klass* k = NULL;
  85   JRT_BLOCK
  86     k = *klass_result; // Is it resolved already?
  87     if (k == NULL) { // Do resolution
  88       // First 2 bytes of name contains length (number of bytes).
  89       int len = build_u2_from((address)name);
  90       name += 2;
  91       k = CompilerRuntime::resolve_klass_helper(thread, name, len, CHECK_NULL);
  92       *klass_result = k; // Store result
  93     }
  94   JRT_BLOCK_END
  95   assert(k != NULL, " Should be loaded!");
  96   return k;
  97 JRT_END
  98 
  99 
 100 Method* CompilerRuntime::resolve_method_helper(Klass* klass, const char* method_name, int method_name_len,
 101                                                                const char* signature_name, int signature_name_len) {
 102   Method* m = NULL;
 103   TempNewSymbol name_symbol = SymbolTable::probe(method_name, method_name_len);
 104   TempNewSymbol signature_symbol = SymbolTable::probe(signature_name, signature_name_len);
 105   if (name_symbol != NULL && signature_symbol != NULL) {
 106     if (name_symbol == vmSymbols::object_initializer_name() ||
 107         name_symbol == vmSymbols::class_initializer_name()) {
 108       // Never search superclasses for constructors
 109       if (klass->is_instance_klass()) {
 110         m = InstanceKlass::cast(klass)->find_method(name_symbol, signature_symbol);
 111       }
 112     } else {
 113       m = klass->lookup_method(name_symbol, signature_symbol);
 114       if (m == NULL && klass->is_instance_klass()) {
 115         m = InstanceKlass::cast(klass)->lookup_method_in_ordered_interfaces(name_symbol, signature_symbol);
 116       }
 117     }
 118   }
 119   return m;
 120 }
 121 
 122 JRT_BLOCK_ENTRY(MethodCounters*, CompilerRuntime::resolve_method_by_symbol_and_load_counters(JavaThread *thread, MethodCounters** counters_result, Klass* klass, const char* data))
 123   MethodCounters* c = *counters_result; // Is it resolved already?
 124   JRT_BLOCK
 125      if (c == NULL) { // Do resolution
 126        // Get method name and its length
 127        int method_name_len = build_u2_from((address)data);
 128        data += sizeof(u2);
 129        const char* method_name = data;
 130        data += method_name_len;
 131 
 132        // Get signature and its length
 133        int signature_name_len = build_u2_from((address)data);
 134        data += sizeof(u2);
 135        const char* signature_name = data;
 136 
 137        assert(klass != NULL, "Klass parameter must not be null");
 138        Method* m = resolve_method_helper(klass, method_name, method_name_len, signature_name, signature_name_len);
 139        assert(m != NULL, "Method must resolve successfully");
 140 
 141        // Create method counters immediately to avoid check at runtime.
 142        c = m->get_method_counters(thread);
 143        if (c == NULL) {
 144          THROW_MSG_NULL(vmSymbols::java_lang_OutOfMemoryError(), "Cannot allocate method counters");
 145        }
 146 
 147        *counters_result = c;
 148      }
 149   JRT_BLOCK_END
 150   return c;
 151 JRT_END
 152 
 153 // Resolve and initialize Klass
 154 JRT_BLOCK_ENTRY(Klass*, CompilerRuntime::initialize_klass_by_symbol(JavaThread *thread, Klass** klass_result, const char* name))
 155   Klass* k = NULL;
 156   JRT_BLOCK
 157     k = klass_result[0]; // Is it initialized already?
 158     if (k == NULL) { // Do initialized
 159       k = klass_result[1]; // Is it resolved already?
 160       if (k == NULL) { // Do resolution
 161         // First 2 bytes of name contains length (number of bytes).
 162         int len = build_u2_from((address)name);
 163         const char *cname = name + 2;
 164         k = CompilerRuntime::resolve_klass_helper(thread,  cname, len, CHECK_NULL);
 165         klass_result[1] = k; // Store resolved result
 166       }
 167       Klass* k0 = klass_result[0]; // Is it initialized already?
 168       if (k0 == NULL && k != NULL && k->is_instance_klass()) {
 169         // Force initialization of instance class
 170         InstanceKlass::cast(k)->initialize(CHECK_NULL);
 171         // Double-check that it was really initialized,
 172         // because we could be doing a recursive call
 173         // from inside <clinit>.
 174         if (InstanceKlass::cast(k)->is_initialized()) {
 175           klass_result[0] = k; // Store initialized result
 176         }
 177       }
 178     }
 179   JRT_BLOCK_END
 180   assert(k != NULL, " Should be loaded!");
 181   return k;
 182 JRT_END
 183 
 184 
 185 JRT_BLOCK_ENTRY(void, CompilerRuntime::invocation_event(JavaThread *thread, MethodCounters* counters))
 186   if (!TieredCompilation) {
 187     // Ignore the event if tiered is off
 188     return;
 189   }
 190   JRT_BLOCK
 191     methodHandle mh(THREAD, counters->method());
 192     RegisterMap map(thread, false);
 193 
 194     // Compute the enclosing method
 195     frame fr = thread->last_frame().sender(&map);
 196     CompiledMethod* cm = fr.cb()->as_compiled_method_or_null();
 197     assert(cm != NULL && cm->is_compiled(), "Sanity check");
 198     methodHandle emh(THREAD, cm->method());
 199 
 200     assert(!HAS_PENDING_EXCEPTION, "Should not have any exceptions pending");
 201     CompilationPolicy::policy()->event(emh, mh, InvocationEntryBci, InvocationEntryBci, CompLevel_aot, cm, thread);
 202     assert(!HAS_PENDING_EXCEPTION, "Event handler should not throw any exceptions");
 203   JRT_BLOCK_END
 204 JRT_END
 205 
 206 JRT_BLOCK_ENTRY(void, CompilerRuntime::backedge_event(JavaThread *thread, MethodCounters* counters, int branch_bci, int target_bci))
 207   if (!TieredCompilation) {
 208     // Ignore the event if tiered is off
 209     return;
 210   }
 211   assert(branch_bci != InvocationEntryBci && target_bci != InvocationEntryBci, "Wrong bci");
 212   assert(target_bci <= branch_bci, "Expected a back edge");
 213   JRT_BLOCK
 214     methodHandle mh(THREAD, counters->method());
 215     RegisterMap map(thread, false);
 216 
 217     // Compute the enclosing method
 218     frame fr = thread->last_frame().sender(&map);
 219     CompiledMethod* cm = fr.cb()->as_compiled_method_or_null();
 220     assert(cm != NULL && cm->is_compiled(), "Sanity check");
 221     methodHandle emh(THREAD, cm->method());
 222     assert(!HAS_PENDING_EXCEPTION, "Should not have any exceptions pending");
 223     nmethod* osr_nm = CompilationPolicy::policy()->event(emh, mh, branch_bci, target_bci, CompLevel_aot, cm, thread);
 224     assert(!HAS_PENDING_EXCEPTION, "Event handler should not throw any exceptions");
 225     if (osr_nm != NULL) {
 226       Deoptimization::deoptimize_frame(thread, fr.id());
 227     }
 228   JRT_BLOCK_END
 229 JRT_END