Add the allocator intrinsics for dart:typeddata implementation.

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 421 matching lines @@
   __ movq(R12, Address(RSP, + 1 * kWordSize));  // Index.
   __ testq(R12, Immediate(kSmiTagMask));
   __ j(NOT_ZERO, fall_through, Assembler::kNearJump);  // Non-smi index.
   // Range check.
   __ cmpq(R12, FieldAddress(RAX, ByteArray::length_offset()));
   // Runtime throws exception.
   __ j(ABOVE_EQUAL, fall_through, Assembler::kNearJump);
 }
 
 
-#define TYPED_ARRAY_ALLOCATION(type_name, scale_factor)                        \
+#define TYPED_ARRAY_ALLOCATION(type_name, cid, max_len, scale_factor)          \
   Label fall_through;                                                          \
   const intptr_t kArrayLengthStackOffset = 1 * kWordSize;                      \
   __ movq(RDI, Address(RSP, kArrayLengthStackOffset));  /* Array length. */    \
   /* Check that length is a positive Smi. */                                   \
   /* RDI: requested array length argument. */                                  \
   __ testq(RDI, Immediate(kSmiTagSize));                                       \
   __ j(NOT_ZERO, &fall_through);                                               \
   __ cmpq(RDI, Immediate(0));                                                  \
   __ j(LESS, &fall_through);                                                   \
   __ SmiUntag(RDI);                                                            \
   /* Check for maximum allowed length. */                                      \
   /* RDI: untagged array length. */                                            \
