Add ObjectPool tag for external labels. Use LoadExternalLabel for native calls...

runtime/vm/object.cc

 // Copyright (c) 2012, 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/object.h"
 
 #include "include/dart_api.h"
 #include "platform/assert.h"
 #include "vm/assembler.h"
 #include "vm/cpu.h"
@@ skipping 10946 matching lines @@
     JSONArray jsarr(&jsobj, "_entries");
     uword imm;
     Object& obj = Object::Handle();
     for (intptr_t i = 0; i < Length(); i++) {
       switch (InfoAt(i)) {
       case ObjectPool::kTaggedObject:
         obj = ObjectAt(i);
         jsarr.AddValue(obj);
         break;
       case ObjectPool::kImmediate:
-        // We might want to distingiush between immediates and addresses
-        // in the future.
         imm = RawValueAt(i);
         jsarr.AddValue64(imm);
         break;
+      case ObjectPool::kExternalLabel:
+        imm = RawValueAt(i);
+        jsarr.AddValueF("0x%" Px, imm);
+        break;
       default:
         UNREACHABLE();
       }
     }
   }
 }
 
 
 void ObjectPool::DebugPrint() const {
   ISL_Print("Object Pool: {\n");
   for (intptr_t i = 0; i < Length(); i++) {
     if (InfoAt(i) == kTaggedObject) {
       ISL_Print("  %" Pd ": 0x%" Px " %s (obj)\n", i,
           reinterpret_cast<uword>(ObjectAt(i)),
           Object::Handle(ObjectAt(i)).ToCString());
+    } else if (InfoAt(i) == kExternalLabel) {
+      ISL_Print("  %" Pd ": 0x%" Px " (external label)\n", i, RawValueAt(i));
     } else {
       ISL_Print("  %" Pd ": 0x%" Px " (raw)\n", i, RawValueAt(i));
     }
   }
   ISL_Print("}\n");
 }
 
 
 intptr_t PcDescriptors::Length() const {
   return raw_ptr()->length_;
@@ skipping 10374 matching lines @@
   return tag_label.ToCString();
 }
 
 
 void UserTag::PrintJSONImpl(JSONStream* stream, bool ref) const {
   Instance::PrintJSONImpl(stream, ref);
 }
 
 
 }  // namespace dart