Fraction class prototype and test (not to be committed).

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 689 matching lines @@
   __ LoadObject(R0, Bool::True());
   __ Ret();
 
   // At least one of the arguments was not Smi.
   Label receiver_not_smi;
   __ Bind(&check_for_mint);
 
   __ tst(R1, Operand(kSmiTagMask));  // Check receiver.
   __ b(&receiver_not_smi, NE);
 
-  // Left (receiver) is Smi, return false if right is not Double.
+  // Left (receiver) is Smi, return false if right is not Double or Fraction.
   // Note that an instance of Mint or Bigint never contains a value that can be
   // represented by Smi.
 
-  __ CompareClassId(R0, kDoubleCid, R2);
+  __ LoadClassId(R2, R0);
+  __ CompareImmediate(R2, kDoubleCid);
+  __ b(&fall_through, EQ);
+  __ CompareImmediate(R2, kFractionCid);
   __ b(&fall_through, EQ);
   __ LoadObject(R0, Bool::False());  // Smi == Mint -> false.
   __ Ret();
 
   __ Bind(&receiver_not_smi);
   // R1:: receiver.
 
   __ CompareClassId(R1, kMintCid, R2);
   __ b(&fall_through, NE);
   // Receiver is Mint, return false if right is Smi.
@@ skipping 1407 matching lines @@
   __ ldr(R0, Address(R0, TimelineStream::enabled_offset()));
   __ cmp(R0, Operand(0));
   __ LoadObject(R0, Bool::True(), NE);
   __ LoadObject(R0, Bool::False(), EQ);
   __ Ret();
 }
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_ARM