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 353 matching lines @@
   visitCreateInvocationMirror(cps_ir.CreateInvocationMirror node) {
     String args = node.arguments.map(formatReference).join(', ');
     return "CreateInvocationMirror(${node.selector.name}, $args)";
   }
 
   visitTypeTest(cps_ir.TypeTest node) {
     String value = formatReference(node.value);
     String args = node.typeArguments.map(formatReference).join(', ');
     return "TypeTest ($value ${node.type} ($args))";
   }
+
+  @override
+  visitForeignCode(cps_ir.ForeignCode node) {

[Kevin Millikin (Google), 2015/06/16 11:23:10]

Ixpressions get printed on a line by themselves by doing something like:

String id = names.name(node);
String arguments = ...
String continuation = ...
printStmt(id, "ForeignCode ${node.type} ${node.codeTemplate} $arguments "
    "$continuation");

[karlklose, 2015/06/18 09:38:15]

Done.

+    String arguments = node.arguments.map(formatReference).join(', ');
+    String continuation = formatReference(node.continuation);
+    return "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);
   }
+
+  @override
+  visitForeignCode(cps_ir.ForeignCode node) {
+    unexpectedNode(node);

[Kevin Millikin (Google), 2015/06/16 11:23:10]

addEdgeToContinuation(node.continuation);

[karlklose, 2015/06/18 09:38:14]

Done.

+  }
 }