blob: ba006edfa21606b18ed63223745589cab39918b2 [file] [log] [blame]
Chris Larsen701566a2015-10-27 15:29:13 -07001/*
2 * Copyright (C) 2015 The Android Open Source Project
3 *
4 * Licensed under the Apache License, Version 2.0 (the "License");
5 * you may not use this file except in compliance with the License.
6 * You may obtain a copy of the License at
7 *
8 * http://www.apache.org/licenses/LICENSE-2.0
9 *
10 * Unless required by applicable law or agreed to in writing, software
11 * distributed under the License is distributed on an "AS IS" BASIS,
12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 * See the License for the specific language governing permissions and
14 * limitations under the License.
15 */
16
17#include "intrinsics_mips.h"
18
19#include "arch/mips/instruction_set_features_mips.h"
20#include "art_method.h"
21#include "code_generator_mips.h"
22#include "entrypoints/quick/quick_entrypoints.h"
23#include "intrinsics.h"
24#include "mirror/array-inl.h"
25#include "mirror/string.h"
26#include "thread.h"
27#include "utils/mips/assembler_mips.h"
28#include "utils/mips/constants_mips.h"
29
30namespace art {
31
32namespace mips {
33
34IntrinsicLocationsBuilderMIPS::IntrinsicLocationsBuilderMIPS(CodeGeneratorMIPS* codegen)
35 : arena_(codegen->GetGraph()->GetArena()) {
36}
37
38MipsAssembler* IntrinsicCodeGeneratorMIPS::GetAssembler() {
39 return reinterpret_cast<MipsAssembler*>(codegen_->GetAssembler());
40}
41
42ArenaAllocator* IntrinsicCodeGeneratorMIPS::GetAllocator() {
43 return codegen_->GetGraph()->GetArena();
44}
45
Alexey Frunzebb9863a2016-01-11 15:51:16 -080046inline bool IntrinsicCodeGeneratorMIPS::IsR2OrNewer() const {
Chris Larsene16ce5a2015-11-18 12:30:20 -080047 return codegen_->GetInstructionSetFeatures().IsMipsIsaRevGreaterThanEqual2();
48}
49
Alexey Frunzebb9863a2016-01-11 15:51:16 -080050inline bool IntrinsicCodeGeneratorMIPS::IsR6() const {
Chris Larsene16ce5a2015-11-18 12:30:20 -080051 return codegen_->GetInstructionSetFeatures().IsR6();
52}
53
Alexey Frunzebb9863a2016-01-11 15:51:16 -080054inline bool IntrinsicCodeGeneratorMIPS::Is32BitFPU() const {
55 return codegen_->GetInstructionSetFeatures().Is32BitFloatingPoint();
56}
57
Chris Larsen701566a2015-10-27 15:29:13 -070058#define __ codegen->GetAssembler()->
59
60static void MoveFromReturnRegister(Location trg,
61 Primitive::Type type,
62 CodeGeneratorMIPS* codegen) {
63 if (!trg.IsValid()) {
64 DCHECK_EQ(type, Primitive::kPrimVoid);
65 return;
66 }
67
68 DCHECK_NE(type, Primitive::kPrimVoid);
69
70 if (Primitive::IsIntegralType(type) || type == Primitive::kPrimNot) {
71 Register trg_reg = trg.AsRegister<Register>();
72 if (trg_reg != V0) {
73 __ Move(V0, trg_reg);
74 }
75 } else {
76 FRegister trg_reg = trg.AsFpuRegister<FRegister>();
77 if (trg_reg != F0) {
78 if (type == Primitive::kPrimFloat) {
79 __ MovS(F0, trg_reg);
80 } else {
81 __ MovD(F0, trg_reg);
82 }
83 }
84 }
85}
86
87static void MoveArguments(HInvoke* invoke, CodeGeneratorMIPS* codegen) {
88 InvokeDexCallingConventionVisitorMIPS calling_convention_visitor;
89 IntrinsicVisitor::MoveArguments(invoke, codegen, &calling_convention_visitor);
90}
91
92// Slow-path for fallback (calling the managed code to handle the
93// intrinsic) in an intrinsified call. This will copy the arguments
94// into the positions for a regular call.
95//
96// Note: The actual parameters are required to be in the locations
97// given by the invoke's location summary. If an intrinsic
98// modifies those locations before a slowpath call, they must be
99// restored!
100class IntrinsicSlowPathMIPS : public SlowPathCodeMIPS {
101 public:
David Srbecky9cd6d372016-02-09 15:24:47 +0000102 explicit IntrinsicSlowPathMIPS(HInvoke* invoke) : SlowPathCodeMIPS(invoke), invoke_(invoke) { }
Chris Larsen701566a2015-10-27 15:29:13 -0700103
104 void EmitNativeCode(CodeGenerator* codegen_in) OVERRIDE {
105 CodeGeneratorMIPS* codegen = down_cast<CodeGeneratorMIPS*>(codegen_in);
106
107 __ Bind(GetEntryLabel());
108
109 SaveLiveRegisters(codegen, invoke_->GetLocations());
110
111 MoveArguments(invoke_, codegen);
112
113 if (invoke_->IsInvokeStaticOrDirect()) {
114 codegen->GenerateStaticOrDirectCall(invoke_->AsInvokeStaticOrDirect(),
115 Location::RegisterLocation(A0));
Chris Larsen701566a2015-10-27 15:29:13 -0700116 } else {
Chris Larsen3acee732015-11-18 13:31:08 -0800117 codegen->GenerateVirtualCall(invoke_->AsInvokeVirtual(), Location::RegisterLocation(A0));
Chris Larsen701566a2015-10-27 15:29:13 -0700118 }
Chris Larsen3acee732015-11-18 13:31:08 -0800119 codegen->RecordPcInfo(invoke_, invoke_->GetDexPc(), this);
Chris Larsen701566a2015-10-27 15:29:13 -0700120
121 // Copy the result back to the expected output.
122 Location out = invoke_->GetLocations()->Out();
123 if (out.IsValid()) {
124 DCHECK(out.IsRegister()); // TODO: Replace this when we support output in memory.
125 DCHECK(!invoke_->GetLocations()->GetLiveRegisters()->ContainsCoreRegister(out.reg()));
126 MoveFromReturnRegister(out, invoke_->GetType(), codegen);
127 }
128
129 RestoreLiveRegisters(codegen, invoke_->GetLocations());
130 __ B(GetExitLabel());
131 }
132
133 const char* GetDescription() const OVERRIDE { return "IntrinsicSlowPathMIPS"; }
134
135 private:
136 // The instruction where this slow path is happening.
137 HInvoke* const invoke_;
138
139 DISALLOW_COPY_AND_ASSIGN(IntrinsicSlowPathMIPS);
140};
141
142#undef __
143
144bool IntrinsicLocationsBuilderMIPS::TryDispatch(HInvoke* invoke) {
145 Dispatch(invoke);
146 LocationSummary* res = invoke->GetLocations();
147 return res != nullptr && res->Intrinsified();
148}
149
150#define __ assembler->
151
Chris Larsen3f8bf652015-10-28 10:08:56 -0700152static void CreateFPToIntLocations(ArenaAllocator* arena, HInvoke* invoke) {
153 LocationSummary* locations = new (arena) LocationSummary(invoke,
154 LocationSummary::kNoCall,
155 kIntrinsified);
156 locations->SetInAt(0, Location::RequiresFpuRegister());
157 locations->SetOut(Location::RequiresRegister());
158}
159
160static void MoveFPToInt(LocationSummary* locations, bool is64bit, MipsAssembler* assembler) {
161 FRegister in = locations->InAt(0).AsFpuRegister<FRegister>();
162
163 if (is64bit) {
164 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
165 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
166
167 __ Mfc1(out_lo, in);
Alexey Frunzebb9863a2016-01-11 15:51:16 -0800168 __ MoveFromFpuHigh(out_hi, in);
Chris Larsen3f8bf652015-10-28 10:08:56 -0700169 } else {
170 Register out = locations->Out().AsRegister<Register>();
171
172 __ Mfc1(out, in);
173 }
174}
175
176// long java.lang.Double.doubleToRawLongBits(double)
177void IntrinsicLocationsBuilderMIPS::VisitDoubleDoubleToRawLongBits(HInvoke* invoke) {
178 CreateFPToIntLocations(arena_, invoke);
179}
180
181void IntrinsicCodeGeneratorMIPS::VisitDoubleDoubleToRawLongBits(HInvoke* invoke) {
Roland Levillainbf84a3d2015-12-04 14:33:02 +0000182 MoveFPToInt(invoke->GetLocations(), /* is64bit */ true, GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700183}
184
185// int java.lang.Float.floatToRawIntBits(float)
186void IntrinsicLocationsBuilderMIPS::VisitFloatFloatToRawIntBits(HInvoke* invoke) {
187 CreateFPToIntLocations(arena_, invoke);
188}
189
190void IntrinsicCodeGeneratorMIPS::VisitFloatFloatToRawIntBits(HInvoke* invoke) {
Roland Levillainbf84a3d2015-12-04 14:33:02 +0000191 MoveFPToInt(invoke->GetLocations(), /* is64bit */ false, GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700192}
193
194static void CreateIntToFPLocations(ArenaAllocator* arena, HInvoke* invoke) {
195 LocationSummary* locations = new (arena) LocationSummary(invoke,
196 LocationSummary::kNoCall,
197 kIntrinsified);
198 locations->SetInAt(0, Location::RequiresRegister());
199 locations->SetOut(Location::RequiresFpuRegister());
200}
201
202static void MoveIntToFP(LocationSummary* locations, bool is64bit, MipsAssembler* assembler) {
203 FRegister out = locations->Out().AsFpuRegister<FRegister>();
204
205 if (is64bit) {
206 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
207 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
208
209 __ Mtc1(in_lo, out);
Alexey Frunzebb9863a2016-01-11 15:51:16 -0800210 __ MoveToFpuHigh(in_hi, out);
Chris Larsen3f8bf652015-10-28 10:08:56 -0700211 } else {
212 Register in = locations->InAt(0).AsRegister<Register>();
213
214 __ Mtc1(in, out);
215 }
216}
217
218// double java.lang.Double.longBitsToDouble(long)
219void IntrinsicLocationsBuilderMIPS::VisitDoubleLongBitsToDouble(HInvoke* invoke) {
220 CreateIntToFPLocations(arena_, invoke);
221}
222
223void IntrinsicCodeGeneratorMIPS::VisitDoubleLongBitsToDouble(HInvoke* invoke) {
Roland Levillainbf84a3d2015-12-04 14:33:02 +0000224 MoveIntToFP(invoke->GetLocations(), /* is64bit */ true, GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700225}
226
227// float java.lang.Float.intBitsToFloat(int)
228void IntrinsicLocationsBuilderMIPS::VisitFloatIntBitsToFloat(HInvoke* invoke) {
229 CreateIntToFPLocations(arena_, invoke);
230}
231
232void IntrinsicCodeGeneratorMIPS::VisitFloatIntBitsToFloat(HInvoke* invoke) {
Roland Levillainbf84a3d2015-12-04 14:33:02 +0000233 MoveIntToFP(invoke->GetLocations(), /* is64bit */ false, GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700234}
235
Chris Larsen86829602015-11-18 12:27:52 -0800236static void CreateIntToIntLocations(ArenaAllocator* arena,
237 HInvoke* invoke,
238 Location::OutputOverlap overlaps = Location::kNoOutputOverlap) {
Chris Larsen3f8bf652015-10-28 10:08:56 -0700239 LocationSummary* locations = new (arena) LocationSummary(invoke,
240 LocationSummary::kNoCall,
241 kIntrinsified);
242 locations->SetInAt(0, Location::RequiresRegister());
Chris Larsen86829602015-11-18 12:27:52 -0800243 locations->SetOut(Location::RequiresRegister(), overlaps);
Chris Larsen3f8bf652015-10-28 10:08:56 -0700244}
245
Chris Larsen70014c82015-11-18 12:26:08 -0800246static void GenReverse(LocationSummary* locations,
247 Primitive::Type type,
248 bool isR2OrNewer,
249 bool isR6,
250 bool reverseBits,
251 MipsAssembler* assembler) {
Chris Larsen3f8bf652015-10-28 10:08:56 -0700252 DCHECK(type == Primitive::kPrimShort ||
253 type == Primitive::kPrimInt ||
254 type == Primitive::kPrimLong);
Chris Larsen70014c82015-11-18 12:26:08 -0800255 DCHECK(type != Primitive::kPrimShort || !reverseBits);
Chris Larsen3f8bf652015-10-28 10:08:56 -0700256
257 if (type == Primitive::kPrimShort) {
258 Register in = locations->InAt(0).AsRegister<Register>();
259 Register out = locations->Out().AsRegister<Register>();
260
261 if (isR2OrNewer) {
262 __ Wsbh(out, in);
263 __ Seh(out, out);
264 } else {
265 __ Sll(TMP, in, 24);
266 __ Sra(TMP, TMP, 16);
267 __ Sll(out, in, 16);
268 __ Srl(out, out, 24);
269 __ Or(out, out, TMP);
270 }
271 } else if (type == Primitive::kPrimInt) {
272 Register in = locations->InAt(0).AsRegister<Register>();
273 Register out = locations->Out().AsRegister<Register>();
274
275 if (isR2OrNewer) {
276 __ Rotr(out, in, 16);
277 __ Wsbh(out, out);
278 } else {
279 // MIPS32r1
280 // __ Rotr(out, in, 16);
281 __ Sll(TMP, in, 16);
282 __ Srl(out, in, 16);
283 __ Or(out, out, TMP);
284 // __ Wsbh(out, out);
285 __ LoadConst32(AT, 0x00FF00FF);
286 __ And(TMP, out, AT);
287 __ Sll(TMP, TMP, 8);
288 __ Srl(out, out, 8);
289 __ And(out, out, AT);
290 __ Or(out, out, TMP);
291 }
Chris Larsen70014c82015-11-18 12:26:08 -0800292 if (reverseBits) {
293 if (isR6) {
294 __ Bitswap(out, out);
295 } else {
296 __ LoadConst32(AT, 0x0F0F0F0F);
297 __ And(TMP, out, AT);
298 __ Sll(TMP, TMP, 4);
299 __ Srl(out, out, 4);
300 __ And(out, out, AT);
301 __ Or(out, TMP, out);
302 __ LoadConst32(AT, 0x33333333);
303 __ And(TMP, out, AT);
304 __ Sll(TMP, TMP, 2);
305 __ Srl(out, out, 2);
306 __ And(out, out, AT);
307 __ Or(out, TMP, out);
308 __ LoadConst32(AT, 0x55555555);
309 __ And(TMP, out, AT);
310 __ Sll(TMP, TMP, 1);
311 __ Srl(out, out, 1);
312 __ And(out, out, AT);
313 __ Or(out, TMP, out);
314 }
315 }
Chris Larsen3f8bf652015-10-28 10:08:56 -0700316 } else if (type == Primitive::kPrimLong) {
317 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
318 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
319 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
320 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
321
322 if (isR2OrNewer) {
323 __ Rotr(AT, in_hi, 16);
324 __ Rotr(TMP, in_lo, 16);
325 __ Wsbh(out_lo, AT);
326 __ Wsbh(out_hi, TMP);
327 } else {
328 // When calling CreateIntToIntLocations() we promised that the
329 // use of the out_lo/out_hi wouldn't overlap with the use of
330 // in_lo/in_hi. Be very careful not to write to out_lo/out_hi
331 // until we're completely done reading from in_lo/in_hi.
332 // __ Rotr(TMP, in_lo, 16);
333 __ Sll(TMP, in_lo, 16);
334 __ Srl(AT, in_lo, 16);
335 __ Or(TMP, TMP, AT); // Hold in TMP until it's safe
336 // to write to out_hi.
337 // __ Rotr(out_lo, in_hi, 16);
338 __ Sll(AT, in_hi, 16);
339 __ Srl(out_lo, in_hi, 16); // Here we are finally done reading
340 // from in_lo/in_hi so it's okay to
341 // write to out_lo/out_hi.
342 __ Or(out_lo, out_lo, AT);
343 // __ Wsbh(out_hi, out_hi);
344 __ LoadConst32(AT, 0x00FF00FF);
345 __ And(out_hi, TMP, AT);
346 __ Sll(out_hi, out_hi, 8);
347 __ Srl(TMP, TMP, 8);
348 __ And(TMP, TMP, AT);
349 __ Or(out_hi, out_hi, TMP);
350 // __ Wsbh(out_lo, out_lo);
351 __ And(TMP, out_lo, AT); // AT already holds the correct mask value
352 __ Sll(TMP, TMP, 8);
353 __ Srl(out_lo, out_lo, 8);
354 __ And(out_lo, out_lo, AT);
355 __ Or(out_lo, out_lo, TMP);
356 }
Chris Larsen70014c82015-11-18 12:26:08 -0800357 if (reverseBits) {
358 if (isR6) {
359 __ Bitswap(out_hi, out_hi);
360 __ Bitswap(out_lo, out_lo);
361 } else {
362 __ LoadConst32(AT, 0x0F0F0F0F);
363 __ And(TMP, out_hi, AT);
364 __ Sll(TMP, TMP, 4);
365 __ Srl(out_hi, out_hi, 4);
366 __ And(out_hi, out_hi, AT);
367 __ Or(out_hi, TMP, out_hi);
368 __ And(TMP, out_lo, AT);
369 __ Sll(TMP, TMP, 4);
370 __ Srl(out_lo, out_lo, 4);
371 __ And(out_lo, out_lo, AT);
372 __ Or(out_lo, TMP, out_lo);
373 __ LoadConst32(AT, 0x33333333);
374 __ And(TMP, out_hi, AT);
375 __ Sll(TMP, TMP, 2);
376 __ Srl(out_hi, out_hi, 2);
377 __ And(out_hi, out_hi, AT);
378 __ Or(out_hi, TMP, out_hi);
379 __ And(TMP, out_lo, AT);
380 __ Sll(TMP, TMP, 2);
381 __ Srl(out_lo, out_lo, 2);
382 __ And(out_lo, out_lo, AT);
383 __ Or(out_lo, TMP, out_lo);
384 __ LoadConst32(AT, 0x55555555);
385 __ And(TMP, out_hi, AT);
386 __ Sll(TMP, TMP, 1);
387 __ Srl(out_hi, out_hi, 1);
388 __ And(out_hi, out_hi, AT);
389 __ Or(out_hi, TMP, out_hi);
390 __ And(TMP, out_lo, AT);
391 __ Sll(TMP, TMP, 1);
392 __ Srl(out_lo, out_lo, 1);
393 __ And(out_lo, out_lo, AT);
394 __ Or(out_lo, TMP, out_lo);
395 }
396 }
Chris Larsen3f8bf652015-10-28 10:08:56 -0700397 }
398}
399
400// int java.lang.Integer.reverseBytes(int)
401void IntrinsicLocationsBuilderMIPS::VisitIntegerReverseBytes(HInvoke* invoke) {
402 CreateIntToIntLocations(arena_, invoke);
403}
404
405void IntrinsicCodeGeneratorMIPS::VisitIntegerReverseBytes(HInvoke* invoke) {
Chris Larsen70014c82015-11-18 12:26:08 -0800406 GenReverse(invoke->GetLocations(),
407 Primitive::kPrimInt,
Chris Larsene16ce5a2015-11-18 12:30:20 -0800408 IsR2OrNewer(),
409 IsR6(),
Chris Larsenb74353a2015-11-20 09:07:09 -0800410 /* reverseBits */ false,
Chris Larsen70014c82015-11-18 12:26:08 -0800411 GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700412}
413
414// long java.lang.Long.reverseBytes(long)
415void IntrinsicLocationsBuilderMIPS::VisitLongReverseBytes(HInvoke* invoke) {
416 CreateIntToIntLocations(arena_, invoke);
417}
418
419void IntrinsicCodeGeneratorMIPS::VisitLongReverseBytes(HInvoke* invoke) {
Chris Larsen70014c82015-11-18 12:26:08 -0800420 GenReverse(invoke->GetLocations(),
421 Primitive::kPrimLong,
Chris Larsene16ce5a2015-11-18 12:30:20 -0800422 IsR2OrNewer(),
423 IsR6(),
Chris Larsenb74353a2015-11-20 09:07:09 -0800424 /* reverseBits */ false,
Chris Larsen70014c82015-11-18 12:26:08 -0800425 GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700426}
427
428// short java.lang.Short.reverseBytes(short)
429void IntrinsicLocationsBuilderMIPS::VisitShortReverseBytes(HInvoke* invoke) {
430 CreateIntToIntLocations(arena_, invoke);
431}
432
433void IntrinsicCodeGeneratorMIPS::VisitShortReverseBytes(HInvoke* invoke) {
Chris Larsen70014c82015-11-18 12:26:08 -0800434 GenReverse(invoke->GetLocations(),
435 Primitive::kPrimShort,
Chris Larsene16ce5a2015-11-18 12:30:20 -0800436 IsR2OrNewer(),
437 IsR6(),
Chris Larsenb74353a2015-11-20 09:07:09 -0800438 /* reverseBits */ false,
Chris Larsen70014c82015-11-18 12:26:08 -0800439 GetAssembler());
440}
441
Chris Larsene3845472015-11-18 12:27:15 -0800442static void GenNumberOfLeadingZeroes(LocationSummary* locations,
443 bool is64bit,
444 bool isR6,
445 MipsAssembler* assembler) {
446 Register out = locations->Out().AsRegister<Register>();
447 if (is64bit) {
448 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
449 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
450
451 if (isR6) {
452 __ ClzR6(AT, in_hi);
453 __ ClzR6(TMP, in_lo);
454 __ Seleqz(TMP, TMP, in_hi);
455 } else {
456 __ ClzR2(AT, in_hi);
457 __ ClzR2(TMP, in_lo);
458 __ Movn(TMP, ZERO, in_hi);
459 }
460 __ Addu(out, AT, TMP);
461 } else {
462 Register in = locations->InAt(0).AsRegister<Register>();
463
464 if (isR6) {
465 __ ClzR6(out, in);
466 } else {
467 __ ClzR2(out, in);
468 }
469 }
470}
471
472// int java.lang.Integer.numberOfLeadingZeros(int i)
473void IntrinsicLocationsBuilderMIPS::VisitIntegerNumberOfLeadingZeros(HInvoke* invoke) {
474 CreateIntToIntLocations(arena_, invoke);
475}
476
477void IntrinsicCodeGeneratorMIPS::VisitIntegerNumberOfLeadingZeros(HInvoke* invoke) {
Chris Larsenb74353a2015-11-20 09:07:09 -0800478 GenNumberOfLeadingZeroes(invoke->GetLocations(), /* is64bit */ false, IsR6(), GetAssembler());
Chris Larsene3845472015-11-18 12:27:15 -0800479}
480
481// int java.lang.Long.numberOfLeadingZeros(long i)
482void IntrinsicLocationsBuilderMIPS::VisitLongNumberOfLeadingZeros(HInvoke* invoke) {
483 CreateIntToIntLocations(arena_, invoke);
484}
485
486void IntrinsicCodeGeneratorMIPS::VisitLongNumberOfLeadingZeros(HInvoke* invoke) {
Chris Larsenb74353a2015-11-20 09:07:09 -0800487 GenNumberOfLeadingZeroes(invoke->GetLocations(), /* is64bit */ true, IsR6(), GetAssembler());
Chris Larsene3845472015-11-18 12:27:15 -0800488}
489
Chris Larsen86829602015-11-18 12:27:52 -0800490static void GenNumberOfTrailingZeroes(LocationSummary* locations,
491 bool is64bit,
492 bool isR6,
Chris Larsen86829602015-11-18 12:27:52 -0800493 MipsAssembler* assembler) {
494 Register out = locations->Out().AsRegister<Register>();
495 Register in_lo;
496 Register in;
497
498 if (is64bit) {
Chris Larsen86829602015-11-18 12:27:52 -0800499 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
500
501 in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
502
503 // If in_lo is zero then count the number of trailing zeroes in in_hi;
504 // otherwise count the number of trailing zeroes in in_lo.
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800505 // out = in_lo ? in_lo : in_hi;
Chris Larsen86829602015-11-18 12:27:52 -0800506 if (isR6) {
507 __ Seleqz(out, in_hi, in_lo);
508 __ Selnez(TMP, in_lo, in_lo);
509 __ Or(out, out, TMP);
510 } else {
511 __ Movz(out, in_hi, in_lo);
512 __ Movn(out, in_lo, in_lo);
513 }
514
515 in = out;
516 } else {
517 in = locations->InAt(0).AsRegister<Register>();
518 // Give in_lo a dummy value to keep the compiler from complaining.
519 // Since we only get here in the 32-bit case, this value will never
520 // be used.
521 in_lo = in;
522 }
523
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800524 if (isR6) {
525 // We don't have an instruction to count the number of trailing zeroes.
526 // Start by flipping the bits end-for-end so we can count the number of
527 // leading zeroes instead.
Chris Larsen86829602015-11-18 12:27:52 -0800528 __ Rotr(out, in, 16);
529 __ Wsbh(out, out);
Chris Larsen86829602015-11-18 12:27:52 -0800530 __ Bitswap(out, out);
531 __ ClzR6(out, out);
532 } else {
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800533 // Convert trailing zeroes to trailing ones, and bits to their left
534 // to zeroes.
535 __ Addiu(TMP, in, -1);
536 __ Xor(out, TMP, in);
537 __ And(out, out, TMP);
538 // Count number of leading zeroes.
Chris Larsen86829602015-11-18 12:27:52 -0800539 __ ClzR2(out, out);
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800540 // Subtract number of leading zeroes from 32 to get number of trailing ones.
541 // Remember that the trailing ones were formerly trailing zeroes.
542 __ LoadConst32(TMP, 32);
543 __ Subu(out, TMP, out);
Chris Larsen86829602015-11-18 12:27:52 -0800544 }
545
546 if (is64bit) {
547 // If in_lo is zero, then we counted the number of trailing zeroes in in_hi so we must add the
548 // number of trailing zeroes in in_lo (32) to get the correct final count
549 __ LoadConst32(TMP, 32);
550 if (isR6) {
551 __ Seleqz(TMP, TMP, in_lo);
552 } else {
553 __ Movn(TMP, ZERO, in_lo);
554 }
555 __ Addu(out, out, TMP);
556 }
557}
558
559// int java.lang.Integer.numberOfTrailingZeros(int i)
560void IntrinsicLocationsBuilderMIPS::VisitIntegerNumberOfTrailingZeros(HInvoke* invoke) {
561 CreateIntToIntLocations(arena_, invoke, Location::kOutputOverlap);
562}
563
564void IntrinsicCodeGeneratorMIPS::VisitIntegerNumberOfTrailingZeros(HInvoke* invoke) {
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800565 GenNumberOfTrailingZeroes(invoke->GetLocations(), /* is64bit */ false, IsR6(), GetAssembler());
Chris Larsen86829602015-11-18 12:27:52 -0800566}
567
568// int java.lang.Long.numberOfTrailingZeros(long i)
569void IntrinsicLocationsBuilderMIPS::VisitLongNumberOfTrailingZeros(HInvoke* invoke) {
570 CreateIntToIntLocations(arena_, invoke, Location::kOutputOverlap);
571}
572
573void IntrinsicCodeGeneratorMIPS::VisitLongNumberOfTrailingZeros(HInvoke* invoke) {
Chris Larsenbbb2ebe2016-02-17 17:44:58 -0800574 GenNumberOfTrailingZeroes(invoke->GetLocations(), /* is64bit */ true, IsR6(), GetAssembler());
Chris Larsene16ce5a2015-11-18 12:30:20 -0800575}
576
Chris Larsen70014c82015-11-18 12:26:08 -0800577// int java.lang.Integer.reverse(int)
578void IntrinsicLocationsBuilderMIPS::VisitIntegerReverse(HInvoke* invoke) {
579 CreateIntToIntLocations(arena_, invoke);
580}
581
582void IntrinsicCodeGeneratorMIPS::VisitIntegerReverse(HInvoke* invoke) {
583 GenReverse(invoke->GetLocations(),
584 Primitive::kPrimInt,
Chris Larsene16ce5a2015-11-18 12:30:20 -0800585 IsR2OrNewer(),
586 IsR6(),
Chris Larsenb74353a2015-11-20 09:07:09 -0800587 /* reverseBits */ true,
Chris Larsen70014c82015-11-18 12:26:08 -0800588 GetAssembler());
589}
590
591// long java.lang.Long.reverse(long)
592void IntrinsicLocationsBuilderMIPS::VisitLongReverse(HInvoke* invoke) {
593 CreateIntToIntLocations(arena_, invoke);
594}
595
596void IntrinsicCodeGeneratorMIPS::VisitLongReverse(HInvoke* invoke) {
597 GenReverse(invoke->GetLocations(),
598 Primitive::kPrimLong,
Chris Larsene16ce5a2015-11-18 12:30:20 -0800599 IsR2OrNewer(),
600 IsR6(),
Chris Larsenb74353a2015-11-20 09:07:09 -0800601 /* reverseBits */ true,
Chris Larsen70014c82015-11-18 12:26:08 -0800602 GetAssembler());
Chris Larsen3f8bf652015-10-28 10:08:56 -0700603}
604
Chris Larsenb74353a2015-11-20 09:07:09 -0800605static void CreateFPToFPLocations(ArenaAllocator* arena, HInvoke* invoke) {
606 LocationSummary* locations = new (arena) LocationSummary(invoke,
607 LocationSummary::kNoCall,
608 kIntrinsified);
609 locations->SetInAt(0, Location::RequiresFpuRegister());
610 locations->SetOut(Location::RequiresFpuRegister(), Location::kNoOutputOverlap);
611}
612
Chris Larsenedc16452016-02-12 17:59:00 -0800613static void GenBitCount(LocationSummary* locations,
614 Primitive::Type type,
615 bool isR6,
616 MipsAssembler* assembler) {
Chris Larsenedc16452016-02-12 17:59:00 -0800617 Register out = locations->Out().AsRegister<Register>();
618
619 // https://graphics.stanford.edu/~seander/bithacks.html#CountBitsSetParallel
620 //
621 // A generalization of the best bit counting method to integers of
622 // bit-widths up to 128 (parameterized by type T) is this:
623 //
624 // v = v - ((v >> 1) & (T)~(T)0/3); // temp
625 // v = (v & (T)~(T)0/15*3) + ((v >> 2) & (T)~(T)0/15*3); // temp
626 // v = (v + (v >> 4)) & (T)~(T)0/255*15; // temp
627 // c = (T)(v * ((T)~(T)0/255)) >> (sizeof(T) - 1) * BITS_PER_BYTE; // count
628 //
629 // For comparison, for 32-bit quantities, this algorithm can be executed
630 // using 20 MIPS instructions (the calls to LoadConst32() generate two
631 // machine instructions each for the values being used in this algorithm).
632 // A(n unrolled) loop-based algorithm required 25 instructions.
633 //
634 // For 64-bit quantities, this algorithm gets executed twice, (once
635 // for in_lo, and again for in_hi), but saves a few instructions
636 // because the mask values only have to be loaded once. Using this
Chris Larsen8ca4f972016-04-14 16:16:29 -0700637 // algorithm the count for a 64-bit operand can be performed in 29
Chris Larsenedc16452016-02-12 17:59:00 -0800638 // instructions compared to a loop-based algorithm which required 47
639 // instructions.
640
641 if (type == Primitive::kPrimInt) {
642 Register in = locations->InAt(0).AsRegister<Register>();
643
644 __ Srl(TMP, in, 1);
645 __ LoadConst32(AT, 0x55555555);
646 __ And(TMP, TMP, AT);
647 __ Subu(TMP, in, TMP);
648 __ LoadConst32(AT, 0x33333333);
649 __ And(out, TMP, AT);
650 __ Srl(TMP, TMP, 2);
651 __ And(TMP, TMP, AT);
652 __ Addu(TMP, out, TMP);
653 __ Srl(out, TMP, 4);
654 __ Addu(out, out, TMP);
655 __ LoadConst32(AT, 0x0F0F0F0F);
656 __ And(out, out, AT);
657 __ LoadConst32(TMP, 0x01010101);
658 if (isR6) {
659 __ MulR6(out, out, TMP);
660 } else {
661 __ MulR2(out, out, TMP);
662 }
663 __ Srl(out, out, 24);
Roland Levillainfa3912e2016-04-01 18:21:55 +0100664 } else {
665 DCHECK_EQ(type, Primitive::kPrimLong);
Chris Larsenedc16452016-02-12 17:59:00 -0800666 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
667 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
668 Register tmp_hi = locations->GetTemp(0).AsRegister<Register>();
669 Register out_hi = locations->GetTemp(1).AsRegister<Register>();
670 Register tmp_lo = TMP;
671 Register out_lo = out;
672
673 __ Srl(tmp_lo, in_lo, 1);
674 __ Srl(tmp_hi, in_hi, 1);
675
676 __ LoadConst32(AT, 0x55555555);
677
678 __ And(tmp_lo, tmp_lo, AT);
679 __ Subu(tmp_lo, in_lo, tmp_lo);
680
681 __ And(tmp_hi, tmp_hi, AT);
682 __ Subu(tmp_hi, in_hi, tmp_hi);
683
684 __ LoadConst32(AT, 0x33333333);
685
686 __ And(out_lo, tmp_lo, AT);
687 __ Srl(tmp_lo, tmp_lo, 2);
688 __ And(tmp_lo, tmp_lo, AT);
689 __ Addu(tmp_lo, out_lo, tmp_lo);
Chris Larsenedc16452016-02-12 17:59:00 -0800690
691 __ And(out_hi, tmp_hi, AT);
692 __ Srl(tmp_hi, tmp_hi, 2);
693 __ And(tmp_hi, tmp_hi, AT);
694 __ Addu(tmp_hi, out_hi, tmp_hi);
Chris Larsenedc16452016-02-12 17:59:00 -0800695
Chris Larsen8ca4f972016-04-14 16:16:29 -0700696 // Here we deviate from the original algorithm a bit. We've reached
697 // the stage where the bitfields holding the subtotals are large
698 // enough to hold the combined subtotals for both the low word, and
699 // the high word. This means that we can add the subtotals for the
700 // the high, and low words into a single word, and compute the final
701 // result for both the high, and low words using fewer instructions.
Chris Larsenedc16452016-02-12 17:59:00 -0800702 __ LoadConst32(AT, 0x0F0F0F0F);
703
Chris Larsen8ca4f972016-04-14 16:16:29 -0700704 __ Addu(TMP, tmp_hi, tmp_lo);
705
706 __ Srl(out, TMP, 4);
707 __ And(out, out, AT);
708 __ And(TMP, TMP, AT);
709 __ Addu(out, out, TMP);
Chris Larsenedc16452016-02-12 17:59:00 -0800710
711 __ LoadConst32(AT, 0x01010101);
712
713 if (isR6) {
Chris Larsen8ca4f972016-04-14 16:16:29 -0700714 __ MulR6(out, out, AT);
Chris Larsenedc16452016-02-12 17:59:00 -0800715 } else {
Chris Larsen8ca4f972016-04-14 16:16:29 -0700716 __ MulR2(out, out, AT);
Chris Larsenedc16452016-02-12 17:59:00 -0800717 }
718
Chris Larsen8ca4f972016-04-14 16:16:29 -0700719 __ Srl(out, out, 24);
Chris Larsenedc16452016-02-12 17:59:00 -0800720 }
721}
722
723// int java.lang.Integer.bitCount(int)
724void IntrinsicLocationsBuilderMIPS::VisitIntegerBitCount(HInvoke* invoke) {
725 CreateIntToIntLocations(arena_, invoke);
726}
727
728void IntrinsicCodeGeneratorMIPS::VisitIntegerBitCount(HInvoke* invoke) {
729 GenBitCount(invoke->GetLocations(), Primitive::kPrimInt, IsR6(), GetAssembler());
730}
731
732// int java.lang.Long.bitCount(int)
733void IntrinsicLocationsBuilderMIPS::VisitLongBitCount(HInvoke* invoke) {
734 LocationSummary* locations = new (arena_) LocationSummary(invoke,
735 LocationSummary::kNoCall,
736 kIntrinsified);
737 locations->SetInAt(0, Location::RequiresRegister());
738 locations->SetOut(Location::RequiresRegister());
739 locations->AddTemp(Location::RequiresRegister());
740 locations->AddTemp(Location::RequiresRegister());
741}
742
743void IntrinsicCodeGeneratorMIPS::VisitLongBitCount(HInvoke* invoke) {
744 GenBitCount(invoke->GetLocations(), Primitive::kPrimLong, IsR6(), GetAssembler());
745}
746
Goran Jakovljevicb6684652017-01-11 13:42:38 +0100747static void MathAbsFP(LocationSummary* locations,
748 bool is64bit,
749 bool isR2OrNewer,
750 bool isR6,
751 MipsAssembler* assembler) {
Chris Larsenb74353a2015-11-20 09:07:09 -0800752 FRegister in = locations->InAt(0).AsFpuRegister<FRegister>();
753 FRegister out = locations->Out().AsFpuRegister<FRegister>();
754
Goran Jakovljevic5a6cbfc2017-01-13 12:13:39 +0100755 // Note, as a "quality of implementation", rather than pure "spec compliance", we require that
756 // Math.abs() clears the sign bit (but changes nothing else) for all numbers, including NaN
757 // (signaling NaN may become quiet though).
Goran Jakovljevicb6684652017-01-11 13:42:38 +0100758 //
759 // The ABS.fmt instructions (abs.s and abs.d) do exactly that when NAN2008=1 (R6). For this case,
760 // both regular floating point numbers and NAN values are treated alike, only the sign bit is
761 // affected by this instruction.
762 // But when NAN2008=0 (R2 and before), the ABS.fmt instructions can't be used. For this case, any
763 // NaN operand signals invalid operation. This means that other bits (not just sign bit) might be
764 // changed when doing abs(NaN). Because of that, we clear sign bit in a different way.
765 if (isR6) {
766 if (is64bit) {
767 __ AbsD(out, in);
768 } else {
769 __ AbsS(out, in);
770 }
Chris Larsenb74353a2015-11-20 09:07:09 -0800771 } else {
Goran Jakovljevicb6684652017-01-11 13:42:38 +0100772 if (is64bit) {
773 if (in != out) {
774 __ MovD(out, in);
775 }
776 __ MoveFromFpuHigh(TMP, in);
777 // ins instruction is not available for R1.
778 if (isR2OrNewer) {
779 __ Ins(TMP, ZERO, 31, 1);
780 } else {
781 __ Sll(TMP, TMP, 1);
782 __ Srl(TMP, TMP, 1);
783 }
784 __ MoveToFpuHigh(TMP, out);
785 } else {
786 __ Mfc1(TMP, in);
787 // ins instruction is not available for R1.
788 if (isR2OrNewer) {
789 __ Ins(TMP, ZERO, 31, 1);
790 } else {
791 __ Sll(TMP, TMP, 1);
792 __ Srl(TMP, TMP, 1);
793 }
794 __ Mtc1(TMP, out);
795 }
Chris Larsenb74353a2015-11-20 09:07:09 -0800796 }
797}
798
799// double java.lang.Math.abs(double)
800void IntrinsicLocationsBuilderMIPS::VisitMathAbsDouble(HInvoke* invoke) {
801 CreateFPToFPLocations(arena_, invoke);
802}
803
804void IntrinsicCodeGeneratorMIPS::VisitMathAbsDouble(HInvoke* invoke) {
Goran Jakovljevicb6684652017-01-11 13:42:38 +0100805 MathAbsFP(invoke->GetLocations(), /* is64bit */ true, IsR2OrNewer(), IsR6(), GetAssembler());
Chris Larsenb74353a2015-11-20 09:07:09 -0800806}
807
808// float java.lang.Math.abs(float)
809void IntrinsicLocationsBuilderMIPS::VisitMathAbsFloat(HInvoke* invoke) {
810 CreateFPToFPLocations(arena_, invoke);
811}
812
813void IntrinsicCodeGeneratorMIPS::VisitMathAbsFloat(HInvoke* invoke) {
Goran Jakovljevicb6684652017-01-11 13:42:38 +0100814 MathAbsFP(invoke->GetLocations(), /* is64bit */ false, IsR2OrNewer(), IsR6(), GetAssembler());
Chris Larsenb74353a2015-11-20 09:07:09 -0800815}
816
817static void GenAbsInteger(LocationSummary* locations, bool is64bit, MipsAssembler* assembler) {
818 if (is64bit) {
819 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
820 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
821 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
822 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
823
824 // The comments in this section show the analogous operations which would
825 // be performed if we had 64-bit registers "in", and "out".
826 // __ Dsra32(AT, in, 31);
827 __ Sra(AT, in_hi, 31);
828 // __ Xor(out, in, AT);
829 __ Xor(TMP, in_lo, AT);
830 __ Xor(out_hi, in_hi, AT);
831 // __ Dsubu(out, out, AT);
832 __ Subu(out_lo, TMP, AT);
833 __ Sltu(TMP, out_lo, TMP);
834 __ Addu(out_hi, out_hi, TMP);
835 } else {
836 Register in = locations->InAt(0).AsRegister<Register>();
837 Register out = locations->Out().AsRegister<Register>();
838
839 __ Sra(AT, in, 31);
840 __ Xor(out, in, AT);
841 __ Subu(out, out, AT);
842 }
843}
844
845// int java.lang.Math.abs(int)
846void IntrinsicLocationsBuilderMIPS::VisitMathAbsInt(HInvoke* invoke) {
847 CreateIntToIntLocations(arena_, invoke);
848}
849
850void IntrinsicCodeGeneratorMIPS::VisitMathAbsInt(HInvoke* invoke) {
851 GenAbsInteger(invoke->GetLocations(), /* is64bit */ false, GetAssembler());
852}
853
854// long java.lang.Math.abs(long)
855void IntrinsicLocationsBuilderMIPS::VisitMathAbsLong(HInvoke* invoke) {
856 CreateIntToIntLocations(arena_, invoke);
857}
858
859void IntrinsicCodeGeneratorMIPS::VisitMathAbsLong(HInvoke* invoke) {
860 GenAbsInteger(invoke->GetLocations(), /* is64bit */ true, GetAssembler());
861}
862
863static void GenMinMaxFP(LocationSummary* locations,
864 bool is_min,
865 Primitive::Type type,
866 bool is_R6,
867 MipsAssembler* assembler) {
868 FRegister out = locations->Out().AsFpuRegister<FRegister>();
869 FRegister a = locations->InAt(0).AsFpuRegister<FRegister>();
870 FRegister b = locations->InAt(1).AsFpuRegister<FRegister>();
871
872 if (is_R6) {
873 MipsLabel noNaNs;
874 MipsLabel done;
875 FRegister ftmp = ((out != a) && (out != b)) ? out : FTMP;
876
877 // When Java computes min/max it prefers a NaN to a number; the
878 // behavior of MIPSR6 is to prefer numbers to NaNs, i.e., if one of
879 // the inputs is a NaN and the other is a valid number, the MIPS
880 // instruction will return the number; Java wants the NaN value
881 // returned. This is why there is extra logic preceding the use of
882 // the MIPS min.fmt/max.fmt instructions. If either a, or b holds a
883 // NaN, return the NaN, otherwise return the min/max.
884 if (type == Primitive::kPrimDouble) {
885 __ CmpUnD(FTMP, a, b);
886 __ Bc1eqz(FTMP, &noNaNs);
887
888 // One of the inputs is a NaN
889 __ CmpEqD(ftmp, a, a);
890 // If a == a then b is the NaN, otherwise a is the NaN.
891 __ SelD(ftmp, a, b);
892
893 if (ftmp != out) {
894 __ MovD(out, ftmp);
895 }
896
897 __ B(&done);
898
899 __ Bind(&noNaNs);
900
901 if (is_min) {
902 __ MinD(out, a, b);
903 } else {
904 __ MaxD(out, a, b);
905 }
906 } else {
907 DCHECK_EQ(type, Primitive::kPrimFloat);
908 __ CmpUnS(FTMP, a, b);
909 __ Bc1eqz(FTMP, &noNaNs);
910
911 // One of the inputs is a NaN
912 __ CmpEqS(ftmp, a, a);
913 // If a == a then b is the NaN, otherwise a is the NaN.
914 __ SelS(ftmp, a, b);
915
916 if (ftmp != out) {
917 __ MovS(out, ftmp);
918 }
919
920 __ B(&done);
921
922 __ Bind(&noNaNs);
923
924 if (is_min) {
925 __ MinS(out, a, b);
926 } else {
927 __ MaxS(out, a, b);
928 }
929 }
930
931 __ Bind(&done);
932 } else {
933 MipsLabel ordered;
934 MipsLabel compare;
935 MipsLabel select;
936 MipsLabel done;
937
938 if (type == Primitive::kPrimDouble) {
939 __ CunD(a, b);
940 } else {
941 DCHECK_EQ(type, Primitive::kPrimFloat);
942 __ CunS(a, b);
943 }
944 __ Bc1f(&ordered);
945
946 // a or b (or both) is a NaN. Return one, which is a NaN.
947 if (type == Primitive::kPrimDouble) {
948 __ CeqD(b, b);
949 } else {
950 __ CeqS(b, b);
951 }
952 __ B(&select);
953
954 __ Bind(&ordered);
955
956 // Neither is a NaN.
957 // a == b? (-0.0 compares equal with +0.0)
958 // If equal, handle zeroes, else compare further.
959 if (type == Primitive::kPrimDouble) {
960 __ CeqD(a, b);
961 } else {
962 __ CeqS(a, b);
963 }
964 __ Bc1f(&compare);
965
966 // a == b either bit for bit or one is -0.0 and the other is +0.0.
967 if (type == Primitive::kPrimDouble) {
968 __ MoveFromFpuHigh(TMP, a);
969 __ MoveFromFpuHigh(AT, b);
970 } else {
971 __ Mfc1(TMP, a);
972 __ Mfc1(AT, b);
973 }
974
975 if (is_min) {
976 // -0.0 prevails over +0.0.
977 __ Or(TMP, TMP, AT);
978 } else {
979 // +0.0 prevails over -0.0.
980 __ And(TMP, TMP, AT);
981 }
982
983 if (type == Primitive::kPrimDouble) {
984 __ Mfc1(AT, a);
985 __ Mtc1(AT, out);
986 __ MoveToFpuHigh(TMP, out);
987 } else {
988 __ Mtc1(TMP, out);
989 }
990 __ B(&done);
991
992 __ Bind(&compare);
993
994 if (type == Primitive::kPrimDouble) {
995 if (is_min) {
996 // return (a <= b) ? a : b;
997 __ ColeD(a, b);
998 } else {
999 // return (a >= b) ? a : b;
1000 __ ColeD(b, a); // b <= a
1001 }
1002 } else {
1003 if (is_min) {
1004 // return (a <= b) ? a : b;
1005 __ ColeS(a, b);
1006 } else {
1007 // return (a >= b) ? a : b;
1008 __ ColeS(b, a); // b <= a
1009 }
1010 }
1011
1012 __ Bind(&select);
1013
1014 if (type == Primitive::kPrimDouble) {
1015 __ MovtD(out, a);
1016 __ MovfD(out, b);
1017 } else {
1018 __ MovtS(out, a);
1019 __ MovfS(out, b);
1020 }
1021
1022 __ Bind(&done);
1023 }
1024}
1025
1026static void CreateFPFPToFPLocations(ArenaAllocator* arena, HInvoke* invoke) {
1027 LocationSummary* locations = new (arena) LocationSummary(invoke,
1028 LocationSummary::kNoCall,
1029 kIntrinsified);
1030 locations->SetInAt(0, Location::RequiresFpuRegister());
1031 locations->SetInAt(1, Location::RequiresFpuRegister());
1032 locations->SetOut(Location::RequiresFpuRegister(), Location::kOutputOverlap);
1033}
1034
1035// double java.lang.Math.min(double, double)
1036void IntrinsicLocationsBuilderMIPS::VisitMathMinDoubleDouble(HInvoke* invoke) {
1037 CreateFPFPToFPLocations(arena_, invoke);
1038}
1039
1040void IntrinsicCodeGeneratorMIPS::VisitMathMinDoubleDouble(HInvoke* invoke) {
1041 GenMinMaxFP(invoke->GetLocations(),
1042 /* is_min */ true,
1043 Primitive::kPrimDouble,
1044 IsR6(),
1045 GetAssembler());
1046}
1047
1048// float java.lang.Math.min(float, float)
1049void IntrinsicLocationsBuilderMIPS::VisitMathMinFloatFloat(HInvoke* invoke) {
1050 CreateFPFPToFPLocations(arena_, invoke);
1051}
1052
1053void IntrinsicCodeGeneratorMIPS::VisitMathMinFloatFloat(HInvoke* invoke) {
1054 GenMinMaxFP(invoke->GetLocations(),
1055 /* is_min */ true,
1056 Primitive::kPrimFloat,
1057 IsR6(),
1058 GetAssembler());
1059}
1060
1061// double java.lang.Math.max(double, double)
1062void IntrinsicLocationsBuilderMIPS::VisitMathMaxDoubleDouble(HInvoke* invoke) {
1063 CreateFPFPToFPLocations(arena_, invoke);
1064}
1065
1066void IntrinsicCodeGeneratorMIPS::VisitMathMaxDoubleDouble(HInvoke* invoke) {
1067 GenMinMaxFP(invoke->GetLocations(),
1068 /* is_min */ false,
1069 Primitive::kPrimDouble,
1070 IsR6(),
1071 GetAssembler());
1072}
1073
1074// float java.lang.Math.max(float, float)
1075void IntrinsicLocationsBuilderMIPS::VisitMathMaxFloatFloat(HInvoke* invoke) {
1076 CreateFPFPToFPLocations(arena_, invoke);
1077}
1078
1079void IntrinsicCodeGeneratorMIPS::VisitMathMaxFloatFloat(HInvoke* invoke) {
1080 GenMinMaxFP(invoke->GetLocations(),
1081 /* is_min */ false,
1082 Primitive::kPrimFloat,
1083 IsR6(),
1084 GetAssembler());
1085}
1086
1087static void CreateIntIntToIntLocations(ArenaAllocator* arena, HInvoke* invoke) {
1088 LocationSummary* locations = new (arena) LocationSummary(invoke,
1089 LocationSummary::kNoCall,
1090 kIntrinsified);
1091 locations->SetInAt(0, Location::RequiresRegister());
1092 locations->SetInAt(1, Location::RequiresRegister());
1093 locations->SetOut(Location::RequiresRegister(), Location::kNoOutputOverlap);
1094}
1095
1096static void GenMinMax(LocationSummary* locations,
1097 bool is_min,
1098 Primitive::Type type,
1099 bool is_R6,
1100 MipsAssembler* assembler) {
1101 if (is_R6) {
1102 // Some architectures, such as ARM and MIPS (prior to r6), have a
1103 // conditional move instruction which only changes the target
1104 // (output) register if the condition is true (MIPS prior to r6 had
1105 // MOVF, MOVT, MOVN, and MOVZ). The SELEQZ and SELNEZ instructions
1106 // always change the target (output) register. If the condition is
1107 // true the output register gets the contents of the "rs" register;
1108 // otherwise, the output register is set to zero. One consequence
1109 // of this is that to implement something like "rd = c==0 ? rs : rt"
1110 // MIPS64r6 needs to use a pair of SELEQZ/SELNEZ instructions.
1111 // After executing this pair of instructions one of the output
1112 // registers from the pair will necessarily contain zero. Then the
1113 // code ORs the output registers from the SELEQZ/SELNEZ instructions
1114 // to get the final result.
1115 //
1116 // The initial test to see if the output register is same as the
1117 // first input register is needed to make sure that value in the
1118 // first input register isn't clobbered before we've finished
1119 // computing the output value. The logic in the corresponding else
1120 // clause performs the same task but makes sure the second input
1121 // register isn't clobbered in the event that it's the same register
1122 // as the output register; the else clause also handles the case
1123 // where the output register is distinct from both the first, and the
1124 // second input registers.
1125 if (type == Primitive::kPrimLong) {
1126 Register a_lo = locations->InAt(0).AsRegisterPairLow<Register>();
1127 Register a_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
1128 Register b_lo = locations->InAt(1).AsRegisterPairLow<Register>();
1129 Register b_hi = locations->InAt(1).AsRegisterPairHigh<Register>();
1130 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
1131 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
1132
1133 MipsLabel compare_done;
1134
1135 if (a_lo == b_lo) {
1136 if (out_lo != a_lo) {
1137 __ Move(out_lo, a_lo);
1138 __ Move(out_hi, a_hi);
1139 }
1140 } else {
1141 __ Slt(TMP, b_hi, a_hi);
1142 __ Bne(b_hi, a_hi, &compare_done);
1143
1144 __ Sltu(TMP, b_lo, a_lo);
1145
1146 __ Bind(&compare_done);
1147
1148 if (is_min) {
1149 __ Seleqz(AT, a_lo, TMP);
1150 __ Selnez(out_lo, b_lo, TMP); // Safe even if out_lo == a_lo/b_lo
1151 // because at this point we're
1152 // done using a_lo/b_lo.
1153 } else {
1154 __ Selnez(AT, a_lo, TMP);
1155 __ Seleqz(out_lo, b_lo, TMP); // ditto
1156 }
1157 __ Or(out_lo, out_lo, AT);
1158 if (is_min) {
1159 __ Seleqz(AT, a_hi, TMP);
1160 __ Selnez(out_hi, b_hi, TMP); // ditto but for out_hi & a_hi/b_hi
1161 } else {
1162 __ Selnez(AT, a_hi, TMP);
1163 __ Seleqz(out_hi, b_hi, TMP); // ditto but for out_hi & a_hi/b_hi
1164 }
1165 __ Or(out_hi, out_hi, AT);
1166 }
1167 } else {
1168 DCHECK_EQ(type, Primitive::kPrimInt);
1169 Register a = locations->InAt(0).AsRegister<Register>();
1170 Register b = locations->InAt(1).AsRegister<Register>();
1171 Register out = locations->Out().AsRegister<Register>();
1172
1173 if (a == b) {
1174 if (out != a) {
1175 __ Move(out, a);
1176 }
1177 } else {
1178 __ Slt(AT, b, a);
1179 if (is_min) {
1180 __ Seleqz(TMP, a, AT);
1181 __ Selnez(AT, b, AT);
1182 } else {
1183 __ Selnez(TMP, a, AT);
1184 __ Seleqz(AT, b, AT);
1185 }
1186 __ Or(out, TMP, AT);
1187 }
1188 }
1189 } else {
1190 if (type == Primitive::kPrimLong) {
1191 Register a_lo = locations->InAt(0).AsRegisterPairLow<Register>();
1192 Register a_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
1193 Register b_lo = locations->InAt(1).AsRegisterPairLow<Register>();
1194 Register b_hi = locations->InAt(1).AsRegisterPairHigh<Register>();
1195 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
1196 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
1197
1198 MipsLabel compare_done;
1199
1200 if (a_lo == b_lo) {
1201 if (out_lo != a_lo) {
1202 __ Move(out_lo, a_lo);
1203 __ Move(out_hi, a_hi);
1204 }
1205 } else {
1206 __ Slt(TMP, a_hi, b_hi);
1207 __ Bne(a_hi, b_hi, &compare_done);
1208
1209 __ Sltu(TMP, a_lo, b_lo);
1210
1211 __ Bind(&compare_done);
1212
1213 if (is_min) {
1214 if (out_lo != a_lo) {
1215 __ Movn(out_hi, a_hi, TMP);
1216 __ Movn(out_lo, a_lo, TMP);
1217 }
1218 if (out_lo != b_lo) {
1219 __ Movz(out_hi, b_hi, TMP);
1220 __ Movz(out_lo, b_lo, TMP);
1221 }
1222 } else {
1223 if (out_lo != a_lo) {
1224 __ Movz(out_hi, a_hi, TMP);
1225 __ Movz(out_lo, a_lo, TMP);
1226 }
1227 if (out_lo != b_lo) {
1228 __ Movn(out_hi, b_hi, TMP);
1229 __ Movn(out_lo, b_lo, TMP);
1230 }
1231 }
1232 }
1233 } else {
1234 DCHECK_EQ(type, Primitive::kPrimInt);
1235 Register a = locations->InAt(0).AsRegister<Register>();
1236 Register b = locations->InAt(1).AsRegister<Register>();
1237 Register out = locations->Out().AsRegister<Register>();
1238
1239 if (a == b) {
1240 if (out != a) {
1241 __ Move(out, a);
1242 }
1243 } else {
1244 __ Slt(AT, a, b);
1245 if (is_min) {
1246 if (out != a) {
1247 __ Movn(out, a, AT);
1248 }
1249 if (out != b) {
1250 __ Movz(out, b, AT);
1251 }
1252 } else {
1253 if (out != a) {
1254 __ Movz(out, a, AT);
1255 }
1256 if (out != b) {
1257 __ Movn(out, b, AT);
1258 }
1259 }
1260 }
1261 }
1262 }
1263}
1264
1265// int java.lang.Math.min(int, int)
1266void IntrinsicLocationsBuilderMIPS::VisitMathMinIntInt(HInvoke* invoke) {
1267 CreateIntIntToIntLocations(arena_, invoke);
1268}
1269
1270void IntrinsicCodeGeneratorMIPS::VisitMathMinIntInt(HInvoke* invoke) {
1271 GenMinMax(invoke->GetLocations(),
1272 /* is_min */ true,
1273 Primitive::kPrimInt,
1274 IsR6(),
1275 GetAssembler());
1276}
1277
1278// long java.lang.Math.min(long, long)
1279void IntrinsicLocationsBuilderMIPS::VisitMathMinLongLong(HInvoke* invoke) {
1280 CreateIntIntToIntLocations(arena_, invoke);
1281}
1282
1283void IntrinsicCodeGeneratorMIPS::VisitMathMinLongLong(HInvoke* invoke) {
1284 GenMinMax(invoke->GetLocations(),
1285 /* is_min */ true,
1286 Primitive::kPrimLong,
1287 IsR6(),
1288 GetAssembler());
1289}
1290
1291// int java.lang.Math.max(int, int)
1292void IntrinsicLocationsBuilderMIPS::VisitMathMaxIntInt(HInvoke* invoke) {
1293 CreateIntIntToIntLocations(arena_, invoke);
1294}
1295
1296void IntrinsicCodeGeneratorMIPS::VisitMathMaxIntInt(HInvoke* invoke) {
1297 GenMinMax(invoke->GetLocations(),
1298 /* is_min */ false,
1299 Primitive::kPrimInt,
1300 IsR6(),
1301 GetAssembler());
1302}
1303
1304// long java.lang.Math.max(long, long)
1305void IntrinsicLocationsBuilderMIPS::VisitMathMaxLongLong(HInvoke* invoke) {
1306 CreateIntIntToIntLocations(arena_, invoke);
1307}
1308
1309void IntrinsicCodeGeneratorMIPS::VisitMathMaxLongLong(HInvoke* invoke) {
1310 GenMinMax(invoke->GetLocations(),
1311 /* is_min */ false,
1312 Primitive::kPrimLong,
1313 IsR6(),
1314 GetAssembler());
1315}
1316
1317// double java.lang.Math.sqrt(double)
1318void IntrinsicLocationsBuilderMIPS::VisitMathSqrt(HInvoke* invoke) {
1319 CreateFPToFPLocations(arena_, invoke);
1320}
1321
1322void IntrinsicCodeGeneratorMIPS::VisitMathSqrt(HInvoke* invoke) {
1323 LocationSummary* locations = invoke->GetLocations();
1324 MipsAssembler* assembler = GetAssembler();
1325 FRegister in = locations->InAt(0).AsFpuRegister<FRegister>();
1326 FRegister out = locations->Out().AsFpuRegister<FRegister>();
1327
1328 __ SqrtD(out, in);
1329}
1330
Chris Larsen3acee732015-11-18 13:31:08 -08001331// byte libcore.io.Memory.peekByte(long address)
1332void IntrinsicLocationsBuilderMIPS::VisitMemoryPeekByte(HInvoke* invoke) {
1333 CreateIntToIntLocations(arena_, invoke);
1334}
1335
1336void IntrinsicCodeGeneratorMIPS::VisitMemoryPeekByte(HInvoke* invoke) {
1337 MipsAssembler* assembler = GetAssembler();
1338 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1339 Register out = invoke->GetLocations()->Out().AsRegister<Register>();
1340
1341 __ Lb(out, adr, 0);
1342}
1343
1344// short libcore.io.Memory.peekShort(long address)
1345void IntrinsicLocationsBuilderMIPS::VisitMemoryPeekShortNative(HInvoke* invoke) {
1346 CreateIntToIntLocations(arena_, invoke);
1347}
1348
1349void IntrinsicCodeGeneratorMIPS::VisitMemoryPeekShortNative(HInvoke* invoke) {
1350 MipsAssembler* assembler = GetAssembler();
1351 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1352 Register out = invoke->GetLocations()->Out().AsRegister<Register>();
1353
1354 if (IsR6()) {
1355 __ Lh(out, adr, 0);
1356 } else if (IsR2OrNewer()) {
1357 // Unlike for words, there are no lhl/lhr instructions to load
1358 // unaligned halfwords so the code loads individual bytes, in case
1359 // the address isn't halfword-aligned, and assembles them into a
1360 // signed halfword.
1361 __ Lb(AT, adr, 1); // This byte must be sign-extended.
1362 __ Lb(out, adr, 0); // This byte can be either sign-extended, or
1363 // zero-extended because the following
1364 // instruction overwrites the sign bits.
1365 __ Ins(out, AT, 8, 24);
1366 } else {
1367 __ Lbu(AT, adr, 0); // This byte must be zero-extended. If it's not
1368 // the "or" instruction below will destroy the upper
1369 // 24 bits of the final result.
1370 __ Lb(out, adr, 1); // This byte must be sign-extended.
1371 __ Sll(out, out, 8);
1372 __ Or(out, out, AT);
1373 }
1374}
1375
1376// int libcore.io.Memory.peekInt(long address)
1377void IntrinsicLocationsBuilderMIPS::VisitMemoryPeekIntNative(HInvoke* invoke) {
1378 CreateIntToIntLocations(arena_, invoke, Location::kOutputOverlap);
1379}
1380
1381void IntrinsicCodeGeneratorMIPS::VisitMemoryPeekIntNative(HInvoke* invoke) {
1382 MipsAssembler* assembler = GetAssembler();
1383 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1384 Register out = invoke->GetLocations()->Out().AsRegister<Register>();
1385
1386 if (IsR6()) {
1387 __ Lw(out, adr, 0);
1388 } else {
1389 __ Lwr(out, adr, 0);
1390 __ Lwl(out, adr, 3);
1391 }
1392}
1393
1394// long libcore.io.Memory.peekLong(long address)
1395void IntrinsicLocationsBuilderMIPS::VisitMemoryPeekLongNative(HInvoke* invoke) {
1396 CreateIntToIntLocations(arena_, invoke, Location::kOutputOverlap);
1397}
1398
1399void IntrinsicCodeGeneratorMIPS::VisitMemoryPeekLongNative(HInvoke* invoke) {
1400 MipsAssembler* assembler = GetAssembler();
1401 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1402 Register out_lo = invoke->GetLocations()->Out().AsRegisterPairLow<Register>();
1403 Register out_hi = invoke->GetLocations()->Out().AsRegisterPairHigh<Register>();
1404
1405 if (IsR6()) {
1406 __ Lw(out_lo, adr, 0);
1407 __ Lw(out_hi, adr, 4);
1408 } else {
1409 __ Lwr(out_lo, adr, 0);
1410 __ Lwl(out_lo, adr, 3);
1411 __ Lwr(out_hi, adr, 4);
1412 __ Lwl(out_hi, adr, 7);
1413 }
1414}
1415
1416static void CreateIntIntToVoidLocations(ArenaAllocator* arena, HInvoke* invoke) {
1417 LocationSummary* locations = new (arena) LocationSummary(invoke,
1418 LocationSummary::kNoCall,
1419 kIntrinsified);
1420 locations->SetInAt(0, Location::RequiresRegister());
1421 locations->SetInAt(1, Location::RequiresRegister());
1422}
1423
1424// void libcore.io.Memory.pokeByte(long address, byte value)
1425void IntrinsicLocationsBuilderMIPS::VisitMemoryPokeByte(HInvoke* invoke) {
1426 CreateIntIntToVoidLocations(arena_, invoke);
1427}
1428
1429void IntrinsicCodeGeneratorMIPS::VisitMemoryPokeByte(HInvoke* invoke) {
1430 MipsAssembler* assembler = GetAssembler();
1431 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1432 Register val = invoke->GetLocations()->InAt(1).AsRegister<Register>();
1433
1434 __ Sb(val, adr, 0);
1435}
1436
1437// void libcore.io.Memory.pokeShort(long address, short value)
1438void IntrinsicLocationsBuilderMIPS::VisitMemoryPokeShortNative(HInvoke* invoke) {
1439 CreateIntIntToVoidLocations(arena_, invoke);
1440}
1441
1442void IntrinsicCodeGeneratorMIPS::VisitMemoryPokeShortNative(HInvoke* invoke) {
1443 MipsAssembler* assembler = GetAssembler();
1444 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1445 Register val = invoke->GetLocations()->InAt(1).AsRegister<Register>();
1446
1447 if (IsR6()) {
1448 __ Sh(val, adr, 0);
1449 } else {
1450 // Unlike for words, there are no shl/shr instructions to store
1451 // unaligned halfwords so the code stores individual bytes, in case
1452 // the address isn't halfword-aligned.
1453 __ Sb(val, adr, 0);
1454 __ Srl(AT, val, 8);
1455 __ Sb(AT, adr, 1);
1456 }
1457}
1458
1459// void libcore.io.Memory.pokeInt(long address, int value)
1460void IntrinsicLocationsBuilderMIPS::VisitMemoryPokeIntNative(HInvoke* invoke) {
1461 CreateIntIntToVoidLocations(arena_, invoke);
1462}
1463
1464void IntrinsicCodeGeneratorMIPS::VisitMemoryPokeIntNative(HInvoke* invoke) {
1465 MipsAssembler* assembler = GetAssembler();
1466 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1467 Register val = invoke->GetLocations()->InAt(1).AsRegister<Register>();
1468
1469 if (IsR6()) {
1470 __ Sw(val, adr, 0);
1471 } else {
1472 __ Swr(val, adr, 0);
1473 __ Swl(val, adr, 3);
1474 }
1475}
1476
1477// void libcore.io.Memory.pokeLong(long address, long value)
1478void IntrinsicLocationsBuilderMIPS::VisitMemoryPokeLongNative(HInvoke* invoke) {
1479 CreateIntIntToVoidLocations(arena_, invoke);
1480}
1481
1482void IntrinsicCodeGeneratorMIPS::VisitMemoryPokeLongNative(HInvoke* invoke) {
1483 MipsAssembler* assembler = GetAssembler();
1484 Register adr = invoke->GetLocations()->InAt(0).AsRegisterPairLow<Register>();
1485 Register val_lo = invoke->GetLocations()->InAt(1).AsRegisterPairLow<Register>();
1486 Register val_hi = invoke->GetLocations()->InAt(1).AsRegisterPairHigh<Register>();
1487
1488 if (IsR6()) {
1489 __ Sw(val_lo, adr, 0);
1490 __ Sw(val_hi, adr, 4);
1491 } else {
1492 __ Swr(val_lo, adr, 0);
1493 __ Swl(val_lo, adr, 3);
1494 __ Swr(val_hi, adr, 4);
1495 __ Swl(val_hi, adr, 7);
1496 }
1497}
1498
Chris Larsencf283da2016-01-19 16:45:35 -08001499// Thread java.lang.Thread.currentThread()
1500void IntrinsicLocationsBuilderMIPS::VisitThreadCurrentThread(HInvoke* invoke) {
1501 LocationSummary* locations = new (arena_) LocationSummary(invoke,
1502 LocationSummary::kNoCall,
1503 kIntrinsified);
1504 locations->SetOut(Location::RequiresRegister());
1505}
1506
1507void IntrinsicCodeGeneratorMIPS::VisitThreadCurrentThread(HInvoke* invoke) {
1508 MipsAssembler* assembler = GetAssembler();
1509 Register out = invoke->GetLocations()->Out().AsRegister<Register>();
1510
1511 __ LoadFromOffset(kLoadWord,
1512 out,
1513 TR,
1514 Thread::PeerOffset<kMipsPointerSize>().Int32Value());
1515}
1516
Chris Larsen4fdc6d92015-12-14 13:26:14 -08001517static void CreateIntIntIntToIntLocations(ArenaAllocator* arena, HInvoke* invoke) {
1518 bool can_call =
1519 invoke->GetIntrinsic() == Intrinsics::kUnsafeGetObject ||
1520 invoke->GetIntrinsic() == Intrinsics::kUnsafeGetObjectVolatile;
1521 LocationSummary* locations = new (arena) LocationSummary(invoke,
1522 can_call ?
1523 LocationSummary::kCallOnSlowPath :
1524 LocationSummary::kNoCall,
1525 kIntrinsified);
1526 locations->SetInAt(0, Location::NoLocation()); // Unused receiver.
1527 locations->SetInAt(1, Location::RequiresRegister());
1528 locations->SetInAt(2, Location::RequiresRegister());
1529 locations->SetOut(Location::RequiresRegister(), Location::kNoOutputOverlap);
1530}
1531
1532static void GenUnsafeGet(HInvoke* invoke,
1533 Primitive::Type type,
1534 bool is_volatile,
1535 bool is_R6,
1536 CodeGeneratorMIPS* codegen) {
1537 LocationSummary* locations = invoke->GetLocations();
1538 DCHECK((type == Primitive::kPrimInt) ||
1539 (type == Primitive::kPrimLong) ||
1540 (type == Primitive::kPrimNot)) << type;
1541 MipsAssembler* assembler = codegen->GetAssembler();
1542 // Object pointer.
1543 Register base = locations->InAt(1).AsRegister<Register>();
1544 // The "offset" argument is passed as a "long". Since this code is for
1545 // a 32-bit processor, we can only use 32-bit addresses, so we only
1546 // need the low 32-bits of offset.
1547 Register offset_lo = invoke->GetLocations()->InAt(2).AsRegisterPairLow<Register>();
1548
1549 __ Addu(TMP, base, offset_lo);
1550 if (is_volatile) {
1551 __ Sync(0);
1552 }
1553 if (type == Primitive::kPrimLong) {
1554 Register trg_lo = locations->Out().AsRegisterPairLow<Register>();
1555 Register trg_hi = locations->Out().AsRegisterPairHigh<Register>();
1556
1557 if (is_R6) {
1558 __ Lw(trg_lo, TMP, 0);
1559 __ Lw(trg_hi, TMP, 4);
1560 } else {
1561 __ Lwr(trg_lo, TMP, 0);
1562 __ Lwl(trg_lo, TMP, 3);
1563 __ Lwr(trg_hi, TMP, 4);
1564 __ Lwl(trg_hi, TMP, 7);
1565 }
1566 } else {
1567 Register trg = locations->Out().AsRegister<Register>();
1568
1569 if (is_R6) {
1570 __ Lw(trg, TMP, 0);
1571 } else {
1572 __ Lwr(trg, TMP, 0);
1573 __ Lwl(trg, TMP, 3);
1574 }
Alexey Frunzec061de12017-02-14 13:27:23 -08001575
1576 if (type == Primitive::kPrimNot) {
1577 __ MaybeUnpoisonHeapReference(trg);
1578 }
Chris Larsen4fdc6d92015-12-14 13:26:14 -08001579 }
1580}
1581
1582// int sun.misc.Unsafe.getInt(Object o, long offset)
1583void IntrinsicLocationsBuilderMIPS::VisitUnsafeGet(HInvoke* invoke) {
1584 CreateIntIntIntToIntLocations(arena_, invoke);
1585}
1586
1587void IntrinsicCodeGeneratorMIPS::VisitUnsafeGet(HInvoke* invoke) {
1588 GenUnsafeGet(invoke, Primitive::kPrimInt, /* is_volatile */ false, IsR6(), codegen_);
1589}
1590
1591// int sun.misc.Unsafe.getIntVolatile(Object o, long offset)
1592void IntrinsicLocationsBuilderMIPS::VisitUnsafeGetVolatile(HInvoke* invoke) {
1593 CreateIntIntIntToIntLocations(arena_, invoke);
1594}
1595
1596void IntrinsicCodeGeneratorMIPS::VisitUnsafeGetVolatile(HInvoke* invoke) {
1597 GenUnsafeGet(invoke, Primitive::kPrimInt, /* is_volatile */ true, IsR6(), codegen_);
1598}
1599
1600// long sun.misc.Unsafe.getLong(Object o, long offset)
1601void IntrinsicLocationsBuilderMIPS::VisitUnsafeGetLong(HInvoke* invoke) {
1602 CreateIntIntIntToIntLocations(arena_, invoke);
1603}
1604
1605void IntrinsicCodeGeneratorMIPS::VisitUnsafeGetLong(HInvoke* invoke) {
1606 GenUnsafeGet(invoke, Primitive::kPrimLong, /* is_volatile */ false, IsR6(), codegen_);
1607}
1608
1609// long sun.misc.Unsafe.getLongVolatile(Object o, long offset)
1610void IntrinsicLocationsBuilderMIPS::VisitUnsafeGetLongVolatile(HInvoke* invoke) {
1611 CreateIntIntIntToIntLocations(arena_, invoke);
1612}
1613
1614void IntrinsicCodeGeneratorMIPS::VisitUnsafeGetLongVolatile(HInvoke* invoke) {
1615 GenUnsafeGet(invoke, Primitive::kPrimLong, /* is_volatile */ true, IsR6(), codegen_);
1616}
1617
1618// Object sun.misc.Unsafe.getObject(Object o, long offset)
1619void IntrinsicLocationsBuilderMIPS::VisitUnsafeGetObject(HInvoke* invoke) {
1620 CreateIntIntIntToIntLocations(arena_, invoke);
1621}
1622
1623void IntrinsicCodeGeneratorMIPS::VisitUnsafeGetObject(HInvoke* invoke) {
1624 GenUnsafeGet(invoke, Primitive::kPrimNot, /* is_volatile */ false, IsR6(), codegen_);
1625}
1626
1627// Object sun.misc.Unsafe.getObjectVolatile(Object o, long offset)
1628void IntrinsicLocationsBuilderMIPS::VisitUnsafeGetObjectVolatile(HInvoke* invoke) {
1629 CreateIntIntIntToIntLocations(arena_, invoke);
1630}
1631
1632void IntrinsicCodeGeneratorMIPS::VisitUnsafeGetObjectVolatile(HInvoke* invoke) {
1633 GenUnsafeGet(invoke, Primitive::kPrimNot, /* is_volatile */ true, IsR6(), codegen_);
1634}
1635
1636static void CreateIntIntIntIntToVoidLocations(ArenaAllocator* arena, HInvoke* invoke) {
1637 LocationSummary* locations = new (arena) LocationSummary(invoke,
1638 LocationSummary::kNoCall,
1639 kIntrinsified);
1640 locations->SetInAt(0, Location::NoLocation()); // Unused receiver.
1641 locations->SetInAt(1, Location::RequiresRegister());
1642 locations->SetInAt(2, Location::RequiresRegister());
1643 locations->SetInAt(3, Location::RequiresRegister());
1644}
1645
1646static void GenUnsafePut(LocationSummary* locations,
1647 Primitive::Type type,
1648 bool is_volatile,
1649 bool is_ordered,
1650 bool is_R6,
1651 CodeGeneratorMIPS* codegen) {
1652 DCHECK((type == Primitive::kPrimInt) ||
1653 (type == Primitive::kPrimLong) ||
1654 (type == Primitive::kPrimNot)) << type;
1655 MipsAssembler* assembler = codegen->GetAssembler();
1656 // Object pointer.
1657 Register base = locations->InAt(1).AsRegister<Register>();
1658 // The "offset" argument is passed as a "long", i.e., it's 64-bits in
1659 // size. Since this code is for a 32-bit processor, we can only use
1660 // 32-bit addresses, so we only need the low 32-bits of offset.
1661 Register offset_lo = locations->InAt(2).AsRegisterPairLow<Register>();
1662
1663 __ Addu(TMP, base, offset_lo);
1664 if (is_volatile || is_ordered) {
1665 __ Sync(0);
1666 }
1667 if ((type == Primitive::kPrimInt) || (type == Primitive::kPrimNot)) {
1668 Register value = locations->InAt(3).AsRegister<Register>();
1669
Alexey Frunzec061de12017-02-14 13:27:23 -08001670 if (kPoisonHeapReferences && type == Primitive::kPrimNot) {
1671 __ PoisonHeapReference(AT, value);
1672 value = AT;
1673 }
1674
Chris Larsen4fdc6d92015-12-14 13:26:14 -08001675 if (is_R6) {
1676 __ Sw(value, TMP, 0);
1677 } else {
1678 __ Swr(value, TMP, 0);
1679 __ Swl(value, TMP, 3);
1680 }
1681 } else {
1682 Register value_lo = locations->InAt(3).AsRegisterPairLow<Register>();
1683 Register value_hi = locations->InAt(3).AsRegisterPairHigh<Register>();
1684
1685 if (is_R6) {
1686 __ Sw(value_lo, TMP, 0);
1687 __ Sw(value_hi, TMP, 4);
1688 } else {
1689 __ Swr(value_lo, TMP, 0);
1690 __ Swl(value_lo, TMP, 3);
1691 __ Swr(value_hi, TMP, 4);
1692 __ Swl(value_hi, TMP, 7);
1693 }
1694 }
1695
1696 if (is_volatile) {
1697 __ Sync(0);
1698 }
1699
1700 if (type == Primitive::kPrimNot) {
Goran Jakovljevice114da22016-12-26 14:21:43 +01001701 bool value_can_be_null = true; // TODO: Worth finding out this information?
1702 codegen->MarkGCCard(base, locations->InAt(3).AsRegister<Register>(), value_can_be_null);
Chris Larsen4fdc6d92015-12-14 13:26:14 -08001703 }
1704}
1705
1706// void sun.misc.Unsafe.putInt(Object o, long offset, int x)
1707void IntrinsicLocationsBuilderMIPS::VisitUnsafePut(HInvoke* invoke) {
1708 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1709}
1710
1711void IntrinsicCodeGeneratorMIPS::VisitUnsafePut(HInvoke* invoke) {
1712 GenUnsafePut(invoke->GetLocations(),
1713 Primitive::kPrimInt,
1714 /* is_volatile */ false,
1715 /* is_ordered */ false,
1716 IsR6(),
1717 codegen_);
1718}
1719
1720// void sun.misc.Unsafe.putOrderedInt(Object o, long offset, int x)
1721void IntrinsicLocationsBuilderMIPS::VisitUnsafePutOrdered(HInvoke* invoke) {
1722 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1723}
1724
1725void IntrinsicCodeGeneratorMIPS::VisitUnsafePutOrdered(HInvoke* invoke) {
1726 GenUnsafePut(invoke->GetLocations(),
1727 Primitive::kPrimInt,
1728 /* is_volatile */ false,
1729 /* is_ordered */ true,
1730 IsR6(),
1731 codegen_);
1732}
1733
1734// void sun.misc.Unsafe.putIntVolatile(Object o, long offset, int x)
1735void IntrinsicLocationsBuilderMIPS::VisitUnsafePutVolatile(HInvoke* invoke) {
1736 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1737}
1738
1739void IntrinsicCodeGeneratorMIPS::VisitUnsafePutVolatile(HInvoke* invoke) {
1740 GenUnsafePut(invoke->GetLocations(),
1741 Primitive::kPrimInt,
1742 /* is_volatile */ true,
1743 /* is_ordered */ false,
1744 IsR6(),
1745 codegen_);
1746}
1747
1748// void sun.misc.Unsafe.putObject(Object o, long offset, Object x)
1749void IntrinsicLocationsBuilderMIPS::VisitUnsafePutObject(HInvoke* invoke) {
1750 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1751}
1752
1753void IntrinsicCodeGeneratorMIPS::VisitUnsafePutObject(HInvoke* invoke) {
1754 GenUnsafePut(invoke->GetLocations(),
1755 Primitive::kPrimNot,
1756 /* is_volatile */ false,
1757 /* is_ordered */ false,
1758 IsR6(),
1759 codegen_);
1760}
1761
1762// void sun.misc.Unsafe.putOrderedObject(Object o, long offset, Object x)
1763void IntrinsicLocationsBuilderMIPS::VisitUnsafePutObjectOrdered(HInvoke* invoke) {
1764 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1765}
1766
1767void IntrinsicCodeGeneratorMIPS::VisitUnsafePutObjectOrdered(HInvoke* invoke) {
1768 GenUnsafePut(invoke->GetLocations(),
1769 Primitive::kPrimNot,
1770 /* is_volatile */ false,
1771 /* is_ordered */ true,
1772 IsR6(),
1773 codegen_);
1774}
1775
1776// void sun.misc.Unsafe.putObjectVolatile(Object o, long offset, Object x)
1777void IntrinsicLocationsBuilderMIPS::VisitUnsafePutObjectVolatile(HInvoke* invoke) {
1778 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1779}
1780
1781void IntrinsicCodeGeneratorMIPS::VisitUnsafePutObjectVolatile(HInvoke* invoke) {
1782 GenUnsafePut(invoke->GetLocations(),
1783 Primitive::kPrimNot,
1784 /* is_volatile */ true,
1785 /* is_ordered */ false,
1786 IsR6(),
1787 codegen_);
1788}
1789
1790// void sun.misc.Unsafe.putLong(Object o, long offset, long x)
1791void IntrinsicLocationsBuilderMIPS::VisitUnsafePutLong(HInvoke* invoke) {
1792 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1793}
1794
1795void IntrinsicCodeGeneratorMIPS::VisitUnsafePutLong(HInvoke* invoke) {
1796 GenUnsafePut(invoke->GetLocations(),
1797 Primitive::kPrimLong,
1798 /* is_volatile */ false,
1799 /* is_ordered */ false,
1800 IsR6(),
1801 codegen_);
1802}
1803
1804// void sun.misc.Unsafe.putOrderedLong(Object o, long offset, long x)
1805void IntrinsicLocationsBuilderMIPS::VisitUnsafePutLongOrdered(HInvoke* invoke) {
1806 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1807}
1808
1809void IntrinsicCodeGeneratorMIPS::VisitUnsafePutLongOrdered(HInvoke* invoke) {
1810 GenUnsafePut(invoke->GetLocations(),
1811 Primitive::kPrimLong,
1812 /* is_volatile */ false,
1813 /* is_ordered */ true,
1814 IsR6(),
1815 codegen_);
1816}
1817
1818// void sun.misc.Unsafe.putLongVolatile(Object o, long offset, long x)
1819void IntrinsicLocationsBuilderMIPS::VisitUnsafePutLongVolatile(HInvoke* invoke) {
1820 CreateIntIntIntIntToVoidLocations(arena_, invoke);
1821}
1822
1823void IntrinsicCodeGeneratorMIPS::VisitUnsafePutLongVolatile(HInvoke* invoke) {
1824 GenUnsafePut(invoke->GetLocations(),
1825 Primitive::kPrimLong,
1826 /* is_volatile */ true,
1827 /* is_ordered */ false,
1828 IsR6(),
1829 codegen_);
1830}
1831
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001832static void CreateIntIntIntIntIntToIntLocations(ArenaAllocator* arena, HInvoke* invoke) {
1833 LocationSummary* locations = new (arena) LocationSummary(invoke,
1834 LocationSummary::kNoCall,
1835 kIntrinsified);
1836 locations->SetInAt(0, Location::NoLocation()); // Unused receiver.
1837 locations->SetInAt(1, Location::RequiresRegister());
1838 locations->SetInAt(2, Location::RequiresRegister());
1839 locations->SetInAt(3, Location::RequiresRegister());
1840 locations->SetInAt(4, Location::RequiresRegister());
1841
1842 locations->SetOut(Location::RequiresRegister());
1843}
1844
1845static void GenCas(LocationSummary* locations, Primitive::Type type, CodeGeneratorMIPS* codegen) {
1846 MipsAssembler* assembler = codegen->GetAssembler();
1847 bool isR6 = codegen->GetInstructionSetFeatures().IsR6();
1848 Register base = locations->InAt(1).AsRegister<Register>();
1849 Register offset_lo = locations->InAt(2).AsRegisterPairLow<Register>();
1850 Register expected = locations->InAt(3).AsRegister<Register>();
1851 Register value = locations->InAt(4).AsRegister<Register>();
1852 Register out = locations->Out().AsRegister<Register>();
1853
1854 DCHECK_NE(base, out);
1855 DCHECK_NE(offset_lo, out);
1856 DCHECK_NE(expected, out);
1857
1858 if (type == Primitive::kPrimNot) {
1859 // Mark card for object assuming new value is stored.
Goran Jakovljevice114da22016-12-26 14:21:43 +01001860 bool value_can_be_null = true; // TODO: Worth finding out this information?
1861 codegen->MarkGCCard(base, value, value_can_be_null);
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001862 }
1863
Alexey Frunzec061de12017-02-14 13:27:23 -08001864 MipsLabel loop_head, exit_loop;
1865 __ Addu(TMP, base, offset_lo);
1866
1867 if (kPoisonHeapReferences && type == Primitive::kPrimNot) {
1868 __ PoisonHeapReference(expected);
1869 // Do not poison `value`, if it is the same register as
1870 // `expected`, which has just been poisoned.
1871 if (value != expected) {
1872 __ PoisonHeapReference(value);
1873 }
1874 }
1875
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001876 // do {
1877 // tmp_value = [tmp_ptr] - expected;
1878 // } while (tmp_value == 0 && failure([tmp_ptr] <- r_new_value));
1879 // result = tmp_value != 0;
1880
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001881 __ Sync(0);
1882 __ Bind(&loop_head);
1883 if ((type == Primitive::kPrimInt) || (type == Primitive::kPrimNot)) {
1884 if (isR6) {
1885 __ LlR6(out, TMP);
1886 } else {
1887 __ LlR2(out, TMP);
1888 }
1889 } else {
Alexey Frunzec061de12017-02-14 13:27:23 -08001890 LOG(FATAL) << "Unsupported op size " << type;
1891 UNREACHABLE();
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001892 }
1893 __ Subu(out, out, expected); // If we didn't get the 'expected'
1894 __ Sltiu(out, out, 1); // value, set 'out' to false, and
1895 __ Beqz(out, &exit_loop); // return.
1896 __ Move(out, value); // Use 'out' for the 'store conditional' instruction.
1897 // If we use 'value' directly, we would lose 'value'
1898 // in the case that the store fails. Whether the
1899 // store succeeds, or fails, it will load the
Roland Levillain5e8d5f02016-10-18 18:03:43 +01001900 // correct Boolean value into the 'out' register.
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001901 // This test isn't really necessary. We only support Primitive::kPrimInt,
1902 // Primitive::kPrimNot, and we already verified that we're working on one
1903 // of those two types. It's left here in case the code needs to support
1904 // other types in the future.
1905 if ((type == Primitive::kPrimInt) || (type == Primitive::kPrimNot)) {
1906 if (isR6) {
1907 __ ScR6(out, TMP);
1908 } else {
1909 __ ScR2(out, TMP);
1910 }
1911 }
1912 __ Beqz(out, &loop_head); // If we couldn't do the read-modify-write
1913 // cycle atomically then retry.
1914 __ Bind(&exit_loop);
1915 __ Sync(0);
Alexey Frunzec061de12017-02-14 13:27:23 -08001916
1917 if (kPoisonHeapReferences && type == Primitive::kPrimNot) {
1918 __ UnpoisonHeapReference(expected);
1919 // Do not unpoison `value`, if it is the same register as
1920 // `expected`, which has just been unpoisoned.
1921 if (value != expected) {
1922 __ UnpoisonHeapReference(value);
1923 }
1924 }
Alexey Frunze51aff3a2016-03-17 17:21:45 -07001925}
1926
1927// boolean sun.misc.Unsafe.compareAndSwapInt(Object o, long offset, int expected, int x)
1928void IntrinsicLocationsBuilderMIPS::VisitUnsafeCASInt(HInvoke* invoke) {
1929 CreateIntIntIntIntIntToIntLocations(arena_, invoke);
1930}
1931
1932void IntrinsicCodeGeneratorMIPS::VisitUnsafeCASInt(HInvoke* invoke) {
1933 GenCas(invoke->GetLocations(), Primitive::kPrimInt, codegen_);
1934}
1935
1936// boolean sun.misc.Unsafe.compareAndSwapObject(Object o, long offset, Object expected, Object x)
1937void IntrinsicLocationsBuilderMIPS::VisitUnsafeCASObject(HInvoke* invoke) {
1938 CreateIntIntIntIntIntToIntLocations(arena_, invoke);
1939}
1940
1941void IntrinsicCodeGeneratorMIPS::VisitUnsafeCASObject(HInvoke* invoke) {
1942 GenCas(invoke->GetLocations(), Primitive::kPrimNot, codegen_);
1943}
1944
Chris Larsencf283da2016-01-19 16:45:35 -08001945// int java.lang.String.compareTo(String anotherString)
1946void IntrinsicLocationsBuilderMIPS::VisitStringCompareTo(HInvoke* invoke) {
1947 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescufca16662016-07-14 09:21:59 +01001948 LocationSummary::kCallOnMainAndSlowPath,
Chris Larsencf283da2016-01-19 16:45:35 -08001949 kIntrinsified);
1950 InvokeRuntimeCallingConvention calling_convention;
1951 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
1952 locations->SetInAt(1, Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
1953 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
1954 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
1955}
1956
1957void IntrinsicCodeGeneratorMIPS::VisitStringCompareTo(HInvoke* invoke) {
1958 MipsAssembler* assembler = GetAssembler();
1959 LocationSummary* locations = invoke->GetLocations();
1960
1961 // Note that the null check must have been done earlier.
1962 DCHECK(!invoke->CanDoImplicitNullCheckOn(invoke->InputAt(0)));
1963
1964 Register argument = locations->InAt(1).AsRegister<Register>();
1965 SlowPathCodeMIPS* slow_path = new (GetAllocator()) IntrinsicSlowPathMIPS(invoke);
1966 codegen_->AddSlowPath(slow_path);
1967 __ Beqz(argument, slow_path->GetEntryLabel());
Serban Constantinescufca16662016-07-14 09:21:59 +01001968 codegen_->InvokeRuntime(kQuickStringCompareTo, invoke, invoke->GetDexPc(), slow_path);
Chris Larsencf283da2016-01-19 16:45:35 -08001969 __ Bind(slow_path->GetExitLabel());
1970}
1971
Chris Larsen16ba2b42015-11-02 10:58:31 -08001972// boolean java.lang.String.equals(Object anObject)
1973void IntrinsicLocationsBuilderMIPS::VisitStringEquals(HInvoke* invoke) {
1974 LocationSummary* locations = new (arena_) LocationSummary(invoke,
1975 LocationSummary::kNoCall,
1976 kIntrinsified);
1977 locations->SetInAt(0, Location::RequiresRegister());
1978 locations->SetInAt(1, Location::RequiresRegister());
1979 locations->SetOut(Location::RequiresRegister());
1980
1981 // Temporary registers to store lengths of strings and for calculations.
1982 locations->AddTemp(Location::RequiresRegister());
1983 locations->AddTemp(Location::RequiresRegister());
1984 locations->AddTemp(Location::RequiresRegister());
1985}
1986
1987void IntrinsicCodeGeneratorMIPS::VisitStringEquals(HInvoke* invoke) {
1988 MipsAssembler* assembler = GetAssembler();
1989 LocationSummary* locations = invoke->GetLocations();
1990
1991 Register str = locations->InAt(0).AsRegister<Register>();
1992 Register arg = locations->InAt(1).AsRegister<Register>();
1993 Register out = locations->Out().AsRegister<Register>();
1994
1995 Register temp1 = locations->GetTemp(0).AsRegister<Register>();
1996 Register temp2 = locations->GetTemp(1).AsRegister<Register>();
1997 Register temp3 = locations->GetTemp(2).AsRegister<Register>();
1998
1999 MipsLabel loop;
2000 MipsLabel end;
2001 MipsLabel return_true;
2002 MipsLabel return_false;
2003
2004 // Get offsets of count, value, and class fields within a string object.
2005 const uint32_t count_offset = mirror::String::CountOffset().Uint32Value();
2006 const uint32_t value_offset = mirror::String::ValueOffset().Uint32Value();
2007 const uint32_t class_offset = mirror::Object::ClassOffset().Uint32Value();
2008
2009 // Note that the null check must have been done earlier.
2010 DCHECK(!invoke->CanDoImplicitNullCheckOn(invoke->InputAt(0)));
2011
2012 // If the register containing the pointer to "this", and the register
2013 // containing the pointer to "anObject" are the same register then
2014 // "this", and "anObject" are the same object and we can
2015 // short-circuit the logic to a true result.
2016 if (str == arg) {
2017 __ LoadConst32(out, 1);
2018 return;
2019 }
Goran Jakovljevic64fa84f2017-02-27 13:14:57 +01002020 StringEqualsOptimizations optimizations(invoke);
2021 if (!optimizations.GetArgumentNotNull()) {
2022 // Check if input is null, return false if it is.
2023 __ Beqz(arg, &return_false);
2024 }
Chris Larsen16ba2b42015-11-02 10:58:31 -08002025
2026 // Reference equality check, return true if same reference.
2027 __ Beq(str, arg, &return_true);
2028
Goran Jakovljevic64fa84f2017-02-27 13:14:57 +01002029 if (!optimizations.GetArgumentIsString()) {
2030 // Instanceof check for the argument by comparing class fields.
2031 // All string objects must have the same type since String cannot be subclassed.
2032 // Receiver must be a string object, so its class field is equal to all strings' class fields.
2033 // If the argument is a string object, its class field must be equal to receiver's class field.
2034 __ Lw(temp1, str, class_offset);
2035 __ Lw(temp2, arg, class_offset);
2036 __ Bne(temp1, temp2, &return_false);
2037 }
Chris Larsen16ba2b42015-11-02 10:58:31 -08002038
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002039 // Load `count` fields of this and argument strings.
Chris Larsen16ba2b42015-11-02 10:58:31 -08002040 __ Lw(temp1, str, count_offset);
2041 __ Lw(temp2, arg, count_offset);
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002042 // Check if `count` fields are equal, return false if they're not.
2043 // Also compares the compression style, if differs return false.
Chris Larsen16ba2b42015-11-02 10:58:31 -08002044 __ Bne(temp1, temp2, &return_false);
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002045 // Return true if both strings are empty. Even with string compression `count == 0` means empty.
2046 static_assert(static_cast<uint32_t>(mirror::StringCompressionFlag::kCompressed) == 0u,
2047 "Expecting 0=compressed, 1=uncompressed");
Chris Larsen16ba2b42015-11-02 10:58:31 -08002048 __ Beqz(temp1, &return_true);
2049
2050 // Don't overwrite input registers
2051 __ Move(TMP, str);
2052 __ Move(temp3, arg);
2053
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002054 // Assertions that must hold in order to compare strings 4 bytes at a time.
Chris Larsen16ba2b42015-11-02 10:58:31 -08002055 DCHECK_ALIGNED(value_offset, 4);
2056 static_assert(IsAligned<4>(kObjectAlignment), "String of odd length is not zero padded");
2057
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002058 // For string compression, calculate the number of bytes to compare (not chars).
2059 if (mirror::kUseStringCompression) {
2060 // Extract compression flag.
2061 if (IsR2OrNewer()) {
2062 __ Ext(temp2, temp1, 0, 1);
2063 } else {
2064 __ Sll(temp2, temp1, 31);
2065 __ Srl(temp2, temp2, 31);
2066 }
2067 __ Srl(temp1, temp1, 1); // Extract length.
2068 __ Sllv(temp1, temp1, temp2); // Double the byte count if uncompressed.
2069 }
2070
2071 // Loop to compare strings 4 bytes at a time starting at the beginning of the string.
2072 // Ok to do this because strings are zero-padded to kObjectAlignment.
Chris Larsen16ba2b42015-11-02 10:58:31 -08002073 __ Bind(&loop);
2074 __ Lw(out, TMP, value_offset);
2075 __ Lw(temp2, temp3, value_offset);
2076 __ Bne(out, temp2, &return_false);
2077 __ Addiu(TMP, TMP, 4);
2078 __ Addiu(temp3, temp3, 4);
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002079 // With string compression, we have compared 4 bytes, otherwise 2 chars.
2080 __ Addiu(temp1, temp1, mirror::kUseStringCompression ? -4 : -2);
Chris Larsen16ba2b42015-11-02 10:58:31 -08002081 __ Bgtz(temp1, &loop);
2082
2083 // Return true and exit the function.
2084 // If loop does not result in returning false, we return true.
2085 __ Bind(&return_true);
2086 __ LoadConst32(out, 1);
2087 __ B(&end);
2088
2089 // Return false and exit the function.
2090 __ Bind(&return_false);
2091 __ LoadConst32(out, 0);
2092 __ Bind(&end);
2093}
2094
Chris Larsencf283da2016-01-19 16:45:35 -08002095static void GenerateStringIndexOf(HInvoke* invoke,
2096 bool start_at_zero,
2097 MipsAssembler* assembler,
2098 CodeGeneratorMIPS* codegen,
2099 ArenaAllocator* allocator) {
2100 LocationSummary* locations = invoke->GetLocations();
2101 Register tmp_reg = start_at_zero ? locations->GetTemp(0).AsRegister<Register>() : TMP;
2102
2103 // Note that the null check must have been done earlier.
2104 DCHECK(!invoke->CanDoImplicitNullCheckOn(invoke->InputAt(0)));
2105
Vladimir Markofb6c90a2016-05-06 15:52:12 +01002106 // Check for code points > 0xFFFF. Either a slow-path check when we don't know statically,
2107 // or directly dispatch for a large constant, or omit slow-path for a small constant or a char.
Chris Larsencf283da2016-01-19 16:45:35 -08002108 SlowPathCodeMIPS* slow_path = nullptr;
Vladimir Markofb6c90a2016-05-06 15:52:12 +01002109 HInstruction* code_point = invoke->InputAt(1);
2110 if (code_point->IsIntConstant()) {
Vladimir Markoda051082016-05-17 16:10:20 +01002111 if (!IsUint<16>(code_point->AsIntConstant()->GetValue())) {
Chris Larsencf283da2016-01-19 16:45:35 -08002112 // Always needs the slow-path. We could directly dispatch to it,
2113 // but this case should be rare, so for simplicity just put the
2114 // full slow-path down and branch unconditionally.
2115 slow_path = new (allocator) IntrinsicSlowPathMIPS(invoke);
2116 codegen->AddSlowPath(slow_path);
2117 __ B(slow_path->GetEntryLabel());
2118 __ Bind(slow_path->GetExitLabel());
2119 return;
2120 }
Vladimir Markofb6c90a2016-05-06 15:52:12 +01002121 } else if (code_point->GetType() != Primitive::kPrimChar) {
Chris Larsencf283da2016-01-19 16:45:35 -08002122 Register char_reg = locations->InAt(1).AsRegister<Register>();
2123 // The "bltu" conditional branch tests to see if the character value
2124 // fits in a valid 16-bit (MIPS halfword) value. If it doesn't then
2125 // the character being searched for, if it exists in the string, is
2126 // encoded using UTF-16 and stored in the string as two (16-bit)
2127 // halfwords. Currently the assembly code used to implement this
2128 // intrinsic doesn't support searching for a character stored as
2129 // two halfwords so we fallback to using the generic implementation
2130 // of indexOf().
2131 __ LoadConst32(tmp_reg, std::numeric_limits<uint16_t>::max());
2132 slow_path = new (allocator) IntrinsicSlowPathMIPS(invoke);
2133 codegen->AddSlowPath(slow_path);
2134 __ Bltu(tmp_reg, char_reg, slow_path->GetEntryLabel());
2135 }
2136
2137 if (start_at_zero) {
2138 DCHECK_EQ(tmp_reg, A2);
2139 // Start-index = 0.
2140 __ Clear(tmp_reg);
2141 }
2142
Serban Constantinescufca16662016-07-14 09:21:59 +01002143 codegen->InvokeRuntime(kQuickIndexOf, invoke, invoke->GetDexPc(), slow_path);
Chris Larsencf283da2016-01-19 16:45:35 -08002144 if (slow_path != nullptr) {
2145 __ Bind(slow_path->GetExitLabel());
2146 }
2147}
2148
2149// int java.lang.String.indexOf(int ch)
2150void IntrinsicLocationsBuilderMIPS::VisitStringIndexOf(HInvoke* invoke) {
2151 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescu806f0122016-03-09 11:10:16 +00002152 LocationSummary::kCallOnMainAndSlowPath,
Chris Larsencf283da2016-01-19 16:45:35 -08002153 kIntrinsified);
2154 // We have a hand-crafted assembly stub that follows the runtime
2155 // calling convention. So it's best to align the inputs accordingly.
2156 InvokeRuntimeCallingConvention calling_convention;
2157 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2158 locations->SetInAt(1, Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
2159 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2160 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2161
2162 // Need a temp for slow-path codepoint compare, and need to send start-index=0.
2163 locations->AddTemp(Location::RegisterLocation(calling_convention.GetRegisterAt(2)));
2164}
2165
2166void IntrinsicCodeGeneratorMIPS::VisitStringIndexOf(HInvoke* invoke) {
2167 GenerateStringIndexOf(invoke,
2168 /* start_at_zero */ true,
2169 GetAssembler(),
2170 codegen_,
2171 GetAllocator());
2172}
2173
2174// int java.lang.String.indexOf(int ch, int fromIndex)
2175void IntrinsicLocationsBuilderMIPS::VisitStringIndexOfAfter(HInvoke* invoke) {
2176 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescu806f0122016-03-09 11:10:16 +00002177 LocationSummary::kCallOnMainAndSlowPath,
Chris Larsencf283da2016-01-19 16:45:35 -08002178 kIntrinsified);
2179 // We have a hand-crafted assembly stub that follows the runtime
2180 // calling convention. So it's best to align the inputs accordingly.
2181 InvokeRuntimeCallingConvention calling_convention;
2182 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2183 locations->SetInAt(1, Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
2184 locations->SetInAt(2, Location::RegisterLocation(calling_convention.GetRegisterAt(2)));
2185 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2186 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2187
2188 // Need a temp for slow-path codepoint compare.
2189 locations->AddTemp(Location::RequiresRegister());
2190}
2191
2192void IntrinsicCodeGeneratorMIPS::VisitStringIndexOfAfter(HInvoke* invoke) {
2193 GenerateStringIndexOf(invoke,
2194 /* start_at_zero */ false,
2195 GetAssembler(),
2196 codegen_,
2197 GetAllocator());
2198}
2199
2200// java.lang.StringFactory.newStringFromBytes(byte[] data, int high, int offset, int byteCount)
2201void IntrinsicLocationsBuilderMIPS::VisitStringNewStringFromBytes(HInvoke* invoke) {
2202 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescu806f0122016-03-09 11:10:16 +00002203 LocationSummary::kCallOnMainAndSlowPath,
Chris Larsencf283da2016-01-19 16:45:35 -08002204 kIntrinsified);
2205 InvokeRuntimeCallingConvention calling_convention;
2206 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2207 locations->SetInAt(1, Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
2208 locations->SetInAt(2, Location::RegisterLocation(calling_convention.GetRegisterAt(2)));
2209 locations->SetInAt(3, Location::RegisterLocation(calling_convention.GetRegisterAt(3)));
2210 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2211 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2212}
2213
2214void IntrinsicCodeGeneratorMIPS::VisitStringNewStringFromBytes(HInvoke* invoke) {
2215 MipsAssembler* assembler = GetAssembler();
2216 LocationSummary* locations = invoke->GetLocations();
2217
2218 Register byte_array = locations->InAt(0).AsRegister<Register>();
2219 SlowPathCodeMIPS* slow_path = new (GetAllocator()) IntrinsicSlowPathMIPS(invoke);
2220 codegen_->AddSlowPath(slow_path);
2221 __ Beqz(byte_array, slow_path->GetEntryLabel());
Serban Constantinescufca16662016-07-14 09:21:59 +01002222 codegen_->InvokeRuntime(kQuickAllocStringFromBytes, invoke, invoke->GetDexPc(), slow_path);
Chris Larsencf283da2016-01-19 16:45:35 -08002223 __ Bind(slow_path->GetExitLabel());
2224}
2225
2226// java.lang.StringFactory.newStringFromChars(int offset, int charCount, char[] data)
2227void IntrinsicLocationsBuilderMIPS::VisitStringNewStringFromChars(HInvoke* invoke) {
2228 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescu54ff4822016-07-07 18:03:19 +01002229 LocationSummary::kCallOnMainOnly,
Chris Larsencf283da2016-01-19 16:45:35 -08002230 kIntrinsified);
2231 InvokeRuntimeCallingConvention calling_convention;
2232 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2233 locations->SetInAt(1, Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
2234 locations->SetInAt(2, Location::RegisterLocation(calling_convention.GetRegisterAt(2)));
2235 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2236 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2237}
2238
2239void IntrinsicCodeGeneratorMIPS::VisitStringNewStringFromChars(HInvoke* invoke) {
Chris Larsencf283da2016-01-19 16:45:35 -08002240 // No need to emit code checking whether `locations->InAt(2)` is a null
2241 // pointer, as callers of the native method
2242 //
2243 // java.lang.StringFactory.newStringFromChars(int offset, int charCount, char[] data)
2244 //
2245 // all include a null check on `data` before calling that method.
Serban Constantinescufca16662016-07-14 09:21:59 +01002246 codegen_->InvokeRuntime(kQuickAllocStringFromChars, invoke, invoke->GetDexPc());
Chris Larsencf283da2016-01-19 16:45:35 -08002247}
2248
2249// java.lang.StringFactory.newStringFromString(String toCopy)
2250void IntrinsicLocationsBuilderMIPS::VisitStringNewStringFromString(HInvoke* invoke) {
2251 LocationSummary* locations = new (arena_) LocationSummary(invoke,
Serban Constantinescu806f0122016-03-09 11:10:16 +00002252 LocationSummary::kCallOnMainAndSlowPath,
Chris Larsencf283da2016-01-19 16:45:35 -08002253 kIntrinsified);
2254 InvokeRuntimeCallingConvention calling_convention;
2255 locations->SetInAt(0, Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2256 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2257 locations->SetOut(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2258}
2259
2260void IntrinsicCodeGeneratorMIPS::VisitStringNewStringFromString(HInvoke* invoke) {
2261 MipsAssembler* assembler = GetAssembler();
2262 LocationSummary* locations = invoke->GetLocations();
2263
2264 Register string_to_copy = locations->InAt(0).AsRegister<Register>();
2265 SlowPathCodeMIPS* slow_path = new (GetAllocator()) IntrinsicSlowPathMIPS(invoke);
2266 codegen_->AddSlowPath(slow_path);
2267 __ Beqz(string_to_copy, slow_path->GetEntryLabel());
Serban Constantinescufca16662016-07-14 09:21:59 +01002268 codegen_->InvokeRuntime(kQuickAllocStringFromString, invoke, invoke->GetDexPc());
Chris Larsencf283da2016-01-19 16:45:35 -08002269 __ Bind(slow_path->GetExitLabel());
2270}
2271
Chris Larsen2714fe62016-02-11 14:23:53 -08002272static void GenIsInfinite(LocationSummary* locations,
2273 const Primitive::Type type,
2274 const bool isR6,
2275 MipsAssembler* assembler) {
2276 FRegister in = locations->InAt(0).AsFpuRegister<FRegister>();
2277 Register out = locations->Out().AsRegister<Register>();
2278
2279 DCHECK(type == Primitive::kPrimFloat || type == Primitive::kPrimDouble);
2280
2281 if (isR6) {
2282 if (type == Primitive::kPrimDouble) {
2283 __ ClassD(FTMP, in);
2284 } else {
2285 __ ClassS(FTMP, in);
2286 }
2287 __ Mfc1(out, FTMP);
2288 __ Andi(out, out, kPositiveInfinity | kNegativeInfinity);
2289 __ Sltu(out, ZERO, out);
2290 } else {
2291 // If one, or more, of the exponent bits is zero, then the number can't be infinite.
2292 if (type == Primitive::kPrimDouble) {
2293 __ MoveFromFpuHigh(TMP, in);
Anton Kirilova3ffea22016-04-07 17:02:37 +01002294 __ LoadConst32(AT, High32Bits(kPositiveInfinityDouble));
Chris Larsen2714fe62016-02-11 14:23:53 -08002295 } else {
2296 __ Mfc1(TMP, in);
Anton Kirilova3ffea22016-04-07 17:02:37 +01002297 __ LoadConst32(AT, kPositiveInfinityFloat);
Chris Larsen2714fe62016-02-11 14:23:53 -08002298 }
2299 __ Xor(TMP, TMP, AT);
2300
2301 __ Sll(TMP, TMP, 1);
2302
2303 if (type == Primitive::kPrimDouble) {
2304 __ Mfc1(AT, in);
2305 __ Or(TMP, TMP, AT);
2306 }
2307 // If any of the significand bits are one, then the number is not infinite.
2308 __ Sltiu(out, TMP, 1);
2309 }
2310}
2311
2312// boolean java.lang.Float.isInfinite(float)
2313void IntrinsicLocationsBuilderMIPS::VisitFloatIsInfinite(HInvoke* invoke) {
2314 CreateFPToIntLocations(arena_, invoke);
2315}
2316
2317void IntrinsicCodeGeneratorMIPS::VisitFloatIsInfinite(HInvoke* invoke) {
2318 GenIsInfinite(invoke->GetLocations(), Primitive::kPrimFloat, IsR6(), GetAssembler());
2319}
2320
2321// boolean java.lang.Double.isInfinite(double)
2322void IntrinsicLocationsBuilderMIPS::VisitDoubleIsInfinite(HInvoke* invoke) {
2323 CreateFPToIntLocations(arena_, invoke);
2324}
2325
2326void IntrinsicCodeGeneratorMIPS::VisitDoubleIsInfinite(HInvoke* invoke) {
2327 GenIsInfinite(invoke->GetLocations(), Primitive::kPrimDouble, IsR6(), GetAssembler());
2328}
2329
Chris Larsen97759342016-02-16 17:10:40 -08002330static void GenHighestOneBit(LocationSummary* locations,
2331 const Primitive::Type type,
2332 bool isR6,
2333 MipsAssembler* assembler) {
2334 DCHECK(type == Primitive::kPrimInt || type == Primitive::kPrimLong);
2335
2336 if (type == Primitive::kPrimLong) {
2337 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
2338 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
2339 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
2340 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
2341
2342 if (isR6) {
2343 __ ClzR6(TMP, in_hi);
2344 } else {
2345 __ ClzR2(TMP, in_hi);
2346 }
2347 __ LoadConst32(AT, 0x80000000);
2348 __ Srlv(out_hi, AT, TMP);
2349 __ And(out_hi, out_hi, in_hi);
2350 if (isR6) {
2351 __ ClzR6(TMP, in_lo);
2352 } else {
2353 __ ClzR2(TMP, in_lo);
2354 }
2355 __ Srlv(out_lo, AT, TMP);
2356 __ And(out_lo, out_lo, in_lo);
2357 if (isR6) {
2358 __ Seleqz(out_lo, out_lo, out_hi);
2359 } else {
2360 __ Movn(out_lo, ZERO, out_hi);
2361 }
2362 } else {
2363 Register in = locations->InAt(0).AsRegister<Register>();
2364 Register out = locations->Out().AsRegister<Register>();
2365
2366 if (isR6) {
2367 __ ClzR6(TMP, in);
2368 } else {
2369 __ ClzR2(TMP, in);
2370 }
2371 __ LoadConst32(AT, 0x80000000);
2372 __ Srlv(AT, AT, TMP); // Srlv shifts in the range of [0;31] bits (lower 5 bits of arg).
2373 __ And(out, AT, in); // So this is required for 0 (=shift by 32).
2374 }
2375}
2376
2377// int java.lang.Integer.highestOneBit(int)
2378void IntrinsicLocationsBuilderMIPS::VisitIntegerHighestOneBit(HInvoke* invoke) {
2379 CreateIntToIntLocations(arena_, invoke);
2380}
2381
2382void IntrinsicCodeGeneratorMIPS::VisitIntegerHighestOneBit(HInvoke* invoke) {
2383 GenHighestOneBit(invoke->GetLocations(), Primitive::kPrimInt, IsR6(), GetAssembler());
2384}
2385
2386// long java.lang.Long.highestOneBit(long)
2387void IntrinsicLocationsBuilderMIPS::VisitLongHighestOneBit(HInvoke* invoke) {
2388 CreateIntToIntLocations(arena_, invoke, Location::kOutputOverlap);
2389}
2390
2391void IntrinsicCodeGeneratorMIPS::VisitLongHighestOneBit(HInvoke* invoke) {
2392 GenHighestOneBit(invoke->GetLocations(), Primitive::kPrimLong, IsR6(), GetAssembler());
2393}
2394
2395static void GenLowestOneBit(LocationSummary* locations,
2396 const Primitive::Type type,
2397 bool isR6,
2398 MipsAssembler* assembler) {
2399 DCHECK(type == Primitive::kPrimInt || type == Primitive::kPrimLong);
2400
2401 if (type == Primitive::kPrimLong) {
2402 Register in_lo = locations->InAt(0).AsRegisterPairLow<Register>();
2403 Register in_hi = locations->InAt(0).AsRegisterPairHigh<Register>();
2404 Register out_lo = locations->Out().AsRegisterPairLow<Register>();
2405 Register out_hi = locations->Out().AsRegisterPairHigh<Register>();
2406
2407 __ Subu(TMP, ZERO, in_lo);
2408 __ And(out_lo, TMP, in_lo);
2409 __ Subu(TMP, ZERO, in_hi);
2410 __ And(out_hi, TMP, in_hi);
2411 if (isR6) {
2412 __ Seleqz(out_hi, out_hi, out_lo);
2413 } else {
2414 __ Movn(out_hi, ZERO, out_lo);
2415 }
2416 } else {
2417 Register in = locations->InAt(0).AsRegister<Register>();
2418 Register out = locations->Out().AsRegister<Register>();
2419
2420 __ Subu(TMP, ZERO, in);
2421 __ And(out, TMP, in);
2422 }
2423}
2424
2425// int java.lang.Integer.lowestOneBit(int)
2426void IntrinsicLocationsBuilderMIPS::VisitIntegerLowestOneBit(HInvoke* invoke) {
2427 CreateIntToIntLocations(arena_, invoke);
2428}
2429
2430void IntrinsicCodeGeneratorMIPS::VisitIntegerLowestOneBit(HInvoke* invoke) {
2431 GenLowestOneBit(invoke->GetLocations(), Primitive::kPrimInt, IsR6(), GetAssembler());
2432}
2433
2434// long java.lang.Long.lowestOneBit(long)
2435void IntrinsicLocationsBuilderMIPS::VisitLongLowestOneBit(HInvoke* invoke) {
2436 CreateIntToIntLocations(arena_, invoke);
2437}
2438
2439void IntrinsicCodeGeneratorMIPS::VisitLongLowestOneBit(HInvoke* invoke) {
2440 GenLowestOneBit(invoke->GetLocations(), Primitive::kPrimLong, IsR6(), GetAssembler());
2441}
2442
Chris Larsenf09d5322016-04-22 12:06:34 -07002443// int java.lang.Math.round(float)
2444void IntrinsicLocationsBuilderMIPS::VisitMathRoundFloat(HInvoke* invoke) {
2445 LocationSummary* locations = new (arena_) LocationSummary(invoke,
2446 LocationSummary::kNoCall,
2447 kIntrinsified);
2448 locations->SetInAt(0, Location::RequiresFpuRegister());
2449 locations->AddTemp(Location::RequiresFpuRegister());
2450 locations->SetOut(Location::RequiresRegister());
2451}
2452
2453void IntrinsicCodeGeneratorMIPS::VisitMathRoundFloat(HInvoke* invoke) {
2454 LocationSummary* locations = invoke->GetLocations();
2455 MipsAssembler* assembler = GetAssembler();
2456 FRegister in = locations->InAt(0).AsFpuRegister<FRegister>();
2457 FRegister half = locations->GetTemp(0).AsFpuRegister<FRegister>();
2458 Register out = locations->Out().AsRegister<Register>();
2459
2460 MipsLabel done;
2461 MipsLabel finite;
2462 MipsLabel add;
2463
2464 // if (in.isNaN) {
2465 // return 0;
2466 // }
2467 //
2468 // out = floor.w.s(in);
2469 //
2470 // /*
2471 // * This "if" statement is only needed for the pre-R6 version of floor.w.s
2472 // * which outputs Integer.MAX_VALUE for negative numbers with magnitudes
2473 // * too large to fit in a 32-bit integer.
2474 // *
2475 // * Starting with MIPSR6, which always sets FCSR.NAN2008=1, negative
2476 // * numbers which are too large to be represented in a 32-bit signed
2477 // * integer will be processed by floor.w.s to output Integer.MIN_VALUE,
2478 // * and will no longer be processed by this "if" statement.
2479 // */
2480 // if (out == Integer.MAX_VALUE) {
2481 // TMP = (in < 0.0f) ? 1 : 0;
2482 // /*
2483 // * If TMP is 1, then adding it to out will wrap its value from
2484 // * Integer.MAX_VALUE to Integer.MIN_VALUE.
2485 // */
2486 // return out += TMP;
2487 // }
2488 //
2489 // /*
2490 // * For negative values not handled by the previous "if" statement the
2491 // * test here will correctly set the value of TMP.
2492 // */
2493 // TMP = ((in - out) >= 0.5f) ? 1 : 0;
2494 // return out += TMP;
2495
2496 // Test for NaN.
2497 if (IsR6()) {
2498 __ CmpUnS(FTMP, in, in);
2499 } else {
2500 __ CunS(in, in);
2501 }
2502
2503 // Return zero for NaN.
2504 __ Move(out, ZERO);
2505 if (IsR6()) {
2506 __ Bc1nez(FTMP, &done);
2507 } else {
2508 __ Bc1t(&done);
2509 }
2510
2511 // out = floor(in);
2512 __ FloorWS(FTMP, in);
2513 __ Mfc1(out, FTMP);
2514
Chris Larsen07f712f2016-06-10 16:06:02 -07002515 if (!IsR6()) {
2516 __ LoadConst32(TMP, -1);
2517 }
Chris Larsenf09d5322016-04-22 12:06:34 -07002518
Chris Larsen07f712f2016-06-10 16:06:02 -07002519 // TMP = (out = java.lang.Integer.MAX_VALUE) ? -1 : 0;
Chris Larsenf09d5322016-04-22 12:06:34 -07002520 __ LoadConst32(AT, std::numeric_limits<int32_t>::max());
2521 __ Bne(AT, out, &finite);
2522
2523 __ Mtc1(ZERO, FTMP);
2524 if (IsR6()) {
2525 __ CmpLtS(FTMP, in, FTMP);
Chris Larsen07f712f2016-06-10 16:06:02 -07002526 __ Mfc1(TMP, FTMP);
Chris Larsenf09d5322016-04-22 12:06:34 -07002527 } else {
2528 __ ColtS(in, FTMP);
2529 }
2530
2531 __ B(&add);
2532
2533 __ Bind(&finite);
2534
Chris Larsen07f712f2016-06-10 16:06:02 -07002535 // TMP = (0.5f <= (in - out)) ? -1 : 0;
Chris Larsenf09d5322016-04-22 12:06:34 -07002536 __ Cvtsw(FTMP, FTMP); // Convert output of floor.w.s back to "float".
2537 __ LoadConst32(AT, bit_cast<int32_t, float>(0.5f));
2538 __ SubS(FTMP, in, FTMP);
2539 __ Mtc1(AT, half);
2540 if (IsR6()) {
2541 __ CmpLeS(FTMP, half, FTMP);
Chris Larsen07f712f2016-06-10 16:06:02 -07002542 __ Mfc1(TMP, FTMP);
Chris Larsenf09d5322016-04-22 12:06:34 -07002543 } else {
2544 __ ColeS(half, FTMP);
2545 }
2546
2547 __ Bind(&add);
2548
Chris Larsen07f712f2016-06-10 16:06:02 -07002549 if (!IsR6()) {
Chris Larsenf09d5322016-04-22 12:06:34 -07002550 __ Movf(TMP, ZERO);
2551 }
2552
Chris Larsen07f712f2016-06-10 16:06:02 -07002553 // Return out -= TMP.
2554 __ Subu(out, out, TMP);
Chris Larsenf09d5322016-04-22 12:06:34 -07002555
2556 __ Bind(&done);
2557}
2558
Chris Larsen692235e2016-11-21 16:04:53 -08002559// void java.lang.String.getChars(int srcBegin, int srcEnd, char[] dst, int dstBegin)
2560void IntrinsicLocationsBuilderMIPS::VisitStringGetCharsNoCheck(HInvoke* invoke) {
2561 LocationSummary* locations = new (arena_) LocationSummary(invoke,
2562 LocationSummary::kCallOnMainOnly,
2563 kIntrinsified);
2564 locations->SetInAt(0, Location::RequiresRegister());
2565 locations->SetInAt(1, Location::RequiresRegister());
2566 locations->SetInAt(2, Location::RequiresRegister());
2567 locations->SetInAt(3, Location::RequiresRegister());
2568 locations->SetInAt(4, Location::RequiresRegister());
2569
2570 // We will call memcpy() to do the actual work. Allocate the temporary
2571 // registers to use the correct input registers, and output register.
2572 // memcpy() uses the normal MIPS calling convention.
2573 InvokeRuntimeCallingConvention calling_convention;
2574
2575 locations->AddTemp(Location::RegisterLocation(calling_convention.GetRegisterAt(0)));
2576 locations->AddTemp(Location::RegisterLocation(calling_convention.GetRegisterAt(1)));
2577 locations->AddTemp(Location::RegisterLocation(calling_convention.GetRegisterAt(2)));
2578
2579 Location outLocation = calling_convention.GetReturnLocation(Primitive::kPrimInt);
2580 locations->AddTemp(Location::RegisterLocation(outLocation.AsRegister<Register>()));
2581}
2582
2583void IntrinsicCodeGeneratorMIPS::VisitStringGetCharsNoCheck(HInvoke* invoke) {
2584 MipsAssembler* assembler = GetAssembler();
2585 LocationSummary* locations = invoke->GetLocations();
2586
2587 // Check assumption that sizeof(Char) is 2 (used in scaling below).
2588 const size_t char_size = Primitive::ComponentSize(Primitive::kPrimChar);
2589 DCHECK_EQ(char_size, 2u);
2590 const size_t char_shift = Primitive::ComponentSizeShift(Primitive::kPrimChar);
2591
2592 Register srcObj = locations->InAt(0).AsRegister<Register>();
2593 Register srcBegin = locations->InAt(1).AsRegister<Register>();
2594 Register srcEnd = locations->InAt(2).AsRegister<Register>();
2595 Register dstObj = locations->InAt(3).AsRegister<Register>();
2596 Register dstBegin = locations->InAt(4).AsRegister<Register>();
2597
2598 Register dstPtr = locations->GetTemp(0).AsRegister<Register>();
2599 DCHECK_EQ(dstPtr, A0);
2600 Register srcPtr = locations->GetTemp(1).AsRegister<Register>();
2601 DCHECK_EQ(srcPtr, A1);
2602 Register numChrs = locations->GetTemp(2).AsRegister<Register>();
2603 DCHECK_EQ(numChrs, A2);
2604
2605 Register dstReturn = locations->GetTemp(3).AsRegister<Register>();
2606 DCHECK_EQ(dstReturn, V0);
2607
2608 MipsLabel done;
2609
2610 // Location of data in char array buffer.
2611 const uint32_t data_offset = mirror::Array::DataOffset(char_size).Uint32Value();
2612
2613 // Get offset of value field within a string object.
2614 const int32_t value_offset = mirror::String::ValueOffset().Int32Value();
2615
2616 __ Beq(srcEnd, srcBegin, &done); // No characters to move.
2617
2618 // Calculate number of characters to be copied.
2619 __ Subu(numChrs, srcEnd, srcBegin);
2620
2621 // Calculate destination address.
2622 __ Addiu(dstPtr, dstObj, data_offset);
2623 if (IsR6()) {
2624 __ Lsa(dstPtr, dstBegin, dstPtr, char_shift);
2625 } else {
2626 __ Sll(AT, dstBegin, char_shift);
2627 __ Addu(dstPtr, dstPtr, AT);
2628 }
2629
Goran Jakovljevicf94fa812017-02-10 17:48:52 +01002630 if (mirror::kUseStringCompression) {
2631 MipsLabel uncompressed_copy, compressed_loop;
2632 const uint32_t count_offset = mirror::String::CountOffset().Uint32Value();
2633 // Load count field and extract compression flag.
2634 __ LoadFromOffset(kLoadWord, TMP, srcObj, count_offset);
2635 __ Sll(TMP, TMP, 31);
2636
2637 // If string is uncompressed, use memcpy() path.
2638 __ Bnez(TMP, &uncompressed_copy);
2639
2640 // Copy loop for compressed src, copying 1 character (8-bit) to (16-bit) at a time.
2641 __ Addu(srcPtr, srcObj, srcBegin);
2642 __ Bind(&compressed_loop);
2643 __ LoadFromOffset(kLoadUnsignedByte, TMP, srcPtr, value_offset);
2644 __ StoreToOffset(kStoreHalfword, TMP, dstPtr, 0);
2645 __ Addiu(numChrs, numChrs, -1);
2646 __ Addiu(srcPtr, srcPtr, 1);
2647 __ Addiu(dstPtr, dstPtr, 2);
2648 __ Bnez(numChrs, &compressed_loop);
2649
2650 __ B(&done);
2651 __ Bind(&uncompressed_copy);
2652 }
2653
Chris Larsen692235e2016-11-21 16:04:53 -08002654 // Calculate source address.
2655 __ Addiu(srcPtr, srcObj, value_offset);
2656 if (IsR6()) {
2657 __ Lsa(srcPtr, srcBegin, srcPtr, char_shift);
2658 } else {
2659 __ Sll(AT, srcBegin, char_shift);
2660 __ Addu(srcPtr, srcPtr, AT);
2661 }
2662
2663 // Calculate number of bytes to copy from number of characters.
2664 __ Sll(numChrs, numChrs, char_shift);
2665
2666 codegen_->InvokeRuntime(kQuickMemcpy, invoke, invoke->GetDexPc(), nullptr);
2667
2668 __ Bind(&done);
2669}
2670
Chris Larsen2714fe62016-02-11 14:23:53 -08002671// Unimplemented intrinsics.
2672
Aart Bik2f9fcc92016-03-01 15:16:54 -08002673UNIMPLEMENTED_INTRINSIC(MIPS, MathCeil)
2674UNIMPLEMENTED_INTRINSIC(MIPS, MathFloor)
2675UNIMPLEMENTED_INTRINSIC(MIPS, MathRint)
2676UNIMPLEMENTED_INTRINSIC(MIPS, MathRoundDouble)
Aart Bik2f9fcc92016-03-01 15:16:54 -08002677UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeCASLong)
Chris Larsen701566a2015-10-27 15:29:13 -07002678
Aart Bik2f9fcc92016-03-01 15:16:54 -08002679UNIMPLEMENTED_INTRINSIC(MIPS, ReferenceGetReferent)
Aart Bik2f9fcc92016-03-01 15:16:54 -08002680UNIMPLEMENTED_INTRINSIC(MIPS, SystemArrayCopyChar)
2681UNIMPLEMENTED_INTRINSIC(MIPS, SystemArrayCopy)
Aart Bik3f67e692016-01-15 14:35:12 -08002682
Aart Bik2f9fcc92016-03-01 15:16:54 -08002683UNIMPLEMENTED_INTRINSIC(MIPS, MathCos)
2684UNIMPLEMENTED_INTRINSIC(MIPS, MathSin)
2685UNIMPLEMENTED_INTRINSIC(MIPS, MathAcos)
2686UNIMPLEMENTED_INTRINSIC(MIPS, MathAsin)
2687UNIMPLEMENTED_INTRINSIC(MIPS, MathAtan)
2688UNIMPLEMENTED_INTRINSIC(MIPS, MathAtan2)
2689UNIMPLEMENTED_INTRINSIC(MIPS, MathCbrt)
2690UNIMPLEMENTED_INTRINSIC(MIPS, MathCosh)
2691UNIMPLEMENTED_INTRINSIC(MIPS, MathExp)
2692UNIMPLEMENTED_INTRINSIC(MIPS, MathExpm1)
2693UNIMPLEMENTED_INTRINSIC(MIPS, MathHypot)
2694UNIMPLEMENTED_INTRINSIC(MIPS, MathLog)
2695UNIMPLEMENTED_INTRINSIC(MIPS, MathLog10)
2696UNIMPLEMENTED_INTRINSIC(MIPS, MathNextAfter)
2697UNIMPLEMENTED_INTRINSIC(MIPS, MathSinh)
2698UNIMPLEMENTED_INTRINSIC(MIPS, MathTan)
2699UNIMPLEMENTED_INTRINSIC(MIPS, MathTanh)
Chris Larsen701566a2015-10-27 15:29:13 -07002700
Aart Bikff7d89c2016-11-07 08:49:28 -08002701UNIMPLEMENTED_INTRINSIC(MIPS, StringStringIndexOf);
2702UNIMPLEMENTED_INTRINSIC(MIPS, StringStringIndexOfAfter);
Aart Bik71bf7b42016-11-16 10:17:46 -08002703UNIMPLEMENTED_INTRINSIC(MIPS, StringBufferAppend);
2704UNIMPLEMENTED_INTRINSIC(MIPS, StringBufferLength);
2705UNIMPLEMENTED_INTRINSIC(MIPS, StringBufferToString);
2706UNIMPLEMENTED_INTRINSIC(MIPS, StringBuilderAppend);
2707UNIMPLEMENTED_INTRINSIC(MIPS, StringBuilderLength);
2708UNIMPLEMENTED_INTRINSIC(MIPS, StringBuilderToString);
Aart Bikff7d89c2016-11-07 08:49:28 -08002709
Aart Bik0e54c012016-03-04 12:08:31 -08002710// 1.8.
2711UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeGetAndAddInt)
2712UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeGetAndAddLong)
2713UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeGetAndSetInt)
2714UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeGetAndSetLong)
2715UNIMPLEMENTED_INTRINSIC(MIPS, UnsafeGetAndSetObject)
Chris Larsen701566a2015-10-27 15:29:13 -07002716
Nicolas Geoffray331605a2017-03-01 11:01:41 +00002717UNIMPLEMENTED_INTRINSIC(MIPS, IntegerValueOf)
2718
Aart Bik0e54c012016-03-04 12:08:31 -08002719UNREACHABLE_INTRINSICS(MIPS)
Chris Larsen2714fe62016-02-11 14:23:53 -08002720
Chris Larsen701566a2015-10-27 15:29:13 -07002721#undef __
2722
2723} // namespace mips
2724} // namespace art