mcs/class/dlr/Runtime/Microsoft.Dynamic/Interpreter/LightCompiler.cs

   1 /* ****************************************************************************
   2  *
   3  * Copyright (c) Microsoft Corporation.
   4  *
   5  * This source code is subject to terms and conditions of the Apache License, Version 2.0. A
   6  * copy of the license can be found in the License.html file at the root of this distribution. If
   7  * you cannot locate the  Apache License, Version 2.0, please send an email to
   8  * dlr@microsoft.com. By using this source code in any fashion, you are agreeing to be bound
   9  * by the terms of the Apache License, Version 2.0.
  10  *
  11  * You must not remove this notice, or any other, from this software.
  12  *
  13  *
  14  * ***************************************************************************/
  15
  16 #if FEATURE_CORE_DLR
  17 using System.Linq.Expressions;
  18 using Microsoft.Scripting.Ast;
  19 #else
  20 using Microsoft.Scripting.Ast;
  21 #endif
  22
  23 using System;
  24 using System.Linq;
  25 using System.Collections.Generic;
  26 using System.Diagnostics;
  27 using System.Reflection;
  28 using System.Runtime.CompilerServices;
  29 #if FEATURE_REFEMIT
  30 using System.Reflection.Emit;
  31 #endif
  32
  33 using AstUtils = Microsoft.Scripting.Ast.Utils;
  34 using Microsoft.Scripting.Utils;
  35 using Microsoft.Scripting.Runtime;
  36 using System.Security;
  37
  38 namespace Microsoft.Scripting.Interpreter {
  39     public sealed class ExceptionHandler {
  40         public readonly Type ExceptionType;
  41         public readonly int StartIndex;
  42         public readonly int EndIndex;
  43         public readonly int LabelIndex;
  44         public readonly int HandlerStartIndex;
  45
  46         public bool IsFault { get { return ExceptionType == null; } }
  47
  48         internal ExceptionHandler(int start, int end, int labelIndex, int handlerStartIndex, Type exceptionType) {
  49             StartIndex = start;
  50             EndIndex = end;
  51             LabelIndex = labelIndex;
  52             ExceptionType = exceptionType;
  53             HandlerStartIndex = handlerStartIndex;
  54         }
  55
  56         public bool Matches(Type exceptionType, int index) {
  57             if (index >= StartIndex && index < EndIndex) {
  58                 if (ExceptionType == null || ExceptionType.IsAssignableFrom(exceptionType)) {
  59                     return true;
  60                 }
  61             }
  62             return false;
  63         }
  64
  65         public bool IsBetterThan(ExceptionHandler other) {
  66             if (other == null) return true;
  67
  68             if (StartIndex == other.StartIndex && EndIndex == other.EndIndex) {
  69                 return HandlerStartIndex < other.HandlerStartIndex;
  70             }
  71
  72             if (StartIndex > other.StartIndex) {
  73                 Debug.Assert(EndIndex <= other.EndIndex);
  74                 return true;
  75             } else if (EndIndex < other.EndIndex) {
  76                 Debug.Assert(StartIndex == other.StartIndex);
  77                 return true;
  78             } else {
  79                 return false;
  80             }
  81         }
  82
  83         internal bool IsInside(int index) {
  84             return index >= StartIndex && index < EndIndex;
  85         }
  86
  87         public override string ToString() {
  88             return String.Format("{0} [{1}-{2}] [{3}->]",
  89                 (IsFault ? "fault" : "catch(" + ExceptionType.Name + ")"),
  90                 StartIndex, EndIndex,
  91                 HandlerStartIndex
  92             );
  93         }
  94     }
  95
  96     [Serializable]
  97     public class DebugInfo {
  98         // TODO: readonly
  99
 100         public int StartLine, EndLine;
 101         public int Index;
 102         public string FileName;
 103         public bool IsClear;
 104         private static readonly DebugInfoComparer _debugComparer = new DebugInfoComparer();
 105
 106         private class DebugInfoComparer : IComparer<DebugInfo> {
 107             //We allow comparison between int and DebugInfo here
 108             int IComparer<DebugInfo>.Compare(DebugInfo d1, DebugInfo d2) {
 109                 if (d1.Index > d2.Index) return 1;
 110                 else if (d1.Index == d2.Index) return 0;
 111                 else return -1;
 112             }
 113         }
 114
 115         public static DebugInfo GetMatchingDebugInfo(DebugInfo[] debugInfos, int index) {
 116             //Create a faked DebugInfo to do the search
 117             DebugInfo d = new DebugInfo { Index = index };
 118
 119             //to find the closest debug info before the current index
 120
 121             int i = Array.BinarySearch<DebugInfo>(debugInfos, d, _debugComparer);
 122             if (i < 0) {
 123                 //~i is the index for the first bigger element
 124                 //if there is no bigger element, ~i is the length of the array
 125                 i = ~i;
 126                 if (i == 0) {
 127                     return null;
 128                 }
 129                 //return the last one that is smaller
 130                 i = i - 1;
 131             }
 132
 133             return debugInfos[i];
 134         }
 135
 136         public override string ToString() {
 137             if (IsClear) {
 138                 return String.Format("{0}: clear", Index);
 139             } else {
 140                 return String.Format("{0}: [{1}-{2}] '{3}'", Index, StartLine, EndLine, FileName);
 141             }
 142         }
 143     }
 144
 145     // TODO:
 146     [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Performance", "CA1815:OverrideEqualsAndOperatorEqualsOnValueTypes")]
 147     [Serializable]
 148     public struct InterpretedFrameInfo {
 149         public readonly string MethodName;
 150
 151         // TODO:
 152         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Security", "CA2104:DoNotDeclareReadOnlyMutableReferenceTypes")]
 153         public readonly DebugInfo DebugInfo;
 154
 155         public InterpretedFrameInfo(string methodName, DebugInfo info) {
 156             MethodName = methodName;
 157             DebugInfo = info;
 158         }
 159
 160         public override string ToString() {
 161             return MethodName + (DebugInfo != null ? ": " + DebugInfo.ToString() : null);
 162         }
 163     }
 164
 165     [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Maintainability", "CA1506:AvoidExcessiveClassCoupling")]
 166     public sealed class LightCompiler {
 167         internal const int DefaultCompilationThreshold = 32;
 168
 169         // zero: sync compilation
 170         private readonly int _compilationThreshold;
 171
 172         private readonly InstructionList _instructions;
 173         private readonly LocalVariables _locals = new LocalVariables();
 174
 175         private readonly List<ExceptionHandler> _handlers = new List<ExceptionHandler>();
 176
 177         private readonly List<DebugInfo> _debugInfos = new List<DebugInfo>();
 178         private readonly HybridReferenceDictionary<LabelTarget, LabelInfo> _treeLabels = new HybridReferenceDictionary<LabelTarget, LabelInfo>();
 179         private LabelScopeInfo _labelBlock = new LabelScopeInfo(null, LabelScopeKind.Lambda);
 180
 181         private readonly Stack<ParameterExpression> _exceptionForRethrowStack = new Stack<ParameterExpression>();
 182
 183         // Set to true to force compiliation of this lambda.
 184         // This disables the interpreter for this lambda. We still need to
 185         // walk it, however, to resolve variables closed over from the parent
 186         // lambdas (because they may be interpreted).
 187         private bool _forceCompile;
 188
 189         private readonly LightCompiler _parent;
 190
 191         private static LocalDefinition[] EmptyLocals = new LocalDefinition[0];
 192
 193         internal LightCompiler(int compilationThreshold) {
 194             _instructions = new InstructionList();
 195             _compilationThreshold = compilationThreshold < 0 ? DefaultCompilationThreshold : compilationThreshold;
 196         }
 197
 198         private LightCompiler(LightCompiler parent)
 199             : this(parent._compilationThreshold) {
 200             _parent = parent;
 201         }
 202
 203         public InstructionList Instructions {
 204             get { return _instructions; }
 205         }
 206
 207         public LocalVariables Locals {
 208             get { return _locals; }
 209         }
 210
 211         internal static Expression Unbox(Expression strongBoxExpression) {
 212             return Expression.Field(strongBoxExpression, typeof(StrongBox<object>).GetDeclaredField("Value"));
 213         }
 214
 215         internal LightDelegateCreator CompileTop(LambdaExpression node) {
 216             foreach (var p in node.Parameters) {
 217                 var local = _locals.DefineLocal(p, 0);
 218                 _instructions.EmitInitializeParameter(local.Index);
 219             }
 220
 221             Compile(node.Body);
 222
 223             // pop the result of the last expression:
 224             if (node.Body.Type != typeof(void) && node.ReturnType == typeof(void)) {
 225                 _instructions.EmitPop();
 226             }
 227
 228             Debug.Assert(_instructions.CurrentStackDepth == (node.ReturnType != typeof(void) ? 1 : 0));
 229
 230             return new LightDelegateCreator(MakeInterpreter(node.Name), node);
 231         }
 232
 233         internal LightDelegateCreator CompileTop(LightLambdaExpression node) {
 234             foreach (var p in node.Parameters) {
 235                 var local = _locals.DefineLocal(p, 0);
 236                 _instructions.EmitInitializeParameter(local.Index);
 237             }
 238
 239             Compile(node.Body);
 240
 241             // pop the result of the last expression:
 242             if (node.Body.Type != typeof(void) && node.ReturnType == typeof(void)) {
 243                 _instructions.EmitPop();
 244             }
 245
 246             Debug.Assert(_instructions.CurrentStackDepth == (node.ReturnType != typeof(void) ? 1 : 0));
 247
 248             return new LightDelegateCreator(MakeInterpreter(node.Name), node);
 249         }
 250
 251         private Interpreter MakeInterpreter(string lambdaName) {
 252             if (_forceCompile) {
 253                 return null;
 254             }
 255
 256             var handlers = _handlers.ToArray();
 257             var debugInfos = _debugInfos.ToArray();
 258
 259             return new Interpreter(lambdaName, _locals, GetBranchMapping(), _instructions.ToArray(), handlers, debugInfos, _compilationThreshold);
 260         }
 261
 262
 263         private void CompileConstantExpression(Expression expr) {
 264             var node = (ConstantExpression)expr;
 265             _instructions.EmitLoad(node.Value, node.Type);
 266         }
 267
 268         private void CompileDefaultExpression(Expression expr) {
 269             CompileDefaultExpression(expr.Type);
 270         }
 271
 272         private void CompileDefaultExpression(Type type) {
 273             if (type != typeof(void)) {
 274                 if (type.IsValueType()) {
 275                     object value = ScriptingRuntimeHelpers.GetPrimitiveDefaultValue(type);
 276                     if (value != null) {
 277                         _instructions.EmitLoad(value);
 278                     } else {
 279                         _instructions.EmitDefaultValue(type);
 280                     }
 281                 } else {
 282                     _instructions.EmitLoad(null);
 283                 }
 284             }
 285         }
 286
 287         private LocalVariable EnsureAvailableForClosure(ParameterExpression expr) {
 288             LocalVariable local;
 289             if (_locals.TryGetLocalOrClosure(expr, out local)) {
 290                 if (!local.InClosure && !local.IsBoxed) {
 291                     _locals.Box(expr, _instructions);
 292                 }
 293                 return local;
 294             } else if (_parent != null) {
 295                 _parent.EnsureAvailableForClosure(expr);
 296                 return _locals.AddClosureVariable(expr);
 297             } else {
 298                 throw new InvalidOperationException("unbound variable: " + expr);
 299             }
 300         }
 301
 302         private void EnsureVariable(ParameterExpression variable) {
 303             if (!_locals.ContainsVariable(variable)) {
 304                 EnsureAvailableForClosure(variable);
 305             }
 306         }
 307
 308         private LocalVariable ResolveLocal(ParameterExpression variable) {
 309             LocalVariable local;
 310             if (!_locals.TryGetLocalOrClosure(variable, out local)) {
 311                 local = EnsureAvailableForClosure(variable);
 312             }
 313             return local;
 314         }
 315
 316         public void CompileGetVariable(ParameterExpression variable) {
 317             LocalVariable local = ResolveLocal(variable);
 318
 319             if (local.InClosure) {
 320                 _instructions.EmitLoadLocalFromClosure(local.Index);
 321             } else if (local.IsBoxed) {
 322                 _instructions.EmitLoadLocalBoxed(local.Index);
 323             } else {
 324                 _instructions.EmitLoadLocal(local.Index);
 325             }
 326
 327             _instructions.SetDebugCookie(variable.Name);
 328         }
 329
 330         public void CompileGetBoxedVariable(ParameterExpression variable) {
 331             LocalVariable local = ResolveLocal(variable);
 332
 333             if (local.InClosure) {
 334                 _instructions.EmitLoadLocalFromClosureBoxed(local.Index);
 335             } else {
 336                 Debug.Assert(local.IsBoxed);
 337                 _instructions.EmitLoadLocal(local.Index);
 338             }
 339
 340             _instructions.SetDebugCookie(variable.Name);
 341         }
 342
 343         public void CompileSetVariable(ParameterExpression variable, bool isVoid) {
 344             LocalVariable local = ResolveLocal(variable);
 345
 346             if (local.InClosure) {
 347                 if (isVoid) {
 348                     _instructions.EmitStoreLocalToClosure(local.Index);
 349                 } else {
 350                     _instructions.EmitAssignLocalToClosure(local.Index);
 351                 }
 352             } else if (local.IsBoxed) {
 353                 if (isVoid) {
 354                     _instructions.EmitStoreLocalBoxed(local.Index);
 355                 } else {
 356                     _instructions.EmitAssignLocalBoxed(local.Index);
 357                 }
 358             } else {
 359                 if (isVoid) {
 360                     _instructions.EmitStoreLocal(local.Index);
 361                 } else {
 362                     _instructions.EmitAssignLocal(local.Index);
 363                 }
 364             }
 365
 366             _instructions.SetDebugCookie(variable.Name);
 367         }
 368
 369         public void CompileParameterExpression(Expression expr) {
 370             var node = (ParameterExpression)expr;
 371             CompileGetVariable(node);
 372         }
 373
 374         private void CompileBlockExpression(Expression expr, bool asVoid) {
 375             var node = (BlockExpression)expr;
 376             var end = CompileBlockStart(node);
 377
 378             var lastExpression = node.Expressions[node.Expressions.Count - 1];
 379             Compile(lastExpression, asVoid);
 380             CompileBlockEnd(end);
 381         }
 382
 383         private LocalDefinition[] CompileBlockStart(BlockExpression node) {
 384             var start = _instructions.Count;
 385
 386             LocalDefinition[] locals;
 387             var variables = node.Variables;
 388             if (variables.Count != 0) {
 389                 // TODO: basic flow analysis so we don't have to initialize all
 390                 // variables.
 391                 locals = new LocalDefinition[variables.Count];
 392                 int localCnt = 0;
 393                 foreach (var variable in variables) {
 394                     var local = _locals.DefineLocal(variable, start);
 395                     locals[localCnt++] = local;
 396
 397                     _instructions.EmitInitializeLocal(local.Index, variable.Type);
 398                     _instructions.SetDebugCookie(variable.Name);
 399                 }
 400             } else {
 401                 locals = EmptyLocals;
 402             }
 403
 404             for (int i = 0; i < node.Expressions.Count - 1; i++) {
 405                 CompileAsVoid(node.Expressions[i]);
 406             }
 407             return locals;
 408         }
 409
 410         private void CompileBlockEnd(LocalDefinition[] locals) {
 411             foreach (var local in locals) {
 412                 _locals.UndefineLocal(local, _instructions.Count);
 413             }
 414         }
 415
 416         private void CompileIndexExpression(Expression expr) {
 417             var index = (IndexExpression)expr;
 418
 419             // instance:
 420             if (index.Object != null) {
 421                 Compile(index.Object);
 422             }
 423
 424             // indexes, byref args not allowed.
 425             foreach (var arg in index.Arguments) {
 426                 Compile(arg);
 427             }
 428
 429             if (index.Indexer != null) {
 430                 EmitCall(index.Indexer.GetGetMethod(true));
 431             } else if (index.Arguments.Count != 1) {
 432                 EmitCall(index.Object.Type.GetMethod("Get", BindingFlags.Public | BindingFlags.Instance));
 433             } else {
 434                 _instructions.EmitGetArrayItem(index.Object.Type);
 435             }
 436         }
 437
 438         private void CompileIndexAssignment(BinaryExpression node, bool asVoid) {
 439             var index = (IndexExpression)node.Left;
 440
 441             if (!asVoid) {
 442                 throw new NotImplementedException();
 443             }
 444
 445             // instance:
 446             if (index.Object != null) {
 447                 Compile(index.Object);
 448             }
 449
 450             // indexes, byref args not allowed.
 451             foreach (var arg in index.Arguments) {
 452                 Compile(arg);
 453             }
 454
 455             // value:
 456             Compile(node.Right);
 457
 458             if (index.Indexer != null) {
 459                 EmitCall(index.Indexer.GetSetMethod(true));
 460             } else if (index.Arguments.Count != 1) {
 461                 EmitCall(index.Object.Type.GetMethod("Set", BindingFlags.Public | BindingFlags.Instance));
 462             } else {
 463                 _instructions.EmitSetArrayItem(index.Object.Type);
 464             }
 465         }
 466
 467         private void CompileMemberAssignment(BinaryExpression node, bool asVoid) {
 468             var member = (MemberExpression)node.Left;
 469
 470             PropertyInfo pi = member.Member as PropertyInfo;
 471             if (pi != null) {
 472                 var method = pi.GetSetMethod(true);
 473                 Compile(member.Expression);
 474                 Compile(node.Right);
 475
 476                 int start = _instructions.Count;
 477                 if (!asVoid) {
 478                     LocalDefinition local = _locals.DefineLocal(Expression.Parameter(node.Right.Type), start);
 479                     _instructions.EmitAssignLocal(local.Index);
 480                     EmitCall(method);
 481                     _instructions.EmitLoadLocal(local.Index);
 482                     _locals.UndefineLocal(local, _instructions.Count);
 483                 } else {
 484                     EmitCall(method);
 485                 }
 486                 return;
 487             }
 488
 489             FieldInfo fi = member.Member as FieldInfo;
 490             if (fi != null) {
 491                 if (member.Expression != null) {
 492                     Compile(member.Expression);
 493                 }
 494                 Compile(node.Right);
 495
 496                 int start = _instructions.Count;
 497                 if (!asVoid) {
 498                     LocalDefinition local = _locals.DefineLocal(Expression.Parameter(node.Right.Type), start);
 499                     _instructions.EmitAssignLocal(local.Index);
 500                     _instructions.EmitStoreField(fi);
 501                     _instructions.EmitLoadLocal(local.Index);
 502                     _locals.UndefineLocal(local, _instructions.Count);
 503                 } else {
 504                     _instructions.EmitStoreField(fi);
 505                 }
 506                 return;
 507             }
 508
 509             throw new NotImplementedException();
 510         }
 511
 512         private void CompileVariableAssignment(BinaryExpression node, bool asVoid) {
 513             this.Compile(node.Right);
 514
 515             var target = (ParameterExpression)node.Left;
 516             CompileSetVariable(target, asVoid);
 517         }
 518
 519         private void CompileAssignBinaryExpression(Expression expr, bool asVoid) {
 520             var node = (BinaryExpression)expr;
 521
 522             switch (node.Left.NodeType) {
 523                 case ExpressionType.Index:
 524                     CompileIndexAssignment(node, asVoid);
 525                     break;
 526
 527                 case ExpressionType.MemberAccess:
 528                     CompileMemberAssignment(node, asVoid);
 529                     break;
 530
 531                 case ExpressionType.Parameter:
 532                 case ExpressionType.Extension:
 533                     CompileVariableAssignment(node, asVoid);
 534                     break;
 535
 536                 default:
 537                     throw new InvalidOperationException("Invalid lvalue for assignment: " + node.Left.NodeType);
 538             }
 539         }
 540
 541         private void CompileBinaryExpression(Expression expr) {
 542             var node = (BinaryExpression)expr;
 543
 544             if (node.Method != null) {
 545                 Compile(node.Left);
 546                 Compile(node.Right);
 547                 EmitCall(node.Method);
 548             } else {
 549                 switch (node.NodeType) {
 550                     case ExpressionType.ArrayIndex:
 551                         Debug.Assert(node.Right.Type == typeof(int));
 552                         Compile(node.Left);
 553                         Compile(node.Right);
 554                         _instructions.EmitGetArrayItem(node.Left.Type);
 555                         return;
 556
 557                     case ExpressionType.Add:
 558                     case ExpressionType.AddChecked:
 559                     case ExpressionType.Subtract:
 560                     case ExpressionType.SubtractChecked:
 561                     case ExpressionType.Multiply:
 562                     case ExpressionType.MultiplyChecked:
 563                     case ExpressionType.Divide:
 564                     case ExpressionType.Modulo:
 565                         CompileArithmetic(node.NodeType, node.Left, node.Right);
 566                         return;
 567
 568                     case ExpressionType.Equal:
 569                         CompileEqual(node.Left, node.Right);
 570                         return;
 571
 572                     case ExpressionType.NotEqual:
 573                         CompileNotEqual(node.Left, node.Right);
 574                         return;
 575
 576                     case ExpressionType.LessThan:
 577                     case ExpressionType.LessThanOrEqual:
 578                     case ExpressionType.GreaterThan:
 579                     case ExpressionType.GreaterThanOrEqual:
 580                         CompileComparison(node.NodeType, node.Left, node.Right);
 581                         return;
 582
 583                     case ExpressionType.LeftShift:
 584                     case ExpressionType.RightShift:
 585                         CompileShift(node.NodeType, node.Left, node.Right);
 586                         return;
 587
 588                     case ExpressionType.And:
 589                     case ExpressionType.Or:
 590                     case ExpressionType.ExclusiveOr:
 591                         CompileLogical(node.NodeType, node.Left, node.Right);
 592                         return;
 593
 594                     default:
 595                         throw new NotImplementedException(node.NodeType.ToString());
 596                 }
 597             }
 598         }
 599
 600         private void CompileEqual(Expression left, Expression right) {
 601             Debug.Assert(left.Type == right.Type || !left.Type.IsValueType() && !right.Type.IsValueType());
 602             Compile(left);
 603             Compile(right);
 604             _instructions.EmitEqual(left.Type);
 605         }
 606
 607         private void CompileNotEqual(Expression left, Expression right) {
 608             Debug.Assert(left.Type == right.Type || !left.Type.IsValueType() && !right.Type.IsValueType());
 609             Compile(left);
 610             Compile(right);
 611             _instructions.EmitNotEqual(left.Type);
 612         }
 613
 614         private void CompileComparison(ExpressionType nodeType, Expression left, Expression right) {
 615             Debug.Assert(left.Type == right.Type && TypeUtils.IsNumeric(left.Type));
 616
 617             // TODO:
 618             // if (TypeUtils.IsNullableType(left.Type) && liftToNull) ...
 619
 620             Compile(left);
 621             Compile(right);
 622
 623             switch (nodeType) {
 624                 case ExpressionType.LessThan: _instructions.EmitLessThan(left.Type); break;
 625                 case ExpressionType.LessThanOrEqual: _instructions.EmitLessThanOrEqual(left.Type); break;
 626                 case ExpressionType.GreaterThan: _instructions.EmitGreaterThan(left.Type); break;
 627                 case ExpressionType.GreaterThanOrEqual: _instructions.EmitGreaterThanOrEqual(left.Type); break;
 628                 default: throw Assert.Unreachable;
 629             }
 630         }
 631
 632         private void CompileArithmetic(ExpressionType nodeType, Expression left, Expression right) {
 633             Debug.Assert(left.Type == right.Type && TypeUtils.IsArithmetic(left.Type));
 634             Compile(left);
 635             Compile(right);
 636             switch (nodeType) {
 637                 case ExpressionType.Add: _instructions.EmitAdd(left.Type, false); break;
 638                 case ExpressionType.AddChecked: _instructions.EmitAdd(left.Type, true); break;
 639                 case ExpressionType.Subtract: _instructions.EmitSub(left.Type, false); break;
 640                 case ExpressionType.SubtractChecked: _instructions.EmitSub(left.Type, true); break;
 641                 case ExpressionType.Multiply: _instructions.EmitMul(left.Type, false); break;
 642                 case ExpressionType.MultiplyChecked: _instructions.EmitMul(left.Type, true); break;
 643                 case ExpressionType.Divide: _instructions.EmitDiv(left.Type); break;
 644                 case ExpressionType.Modulo: _instructions.EmitMod(left.Type); break;
 645                 default: throw Assert.Unreachable;
 646             }
 647         }
 648
 649         private void CompileShift(ExpressionType nodeType, Expression left, Expression right) {
 650             Debug.Assert(right.Type == typeof (int));
 651             Compile(left);
 652             Compile(right);
 653             switch (nodeType) {
 654                 case ExpressionType.LeftShift: _instructions.EmitShl(left.Type); break;
 655                 case ExpressionType.RightShift: _instructions.EmitShr(left.Type); break;
 656                 default: throw Assert.Unreachable;
 657             }
 658         }
 659
 660         private void CompileLogical(ExpressionType nodeType, Expression left, Expression right) {
 661             Debug.Assert(left.Type == right.Type && TypeUtils.IsIntegerOrBool(left.Type));
 662             Compile(left);
 663             Compile(right);
 664             switch (nodeType) {
 665                 case ExpressionType.And: _instructions.EmitAnd(left.Type); break;
 666                 case ExpressionType.Or: _instructions.EmitOr(left.Type); break;
 667                 case ExpressionType.ExclusiveOr: _instructions.EmitExclusiveOr(left.Type); break;
 668                 default: throw Assert.Unreachable;
 669             }
 670         }
 671
 672         private void CompileConvertUnaryExpression(Expression expr) {
 673             var node = (UnaryExpression)expr;
 674             if (node.Method != null) {
 675                 Compile(node.Operand);
 676
 677                 // We should be able to ignore Int32ToObject
 678                 if (node.Method != Runtime.ScriptingRuntimeHelpers.Int32ToObjectMethod) {
 679                     EmitCall(node.Method);
 680                 }
 681             } else if (node.Type == typeof(void)) {
 682                 CompileAsVoid(node.Operand);
 683             } else {
 684                 Compile(node.Operand);
 685                 CompileConvertToType(node.Operand.Type, node.Type, node.NodeType == ExpressionType.ConvertChecked);
 686             }
 687         }
 688
 689         private void CompileConvertToType(Type typeFrom, Type typeTo, bool isChecked) {
 690             Debug.Assert(typeFrom != typeof(void) && typeTo != typeof(void));
 691
 692             if (TypeUtils.AreEquivalent(typeTo, typeFrom)) {
 693                 return;
 694             }
 695
 696             TypeCode from = typeFrom.GetTypeCode();
 697             TypeCode to = typeTo.GetTypeCode();
 698             if (TypeUtils.IsNumeric(from) && TypeUtils.IsNumeric(to)) {
 699                 if (isChecked) {
 700                     _instructions.EmitNumericConvertChecked(from, to);
 701                 } else {
 702                     _instructions.EmitNumericConvertUnchecked(from, to);
 703                 }
 704                 return;
 705             }
 706
 707             // TODO: Conversions to a super-class or implemented interfaces are no-op.
 708             // A conversion to a non-implemented interface or an unrelated class, etc. should fail.
 709             return;
 710         }
 711
 712         private void CompileNegateExpression(UnaryExpression node, bool @checked) {
 713             Compile(node.Operand);
 714             _instructions.EmitNegate(node.Type, @checked);
 715         }
 716
 717         private void CompileNotExpression(UnaryExpression node) {
 718             Compile(node.Operand);
 719             _instructions.EmitNot(node.Type);
 720         }
 721
 722         private void CompileUnaryExpression(Expression expr) {
 723             var node = (UnaryExpression)expr;
 724
 725             if (node.Method != null) {
 726                 Compile(node.Operand);
 727                 EmitCall(node.Method);
 728             } else {
 729                 switch (node.NodeType) {
 730                     case ExpressionType.ArrayLength:
 731                         Compile(node.Operand);
 732                         _instructions.EmitGetArrayLength (node.Type);
 733                         return;
 734                     case ExpressionType.Negate:
 735                         CompileNegateExpression(node, false);
 736                         return;
 737                     case ExpressionType.NegateChecked:
 738                         CompileNegateExpression(node, true);
 739                         return;
 740                     case ExpressionType.Not:
 741                         CompileNotExpression(node);
 742                         return;
 743                     case ExpressionType.UnaryPlus:
 744                         // unary plus is a nop:
 745                         Compile(node.Operand);
 746                         return;
 747                     case ExpressionType.TypeAs:
 748                         CompileTypeAsExpression(node);
 749                         return;
 750                     default:
 751                         throw new NotImplementedException(node.NodeType.ToString());
 752                 }
 753             }
 754         }
 755
 756         private void CompileAndAlsoBinaryExpression(Expression expr) {
 757             CompileLogicalBinaryExpression(expr, true);
 758         }
 759
 760         private void CompileOrElseBinaryExpression(Expression expr) {
 761             CompileLogicalBinaryExpression(expr, false);
 762         }
 763
 764         private void CompileLogicalBinaryExpression(Expression expr, bool andAlso) {
 765             var node = (BinaryExpression)expr;
 766             if (node.Method != null) {
 767                 throw new NotImplementedException();
 768             }
 769
 770             Debug.Assert(node.Left.Type == node.Right.Type);
 771
 772             if (node.Left.Type == typeof(bool)) {
 773                 var elseLabel = _instructions.MakeLabel();
 774                 var endLabel = _instructions.MakeLabel();
 775                 Compile(node.Left);
 776                 if (andAlso) {
 777                     _instructions.EmitBranchFalse(elseLabel);
 778                 } else {
 779                     _instructions.EmitBranchTrue(elseLabel);
 780                 }
 781                 Compile(node.Right);
 782                 _instructions.EmitBranch(endLabel, false, true);
 783                 _instructions.MarkLabel(elseLabel);
 784                 _instructions.EmitLoad(!andAlso);
 785                 _instructions.MarkLabel(endLabel);
 786                 return;
 787             }
 788
 789             Debug.Assert(node.Left.Type == typeof(bool?));
 790             throw new NotImplementedException();
 791         }
 792
 793         private void CompileConditionalExpression(Expression expr, bool asVoid) {
 794             var node = (ConditionalExpression)expr;
 795             Compile(node.Test);
 796
 797             if (node.IfTrue == AstUtils.Empty()) {
 798                 var endOfFalse = _instructions.MakeLabel();
 799                 _instructions.EmitBranchTrue(endOfFalse);
 800                 Compile(node.IfFalse, asVoid);
 801                 _instructions.MarkLabel(endOfFalse);
 802             } else {
 803                 var endOfTrue = _instructions.MakeLabel();
 804                 _instructions.EmitBranchFalse(endOfTrue);
 805                 Compile(node.IfTrue, asVoid);
 806
 807                 if (node.IfFalse != AstUtils.Empty()) {
 808                     var endOfFalse = _instructions.MakeLabel();
 809                     _instructions.EmitBranch(endOfFalse, false, !asVoid);
 810                     _instructions.MarkLabel(endOfTrue);
 811                     Compile(node.IfFalse, asVoid);
 812                     _instructions.MarkLabel(endOfFalse);
 813                 } else {
 814                     _instructions.MarkLabel(endOfTrue);
 815                 }
 816             }
 817         }
 818
 819         #region Loops
 820
 821         private void CompileLoopExpression(Expression expr) {
 822             var node = (LoopExpression)expr;
 823             var enterLoop = new EnterLoopInstruction(node, _locals, _compilationThreshold, _instructions.Count);
 824
 825             PushLabelBlock(LabelScopeKind.Statement);
 826             LabelInfo breakLabel = DefineLabel(node.BreakLabel);
 827             LabelInfo continueLabel = DefineLabel(node.ContinueLabel);
 828
 829             _instructions.MarkLabel(continueLabel.GetLabel(this));
 830
 831             // emit loop body:
 832             _instructions.Emit(enterLoop);
 833             CompileAsVoid(node.Body);
 834
 835             // emit loop branch:
 836             _instructions.EmitBranch(continueLabel.GetLabel(this), expr.Type != typeof(void), false);
 837
 838             _instructions.MarkLabel(breakLabel.GetLabel(this));
 839
 840             PopLabelBlock(LabelScopeKind.Statement);
 841
 842             enterLoop.FinishLoop(_instructions.Count);
 843         }
 844
 845         #endregion
 846
 847         private void CompileSwitchExpression(Expression expr) {
 848             var node = (SwitchExpression)expr;
 849
 850             // Currently only supports int test values, with no method
 851             if (node.SwitchValue.Type != typeof(int) || node.Comparison != null) {
 852                 throw new NotImplementedException();
 853             }
 854
 855             // Test values must be constant
 856             if (!node.Cases.All(c => c.TestValues.All(t => t is ConstantExpression))) {
 857                 throw new NotImplementedException();
 858             }
 859             LabelInfo end = DefineLabel(null);
 860             bool hasValue = node.Type != typeof(void);
 861
 862             Compile(node.SwitchValue);
 863             var caseDict = new Dictionary<int, int>();
 864             int switchIndex = _instructions.Count;
 865             _instructions.EmitSwitch(caseDict);
 866
 867             if (node.DefaultBody != null) {
 868                 Compile(node.DefaultBody);
 869             } else {
 870                 Debug.Assert(!hasValue);
 871             }
 872             _instructions.EmitBranch(end.GetLabel(this), false, hasValue);
 873
 874             for (int i = 0; i < node.Cases.Count; i++) {
 875                 var switchCase = node.Cases[i];
 876
 877                 int caseOffset = _instructions.Count - switchIndex;
 878                 foreach (ConstantExpression testValue in switchCase.TestValues) {
 879                     caseDict[(int)testValue.Value] = caseOffset;
 880                 }
 881
 882                 Compile(switchCase.Body);
 883
 884                 if (i < node.Cases.Count - 1) {
 885                     _instructions.EmitBranch(end.GetLabel(this), false, hasValue);
 886                 }
 887             }
 888
 889             _instructions.MarkLabel(end.GetLabel(this));
 890         }
 891
 892         private void CompileLabelExpression(Expression expr) {
 893             var node = (LabelExpression)expr;
 894
 895             // If we're an immediate child of a block, our label will already
 896             // be defined. If not, we need to define our own block so this
 897             // label isn't exposed except to its own child expression.
 898             LabelInfo label = null;
 899
 900             if (_labelBlock.Kind == LabelScopeKind.Block) {
 901                 _labelBlock.TryGetLabelInfo(node.Target, out label);
 902
 903                 // We're in a block but didn't find our label, try switch
 904                 if (label == null && _labelBlock.Parent.Kind == LabelScopeKind.Switch) {
 905                     _labelBlock.Parent.TryGetLabelInfo(node.Target, out label);
 906                 }
 907
 908                 // if we're in a switch or block, we should've found the label
 909                 Debug.Assert(label != null);
 910             }
 911
 912             if (label == null) {
 913                 label = DefineLabel(node.Target);
 914             }
 915
 916             if (node.DefaultValue != null) {
 917                 if (node.Target.Type == typeof(void)) {
 918                     CompileAsVoid(node.DefaultValue);
 919                 } else {
 920                     Compile(node.DefaultValue);
 921                 }
 922             }
 923
 924             _instructions.MarkLabel(label.GetLabel(this));
 925         }
 926
 927         private void CompileGotoExpression(Expression expr) {
 928             var node = (GotoExpression)expr;
 929             var labelInfo = ReferenceLabel(node.Target);
 930
 931             if (node.Value != null) {
 932                 Compile(node.Value);
 933             }
 934
 935             _instructions.EmitGoto(labelInfo.GetLabel(this), node.Type != typeof(void), node.Value != null && node.Value.Type != typeof(void));
 936         }
 937
 938         public BranchLabel GetBranchLabel(LabelTarget target) {
 939             return ReferenceLabel(target).GetLabel(this);
 940         }
 941
 942         public void PushLabelBlock(LabelScopeKind type) {
 943             _labelBlock = new LabelScopeInfo(_labelBlock, type);
 944         }
 945
 946         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA1801:ReviewUnusedParameters", MessageId = "kind")]
 947         public void PopLabelBlock(LabelScopeKind kind) {
 948             Debug.Assert(_labelBlock != null && _labelBlock.Kind == kind);
 949             _labelBlock = _labelBlock.Parent;
 950         }
 951
 952         private LabelInfo EnsureLabel(LabelTarget node) {
 953             LabelInfo result;
 954             if (!_treeLabels.TryGetValue(node, out result)) {
 955                 _treeLabels[node] = result = new LabelInfo(node);
 956             }
 957             return result;
 958         }
 959
 960         private LabelInfo ReferenceLabel(LabelTarget node) {
 961             LabelInfo result = EnsureLabel(node);
 962             result.Reference(_labelBlock);
 963             return result;
 964         }
 965
 966         internal LabelInfo DefineLabel(LabelTarget node) {
 967             if (node == null) {
 968                 return new LabelInfo(null);
 969             }
 970             LabelInfo result = EnsureLabel(node);
 971             result.Define(_labelBlock);
 972             return result;
 973         }
 974
 975         private bool TryPushLabelBlock(Expression node) {
 976             // Anything that is "statement-like" -- e.g. has no associated
 977             // stack state can be jumped into, with the exception of try-blocks
 978             // We indicate this by a "Block"
 979             //
 980             // Otherwise, we push an "Expression" to indicate that it can't be
 981             // jumped into
 982             switch (node.NodeType) {
 983                 default:
 984                     if (_labelBlock.Kind != LabelScopeKind.Expression) {
 985                         PushLabelBlock(LabelScopeKind.Expression);
 986                         return true;
 987                     }
 988                     return false;
 989                 case ExpressionType.Label:
 990                     // LabelExpression is a bit special, if it's directly in a
 991                     // block it becomes associate with the block's scope. Same
 992                     // thing if it's in a switch case body.
 993                     if (_labelBlock.Kind == LabelScopeKind.Block) {
 994                         var label = ((LabelExpression)node).Target;
 995                         if (_labelBlock.ContainsTarget(label)) {
 996                             return false;
 997                         }
 998                         if (_labelBlock.Parent.Kind == LabelScopeKind.Switch &&
 999                             _labelBlock.Parent.ContainsTarget(label)) {
1000                             return false;
1001                         }
1002                     }
1003                     PushLabelBlock(LabelScopeKind.Statement);
1004                     return true;
1005                 case ExpressionType.Block:
1006                     PushLabelBlock(LabelScopeKind.Block);
1007                     // Labels defined immediately in the block are valid for
1008                     // the whole block.
1009                     if (_labelBlock.Parent.Kind != LabelScopeKind.Switch) {
1010                         DefineBlockLabels(node);
1011                     }
1012                     return true;
1013                 case ExpressionType.Switch:
1014                     PushLabelBlock(LabelScopeKind.Switch);
1015                     // Define labels inside of the switch cases so theyare in
1016                     // scope for the whole switch. This allows "goto case" and
1017                     // "goto default" to be considered as local jumps.
1018                     var @switch = (SwitchExpression)node;
1019                     foreach (SwitchCase c in @switch.Cases) {
1020                         DefineBlockLabels(c.Body);
1021                     }
1022                     DefineBlockLabels(@switch.DefaultBody);
1023                     return true;
1024
1025                 // Remove this when Convert(Void) goes away.
1026                 case ExpressionType.Convert:
1027                     if (node.Type != typeof(void)) {
1028                         // treat it as an expression
1029                         goto default;
1030                     }
1031                     PushLabelBlock(LabelScopeKind.Statement);
1032                     return true;
1033
1034                 case ExpressionType.Conditional:
1035                 case ExpressionType.Loop:
1036                 case ExpressionType.Goto:
1037                     PushLabelBlock(LabelScopeKind.Statement);
1038                     return true;
1039             }
1040         }
1041
1042         private void DefineBlockLabels(Expression node) {
1043             var block = node as BlockExpression;
1044             if (block == null) {
1045                 return;
1046             }
1047
1048             for (int i = 0, n = block.Expressions.Count; i < n; i++) {
1049                 Expression e = block.Expressions[i];
1050
1051                 var label = e as LabelExpression;
1052                 if (label != null) {
1053                     DefineLabel(label.Target);
1054                 }
1055             }
1056         }
1057
1058         private HybridReferenceDictionary<LabelTarget, BranchLabel> GetBranchMapping() {
1059             var newLabelMapping = new HybridReferenceDictionary<LabelTarget, BranchLabel>(_treeLabels.Count);
1060             foreach (var kvp in _treeLabels) {
1061                 newLabelMapping[kvp.Key] = kvp.Value.GetLabel(this);
1062             }
1063             return newLabelMapping;
1064         }
1065
1066         private void CompileThrowUnaryExpression(Expression expr, bool asVoid) {
1067             var node = (UnaryExpression)expr;
1068
1069             if (node.Operand == null) {
1070                 CompileParameterExpression(_exceptionForRethrowStack.Peek());
1071                 if (asVoid) {
1072                     _instructions.EmitRethrowVoid();
1073                 } else {
1074                     _instructions.EmitRethrow();
1075                 }
1076             } else {
1077                 Compile(node.Operand);
1078                 if (asVoid) {
1079                     _instructions.EmitThrowVoid();
1080                 } else {
1081                     _instructions.EmitThrow();
1082                 }
1083             }
1084
1085         }
1086
1087         // TODO: remove (replace by true fault support)
1088         private bool EndsWithRethrow(Expression expr) {
1089             if (expr.NodeType == ExpressionType.Throw) {
1090                 var node = (UnaryExpression)expr;
1091                 return node.Operand == null;
1092             }
1093
1094             BlockExpression block = expr as BlockExpression;
1095             if (block != null) {
1096                 return EndsWithRethrow(block.Expressions[block.Expressions.Count - 1]);
1097             }
1098             return false;
1099         }
1100
1101
1102         // TODO: remove (replace by true fault support)
1103         private void CompileAsVoidRemoveRethrow(Expression expr) {
1104             int stackDepth = _instructions.CurrentStackDepth;
1105
1106             if (expr.NodeType == ExpressionType.Throw) {
1107                 Debug.Assert(((UnaryExpression)expr).Operand == null);
1108                 return;
1109             }
1110
1111             var node = (BlockExpression)expr;
1112             var end = CompileBlockStart(node);
1113
1114             CompileAsVoidRemoveRethrow(node.Expressions[node.Expressions.Count - 1]);
1115
1116             Debug.Assert(stackDepth == _instructions.CurrentStackDepth);
1117
1118             CompileBlockEnd(end);
1119         }
1120
1121         private void CompileTryExpression(Expression expr) {
1122             var node = (TryExpression)expr;
1123
1124             BranchLabel end = _instructions.MakeLabel();
1125             BranchLabel gotoEnd = _instructions.MakeLabel();
1126
1127             int tryStart = _instructions.Count;
1128
1129             BranchLabel startOfFinally = null;
1130             if (node.Finally != null) {
1131                 startOfFinally = _instructions.MakeLabel();
1132                 _instructions.EmitEnterTryFinally(startOfFinally);
1133             }
1134
1135             PushLabelBlock(LabelScopeKind.Try);
1136             Compile(node.Body);
1137
1138             bool hasValue = node.Body.Type != typeof(void);
1139             int tryEnd = _instructions.Count;
1140
1141             // handlers jump here:
1142             _instructions.MarkLabel(gotoEnd);
1143             _instructions.EmitGoto(end, hasValue, hasValue);
1144
1145             // keep the result on the stack:
1146             if (node.Handlers.Count > 0) {
1147                 // TODO: emulates faults (replace by true fault support)
1148                 if (node.Finally == null && node.Handlers.Count == 1) {
1149                     var handler = node.Handlers[0];
1150                     if (handler.Filter == null && handler.Test == typeof(Exception) && handler.Variable == null) {
1151                         if (EndsWithRethrow(handler.Body)) {
1152                             if (hasValue) {
1153                                 _instructions.EmitEnterExceptionHandlerNonVoid();
1154                             } else {
1155                                 _instructions.EmitEnterExceptionHandlerVoid();
1156                             }
1157
1158                             // at this point the stack balance is prepared for the hidden exception variable:
1159                             int handlerLabel = _instructions.MarkRuntimeLabel();
1160                             int handlerStart = _instructions.Count;
1161
1162                             CompileAsVoidRemoveRethrow(handler.Body);
1163                             _instructions.EmitLeaveFault(hasValue);
1164                             _instructions.MarkLabel(end);
1165
1166                             _handlers.Add(new ExceptionHandler(tryStart, tryEnd, handlerLabel, handlerStart, null));
1167                             PopLabelBlock(LabelScopeKind.Try);
1168                             return;
1169                         }
1170                     }
1171                 }
1172
1173                 foreach (var handler in node.Handlers) {
1174                     PushLabelBlock(LabelScopeKind.Catch);
1175
1176                     if (handler.Filter != null) {
1177                         //PushLabelBlock(LabelScopeKind.Filter);
1178                         throw new NotImplementedException();
1179                         //PopLabelBlock(LabelScopeKind.Filter);
1180                     }
1181
1182                     var parameter = handler.Variable ?? Expression.Parameter(handler.Test);
1183
1184                     var local = _locals.DefineLocal(parameter, _instructions.Count);
1185                     _exceptionForRethrowStack.Push(parameter);
1186
1187                     // add a stack balancing nop instruction (exception handling pushes the current exception):
1188                     if (hasValue) {
1189                         _instructions.EmitEnterExceptionHandlerNonVoid();
1190                     } else {
1191                         _instructions.EmitEnterExceptionHandlerVoid();
1192                     }
1193
1194                     // at this point the stack balance is prepared for the hidden exception variable:
1195                     int handlerLabel = _instructions.MarkRuntimeLabel();
1196                     int handlerStart = _instructions.Count;
1197
1198                     CompileSetVariable(parameter, true);
1199                     Compile(handler.Body);
1200
1201                     _exceptionForRethrowStack.Pop();
1202
1203                     // keep the value of the body on the stack:
1204                     Debug.Assert(hasValue == (handler.Body.Type != typeof(void)));
1205                     _instructions.EmitLeaveExceptionHandler(hasValue, gotoEnd);
1206
1207                     _handlers.Add(new ExceptionHandler(tryStart, tryEnd, handlerLabel, handlerStart, handler.Test));
1208
1209                     PopLabelBlock(LabelScopeKind.Catch);
1210
1211                     _locals.UndefineLocal(local, _instructions.Count);
1212                 }
1213
1214                 if (node.Fault != null) {
1215                     throw new NotImplementedException();
1216                 }
1217             }
1218
1219             if (node.Finally != null) {
1220                 PushLabelBlock(LabelScopeKind.Finally);
1221
1222                 _instructions.MarkLabel(startOfFinally);
1223                 _instructions.EmitEnterFinally();
1224                 CompileAsVoid(node.Finally);
1225                 _instructions.EmitLeaveFinally();
1226
1227                 PopLabelBlock(LabelScopeKind.Finally);
1228             }
1229
1230             _instructions.MarkLabel(end);
1231
1232             PopLabelBlock(LabelScopeKind.Try);
1233         }
1234
1235         private void CompileDynamicExpression(Expression expr) {
1236             var node = (DynamicExpression)expr;
1237
1238             foreach (var arg in node.Arguments) {
1239                 Compile(arg);
1240             }
1241
1242             _instructions.EmitDynamic(node.DelegateType, node.Binder);
1243         }
1244
1245         private void CompileMethodCallExpression(Expression expr) {
1246             var node = (MethodCallExpression)expr;
1247
1248             var parameters = node.Method.GetParameters();
1249
1250             // TODO:
1251             // Support pass by reference.
1252             // Note that LoopCompiler needs to be updated too.
1253
1254             // force compilation for now for ref types
1255             // also could be a mutable value type, Delegate.CreateDelegate and MethodInfo.Invoke both can't handle this, we
1256             // need to generate code.
1257             if (!CollectionUtils.TrueForAll(parameters, (p) => !p.ParameterType.IsByRef) ||
1258                 (!node.Method.IsStatic && node.Method.DeclaringType.IsValueType() && !node.Method.DeclaringType.IsPrimitive())) {
1259 #if MONO_INTERPRETER
1260                 throw new NotImplementedException ("Interpreter of ref types");
1261 #else
1262                 _forceCompile = true;
1263 #endif
1264             }
1265
1266             // CF bug workaround
1267             // TODO: can we do better if the delegate targets LightLambda.Run* method?
1268             if (PlatformAdaptationLayer.IsCompactFramework &&
1269                 node.Method.Name == "Invoke" && typeof(Delegate).IsAssignableFrom(node.Object.Type) && !node.Method.IsStatic) {
1270
1271                 Compile(
1272                     AstUtils.Convert(
1273                         Expression.Call(
1274                             node.Object,
1275                             node.Object.Type.GetMethod("DynamicInvoke"),
1276                             Expression.NewArrayInit(typeof(object), node.Arguments.Map((e) => AstUtils.Convert(e, typeof(object))))
1277                         ),
1278                         node.Type
1279                     )
1280                 );
1281
1282             } else {
1283                 if (!node.Method.IsStatic) {
1284                     Compile(node.Object);
1285                 }
1286
1287                 foreach (var arg in node.Arguments) {
1288                     Compile(arg);
1289                 }
1290
1291                 EmitCall(node.Method, parameters);
1292             }
1293         }
1294
1295         public void EmitCall(MethodInfo method) {
1296             EmitCall(method, method.GetParameters());
1297         }
1298
1299         public void EmitCall(MethodInfo method, ParameterInfo[] parameters) {
1300             Instruction instruction;
1301
1302             try {
1303                 instruction = CallInstruction.Create(method, parameters);
1304             } catch (SecurityException) {
1305                 _forceCompile = true;
1306
1307                 _instructions.Emit(new PopNInstruction((method.IsStatic ? 0 : 1) + parameters.Length));
1308                 if (method.ReturnType != typeof(void)) {
1309                     _instructions.EmitLoad(null);
1310                 }
1311
1312                 return;
1313             }
1314
1315             _instructions.Emit(instruction);
1316         }
1317
1318         private void CompileNewExpression(Expression expr) {
1319             var node = (NewExpression)expr;
1320
1321             if (node.Constructor != null) {
1322                 var parameters = node.Constructor.GetParameters();
1323                 if (!CollectionUtils.TrueForAll(parameters, (p) => !p.ParameterType.IsByRef)
1324 #if FEATURE_LCG
1325                      || node.Constructor.DeclaringType == typeof(DynamicMethod)
1326 #endif
1327                 ) {
1328                     _forceCompile = true;
1329                 }
1330             }
1331
1332             if (node.Constructor != null) {
1333                 foreach (var arg in node.Arguments) {
1334                     this.Compile(arg);
1335                 }
1336                 _instructions.EmitNew(node.Constructor);
1337             } else {
1338                 Debug.Assert(expr.Type.IsValueType());
1339                 _instructions.EmitDefaultValue(node.Type);
1340             }
1341         }
1342
1343         private void CompileMemberExpression(Expression expr) {
1344             var node = (MemberExpression)expr;
1345
1346             var member = node.Member;
1347             FieldInfo fi = member as FieldInfo;
1348             if (fi != null) {
1349                 if (fi.IsLiteral) {
1350                     _instructions.EmitLoad(fi.GetRawConstantValue(), fi.FieldType);
1351                 } else if (fi.IsStatic) {
1352                     if (fi.IsInitOnly) {
1353                         _instructions.EmitLoad(fi.GetValue(null), fi.FieldType);
1354                     } else {
1355                         _instructions.EmitLoadField(fi);
1356                     }
1357                 } else {
1358                     Compile(node.Expression);
1359                     _instructions.EmitLoadField(fi);
1360                 }
1361                 return;
1362             }
1363
1364             PropertyInfo pi = member as PropertyInfo;
1365             if (pi != null) {
1366                 var method = pi.GetGetMethod(true);
1367                 if (node.Expression != null) {
1368                     Compile(node.Expression);
1369                 }
1370                 EmitCall(method);
1371                 return;
1372             }
1373
1374
1375             throw new System.NotImplementedException();
1376         }
1377
1378         private void CompileNewArrayExpression(Expression expr) {
1379             var node = (NewArrayExpression)expr;
1380
1381             foreach (var arg in node.Expressions) {
1382                 Compile(arg);
1383             }
1384
1385             Type elementType = node.Type.GetElementType();
1386             int rank = node.Expressions.Count;
1387
1388             if (node.NodeType == ExpressionType.NewArrayInit) {
1389                 _instructions.EmitNewArrayInit(elementType, rank);
1390             } else if (node.NodeType == ExpressionType.NewArrayBounds) {
1391                 if (rank == 1) {
1392                     _instructions.EmitNewArray(elementType);
1393                 } else {
1394                     _instructions.EmitNewArrayBounds(elementType, rank);
1395                 }
1396             } else {
1397                 throw new System.NotImplementedException();
1398             }
1399         }
1400
1401         private void CompileExtensionExpression(Expression expr) {
1402             var instructionProvider = expr as IInstructionProvider;
1403             if (instructionProvider != null) {
1404                 instructionProvider.AddInstructions(this);
1405                 return;
1406             }
1407
1408             if (expr.CanReduce) {
1409                 Compile(expr.Reduce());
1410             } else {
1411                 throw new System.NotImplementedException();
1412             }
1413         }
1414
1415
1416         private void CompileDebugInfoExpression(Expression expr) {
1417             var node = (DebugInfoExpression)expr;
1418             int start = _instructions.Count;
1419             var info = new DebugInfo()
1420             {
1421                 Index = start,
1422                 FileName = node.Document.FileName,
1423                 StartLine = node.StartLine,
1424                 EndLine = node.EndLine,
1425                 IsClear = node.IsClear
1426             };
1427             _debugInfos.Add(info);
1428         }
1429
1430         private void CompileRuntimeVariablesExpression(Expression expr) {
1431             // Generates IRuntimeVariables for all requested variables
1432             var node = (RuntimeVariablesExpression)expr;
1433             foreach (var variable in node.Variables) {
1434                 EnsureAvailableForClosure(variable);
1435                 CompileGetBoxedVariable(variable);
1436             }
1437
1438             _instructions.EmitNewRuntimeVariables(node.Variables.Count);
1439         }
1440
1441
1442         private void CompileLambdaExpression(Expression expr) {
1443             var node = (LambdaExpression)expr;
1444             var compiler = new LightCompiler(this);
1445             var creator = compiler.CompileTop(node);
1446
1447             if (compiler._locals.ClosureVariables != null) {
1448                 foreach (ParameterExpression variable in compiler._locals.ClosureVariables.Keys) {
1449                     CompileGetBoxedVariable(variable);
1450                 }
1451             }
1452             _instructions.EmitCreateDelegate(creator);
1453         }
1454
1455         private void CompileCoalesceBinaryExpression(Expression expr) {
1456             var node = (BinaryExpression)expr;
1457
1458             if (TypeUtils.IsNullableType(node.Left.Type)) {
1459                 throw new NotImplementedException();
1460             } else if (node.Conversion != null) {
1461                 throw new NotImplementedException();
1462             } else {
1463                 var leftNotNull = _instructions.MakeLabel();
1464                 Compile(node.Left);
1465                 _instructions.EmitCoalescingBranch(leftNotNull);
1466                 _instructions.EmitPop();
1467                 Compile(node.Right);
1468                 _instructions.MarkLabel(leftNotNull);
1469             }
1470         }
1471
1472         private void CompileInvocationExpression(Expression expr) {
1473             var node = (InvocationExpression)expr;
1474
1475             // TODO: LambdaOperand optimization (see compiler)
1476             if (typeof(LambdaExpression).IsAssignableFrom(node.Expression.Type)) {
1477                 throw new System.NotImplementedException();
1478             }
1479
1480             // TODO: do not create a new Call Expression
1481             if (PlatformAdaptationLayer.IsCompactFramework) {
1482                 // Workaround for a bug in Compact Framework
1483                 Compile(
1484                     AstUtils.Convert(
1485                         Expression.Call(
1486                             node.Expression,
1487                             node.Expression.Type.GetMethod("DynamicInvoke"),
1488                             Expression.NewArrayInit(typeof(object), node.Arguments.Map((e) => AstUtils.Convert(e, typeof(object))))
1489                         ),
1490                         node.Type
1491                     )
1492                 );
1493             } else {
1494                 CompileMethodCallExpression(Expression.Call(node.Expression, node.Expression.Type.GetMethod("Invoke"), node.Arguments));
1495             }
1496         }
1497
1498         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA1801:ReviewUnusedParameters", MessageId = "expr")]
1499         private void CompileListInitExpression(Expression expr) {
1500             throw new System.NotImplementedException();
1501         }
1502
1503         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA1801:ReviewUnusedParameters", MessageId = "expr")]
1504         private void CompileMemberInitExpression(Expression expr) {
1505             throw new System.NotImplementedException();
1506         }
1507
1508         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA1801:ReviewUnusedParameters", MessageId = "expr")]
1509         private void CompileQuoteUnaryExpression(Expression expr) {
1510             throw new System.NotImplementedException();
1511         }
1512
1513         private void CompileUnboxUnaryExpression(Expression expr) {
1514             var node = (UnaryExpression)expr;
1515             // unboxing is a nop:
1516             Compile(node.Operand);
1517         }
1518
1519         private void CompileTypeEqualExpression(Expression expr) {
1520             Debug.Assert(expr.NodeType == ExpressionType.TypeEqual);
1521             var node = (TypeBinaryExpression)expr;
1522
1523             Compile(node.Expression);
1524             _instructions.EmitLoad(node.TypeOperand);
1525             _instructions.EmitTypeEquals();
1526         }
1527
1528         private void CompileTypeAsExpression(UnaryExpression node) {
1529             Compile(node.Operand);
1530             _instructions.EmitTypeAs(node.Type);
1531         }
1532
1533         private void CompileTypeIsExpression(Expression expr) {
1534             Debug.Assert(expr.NodeType == ExpressionType.TypeIs);
1535             var node = (TypeBinaryExpression)expr;
1536
1537             Compile(node.Expression);
1538
1539             // use TypeEqual for sealed types:
1540             if (node.TypeOperand.IsSealed()) {
1541                 _instructions.EmitLoad(node.TypeOperand);
1542                 _instructions.EmitTypeEquals();
1543             } else {
1544                 _instructions.EmitTypeIs(node.TypeOperand);
1545             }
1546         }
1547
1548         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA1801:ReviewUnusedParameters", MessageId = "expr")]
1549         private void CompileReducibleExpression(Expression expr) {
1550             throw new System.NotImplementedException();
1551         }
1552
1553         internal void Compile(Expression expr, bool asVoid) {
1554             if (asVoid) {
1555                 CompileAsVoid(expr);
1556             } else {
1557                 Compile(expr);
1558             }
1559         }
1560
1561         internal void CompileAsVoid(Expression expr) {
1562             bool pushLabelBlock = TryPushLabelBlock(expr);
1563             int startingStackDepth = _instructions.CurrentStackDepth;
1564             switch (expr.NodeType) {
1565                 case ExpressionType.Assign:
1566                     CompileAssignBinaryExpression(expr, true);
1567                     break;
1568
1569                 case ExpressionType.Block:
1570                     CompileBlockExpression(expr, true);
1571                     break;
1572
1573                 case ExpressionType.Throw:
1574                     CompileThrowUnaryExpression(expr, true);
1575                     break;
1576
1577                 case ExpressionType.Constant:
1578                 case ExpressionType.Default:
1579                 case ExpressionType.Parameter:
1580                     // no-op
1581                     break;
1582
1583                 default:
1584                     CompileNoLabelPush(expr);
1585                     if (expr.Type != typeof(void)) {
1586                         _instructions.EmitPop();
1587                     }
1588                     break;
1589             }
1590             Debug.Assert(_instructions.CurrentStackDepth == startingStackDepth);
1591             if (pushLabelBlock) {
1592                 PopLabelBlock(_labelBlock.Kind);
1593             }
1594         }
1595
1596         [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Maintainability", "CA1502:AvoidExcessiveComplexity")]
1597         private void CompileNoLabelPush(Expression expr) {
1598             int startingStackDepth = _instructions.CurrentStackDepth;
1599             switch (expr.NodeType) {
1600                 case ExpressionType.Add: CompileBinaryExpression(expr); break;
1601                 case ExpressionType.AddChecked: CompileBinaryExpression(expr); break;
1602                 case ExpressionType.And: CompileBinaryExpression(expr); break;
1603                 case ExpressionType.AndAlso: CompileAndAlsoBinaryExpression(expr); break;
1604                 case ExpressionType.ArrayLength: CompileUnaryExpression(expr); break;
1605                 case ExpressionType.ArrayIndex: CompileBinaryExpression(expr); break;
1606                 case ExpressionType.Call: CompileMethodCallExpression(expr); break;
1607                 case ExpressionType.Coalesce: CompileCoalesceBinaryExpression(expr); break;
1608                 case ExpressionType.Conditional: CompileConditionalExpression(expr, expr.Type == typeof(void)); break;
1609                 case ExpressionType.Constant: CompileConstantExpression(expr); break;
1610                 case ExpressionType.Convert: CompileConvertUnaryExpression(expr); break;
1611                 case ExpressionType.ConvertChecked: CompileConvertUnaryExpression(expr); break;
1612                 case ExpressionType.Divide: CompileBinaryExpression(expr); break;
1613                 case ExpressionType.Equal: CompileBinaryExpression(expr); break;
1614                 case ExpressionType.ExclusiveOr: CompileBinaryExpression(expr); break;
1615                 case ExpressionType.GreaterThan: CompileBinaryExpression(expr); break;
1616                 case ExpressionType.GreaterThanOrEqual: CompileBinaryExpression(expr); break;
1617                 case ExpressionType.Invoke: CompileInvocationExpression(expr); break;
1618                 case ExpressionType.Lambda: CompileLambdaExpression(expr); break;
1619                 case ExpressionType.LeftShift: CompileBinaryExpression(expr); break;
1620                 case ExpressionType.LessThan: CompileBinaryExpression(expr); break;
1621                 case ExpressionType.LessThanOrEqual: CompileBinaryExpression(expr); break;
1622                 case ExpressionType.ListInit: CompileListInitExpression(expr); break;
1623                 case ExpressionType.MemberAccess: CompileMemberExpression(expr); break;
1624                 case ExpressionType.MemberInit: CompileMemberInitExpression(expr); break;
1625                 case ExpressionType.Modulo: CompileBinaryExpression(expr); break;
1626                 case ExpressionType.Multiply: CompileBinaryExpression(expr); break;
1627                 case ExpressionType.MultiplyChecked: CompileBinaryExpression(expr); break;
1628                 case ExpressionType.Negate: CompileUnaryExpression(expr); break;
1629                 case ExpressionType.UnaryPlus: CompileUnaryExpression(expr); break;
1630                 case ExpressionType.NegateChecked: CompileUnaryExpression(expr); break;
1631                 case ExpressionType.New: CompileNewExpression(expr); break;
1632                 case ExpressionType.NewArrayInit: CompileNewArrayExpression(expr); break;
1633                 case ExpressionType.NewArrayBounds: CompileNewArrayExpression(expr); break;
1634                 case ExpressionType.Not: CompileUnaryExpression(expr); break;
1635                 case ExpressionType.NotEqual: CompileBinaryExpression(expr); break;
1636                 case ExpressionType.Or: CompileBinaryExpression(expr); break;
1637                 case ExpressionType.OrElse: CompileOrElseBinaryExpression(expr); break;
1638                 case ExpressionType.Parameter: CompileParameterExpression(expr); break;
1639                 case ExpressionType.Power: CompileBinaryExpression(expr); break;
1640                 case ExpressionType.Quote: CompileQuoteUnaryExpression(expr); break;
1641                 case ExpressionType.RightShift: CompileBinaryExpression(expr); break;
1642                 case ExpressionType.Subtract: CompileBinaryExpression(expr); break;
1643                 case ExpressionType.SubtractChecked: CompileBinaryExpression(expr); break;
1644                 case ExpressionType.TypeAs: CompileUnaryExpression(expr); break;
1645                 case ExpressionType.TypeIs: CompileTypeIsExpression(expr); break;
1646                 case ExpressionType.Assign: CompileAssignBinaryExpression(expr, expr.Type == typeof(void)); break;
1647                 case ExpressionType.Block: CompileBlockExpression(expr, expr.Type == typeof(void)); break;
1648                 case ExpressionType.DebugInfo: CompileDebugInfoExpression(expr); break;
1649                 case ExpressionType.Decrement: CompileUnaryExpression(expr); break;
1650                 case ExpressionType.Dynamic: CompileDynamicExpression(expr); break;
1651                 case ExpressionType.Default: CompileDefaultExpression(expr); break;
1652                 case ExpressionType.Extension: CompileExtensionExpression(expr); break;
1653                 case ExpressionType.Goto: CompileGotoExpression(expr); break;
1654                 case ExpressionType.Increment: CompileUnaryExpression(expr); break;
1655                 case ExpressionType.Index: CompileIndexExpression(expr); break;
1656                 case ExpressionType.Label: CompileLabelExpression(expr); break;
1657                 case ExpressionType.RuntimeVariables: CompileRuntimeVariablesExpression(expr); break;
1658                 case ExpressionType.Loop: CompileLoopExpression(expr); break;
1659                 case ExpressionType.Switch: CompileSwitchExpression(expr); break;
1660                 case ExpressionType.Throw: CompileThrowUnaryExpression(expr, expr.Type == typeof(void)); break;
1661                 case ExpressionType.Try: CompileTryExpression(expr); break;
1662                 case ExpressionType.Unbox: CompileUnboxUnaryExpression(expr); break;
1663                 case ExpressionType.TypeEqual: CompileTypeEqualExpression(expr); break;
1664                 case ExpressionType.OnesComplement: CompileUnaryExpression(expr); break;
1665                 case ExpressionType.IsTrue: CompileUnaryExpression(expr); break;
1666                 case ExpressionType.IsFalse: CompileUnaryExpression(expr); break;
1667                 case ExpressionType.AddAssign:
1668                 case ExpressionType.AndAssign:
1669                 case ExpressionType.DivideAssign:
1670                 case ExpressionType.ExclusiveOrAssign:
1671                 case ExpressionType.LeftShiftAssign:
1672                 case ExpressionType.ModuloAssign:
1673                 case ExpressionType.MultiplyAssign:
1674                 case ExpressionType.OrAssign:
1675                 case ExpressionType.PowerAssign:
1676                 case ExpressionType.RightShiftAssign:
1677                 case ExpressionType.SubtractAssign:
1678                 case ExpressionType.AddAssignChecked:
1679                 case ExpressionType.MultiplyAssignChecked:
1680                 case ExpressionType.SubtractAssignChecked:
1681                 case ExpressionType.PreIncrementAssign:
1682                 case ExpressionType.PreDecrementAssign:
1683                 case ExpressionType.PostIncrementAssign:
1684                 case ExpressionType.PostDecrementAssign:
1685                     CompileReducibleExpression(expr); break;
1686                 default: throw Assert.Unreachable;
1687             };
1688             Debug.Assert(_instructions.CurrentStackDepth == startingStackDepth + (expr.Type == typeof(void) ? 0 : 1));
1689         }
1690
1691         public void Compile(Expression expr) {
1692             bool pushLabelBlock = TryPushLabelBlock(expr);
1693             CompileNoLabelPush(expr);
1694             if (pushLabelBlock) {
1695                 PopLabelBlock(_labelBlock.Kind);
1696             }
1697         }
1698
1699     }
1700 }