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