1 /*
   2  * Copyright (c) 2003, 2014, 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 "interpreter/bytecodeHistogram.hpp"
  28 #include "interpreter/interpreter.hpp"
  29 #include "interpreter/interpreterGenerator.hpp"
  30 #include "interpreter/interpreterRuntime.hpp"
  31 #include "interpreter/interp_masm.hpp"
  32 #include "interpreter/templateTable.hpp"
  33 #include "oops/arrayOop.hpp"
  34 #include "oops/methodData.hpp"
  35 #include "oops/method.hpp"
  36 #include "oops/oop.inline.hpp"
  37 #include "prims/jvmtiExport.hpp"
  38 #include "prims/jvmtiThreadState.hpp"
  39 #include "prims/methodHandles.hpp"
  40 #include "runtime/arguments.hpp"
  41 #include "runtime/deoptimization.hpp"
  42 #include "runtime/frame.inline.hpp"
  43 #include "runtime/sharedRuntime.hpp"
  44 #include "runtime/stubRoutines.hpp"
  45 #include "runtime/synchronizer.hpp"
  46 #include "runtime/timer.hpp"
  47 #include "runtime/vframeArray.hpp"
  48 #include "utilities/debug.hpp"
  49 #ifdef COMPILER1
  50 #include "c1/c1_Runtime1.hpp"
  51 #endif
  52 
  53 #define __ _masm->
  54 
  55 #ifdef _WIN64
  56 address AbstractInterpreterGenerator::generate_slow_signature_handler() {
  57   address entry = __ pc();
  58 
  59   // rbx: method
  60   // r14: pointer to locals
  61   // c_rarg3: first stack arg - wordSize
  62   __ mov(c_rarg3, rsp);
  63   // adjust rsp
  64   __ subptr(rsp, 4 * wordSize);
  65   __ call_VM(noreg,
  66              CAST_FROM_FN_PTR(address,
  67                               InterpreterRuntime::slow_signature_handler),
  68              rbx, r14, c_rarg3);
  69 
  70   // rax: result handler
  71 
  72   // Stack layout:
  73   // rsp: 3 integer or float args (if static first is unused)
  74   //      1 float/double identifiers
  75   //        return address
  76   //        stack args
  77   //        garbage
  78   //        expression stack bottom
  79   //        bcp (NULL)
  80   //        ...
  81 
  82   // Do FP first so we can use c_rarg3 as temp
  83   __ movl(c_rarg3, Address(rsp, 3 * wordSize)); // float/double identifiers
  84 
  85   for ( int i= 0; i < Argument::n_int_register_parameters_c-1; i++ ) {
  86     XMMRegister floatreg = as_XMMRegister(i+1);
  87     Label isfloatordouble, isdouble, next;
  88 
  89     __ testl(c_rarg3, 1 << (i*2));      // Float or Double?
  90     __ jcc(Assembler::notZero, isfloatordouble);
  91 
  92     // Do Int register here
  93     switch ( i ) {
  94       case 0:
  95         __ movl(rscratch1, Address(rbx, Method::access_flags_offset()));
  96         __ testl(rscratch1, JVM_ACC_STATIC);
  97         __ cmovptr(Assembler::zero, c_rarg1, Address(rsp, 0));
  98         break;
  99       case 1:
 100         __ movptr(c_rarg2, Address(rsp, wordSize));
 101         break;
 102       case 2:
 103         __ movptr(c_rarg3, Address(rsp, 2 * wordSize));
 104         break;
 105       default:
 106         break;
 107     }
 108 
 109     __ jmp (next);
 110 
 111     __ bind(isfloatordouble);
 112     __ testl(c_rarg3, 1 << ((i*2)+1));     // Double?
 113     __ jcc(Assembler::notZero, isdouble);
 114 
 115 // Do Float Here
 116     __ movflt(floatreg, Address(rsp, i * wordSize));
 117     __ jmp(next);
 118 
 119 // Do Double here
 120     __ bind(isdouble);
 121     __ movdbl(floatreg, Address(rsp, i * wordSize));
 122 
 123     __ bind(next);
 124   }
 125 
 126 
 127   // restore rsp
 128   __ addptr(rsp, 4 * wordSize);
 129 
 130   __ ret(0);
 131 
 132   return entry;
 133 }
 134 #else
 135 address AbstractInterpreterGenerator::generate_slow_signature_handler() {
 136   address entry = __ pc();
 137 
 138   // rbx: method
 139   // r14: pointer to locals
 140   // c_rarg3: first stack arg - wordSize
 141   __ mov(c_rarg3, rsp);
 142   // adjust rsp
 143   __ subptr(rsp, 14 * wordSize);
 144   __ call_VM(noreg,
 145              CAST_FROM_FN_PTR(address,
 146                               InterpreterRuntime::slow_signature_handler),
 147              rbx, r14, c_rarg3);
 148 
 149   // rax: result handler
 150 
 151   // Stack layout:
 152   // rsp: 5 integer args (if static first is unused)
 153   //      1 float/double identifiers
 154   //      8 double args
 155   //        return address
 156   //        stack args
 157   //        garbage
 158   //        expression stack bottom
 159   //        bcp (NULL)
 160   //        ...
 161 
 162   // Do FP first so we can use c_rarg3 as temp
 163   __ movl(c_rarg3, Address(rsp, 5 * wordSize)); // float/double identifiers
 164 
 165   for (int i = 0; i < Argument::n_float_register_parameters_c; i++) {
 166     const XMMRegister r = as_XMMRegister(i);
 167 
 168     Label d, done;
 169 
 170     __ testl(c_rarg3, 1 << i);
 171     __ jcc(Assembler::notZero, d);
 172     __ movflt(r, Address(rsp, (6 + i) * wordSize));
 173     __ jmp(done);
 174     __ bind(d);
 175     __ movdbl(r, Address(rsp, (6 + i) * wordSize));
 176     __ bind(done);
 177   }
 178 
 179   // Now handle integrals.  Only do c_rarg1 if not static.
 180   __ movl(c_rarg3, Address(rbx, Method::access_flags_offset()));
 181   __ testl(c_rarg3, JVM_ACC_STATIC);
 182   __ cmovptr(Assembler::zero, c_rarg1, Address(rsp, 0));
 183 
 184   __ movptr(c_rarg2, Address(rsp, wordSize));
 185   __ movptr(c_rarg3, Address(rsp, 2 * wordSize));
 186   __ movptr(c_rarg4, Address(rsp, 3 * wordSize));
 187   __ movptr(c_rarg5, Address(rsp, 4 * wordSize));
 188 
 189   // restore rsp
 190   __ addptr(rsp, 14 * wordSize);
 191 
 192   __ ret(0);
 193 
 194   return entry;
 195 }
 196 #endif
 197 
 198 
 199 //
 200 // Various method entries
 201 //
 202 
 203 address InterpreterGenerator::generate_math_entry(AbstractInterpreter::MethodKind kind) {
 204 
 205   // rbx,: Method*
 206   // rcx: scratrch
 207   // r13: sender sp
 208 
 209   if (!InlineIntrinsics) return NULL; // Generate a vanilla entry
 210 
 211   address entry_point = __ pc();
 212 
 213   // These don't need a safepoint check because they aren't virtually
 214   // callable. We won't enter these intrinsics from compiled code.
 215   // If in the future we added an intrinsic which was virtually callable
 216   // we'd have to worry about how to safepoint so that this code is used.
 217 
 218   // mathematical functions inlined by compiler
 219   // (interpreter must provide identical implementation
 220   // in order to avoid monotonicity bugs when switching
 221   // from interpreter to compiler in the middle of some
 222   // computation)
 223   //
 224   // stack: [ ret adr ] <-- rsp
 225   //        [ lo(arg) ]
 226   //        [ hi(arg) ]
 227   //
 228 
 229   // Note: For JDK 1.2 StrictMath doesn't exist and Math.sin/cos/sqrt are
 230   //       native methods. Interpreter::method_kind(...) does a check for
 231   //       native methods first before checking for intrinsic methods and
 232   //       thus will never select this entry point. Make sure it is not
 233   //       called accidentally since the SharedRuntime entry points will
 234   //       not work for JDK 1.2.
 235   //
 236   // We no longer need to check for JDK 1.2 since it's EOL'ed.
 237   // The following check existed in pre 1.6 implementation,
 238   //    if (Universe::is_jdk12x_version()) {
 239   //      __ should_not_reach_here();
 240   //    }
 241   // Universe::is_jdk12x_version() always returns false since
 242   // the JDK version is not yet determined when this method is called.
 243   // This method is called during interpreter_init() whereas
 244   // JDK version is only determined when universe2_init() is called.
 245 
 246   // Note: For JDK 1.3 StrictMath exists and Math.sin/cos/sqrt are
 247   //       java methods.  Interpreter::method_kind(...) will select
 248   //       this entry point for the corresponding methods in JDK 1.3.
 249   // get argument
 250 
 251   if (kind == Interpreter::java_lang_math_sqrt) {
 252     __ sqrtsd(xmm0, Address(rsp, wordSize));
 253   } else if (kind == Interpreter::java_lang_math_exp) {
 254     __ movdbl(xmm0, Address(rsp, wordSize));
 255     __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, StubRoutines::dexp())));
 256   } else if (kind == Interpreter::java_lang_math_log) {
 257     __ movdbl(xmm0, Address(rsp, wordSize));
 258     __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, StubRoutines::dlog())));
 259   } else if (kind == Interpreter::java_lang_math_sin) {
 260     __ movdbl(xmm0, Address(rsp, wordSize));
 261     if (StubRoutines::dsin() != NULL) {
 262       __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, StubRoutines::dsin())));
 263     } else {
 264       __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, SharedRuntime::dsin)));
 265     }
 266   } else if (kind == Interpreter::java_lang_math_cos) {
 267     __ movdbl(xmm0, Address(rsp, wordSize));
 268     if (StubRoutines::dcos() != NULL) {
 269       __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, StubRoutines::dcos())));
 270     } else {
 271       __ call(RuntimeAddress(CAST_FROM_FN_PTR(address, SharedRuntime::dcos)));
 272     }
 273   } else {
 274     __ fld_d(Address(rsp, wordSize));
 275     switch (kind) {
 276       case Interpreter::java_lang_math_tan :
 277           __ trigfunc('t');
 278           break;
 279       case Interpreter::java_lang_math_abs:
 280           __ fabs();
 281           break;
 282       case Interpreter::java_lang_math_log10:
 283           __ flog10();
 284           break;
 285       case Interpreter::java_lang_math_pow:
 286           __ fld_d(Address(rsp, 3*wordSize)); // second argument (one
 287                                               // empty stack slot)
 288           __ pow_with_fallback(0);
 289           break;
 290       default                              :
 291           ShouldNotReachHere();
 292     }
 293 
 294     // return double result in xmm0 for interpreter and compilers.
 295     __ subptr(rsp, 2*wordSize);
 296     // Round to 64bit precision
 297     __ fstp_d(Address(rsp, 0));
 298     __ movdbl(xmm0, Address(rsp, 0));
 299     __ addptr(rsp, 2*wordSize);
 300   }
 301 
 302 
 303   __ pop(rax);
 304   __ mov(rsp, r13);
 305   __ jmp(rax);
 306 
 307   return entry_point;
 308 }
 309 
 310 void Deoptimization::unwind_callee_save_values(frame* f, vframeArray* vframe_array) {
 311 
 312   // This code is sort of the equivalent of C2IAdapter::setup_stack_frame back in
 313   // the days we had adapter frames. When we deoptimize a situation where a
 314   // compiled caller calls a compiled caller will have registers it expects
 315   // to survive the call to the callee. If we deoptimize the callee the only
 316   // way we can restore these registers is to have the oldest interpreter
 317   // frame that we create restore these values. That is what this routine
 318   // will accomplish.
 319 
 320   // At the moment we have modified c2 to not have any callee save registers
 321   // so this problem does not exist and this routine is just a place holder.
 322 
 323   assert(f->is_interpreted_frame(), "must be interpreted");
 324 }