Cosmos/source/Cosmos.IL2CPU/IL/Stloc.cs

using System;

using Cosmos.IL2CPU.ILOpCodes;
using XSharp.Compiler;
using static XSharp.Compiler.XSRegisters;

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

    public override void Execute(MethodInfo aMethod, ILOpCode aOpCode)
    {
      var xOpVar = (OpVar) aOpCode;
      var xVar = aMethod.MethodBase.GetMethodBody().LocalVariables[xOpVar.Value];
      var xStackCount = (int) GetStackCountForLocal(aMethod, xVar);
      var xEBPOffset = (int) GetEBPOffsetForLocal(aMethod, xOpVar.Value);
      var xSize = SizeOfType(xVar.LocalType);

      XS.Comment("Local type = " + xVar.LocalType);
      XS.Comment("Local EBP offset = " + xEBPOffset);
      XS.Comment("Local size = " + xSize);

      if (xSize < 4)
      {
        Register xRegister;

        switch (xSize)
        {
          case 1:
            xRegister = AL;
            break;
          case 2:
            xRegister = AX;
            break;
          default:
            throw new NotImplementedException();
        }

        XS.Pop(EAX);

        if (IsIntegerSigned(xVar.LocalType))
        {
          XS.MoveSignExtend(EAX, xRegister);
        }
        else
        {
          XS.MoveZeroExtend(EAX, xRegister);
        }

        XS.Set(EBP, EAX, destinationDisplacement: 0 - xEBPOffset);
      }
      else
      {
        for (int i = xStackCount - 1; i >= 0; i--)
        {
          XS.Pop(EAX);
          XS.Set(EBP, EAX, destinationDisplacement: 0 - (xEBPOffset + (i * 4)));
        }
      }
    }
  }
}