mirror of
https://github.com/danbulant/Cosmos
synced 2026-05-31 21:30:19 +00:00
7f84d28d69
change StackContents to uint, able to use now mnemoric with 3 operands, shl IL near 64 bit (unknown error), add asm line to nasm error
56 lines
2.6 KiB
C#
56 lines
2.6 KiB
C#
using System;
|
|
using System.Collections.Generic;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using Cosmos.IL2CPU.Plugs;
|
|
using Cosmos.Compiler.Assembler;
|
|
using Cosmos.IL2CPU.X86.IL;
|
|
using CPUx86 = Cosmos.Compiler.Assembler.X86;
|
|
using Cosmos.Compiler.Assembler;
|
|
using NewAssembler = Cosmos.Compiler.Assembler.Assembler;
|
|
|
|
namespace Cosmos.IL2CPU.X86.Plugs.NEW_PLUGS {
|
|
public class CtorImplAssembler: AssemblerMethod {
|
|
public override void AssembleNew(object aAssembler, object aMethodInfo) {
|
|
// method signature: $this, object @object, IntPtr method
|
|
var xMethodInfo = (MethodInfo)aMethodInfo;
|
|
var xAssembler = (NewAssembler)aAssembler;
|
|
new Comment("Save target ($this) to field");
|
|
new Comment("-- ldarg 0");
|
|
Ldarg.DoExecute(xAssembler, xMethodInfo, 0);
|
|
//Ldarg.DoExecute(xAssembler, xMethodInfo, 0);
|
|
new Comment("-- ldarg 1");
|
|
Ldarg.DoExecute(xAssembler, xMethodInfo, 1);
|
|
new Comment("-- stfld _target");
|
|
Stfld.DoExecute(xAssembler, xMethodInfo, "System.Object System.Delegate._target", xMethodInfo.MethodBase.DeclaringType, true);
|
|
new Comment("Save method pointer to field");
|
|
//Ldarg.DoExecute(xAssembler, xMethodInfo, 0);
|
|
new Comment("-- ldarg 0");
|
|
Ldarg.DoExecute(xAssembler, xMethodInfo, 0);
|
|
new Comment("-- ldarg 2");
|
|
Ldarg.DoExecute(xAssembler, xMethodInfo, 2);
|
|
new Comment("-- stfld _methodPtr");
|
|
Stfld.DoExecute(xAssembler, xMethodInfo, "System.IntPtr System.Delegate._methodPtr", xMethodInfo.MethodBase.DeclaringType, true);
|
|
new Comment("Saving ArgSize to field");
|
|
uint xSize = 0;
|
|
foreach (var xArg in xMethodInfo.MethodBase.DeclaringType.GetMethod("Invoke").GetParameters()) {
|
|
xSize += ILOp.Align(ILOp.SizeOfType(xArg.ParameterType), 4);
|
|
}
|
|
new Comment("-- ldarg 0");
|
|
Ldarg.DoExecute(xAssembler, xMethodInfo, 0);
|
|
if (xMethodInfo.MethodBase.DeclaringType.FullName.Contains("InterruptDelegate")) {
|
|
Console.Write("");
|
|
}
|
|
new Comment("-- push argsize");
|
|
new CPUx86.Push { DestinationValue = xSize };
|
|
xAssembler.Stack.Push(ILOp.SizeOfType(typeof(int)), typeof(Int32));
|
|
new Comment("-- stfld ArgSize");
|
|
Stfld.DoExecute(xAssembler, xMethodInfo, "$$ArgSize$$", xMethodInfo.MethodBase.DeclaringType, true);
|
|
|
|
|
|
//public static void Ctor(Delegate aThis, object aObject, IntPtr aMethod,
|
|
//[FieldAccess(Name = "System.Object System.Delegate._target")] ref object aFldTarget,
|
|
//[FieldAccess(Name = "System.IntPtr System.Delegate._methodPtr")] ref IntPtr aFldMethod) {
|
|
}
|
|
}
|
|
}
|