-  __ cmpq(RDI, Immediate(type_name::kMaxElements));                            \
+  __ cmpq(RDI, Immediate(max_len));                                            \
   __ j(GREATER, &fall_through);                                                \
   const intptr_t fixed_size = sizeof(Raw##type_name) + kObjectAlignment - 1;   \
   __ leaq(RDI, Address(RDI, scale_factor, fixed_size));                        \
   __ andq(RDI, Immediate(-kObjectAlignment));                                  \
   Heap* heap = Isolate::Current()->heap();                                     \
                                                                                \
   __ movq(RAX, Immediate(heap->TopAddress()));                                 \
   __ movq(RAX, Address(RAX, 0));                                               \
   __ movq(RCX, RAX);                                                           \
                                                                                \
@@ skipping 26 matching lines @@
     __ cmpq(RDI, Immediate(RawObject::SizeTag::kMaxSizeTag));                  \
     __ j(ABOVE, &size_tag_overflow, Assembler::kNearJump);                     \
     __ shlq(RDI, Immediate(RawObject::kSizeTagBit - kObjectAlignmentLog2));    \
     __ jmp(&done, Assembler::kNearJump);                                       \
                                                                                \
     __ Bind(&size_tag_overflow);                                               \
     __ movq(RDI, Immediate(0));                                                \
     __ Bind(&done);                                                            \
                                                                                \
     /* Get the class index and insert it into the tags. */                     \
-    __ orq(RDI, Immediate(RawObject::ClassIdTag::encode(k##type_name##Cid)));  \
+    __ orq(RDI, Immediate(RawObject::ClassIdTag::encode(cid)));                \
     __ movq(FieldAddress(RAX, type_name::tags_offset()), RDI);  /* Tags. */    \
   }                                                                            \
   /* Set the length field. */                                                  \
   /* RAX: new object start as a tagged pointer. */                             \
   /* RCX: new object end address. */                                           \
   __ movq(RDI, Address(RSP, kArrayLengthStackOffset));  /* Array length. */    \
   __ StoreIntoObjectNoBarrier(RAX,                                             \
                               FieldAddress(RAX, type_name::length_offset()),   \
                               RDI);                                            \
   /* Initialize all array elements to 0. */                                    \
@@ skipping 10 matching lines @@
   __ j(ABOVE_EQUAL, &done, Assembler::kNearJump);                              \
   __ movq(Address(RDI, 0), RBX);                                               \
   __ addq(RDI, Immediate(kWordSize));                                          \
   __ jmp(&init_loop, Assembler::kNearJump);                                    \
   __ Bind(&done);                                                              \
                                                                                \
   __ ret();                                                                    \
   __ Bind(&fall_through);                                                      \
 
 
-bool Intrinsifier::Int8Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int8Array, TIMES_1);
-  return false;
+#define SCALARLIST_ALLOCATOR(clazz, scale)                                     \
+bool Intrinsifier::clazz##_new(Assembler* assembler) {                         \
+  TYPED_ARRAY_ALLOCATION(clazz, k##clazz##Cid, clazz::kMaxElements, scale);    \
+  return false;                                                                \
+}                                                                              \
+bool Intrinsifier::clazz##_factory(Assembler* assembler) {                     \
+  TYPED_ARRAY_ALLOCATION(clazz, k##clazz##Cid, clazz::kMaxElements, scale);    \
+  return false;                                                                \
 }
 
 
-bool Intrinsifier::Int8Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int8Array, TIMES_1);
-  return false;
-}
-
-
-bool Intrinsifier::Uint8Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint8Array, TIMES_1);
-  return false;
-}
-
-
-bool Intrinsifier::Uint8Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint8Array, TIMES_1);
-  return false;
-}
-
-
-bool Intrinsifier::Uint8ClampedArray_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint8ClampedArray, TIMES_1);
-  return false;
-}
-
-
-bool Intrinsifier::Uint8ClampedArray_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint8ClampedArray, TIMES_1);
-  return false;
-}
-
-
-bool Intrinsifier::Int16Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int16Array, TIMES_2);
-  return false;
-}
-
-
-bool Intrinsifier::Int16Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int16Array, TIMES_2);
-  return false;
-}
-
-
-bool Intrinsifier::Uint16Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint16Array, TIMES_2);
-  return false;
-}
-
-
-bool Intrinsifier::Uint16Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint16Array, TIMES_2);
-  return false;
-}
-
-
-bool Intrinsifier::Int32Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int32Array, TIMES_4);
-  return false;
-}
-
-
-bool Intrinsifier::Int32Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int32Array, TIMES_4);
-  return false;
-}
-
-
-bool Intrinsifier::Uint32Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint32Array, TIMES_4);
-  return false;
-}
-
-
-bool Intrinsifier::Uint32Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint32Array, TIMES_4);
-  return false;
-}
+SCALARLIST_ALLOCATOR(Int8Array, TIMES_1)
+SCALARLIST_ALLOCATOR(Uint8Array, TIMES_1)
+SCALARLIST_ALLOCATOR(Uint8ClampedArray, TIMES_1)
+SCALARLIST_ALLOCATOR(Int16Array, TIMES_2)
+SCALARLIST_ALLOCATOR(Uint16Array, TIMES_2)
+SCALARLIST_ALLOCATOR(Int32Array, TIMES_4)
+SCALARLIST_ALLOCATOR(Uint32Array, TIMES_4)
+SCALARLIST_ALLOCATOR(Int64Array, TIMES_8)
+SCALARLIST_ALLOCATOR(Uint64Array, TIMES_8)
+SCALARLIST_ALLOCATOR(Float32Array, TIMES_4)
+SCALARLIST_ALLOCATOR(Float64Array, TIMES_8)
 
 
 bool Intrinsifier::Int64Array_getIndexed(Assembler* assembler) {
   Label fall_through;
   TestByteArrayGetIndex(assembler, &fall_through);
   // R12: index as Smi.
   // RAX: array.
   __ movq(RAX, FieldAddress(RAX,
                             R12,
                             TIMES_4,
                             Int64Array::data_offset()));
   // Copy RAX into R12.
   // We destroy R12 while testing if RAX can fit inside a Smi.
   __ movq(R12, RAX);
   // Verify that the signed value in RAX can fit inside a Smi.
   __ shlq(R12, Immediate(0x1));
   // Jump to fall_through if it can not.
   __ j(OVERFLOW, &fall_through, Assembler::kNearJump);
   __ SmiTag(RAX);
   __ ret();
   __ Bind(&fall_through);
   return false;
 }
 
 
