| Index: runtime/vm/assembler_arm_test.cc
|
| ===================================================================
|
| --- runtime/vm/assembler_arm_test.cc (revision 18843)
|
| +++ runtime/vm/assembler_arm_test.cc (working copy)
|
| @@ -26,6 +26,897 @@
|
| EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(SimpleCode, test->entry()));
|
| }
|
|
|
| +
|
| +ASSEMBLER_TEST_GENERATE(MoveNegated, assembler) {
|
| + __ mvn(R0, ShifterOperand(42));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(MoveNegated, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*MoveNegated)();
|
| + EXPECT_EQ(~42, EXECUTE_TEST_CODE_INT32(MoveNegated, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(MoveRotImm, assembler) {
|
| + ShifterOperand shifter_op;
|
| + EXPECT(ShifterOperand::CanHold(0x00550000, &shifter_op));
|
| + __ mov(R0, shifter_op);
|
| + EXPECT(ShifterOperand::CanHold(0x30000003, &shifter_op));
|
| + __ add(R0, R0, shifter_op);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(MoveRotImm, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*MoveRotImm)();
|
| + EXPECT_EQ(0x30550003, EXECUTE_TEST_CODE_INT32(MoveRotImm, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(MovImm16, assembler) {
|
| + __ movw(R0, 0x5678);
|
| + __ movt(R0, 0x1234);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(MovImm16, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*MovImm16)();
|
| + EXPECT_EQ(0x12345678, EXECUTE_TEST_CODE_INT32(MovImm16, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(LoadImmediate, assembler) {
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ cmp(R0, ShifterOperand(0));
|
| + __ LoadImmediate(R0, 0x12345678, EQ);
|
| + __ LoadImmediate(R0, 0x87654321, NE);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(LoadImmediate, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*LoadImmediate)();
|
| + EXPECT_EQ(0x12345678, EXECUTE_TEST_CODE_INT32(LoadImmediate, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Vmov, assembler) {
|
| + __ mov(R3, ShifterOperand(43));
|
| + __ mov(R1, ShifterOperand(41));
|
| + __ vmovsrr(S1, R1, R3); // S1:S2 = 41:43
|
| + __ vmovs(S0, S2); // S0 = S2, S0:S1 == 43:41
|
| + __ vmovd(D2, D0); // D2 = D0, S4:S5 == 43:41
|
| + __ vmovrs(R3, S5); // R3 = S5, R3 == 41
|
| + __ vmovrrs(R1, R2, S4); // R1:R2 = S4:S5, R1:R2 == 43:41
|
| + __ vmovdrr(D3, R3, R2); // D3 = R3:R2, S6:S7 == 41:41
|
| + __ vmovsr(S7, R1); // S7 = R1, S6:S7 == 41:43
|
| + __ vmovrrd(R0, R1, D3); // R0:R1 = D3, R0:R1 == 41:43
|
| + __ sub(R0, R1, ShifterOperand(R0)); // 43-41
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Vmov, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Vmov)();
|
| + EXPECT_EQ(2, EXECUTE_TEST_CODE_INT32(Vmov, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(SingleVLoadStore, assembler) {
|
| + __ LoadImmediate(R0, bit_cast<int32_t, float>(12.3f));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R0, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ vldrs(S0, Address(R2, (-kWordSize * 30)));
|
| + __ vadds(S0, S0, S0);
|
| + __ vstrs(S0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R0, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(SingleVLoadStore, test) {
|
| + EXPECT(test != NULL);
|
| + typedef float (*SingleVLoadStore)();
|
| + float res = EXECUTE_TEST_CODE_FLOAT(SingleVLoadStore, test->entry());
|
| + EXPECT_FLOAT_EQ(2*12.3f, res, 0.001f);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(DoubleVLoadStore, assembler) {
|
| + int64_t value = bit_cast<int64_t, double>(12.3);
|
| + __ LoadImmediate(R0, Utils::Low32Bits(value));
|
| + __ LoadImmediate(R1, Utils::High32Bits(value));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R0, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ str(R1, Address(R2, (-kWordSize * 29)));
|
| + __ vldrd(D0, Address(R2, (-kWordSize * 30)));
|
| + __ vaddd(D0, D0, D0);
|
| + __ vstrd(D0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R1, Address(R2, (-kWordSize * 29)));
|
| + __ ldr(R0, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(DoubleVLoadStore, test) {
|
| + EXPECT(test != NULL);
|
| + typedef double (*DoubleVLoadStore)();
|
| + double res = EXECUTE_TEST_CODE_DOUBLE(DoubleVLoadStore, test->entry());
|
| + EXPECT_FLOAT_EQ(2*12.3, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(SingleFPOperations, assembler) {
|
| + __ LoadSImmediate(S0, 12.3f);
|
| + __ LoadSImmediate(S1, 3.4f);
|
| + __ vnegs(S0, S0); // -12.3f
|
| + __ vabss(S0, S0); // 12.3f
|
| + __ vadds(S0, S0, S1); // 15.7f
|
| + __ vmuls(S0, S0, S1); // 53.38f
|
| + __ vsubs(S0, S0, S1); // 49.98f
|
| + __ vdivs(S0, S0, S1); // 14.7f
|
| + __ vsqrts(S0, S0); // 3.8340579f
|
| + __ vmovrs(R0, S0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(SingleFPOperations, test) {
|
| + EXPECT(test != NULL);
|
| + typedef float (*SingleFPOperations)();
|
| + float res = EXECUTE_TEST_CODE_FLOAT(SingleFPOperations, test->entry());
|
| + EXPECT_FLOAT_EQ(3.8340579f, res, 0.001f);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(DoubleFPOperations, assembler) {
|
| + __ LoadDImmediate(D0, 12.3, R0);
|
| + __ LoadDImmediate(D1, 3.4, R0);
|
| + __ vnegd(D0, D0); // -12.3
|
| + __ vabsd(D0, D0); // 12.3
|
| + __ vaddd(D0, D0, D1); // 15.7
|
| + __ vmuld(D0, D0, D1); // 53.38
|
| + __ vsubd(D0, D0, D1); // 49.98
|
| + __ vdivd(D0, D0, D1); // 14.7
|
| + __ vsqrtd(D0, D0); // 3.8340579
|
| + __ vmovrrd(R0, R1, D0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(DoubleFPOperations, test) {
|
| + EXPECT(test != NULL);
|
| + typedef double (*DoubleFPOperations)();
|
| + double res = EXECUTE_TEST_CODE_DOUBLE(DoubleFPOperations, test->entry());
|
| + EXPECT_FLOAT_EQ(3.8340579, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(IntToDoubleConversion, assembler) {
|
| + __ mov(R3, ShifterOperand(6));
|
| + __ vmovsr(S3, R3);
|
| + __ vcvtdi(D1, S3);
|
| + __ vmovrrd(R0, R1, D1);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(IntToDoubleConversion, test) {
|
| + typedef double (*IntToDoubleConversionCode)();
|
| + EXPECT(test != NULL);
|
| + double res = EXECUTE_TEST_CODE_DOUBLE(IntToDoubleConversionCode,
|
| + test->entry());
|
| + EXPECT_FLOAT_EQ(6.0, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(LongToDoubleConversion, assembler) {
|
| + int64_t value = 60000000000LL;
|
| + __ LoadImmediate(R0, Utils::Low32Bits(value));
|
| + __ LoadImmediate(R1, Utils::High32Bits(value));
|
| + __ vmovsr(S0, R0);
|
| + __ vmovsr(S2, R1);
|
| + __ vcvtdu(D0, S0);
|
| + __ vcvtdi(D1, S2);
|
| + __ LoadDImmediate(D2, 1.0 * (1LL << 32), R0);
|
| + __ vmlad(D0, D1, D2);
|
| + __ vmovrrd(R0, R1, D0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(LongToDoubleConversion, test) {
|
| + typedef double (*LongToDoubleConversionCode)();
|
| + EXPECT(test != NULL);
|
| + double res = EXECUTE_TEST_CODE_DOUBLE(LongToDoubleConversionCode,
|
| + test->entry());
|
| + EXPECT_FLOAT_EQ(60000000000.0, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(IntToFloatConversion, assembler) {
|
| + __ mov(R3, ShifterOperand(6));
|
| + __ vmovsr(S3, R3);
|
| + __ vcvtsi(S1, S3);
|
| + __ vmovrs(R0, S1);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(IntToFloatConversion, test) {
|
| + typedef float (*IntToFloatConversionCode)();
|
| + EXPECT(test != NULL);
|
| + float res = EXECUTE_TEST_CODE_FLOAT(IntToFloatConversionCode, test->entry());
|
| + EXPECT_FLOAT_EQ(6.0, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(FloatToIntConversion, assembler) {
|
| + __ vmovsr(S1, R0);
|
| + __ vcvtis(S0, S1);
|
| + __ vmovrs(R0, S0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(FloatToIntConversion, test) {
|
| + typedef int (*FloatToIntConversion)(float arg);
|
| + EXPECT(test != NULL);
|
| + EXPECT_EQ(12,
|
| + EXECUTE_TEST_CODE_INT32_F(FloatToIntConversion, test->entry(),
|
| + 12.8f));
|
| + EXPECT_EQ(INT_MIN,
|
| + EXECUTE_TEST_CODE_INT32_F(FloatToIntConversion, test->entry(),
|
| + -FLT_MAX));
|
| + EXPECT_EQ(INT_MAX,
|
| + EXECUTE_TEST_CODE_INT32_F(FloatToIntConversion, test->entry(),
|
| + FLT_MAX));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(DoubleToIntConversion, assembler) {
|
| + __ vmovdrr(D1, R0, R1);
|
| + __ vcvtid(S0, D1);
|
| + __ vmovrs(R0, S0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(DoubleToIntConversion, test) {
|
| + typedef int (*DoubleToIntConversion)(double arg);
|
| + EXPECT(test != NULL);
|
| + EXPECT_EQ(12,
|
| + EXECUTE_TEST_CODE_INT32_D(DoubleToIntConversion, test->entry(),
|
| + 12.8));
|
| + EXPECT_EQ(INT_MIN,
|
| + EXECUTE_TEST_CODE_INT32_D(DoubleToIntConversion, test->entry(),
|
| + -DBL_MAX));
|
| + EXPECT_EQ(INT_MAX,
|
| + EXECUTE_TEST_CODE_INT32_D(DoubleToIntConversion, test->entry(),
|
| + DBL_MAX));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(FloatToDoubleConversion, assembler) {
|
| + __ LoadSImmediate(S1, 12.8f);
|
| + __ vcvtds(D2, S1);
|
| + __ vmovrrd(R0, R1, D2);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(FloatToDoubleConversion, test) {
|
| + typedef double (*FloatToDoubleConversionCode)();
|
| + EXPECT(test != NULL);
|
| + double res = EXECUTE_TEST_CODE_DOUBLE(FloatToDoubleConversionCode,
|
| + test->entry());
|
| + EXPECT_FLOAT_EQ(12.8, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(DoubleToFloatConversion, assembler) {
|
| + __ LoadDImmediate(D1, 12.8, R0);
|
| + __ vcvtsd(S3, D1);
|
| + __ vmovrs(R0, S3);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(DoubleToFloatConversion, test) {
|
| + typedef float (*DoubleToFloatConversionCode)();
|
| + EXPECT(test != NULL);
|
| + float res = EXECUTE_TEST_CODE_FLOAT(DoubleToFloatConversionCode,
|
| + test->entry());
|
| + EXPECT_FLOAT_EQ(12.8, res, 0.001);
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(FloatCompare, assembler) {
|
| + // Test 12.3f vs 12.5f.
|
| + __ LoadSImmediate(S0, 12.3f);
|
| + __ LoadSImmediate(S1, 12.5f);
|
| +
|
| + // Count errors in R0. R0 is zero if no errors found.
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ vcmps(S0, S1);
|
| + __ vmstat();
|
| + __ add(R0, R0, ShifterOperand(1), VS); // Error if unordered (Nan).
|
| + __ add(R0, R0, ShifterOperand(2), GT); // Error if greater.
|
| + __ add(R0, R0, ShifterOperand(4), EQ); // Error if equal.
|
| + __ add(R0, R0, ShifterOperand(8), PL); // Error if not less.
|
| +
|
| + // Test NaN.
|
| + // Create NaN by dividing 0.0f/0.0f.
|
| + __ LoadSImmediate(S1, 0.0f);
|
| + __ vdivs(S1, S1, S1);
|
| + __ vcmps(S1, S1);
|
| + __ vmstat();
|
| + __ add(R0, R0, ShifterOperand(16), VC); // Error if not unordered (not Nan).
|
| +
|
| + // R0 is 0 if all tests passed.
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(FloatCompare, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*FloatCompare)();
|
| + EXPECT_EQ(0, EXECUTE_TEST_CODE_INT32(FloatCompare, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(DoubleCompare, assembler) {
|
| + // Test 12.3 vs 12.5.
|
| + __ LoadDImmediate(D0, 12.3, R1);
|
| + __ LoadDImmediate(D1, 12.5, R1);
|
| +
|
| + // Count errors in R0. R0 is zero if no errors found.
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ vcmpd(D0, D1);
|
| + __ vmstat();
|
| + __ add(R0, R0, ShifterOperand(1), VS); // Error if unordered (Nan).
|
| + __ add(R0, R0, ShifterOperand(2), GT); // Error if greater.
|
| + __ add(R0, R0, ShifterOperand(4), EQ); // Error if equal.
|
| + __ add(R0, R0, ShifterOperand(8), PL); // Error if not less.
|
| +
|
| + // Test NaN.
|
| + // Create NaN by dividing 0.0/0.0.
|
| + __ LoadDImmediate(D1, 0.0, R1);
|
| + __ vdivd(D1, D1, D1);
|
| + __ vcmpd(D1, D1);
|
| + __ vmstat();
|
| + __ add(R0, R0, ShifterOperand(16), VC); // Error if not unordered (not Nan).
|
| +
|
| + // R0 is 0 if all tests passed.
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(DoubleCompare, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*DoubleCompare)();
|
| + EXPECT_EQ(0, EXECUTE_TEST_CODE_INT32(DoubleCompare, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Loop, assembler) {
|
| + Label loop_entry;
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ mov(R1, ShifterOperand(2));
|
| + __ Bind(&loop_entry);
|
| + __ mov(R0, ShifterOperand(R0, LSL, 1));
|
| + __ movs(R1, ShifterOperand(R1, LSR, 1));
|
| + __ b(&loop_entry, NE);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Loop, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Loop)();
|
| + EXPECT_EQ(4, EXECUTE_TEST_CODE_INT32(Loop, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(ForwardBranch, assembler) {
|
| + Label skip;
|
| + __ mov(R0, ShifterOperand(42));
|
| + __ b(&skip);
|
| + __ mov(R0, ShifterOperand(11));
|
| + __ Bind(&skip);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(ForwardBranch, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*ForwardBranch)();
|
| + EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(ForwardBranch, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(LoadStore, assembler) {
|
| + __ mov(R1, ShifterOperand(123));
|
| + __ Push(R1);
|
| + __ Pop(R0);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(LoadStore, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*LoadStore)();
|
| + EXPECT_EQ(123, EXECUTE_TEST_CODE_INT32(LoadStore, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(AddSub, assembler) {
|
| + __ mov(R1, ShifterOperand(40));
|
| + __ sub(R1, R1, ShifterOperand(2));
|
| + __ add(R0, R1, ShifterOperand(4));
|
| + __ rsbs(R0, R0, ShifterOperand(100));
|
| + __ rsc(R0, R0, ShifterOperand(100));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(AddSub, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*AddSub)();
|
| + EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(AddSub, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Semaphore, assembler) {
|
| + __ mov(R0, ShifterOperand(40));
|
| + __ mov(R1, ShifterOperand(42));
|
| + __ Push(R0);
|
| + Label retry;
|
| + __ Bind(&retry);
|
| + __ ldrex(R0, SP);
|
| + __ strex(IP, R1, SP); // IP == 0, success
|
| + __ tst(IP, ShifterOperand(0));
|
| + __ b(&retry, NE); // NE if context switch occurred between ldrex and strex.
|
| + __ Pop(R0); // 42
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Semaphore, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Semaphore)();
|
| + EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(Semaphore, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(FailedSemaphore, assembler) {
|
| + __ mov(R0, ShifterOperand(40));
|
| + __ mov(R1, ShifterOperand(42));
|
| + __ Push(R0);
|
| + __ ldrex(R0, SP);
|
| + __ clrex(); // Simulate a context switch.
|
| + __ strex(IP, R1, SP); // IP == 1, failure
|
| + __ Pop(R0); // 40
|
| + __ add(R0, R0, ShifterOperand(IP));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(FailedSemaphore, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*FailedSemaphore)();
|
| + EXPECT_EQ(41, EXECUTE_TEST_CODE_INT32(FailedSemaphore, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(AndOrr, assembler) {
|
| + __ mov(R1, ShifterOperand(40));
|
| + __ mov(R2, ShifterOperand(0));
|
| + __ and_(R1, R2, ShifterOperand(R1));
|
| + __ mov(R3, ShifterOperand(42));
|
| + __ orr(R0, R1, ShifterOperand(R3));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(AndOrr, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*AndOrr)();
|
| + EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(AndOrr, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Orrs, assembler) {
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ tst(R0, ShifterOperand(R1)); // Set zero-flag.
|
| + __ orrs(R0, R0, ShifterOperand(1)); // Clear zero-flag.
|
| + __ mov(PC, ShifterOperand(LR), EQ);
|
| + __ mov(R0, ShifterOperand(42));
|
| + __ mov(PC, ShifterOperand(LR), NE); // Only this return should fire.
|
| + __ mov(R0, ShifterOperand(2));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Orrs, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Orrs)();
|
| + EXPECT_EQ(42, EXECUTE_TEST_CODE_INT32(Orrs, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Multiply, assembler) {
|
| + __ mov(R1, ShifterOperand(20));
|
| + __ mov(R2, ShifterOperand(40));
|
| + __ mul(R3, R2, R1);
|
| + __ mov(R0, ShifterOperand(R3));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Multiply, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Multiply)();
|
| + EXPECT_EQ(800, EXECUTE_TEST_CODE_INT32(Multiply, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(QuotientRemainder, assembler) {
|
| + __ vmovsr(S2, R0);
|
| + __ vmovsr(S4, R2);
|
| + __ vcvtdi(D1, S2);
|
| + __ vcvtdi(D2, S4);
|
| + __ vdivd(D0, D1, D2);
|
| + __ vcvtid(S0, D0);
|
| + __ vmovrs(R1, S0); // r1 = r0/r2
|
| + __ mls(R0, R1, R2, R0); // r0 = r0 - r1*r2
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(QuotientRemainder, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int64_t (*QuotientRemainder)(int64_t dividend, int64_t divisor);
|
| + EXPECT_EQ(0x1000400000da8LL,
|
| + EXECUTE_TEST_CODE_INT64_LL(QuotientRemainder, test->entry(),
|
| + 0x12345678, 0x1234));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(LongMultiply, assembler) {
|
| + __ Push(R4);
|
| + __ Mov(IP, R0);
|
| + __ mul(R4, R2, R1);
|
| + __ umull(R0, R1, R2, IP);
|
| + __ mla(R2, IP, R3, R4);
|
| + __ add(R1, R2, ShifterOperand(R1));
|
| + __ Pop(R4);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(LongMultiply, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int64_t (*LongMultiply)(int64_t operand0, int64_t operand1);
|
| + EXPECT_EQ(6, EXECUTE_TEST_CODE_INT64_LL(LongMultiply, test->entry(), -3, -2));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Clz, assembler) {
|
| + Label error;
|
| +
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ clz(R1, R0);
|
| + __ cmp(R1, ShifterOperand(32));
|
| + __ b(&error, NE);
|
| + __ mov(R2, ShifterOperand(42));
|
| + __ clz(R2, R2);
|
| + __ cmp(R2, ShifterOperand(26));
|
| + __ b(&error, NE);
|
| + __ mvn(R0, ShifterOperand(0));
|
| + __ clz(R1, R0);
|
| + __ cmp(R1, ShifterOperand(0));
|
| + __ b(&error, NE);
|
| + __ Lsr(R0, R0, 3);
|
| + __ clz(R1, R0);
|
| + __ cmp(R1, ShifterOperand(3));
|
| + __ b(&error, NE);
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ mov(PC, ShifterOperand(LR));
|
| + __ Bind(&error);
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Clz, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Clz)();
|
| + EXPECT_EQ(0, EXECUTE_TEST_CODE_INT32(Clz, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Tst, assembler) {
|
| + Label skip;
|
| +
|
| + __ mov(R0, ShifterOperand(42));
|
| + __ mov(R1, ShifterOperand(40));
|
| + __ tst(R1, ShifterOperand(0));
|
| + __ b(&skip, NE);
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ Bind(&skip);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Tst, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(0, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Lsl, assembler) {
|
| + Label skip;
|
| +
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ mov(R0, ShifterOperand(R0, LSL, 1));
|
| + __ mov(R1, ShifterOperand(1));
|
| + __ mov(R0, ShifterOperand(R0, LSL, R1));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Lsl, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(4, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Lsr, assembler) {
|
| + Label skip;
|
| +
|
| + __ mov(R0, ShifterOperand(4));
|
| + __ mov(R0, ShifterOperand(R0, LSR, 1));
|
| + __ mov(R1, ShifterOperand(1));
|
| + __ mov(R0, ShifterOperand(R0, LSR, R1));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Lsr, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(1, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Lsr1, assembler) {
|
| + Label skip;
|
| +
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ Lsl(R0, R0, 31);
|
| + __ Lsr(R0, R0, 31);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Lsr1, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(1, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Asr1, assembler) {
|
| + Label skip;
|
| +
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ Lsl(R0, R0, 31);
|
| + __ Asr(R0, R0, 31);
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Asr1, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(-1, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Rsb, assembler) {
|
| + __ mov(R3, ShifterOperand(10));
|
| + __ rsb(R0, R3, ShifterOperand(42));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Rsb, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Rsb)();
|
| + EXPECT_EQ(32, EXECUTE_TEST_CODE_INT32(Rsb, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrh, assembler) {
|
| + Label Test1;
|
| + Label Test2;
|
| + Label Done;
|
| +
|
| + __ mov(R1, ShifterOperand(0x11));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R1, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ ldrh(R0, Address(R2, (-kWordSize * 30)));
|
| + __ cmp(R0, ShifterOperand(0x11));
|
| + __ b(&Test1, EQ);
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ b(&Done);
|
| + __ Bind(&Test1);
|
| +
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ strh(R0, Address(R2, (-kWordSize * 30)));
|
| + __ ldrh(R1, Address(R2, (-kWordSize * 30)));
|
| + __ cmp(R1, ShifterOperand(0));
|
| + __ b(&Test2, EQ);
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ b(&Done);
|
| + __ Bind(&Test2);
|
| +
|
| + __ mov(R0, ShifterOperand(0));
|
| + __ Bind(&Done);
|
| + __ ldr(R1, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrh, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(0, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrsb, assembler) {
|
| + __ mov(R1, ShifterOperand(0xFF));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R1, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ ldrsb(R0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R1, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrsb, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(-1, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrb, assembler) {
|
| + __ mov(R1, ShifterOperand(0xFF));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R1, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ ldrb(R0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R1, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrb, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(0xff, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrsh, assembler) {
|
| + __ mov(R1, ShifterOperand(0xFF));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R1, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ ldrsh(R0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R1, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrsh, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(0xff, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrh1, assembler) {
|
| + __ mov(R1, ShifterOperand(0xFF));
|
| + __ mov(R2, ShifterOperand(SP));
|
| + __ str(R1, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ ldrh(R0, Address(R2, (-kWordSize * 30)));
|
| + __ ldr(R1, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrh1, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(0xff, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldrd, assembler) {
|
| + __ Mov(IP, SP);
|
| + __ strd(R2, Address(SP, (-kWordSize * 30), Address::PreIndex));
|
| + __ strd(R0, Address(IP, (-kWordSize * 28)));
|
| + __ ldrd(R2, Address(IP, (-kWordSize * 28)));
|
| + __ ldrd(R0, Address(SP, (kWordSize * 30), Address::PostIndex));
|
| + __ sub(R0, R0, ShifterOperand(R2));
|
| + __ add(R1, R1, ShifterOperand(R3));
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldrd, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int64_t (*Tst)(int64_t r0r1, int64_t r2r3);
|
| + EXPECT_EQ(0x0000444400002222LL, EXECUTE_TEST_CODE_INT64_LL(
|
| + Tst, test->entry(), 0x0000111100000000LL, 0x0000333300002222LL));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_GENERATE(Ldm_stm_da, assembler) {
|
| + __ mov(R0, ShifterOperand(1));
|
| + __ mov(R1, ShifterOperand(7));
|
| + __ mov(R2, ShifterOperand(11));
|
| + __ mov(R3, ShifterOperand(31));
|
| + __ Push(R5); // We use R5 as accumulator.
|
| + __ Push(R5);
|
| + __ Push(R5);
|
| + __ Push(R5);
|
| + __ Push(R5);
|
| + __ Push(R0); // Make room, so we can decrement after.
|
| + __ stm(DA_W, SP, (1 << R0 | 1 << R1 | 1 << R2 | 1 << R3));
|
| + __ str(R2, Address(SP)); // Should be a free slot.
|
| + __ ldr(R5, Address(SP, 1 * kWordSize)); // R0. R5 = +1.
|
| + __ ldr(IP, Address(SP, 2 * kWordSize)); // R1.
|
| + __ sub(R5, R5, ShifterOperand(IP)); // -R1. R5 = -6.
|
| + __ ldr(IP, Address(SP, 3 * kWordSize)); // R2.
|
| + __ add(R5, R5, ShifterOperand(IP)); // +R2. R5 = +5.
|
| + __ ldr(IP, Address(SP, 4 * kWordSize)); // R3.
|
| + __ sub(R5, R5, ShifterOperand(IP)); // -R3. R5 = -26.
|
| + __ ldm(IB_W, SP, (1 << R0 | 1 << R1 | 1 << R2 | 1 << R3));
|
| + // Same operations again. But this time from the restore registers.
|
| + __ add(R5, R5, ShifterOperand(R0));
|
| + __ sub(R5, R5, ShifterOperand(R1));
|
| + __ add(R5, R5, ShifterOperand(R2));
|
| + __ sub(R0, R5, ShifterOperand(R3)); // R0 = result = -52.
|
| + __ Pop(R1); // Remove storage slot.
|
| + __ Pop(R5); // Restore R5.
|
| + __ Pop(R5); // Restore R5.
|
| + __ Pop(R5); // Restore R5.
|
| + __ Pop(R5); // Restore R5.
|
| + __ Pop(R5); // Restore R5.
|
| + __ mov(PC, ShifterOperand(LR));
|
| +}
|
| +
|
| +
|
| +ASSEMBLER_TEST_RUN(Ldm_stm_da, test) {
|
| + EXPECT(test != NULL);
|
| + typedef int (*Tst)();
|
| + EXPECT_EQ(-52, EXECUTE_TEST_CODE_INT32(Tst, test->entry()));
|
| +}
|
| +
|
| +
|
| } // namespace dart
|
|
|
| #endif // defined TARGET_ARCH_ARM
|
|
|