Cosmos/source/Cosmos.IL2CPU/IL/Ldelem_Ref.cs

using System;
using CPUx86 = Cosmos.Assembler.x86;
using Cosmos.Assembler;
using Cosmos.IL2CPU.Plugs.System;
using XSharp.Compiler;

namespace Cosmos.IL2CPU.X86.IL
{
  [Cosmos.IL2CPU.OpCode(ILOpCode.Code.Ldelem_Ref)]
  public class Ldelem_Ref : ILOp
  {
    public Ldelem_Ref(Cosmos.Assembler.Assembler aAsmblr)
        : base(aAsmblr)
    {
    }

    public static void Assemble(Cosmos.Assembler.Assembler aAssembler, uint aElementSize, bool isSigned, bool debugEnabled)
    {
      DoNullReferenceCheck(aAssembler, debugEnabled, 4);
      //if (aElementSize <= 0 || aElementSize > 8 || (aElementSize > 4 && aElementSize < 8))
      //{
      //    throw new Exception("Unsupported size for Ldelem_Ref: " + aElementSize);
      //}

      XS.Pop(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EAX));
      XS.Set(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EDX), aElementSize);
      XS.Multiply(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EDX));

      XS.Add(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EAX), (ObjectImpl.FieldDataOffset + 4));

      if (aElementSize > 4)
      {
        // we start copying the last bytes
        XS.Add(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EAX), aElementSize - 4);
      }

      // pop the array
      XS.Pop(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EDX));
      // convert to real memory address
      new CPUx86.Mov { DestinationReg = CPUx86.RegistersEnum.EDX, SourceReg = CPUx86.RegistersEnum.EDX, SourceIsIndirect = true };

      XS.Add(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EDX), XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EAX));

      var xSizeLeft = aElementSize;
      while (xSizeLeft > 0)
      {
        var xCurrentStep = Math.Min(xSizeLeft, 4);
        if (xSizeLeft % 4 != 0)
        {
          xCurrentStep = xSizeLeft % 4;
        }
        xSizeLeft = xSizeLeft - xCurrentStep;
        switch (xCurrentStep)
        {
          case 1:
            if (isSigned)
            {
              new CPUx86.MoveSignExtend { DestinationReg = CPUx86.RegistersEnum.ECX, Size = 8, SourceReg = CPUx86.RegistersEnum.EDX, SourceIsIndirect = true };
            }
            else
            {
              new CPUx86.MoveZeroExtend { DestinationReg = CPUx86.RegistersEnum.ECX, Size = 8, SourceReg = CPUx86.RegistersEnum.EDX, SourceIsIndirect = true };
            }
            XS.Push(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.ECX));
            break;
          case 2:
            if (isSigned)
            {
              new CPUx86.MoveSignExtend { DestinationReg = CPUx86.RegistersEnum.ECX, Size = 16, SourceReg = CPUx86.RegistersEnum.EDX, SourceIsIndirect = true };
            }
            else
            {
              new CPUx86.MoveZeroExtend { DestinationReg = CPUx86.RegistersEnum.ECX, Size = 16, SourceReg = CPUx86.RegistersEnum.EDX, SourceIsIndirect = true };
            }
            XS.Push(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.ECX));
            break;
          case 4:
            // copy a full dword
            new CPUx86.Push { DestinationReg = CPUx86.RegistersEnum.EDX, DestinationIsIndirect = true };
            XS.Sub(XSRegisters.OldToNewRegister(CPUx86.RegistersEnum.EDX), 4); // move to previous 4 bytes
            break;
            //case 8:
            //    new CPUx86.Push {DestinationReg = CPUx86.Registers.EDX, DestinationDisplacement = 4, DestinationIsIndirect = true};
            //    new CPUx86.Push {DestinationReg = CPUx86.Registers.EDX, DestinationIsIndirect = true};
            //    break;
        }
      }
    }

    public override void Execute(MethodInfo aMethod, ILOpCode aOpCode)
    {
      Assemble(Assembler, 4, false, DebugEnabled);
    }
  }
}