| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273 |
- using System;
- using System.Collections.Generic;
- using System.Text;
- namespace CLRSharp
- {
- public class RefFunc
- {
- public IMethod _method;
- public object _this;
- public RefFunc(IMethod _method, object _this)
- {
- this._method = _method;
- this._this = _this;
- }
- }
- /// <summary>
- /// 堆栈帧
- /// 一个堆栈帧,包含一个计算栈,一个临时变量槽,一个参数槽
- /// 模拟虚拟机上的堆栈帧
- /// </summary>
- public class StackFrame
- {
- public string Name
- {
- get;
- private set;
- }
- public bool IsStatic
- {
- get;
- private set;
- }
- public StackFrame(string name, bool isStatic)
- {
- this.Name = name;
- this.IsStatic = IsStatic;
- }
- public Mono.Cecil.Cil.Instruction _pos = null;
- public class MyCalcStack : Stack<object>
- {
- Queue<VBox> unused = new Queue<VBox>();
- public void Push(VBox box)
- {
- if (box != null)
- {
- box.refcount++;
- while (unused.Count > 0)
- {
- VBox b = unused.Dequeue();
- if (b.refcount == 0)
- ValueOnStack.UnUse(b);
- }
- }
- base.Push(box);
- }
- public new object Pop()
- {
- var ob = base.Pop();
- VBox box = ob as VBox;
- if (box != null)
- {
- box.refcount--;
- if (box.refcount == 0)
- unused.Enqueue(box);
- }
- return ob;
- }
- public void ClearVBox()
- {
- while (unused.Count > 0)
- {
- VBox b = unused.Dequeue();
- if (b.refcount == 0)
- {
- ValueOnStack.UnUse(b);
- }
- else
- {
- Console.WriteLine("not zero.");
- }
- }
- this.Clear();
- }
- }
- public MyCalcStack stackCalc = new MyCalcStack();
- public class MySlotVar : List<object>
- {
- public new void Add(object obj)
- {
- base.Add(obj);
- }
- public void Add(VBox box)
- {
- if (box != null)
- {
- box.refcount++;
- }
- base.Add(box);
- }
- public void ClearVBox()
- {
- foreach (object b in this)
- {
- VBox box = b as VBox;
- if (box != null)
- {
- box.refcount--;
- if (box.refcount == 0)
- {
- ValueOnStack.UnUse(box);
- }
- else
- {
- Console.WriteLine("not zero.");
- }
- }
- }
- this.Clear();
- }
- }
- public MySlotVar slotVar = new MySlotVar();
- public object[] _params = null;
- public void SetParams(object[] _p)
- {
- _params = _p;
- }
- CodeBody _body = null;
- public CodeBody codebody
- {
- get
- {
- return _body;
- }
- }
- public void Init(CodeBody body)
- {
- _body = body;
- if (body.typelistForLoc != null)
- {
- for (int i = 0; i < body.typelistForLoc.Count; i++)
- {
- ICLRType t = _body.typelistForLoc[i];
- slotVar.Add(ValueOnStack.MakeVBox(t));
- }
- }
- }
- public object Return()
- {
- this.slotVar.ClearVBox();
- if (this.stackCalc.Count == 0) return null;
- object ret = stackCalc.Pop();
- this.stackCalc.ClearVBox();
- return ret;
- }
- //流程控制
- public void Call(ThreadContext context, IMethod _clrmethod, bool bVisual)
- {
- if (_clrmethod == null)//不想被执行的函数
- {
- _pos = _pos.Next;
- return;
- }
- object[] _pp = null;
- object _this = null;
- if (_clrmethod.ParamList != null)
- {
- _pp = new object[_clrmethod.ParamList.Count];
- for (int i = 0; i < _pp.Length; i++)
- {
- var pp = stackCalc.Pop();
- if (pp is CLRSharp_Instance&&_clrmethod.ParamList[i].TypeForSystem!=typeof(CLRSharp_Instance))
- {
- var inst =pp as CLRSharp_Instance;
- var btype = inst.type.ContainBase(_clrmethod.ParamList[i].TypeForSystem);
- if (btype)
- {
- var CrossBind = context.environment.GetCrossBind(_clrmethod.ParamList[i].TypeForSystem);
- if (CrossBind != null)
- {
- pp = CrossBind.CreateBind(inst);
- }
- else
- {
- pp = (_this as CLRSharp_Instance).system_base;
- //如果没有绑定器,尝试直接使用System_base;
- }
- //context.environment.logger.Log("这里有一个需要映射的类型");
- }
- }
- if (pp is VBox)
- {
- pp = (pp as VBox).BoxDefine();
- }
- if ((pp is int) && (_clrmethod.ParamList[i].TypeForSystem != typeof(int) && _clrmethod.ParamList[i].TypeForSystem != typeof(object)))
- {
- var _vbox = ValueOnStack.MakeVBox(_clrmethod.ParamList[i]);
- if (_vbox != null)
- {
- _vbox.SetDirect(pp);
- pp = _vbox.BoxDefine();
- }
- }
- _pp[_pp.Length - 1 - i] = pp;
- }
- }
- //if (method.HasThis)
- if (!_clrmethod.isStatic)
- {
- _this = stackCalc.Pop();
- }
- if (_clrmethod.DeclaringType.FullName.Contains("System.Runtime.CompilerServices.RuntimeHelpers") && _clrmethod.Name.Contains("InitializeArray"))
- {
- _pos = _pos.Next;
- return;
- }
- if (_clrmethod.DeclaringType.FullName.Contains("System.Type") && _clrmethod.Name.Contains("GetTypeFromHandle"))
- {
- stackCalc.Push(_pp[0]);
- _pos = _pos.Next;
- return;
- }
- if (_clrmethod.DeclaringType.FullName.Contains("System.Object") && _clrmethod.Name.Contains(".ctor"))
- {//跳过这个没意义的构造
- _pos = _pos.Next;
- return;
- }
- if (_this is RefObj && _clrmethod.Name != ".ctor")
- {
- _this = (_this as RefObj).Get();
- }
- if (_this is VBox)
- {
- _this = (_this as VBox).BoxDefine();
- }
- bool bCross = (_this is CLRSharp_Instance && _clrmethod is IMethod_System);
- object returnvar = _clrmethod.Invoke(context, _this, _pp, bVisual);
- if (bCross)
- {
- //这里究竟如何处理还需要再考虑
- //returnvar = _clrmethod.Invoke(context, (_this as CLRSharp_Instance).system_base, _pp, bVisual);
- if (_clrmethod.Name.Contains(".ctor"))
- {
- (_this as CLRSharp_Instance).system_base = returnvar;
- returnvar = (_this);
- }
- }
- else
- {
- //returnvar = _clrmethod.Invoke(context, _this, _pp, bVisual);
- }
- // bool breturn = false;
- if (_clrmethod.ReturnType != null && _clrmethod.ReturnType.FullName != "System.Void")
- {
- if ((returnvar is VBox) == false)
- {
- var type = ValueOnStack.MakeVBox(_clrmethod.ReturnType);
- if (type != null)
- {
- type.SetDirect(returnvar);
- returnvar = type;
- }
- }
- stackCalc.Push(returnvar);
- }
- else if (_this is RefObj && _clrmethod.Name == ".ctor")
- {
- //如果这里有发生程序类型,脚本类型的cross,就需要特别处理
- (_this as RefObj).Set(returnvar);
- }
- _pos = _pos.Next;
- return;
- }
- //栈操作
- public void Nop()
- {
- _pos = _pos.Next;
- }
- public void Dup()
- {
- stackCalc.Push(stackCalc.Peek());
- _pos = _pos.Next;
- }
- public void Pop()
- {
- stackCalc.Pop();
- _pos = _pos.Next;
- }
- //流程控制
- public void Ret()
- {
- _pos = _pos.Next;
- }
- public void Box(ICLRType type)
- {
- object obj = stackCalc.Pop();
- VBox box = obj as VBox;
- if (type.TypeForSystem.IsEnum)
- {
- int ev = 0;
- if (box != null) ev = box.v32;
- else ev = (int)obj;
- obj = Enum.ToObject(type.TypeForSystem, ev);
- }
- else
- {
- if (box != null)
- obj = box.BoxDefine();
- }
- stackCalc.Push(obj);
- _pos = _pos.Next;
- }
- public void Unbox()
- {
- object obj = stackCalc.Pop();
- var box = ValueOnStack.MakeVBox(obj.GetType());
- if (box != null)
- {
- box.SetDirect(obj);
- stackCalc.Push(box);
- }
- else
- {
- stackCalc.Push(obj);
- }
- _pos = _pos.Next;
- }
- public void Unbox_Any()
- {
- _pos = _pos.Next;
- }
- public void Br(Mono.Cecil.Cil.Instruction pos)
- {
- _pos = pos;
- }
- public void Leave(Mono.Cecil.Cil.Instruction pos)
- {
- stackCalc.Clear();
- _pos = pos;
- }
- public void Brtrue(Mono.Cecil.Cil.Instruction pos)
- {
- object obj = stackCalc.Pop();
- bool b = false;
- if (obj != null)
- {
- if (obj is VBox)
- {
- VBox box = obj as VBox;
- b = box.ToBool();
- }
- else if (obj.GetType().IsClass)
- {
- b = true;
- }
- else if (obj is bool)
- {
- b = (bool)obj;
- }
- else
- {
- b = Convert.ToDecimal(obj) > 0;
- }
- }
- //decimal b = Convert.ToDecimal(stackCalc.Pop());
- //bool b = (bool)stackCalc.Pop();
- if (b)
- {
- _pos = pos;
- }
- else
- {
- _pos = _pos.Next;
- }
- }
- public void Brfalse(Mono.Cecil.Cil.Instruction pos)
- {
- decimal b = Convert.ToDecimal(stackCalc.Pop());
- if (b <= 0)
- {
- _pos = pos;
- }
- else
- {
- _pos = _pos.Next;
- }
- }
- //条件跳转
- public void Beq(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_eq(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bne(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_ne(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bne_Un(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_ne_Un(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bge(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_ge(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bge_Un(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_ge_Un(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bgt(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_gt(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Bgt_Un(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_gt_Un(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Ble(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_le(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Ble_Un(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_le_Un(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Blt(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_lt(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- public void Blt_Un(Mono.Cecil.Cil.Instruction pos)
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- if (n1.logic_lt_Un(n2))
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = pos;
- }
- }
- //加载常量
- public void Ldc_I4(int v)//int32
- {
- VBox box = ValueOnStack.MakeVBox(NumberType.INT32);
- box.v32 = v;
- stackCalc.Push(box);
- _pos = _pos.Next;
- }
- public void Ldc_I8(Int64 v)//int64
- {
- VBox box = ValueOnStack.MakeVBox(NumberType.INT64);
- box.v64 = v;
- stackCalc.Push(box);
- _pos = _pos.Next;
- }
- public void Ldc_R4(float v)
- {
- VBox box = ValueOnStack.MakeVBox(NumberType.FLOAT);
- box.vDF = v;
- stackCalc.Push(box);
- _pos = _pos.Next;
- }
- public void Ldc_R8(double v)
- {
- VBox box = ValueOnStack.MakeVBox(NumberType.DOUBLE);
- box.vDF = v;
- stackCalc.Push(box);
- _pos = _pos.Next;
- }
- //放进变量槽
- public void Stloc(int pos)
- {
- object v = stackCalc.Pop();
- while (slotVar.Count <= pos)
- {
- slotVar.Add(null);
- }
- VBox box = slotVar[pos] as VBox;
- if (box == null)
- {
- slotVar[pos] = v;
- }
- else
- {
- if (v is VBox)
- box.Set(v as VBox);
- else
- box.SetDirect(v);
- }
- _pos = _pos.Next;
- }
- //拿出变量槽
- public void Ldloc(int pos)
- {
- var obj = slotVar[pos];
- VBox b = obj as VBox;
- if (b != null)
- {
- obj = b.Clone();
- }
- stackCalc.Push(obj);
- _pos = _pos.Next;
- }
- public enum RefType
- {
- loc,//本地变量槽
- arg,//参数槽
- field//成员变量
- }
- public class RefObj
- {
- public StackFrame frame;
- public int pos;
- public RefType type;
- //public ICLRType _clrtype;
- public IField _field;
- public object _this;
- public RefObj(StackFrame frame, int pos, RefType type)
- {
- this.frame = frame;
- this.pos = pos;
- this.type = type;
- }
- public RefObj(IField field, object _this)
- {
- this.type = RefType.field;
- //this._clrtype = type;
- this._field = field;
- this._this = _this;
- }
- public void Set(object obj)
- {
- if (type == RefType.arg)
- {
- frame._params[pos] = obj;
- }
- else if (type == RefType.loc)
- {
- while (frame.slotVar.Count <= pos)
- {
- frame.slotVar.Add(null);
- }
- frame.slotVar[pos] = obj;
- }
- else if (type == RefType.field)
- {
- _field.Set(_this, obj);
- }
- }
- public object Get()
- {
- if (type == RefType.arg)
- {
- return frame._params[pos];
- }
- else if (type == RefType.loc)
- {
- while (frame.slotVar.Count <= pos)
- {
- frame.slotVar.Add(null);
- }
- return frame.slotVar[pos];
- }
- else if (type == RefType.field)
- {
- return _field.Get(_this);
- }
- return null;
- }
- }
- //拿出变量槽的引用
- public void Ldloca(int pos)
- {
- stackCalc.Push(new RefObj(this, pos, RefType.loc));
- _pos = _pos.Next;
- }
- public void Ldstr(string text)
- {
- stackCalc.Push(text);
- _pos = _pos.Next;
- }
- //加载参数(还得处理static,il静态非静态不一样,成员参数0是this)
- public void Ldarg(int pos)
- {
- object p = null;
- if (_params != null)
- p = _params[pos];
- stackCalc.Push(p);
- _pos = _pos.Next;
- }
- public void Ldarga(int pos)
- {
- stackCalc.Push(new RefObj(this, pos, RefType.arg));
- _pos = _pos.Next;
- }
- //逻辑计算
- public void Ceq()
- {
- var obj2 = stackCalc.Pop();
- var obj1 = stackCalc.Pop();
- VBox n2 = obj2 as VBox;
- VBox n1 = obj1 as VBox;
- bool beq = false;
- if (n1 == null || n2 == null)
- //if (obj1 == null || obj2 == null)
- {
- if (obj1 != null)
- beq = obj1.Equals(obj2);
- else
- beq = (obj1 == obj2);
- }
- else
- {
- beq = n1.logic_eq(n2);
- }
- stackCalc.Push(ValueOnStack.MakeVBoxBool(beq));
- _pos = _pos.Next;
- }
- public void Cgt()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- stackCalc.Push(ValueOnStack.MakeVBoxBool(n1.logic_gt(n2)));
- _pos = _pos.Next;
- }
- public void Cgt_Un()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- stackCalc.Push(ValueOnStack.MakeVBoxBool(n1.logic_gt_Un(n2)));
- _pos = _pos.Next;
- }
- public void Clt()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- stackCalc.Push(ValueOnStack.MakeVBoxBool(n1.logic_lt(n2)));
- _pos = _pos.Next;
- }
- public void Clt_Un()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- stackCalc.Push(ValueOnStack.MakeVBoxBool(n1.logic_lt_Un(n2)));
- _pos = _pos.Next;
- }
- public void Ckfinite()
- {
- object n1 = stackCalc.Pop();
- if (n1 is float)
- {
- float v = (float)n1;
- stackCalc.Push(float.IsInfinity(v) || float.IsNaN(v) ? 1 : 0);
- }
- else
- {
- double v = (double)n1;
- stackCalc.Push(double.IsInfinity(v) || double.IsNaN(v) ? 1 : 0);
- }
- _pos = _pos.Next;
- }
- //算术操作
- public void Add()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Add(n2);
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Sub()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Sub(n2);
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Mul()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Mul(n2);
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Div()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Div(n2);
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Div_Un()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Div(n2);//!!! _un
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Rem()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Mod(n2);
- stackCalc.Push(n1);
- _pos = _pos.Next; ;
- }
- public void Rem_Un()
- {
- VBox n2 = stackCalc.Pop() as VBox;
- VBox n1 = stackCalc.Pop() as VBox;
- n1.Mod(n2);//!!!_un
- stackCalc.Push(n1);
- _pos = _pos.Next;
- }
- public void Neg()
- {
- object n1 = stackCalc.Pop();
- if (n1 is int)
- {
- stackCalc.Push(~(int)n1);
- }
- else if (n1 is Int64)
- {
- stackCalc.Push(~(Int64)n1);
- }
- else
- {
- stackCalc.Push(n1);
- }
- _pos = _pos.Next;
- }
- //转换
- public void Conv_I1()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.SBYTE));
- }
- else
- {
- stackCalc.Push((sbyte)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_U1()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.BYTE));
- }
- else
- {
- stackCalc.Push((byte)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_I2()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT16));
- }
- else
- {
- stackCalc.Push((Int16)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_U2()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT16));
- }
- else
- {
- stackCalc.Push((UInt16)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_I4()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT32));
- }
- else
- {
- stackCalc.Push((Int32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_U4()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT32));
- }
- else
- {
- stackCalc.Push((UInt32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_I8()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT64));
- }
- else
- {
- stackCalc.Push((Int64)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_U8()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT64));
- }
- else
- {
- stackCalc.Push((UInt64)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_I()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT32));
- }
- else
- {
- stackCalc.Push((Int32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_U()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT32));
- }
- else
- {
- stackCalc.Push((UInt32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_R4()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.FLOAT));
- }
- else
- {
- stackCalc.Push((float)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_R8()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.DOUBLE));
- }
- else
- {
- stackCalc.Push((double)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_R_Un()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.FLOAT));
- }
- else
- {
- stackCalc.Push((float)num1);
- }
- _pos = _pos.Next;
- }
- ////数组
- public void NewArr(ThreadContext context, IMethod newForArray)
- {
- //string typename = type.FullName + "[]";
- //var _type = context.environment.GetType(typename, type.Module);
- //MethodParamList tlist = MethodParamList.MakeList_OneParam_Int(context.environment);
- //var m = _type.GetMethod(".ctor", tlist);
- var objv = stackCalc.Pop();
- if (objv is VBox) objv = (objv as VBox).BoxDefine();
- var array = newForArray.Invoke(context, null, new object[] { objv });
- stackCalc.Push(array);
- _pos = _pos.Next;
- }
- public void LdLen()
- {
- var obj = stackCalc.Pop();
- Array a = obj as Array;
- var vbox = ValueOnStack.MakeVBox(NumberType.INT32);
- vbox.v32 = a.Length;
- stackCalc.Push(vbox);
- _pos = _pos.Next;
- }
- public void Ldelema(object obj)
- {
- throw new NotImplementedException();
- //_pos = _pos.Next;
- }
- public void Ldelem_I1()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_U1()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_I2()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_U2()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_I4()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_U4()
- {
- int index = (int)stackCalc.Pop();
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_I8()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_I()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_R4()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_R8()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_Ref()
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Array array = stackCalc.Pop() as Array;
- stackCalc.Push(array.GetValue(index));
- _pos = _pos.Next;
- }
- public void Ldelem_Any(object obj)
- {
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- Object[] array = stackCalc.Pop() as Object[];
- stackCalc.Push(array[index]);
- _pos = _pos.Next;
- }
- public void Stelem_I()
- {
- var obj = stackCalc.Pop();
- int value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToInt();
- }
- else
- {
- value = (Int32)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as Int32[];
- array[index] = value;
- _pos = _pos.Next;
- }
- public void Stelem_I1()
- {
- var obj = stackCalc.Pop();
- int value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToInt();
- }
- else
- {
- value = (sbyte)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as sbyte[];
- array[index] = (sbyte)value;
- _pos = _pos.Next;
- }
- public void Stelem_I2()
- {
- var obj = stackCalc.Pop();
- int value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToInt();
- }
- else
- {
- value = (Int16)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop();
- if (array is char[])
- {
- (array as char[])[index] = (char)value;
- }
- else if (array is Int16[])
- {
- (array as Int16[])[index] = (Int16)value;
- }
- _pos = _pos.Next;
- }
- public void Stelem_I4()
- {
- var obj = stackCalc.Pop();
- int value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToInt();
- }
- else
- {
- value = (Int32)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as Int32[];
- array[index] = (Int32)value;
- _pos = _pos.Next;
- }
- public void Stelem_I8()
- {
- var obj = stackCalc.Pop();
- long value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToInt64();
- }
- else
- {
- value = (Int64)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as Int64[];
- array[index] = value;
- _pos = _pos.Next;
- }
- public void Stelem_R4()
- {
- var obj = stackCalc.Pop();
- float value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToFloat();
- }
- else
- {
- value = (float)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as float[];
- array[index] = value;
- _pos = _pos.Next;
- }
- public void Stelem_R8()
- {
- var obj = stackCalc.Pop();
- double value = 0;
- if (obj is VBox)
- {
- value = (obj as VBox).ToDouble();
- }
- else
- {
- value = (double)obj;
- }
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as double[];
- array[index] = value;
- _pos = _pos.Next;
- }
- public void Stelem_Ref()
- {
- var value = stackCalc.Pop();
- var indexobj = stackCalc.Pop();
- int index = 0;
- if ((indexobj is VBox))
- {
- index = (indexobj as VBox).ToInt();
- }
- else
- {
- index = (int)indexobj;
- }
- var array = stackCalc.Pop() as Object[];
- array[index] = value;
- _pos = _pos.Next;
- }
- public void Stelem_Any()
- {
- var value = stackCalc.Pop();
- var index = (int)stackCalc.Pop();
- var array = stackCalc.Pop() as Object[];
- array[index] = value;
- _pos = _pos.Next;
- }
- //寻址类
- public void NewObj(ThreadContext context, IMethod _clrmethod)
- {
- //MethodParamList list = new MethodParamList(context.environment, method);
- object[] _pp = null;
- if (_clrmethod.ParamList != null && _clrmethod.ParamList.Count > 0)
- {
- _pp = new object[_clrmethod.ParamList.Count];
- for (int i = 0; i < _pp.Length; i++)
- {
- var obj = stackCalc.Pop();
- if (obj is VBox)
- {
- obj = (obj as VBox).BoxDefine();
- }
- _pp[_pp.Length - 1 - i] = obj;
- }
- }
- //var typesys = context.environment.GetType(method.DeclaringType.FullName, method.Module);
- object returnvar = _clrmethod.Invoke(context, null, _pp);
- stackCalc.Push(returnvar);
- _pos = _pos.Next;
- }
- //public void NewObj(ThreadContext context, Mono.Cecil.MethodReference method)
- //{
- // object[] _pp = null;
- // if (method.Parameters.Count > 0)
- // {
- // _pp = new object[method.Parameters.Count];
- // for (int i = 0; i < _pp.Length; i++)
- // {
- // _pp[_pp.Length - 1 - i] = stackCalc.Pop();
- // }
- // }
- // var typesys = context.environment.GetType(method.DeclaringType.FullName, method.Module);
- // MethodParamList list = new MethodParamList(context.environment, method);
- // object returnvar = typesys.GetMethod(method.Name, list).Invoke(context, null, _pp);
- // stackCalc.Push(returnvar);
- // _pos = _pos.Next;
- //}
- public void Ldfld(ThreadContext context, IField field)
- {
- var obj = stackCalc.Pop();
- //var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //ar ff = type.GetField(field.Name);
- if (obj is RefObj)
- {
- obj = (obj as RefObj).Get();
- }
- var value = field.Get(obj);
- VBox box = ValueOnStack.MakeVBox(field.FieldType);
- if (box != null)
- {
- box.SetDirect(value);
- value = box;
- }
- stackCalc.Push(value);
- //System.Type t =obj.GetType();
- _pos = _pos.Next;
- }
- public void Ldflda(ThreadContext context, IField field)
- {
- var obj = stackCalc.Pop();
- // var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //var ff = type.GetField(field.Name);
- stackCalc.Push(new RefObj(field, obj));
- _pos = _pos.Next;
- }
- public void Ldsfld(ThreadContext context, IField field)
- {
- //var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //var ff = type.GetField(field.Name);
- var value = field.Get(null);
- VBox box = ValueOnStack.MakeVBox(field.FieldType);
- if (box != null)
- {
- box.SetDirect(value);
- value = box;
- }
- stackCalc.Push(value);
- //System.Type t =obj.GetType();
- _pos = _pos.Next;
- }
- public void Ldsflda(ThreadContext context, IField field)
- {
- //var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //var ff = type.GetField(field.Name);
- stackCalc.Push(new RefObj(field, null));
- _pos = _pos.Next;
- }
- public void Stfld(ThreadContext context, IField field)
- {
- var value = stackCalc.Pop();
- var obj = stackCalc.Pop();
- //var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //var ff = type.GetField(field.Name);
- if (obj is RefObj)
- {
- var _this = (obj as RefObj).Get();
- if (_this == null && !field.isStatic)
- {
- (obj as RefObj).Set(field.DeclaringType.InitObj());
- }
- obj = (obj as RefObj).Get();
- }
- if (value is VBox)
- {
- value = (value as VBox).BoxDefine();
- }
- //else
- {//某些类型需要转换。。。
- VBox fbox = ValueOnStack.MakeVBox(field.FieldType);
- if (fbox != null)
- {
- fbox.SetDirect(value);
- value = fbox.BoxDefine();
- }
- }
- field.Set(obj, value);
- _pos = _pos.Next;
- }
- public void Stsfld(ThreadContext context, IField field)
- {
- var value = stackCalc.Pop();
- //var obj = stackCalc.Pop();
- if (value is VBox)
- {
- value = (value as VBox).BoxDefine();
- }
- //var type = context.environment.GetType(field.DeclaringType.FullName, field.Module);
- //var ff = type.GetField(field.Name);
- field.Set(null, value);
- _pos = _pos.Next;
- }
- public void Constrained(ThreadContext context, ICLRType obj)
- {
- _pos = _pos.Next;
- }
- public void Isinst(ThreadContext context, ICLRType _type)
- {
- var value = stackCalc.Pop();
- //var _type = context.environment.GetType(obj.FullName, obj.Module);
- if (_type.IsInst(value))
- stackCalc.Push(value);
- else
- stackCalc.Push(null);
- _pos = _pos.Next;
- }
- public void Ldtoken(ThreadContext context, object token)
- {
- //string fname = obj.FullName;
- //string tfname = obj.FieldType.FullName;
- //var _type = context.environment.GetType(obj.DeclaringType.FullName, obj.Module);
- //var field = _type.GetField(obj.Name);
- stackCalc.Push(token);
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I1()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.SBYTE));
- }
- else
- {
- stackCalc.Push((sbyte)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_U1()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.BYTE));
- }
- else
- {
- stackCalc.Push((byte)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I2()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT16));
- }
- else
- {
- stackCalc.Push((Int16)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_U2()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT16));
- }
- else
- {
- stackCalc.Push((Int16)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I4()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT32));
- }
- else
- {
- stackCalc.Push((Int32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_U4()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT32));
- }
- else
- {
- stackCalc.Push((UInt32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I8()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT64));
- }
- else
- {
- stackCalc.Push((Int64)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_U8()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT64));
- }
- else
- {
- stackCalc.Push((Int64)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.INT32));
- }
- else
- {
- stackCalc.Push((Int32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_U()
- {
- object num1 = stackCalc.Pop();
- VBox b = num1 as VBox;
- if (b != null)
- {
- stackCalc.Push(ValueOnStack.Convert(b, NumberType.UINT32));
- }
- else
- {
- stackCalc.Push((UInt32)num1);
- }
- _pos = _pos.Next;
- }
- public void Conv_Ovf_I1_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_U1_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_I2_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_U2_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_I4_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_U4_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_I8_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_U8_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_I_Un()
- {
- throw new NotImplementedException();
- }
- public void Conv_Ovf_U_Un()
- {
- throw new NotImplementedException();
- }
- public void Ldftn(ThreadContext context, IMethod method)
- {
- stackCalc.Push(new RefFunc(method, null));
- //throw new NotImplementedException();
- _pos = _pos.Next;
- }
- public void Ldvirtftn(ThreadContext context, IMethod method)
- {
- object _this = stackCalc.Pop();
- stackCalc.Push(new RefFunc(method, _this));
- _pos = _pos.Next;
- }
- public void Ldarga(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Calli(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Break(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Starg_S(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldnull()
- {
- stackCalc.Push(null);
- _pos = _pos.Next;
- }
- public void Jmp(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Switch(ThreadContext context, Mono.Cecil.Cil.Instruction[] poss)
- {
- var indexobj = stackCalc.Pop();
- uint pos = 0;
- if (indexobj is VBox)
- {
- pos = (indexobj as VBox).ToUInt();
- }
- else
- {
- pos = (uint)(int)indexobj;
- }
- if (pos >= poss.Length)
- {
- _pos = _pos.Next;
- }
- else
- {
- _pos = poss[pos];
- }
- }
- public void Ldind_I1(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_U1(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_I2(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_U2(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_I4(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_U4(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_I8(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_I(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_R4(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_R8(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldind_Ref(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_Ref(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_I1(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_I2(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_I4(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_I8(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_R4(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_R8(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void And(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Or(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Xor(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Shl(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Shr(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Shr_Un(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Not(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Cpobj(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Ldobj(ThreadContext context, object obj)
- {
- stackCalc.Push(obj);
- //Type t = obj.GetType();
- //throw new NotImplementedException();
- _pos = _pos.Next;
- }
- public void Castclass(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Throw(ThreadContext context, object obj)
- {
- Exception exc = stackCalc.Pop() as Exception;
- throw exc;
- //_pos = _pos.Next;
- }
- public void Stobj(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Refanyval(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Mkrefany(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Add_Ovf(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Add_Ovf_Un(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Mul_Ovf(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Mul_Ovf_Un(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Sub_Ovf(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Sub_Ovf_Un(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Endfinally(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Stind_I(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Arglist(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Starg(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Localloc(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Endfilter(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Unaligned(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Volatile(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Tail(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Initobj(ThreadContext context, ICLRType _type)
- {
- RefObj _this = stackCalc.Pop() as RefObj;
- //var typesys = context.environment.GetType(method.DeclaringType.FullName, method.Module);
- var _object = _type.InitObj();
- _this.Set(_object);
- _pos = _pos.Next;
- }
- public void Cpblk(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Initblk(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void No(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Rethrow(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Sizeof(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Refanytype(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- public void Readonly(ThreadContext context, object obj)
- {
- Type t = obj.GetType();
- throw new NotImplementedException(t.ToString());
- //_pos = _pos.Next;
- }
- }
- }
|