cps-ir: Implement type tests for interface types without type arguments.

pkg/compiler/lib/src/js_backend/codegen/codegen.dart

Index: pkg/compiler/lib/src/js_backend/codegen/codegen.dart
diff --git a/pkg/compiler/lib/src/js_backend/codegen/codegen.dart b/pkg/compiler/lib/src/js_backend/codegen/codegen.dart
index dc9428fc7ba19c3e0e2a521a2e0e5e3b9013c589..a00a2aeabc4598584e41b0717994f4a9c3b601d0 100644
--- a/pkg/compiler/lib/src/js_backend/codegen/codegen.dart
+++ b/pkg/compiler/lib/src/js_backend/codegen/codegen.dart
@@ -13,6 +13,9 @@ import '../../io/source_information.dart' show SourceInformation;
 import '../../util/maplet.dart';
 import '../../constants/values.dart';
 import '../../dart2jslib.dart';
+import '../../dart_types.dart';
+
+part 'type_test_emitter.dart';
 
 class CodegenBailout {
   final tree_ir.Node node;
@@ -24,7 +27,8 @@ class CodegenBailout {
 }
 
 class CodeGenerator extends tree_ir.StatementVisitor
-                    with tree_ir.ExpressionVisitor<js.Expression> {
+                    with tree_ir.ExpressionVisitor<js.Expression>,
+                         TypeTestEmitter {
   final CodegenRegistry registry;
 
   final Glue glue;
@@ -381,8 +385,18 @@ class CodeGenerator extends tree_ir.StatementVisitor
 
   @override
   js.Expression visitTypeOperator(tree_ir.TypeOperator node) {
-    return giveup(node);
-    // TODO: implement visitTypeOperator
+    if (!node.isTypeTest) {
+      giveup(node, 'type casts not implemented.');
+    }
+    DartType type = node.type;
+    if (type is InterfaceType && type.typeArguments.isEmpty) {
+      glue.registerIsCheck(type, registry);
+      js.Expression value = visitExpression(node.receiver);
+      return glue.isNativePrimitiveType(type)
+          ? emitNativeSubtypeTest(node, value, type.element)

[sigurdm, 2015/04/30 09:30:51]

Maybe it would be nicer to have the logic checking for primitiveness inside a
method TypeTestEmitter.emitSubTypeTest, and that would be able to call out to
either emitNativeSubtypeTest or emitGeneralSubtypeTest.

+          : emitGeneralSubtypeTest(node, value, type);
+    }
+    return giveup(node, 'type check unimplemented for $type.');
   }
 
   @override