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

runtime/vm/intrinsifier_x64.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_X64.
 #if defined(TARGET_ARCH_X64)
 
 #include "vm/intrinsifier.h"
 
 #include "vm/assembler.h"
@@ skipping 642 matching lines @@
   __ LoadObject(RAX, Bool::True());
   __ ret();
 
   // At least one of the arguments was not Smi.
   Label receiver_not_smi;
   __ Bind(&check_for_mint);
   __ movq(RAX, Address(RSP, + kReceiverOffset * kWordSize));
   __ testq(RAX, Immediate(kSmiTagMask));
   __ j(NOT_ZERO, &receiver_not_smi);
 
-  // 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.
   __ movq(RAX, Address(RSP, + kArgumentOffset * kWordSize));
-  __ CompareClassId(RAX, kDoubleCid);
+  __ LoadClassId(TMP, RAX);
+  __ cmpl(TMP, Immediate(kDoubleCid));
+  __ j(EQUAL, &fall_through);
+  __ cmpl(TMP, Immediate(kFractionCid));
   __ j(EQUAL, &fall_through);
   __ LoadObject(RAX, Bool::False());
   __ ret();
 
   __ Bind(&receiver_not_smi);
   // RAX:: receiver.
   __ CompareClassId(RAX, kMintCid);
   __ j(NOT_EQUAL, &fall_through);
   // Receiver is Mint, return false if right is Smi.
   __ movq(RAX, Address(RSP, + kArgumentOffset * kWordSize));
@@ skipping 1446 matching lines @@
   __ Bind(&true_label);
   __ LoadObject(RAX, Bool::True());
   __ ret();
 }
 
 #undef __
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_X64