blob: 83b9b24f468e6e422c79c64652091e8df43a7281 [file] [log] [blame]
Ben Chengba4fc8b2009-06-01 13:00:29 -07001/*
2 * Copyright (C) 2009 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
Bill Buzbee50a6bf22009-07-08 13:08:04 -070017/*
18 * This file contains codegen and support common to all supported
19 * ARM variants. It is included by:
20 *
21 * Codegen-$(TARGET_ARCH_VARIANT).c
22 *
23 * which combines this common code with specific support found in the
24 * applicable directory below this one.
25 */
26
Ben Chengba4fc8b2009-06-01 13:00:29 -070027
Ben Chengba4fc8b2009-06-01 13:00:29 -070028/* Array holding the entry offset of each template relative to the first one */
29static intptr_t templateEntryOffsets[TEMPLATE_LAST_MARK];
30
31/* Track exercised opcodes */
32static int opcodeCoverage[256];
33
Jeff Hao97319a82009-08-12 16:57:15 -070034#if defined(WITH_SELF_VERIFICATION)
35/* Prevent certain opcodes from being jitted */
36static inline bool selfVerificationPuntOps(OpCode op)
37{
38 return (op == OP_MONITOR_ENTER || op == OP_MONITOR_EXIT ||
39 op == OP_NEW_INSTANCE || op == OP_NEW_ARRAY);
40}
41
42/*
43 * The following are used to keep compiled loads and stores from modifying
44 * memory during self verification mode.
45 *
46 * Stores do not modify memory. Instead, the address and value pair are stored
47 * into heapSpace. Addresses within heapSpace are unique. For accesses smaller
48 * than a word, the word containing the address is loaded first before being
49 * updated.
50 *
51 * Loads check heapSpace first and return data from there if an entry exists.
52 * Otherwise, data is loaded from memory as usual.
53 */
54
55/* Decode contents of heapArgSpace to determine addr to load from */
56static void selfVerificationLoadDecode(HeapArgSpace* heapArgSpace, int* addr)
57{
58 int reg = heapArgSpace->regMap & 0xF;
59
60 switch (reg) {
61 case 0:
62 *addr = heapArgSpace->r0;
63 break;
64 case 1:
65 *addr = heapArgSpace->r1;
66 break;
67 case 2:
68 *addr = heapArgSpace->r2;
69 break;
70 case 3:
71 *addr = heapArgSpace->r3;
72 break;
73 default:
74 LOGE("ERROR: bad reg used in selfVerificationLoadDecode: %d", reg);
75 break;
76 }
77}
78
79/* Decode contents of heapArgSpace to determine reg to load into */
80static void selfVerificationLoadDecodeData(HeapArgSpace* heapArgSpace,
81 int data, int reg)
82{
83 switch (reg) {
84 case 0:
85 heapArgSpace->r0 = data;
86 break;
87 case 1:
88 heapArgSpace->r1 = data;
89 break;
90 case 2:
91 heapArgSpace->r2 = data;
92 break;
93 case 3:
94 heapArgSpace->r3 = data;
95 break;
96 default:
97 LOGE("ERROR: bad reg passed to selfVerificationLoadDecodeData: %d",
98 reg);
99 break;
100 }
101}
102
103static void selfVerificationLoad(InterpState* interpState)
104{
105 Thread *self = dvmThreadSelf();
106 ShadowHeap *heapSpacePtr;
107 ShadowSpace *shadowSpace = self->shadowSpace;
108 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
109
110 int addr, data;
111 selfVerificationLoadDecode(heapArgSpace, &addr);
112
113 for (heapSpacePtr = shadowSpace->heapSpace;
114 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
115 if (heapSpacePtr->addr == addr) {
116 data = heapSpacePtr->data;
117 break;
118 }
119 }
120
121 if (heapSpacePtr == shadowSpace->heapSpaceTail)
122 data = *((unsigned int*) addr);
123
124 //LOGD("*** HEAP LOAD: Addr: 0x%x Data: 0x%x", addr, data);
125
126 int reg = (heapArgSpace->regMap >> 4) & 0xF;
127 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
128}
129
130static void selfVerificationLoadByte(InterpState* interpState)
131{
132 Thread *self = dvmThreadSelf();
133 ShadowHeap *heapSpacePtr;
134 ShadowSpace *shadowSpace = self->shadowSpace;
135 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
136
137 int addr, data;
138 selfVerificationLoadDecode(heapArgSpace, &addr);
139
140 int maskedAddr = addr & 0xFFFFFFFC;
141 int alignment = addr & 0x3;
142
143 for (heapSpacePtr = shadowSpace->heapSpace;
144 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
145 if (heapSpacePtr->addr == maskedAddr) {
146 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
147 data = *((unsigned char*) addr);
148 break;
149 }
150 }
151
152 if (heapSpacePtr == shadowSpace->heapSpaceTail)
153 data = *((unsigned char*) addr);
154
155 //LOGD("*** HEAP LOAD BYTE: Addr: 0x%x Data: 0x%x", addr, data);
156
157 int reg = (heapArgSpace->regMap >> 4) & 0xF;
158 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
159}
160
161static void selfVerificationLoadHalfword(InterpState* interpState)
162{
163 Thread *self = dvmThreadSelf();
164 ShadowHeap *heapSpacePtr;
165 ShadowSpace *shadowSpace = self->shadowSpace;
166 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
167
168 int addr, data;
169 selfVerificationLoadDecode(heapArgSpace, &addr);
170
171 int maskedAddr = addr & 0xFFFFFFFC;
172 int alignment = addr & 0x2;
173
174 for (heapSpacePtr = shadowSpace->heapSpace;
175 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
176 if (heapSpacePtr->addr == maskedAddr) {
177 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
178 data = *((unsigned short*) addr);
179 break;
180 }
181 }
182
183 if (heapSpacePtr == shadowSpace->heapSpaceTail)
184 data = *((unsigned short*) addr);
185
186 //LOGD("*** HEAP LOAD HALFWORD: Addr: 0x%x Data: 0x%x", addr, data);
187
188 int reg = (heapArgSpace->regMap >> 4) & 0xF;
189 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
190}
191
192static void selfVerificationLoadSignedByte(InterpState* interpState)
193{
194 Thread *self = dvmThreadSelf();
195 ShadowHeap* heapSpacePtr;
196 ShadowSpace* shadowSpace = self->shadowSpace;
197 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
198
199 int addr, data;
200 selfVerificationLoadDecode(heapArgSpace, &addr);
201
202 int maskedAddr = addr & 0xFFFFFFFC;
203 int alignment = addr & 0x3;
204
205 for (heapSpacePtr = shadowSpace->heapSpace;
206 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
207 if (heapSpacePtr->addr == maskedAddr) {
208 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
209 data = *((signed char*) addr);
210 break;
211 }
212 }
213
214 if (heapSpacePtr == shadowSpace->heapSpaceTail)
215 data = *((signed char*) addr);
216
217 //LOGD("*** HEAP LOAD SIGNED BYTE: Addr: 0x%x Data: 0x%x", addr, data);
218
219 int reg = (heapArgSpace->regMap >> 4) & 0xF;
220 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
221}
222
223static void selfVerificationLoadSignedHalfword(InterpState* interpState)
224{
225 Thread *self = dvmThreadSelf();
226 ShadowHeap* heapSpacePtr;
227 ShadowSpace* shadowSpace = self->shadowSpace;
228 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
229
230 int addr, data;
231 selfVerificationLoadDecode(heapArgSpace, &addr);
232
233 int maskedAddr = addr & 0xFFFFFFFC;
234 int alignment = addr & 0x2;
235
236 for (heapSpacePtr = shadowSpace->heapSpace;
237 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
238 if (heapSpacePtr->addr == maskedAddr) {
239 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
240 data = *((signed short*) addr);
241 break;
242 }
243 }
244
245 if (heapSpacePtr == shadowSpace->heapSpaceTail)
246 data = *((signed short*) addr);
247
248 //LOGD("*** HEAP LOAD SIGNED HALFWORD: Addr: 0x%x Data: 0x%x", addr, data);
249
250 int reg = (heapArgSpace->regMap >> 4) & 0xF;
251 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
252}
253
254static void selfVerificationLoadDoubleword(InterpState* interpState)
255{
256 Thread *self = dvmThreadSelf();
257 ShadowHeap* heapSpacePtr;
258 ShadowSpace* shadowSpace = self->shadowSpace;
259 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
260
261 int addr;
262 selfVerificationLoadDecode(heapArgSpace, &addr);
263
264 int addr2 = addr+4;
265 unsigned int data = *((unsigned int*) addr);
266 unsigned int data2 = *((unsigned int*) addr2);
267
268 for (heapSpacePtr = shadowSpace->heapSpace;
269 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
270 if (heapSpacePtr->addr == addr) {
271 data = heapSpacePtr->data;
272 } else if (heapSpacePtr->addr == addr2) {
273 data2 = heapSpacePtr->data;
274 }
275 }
276
277 //LOGD("*** HEAP LOAD DOUBLEWORD: Addr: 0x%x Data: 0x%x Data2: 0x%x",
278 // addr, data, data2);
279
280 int reg = (heapArgSpace->regMap >> 4) & 0xF;
281 int reg2 = (heapArgSpace->regMap >> 8) & 0xF;
282 selfVerificationLoadDecodeData(heapArgSpace, data, reg);
283 selfVerificationLoadDecodeData(heapArgSpace, data2, reg2);
284}
285
286/* Decode contents of heapArgSpace to determine arguments to store. */
287static void selfVerificationStoreDecode(HeapArgSpace* heapArgSpace,
288 int* value, int reg)
289{
290 switch (reg) {
291 case 0:
292 *value = heapArgSpace->r0;
293 break;
294 case 1:
295 *value = heapArgSpace->r1;
296 break;
297 case 2:
298 *value = heapArgSpace->r2;
299 break;
300 case 3:
301 *value = heapArgSpace->r3;
302 break;
303 default:
304 LOGE("ERROR: bad reg passed to selfVerificationStoreDecode: %d",
305 reg);
306 break;
307 }
308}
309
310static void selfVerificationStore(InterpState* interpState)
311{
312 Thread *self = dvmThreadSelf();
313 ShadowHeap *heapSpacePtr;
314 ShadowSpace *shadowSpace = self->shadowSpace;
315 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
316
317 int addr, data;
318 int reg0 = heapArgSpace->regMap & 0xF;
319 int reg1 = (heapArgSpace->regMap >> 4) & 0xF;
320 selfVerificationStoreDecode(heapArgSpace, &addr, reg0);
321 selfVerificationStoreDecode(heapArgSpace, &data, reg1);
322
323 //LOGD("*** HEAP STORE: Addr: 0x%x Data: 0x%x", addr, data);
324
325 for (heapSpacePtr = shadowSpace->heapSpace;
326 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
327 if (heapSpacePtr->addr == addr) break;
328 }
329
330 if (heapSpacePtr == shadowSpace->heapSpaceTail) {
331 heapSpacePtr->addr = addr;
332 shadowSpace->heapSpaceTail++;
333 }
334
335 heapSpacePtr->data = data;
336}
337
338static void selfVerificationStoreByte(InterpState* interpState)
339{
340 Thread *self = dvmThreadSelf();
341 ShadowHeap *heapSpacePtr;
342 ShadowSpace *shadowSpace = self->shadowSpace;
343 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
344
345 int addr, data;
346 int reg0 = heapArgSpace->regMap & 0xF;
347 int reg1 = (heapArgSpace->regMap >> 4) & 0xF;
348 selfVerificationStoreDecode(heapArgSpace, &addr, reg0);
349 selfVerificationStoreDecode(heapArgSpace, &data, reg1);
350
351 int maskedAddr = addr & 0xFFFFFFFC;
352 int alignment = addr & 0x3;
353
354 //LOGD("*** HEAP STORE BYTE: Addr: 0x%x Data: 0x%x", addr, data);
355
356 for (heapSpacePtr = shadowSpace->heapSpace;
357 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
358 if (heapSpacePtr->addr == maskedAddr) break;
359 }
360
361 if (heapSpacePtr == shadowSpace->heapSpaceTail) {
362 heapSpacePtr->addr = maskedAddr;
363 heapSpacePtr->data = *((unsigned int*) maskedAddr);
364 shadowSpace->heapSpaceTail++;
365 }
366
367 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
368 *((unsigned char*) addr) = (char) data;
369
370 //LOGD("*** HEAP STORE BYTE: Addr: 0x%x Final Data: 0x%x",
371 // addr, heapSpacePtr->data);
372}
373
374static void selfVerificationStoreHalfword(InterpState* interpState)
375{
376 Thread *self = dvmThreadSelf();
377 ShadowHeap *heapSpacePtr;
378 ShadowSpace *shadowSpace = self->shadowSpace;
379 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
380
381 int addr, data;
382 int reg0 = heapArgSpace->regMap & 0xF;
383 int reg1 = (heapArgSpace->regMap >> 4) & 0xF;
384 selfVerificationStoreDecode(heapArgSpace, &addr, reg0);
385 selfVerificationStoreDecode(heapArgSpace, &data, reg1);
386
387 int maskedAddr = addr & 0xFFFFFFFC;
388 int alignment = addr & 0x2;
389
390 //LOGD("*** HEAP STORE HALFWORD: Addr: 0x%x Data: 0x%x", addr, data);
391
392 for (heapSpacePtr = shadowSpace->heapSpace;
393 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
394 if (heapSpacePtr->addr == maskedAddr) break;
395 }
396
397 if (heapSpacePtr == shadowSpace->heapSpaceTail) {
398 heapSpacePtr->addr = maskedAddr;
399 heapSpacePtr->data = *((unsigned int*) maskedAddr);
400 shadowSpace->heapSpaceTail++;
401 }
402
403 addr = ((unsigned int) &(heapSpacePtr->data)) | alignment;
404 *((unsigned short*) addr) = (short) data;
405
406 //LOGD("*** HEAP STORE HALFWORD: Addr: 0x%x Final Data: 0x%x",
407 // addr, heapSpacePtr->data);
408}
409
410static void selfVerificationStoreDoubleword(InterpState* interpState)
411{
412 Thread *self = dvmThreadSelf();
413 ShadowHeap *heapSpacePtr;
414 ShadowSpace *shadowSpace = self->shadowSpace;
415 HeapArgSpace *heapArgSpace = &(interpState->heapArgSpace);
416
417 int addr, data, data2;
418 int reg0 = heapArgSpace->regMap & 0xF;
419 int reg1 = (heapArgSpace->regMap >> 4) & 0xF;
420 int reg2 = (heapArgSpace->regMap >> 8) & 0xF;
421 selfVerificationStoreDecode(heapArgSpace, &addr, reg0);
422 selfVerificationStoreDecode(heapArgSpace, &data, reg1);
423 selfVerificationStoreDecode(heapArgSpace, &data2, reg2);
424
425 int addr2 = addr+4;
426 bool store1 = false, store2 = false;
427
428 //LOGD("*** HEAP STORE DOUBLEWORD: Addr: 0x%x Data: 0x%x, Data2: 0x%x",
429 // addr, data, data2);
430
431 for (heapSpacePtr = shadowSpace->heapSpace;
432 heapSpacePtr != shadowSpace->heapSpaceTail; heapSpacePtr++) {
433 if (heapSpacePtr->addr == addr) {
434 heapSpacePtr->data = data;
435 store1 = true;
436 } else if (heapSpacePtr->addr == addr2) {
437 heapSpacePtr->data = data2;
438 store2 = true;
439 }
440 }
441
442 if (!store1) {
443 shadowSpace->heapSpaceTail->addr = addr;
444 shadowSpace->heapSpaceTail->data = data;
445 shadowSpace->heapSpaceTail++;
446 }
447 if (!store2) {
448 shadowSpace->heapSpaceTail->addr = addr2;
449 shadowSpace->heapSpaceTail->data = data2;
450 shadowSpace->heapSpaceTail++;
451 }
452}
453
454/* Common wrapper function for all memory operations */
455static void selfVerificationMemOpWrapper(CompilationUnit *cUnit, int regMap,
456 void* funct)
457{
458 int regMask = (1 << r4PC) | (1 << r3) | (1 << r2) | (1 << r1) | (1 << r0);
459
460 /* r7 <- InterpState->heapArgSpace */
461 loadConstant(cUnit, r4PC, offsetof(InterpState, heapArgSpace));
462 newLIR3(cUnit, THUMB_ADD_RRR, r7, rGLUE, r4PC);
463
464 /* Save out values to heapArgSpace */
465 loadConstant(cUnit, r4PC, regMap);
466 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
467
468 /* Pass interpState pointer to function */
469 newLIR2(cUnit, THUMB_MOV_RR, r0, rGLUE);
470
471 /* Set function pointer and branch */
472 loadConstant(cUnit, r1, (int) funct);
473 newLIR1(cUnit, THUMB_BLX_R, r1);
474
475 /* r7 <- InterpState->heapArgSpace */
476 loadConstant(cUnit, r4PC, offsetof(InterpState, heapArgSpace));
477 newLIR3(cUnit, THUMB_ADD_RRR, r7, rGLUE, r4PC);
478
479 /* Restore register state */
480 newLIR2(cUnit, THUMB_LDMIA, r7, regMask);
481}
482#endif
483
Ben Chengba4fc8b2009-06-01 13:00:29 -0700484/*****************************************************************************/
485
486/*
487 * The following are building blocks to construct low-level IRs with 0 - 3
488 * operands.
489 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700490static ArmLIR *newLIR0(CompilationUnit *cUnit, ArmOpCode opCode)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700491{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700492 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -0700493 assert(isPseudoOpCode(opCode) || (EncodingMap[opCode].flags & NO_OPERAND));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700494 insn->opCode = opCode;
495 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
496 return insn;
497}
498
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700499static ArmLIR *newLIR1(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700500 int dest)
501{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700502 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -0700503 assert(isPseudoOpCode(opCode) || (EncodingMap[opCode].flags & IS_UNARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700504 insn->opCode = opCode;
505 insn->operands[0] = dest;
506 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
507 return insn;
508}
509
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700510static ArmLIR *newLIR2(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700511 int dest, int src1)
512{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700513 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -0700514 assert(isPseudoOpCode(opCode) ||
515 (EncodingMap[opCode].flags & IS_BINARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700516 insn->opCode = opCode;
517 insn->operands[0] = dest;
518 insn->operands[1] = src1;
519 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
520 return insn;
521}
522
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700523static ArmLIR *newLIR3(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700524 int dest, int src1, int src2)
525{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700526 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -0700527 assert(isPseudoOpCode(opCode) ||
528 (EncodingMap[opCode].flags & IS_TERTIARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700529 insn->opCode = opCode;
530 insn->operands[0] = dest;
531 insn->operands[1] = src1;
532 insn->operands[2] = src2;
533 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
534 return insn;
535}
536
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700537static ArmLIR *newLIR23(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700538 int srcdest, int src2)
539{
540 assert(!isPseudoOpCode(opCode));
Ben Chenge9695e52009-06-16 16:11:47 -0700541 if (EncodingMap[opCode].flags & IS_BINARY_OP)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700542 return newLIR2(cUnit, opCode, srcdest, src2);
543 else
544 return newLIR3(cUnit, opCode, srcdest, srcdest, src2);
545}
546
547/*****************************************************************************/
548
549/*
550 * The following are building blocks to insert constants into the pool or
551 * instruction streams.
552 */
553
554/* Add a 32-bit constant either in the constant pool or mixed with code */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700555static ArmLIR *addWordData(CompilationUnit *cUnit, int value, bool inPlace)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700556{
557 /* Add the constant to the literal pool */
558 if (!inPlace) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700559 ArmLIR *newValue = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700560 newValue->operands[0] = value;
561 newValue->generic.next = cUnit->wordList;
562 cUnit->wordList = (LIR *) newValue;
563 return newValue;
564 } else {
565 /* Add the constant in the middle of code stream */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700566 newLIR1(cUnit, ARM_16BIT_DATA, (value & 0xffff));
567 newLIR1(cUnit, ARM_16BIT_DATA, (value >> 16));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700568 }
569 return NULL;
570}
571
572/*
573 * Search the existing constants in the literal pool for an exact or close match
574 * within specified delta (greater or equal to 0).
575 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700576static ArmLIR *scanLiteralPool(CompilationUnit *cUnit, int value,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700577 unsigned int delta)
578{
579 LIR *dataTarget = cUnit->wordList;
580 while (dataTarget) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700581 if (((unsigned) (value - ((ArmLIR *) dataTarget)->operands[0])) <=
Ben Chengba4fc8b2009-06-01 13:00:29 -0700582 delta)
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700583 return (ArmLIR *) dataTarget;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700584 dataTarget = dataTarget->next;
585 }
586 return NULL;
587}
588
Ben Chengba4fc8b2009-06-01 13:00:29 -0700589/* Perform the actual operation for OP_RETURN_* */
590static void genReturnCommon(CompilationUnit *cUnit, MIR *mir)
591{
592 genDispatchToHandler(cUnit, TEMPLATE_RETURN);
593#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -0700594 gDvmJit.returnOp++;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700595#endif
596 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee9bc3df32009-07-30 10:52:29 -0700597 /* Insert branch, but defer setting of target */
598 ArmLIR *branch = genUnconditionalBranch(cUnit, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700599 /* Set up the place holder to reconstruct this Dalvik PC */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700600 ArmLIR *pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
601 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700602 pcrLabel->operands[0] = dPC;
603 pcrLabel->operands[1] = mir->offset;
604 /* Insert the place holder to the growable list */
605 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
606 /* Branch to the PC reconstruction code */
607 branch->generic.target = (LIR *) pcrLabel;
608}
609
610/*
Ben Chengba4fc8b2009-06-01 13:00:29 -0700611 * Perform a binary operation on 64-bit operands and leave the results in the
612 * r0/r1 pair.
613 */
614static void genBinaryOpWide(CompilationUnit *cUnit, int vDest,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700615 ArmOpCode preinst, ArmOpCode inst,
Ben Chenge9695e52009-06-16 16:11:47 -0700616 int reg0, int reg2)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700617{
Ben Chenge9695e52009-06-16 16:11:47 -0700618 int reg1 = NEXT_REG(reg0);
619 int reg3 = NEXT_REG(reg2);
620 newLIR23(cUnit, preinst, reg0, reg2);
621 newLIR23(cUnit, inst, reg1, reg3);
622 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700623}
624
625/* Perform a binary operation on 32-bit operands and leave the results in r0. */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700626static void genBinaryOp(CompilationUnit *cUnit, int vDest, ArmOpCode inst,
Ben Chenge9695e52009-06-16 16:11:47 -0700627 int reg0, int reg1, int regDest)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700628{
Ben Chenge9695e52009-06-16 16:11:47 -0700629 if (EncodingMap[inst].flags & IS_BINARY_OP) {
630 newLIR2(cUnit, inst, reg0, reg1);
631 storeValue(cUnit, reg0, vDest, reg1);
632 } else {
633 newLIR3(cUnit, inst, regDest, reg0, reg1);
634 storeValue(cUnit, regDest, vDest, reg1);
635 }
Ben Chengba4fc8b2009-06-01 13:00:29 -0700636}
637
638/* Create the PC reconstruction slot if not already done */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700639static inline ArmLIR *genCheckCommon(CompilationUnit *cUnit, int dOffset,
640 ArmLIR *branch,
641 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700642{
643 /* Set up the place holder to reconstruct this Dalvik PC */
644 if (pcrLabel == NULL) {
645 int dPC = (int) (cUnit->method->insns + dOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700646 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
647 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700648 pcrLabel->operands[0] = dPC;
649 pcrLabel->operands[1] = dOffset;
650 /* Insert the place holder to the growable list */
651 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
652 }
653 /* Branch to the PC reconstruction code */
654 branch->generic.target = (LIR *) pcrLabel;
655 return pcrLabel;
656}
657
Ben Chengba4fc8b2009-06-01 13:00:29 -0700658
659/*
660 * Perform a "reg cmp reg" operation and jump to the PCR region if condition
661 * satisfies.
662 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700663static inline ArmLIR *inertRegRegCheck(CompilationUnit *cUnit,
664 ArmConditionCode cond,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700665 int reg1, int reg2, int dOffset,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700666 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700667{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700668 newLIR2(cUnit, THUMB_CMP_RR, reg1, reg2);
669 ArmLIR *branch = newLIR2(cUnit, THUMB_B_COND, 0, cond);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700670 return genCheckCommon(cUnit, dOffset, branch, pcrLabel);
671}
672
Ben Chenge9695e52009-06-16 16:11:47 -0700673/*
674 * Perform null-check on a register. vReg is the Dalvik register being checked,
675 * and mReg is the machine register holding the actual value. If internal state
676 * indicates that vReg has been checked before the check request is ignored.
677 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700678static ArmLIR *genNullCheck(CompilationUnit *cUnit, int vReg, int mReg,
679 int dOffset, ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700680{
Ben Chenge9695e52009-06-16 16:11:47 -0700681 /* This particular Dalvik register has been null-checked */
682 if (dvmIsBitSet(cUnit->registerScoreboard.nullCheckedRegs, vReg)) {
683 return pcrLabel;
684 }
685 dvmSetBit(cUnit->registerScoreboard.nullCheckedRegs, vReg);
686 return genRegImmCheck(cUnit, ARM_COND_EQ, mReg, 0, dOffset, pcrLabel);
687}
688
689/*
690 * Perform zero-check on a register. Similar to genNullCheck but the value being
691 * checked does not have a corresponding Dalvik register.
692 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700693static ArmLIR *genZeroCheck(CompilationUnit *cUnit, int mReg,
694 int dOffset, ArmLIR *pcrLabel)
Ben Chenge9695e52009-06-16 16:11:47 -0700695{
696 return genRegImmCheck(cUnit, ARM_COND_EQ, mReg, 0, dOffset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700697}
698
699/* Perform bound check on two registers */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700700static ArmLIR *genBoundsCheck(CompilationUnit *cUnit, int rIndex,
701 int rBound, int dOffset, ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700702{
703 return inertRegRegCheck(cUnit, ARM_COND_CS, rIndex, rBound, dOffset,
704 pcrLabel);
705}
706
707/* Generate a unconditional branch to go to the interpreter */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700708static inline ArmLIR *genTrap(CompilationUnit *cUnit, int dOffset,
709 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700710{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700711 ArmLIR *branch = newLIR0(cUnit, THUMB_B_UNCOND);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700712 return genCheckCommon(cUnit, dOffset, branch, pcrLabel);
713}
714
715/* Load a wide field from an object instance */
716static void genIGetWide(CompilationUnit *cUnit, MIR *mir, int fieldOffset)
717{
718 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700719 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700720
Ben Chenge9695e52009-06-16 16:11:47 -0700721 /* Allocate reg0..reg3 into physical registers r0..r3 */
722
723 /* See if vB is in a native register. If so, reuse it. */
724 reg2 = selectFirstRegister(cUnit, dInsn->vB, false);
725 /* Ping reg3 to the other register of the same pair containing reg2 */
726 reg3 = reg2 ^ 0x1;
727 /*
728 * Ping reg0 to the first register of the alternate register pair
729 */
730 reg0 = (reg2 + 2) & 0x2;
731 reg1 = NEXT_REG(reg0);
732
733 loadValue(cUnit, dInsn->vB, reg2);
734 loadConstant(cUnit, reg3, fieldOffset);
735 genNullCheck(cUnit, dInsn->vB, reg2, mir->offset, NULL); /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700736 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
Jeff Hao97319a82009-08-12 16:57:15 -0700737#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700738 newLIR2(cUnit, THUMB_LDMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chenge9695e52009-06-16 16:11:47 -0700739 storeValuePair(cUnit, reg0, reg1, dInsn->vA, reg3);
Jeff Hao97319a82009-08-12 16:57:15 -0700740#else
741 int regMap = reg1 << 8 | reg0 << 4 | reg2;
742 selfVerificationMemOpWrapper(cUnit, regMap,
743 &selfVerificationLoadDoubleword);
744
745 storeValuePair(cUnit, reg0, reg1, dInsn->vA, reg3);
746#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -0700747}
748
749/* Store a wide field to an object instance */
750static void genIPutWide(CompilationUnit *cUnit, MIR *mir, int fieldOffset)
751{
752 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700753 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700754
Ben Chenge9695e52009-06-16 16:11:47 -0700755 /* Allocate reg0..reg3 into physical registers r0..r3 */
756
757 /* See if vB is in a native register. If so, reuse it. */
758 reg2 = selectFirstRegister(cUnit, dInsn->vB, false);
759 /* Ping reg3 to the other register of the same pair containing reg2 */
760 reg3 = reg2 ^ 0x1;
761 /*
762 * Ping reg0 to the first register of the alternate register pair
763 */
764 reg0 = (reg2 + 2) & 0x2;
765 reg1 = NEXT_REG(reg0);
766
767
768 loadValue(cUnit, dInsn->vB, reg2);
769 loadValuePair(cUnit, dInsn->vA, reg0, reg1);
770 updateLiveRegisterPair(cUnit, dInsn->vA, reg0, reg1);
771 loadConstant(cUnit, reg3, fieldOffset);
772 genNullCheck(cUnit, dInsn->vB, reg2, mir->offset, NULL); /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700773 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
Jeff Hao97319a82009-08-12 16:57:15 -0700774#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700775 newLIR2(cUnit, THUMB_STMIA, reg2, (1<<reg0 | 1<<reg1));
Jeff Hao97319a82009-08-12 16:57:15 -0700776#else
777 int regMap = reg1 << 8 | reg0 << 4 | reg2;
778 selfVerificationMemOpWrapper(cUnit, regMap,
779 &selfVerificationStoreDoubleword);
780#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -0700781}
782
783/*
784 * Load a field from an object instance
785 *
786 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700787 * THUMB_LDR_RRR
788 * THUMB_LDRB_RRR
789 * THUMB_LDRH_RRR
790 * THUMB_LDRSB_RRR
791 * THUMB_LDRSH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700792 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700793static void genIGet(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700794 int fieldOffset)
795{
796 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700797 int reg0, reg1;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700798
Ben Chenge9695e52009-06-16 16:11:47 -0700799 reg0 = selectFirstRegister(cUnit, dInsn->vB, false);
800 reg1 = NEXT_REG(reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700801 /* TUNING: write a utility routine to load via base + constant offset */
Ben Chenge9695e52009-06-16 16:11:47 -0700802 loadValue(cUnit, dInsn->vB, reg0);
803 loadConstant(cUnit, reg1, fieldOffset);
804 genNullCheck(cUnit, dInsn->vB, reg0, mir->offset, NULL); /* null object? */
Jeff Hao97319a82009-08-12 16:57:15 -0700805#if !defined(WITH_SELF_VERIFICATION)
Ben Chenge9695e52009-06-16 16:11:47 -0700806 newLIR3(cUnit, inst, reg0, reg0, reg1);
807 storeValue(cUnit, reg0, dInsn->vA, reg1);
Jeff Hao97319a82009-08-12 16:57:15 -0700808#else
809 /* Combine address and offset */
810 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, reg1);
811
812 int regMap = reg0 << 4 | reg0;
813 selfVerificationMemOpWrapper(cUnit, regMap, &selfVerificationLoad);
814
815 storeValue(cUnit, reg0, dInsn->vA, reg1);
816#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -0700817}
818
819/*
820 * Store a field to an object instance
821 *
822 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700823 * THUMB_STR_RRR
824 * THUMB_STRB_RRR
825 * THUMB_STRH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700826 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700827static void genIPut(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700828 int fieldOffset)
829{
830 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700831 int reg0, reg1, reg2;
832
833 reg0 = selectFirstRegister(cUnit, dInsn->vB, false);
834 reg1 = NEXT_REG(reg0);
835 reg2 = NEXT_REG(reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700836
837 /* TUNING: write a utility routine to load via base + constant offset */
Ben Chenge9695e52009-06-16 16:11:47 -0700838 loadValue(cUnit, dInsn->vB, reg0);
839 loadConstant(cUnit, reg1, fieldOffset);
840 loadValue(cUnit, dInsn->vA, reg2);
841 updateLiveRegister(cUnit, dInsn->vA, reg2);
842 genNullCheck(cUnit, dInsn->vB, reg0, mir->offset, NULL); /* null object? */
Jeff Hao97319a82009-08-12 16:57:15 -0700843#if !defined(WITH_SELF_VERIFICATION)
Ben Chenge9695e52009-06-16 16:11:47 -0700844 newLIR3(cUnit, inst, reg2, reg0, reg1);
Jeff Hao97319a82009-08-12 16:57:15 -0700845#else
846 /* Combine address and offset */
847 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, reg1);
848
849 int regMap = reg2 << 4 | reg0;
850 selfVerificationMemOpWrapper(cUnit, regMap, &selfVerificationStore);
851
852 newLIR3(cUnit, THUMB_SUB_RRR, reg0, reg0, reg1);
853#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -0700854}
855
856
857/* TODO: This should probably be done as an out-of-line instruction handler. */
858
859/*
860 * Generate array load
861 *
862 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700863 * THUMB_LDR_RRR
864 * THUMB_LDRB_RRR
865 * THUMB_LDRH_RRR
866 * THUMB_LDRSB_RRR
867 * THUMB_LDRSH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700868 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700869static void genArrayGet(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700870 int vArray, int vIndex, int vDest, int scale)
871{
872 int lenOffset = offsetof(ArrayObject, length);
873 int dataOffset = offsetof(ArrayObject, contents);
Ben Chenge9695e52009-06-16 16:11:47 -0700874 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700875
Ben Chenge9695e52009-06-16 16:11:47 -0700876 reg0 = selectFirstRegister(cUnit, vArray, false);
877 reg1 = NEXT_REG(reg0);
878 reg2 = NEXT_REG(reg1);
879 reg3 = NEXT_REG(reg2);
880
881 loadValue(cUnit, vArray, reg2);
882 loadValue(cUnit, vIndex, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700883
884 /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700885 ArmLIR * pcrLabel = genNullCheck(cUnit, vArray, reg2, mir->offset,
Ben Chenge9695e52009-06-16 16:11:47 -0700886 NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700887 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg2, lenOffset >> 2); /* Get len */
888 newLIR2(cUnit, THUMB_ADD_RI8, reg2, dataOffset); /* reg2 -> array data */
Ben Chenge9695e52009-06-16 16:11:47 -0700889 genBoundsCheck(cUnit, reg3, reg0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700890 if (scale) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700891 newLIR3(cUnit, THUMB_LSL, reg3, reg3, scale);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700892 }
Jeff Hao97319a82009-08-12 16:57:15 -0700893#if !defined(WITH_SELF_VERIFICATION)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700894 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700895 newLIR3(cUnit, inst, reg0, reg2, reg3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700896 newLIR2(cUnit, THUMB_ADD_RI8, reg2, 4);
Ben Chenge9695e52009-06-16 16:11:47 -0700897 newLIR3(cUnit, inst, reg1, reg2, reg3);
898 storeValuePair(cUnit, reg0, reg1, vDest, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700899 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700900 newLIR3(cUnit, inst, reg0, reg2, reg3);
901 storeValue(cUnit, reg0, vDest, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700902 }
Jeff Hao97319a82009-08-12 16:57:15 -0700903#else
904 void* funct;
905 switch (scale) {
906 case 0:
907 if (inst == THUMB_LDRSB_RRR)
908 funct = (void*) &selfVerificationLoadSignedByte;
909 else
910 funct = (void*) &selfVerificationLoadByte;
911 break;
912 case 1:
913 if (inst == THUMB_LDRSH_RRR)
914 funct = (void*) &selfVerificationLoadSignedHalfword;
915 else
916 funct = (void*) &selfVerificationLoadHalfword;
917 break;
918 case 2:
919 funct = (void*) &selfVerificationLoad;
920 break;
921 case 3:
922 funct = (void*) &selfVerificationLoadDoubleword;
923 break;
924 default:
925 LOGE("ERROR: bad scale value in genArrayGet: %d", scale);
926 funct = (void*) &selfVerificationLoad;
927 break;
928 }
929
930 /* Combine address and offset */
931 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
932
933 int regMap = reg1 << 8 | reg0 << 4 | reg2;
934 selfVerificationMemOpWrapper(cUnit, regMap, funct);
935
936 newLIR3(cUnit, THUMB_SUB_RRR, reg2, reg2, reg3);
937
938 if (scale==3)
939 storeValuePair(cUnit, reg0, reg1, vDest, reg3);
940 else
941 storeValue(cUnit, reg0, vDest, reg3);
942#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -0700943}
944
945/* TODO: This should probably be done as an out-of-line instruction handler. */
946
947/*
948 * Generate array store
949 *
950 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700951 * THUMB_STR_RRR
952 * THUMB_STRB_RRR
953 * THUMB_STRH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700954 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700955static void genArrayPut(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700956 int vArray, int vIndex, int vSrc, int scale)
957{
958 int lenOffset = offsetof(ArrayObject, length);
959 int dataOffset = offsetof(ArrayObject, contents);
Ben Chenge9695e52009-06-16 16:11:47 -0700960 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700961
Ben Chenge9695e52009-06-16 16:11:47 -0700962 reg0 = selectFirstRegister(cUnit, vArray, false);
963 reg1 = NEXT_REG(reg0);
964 reg2 = NEXT_REG(reg1);
965 reg3 = NEXT_REG(reg2);
966
967 loadValue(cUnit, vArray, reg2);
968 loadValue(cUnit, vIndex, reg3);
969
Ben Cheng1efc9c52009-06-08 18:25:27 -0700970 /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700971 ArmLIR * pcrLabel = genNullCheck(cUnit, vArray, reg2, mir->offset,
Ben Chenge9695e52009-06-16 16:11:47 -0700972 NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700973 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg2, lenOffset >> 2); /* Get len */
974 newLIR2(cUnit, THUMB_ADD_RI8, reg2, dataOffset); /* reg2 -> array data */
Ben Chenge9695e52009-06-16 16:11:47 -0700975 genBoundsCheck(cUnit, reg3, reg0, mir->offset, pcrLabel);
976 /* at this point, reg2 points to array, reg3 is unscaled index */
Ben Chengba4fc8b2009-06-01 13:00:29 -0700977 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700978 loadValuePair(cUnit, vSrc, reg0, reg1);
979 updateLiveRegisterPair(cUnit, vSrc, reg0, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700980 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700981 loadValue(cUnit, vSrc, reg0);
982 updateLiveRegister(cUnit, vSrc, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700983 }
984 if (scale) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700985 newLIR3(cUnit, THUMB_LSL, reg3, reg3, scale);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700986 }
987 /*
Ben Chenge9695e52009-06-16 16:11:47 -0700988 * at this point, reg2 points to array, reg3 is scaled index, and
989 * reg0[reg1] is data
Ben Chengba4fc8b2009-06-01 13:00:29 -0700990 */
Jeff Hao97319a82009-08-12 16:57:15 -0700991#if !defined(WITH_SELF_VERIFICATION)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700992 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700993 newLIR3(cUnit, inst, reg0, reg2, reg3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700994 newLIR2(cUnit, THUMB_ADD_RI8, reg2, 4);
Ben Chenge9695e52009-06-16 16:11:47 -0700995 newLIR3(cUnit, inst, reg1, reg2, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700996 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700997 newLIR3(cUnit, inst, reg0, reg2, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700998 }
Jeff Hao97319a82009-08-12 16:57:15 -0700999#else
1000 void *funct;
1001 switch (scale) {
1002 case 0:
1003 funct = (void*) &selfVerificationStoreByte;
1004 break;
1005 case 1:
1006 funct = (void*) &selfVerificationStoreHalfword;
1007 break;
1008 case 2:
1009 funct = (void*) &selfVerificationStore;
1010 break;
1011 case 3:
1012 funct = (void*) &selfVerificationStoreDoubleword;
1013 break;
1014 default:
1015 LOGE("ERROR: bad scale value in genArrayPut: %d", scale);
1016 funct = (void*) &selfVerificationStore;
1017 break;
1018 }
1019
1020 /* Combine address and offset */
1021 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
1022
1023 int regMap = reg1 << 8 | reg0 << 4 | reg2;
1024 selfVerificationMemOpWrapper(cUnit, regMap, funct);
1025
1026 newLIR3(cUnit, THUMB_SUB_RRR, reg2, reg2, reg3);
1027#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07001028}
1029
1030static bool genShiftOpLong(CompilationUnit *cUnit, MIR *mir, int vDest,
1031 int vSrc1, int vShift)
1032{
Ben Chenge9695e52009-06-16 16:11:47 -07001033 /*
1034 * Don't mess with the regsiters here as there is a particular calling
1035 * convention to the out-of-line handler.
1036 */
1037 loadValue(cUnit, vShift, r2);
1038 loadValuePair(cUnit, vSrc1, r0, r1);
1039 switch( mir->dalvikInsn.opCode) {
1040 case OP_SHL_LONG:
1041 case OP_SHL_LONG_2ADDR:
1042 genDispatchToHandler(cUnit, TEMPLATE_SHL_LONG);
1043 break;
1044 case OP_SHR_LONG:
1045 case OP_SHR_LONG_2ADDR:
1046 genDispatchToHandler(cUnit, TEMPLATE_SHR_LONG);
1047 break;
1048 case OP_USHR_LONG:
1049 case OP_USHR_LONG_2ADDR:
1050 genDispatchToHandler(cUnit, TEMPLATE_USHR_LONG);
1051 break;
1052 default:
1053 return true;
1054 }
1055 storeValuePair(cUnit, r0, r1, vDest, r2);
1056 return false;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001057}
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001058bool genArithOpFloatPortable(CompilationUnit *cUnit, MIR *mir,
1059 int vDest, int vSrc1, int vSrc2)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001060{
Ben Chenge9695e52009-06-16 16:11:47 -07001061 /*
1062 * Don't optimize the regsiter usage here as they are governed by the EABI
1063 * calling convention.
1064 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001065 void* funct;
Ben Chenge9695e52009-06-16 16:11:47 -07001066 int reg0, reg1;
1067
Ben Chengba4fc8b2009-06-01 13:00:29 -07001068 /* TODO: use a proper include file to define these */
1069 float __aeabi_fadd(float a, float b);
1070 float __aeabi_fsub(float a, float b);
1071 float __aeabi_fdiv(float a, float b);
1072 float __aeabi_fmul(float a, float b);
1073 float fmodf(float a, float b);
1074
Ben Chenge9695e52009-06-16 16:11:47 -07001075 reg0 = selectFirstRegister(cUnit, vSrc2, false);
1076 reg1 = NEXT_REG(reg0);
1077
Ben Chengba4fc8b2009-06-01 13:00:29 -07001078 switch (mir->dalvikInsn.opCode) {
1079 case OP_ADD_FLOAT_2ADDR:
1080 case OP_ADD_FLOAT:
1081 funct = (void*) __aeabi_fadd;
1082 break;
1083 case OP_SUB_FLOAT_2ADDR:
1084 case OP_SUB_FLOAT:
1085 funct = (void*) __aeabi_fsub;
1086 break;
1087 case OP_DIV_FLOAT_2ADDR:
1088 case OP_DIV_FLOAT:
1089 funct = (void*) __aeabi_fdiv;
1090 break;
1091 case OP_MUL_FLOAT_2ADDR:
1092 case OP_MUL_FLOAT:
1093 funct = (void*) __aeabi_fmul;
1094 break;
1095 case OP_REM_FLOAT_2ADDR:
1096 case OP_REM_FLOAT:
1097 funct = (void*) fmodf;
1098 break;
1099 case OP_NEG_FLOAT: {
Ben Chenge9695e52009-06-16 16:11:47 -07001100 loadValue(cUnit, vSrc2, reg0);
1101 loadConstant(cUnit, reg1, 0x80000000);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001102 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, reg1);
Ben Chenge9695e52009-06-16 16:11:47 -07001103 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001104 return false;
1105 }
1106 default:
1107 return true;
1108 }
1109 loadConstant(cUnit, r2, (int)funct);
1110 loadValue(cUnit, vSrc1, r0);
1111 loadValue(cUnit, vSrc2, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001112 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001113 storeValue(cUnit, r0, vDest, r1);
1114 return false;
1115}
1116
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001117bool genArithOpDoublePortable(CompilationUnit *cUnit, MIR *mir,
1118 int vDest, int vSrc1, int vSrc2)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001119{
1120 void* funct;
Ben Chenge9695e52009-06-16 16:11:47 -07001121 int reg0, reg1, reg2;
1122
Ben Chengba4fc8b2009-06-01 13:00:29 -07001123 /* TODO: use a proper include file to define these */
1124 double __aeabi_dadd(double a, double b);
1125 double __aeabi_dsub(double a, double b);
1126 double __aeabi_ddiv(double a, double b);
1127 double __aeabi_dmul(double a, double b);
1128 double fmod(double a, double b);
1129
Ben Chenge9695e52009-06-16 16:11:47 -07001130 reg0 = selectFirstRegister(cUnit, vSrc2, true);
1131 reg1 = NEXT_REG(reg0);
1132 reg2 = NEXT_REG(reg1);
1133
Ben Chengba4fc8b2009-06-01 13:00:29 -07001134 switch (mir->dalvikInsn.opCode) {
1135 case OP_ADD_DOUBLE_2ADDR:
1136 case OP_ADD_DOUBLE:
1137 funct = (void*) __aeabi_dadd;
1138 break;
1139 case OP_SUB_DOUBLE_2ADDR:
1140 case OP_SUB_DOUBLE:
1141 funct = (void*) __aeabi_dsub;
1142 break;
1143 case OP_DIV_DOUBLE_2ADDR:
1144 case OP_DIV_DOUBLE:
1145 funct = (void*) __aeabi_ddiv;
1146 break;
1147 case OP_MUL_DOUBLE_2ADDR:
1148 case OP_MUL_DOUBLE:
1149 funct = (void*) __aeabi_dmul;
1150 break;
1151 case OP_REM_DOUBLE_2ADDR:
1152 case OP_REM_DOUBLE:
1153 funct = (void*) fmod;
1154 break;
1155 case OP_NEG_DOUBLE: {
Ben Chenge9695e52009-06-16 16:11:47 -07001156 loadValuePair(cUnit, vSrc2, reg0, reg1);
1157 loadConstant(cUnit, reg2, 0x80000000);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001158 newLIR3(cUnit, THUMB_ADD_RRR, reg1, reg1, reg2);
Ben Chenge9695e52009-06-16 16:11:47 -07001159 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001160 return false;
1161 }
1162 default:
1163 return true;
1164 }
Ben Chenge9695e52009-06-16 16:11:47 -07001165 /*
1166 * Don't optimize the regsiter usage here as they are governed by the EABI
1167 * calling convention.
1168 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001169 loadConstant(cUnit, r4PC, (int)funct);
1170 loadValuePair(cUnit, vSrc1, r0, r1);
1171 loadValuePair(cUnit, vSrc2, r2, r3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001172 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001173 storeValuePair(cUnit, r0, r1, vDest, r2);
1174 return false;
1175}
1176
1177static bool genArithOpLong(CompilationUnit *cUnit, MIR *mir, int vDest,
1178 int vSrc1, int vSrc2)
1179{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001180 int firstOp = THUMB_BKPT;
1181 int secondOp = THUMB_BKPT;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001182 bool callOut = false;
1183 void *callTgt;
1184 int retReg = r0;
Ben Chenge9695e52009-06-16 16:11:47 -07001185 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001186 /* TODO - find proper .h file to declare these */
1187 long long __aeabi_ldivmod(long long op1, long long op2);
1188
1189 switch (mir->dalvikInsn.opCode) {
1190 case OP_NOT_LONG:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001191 firstOp = THUMB_MVN;
1192 secondOp = THUMB_MVN;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001193 break;
1194 case OP_ADD_LONG:
1195 case OP_ADD_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001196 firstOp = THUMB_ADD_RRR;
1197 secondOp = THUMB_ADC;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001198 break;
1199 case OP_SUB_LONG:
1200 case OP_SUB_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001201 firstOp = THUMB_SUB_RRR;
1202 secondOp = THUMB_SBC;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001203 break;
1204 case OP_MUL_LONG:
1205 case OP_MUL_LONG_2ADDR:
1206 loadValuePair(cUnit, vSrc1, r0, r1);
1207 loadValuePair(cUnit, vSrc2, r2, r3);
1208 genDispatchToHandler(cUnit, TEMPLATE_MUL_LONG);
1209 storeValuePair(cUnit, r0, r1, vDest, r2);
1210 return false;
1211 break;
1212 case OP_DIV_LONG:
1213 case OP_DIV_LONG_2ADDR:
1214 callOut = true;
1215 retReg = r0;
1216 callTgt = (void*)__aeabi_ldivmod;
1217 break;
1218 /* NOTE - result is in r2/r3 instead of r0/r1 */
1219 case OP_REM_LONG:
1220 case OP_REM_LONG_2ADDR:
1221 callOut = true;
1222 callTgt = (void*)__aeabi_ldivmod;
1223 retReg = r2;
1224 break;
1225 case OP_AND_LONG:
1226 case OP_AND_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001227 firstOp = THUMB_AND_RR;
1228 secondOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001229 break;
1230 case OP_OR_LONG:
1231 case OP_OR_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001232 firstOp = THUMB_ORR;
1233 secondOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001234 break;
1235 case OP_XOR_LONG:
1236 case OP_XOR_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001237 firstOp = THUMB_EOR;
1238 secondOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001239 break;
Ben Chenge9695e52009-06-16 16:11:47 -07001240 case OP_NEG_LONG: {
1241 reg0 = selectFirstRegister(cUnit, vSrc2, true);
1242 reg1 = NEXT_REG(reg0);
1243 reg2 = NEXT_REG(reg1);
1244 reg3 = NEXT_REG(reg2);
1245
1246 loadValuePair(cUnit, vSrc2, reg0, reg1);
1247 loadConstant(cUnit, reg3, 0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001248 newLIR3(cUnit, THUMB_SUB_RRR, reg2, reg3, reg0);
1249 newLIR2(cUnit, THUMB_SBC, reg3, reg1);
Ben Cheng38329f52009-07-07 14:19:20 -07001250 storeValuePair(cUnit, reg2, reg3, vDest, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001251 return false;
Ben Chenge9695e52009-06-16 16:11:47 -07001252 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001253 default:
1254 LOGE("Invalid long arith op");
1255 dvmAbort();
1256 }
1257 if (!callOut) {
Ben Chenge9695e52009-06-16 16:11:47 -07001258 reg0 = selectFirstRegister(cUnit, vSrc1, true);
1259 reg1 = NEXT_REG(reg0);
1260 reg2 = NEXT_REG(reg1);
1261 reg3 = NEXT_REG(reg2);
1262
1263 loadValuePair(cUnit, vSrc1, reg0, reg1);
1264 loadValuePair(cUnit, vSrc2, reg2, reg3);
1265 genBinaryOpWide(cUnit, vDest, firstOp, secondOp, reg0, reg2);
1266 /*
1267 * Don't optimize the regsiter usage here as they are governed by the EABI
1268 * calling convention.
1269 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001270 } else {
1271 loadValuePair(cUnit, vSrc2, r2, r3);
1272 loadConstant(cUnit, r4PC, (int) callTgt);
1273 loadValuePair(cUnit, vSrc1, r0, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001274 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001275 storeValuePair(cUnit, retReg, retReg+1, vDest, r4PC);
1276 }
1277 return false;
1278}
1279
1280static bool genArithOpInt(CompilationUnit *cUnit, MIR *mir, int vDest,
1281 int vSrc1, int vSrc2)
1282{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001283 int armOp = THUMB_BKPT;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001284 bool callOut = false;
1285 bool checkZero = false;
1286 int retReg = r0;
1287 void *callTgt;
Ben Chenge9695e52009-06-16 16:11:47 -07001288 int reg0, reg1, regDest;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001289
1290 /* TODO - find proper .h file to declare these */
1291 int __aeabi_idivmod(int op1, int op2);
1292 int __aeabi_idiv(int op1, int op2);
1293
1294 switch (mir->dalvikInsn.opCode) {
1295 case OP_NEG_INT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001296 armOp = THUMB_NEG;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001297 break;
1298 case OP_NOT_INT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001299 armOp = THUMB_MVN;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001300 break;
1301 case OP_ADD_INT:
1302 case OP_ADD_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001303 armOp = THUMB_ADD_RRR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001304 break;
1305 case OP_SUB_INT:
1306 case OP_SUB_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001307 armOp = THUMB_SUB_RRR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001308 break;
1309 case OP_MUL_INT:
1310 case OP_MUL_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001311 armOp = THUMB_MUL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001312 break;
1313 case OP_DIV_INT:
1314 case OP_DIV_INT_2ADDR:
1315 callOut = true;
1316 checkZero = true;
1317 callTgt = __aeabi_idiv;
1318 retReg = r0;
1319 break;
1320 /* NOTE: returns in r1 */
1321 case OP_REM_INT:
1322 case OP_REM_INT_2ADDR:
1323 callOut = true;
1324 checkZero = true;
1325 callTgt = __aeabi_idivmod;
1326 retReg = r1;
1327 break;
1328 case OP_AND_INT:
1329 case OP_AND_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001330 armOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001331 break;
1332 case OP_OR_INT:
1333 case OP_OR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001334 armOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001335 break;
1336 case OP_XOR_INT:
1337 case OP_XOR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001338 armOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001339 break;
1340 case OP_SHL_INT:
1341 case OP_SHL_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001342 armOp = THUMB_LSLV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001343 break;
1344 case OP_SHR_INT:
1345 case OP_SHR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001346 armOp = THUMB_ASRV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001347 break;
1348 case OP_USHR_INT:
1349 case OP_USHR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001350 armOp = THUMB_LSRV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001351 break;
1352 default:
1353 LOGE("Invalid word arith op: 0x%x(%d)",
1354 mir->dalvikInsn.opCode, mir->dalvikInsn.opCode);
1355 dvmAbort();
1356 }
1357 if (!callOut) {
Ben Chenge9695e52009-06-16 16:11:47 -07001358 /* Try to allocate reg0 to the currently cached source operand */
1359 if (cUnit->registerScoreboard.liveDalvikReg == vSrc1) {
1360 reg0 = selectFirstRegister(cUnit, vSrc1, false);
1361 reg1 = NEXT_REG(reg0);
1362 regDest = NEXT_REG(reg1);
1363
1364 loadValue(cUnit, vSrc1, reg0); /* Should be optimized away */
1365 loadValue(cUnit, vSrc2, reg1);
1366 genBinaryOp(cUnit, vDest, armOp, reg0, reg1, regDest);
1367 } else {
1368 reg0 = selectFirstRegister(cUnit, vSrc2, false);
1369 reg1 = NEXT_REG(reg0);
1370 regDest = NEXT_REG(reg1);
1371
1372 loadValue(cUnit, vSrc1, reg1); /* Load this value first */
1373 loadValue(cUnit, vSrc2, reg0); /* May be optimized away */
1374 genBinaryOp(cUnit, vDest, armOp, reg1, reg0, regDest);
1375 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001376 } else {
Ben Chenge9695e52009-06-16 16:11:47 -07001377 /*
1378 * Load the callout target first since it will never be eliminated
1379 * and its value will be used first.
1380 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001381 loadConstant(cUnit, r2, (int) callTgt);
Ben Chenge9695e52009-06-16 16:11:47 -07001382 /*
1383 * Load vSrc2 first if it is not cached in a native register or it
1384 * is in r0 which will be clobbered if vSrc1 is loaded first.
1385 */
1386 if (cUnit->registerScoreboard.liveDalvikReg != vSrc2 ||
1387 cUnit->registerScoreboard.nativeReg == r0) {
1388 /* Cannot be optimized and won't clobber r0 */
1389 loadValue(cUnit, vSrc2, r1);
1390 /* May be optimized if vSrc1 is cached */
1391 loadValue(cUnit, vSrc1, r0);
1392 } else {
1393 loadValue(cUnit, vSrc1, r0);
1394 loadValue(cUnit, vSrc2, r1);
1395 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001396 if (checkZero) {
Ben Chenge9695e52009-06-16 16:11:47 -07001397 genNullCheck(cUnit, vSrc2, r1, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001398 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001399 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001400 storeValue(cUnit, retReg, vDest, r2);
1401 }
1402 return false;
1403}
1404
1405static bool genArithOp(CompilationUnit *cUnit, MIR *mir)
1406{
1407 OpCode opCode = mir->dalvikInsn.opCode;
1408 int vA = mir->dalvikInsn.vA;
1409 int vB = mir->dalvikInsn.vB;
1410 int vC = mir->dalvikInsn.vC;
1411
1412 if ((opCode >= OP_ADD_LONG_2ADDR) && (opCode <= OP_XOR_LONG_2ADDR)) {
1413 return genArithOpLong(cUnit,mir, vA, vA, vB);
1414 }
1415 if ((opCode >= OP_ADD_LONG) && (opCode <= OP_XOR_LONG)) {
1416 return genArithOpLong(cUnit,mir, vA, vB, vC);
1417 }
1418 if ((opCode >= OP_SHL_LONG_2ADDR) && (opCode <= OP_USHR_LONG_2ADDR)) {
1419 return genShiftOpLong(cUnit,mir, vA, vA, vB);
1420 }
1421 if ((opCode >= OP_SHL_LONG) && (opCode <= OP_USHR_LONG)) {
1422 return genShiftOpLong(cUnit,mir, vA, vB, vC);
1423 }
1424 if ((opCode >= OP_ADD_INT_2ADDR) && (opCode <= OP_USHR_INT_2ADDR)) {
1425 return genArithOpInt(cUnit,mir, vA, vA, vB);
1426 }
1427 if ((opCode >= OP_ADD_INT) && (opCode <= OP_USHR_INT)) {
1428 return genArithOpInt(cUnit,mir, vA, vB, vC);
1429 }
1430 if ((opCode >= OP_ADD_FLOAT_2ADDR) && (opCode <= OP_REM_FLOAT_2ADDR)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001431 return genArithOpFloat(cUnit,mir, vA, vA, vB);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001432 }
1433 if ((opCode >= OP_ADD_FLOAT) && (opCode <= OP_REM_FLOAT)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001434 return genArithOpFloat(cUnit, mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001435 }
1436 if ((opCode >= OP_ADD_DOUBLE_2ADDR) && (opCode <= OP_REM_DOUBLE_2ADDR)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001437 return genArithOpDouble(cUnit,mir, vA, vA, vB);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001438 }
1439 if ((opCode >= OP_ADD_DOUBLE) && (opCode <= OP_REM_DOUBLE)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001440 return genArithOpDouble(cUnit,mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001441 }
1442 return true;
1443}
1444
Bill Buzbeed45ba372009-06-15 17:00:57 -07001445static bool genConversionCall(CompilationUnit *cUnit, MIR *mir, void *funct,
1446 int srcSize, int tgtSize)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001447{
Ben Chenge9695e52009-06-16 16:11:47 -07001448 /*
1449 * Don't optimize the register usage since it calls out to template
1450 * functions
1451 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001452 loadConstant(cUnit, r2, (int)funct);
1453 if (srcSize == 1) {
1454 loadValue(cUnit, mir->dalvikInsn.vB, r0);
1455 } else {
1456 loadValuePair(cUnit, mir->dalvikInsn.vB, r0, r1);
1457 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001458 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001459 if (tgtSize == 1) {
1460 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
1461 } else {
1462 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
1463 }
1464 return false;
1465}
1466
Ben Chengba4fc8b2009-06-01 13:00:29 -07001467static bool genInlinedStringLength(CompilationUnit *cUnit, MIR *mir)
1468{
Ben Chengba4fc8b2009-06-01 13:00:29 -07001469 DecodedInstruction *dInsn = &mir->dalvikInsn;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001470 int offset = offsetof(InterpState, retval);
1471 int regObj = selectFirstRegister(cUnit, dInsn->arg[0], false);
1472 int reg1 = NEXT_REG(regObj);
1473 loadValue(cUnit, dInsn->arg[0], regObj);
1474 genNullCheck(cUnit, dInsn->arg[0], regObj, mir->offset, NULL);
1475 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_count, reg1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001476 newLIR3(cUnit, THUMB_STR_RRI5, reg1, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001477 return false;
1478}
1479
1480/*
1481 * NOTE: The amount of code for this body suggests it ought to
1482 * be handled in a template (and could also be coded quite a bit
1483 * more efficiently in ARM). However, the code is dependent on the
1484 * internal structure layout of string objects which are most safely
1485 * known at run time.
1486 * TUNING: One possibility (which could also be used for StringCompareTo
1487 * and StringEquals) is to generate string access helper subroutines on
1488 * Jit startup, and then call them from the translated inline-executes.
1489 */
1490static bool genInlinedStringCharAt(CompilationUnit *cUnit, MIR *mir)
1491{
1492 DecodedInstruction *dInsn = &mir->dalvikInsn;
1493 int offset = offsetof(InterpState, retval);
1494 int contents = offsetof(ArrayObject, contents);
1495 int regObj = selectFirstRegister(cUnit, dInsn->arg[0], false);
1496 int regIdx = NEXT_REG(regObj);
1497 int regMax = NEXT_REG(regIdx);
1498 int regOff = NEXT_REG(regMax);
1499 loadValue(cUnit, dInsn->arg[0], regObj);
1500 loadValue(cUnit, dInsn->arg[1], regIdx);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001501 ArmLIR * pcrLabel = genNullCheck(cUnit, dInsn->arg[0], regObj,
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001502 mir->offset, NULL);
1503 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_count, regMax);
1504 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_offset, regOff);
1505 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_value, regObj);
1506 genBoundsCheck(cUnit, regIdx, regMax, mir->offset, pcrLabel);
1507
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001508 newLIR2(cUnit, THUMB_ADD_RI8, regObj, contents);
1509 newLIR3(cUnit, THUMB_ADD_RRR, regIdx, regIdx, regOff);
1510 newLIR3(cUnit, THUMB_ADD_RRR, regIdx, regIdx, regIdx);
1511 newLIR3(cUnit, THUMB_LDRH_RRR, regMax, regObj, regIdx);
1512 newLIR3(cUnit, THUMB_STR_RRI5, regMax, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001513 return false;
1514}
1515
1516static bool genInlinedAbsInt(CompilationUnit *cUnit, MIR *mir)
1517{
1518 int offset = offsetof(InterpState, retval);
1519 DecodedInstruction *dInsn = &mir->dalvikInsn;
1520 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1521 int sign = NEXT_REG(reg0);
1522 /* abs(x) = y<=x>>31, (x+y)^y. Shorter in ARM/THUMB2, no skip in THUMB */
1523 loadValue(cUnit, dInsn->arg[0], reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001524 newLIR3(cUnit, THUMB_ASR, sign, reg0, 31);
1525 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, sign);
1526 newLIR2(cUnit, THUMB_EOR, reg0, sign);
1527 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001528 return false;
1529}
1530
1531static bool genInlinedAbsFloat(CompilationUnit *cUnit, MIR *mir)
1532{
1533 int offset = offsetof(InterpState, retval);
1534 DecodedInstruction *dInsn = &mir->dalvikInsn;
1535 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1536 int signMask = NEXT_REG(reg0);
1537 loadValue(cUnit, dInsn->arg[0], reg0);
1538 loadConstant(cUnit, signMask, 0x7fffffff);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001539 newLIR2(cUnit, THUMB_AND_RR, reg0, signMask);
1540 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001541 return false;
1542}
1543
1544static bool genInlinedAbsDouble(CompilationUnit *cUnit, MIR *mir)
1545{
1546 int offset = offsetof(InterpState, retval);
1547 DecodedInstruction *dInsn = &mir->dalvikInsn;
1548 int oplo = selectFirstRegister(cUnit, dInsn->arg[0], true);
1549 int ophi = NEXT_REG(oplo);
1550 int signMask = NEXT_REG(ophi);
1551 loadValuePair(cUnit, dInsn->arg[0], oplo, ophi);
1552 loadConstant(cUnit, signMask, 0x7fffffff);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001553 newLIR3(cUnit, THUMB_STR_RRI5, oplo, rGLUE, offset >> 2);
1554 newLIR2(cUnit, THUMB_AND_RR, ophi, signMask);
1555 newLIR3(cUnit, THUMB_STR_RRI5, ophi, rGLUE, (offset >> 2)+1);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001556 return false;
1557}
1558
1559 /* No select in thumb, so we need to branch. Thumb2 will do better */
1560static bool genInlinedMinMaxInt(CompilationUnit *cUnit, MIR *mir, bool isMin)
1561{
1562 int offset = offsetof(InterpState, retval);
1563 DecodedInstruction *dInsn = &mir->dalvikInsn;
1564 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1565 int reg1 = NEXT_REG(reg0);
1566 loadValue(cUnit, dInsn->arg[0], reg0);
1567 loadValue(cUnit, dInsn->arg[1], reg1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001568 newLIR2(cUnit, THUMB_CMP_RR, reg0, reg1);
1569 ArmLIR *branch1 = newLIR2(cUnit, THUMB_B_COND, 2,
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001570 isMin ? ARM_COND_LT : ARM_COND_GT);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001571 newLIR2(cUnit, THUMB_MOV_RR, reg0, reg1);
1572 ArmLIR *target =
1573 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001574 branch1->generic.target = (LIR *)target;
1575 return false;
1576}
1577
1578static bool genInlinedAbsLong(CompilationUnit *cUnit, MIR *mir)
1579{
1580 int offset = offsetof(InterpState, retval);
1581 DecodedInstruction *dInsn = &mir->dalvikInsn;
1582 int oplo = selectFirstRegister(cUnit, dInsn->arg[0], true);
1583 int ophi = NEXT_REG(oplo);
1584 int sign = NEXT_REG(ophi);
1585 /* abs(x) = y<=x>>31, (x+y)^y. Shorter in ARM/THUMB2, no skip in THUMB */
1586 loadValuePair(cUnit, dInsn->arg[0], oplo, ophi);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001587 newLIR3(cUnit, THUMB_ASR, sign, ophi, 31);
1588 newLIR3(cUnit, THUMB_ADD_RRR, oplo, oplo, sign);
1589 newLIR2(cUnit, THUMB_ADC, ophi, sign);
1590 newLIR2(cUnit, THUMB_EOR, oplo, sign);
1591 newLIR2(cUnit, THUMB_EOR, ophi, sign);
1592 newLIR3(cUnit, THUMB_STR_RRI5, oplo, rGLUE, offset >> 2);
1593 newLIR3(cUnit, THUMB_STR_RRI5, ophi, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001594 return false;
1595}
1596
1597static void genProcessArgsNoRange(CompilationUnit *cUnit, MIR *mir,
1598 DecodedInstruction *dInsn,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001599 ArmLIR **pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001600{
1601 unsigned int i;
1602 unsigned int regMask = 0;
1603
1604 /* Load arguments to r0..r4 */
1605 for (i = 0; i < dInsn->vA; i++) {
1606 regMask |= 1 << i;
1607 loadValue(cUnit, dInsn->arg[i], i);
1608 }
1609 if (regMask) {
1610 /* Up to 5 args are pushed on top of FP - sizeofStackSaveArea */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001611 newLIR2(cUnit, THUMB_MOV_RR, r7, rFP);
1612 newLIR2(cUnit, THUMB_SUB_RI8, r7,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001613 sizeof(StackSaveArea) + (dInsn->vA << 2));
1614 /* generate null check */
1615 if (pcrLabel) {
Ben Chenge9695e52009-06-16 16:11:47 -07001616 *pcrLabel = genNullCheck(cUnit, dInsn->arg[0], r0, mir->offset,
1617 NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001618 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001619 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001620 }
1621}
1622
1623static void genProcessArgsRange(CompilationUnit *cUnit, MIR *mir,
1624 DecodedInstruction *dInsn,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001625 ArmLIR **pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001626{
1627 int srcOffset = dInsn->vC << 2;
1628 int numArgs = dInsn->vA;
1629 int regMask;
1630 /*
1631 * r4PC : &rFP[vC]
1632 * r7: &newFP[0]
1633 */
1634 if (srcOffset < 8) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001635 newLIR3(cUnit, THUMB_ADD_RRI3, r4PC, rFP, srcOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001636 } else {
1637 loadConstant(cUnit, r4PC, srcOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001638 newLIR3(cUnit, THUMB_ADD_RRR, r4PC, rFP, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001639 }
1640 /* load [r0 .. min(numArgs,4)] */
1641 regMask = (1 << ((numArgs < 4) ? numArgs : 4)) - 1;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001642 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001643
1644 if (sizeof(StackSaveArea) + (numArgs << 2) < 256) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001645 newLIR2(cUnit, THUMB_MOV_RR, r7, rFP);
1646 newLIR2(cUnit, THUMB_SUB_RI8, r7,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001647 sizeof(StackSaveArea) + (numArgs << 2));
1648 } else {
1649 loadConstant(cUnit, r7, sizeof(StackSaveArea) + (numArgs << 2));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001650 newLIR3(cUnit, THUMB_SUB_RRR, r7, rFP, r7);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001651 }
1652
1653 /* generate null check */
1654 if (pcrLabel) {
Ben Chenge9695e52009-06-16 16:11:47 -07001655 *pcrLabel = genNullCheck(cUnit, dInsn->vC, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001656 }
1657
1658 /*
1659 * Handle remaining 4n arguments:
1660 * store previously loaded 4 values and load the next 4 values
1661 */
1662 if (numArgs >= 8) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001663 ArmLIR *loopLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001664 /*
1665 * r0 contains "this" and it will be used later, so push it to the stack
1666 * first. Pushing r5 is just for stack alignment purposes.
1667 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001668 newLIR1(cUnit, THUMB_PUSH, 1 << r0 | 1 << 5);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001669 /* No need to generate the loop structure if numArgs <= 11 */
1670 if (numArgs > 11) {
1671 loadConstant(cUnit, 5, ((numArgs - 4) >> 2) << 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001672 loopLabel = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001673 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001674 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
1675 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001676 /* No need to generate the loop structure if numArgs <= 11 */
1677 if (numArgs > 11) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001678 newLIR2(cUnit, THUMB_SUB_RI8, 5, 4);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001679 genConditionalBranch(cUnit, ARM_COND_NE, loopLabel);
1680 }
1681 }
1682
1683 /* Save the last batch of loaded values */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001684 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001685
1686 /* Generate the loop epilogue - don't use r0 */
1687 if ((numArgs > 4) && (numArgs % 4)) {
1688 regMask = ((1 << (numArgs & 0x3)) - 1) << 1;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001689 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001690 }
1691 if (numArgs >= 8)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001692 newLIR1(cUnit, THUMB_POP, 1 << r0 | 1 << 5);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001693
1694 /* Save the modulo 4 arguments */
1695 if ((numArgs > 4) && (numArgs % 4)) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001696 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001697 }
1698}
1699
Ben Cheng38329f52009-07-07 14:19:20 -07001700/*
1701 * Generate code to setup the call stack then jump to the chaining cell if it
1702 * is not a native method.
1703 */
1704static void genInvokeSingletonCommon(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001705 BasicBlock *bb, ArmLIR *labelList,
1706 ArmLIR *pcrLabel,
Ben Cheng38329f52009-07-07 14:19:20 -07001707 const Method *calleeMethod)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001708{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001709 ArmLIR *retChainingCell = &labelList[bb->fallThrough->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07001710
1711 /* r1 = &retChainingCell */
Ben Cheng3f02aa42009-08-14 13:52:09 -07001712 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL, r1, 0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001713 /* r4PC = dalvikCallsite */
1714 loadConstant(cUnit, r4PC,
1715 (int) (cUnit->method->insns + mir->offset));
1716 addrRetChain->generic.target = (LIR *) retChainingCell;
1717 /*
Ben Cheng38329f52009-07-07 14:19:20 -07001718 * r0 = calleeMethod (loaded upon calling genInvokeSingletonCommon)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001719 * r1 = &ChainingCell
1720 * r4PC = callsiteDPC
1721 */
1722 if (dvmIsNativeMethod(calleeMethod)) {
Ben Cheng38329f52009-07-07 14:19:20 -07001723 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NATIVE);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001724#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -07001725 gDvmJit.invokeNative++;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001726#endif
1727 } else {
1728 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_CHAIN);
1729#if defined(INVOKE_STATS)
1730 gDvmJit.invokeChain++;
1731#endif
Ben Cheng38329f52009-07-07 14:19:20 -07001732 /* Branch to the chaining cell */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001733 genUnconditionalBranch(cUnit, &labelList[bb->taken->id]);
1734 }
1735 /* Handle exceptions using the interpreter */
1736 genTrap(cUnit, mir->offset, pcrLabel);
1737}
1738
Ben Cheng38329f52009-07-07 14:19:20 -07001739/*
1740 * Generate code to check the validity of a predicted chain and take actions
1741 * based on the result.
1742 *
1743 * 0x426a99aa : ldr r4, [pc, #72] --> r4 <- dalvikPC of this invoke
1744 * 0x426a99ac : add r1, pc, #32 --> r1 <- &retChainingCell
1745 * 0x426a99ae : add r2, pc, #40 --> r2 <- &predictedChainingCell
1746 * 0x426a99b0 : blx_1 0x426a918c --+ TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN
1747 * 0x426a99b2 : blx_2 see above --+
1748 * 0x426a99b4 : b 0x426a99d8 --> off to the predicted chain
1749 * 0x426a99b6 : b 0x426a99c8 --> punt to the interpreter
1750 * 0x426a99b8 : ldr r0, [r7, #44] --> r0 <- this->class->vtable[methodIdx]
1751 * 0x426a99ba : cmp r1, #0 --> compare r1 (rechain count) against 0
1752 * 0x426a99bc : bgt 0x426a99c2 --> >=0? don't rechain
1753 * 0x426a99be : ldr r7, [r6, #96] --+ dvmJitToPatchPredictedChain
1754 * 0x426a99c0 : blx r7 --+
1755 * 0x426a99c2 : add r1, pc, #12 --> r1 <- &retChainingCell
1756 * 0x426a99c4 : blx_1 0x426a9098 --+ TEMPLATE_INVOKE_METHOD_NO_OPT
1757 * 0x426a99c6 : blx_2 see above --+
1758 */
1759static void genInvokeVirtualCommon(CompilationUnit *cUnit, MIR *mir,
1760 int methodIndex,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001761 ArmLIR *retChainingCell,
1762 ArmLIR *predChainingCell,
1763 ArmLIR *pcrLabel)
Ben Cheng38329f52009-07-07 14:19:20 -07001764{
1765 /* "this" is already left in r0 by genProcessArgs* */
1766
1767 /* r4PC = dalvikCallsite */
1768 loadConstant(cUnit, r4PC,
1769 (int) (cUnit->method->insns + mir->offset));
1770
1771 /* r1 = &retChainingCell */
Ben Cheng3f02aa42009-08-14 13:52:09 -07001772 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL, r1, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001773 addrRetChain->generic.target = (LIR *) retChainingCell;
1774
1775 /* r2 = &predictedChainingCell */
Ben Cheng3f02aa42009-08-14 13:52:09 -07001776 ArmLIR *predictedChainingCell = newLIR3(cUnit, THUMB_ADD_PC_REL, r2, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001777 predictedChainingCell->generic.target = (LIR *) predChainingCell;
1778
1779 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN);
1780
1781 /* return through lr - jump to the chaining cell */
1782 genUnconditionalBranch(cUnit, predChainingCell);
1783
1784 /*
1785 * null-check on "this" may have been eliminated, but we still need a PC-
1786 * reconstruction label for stack overflow bailout.
1787 */
1788 if (pcrLabel == NULL) {
1789 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001790 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
1791 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Cheng38329f52009-07-07 14:19:20 -07001792 pcrLabel->operands[0] = dPC;
1793 pcrLabel->operands[1] = mir->offset;
1794 /* Insert the place holder to the growable list */
1795 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
1796 }
1797
1798 /* return through lr+2 - punt to the interpreter */
1799 genUnconditionalBranch(cUnit, pcrLabel);
1800
1801 /*
1802 * return through lr+4 - fully resolve the callee method.
1803 * r1 <- count
1804 * r2 <- &predictedChainCell
1805 * r3 <- this->class
1806 * r4 <- dPC
1807 * r7 <- this->class->vtable
1808 */
1809
1810 /* r0 <- calleeMethod */
1811 if (methodIndex < 32) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001812 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r7, methodIndex);
Ben Cheng38329f52009-07-07 14:19:20 -07001813 } else {
1814 loadConstant(cUnit, r0, methodIndex<<2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001815 newLIR3(cUnit, THUMB_LDR_RRR, r0, r7, r0);
Ben Cheng38329f52009-07-07 14:19:20 -07001816 }
1817
1818 /* Check if rechain limit is reached */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001819 newLIR2(cUnit, THUMB_CMP_RI8, r1, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001820
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001821 ArmLIR *bypassRechaining =
1822 newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_GT);
Ben Cheng38329f52009-07-07 14:19:20 -07001823
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001824 newLIR3(cUnit, THUMB_LDR_RRI5, r7, rGLUE,
Ben Cheng38329f52009-07-07 14:19:20 -07001825 offsetof(InterpState,
1826 jitToInterpEntries.dvmJitToPatchPredictedChain)
1827 >> 2);
1828
1829 /*
1830 * r0 = calleeMethod
1831 * r2 = &predictedChainingCell
1832 * r3 = class
1833 *
1834 * &returnChainingCell has been loaded into r1 but is not needed
1835 * when patching the chaining cell and will be clobbered upon
1836 * returning so it will be reconstructed again.
1837 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001838 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Cheng38329f52009-07-07 14:19:20 -07001839
1840 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001841 addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL, r1, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001842 addrRetChain->generic.target = (LIR *) retChainingCell;
1843
1844 bypassRechaining->generic.target = (LIR *) addrRetChain;
1845 /*
1846 * r0 = calleeMethod,
1847 * r1 = &ChainingCell,
1848 * r4PC = callsiteDPC,
1849 */
1850 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NO_OPT);
1851#if defined(INVOKE_STATS)
1852 gDvmJit.invokePredictedChain++;
1853#endif
1854 /* Handle exceptions using the interpreter */
1855 genTrap(cUnit, mir->offset, pcrLabel);
1856}
1857
1858/*
1859 * Up calling this function, "this" is stored in r0. The actual class will be
1860 * chased down off r0 and the predicted one will be retrieved through
1861 * predictedChainingCell then a comparison is performed to see whether the
1862 * previously established chaining is still valid.
1863 *
1864 * The return LIR is a branch based on the comparison result. The actual branch
1865 * target will be setup in the caller.
1866 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001867static ArmLIR *genCheckPredictedChain(CompilationUnit *cUnit,
1868 ArmLIR *predChainingCell,
1869 ArmLIR *retChainingCell,
Ben Cheng38329f52009-07-07 14:19:20 -07001870 MIR *mir)
1871{
1872 /* r3 now contains this->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001873 newLIR3(cUnit, THUMB_LDR_RRI5, r3, r0,
Ben Cheng38329f52009-07-07 14:19:20 -07001874 offsetof(Object, clazz) >> 2);
1875
1876 /*
1877 * r2 now contains predicted class. The starting offset of the
1878 * cached value is 4 bytes into the chaining cell.
1879 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001880 ArmLIR *getPredictedClass =
1881 newLIR3(cUnit, THUMB_LDR_PC_REL, r2, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001882 offsetof(PredictedChainingCell, clazz));
1883 getPredictedClass->generic.target = (LIR *) predChainingCell;
1884
1885 /*
1886 * r0 now contains predicted method. The starting offset of the
1887 * cached value is 8 bytes into the chaining cell.
1888 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001889 ArmLIR *getPredictedMethod =
1890 newLIR3(cUnit, THUMB_LDR_PC_REL, r0, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001891 offsetof(PredictedChainingCell, method));
1892 getPredictedMethod->generic.target = (LIR *) predChainingCell;
1893
1894 /* Load the stats counter to see if it is time to unchain and refresh */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001895 ArmLIR *getRechainingRequestCount =
1896 newLIR3(cUnit, THUMB_LDR_PC_REL, r7, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001897 offsetof(PredictedChainingCell, counter));
1898 getRechainingRequestCount->generic.target =
1899 (LIR *) predChainingCell;
1900
1901 /* r4PC = dalvikCallsite */
1902 loadConstant(cUnit, r4PC,
1903 (int) (cUnit->method->insns + mir->offset));
1904
1905 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001906 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07001907 r1, 0, 0);
1908 addrRetChain->generic.target = (LIR *) retChainingCell;
1909
1910 /* Check if r2 (predicted class) == r3 (actual class) */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001911 newLIR2(cUnit, THUMB_CMP_RR, r2, r3);
Ben Cheng38329f52009-07-07 14:19:20 -07001912
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001913 return newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_EQ);
Ben Cheng38329f52009-07-07 14:19:20 -07001914}
1915
Ben Chengba4fc8b2009-06-01 13:00:29 -07001916/* Geneate a branch to go back to the interpreter */
1917static void genPuntToInterp(CompilationUnit *cUnit, unsigned int offset)
1918{
1919 /* r0 = dalvik pc */
1920 loadConstant(cUnit, r0, (int) (cUnit->method->insns + offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001921 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001922 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpPunt) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001923 newLIR1(cUnit, THUMB_BLX_R, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001924}
1925
1926/*
1927 * Attempt to single step one instruction using the interpreter and return
1928 * to the compiled code for the next Dalvik instruction
1929 */
1930static void genInterpSingleStep(CompilationUnit *cUnit, MIR *mir)
1931{
1932 int flags = dexGetInstrFlags(gDvm.instrFlags, mir->dalvikInsn.opCode);
1933 int flagsToCheck = kInstrCanBranch | kInstrCanSwitch | kInstrCanReturn |
1934 kInstrCanThrow;
1935 if ((mir->next == NULL) || (flags & flagsToCheck)) {
1936 genPuntToInterp(cUnit, mir->offset);
1937 return;
1938 }
1939 int entryAddr = offsetof(InterpState,
1940 jitToInterpEntries.dvmJitToInterpSingleStep);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001941 newLIR3(cUnit, THUMB_LDR_RRI5, r2, rGLUE, entryAddr >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001942 /* r0 = dalvik pc */
1943 loadConstant(cUnit, r0, (int) (cUnit->method->insns + mir->offset));
1944 /* r1 = dalvik pc of following instruction */
1945 loadConstant(cUnit, r1, (int) (cUnit->method->insns + mir->next->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001946 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001947}
1948
1949
1950/*****************************************************************************/
1951/*
1952 * The following are the first-level codegen routines that analyze the format
1953 * of each bytecode then either dispatch special purpose codegen routines
1954 * or produce corresponding Thumb instructions directly.
1955 */
1956
1957static bool handleFmt10t_Fmt20t_Fmt30t(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001958 BasicBlock *bb, ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001959{
1960 /* For OP_GOTO, OP_GOTO_16, and OP_GOTO_32 */
1961 genUnconditionalBranch(cUnit, &labelList[bb->taken->id]);
1962 return false;
1963}
1964
1965static bool handleFmt10x(CompilationUnit *cUnit, MIR *mir)
1966{
1967 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
1968 if (((dalvikOpCode >= OP_UNUSED_3E) && (dalvikOpCode <= OP_UNUSED_43)) ||
1969 ((dalvikOpCode >= OP_UNUSED_E3) && (dalvikOpCode <= OP_UNUSED_EC))) {
1970 LOGE("Codegen: got unused opcode 0x%x\n",dalvikOpCode);
1971 return true;
1972 }
1973 switch (dalvikOpCode) {
1974 case OP_RETURN_VOID:
1975 genReturnCommon(cUnit,mir);
1976 break;
1977 case OP_UNUSED_73:
1978 case OP_UNUSED_79:
1979 case OP_UNUSED_7A:
1980 LOGE("Codegen: got unused opcode 0x%x\n",dalvikOpCode);
1981 return true;
1982 case OP_NOP:
1983 break;
1984 default:
1985 return true;
1986 }
1987 return false;
1988}
1989
1990static bool handleFmt11n_Fmt31i(CompilationUnit *cUnit, MIR *mir)
1991{
Ben Chenge9695e52009-06-16 16:11:47 -07001992 int reg0, reg1, reg2;
1993
Ben Chengba4fc8b2009-06-01 13:00:29 -07001994 switch (mir->dalvikInsn.opCode) {
1995 case OP_CONST:
Ben Chenge9695e52009-06-16 16:11:47 -07001996 case OP_CONST_4: {
1997 /* Avoid using the previously used register */
1998 reg0 = selectFirstRegister(cUnit, vNone, false);
1999 reg1 = NEXT_REG(reg0);
2000 loadConstant(cUnit, reg0, mir->dalvikInsn.vB);
2001 storeValue(cUnit, reg0, mir->dalvikInsn.vA, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002002 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002003 }
2004 case OP_CONST_WIDE_32: {
2005 /* Avoid using the previously used register */
2006 reg0 = selectFirstRegister(cUnit, vNone, true);
2007 reg1 = NEXT_REG(reg0);
2008 reg2 = NEXT_REG(reg1);
2009 loadConstant(cUnit, reg0, mir->dalvikInsn.vB);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002010 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chenge9695e52009-06-16 16:11:47 -07002011 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002012 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002013 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002014 default:
2015 return true;
2016 }
2017 return false;
2018}
2019
2020static bool handleFmt21h(CompilationUnit *cUnit, MIR *mir)
2021{
Ben Chenge9695e52009-06-16 16:11:47 -07002022 int reg0, reg1, reg2;
2023
2024 /* Avoid using the previously used register */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002025 switch (mir->dalvikInsn.opCode) {
Ben Chenge9695e52009-06-16 16:11:47 -07002026 case OP_CONST_HIGH16: {
2027 reg0 = selectFirstRegister(cUnit, vNone, false);
2028 reg1 = NEXT_REG(reg0);
2029 loadConstant(cUnit, reg0, mir->dalvikInsn.vB << 16);
2030 storeValue(cUnit, reg0, mir->dalvikInsn.vA, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002031 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002032 }
2033 case OP_CONST_WIDE_HIGH16: {
2034 reg0 = selectFirstRegister(cUnit, vNone, true);
2035 reg1 = NEXT_REG(reg0);
2036 reg2 = NEXT_REG(reg1);
2037 loadConstant(cUnit, reg1, mir->dalvikInsn.vB << 16);
2038 loadConstant(cUnit, reg0, 0);
2039 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002040 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002041 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002042 default:
2043 return true;
2044 }
2045 return false;
2046}
2047
2048static bool handleFmt20bc(CompilationUnit *cUnit, MIR *mir)
2049{
2050 /* For OP_THROW_VERIFICATION_ERROR */
2051 genInterpSingleStep(cUnit, mir);
2052 return false;
2053}
2054
2055static bool handleFmt21c_Fmt31c(CompilationUnit *cUnit, MIR *mir)
2056{
Ben Chenge9695e52009-06-16 16:11:47 -07002057 /* Native register to use if the interested value is vA */
2058 int regvA = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
2059 /* Native register to use if source is not from Dalvik registers */
2060 int regvNone = selectFirstRegister(cUnit, vNone, false);
2061 /* Similar to regvA but for 64-bit values */
2062 int regvAWide = selectFirstRegister(cUnit, mir->dalvikInsn.vA, true);
2063 /* Similar to regvNone but for 64-bit values */
2064 int regvNoneWide = selectFirstRegister(cUnit, vNone, true);
2065
Ben Chengba4fc8b2009-06-01 13:00:29 -07002066 switch (mir->dalvikInsn.opCode) {
2067 /*
2068 * TODO: Verify that we can ignore the resolution check here because
2069 * it will have already successfully been interpreted once
2070 */
2071 case OP_CONST_STRING_JUMBO:
2072 case OP_CONST_STRING: {
2073 void *strPtr = (void*)
2074 (cUnit->method->clazz->pDvmDex->pResStrings[mir->dalvikInsn.vB]);
2075 assert(strPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002076 loadConstant(cUnit, regvNone, (int) strPtr );
2077 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Ben Chengba4fc8b2009-06-01 13:00:29 -07002078 break;
2079 }
2080 /*
2081 * TODO: Verify that we can ignore the resolution check here because
2082 * it will have already successfully been interpreted once
2083 */
2084 case OP_CONST_CLASS: {
2085 void *classPtr = (void*)
2086 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
2087 assert(classPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002088 loadConstant(cUnit, regvNone, (int) classPtr );
2089 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Ben Chengba4fc8b2009-06-01 13:00:29 -07002090 break;
2091 }
2092 case OP_SGET_OBJECT:
2093 case OP_SGET_BOOLEAN:
2094 case OP_SGET_CHAR:
2095 case OP_SGET_BYTE:
2096 case OP_SGET_SHORT:
2097 case OP_SGET: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002098 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002099 void *fieldPtr = (void*)
2100 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
2101 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002102 loadConstant(cUnit, regvNone, (int) fieldPtr + valOffset);
Jeff Hao97319a82009-08-12 16:57:15 -07002103#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002104 newLIR3(cUnit, THUMB_LDR_RRI5, regvNone, regvNone, 0);
Ben Chenge9695e52009-06-16 16:11:47 -07002105 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Jeff Hao97319a82009-08-12 16:57:15 -07002106#else
2107 int regMap = regvNone << 4 | regvNone;
2108 selfVerificationMemOpWrapper(cUnit, regMap, &selfVerificationLoad);
2109
2110 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
2111#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07002112 break;
2113 }
2114 case OP_SGET_WIDE: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002115 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002116 void *fieldPtr = (void*)
2117 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07002118 int reg0, reg1, reg2;
2119
Ben Chengba4fc8b2009-06-01 13:00:29 -07002120 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002121 reg0 = regvNoneWide;
2122 reg1 = NEXT_REG(reg0);
2123 reg2 = NEXT_REG(reg1);
2124 loadConstant(cUnit, reg2, (int) fieldPtr + valOffset);
Jeff Hao97319a82009-08-12 16:57:15 -07002125#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002126 newLIR2(cUnit, THUMB_LDMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chenge9695e52009-06-16 16:11:47 -07002127 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Jeff Hao97319a82009-08-12 16:57:15 -07002128#else
2129 int regMap = reg1 << 8 | reg0 << 4 | reg2;
2130 selfVerificationMemOpWrapper(cUnit, regMap,
2131 &selfVerificationLoadDoubleword);
2132
2133 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
2134#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07002135 break;
2136 }
2137 case OP_SPUT_OBJECT:
2138 case OP_SPUT_BOOLEAN:
2139 case OP_SPUT_CHAR:
2140 case OP_SPUT_BYTE:
2141 case OP_SPUT_SHORT:
2142 case OP_SPUT: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002143 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002144 void *fieldPtr = (void*)
2145 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07002146
Ben Chengba4fc8b2009-06-01 13:00:29 -07002147 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002148 loadValue(cUnit, mir->dalvikInsn.vA, regvA);
2149 updateLiveRegister(cUnit, mir->dalvikInsn.vA, regvA);
2150 loadConstant(cUnit, NEXT_REG(regvA), (int) fieldPtr + valOffset);
Jeff Hao97319a82009-08-12 16:57:15 -07002151#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002152 newLIR3(cUnit, THUMB_STR_RRI5, regvA, NEXT_REG(regvA), 0);
Jeff Hao97319a82009-08-12 16:57:15 -07002153#else
2154 int regMap = regvA << 4 | NEXT_REG(regvA);
2155 selfVerificationMemOpWrapper(cUnit, regMap, &selfVerificationStore);
2156#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07002157 break;
2158 }
2159 case OP_SPUT_WIDE: {
Ben Chenge9695e52009-06-16 16:11:47 -07002160 int reg0, reg1, reg2;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002161 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002162 void *fieldPtr = (void*)
2163 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07002164
Ben Chengba4fc8b2009-06-01 13:00:29 -07002165 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07002166 reg0 = regvAWide;
2167 reg1 = NEXT_REG(reg0);
2168 reg2 = NEXT_REG(reg1);
2169 loadValuePair(cUnit, mir->dalvikInsn.vA, reg0, reg1);
2170 updateLiveRegisterPair(cUnit, mir->dalvikInsn.vA, reg0, reg1);
2171 loadConstant(cUnit, reg2, (int) fieldPtr + valOffset);
Jeff Hao97319a82009-08-12 16:57:15 -07002172#if !defined(WITH_SELF_VERIFICATION)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002173 newLIR2(cUnit, THUMB_STMIA, reg2, (1<<reg0 | 1<<reg1));
Jeff Hao97319a82009-08-12 16:57:15 -07002174#else
2175 int regMap = reg1 << 8 | reg0 << 4 | reg2;
2176 selfVerificationMemOpWrapper(cUnit, regMap,
2177 &selfVerificationStoreDoubleword);
2178#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07002179 break;
2180 }
2181 case OP_NEW_INSTANCE: {
Ben Chenge9695e52009-06-16 16:11:47 -07002182 /*
2183 * Obey the calling convention and don't mess with the register
2184 * usage.
2185 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002186 ClassObject *classPtr = (void*)
2187 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
2188 assert(classPtr != NULL);
2189 assert(classPtr->status & CLASS_INITIALIZED);
2190 if ((classPtr->accessFlags & (ACC_INTERFACE|ACC_ABSTRACT)) != 0) {
2191 /* It's going to throw, just let the interp. deal with it. */
2192 genInterpSingleStep(cUnit, mir);
2193 return false;
2194 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002195 loadConstant(cUnit, r4PC, (int)dvmAllocObject);
Ben Chenge9695e52009-06-16 16:11:47 -07002196 loadConstant(cUnit, r0, (int) classPtr);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002197 genExportPC(cUnit, mir, r2, r3 );
2198 loadConstant(cUnit, r1, ALLOC_DONT_TRACK);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002199 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002200 /*
2201 * TODO: As coded, we'll bail and reinterpret on alloc failure.
2202 * Need a general mechanism to bail to thrown exception code.
2203 */
Ben Chenge9695e52009-06-16 16:11:47 -07002204 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002205 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2206 break;
2207 }
2208 case OP_CHECK_CAST: {
Ben Chenge9695e52009-06-16 16:11:47 -07002209 /*
2210 * Obey the calling convention and don't mess with the register
2211 * usage.
2212 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002213 ClassObject *classPtr =
2214 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
2215 loadConstant(cUnit, r1, (int) classPtr );
2216 loadValue(cUnit, mir->dalvikInsn.vA, r0); /* Ref */
2217 /*
2218 * TODO - in theory classPtr should be resoved by the time this
2219 * instruction made into a trace, but we are seeing NULL at runtime
2220 * so this check is temporarily used as a workaround.
2221 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002222 ArmLIR * pcrLabel = genZeroCheck(cUnit, r1, mir->offset, NULL);
2223 newLIR2(cUnit, THUMB_CMP_RI8, r0, 0); /* Null? */
2224 ArmLIR *branch1 =
2225 newLIR2(cUnit, THUMB_B_COND, 4, ARM_COND_EQ);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002226 /* r0 now contains object->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002227 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r0,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002228 offsetof(Object, clazz) >> 2);
2229 loadConstant(cUnit, r4PC, (int)dvmInstanceofNonTrivial);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002230 newLIR2(cUnit, THUMB_CMP_RR, r0, r1);
2231 ArmLIR *branch2 =
2232 newLIR2(cUnit, THUMB_B_COND, 2, ARM_COND_EQ);
2233 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002234 /* check cast failed - punt to the interpreter */
Ben Chenge9695e52009-06-16 16:11:47 -07002235 genZeroCheck(cUnit, r0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002236 /* check cast passed - branch target here */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002237 ArmLIR *target = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002238 branch1->generic.target = (LIR *)target;
2239 branch2->generic.target = (LIR *)target;
2240 break;
2241 }
2242 default:
2243 return true;
2244 }
2245 return false;
2246}
2247
2248static bool handleFmt11x(CompilationUnit *cUnit, MIR *mir)
2249{
2250 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2251 switch (dalvikOpCode) {
2252 case OP_MOVE_EXCEPTION: {
2253 int offset = offsetof(InterpState, self);
2254 int exOffset = offsetof(Thread, exception);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002255 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE, offset >> 2);
2256 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r1, exOffset >> 2);
Ben Chenge9695e52009-06-16 16:11:47 -07002257 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002258 break;
2259 }
2260 case OP_MOVE_RESULT:
2261 case OP_MOVE_RESULT_OBJECT: {
2262 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002263 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002264 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2265 break;
2266 }
2267 case OP_MOVE_RESULT_WIDE: {
2268 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002269 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
2270 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002271 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
2272 break;
2273 }
2274 case OP_RETURN_WIDE: {
2275 loadValuePair(cUnit, mir->dalvikInsn.vA, r0, r1);
2276 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002277 newLIR3(cUnit, THUMB_STR_RRI5, r0, rGLUE, offset >> 2);
2278 newLIR3(cUnit, THUMB_STR_RRI5, r1, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002279 genReturnCommon(cUnit,mir);
2280 break;
2281 }
2282 case OP_RETURN:
2283 case OP_RETURN_OBJECT: {
2284 loadValue(cUnit, mir->dalvikInsn.vA, r0);
2285 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002286 newLIR3(cUnit, THUMB_STR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002287 genReturnCommon(cUnit,mir);
2288 break;
2289 }
2290 /*
2291 * TODO-VERIFY: May be playing a bit fast and loose here. As coded,
2292 * a failure on lock/unlock will cause us to revert to the interpeter
2293 * to try again. This means we essentially ignore the first failure on
2294 * the assumption that the interpreter will correctly handle the 2nd.
2295 */
2296 case OP_MONITOR_ENTER:
2297 case OP_MONITOR_EXIT: {
2298 int offset = offsetof(InterpState, self);
2299 loadValue(cUnit, mir->dalvikInsn.vA, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002300 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002301 if (dalvikOpCode == OP_MONITOR_ENTER) {
2302 loadConstant(cUnit, r2, (int)dvmLockObject);
2303 } else {
2304 loadConstant(cUnit, r2, (int)dvmUnlockObject);
2305 }
2306 /*
2307 * TODO-VERIFY: Note that we're not doing an EXPORT_PC, as
2308 * Lock/unlock won't throw, and this code does not support
2309 * DEADLOCK_PREDICTION or MONITOR_TRACKING. Should it?
2310 */
Ben Chenge9695e52009-06-16 16:11:47 -07002311 genNullCheck(cUnit, mir->dalvikInsn.vA, r1, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002312 /* Do the call */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002313 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002314 break;
2315 }
2316 case OP_THROW: {
2317 genInterpSingleStep(cUnit, mir);
2318 break;
2319 }
2320 default:
2321 return true;
2322 }
2323 return false;
2324}
2325
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002326static bool genConversionPortable(CompilationUnit *cUnit, MIR *mir)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002327{
2328 OpCode opCode = mir->dalvikInsn.opCode;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002329
Ben Chengba4fc8b2009-06-01 13:00:29 -07002330 float __aeabi_i2f( int op1 );
2331 int __aeabi_f2iz( float op1 );
2332 float __aeabi_d2f( double op1 );
2333 double __aeabi_f2d( float op1 );
2334 double __aeabi_i2d( int op1 );
2335 int __aeabi_d2iz( double op1 );
Ben Chengba4fc8b2009-06-01 13:00:29 -07002336 float __aeabi_l2f( long op1 );
Ben Chengba4fc8b2009-06-01 13:00:29 -07002337 double __aeabi_l2d( long op1 );
2338
Bill Buzbeed45ba372009-06-15 17:00:57 -07002339 switch (opCode) {
2340 case OP_INT_TO_FLOAT:
2341 return genConversionCall(cUnit, mir, (void*)__aeabi_i2f, 1, 1);
2342 case OP_FLOAT_TO_INT:
2343 return genConversionCall(cUnit, mir, (void*)__aeabi_f2iz, 1, 1);
2344 case OP_DOUBLE_TO_FLOAT:
2345 return genConversionCall(cUnit, mir, (void*)__aeabi_d2f, 2, 1);
2346 case OP_FLOAT_TO_DOUBLE:
2347 return genConversionCall(cUnit, mir, (void*)__aeabi_f2d, 1, 2);
2348 case OP_INT_TO_DOUBLE:
2349 return genConversionCall(cUnit, mir, (void*)__aeabi_i2d, 1, 2);
2350 case OP_DOUBLE_TO_INT:
2351 return genConversionCall(cUnit, mir, (void*)__aeabi_d2iz, 2, 1);
2352 case OP_FLOAT_TO_LONG:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002353 return genConversionCall(cUnit, mir, (void*)dvmJitf2l, 1, 2);
Bill Buzbeed45ba372009-06-15 17:00:57 -07002354 case OP_LONG_TO_FLOAT:
2355 return genConversionCall(cUnit, mir, (void*)__aeabi_l2f, 2, 1);
2356 case OP_DOUBLE_TO_LONG:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002357 return genConversionCall(cUnit, mir, (void*)dvmJitd2l, 2, 2);
Bill Buzbeed45ba372009-06-15 17:00:57 -07002358 case OP_LONG_TO_DOUBLE:
2359 return genConversionCall(cUnit, mir, (void*)__aeabi_l2d, 2, 2);
2360 default:
2361 return true;
2362 }
2363 return false;
2364}
2365
2366static bool handleFmt12x(CompilationUnit *cUnit, MIR *mir)
2367{
2368 OpCode opCode = mir->dalvikInsn.opCode;
2369 int vSrc1Dest = mir->dalvikInsn.vA;
2370 int vSrc2 = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002371 int reg0, reg1, reg2;
Bill Buzbeed45ba372009-06-15 17:00:57 -07002372
2373 /* TODO - find the proper include file to declare these */
2374
Ben Chengba4fc8b2009-06-01 13:00:29 -07002375 if ( (opCode >= OP_ADD_INT_2ADDR) && (opCode <= OP_REM_DOUBLE_2ADDR)) {
2376 return genArithOp( cUnit, mir );
2377 }
2378
Ben Chenge9695e52009-06-16 16:11:47 -07002379 /*
2380 * If data type is 64-bit, re-calculate the register numbers in the
2381 * corresponding cases.
2382 */
2383 reg0 = selectFirstRegister(cUnit, vSrc2, false);
2384 reg1 = NEXT_REG(reg0);
2385 reg2 = NEXT_REG(reg1);
2386
Ben Chengba4fc8b2009-06-01 13:00:29 -07002387 switch (opCode) {
2388 case OP_INT_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002389 case OP_FLOAT_TO_INT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002390 case OP_DOUBLE_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002391 case OP_FLOAT_TO_DOUBLE:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002392 case OP_INT_TO_DOUBLE:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002393 case OP_DOUBLE_TO_INT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002394 case OP_FLOAT_TO_LONG:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002395 case OP_LONG_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002396 case OP_DOUBLE_TO_LONG:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002397 case OP_LONG_TO_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002398 return genConversion(cUnit, mir);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002399 case OP_NEG_INT:
2400 case OP_NOT_INT:
2401 return genArithOpInt(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
2402 case OP_NEG_LONG:
2403 case OP_NOT_LONG:
2404 return genArithOpLong(cUnit,mir, vSrc1Dest, vSrc1Dest, vSrc2);
2405 case OP_NEG_FLOAT:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002406 return genArithOpFloat(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002407 case OP_NEG_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002408 return genArithOpDouble(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
Ben Chenge9695e52009-06-16 16:11:47 -07002409 case OP_MOVE_WIDE: {
2410 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2411 reg1 = NEXT_REG(reg0);
2412 reg2 = NEXT_REG(reg1);
2413
2414 loadValuePair(cUnit, vSrc2, reg0, reg1);
2415 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002416 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002417 }
2418 case OP_INT_TO_LONG: {
2419 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2420 reg1 = NEXT_REG(reg0);
2421 reg2 = NEXT_REG(reg1);
2422
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002423 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002424 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chenge9695e52009-06-16 16:11:47 -07002425 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002426 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002427 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002428 case OP_MOVE:
2429 case OP_MOVE_OBJECT:
2430 case OP_LONG_TO_INT:
Ben Chenge9695e52009-06-16 16:11:47 -07002431 loadValue(cUnit, vSrc2, reg0);
2432 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002433 break;
2434 case OP_INT_TO_BYTE:
Ben Chenge9695e52009-06-16 16:11:47 -07002435 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002436 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 24);
2437 newLIR3(cUnit, THUMB_ASR, reg0, reg0, 24);
Ben Chenge9695e52009-06-16 16:11:47 -07002438 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002439 break;
2440 case OP_INT_TO_SHORT:
Ben Chenge9695e52009-06-16 16:11:47 -07002441 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002442 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 16);
2443 newLIR3(cUnit, THUMB_ASR, reg0, reg0, 16);
Ben Chenge9695e52009-06-16 16:11:47 -07002444 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002445 break;
2446 case OP_INT_TO_CHAR:
Ben Chenge9695e52009-06-16 16:11:47 -07002447 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002448 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 16);
2449 newLIR3(cUnit, THUMB_LSR, reg0, reg0, 16);
Ben Chenge9695e52009-06-16 16:11:47 -07002450 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002451 break;
2452 case OP_ARRAY_LENGTH: {
2453 int lenOffset = offsetof(ArrayObject, length);
Ben Chenge9695e52009-06-16 16:11:47 -07002454 loadValue(cUnit, vSrc2, reg0);
2455 genNullCheck(cUnit, vSrc2, reg0, mir->offset, NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002456 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg0, lenOffset >> 2);
Ben Chenge9695e52009-06-16 16:11:47 -07002457 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002458 break;
2459 }
2460 default:
2461 return true;
2462 }
2463 return false;
2464}
2465
2466static bool handleFmt21s(CompilationUnit *cUnit, MIR *mir)
2467{
2468 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Ben Chenge9695e52009-06-16 16:11:47 -07002469 int reg0, reg1, reg2;
2470
Ben Chengba4fc8b2009-06-01 13:00:29 -07002471 /* It takes few instructions to handle OP_CONST_WIDE_16 inline */
2472 if (dalvikOpCode == OP_CONST_WIDE_16) {
Ben Chenge9695e52009-06-16 16:11:47 -07002473 int vDest = mir->dalvikInsn.vA;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002474 int BBBB = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002475
2476 reg0 = selectFirstRegister(cUnit, vNone, true);
2477 reg1 = NEXT_REG(reg0);
2478 reg2 = NEXT_REG(reg1);
2479
2480 loadConstant(cUnit, reg0, BBBB);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002481 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002482
2483 /* Save the long values to the specified Dalvik register pair */
Ben Chenge9695e52009-06-16 16:11:47 -07002484 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002485 } else if (dalvikOpCode == OP_CONST_16) {
Ben Chenge9695e52009-06-16 16:11:47 -07002486 int vDest = mir->dalvikInsn.vA;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002487 int BBBB = mir->dalvikInsn.vB;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002488
Ben Chenge9695e52009-06-16 16:11:47 -07002489 reg0 = selectFirstRegister(cUnit, vNone, false);
2490 reg1 = NEXT_REG(reg0);
2491
2492 loadConstant(cUnit, reg0, BBBB);
2493 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002494 } else {
2495 return true;
2496 }
2497 return false;
2498}
2499
2500/* Compare agaist zero */
2501static bool handleFmt21t(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002502 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002503{
2504 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002505 ArmConditionCode cond;
Ben Chenge9695e52009-06-16 16:11:47 -07002506 int reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002507
Ben Chenge9695e52009-06-16 16:11:47 -07002508 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002509 newLIR2(cUnit, THUMB_CMP_RI8, reg0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002510
2511 switch (dalvikOpCode) {
2512 case OP_IF_EQZ:
2513 cond = ARM_COND_EQ;
2514 break;
2515 case OP_IF_NEZ:
2516 cond = ARM_COND_NE;
2517 break;
2518 case OP_IF_LTZ:
2519 cond = ARM_COND_LT;
2520 break;
2521 case OP_IF_GEZ:
2522 cond = ARM_COND_GE;
2523 break;
2524 case OP_IF_GTZ:
2525 cond = ARM_COND_GT;
2526 break;
2527 case OP_IF_LEZ:
2528 cond = ARM_COND_LE;
2529 break;
2530 default:
2531 cond = 0;
2532 LOGE("Unexpected opcode (%d) for Fmt21t\n", dalvikOpCode);
2533 dvmAbort();
2534 }
2535 genConditionalBranch(cUnit, cond, &labelList[bb->taken->id]);
2536 /* This mostly likely will be optimized away in a later phase */
2537 genUnconditionalBranch(cUnit, &labelList[bb->fallThrough->id]);
2538 return false;
2539}
2540
2541static bool handleFmt22b_Fmt22s(CompilationUnit *cUnit, MIR *mir)
2542{
2543 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2544 int vSrc = mir->dalvikInsn.vB;
2545 int vDest = mir->dalvikInsn.vA;
2546 int lit = mir->dalvikInsn.vC;
2547 int armOp;
Ben Chenge9695e52009-06-16 16:11:47 -07002548 int reg0, reg1, regDest;
2549
2550 reg0 = selectFirstRegister(cUnit, vSrc, false);
2551 reg1 = NEXT_REG(reg0);
2552 regDest = NEXT_REG(reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002553
2554 /* TODO: find the proper .h file to declare these */
2555 int __aeabi_idivmod(int op1, int op2);
2556 int __aeabi_idiv(int op1, int op2);
2557
2558 switch (dalvikOpCode) {
2559 case OP_ADD_INT_LIT8:
2560 case OP_ADD_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002561 loadValue(cUnit, vSrc, reg0);
2562 if (lit <= 7 && lit >= 0) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002563 newLIR3(cUnit, THUMB_ADD_RRI3, regDest, reg0, lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002564 storeValue(cUnit, regDest, vDest, reg1);
2565 } else if (lit <= 255 && lit >= 0) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002566 newLIR2(cUnit, THUMB_ADD_RI8, reg0, lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002567 storeValue(cUnit, reg0, vDest, reg1);
2568 } else if (lit >= -7 && lit <= 0) {
2569 /* Convert to a small constant subtraction */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002570 newLIR3(cUnit, THUMB_SUB_RRI3, regDest, reg0, -lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002571 storeValue(cUnit, regDest, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002572 } else if (lit >= -255 && lit <= 0) {
2573 /* Convert to a small constant subtraction */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002574 newLIR2(cUnit, THUMB_SUB_RI8, reg0, -lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002575 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002576 } else {
Ben Chenge9695e52009-06-16 16:11:47 -07002577 loadConstant(cUnit, reg1, lit);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002578 genBinaryOp(cUnit, vDest, THUMB_ADD_RRR, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002579 }
2580 break;
2581
2582 case OP_RSUB_INT_LIT8:
2583 case OP_RSUB_INT:
Ben Chenge9695e52009-06-16 16:11:47 -07002584 loadValue(cUnit, vSrc, reg1);
2585 loadConstant(cUnit, reg0, lit);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002586 genBinaryOp(cUnit, vDest, THUMB_SUB_RRR, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002587 break;
2588
2589 case OP_MUL_INT_LIT8:
2590 case OP_MUL_INT_LIT16:
2591 case OP_AND_INT_LIT8:
2592 case OP_AND_INT_LIT16:
2593 case OP_OR_INT_LIT8:
2594 case OP_OR_INT_LIT16:
2595 case OP_XOR_INT_LIT8:
2596 case OP_XOR_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002597 loadValue(cUnit, vSrc, reg0);
2598 loadConstant(cUnit, reg1, lit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002599 switch (dalvikOpCode) {
2600 case OP_MUL_INT_LIT8:
2601 case OP_MUL_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002602 armOp = THUMB_MUL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002603 break;
2604 case OP_AND_INT_LIT8:
2605 case OP_AND_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002606 armOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002607 break;
2608 case OP_OR_INT_LIT8:
2609 case OP_OR_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002610 armOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002611 break;
2612 case OP_XOR_INT_LIT8:
2613 case OP_XOR_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002614 armOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002615 break;
2616 default:
2617 dvmAbort();
2618 }
Ben Chenge9695e52009-06-16 16:11:47 -07002619 genBinaryOp(cUnit, vDest, armOp, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002620 break;
2621
2622 case OP_SHL_INT_LIT8:
2623 case OP_SHR_INT_LIT8:
2624 case OP_USHR_INT_LIT8:
Ben Chenge9695e52009-06-16 16:11:47 -07002625 loadValue(cUnit, vSrc, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002626 switch (dalvikOpCode) {
2627 case OP_SHL_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002628 armOp = THUMB_LSL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002629 break;
2630 case OP_SHR_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002631 armOp = THUMB_ASR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002632 break;
2633 case OP_USHR_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002634 armOp = THUMB_LSR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002635 break;
2636 default: dvmAbort();
2637 }
Ben Chenge9695e52009-06-16 16:11:47 -07002638 newLIR3(cUnit, armOp, reg0, reg0, lit);
2639 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002640 break;
2641
2642 case OP_DIV_INT_LIT8:
2643 case OP_DIV_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002644 /* Register usage based on the calling convention */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002645 if (lit == 0) {
2646 /* Let the interpreter deal with div by 0 */
2647 genInterpSingleStep(cUnit, mir);
2648 return false;
2649 }
2650 loadConstant(cUnit, r2, (int)__aeabi_idiv);
2651 loadConstant(cUnit, r1, lit);
2652 loadValue(cUnit, vSrc, r0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002653 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002654 storeValue(cUnit, r0, vDest, r2);
2655 break;
2656
2657 case OP_REM_INT_LIT8:
2658 case OP_REM_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002659 /* Register usage based on the calling convention */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002660 if (lit == 0) {
2661 /* Let the interpreter deal with div by 0 */
2662 genInterpSingleStep(cUnit, mir);
2663 return false;
2664 }
2665 loadConstant(cUnit, r2, (int)__aeabi_idivmod);
2666 loadConstant(cUnit, r1, lit);
2667 loadValue(cUnit, vSrc, r0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002668 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002669 storeValue(cUnit, r1, vDest, r2);
2670 break;
2671 default:
2672 return true;
2673 }
2674 return false;
2675}
2676
2677static bool handleFmt22c(CompilationUnit *cUnit, MIR *mir)
2678{
2679 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2680 int fieldOffset;
2681
2682 if (dalvikOpCode >= OP_IGET && dalvikOpCode <= OP_IPUT_SHORT) {
2683 InstField *pInstField = (InstField *)
2684 cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vC];
2685 int fieldOffset;
2686
2687 assert(pInstField != NULL);
2688 fieldOffset = pInstField->byteOffset;
2689 } else {
2690 /* To make the compiler happy */
2691 fieldOffset = 0;
2692 }
2693 switch (dalvikOpCode) {
2694 /*
2695 * TODO: I may be assuming too much here.
2696 * Verify what is known at JIT time.
2697 */
2698 case OP_NEW_ARRAY: {
2699 void *classPtr = (void*)
2700 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vC]);
2701 assert(classPtr != NULL);
2702 loadValue(cUnit, mir->dalvikInsn.vB, r1); /* Len */
2703 loadConstant(cUnit, r0, (int) classPtr );
2704 loadConstant(cUnit, r4PC, (int)dvmAllocArrayByClass);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002705 ArmLIR *pcrLabel =
Ben Chengba4fc8b2009-06-01 13:00:29 -07002706 genRegImmCheck(cUnit, ARM_COND_MI, r1, 0, mir->offset, NULL);
2707 genExportPC(cUnit, mir, r2, r3 );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002708 newLIR2(cUnit, THUMB_MOV_IMM,r2,ALLOC_DONT_TRACK);
2709 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002710 /*
2711 * TODO: As coded, we'll bail and reinterpret on alloc failure.
2712 * Need a general mechanism to bail to thrown exception code.
2713 */
Ben Chenge9695e52009-06-16 16:11:47 -07002714 genZeroCheck(cUnit, r0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002715 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2716 break;
2717 }
2718 /*
2719 * TODO: I may be assuming too much here.
2720 * Verify what is known at JIT time.
2721 */
2722 case OP_INSTANCE_OF: {
2723 ClassObject *classPtr =
2724 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vC]);
2725 assert(classPtr != NULL);
Ben Cheng752c7942009-06-22 10:50:07 -07002726 loadValue(cUnit, mir->dalvikInsn.vB, r0); /* Ref */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002727 loadConstant(cUnit, r2, (int) classPtr );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002728 newLIR2(cUnit, THUMB_CMP_RI8, r0, 0); /* Null? */
Ben Cheng752c7942009-06-22 10:50:07 -07002729 /* When taken r0 has NULL which can be used for store directly */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002730 ArmLIR *branch1 = newLIR2(cUnit, THUMB_B_COND, 4,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002731 ARM_COND_EQ);
2732 /* r1 now contains object->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002733 newLIR3(cUnit, THUMB_LDR_RRI5, r1, r0,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002734 offsetof(Object, clazz) >> 2);
2735 loadConstant(cUnit, r4PC, (int)dvmInstanceofNonTrivial);
Ben Cheng752c7942009-06-22 10:50:07 -07002736 loadConstant(cUnit, r0, 1); /* Assume true */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002737 newLIR2(cUnit, THUMB_CMP_RR, r1, r2);
2738 ArmLIR *branch2 = newLIR2(cUnit, THUMB_B_COND, 2,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002739 ARM_COND_EQ);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002740 newLIR2(cUnit, THUMB_MOV_RR, r0, r1);
2741 newLIR2(cUnit, THUMB_MOV_RR, r1, r2);
2742 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002743 /* branch target here */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002744 ArmLIR *target = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002745 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2746 branch1->generic.target = (LIR *)target;
2747 branch2->generic.target = (LIR *)target;
2748 break;
2749 }
2750 case OP_IGET_WIDE:
2751 genIGetWide(cUnit, mir, fieldOffset);
2752 break;
2753 case OP_IGET:
2754 case OP_IGET_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002755 genIGet(cUnit, mir, THUMB_LDR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002756 break;
2757 case OP_IGET_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002758 genIGet(cUnit, mir, THUMB_LDRB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002759 break;
2760 case OP_IGET_BYTE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002761 genIGet(cUnit, mir, THUMB_LDRSB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002762 break;
2763 case OP_IGET_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002764 genIGet(cUnit, mir, THUMB_LDRH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002765 break;
2766 case OP_IGET_SHORT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002767 genIGet(cUnit, mir, THUMB_LDRSH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002768 break;
2769 case OP_IPUT_WIDE:
2770 genIPutWide(cUnit, mir, fieldOffset);
2771 break;
2772 case OP_IPUT:
2773 case OP_IPUT_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002774 genIPut(cUnit, mir, THUMB_STR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002775 break;
2776 case OP_IPUT_SHORT:
2777 case OP_IPUT_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002778 genIPut(cUnit, mir, THUMB_STRH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002779 break;
2780 case OP_IPUT_BYTE:
2781 case OP_IPUT_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002782 genIPut(cUnit, mir, THUMB_STRB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002783 break;
2784 default:
2785 return true;
2786 }
2787 return false;
2788}
2789
2790static bool handleFmt22cs(CompilationUnit *cUnit, MIR *mir)
2791{
2792 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2793 int fieldOffset = mir->dalvikInsn.vC;
2794 switch (dalvikOpCode) {
2795 case OP_IGET_QUICK:
2796 case OP_IGET_OBJECT_QUICK:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002797 genIGet(cUnit, mir, THUMB_LDR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002798 break;
2799 case OP_IPUT_QUICK:
2800 case OP_IPUT_OBJECT_QUICK:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002801 genIPut(cUnit, mir, THUMB_STR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002802 break;
2803 case OP_IGET_WIDE_QUICK:
2804 genIGetWide(cUnit, mir, fieldOffset);
2805 break;
2806 case OP_IPUT_WIDE_QUICK:
2807 genIPutWide(cUnit, mir, fieldOffset);
2808 break;
2809 default:
2810 return true;
2811 }
2812 return false;
2813
2814}
2815
2816/* Compare agaist zero */
2817static bool handleFmt22t(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002818 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002819{
2820 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002821 ArmConditionCode cond;
Ben Chenge9695e52009-06-16 16:11:47 -07002822 int reg0, reg1;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002823
Ben Chenge9695e52009-06-16 16:11:47 -07002824 if (cUnit->registerScoreboard.liveDalvikReg == (int) mir->dalvikInsn.vA) {
2825 reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
2826 reg1 = NEXT_REG(reg0);
2827 /* Load vB first since vA can be fetched via a move */
2828 loadValue(cUnit, mir->dalvikInsn.vB, reg1);
2829 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
2830 } else {
2831 reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vB, false);
2832 reg1 = NEXT_REG(reg0);
2833 /* Load vA first since vB can be fetched via a move */
2834 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
2835 loadValue(cUnit, mir->dalvikInsn.vB, reg1);
2836 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002837 newLIR2(cUnit, THUMB_CMP_RR, reg0, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002838
2839 switch (dalvikOpCode) {
2840 case OP_IF_EQ:
2841 cond = ARM_COND_EQ;
2842 break;
2843 case OP_IF_NE:
2844 cond = ARM_COND_NE;
2845 break;
2846 case OP_IF_LT:
2847 cond = ARM_COND_LT;
2848 break;
2849 case OP_IF_GE:
2850 cond = ARM_COND_GE;
2851 break;
2852 case OP_IF_GT:
2853 cond = ARM_COND_GT;
2854 break;
2855 case OP_IF_LE:
2856 cond = ARM_COND_LE;
2857 break;
2858 default:
2859 cond = 0;
2860 LOGE("Unexpected opcode (%d) for Fmt22t\n", dalvikOpCode);
2861 dvmAbort();
2862 }
2863 genConditionalBranch(cUnit, cond, &labelList[bb->taken->id]);
2864 /* This mostly likely will be optimized away in a later phase */
2865 genUnconditionalBranch(cUnit, &labelList[bb->fallThrough->id]);
2866 return false;
2867}
2868
2869static bool handleFmt22x_Fmt32x(CompilationUnit *cUnit, MIR *mir)
2870{
2871 OpCode opCode = mir->dalvikInsn.opCode;
2872 int vSrc1Dest = mir->dalvikInsn.vA;
2873 int vSrc2 = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002874 int reg0, reg1, reg2;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002875
2876 switch (opCode) {
2877 case OP_MOVE_16:
2878 case OP_MOVE_OBJECT_16:
2879 case OP_MOVE_FROM16:
Ben Chenge9695e52009-06-16 16:11:47 -07002880 case OP_MOVE_OBJECT_FROM16: {
2881 reg0 = selectFirstRegister(cUnit, vSrc2, false);
2882 reg1 = NEXT_REG(reg0);
2883 loadValue(cUnit, vSrc2, reg0);
2884 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002885 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002886 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002887 case OP_MOVE_WIDE_16:
Ben Chenge9695e52009-06-16 16:11:47 -07002888 case OP_MOVE_WIDE_FROM16: {
2889 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2890 reg1 = NEXT_REG(reg0);
2891 reg2 = NEXT_REG(reg1);
2892 loadValuePair(cUnit, vSrc2, reg0, reg1);
2893 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002894 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002895 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002896 default:
2897 return true;
2898 }
2899 return false;
2900}
2901
2902static bool handleFmt23x(CompilationUnit *cUnit, MIR *mir)
2903{
2904 OpCode opCode = mir->dalvikInsn.opCode;
2905 int vA = mir->dalvikInsn.vA;
2906 int vB = mir->dalvikInsn.vB;
2907 int vC = mir->dalvikInsn.vC;
2908
Ben Chenge9695e52009-06-16 16:11:47 -07002909 /* Don't optimize for register usage since out-of-line handlers are used */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002910 if ( (opCode >= OP_ADD_INT) && (opCode <= OP_REM_DOUBLE)) {
2911 return genArithOp( cUnit, mir );
2912 }
2913
2914 switch (opCode) {
Bill Buzbeed45ba372009-06-15 17:00:57 -07002915 case OP_CMPL_FLOAT:
2916 case OP_CMPG_FLOAT:
2917 case OP_CMPL_DOUBLE:
2918 case OP_CMPG_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002919 return genCmpX(cUnit, mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002920 case OP_CMP_LONG:
2921 loadValuePair(cUnit,vB, r0, r1);
2922 loadValuePair(cUnit, vC, r2, r3);
2923 genDispatchToHandler(cUnit, TEMPLATE_CMP_LONG);
2924 storeValue(cUnit, r0, vA, r1);
2925 break;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002926 case OP_AGET_WIDE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002927 genArrayGet(cUnit, mir, THUMB_LDR_RRR, vB, vC, vA, 3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002928 break;
2929 case OP_AGET:
2930 case OP_AGET_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002931 genArrayGet(cUnit, mir, THUMB_LDR_RRR, vB, vC, vA, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002932 break;
2933 case OP_AGET_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002934 genArrayGet(cUnit, mir, THUMB_LDRB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002935 break;
2936 case OP_AGET_BYTE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002937 genArrayGet(cUnit, mir, THUMB_LDRSB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002938 break;
2939 case OP_AGET_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002940 genArrayGet(cUnit, mir, THUMB_LDRH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002941 break;
2942 case OP_AGET_SHORT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002943 genArrayGet(cUnit, mir, THUMB_LDRSH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002944 break;
2945 case OP_APUT_WIDE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002946 genArrayPut(cUnit, mir, THUMB_STR_RRR, vB, vC, vA, 3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002947 break;
2948 case OP_APUT:
2949 case OP_APUT_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002950 genArrayPut(cUnit, mir, THUMB_STR_RRR, vB, vC, vA, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002951 break;
2952 case OP_APUT_SHORT:
2953 case OP_APUT_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002954 genArrayPut(cUnit, mir, THUMB_STRH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002955 break;
2956 case OP_APUT_BYTE:
2957 case OP_APUT_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002958 genArrayPut(cUnit, mir, THUMB_STRB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002959 break;
2960 default:
2961 return true;
2962 }
2963 return false;
2964}
2965
2966static bool handleFmt31t(CompilationUnit *cUnit, MIR *mir)
2967{
2968 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2969 switch (dalvikOpCode) {
2970 case OP_FILL_ARRAY_DATA: {
2971 loadConstant(cUnit, r4PC, (int)dvmInterpHandleFillArrayData);
2972 loadValue(cUnit, mir->dalvikInsn.vA, r0);
2973 loadConstant(cUnit, r1, (mir->dalvikInsn.vB << 1) +
2974 (int) (cUnit->method->insns + mir->offset));
2975 genExportPC(cUnit, mir, r2, r3 );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002976 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chenge9695e52009-06-16 16:11:47 -07002977 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002978 break;
2979 }
2980 /*
2981 * TODO
2982 * - Add a 1 to 3-entry per-location cache here to completely
2983 * bypass the dvmInterpHandle[Packed/Sparse]Switch call w/ chaining
2984 * - Use out-of-line handlers for both of these
2985 */
2986 case OP_PACKED_SWITCH:
2987 case OP_SPARSE_SWITCH: {
2988 if (dalvikOpCode == OP_PACKED_SWITCH) {
2989 loadConstant(cUnit, r4PC, (int)dvmInterpHandlePackedSwitch);
2990 } else {
2991 loadConstant(cUnit, r4PC, (int)dvmInterpHandleSparseSwitch);
2992 }
2993 loadValue(cUnit, mir->dalvikInsn.vA, r1);
2994 loadConstant(cUnit, r0, (mir->dalvikInsn.vB << 1) +
2995 (int) (cUnit->method->insns + mir->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002996 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002997 loadConstant(cUnit, r1, (int)(cUnit->method->insns + mir->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002998 newLIR3(cUnit, THUMB_LDR_RRI5, r2, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002999 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpNoChain)
3000 >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003001 newLIR3(cUnit, THUMB_ADD_RRR, r0, r0, r0);
3002 newLIR3(cUnit, THUMB_ADD_RRR, r4PC, r0, r1);
3003 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003004 break;
3005 }
3006 default:
3007 return true;
3008 }
3009 return false;
3010}
3011
3012static bool handleFmt35c_3rc(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003013 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003014{
Bill Buzbee9bc3df32009-07-30 10:52:29 -07003015 ArmLIR *retChainingCell = NULL;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003016 ArmLIR *pcrLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003017
Bill Buzbeef4ce16f2009-07-28 13:28:25 -07003018 if (bb->fallThrough != NULL)
3019 retChainingCell = &labelList[bb->fallThrough->id];
3020
Ben Chengba4fc8b2009-06-01 13:00:29 -07003021 DecodedInstruction *dInsn = &mir->dalvikInsn;
3022 switch (mir->dalvikInsn.opCode) {
3023 /*
3024 * calleeMethod = this->clazz->vtable[
3025 * method->clazz->pDvmDex->pResMethods[BBBB]->methodIndex
3026 * ]
3027 */
3028 case OP_INVOKE_VIRTUAL:
3029 case OP_INVOKE_VIRTUAL_RANGE: {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003030 ArmLIR *predChainingCell = &labelList[bb->taken->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07003031 int methodIndex =
3032 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB]->
3033 methodIndex;
3034
3035 if (mir->dalvikInsn.opCode == OP_INVOKE_VIRTUAL)
3036 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3037 else
3038 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3039
Ben Cheng38329f52009-07-07 14:19:20 -07003040 genInvokeVirtualCommon(cUnit, mir, methodIndex,
3041 retChainingCell,
3042 predChainingCell,
3043 pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003044 break;
3045 }
3046 /*
3047 * calleeMethod = method->clazz->super->vtable[method->clazz->pDvmDex
3048 * ->pResMethods[BBBB]->methodIndex]
3049 */
3050 /* TODO - not excersized in RunPerf.jar */
3051 case OP_INVOKE_SUPER:
3052 case OP_INVOKE_SUPER_RANGE: {
3053 int mIndex = cUnit->method->clazz->pDvmDex->
3054 pResMethods[dInsn->vB]->methodIndex;
3055 const Method *calleeMethod =
3056 cUnit->method->clazz->super->vtable[mIndex];
3057
3058 if (mir->dalvikInsn.opCode == OP_INVOKE_SUPER)
3059 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3060 else
3061 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3062
3063 /* r0 = calleeMethod */
3064 loadConstant(cUnit, r0, (int) calleeMethod);
3065
Ben Cheng38329f52009-07-07 14:19:20 -07003066 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
3067 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003068 break;
3069 }
3070 /* calleeMethod = method->clazz->pDvmDex->pResMethods[BBBB] */
3071 case OP_INVOKE_DIRECT:
3072 case OP_INVOKE_DIRECT_RANGE: {
3073 const Method *calleeMethod =
3074 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB];
3075
3076 if (mir->dalvikInsn.opCode == OP_INVOKE_DIRECT)
3077 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3078 else
3079 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3080
3081 /* r0 = calleeMethod */
3082 loadConstant(cUnit, r0, (int) calleeMethod);
3083
Ben Cheng38329f52009-07-07 14:19:20 -07003084 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
3085 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003086 break;
3087 }
3088 /* calleeMethod = method->clazz->pDvmDex->pResMethods[BBBB] */
3089 case OP_INVOKE_STATIC:
3090 case OP_INVOKE_STATIC_RANGE: {
3091 const Method *calleeMethod =
3092 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB];
3093
3094 if (mir->dalvikInsn.opCode == OP_INVOKE_STATIC)
3095 genProcessArgsNoRange(cUnit, mir, dInsn,
3096 NULL /* no null check */);
3097 else
3098 genProcessArgsRange(cUnit, mir, dInsn,
3099 NULL /* no null check */);
3100
3101 /* r0 = calleeMethod */
3102 loadConstant(cUnit, r0, (int) calleeMethod);
3103
Ben Cheng38329f52009-07-07 14:19:20 -07003104 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
3105 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003106 break;
3107 }
3108 /*
3109 * calleeMethod = dvmFindInterfaceMethodInCache(this->clazz,
3110 * BBBB, method, method->clazz->pDvmDex)
Ben Cheng38329f52009-07-07 14:19:20 -07003111 *
3112 * Given "invoke-interface {v0}", the following is the generated code:
3113 *
3114 * 0x426a9abe : ldr r0, [r5, #0] --+
3115 * 0x426a9ac0 : mov r7, r5 |
3116 * 0x426a9ac2 : sub r7, #24 |
3117 * 0x426a9ac4 : cmp r0, #0 | genProcessArgsNoRange
3118 * 0x426a9ac6 : beq 0x426a9afe |
3119 * 0x426a9ac8 : stmia r7, <r0> --+
3120 * 0x426a9aca : ldr r4, [pc, #104] --> r4 <- dalvikPC of this invoke
3121 * 0x426a9acc : add r1, pc, #52 --> r1 <- &retChainingCell
3122 * 0x426a9ace : add r2, pc, #60 --> r2 <- &predictedChainingCell
3123 * 0x426a9ad0 : blx_1 0x426a918c --+ TEMPLATE_INVOKE_METHOD_
3124 * 0x426a9ad2 : blx_2 see above --+ PREDICTED_CHAIN
3125 * 0x426a9ad4 : b 0x426a9b0c --> off to the predicted chain
3126 * 0x426a9ad6 : b 0x426a9afe --> punt to the interpreter
3127 * 0x426a9ad8 : mov r9, r1 --+
3128 * 0x426a9ada : mov r10, r2 |
3129 * 0x426a9adc : mov r12, r3 |
3130 * 0x426a9ade : mov r0, r3 |
3131 * 0x426a9ae0 : mov r1, #74 | dvmFindInterfaceMethodInCache
3132 * 0x426a9ae2 : ldr r2, [pc, #76] |
3133 * 0x426a9ae4 : ldr r3, [pc, #68] |
3134 * 0x426a9ae6 : ldr r7, [pc, #64] |
3135 * 0x426a9ae8 : blx r7 --+
3136 * 0x426a9aea : mov r1, r9 --> r1 <- rechain count
3137 * 0x426a9aec : cmp r1, #0 --> compare against 0
3138 * 0x426a9aee : bgt 0x426a9af8 --> >=0? don't rechain
3139 * 0x426a9af0 : ldr r7, [r6, #96] --+
3140 * 0x426a9af2 : mov r2, r10 | dvmJitToPatchPredictedChain
3141 * 0x426a9af4 : mov r3, r12 |
3142 * 0x426a9af6 : blx r7 --+
3143 * 0x426a9af8 : add r1, pc, #8 --> r1 <- &retChainingCell
3144 * 0x426a9afa : blx_1 0x426a9098 --+ TEMPLATE_INVOKE_METHOD_NO_OPT
3145 * 0x426a9afc : blx_2 see above --+
3146 * -------- reconstruct dalvik PC : 0x428b786c @ +0x001e
3147 * 0x426a9afe (0042): ldr r0, [pc, #52]
3148 * Exception_Handling:
3149 * 0x426a9b00 (0044): ldr r1, [r6, #84]
3150 * 0x426a9b02 (0046): blx r1
3151 * 0x426a9b04 (0048): .align4
3152 * -------- chaining cell (hot): 0x0021
3153 * 0x426a9b04 (0048): ldr r0, [r6, #92]
3154 * 0x426a9b06 (004a): blx r0
3155 * 0x426a9b08 (004c): data 0x7872(30834)
3156 * 0x426a9b0a (004e): data 0x428b(17035)
3157 * 0x426a9b0c (0050): .align4
3158 * -------- chaining cell (predicted)
3159 * 0x426a9b0c (0050): data 0x0000(0) --> will be patched into bx
3160 * 0x426a9b0e (0052): data 0x0000(0)
3161 * 0x426a9b10 (0054): data 0x0000(0) --> class
3162 * 0x426a9b12 (0056): data 0x0000(0)
3163 * 0x426a9b14 (0058): data 0x0000(0) --> method
3164 * 0x426a9b16 (005a): data 0x0000(0)
3165 * 0x426a9b18 (005c): data 0x0000(0) --> reset count
3166 * 0x426a9b1a (005e): data 0x0000(0)
3167 * 0x426a9b28 (006c): .word (0xad0392a5)
3168 * 0x426a9b2c (0070): .word (0x6e750)
3169 * 0x426a9b30 (0074): .word (0x4109a618)
3170 * 0x426a9b34 (0078): .word (0x428b786c)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003171 */
3172 case OP_INVOKE_INTERFACE:
3173 case OP_INVOKE_INTERFACE_RANGE: {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003174 ArmLIR *predChainingCell = &labelList[bb->taken->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07003175 int methodIndex = dInsn->vB;
3176
3177 if (mir->dalvikInsn.opCode == OP_INVOKE_INTERFACE)
3178 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3179 else
3180 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3181
Ben Cheng38329f52009-07-07 14:19:20 -07003182 /* "this" is already left in r0 by genProcessArgs* */
3183
3184 /* r4PC = dalvikCallsite */
3185 loadConstant(cUnit, r4PC,
3186 (int) (cUnit->method->insns + mir->offset));
3187
3188 /* r1 = &retChainingCell */
Ben Cheng3f02aa42009-08-14 13:52:09 -07003189 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL, r1, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07003190 addrRetChain->generic.target = (LIR *) retChainingCell;
3191
3192 /* r2 = &predictedChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003193 ArmLIR *predictedChainingCell =
Ben Cheng3f02aa42009-08-14 13:52:09 -07003194 newLIR3(cUnit, THUMB_ADD_PC_REL, r2, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07003195 predictedChainingCell->generic.target = (LIR *) predChainingCell;
3196
3197 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN);
3198
3199 /* return through lr - jump to the chaining cell */
3200 genUnconditionalBranch(cUnit, predChainingCell);
3201
3202 /*
3203 * null-check on "this" may have been eliminated, but we still need
3204 * a PC-reconstruction label for stack overflow bailout.
3205 */
3206 if (pcrLabel == NULL) {
3207 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003208 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
3209 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Cheng38329f52009-07-07 14:19:20 -07003210 pcrLabel->operands[0] = dPC;
3211 pcrLabel->operands[1] = mir->offset;
3212 /* Insert the place holder to the growable list */
3213 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
3214 }
3215
3216 /* return through lr+2 - punt to the interpreter */
3217 genUnconditionalBranch(cUnit, pcrLabel);
3218
3219 /*
3220 * return through lr+4 - fully resolve the callee method.
3221 * r1 <- count
3222 * r2 <- &predictedChainCell
3223 * r3 <- this->class
3224 * r4 <- dPC
3225 * r7 <- this->class->vtable
3226 */
3227
3228 /* Save count, &predictedChainCell, and class to high regs first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003229 newLIR2(cUnit, THUMB_MOV_RR_L2H, r9 & THUMB_REG_MASK, r1);
3230 newLIR2(cUnit, THUMB_MOV_RR_L2H, r10 & THUMB_REG_MASK, r2);
3231 newLIR2(cUnit, THUMB_MOV_RR_L2H, r12 & THUMB_REG_MASK, r3);
Ben Cheng38329f52009-07-07 14:19:20 -07003232
Ben Chengba4fc8b2009-06-01 13:00:29 -07003233 /* r0 now contains this->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003234 newLIR2(cUnit, THUMB_MOV_RR, r0, r3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003235
3236 /* r1 = BBBB */
3237 loadConstant(cUnit, r1, dInsn->vB);
3238
3239 /* r2 = method (caller) */
3240 loadConstant(cUnit, r2, (int) cUnit->method);
3241
3242 /* r3 = pDvmDex */
3243 loadConstant(cUnit, r3, (int) cUnit->method->clazz->pDvmDex);
3244
3245 loadConstant(cUnit, r7,
3246 (intptr_t) dvmFindInterfaceMethodInCache);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003247 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003248
3249 /* r0 = calleeMethod (returned from dvmFindInterfaceMethodInCache */
3250
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003251 newLIR2(cUnit, THUMB_MOV_RR_H2L, r1, r9 & THUMB_REG_MASK);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003252
Ben Cheng38329f52009-07-07 14:19:20 -07003253 /* Check if rechain limit is reached */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003254 newLIR2(cUnit, THUMB_CMP_RI8, r1, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07003255
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003256 ArmLIR *bypassRechaining =
3257 newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_GT);
Ben Cheng38329f52009-07-07 14:19:20 -07003258
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003259 newLIR3(cUnit, THUMB_LDR_RRI5, r7, rGLUE,
Ben Cheng38329f52009-07-07 14:19:20 -07003260 offsetof(InterpState,
3261 jitToInterpEntries.dvmJitToPatchPredictedChain)
3262 >> 2);
3263
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003264 newLIR2(cUnit, THUMB_MOV_RR_H2L, r2, r10 & THUMB_REG_MASK);
3265 newLIR2(cUnit, THUMB_MOV_RR_H2L, r3, r12 & THUMB_REG_MASK);
Ben Cheng38329f52009-07-07 14:19:20 -07003266
3267 /*
3268 * r0 = calleeMethod
3269 * r2 = &predictedChainingCell
3270 * r3 = class
3271 *
3272 * &returnChainingCell has been loaded into r1 but is not needed
3273 * when patching the chaining cell and will be clobbered upon
3274 * returning so it will be reconstructed again.
3275 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003276 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Cheng38329f52009-07-07 14:19:20 -07003277
3278 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003279 addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07003280 r1, 0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003281 addrRetChain->generic.target = (LIR *) retChainingCell;
Ben Cheng38329f52009-07-07 14:19:20 -07003282
3283 bypassRechaining->generic.target = (LIR *) addrRetChain;
3284
Ben Chengba4fc8b2009-06-01 13:00:29 -07003285 /*
3286 * r0 = this, r1 = calleeMethod,
3287 * r1 = &ChainingCell,
3288 * r4PC = callsiteDPC,
3289 */
3290 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NO_OPT);
3291#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -07003292 gDvmJit.invokePredictedChain++;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003293#endif
3294 /* Handle exceptions using the interpreter */
3295 genTrap(cUnit, mir->offset, pcrLabel);
3296 break;
3297 }
3298 /* NOP */
3299 case OP_INVOKE_DIRECT_EMPTY: {
3300 return false;
3301 }
3302 case OP_FILLED_NEW_ARRAY:
3303 case OP_FILLED_NEW_ARRAY_RANGE: {
3304 /* Just let the interpreter deal with these */
3305 genInterpSingleStep(cUnit, mir);
3306 break;
3307 }
3308 default:
3309 return true;
3310 }
3311 return false;
3312}
3313
3314static bool handleFmt35ms_3rms(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003315 BasicBlock *bb, ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003316{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003317 ArmLIR *retChainingCell = &labelList[bb->fallThrough->id];
3318 ArmLIR *predChainingCell = &labelList[bb->taken->id];
3319 ArmLIR *pcrLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003320
3321 DecodedInstruction *dInsn = &mir->dalvikInsn;
3322 switch (mir->dalvikInsn.opCode) {
3323 /* calleeMethod = this->clazz->vtable[BBBB] */
3324 case OP_INVOKE_VIRTUAL_QUICK_RANGE:
3325 case OP_INVOKE_VIRTUAL_QUICK: {
3326 int methodIndex = dInsn->vB;
3327 if (mir->dalvikInsn.opCode == OP_INVOKE_VIRTUAL_QUICK)
3328 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3329 else
3330 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3331
Ben Cheng38329f52009-07-07 14:19:20 -07003332 genInvokeVirtualCommon(cUnit, mir, methodIndex,
3333 retChainingCell,
3334 predChainingCell,
3335 pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003336 break;
3337 }
3338 /* calleeMethod = method->clazz->super->vtable[BBBB] */
3339 case OP_INVOKE_SUPER_QUICK:
3340 case OP_INVOKE_SUPER_QUICK_RANGE: {
3341 const Method *calleeMethod =
3342 cUnit->method->clazz->super->vtable[dInsn->vB];
3343
3344 if (mir->dalvikInsn.opCode == OP_INVOKE_SUPER_QUICK)
3345 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3346 else
3347 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3348
3349 /* r0 = calleeMethod */
3350 loadConstant(cUnit, r0, (int) calleeMethod);
3351
Ben Cheng38329f52009-07-07 14:19:20 -07003352 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
3353 calleeMethod);
3354 /* Handle exceptions using the interpreter */
3355 genTrap(cUnit, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003356 break;
3357 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003358 default:
3359 return true;
3360 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003361 return false;
3362}
3363
3364/*
3365 * NOTE: We assume here that the special native inline routines
3366 * are side-effect free. By making this assumption, we can safely
3367 * re-execute the routine from the interpreter if it decides it
3368 * wants to throw an exception. We still need to EXPORT_PC(), though.
3369 */
3370static bool handleFmt3inline(CompilationUnit *cUnit, MIR *mir)
3371{
3372 DecodedInstruction *dInsn = &mir->dalvikInsn;
3373 switch( mir->dalvikInsn.opCode) {
3374 case OP_EXECUTE_INLINE: {
3375 unsigned int i;
3376 const InlineOperation* inLineTable = dvmGetInlineOpsTable();
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003377 int offset = offsetof(InterpState, retval);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003378 int operation = dInsn->vB;
3379
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003380 switch (operation) {
3381 case INLINE_EMPTYINLINEMETHOD:
3382 return false; /* Nop */
3383 case INLINE_STRING_LENGTH:
3384 return genInlinedStringLength(cUnit, mir);
3385 case INLINE_MATH_ABS_INT:
3386 return genInlinedAbsInt(cUnit, mir);
3387 case INLINE_MATH_ABS_LONG:
3388 return genInlinedAbsLong(cUnit, mir);
3389 case INLINE_MATH_MIN_INT:
3390 return genInlinedMinMaxInt(cUnit, mir, true);
3391 case INLINE_MATH_MAX_INT:
3392 return genInlinedMinMaxInt(cUnit, mir, false);
3393 case INLINE_STRING_CHARAT:
3394 return genInlinedStringCharAt(cUnit, mir);
3395 case INLINE_MATH_SQRT:
3396 if (genInlineSqrt(cUnit, mir))
Bill Buzbee9727c3d2009-08-01 11:32:36 -07003397 return false;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003398 else
3399 break; /* Handle with C routine */
3400 case INLINE_MATH_COS:
3401 if (genInlineCos(cUnit, mir))
Bill Buzbee9727c3d2009-08-01 11:32:36 -07003402 return false;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003403 else
3404 break; /* Handle with C routine */
3405 case INLINE_MATH_SIN:
3406 if (genInlineSin(cUnit, mir))
Bill Buzbee9727c3d2009-08-01 11:32:36 -07003407 return false;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003408 else
3409 break; /* Handle with C routine */
3410 case INLINE_MATH_ABS_FLOAT:
3411 return genInlinedAbsFloat(cUnit, mir);
3412 case INLINE_MATH_ABS_DOUBLE:
3413 return genInlinedAbsDouble(cUnit, mir);
3414 case INLINE_STRING_COMPARETO:
3415 case INLINE_STRING_EQUALS:
3416 break;
3417 default:
3418 dvmAbort();
Ben Chengba4fc8b2009-06-01 13:00:29 -07003419 }
3420
3421 /* Materialize pointer to retval & push */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003422 newLIR2(cUnit, THUMB_MOV_RR, r4PC, rGLUE);
3423 newLIR2(cUnit, THUMB_ADD_RI8, r4PC, offset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003424 /* Push r4 and (just to take up space) r5) */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003425 newLIR1(cUnit, THUMB_PUSH, (1<<r4PC | 1<<rFP));
Ben Chengba4fc8b2009-06-01 13:00:29 -07003426
3427 /* Get code pointer to inline routine */
3428 loadConstant(cUnit, r4PC, (int)inLineTable[operation].func);
3429
3430 /* Export PC */
3431 genExportPC(cUnit, mir, r0, r1 );
3432
3433 /* Load arguments to r0 through r3 as applicable */
3434 for (i=0; i < dInsn->vA; i++) {
3435 loadValue(cUnit, dInsn->arg[i], i);
3436 }
3437 /* Call inline routine */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003438 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003439
3440 /* Strip frame */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003441 newLIR1(cUnit, THUMB_ADD_SPI7, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003442
3443 /* Did we throw? If so, redo under interpreter*/
Ben Chenge9695e52009-06-16 16:11:47 -07003444 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003445
Ben Chenge9695e52009-06-16 16:11:47 -07003446 resetRegisterScoreboard(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003447 break;
3448 }
3449 default:
3450 return true;
3451 }
3452 return false;
3453}
3454
3455static bool handleFmt51l(CompilationUnit *cUnit, MIR *mir)
3456{
3457 loadConstant(cUnit, r0, mir->dalvikInsn.vB_wide & 0xFFFFFFFFUL);
3458 loadConstant(cUnit, r1, (mir->dalvikInsn.vB_wide>>32) & 0xFFFFFFFFUL);
3459 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
3460 return false;
3461}
3462
3463/*****************************************************************************/
3464/*
3465 * The following are special processing routines that handle transfer of
3466 * controls between compiled code and the interpreter. Certain VM states like
3467 * Dalvik PC and special-purpose registers are reconstructed here.
3468 */
3469
Ben Cheng1efc9c52009-06-08 18:25:27 -07003470/* Chaining cell for code that may need warmup. */
3471static void handleNormalChainingCell(CompilationUnit *cUnit,
3472 unsigned int offset)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003473{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003474 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003475 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpNormal) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003476 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003477 addWordData(cUnit, (int) (cUnit->method->insns + offset), true);
3478}
3479
3480/*
Ben Cheng1efc9c52009-06-08 18:25:27 -07003481 * Chaining cell for instructions that immediately following already translated
3482 * code.
Ben Chengba4fc8b2009-06-01 13:00:29 -07003483 */
Ben Cheng1efc9c52009-06-08 18:25:27 -07003484static void handleHotChainingCell(CompilationUnit *cUnit,
3485 unsigned int offset)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003486{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003487 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003488 offsetof(InterpState, jitToInterpEntries.dvmJitToTraceSelect) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003489 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003490 addWordData(cUnit, (int) (cUnit->method->insns + offset), true);
3491}
3492
Jeff Hao97319a82009-08-12 16:57:15 -07003493#if defined(WITH_SELF_VERIFICATION)
3494/* Chaining cell for branches that branch back into the same basic block */
3495static void handleBackwardBranchChainingCell(CompilationUnit *cUnit,
3496 unsigned int offset)
3497{
3498 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
3499 offsetof(InterpState, jitToInterpEntries.dvmJitToBackwardBranch) >> 2);
3500 newLIR1(cUnit, THUMB_BLX_R, r0);
3501 addWordData(cUnit, (int) (cUnit->method->insns + offset), true);
3502}
3503
3504#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07003505/* Chaining cell for monomorphic method invocations. */
Ben Cheng38329f52009-07-07 14:19:20 -07003506static void handleInvokeSingletonChainingCell(CompilationUnit *cUnit,
3507 const Method *callee)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003508{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003509 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003510 offsetof(InterpState, jitToInterpEntries.dvmJitToTraceSelect) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003511 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003512 addWordData(cUnit, (int) (callee->insns), true);
3513}
3514
Ben Cheng38329f52009-07-07 14:19:20 -07003515/* Chaining cell for monomorphic method invocations. */
3516static void handleInvokePredictedChainingCell(CompilationUnit *cUnit)
3517{
3518
3519 /* Should not be executed in the initial state */
3520 addWordData(cUnit, PREDICTED_CHAIN_BX_PAIR_INIT, true);
3521 /* To be filled: class */
3522 addWordData(cUnit, PREDICTED_CHAIN_CLAZZ_INIT, true);
3523 /* To be filled: method */
3524 addWordData(cUnit, PREDICTED_CHAIN_METHOD_INIT, true);
3525 /*
3526 * Rechain count. The initial value of 0 here will trigger chaining upon
3527 * the first invocation of this callsite.
3528 */
3529 addWordData(cUnit, PREDICTED_CHAIN_COUNTER_INIT, true);
3530}
3531
Ben Chengba4fc8b2009-06-01 13:00:29 -07003532/* Load the Dalvik PC into r0 and jump to the specified target */
3533static void handlePCReconstruction(CompilationUnit *cUnit,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003534 ArmLIR *targetLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003535{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003536 ArmLIR **pcrLabel =
3537 (ArmLIR **) cUnit->pcReconstructionList.elemList;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003538 int numElems = cUnit->pcReconstructionList.numUsed;
3539 int i;
3540 for (i = 0; i < numElems; i++) {
3541 dvmCompilerAppendLIR(cUnit, (LIR *) pcrLabel[i]);
3542 /* r0 = dalvik PC */
3543 loadConstant(cUnit, r0, pcrLabel[i]->operands[0]);
3544 genUnconditionalBranch(cUnit, targetLabel);
3545 }
3546}
3547
3548/* Entry function to invoke the backend of the JIT compiler */
3549void dvmCompilerMIR2LIR(CompilationUnit *cUnit)
3550{
3551 /* Used to hold the labels of each block */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003552 ArmLIR *labelList =
3553 dvmCompilerNew(sizeof(ArmLIR) * cUnit->numBlocks, true);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003554 GrowableList chainingListByType[CHAINING_CELL_LAST];
3555 int i;
3556
3557 /*
Ben Cheng38329f52009-07-07 14:19:20 -07003558 * Initialize various types chaining lists.
Ben Chengba4fc8b2009-06-01 13:00:29 -07003559 */
3560 for (i = 0; i < CHAINING_CELL_LAST; i++) {
3561 dvmInitGrowableList(&chainingListByType[i], 2);
3562 }
3563
3564 BasicBlock **blockList = cUnit->blockList;
3565
Bill Buzbee6e963e12009-06-17 16:56:19 -07003566 if (cUnit->executionCount) {
3567 /*
3568 * Reserve 6 bytes at the beginning of the trace
3569 * +----------------------------+
3570 * | execution count (4 bytes) |
3571 * +----------------------------+
3572 * | chain cell offset (2 bytes)|
3573 * +----------------------------+
3574 * ...and then code to increment the execution
3575 * count:
3576 * mov r0, pc @ move adr of "mov r0,pc" + 4 to r0
3577 * sub r0, #10 @ back up to addr of executionCount
3578 * ldr r1, [r0]
3579 * add r1, #1
3580 * str r1, [r0]
3581 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003582 newLIR1(cUnit, ARM_16BIT_DATA, 0);
3583 newLIR1(cUnit, ARM_16BIT_DATA, 0);
Ben Chengcc6600c2009-06-22 14:45:16 -07003584 cUnit->chainCellOffsetLIR =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003585 (LIR *) newLIR1(cUnit, ARM_16BIT_DATA, CHAIN_CELL_OFFSET_TAG);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003586 cUnit->headerSize = 6;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003587 newLIR2(cUnit, THUMB_MOV_RR_H2L, r0, rpc & THUMB_REG_MASK);
3588 newLIR2(cUnit, THUMB_SUB_RI8, r0, 10);
3589 newLIR3(cUnit, THUMB_LDR_RRI5, r1, r0, 0);
3590 newLIR2(cUnit, THUMB_ADD_RI8, r1, 1);
3591 newLIR3(cUnit, THUMB_STR_RRI5, r1, r0, 0);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003592 } else {
3593 /* Just reserve 2 bytes for the chain cell offset */
Ben Chengcc6600c2009-06-22 14:45:16 -07003594 cUnit->chainCellOffsetLIR =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003595 (LIR *) newLIR1(cUnit, ARM_16BIT_DATA, CHAIN_CELL_OFFSET_TAG);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003596 cUnit->headerSize = 2;
3597 }
Ben Cheng1efc9c52009-06-08 18:25:27 -07003598
Ben Chengba4fc8b2009-06-01 13:00:29 -07003599 /* Handle the content in each basic block */
3600 for (i = 0; i < cUnit->numBlocks; i++) {
3601 blockList[i]->visited = true;
3602 MIR *mir;
3603
3604 labelList[i].operands[0] = blockList[i]->startOffset;
3605
3606 if (blockList[i]->blockType >= CHAINING_CELL_LAST) {
3607 /*
3608 * Append the label pseudo LIR first. Chaining cells will be handled
3609 * separately afterwards.
3610 */
3611 dvmCompilerAppendLIR(cUnit, (LIR *) &labelList[i]);
3612 }
3613
3614 if (blockList[i]->blockType == DALVIK_BYTECODE) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003615 labelList[i].opCode = ARM_PSEUDO_NORMAL_BLOCK_LABEL;
Ben Chenge9695e52009-06-16 16:11:47 -07003616 /* Reset the register state */
3617 resetRegisterScoreboard(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003618 } else {
3619 switch (blockList[i]->blockType) {
Ben Cheng1efc9c52009-06-08 18:25:27 -07003620 case CHAINING_CELL_NORMAL:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003621 labelList[i].opCode = ARM_PSEUDO_CHAINING_CELL_NORMAL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003622 /* handle the codegen later */
3623 dvmInsertGrowableList(
Ben Cheng1efc9c52009-06-08 18:25:27 -07003624 &chainingListByType[CHAINING_CELL_NORMAL], (void *) i);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003625 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003626 case CHAINING_CELL_INVOKE_SINGLETON:
3627 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003628 ARM_PSEUDO_CHAINING_CELL_INVOKE_SINGLETON;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003629 labelList[i].operands[0] =
3630 (int) blockList[i]->containingMethod;
3631 /* handle the codegen later */
3632 dvmInsertGrowableList(
Ben Cheng38329f52009-07-07 14:19:20 -07003633 &chainingListByType[CHAINING_CELL_INVOKE_SINGLETON],
3634 (void *) i);
3635 break;
3636 case CHAINING_CELL_INVOKE_PREDICTED:
3637 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003638 ARM_PSEUDO_CHAINING_CELL_INVOKE_PREDICTED;
Ben Cheng38329f52009-07-07 14:19:20 -07003639 /* handle the codegen later */
3640 dvmInsertGrowableList(
3641 &chainingListByType[CHAINING_CELL_INVOKE_PREDICTED],
3642 (void *) i);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003643 break;
Ben Cheng1efc9c52009-06-08 18:25:27 -07003644 case CHAINING_CELL_HOT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07003645 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003646 ARM_PSEUDO_CHAINING_CELL_HOT;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003647 /* handle the codegen later */
3648 dvmInsertGrowableList(
Ben Cheng1efc9c52009-06-08 18:25:27 -07003649 &chainingListByType[CHAINING_CELL_HOT],
Ben Chengba4fc8b2009-06-01 13:00:29 -07003650 (void *) i);
3651 break;
3652 case PC_RECONSTRUCTION:
3653 /* Make sure exception handling block is next */
3654 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003655 ARM_PSEUDO_PC_RECONSTRUCTION_BLOCK_LABEL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003656 assert (i == cUnit->numBlocks - 2);
3657 handlePCReconstruction(cUnit, &labelList[i+1]);
3658 break;
3659 case EXCEPTION_HANDLING:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003660 labelList[i].opCode = ARM_PSEUDO_EH_BLOCK_LABEL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003661 if (cUnit->pcReconstructionList.numUsed) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003662 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003663 offsetof(InterpState,
3664 jitToInterpEntries.dvmJitToInterpPunt)
3665 >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003666 newLIR1(cUnit, THUMB_BLX_R, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003667 }
3668 break;
Jeff Hao97319a82009-08-12 16:57:15 -07003669#if defined(WITH_SELF_VERIFICATION)
3670 case CHAINING_CELL_BACKWARD_BRANCH:
3671 labelList[i].opCode =
3672 ARM_PSEUDO_CHAINING_CELL_BACKWARD_BRANCH;
3673 /* handle the codegen later */
3674 dvmInsertGrowableList(
3675 &chainingListByType[CHAINING_CELL_BACKWARD_BRANCH],
3676 (void *) i);
3677 break;
3678#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07003679 default:
3680 break;
3681 }
3682 continue;
3683 }
Ben Chenge9695e52009-06-16 16:11:47 -07003684
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003685 ArmLIR *headLIR = NULL;
Ben Chenge9695e52009-06-16 16:11:47 -07003686
Ben Chengba4fc8b2009-06-01 13:00:29 -07003687 for (mir = blockList[i]->firstMIRInsn; mir; mir = mir->next) {
3688 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
3689 InstructionFormat dalvikFormat =
3690 dexGetInstrFormat(gDvm.instrFormat, dalvikOpCode);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003691 ArmLIR *boundaryLIR =
3692 newLIR2(cUnit, ARM_PSEUDO_DALVIK_BYTECODE_BOUNDARY,
Ben Chenge9695e52009-06-16 16:11:47 -07003693 mir->offset,dalvikOpCode);
3694 /* Remember the first LIR for this block */
3695 if (headLIR == NULL) {
3696 headLIR = boundaryLIR;
3697 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003698 bool notHandled;
3699 /*
3700 * Debugging: screen the opcode first to see if it is in the
3701 * do[-not]-compile list
3702 */
3703 bool singleStepMe =
3704 gDvmJit.includeSelectedOp !=
3705 ((gDvmJit.opList[dalvikOpCode >> 3] &
3706 (1 << (dalvikOpCode & 0x7))) !=
3707 0);
Jeff Hao97319a82009-08-12 16:57:15 -07003708#if defined(WITH_SELF_VERIFICATION)
3709 /* Punt on opcodes we can't replay */
3710 if (selfVerificationPuntOps(dalvikOpCode))
3711 singleStepMe = true;
3712#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07003713 if (singleStepMe || cUnit->allSingleStep) {
3714 notHandled = false;
3715 genInterpSingleStep(cUnit, mir);
3716 } else {
3717 opcodeCoverage[dalvikOpCode]++;
3718 switch (dalvikFormat) {
3719 case kFmt10t:
3720 case kFmt20t:
3721 case kFmt30t:
3722 notHandled = handleFmt10t_Fmt20t_Fmt30t(cUnit,
3723 mir, blockList[i], labelList);
3724 break;
3725 case kFmt10x:
3726 notHandled = handleFmt10x(cUnit, mir);
3727 break;
3728 case kFmt11n:
3729 case kFmt31i:
3730 notHandled = handleFmt11n_Fmt31i(cUnit, mir);
3731 break;
3732 case kFmt11x:
3733 notHandled = handleFmt11x(cUnit, mir);
3734 break;
3735 case kFmt12x:
3736 notHandled = handleFmt12x(cUnit, mir);
3737 break;
3738 case kFmt20bc:
3739 notHandled = handleFmt20bc(cUnit, mir);
3740 break;
3741 case kFmt21c:
3742 case kFmt31c:
3743 notHandled = handleFmt21c_Fmt31c(cUnit, mir);
3744 break;
3745 case kFmt21h:
3746 notHandled = handleFmt21h(cUnit, mir);
3747 break;
3748 case kFmt21s:
3749 notHandled = handleFmt21s(cUnit, mir);
3750 break;
3751 case kFmt21t:
3752 notHandled = handleFmt21t(cUnit, mir, blockList[i],
3753 labelList);
3754 break;
3755 case kFmt22b:
3756 case kFmt22s:
3757 notHandled = handleFmt22b_Fmt22s(cUnit, mir);
3758 break;
3759 case kFmt22c:
3760 notHandled = handleFmt22c(cUnit, mir);
3761 break;
3762 case kFmt22cs:
3763 notHandled = handleFmt22cs(cUnit, mir);
3764 break;
3765 case kFmt22t:
3766 notHandled = handleFmt22t(cUnit, mir, blockList[i],
3767 labelList);
3768 break;
3769 case kFmt22x:
3770 case kFmt32x:
3771 notHandled = handleFmt22x_Fmt32x(cUnit, mir);
3772 break;
3773 case kFmt23x:
3774 notHandled = handleFmt23x(cUnit, mir);
3775 break;
3776 case kFmt31t:
3777 notHandled = handleFmt31t(cUnit, mir);
3778 break;
3779 case kFmt3rc:
3780 case kFmt35c:
3781 notHandled = handleFmt35c_3rc(cUnit, mir, blockList[i],
3782 labelList);
3783 break;
3784 case kFmt3rms:
3785 case kFmt35ms:
3786 notHandled = handleFmt35ms_3rms(cUnit, mir,blockList[i],
3787 labelList);
3788 break;
3789 case kFmt3inline:
3790 notHandled = handleFmt3inline(cUnit, mir);
3791 break;
3792 case kFmt51l:
3793 notHandled = handleFmt51l(cUnit, mir);
3794 break;
3795 default:
3796 notHandled = true;
3797 break;
3798 }
3799 }
3800 if (notHandled) {
3801 LOGE("%#06x: Opcode 0x%x (%s) / Fmt %d not handled\n",
3802 mir->offset,
3803 dalvikOpCode, getOpcodeName(dalvikOpCode),
3804 dalvikFormat);
3805 dvmAbort();
3806 break;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003807 }
3808 }
Ben Chenge9695e52009-06-16 16:11:47 -07003809 /* Eliminate redundant loads/stores and delay stores into later slots */
3810 dvmCompilerApplyLocalOptimizations(cUnit, (LIR *) headLIR,
3811 cUnit->lastLIRInsn);
Ben Cheng1efc9c52009-06-08 18:25:27 -07003812 /*
3813 * Check if the block is terminated due to trace length constraint -
3814 * insert an unconditional branch to the chaining cell.
3815 */
3816 if (blockList[i]->needFallThroughBranch) {
3817 genUnconditionalBranch(cUnit,
3818 &labelList[blockList[i]->fallThrough->id]);
3819 }
3820
Ben Chengba4fc8b2009-06-01 13:00:29 -07003821 }
3822
Ben Chenge9695e52009-06-16 16:11:47 -07003823 /* Handle the chaining cells in predefined order */
Ben Chengba4fc8b2009-06-01 13:00:29 -07003824 for (i = 0; i < CHAINING_CELL_LAST; i++) {
3825 size_t j;
3826 int *blockIdList = (int *) chainingListByType[i].elemList;
3827
3828 cUnit->numChainingCells[i] = chainingListByType[i].numUsed;
3829
3830 /* No chaining cells of this type */
3831 if (cUnit->numChainingCells[i] == 0)
3832 continue;
3833
3834 /* Record the first LIR for a new type of chaining cell */
3835 cUnit->firstChainingLIR[i] = (LIR *) &labelList[blockIdList[0]];
3836
3837 for (j = 0; j < chainingListByType[i].numUsed; j++) {
3838 int blockId = blockIdList[j];
3839
3840 /* Align this chaining cell first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003841 newLIR0(cUnit, ARM_PSEUDO_ALIGN4);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003842
3843 /* Insert the pseudo chaining instruction */
3844 dvmCompilerAppendLIR(cUnit, (LIR *) &labelList[blockId]);
3845
3846
3847 switch (blockList[blockId]->blockType) {
Ben Cheng1efc9c52009-06-08 18:25:27 -07003848 case CHAINING_CELL_NORMAL:
3849 handleNormalChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003850 blockList[blockId]->startOffset);
3851 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003852 case CHAINING_CELL_INVOKE_SINGLETON:
3853 handleInvokeSingletonChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003854 blockList[blockId]->containingMethod);
3855 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003856 case CHAINING_CELL_INVOKE_PREDICTED:
3857 handleInvokePredictedChainingCell(cUnit);
3858 break;
Ben Cheng1efc9c52009-06-08 18:25:27 -07003859 case CHAINING_CELL_HOT:
3860 handleHotChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003861 blockList[blockId]->startOffset);
3862 break;
Jeff Hao97319a82009-08-12 16:57:15 -07003863#if defined(WITH_SELF_VERIFICATION)
3864 case CHAINING_CELL_BACKWARD_BRANCH:
3865 handleBackwardBranchChainingCell(cUnit,
3866 blockList[blockId]->startOffset);
3867 break;
3868#endif
Ben Chengba4fc8b2009-06-01 13:00:29 -07003869 default:
3870 dvmAbort();
3871 break;
3872 }
3873 }
3874 }
Ben Chenge9695e52009-06-16 16:11:47 -07003875
3876 dvmCompilerApplyGlobalOptimizations(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003877}
3878
3879/* Accept the work and start compiling */
Bill Buzbee716f1202009-07-23 13:22:09 -07003880bool dvmCompilerDoWork(CompilerWorkOrder *work)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003881{
Bill Buzbee716f1202009-07-23 13:22:09 -07003882 bool res;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003883
3884 if (gDvmJit.codeCacheFull) {
Bill Buzbee716f1202009-07-23 13:22:09 -07003885 return false;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003886 }
3887
3888 switch (work->kind) {
3889 case kWorkOrderMethod:
Bill Buzbee716f1202009-07-23 13:22:09 -07003890 res = dvmCompileMethod(work->info, &work->result);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003891 break;
3892 case kWorkOrderTrace:
Ben Cheng1efc9c52009-06-08 18:25:27 -07003893 /* Start compilation with maximally allowed trace length */
Bill Buzbee716f1202009-07-23 13:22:09 -07003894 res = dvmCompileTrace(work->info, JIT_MAX_TRACE_LEN, &work->result);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003895 break;
3896 default:
Bill Buzbee716f1202009-07-23 13:22:09 -07003897 res = false;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003898 dvmAbort();
3899 }
3900 return res;
3901}
3902
Ben Chengba4fc8b2009-06-01 13:00:29 -07003903/* Architectural-specific debugging helpers go here */
3904void dvmCompilerArchDump(void)
3905{
3906 /* Print compiled opcode in this VM instance */
3907 int i, start, streak;
3908 char buf[1024];
3909
3910 streak = i = 0;
3911 buf[0] = 0;
3912 while (opcodeCoverage[i] == 0 && i < 256) {
3913 i++;
3914 }
3915 if (i == 256) {
3916 return;
3917 }
3918 for (start = i++, streak = 1; i < 256; i++) {
3919 if (opcodeCoverage[i]) {
3920 streak++;
3921 } else {
3922 if (streak == 1) {
3923 sprintf(buf+strlen(buf), "%x,", start);
3924 } else {
3925 sprintf(buf+strlen(buf), "%x-%x,", start, start + streak - 1);
3926 }
3927 streak = 0;
3928 while (opcodeCoverage[i] == 0 && i < 256) {
3929 i++;
3930 }
3931 if (i < 256) {
3932 streak = 1;
3933 start = i;
3934 }
3935 }
3936 }
3937 if (streak) {
3938 if (streak == 1) {
3939 sprintf(buf+strlen(buf), "%x", start);
3940 } else {
3941 sprintf(buf+strlen(buf), "%x-%x", start, start + streak - 1);
3942 }
3943 }
3944 if (strlen(buf)) {
Ben Cheng8b258bf2009-06-24 17:27:07 -07003945 LOGD("dalvik.vm.jit.op = %s", buf);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003946 }
3947}