cps-ir: Support foreign code.

pkg/compiler/lib/src/cps_ir/cps_ir_tracer.dart

 // Copyright (c) 2014, 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.
 
 library dart2js.ir_tracer;
 
 import 'dart:async' show EventSink;
 import 'cps_ir_nodes.dart' as cps_ir hide Function;
 import '../tracer.dart';
 
@@ skipping 359 matching lines @@
     String value = formatReference(node.value);
     String args = node.typeArguments.map(formatReference).join(', ');
     return "TypeTest ($value ${node.type} ($args))";
   }
 
   visitApplyBuiltinOperator(cps_ir.ApplyBuiltinOperator node) {
     String operator = node.operator.toString();
     String args = node.arguments.map(formatReference).join(', ');
     return 'ApplyBuiltinOperator $operator ($args)';
   }
+
+  @override
+  visitForeignCode(cps_ir.ForeignCode node) {
+    String id = names.name(node);
+    String arguments = node.arguments.map(formatReference).join(', ');
+    String continuation = node.continuation == null ? ''
+        : ' ${formatReference(node.continuation)}';
+    printStmt(id, "ForeignCode ${node.type} ${node.codeTemplate} $arguments"
+        "$continuation");
+  }
 }
 
 /**
  * Invents (and remembers) names for Continuations, Parameters, etc.
  * The names must match the conventions used by IR Hydra, e.g.
  * Continuations and Functions must have names of form B### since they
  * are visualized as basic blocks.
  */
 class Names {
   final Map<Object, String> names = {};
@@ skipping 166 matching lines @@
 
   // Primitives and conditions are not visited when searching for blocks.
   unexpectedNode(cps_ir.Node node) {
     throw "The IR tracer's block collector reached an unexpected IR "
         "instruction: $node";
   }
 
   visitLiteralList(cps_ir.LiteralList node) {
     unexpectedNode(node);
   }
+
   visitLiteralMap(cps_ir.LiteralMap node) {
     unexpectedNode(node);
   }
+
   visitConstant(cps_ir.Constant node) {
     unexpectedNode(node);
   }
+
   visitCreateFunction(cps_ir.CreateFunction node) {
     unexpectedNode(node);
   }
+
   visitGetMutableVariable(cps_ir.GetMutableVariable node) {
     unexpectedNode(node);
   }
+
   visitParameter(cps_ir.Parameter node) {
     unexpectedNode(node);
   }
+
   visitMutableVariable(cps_ir.MutableVariable node) {
     unexpectedNode(node);
   }
+
   visitGetField(cps_ir.GetField node) {
     unexpectedNode(node);
   }
+
   visitGetStatic(cps_ir.GetStatic node) {
     unexpectedNode(node);
   }
+
   visitCreateBox(cps_ir.CreateBox node) {
     unexpectedNode(node);
   }
+
   visitCreateInstance(cps_ir.CreateInstance node) {
     unexpectedNode(node);
   }
+
   visitIsTrue(cps_ir.IsTrue node) {
     unexpectedNode(node);
   }
+
   visitIdentical(cps_ir.Identical node) {
     unexpectedNode(node);
   }
+
   visitInterceptor(cps_ir.Interceptor node) {
     unexpectedNode(node);
   }
+
   visitReadTypeVariable(cps_ir.ReadTypeVariable node) {
     unexpectedNode(node);
   }
+
   visitReifyRuntimeType(cps_ir.ReifyRuntimeType node) {
     unexpectedNode(node);
   }
+
   visitTypeExpression(cps_ir.TypeExpression node) {
     unexpectedNode(node);
   }
+
   visitNonTailThrow(cps_ir.NonTailThrow node) {
     unexpectedNode(node);
   }
+
   visitCreateInvocationMirror(cps_ir.CreateInvocationMirror node) {
     unexpectedNode(node);
   }
+
   visitTypeTest(cps_ir.TypeTest node) {
     unexpectedNode(node);
   }
+
   visitApplyBuiltinOperator(cps_ir.ApplyBuiltinOperator node) {
     unexpectedNode(node);
   }
+
+  @override
+  visitForeignCode(cps_ir.ForeignCode node) {
+    if (node.continuation != null) {
+      addEdgeToContinuation(node.continuation);
+    }
+  }
 }