-bool Intrinsifier::Int64Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int64Array, TIMES_8);
-  return false;
-}
-
-
-bool Intrinsifier::Int64Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Int64Array, TIMES_8);
-  return false;
-}
-
-
 bool Intrinsifier::Uint64Array_getIndexed(Assembler* assembler) {
   Label fall_through;
   TestByteArrayGetIndex(assembler, &fall_through);
   // R12: index as Smi.
   // RAX: array.
   __ movq(RAX, FieldAddress(RAX,
                             R12,
                             TIMES_4,
                             Uint64Array::data_offset()));
   // Copy RAX into R12.
   // We destroy R12 while testing if RAX can fit inside a Smi.
   __ movq(R12, RAX);
   // Verify that the unsigned value in RAX can be stored in a Smi.
   __ shrq(R12, Immediate(kSmiBits));
   __ j(NOT_ZERO, &fall_through, Assembler::kNearJump);  // Won't fit Smi.
   __ SmiTag(RAX);
   __ ret();
   __ Bind(&fall_through);
   return false;
 }
 
 
-bool Intrinsifier::Uint64Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint64Array, TIMES_8);
-  return false;
+// Gets the length of a TypedData.
+bool Intrinsifier::TypedData_getLength(Assembler* assembler) {
+  __ movq(RAX, Address(RSP, + 1 * kWordSize));
+  __ movq(RAX, FieldAddress(RAX, TypedData::length_offset()));
+  __ ret();
+  // Generate enough code to satisfy patchability constraint.
+  intptr_t offset = __ CodeSize();
+  __ nop(JumpPattern::InstructionLength() - offset);
+  return true;
 }
 
 
-bool Intrinsifier::Uint64Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Uint64Array, TIMES_8);
-  return false;
-}
+static ScaleFactor GetScaleFactor(intptr_t size) {
+  switch (size) {
+    case 1: return TIMES_1;
+    case 2: return TIMES_2;
+    case 4: return TIMES_4;
+    case 8: return TIMES_8;
+  }
+  UNREACHABLE();
+  return static_cast<ScaleFactor>(0);
+};
 
 
-bool Intrinsifier::Float32Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Float32Array, TIMES_4);
-  return false;
+#define TYPEDDATA_ALLOCATOR(clazz)                                             \
+bool Intrinsifier::TypedData_##clazz##_new(Assembler* assembler) {             \
+  intptr_t size = TypedData::ElementSizeInBytes(kTypedData##clazz##Cid);       \
+  intptr_t max_len = kSmiMax / size;                                           \
+  ScaleFactor scale = GetScaleFactor(size);                                    \
+  TYPED_ARRAY_ALLOCATION(TypedData, kTypedData##clazz##Cid, max_len, scale);   \
+  return false;                                                                \
+}                                                                              \
+bool Intrinsifier::TypedData_##clazz##_factory(Assembler* assembler) {         \
+  intptr_t size = TypedData::ElementSizeInBytes(kTypedData##clazz##Cid);       \
+  intptr_t max_len = kSmiMax / size;                                           \
+  ScaleFactor scale = GetScaleFactor(size);                                    \
+  TYPED_ARRAY_ALLOCATION(TypedData, kTypedData##clazz##Cid, max_len, scale);   \
+  return false;                                                                \
 }
-
-
-bool Intrinsifier::Float32Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Float32Array, TIMES_4);
-  return false;
-}
-
-
-bool Intrinsifier::Float64Array_new(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Float64Array, TIMES_8);
-  return false;
-}
-
-
-bool Intrinsifier::Float64Array_factory(Assembler* assembler) {
-  TYPED_ARRAY_ALLOCATION(Float64Array, TIMES_8);
-  return false;
-}
+CLASS_LIST_TYPED_DATA(TYPEDDATA_ALLOCATOR)
+#undef TYPEDDATA_ALLOCATOR
 
 
 // Tests if two top most arguments are smis, jumps to label not_smi if not.
 // Topmost argument is in RAX.
 static void TestBothArgumentsSmis(Assembler* assembler, Label* not_smi) {
   __ movq(RAX, Address(RSP, + 1 * kWordSize));
   __ movq(RCX, Address(RSP, + 2 * kWordSize));
   __ orq(RCX, RAX);
   __ testq(RCX, Immediate(kSmiTagMask));
   __ j(NOT_ZERO, not_smi, Assembler::kNearJump);
@@ skipping 805 matching lines @@
   __ ret();
   return true;
 }
 
 
 #undef __
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_X64