Add support for capturing and changing the current isolate in the closure wrapper.

frog/leg/ssa/builder.dart

 // 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.
 
 class Interceptors {
   Compiler compiler;
   Interceptors(Compiler this.compiler);
 
   SourceString mapOperatorToMethodName(Operator op) {
     String name = op.source.stringValue;
@@ skipping 1691 matching lines @@
         addGenericSendArgumentsToList(link, inputs);
         LiteralString type = node.arguments.head;
         LiteralString literal = node.arguments.tail.head;
         compiler.ensure(literal is LiteralString);
         compiler.ensure(type is LiteralString);
         push(new HForeign(literal.dartString, type.dartString, inputs));
         break;
       case "UNINTERCEPTED":
         Link<Node> link = node.arguments;
         if (!link.tail.isEmpty()) {
-          compiler.cancel('More than one expression in UNINTERCEPTED()');
+          compiler.cancel(
+              'More than one expression in UNINTERCEPTED()', node: node);
         }
         Expression expression = link.head;
         disableMethodInterception();
         visit(expression);
         enableMethodInterception();
         break;
       case "JS_HAS_EQUALS":
         List<HInstruction> inputs = <HInstruction>[];
         if (!node.arguments.tail.isEmpty()) {
-          compiler.cancel('More than one expression in JS_HAS_EQUALS()');
+          compiler.cancel(
+              'More than one expression in JS_HAS_EQUALS()', node: node);
         }
         addGenericSendArgumentsToList(node.arguments, inputs);
         String name = compiler.namer.instanceMethodName(
             Namer.OPERATOR_EQUALS, 1);
         push(new HForeign(new DartString.literal('!!#.$name'),
                           const LiteralDartString('bool'),
                           inputs));
         break;
+      case "JS_CURRENT_ISOLATE":
+        if (!node.arguments.isEmpty()) {

[kasperl, 2012/03/16 11:06:42]

There's sooo much code in these cases. Maybe this would be a good opportunity to
factor them out into helper methods?

[ngeoffray, 2012/03/19 10:29:58]

Done.

+          compiler.cancel(
+              'Too many arguments to JS_CURRENT_ISOLATE', node: node);
+        }
+
+        if (!compiler.hasIsolateSupport()) {
+          // If the isolate library is not used, we just generate code
+          // to fetch the Leg's current isolate.
+          String name = compiler.namer.CURRENT_ISOLATE;
+          push(new HForeign(new DartString.literal(name),
+                            const LiteralDartString('bool'),

[kasperl, 2012/03/16 11:06:42]

Not sure I understand the use of bool here.

[ngeoffray, 2012/03/19 10:29:58]

Typo, replaced with 'var'.

+                            <HInstruction>[]));
+        } else {
+          // Call a helper method from the isolate library.

[kasperl, 2012/03/16 11:06:42]

Maybe explain here why you cannot just grab hold of the current isolate?

[ngeoffray, 2012/03/19 10:29:58]

Done.

+          Element element = compiler.isolateLibrary.find(
+              const SourceString('_currentIsolate'));
+          if (element === null) {
+            compiler.cancel(
+                'Isolate library and compiler mismatch', node: node);
+          }
+          HStatic target = new HStatic(element);
+          add(target);
+          push(new HInvokeStatic(Selector.INVOCATION_0,
+                                 <HInstruction>[target]));
+        }
+        break;
+      case "JS_CALL_IN_ISOLATE":
+        Link<Node> link = node.arguments;
+        if (!compiler.hasIsolateSupport()) {
+          // If the isolate library is not used, we just invoke the
+          // closure.
+          visit(link.tail.head);
+          push(new HInvokeClosure(Selector.INVOCATION_0,
+                                  <HInstruction>[pop()]));
+        } else {
+          // Call a helper method from the isolate library.
+          Element element = compiler.isolateLibrary.find(
+              const SourceString('_callInIsolate'));
+          if (element === null) {
+            compiler.cancel(
+                'Isolate library and compiler mismatch', node: node);
+          }
+          HStatic target = new HStatic(element);
+          add(target);
+          List<HInstruction> inputs = <HInstruction>[target];
+          addGenericSendArgumentsToList(link, inputs);
+          push(new HInvokeStatic(Selector.INVOCATION_0, inputs));
+        }
+        break;
       case "native":
         native.handleSsaNative(this, node);
         break;
       default:
         throw "Unknown foreign: ${node.selector}";
     }
   }
 
   visitSuperSend(Send node) {
     Selector selector = elements.getSelector(node);
@@ skipping 779 matching lines @@
     buildBody() {
       // TODO(lrn): Make sure to take continue into account.
       visit(body);
       if (isAborted()) {
         compiler.reportWarning(body, "aborting loop body");
       }
     }
     handleIf(buildBody, null);
   }
 }