1 /*
   2  * Copyright (c) 1999, 2017, Oracle and/or its affiliates. All rights reserved.
   3  * Copyright 2008, 2009, 2010 Red Hat, Inc.
   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 #include "precompiled.hpp"
  27 #include "runtime/atomic.hpp"
  28 #include "runtime/biasedLocking.hpp"
  29 #include "runtime/deoptimization.hpp"
  30 #include "runtime/thread.hpp"
  31 #include "shark/llvmHeaders.hpp"
  32 #include "shark/sharkRuntime.hpp"
  33 #include "utilities/macros.hpp"
  34 #ifdef ZERO
  35 # include "stack_zero.inline.hpp"
  36 #endif
  37 
  38 using namespace llvm;
  39 
  40 JRT_ENTRY(int, SharkRuntime::find_exception_handler(JavaThread* thread,
  41                                                     int*        indexes,
  42                                                     int         num_indexes))
  43   constantPoolHandle pool(thread, method(thread)->constants());
  44   Klass* exc_klass = ((oop) tos_at(thread, 0))->klass();
  45 
  46   for (int i = 0; i < num_indexes; i++) {
  47     Klass* tmp = pool->klass_at(indexes[i], CHECK_0);
  48 
  49     if (exc_klass() == tmp)
  50       return i;
  51 
  52     if (exc_klass()->is_subtype_of(tmp))
  53       return i;
  54   }
  55 
  56   return -1;
  57 JRT_END
  58 
  59 JRT_ENTRY(void, SharkRuntime::monitorenter(JavaThread*      thread,
  60                                            BasicObjectLock* lock))
  61   if (PrintBiasedLockingStatistics)
  62     Atomic::inc(BiasedLocking::slow_path_entry_count_addr());
  63 
  64   Handle object(thread, lock->obj());
  65   assert(Universe::heap()->is_in_reserved_or_null(object()), "should be");
  66   if (UseBiasedLocking) {
  67     // Retry fast entry if bias is revoked to avoid unnecessary inflation
  68     ObjectSynchronizer::fast_enter(object, lock->lock(), true, CHECK);
  69   } else {
  70     ObjectSynchronizer::slow_enter(object, lock->lock(), CHECK);
  71   }
  72   assert(Universe::heap()->is_in_reserved_or_null(lock->obj()), "should be");
  73 JRT_END
  74 
  75 JRT_ENTRY(void, SharkRuntime::monitorexit(JavaThread*      thread,
  76                                           BasicObjectLock* lock))
  77   Handle object(thread, lock->obj());
  78   assert(Universe::heap()->is_in_reserved_or_null(object()), "should be");
  79   if (lock == NULL || object()->is_unlocked()) {
  80     THROW(vmSymbols::java_lang_IllegalMonitorStateException());
  81   }
  82   ObjectSynchronizer::slow_exit(object(), lock->lock(), thread);
  83 JRT_END
  84 
  85 JRT_ENTRY(void, SharkRuntime::new_instance(JavaThread* thread, int index))
  86   Klass* k_oop = method(thread)->constants()->klass_at(index, CHECK);
  87   InstanceKlass* klass = InstanceKlass::cast(k);
  88 
  89   // Make sure we are not instantiating an abstract klass
  90   klass->check_valid_for_instantiation(true, CHECK);
  91 
  92   // Make sure klass is initialized
  93   klass->initialize(CHECK);
  94 
  95   // At this point the class may not be fully initialized
  96   // because of recursive initialization. If it is fully
  97   // initialized & has_finalized is not set, we rewrite
  98   // it into its fast version (Note: no locking is needed
  99   // here since this is an atomic byte write and can be
 100   // done more than once).
 101   //
 102   // Note: In case of classes with has_finalized we don't
 103   //       rewrite since that saves us an extra check in
 104   //       the fast version which then would call the
 105   //       slow version anyway (and do a call back into
 106   //       Java).
 107   //       If we have a breakpoint, then we don't rewrite
 108   //       because the _breakpoint bytecode would be lost.
 109   oop obj = klass->allocate_instance(CHECK);
 110   thread->set_vm_result(obj);
 111 JRT_END
 112 
 113 JRT_ENTRY(void, SharkRuntime::newarray(JavaThread* thread,
 114                                        BasicType   type,
 115                                        int         size))
 116   oop obj = oopFactory::new_typeArray(type, size, CHECK);
 117   thread->set_vm_result(obj);
 118 JRT_END
 119 
 120 JRT_ENTRY(void, SharkRuntime::anewarray(JavaThread* thread,
 121                                         int         index,
 122                                         int         size))
 123   Klass* klass = method(thread)->constants()->klass_at(index, CHECK);
 124   objArrayOop obj = oopFactory::new_objArray(klass, size, CHECK);
 125   thread->set_vm_result(obj);
 126 JRT_END
 127 
 128 JRT_ENTRY(void, SharkRuntime::multianewarray(JavaThread* thread,
 129                                              int         index,
 130                                              int         ndims,
 131                                              int*        dims))
 132   Klass* klass = method(thread)->constants()->klass_at(index, CHECK);
 133   oop obj = ArrayKlass::cast(klass)->multi_allocate(ndims, dims, CHECK);
 134   thread->set_vm_result(obj);
 135 JRT_END
 136 
 137 JRT_ENTRY(void, SharkRuntime::register_finalizer(JavaThread* thread,
 138                                                  oop         object))
 139   assert(object->is_oop(), "should be");
 140   assert(object->klass()->has_finalizer(), "should have");
 141   InstanceKlass::register_finalizer(instanceOop(object), CHECK);
 142 JRT_END
 143 
 144 JRT_ENTRY(void, SharkRuntime::throw_ArithmeticException(JavaThread* thread,
 145                                                         const char* file,
 146                                                         int         line))
 147   Exceptions::_throw_msg(
 148     thread, file, line,
 149     vmSymbols::java_lang_ArithmeticException(),
 150     "");
 151 JRT_END
 152 
 153 JRT_ENTRY(void, SharkRuntime::throw_ArrayIndexOutOfBoundsException(
 154                                                      JavaThread* thread,
 155                                                      const char* file,
 156                                                      int         line,
 157                                                      int         index))
 158   char msg[jintAsStringSize];
 159   snprintf(msg, sizeof(msg), "%d", index);
 160   Exceptions::_throw_msg(
 161     thread, file, line,
 162     vmSymbols::java_lang_ArrayIndexOutOfBoundsException(),
 163     msg);
 164 JRT_END
 165 
 166 JRT_ENTRY(void, SharkRuntime::throw_ClassCastException(JavaThread* thread,
 167                                                        const char* file,
 168                                                        int         line))
 169   Exceptions::_throw_msg(
 170     thread, file, line,
 171     vmSymbols::java_lang_ClassCastException(),
 172     "");
 173 JRT_END
 174 
 175 JRT_ENTRY(void, SharkRuntime::throw_NullPointerException(JavaThread* thread,
 176                                                          const char* file,
 177                                                          int         line))
 178   Exceptions::_throw_msg(
 179     thread, file, line,
 180     vmSymbols::java_lang_NullPointerException(),
 181     "");
 182 JRT_END
 183 
 184 // Non-VM calls
 185 // Nothing in these must ever GC!
 186 
 187 void SharkRuntime::dump(const char *name, intptr_t value) {
 188   oop valueOop = (oop) value;
 189   tty->print("%s = ", name);
 190   if (valueOop->is_oop(true))
 191     valueOop->print_on(tty);
 192   else if (value >= ' ' && value <= '~')
 193     tty->print("'%c' (%d)", value, value);
 194   else
 195     tty->print("%p", value);
 196   tty->print_cr("");
 197 }
 198 
 199 bool SharkRuntime::is_subtype_of(Klass* check_klass, Klass* object_klass) {
 200   return object_klass->is_subtype_of(check_klass);
 201 }
 202 
 203 int SharkRuntime::uncommon_trap(JavaThread* thread, int trap_request) {
 204   Thread *THREAD = thread;
 205 
 206   // In C2, uncommon_trap_blob creates a frame, so all the various
 207   // deoptimization functions expect to find the frame of the method
 208   // being deopted one frame down on the stack.  We create a dummy
 209   // frame to mirror this.
 210   FakeStubFrame *stubframe = FakeStubFrame::build(CHECK_0);
 211   thread->push_zero_frame(stubframe);
 212 
 213   // Initiate the trap
 214   thread->set_last_Java_frame();
 215   Deoptimization::UnrollBlock *urb =
 216     Deoptimization::uncommon_trap(thread, trap_request, Deoptimization::Unpack_uncommon_trap);
 217   thread->reset_last_Java_frame();
 218   assert(urb->unpack_kind() == Deoptimization::Unpack_uncommon_trap, "expected Unpack_uncommon_trap");
 219 
 220   // Pop our dummy frame and the frame being deoptimized
 221   thread->pop_zero_frame();
 222   thread->pop_zero_frame();
 223 
 224   // Push skeleton frames
 225   int number_of_frames = urb->number_of_frames();
 226   for (int i = 0; i < number_of_frames; i++) {
 227     intptr_t size = urb->frame_sizes()[i];
 228     InterpreterFrame *frame = InterpreterFrame::build(size, CHECK_0);
 229     thread->push_zero_frame(frame);
 230   }
 231 
 232   // Push another dummy frame
 233   stubframe = FakeStubFrame::build(CHECK_0);
 234   thread->push_zero_frame(stubframe);
 235 
 236   // Fill in the skeleton frames
 237   thread->set_last_Java_frame();
 238   Deoptimization::unpack_frames(thread, Deoptimization::Unpack_uncommon_trap);
 239   thread->reset_last_Java_frame();
 240 
 241   // Pop our dummy frame
 242   thread->pop_zero_frame();
 243 
 244   // Fall back into the interpreter
 245   return number_of_frames;
 246 }
 247 
 248 FakeStubFrame* FakeStubFrame::build(TRAPS) {
 249   ZeroStack *stack = ((JavaThread *) THREAD)->zero_stack();
 250   stack->overflow_check(header_words, CHECK_NULL);
 251 
 252   stack->push(0); // next_frame, filled in later
 253   intptr_t *fp = stack->sp();
 254   assert(fp - stack->sp() == next_frame_off, "should be");
 255 
 256   stack->push(FAKE_STUB_FRAME);
 257   assert(fp - stack->sp() == frame_type_off, "should be");
 258 
 259   return (FakeStubFrame *) fp;
 260 }