1 /*
  2  * Copyright (c) 2016, 2021, 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 "runtime/interfaceSupport.inline.hpp"
 28 #include "runtime/sharedRuntime.hpp"
 29 #include "vmreg_x86.inline.hpp"
 30 #ifdef COMPILER1
 31 #include "c1/c1_Runtime1.hpp"
 32 #endif //COMPILER1
 33 
 34 #define __ masm->
 35 
 36 #ifdef COMPILER1
 37 // ---------------------------------------------------------------------------
 38 // Object.hashCode, System.identityHashCode can pull the hashCode from the
 39 // header word instead of doing a full VM transition once it's been computed.
 40 // Since hashCode is usually polymorphic at call sites we can't do this
 41 // optimization at the call site without a lot of work.
 42 void SharedRuntime::inline_check_hashcode_from_object_header(MacroAssembler* masm,
 43                                  const methodHandle& method,
 44                                  Register obj_reg,
 45                                  Register result) {
 46   Label slowCase;
 47 
 48   // Unlike for Object.hashCode, System.identityHashCode is static method and
 49   // gets object as argument instead of the receiver.
 50   if (method->intrinsic_id() == vmIntrinsics::_identityHashCode) {
 51     Label Continue;
 52     // return 0 for null reference input
 53     __ cmpptr(obj_reg, NULL_WORD);
 54     __ jcc(Assembler::notEqual, Continue);
 55     __ xorptr(result, result);
 56     __ ret(0);
 57     __ bind(Continue);
 58   }
 59 
 60   __ movptr(result, Address(obj_reg, oopDesc::mark_offset_in_bytes()));
 61 
 62   // check if locked
 63   __ testptr(result, markWord::unlocked_value);
 64   __ jcc(Assembler::zero, slowCase);
 65 
 66   // get hash
 67 #ifdef _LP64
 68   // Read the header and build a mask to get its hash field.
 69   // Depend on hash_mask being at most 32 bits and avoid the use of hash_mask_in_place
 70   // because it could be larger than 32 bits in a 64-bit vm. See markWord.hpp.
 71   __ shrptr(result, markWord::hash_shift);
 72   __ andptr(result, markWord::hash_mask);
 73 #else
 74   __ andptr(result, markWord::hash_mask_in_place);
 75 #endif //_LP64
 76 
 77   // test if hashCode exists
 78   __ jcc(Assembler::zero, slowCase);
 79 #ifndef _LP64
 80   __ shrptr(result, markWord::hash_shift);
 81 #endif
 82   __ ret(0);
 83   __ bind(slowCase);
 84 }
 85 #endif //COMPILER1
 86 
 87 #if defined(TARGET_COMPILER_gcc) && !defined(_WIN64)
 88 JRT_LEAF(jfloat, SharedRuntime::frem(jfloat x, jfloat y))
 89   jfloat retval;
 90   const bool is_LP64 = LP64_ONLY(true) NOT_LP64(false);
 91   if (!is_LP64 || UseAVX < 1 || !UseFMA) {
 92   asm ("\
 93 1:               \n\
 94 fprem            \n\
 95 fnstsw %%ax      \n\
 96 test   $0x4,%%ah \n\
 97 jne    1b        \n\
 98 "
 99     :"=t"(retval)
100     :"0"(x), "u"(y)
101     :"cc", "ax");
102   } else {
103     assert(StubRoutines::fmod() != nullptr, "");
104     jdouble (*addr)(jdouble, jdouble) = (double (*)(double, double))StubRoutines::fmod();
105     jdouble dx = (jdouble) x;
106     jdouble dy = (jdouble) y;
107 
108     retval = (jfloat) (*addr)(dx, dy);
109   }
110   return retval;
111 JRT_END
112 
113 JRT_LEAF(jdouble, SharedRuntime::drem(jdouble x, jdouble y))
114   jdouble retval;
115   const bool is_LP64 = LP64_ONLY(true) NOT_LP64(false);
116   if (!is_LP64 || UseAVX < 1 || !UseFMA) {
117   asm ("\
118 1:               \n\
119 fprem            \n\
120 fnstsw %%ax      \n\
121 test   $0x4,%%ah \n\
122 jne    1b        \n\
123 "
124     :"=t"(retval)
125     :"0"(x), "u"(y)
126     :"cc", "ax");
127   } else {
128     assert(StubRoutines::fmod() != nullptr, "");
129     jdouble (*addr)(jdouble, jdouble) = (double (*)(double, double))StubRoutines::fmod();
130 
131     retval = (*addr)(x, y);
132   }
133   return retval;
134 JRT_END
135 #endif // TARGET_COMPILER_gcc && !_WIN64