blob: 16779d9dcb8469083a7a511f765fe439c77599f5 [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
27/* Routines which must be supplied by the variant-specific code */
28static void genDispatchToHandler(CompilationUnit *cUnit, TemplateOpCode opCode);
29bool dvmCompilerArchInit(void);
30static bool genInlineSqrt(CompilationUnit *cUnit, MIR *mir);
31static bool genInlineCos(CompilationUnit *cUnit, MIR *mir);
32static bool genInlineSin(CompilationUnit *cUnit, MIR *mir);
33static bool genConversion(CompilationUnit *cUnit, MIR *mir);
34static bool genArithOpFloat(CompilationUnit *cUnit, MIR *mir, int vDest,
35 int vSrc1, int vSrc2);
36static bool genArithOpDouble(CompilationUnit *cUnit, MIR *mir, int vDest,
37 int vSrc1, int vSrc2);
38static bool genCmpX(CompilationUnit *cUnit, MIR *mir, int vDest, int vSrc1,
39 int vSrc2);
Ben Chengba4fc8b2009-06-01 13:00:29 -070040
Ben Chengba4fc8b2009-06-01 13:00:29 -070041/* Array holding the entry offset of each template relative to the first one */
42static intptr_t templateEntryOffsets[TEMPLATE_LAST_MARK];
43
44/* Track exercised opcodes */
45static int opcodeCoverage[256];
46
Ben Chenge9695e52009-06-16 16:11:47 -070047/* non-existent register */
48#define vNone (-1)
49
50/* get the next register in r0..r3 in a round-robin fashion */
51#define NEXT_REG(reg) ((reg + 1) & 3)
52
Ben Chengba4fc8b2009-06-01 13:00:29 -070053/*****************************************************************************/
54
55/*
56 * The following are building blocks to construct low-level IRs with 0 - 3
57 * operands.
58 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -070059static ArmLIR *newLIR0(CompilationUnit *cUnit, ArmOpCode opCode)
Ben Chengba4fc8b2009-06-01 13:00:29 -070060{
Bill Buzbee89efc3d2009-07-28 11:22:22 -070061 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -070062 assert(isPseudoOpCode(opCode) || (EncodingMap[opCode].flags & NO_OPERAND));
Ben Chengba4fc8b2009-06-01 13:00:29 -070063 insn->opCode = opCode;
64 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
65 return insn;
66}
67
Bill Buzbee89efc3d2009-07-28 11:22:22 -070068static ArmLIR *newLIR1(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -070069 int dest)
70{
Bill Buzbee89efc3d2009-07-28 11:22:22 -070071 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -070072 assert(isPseudoOpCode(opCode) || (EncodingMap[opCode].flags & IS_UNARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -070073 insn->opCode = opCode;
74 insn->operands[0] = dest;
75 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
76 return insn;
77}
78
Bill Buzbee89efc3d2009-07-28 11:22:22 -070079static ArmLIR *newLIR2(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -070080 int dest, int src1)
81{
Bill Buzbee89efc3d2009-07-28 11:22:22 -070082 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -070083 assert(isPseudoOpCode(opCode) ||
84 (EncodingMap[opCode].flags & IS_BINARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -070085 insn->opCode = opCode;
86 insn->operands[0] = dest;
87 insn->operands[1] = src1;
88 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
89 return insn;
90}
91
Bill Buzbee89efc3d2009-07-28 11:22:22 -070092static ArmLIR *newLIR3(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -070093 int dest, int src1, int src2)
94{
Bill Buzbee89efc3d2009-07-28 11:22:22 -070095 ArmLIR *insn = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chenge9695e52009-06-16 16:11:47 -070096 assert(isPseudoOpCode(opCode) ||
97 (EncodingMap[opCode].flags & IS_TERTIARY_OP));
Ben Chengba4fc8b2009-06-01 13:00:29 -070098 insn->opCode = opCode;
99 insn->operands[0] = dest;
100 insn->operands[1] = src1;
101 insn->operands[2] = src2;
102 dvmCompilerAppendLIR(cUnit, (LIR *) insn);
103 return insn;
104}
105
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700106static ArmLIR *newLIR23(CompilationUnit *cUnit, ArmOpCode opCode,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700107 int srcdest, int src2)
108{
109 assert(!isPseudoOpCode(opCode));
Ben Chenge9695e52009-06-16 16:11:47 -0700110 if (EncodingMap[opCode].flags & IS_BINARY_OP)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700111 return newLIR2(cUnit, opCode, srcdest, src2);
112 else
113 return newLIR3(cUnit, opCode, srcdest, srcdest, src2);
114}
115
116/*****************************************************************************/
117
118/*
Ben Chenge9695e52009-06-16 16:11:47 -0700119 * The following are utility routines to help maintain the RegisterScoreboard
120 * state to facilitate register renaming.
121 */
122
123/* Reset the tracker to unknown state */
124static inline void resetRegisterScoreboard(CompilationUnit *cUnit)
125{
126 RegisterScoreboard *registerScoreboard = &cUnit->registerScoreboard;
127
128 dvmClearAllBits(registerScoreboard->nullCheckedRegs);
129 registerScoreboard->liveDalvikReg = vNone;
130 registerScoreboard->nativeReg = vNone;
131 registerScoreboard->nativeRegHi = vNone;
132}
133
134/* Kill the corresponding bit in the null-checked register list */
135static inline void killNullCheckedRegister(CompilationUnit *cUnit, int vReg)
136{
137 dvmClearBit(cUnit->registerScoreboard.nullCheckedRegs, vReg);
138}
139
140/* The Dalvik register pair held in native registers have changed */
141static inline void updateLiveRegisterPair(CompilationUnit *cUnit,
142 int vReg, int mRegLo, int mRegHi)
143{
144 cUnit->registerScoreboard.liveDalvikReg = vReg;
145 cUnit->registerScoreboard.nativeReg = mRegLo;
146 cUnit->registerScoreboard.nativeRegHi = mRegHi;
147 cUnit->registerScoreboard.isWide = true;
148}
149
150/* The Dalvik register held in a native register has changed */
151static inline void updateLiveRegister(CompilationUnit *cUnit,
152 int vReg, int mReg)
153{
154 cUnit->registerScoreboard.liveDalvikReg = vReg;
155 cUnit->registerScoreboard.nativeReg = mReg;
156 cUnit->registerScoreboard.isWide = false;
157}
158
159/*
160 * Given a Dalvik register id vSrc, use a very simple algorithm to increase
161 * the lifetime of cached Dalvik value in a native register.
162 */
163static inline int selectFirstRegister(CompilationUnit *cUnit, int vSrc,
164 bool isWide)
165{
166 RegisterScoreboard *registerScoreboard = &cUnit->registerScoreboard;
167
168 /* No live value - suggest to use r0 */
169 if (registerScoreboard->liveDalvikReg == vNone)
170 return r0;
171
172 /* Reuse the previously used native reg */
173 if (registerScoreboard->liveDalvikReg == vSrc) {
174 if (isWide != true) {
175 return registerScoreboard->nativeReg;
176 } else {
177 /* Return either r0 or r2 */
178 return (registerScoreboard->nativeReg + 1) & 2;
179 }
180 }
181
182 /* No reuse - choose the next one among r0..r3 in the round-robin fashion */
183 if (isWide) {
184 return (registerScoreboard->nativeReg + 2) & 2;
185 } else {
186 return (registerScoreboard->nativeReg + 1) & 3;
187 }
188
189}
190/*****************************************************************************/
191
192/*
Ben Chengba4fc8b2009-06-01 13:00:29 -0700193 * The following are building blocks to insert constants into the pool or
194 * instruction streams.
195 */
196
197/* Add a 32-bit constant either in the constant pool or mixed with code */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700198static ArmLIR *addWordData(CompilationUnit *cUnit, int value, bool inPlace)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700199{
200 /* Add the constant to the literal pool */
201 if (!inPlace) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700202 ArmLIR *newValue = dvmCompilerNew(sizeof(ArmLIR), true);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700203 newValue->operands[0] = value;
204 newValue->generic.next = cUnit->wordList;
205 cUnit->wordList = (LIR *) newValue;
206 return newValue;
207 } else {
208 /* Add the constant in the middle of code stream */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700209 newLIR1(cUnit, ARM_16BIT_DATA, (value & 0xffff));
210 newLIR1(cUnit, ARM_16BIT_DATA, (value >> 16));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700211 }
212 return NULL;
213}
214
215/*
216 * Search the existing constants in the literal pool for an exact or close match
217 * within specified delta (greater or equal to 0).
218 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700219static ArmLIR *scanLiteralPool(CompilationUnit *cUnit, int value,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700220 unsigned int delta)
221{
222 LIR *dataTarget = cUnit->wordList;
223 while (dataTarget) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700224 if (((unsigned) (value - ((ArmLIR *) dataTarget)->operands[0])) <=
Ben Chengba4fc8b2009-06-01 13:00:29 -0700225 delta)
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700226 return (ArmLIR *) dataTarget;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700227 dataTarget = dataTarget->next;
228 }
229 return NULL;
230}
231
232/*
233 * Load a immediate using a shortcut if possible; otherwise
234 * grab from the per-translation literal pool
235 */
236void loadConstant(CompilationUnit *cUnit, int rDest, int value)
237{
238 /* See if the value can be constructed cheaply */
239 if ((value >= 0) && (value <= 255)) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700240 newLIR2(cUnit, THUMB_MOV_IMM, rDest, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700241 return;
242 } else if ((value & 0xFFFFFF00) == 0xFFFFFF00) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700243 newLIR2(cUnit, THUMB_MOV_IMM, rDest, ~value);
244 newLIR2(cUnit, THUMB_MVN, rDest, rDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700245 return;
246 }
247 /* No shortcut - go ahead and use literal pool */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700248 ArmLIR *dataTarget = scanLiteralPool(cUnit, value, 255);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700249 if (dataTarget == NULL) {
250 dataTarget = addWordData(cUnit, value, false);
251 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700252 ArmLIR *loadPcRel = dvmCompilerNew(sizeof(ArmLIR), true);
253 loadPcRel->opCode = THUMB_LDR_PC_REL;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700254 loadPcRel->generic.target = (LIR *) dataTarget;
255 loadPcRel->operands[0] = rDest;
256 dvmCompilerAppendLIR(cUnit, (LIR *) loadPcRel);
257
258 /*
259 * To save space in the constant pool, we use the ADD_RRI8 instruction to
260 * add up to 255 to an existing constant value.
261 */
262 if (dataTarget->operands[0] != value) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700263 newLIR2(cUnit, THUMB_ADD_RI8, rDest, value - dataTarget->operands[0]);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700264 }
265}
266
267/* Export the Dalvik PC assicated with an instruction to the StackSave area */
268static void genExportPC(CompilationUnit *cUnit, MIR *mir, int rDPC, int rAddr)
269{
270 int offset = offsetof(StackSaveArea, xtra.currentPc);
271 loadConstant(cUnit, rDPC, (int) (cUnit->method->insns + mir->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700272 newLIR2(cUnit, THUMB_MOV_RR, rAddr, rFP);
273 newLIR2(cUnit, THUMB_SUB_RI8, rAddr, sizeof(StackSaveArea) - offset);
274 newLIR3(cUnit, THUMB_STR_RRI5, rDPC, rAddr, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700275}
276
277/* Generate conditional branch instructions */
278static void genConditionalBranch(CompilationUnit *cUnit,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700279 ArmConditionCode cond,
280 ArmLIR *target)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700281{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700282 ArmLIR *branch = newLIR2(cUnit, THUMB_B_COND, 0, cond);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700283 branch->generic.target = (LIR *) target;
284}
285
286/* Generate unconditional branch instructions */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700287static void genUnconditionalBranch(CompilationUnit *cUnit, ArmLIR *target)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700288{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700289 ArmLIR *branch = newLIR0(cUnit, THUMB_B_UNCOND);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700290 branch->generic.target = (LIR *) target;
291}
292
Ben Chengba4fc8b2009-06-01 13:00:29 -0700293/* Perform the actual operation for OP_RETURN_* */
294static void genReturnCommon(CompilationUnit *cUnit, MIR *mir)
295{
296 genDispatchToHandler(cUnit, TEMPLATE_RETURN);
297#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -0700298 gDvmJit.returnOp++;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700299#endif
300 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700301 ArmLIR *branch = newLIR0(cUnit, THUMB_B_UNCOND);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700302 /* Set up the place holder to reconstruct this Dalvik PC */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700303 ArmLIR *pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
304 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700305 pcrLabel->operands[0] = dPC;
306 pcrLabel->operands[1] = mir->offset;
307 /* Insert the place holder to the growable list */
308 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
309 /* Branch to the PC reconstruction code */
310 branch->generic.target = (LIR *) pcrLabel;
311}
312
313/*
314 * Load a pair of values of rFP[src..src+1] and store them into rDestLo and
315 * rDestHi
316 */
317static void loadValuePair(CompilationUnit *cUnit, int vSrc, int rDestLo,
318 int rDestHi)
319{
320 /* Use reg + imm5*4 to load the values if possible */
321 if (vSrc <= 30) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700322 newLIR3(cUnit, THUMB_LDR_RRI5, rDestLo, rFP, vSrc);
323 newLIR3(cUnit, THUMB_LDR_RRI5, rDestHi, rFP, vSrc+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700324 } else {
325 if (vSrc <= 64) {
326 /* Sneak 4 into the base address first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700327 newLIR3(cUnit, THUMB_ADD_RRI3, rDestLo, rFP, 4);
328 newLIR2(cUnit, THUMB_ADD_RI8, rDestLo, (vSrc-1)*4);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700329 } else {
330 /* Offset too far from rFP */
331 loadConstant(cUnit, rDestLo, vSrc*4);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700332 newLIR3(cUnit, THUMB_ADD_RRR, rDestLo, rFP, rDestLo);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700333 }
Ben Chenge9695e52009-06-16 16:11:47 -0700334 assert(rDestLo < rDestHi);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700335 newLIR2(cUnit, THUMB_LDMIA, rDestLo, (1<<rDestLo) | (1<<(rDestHi)));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700336 }
337}
338
339/*
340 * Store a pair of values of rSrc and rSrc+1 and store them into vDest and
341 * vDest+1
342 */
343static void storeValuePair(CompilationUnit *cUnit, int rSrcLo, int rSrcHi,
344 int vDest, int rScratch)
345{
Ben Chenge9695e52009-06-16 16:11:47 -0700346 killNullCheckedRegister(cUnit, vDest);
347 killNullCheckedRegister(cUnit, vDest+1);
348 updateLiveRegisterPair(cUnit, vDest, rSrcLo, rSrcHi);
349
Ben Chengba4fc8b2009-06-01 13:00:29 -0700350 /* Use reg + imm5*4 to store the values if possible */
351 if (vDest <= 30) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700352 newLIR3(cUnit, THUMB_STR_RRI5, rSrcLo, rFP, vDest);
353 newLIR3(cUnit, THUMB_STR_RRI5, rSrcHi, rFP, vDest+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700354 } else {
355 if (vDest <= 64) {
356 /* Sneak 4 into the base address first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700357 newLIR3(cUnit, THUMB_ADD_RRI3, rScratch, rFP, 4);
358 newLIR2(cUnit, THUMB_ADD_RI8, rScratch, (vDest-1)*4);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700359 } else {
360 /* Offset too far from rFP */
361 loadConstant(cUnit, rScratch, vDest*4);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700362 newLIR3(cUnit, THUMB_ADD_RRR, rScratch, rFP, rScratch);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700363 }
Ben Chenge9695e52009-06-16 16:11:47 -0700364 assert(rSrcLo < rSrcHi);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700365 newLIR2(cUnit, THUMB_STMIA, rScratch, (1<<rSrcLo) | (1 << (rSrcHi)));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700366 }
367}
368
369/* Load the address of a Dalvik register on the frame */
370static void loadValueAddress(CompilationUnit *cUnit, int vSrc, int rDest)
371{
372 /* RRI3 can add up to 7 */
373 if (vSrc <= 1) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700374 newLIR3(cUnit, THUMB_ADD_RRI3, rDest, rFP, vSrc*4);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700375 } else if (vSrc <= 64) {
376 /* Sneak 4 into the base address first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700377 newLIR3(cUnit, THUMB_ADD_RRI3, rDest, rFP, 4);
378 newLIR2(cUnit, THUMB_ADD_RI8, rDest, (vSrc-1)*4);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700379 } else {
380 loadConstant(cUnit, rDest, vSrc*4);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700381 newLIR3(cUnit, THUMB_ADD_RRR, rDest, rFP, rDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700382 }
383}
384
Ben Chengba4fc8b2009-06-01 13:00:29 -0700385/* Load a single value from rFP[src] and store them into rDest */
386static void loadValue(CompilationUnit *cUnit, int vSrc, int rDest)
387{
388 /* Use reg + imm5*4 to load the value if possible */
389 if (vSrc <= 31) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700390 newLIR3(cUnit, THUMB_LDR_RRI5, rDest, rFP, vSrc);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700391 } else {
392 loadConstant(cUnit, rDest, vSrc*4);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700393 newLIR3(cUnit, THUMB_LDR_RRR, rDest, rFP, rDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700394 }
395}
396
Bill Buzbee50a6bf22009-07-08 13:08:04 -0700397/* Load a word at base + displacement. Displacement must be word multiple */
398static void loadWordDisp(CompilationUnit *cUnit, int rBase, int displacement,
399 int rDest)
400{
401 assert((displacement & 0x3) == 0);
402 /* Can it fit in a RRI5? */
403 if (displacement < 128) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700404 newLIR3(cUnit, THUMB_LDR_RRI5, rDest, rBase, displacement >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -0700405 } else {
406 loadConstant(cUnit, rDest, displacement);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700407 newLIR3(cUnit, THUMB_LDR_RRR, rDest, rBase, rDest);
Bill Buzbee50a6bf22009-07-08 13:08:04 -0700408 }
409}
410
Ben Chengba4fc8b2009-06-01 13:00:29 -0700411/* Store a value from rSrc to vDest */
412static void storeValue(CompilationUnit *cUnit, int rSrc, int vDest,
413 int rScratch)
414{
Ben Chenge9695e52009-06-16 16:11:47 -0700415 killNullCheckedRegister(cUnit, vDest);
416 updateLiveRegister(cUnit, vDest, rSrc);
417
Ben Chengba4fc8b2009-06-01 13:00:29 -0700418 /* Use reg + imm5*4 to store the value if possible */
419 if (vDest <= 31) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700420 newLIR3(cUnit, THUMB_STR_RRI5, rSrc, rFP, vDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700421 } else {
422 loadConstant(cUnit, rScratch, vDest*4);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700423 newLIR3(cUnit, THUMB_STR_RRR, rSrc, rFP, rScratch);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700424 }
425}
426
Ben Chengba4fc8b2009-06-01 13:00:29 -0700427/*
428 * Perform a binary operation on 64-bit operands and leave the results in the
429 * r0/r1 pair.
430 */
431static void genBinaryOpWide(CompilationUnit *cUnit, int vDest,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700432 ArmOpCode preinst, ArmOpCode inst,
Ben Chenge9695e52009-06-16 16:11:47 -0700433 int reg0, int reg2)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700434{
Ben Chenge9695e52009-06-16 16:11:47 -0700435 int reg1 = NEXT_REG(reg0);
436 int reg3 = NEXT_REG(reg2);
437 newLIR23(cUnit, preinst, reg0, reg2);
438 newLIR23(cUnit, inst, reg1, reg3);
439 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700440}
441
442/* Perform a binary operation on 32-bit operands and leave the results in r0. */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700443static void genBinaryOp(CompilationUnit *cUnit, int vDest, ArmOpCode inst,
Ben Chenge9695e52009-06-16 16:11:47 -0700444 int reg0, int reg1, int regDest)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700445{
Ben Chenge9695e52009-06-16 16:11:47 -0700446 if (EncodingMap[inst].flags & IS_BINARY_OP) {
447 newLIR2(cUnit, inst, reg0, reg1);
448 storeValue(cUnit, reg0, vDest, reg1);
449 } else {
450 newLIR3(cUnit, inst, regDest, reg0, reg1);
451 storeValue(cUnit, regDest, vDest, reg1);
452 }
Ben Chengba4fc8b2009-06-01 13:00:29 -0700453}
454
455/* Create the PC reconstruction slot if not already done */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700456static inline ArmLIR *genCheckCommon(CompilationUnit *cUnit, int dOffset,
457 ArmLIR *branch,
458 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700459{
460 /* Set up the place holder to reconstruct this Dalvik PC */
461 if (pcrLabel == NULL) {
462 int dPC = (int) (cUnit->method->insns + dOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700463 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
464 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700465 pcrLabel->operands[0] = dPC;
466 pcrLabel->operands[1] = dOffset;
467 /* Insert the place holder to the growable list */
468 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
469 }
470 /* Branch to the PC reconstruction code */
471 branch->generic.target = (LIR *) pcrLabel;
472 return pcrLabel;
473}
474
475/*
476 * Perform a "reg cmp imm" operation and jump to the PCR region if condition
477 * satisfies.
478 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700479static inline ArmLIR *genRegImmCheck(CompilationUnit *cUnit,
480 ArmConditionCode cond, int reg,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700481 int checkValue, int dOffset,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700482 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700483{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700484 newLIR2(cUnit, THUMB_CMP_RI8, reg, checkValue);
485 ArmLIR *branch = newLIR2(cUnit, THUMB_B_COND, 0, cond);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700486 return genCheckCommon(cUnit, dOffset, branch, pcrLabel);
487}
488
489/*
490 * Perform a "reg cmp reg" operation and jump to the PCR region if condition
491 * satisfies.
492 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700493static inline ArmLIR *inertRegRegCheck(CompilationUnit *cUnit,
494 ArmConditionCode cond,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700495 int reg1, int reg2, int dOffset,
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700496 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700497{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700498 newLIR2(cUnit, THUMB_CMP_RR, reg1, reg2);
499 ArmLIR *branch = newLIR2(cUnit, THUMB_B_COND, 0, cond);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700500 return genCheckCommon(cUnit, dOffset, branch, pcrLabel);
501}
502
Ben Chenge9695e52009-06-16 16:11:47 -0700503/*
504 * Perform null-check on a register. vReg is the Dalvik register being checked,
505 * and mReg is the machine register holding the actual value. If internal state
506 * indicates that vReg has been checked before the check request is ignored.
507 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700508static ArmLIR *genNullCheck(CompilationUnit *cUnit, int vReg, int mReg,
509 int dOffset, ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700510{
Ben Chenge9695e52009-06-16 16:11:47 -0700511 /* This particular Dalvik register has been null-checked */
512 if (dvmIsBitSet(cUnit->registerScoreboard.nullCheckedRegs, vReg)) {
513 return pcrLabel;
514 }
515 dvmSetBit(cUnit->registerScoreboard.nullCheckedRegs, vReg);
516 return genRegImmCheck(cUnit, ARM_COND_EQ, mReg, 0, dOffset, pcrLabel);
517}
518
519/*
520 * Perform zero-check on a register. Similar to genNullCheck but the value being
521 * checked does not have a corresponding Dalvik register.
522 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700523static ArmLIR *genZeroCheck(CompilationUnit *cUnit, int mReg,
524 int dOffset, ArmLIR *pcrLabel)
Ben Chenge9695e52009-06-16 16:11:47 -0700525{
526 return genRegImmCheck(cUnit, ARM_COND_EQ, mReg, 0, dOffset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700527}
528
529/* Perform bound check on two registers */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700530static ArmLIR *genBoundsCheck(CompilationUnit *cUnit, int rIndex,
531 int rBound, int dOffset, ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700532{
533 return inertRegRegCheck(cUnit, ARM_COND_CS, rIndex, rBound, dOffset,
534 pcrLabel);
535}
536
537/* Generate a unconditional branch to go to the interpreter */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700538static inline ArmLIR *genTrap(CompilationUnit *cUnit, int dOffset,
539 ArmLIR *pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700540{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700541 ArmLIR *branch = newLIR0(cUnit, THUMB_B_UNCOND);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700542 return genCheckCommon(cUnit, dOffset, branch, pcrLabel);
543}
544
545/* Load a wide field from an object instance */
546static void genIGetWide(CompilationUnit *cUnit, MIR *mir, int fieldOffset)
547{
548 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700549 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700550
Ben Chenge9695e52009-06-16 16:11:47 -0700551 /* Allocate reg0..reg3 into physical registers r0..r3 */
552
553 /* See if vB is in a native register. If so, reuse it. */
554 reg2 = selectFirstRegister(cUnit, dInsn->vB, false);
555 /* Ping reg3 to the other register of the same pair containing reg2 */
556 reg3 = reg2 ^ 0x1;
557 /*
558 * Ping reg0 to the first register of the alternate register pair
559 */
560 reg0 = (reg2 + 2) & 0x2;
561 reg1 = NEXT_REG(reg0);
562
563 loadValue(cUnit, dInsn->vB, reg2);
564 loadConstant(cUnit, reg3, fieldOffset);
565 genNullCheck(cUnit, dInsn->vB, reg2, mir->offset, NULL); /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700566 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
567 newLIR2(cUnit, THUMB_LDMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chenge9695e52009-06-16 16:11:47 -0700568 storeValuePair(cUnit, reg0, reg1, dInsn->vA, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700569}
570
571/* Store a wide field to an object instance */
572static void genIPutWide(CompilationUnit *cUnit, MIR *mir, int fieldOffset)
573{
574 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700575 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700576
Ben Chenge9695e52009-06-16 16:11:47 -0700577 /* Allocate reg0..reg3 into physical registers r0..r3 */
578
579 /* See if vB is in a native register. If so, reuse it. */
580 reg2 = selectFirstRegister(cUnit, dInsn->vB, false);
581 /* Ping reg3 to the other register of the same pair containing reg2 */
582 reg3 = reg2 ^ 0x1;
583 /*
584 * Ping reg0 to the first register of the alternate register pair
585 */
586 reg0 = (reg2 + 2) & 0x2;
587 reg1 = NEXT_REG(reg0);
588
589
590 loadValue(cUnit, dInsn->vB, reg2);
591 loadValuePair(cUnit, dInsn->vA, reg0, reg1);
592 updateLiveRegisterPair(cUnit, dInsn->vA, reg0, reg1);
593 loadConstant(cUnit, reg3, fieldOffset);
594 genNullCheck(cUnit, dInsn->vB, reg2, mir->offset, NULL); /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700595 newLIR3(cUnit, THUMB_ADD_RRR, reg2, reg2, reg3);
596 newLIR2(cUnit, THUMB_STMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chengba4fc8b2009-06-01 13:00:29 -0700597}
598
599/*
600 * Load a field from an object instance
601 *
602 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700603 * THUMB_LDR_RRR
604 * THUMB_LDRB_RRR
605 * THUMB_LDRH_RRR
606 * THUMB_LDRSB_RRR
607 * THUMB_LDRSH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700608 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700609static void genIGet(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700610 int fieldOffset)
611{
612 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700613 int reg0, reg1;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700614
Ben Chenge9695e52009-06-16 16:11:47 -0700615 reg0 = selectFirstRegister(cUnit, dInsn->vB, false);
616 reg1 = NEXT_REG(reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700617 /* TUNING: write a utility routine to load via base + constant offset */
Ben Chenge9695e52009-06-16 16:11:47 -0700618 loadValue(cUnit, dInsn->vB, reg0);
619 loadConstant(cUnit, reg1, fieldOffset);
620 genNullCheck(cUnit, dInsn->vB, reg0, mir->offset, NULL); /* null object? */
621 newLIR3(cUnit, inst, reg0, reg0, reg1);
622 storeValue(cUnit, reg0, dInsn->vA, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700623}
624
625/*
626 * Store a field to an object instance
627 *
628 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700629 * THUMB_STR_RRR
630 * THUMB_STRB_RRR
631 * THUMB_STRH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700632 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700633static void genIPut(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700634 int fieldOffset)
635{
636 DecodedInstruction *dInsn = &mir->dalvikInsn;
Ben Chenge9695e52009-06-16 16:11:47 -0700637 int reg0, reg1, reg2;
638
639 reg0 = selectFirstRegister(cUnit, dInsn->vB, false);
640 reg1 = NEXT_REG(reg0);
641 reg2 = NEXT_REG(reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700642
643 /* TUNING: write a utility routine to load via base + constant offset */
Ben Chenge9695e52009-06-16 16:11:47 -0700644 loadValue(cUnit, dInsn->vB, reg0);
645 loadConstant(cUnit, reg1, fieldOffset);
646 loadValue(cUnit, dInsn->vA, reg2);
647 updateLiveRegister(cUnit, dInsn->vA, reg2);
648 genNullCheck(cUnit, dInsn->vB, reg0, mir->offset, NULL); /* null object? */
649 newLIR3(cUnit, inst, reg2, reg0, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700650}
651
652
653/* TODO: This should probably be done as an out-of-line instruction handler. */
654
655/*
656 * Generate array load
657 *
658 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700659 * THUMB_LDR_RRR
660 * THUMB_LDRB_RRR
661 * THUMB_LDRH_RRR
662 * THUMB_LDRSB_RRR
663 * THUMB_LDRSH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700664 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700665static void genArrayGet(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700666 int vArray, int vIndex, int vDest, int scale)
667{
668 int lenOffset = offsetof(ArrayObject, length);
669 int dataOffset = offsetof(ArrayObject, contents);
Ben Chenge9695e52009-06-16 16:11:47 -0700670 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700671
Ben Chenge9695e52009-06-16 16:11:47 -0700672 reg0 = selectFirstRegister(cUnit, vArray, false);
673 reg1 = NEXT_REG(reg0);
674 reg2 = NEXT_REG(reg1);
675 reg3 = NEXT_REG(reg2);
676
677 loadValue(cUnit, vArray, reg2);
678 loadValue(cUnit, vIndex, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700679
680 /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700681 ArmLIR * pcrLabel = genNullCheck(cUnit, vArray, reg2, mir->offset,
Ben Chenge9695e52009-06-16 16:11:47 -0700682 NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700683 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg2, lenOffset >> 2); /* Get len */
684 newLIR2(cUnit, THUMB_ADD_RI8, reg2, dataOffset); /* reg2 -> array data */
Ben Chenge9695e52009-06-16 16:11:47 -0700685 genBoundsCheck(cUnit, reg3, reg0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700686 if (scale) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700687 newLIR3(cUnit, THUMB_LSL, reg3, reg3, scale);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700688 }
689 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700690 newLIR3(cUnit, inst, reg0, reg2, reg3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700691 newLIR2(cUnit, THUMB_ADD_RI8, reg2, 4);
Ben Chenge9695e52009-06-16 16:11:47 -0700692 newLIR3(cUnit, inst, reg1, reg2, reg3);
693 storeValuePair(cUnit, reg0, reg1, vDest, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700694 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700695 newLIR3(cUnit, inst, reg0, reg2, reg3);
696 storeValue(cUnit, reg0, vDest, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700697 }
698}
699
700/* TODO: This should probably be done as an out-of-line instruction handler. */
701
702/*
703 * Generate array store
704 *
705 * Inst should be one of:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700706 * THUMB_STR_RRR
707 * THUMB_STRB_RRR
708 * THUMB_STRH_RRR
Ben Chengba4fc8b2009-06-01 13:00:29 -0700709 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700710static void genArrayPut(CompilationUnit *cUnit, MIR *mir, ArmOpCode inst,
Ben Chengba4fc8b2009-06-01 13:00:29 -0700711 int vArray, int vIndex, int vSrc, int scale)
712{
713 int lenOffset = offsetof(ArrayObject, length);
714 int dataOffset = offsetof(ArrayObject, contents);
Ben Chenge9695e52009-06-16 16:11:47 -0700715 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700716
Ben Chenge9695e52009-06-16 16:11:47 -0700717 reg0 = selectFirstRegister(cUnit, vArray, false);
718 reg1 = NEXT_REG(reg0);
719 reg2 = NEXT_REG(reg1);
720 reg3 = NEXT_REG(reg2);
721
722 loadValue(cUnit, vArray, reg2);
723 loadValue(cUnit, vIndex, reg3);
724
Ben Cheng1efc9c52009-06-08 18:25:27 -0700725 /* null object? */
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700726 ArmLIR * pcrLabel = genNullCheck(cUnit, vArray, reg2, mir->offset,
Ben Chenge9695e52009-06-16 16:11:47 -0700727 NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700728 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg2, lenOffset >> 2); /* Get len */
729 newLIR2(cUnit, THUMB_ADD_RI8, reg2, dataOffset); /* reg2 -> array data */
Ben Chenge9695e52009-06-16 16:11:47 -0700730 genBoundsCheck(cUnit, reg3, reg0, mir->offset, pcrLabel);
731 /* at this point, reg2 points to array, reg3 is unscaled index */
Ben Chengba4fc8b2009-06-01 13:00:29 -0700732 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700733 loadValuePair(cUnit, vSrc, reg0, reg1);
734 updateLiveRegisterPair(cUnit, vSrc, reg0, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700735 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700736 loadValue(cUnit, vSrc, reg0);
737 updateLiveRegister(cUnit, vSrc, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700738 }
739 if (scale) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700740 newLIR3(cUnit, THUMB_LSL, reg3, reg3, scale);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700741 }
742 /*
Ben Chenge9695e52009-06-16 16:11:47 -0700743 * at this point, reg2 points to array, reg3 is scaled index, and
744 * reg0[reg1] is data
Ben Chengba4fc8b2009-06-01 13:00:29 -0700745 */
746 if (scale==3) {
Ben Chenge9695e52009-06-16 16:11:47 -0700747 newLIR3(cUnit, inst, reg0, reg2, reg3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700748 newLIR2(cUnit, THUMB_ADD_RI8, reg2, 4);
Ben Chenge9695e52009-06-16 16:11:47 -0700749 newLIR3(cUnit, inst, reg1, reg2, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700750 } else {
Ben Chenge9695e52009-06-16 16:11:47 -0700751 newLIR3(cUnit, inst, reg0, reg2, reg3);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700752 }
753}
754
755static bool genShiftOpLong(CompilationUnit *cUnit, MIR *mir, int vDest,
756 int vSrc1, int vShift)
757{
Ben Chenge9695e52009-06-16 16:11:47 -0700758 /*
759 * Don't mess with the regsiters here as there is a particular calling
760 * convention to the out-of-line handler.
761 */
762 loadValue(cUnit, vShift, r2);
763 loadValuePair(cUnit, vSrc1, r0, r1);
764 switch( mir->dalvikInsn.opCode) {
765 case OP_SHL_LONG:
766 case OP_SHL_LONG_2ADDR:
767 genDispatchToHandler(cUnit, TEMPLATE_SHL_LONG);
768 break;
769 case OP_SHR_LONG:
770 case OP_SHR_LONG_2ADDR:
771 genDispatchToHandler(cUnit, TEMPLATE_SHR_LONG);
772 break;
773 case OP_USHR_LONG:
774 case OP_USHR_LONG_2ADDR:
775 genDispatchToHandler(cUnit, TEMPLATE_USHR_LONG);
776 break;
777 default:
778 return true;
779 }
780 storeValuePair(cUnit, r0, r1, vDest, r2);
781 return false;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700782}
Bill Buzbee50a6bf22009-07-08 13:08:04 -0700783bool genArithOpFloatPortable(CompilationUnit *cUnit, MIR *mir,
784 int vDest, int vSrc1, int vSrc2)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700785{
Ben Chenge9695e52009-06-16 16:11:47 -0700786 /*
787 * Don't optimize the regsiter usage here as they are governed by the EABI
788 * calling convention.
789 */
Ben Chengba4fc8b2009-06-01 13:00:29 -0700790 void* funct;
Ben Chenge9695e52009-06-16 16:11:47 -0700791 int reg0, reg1;
792
Ben Chengba4fc8b2009-06-01 13:00:29 -0700793 /* TODO: use a proper include file to define these */
794 float __aeabi_fadd(float a, float b);
795 float __aeabi_fsub(float a, float b);
796 float __aeabi_fdiv(float a, float b);
797 float __aeabi_fmul(float a, float b);
798 float fmodf(float a, float b);
799
Ben Chenge9695e52009-06-16 16:11:47 -0700800 reg0 = selectFirstRegister(cUnit, vSrc2, false);
801 reg1 = NEXT_REG(reg0);
802
Ben Chengba4fc8b2009-06-01 13:00:29 -0700803 switch (mir->dalvikInsn.opCode) {
804 case OP_ADD_FLOAT_2ADDR:
805 case OP_ADD_FLOAT:
806 funct = (void*) __aeabi_fadd;
807 break;
808 case OP_SUB_FLOAT_2ADDR:
809 case OP_SUB_FLOAT:
810 funct = (void*) __aeabi_fsub;
811 break;
812 case OP_DIV_FLOAT_2ADDR:
813 case OP_DIV_FLOAT:
814 funct = (void*) __aeabi_fdiv;
815 break;
816 case OP_MUL_FLOAT_2ADDR:
817 case OP_MUL_FLOAT:
818 funct = (void*) __aeabi_fmul;
819 break;
820 case OP_REM_FLOAT_2ADDR:
821 case OP_REM_FLOAT:
822 funct = (void*) fmodf;
823 break;
824 case OP_NEG_FLOAT: {
Ben Chenge9695e52009-06-16 16:11:47 -0700825 loadValue(cUnit, vSrc2, reg0);
826 loadConstant(cUnit, reg1, 0x80000000);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700827 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, reg1);
Ben Chenge9695e52009-06-16 16:11:47 -0700828 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700829 return false;
830 }
831 default:
832 return true;
833 }
834 loadConstant(cUnit, r2, (int)funct);
835 loadValue(cUnit, vSrc1, r0);
836 loadValue(cUnit, vSrc2, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700837 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700838 storeValue(cUnit, r0, vDest, r1);
839 return false;
840}
841
Bill Buzbee50a6bf22009-07-08 13:08:04 -0700842bool genArithOpDoublePortable(CompilationUnit *cUnit, MIR *mir,
843 int vDest, int vSrc1, int vSrc2)
Ben Chengba4fc8b2009-06-01 13:00:29 -0700844{
845 void* funct;
Ben Chenge9695e52009-06-16 16:11:47 -0700846 int reg0, reg1, reg2;
847
Ben Chengba4fc8b2009-06-01 13:00:29 -0700848 /* TODO: use a proper include file to define these */
849 double __aeabi_dadd(double a, double b);
850 double __aeabi_dsub(double a, double b);
851 double __aeabi_ddiv(double a, double b);
852 double __aeabi_dmul(double a, double b);
853 double fmod(double a, double b);
854
Ben Chenge9695e52009-06-16 16:11:47 -0700855 reg0 = selectFirstRegister(cUnit, vSrc2, true);
856 reg1 = NEXT_REG(reg0);
857 reg2 = NEXT_REG(reg1);
858
Ben Chengba4fc8b2009-06-01 13:00:29 -0700859 switch (mir->dalvikInsn.opCode) {
860 case OP_ADD_DOUBLE_2ADDR:
861 case OP_ADD_DOUBLE:
862 funct = (void*) __aeabi_dadd;
863 break;
864 case OP_SUB_DOUBLE_2ADDR:
865 case OP_SUB_DOUBLE:
866 funct = (void*) __aeabi_dsub;
867 break;
868 case OP_DIV_DOUBLE_2ADDR:
869 case OP_DIV_DOUBLE:
870 funct = (void*) __aeabi_ddiv;
871 break;
872 case OP_MUL_DOUBLE_2ADDR:
873 case OP_MUL_DOUBLE:
874 funct = (void*) __aeabi_dmul;
875 break;
876 case OP_REM_DOUBLE_2ADDR:
877 case OP_REM_DOUBLE:
878 funct = (void*) fmod;
879 break;
880 case OP_NEG_DOUBLE: {
Ben Chenge9695e52009-06-16 16:11:47 -0700881 loadValuePair(cUnit, vSrc2, reg0, reg1);
882 loadConstant(cUnit, reg2, 0x80000000);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700883 newLIR3(cUnit, THUMB_ADD_RRR, reg1, reg1, reg2);
Ben Chenge9695e52009-06-16 16:11:47 -0700884 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700885 return false;
886 }
887 default:
888 return true;
889 }
Ben Chenge9695e52009-06-16 16:11:47 -0700890 /*
891 * Don't optimize the regsiter usage here as they are governed by the EABI
892 * calling convention.
893 */
Ben Chengba4fc8b2009-06-01 13:00:29 -0700894 loadConstant(cUnit, r4PC, (int)funct);
895 loadValuePair(cUnit, vSrc1, r0, r1);
896 loadValuePair(cUnit, vSrc2, r2, r3);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700897 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700898 storeValuePair(cUnit, r0, r1, vDest, r2);
899 return false;
900}
901
902static bool genArithOpLong(CompilationUnit *cUnit, MIR *mir, int vDest,
903 int vSrc1, int vSrc2)
904{
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700905 int firstOp = THUMB_BKPT;
906 int secondOp = THUMB_BKPT;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700907 bool callOut = false;
908 void *callTgt;
909 int retReg = r0;
Ben Chenge9695e52009-06-16 16:11:47 -0700910 int reg0, reg1, reg2, reg3;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700911 /* TODO - find proper .h file to declare these */
912 long long __aeabi_ldivmod(long long op1, long long op2);
913
914 switch (mir->dalvikInsn.opCode) {
915 case OP_NOT_LONG:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700916 firstOp = THUMB_MVN;
917 secondOp = THUMB_MVN;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700918 break;
919 case OP_ADD_LONG:
920 case OP_ADD_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700921 firstOp = THUMB_ADD_RRR;
922 secondOp = THUMB_ADC;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700923 break;
924 case OP_SUB_LONG:
925 case OP_SUB_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700926 firstOp = THUMB_SUB_RRR;
927 secondOp = THUMB_SBC;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700928 break;
929 case OP_MUL_LONG:
930 case OP_MUL_LONG_2ADDR:
931 loadValuePair(cUnit, vSrc1, r0, r1);
932 loadValuePair(cUnit, vSrc2, r2, r3);
933 genDispatchToHandler(cUnit, TEMPLATE_MUL_LONG);
934 storeValuePair(cUnit, r0, r1, vDest, r2);
935 return false;
936 break;
937 case OP_DIV_LONG:
938 case OP_DIV_LONG_2ADDR:
939 callOut = true;
940 retReg = r0;
941 callTgt = (void*)__aeabi_ldivmod;
942 break;
943 /* NOTE - result is in r2/r3 instead of r0/r1 */
944 case OP_REM_LONG:
945 case OP_REM_LONG_2ADDR:
946 callOut = true;
947 callTgt = (void*)__aeabi_ldivmod;
948 retReg = r2;
949 break;
950 case OP_AND_LONG:
951 case OP_AND_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700952 firstOp = THUMB_AND_RR;
953 secondOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700954 break;
955 case OP_OR_LONG:
956 case OP_OR_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700957 firstOp = THUMB_ORR;
958 secondOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700959 break;
960 case OP_XOR_LONG:
961 case OP_XOR_LONG_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700962 firstOp = THUMB_EOR;
963 secondOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -0700964 break;
Ben Chenge9695e52009-06-16 16:11:47 -0700965 case OP_NEG_LONG: {
966 reg0 = selectFirstRegister(cUnit, vSrc2, true);
967 reg1 = NEXT_REG(reg0);
968 reg2 = NEXT_REG(reg1);
969 reg3 = NEXT_REG(reg2);
970
971 loadValuePair(cUnit, vSrc2, reg0, reg1);
972 loadConstant(cUnit, reg3, 0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700973 newLIR3(cUnit, THUMB_SUB_RRR, reg2, reg3, reg0);
974 newLIR2(cUnit, THUMB_SBC, reg3, reg1);
Ben Cheng38329f52009-07-07 14:19:20 -0700975 storeValuePair(cUnit, reg2, reg3, vDest, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -0700976 return false;
Ben Chenge9695e52009-06-16 16:11:47 -0700977 }
Ben Chengba4fc8b2009-06-01 13:00:29 -0700978 default:
979 LOGE("Invalid long arith op");
980 dvmAbort();
981 }
982 if (!callOut) {
Ben Chenge9695e52009-06-16 16:11:47 -0700983 reg0 = selectFirstRegister(cUnit, vSrc1, true);
984 reg1 = NEXT_REG(reg0);
985 reg2 = NEXT_REG(reg1);
986 reg3 = NEXT_REG(reg2);
987
988 loadValuePair(cUnit, vSrc1, reg0, reg1);
989 loadValuePair(cUnit, vSrc2, reg2, reg3);
990 genBinaryOpWide(cUnit, vDest, firstOp, secondOp, reg0, reg2);
991 /*
992 * Don't optimize the regsiter usage here as they are governed by the EABI
993 * calling convention.
994 */
Ben Chengba4fc8b2009-06-01 13:00:29 -0700995 } else {
996 loadValuePair(cUnit, vSrc2, r2, r3);
997 loadConstant(cUnit, r4PC, (int) callTgt);
998 loadValuePair(cUnit, vSrc1, r0, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -0700999 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001000 storeValuePair(cUnit, retReg, retReg+1, vDest, r4PC);
1001 }
1002 return false;
1003}
1004
1005static bool genArithOpInt(CompilationUnit *cUnit, MIR *mir, int vDest,
1006 int vSrc1, int vSrc2)
1007{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001008 int armOp = THUMB_BKPT;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001009 bool callOut = false;
1010 bool checkZero = false;
1011 int retReg = r0;
1012 void *callTgt;
Ben Chenge9695e52009-06-16 16:11:47 -07001013 int reg0, reg1, regDest;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001014
1015 /* TODO - find proper .h file to declare these */
1016 int __aeabi_idivmod(int op1, int op2);
1017 int __aeabi_idiv(int op1, int op2);
1018
1019 switch (mir->dalvikInsn.opCode) {
1020 case OP_NEG_INT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001021 armOp = THUMB_NEG;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001022 break;
1023 case OP_NOT_INT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001024 armOp = THUMB_MVN;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001025 break;
1026 case OP_ADD_INT:
1027 case OP_ADD_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001028 armOp = THUMB_ADD_RRR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001029 break;
1030 case OP_SUB_INT:
1031 case OP_SUB_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001032 armOp = THUMB_SUB_RRR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001033 break;
1034 case OP_MUL_INT:
1035 case OP_MUL_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001036 armOp = THUMB_MUL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001037 break;
1038 case OP_DIV_INT:
1039 case OP_DIV_INT_2ADDR:
1040 callOut = true;
1041 checkZero = true;
1042 callTgt = __aeabi_idiv;
1043 retReg = r0;
1044 break;
1045 /* NOTE: returns in r1 */
1046 case OP_REM_INT:
1047 case OP_REM_INT_2ADDR:
1048 callOut = true;
1049 checkZero = true;
1050 callTgt = __aeabi_idivmod;
1051 retReg = r1;
1052 break;
1053 case OP_AND_INT:
1054 case OP_AND_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001055 armOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001056 break;
1057 case OP_OR_INT:
1058 case OP_OR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001059 armOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001060 break;
1061 case OP_XOR_INT:
1062 case OP_XOR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001063 armOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001064 break;
1065 case OP_SHL_INT:
1066 case OP_SHL_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001067 armOp = THUMB_LSLV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001068 break;
1069 case OP_SHR_INT:
1070 case OP_SHR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001071 armOp = THUMB_ASRV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001072 break;
1073 case OP_USHR_INT:
1074 case OP_USHR_INT_2ADDR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001075 armOp = THUMB_LSRV;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001076 break;
1077 default:
1078 LOGE("Invalid word arith op: 0x%x(%d)",
1079 mir->dalvikInsn.opCode, mir->dalvikInsn.opCode);
1080 dvmAbort();
1081 }
1082 if (!callOut) {
Ben Chenge9695e52009-06-16 16:11:47 -07001083 /* Try to allocate reg0 to the currently cached source operand */
1084 if (cUnit->registerScoreboard.liveDalvikReg == vSrc1) {
1085 reg0 = selectFirstRegister(cUnit, vSrc1, false);
1086 reg1 = NEXT_REG(reg0);
1087 regDest = NEXT_REG(reg1);
1088
1089 loadValue(cUnit, vSrc1, reg0); /* Should be optimized away */
1090 loadValue(cUnit, vSrc2, reg1);
1091 genBinaryOp(cUnit, vDest, armOp, reg0, reg1, regDest);
1092 } else {
1093 reg0 = selectFirstRegister(cUnit, vSrc2, false);
1094 reg1 = NEXT_REG(reg0);
1095 regDest = NEXT_REG(reg1);
1096
1097 loadValue(cUnit, vSrc1, reg1); /* Load this value first */
1098 loadValue(cUnit, vSrc2, reg0); /* May be optimized away */
1099 genBinaryOp(cUnit, vDest, armOp, reg1, reg0, regDest);
1100 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001101 } else {
Ben Chenge9695e52009-06-16 16:11:47 -07001102 /*
1103 * Load the callout target first since it will never be eliminated
1104 * and its value will be used first.
1105 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001106 loadConstant(cUnit, r2, (int) callTgt);
Ben Chenge9695e52009-06-16 16:11:47 -07001107 /*
1108 * Load vSrc2 first if it is not cached in a native register or it
1109 * is in r0 which will be clobbered if vSrc1 is loaded first.
1110 */
1111 if (cUnit->registerScoreboard.liveDalvikReg != vSrc2 ||
1112 cUnit->registerScoreboard.nativeReg == r0) {
1113 /* Cannot be optimized and won't clobber r0 */
1114 loadValue(cUnit, vSrc2, r1);
1115 /* May be optimized if vSrc1 is cached */
1116 loadValue(cUnit, vSrc1, r0);
1117 } else {
1118 loadValue(cUnit, vSrc1, r0);
1119 loadValue(cUnit, vSrc2, r1);
1120 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001121 if (checkZero) {
Ben Chenge9695e52009-06-16 16:11:47 -07001122 genNullCheck(cUnit, vSrc2, r1, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001123 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001124 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001125 storeValue(cUnit, retReg, vDest, r2);
1126 }
1127 return false;
1128}
1129
1130static bool genArithOp(CompilationUnit *cUnit, MIR *mir)
1131{
1132 OpCode opCode = mir->dalvikInsn.opCode;
1133 int vA = mir->dalvikInsn.vA;
1134 int vB = mir->dalvikInsn.vB;
1135 int vC = mir->dalvikInsn.vC;
1136
1137 if ((opCode >= OP_ADD_LONG_2ADDR) && (opCode <= OP_XOR_LONG_2ADDR)) {
1138 return genArithOpLong(cUnit,mir, vA, vA, vB);
1139 }
1140 if ((opCode >= OP_ADD_LONG) && (opCode <= OP_XOR_LONG)) {
1141 return genArithOpLong(cUnit,mir, vA, vB, vC);
1142 }
1143 if ((opCode >= OP_SHL_LONG_2ADDR) && (opCode <= OP_USHR_LONG_2ADDR)) {
1144 return genShiftOpLong(cUnit,mir, vA, vA, vB);
1145 }
1146 if ((opCode >= OP_SHL_LONG) && (opCode <= OP_USHR_LONG)) {
1147 return genShiftOpLong(cUnit,mir, vA, vB, vC);
1148 }
1149 if ((opCode >= OP_ADD_INT_2ADDR) && (opCode <= OP_USHR_INT_2ADDR)) {
1150 return genArithOpInt(cUnit,mir, vA, vA, vB);
1151 }
1152 if ((opCode >= OP_ADD_INT) && (opCode <= OP_USHR_INT)) {
1153 return genArithOpInt(cUnit,mir, vA, vB, vC);
1154 }
1155 if ((opCode >= OP_ADD_FLOAT_2ADDR) && (opCode <= OP_REM_FLOAT_2ADDR)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001156 return genArithOpFloat(cUnit,mir, vA, vA, vB);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001157 }
1158 if ((opCode >= OP_ADD_FLOAT) && (opCode <= OP_REM_FLOAT)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001159 return genArithOpFloat(cUnit, mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001160 }
1161 if ((opCode >= OP_ADD_DOUBLE_2ADDR) && (opCode <= OP_REM_DOUBLE_2ADDR)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001162 return genArithOpDouble(cUnit,mir, vA, vA, vB);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001163 }
1164 if ((opCode >= OP_ADD_DOUBLE) && (opCode <= OP_REM_DOUBLE)) {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001165 return genArithOpDouble(cUnit,mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001166 }
1167 return true;
1168}
1169
Bill Buzbeed45ba372009-06-15 17:00:57 -07001170static bool genConversionCall(CompilationUnit *cUnit, MIR *mir, void *funct,
1171 int srcSize, int tgtSize)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001172{
Ben Chenge9695e52009-06-16 16:11:47 -07001173 /*
1174 * Don't optimize the register usage since it calls out to template
1175 * functions
1176 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001177 loadConstant(cUnit, r2, (int)funct);
1178 if (srcSize == 1) {
1179 loadValue(cUnit, mir->dalvikInsn.vB, r0);
1180 } else {
1181 loadValuePair(cUnit, mir->dalvikInsn.vB, r0, r1);
1182 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001183 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001184 if (tgtSize == 1) {
1185 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
1186 } else {
1187 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
1188 }
1189 return false;
1190}
1191
Ben Chengba4fc8b2009-06-01 13:00:29 -07001192static bool genInlinedStringLength(CompilationUnit *cUnit, MIR *mir)
1193{
Ben Chengba4fc8b2009-06-01 13:00:29 -07001194 DecodedInstruction *dInsn = &mir->dalvikInsn;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001195 int offset = offsetof(InterpState, retval);
1196 int regObj = selectFirstRegister(cUnit, dInsn->arg[0], false);
1197 int reg1 = NEXT_REG(regObj);
1198 loadValue(cUnit, dInsn->arg[0], regObj);
1199 genNullCheck(cUnit, dInsn->arg[0], regObj, mir->offset, NULL);
1200 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_count, reg1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001201 newLIR3(cUnit, THUMB_STR_RRI5, reg1, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001202 return false;
1203}
1204
1205/*
1206 * NOTE: The amount of code for this body suggests it ought to
1207 * be handled in a template (and could also be coded quite a bit
1208 * more efficiently in ARM). However, the code is dependent on the
1209 * internal structure layout of string objects which are most safely
1210 * known at run time.
1211 * TUNING: One possibility (which could also be used for StringCompareTo
1212 * and StringEquals) is to generate string access helper subroutines on
1213 * Jit startup, and then call them from the translated inline-executes.
1214 */
1215static bool genInlinedStringCharAt(CompilationUnit *cUnit, MIR *mir)
1216{
1217 DecodedInstruction *dInsn = &mir->dalvikInsn;
1218 int offset = offsetof(InterpState, retval);
1219 int contents = offsetof(ArrayObject, contents);
1220 int regObj = selectFirstRegister(cUnit, dInsn->arg[0], false);
1221 int regIdx = NEXT_REG(regObj);
1222 int regMax = NEXT_REG(regIdx);
1223 int regOff = NEXT_REG(regMax);
1224 loadValue(cUnit, dInsn->arg[0], regObj);
1225 loadValue(cUnit, dInsn->arg[1], regIdx);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001226 ArmLIR * pcrLabel = genNullCheck(cUnit, dInsn->arg[0], regObj,
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001227 mir->offset, NULL);
1228 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_count, regMax);
1229 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_offset, regOff);
1230 loadWordDisp(cUnit, regObj, gDvm.offJavaLangString_value, regObj);
1231 genBoundsCheck(cUnit, regIdx, regMax, mir->offset, pcrLabel);
1232
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001233 newLIR2(cUnit, THUMB_ADD_RI8, regObj, contents);
1234 newLIR3(cUnit, THUMB_ADD_RRR, regIdx, regIdx, regOff);
1235 newLIR3(cUnit, THUMB_ADD_RRR, regIdx, regIdx, regIdx);
1236 newLIR3(cUnit, THUMB_LDRH_RRR, regMax, regObj, regIdx);
1237 newLIR3(cUnit, THUMB_STR_RRI5, regMax, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001238 return false;
1239}
1240
1241static bool genInlinedAbsInt(CompilationUnit *cUnit, MIR *mir)
1242{
1243 int offset = offsetof(InterpState, retval);
1244 DecodedInstruction *dInsn = &mir->dalvikInsn;
1245 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1246 int sign = NEXT_REG(reg0);
1247 /* abs(x) = y<=x>>31, (x+y)^y. Shorter in ARM/THUMB2, no skip in THUMB */
1248 loadValue(cUnit, dInsn->arg[0], reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001249 newLIR3(cUnit, THUMB_ASR, sign, reg0, 31);
1250 newLIR3(cUnit, THUMB_ADD_RRR, reg0, reg0, sign);
1251 newLIR2(cUnit, THUMB_EOR, reg0, sign);
1252 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001253 return false;
1254}
1255
1256static bool genInlinedAbsFloat(CompilationUnit *cUnit, MIR *mir)
1257{
1258 int offset = offsetof(InterpState, retval);
1259 DecodedInstruction *dInsn = &mir->dalvikInsn;
1260 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1261 int signMask = NEXT_REG(reg0);
1262 loadValue(cUnit, dInsn->arg[0], reg0);
1263 loadConstant(cUnit, signMask, 0x7fffffff);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001264 newLIR2(cUnit, THUMB_AND_RR, reg0, signMask);
1265 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001266 return false;
1267}
1268
1269static bool genInlinedAbsDouble(CompilationUnit *cUnit, MIR *mir)
1270{
1271 int offset = offsetof(InterpState, retval);
1272 DecodedInstruction *dInsn = &mir->dalvikInsn;
1273 int oplo = selectFirstRegister(cUnit, dInsn->arg[0], true);
1274 int ophi = NEXT_REG(oplo);
1275 int signMask = NEXT_REG(ophi);
1276 loadValuePair(cUnit, dInsn->arg[0], oplo, ophi);
1277 loadConstant(cUnit, signMask, 0x7fffffff);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001278 newLIR3(cUnit, THUMB_STR_RRI5, oplo, rGLUE, offset >> 2);
1279 newLIR2(cUnit, THUMB_AND_RR, ophi, signMask);
1280 newLIR3(cUnit, THUMB_STR_RRI5, ophi, rGLUE, (offset >> 2)+1);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001281 return false;
1282}
1283
1284 /* No select in thumb, so we need to branch. Thumb2 will do better */
1285static bool genInlinedMinMaxInt(CompilationUnit *cUnit, MIR *mir, bool isMin)
1286{
1287 int offset = offsetof(InterpState, retval);
1288 DecodedInstruction *dInsn = &mir->dalvikInsn;
1289 int reg0 = selectFirstRegister(cUnit, dInsn->arg[0], false);
1290 int reg1 = NEXT_REG(reg0);
1291 loadValue(cUnit, dInsn->arg[0], reg0);
1292 loadValue(cUnit, dInsn->arg[1], reg1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001293 newLIR2(cUnit, THUMB_CMP_RR, reg0, reg1);
1294 ArmLIR *branch1 = newLIR2(cUnit, THUMB_B_COND, 2,
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001295 isMin ? ARM_COND_LT : ARM_COND_GT);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001296 newLIR2(cUnit, THUMB_MOV_RR, reg0, reg1);
1297 ArmLIR *target =
1298 newLIR3(cUnit, THUMB_STR_RRI5, reg0, rGLUE, offset >> 2);
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001299 branch1->generic.target = (LIR *)target;
1300 return false;
1301}
1302
1303static bool genInlinedAbsLong(CompilationUnit *cUnit, MIR *mir)
1304{
1305 int offset = offsetof(InterpState, retval);
1306 DecodedInstruction *dInsn = &mir->dalvikInsn;
1307 int oplo = selectFirstRegister(cUnit, dInsn->arg[0], true);
1308 int ophi = NEXT_REG(oplo);
1309 int sign = NEXT_REG(ophi);
1310 /* abs(x) = y<=x>>31, (x+y)^y. Shorter in ARM/THUMB2, no skip in THUMB */
1311 loadValuePair(cUnit, dInsn->arg[0], oplo, ophi);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001312 newLIR3(cUnit, THUMB_ASR, sign, ophi, 31);
1313 newLIR3(cUnit, THUMB_ADD_RRR, oplo, oplo, sign);
1314 newLIR2(cUnit, THUMB_ADC, ophi, sign);
1315 newLIR2(cUnit, THUMB_EOR, oplo, sign);
1316 newLIR2(cUnit, THUMB_EOR, ophi, sign);
1317 newLIR3(cUnit, THUMB_STR_RRI5, oplo, rGLUE, offset >> 2);
1318 newLIR3(cUnit, THUMB_STR_RRI5, ophi, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001319 return false;
1320}
1321
1322static void genProcessArgsNoRange(CompilationUnit *cUnit, MIR *mir,
1323 DecodedInstruction *dInsn,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001324 ArmLIR **pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001325{
1326 unsigned int i;
1327 unsigned int regMask = 0;
1328
1329 /* Load arguments to r0..r4 */
1330 for (i = 0; i < dInsn->vA; i++) {
1331 regMask |= 1 << i;
1332 loadValue(cUnit, dInsn->arg[i], i);
1333 }
1334 if (regMask) {
1335 /* Up to 5 args are pushed on top of FP - sizeofStackSaveArea */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001336 newLIR2(cUnit, THUMB_MOV_RR, r7, rFP);
1337 newLIR2(cUnit, THUMB_SUB_RI8, r7,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001338 sizeof(StackSaveArea) + (dInsn->vA << 2));
1339 /* generate null check */
1340 if (pcrLabel) {
Ben Chenge9695e52009-06-16 16:11:47 -07001341 *pcrLabel = genNullCheck(cUnit, dInsn->arg[0], r0, mir->offset,
1342 NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001343 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001344 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001345 }
1346}
1347
1348static void genProcessArgsRange(CompilationUnit *cUnit, MIR *mir,
1349 DecodedInstruction *dInsn,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001350 ArmLIR **pcrLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001351{
1352 int srcOffset = dInsn->vC << 2;
1353 int numArgs = dInsn->vA;
1354 int regMask;
1355 /*
1356 * r4PC : &rFP[vC]
1357 * r7: &newFP[0]
1358 */
1359 if (srcOffset < 8) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001360 newLIR3(cUnit, THUMB_ADD_RRI3, r4PC, rFP, srcOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001361 } else {
1362 loadConstant(cUnit, r4PC, srcOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001363 newLIR3(cUnit, THUMB_ADD_RRR, r4PC, rFP, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001364 }
1365 /* load [r0 .. min(numArgs,4)] */
1366 regMask = (1 << ((numArgs < 4) ? numArgs : 4)) - 1;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001367 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001368
1369 if (sizeof(StackSaveArea) + (numArgs << 2) < 256) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001370 newLIR2(cUnit, THUMB_MOV_RR, r7, rFP);
1371 newLIR2(cUnit, THUMB_SUB_RI8, r7,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001372 sizeof(StackSaveArea) + (numArgs << 2));
1373 } else {
1374 loadConstant(cUnit, r7, sizeof(StackSaveArea) + (numArgs << 2));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001375 newLIR3(cUnit, THUMB_SUB_RRR, r7, rFP, r7);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001376 }
1377
1378 /* generate null check */
1379 if (pcrLabel) {
Ben Chenge9695e52009-06-16 16:11:47 -07001380 *pcrLabel = genNullCheck(cUnit, dInsn->vC, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001381 }
1382
1383 /*
1384 * Handle remaining 4n arguments:
1385 * store previously loaded 4 values and load the next 4 values
1386 */
1387 if (numArgs >= 8) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001388 ArmLIR *loopLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001389 /*
1390 * r0 contains "this" and it will be used later, so push it to the stack
1391 * first. Pushing r5 is just for stack alignment purposes.
1392 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001393 newLIR1(cUnit, THUMB_PUSH, 1 << r0 | 1 << 5);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001394 /* No need to generate the loop structure if numArgs <= 11 */
1395 if (numArgs > 11) {
1396 loadConstant(cUnit, 5, ((numArgs - 4) >> 2) << 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001397 loopLabel = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001398 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001399 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
1400 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001401 /* No need to generate the loop structure if numArgs <= 11 */
1402 if (numArgs > 11) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001403 newLIR2(cUnit, THUMB_SUB_RI8, 5, 4);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001404 genConditionalBranch(cUnit, ARM_COND_NE, loopLabel);
1405 }
1406 }
1407
1408 /* Save the last batch of loaded values */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001409 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001410
1411 /* Generate the loop epilogue - don't use r0 */
1412 if ((numArgs > 4) && (numArgs % 4)) {
1413 regMask = ((1 << (numArgs & 0x3)) - 1) << 1;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001414 newLIR2(cUnit, THUMB_LDMIA, r4PC, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001415 }
1416 if (numArgs >= 8)
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001417 newLIR1(cUnit, THUMB_POP, 1 << r0 | 1 << 5);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001418
1419 /* Save the modulo 4 arguments */
1420 if ((numArgs > 4) && (numArgs % 4)) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001421 newLIR2(cUnit, THUMB_STMIA, r7, regMask);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001422 }
1423}
1424
Ben Cheng38329f52009-07-07 14:19:20 -07001425/*
1426 * Generate code to setup the call stack then jump to the chaining cell if it
1427 * is not a native method.
1428 */
1429static void genInvokeSingletonCommon(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001430 BasicBlock *bb, ArmLIR *labelList,
1431 ArmLIR *pcrLabel,
Ben Cheng38329f52009-07-07 14:19:20 -07001432 const Method *calleeMethod)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001433{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001434 ArmLIR *retChainingCell = &labelList[bb->fallThrough->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07001435
1436 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001437 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07001438 r1, 0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001439 /* r4PC = dalvikCallsite */
1440 loadConstant(cUnit, r4PC,
1441 (int) (cUnit->method->insns + mir->offset));
1442 addrRetChain->generic.target = (LIR *) retChainingCell;
1443 /*
Ben Cheng38329f52009-07-07 14:19:20 -07001444 * r0 = calleeMethod (loaded upon calling genInvokeSingletonCommon)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001445 * r1 = &ChainingCell
1446 * r4PC = callsiteDPC
1447 */
1448 if (dvmIsNativeMethod(calleeMethod)) {
Ben Cheng38329f52009-07-07 14:19:20 -07001449 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NATIVE);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001450#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -07001451 gDvmJit.invokeNative++;
Ben Chengba4fc8b2009-06-01 13:00:29 -07001452#endif
1453 } else {
1454 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_CHAIN);
1455#if defined(INVOKE_STATS)
1456 gDvmJit.invokeChain++;
1457#endif
Ben Cheng38329f52009-07-07 14:19:20 -07001458 /* Branch to the chaining cell */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001459 genUnconditionalBranch(cUnit, &labelList[bb->taken->id]);
1460 }
1461 /* Handle exceptions using the interpreter */
1462 genTrap(cUnit, mir->offset, pcrLabel);
1463}
1464
Ben Cheng38329f52009-07-07 14:19:20 -07001465/*
1466 * Generate code to check the validity of a predicted chain and take actions
1467 * based on the result.
1468 *
1469 * 0x426a99aa : ldr r4, [pc, #72] --> r4 <- dalvikPC of this invoke
1470 * 0x426a99ac : add r1, pc, #32 --> r1 <- &retChainingCell
1471 * 0x426a99ae : add r2, pc, #40 --> r2 <- &predictedChainingCell
1472 * 0x426a99b0 : blx_1 0x426a918c --+ TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN
1473 * 0x426a99b2 : blx_2 see above --+
1474 * 0x426a99b4 : b 0x426a99d8 --> off to the predicted chain
1475 * 0x426a99b6 : b 0x426a99c8 --> punt to the interpreter
1476 * 0x426a99b8 : ldr r0, [r7, #44] --> r0 <- this->class->vtable[methodIdx]
1477 * 0x426a99ba : cmp r1, #0 --> compare r1 (rechain count) against 0
1478 * 0x426a99bc : bgt 0x426a99c2 --> >=0? don't rechain
1479 * 0x426a99be : ldr r7, [r6, #96] --+ dvmJitToPatchPredictedChain
1480 * 0x426a99c0 : blx r7 --+
1481 * 0x426a99c2 : add r1, pc, #12 --> r1 <- &retChainingCell
1482 * 0x426a99c4 : blx_1 0x426a9098 --+ TEMPLATE_INVOKE_METHOD_NO_OPT
1483 * 0x426a99c6 : blx_2 see above --+
1484 */
1485static void genInvokeVirtualCommon(CompilationUnit *cUnit, MIR *mir,
1486 int methodIndex,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001487 ArmLIR *retChainingCell,
1488 ArmLIR *predChainingCell,
1489 ArmLIR *pcrLabel)
Ben Cheng38329f52009-07-07 14:19:20 -07001490{
1491 /* "this" is already left in r0 by genProcessArgs* */
1492
1493 /* r4PC = dalvikCallsite */
1494 loadConstant(cUnit, r4PC,
1495 (int) (cUnit->method->insns + mir->offset));
1496
1497 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001498 ArmLIR *addrRetChain = newLIR2(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07001499 r1, 0);
1500 addrRetChain->generic.target = (LIR *) retChainingCell;
1501
1502 /* r2 = &predictedChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001503 ArmLIR *predictedChainingCell =
1504 newLIR2(cUnit, THUMB_ADD_PC_REL, r2, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001505 predictedChainingCell->generic.target = (LIR *) predChainingCell;
1506
1507 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN);
1508
1509 /* return through lr - jump to the chaining cell */
1510 genUnconditionalBranch(cUnit, predChainingCell);
1511
1512 /*
1513 * null-check on "this" may have been eliminated, but we still need a PC-
1514 * reconstruction label for stack overflow bailout.
1515 */
1516 if (pcrLabel == NULL) {
1517 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001518 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
1519 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Cheng38329f52009-07-07 14:19:20 -07001520 pcrLabel->operands[0] = dPC;
1521 pcrLabel->operands[1] = mir->offset;
1522 /* Insert the place holder to the growable list */
1523 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
1524 }
1525
1526 /* return through lr+2 - punt to the interpreter */
1527 genUnconditionalBranch(cUnit, pcrLabel);
1528
1529 /*
1530 * return through lr+4 - fully resolve the callee method.
1531 * r1 <- count
1532 * r2 <- &predictedChainCell
1533 * r3 <- this->class
1534 * r4 <- dPC
1535 * r7 <- this->class->vtable
1536 */
1537
1538 /* r0 <- calleeMethod */
1539 if (methodIndex < 32) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001540 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r7, methodIndex);
Ben Cheng38329f52009-07-07 14:19:20 -07001541 } else {
1542 loadConstant(cUnit, r0, methodIndex<<2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001543 newLIR3(cUnit, THUMB_LDR_RRR, r0, r7, r0);
Ben Cheng38329f52009-07-07 14:19:20 -07001544 }
1545
1546 /* Check if rechain limit is reached */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001547 newLIR2(cUnit, THUMB_CMP_RI8, r1, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001548
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001549 ArmLIR *bypassRechaining =
1550 newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_GT);
Ben Cheng38329f52009-07-07 14:19:20 -07001551
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001552 newLIR3(cUnit, THUMB_LDR_RRI5, r7, rGLUE,
Ben Cheng38329f52009-07-07 14:19:20 -07001553 offsetof(InterpState,
1554 jitToInterpEntries.dvmJitToPatchPredictedChain)
1555 >> 2);
1556
1557 /*
1558 * r0 = calleeMethod
1559 * r2 = &predictedChainingCell
1560 * r3 = class
1561 *
1562 * &returnChainingCell has been loaded into r1 but is not needed
1563 * when patching the chaining cell and will be clobbered upon
1564 * returning so it will be reconstructed again.
1565 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001566 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Cheng38329f52009-07-07 14:19:20 -07001567
1568 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001569 addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL, r1, 0, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07001570 addrRetChain->generic.target = (LIR *) retChainingCell;
1571
1572 bypassRechaining->generic.target = (LIR *) addrRetChain;
1573 /*
1574 * r0 = calleeMethod,
1575 * r1 = &ChainingCell,
1576 * r4PC = callsiteDPC,
1577 */
1578 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NO_OPT);
1579#if defined(INVOKE_STATS)
1580 gDvmJit.invokePredictedChain++;
1581#endif
1582 /* Handle exceptions using the interpreter */
1583 genTrap(cUnit, mir->offset, pcrLabel);
1584}
1585
1586/*
1587 * Up calling this function, "this" is stored in r0. The actual class will be
1588 * chased down off r0 and the predicted one will be retrieved through
1589 * predictedChainingCell then a comparison is performed to see whether the
1590 * previously established chaining is still valid.
1591 *
1592 * The return LIR is a branch based on the comparison result. The actual branch
1593 * target will be setup in the caller.
1594 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001595static ArmLIR *genCheckPredictedChain(CompilationUnit *cUnit,
1596 ArmLIR *predChainingCell,
1597 ArmLIR *retChainingCell,
Ben Cheng38329f52009-07-07 14:19:20 -07001598 MIR *mir)
1599{
1600 /* r3 now contains this->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001601 newLIR3(cUnit, THUMB_LDR_RRI5, r3, r0,
Ben Cheng38329f52009-07-07 14:19:20 -07001602 offsetof(Object, clazz) >> 2);
1603
1604 /*
1605 * r2 now contains predicted class. The starting offset of the
1606 * cached value is 4 bytes into the chaining cell.
1607 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001608 ArmLIR *getPredictedClass =
1609 newLIR3(cUnit, THUMB_LDR_PC_REL, r2, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001610 offsetof(PredictedChainingCell, clazz));
1611 getPredictedClass->generic.target = (LIR *) predChainingCell;
1612
1613 /*
1614 * r0 now contains predicted method. The starting offset of the
1615 * cached value is 8 bytes into the chaining cell.
1616 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001617 ArmLIR *getPredictedMethod =
1618 newLIR3(cUnit, THUMB_LDR_PC_REL, r0, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001619 offsetof(PredictedChainingCell, method));
1620 getPredictedMethod->generic.target = (LIR *) predChainingCell;
1621
1622 /* Load the stats counter to see if it is time to unchain and refresh */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001623 ArmLIR *getRechainingRequestCount =
1624 newLIR3(cUnit, THUMB_LDR_PC_REL, r7, 0,
Ben Cheng38329f52009-07-07 14:19:20 -07001625 offsetof(PredictedChainingCell, counter));
1626 getRechainingRequestCount->generic.target =
1627 (LIR *) predChainingCell;
1628
1629 /* r4PC = dalvikCallsite */
1630 loadConstant(cUnit, r4PC,
1631 (int) (cUnit->method->insns + mir->offset));
1632
1633 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001634 ArmLIR *addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07001635 r1, 0, 0);
1636 addrRetChain->generic.target = (LIR *) retChainingCell;
1637
1638 /* Check if r2 (predicted class) == r3 (actual class) */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001639 newLIR2(cUnit, THUMB_CMP_RR, r2, r3);
Ben Cheng38329f52009-07-07 14:19:20 -07001640
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001641 return newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_EQ);
Ben Cheng38329f52009-07-07 14:19:20 -07001642}
1643
Ben Chengba4fc8b2009-06-01 13:00:29 -07001644/* Geneate a branch to go back to the interpreter */
1645static void genPuntToInterp(CompilationUnit *cUnit, unsigned int offset)
1646{
1647 /* r0 = dalvik pc */
1648 loadConstant(cUnit, r0, (int) (cUnit->method->insns + offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001649 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001650 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpPunt) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001651 newLIR1(cUnit, THUMB_BLX_R, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001652}
1653
1654/*
1655 * Attempt to single step one instruction using the interpreter and return
1656 * to the compiled code for the next Dalvik instruction
1657 */
1658static void genInterpSingleStep(CompilationUnit *cUnit, MIR *mir)
1659{
1660 int flags = dexGetInstrFlags(gDvm.instrFlags, mir->dalvikInsn.opCode);
1661 int flagsToCheck = kInstrCanBranch | kInstrCanSwitch | kInstrCanReturn |
1662 kInstrCanThrow;
1663 if ((mir->next == NULL) || (flags & flagsToCheck)) {
1664 genPuntToInterp(cUnit, mir->offset);
1665 return;
1666 }
1667 int entryAddr = offsetof(InterpState,
1668 jitToInterpEntries.dvmJitToInterpSingleStep);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001669 newLIR3(cUnit, THUMB_LDR_RRI5, r2, rGLUE, entryAddr >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001670 /* r0 = dalvik pc */
1671 loadConstant(cUnit, r0, (int) (cUnit->method->insns + mir->offset));
1672 /* r1 = dalvik pc of following instruction */
1673 loadConstant(cUnit, r1, (int) (cUnit->method->insns + mir->next->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001674 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001675}
1676
1677
1678/*****************************************************************************/
1679/*
1680 * The following are the first-level codegen routines that analyze the format
1681 * of each bytecode then either dispatch special purpose codegen routines
1682 * or produce corresponding Thumb instructions directly.
1683 */
1684
1685static bool handleFmt10t_Fmt20t_Fmt30t(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001686 BasicBlock *bb, ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07001687{
1688 /* For OP_GOTO, OP_GOTO_16, and OP_GOTO_32 */
1689 genUnconditionalBranch(cUnit, &labelList[bb->taken->id]);
1690 return false;
1691}
1692
1693static bool handleFmt10x(CompilationUnit *cUnit, MIR *mir)
1694{
1695 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
1696 if (((dalvikOpCode >= OP_UNUSED_3E) && (dalvikOpCode <= OP_UNUSED_43)) ||
1697 ((dalvikOpCode >= OP_UNUSED_E3) && (dalvikOpCode <= OP_UNUSED_EC))) {
1698 LOGE("Codegen: got unused opcode 0x%x\n",dalvikOpCode);
1699 return true;
1700 }
1701 switch (dalvikOpCode) {
1702 case OP_RETURN_VOID:
1703 genReturnCommon(cUnit,mir);
1704 break;
1705 case OP_UNUSED_73:
1706 case OP_UNUSED_79:
1707 case OP_UNUSED_7A:
1708 LOGE("Codegen: got unused opcode 0x%x\n",dalvikOpCode);
1709 return true;
1710 case OP_NOP:
1711 break;
1712 default:
1713 return true;
1714 }
1715 return false;
1716}
1717
1718static bool handleFmt11n_Fmt31i(CompilationUnit *cUnit, MIR *mir)
1719{
Ben Chenge9695e52009-06-16 16:11:47 -07001720 int reg0, reg1, reg2;
1721
Ben Chengba4fc8b2009-06-01 13:00:29 -07001722 switch (mir->dalvikInsn.opCode) {
1723 case OP_CONST:
Ben Chenge9695e52009-06-16 16:11:47 -07001724 case OP_CONST_4: {
1725 /* Avoid using the previously used register */
1726 reg0 = selectFirstRegister(cUnit, vNone, false);
1727 reg1 = NEXT_REG(reg0);
1728 loadConstant(cUnit, reg0, mir->dalvikInsn.vB);
1729 storeValue(cUnit, reg0, mir->dalvikInsn.vA, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001730 break;
Ben Chenge9695e52009-06-16 16:11:47 -07001731 }
1732 case OP_CONST_WIDE_32: {
1733 /* Avoid using the previously used register */
1734 reg0 = selectFirstRegister(cUnit, vNone, true);
1735 reg1 = NEXT_REG(reg0);
1736 reg2 = NEXT_REG(reg1);
1737 loadConstant(cUnit, reg0, mir->dalvikInsn.vB);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001738 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chenge9695e52009-06-16 16:11:47 -07001739 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001740 break;
Ben Chenge9695e52009-06-16 16:11:47 -07001741 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001742 default:
1743 return true;
1744 }
1745 return false;
1746}
1747
1748static bool handleFmt21h(CompilationUnit *cUnit, MIR *mir)
1749{
Ben Chenge9695e52009-06-16 16:11:47 -07001750 int reg0, reg1, reg2;
1751
1752 /* Avoid using the previously used register */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001753 switch (mir->dalvikInsn.opCode) {
Ben Chenge9695e52009-06-16 16:11:47 -07001754 case OP_CONST_HIGH16: {
1755 reg0 = selectFirstRegister(cUnit, vNone, false);
1756 reg1 = NEXT_REG(reg0);
1757 loadConstant(cUnit, reg0, mir->dalvikInsn.vB << 16);
1758 storeValue(cUnit, reg0, mir->dalvikInsn.vA, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001759 break;
Ben Chenge9695e52009-06-16 16:11:47 -07001760 }
1761 case OP_CONST_WIDE_HIGH16: {
1762 reg0 = selectFirstRegister(cUnit, vNone, true);
1763 reg1 = NEXT_REG(reg0);
1764 reg2 = NEXT_REG(reg1);
1765 loadConstant(cUnit, reg1, mir->dalvikInsn.vB << 16);
1766 loadConstant(cUnit, reg0, 0);
1767 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001768 break;
Ben Chenge9695e52009-06-16 16:11:47 -07001769 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001770 default:
1771 return true;
1772 }
1773 return false;
1774}
1775
1776static bool handleFmt20bc(CompilationUnit *cUnit, MIR *mir)
1777{
1778 /* For OP_THROW_VERIFICATION_ERROR */
1779 genInterpSingleStep(cUnit, mir);
1780 return false;
1781}
1782
1783static bool handleFmt21c_Fmt31c(CompilationUnit *cUnit, MIR *mir)
1784{
Ben Chenge9695e52009-06-16 16:11:47 -07001785 /* Native register to use if the interested value is vA */
1786 int regvA = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
1787 /* Native register to use if source is not from Dalvik registers */
1788 int regvNone = selectFirstRegister(cUnit, vNone, false);
1789 /* Similar to regvA but for 64-bit values */
1790 int regvAWide = selectFirstRegister(cUnit, mir->dalvikInsn.vA, true);
1791 /* Similar to regvNone but for 64-bit values */
1792 int regvNoneWide = selectFirstRegister(cUnit, vNone, true);
1793
Ben Chengba4fc8b2009-06-01 13:00:29 -07001794 switch (mir->dalvikInsn.opCode) {
1795 /*
1796 * TODO: Verify that we can ignore the resolution check here because
1797 * it will have already successfully been interpreted once
1798 */
1799 case OP_CONST_STRING_JUMBO:
1800 case OP_CONST_STRING: {
1801 void *strPtr = (void*)
1802 (cUnit->method->clazz->pDvmDex->pResStrings[mir->dalvikInsn.vB]);
1803 assert(strPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001804 loadConstant(cUnit, regvNone, (int) strPtr );
1805 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Ben Chengba4fc8b2009-06-01 13:00:29 -07001806 break;
1807 }
1808 /*
1809 * TODO: Verify that we can ignore the resolution check here because
1810 * it will have already successfully been interpreted once
1811 */
1812 case OP_CONST_CLASS: {
1813 void *classPtr = (void*)
1814 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
1815 assert(classPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001816 loadConstant(cUnit, regvNone, (int) classPtr );
1817 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Ben Chengba4fc8b2009-06-01 13:00:29 -07001818 break;
1819 }
1820 case OP_SGET_OBJECT:
1821 case OP_SGET_BOOLEAN:
1822 case OP_SGET_CHAR:
1823 case OP_SGET_BYTE:
1824 case OP_SGET_SHORT:
1825 case OP_SGET: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001826 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001827 void *fieldPtr = (void*)
1828 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
1829 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001830 loadConstant(cUnit, regvNone, (int) fieldPtr + valOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001831 newLIR3(cUnit, THUMB_LDR_RRI5, regvNone, regvNone, 0);
Ben Chenge9695e52009-06-16 16:11:47 -07001832 storeValue(cUnit, regvNone, mir->dalvikInsn.vA, NEXT_REG(regvNone));
Ben Chengba4fc8b2009-06-01 13:00:29 -07001833 break;
1834 }
1835 case OP_SGET_WIDE: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001836 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001837 void *fieldPtr = (void*)
1838 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07001839 int reg0, reg1, reg2;
1840
Ben Chengba4fc8b2009-06-01 13:00:29 -07001841 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001842 reg0 = regvNoneWide;
1843 reg1 = NEXT_REG(reg0);
1844 reg2 = NEXT_REG(reg1);
1845 loadConstant(cUnit, reg2, (int) fieldPtr + valOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001846 newLIR2(cUnit, THUMB_LDMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chenge9695e52009-06-16 16:11:47 -07001847 storeValuePair(cUnit, reg0, reg1, mir->dalvikInsn.vA, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001848 break;
1849 }
1850 case OP_SPUT_OBJECT:
1851 case OP_SPUT_BOOLEAN:
1852 case OP_SPUT_CHAR:
1853 case OP_SPUT_BYTE:
1854 case OP_SPUT_SHORT:
1855 case OP_SPUT: {
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001856 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001857 void *fieldPtr = (void*)
1858 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07001859
Ben Chengba4fc8b2009-06-01 13:00:29 -07001860 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001861 loadValue(cUnit, mir->dalvikInsn.vA, regvA);
1862 updateLiveRegister(cUnit, mir->dalvikInsn.vA, regvA);
1863 loadConstant(cUnit, NEXT_REG(regvA), (int) fieldPtr + valOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001864 newLIR3(cUnit, THUMB_STR_RRI5, regvA, NEXT_REG(regvA), 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001865 break;
1866 }
1867 case OP_SPUT_WIDE: {
Ben Chenge9695e52009-06-16 16:11:47 -07001868 int reg0, reg1, reg2;
Bill Buzbee50a6bf22009-07-08 13:08:04 -07001869 int valOffset = offsetof(StaticField, value);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001870 void *fieldPtr = (void*)
1871 (cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vB]);
Ben Chenge9695e52009-06-16 16:11:47 -07001872
Ben Chengba4fc8b2009-06-01 13:00:29 -07001873 assert(fieldPtr != NULL);
Ben Chenge9695e52009-06-16 16:11:47 -07001874 reg0 = regvAWide;
1875 reg1 = NEXT_REG(reg0);
1876 reg2 = NEXT_REG(reg1);
1877 loadValuePair(cUnit, mir->dalvikInsn.vA, reg0, reg1);
1878 updateLiveRegisterPair(cUnit, mir->dalvikInsn.vA, reg0, reg1);
1879 loadConstant(cUnit, reg2, (int) fieldPtr + valOffset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001880 newLIR2(cUnit, THUMB_STMIA, reg2, (1<<reg0 | 1<<reg1));
Ben Chengba4fc8b2009-06-01 13:00:29 -07001881 break;
1882 }
1883 case OP_NEW_INSTANCE: {
Ben Chenge9695e52009-06-16 16:11:47 -07001884 /*
1885 * Obey the calling convention and don't mess with the register
1886 * usage.
1887 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001888 ClassObject *classPtr = (void*)
1889 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
1890 assert(classPtr != NULL);
1891 assert(classPtr->status & CLASS_INITIALIZED);
1892 if ((classPtr->accessFlags & (ACC_INTERFACE|ACC_ABSTRACT)) != 0) {
1893 /* It's going to throw, just let the interp. deal with it. */
1894 genInterpSingleStep(cUnit, mir);
1895 return false;
1896 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07001897 loadConstant(cUnit, r4PC, (int)dvmAllocObject);
Ben Chenge9695e52009-06-16 16:11:47 -07001898 loadConstant(cUnit, r0, (int) classPtr);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001899 genExportPC(cUnit, mir, r2, r3 );
1900 loadConstant(cUnit, r1, ALLOC_DONT_TRACK);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001901 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001902 /*
1903 * TODO: As coded, we'll bail and reinterpret on alloc failure.
1904 * Need a general mechanism to bail to thrown exception code.
1905 */
Ben Chenge9695e52009-06-16 16:11:47 -07001906 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001907 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
1908 break;
1909 }
1910 case OP_CHECK_CAST: {
Ben Chenge9695e52009-06-16 16:11:47 -07001911 /*
1912 * Obey the calling convention and don't mess with the register
1913 * usage.
1914 */
Ben Chengba4fc8b2009-06-01 13:00:29 -07001915 ClassObject *classPtr =
1916 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vB]);
1917 loadConstant(cUnit, r1, (int) classPtr );
1918 loadValue(cUnit, mir->dalvikInsn.vA, r0); /* Ref */
1919 /*
1920 * TODO - in theory classPtr should be resoved by the time this
1921 * instruction made into a trace, but we are seeing NULL at runtime
1922 * so this check is temporarily used as a workaround.
1923 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001924 ArmLIR * pcrLabel = genZeroCheck(cUnit, r1, mir->offset, NULL);
1925 newLIR2(cUnit, THUMB_CMP_RI8, r0, 0); /* Null? */
1926 ArmLIR *branch1 =
1927 newLIR2(cUnit, THUMB_B_COND, 4, ARM_COND_EQ);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001928 /* r0 now contains object->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001929 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r0,
Ben Chengba4fc8b2009-06-01 13:00:29 -07001930 offsetof(Object, clazz) >> 2);
1931 loadConstant(cUnit, r4PC, (int)dvmInstanceofNonTrivial);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001932 newLIR2(cUnit, THUMB_CMP_RR, r0, r1);
1933 ArmLIR *branch2 =
1934 newLIR2(cUnit, THUMB_B_COND, 2, ARM_COND_EQ);
1935 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001936 /* check cast failed - punt to the interpreter */
Ben Chenge9695e52009-06-16 16:11:47 -07001937 genZeroCheck(cUnit, r0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001938 /* check cast passed - branch target here */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001939 ArmLIR *target = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001940 branch1->generic.target = (LIR *)target;
1941 branch2->generic.target = (LIR *)target;
1942 break;
1943 }
1944 default:
1945 return true;
1946 }
1947 return false;
1948}
1949
1950static bool handleFmt11x(CompilationUnit *cUnit, MIR *mir)
1951{
1952 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
1953 switch (dalvikOpCode) {
1954 case OP_MOVE_EXCEPTION: {
1955 int offset = offsetof(InterpState, self);
1956 int exOffset = offsetof(Thread, exception);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001957 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE, offset >> 2);
1958 newLIR3(cUnit, THUMB_LDR_RRI5, r0, r1, exOffset >> 2);
Ben Chenge9695e52009-06-16 16:11:47 -07001959 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001960 break;
1961 }
1962 case OP_MOVE_RESULT:
1963 case OP_MOVE_RESULT_OBJECT: {
1964 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001965 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001966 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
1967 break;
1968 }
1969 case OP_MOVE_RESULT_WIDE: {
1970 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001971 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
1972 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001973 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
1974 break;
1975 }
1976 case OP_RETURN_WIDE: {
1977 loadValuePair(cUnit, mir->dalvikInsn.vA, r0, r1);
1978 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001979 newLIR3(cUnit, THUMB_STR_RRI5, r0, rGLUE, offset >> 2);
1980 newLIR3(cUnit, THUMB_STR_RRI5, r1, rGLUE, (offset >> 2)+1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001981 genReturnCommon(cUnit,mir);
1982 break;
1983 }
1984 case OP_RETURN:
1985 case OP_RETURN_OBJECT: {
1986 loadValue(cUnit, mir->dalvikInsn.vA, r0);
1987 int offset = offsetof(InterpState, retval);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07001988 newLIR3(cUnit, THUMB_STR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07001989 genReturnCommon(cUnit,mir);
1990 break;
1991 }
1992 /*
1993 * TODO-VERIFY: May be playing a bit fast and loose here. As coded,
1994 * a failure on lock/unlock will cause us to revert to the interpeter
1995 * to try again. This means we essentially ignore the first failure on
1996 * the assumption that the interpreter will correctly handle the 2nd.
1997 */
1998 case OP_MONITOR_ENTER:
1999 case OP_MONITOR_EXIT: {
2000 int offset = offsetof(InterpState, self);
2001 loadValue(cUnit, mir->dalvikInsn.vA, r1);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002002 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE, offset >> 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002003 if (dalvikOpCode == OP_MONITOR_ENTER) {
2004 loadConstant(cUnit, r2, (int)dvmLockObject);
2005 } else {
2006 loadConstant(cUnit, r2, (int)dvmUnlockObject);
2007 }
2008 /*
2009 * TODO-VERIFY: Note that we're not doing an EXPORT_PC, as
2010 * Lock/unlock won't throw, and this code does not support
2011 * DEADLOCK_PREDICTION or MONITOR_TRACKING. Should it?
2012 */
Ben Chenge9695e52009-06-16 16:11:47 -07002013 genNullCheck(cUnit, mir->dalvikInsn.vA, r1, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002014 /* Do the call */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002015 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002016 break;
2017 }
2018 case OP_THROW: {
2019 genInterpSingleStep(cUnit, mir);
2020 break;
2021 }
2022 default:
2023 return true;
2024 }
2025 return false;
2026}
2027
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002028static bool genConversionPortable(CompilationUnit *cUnit, MIR *mir)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002029{
2030 OpCode opCode = mir->dalvikInsn.opCode;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002031
Ben Chengba4fc8b2009-06-01 13:00:29 -07002032 float __aeabi_i2f( int op1 );
2033 int __aeabi_f2iz( float op1 );
2034 float __aeabi_d2f( double op1 );
2035 double __aeabi_f2d( float op1 );
2036 double __aeabi_i2d( int op1 );
2037 int __aeabi_d2iz( double op1 );
Ben Chengba4fc8b2009-06-01 13:00:29 -07002038 float __aeabi_l2f( long op1 );
Ben Chengba4fc8b2009-06-01 13:00:29 -07002039 double __aeabi_l2d( long op1 );
2040
Bill Buzbeed45ba372009-06-15 17:00:57 -07002041 switch (opCode) {
2042 case OP_INT_TO_FLOAT:
2043 return genConversionCall(cUnit, mir, (void*)__aeabi_i2f, 1, 1);
2044 case OP_FLOAT_TO_INT:
2045 return genConversionCall(cUnit, mir, (void*)__aeabi_f2iz, 1, 1);
2046 case OP_DOUBLE_TO_FLOAT:
2047 return genConversionCall(cUnit, mir, (void*)__aeabi_d2f, 2, 1);
2048 case OP_FLOAT_TO_DOUBLE:
2049 return genConversionCall(cUnit, mir, (void*)__aeabi_f2d, 1, 2);
2050 case OP_INT_TO_DOUBLE:
2051 return genConversionCall(cUnit, mir, (void*)__aeabi_i2d, 1, 2);
2052 case OP_DOUBLE_TO_INT:
2053 return genConversionCall(cUnit, mir, (void*)__aeabi_d2iz, 2, 1);
2054 case OP_FLOAT_TO_LONG:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002055 return genConversionCall(cUnit, mir, (void*)dvmJitf2l, 1, 2);
Bill Buzbeed45ba372009-06-15 17:00:57 -07002056 case OP_LONG_TO_FLOAT:
2057 return genConversionCall(cUnit, mir, (void*)__aeabi_l2f, 2, 1);
2058 case OP_DOUBLE_TO_LONG:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002059 return genConversionCall(cUnit, mir, (void*)dvmJitd2l, 2, 2);
Bill Buzbeed45ba372009-06-15 17:00:57 -07002060 case OP_LONG_TO_DOUBLE:
2061 return genConversionCall(cUnit, mir, (void*)__aeabi_l2d, 2, 2);
2062 default:
2063 return true;
2064 }
2065 return false;
2066}
2067
2068static bool handleFmt12x(CompilationUnit *cUnit, MIR *mir)
2069{
2070 OpCode opCode = mir->dalvikInsn.opCode;
2071 int vSrc1Dest = mir->dalvikInsn.vA;
2072 int vSrc2 = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002073 int reg0, reg1, reg2;
Bill Buzbeed45ba372009-06-15 17:00:57 -07002074
2075 /* TODO - find the proper include file to declare these */
2076
Ben Chengba4fc8b2009-06-01 13:00:29 -07002077 if ( (opCode >= OP_ADD_INT_2ADDR) && (opCode <= OP_REM_DOUBLE_2ADDR)) {
2078 return genArithOp( cUnit, mir );
2079 }
2080
Ben Chenge9695e52009-06-16 16:11:47 -07002081 /*
2082 * If data type is 64-bit, re-calculate the register numbers in the
2083 * corresponding cases.
2084 */
2085 reg0 = selectFirstRegister(cUnit, vSrc2, false);
2086 reg1 = NEXT_REG(reg0);
2087 reg2 = NEXT_REG(reg1);
2088
Ben Chengba4fc8b2009-06-01 13:00:29 -07002089 switch (opCode) {
2090 case OP_INT_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002091 case OP_FLOAT_TO_INT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002092 case OP_DOUBLE_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002093 case OP_FLOAT_TO_DOUBLE:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002094 case OP_INT_TO_DOUBLE:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002095 case OP_DOUBLE_TO_INT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002096 case OP_FLOAT_TO_LONG:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002097 case OP_LONG_TO_FLOAT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002098 case OP_DOUBLE_TO_LONG:
Ben Chengba4fc8b2009-06-01 13:00:29 -07002099 case OP_LONG_TO_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002100 return genConversion(cUnit, mir);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002101 case OP_NEG_INT:
2102 case OP_NOT_INT:
2103 return genArithOpInt(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
2104 case OP_NEG_LONG:
2105 case OP_NOT_LONG:
2106 return genArithOpLong(cUnit,mir, vSrc1Dest, vSrc1Dest, vSrc2);
2107 case OP_NEG_FLOAT:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002108 return genArithOpFloat(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002109 case OP_NEG_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002110 return genArithOpDouble(cUnit, mir, vSrc1Dest, vSrc1Dest, vSrc2);
Ben Chenge9695e52009-06-16 16:11:47 -07002111 case OP_MOVE_WIDE: {
2112 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2113 reg1 = NEXT_REG(reg0);
2114 reg2 = NEXT_REG(reg1);
2115
2116 loadValuePair(cUnit, vSrc2, reg0, reg1);
2117 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002118 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002119 }
2120 case OP_INT_TO_LONG: {
2121 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2122 reg1 = NEXT_REG(reg0);
2123 reg2 = NEXT_REG(reg1);
2124
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002125 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002126 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chenge9695e52009-06-16 16:11:47 -07002127 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002128 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002129 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002130 case OP_MOVE:
2131 case OP_MOVE_OBJECT:
2132 case OP_LONG_TO_INT:
Ben Chenge9695e52009-06-16 16:11:47 -07002133 loadValue(cUnit, vSrc2, reg0);
2134 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002135 break;
2136 case OP_INT_TO_BYTE:
Ben Chenge9695e52009-06-16 16:11:47 -07002137 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002138 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 24);
2139 newLIR3(cUnit, THUMB_ASR, reg0, reg0, 24);
Ben Chenge9695e52009-06-16 16:11:47 -07002140 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002141 break;
2142 case OP_INT_TO_SHORT:
Ben Chenge9695e52009-06-16 16:11:47 -07002143 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002144 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 16);
2145 newLIR3(cUnit, THUMB_ASR, reg0, reg0, 16);
Ben Chenge9695e52009-06-16 16:11:47 -07002146 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002147 break;
2148 case OP_INT_TO_CHAR:
Ben Chenge9695e52009-06-16 16:11:47 -07002149 loadValue(cUnit, vSrc2, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002150 newLIR3(cUnit, THUMB_LSL, reg0, reg0, 16);
2151 newLIR3(cUnit, THUMB_LSR, reg0, reg0, 16);
Ben Chenge9695e52009-06-16 16:11:47 -07002152 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002153 break;
2154 case OP_ARRAY_LENGTH: {
2155 int lenOffset = offsetof(ArrayObject, length);
Ben Chenge9695e52009-06-16 16:11:47 -07002156 loadValue(cUnit, vSrc2, reg0);
2157 genNullCheck(cUnit, vSrc2, reg0, mir->offset, NULL);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002158 newLIR3(cUnit, THUMB_LDR_RRI5, reg0, reg0, lenOffset >> 2);
Ben Chenge9695e52009-06-16 16:11:47 -07002159 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002160 break;
2161 }
2162 default:
2163 return true;
2164 }
2165 return false;
2166}
2167
2168static bool handleFmt21s(CompilationUnit *cUnit, MIR *mir)
2169{
2170 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Ben Chenge9695e52009-06-16 16:11:47 -07002171 int reg0, reg1, reg2;
2172
Ben Chengba4fc8b2009-06-01 13:00:29 -07002173 /* It takes few instructions to handle OP_CONST_WIDE_16 inline */
2174 if (dalvikOpCode == OP_CONST_WIDE_16) {
Ben Chenge9695e52009-06-16 16:11:47 -07002175 int vDest = mir->dalvikInsn.vA;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002176 int BBBB = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002177
2178 reg0 = selectFirstRegister(cUnit, vNone, true);
2179 reg1 = NEXT_REG(reg0);
2180 reg2 = NEXT_REG(reg1);
2181
2182 loadConstant(cUnit, reg0, BBBB);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002183 newLIR3(cUnit, THUMB_ASR, reg1, reg0, 31);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002184
2185 /* Save the long values to the specified Dalvik register pair */
Ben Chenge9695e52009-06-16 16:11:47 -07002186 storeValuePair(cUnit, reg0, reg1, vDest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002187 } else if (dalvikOpCode == OP_CONST_16) {
Ben Chenge9695e52009-06-16 16:11:47 -07002188 int vDest = mir->dalvikInsn.vA;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002189 int BBBB = mir->dalvikInsn.vB;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002190
Ben Chenge9695e52009-06-16 16:11:47 -07002191 reg0 = selectFirstRegister(cUnit, vNone, false);
2192 reg1 = NEXT_REG(reg0);
2193
2194 loadConstant(cUnit, reg0, BBBB);
2195 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002196 } else {
2197 return true;
2198 }
2199 return false;
2200}
2201
2202/* Compare agaist zero */
2203static bool handleFmt21t(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002204 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002205{
2206 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002207 ArmConditionCode cond;
Ben Chenge9695e52009-06-16 16:11:47 -07002208 int reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002209
Ben Chenge9695e52009-06-16 16:11:47 -07002210 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002211 newLIR2(cUnit, THUMB_CMP_RI8, reg0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002212
2213 switch (dalvikOpCode) {
2214 case OP_IF_EQZ:
2215 cond = ARM_COND_EQ;
2216 break;
2217 case OP_IF_NEZ:
2218 cond = ARM_COND_NE;
2219 break;
2220 case OP_IF_LTZ:
2221 cond = ARM_COND_LT;
2222 break;
2223 case OP_IF_GEZ:
2224 cond = ARM_COND_GE;
2225 break;
2226 case OP_IF_GTZ:
2227 cond = ARM_COND_GT;
2228 break;
2229 case OP_IF_LEZ:
2230 cond = ARM_COND_LE;
2231 break;
2232 default:
2233 cond = 0;
2234 LOGE("Unexpected opcode (%d) for Fmt21t\n", dalvikOpCode);
2235 dvmAbort();
2236 }
2237 genConditionalBranch(cUnit, cond, &labelList[bb->taken->id]);
2238 /* This mostly likely will be optimized away in a later phase */
2239 genUnconditionalBranch(cUnit, &labelList[bb->fallThrough->id]);
2240 return false;
2241}
2242
2243static bool handleFmt22b_Fmt22s(CompilationUnit *cUnit, MIR *mir)
2244{
2245 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2246 int vSrc = mir->dalvikInsn.vB;
2247 int vDest = mir->dalvikInsn.vA;
2248 int lit = mir->dalvikInsn.vC;
2249 int armOp;
Ben Chenge9695e52009-06-16 16:11:47 -07002250 int reg0, reg1, regDest;
2251
2252 reg0 = selectFirstRegister(cUnit, vSrc, false);
2253 reg1 = NEXT_REG(reg0);
2254 regDest = NEXT_REG(reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002255
2256 /* TODO: find the proper .h file to declare these */
2257 int __aeabi_idivmod(int op1, int op2);
2258 int __aeabi_idiv(int op1, int op2);
2259
2260 switch (dalvikOpCode) {
2261 case OP_ADD_INT_LIT8:
2262 case OP_ADD_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002263 loadValue(cUnit, vSrc, reg0);
2264 if (lit <= 7 && lit >= 0) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002265 newLIR3(cUnit, THUMB_ADD_RRI3, regDest, reg0, lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002266 storeValue(cUnit, regDest, vDest, reg1);
2267 } else if (lit <= 255 && lit >= 0) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002268 newLIR2(cUnit, THUMB_ADD_RI8, reg0, lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002269 storeValue(cUnit, reg0, vDest, reg1);
2270 } else if (lit >= -7 && lit <= 0) {
2271 /* Convert to a small constant subtraction */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002272 newLIR3(cUnit, THUMB_SUB_RRI3, regDest, reg0, -lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002273 storeValue(cUnit, regDest, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002274 } else if (lit >= -255 && lit <= 0) {
2275 /* Convert to a small constant subtraction */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002276 newLIR2(cUnit, THUMB_SUB_RI8, reg0, -lit);
Ben Chenge9695e52009-06-16 16:11:47 -07002277 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002278 } else {
Ben Chenge9695e52009-06-16 16:11:47 -07002279 loadConstant(cUnit, reg1, lit);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002280 genBinaryOp(cUnit, vDest, THUMB_ADD_RRR, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002281 }
2282 break;
2283
2284 case OP_RSUB_INT_LIT8:
2285 case OP_RSUB_INT:
Ben Chenge9695e52009-06-16 16:11:47 -07002286 loadValue(cUnit, vSrc, reg1);
2287 loadConstant(cUnit, reg0, lit);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002288 genBinaryOp(cUnit, vDest, THUMB_SUB_RRR, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002289 break;
2290
2291 case OP_MUL_INT_LIT8:
2292 case OP_MUL_INT_LIT16:
2293 case OP_AND_INT_LIT8:
2294 case OP_AND_INT_LIT16:
2295 case OP_OR_INT_LIT8:
2296 case OP_OR_INT_LIT16:
2297 case OP_XOR_INT_LIT8:
2298 case OP_XOR_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002299 loadValue(cUnit, vSrc, reg0);
2300 loadConstant(cUnit, reg1, lit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002301 switch (dalvikOpCode) {
2302 case OP_MUL_INT_LIT8:
2303 case OP_MUL_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002304 armOp = THUMB_MUL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002305 break;
2306 case OP_AND_INT_LIT8:
2307 case OP_AND_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002308 armOp = THUMB_AND_RR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002309 break;
2310 case OP_OR_INT_LIT8:
2311 case OP_OR_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002312 armOp = THUMB_ORR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002313 break;
2314 case OP_XOR_INT_LIT8:
2315 case OP_XOR_INT_LIT16:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002316 armOp = THUMB_EOR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002317 break;
2318 default:
2319 dvmAbort();
2320 }
Ben Chenge9695e52009-06-16 16:11:47 -07002321 genBinaryOp(cUnit, vDest, armOp, reg0, reg1, regDest);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002322 break;
2323
2324 case OP_SHL_INT_LIT8:
2325 case OP_SHR_INT_LIT8:
2326 case OP_USHR_INT_LIT8:
Ben Chenge9695e52009-06-16 16:11:47 -07002327 loadValue(cUnit, vSrc, reg0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002328 switch (dalvikOpCode) {
2329 case OP_SHL_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002330 armOp = THUMB_LSL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002331 break;
2332 case OP_SHR_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002333 armOp = THUMB_ASR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002334 break;
2335 case OP_USHR_INT_LIT8:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002336 armOp = THUMB_LSR;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002337 break;
2338 default: dvmAbort();
2339 }
Ben Chenge9695e52009-06-16 16:11:47 -07002340 newLIR3(cUnit, armOp, reg0, reg0, lit);
2341 storeValue(cUnit, reg0, vDest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002342 break;
2343
2344 case OP_DIV_INT_LIT8:
2345 case OP_DIV_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002346 /* Register usage based on the calling convention */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002347 if (lit == 0) {
2348 /* Let the interpreter deal with div by 0 */
2349 genInterpSingleStep(cUnit, mir);
2350 return false;
2351 }
2352 loadConstant(cUnit, r2, (int)__aeabi_idiv);
2353 loadConstant(cUnit, r1, lit);
2354 loadValue(cUnit, vSrc, r0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002355 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002356 storeValue(cUnit, r0, vDest, r2);
2357 break;
2358
2359 case OP_REM_INT_LIT8:
2360 case OP_REM_INT_LIT16:
Ben Chenge9695e52009-06-16 16:11:47 -07002361 /* Register usage based on the calling convention */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002362 if (lit == 0) {
2363 /* Let the interpreter deal with div by 0 */
2364 genInterpSingleStep(cUnit, mir);
2365 return false;
2366 }
2367 loadConstant(cUnit, r2, (int)__aeabi_idivmod);
2368 loadConstant(cUnit, r1, lit);
2369 loadValue(cUnit, vSrc, r0);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002370 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002371 storeValue(cUnit, r1, vDest, r2);
2372 break;
2373 default:
2374 return true;
2375 }
2376 return false;
2377}
2378
2379static bool handleFmt22c(CompilationUnit *cUnit, MIR *mir)
2380{
2381 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2382 int fieldOffset;
2383
2384 if (dalvikOpCode >= OP_IGET && dalvikOpCode <= OP_IPUT_SHORT) {
2385 InstField *pInstField = (InstField *)
2386 cUnit->method->clazz->pDvmDex->pResFields[mir->dalvikInsn.vC];
2387 int fieldOffset;
2388
2389 assert(pInstField != NULL);
2390 fieldOffset = pInstField->byteOffset;
2391 } else {
2392 /* To make the compiler happy */
2393 fieldOffset = 0;
2394 }
2395 switch (dalvikOpCode) {
2396 /*
2397 * TODO: I may be assuming too much here.
2398 * Verify what is known at JIT time.
2399 */
2400 case OP_NEW_ARRAY: {
2401 void *classPtr = (void*)
2402 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vC]);
2403 assert(classPtr != NULL);
2404 loadValue(cUnit, mir->dalvikInsn.vB, r1); /* Len */
2405 loadConstant(cUnit, r0, (int) classPtr );
2406 loadConstant(cUnit, r4PC, (int)dvmAllocArrayByClass);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002407 ArmLIR *pcrLabel =
Ben Chengba4fc8b2009-06-01 13:00:29 -07002408 genRegImmCheck(cUnit, ARM_COND_MI, r1, 0, mir->offset, NULL);
2409 genExportPC(cUnit, mir, r2, r3 );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002410 newLIR2(cUnit, THUMB_MOV_IMM,r2,ALLOC_DONT_TRACK);
2411 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002412 /*
2413 * TODO: As coded, we'll bail and reinterpret on alloc failure.
2414 * Need a general mechanism to bail to thrown exception code.
2415 */
Ben Chenge9695e52009-06-16 16:11:47 -07002416 genZeroCheck(cUnit, r0, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002417 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2418 break;
2419 }
2420 /*
2421 * TODO: I may be assuming too much here.
2422 * Verify what is known at JIT time.
2423 */
2424 case OP_INSTANCE_OF: {
2425 ClassObject *classPtr =
2426 (cUnit->method->clazz->pDvmDex->pResClasses[mir->dalvikInsn.vC]);
2427 assert(classPtr != NULL);
Ben Cheng752c7942009-06-22 10:50:07 -07002428 loadValue(cUnit, mir->dalvikInsn.vB, r0); /* Ref */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002429 loadConstant(cUnit, r2, (int) classPtr );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002430 newLIR2(cUnit, THUMB_CMP_RI8, r0, 0); /* Null? */
Ben Cheng752c7942009-06-22 10:50:07 -07002431 /* When taken r0 has NULL which can be used for store directly */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002432 ArmLIR *branch1 = newLIR2(cUnit, THUMB_B_COND, 4,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002433 ARM_COND_EQ);
2434 /* r1 now contains object->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002435 newLIR3(cUnit, THUMB_LDR_RRI5, r1, r0,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002436 offsetof(Object, clazz) >> 2);
2437 loadConstant(cUnit, r4PC, (int)dvmInstanceofNonTrivial);
Ben Cheng752c7942009-06-22 10:50:07 -07002438 loadConstant(cUnit, r0, 1); /* Assume true */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002439 newLIR2(cUnit, THUMB_CMP_RR, r1, r2);
2440 ArmLIR *branch2 = newLIR2(cUnit, THUMB_B_COND, 2,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002441 ARM_COND_EQ);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002442 newLIR2(cUnit, THUMB_MOV_RR, r0, r1);
2443 newLIR2(cUnit, THUMB_MOV_RR, r1, r2);
2444 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002445 /* branch target here */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002446 ArmLIR *target = newLIR0(cUnit, ARM_PSEUDO_TARGET_LABEL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002447 storeValue(cUnit, r0, mir->dalvikInsn.vA, r1);
2448 branch1->generic.target = (LIR *)target;
2449 branch2->generic.target = (LIR *)target;
2450 break;
2451 }
2452 case OP_IGET_WIDE:
2453 genIGetWide(cUnit, mir, fieldOffset);
2454 break;
2455 case OP_IGET:
2456 case OP_IGET_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002457 genIGet(cUnit, mir, THUMB_LDR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002458 break;
2459 case OP_IGET_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002460 genIGet(cUnit, mir, THUMB_LDRB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002461 break;
2462 case OP_IGET_BYTE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002463 genIGet(cUnit, mir, THUMB_LDRSB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002464 break;
2465 case OP_IGET_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002466 genIGet(cUnit, mir, THUMB_LDRH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002467 break;
2468 case OP_IGET_SHORT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002469 genIGet(cUnit, mir, THUMB_LDRSH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002470 break;
2471 case OP_IPUT_WIDE:
2472 genIPutWide(cUnit, mir, fieldOffset);
2473 break;
2474 case OP_IPUT:
2475 case OP_IPUT_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002476 genIPut(cUnit, mir, THUMB_STR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002477 break;
2478 case OP_IPUT_SHORT:
2479 case OP_IPUT_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002480 genIPut(cUnit, mir, THUMB_STRH_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002481 break;
2482 case OP_IPUT_BYTE:
2483 case OP_IPUT_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002484 genIPut(cUnit, mir, THUMB_STRB_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002485 break;
2486 default:
2487 return true;
2488 }
2489 return false;
2490}
2491
2492static bool handleFmt22cs(CompilationUnit *cUnit, MIR *mir)
2493{
2494 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2495 int fieldOffset = mir->dalvikInsn.vC;
2496 switch (dalvikOpCode) {
2497 case OP_IGET_QUICK:
2498 case OP_IGET_OBJECT_QUICK:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002499 genIGet(cUnit, mir, THUMB_LDR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002500 break;
2501 case OP_IPUT_QUICK:
2502 case OP_IPUT_OBJECT_QUICK:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002503 genIPut(cUnit, mir, THUMB_STR_RRR, fieldOffset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002504 break;
2505 case OP_IGET_WIDE_QUICK:
2506 genIGetWide(cUnit, mir, fieldOffset);
2507 break;
2508 case OP_IPUT_WIDE_QUICK:
2509 genIPutWide(cUnit, mir, fieldOffset);
2510 break;
2511 default:
2512 return true;
2513 }
2514 return false;
2515
2516}
2517
2518/* Compare agaist zero */
2519static bool handleFmt22t(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002520 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002521{
2522 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002523 ArmConditionCode cond;
Ben Chenge9695e52009-06-16 16:11:47 -07002524 int reg0, reg1;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002525
Ben Chenge9695e52009-06-16 16:11:47 -07002526 if (cUnit->registerScoreboard.liveDalvikReg == (int) mir->dalvikInsn.vA) {
2527 reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vA, false);
2528 reg1 = NEXT_REG(reg0);
2529 /* Load vB first since vA can be fetched via a move */
2530 loadValue(cUnit, mir->dalvikInsn.vB, reg1);
2531 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
2532 } else {
2533 reg0 = selectFirstRegister(cUnit, mir->dalvikInsn.vB, false);
2534 reg1 = NEXT_REG(reg0);
2535 /* Load vA first since vB can be fetched via a move */
2536 loadValue(cUnit, mir->dalvikInsn.vA, reg0);
2537 loadValue(cUnit, mir->dalvikInsn.vB, reg1);
2538 }
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002539 newLIR2(cUnit, THUMB_CMP_RR, reg0, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002540
2541 switch (dalvikOpCode) {
2542 case OP_IF_EQ:
2543 cond = ARM_COND_EQ;
2544 break;
2545 case OP_IF_NE:
2546 cond = ARM_COND_NE;
2547 break;
2548 case OP_IF_LT:
2549 cond = ARM_COND_LT;
2550 break;
2551 case OP_IF_GE:
2552 cond = ARM_COND_GE;
2553 break;
2554 case OP_IF_GT:
2555 cond = ARM_COND_GT;
2556 break;
2557 case OP_IF_LE:
2558 cond = ARM_COND_LE;
2559 break;
2560 default:
2561 cond = 0;
2562 LOGE("Unexpected opcode (%d) for Fmt22t\n", dalvikOpCode);
2563 dvmAbort();
2564 }
2565 genConditionalBranch(cUnit, cond, &labelList[bb->taken->id]);
2566 /* This mostly likely will be optimized away in a later phase */
2567 genUnconditionalBranch(cUnit, &labelList[bb->fallThrough->id]);
2568 return false;
2569}
2570
2571static bool handleFmt22x_Fmt32x(CompilationUnit *cUnit, MIR *mir)
2572{
2573 OpCode opCode = mir->dalvikInsn.opCode;
2574 int vSrc1Dest = mir->dalvikInsn.vA;
2575 int vSrc2 = mir->dalvikInsn.vB;
Ben Chenge9695e52009-06-16 16:11:47 -07002576 int reg0, reg1, reg2;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002577
2578 switch (opCode) {
2579 case OP_MOVE_16:
2580 case OP_MOVE_OBJECT_16:
2581 case OP_MOVE_FROM16:
Ben Chenge9695e52009-06-16 16:11:47 -07002582 case OP_MOVE_OBJECT_FROM16: {
2583 reg0 = selectFirstRegister(cUnit, vSrc2, false);
2584 reg1 = NEXT_REG(reg0);
2585 loadValue(cUnit, vSrc2, reg0);
2586 storeValue(cUnit, reg0, vSrc1Dest, reg1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002587 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002588 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002589 case OP_MOVE_WIDE_16:
Ben Chenge9695e52009-06-16 16:11:47 -07002590 case OP_MOVE_WIDE_FROM16: {
2591 reg0 = selectFirstRegister(cUnit, vSrc2, true);
2592 reg1 = NEXT_REG(reg0);
2593 reg2 = NEXT_REG(reg1);
2594 loadValuePair(cUnit, vSrc2, reg0, reg1);
2595 storeValuePair(cUnit, reg0, reg1, vSrc1Dest, reg2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002596 break;
Ben Chenge9695e52009-06-16 16:11:47 -07002597 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07002598 default:
2599 return true;
2600 }
2601 return false;
2602}
2603
2604static bool handleFmt23x(CompilationUnit *cUnit, MIR *mir)
2605{
2606 OpCode opCode = mir->dalvikInsn.opCode;
2607 int vA = mir->dalvikInsn.vA;
2608 int vB = mir->dalvikInsn.vB;
2609 int vC = mir->dalvikInsn.vC;
2610
Ben Chenge9695e52009-06-16 16:11:47 -07002611 /* Don't optimize for register usage since out-of-line handlers are used */
Ben Chengba4fc8b2009-06-01 13:00:29 -07002612 if ( (opCode >= OP_ADD_INT) && (opCode <= OP_REM_DOUBLE)) {
2613 return genArithOp( cUnit, mir );
2614 }
2615
2616 switch (opCode) {
Bill Buzbeed45ba372009-06-15 17:00:57 -07002617 case OP_CMPL_FLOAT:
2618 case OP_CMPG_FLOAT:
2619 case OP_CMPL_DOUBLE:
2620 case OP_CMPG_DOUBLE:
Bill Buzbee50a6bf22009-07-08 13:08:04 -07002621 return genCmpX(cUnit, mir, vA, vB, vC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002622 case OP_CMP_LONG:
2623 loadValuePair(cUnit,vB, r0, r1);
2624 loadValuePair(cUnit, vC, r2, r3);
2625 genDispatchToHandler(cUnit, TEMPLATE_CMP_LONG);
2626 storeValue(cUnit, r0, vA, r1);
2627 break;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002628 case OP_AGET_WIDE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002629 genArrayGet(cUnit, mir, THUMB_LDR_RRR, vB, vC, vA, 3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002630 break;
2631 case OP_AGET:
2632 case OP_AGET_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002633 genArrayGet(cUnit, mir, THUMB_LDR_RRR, vB, vC, vA, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002634 break;
2635 case OP_AGET_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002636 genArrayGet(cUnit, mir, THUMB_LDRB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002637 break;
2638 case OP_AGET_BYTE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002639 genArrayGet(cUnit, mir, THUMB_LDRSB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002640 break;
2641 case OP_AGET_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002642 genArrayGet(cUnit, mir, THUMB_LDRH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002643 break;
2644 case OP_AGET_SHORT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002645 genArrayGet(cUnit, mir, THUMB_LDRSH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002646 break;
2647 case OP_APUT_WIDE:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002648 genArrayPut(cUnit, mir, THUMB_STR_RRR, vB, vC, vA, 3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002649 break;
2650 case OP_APUT:
2651 case OP_APUT_OBJECT:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002652 genArrayPut(cUnit, mir, THUMB_STR_RRR, vB, vC, vA, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002653 break;
2654 case OP_APUT_SHORT:
2655 case OP_APUT_CHAR:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002656 genArrayPut(cUnit, mir, THUMB_STRH_RRR, vB, vC, vA, 1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002657 break;
2658 case OP_APUT_BYTE:
2659 case OP_APUT_BOOLEAN:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002660 genArrayPut(cUnit, mir, THUMB_STRB_RRR, vB, vC, vA, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002661 break;
2662 default:
2663 return true;
2664 }
2665 return false;
2666}
2667
2668static bool handleFmt31t(CompilationUnit *cUnit, MIR *mir)
2669{
2670 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
2671 switch (dalvikOpCode) {
2672 case OP_FILL_ARRAY_DATA: {
2673 loadConstant(cUnit, r4PC, (int)dvmInterpHandleFillArrayData);
2674 loadValue(cUnit, mir->dalvikInsn.vA, r0);
2675 loadConstant(cUnit, r1, (mir->dalvikInsn.vB << 1) +
2676 (int) (cUnit->method->insns + mir->offset));
2677 genExportPC(cUnit, mir, r2, r3 );
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002678 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chenge9695e52009-06-16 16:11:47 -07002679 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002680 break;
2681 }
2682 /*
2683 * TODO
2684 * - Add a 1 to 3-entry per-location cache here to completely
2685 * bypass the dvmInterpHandle[Packed/Sparse]Switch call w/ chaining
2686 * - Use out-of-line handlers for both of these
2687 */
2688 case OP_PACKED_SWITCH:
2689 case OP_SPARSE_SWITCH: {
2690 if (dalvikOpCode == OP_PACKED_SWITCH) {
2691 loadConstant(cUnit, r4PC, (int)dvmInterpHandlePackedSwitch);
2692 } else {
2693 loadConstant(cUnit, r4PC, (int)dvmInterpHandleSparseSwitch);
2694 }
2695 loadValue(cUnit, mir->dalvikInsn.vA, r1);
2696 loadConstant(cUnit, r0, (mir->dalvikInsn.vB << 1) +
2697 (int) (cUnit->method->insns + mir->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002698 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002699 loadConstant(cUnit, r1, (int)(cUnit->method->insns + mir->offset));
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002700 newLIR3(cUnit, THUMB_LDR_RRI5, r2, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07002701 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpNoChain)
2702 >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002703 newLIR3(cUnit, THUMB_ADD_RRR, r0, r0, r0);
2704 newLIR3(cUnit, THUMB_ADD_RRR, r4PC, r0, r1);
2705 newLIR1(cUnit, THUMB_BLX_R, r2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002706 break;
2707 }
2708 default:
2709 return true;
2710 }
2711 return false;
2712}
2713
2714static bool handleFmt35c_3rc(CompilationUnit *cUnit, MIR *mir, BasicBlock *bb,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002715 ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002716{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002717 ArmLIR *retChainingCell = &labelList[bb->fallThrough->id];
2718 ArmLIR *pcrLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002719
2720 DecodedInstruction *dInsn = &mir->dalvikInsn;
2721 switch (mir->dalvikInsn.opCode) {
2722 /*
2723 * calleeMethod = this->clazz->vtable[
2724 * method->clazz->pDvmDex->pResMethods[BBBB]->methodIndex
2725 * ]
2726 */
2727 case OP_INVOKE_VIRTUAL:
2728 case OP_INVOKE_VIRTUAL_RANGE: {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002729 ArmLIR *predChainingCell = &labelList[bb->taken->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07002730 int methodIndex =
2731 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB]->
2732 methodIndex;
2733
2734 if (mir->dalvikInsn.opCode == OP_INVOKE_VIRTUAL)
2735 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
2736 else
2737 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
2738
Ben Cheng38329f52009-07-07 14:19:20 -07002739 genInvokeVirtualCommon(cUnit, mir, methodIndex,
2740 retChainingCell,
2741 predChainingCell,
2742 pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002743 break;
2744 }
2745 /*
2746 * calleeMethod = method->clazz->super->vtable[method->clazz->pDvmDex
2747 * ->pResMethods[BBBB]->methodIndex]
2748 */
2749 /* TODO - not excersized in RunPerf.jar */
2750 case OP_INVOKE_SUPER:
2751 case OP_INVOKE_SUPER_RANGE: {
2752 int mIndex = cUnit->method->clazz->pDvmDex->
2753 pResMethods[dInsn->vB]->methodIndex;
2754 const Method *calleeMethod =
2755 cUnit->method->clazz->super->vtable[mIndex];
2756
2757 if (mir->dalvikInsn.opCode == OP_INVOKE_SUPER)
2758 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
2759 else
2760 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
2761
2762 /* r0 = calleeMethod */
2763 loadConstant(cUnit, r0, (int) calleeMethod);
2764
Ben Cheng38329f52009-07-07 14:19:20 -07002765 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
2766 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002767 break;
2768 }
2769 /* calleeMethod = method->clazz->pDvmDex->pResMethods[BBBB] */
2770 case OP_INVOKE_DIRECT:
2771 case OP_INVOKE_DIRECT_RANGE: {
2772 const Method *calleeMethod =
2773 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB];
2774
2775 if (mir->dalvikInsn.opCode == OP_INVOKE_DIRECT)
2776 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
2777 else
2778 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
2779
2780 /* r0 = calleeMethod */
2781 loadConstant(cUnit, r0, (int) calleeMethod);
2782
Ben Cheng38329f52009-07-07 14:19:20 -07002783 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
2784 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002785 break;
2786 }
2787 /* calleeMethod = method->clazz->pDvmDex->pResMethods[BBBB] */
2788 case OP_INVOKE_STATIC:
2789 case OP_INVOKE_STATIC_RANGE: {
2790 const Method *calleeMethod =
2791 cUnit->method->clazz->pDvmDex->pResMethods[dInsn->vB];
2792
2793 if (mir->dalvikInsn.opCode == OP_INVOKE_STATIC)
2794 genProcessArgsNoRange(cUnit, mir, dInsn,
2795 NULL /* no null check */);
2796 else
2797 genProcessArgsRange(cUnit, mir, dInsn,
2798 NULL /* no null check */);
2799
2800 /* r0 = calleeMethod */
2801 loadConstant(cUnit, r0, (int) calleeMethod);
2802
Ben Cheng38329f52009-07-07 14:19:20 -07002803 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
2804 calleeMethod);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002805 break;
2806 }
2807 /*
2808 * calleeMethod = dvmFindInterfaceMethodInCache(this->clazz,
2809 * BBBB, method, method->clazz->pDvmDex)
Ben Cheng38329f52009-07-07 14:19:20 -07002810 *
2811 * Given "invoke-interface {v0}", the following is the generated code:
2812 *
2813 * 0x426a9abe : ldr r0, [r5, #0] --+
2814 * 0x426a9ac0 : mov r7, r5 |
2815 * 0x426a9ac2 : sub r7, #24 |
2816 * 0x426a9ac4 : cmp r0, #0 | genProcessArgsNoRange
2817 * 0x426a9ac6 : beq 0x426a9afe |
2818 * 0x426a9ac8 : stmia r7, <r0> --+
2819 * 0x426a9aca : ldr r4, [pc, #104] --> r4 <- dalvikPC of this invoke
2820 * 0x426a9acc : add r1, pc, #52 --> r1 <- &retChainingCell
2821 * 0x426a9ace : add r2, pc, #60 --> r2 <- &predictedChainingCell
2822 * 0x426a9ad0 : blx_1 0x426a918c --+ TEMPLATE_INVOKE_METHOD_
2823 * 0x426a9ad2 : blx_2 see above --+ PREDICTED_CHAIN
2824 * 0x426a9ad4 : b 0x426a9b0c --> off to the predicted chain
2825 * 0x426a9ad6 : b 0x426a9afe --> punt to the interpreter
2826 * 0x426a9ad8 : mov r9, r1 --+
2827 * 0x426a9ada : mov r10, r2 |
2828 * 0x426a9adc : mov r12, r3 |
2829 * 0x426a9ade : mov r0, r3 |
2830 * 0x426a9ae0 : mov r1, #74 | dvmFindInterfaceMethodInCache
2831 * 0x426a9ae2 : ldr r2, [pc, #76] |
2832 * 0x426a9ae4 : ldr r3, [pc, #68] |
2833 * 0x426a9ae6 : ldr r7, [pc, #64] |
2834 * 0x426a9ae8 : blx r7 --+
2835 * 0x426a9aea : mov r1, r9 --> r1 <- rechain count
2836 * 0x426a9aec : cmp r1, #0 --> compare against 0
2837 * 0x426a9aee : bgt 0x426a9af8 --> >=0? don't rechain
2838 * 0x426a9af0 : ldr r7, [r6, #96] --+
2839 * 0x426a9af2 : mov r2, r10 | dvmJitToPatchPredictedChain
2840 * 0x426a9af4 : mov r3, r12 |
2841 * 0x426a9af6 : blx r7 --+
2842 * 0x426a9af8 : add r1, pc, #8 --> r1 <- &retChainingCell
2843 * 0x426a9afa : blx_1 0x426a9098 --+ TEMPLATE_INVOKE_METHOD_NO_OPT
2844 * 0x426a9afc : blx_2 see above --+
2845 * -------- reconstruct dalvik PC : 0x428b786c @ +0x001e
2846 * 0x426a9afe (0042): ldr r0, [pc, #52]
2847 * Exception_Handling:
2848 * 0x426a9b00 (0044): ldr r1, [r6, #84]
2849 * 0x426a9b02 (0046): blx r1
2850 * 0x426a9b04 (0048): .align4
2851 * -------- chaining cell (hot): 0x0021
2852 * 0x426a9b04 (0048): ldr r0, [r6, #92]
2853 * 0x426a9b06 (004a): blx r0
2854 * 0x426a9b08 (004c): data 0x7872(30834)
2855 * 0x426a9b0a (004e): data 0x428b(17035)
2856 * 0x426a9b0c (0050): .align4
2857 * -------- chaining cell (predicted)
2858 * 0x426a9b0c (0050): data 0x0000(0) --> will be patched into bx
2859 * 0x426a9b0e (0052): data 0x0000(0)
2860 * 0x426a9b10 (0054): data 0x0000(0) --> class
2861 * 0x426a9b12 (0056): data 0x0000(0)
2862 * 0x426a9b14 (0058): data 0x0000(0) --> method
2863 * 0x426a9b16 (005a): data 0x0000(0)
2864 * 0x426a9b18 (005c): data 0x0000(0) --> reset count
2865 * 0x426a9b1a (005e): data 0x0000(0)
2866 * 0x426a9b28 (006c): .word (0xad0392a5)
2867 * 0x426a9b2c (0070): .word (0x6e750)
2868 * 0x426a9b30 (0074): .word (0x4109a618)
2869 * 0x426a9b34 (0078): .word (0x428b786c)
Ben Chengba4fc8b2009-06-01 13:00:29 -07002870 */
2871 case OP_INVOKE_INTERFACE:
2872 case OP_INVOKE_INTERFACE_RANGE: {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002873 ArmLIR *predChainingCell = &labelList[bb->taken->id];
Ben Chengba4fc8b2009-06-01 13:00:29 -07002874 int methodIndex = dInsn->vB;
2875
2876 if (mir->dalvikInsn.opCode == OP_INVOKE_INTERFACE)
2877 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
2878 else
2879 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
2880
Ben Cheng38329f52009-07-07 14:19:20 -07002881 /* "this" is already left in r0 by genProcessArgs* */
2882
2883 /* r4PC = dalvikCallsite */
2884 loadConstant(cUnit, r4PC,
2885 (int) (cUnit->method->insns + mir->offset));
2886
2887 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002888 ArmLIR *addrRetChain = newLIR2(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07002889 r1, 0);
2890 addrRetChain->generic.target = (LIR *) retChainingCell;
2891
2892 /* r2 = &predictedChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002893 ArmLIR *predictedChainingCell =
2894 newLIR2(cUnit, THUMB_ADD_PC_REL, r2, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07002895 predictedChainingCell->generic.target = (LIR *) predChainingCell;
2896
2897 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_PREDICTED_CHAIN);
2898
2899 /* return through lr - jump to the chaining cell */
2900 genUnconditionalBranch(cUnit, predChainingCell);
2901
2902 /*
2903 * null-check on "this" may have been eliminated, but we still need
2904 * a PC-reconstruction label for stack overflow bailout.
2905 */
2906 if (pcrLabel == NULL) {
2907 int dPC = (int) (cUnit->method->insns + mir->offset);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002908 pcrLabel = dvmCompilerNew(sizeof(ArmLIR), true);
2909 pcrLabel->opCode = ARM_PSEUDO_PC_RECONSTRUCTION_CELL;
Ben Cheng38329f52009-07-07 14:19:20 -07002910 pcrLabel->operands[0] = dPC;
2911 pcrLabel->operands[1] = mir->offset;
2912 /* Insert the place holder to the growable list */
2913 dvmInsertGrowableList(&cUnit->pcReconstructionList, pcrLabel);
2914 }
2915
2916 /* return through lr+2 - punt to the interpreter */
2917 genUnconditionalBranch(cUnit, pcrLabel);
2918
2919 /*
2920 * return through lr+4 - fully resolve the callee method.
2921 * r1 <- count
2922 * r2 <- &predictedChainCell
2923 * r3 <- this->class
2924 * r4 <- dPC
2925 * r7 <- this->class->vtable
2926 */
2927
2928 /* Save count, &predictedChainCell, and class to high regs first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002929 newLIR2(cUnit, THUMB_MOV_RR_L2H, r9 & THUMB_REG_MASK, r1);
2930 newLIR2(cUnit, THUMB_MOV_RR_L2H, r10 & THUMB_REG_MASK, r2);
2931 newLIR2(cUnit, THUMB_MOV_RR_L2H, r12 & THUMB_REG_MASK, r3);
Ben Cheng38329f52009-07-07 14:19:20 -07002932
Ben Chengba4fc8b2009-06-01 13:00:29 -07002933 /* r0 now contains this->clazz */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002934 newLIR2(cUnit, THUMB_MOV_RR, r0, r3);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002935
2936 /* r1 = BBBB */
2937 loadConstant(cUnit, r1, dInsn->vB);
2938
2939 /* r2 = method (caller) */
2940 loadConstant(cUnit, r2, (int) cUnit->method);
2941
2942 /* r3 = pDvmDex */
2943 loadConstant(cUnit, r3, (int) cUnit->method->clazz->pDvmDex);
2944
2945 loadConstant(cUnit, r7,
2946 (intptr_t) dvmFindInterfaceMethodInCache);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002947 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002948
2949 /* r0 = calleeMethod (returned from dvmFindInterfaceMethodInCache */
2950
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002951 newLIR2(cUnit, THUMB_MOV_RR_H2L, r1, r9 & THUMB_REG_MASK);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002952
Ben Cheng38329f52009-07-07 14:19:20 -07002953 /* Check if rechain limit is reached */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002954 newLIR2(cUnit, THUMB_CMP_RI8, r1, 0);
Ben Cheng38329f52009-07-07 14:19:20 -07002955
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002956 ArmLIR *bypassRechaining =
2957 newLIR2(cUnit, THUMB_B_COND, 0, ARM_COND_GT);
Ben Cheng38329f52009-07-07 14:19:20 -07002958
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002959 newLIR3(cUnit, THUMB_LDR_RRI5, r7, rGLUE,
Ben Cheng38329f52009-07-07 14:19:20 -07002960 offsetof(InterpState,
2961 jitToInterpEntries.dvmJitToPatchPredictedChain)
2962 >> 2);
2963
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002964 newLIR2(cUnit, THUMB_MOV_RR_H2L, r2, r10 & THUMB_REG_MASK);
2965 newLIR2(cUnit, THUMB_MOV_RR_H2L, r3, r12 & THUMB_REG_MASK);
Ben Cheng38329f52009-07-07 14:19:20 -07002966
2967 /*
2968 * r0 = calleeMethod
2969 * r2 = &predictedChainingCell
2970 * r3 = class
2971 *
2972 * &returnChainingCell has been loaded into r1 but is not needed
2973 * when patching the chaining cell and will be clobbered upon
2974 * returning so it will be reconstructed again.
2975 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002976 newLIR1(cUnit, THUMB_BLX_R, r7);
Ben Cheng38329f52009-07-07 14:19:20 -07002977
2978 /* r1 = &retChainingCell */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07002979 addrRetChain = newLIR3(cUnit, THUMB_ADD_PC_REL,
Ben Cheng38329f52009-07-07 14:19:20 -07002980 r1, 0, 0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07002981 addrRetChain->generic.target = (LIR *) retChainingCell;
Ben Cheng38329f52009-07-07 14:19:20 -07002982
2983 bypassRechaining->generic.target = (LIR *) addrRetChain;
2984
Ben Chengba4fc8b2009-06-01 13:00:29 -07002985 /*
2986 * r0 = this, r1 = calleeMethod,
2987 * r1 = &ChainingCell,
2988 * r4PC = callsiteDPC,
2989 */
2990 genDispatchToHandler(cUnit, TEMPLATE_INVOKE_METHOD_NO_OPT);
2991#if defined(INVOKE_STATS)
Ben Cheng38329f52009-07-07 14:19:20 -07002992 gDvmJit.invokePredictedChain++;
Ben Chengba4fc8b2009-06-01 13:00:29 -07002993#endif
2994 /* Handle exceptions using the interpreter */
2995 genTrap(cUnit, mir->offset, pcrLabel);
2996 break;
2997 }
2998 /* NOP */
2999 case OP_INVOKE_DIRECT_EMPTY: {
3000 return false;
3001 }
3002 case OP_FILLED_NEW_ARRAY:
3003 case OP_FILLED_NEW_ARRAY_RANGE: {
3004 /* Just let the interpreter deal with these */
3005 genInterpSingleStep(cUnit, mir);
3006 break;
3007 }
3008 default:
3009 return true;
3010 }
3011 return false;
3012}
3013
3014static bool handleFmt35ms_3rms(CompilationUnit *cUnit, MIR *mir,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003015 BasicBlock *bb, ArmLIR *labelList)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003016{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003017 ArmLIR *retChainingCell = &labelList[bb->fallThrough->id];
3018 ArmLIR *predChainingCell = &labelList[bb->taken->id];
3019 ArmLIR *pcrLabel = NULL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003020
3021 DecodedInstruction *dInsn = &mir->dalvikInsn;
3022 switch (mir->dalvikInsn.opCode) {
3023 /* calleeMethod = this->clazz->vtable[BBBB] */
3024 case OP_INVOKE_VIRTUAL_QUICK_RANGE:
3025 case OP_INVOKE_VIRTUAL_QUICK: {
3026 int methodIndex = dInsn->vB;
3027 if (mir->dalvikInsn.opCode == OP_INVOKE_VIRTUAL_QUICK)
3028 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3029 else
3030 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3031
Ben Cheng38329f52009-07-07 14:19:20 -07003032 genInvokeVirtualCommon(cUnit, mir, methodIndex,
3033 retChainingCell,
3034 predChainingCell,
3035 pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003036 break;
3037 }
3038 /* calleeMethod = method->clazz->super->vtable[BBBB] */
3039 case OP_INVOKE_SUPER_QUICK:
3040 case OP_INVOKE_SUPER_QUICK_RANGE: {
3041 const Method *calleeMethod =
3042 cUnit->method->clazz->super->vtable[dInsn->vB];
3043
3044 if (mir->dalvikInsn.opCode == OP_INVOKE_SUPER_QUICK)
3045 genProcessArgsNoRange(cUnit, mir, dInsn, &pcrLabel);
3046 else
3047 genProcessArgsRange(cUnit, mir, dInsn, &pcrLabel);
3048
3049 /* r0 = calleeMethod */
3050 loadConstant(cUnit, r0, (int) calleeMethod);
3051
Ben Cheng38329f52009-07-07 14:19:20 -07003052 genInvokeSingletonCommon(cUnit, mir, bb, labelList, pcrLabel,
3053 calleeMethod);
3054 /* Handle exceptions using the interpreter */
3055 genTrap(cUnit, mir->offset, pcrLabel);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003056 break;
3057 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003058 default:
3059 return true;
3060 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003061 return false;
3062}
3063
3064/*
3065 * NOTE: We assume here that the special native inline routines
3066 * are side-effect free. By making this assumption, we can safely
3067 * re-execute the routine from the interpreter if it decides it
3068 * wants to throw an exception. We still need to EXPORT_PC(), though.
3069 */
3070static bool handleFmt3inline(CompilationUnit *cUnit, MIR *mir)
3071{
3072 DecodedInstruction *dInsn = &mir->dalvikInsn;
3073 switch( mir->dalvikInsn.opCode) {
3074 case OP_EXECUTE_INLINE: {
3075 unsigned int i;
3076 const InlineOperation* inLineTable = dvmGetInlineOpsTable();
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003077 int offset = offsetof(InterpState, retval);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003078 int operation = dInsn->vB;
3079
Bill Buzbee50a6bf22009-07-08 13:08:04 -07003080 switch (operation) {
3081 case INLINE_EMPTYINLINEMETHOD:
3082 return false; /* Nop */
3083 case INLINE_STRING_LENGTH:
3084 return genInlinedStringLength(cUnit, mir);
3085 case INLINE_MATH_ABS_INT:
3086 return genInlinedAbsInt(cUnit, mir);
3087 case INLINE_MATH_ABS_LONG:
3088 return genInlinedAbsLong(cUnit, mir);
3089 case INLINE_MATH_MIN_INT:
3090 return genInlinedMinMaxInt(cUnit, mir, true);
3091 case INLINE_MATH_MAX_INT:
3092 return genInlinedMinMaxInt(cUnit, mir, false);
3093 case INLINE_STRING_CHARAT:
3094 return genInlinedStringCharAt(cUnit, mir);
3095 case INLINE_MATH_SQRT:
3096 if (genInlineSqrt(cUnit, mir))
3097 return true;
3098 else
3099 break; /* Handle with C routine */
3100 case INLINE_MATH_COS:
3101 if (genInlineCos(cUnit, mir))
3102 return true;
3103 else
3104 break; /* Handle with C routine */
3105 case INLINE_MATH_SIN:
3106 if (genInlineSin(cUnit, mir))
3107 return true;
3108 else
3109 break; /* Handle with C routine */
3110 case INLINE_MATH_ABS_FLOAT:
3111 return genInlinedAbsFloat(cUnit, mir);
3112 case INLINE_MATH_ABS_DOUBLE:
3113 return genInlinedAbsDouble(cUnit, mir);
3114 case INLINE_STRING_COMPARETO:
3115 case INLINE_STRING_EQUALS:
3116 break;
3117 default:
3118 dvmAbort();
Ben Chengba4fc8b2009-06-01 13:00:29 -07003119 }
3120
3121 /* Materialize pointer to retval & push */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003122 newLIR2(cUnit, THUMB_MOV_RR, r4PC, rGLUE);
3123 newLIR2(cUnit, THUMB_ADD_RI8, r4PC, offset);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003124 /* Push r4 and (just to take up space) r5) */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003125 newLIR1(cUnit, THUMB_PUSH, (1<<r4PC | 1<<rFP));
Ben Chengba4fc8b2009-06-01 13:00:29 -07003126
3127 /* Get code pointer to inline routine */
3128 loadConstant(cUnit, r4PC, (int)inLineTable[operation].func);
3129
3130 /* Export PC */
3131 genExportPC(cUnit, mir, r0, r1 );
3132
3133 /* Load arguments to r0 through r3 as applicable */
3134 for (i=0; i < dInsn->vA; i++) {
3135 loadValue(cUnit, dInsn->arg[i], i);
3136 }
3137 /* Call inline routine */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003138 newLIR1(cUnit, THUMB_BLX_R, r4PC);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003139
3140 /* Strip frame */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003141 newLIR1(cUnit, THUMB_ADD_SPI7, 2);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003142
3143 /* Did we throw? If so, redo under interpreter*/
Ben Chenge9695e52009-06-16 16:11:47 -07003144 genZeroCheck(cUnit, r0, mir->offset, NULL);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003145
Ben Chenge9695e52009-06-16 16:11:47 -07003146 resetRegisterScoreboard(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003147 break;
3148 }
3149 default:
3150 return true;
3151 }
3152 return false;
3153}
3154
3155static bool handleFmt51l(CompilationUnit *cUnit, MIR *mir)
3156{
3157 loadConstant(cUnit, r0, mir->dalvikInsn.vB_wide & 0xFFFFFFFFUL);
3158 loadConstant(cUnit, r1, (mir->dalvikInsn.vB_wide>>32) & 0xFFFFFFFFUL);
3159 storeValuePair(cUnit, r0, r1, mir->dalvikInsn.vA, r2);
3160 return false;
3161}
3162
3163/*****************************************************************************/
3164/*
3165 * The following are special processing routines that handle transfer of
3166 * controls between compiled code and the interpreter. Certain VM states like
3167 * Dalvik PC and special-purpose registers are reconstructed here.
3168 */
3169
Ben Cheng1efc9c52009-06-08 18:25:27 -07003170/* Chaining cell for code that may need warmup. */
3171static void handleNormalChainingCell(CompilationUnit *cUnit,
3172 unsigned int offset)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003173{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003174 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003175 offsetof(InterpState, jitToInterpEntries.dvmJitToInterpNormal) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003176 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003177 addWordData(cUnit, (int) (cUnit->method->insns + offset), true);
3178}
3179
3180/*
Ben Cheng1efc9c52009-06-08 18:25:27 -07003181 * Chaining cell for instructions that immediately following already translated
3182 * code.
Ben Chengba4fc8b2009-06-01 13:00:29 -07003183 */
Ben Cheng1efc9c52009-06-08 18:25:27 -07003184static void handleHotChainingCell(CompilationUnit *cUnit,
3185 unsigned int offset)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003186{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003187 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003188 offsetof(InterpState, jitToInterpEntries.dvmJitToTraceSelect) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003189 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003190 addWordData(cUnit, (int) (cUnit->method->insns + offset), true);
3191}
3192
3193/* Chaining cell for monomorphic method invocations. */
Ben Cheng38329f52009-07-07 14:19:20 -07003194static void handleInvokeSingletonChainingCell(CompilationUnit *cUnit,
3195 const Method *callee)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003196{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003197 newLIR3(cUnit, THUMB_LDR_RRI5, r0, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003198 offsetof(InterpState, jitToInterpEntries.dvmJitToTraceSelect) >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003199 newLIR1(cUnit, THUMB_BLX_R, r0);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003200 addWordData(cUnit, (int) (callee->insns), true);
3201}
3202
Ben Cheng38329f52009-07-07 14:19:20 -07003203/* Chaining cell for monomorphic method invocations. */
3204static void handleInvokePredictedChainingCell(CompilationUnit *cUnit)
3205{
3206
3207 /* Should not be executed in the initial state */
3208 addWordData(cUnit, PREDICTED_CHAIN_BX_PAIR_INIT, true);
3209 /* To be filled: class */
3210 addWordData(cUnit, PREDICTED_CHAIN_CLAZZ_INIT, true);
3211 /* To be filled: method */
3212 addWordData(cUnit, PREDICTED_CHAIN_METHOD_INIT, true);
3213 /*
3214 * Rechain count. The initial value of 0 here will trigger chaining upon
3215 * the first invocation of this callsite.
3216 */
3217 addWordData(cUnit, PREDICTED_CHAIN_COUNTER_INIT, true);
3218}
3219
Ben Chengba4fc8b2009-06-01 13:00:29 -07003220/* Load the Dalvik PC into r0 and jump to the specified target */
3221static void handlePCReconstruction(CompilationUnit *cUnit,
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003222 ArmLIR *targetLabel)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003223{
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003224 ArmLIR **pcrLabel =
3225 (ArmLIR **) cUnit->pcReconstructionList.elemList;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003226 int numElems = cUnit->pcReconstructionList.numUsed;
3227 int i;
3228 for (i = 0; i < numElems; i++) {
3229 dvmCompilerAppendLIR(cUnit, (LIR *) pcrLabel[i]);
3230 /* r0 = dalvik PC */
3231 loadConstant(cUnit, r0, pcrLabel[i]->operands[0]);
3232 genUnconditionalBranch(cUnit, targetLabel);
3233 }
3234}
3235
3236/* Entry function to invoke the backend of the JIT compiler */
3237void dvmCompilerMIR2LIR(CompilationUnit *cUnit)
3238{
3239 /* Used to hold the labels of each block */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003240 ArmLIR *labelList =
3241 dvmCompilerNew(sizeof(ArmLIR) * cUnit->numBlocks, true);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003242 GrowableList chainingListByType[CHAINING_CELL_LAST];
3243 int i;
3244
3245 /*
Ben Cheng38329f52009-07-07 14:19:20 -07003246 * Initialize various types chaining lists.
Ben Chengba4fc8b2009-06-01 13:00:29 -07003247 */
3248 for (i = 0; i < CHAINING_CELL_LAST; i++) {
3249 dvmInitGrowableList(&chainingListByType[i], 2);
3250 }
3251
3252 BasicBlock **blockList = cUnit->blockList;
3253
Bill Buzbee6e963e12009-06-17 16:56:19 -07003254 if (cUnit->executionCount) {
3255 /*
3256 * Reserve 6 bytes at the beginning of the trace
3257 * +----------------------------+
3258 * | execution count (4 bytes) |
3259 * +----------------------------+
3260 * | chain cell offset (2 bytes)|
3261 * +----------------------------+
3262 * ...and then code to increment the execution
3263 * count:
3264 * mov r0, pc @ move adr of "mov r0,pc" + 4 to r0
3265 * sub r0, #10 @ back up to addr of executionCount
3266 * ldr r1, [r0]
3267 * add r1, #1
3268 * str r1, [r0]
3269 */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003270 newLIR1(cUnit, ARM_16BIT_DATA, 0);
3271 newLIR1(cUnit, ARM_16BIT_DATA, 0);
Ben Chengcc6600c2009-06-22 14:45:16 -07003272 cUnit->chainCellOffsetLIR =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003273 (LIR *) newLIR1(cUnit, ARM_16BIT_DATA, CHAIN_CELL_OFFSET_TAG);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003274 cUnit->headerSize = 6;
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003275 newLIR2(cUnit, THUMB_MOV_RR_H2L, r0, rpc & THUMB_REG_MASK);
3276 newLIR2(cUnit, THUMB_SUB_RI8, r0, 10);
3277 newLIR3(cUnit, THUMB_LDR_RRI5, r1, r0, 0);
3278 newLIR2(cUnit, THUMB_ADD_RI8, r1, 1);
3279 newLIR3(cUnit, THUMB_STR_RRI5, r1, r0, 0);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003280 } else {
3281 /* Just reserve 2 bytes for the chain cell offset */
Ben Chengcc6600c2009-06-22 14:45:16 -07003282 cUnit->chainCellOffsetLIR =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003283 (LIR *) newLIR1(cUnit, ARM_16BIT_DATA, CHAIN_CELL_OFFSET_TAG);
Bill Buzbee6e963e12009-06-17 16:56:19 -07003284 cUnit->headerSize = 2;
3285 }
Ben Cheng1efc9c52009-06-08 18:25:27 -07003286
Ben Chengba4fc8b2009-06-01 13:00:29 -07003287 /* Handle the content in each basic block */
3288 for (i = 0; i < cUnit->numBlocks; i++) {
3289 blockList[i]->visited = true;
3290 MIR *mir;
3291
3292 labelList[i].operands[0] = blockList[i]->startOffset;
3293
3294 if (blockList[i]->blockType >= CHAINING_CELL_LAST) {
3295 /*
3296 * Append the label pseudo LIR first. Chaining cells will be handled
3297 * separately afterwards.
3298 */
3299 dvmCompilerAppendLIR(cUnit, (LIR *) &labelList[i]);
3300 }
3301
3302 if (blockList[i]->blockType == DALVIK_BYTECODE) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003303 labelList[i].opCode = ARM_PSEUDO_NORMAL_BLOCK_LABEL;
Ben Chenge9695e52009-06-16 16:11:47 -07003304 /* Reset the register state */
3305 resetRegisterScoreboard(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003306 } else {
3307 switch (blockList[i]->blockType) {
Ben Cheng1efc9c52009-06-08 18:25:27 -07003308 case CHAINING_CELL_NORMAL:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003309 labelList[i].opCode = ARM_PSEUDO_CHAINING_CELL_NORMAL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003310 /* handle the codegen later */
3311 dvmInsertGrowableList(
Ben Cheng1efc9c52009-06-08 18:25:27 -07003312 &chainingListByType[CHAINING_CELL_NORMAL], (void *) i);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003313 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003314 case CHAINING_CELL_INVOKE_SINGLETON:
3315 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003316 ARM_PSEUDO_CHAINING_CELL_INVOKE_SINGLETON;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003317 labelList[i].operands[0] =
3318 (int) blockList[i]->containingMethod;
3319 /* handle the codegen later */
3320 dvmInsertGrowableList(
Ben Cheng38329f52009-07-07 14:19:20 -07003321 &chainingListByType[CHAINING_CELL_INVOKE_SINGLETON],
3322 (void *) i);
3323 break;
3324 case CHAINING_CELL_INVOKE_PREDICTED:
3325 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003326 ARM_PSEUDO_CHAINING_CELL_INVOKE_PREDICTED;
Ben Cheng38329f52009-07-07 14:19:20 -07003327 /* handle the codegen later */
3328 dvmInsertGrowableList(
3329 &chainingListByType[CHAINING_CELL_INVOKE_PREDICTED],
3330 (void *) i);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003331 break;
Ben Cheng1efc9c52009-06-08 18:25:27 -07003332 case CHAINING_CELL_HOT:
Ben Chengba4fc8b2009-06-01 13:00:29 -07003333 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003334 ARM_PSEUDO_CHAINING_CELL_HOT;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003335 /* handle the codegen later */
3336 dvmInsertGrowableList(
Ben Cheng1efc9c52009-06-08 18:25:27 -07003337 &chainingListByType[CHAINING_CELL_HOT],
Ben Chengba4fc8b2009-06-01 13:00:29 -07003338 (void *) i);
3339 break;
3340 case PC_RECONSTRUCTION:
3341 /* Make sure exception handling block is next */
3342 labelList[i].opCode =
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003343 ARM_PSEUDO_PC_RECONSTRUCTION_BLOCK_LABEL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003344 assert (i == cUnit->numBlocks - 2);
3345 handlePCReconstruction(cUnit, &labelList[i+1]);
3346 break;
3347 case EXCEPTION_HANDLING:
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003348 labelList[i].opCode = ARM_PSEUDO_EH_BLOCK_LABEL;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003349 if (cUnit->pcReconstructionList.numUsed) {
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003350 newLIR3(cUnit, THUMB_LDR_RRI5, r1, rGLUE,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003351 offsetof(InterpState,
3352 jitToInterpEntries.dvmJitToInterpPunt)
3353 >> 2);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003354 newLIR1(cUnit, THUMB_BLX_R, r1);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003355 }
3356 break;
3357 default:
3358 break;
3359 }
3360 continue;
3361 }
Ben Chenge9695e52009-06-16 16:11:47 -07003362
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003363 ArmLIR *headLIR = NULL;
Ben Chenge9695e52009-06-16 16:11:47 -07003364
Ben Chengba4fc8b2009-06-01 13:00:29 -07003365 for (mir = blockList[i]->firstMIRInsn; mir; mir = mir->next) {
3366 OpCode dalvikOpCode = mir->dalvikInsn.opCode;
3367 InstructionFormat dalvikFormat =
3368 dexGetInstrFormat(gDvm.instrFormat, dalvikOpCode);
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003369 ArmLIR *boundaryLIR =
3370 newLIR2(cUnit, ARM_PSEUDO_DALVIK_BYTECODE_BOUNDARY,
Ben Chenge9695e52009-06-16 16:11:47 -07003371 mir->offset,dalvikOpCode);
3372 /* Remember the first LIR for this block */
3373 if (headLIR == NULL) {
3374 headLIR = boundaryLIR;
3375 }
Ben Chengba4fc8b2009-06-01 13:00:29 -07003376 bool notHandled;
3377 /*
3378 * Debugging: screen the opcode first to see if it is in the
3379 * do[-not]-compile list
3380 */
3381 bool singleStepMe =
3382 gDvmJit.includeSelectedOp !=
3383 ((gDvmJit.opList[dalvikOpCode >> 3] &
3384 (1 << (dalvikOpCode & 0x7))) !=
3385 0);
3386 if (singleStepMe || cUnit->allSingleStep) {
3387 notHandled = false;
3388 genInterpSingleStep(cUnit, mir);
3389 } else {
3390 opcodeCoverage[dalvikOpCode]++;
3391 switch (dalvikFormat) {
3392 case kFmt10t:
3393 case kFmt20t:
3394 case kFmt30t:
3395 notHandled = handleFmt10t_Fmt20t_Fmt30t(cUnit,
3396 mir, blockList[i], labelList);
3397 break;
3398 case kFmt10x:
3399 notHandled = handleFmt10x(cUnit, mir);
3400 break;
3401 case kFmt11n:
3402 case kFmt31i:
3403 notHandled = handleFmt11n_Fmt31i(cUnit, mir);
3404 break;
3405 case kFmt11x:
3406 notHandled = handleFmt11x(cUnit, mir);
3407 break;
3408 case kFmt12x:
3409 notHandled = handleFmt12x(cUnit, mir);
3410 break;
3411 case kFmt20bc:
3412 notHandled = handleFmt20bc(cUnit, mir);
3413 break;
3414 case kFmt21c:
3415 case kFmt31c:
3416 notHandled = handleFmt21c_Fmt31c(cUnit, mir);
3417 break;
3418 case kFmt21h:
3419 notHandled = handleFmt21h(cUnit, mir);
3420 break;
3421 case kFmt21s:
3422 notHandled = handleFmt21s(cUnit, mir);
3423 break;
3424 case kFmt21t:
3425 notHandled = handleFmt21t(cUnit, mir, blockList[i],
3426 labelList);
3427 break;
3428 case kFmt22b:
3429 case kFmt22s:
3430 notHandled = handleFmt22b_Fmt22s(cUnit, mir);
3431 break;
3432 case kFmt22c:
3433 notHandled = handleFmt22c(cUnit, mir);
3434 break;
3435 case kFmt22cs:
3436 notHandled = handleFmt22cs(cUnit, mir);
3437 break;
3438 case kFmt22t:
3439 notHandled = handleFmt22t(cUnit, mir, blockList[i],
3440 labelList);
3441 break;
3442 case kFmt22x:
3443 case kFmt32x:
3444 notHandled = handleFmt22x_Fmt32x(cUnit, mir);
3445 break;
3446 case kFmt23x:
3447 notHandled = handleFmt23x(cUnit, mir);
3448 break;
3449 case kFmt31t:
3450 notHandled = handleFmt31t(cUnit, mir);
3451 break;
3452 case kFmt3rc:
3453 case kFmt35c:
3454 notHandled = handleFmt35c_3rc(cUnit, mir, blockList[i],
3455 labelList);
3456 break;
3457 case kFmt3rms:
3458 case kFmt35ms:
3459 notHandled = handleFmt35ms_3rms(cUnit, mir,blockList[i],
3460 labelList);
3461 break;
3462 case kFmt3inline:
3463 notHandled = handleFmt3inline(cUnit, mir);
3464 break;
3465 case kFmt51l:
3466 notHandled = handleFmt51l(cUnit, mir);
3467 break;
3468 default:
3469 notHandled = true;
3470 break;
3471 }
3472 }
3473 if (notHandled) {
3474 LOGE("%#06x: Opcode 0x%x (%s) / Fmt %d not handled\n",
3475 mir->offset,
3476 dalvikOpCode, getOpcodeName(dalvikOpCode),
3477 dalvikFormat);
3478 dvmAbort();
3479 break;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003480 }
3481 }
Ben Chenge9695e52009-06-16 16:11:47 -07003482 /* Eliminate redundant loads/stores and delay stores into later slots */
3483 dvmCompilerApplyLocalOptimizations(cUnit, (LIR *) headLIR,
3484 cUnit->lastLIRInsn);
Ben Cheng1efc9c52009-06-08 18:25:27 -07003485 /*
3486 * Check if the block is terminated due to trace length constraint -
3487 * insert an unconditional branch to the chaining cell.
3488 */
3489 if (blockList[i]->needFallThroughBranch) {
3490 genUnconditionalBranch(cUnit,
3491 &labelList[blockList[i]->fallThrough->id]);
3492 }
3493
Ben Chengba4fc8b2009-06-01 13:00:29 -07003494 }
3495
Ben Chenge9695e52009-06-16 16:11:47 -07003496 /* Handle the chaining cells in predefined order */
Ben Chengba4fc8b2009-06-01 13:00:29 -07003497 for (i = 0; i < CHAINING_CELL_LAST; i++) {
3498 size_t j;
3499 int *blockIdList = (int *) chainingListByType[i].elemList;
3500
3501 cUnit->numChainingCells[i] = chainingListByType[i].numUsed;
3502
3503 /* No chaining cells of this type */
3504 if (cUnit->numChainingCells[i] == 0)
3505 continue;
3506
3507 /* Record the first LIR for a new type of chaining cell */
3508 cUnit->firstChainingLIR[i] = (LIR *) &labelList[blockIdList[0]];
3509
3510 for (j = 0; j < chainingListByType[i].numUsed; j++) {
3511 int blockId = blockIdList[j];
3512
3513 /* Align this chaining cell first */
Bill Buzbee89efc3d2009-07-28 11:22:22 -07003514 newLIR0(cUnit, ARM_PSEUDO_ALIGN4);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003515
3516 /* Insert the pseudo chaining instruction */
3517 dvmCompilerAppendLIR(cUnit, (LIR *) &labelList[blockId]);
3518
3519
3520 switch (blockList[blockId]->blockType) {
Ben Cheng1efc9c52009-06-08 18:25:27 -07003521 case CHAINING_CELL_NORMAL:
3522 handleNormalChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003523 blockList[blockId]->startOffset);
3524 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003525 case CHAINING_CELL_INVOKE_SINGLETON:
3526 handleInvokeSingletonChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003527 blockList[blockId]->containingMethod);
3528 break;
Ben Cheng38329f52009-07-07 14:19:20 -07003529 case CHAINING_CELL_INVOKE_PREDICTED:
3530 handleInvokePredictedChainingCell(cUnit);
3531 break;
Ben Cheng1efc9c52009-06-08 18:25:27 -07003532 case CHAINING_CELL_HOT:
3533 handleHotChainingCell(cUnit,
Ben Chengba4fc8b2009-06-01 13:00:29 -07003534 blockList[blockId]->startOffset);
3535 break;
3536 default:
3537 dvmAbort();
3538 break;
3539 }
3540 }
3541 }
Ben Chenge9695e52009-06-16 16:11:47 -07003542
3543 dvmCompilerApplyGlobalOptimizations(cUnit);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003544}
3545
3546/* Accept the work and start compiling */
Bill Buzbee716f1202009-07-23 13:22:09 -07003547bool dvmCompilerDoWork(CompilerWorkOrder *work)
Ben Chengba4fc8b2009-06-01 13:00:29 -07003548{
Bill Buzbee716f1202009-07-23 13:22:09 -07003549 bool res;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003550
3551 if (gDvmJit.codeCacheFull) {
Bill Buzbee716f1202009-07-23 13:22:09 -07003552 return false;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003553 }
3554
3555 switch (work->kind) {
3556 case kWorkOrderMethod:
Bill Buzbee716f1202009-07-23 13:22:09 -07003557 res = dvmCompileMethod(work->info, &work->result);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003558 break;
3559 case kWorkOrderTrace:
Ben Cheng1efc9c52009-06-08 18:25:27 -07003560 /* Start compilation with maximally allowed trace length */
Bill Buzbee716f1202009-07-23 13:22:09 -07003561 res = dvmCompileTrace(work->info, JIT_MAX_TRACE_LEN, &work->result);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003562 break;
3563 default:
Bill Buzbee716f1202009-07-23 13:22:09 -07003564 res = false;
Ben Chengba4fc8b2009-06-01 13:00:29 -07003565 dvmAbort();
3566 }
3567 return res;
3568}
3569
Ben Chengba4fc8b2009-06-01 13:00:29 -07003570/* Architectural-specific debugging helpers go here */
3571void dvmCompilerArchDump(void)
3572{
3573 /* Print compiled opcode in this VM instance */
3574 int i, start, streak;
3575 char buf[1024];
3576
3577 streak = i = 0;
3578 buf[0] = 0;
3579 while (opcodeCoverage[i] == 0 && i < 256) {
3580 i++;
3581 }
3582 if (i == 256) {
3583 return;
3584 }
3585 for (start = i++, streak = 1; i < 256; i++) {
3586 if (opcodeCoverage[i]) {
3587 streak++;
3588 } else {
3589 if (streak == 1) {
3590 sprintf(buf+strlen(buf), "%x,", start);
3591 } else {
3592 sprintf(buf+strlen(buf), "%x-%x,", start, start + streak - 1);
3593 }
3594 streak = 0;
3595 while (opcodeCoverage[i] == 0 && i < 256) {
3596 i++;
3597 }
3598 if (i < 256) {
3599 streak = 1;
3600 start = i;
3601 }
3602 }
3603 }
3604 if (streak) {
3605 if (streak == 1) {
3606 sprintf(buf+strlen(buf), "%x", start);
3607 } else {
3608 sprintf(buf+strlen(buf), "%x-%x", start, start + streak - 1);
3609 }
3610 }
3611 if (strlen(buf)) {
Ben Cheng8b258bf2009-06-24 17:27:07 -07003612 LOGD("dalvik.vm.jit.op = %s", buf);
Ben Chengba4fc8b2009-06-01 13:00:29 -07003613 }
3614}