Fixes to support ARMv5 lego mindstorm.

runtime/vm/intrinsifier_arm.cc

 // Copyright (c) 2013, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/globals.h"  // Needed here to get TARGET_ARCH_ARM.
 #if defined(TARGET_ARCH_ARM)
 
 #include "vm/intrinsifier.h"
 
 #include "vm/assembler.h"
@@ skipping 458 matching lines @@
       ExternalTypedData::data_offset() - kHeapObjectTag);
   __ SmiUntag(R0);
   __ ldrb(R0, Address(R1, R0));
   __ SmiTag(R0);
   __ Ret();
   __ Bind(&fall_through);
 }
 
 
 void Intrinsifier::Float64Array_getIndexed(Assembler* assembler) {
+  if (!TargetCPUFeatures::vfp_supported()) {
+    return;
+  }
   Label fall_through;
   __ ldr(R0, Address(SP, + 0 * kWordSize));  // Index.
   __ ldr(R1, Address(SP, + 1 * kWordSize));  // Array.
   __ tst(R0, Operand(kSmiTagMask));
   __ b(&fall_through, NE);  // Index is not a smi, fall through.
 
   // Range check.
   __ ldr(R6, FieldAddress(R1, TypedData::length_offset()));
   __ cmp(R0, Operand(R6));
   __ b(&fall_through, CS);
@@ skipping 15 matching lines @@
                  &fall_through,
                  R0,  // Result register.
                  R1);
   __ StoreDToOffset(D0, R0, Double::value_offset() - kHeapObjectTag);
   __ Ret();
   __ Bind(&fall_through);
 }
 
 
 void Intrinsifier::Float64Array_setIndexed(Assembler* assembler) {
+  if (!TargetCPUFeatures::vfp_supported()) {
+    return;
+  }
   Label fall_through;
   __ ldr(R0, Address(SP, + 1 * kWordSize));  // Index.
   __ ldr(R1, Address(SP, + 2 * kWordSize));  // Array.
   __ tst(R0, Operand(kSmiTagMask));
   __ b(&fall_through, NE);  // Index is not a smi, fall through.
 
   // Range check.
   __ ldr(R6, FieldAddress(R1, TypedData::length_offset()));
   __ cmp(R0, Operand(R6));
   __ b(&fall_through, CS);
@@ skipping 92 matching lines @@
   Label fall_through;
   TestBothArgumentsSmis(assembler, &fall_through);
   __ subs(R0, R1, Operand(R0));  // Subtract.
   __ bx(LR, VC);  // Return if no overflow.
   // Otherwise fall through.
   __ Bind(&fall_through);
 }
 
 
 void Intrinsifier::Integer_mulFromInteger(Assembler* assembler) {
-  Label fall_through;
-
-  TestBothArgumentsSmis(assembler, &fall_through);  // checks two smis
-  __ SmiUntag(R0);  // Untags R6. We only want result shifted by one.
-
   if (TargetCPUFeatures::arm_version() == ARMv7) {
+    Label fall_through;
+    TestBothArgumentsSmis(assembler, &fall_through);  // checks two smis
+    __ SmiUntag(R0);  // Untags R6. We only want result shifted by one.
     __ smull(R0, IP, R0, R1);  // IP:R0 <- R0 * R1.
     __ cmp(IP, Operand(R0, ASR, 31));
     __ bx(LR, EQ);
-  } else {
+    __ Bind(&fall_through);  // Fall through on overflow.
+  } else if (TargetCPUFeatures::can_divide()) {
+    Label fall_through;
+    TestBothArgumentsSmis(assembler, &fall_through);  // checks two smis
+    __ SmiUntag(R0);  // Untags R6. We only want result shifted by one.
     __ CheckMultSignedOverflow(R0, R1, IP, D0, D1, &fall_through);
     __ mul(R0, R0, R1);
     __ Ret();
+    __ Bind(&fall_through);  // Fall through on overflow.
   }
-
-  __ Bind(&fall_through);  // Fall through on overflow.
 }
 
 
 void Intrinsifier::Integer_mul(Assembler* assembler) {
   Integer_mulFromInteger(assembler);
 }
 
 
 // Optimizations:
 // - result is 0 if:
@@ skipping 45 matching lines @@
 // Implementation:
 //  res = left % right;
 //  if (res < 0) {
 //    if (right < 0) {
 //      res = res - right;
 //    } else {
 //      res = res + right;
 //    }
 //  }
 void Intrinsifier::Integer_moduloFromInteger(Assembler* assembler) {
+  if (!TargetCPUFeatures::can_divide()) {
+    return;
+  }
   // Check to see if we have integer division
   Label fall_through;
   __ ldr(R1, Address(SP, + 0 * kWordSize));
   __ ldr(R0, Address(SP, + 1 * kWordSize));
   __ orr(TMP, R0, Operand(R1));
   __ tst(TMP, Operand(kSmiTagMask));
   __ b(&fall_through, NE);
   // R1: Tagged left (dividend).
   // R0: Tagged right (divisor).
   // Check if modulo by zero -> exception thrown in main function.
@@ skipping 11 matching lines @@
   __ sub(R0, R1, Operand(R0), LT);
   __ add(R0, R1, Operand(R0), GE);
   __ SmiTag(R0);
   __ Ret();
 
   __ Bind(&fall_through);
 }
 
 
 void Intrinsifier::Integer_truncDivide(Assembler* assembler) {
+  if (!TargetCPUFeatures::can_divide()) {
+    return;
+  }
   // Check to see if we have integer division
   Label fall_through;
 
   TestBothArgumentsSmis(assembler, &fall_through);
   __ cmp(R0, Operand(0));
   __ b(&fall_through, EQ);  // If b is 0, fall through.
 
   __ SmiUntag(R0);
   __ SmiUntag(R1);
 
@@ skipping 1019 matching lines @@
   Isolate* isolate = Isolate::Current();
   __ LoadImmediate(R1, reinterpret_cast<uword>(isolate));
   // Set return value to Isolate::current_tag_.
   __ ldr(R0, Address(R1, Isolate::current_tag_offset()));
   __ Ret();
 }
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_ARM