SIMD.js Add the other SIMD Phase 1 types.

src/arm64/code-stubs-arm64.cc

 // Copyright 2013 the V8 project authors. All rights reserved.
 // Use of this source code is governed by a BSD-style license that can be
 // found in the LICENSE file.
 
 #include "src/v8.h"
 
 #if V8_TARGET_ARCH_ARM64
 
 #include "src/bootstrapper.h"
 #include "src/code-stubs.h"
@@ skipping 203 matching lines @@
 
   __ Cmp(right, left);
   __ B(ne, &not_identical);
 
   // Test for NaN. Sadly, we can't just compare to factory::nan_value(),
   // so we do the second best thing - test it ourselves.
   // They are both equal and they are not both Smis so both of them are not
   // Smis.  If it's not a heap number, then return equal.
   Register right_type = scratch;
   if ((cond == lt) || (cond == gt)) {
+    Label not_simd;
     // Call runtime on identical JSObjects.  Otherwise return equal.
     __ JumpIfObjectType(right, right_type, right_type, FIRST_SPEC_OBJECT_TYPE,
                         slow, ge);
     // Call runtime on identical symbols since we need to throw a TypeError.
     __ Cmp(right_type, SYMBOL_TYPE);
     __ B(eq, slow);
     // Call runtime on identical SIMD values since we must throw a TypeError.
-    __ Cmp(right_type, FLOAT32X4_TYPE);
-    __ B(eq, slow);
+    __ Cmp(right_type, FIRST_SIMD_VALUE_TYPE);
+    __ B(lt, &not_simd);
+    __ Cmp(right_type, LAST_SIMD_VALUE_TYPE);
+    __ B(le, slow);
+    __ Bind(&not_simd);
     if (is_strong(strength)) {
       // Call the runtime on anything that is converted in the semantics, since
       // we need to throw a TypeError. Smis have already been ruled out.
       __ Cmp(right_type, Operand(HEAP_NUMBER_TYPE));
       __ B(eq, &return_equal);
       __ Tst(right_type, Operand(kIsNotStringMask));
       __ B(ne, slow);
     }
   } else if (cond == eq) {
     __ JumpIfHeapNumber(right, &heap_number);
   } else {
+    Label not_simd;
     __ JumpIfObjectType(right, right_type, right_type, HEAP_NUMBER_TYPE,
                         &heap_number);
     // Comparing JS objects with <=, >= is complicated.
     __ Cmp(right_type, FIRST_SPEC_OBJECT_TYPE);
     __ B(ge, slow);
     // Call runtime on identical symbols since we need to throw a TypeError.
     __ Cmp(right_type, SYMBOL_TYPE);
     __ B(eq, slow);
     // Call runtime on identical SIMD values since we must throw a TypeError.
-    __ Cmp(right_type, FLOAT32X4_TYPE);
-    __ B(eq, slow);
+    __ Cmp(right_type, FIRST_SIMD_VALUE_TYPE);
+    __ B(lt, &not_simd);
+    __ Cmp(right_type, LAST_SIMD_VALUE_TYPE);
+    __ B(le, slow);
+    __ Bind(&not_simd);
     if (is_strong(strength)) {
       // Call the runtime on anything that is converted in the semantics,
       // since we need to throw a TypeError. Smis and heap numbers have
       // already been ruled out.
       __ Tst(right_type, Operand(kIsNotStringMask));
       __ B(ne, slow);
     }
     // Normally here we fall through to return_equal, but undefined is
     // special: (undefined == undefined) == true, but
     // (undefined <= undefined) == false!  See ECMAScript 11.8.5.
@@ skipping 5226 matching lines @@
 
   __ Bind(&fast_elements_case);
   GenerateCase(masm, FAST_ELEMENTS);
 }
 
 
 void LoadGlobalViaContextStub::Generate(MacroAssembler* masm) {
   Register context = cp;
   Register result = x0;
   Register slot = x2;
+  Register name = x3;
   Label slow_case;
 
   // Go up the context chain to the script context.
   for (int i = 0; i < depth(); ++i) {
     __ Ldr(result, ContextMemOperand(context, Context::PREVIOUS_INDEX));
     context = result;
   }
 
   // Load the PropertyCell value at the specified slot.
   __ Add(result, context, Operand(slot, LSL, kPointerSizeLog2));
   __ Ldr(result, ContextMemOperand(result));
   __ Ldr(result, FieldMemOperand(result, PropertyCell::kValueOffset));
 
   // If the result is not the_hole, return. Otherwise, handle in the runtime.
   __ JumpIfRoot(result, Heap::kTheHoleValueRootIndex, &slow_case);
   __ Ret();
 
   // Fallback to runtime.
   __ Bind(&slow_case);
   __ SmiTag(slot);
-  __ Push(slot);
-  __ TailCallRuntime(Runtime::kLoadGlobalViaContext, 1, 1);
+  __ Push(slot, name);
+  __ TailCallRuntime(Runtime::kLoadGlobalViaContext, 2, 1);
 }
 
 
 void StoreGlobalViaContextStub::Generate(MacroAssembler* masm) {
   Register context = cp;
   Register value = x0;
   Register slot = x2;
+  Register name = x3;
   Register context_temp = x10;
   Register cell = x10;
   Register cell_details = x11;
   Register cell_value = x12;
   Register cell_value_map = x13;
   Register value_map = x14;
   Label fast_heapobject_case, fast_smi_case, slow_case;
 
   if (FLAG_debug_code) {
     __ CompareRoot(value, Heap::kTheHoleValueRootIndex);
     __ Check(ne, kUnexpectedValue);
+    __ AssertName(name);
   }
 
   // Go up the context chain to the script context.
   for (int i = 0; i < depth(); i++) {
     __ Ldr(context_temp, ContextMemOperand(context, Context::PREVIOUS_INDEX));
     context = context_temp;
   }
 
   // Load the PropertyCell at the specified slot.
   __ Add(cell, context, Operand(slot, LSL, kPointerSizeLog2));
   __ Ldr(cell, ContextMemOperand(cell));
 
   // Load PropertyDetails for the cell (actually only the cell_type and kind).
   __ Ldr(cell_details,
          UntagSmiFieldMemOperand(cell, PropertyCell::kDetailsOffset));
   __ And(cell_details, cell_details,
          PropertyDetails::PropertyCellTypeField::kMask |
-             PropertyDetails::KindField::kMask |
-             PropertyDetails::kAttributesReadOnlyMask);
+             PropertyDetails::KindField::kMask);
 
   // Check if PropertyCell holds mutable data.
   Label not_mutable_data;
   __ Cmp(cell_details, PropertyDetails::PropertyCellTypeField::encode(
                            PropertyCellType::kMutable) |
                            PropertyDetails::KindField::encode(kData));
   __ B(ne, &not_mutable_data);
   __ JumpIfSmi(value, &fast_smi_case);
   __ Bind(&fast_heapobject_case);
   __ Str(value, FieldMemOperand(cell, PropertyCell::kValueOffset));
   // RecordWriteField clobbers the value register, so we copy it before the
   // call.
   __ Mov(x11, value);
   __ RecordWriteField(cell, PropertyCell::kValueOffset, x11, x12,
                       kLRHasNotBeenSaved, kDontSaveFPRegs, EMIT_REMEMBERED_SET,
                       OMIT_SMI_CHECK);
   __ Ret();
 
   __ Bind(&not_mutable_data);
   // Check if PropertyCell value matches the new value (relevant for Constant,
   // ConstantType and Undefined cells).
   Label not_same_value;
   __ Ldr(cell_value, FieldMemOperand(cell, PropertyCell::kValueOffset));
   __ Cmp(cell_value, value);
   __ B(ne, &not_same_value);
 
