Cosmos/source/Cosmos.IL2CPU/IL/Newarr.cs

using System;
using Cosmos.Assembler;
using System.Reflection;

using Cosmos.IL2CPU.Plugs.System;
using XSharp.Compiler;
using static XSharp.Compiler.XSRegisters;

namespace Cosmos.IL2CPU.X86.IL
{
  /// <summary>
  /// Pushes an object reference to a new zero-based, one-dimensional array whose elements are of a specific type onto the evaluation stack.
  /// </summary>
  [OpCode(ILOpCode.Code.Newarr)]
  public class Newarr : ILOp
  {
    public Newarr(Assembler.Assembler aAsmblr)
        : base(aAsmblr)
    {
    }

    public override void Execute(MethodInfo aMethod, ILOpCode aOpCode)
    {
      ILOpCodes.OpType xType = (ILOpCodes.OpType)aOpCode;

      uint xSize = SizeOfType(xType.Value);

      //TODO cache it to reduce calculation
      string xTypeID = GetTypeIDLabel(typeof(Array));
      MethodBase xCtor = typeof(Array).GetConstructors(BindingFlags.NonPublic | BindingFlags.Public | BindingFlags.Static | BindingFlags.Instance)[0];
      string xCtorName = LabelName.Get(xCtor);

      XS.Comment("Element Size = " + xSize);
      XS.Pop(EAX); // element count
      XS.Push(EAX);
      XS.Set(EDX, xSize);
      XS.Multiply(EDX); // total element size
      XS.Add(EAX, ObjectImpl.FieldDataOffset + 4); // total srray size
      XS.Push(EAX);
      XS.Call(LabelName.Get(GCImplementationRefs.AllocNewObjectRef));
      XS.Label(".AfterAlloc");
      XS.Pop(EAX);
      XS.Pop(ESI);
      XS.Push(EAX);
      XS.Push(ESP, isIndirect: true);
      XS.Push(ESP, isIndirect: true);
      // it's on the stack 3 times now, once from the return value, twice from the pushes;

      XS.Pop(EAX);
      XS.Set(EBX, xTypeID, sourceIsIndirect: true);  // array type id
      XS.Set(EAX, EBX, destinationIsIndirect: true); // array type id
      XS.Set(EAX, (uint)InstanceTypeEnum.Array, destinationDisplacement: 4, destinationIsIndirect: true);
      XS.Set(EAX, ESI, destinationDisplacement: 8, destinationIsIndirect: true);
      XS.Set(EAX, xSize, destinationDisplacement: 12, destinationIsIndirect: true);
      XS.Push(0);
      XS.Call(xCtorName);
      XS.Push(0);
    }
  }
}