Support reusable boxes for Float32x4 fields

runtime/vm/intermediate_language_mips.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_MIPS.
 #if defined(TARGET_ARCH_MIPS)
 
 #include "vm/intermediate_language.h"
 
 #include "vm/dart_entry.h"
@@ skipping 1638 matching lines @@
         __ bne(CMPRES1, ZR, fail);
       } else {
         UNREACHABLE();
       }
     }
   }
   __ Bind(&ok);
 }
 
 
+bool Field::IsUnboxedField() const {
+  bool valid_class = (guarded_cid() == kDoubleCid);
+  return is_unboxing_candidate() && !is_final() && !is_nullable() &&
+         valid_class;
+}
+
+
 class StoreInstanceFieldSlowPath : public SlowPathCode {
  public:
-  StoreInstanceFieldSlowPath(StoreInstanceFieldInstr* instruction,
-                             const Class& cls)
-      : instruction_(instruction), cls_(cls) { }
+  explicit StoreInstanceFieldSlowPath(StoreInstanceFieldInstr* instruction)
+      : instruction_(instruction) { }
 
   virtual void EmitNativeCode(FlowGraphCompiler* compiler) {
     __ Comment("StoreInstanceFieldSlowPath");
-    __ Bind(entry_label());
+    __ Bind(double_entry_label());
+    const Class& cls = compiler->double_class();
     const Code& stub =
-        Code::Handle(StubCode::GetAllocationStubForClass(cls_));
-    const ExternalLabel label(cls_.ToCString(), stub.EntryPoint());
+        Code::Handle(StubCode::GetAllocationStubForClass(cls));
+    const ExternalLabel label(cls.ToCString(), stub.EntryPoint());
 
     LocationSummary* locs = instruction_->locs();
     locs->live_registers()->Remove(locs->out());
 
     compiler->SaveLiveRegisters(locs);
     compiler->GenerateCall(Scanner::kNoSourcePos,  // No token position.
                            &label,
                            PcDescriptors::kOther,
                            locs);
     __ mov(locs->temp(0).reg(), V0);
     compiler->RestoreLiveRegisters(locs);
 
-    __ b(exit_label());
+    __ b(double_exit_label());
+  }
+
+  Label* double_entry_label() {
+    // Use default SlowPathCode label for double.
+    return entry_label();
+  }
+  Label* double_exit_label() {
+    // Use default SlowPathCode label for double.
+    return exit_label();
   }
 
  private:
   StoreInstanceFieldInstr* instruction_;
-  const Class& cls_;
 };
 
 
 LocationSummary* StoreInstanceFieldInstr::MakeLocationSummary(bool opt) const {
   const intptr_t kNumInputs = 2;
   const intptr_t kNumTemps = 0;
   LocationSummary* summary =
       new LocationSummary(kNumInputs, kNumTemps,
           (field().guarded_cid() == kIllegalCid) || (is_initialization_)
           ? LocationSummary::kCallOnSlowPath
@@ skipping 24 matching lines @@
 void StoreInstanceFieldInstr::EmitNativeCode(FlowGraphCompiler* compiler) {
   Label skip_store;
 
   Register instance_reg = locs()->in(0).reg();
 
   if (IsUnboxedStore() && compiler->is_optimizing()) {
     DRegister value = locs()->in(1).fpu_reg();
     Register temp = locs()->temp(0).reg();
     Register temp2 = locs()->temp(1).reg();
     const intptr_t cid = field().UnboxedFieldCid();
+    StoreInstanceFieldSlowPath* slow_path =
+        new StoreInstanceFieldSlowPath(this);
+    compiler->AddSlowPathCode(slow_path);
 
     if (is_initialization_) {
       const Class* cls = NULL;
+      Label* entry_label = NULL;
+      Label* exit_label = NULL;
       switch (cid) {
         case kDoubleCid:
           cls = &compiler->double_class();
+          entry_label = slow_path->double_entry_label();
+          exit_label = slow_path->double_exit_label();
           break;
         default:
           UNREACHABLE();
       }
-      StoreInstanceFieldSlowPath* slow_path =
-          new StoreInstanceFieldSlowPath(this, *cls);
-      compiler->AddSlowPathCode(slow_path);
       __ TryAllocate(*cls,
-                     slow_path->entry_label(),
+                     entry_label,
                      temp,
                      temp2);
-      __ Bind(slow_path->exit_label());
+      __ Bind(exit_label);
       __ mov(temp2, temp);
       __ StoreIntoObject(instance_reg,
                          FieldAddress(instance_reg, field().Offset()),
                          temp2);
     } else {
       __ lw(temp, FieldAddress(instance_reg, field().Offset()));
     }
     switch (cid) {
       case kDoubleCid:
         __ StoreDToOffset(value, temp, Double::value_offset() - kHeapObjectTag);
@@ skipping 29 matching lines @@
     // Fall through.
     __ b(&store_pointer);
 
     __ Bind(&store_double);
 
     __ lw(temp, FieldAddress(instance_reg, field().Offset()));
     __ BranchNotEqual(temp, reinterpret_cast<int32_t>(Object::null()),
                       &copy_double);
 
     StoreInstanceFieldSlowPath* slow_path =
-        new StoreInstanceFieldSlowPath(this, compiler->double_class());
+        new StoreInstanceFieldSlowPath(this);
     compiler->AddSlowPathCode(slow_path);
 
     if (!compiler->is_optimizing()) {
       locs()->live_registers()->Add(locs()->in(0));
       locs()->live_registers()->Add(locs()->in(1));
     }
 
     __ TryAllocate(compiler->double_class(),
-                   slow_path->entry_label(),
+                   slow_path->double_entry_label(),
                    temp,
                    temp2);
-    __ Bind(slow_path->exit_label());
+    __ Bind(slow_path->double_exit_label());
     __ mov(temp2, temp);
     __ StoreIntoObject(instance_reg,
                        FieldAddress(instance_reg, field().Offset()),
                        temp2);
 
     __ Bind(&copy_double);
     __ LoadDFromOffset(fpu_temp,
                        value_reg,
                        Double::value_offset() - kHeapObjectTag);
     __ StoreDToOffset(fpu_temp, temp, Double::value_offset() - kHeapObjectTag);
@@ skipping 137 matching lines @@
                                 deopt_id(),
                                 kAllocateObjectWithBoundsCheckRuntimeEntry,
                                 3,
                                 locs());
   __ Drop(3);
   ASSERT(locs()->out().reg() == V0);
   __ Pop(V0);  // Pop new instance.
 }
 
 
-class BoxDoubleSlowPath : public SlowPathCode {
+class LoadFieldSlowPath : public SlowPathCode {
  public:
-  explicit BoxDoubleSlowPath(Instruction* instruction)
+  explicit LoadFieldSlowPath(Instruction* instruction)
       : instruction_(instruction) { }
 
   virtual void EmitNativeCode(FlowGraphCompiler* compiler) {
-    __ Comment("BoxDoubleSlowPath");
+    __ Comment("LoadFieldSlowPath");
     __ Bind(entry_label());
     const Class& double_class = compiler->double_class();
     const Code& stub =
         Code::Handle(StubCode::GetAllocationStubForClass(double_class));
     const ExternalLabel label(double_class.ToCString(), stub.EntryPoint());
 
     LocationSummary* locs = instruction_->locs();
     locs->live_registers()->Remove(locs->out());
 
     compiler->SaveLiveRegisters(locs);
     compiler->GenerateCall(Scanner::kNoSourcePos,  // No token position.
                            &label,
                            PcDescriptors::kOther,
                            locs);
     if (locs->out().reg() != V0) {
       __ mov(locs->out().reg(), V0);
     }
     compiler->RestoreLiveRegisters(locs);
 
     __ b(exit_label());
   }
 
+  Label* double_entry_label() {
+    // Use default SlowPathCode label for double.
+    return entry_label();
+  }
+  Label* double_exit_label() {
+    // Use default SlowPathCode label for double.
+    return exit_label();
+  }
+
  private:
   Instruction* instruction_;
 };
 
 
 LocationSummary* LoadFieldInstr::MakeLocationSummary(bool opt) const {
   const intptr_t kNumInputs = 1;
   const intptr_t kNumTemps = 0;
   LocationSummary* locs =
       new LocationSummary(
@@ skipping 32 matching lines @@
         UNREACHABLE();
     }
     return;
   }
 
   Label done;
   Register result_reg = locs()->out().reg();
   if (IsPotentialUnboxedLoad()) {
     Register temp = locs()->temp(1).reg();
     DRegister value = locs()->temp(0).fpu_reg();
+    LoadFieldSlowPath* slow_path = new LoadFieldSlowPath(this);
+    compiler->AddSlowPathCode(slow_path);
 
     Label load_pointer;
     Label load_double;
 
     __ LoadObject(result_reg, Field::ZoneHandle(field()->raw()));
 
     FieldAddress field_cid_operand(result_reg, Field::guarded_cid_offset());
     FieldAddress field_nullability_operand(result_reg,
                                            Field::is_nullable_offset());
 
     __ lw(temp, field_nullability_operand);
     __ BranchEqual(temp, kNullCid, &load_pointer);
 
     __ lw(temp, field_cid_operand);
     __ BranchEqual(temp, kDoubleCid, &load_double);
 
     // Fall through.
     __ b(&load_pointer);
 
-    __ Bind(&load_double);
+    {
+      __ Bind(&load_double);
 
-    BoxDoubleSlowPath* slow_path = new BoxDoubleSlowPath(this);
-    compiler->AddSlowPathCode(slow_path);
+      if (!compiler->is_optimizing()) {
+        locs()->live_registers()->Add(locs()->in(0));
+      }
 
-    if (!compiler->is_optimizing()) {
-      locs()->live_registers()->Add(locs()->in(0));
+      __ TryAllocate(compiler->double_class(),
+                     slow_path->double_entry_label(),
+                     result_reg,
+                     temp);
+      __ Bind(slow_path->double_exit_label());
+      __ lw(temp, FieldAddress(instance_reg, offset_in_bytes()));
+      __ LoadDFromOffset(value, temp, Double::value_offset() - kHeapObjectTag);
+      __ StoreDToOffset(value,
+                        result_reg,
+                        Double::value_offset() - kHeapObjectTag);
+      __ b(&done);
     }
 
-    __ TryAllocate(compiler->double_class(),
-                   slow_path->entry_label(),
-                   result_reg,
-                   temp);
-    __ Bind(slow_path->exit_label());
-    __ lw(temp, FieldAddress(instance_reg, offset_in_bytes()));
-    __ LoadDFromOffset(value, temp, Double::value_offset() - kHeapObjectTag);
-    __ StoreDToOffset(value,
-                      result_reg,
-                      Double::value_offset() - kHeapObjectTag);
-    __ b(&done);
     __ Bind(&load_pointer);
   }
   __ lw(result_reg, Address(instance_reg, offset_in_bytes() - kHeapObjectTag));
   __ Bind(&done);
 }
 
 
 LocationSummary* InstantiateTypeInstr::MakeLocationSummary(bool opt) const {
   const intptr_t kNumInputs = 1;
   const intptr_t kNumTemps = 0;
@@ skipping 828 matching lines @@
   } else if (right_cid == kSmiCid) {
     __ andi(CMPRES1, left, Immediate(kSmiTagMask));
   } else {
     __ or_(TMP, left, right);
     __ andi(CMPRES1, TMP, Immediate(kSmiTagMask));
   }
   __ beq(CMPRES1, ZR, deopt);
 }
 
 
+class BoxDoubleSlowPath : public SlowPathCode {
+ public:
+  explicit BoxDoubleSlowPath(Instruction* instruction)
+      : instruction_(instruction) { }
+
+  virtual void EmitNativeCode(FlowGraphCompiler* compiler) {
+    __ Comment("BoxDoubleSlowPath");
+    __ Bind(entry_label());
+    const Class& double_class = compiler->double_class();
+    const Code& stub =
+        Code::Handle(StubCode::GetAllocationStubForClass(double_class));
+    const ExternalLabel label(double_class.ToCString(), stub.EntryPoint());
+
+    LocationSummary* locs = instruction_->locs();
+    locs->live_registers()->Remove(locs->out());
+
+    compiler->SaveLiveRegisters(locs);
+    compiler->GenerateCall(Scanner::kNoSourcePos,  // No token position.
+                           &label,
+                           PcDescriptors::kOther,
+                           locs);
+    if (locs->out().reg() != V0) {
+      __ mov(locs->out().reg(), V0);
+    }
+    compiler->RestoreLiveRegisters(locs);
+
+    __ b(exit_label());
+  }
+
+ private:
+  Instruction* instruction_;
+};
+
+
 LocationSummary* BoxDoubleInstr::MakeLocationSummary(bool opt) const {
   const intptr_t kNumInputs = 1;
   const intptr_t kNumTemps = 1;
   LocationSummary* summary =
       new LocationSummary(kNumInputs,
                           kNumTemps,
                           LocationSummary::kCallOnSlowPath);
   summary->set_in(0, Location::RequiresFpuRegister());
   summary->set_temp(0, Location::RequiresRegister());
   summary->set_out(Location::RequiresRegister());
@@ skipping 1296 matching lines @@
   compiler->GenerateCall(token_pos(),
                          &label,
                          PcDescriptors::kOther,
                          locs());
   __ Drop(2);  // Discard type arguments and receiver.
 }
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_MIPS