-  // Make sure the PropertyCell is not marked READ_ONLY.
-  __ Tst(cell_details, PropertyDetails::kAttributesReadOnlyMask);
-  __ B(ne, &slow_case);
-
   if (FLAG_debug_code) {
     Label done;
     // This can only be true for Constant, ConstantType and Undefined cells,
     // because we never store the_hole via this stub.
     __ Cmp(cell_details, PropertyDetails::PropertyCellTypeField::encode(
                              PropertyCellType::kConstant) |
                              PropertyDetails::KindField::encode(kData));
     __ B(eq, &done);
     __ Cmp(cell_details, PropertyDetails::PropertyCellTypeField::encode(
                              PropertyCellType::kConstantType) |
                              PropertyDetails::KindField::encode(kData));
     __ B(eq, &done);
     __ Cmp(cell_details, PropertyDetails::PropertyCellTypeField::encode(
                              PropertyCellType::kUndefined) |
                              PropertyDetails::KindField::encode(kData));
     __ Check(eq, kUnexpectedValue);
     __ Bind(&done);
   }
   __ Ret();
   __ Bind(&not_same_value);
 
-  // Check if PropertyCell contains data with constant type (and is not
-  // READ_ONLY).
+  // Check if PropertyCell contains data with constant type.
   __ Cmp(cell_details, PropertyDetails::PropertyCellTypeField::encode(
                            PropertyCellType::kConstantType) |
                            PropertyDetails::KindField::encode(kData));
   __ B(ne, &slow_case);
 
   // Now either both old and new values must be smis or both must be heap
   // objects with same map.
   Label value_is_heap_object;
   __ JumpIfNotSmi(value, &value_is_heap_object);
   __ JumpIfNotSmi(cell_value, &slow_case);
   // Old and new values are smis, no need for a write barrier here.
   __ Bind(&fast_smi_case);
   __ Str(value, FieldMemOperand(cell, PropertyCell::kValueOffset));
   __ Ret();
 
   __ Bind(&value_is_heap_object);
   __ JumpIfSmi(cell_value, &slow_case);
 
   __ Ldr(cell_value_map, FieldMemOperand(cell_value, HeapObject::kMapOffset));
   __ Ldr(value_map, FieldMemOperand(value, HeapObject::kMapOffset));
   __ Cmp(cell_value_map, value_map);
   __ B(eq, &fast_heapobject_case);
 
   // Fall back to the runtime.
   __ Bind(&slow_case);
   __ SmiTag(slot);
-  __ Push(slot, value);
+  __ Push(slot, name, value);
   __ TailCallRuntime(is_strict(language_mode())
                          ? Runtime::kStoreGlobalViaContext_Strict
                          : Runtime::kStoreGlobalViaContext_Sloppy,
-                     2, 1);
+                     3, 1);
 }
 
 
 // The number of register that CallApiFunctionAndReturn will need to save on
 // the stack. The space for these registers need to be allocated in the
 // ExitFrame before calling CallApiFunctionAndReturn.
 static const int kCallApiFunctionSpillSpace = 4;
 
 
 static int AddressOffset(ExternalReference ref0, ExternalReference ref1) {
@@ skipping 333 matching lines @@
                            MemOperand(fp, 6 * kPointerSize), NULL);
 }
 
 
 #undef __
 
 }  // namespace internal
 }  // namespace v8
 
 #endif  // V8_TARGET_ARCH_ARM64