1 /*
  2  * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved.
  3  * Copyright (c) 2020, 2022, Huawei Technologies Co., Ltd. All rights reserved.
  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 #ifndef CPU_RISCV_C2_MACROASSEMBLER_RISCV_HPP
 27 #define CPU_RISCV_C2_MACROASSEMBLER_RISCV_HPP
 28 
 29 // C2_MacroAssembler contains high-level macros for C2
 30 
 31  private:
 32   // Return true if the phase output is in the scratch emit size mode.
 33   virtual bool in_scratch_emit_size() override;
 34 
 35   void element_compare(Register r1, Register r2,
 36                        Register result, Register cnt,
 37                        Register tmp1, Register tmp2,
 38                        VectorRegister vr1, VectorRegister vr2,
 39                        VectorRegister vrs,
 40                        bool is_latin, Label& DONE, Assembler::LMUL lmul);
 41 
 42   void compress_bits_v(Register dst, Register src, Register mask, bool is_long);
 43   void expand_bits_v(Register dst, Register src, Register mask, bool is_long);
 44 
 45  public:
 46   // Code used by cmpFastLock and cmpFastUnlock mach instructions in .ad file.
 47   void fast_lock(Register object, Register box, Register tmp1, Register tmp2, Register tmp3);
 48   void fast_unlock(Register object, Register box, Register tmp1, Register tmp2);
 49   // Code used by cmpFastLockLightweight and cmpFastUnlockLightweight mach instructions in .ad file.
 50   void fast_lock_lightweight(Register object, Register box, Register tmp1, Register tmp2, Register tmp3);
 51   void fast_unlock_lightweight(Register object, Register box, Register tmp1, Register tmp2, Register tmp3);
 52 
 53   void string_compare(Register str1, Register str2,
 54                       Register cnt1, Register cnt2, Register result,
 55                       Register tmp1, Register tmp2, Register tmp3,
 56                       int ae);
 57 
 58   void string_indexof_char_short(Register str1, Register cnt1,
 59                                  Register ch, Register result,
 60                                  bool isL);
 61 
 62   void string_indexof_char(Register str1, Register cnt1,
 63                            Register ch, Register result,
 64                            Register tmp1, Register tmp2,
 65                            Register tmp3, Register tmp4,
 66                            bool isL);
 67 
 68   void string_indexof(Register str1, Register str2,
 69                       Register cnt1, Register cnt2,
 70                       Register tmp1, Register tmp2,
 71                       Register tmp3, Register tmp4,
 72                       Register tmp5, Register tmp6,
 73                       Register result, int ae);
 74 
 75   void string_indexof_linearscan(Register haystack, Register needle,
 76                                  Register haystack_len, Register needle_len,
 77                                  Register tmp1, Register tmp2,
 78                                  Register tmp3, Register tmp4,
 79                                  int needle_con_cnt, Register result, int ae);
 80 
 81   void arrays_equals(Register r1, Register r2,
 82                      Register tmp1, Register tmp2, Register tmp3,
 83                      Register result, int elem_size);
 84 
 85   void arrays_hashcode(Register ary, Register cnt, Register result,
 86                        Register tmp1, Register tmp2,
 87                        Register tmp3, Register tmp4,
 88                        Register tmp5, Register tmp6,
 89                        BasicType eltype);
 90 
 91   // helper function for arrays_hashcode
 92   int arrays_hashcode_elsize(BasicType eltype);
 93   void arrays_hashcode_elload(Register dst, Address src, BasicType eltype);
 94 
 95   void string_equals(Register r1, Register r2,
 96                      Register result, Register cnt1);
 97 
 98   // refer to conditional_branches and float_conditional_branches
 99   static const int bool_test_bits = 3;
100   static const int neg_cond_bits = 2;
101   static const int unsigned_branch_mask = 1 << bool_test_bits;
102   static const int double_branch_mask = 1 << bool_test_bits;
103 
104   // cmp
105   void cmp_branch(int cmpFlag,
106                   Register op1, Register op2,
107                   Label& label, bool is_far = false);
108 
109   void float_cmp_branch(int cmpFlag,
110                         FloatRegister op1, FloatRegister op2,
111                         Label& label, bool is_far = false);
112 
113   void enc_cmpUEqNeLeGt_imm0_branch(int cmpFlag, Register op,
114                                     Label& L, bool is_far = false);
115 
116   void enc_cmpEqNe_imm0_branch(int cmpFlag, Register op,
117                                Label& L, bool is_far = false);
118 
119   void enc_cmove(int cmpFlag,
120                  Register op1, Register op2,
121                  Register dst, Register src);
122 
123   void spill(Register r, bool is64, int offset) {
124     is64 ? sd(r, Address(sp, offset))
125          : sw(r, Address(sp, offset));
126   }
127 
128   void spill(FloatRegister f, bool is64, int offset) {
129     is64 ? fsd(f, Address(sp, offset))
130          : fsw(f, Address(sp, offset));
131   }
132 
133   void spill(VectorRegister v, int offset) {
134     add(t0, sp, offset);
135     vs1r_v(v, t0);
136   }
137 
138   void unspill(Register r, bool is64, int offset) {
139     is64 ? ld(r, Address(sp, offset))
140          : lw(r, Address(sp, offset));
141   }
142 
143   void unspillu(Register r, bool is64, int offset) {
144     is64 ? ld(r, Address(sp, offset))
145          : lwu(r, Address(sp, offset));
146   }
147 
148   void unspill(FloatRegister f, bool is64, int offset) {
149     is64 ? fld(f, Address(sp, offset))
150          : flw(f, Address(sp, offset));
151   }
152 
153   void unspill(VectorRegister v, int offset) {
154     add(t0, sp, offset);
155     vl1r_v(v, t0);
156   }
157 
158   void spill_copy_vector_stack_to_stack(int src_offset, int dst_offset, uint vector_length_in_bytes) {
159     assert(vector_length_in_bytes % 16 == 0, "unexpected vector reg size");
160     for (int i = 0; i < (int)vector_length_in_bytes / 8; i++) {
161       unspill(t0, true, src_offset + (i * 8));
162       spill(t0, true, dst_offset + (i * 8));
163     }
164   }
165 
166   void minmax_fp(FloatRegister dst,
167                  FloatRegister src1, FloatRegister src2,
168                  bool is_double, bool is_min);
169 
170   void round_double_mode(FloatRegister dst, FloatRegister src, int round_mode,
171                          Register tmp1, Register tmp2, Register tmp3);
172 
173   void signum_fp(FloatRegister dst, FloatRegister one, bool is_double);
174 
175   void float16_to_float(FloatRegister dst, Register src, Register tmp);
176   void float_to_float16(Register dst, FloatRegister src, FloatRegister ftmp, Register xtmp);
177 
178   void signum_fp_v(VectorRegister dst, VectorRegister one, BasicType bt, int vlen);
179 
180 
181   // intrinsic methods implemented by rvv instructions
182 
183   // compress bits, i.e. j.l.Integer/Long::compress.
184   void compress_bits_i_v(Register dst, Register src, Register mask);
185   void compress_bits_l_v(Register dst, Register src, Register mask);
186   // expand bits, i.e. j.l.Integer/Long::expand.
187   void expand_bits_i_v(Register dst, Register src, Register mask);
188   void expand_bits_l_v(Register dst, Register src, Register mask);
189 
190   void float16_to_float_v(VectorRegister dst, VectorRegister src, uint vector_length);
191   void float_to_float16_v(VectorRegister dst, VectorRegister src, VectorRegister vtmp, Register tmp, uint vector_length);
192 
193   void string_equals_v(Register r1, Register r2,
194                        Register result, Register cnt1);
195 
196   void arrays_equals_v(Register r1, Register r2,
197                        Register result, Register cnt1,
198                        int elem_size);
199 
200   void string_compare_v(Register str1, Register str2,
201                         Register cnt1, Register cnt2,
202                         Register result,
203                         Register tmp1, Register tmp2,
204                         int encForm);
205 
206   void clear_array_v(Register base, Register cnt);
207 
208   void byte_array_inflate_v(Register src, Register dst,
209                             Register len, Register tmp);
210 
211   void char_array_compress_v(Register src, Register dst,
212                             Register len, Register result,
213                             Register tmp);
214 
215   void encode_iso_array_v(Register src, Register dst,
216                           Register len, Register result,
217                           Register tmp, bool ascii);
218 
219   void count_positives_v(Register ary, Register len,
220                         Register result, Register tmp);
221 
222   void string_indexof_char_v(Register str1, Register cnt1,
223                             Register ch, Register result,
224                             Register tmp1, Register tmp2,
225                             bool isL);
226 
227   void minmax_fp_v(VectorRegister dst,
228                   VectorRegister src1, VectorRegister src2,
229                   BasicType bt, bool is_min, uint vector_length);
230 
231   void minmax_fp_masked_v(VectorRegister dst, VectorRegister src1, VectorRegister src2,
232                           VectorRegister vmask, VectorRegister tmp1, VectorRegister tmp2,
233                           BasicType bt, bool is_min, uint vector_length);
234 
235   void reduce_minmax_fp_v(FloatRegister dst,
236                           FloatRegister src1, VectorRegister src2,
237                           VectorRegister tmp1, VectorRegister tmp2,
238                           bool is_double, bool is_min, uint vector_length,
239                           VectorMask vm = Assembler::unmasked);
240 
241   void reduce_integral_v(Register dst, Register src1,
242                         VectorRegister src2, VectorRegister tmp,
243                         int opc, BasicType bt, uint vector_length,
244                         VectorMask vm = Assembler::unmasked);
245 
246   void vsetvli_helper(BasicType bt, uint vector_length, LMUL vlmul = Assembler::m1, Register tmp = t0);
247 
248   void compare_integral_v(VectorRegister dst, VectorRegister src1, VectorRegister src2, int cond,
249                           BasicType bt, uint vector_length, VectorMask vm = Assembler::unmasked);
250 
251   void compare_fp_v(VectorRegister dst, VectorRegister src1, VectorRegister src2, int cond,
252                     BasicType bt, uint vector_length, VectorMask vm = Assembler::unmasked);
253 
254   void spill_vmask(VectorRegister v, int offset);
255 
256   void unspill_vmask(VectorRegister v, int offset);
257 
258   void spill_copy_vmask_stack_to_stack(int src_offset, int dst_offset, uint vector_length_in_bytes) {
259     assert(vector_length_in_bytes % 4 == 0, "unexpected vector mask reg size");
260     for (int i = 0; i < (int)vector_length_in_bytes / 4; i++) {
261       unspill(t0, false, src_offset + (i * 4));
262       spill(t0, false, dst_offset + (i * 4));
263     }
264   }
265 
266   void integer_extend_v(VectorRegister dst, BasicType dst_bt, uint vector_length,
267                         VectorRegister src, BasicType src_bt, bool is_signed);
268 
269   void integer_narrow_v(VectorRegister dst, BasicType dst_bt, uint vector_length,
270                         VectorRegister src, BasicType src_bt);
271 
272   void vfcvt_rtz_x_f_v_safe(VectorRegister dst, VectorRegister src);
273 
274   void extract_v(Register dst, VectorRegister src, BasicType bt, int idx, VectorRegister tmp);
275   void extract_fp_v(FloatRegister dst, VectorRegister src, BasicType bt, int idx, VectorRegister tmp);
276 
277 #endif // CPU_RISCV_C2_MACROASSEMBLER_RISCV_HPP