| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756 |
- using System;
- using System.Collections.Generic;
- using System.Linq;
- using System.Text;
- using System.Threading;
- using ILRuntime.Runtime.Enviorment;
- using ILRuntime.Runtime.Stack;
- using ILRuntime.CLR.Method;
- using ILRuntime.CLR.TypeSystem;
- using ILRuntime.Runtime.Intepreter.OpCodes;
- using ILRuntime.Runtime.Debugger;
- using ILRuntime.CLR.Utils;
- using ILRuntime.Other;
- namespace ILRuntime.Runtime.Intepreter
- {
- public unsafe partial class ILIntepreter
- {
- Enviorment.AppDomain domain;
- RuntimeStack stack;
- object _lockObj;
- bool allowUnboundCLRMethod;
- internal RuntimeStack Stack { get { return stack; } }
- public bool ShouldBreak { get; set; }
- public StepTypes CurrentStepType { get; set; }
- public StackObject* LastStepFrameBase { get; set; }
- public int LastStepInstructionIndex { get; set; }
- StackObject* ValueTypeBasePointer;
- #pragma warning disable CS0414
- bool mainthreadLock;
- public ILIntepreter(Enviorment.AppDomain domain)
- {
- this.domain = domain;
- stack = new RuntimeStack(this);
- allowUnboundCLRMethod = domain.AllowUnboundCLRMethod;
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- _lockObj = new object();
- #endif
- }
- public Enviorment.AppDomain AppDomain { get { return domain; } }
- public void Break()
- {
- //Clear old debug state
- ClearDebugState();
- #if DEBUG && !NO_PROFILER
- if(domain.UnityMainThreadID == Thread.CurrentThread.ManagedThreadId)
- {
- mainthreadLock = true;
- while (mainthreadLock)
- {
- domain.DebugService.ResolvePendingRequests();
- Thread.Sleep(10);
- }
- return;
- }
- #endif
- lock (_lockObj)
- {
- Monitor.Wait(_lockObj);
- }
- }
- public void Resume()
- {
- mainthreadLock = false;
- lock (_lockObj)
- Monitor.Pulse(_lockObj);
- }
- public void ClearDebugState()
- {
- ShouldBreak = false;
- CurrentStepType = StepTypes.None;
- LastStepFrameBase = (StackObject*)0;
- LastStepInstructionIndex = 0;
- }
- public object Run(ILMethod method, object instance, object[] p)
- {
- IList<object> mStack = stack.ManagedStack;
- int mStackBase = mStack.Count;
- StackObject* esp = stack.StackBase;
- stack.ResetValueTypePointer();
- if (method.HasThis)
- {
- if (instance is CrossBindingAdaptorType)
- instance = ((CrossBindingAdaptorType)instance).ILInstance;
- if (instance == null)
- throw new NullReferenceException("instance should not be null!");
- esp = PushObject(esp, mStack, instance);
- }
- bool useRegister = method.ShouldUseRegisterVM;
- esp = PushParameters(method, esp, p, useRegister);
- bool unhandledException;
- if (useRegister)
- esp = ExecuteR(method, esp, out unhandledException);
- else
- esp = Execute(method, esp, out unhandledException);
- object result = method.ReturnType != domain.VoidType ? method.ReturnType.TypeForCLR.CheckCLRTypes(StackObject.ToObject((esp - 1), domain, mStack)) : null;
- //ClearStack
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- ((List<object>)mStack).RemoveRange(mStackBase, mStack.Count - mStackBase);
- #else
- ((UncheckedList<object>)mStack).RemoveRange(mStackBase, mStack.Count - mStackBase);
- #endif
- return result;
- }
- internal StackObject* Execute(ILMethod method, StackObject* esp, out bool unhandledException)
- {
- #if DEBUG
- if (method == null)
- throw new NullReferenceException();
- #endif
- #if DEBUG && !NO_PROFILER
- if (System.Threading.Thread.CurrentThread.ManagedThreadId == AppDomain.UnityMainThreadID)
- #if UNITY_5_5_OR_NEWER
- UnityEngine.Profiling.Profiler.BeginSample(method.ToString());
- #else
- UnityEngine.Profiler.BeginSample(method.ToString());
- #endif
- #endif
- OpCode[] body = method.Body;
- StackFrame frame;
- stack.InitializeFrame(method, esp, out frame);
- StackObject* v1 = frame.LocalVarPointer;
- StackObject* v2 = frame.LocalVarPointer + 1;
- StackObject* v3 = frame.LocalVarPointer + 1 + 1;
- StackObject* v4 = Add(frame.LocalVarPointer, 3);
- Exception lastCaughtEx = null;
- int finallyEndAddress = 0;
- var ehs = method.ExceptionHandler;
- esp = frame.BasePointer;
- var arg = Minus(frame.LocalVarPointer, method.ParameterCount);
- IList<object> mStack = stack.ManagedStack;
- int paramCnt = method.ParameterCount;
- if (method.HasThis)//this parameter is always object reference
- {
- arg--;
- paramCnt++;
- /// 为确保性能,暂时先确保开发的时候,安全检查完备。
- /// 当然手机端运行时可能会出现为空的类对象可正常调用成员函数,导致成员函数里面访问成员变量报错时可能使得根据Log跟踪BUG时方向错误。
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- var thisObj = RetriveObject(arg, mStack);
- if (thisObj == null)
- throw new NullReferenceException();
- #endif
- }
- unhandledException = false;
- StackObject* objRef, objRef2, dst, val, a, b, arrRef;
- object obj = null;
- IType type;
- Type clrType;
- int intVal;
- //Managed Stack reserved for arguments(In case of starg)
- for (int i = 0; i < paramCnt; i++)
- {
- a = Add(arg, i);
- switch (a->ObjectType)
- {
- case ObjectTypes.Null:
- //Need to reserve place for null, in case of starg
- a->ObjectType = ObjectTypes.Object;
- a->Value = mStack.Count;
- mStack.Add(null);
- break;
- case ObjectTypes.ValueTypeObjectReference:
- //CloneStackValueType(a, a, mStack);
- break;
- case ObjectTypes.Object:
- case ObjectTypes.FieldReference:
- case ObjectTypes.ArrayReference:
- {
- if (i > 0 || !method.HasThis)//this instance should not be cloned
- mStack[a->Value] = CheckAndCloneValueType(mStack[a->Value], AppDomain);
- }
- frame.ManagedStackBase--;
- break;
- }
- }
- stack.PushFrame(ref frame);
- int locBase = mStack.Count;
- //Managed Stack reserved for local variable
- for (int i = 0; i < method.LocalVariableCount; i++)
- {
- mStack.Add(null);
- }
- for (int i = 0; i < method.LocalVariableCount; i++)
- {
- var v = method.Variables[i];
- bool isEnum = false;
- var vt = v.VariableType;
- IType t;
- if (vt.IsGenericParameter)
- {
- t = method.FindGenericArgument(vt.Name);
- }
- else
- {
- t = AppDomain.GetType(v.VariableType, method.DeclearingType, method);
- }
- isEnum = t.IsEnum;
-
- if (!t.IsByRef && t.IsValueType && !t.IsPrimitive && !isEnum)
- {
- if (t is ILType)
- {
- //var obj = ((ILType)t).Instantiate(false);
- var loc = Add(v1, i);
- stack.AllocValueType(loc, t);
- /*loc->ObjectType = ObjectTypes.Object;
- loc->Value = mStack.Count;
- mStack.Add(obj);*/
- }
- else
- {
- CLRType cT = (CLRType)t;
- var loc = Add(v1, i);
- if (cT.ValueTypeBinder != null)
- {
- stack.AllocValueType(loc, t);
- }
- else
- {
- obj = ((CLRType)t).CreateDefaultInstance();
- loc->ObjectType = ObjectTypes.Object;
- loc->Value = locBase + i;
- mStack[locBase + i] = obj;
- }
- }
- }
- else
- {
- if (t.IsPrimitive || isEnum)
- {
- var loc = Add(v1, i);
- StackObject.Initialized(loc, t);
- }
- else
- {
- var loc = Add(v1, i);
- loc->ObjectType = ObjectTypes.Object;
- loc->Value = locBase + i;
- }
- }
- }
- var bp = stack.ValueTypeStackPointer;
- ValueTypeBasePointer = bp;
- fixed (OpCode* ptr = body)
- {
- OpCode* ip = ptr;
- OpCodeEnum code = ip->Code;
- bool returned = false;
- while (!returned)
- {
- try
- {
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- if (ShouldBreak)
- Break();
- var insOffset = (int)(ip - ptr);
- frame.Address.Value = insOffset;
- AppDomain.DebugService.CheckShouldBreak(method, this, insOffset);
- #endif
- code = ip->Code;
- switch (code)
- {
- #region Arguments and Local Variable
- case OpCodeEnum.Ldarg_0:
- CopyToStack(esp, arg, mStack);
- esp++;
- break;
- case OpCodeEnum.Ldarg_1:
- CopyToStack(esp, arg + 1, mStack);
- esp++;
- break;
- case OpCodeEnum.Ldarg_2:
- CopyToStack(esp, arg + 1 + 1, mStack);
- esp++;
- break;
- case OpCodeEnum.Ldarg_3:
- CopyToStack(esp, arg + 1 + 1 + 1, mStack);
- esp++;
- break;
- case OpCodeEnum.Ldarg:
- case OpCodeEnum.Ldarg_S:
- CopyToStack(esp, Add(arg, ip->TokenInteger), mStack);
- esp++;
- break;
- case OpCodeEnum.Ldarga:
- case OpCodeEnum.Ldarga_S:
- {
- a = Add(arg, ip->TokenInteger);
- esp->ObjectType = ObjectTypes.StackObjectReference;
- *(long*)&esp->Value = (long)a;
- esp++;
- }
- break;
- case OpCodeEnum.Starg:
- case OpCodeEnum.Starg_S:
- {
- a = Add(arg, ip->TokenInteger);
- val = esp - 1;
- int idx = a->Value;
- bool isObj = a->ObjectType >= ObjectTypes.Object;
- if (val->ObjectType >= ObjectTypes.Object)
- {
- if (a->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = ILIntepreter.ResolveReference(a);
- CopyValueTypeToStack(dst, mStack[val->Value], mStack);
- }
- else
- {
- a->ObjectType = val->ObjectType;
- mStack[a->Value] = mStack[val->Value];
- a->ValueLow = val->ValueLow;
- }
- }
- else
- {
- if (a->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- if (val->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- CopyStackValueType(val, a, mStack);
- FreeStackValueType(val);
- }
- else
- throw new NotSupportedException();
- }
- else
- {
- if (val->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- if (isObj)
- {
- mStack[a->Value] = StackObject.ToObject(val, domain, mStack);
- }
- else
- throw new NotSupportedException();
- }
- else
- {
- *a = *val;
- if (isObj)
- {
- a->Value = idx;
- if (val->ObjectType == ObjectTypes.Null)
- {
- mStack[a->Value] = null;
- }
- }
- }
- }
- }
- Free(val);
- esp--;
- }
- break;
- case OpCodeEnum.Stloc_0:
- {
- esp--;
- int idx = locBase;
- StLocSub(esp, v1, idx, mStack);
- }
- break;
- case OpCodeEnum.Ldloc_0:
- CopyToStack(esp, v1, mStack);
- esp++;
- break;
- case OpCodeEnum.Stloc_1:
- {
- esp--;
- int idx = locBase + 1;
- StLocSub(esp, v2, idx, mStack);
- }
- break;
- case OpCodeEnum.Ldloc_1:
- CopyToStack(esp, v2, mStack);
- esp++;
- break;
- case OpCodeEnum.Stloc_2:
- {
- esp--;
- int idx = locBase + 2;
- StLocSub(esp, v3, idx, mStack);
- break;
- }
- case OpCodeEnum.Ldloc_2:
- CopyToStack(esp, v3, mStack);
- esp++;
- break;
- case OpCodeEnum.Stloc_3:
- {
- esp--;
- int idx = locBase + 3;
- StLocSub(esp, v4, idx, mStack);
- }
- break;
- case OpCodeEnum.Ldloc_3:
- CopyToStack(esp, v4, mStack);
- esp++;
- break;
- case OpCodeEnum.Stloc:
- case OpCodeEnum.Stloc_S:
- {
- esp--;
- var v = Add(frame.LocalVarPointer, ip->TokenInteger);
- int idx = locBase + ip->TokenInteger;
- StLocSub(esp, v, idx, mStack);
- }
- break;
- case OpCodeEnum.Ldloc:
- case OpCodeEnum.Ldloc_S:
- {
- var v = Add(frame.LocalVarPointer, ip->TokenInteger);
- CopyToStack(esp, v, mStack);
- esp++;
- }
- break;
- case OpCodeEnum.Ldloca:
- case OpCodeEnum.Ldloca_S:
- {
- var v = Add(frame.LocalVarPointer, ip->TokenInteger);
- esp->ObjectType = ObjectTypes.StackObjectReference;
- *(long*)&esp->Value = (long)v;
- esp++;
- }
- break;
- case OpCodeEnum.Ldobj:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.ArrayReference:
- {
- var t = AppDomain.GetType(ip->TokenInteger);
- obj = mStack[objRef->Value];
- var idx = objRef->ValueLow;
- Free(objRef);
- LoadFromArrayReference(obj, idx, objRef, t, mStack);
- }
- break;
- case ObjectTypes.StackObjectReference:
- {
- CopyToStack(objRef, GetObjectAndResolveReference(objRef), mStack);
- }
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- Free(objRef);
- if (obj is ILTypeInstance)
- {
- ((ILTypeInstance)obj).PushToStack(idx, objRef, this, mStack);
- }
- else
- {
- var t = AppDomain.GetType(ip->TokenInteger);
- if (!((CLRType)t).CopyFieldToStack(idx, obj, this, ref objRef, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, obj);
- PushObject(objRef, mStack, obj);
- }
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- Free(objRef);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, objRef, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref objRef, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(objRef, mStack, obj);
- }
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- }
- break;
- case OpCodeEnum.Stobj:
- {
- objRef = esp - 1 - 1;
- val = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.ArrayReference:
- {
- var t = AppDomain.GetType(ip->TokenInteger);
- StoreValueToArrayReference(objRef, val, t, mStack);
- }
- break;
- case ObjectTypes.StackObjectReference:
- {
- objRef = GetObjectAndResolveReference(objRef);
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- switch (val->ObjectType)
- {
- case ObjectTypes.Object:
- dst = ILIntepreter.ResolveReference(objRef);
- CopyValueTypeToStack(dst, mStack[val->Value], mStack);
- break;
- case ObjectTypes.ValueTypeObjectReference:
- CopyStackValueType(val, objRef, mStack);
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else
- {
- if (val->ObjectType >= ObjectTypes.Object)
- {
- mStack[objRef->Value] = mStack[val->Value];
- objRef->ValueLow = val->ValueLow;
- }
- else
- {
- *objRef = *val;
- }
- }
- }
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- if (obj is ILTypeInstance)
- {
- ((ILTypeInstance)obj).AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- var t = AppDomain.GetType(ip->TokenInteger);
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- ((CLRType)t).SetFieldValue(idx, ref obj, t.TypeForCLR.CheckCLRTypes(StackObject.ToObject(val, AppDomain, mStack)));
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.AssignFromStack(objRef->ValueLow, val, AppDomain, mStack);
- }
- else
- {
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(objRef->ValueLow, ref obj, this, val, mStack))
- ((CLRType)t).SetStaticFieldValue(objRef->ValueLow, t.TypeForCLR.CheckCLRTypes(StackObject.ToObject(val, AppDomain, mStack)));
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- #endregion
- #region Load Constants
- case OpCodeEnum.Ldc_I4_M1:
- esp->Value = -1;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_0:
- esp->Value = 0;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_1:
- esp->Value = 1;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_2:
- esp->Value = 2;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_3:
- esp->Value = 3;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_4:
- esp->Value = 4;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_5:
- esp->Value = 5;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_6:
- esp->Value = 6;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_7:
- esp->Value = 7;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4_8:
- esp->Value = 8;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I4:
- case OpCodeEnum.Ldc_I4_S:
- esp->Value = ip->TokenInteger;
- esp->ObjectType = ObjectTypes.Integer;
- esp++;
- break;
- case OpCodeEnum.Ldc_I8:
- {
- *(long*)(&esp->Value) = ip->TokenLong;
- esp->ObjectType = ObjectTypes.Long;
- esp++;
- }
- break;
- case OpCodeEnum.Ldc_R4:
- {
- *(float*)(&esp->Value) = *(float*)&ip->TokenInteger;
- esp->ObjectType = ObjectTypes.Float;
- esp++;
- }
- break;
- case OpCodeEnum.Ldc_R8:
- {
- *(double*)(&esp->Value) = *(double*)&ip->TokenLong;
- esp->ObjectType = ObjectTypes.Double;
- esp++;
- }
- break;
- case OpCodeEnum.Ldnull:
- {
- esp = PushNull(esp);
- }
- break;
- case OpCodeEnum.Ldind_I:
- case OpCodeEnum.Ldind_I1:
- case OpCodeEnum.Ldind_I2:
- case OpCodeEnum.Ldind_I4:
- case OpCodeEnum.Ldind_U1:
- case OpCodeEnum.Ldind_U2:
- case OpCodeEnum.Ldind_U4:
- {
- val = GetObjectAndResolveReference(esp - 1);
- dst = esp - 1;
- switch (val->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromFieldReference(instance, idx, dst, mStack);
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromArrayReference(instance, idx, dst, instance.GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(val->Value);
- int idx = val->ValueLow;
- Free(dst);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, dst, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref dst, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(dst, mStack, obj);
- }
- }
- }
- break;
- default:
- {
- dst->ObjectType = ObjectTypes.Integer;
- dst->Value = val->Value;
- dst->ValueLow = 0;
- }
- break;
- }
- }
- break;
- case OpCodeEnum.Ldind_I8:
- {
- val = GetObjectAndResolveReference(esp - 1);
- dst = esp - 1;
- switch (val->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromFieldReference(instance, idx, dst, mStack);
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromArrayReference(instance, idx, dst, instance.GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(val->Value);
- int idx = val->ValueLow;
- Free(dst);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, dst, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref dst, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(dst, mStack, obj);
- }
- }
- }
- break;
- default:
- {
- *dst = *val;
- dst->ObjectType = ObjectTypes.Long;
- }
- break;
- }
- }
- break;
- case OpCodeEnum.Ldind_R4:
- {
- val = GetObjectAndResolveReference(esp - 1);
- dst = esp - 1;
- switch (val->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromFieldReference(instance, idx, dst, mStack);
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromArrayReference(instance, idx, dst, instance.GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(val->Value);
- int idx = val->ValueLow;
- Free(dst);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, dst, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref dst, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(dst, mStack, obj);
- }
- }
- }
- break;
- default:
- {
- dst->ObjectType = ObjectTypes.Float;
- dst->Value = val->Value;
- dst->ValueLow = 0;
- }
- break;
- }
- }
- break;
- case OpCodeEnum.Ldind_R8:
- {
- val = GetObjectAndResolveReference(esp - 1);
- dst = esp - 1;
- switch (val->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromFieldReference(instance, idx, dst, mStack);
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromArrayReference(instance, idx, dst, instance.GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(val->Value);
- int idx = val->ValueLow;
- Free(dst);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, dst, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref dst, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(dst, mStack, obj);
- }
- }
- }
- break;
- default:
- {
- *dst = *val;
- dst->ObjectType = ObjectTypes.Double;
- }
- break;
- }
- }
- break;
- case OpCodeEnum.Ldind_Ref:
- {
- val = GetObjectAndResolveReference(esp - 1);
- dst = esp - 1;
- switch (val->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromFieldReference(instance, idx, dst, mStack);
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var instance = mStack[val->Value];
- var idx = val->ValueLow;
- Free(dst);
- LoadFromArrayReference(instance, idx, dst, instance.GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(val->Value);
- int idx = val->ValueLow;
- Free(dst);
- if (t is ILType)
- {
- ((ILType)t).StaticInstance.PushToStack(idx, dst, this, mStack);
- }
- else
- {
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref dst, mStack))
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- PushObject(dst, mStack, obj);
- }
- }
- }
- break;
- default:
- {
- dst->ObjectType = ObjectTypes.Object;
- dst->Value = mStack.Count;
- mStack.Add(mStack[val->Value]);
- }
- break;
- }
- }
- break;
- case OpCodeEnum.Stind_I:
- case OpCodeEnum.Stind_I1:
- case OpCodeEnum.Stind_I2:
- case OpCodeEnum.Stind_I4:
- case OpCodeEnum.Stind_R4:
- {
- dst = GetObjectAndResolveReference(esp - 1 - 1);
- val = esp - 1;
- switch (dst->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- obj = mStack[dst->Value];
- StoreValueToFieldReference(ref obj, dst->ValueLow, val, mStack);
- mStack[dst->Value] = obj;
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- StoreValueToArrayReference(dst, val, mStack[dst->Value].GetType().GetElementType(), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- type = AppDomain.GetType(dst->Value);
- int idx = dst->ValueLow;
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = type as CLRType;
- var f = t.GetField(idx);
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- t.SetStaticFieldValue(idx, f.FieldType.CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- }
- }
- else
- throw new TypeLoadException();
- }
- break;
- default:
- {
- dst->Value = val->Value;
- }
- break;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- case OpCodeEnum.Stind_I8:
- {
- dst = GetObjectAndResolveReference(esp - 1 - 1);
- val = esp - 1;
- switch (dst->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- obj = mStack[dst->Value];
- StoreValueToFieldReference(ref obj, dst->ValueLow, val, mStack);
- mStack[dst->Value] = obj;
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- StoreValueToArrayReference(dst, val, typeof(long), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- type = AppDomain.GetType(dst->Value);
- int idx = dst->ValueLow;
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = type as CLRType;
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- t.SetStaticFieldValue(idx, typeof(long).CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- }
- }
- else
- throw new TypeLoadException();
- }
- break;
- default:
- {
- dst->Value = val->Value;
- dst->ValueLow = val->ValueLow;
- }
- break;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- case OpCodeEnum.Stind_R8:
- {
- dst = GetObjectAndResolveReference(esp - 1 - 1);
- val = esp - 1;
- switch (dst->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- obj = mStack[dst->Value];
- StoreValueToFieldReference(ref obj, dst->ValueLow, val, mStack);
- mStack[dst->Value] = obj;
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- StoreValueToArrayReference(dst, val, typeof(double), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- type = AppDomain.GetType(dst->Value);
- int idx = dst->ValueLow;
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = type as CLRType;
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- t.SetStaticFieldValue(idx, typeof(double).CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- }
- }
- else
- throw new TypeLoadException();
- }
- break;
- default:
- {
- dst->Value = val->Value;
- dst->ValueLow = val->ValueLow;
- }
- break;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- case OpCodeEnum.Stind_Ref:
- {
- dst = GetObjectAndResolveReference(esp - 1 - 1);
- val = esp - 1;
- switch (dst->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- obj = mStack[dst->Value];
- StoreValueToFieldReference(ref obj, dst->ValueLow, val, mStack);
- mStack[dst->Value] = obj;
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- StoreValueToArrayReference(dst, val, typeof(object), mStack);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- type = AppDomain.GetType(dst->Value);
- int idx = dst->ValueLow;
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = type as CLRType;
- var f = t.GetField(idx);
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- t.SetStaticFieldValue(idx, f.FieldType.CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- }
- }
- else
- throw new TypeLoadException();
- }
- break;
- default:
- {
- switch (val->ObjectType)
- {
- case ObjectTypes.Object:
- mStack[dst->Value] = mStack[val->Value];
- break;
- case ObjectTypes.Null:
- mStack[dst->Value] = null;
- break;
- default:
- throw new NotImplementedException();
- }
- }
- break;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldstr:
- esp = PushObject(esp, mStack, AppDomain.GetString(ip->TokenLong));
- break;
- #endregion
- #region Althemetics
- case OpCodeEnum.Add:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) + *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value + b->Value;
- break;
- case ObjectTypes.Float:
- *((float*)&esp->Value) = *((float*)&a->Value) + *((float*)&b->Value);
- break;
- case ObjectTypes.Double:
- *((double*)&esp->Value) = *((double*)&a->Value) + *((double*)&b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Sub:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) - *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value - b->Value;
- break;
- case ObjectTypes.Float:
- *((float*)&esp->Value) = *((float*)&a->Value) - *((float*)&b->Value);
- break;
- case ObjectTypes.Double:
- *((double*)&esp->Value) = *((double*)&a->Value) - *((double*)&b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Mul:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) * *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value * b->Value;
- break;
- case ObjectTypes.Float:
- *((float*)&esp->Value) = *((float*)&a->Value) * *((float*)&b->Value);
- break;
- case ObjectTypes.Double:
- *((double*)&esp->Value) = *((double*)&a->Value) * *((double*)&b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Div:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) / *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value / b->Value;
- break;
- case ObjectTypes.Float:
- *((float*)&esp->Value) = *((float*)&a->Value) / *((float*)&b->Value);
- break;
- case ObjectTypes.Double:
- *((double*)&esp->Value) = *((double*)&a->Value) / *((double*)&b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Div_Un:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((ulong*)&esp->Value) = *((ulong*)&a->Value) / *((ulong*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = (int)((uint)a->Value / (uint)b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Rem:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) % *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value % b->Value;
- break;
- case ObjectTypes.Float:
- *(float*)&esp->Value = *(float*)&a->Value % *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- *(double*)&esp->Value = *(double*)&a->Value % *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Rem_Un:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((ulong*)&esp->Value) = *((ulong*)&a->Value) % *((ulong*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = (int)((uint)a->Value % (uint)b->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Xor:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) ^ *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value ^ b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.And:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) & *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value & b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Or:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) | *((long*)&b->Value);
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value | b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Shl:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- int bits = b->Value;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) << bits;
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value << bits;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Shr:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- int bits = b->Value;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&esp->Value) = *((long*)&a->Value) >> bits;
- break;
- case ObjectTypes.Integer:
- esp->Value = a->Value >> bits;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Shr_Un:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = a;
- int bits = b->Value;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((ulong*)&esp->Value) = *((ulong*)&a->Value) >> bits;
- break;
- case ObjectTypes.Integer:
- *(uint*)&esp->Value = (uint)a->Value >> bits;
- break;
- default:
- throw new NotImplementedException();
- }
- esp++;
- }
- break;
- case OpCodeEnum.Not:
- {
- a = esp - 1;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&a->Value) = ~*((long*)&a->Value);
- break;
- case ObjectTypes.Integer:
- a->Value = ~a->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- }
- break;
- case OpCodeEnum.Neg:
- {
- a = esp - 1;
- switch (a->ObjectType)
- {
- case ObjectTypes.Long:
- *((long*)&a->Value) = -*((long*)&a->Value);
- break;
- case ObjectTypes.Integer:
- a->Value = -a->Value;
- break;
- case ObjectTypes.Float:
- *((float*)&a->Value) = -*((float*)&a->Value);
- break;
- case ObjectTypes.Double:
- *((double*)&a->Value) = -*((double*)&a->Value);
- break;
- default:
- throw new NotImplementedException();
- }
- }
- break;
- #endregion
- #region Control Flows
- case OpCodeEnum.Ret:
- returned = true;
- break;
- case OpCodeEnum.Brtrue:
- case OpCodeEnum.Brtrue_S:
- {
- esp--;
- bool res = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- res = esp->Value != 0;
- break;
- case ObjectTypes.Long:
- res = *(long*)&esp->Value != 0;
- break;
- case ObjectTypes.Object:
- res = mStack[esp->Value] != null;
- break;
- }
- if (res)
- {
- ip = ptr + ip->TokenInteger;
- Free(esp);
- continue;
- }
- else
- Free(esp);
- }
- break;
- case OpCodeEnum.Brfalse:
- case OpCodeEnum.Brfalse_S:
- {
- esp--;
- bool res = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Null:
- res = true;
- break;
- case ObjectTypes.Integer:
- res = esp->Value == 0;
- break;
- case ObjectTypes.Long:
- res = *(long*)&esp->Value == 0;
- break;
- case ObjectTypes.Object:
- res = mStack[esp->Value] == null;
- Free(esp);
- break;
- default:
- Free(esp);
- break;
- }
- if (res)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Beq:
- case OpCodeEnum.Beq_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- bool transfer = false;
- if (a->ObjectType == b->ObjectType)
- {
- switch (a->ObjectType)
- {
- case ObjectTypes.Null:
- transfer = true;
- break;
- case ObjectTypes.Integer:
- transfer = a->Value == b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value == *(long*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value == *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value == *(double*)&b->Value;
- break;
- case ObjectTypes.Object:
- transfer = mStack[a->Value] == mStack[b->Value];
- break;
- default:
- throw new NotImplementedException();
- }
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Bne_Un:
- case OpCodeEnum.Bne_Un_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- bool transfer = false;
- if (a->ObjectType == b->ObjectType)
- {
- switch (a->ObjectType)
- {
- case ObjectTypes.Null:
- transfer = false;
- break;
- case ObjectTypes.Integer:
- transfer = (uint)a->Value != (uint)b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value != *(float*)&b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value != *(long*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value != *(double*)&b->Value;
- break;
- case ObjectTypes.Object:
- transfer = mStack[a->Value] != mStack[b->Value];
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else
- transfer = true;
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Bgt:
- case OpCodeEnum.Bgt_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = a->Value > b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value > *(long*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value > *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value > *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Bgt_Un:
- case OpCodeEnum.Bgt_Un_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = (uint)a->Value > (uint)b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(ulong*)&a->Value > *(ulong*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value > *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value > *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Bge:
- case OpCodeEnum.Bge_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = a->Value >= b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value >= *(long*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value >= *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value >= *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Bge_Un:
- case OpCodeEnum.Bge_Un_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = (uint)a->Value >= (uint)b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(ulong*)&a->Value >= *(ulong*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value >= *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value >= *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Blt:
- case OpCodeEnum.Blt_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = a->Value < b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value < *(long*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value < *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value < *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Blt_Un:
- case OpCodeEnum.Blt_Un_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = (uint)a->Value < (uint)b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(ulong*)&a->Value < *(ulong*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value < *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value < *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Ble:
- case OpCodeEnum.Ble_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = a->Value <= b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(long*)&a->Value <= *(long*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value <= *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value <= *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Ble_Un:
- case OpCodeEnum.Ble_Un_S:
- {
- b = esp - 1;
- a = esp - 1 - 1;
- esp = esp - 1 - 1;
- bool transfer = false;
- switch (esp->ObjectType)
- {
- case ObjectTypes.Integer:
- transfer = (uint)a->Value <= (uint)b->Value;
- break;
- case ObjectTypes.Long:
- transfer = *(ulong*)&a->Value <= *(ulong*)&b->Value;
- break;
- case ObjectTypes.Float:
- transfer = *(float*)&a->Value <= *(float*)&b->Value;
- break;
- case ObjectTypes.Double:
- transfer = *(double*)&a->Value <= *(double*)&b->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (transfer)
- {
- ip = ptr + ip->TokenInteger;
- continue;
- }
- }
- break;
- case OpCodeEnum.Br_S:
- case OpCodeEnum.Br:
- ip = ptr + ip->TokenInteger;
- continue;
- case OpCodeEnum.Switch:
- {
- intVal = (esp - 1)->Value;
- Free(esp - 1);
- esp--;
- var table = method.JumpTables[ip->TokenInteger];
- if (intVal >= 0 && intVal < table.Length)
- {
- ip = ptr + table[intVal];
- continue;
- }
- }
- break;
- case OpCodeEnum.Leave:
- case OpCodeEnum.Leave_S:
- {
- if (ehs != null)
- {
- ExceptionHandler eh = null;
- int addr = (int)(ip - ptr);
- var sql = from e in ehs
- where addr >= e.TryStart && addr <=e.TryEnd && e.HandlerType == ExceptionHandlerType.Finally || e.HandlerType == ExceptionHandlerType.Fault
- select e;
- eh = sql.FirstOrDefault();
- if (eh != null)
- {
- finallyEndAddress = ip->TokenInteger;
- ip = ptr + eh.HandlerStart;
- continue;
- }
- }
- ip = ptr + ip->TokenInteger;
- continue;
- }
- case OpCodeEnum.Endfinally:
- {
- ip = ptr + finallyEndAddress;
- finallyEndAddress = 0;
- continue;
- }
- case OpCodeEnum.Call:
- case OpCodeEnum.Callvirt:
- {
- IMethod m = domain.GetMethod(ip->TokenInteger);
- if (m == null)
- {
- //Irrelevant method
- int cnt = (int)ip->TokenLong;
- //Balance the stack
- for (int i = 0; i < cnt; i++)
- {
- Free(esp - 1);
- esp--;
- }
- }
- else
- {
- if (m is ILMethod)
- {
- ILMethod ilm = (ILMethod)m;
- bool processed = false;
- if (m.IsDelegateInvoke)
- {
- var instance = StackObject.ToObject((Minus(esp, m.ParameterCount + 1)), domain, mStack);
- if (instance is IDelegateAdapter)
- {
- esp = ((IDelegateAdapter)instance).ILInvoke(this, esp, mStack);
- processed = true;
- }
- }
- if (!processed)
- {
- if (code == OpCodeEnum.Callvirt)
- {
- objRef = GetObjectAndResolveReference(Minus(esp, ilm.ParameterCount + 1));
- if (objRef->ObjectType == ObjectTypes.Null)
- throw new NullReferenceException();
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = ILIntepreter.ResolveReference(objRef);
- var ft = domain.GetTypeByIndex(dst->Value) as ILType;
- ilm = ft.GetVirtualMethod(ilm) as ILMethod;
- }
- else
- {
- obj = mStack[objRef->Value];
- if (obj == null)
- throw new NullReferenceException();
- ilm = ((ILTypeInstance)obj).Type.GetVirtualMethod(ilm) as ILMethod;
- }
- }
- if (ilm.ShouldUseRegisterVM)
- {
- PrepareRegisterCallStack(esp, mStack, ilm);
- esp = ExecuteR(ilm, esp, out unhandledException);
- }
- else
- esp = Execute(ilm, esp, out unhandledException);
- ValueTypeBasePointer = bp;
- if (unhandledException)
- returned = true;
- }
- }
- else
- {
- CLRMethod cm = (CLRMethod)m;
- bool processed = false;
- if (cm.IsDelegateInvoke)
- {
- var instance = StackObject.ToObject((Minus(esp, cm.ParameterCount + 1)), domain, mStack);
- if (instance is IDelegateAdapter)
- {
- esp = ((IDelegateAdapter)instance).ILInvoke(this, esp, mStack);
- processed = true;
- }
- }
- if (!processed)
- {
- var redirect = cm.Redirection;
- if (redirect != null)
- esp = redirect(this, esp, mStack, cm, false);
- else
- {
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- if (!allowUnboundCLRMethod)
- throw new NotSupportedException(cm.ToString() + " is not bound!");
- #endif
- #if DEBUG && !NO_PROFILER
- if (System.Threading.Thread.CurrentThread.ManagedThreadId == AppDomain.UnityMainThreadID)
- #if UNITY_5_5_OR_NEWER
- UnityEngine.Profiling.Profiler.BeginSample(cm.ToString());
- #else
- UnityEngine.Profiler.BeginSample(cm.ToString());
- #endif
- #endif
- object result = cm.Invoke(this, esp, mStack);
- #if DEBUG && !NO_PROFILER
- if (System.Threading.Thread.CurrentThread.ManagedThreadId == AppDomain.UnityMainThreadID)
- #if UNITY_5_5_OR_NEWER
- UnityEngine.Profiling.Profiler.EndSample();
- #else
- UnityEngine.Profiler.EndSample();
- #endif
- #endif
- if (result is CrossBindingAdaptorType)
- result = ((CrossBindingAdaptorType)result).ILInstance;
- int paramCount = cm.ParameterCount;
- for (int i = 1; i <= paramCount; i++)
- {
- Free(Minus(esp, i));
- }
- esp = Minus(esp, paramCount);
- if (cm.HasThis)
- {
- Free(esp - 1);
- esp--;
- }
- if (cm.ReturnType != AppDomain.VoidType && !cm.IsConstructor)
- {
- esp = PushObject(esp, mStack, result, cm.ReturnType.TypeForCLR == typeof(object));
- }
- }
- }
- }
- }
- }
- break;
- #endregion
- #region FieldOperation
- case OpCodeEnum.Stfld:
- {
- objRef = GetObjectAndResolveReference(esp - 1 - 1);
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = ILIntepreter.ResolveReference(objRef);
- var ft = domain.GetTypeByIndex(dst->Value);
- if (ft is ILType)
- CopyToValueTypeField(dst, (int)ip->TokenLong, esp - 1, mStack);
- else
- CopyToValueTypeField(dst, ((CLRType)ft).FieldIndexMapping[(int)ip->TokenLong], esp - 1, mStack);
- }
- else
- {
- obj = RetriveObject(objRef, mStack);
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- val = esp - 1;
- instance.AssignFromStack((int)ip->TokenLong, val, AppDomain, mStack);
- }
- else
- {
- var t = obj.GetType();
- type = AppDomain.GetType((int)(ip->TokenLong >> 32));
- if (type != null)
- {
- val = esp - 1;
- var fieldToken = (int)ip->TokenLong;
- var f = ((CLRType)type).GetField(fieldToken);
- if (!((CLRType)type).AssignFieldFromStack(fieldToken, ref obj, this, val, mStack))
- ((CLRType)type).SetFieldValue(fieldToken, ref obj, f.FieldType.CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- //Writeback
- if (t.IsValueType)
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- mStack[objRef->Value] = obj;
- break;
- case ObjectTypes.FieldReference:
- {
- var oldObj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- if (oldObj is ILTypeInstance)
- {
- ((ILTypeInstance)oldObj)[idx] = obj;
- }
- else
- {
- var it = AppDomain.GetType(oldObj.GetType());
- ((CLRType)it).SetFieldValue(idx, ref oldObj, obj);
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- arr.SetValue(obj, idx);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var it = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- if (it is ILType)
- {
- ((ILType)it).StaticInstance[idx] = obj;
- }
- else
- {
- ((CLRType)it).SetStaticFieldValue(idx, obj);
- }
- }
- break;
- case ObjectTypes.ValueTypeObjectReference:
- {
- dst = ILIntepreter.ResolveReference(objRef);
- var ct = domain.GetTypeByIndex(dst->Value) as CLRType;
- var binder = ct.ValueTypeBinder;
- binder.CopyValueTypeToStack(obj, dst, mStack);
- }
- break;
- default:
- throw new NotImplementedException();
- }
- }
- }
- else
- throw new TypeLoadException();
- }
- }
- else
- throw new NullReferenceException();
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldfld:
- {
- var ret = esp - 1;
- objRef = GetObjectAndResolveReference(ret);
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = ILIntepreter.ResolveReference(objRef);
- var ft = domain.GetTypeByIndex(dst->Value);
- if (ft is ILType)
- val = Minus(dst, (int)ip->TokenLong + 1);
- else
- val = Minus(dst, ((CLRType)ft).FieldIndexMapping[(int)ip->TokenLong] + 1);
- if (val->ObjectType == ObjectTypes.ValueTypeObjectReference && ret->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- stack.RelocateValueTypeAndFreeAfterDst(val, ret);
- }
- else
- {
- StackObject valRef;
- if (val->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- Free(ret);
- CopyToStack(ret, val, mStack);
- }
- else
- {
- valRef = *val;
- if (val->ObjectType >= ObjectTypes.Object)
- obj = mStack[val->Value];
- //CopyToStack(ret, dst, mStack);
- Free(ret);
- if (valRef.ObjectType >= ObjectTypes.Object)
- {
- valRef.Value = mStack.Count;
- mStack.Add(obj);
- }
- *ret = valRef;
- }
- }
- }
- else
- {
- obj = RetriveObject(objRef, mStack);
- Free(ret);
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- instance.PushToStack((int)ip->TokenLong, ret, this, mStack);
- }
- else
- {
- //var t = obj.GetType();
- type = AppDomain.GetType((int)(ip->TokenLong >> 32));
- if (type != null)
- {
- var token = (int)ip->TokenLong;
- if (!((CLRType)type).CopyFieldToStack(token, obj, this, ref ret, mStack))
- {
- var ft = ((CLRType)type).GetField(token);
- obj = ((CLRType)type).GetFieldValue(token, obj);
- if (obj is CrossBindingAdaptorType)
- obj = ((CrossBindingAdaptorType)obj).ILInstance;
- PushObject(ret, mStack, obj, ft.FieldType == typeof(object));
- }
- }
- else
- throw new TypeLoadException();
- }
- }
- else
- throw new NullReferenceException();
- }
- }
- break;
- case OpCodeEnum.Ldflda:
- {
- objRef = GetObjectAndResolveReference(esp - 1);
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = esp - 1;
- var ft = domain.GetType((int)(ip->TokenLong >> 32));
- StackObject* fieldAddr;
- if (ft is ILType)
- {
- fieldAddr = Minus(ILIntepreter.ResolveReference(objRef), (int)ip->TokenLong + 1);
- }
- else
- {
- fieldAddr = Minus(ILIntepreter.ResolveReference(objRef), ((CLRType)ft).FieldIndexMapping[(int)ip->TokenLong] + 1);
- }
- StackObject valRef = *dst;
- dst->ObjectType = ObjectTypes.StackObjectReference;
- *(long*)&dst->Value = (long)fieldAddr;
- FreeStackValueType(&valRef);
- }
- else
- {
- obj = RetriveObject(objRef, mStack);
- Free(esp - 1);
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- instance.PushFieldAddress((int)ip->TokenLong, esp - 1, mStack);
- }
- else
- {
- objRef = esp - 1;
- objRef->ObjectType = ObjectTypes.FieldReference;
- objRef->Value = mStack.Count;
- mStack.Add(obj);
- objRef->ValueLow = (int)ip->TokenLong;
- }
- }
- else
- throw new NullReferenceException();
- }
- }
- break;
- case OpCodeEnum.Stsfld:
- {
- type = AppDomain.GetType((int)(ip->TokenLong >> 32));
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- val = esp - 1;
- t.StaticInstance.AssignFromStack((int)ip->TokenLong, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = type as CLRType;
- int idx = (int)ip->TokenLong;
- var f = t.GetField(idx);
- val = esp - 1;
- obj = null;
- if (!((CLRType)t).AssignFieldFromStack(idx, ref obj, this, val, mStack))
- t.SetStaticFieldValue(idx, f.FieldType.CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, domain, mStack), domain)));
- }
- }
- else
- throw new TypeLoadException();
- Free(esp - 1);
- esp -= 1;
- }
- break;
- case OpCodeEnum.Ldsfld:
- {
- type = AppDomain.GetType((int)(ip->TokenLong >> 32));
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.PushToStack((int)ip->TokenLong, esp, this, mStack);
- esp++;
- }
- else
- {
- CLRType t = type as CLRType;
- int idx = (int)ip->TokenLong;
- if (!((CLRType)type).CopyFieldToStack(idx, null, this, ref esp, mStack))
- {
- var f = t.GetField(idx);
- obj = t.GetFieldValue(idx, null);
- if (obj is CrossBindingAdaptorType)
- obj = ((CrossBindingAdaptorType)obj).ILInstance;
- esp = PushObject(esp, mStack, obj, f.FieldType == typeof(object));
- }
- }
- }
- else
- throw new TypeLoadException();
- }
- break;
- case OpCodeEnum.Ldsflda:
- {
- int typeId = (int)(ip->TokenLong >> 32);
- int fieldIdx = (int)(ip->TokenLong);
- esp->ObjectType = ObjectTypes.StaticFieldReference;
- esp->Value = typeId;
- esp->ValueLow = fieldIdx;
- esp++;
- }
- break;
- case OpCodeEnum.Ldtoken:
- {
- switch (ip->TokenInteger)
- {
- case 0:
- {
- type = AppDomain.GetType((int)(ip->TokenLong >> 32));
- if (type != null)
- {
- if (type is ILType)
- {
- ILType t = type as ILType;
- t.StaticInstance.PushToStack((int)ip->TokenLong, esp, this, mStack);
- }
- else
- throw new NotImplementedException();
- }
- }
- esp++;
- break;
- case 1:
- {
- type = AppDomain.GetType((int)ip->TokenLong);
- if (type != null)
- {
- esp = PushObject(esp, mStack, type.ReflectionType);
- }
- else
- throw new TypeLoadException();
- }
- break;
- default:
- throw new NotImplementedException();
- }
- }
- break;
- case OpCodeEnum.Ldftn:
- {
- IMethod m = domain.GetMethod(ip->TokenInteger);
- esp = PushObject(esp, mStack, m);
- }
- break;
- case OpCodeEnum.Ldvirtftn:
- {
- IMethod m = domain.GetMethod(ip->TokenInteger);
- objRef = esp - 1;
- if (m is ILMethod)
- {
- ILMethod ilm = (ILMethod)m;
- obj = mStack[objRef->Value];
- m = ((ILTypeInstance)obj).Type.GetVirtualMethod(ilm) as ILMethod;
- }
- else
- {
- obj = mStack[objRef->Value];
- if (obj is ILTypeInstance)
- m = ((ILTypeInstance)obj).Type.GetVirtualMethod(m);
- else if (obj is CrossBindingAdaptorType)
- {
- m = ((CrossBindingAdaptorType)obj).ILInstance.Type.BaseType.GetVirtualMethod(m);
- }
- }
- Free(objRef);
- esp = PushObject(objRef, mStack, m);
- }
- break;
- #endregion
- #region Compare
- case OpCodeEnum.Ceq:
- {
- StackObject* obj1 = esp - 1 - 1;
- StackObject* obj2 = esp - 1;
- bool res = false;
- if (obj1->ObjectType == obj2->ObjectType)
- {
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Integer:
- case ObjectTypes.Float:
- res = obj1->Value == obj2->Value;
- break;
- case ObjectTypes.Object:
- res = mStack[obj1->Value] == mStack[obj2->Value];
- break;
- case ObjectTypes.FieldReference:
- res = mStack[obj1->Value] == mStack[obj2->Value] && obj1->ValueLow == obj2->ValueLow;
- break;
- case ObjectTypes.Null:
- res = true;
- break;
- default:
- res = obj1->Value == obj2->Value && obj1->ValueLow == obj2->ValueLow;
- break;
- }
- }
- else
- {
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Object:
- res = mStack[obj1->Value] == null && obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Null:
- res = obj2->ObjectType == ObjectTypes.Object && mStack[obj2->Value] == null;
- break;
- }
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- if (res)
- esp = PushOne(esp - 1 - 1);
- else
- esp = PushZero(esp - 1 - 1);
- }
- break;
- case OpCodeEnum.Clt:
- {
- StackObject* obj1 = esp - 1 - 1;
- StackObject* obj2 = esp - 1;
- bool res = false;
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Integer:
- res = obj1->Value < obj2->Value;
- break;
- case ObjectTypes.Long:
- res = *(long*)&obj1->Value < *(long*)&obj2->Value;
- break;
- case ObjectTypes.Float:
- res = *(float*)&obj1->Value < *(float*)&obj2->Value;
- break;
- case ObjectTypes.Double:
- res = *(double*)&obj1->Value < *(double*)&obj2->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- if (res)
- esp = PushOne(esp - 1 - 1);
- else
- esp = PushZero(esp - 1 - 1);
- }
- break;
- case OpCodeEnum.Clt_Un:
- {
- StackObject* obj1 = esp - 1 - 1;
- StackObject* obj2 = esp - 1;
- bool res = false;
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Integer:
- res = (uint)obj1->Value < (uint)obj2->Value && obj2->ObjectType != ObjectTypes.Null;
- break;
- case ObjectTypes.Long:
- res = (ulong)*(long*)&obj1->Value < (ulong)*(long*)&obj2->Value && obj2->ObjectType != ObjectTypes.Null;
- break;
- case ObjectTypes.Float:
- res = *(float*)&obj1->Value < *(float*)&obj2->Value && obj2->ObjectType != ObjectTypes.Null;
- break;
- case ObjectTypes.Double:
- res = *(double*)&obj1->Value < *(double*)&obj2->Value && obj2->ObjectType != ObjectTypes.Null;
- break;
- default:
- throw new NotImplementedException();
- }
- if (res)
- esp = PushOne(esp - 1 - 1);
- else
- esp = PushZero(esp - 1 - 1);
- }
- break;
- case OpCodeEnum.Cgt:
- {
- StackObject* obj1 = esp - 1 - 1;
- StackObject* obj2 = esp - 1;
- bool res = false;
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Integer:
- res = obj1->Value > obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Long:
- res = *(long*)&obj1->Value > *(long*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Float:
- res = *(float*)&obj1->Value > *(float*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Double:
- res = *(double*)&obj1->Value > *(double*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- default:
- throw new NotImplementedException();
- }
- if (res)
- esp = PushOne(esp - 1 - 1);
- else
- esp = PushZero(esp - 1 - 1);
- }
- break;
- case OpCodeEnum.Cgt_Un:
- {
- StackObject* obj1 = esp - 1 - 1;
- StackObject* obj2 = esp - 1;
- bool res = false;
- switch (obj1->ObjectType)
- {
- case ObjectTypes.Integer:
- res = ((uint)obj1->Value > (uint)obj2->Value) || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Long:
- res = (ulong)*(long*)&obj1->Value > (ulong)*(long*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Float:
- res = *(float*)&obj1->Value > *(float*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Double:
- res = *(double*)&obj1->Value > *(double*)&obj2->Value || obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Object:
- res = mStack[obj1->Value] != null && obj2->ObjectType == ObjectTypes.Null;
- break;
- case ObjectTypes.Null:
- res = false;
- break;
- default:
- throw new NotImplementedException();
- }
- if (res)
- esp = PushOne(esp - 1 - 1);
- else
- esp = PushZero(esp - 1 - 1);
- }
- break;
- #endregion
- #region Initialization & Instantiation
- case OpCodeEnum.Newobj:
- {
- IMethod m = domain.GetMethod(ip->TokenInteger);
- if (m is ILMethod)
- {
- type = m.DeclearingType as ILType;
- if (type.IsDelegate)
- {
- objRef = GetObjectAndResolveReference(esp - 1 - 1);
- var mi = (IMethod)mStack[(esp - 1)->Value];
- object ins;
- if (objRef->ObjectType == ObjectTypes.Null)
- ins = null;
- else
- ins = mStack[objRef->Value];
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- object dele;
- var ilMethod = mi as ILMethod;
- if (ilMethod != null)
- {
- if (ins != null)
- {
- dele = ((ILTypeInstance) ins).GetDelegateAdapter(ilMethod);
- if (dele == null)
- {
- var invokeMethod = type.GetMethod("Invoke", mi.ParameterCount);
- dele = domain.DelegateManager.FindDelegateAdapter(
- (ILTypeInstance) ins, ilMethod, invokeMethod);
- }
- }
- else
- {
- if (ilMethod.DelegateAdapter == null)
- {
- var invokeMethod = type.GetMethod("Invoke", mi.ParameterCount);
- ilMethod.DelegateAdapter = domain.DelegateManager.FindDelegateAdapter(null, ilMethod, invokeMethod);
- }
- dele = ilMethod.DelegateAdapter;
- }
- }
- else
- {
- throw new NotImplementedException();
- }
- esp = PushObject(esp, mStack, dele);
- }
- else
- {
- a = esp - m.ParameterCount;
- obj = null;
- bool isValueType = type.IsValueType;
- if (isValueType)
- {
- stack.AllocValueType(esp, type);
- objRef = esp + 1;
- objRef->ObjectType = ObjectTypes.StackObjectReference;
- *(long*)&objRef->Value = (long)esp;
- objRef++;
- }
- else
- {
- obj = ((ILType)type).Instantiate(false);
- objRef = PushObject(esp, mStack, obj);//this parameter for constructor
- }
- esp = objRef;
- for (int i = 0; i < m.ParameterCount; i++)
- {
- CopyToStack(esp, a + i, mStack);
- esp++;
- }
- if (((ILMethod)m).ShouldUseRegisterVM)
- {
- PrepareRegisterCallStack(esp, mStack, (ILMethod)m);
- esp = ExecuteR((ILMethod)m, esp, out unhandledException);
- }
- else
- esp = Execute((ILMethod)m, esp, out unhandledException);
- ValueTypeBasePointer = bp;
- for (int i = m.ParameterCount - 1; i >= 0; i--)
- {
- Free(Add(a, i));
- }
- if (isValueType)
- {
- var ins = objRef - 1 - 1;
- *a = *ins;
- esp = a + 1;
- }
- else
- esp = PushObject(a, mStack, obj);//new constructedObj
- }
- if (unhandledException)
- returned = true;
- }
- else
- {
- CLRMethod cm = (CLRMethod)m;
- //Means new object();
- if (cm == null)
- {
- esp = PushObject(esp, mStack, new object());
- }
- else
- {
- if (cm.DeclearingType.IsDelegate)
- {
- objRef = GetObjectAndResolveReference(esp - 1 - 1);
- var mi = (IMethod)mStack[(esp - 1)->Value];
- object ins;
- if (objRef->ObjectType == ObjectTypes.Null)
- ins = null;
- else
- ins = mStack[objRef->Value];
- Free(esp - 1);
- Free(esp - 1 - 1);
- esp = esp - 1 - 1;
- object dele;
- var ilMethod = mi as ILMethod;
- if (ilMethod != null)
- {
- if (ins != null)
- {
- dele = ((ILTypeInstance)ins).GetDelegateAdapter(ilMethod);
- if (dele == null)
- {
- var invokeMethod =
- cm.DeclearingType.GetMethod("Invoke",
- mi.ParameterCount);
- dele = domain.DelegateManager.FindDelegateAdapter(
- (ILTypeInstance) ins, ilMethod, invokeMethod);
- }
- }
- else
- {
- if (ilMethod.DelegateAdapter == null)
- {
- var invokeMethod = cm.DeclearingType.GetMethod("Invoke", mi.ParameterCount);
- ilMethod.DelegateAdapter = domain.DelegateManager.FindDelegateAdapter(null, ilMethod, invokeMethod);
- }
- dele = ilMethod.DelegateAdapter;
- }
- }
- else
- {
- if (ins is ILTypeInstance)
- ins = ((ILTypeInstance)ins).CLRInstance;
- dele = Delegate.CreateDelegate(cm.DeclearingType.TypeForCLR, ins, ((CLRMethod)mi).MethodInfo);
- }
- esp = PushObject(esp, mStack, dele);
- }
- else
- {
- var redirect = cm.Redirection;
- if (redirect != null)
- esp = redirect(this, esp, mStack, cm, true);
- else
- {
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- if (!allowUnboundCLRMethod)
- throw new NotSupportedException(cm.ToString() + " is not bound!");
- #endif
- object result = cm.Invoke(this, esp, mStack, true);
- int paramCount = cm.ParameterCount;
- for (int i = 1; i <= paramCount; i++)
- {
- Free(esp - i);
- }
- esp = Minus(esp, paramCount);
- esp = PushObject(esp, mStack, result);//new constructedObj
- }
- }
- }
- }
- }
- break;
- case OpCodeEnum.Constrained:
- {
- type = domain.GetType(ip->TokenInteger);
- var m = domain.GetMethod((int)ip->TokenLong);
- var pCnt = m.ParameterCount;
- objRef = Minus(esp, pCnt + 1);
- var insIdx = mStack.Count;
- if (objRef->ObjectType < ObjectTypes.Object)
- {
- bool moved = false;
- //move parameters
- for (int i = 0; i < pCnt; i++)
- {
- var pPtr = Minus(esp, i + 1);
- if (pPtr->ObjectType >= ObjectTypes.Object)
- {
- var oldVal = pPtr->Value;
- insIdx--;
- if (!moved)
- {
- pPtr->Value = mStack.Count;
- mStack.Add(mStack[oldVal]);
- mStack[oldVal] = null;
- moved = true;
- }
- else
- {
- mStack[oldVal + 1] = mStack[oldVal];
- mStack[oldVal] = null;
- pPtr->Value = oldVal + 1;
- }
- }
- }
- if (!moved)
- {
- mStack.Add(null);
- }
- }
- else
- insIdx = objRef->Value;
- objRef2 = GetObjectAndResolveReference(objRef);
- if (type != null)
- {
- if (type is ILType)
- {
- var t = (ILType)type;
- if (t.IsEnum)
- {
- ILEnumTypeInstance ins = new ILEnumTypeInstance(t);
- switch (objRef2->ObjectType)
- {
- case ObjectTypes.FieldReference:
- {
- var owner = mStack[objRef2->Value] as ILTypeInstance;
- int idx = objRef2->ValueLow;
- //Free(objRef);
- owner.PushToStack(idx, objRef, this, mStack);
- ins.AssignFromStack(0, objRef, AppDomain, mStack);
- ins.Boxed = true;
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var st = AppDomain.GetType(objRef2->Value) as ILType;
- int idx = objRef2->ValueLow;
- //Free(objRef);
- st.StaticInstance.PushToStack(idx, objRef, this, mStack);
- ins.AssignFromStack(0, objRef, AppDomain, mStack);
- ins.Boxed = true;
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var arr = mStack[objRef2->Value];
- var idx = objRef2->ValueLow;
- //Free(objRef);
- LoadFromArrayReference(arr, idx, objRef, t, mStack);
- ins.AssignFromStack(0, objRef, AppDomain, mStack);
- ins.Boxed = true;
- }
- break;
- default:
- ins.AssignFromStack(0, objRef2, AppDomain, mStack);
- ins.Boxed = true;
- break;
- }
- objRef->ObjectType = ObjectTypes.Object;
- objRef->Value = insIdx;
- mStack[insIdx] = ins;
- //esp = PushObject(esp - 1, mStack, ins);
- }
- else if(objRef2->ObjectType != ObjectTypes.ValueTypeObjectReference)
- {
- object res = RetriveObject(objRef2, mStack);
- //Free(objRef);
- objRef->ObjectType = ObjectTypes.Object;
- objRef->Value = insIdx;
- mStack[insIdx] = res;
- //esp = PushObject(objRef, mStack, res, true);
- }
- }
- else
- {
- var tt = type.TypeForCLR;
- if (tt.IsEnum)
- {
- mStack[insIdx] = Enum.ToObject(tt, StackObject.ToObject(objRef2, AppDomain, mStack));
- objRef->ObjectType = ObjectTypes.Object;
- objRef->Value = insIdx;
- //esp = PushObject(esp - 1, mStack, Enum.ToObject(tt, StackObject.ToObject(obj, AppDomain, mStack)), true);
- }
- else if (tt.IsPrimitive)
- {
- mStack[insIdx] = tt.CheckCLRTypes(StackObject.ToObject(objRef2, AppDomain, mStack));
- objRef->ObjectType = ObjectTypes.Object;
- objRef->Value = insIdx;
- //esp = PushObject(esp - 1, mStack, tt.CheckCLRTypes(StackObject.ToObject(obj, AppDomain, mStack)));
- }
- else if (objRef2->ObjectType != ObjectTypes.ValueTypeObjectReference)
- {
- object res = RetriveObject(objRef2, mStack);
- //Free(objRef);
- objRef->ObjectType = ObjectTypes.Object;
- objRef->Value = insIdx;
- mStack[insIdx] = res;
- //esp = PushObject(objRef, mStack, res, true);
- }
- }
- }
- else
- throw new NullReferenceException();
- }
- break;
- case OpCodeEnum.Box:
- {
- objRef = esp - 1;
- type = domain.GetType(ip->TokenInteger);
- if (type != null)
- {
- if (type is ILType)
- {
- if (((ILType)type).IsEnum)
- {
- ILEnumTypeInstance ins = new Intepreter.ILEnumTypeInstance((ILType)type);
- ins.AssignFromStack(0, objRef, AppDomain, mStack);
- ins.Boxed = true;
- esp = PushObject(objRef, mStack, ins, true);
- }
- else
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Null:
- break;
- case ObjectTypes.ValueTypeObjectReference:
- {
- ILTypeInstance ins = ((ILType)type).Instantiate(false);
- ins.AssignFromStack(objRef, domain, mStack);
- FreeStackValueType(objRef);
- esp = PushObject(objRef, mStack, ins, true);
- }
- break;
- default:
- {
- obj = mStack[objRef->Value];
- Free(objRef);
- if (type.IsArray)
- {
- esp = PushObject(objRef, mStack, obj, true);
- }
- else
- {
- ILTypeInstance ins = (ILTypeInstance)obj;
- if (ins != null)
- {
- if (ins.IsValueType)
- {
- ins.Boxed = true;
- }
- esp = PushObject(objRef, mStack, ins, true);
- }
- else
- {
- esp = PushNull(objRef);
- }
- }
- }
- break;
- }
- }
- }
- else
- {
- if (type.TypeForCLR.IsPrimitive)
- {
- var t = type.TypeForCLR;
- if (t == typeof(int))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, 0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(bool))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (objRef->Value == 1), true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, false, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(byte))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (byte)objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, 0L, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(short))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (short)objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, (short)0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(long))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- esp = PushObject(objRef, mStack, *(long*)&objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, 0L, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(float))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Float:
- esp = PushObject(objRef, mStack, *(float*)&objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, 0f, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(double))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Double:
- esp = PushObject(objRef, mStack, *(double*)&objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, 0.0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(char))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (char)objRef->Value, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(uint))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (uint)objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, (uint)0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(ushort))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (ushort)objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, (ushort)0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(ulong))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- esp = PushObject(objRef, mStack, *(ulong*)&objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, (ulong)0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else if (t == typeof(sbyte))
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- esp = PushObject(objRef, mStack, (sbyte)objRef->Value, true);
- break;
- case ObjectTypes.Null:
- esp = PushObject(objRef, mStack, (sbyte)0, true);
- break;
- case ObjectTypes.Object:
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else
- throw new NotImplementedException();
- }
- else if (type.TypeForCLR.IsEnum)
- {
- esp = PushObject(objRef, mStack, Enum.ToObject(type.TypeForCLR, StackObject.ToObject(objRef, AppDomain, mStack)), true);
- }
- else
- {
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- dst = ILIntepreter.ResolveReference(objRef);
- var vt = domain.GetTypeByIndex(dst->Value);
- if (vt != type)
- throw new InvalidCastException();
- object ins = ((CLRType)vt).ValueTypeBinder.ToObject(dst, mStack);
- FreeStackValueType(objRef);
- esp = PushObject(objRef, mStack, ins, true);
- }
- //nothing to do for CLR type boxing
- }
- }
- }
- else
- throw new NullReferenceException();
- }
- break;
- case OpCodeEnum.Unbox:
- case OpCodeEnum.Unbox_Any:
- {
- objRef = esp - 1;
- if (objRef->ObjectType == ObjectTypes.Object)
- {
- obj = mStack[objRef->Value];
- Free(objRef);
- if (obj != null)
- {
- var t = domain.GetType(ip->TokenInteger);
- if (t != null)
- {
- clrType = t.TypeForCLR;
- bool isEnumObj = obj is ILEnumTypeInstance;
- if ((t is CLRType) && clrType.IsPrimitive && !isEnumObj)
- {
- if (clrType == typeof(int))
- {
- int value = obj.ToInt32();
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value;
- }
- else if (clrType == typeof(bool))
- {
- bool value = (bool)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value ? 1 : 0;
- }
- else if (clrType == typeof(short))
- {
- short value = obj.ToInt16();
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value;
- }
- else if (clrType == typeof(long))
- {
- long value = obj.ToInt64();
- objRef->ObjectType = ObjectTypes.Long;
- *(long*)&objRef->Value = value;
- }
- else if (clrType == typeof(float))
- {
- float value = obj.ToFloat();
- objRef->ObjectType = ObjectTypes.Float;
- *(float*)&objRef->Value = value;
- }
- else if (clrType == typeof(byte))
- {
- byte value = (byte)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value;
- }
- else if (clrType == typeof(double))
- {
- double value = obj.ToDouble();
- objRef->ObjectType = ObjectTypes.Double;
- *(double*)&objRef->Value = value;
- }
- else if (clrType == typeof(char))
- {
- char value = (char)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- *(&objRef->Value) = value;
- }
- else if (clrType == typeof(uint))
- {
- uint value = (uint)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = (int)value;
- }
- else if (clrType == typeof(ushort))
- {
- ushort value = (ushort)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value;
- }
- else if (clrType == typeof(ulong))
- {
- ulong value = (ulong)obj;
- objRef->ObjectType = ObjectTypes.Long;
- *(ulong*)&objRef->Value = value;
- }
- else if (clrType == typeof(sbyte))
- {
- sbyte value = (sbyte)obj;
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = value;
- }
- else
- throw new NotImplementedException();
- }
- else if (t.IsValueType)
- {
- if (obj is ILTypeInstance)
- {
- var res = ((ILTypeInstance)obj);
- if (res is ILEnumTypeInstance)
- {
- res.PushToStack(0, objRef, this, mStack);
- }
- else
- {
- if (res.Boxed)
- {
- res = res.Clone();
- res.Boxed = false;
- }
- PushObject(objRef, mStack, res);
- }
- }
- else
- PushObject(objRef, mStack, obj);
- }
- else
- {
- PushObject(objRef, mStack, obj);
- }
- }
- else
- throw new TypeLoadException();
- }
- else
- throw new NullReferenceException();
- }
- else if (objRef->ObjectType < ObjectTypes.StackObjectReference)
- {
- //Nothing to do with primitive types
- }
- else
- throw new InvalidCastException();
- }
- break;
- case OpCodeEnum.Initobj:
- {
- objRef = GetObjectAndResolveReference(esp - 1);
- type = domain.GetType(ip->TokenInteger);
- if (type is ILType)
- {
- ILType it = (ILType)type;
- if (it.IsValueType)
- {
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Null:
- throw new NullReferenceException();
- case ObjectTypes.Integer:
- case ObjectTypes.Float:
- objRef->Value = 0;
- break;
- case ObjectTypes.Long:
- case ObjectTypes.Double:
- *(long*)&objRef->Value = 0;
- break;
- case ObjectTypes.ValueTypeObjectReference:
- stack.ClearValueTypeObject(type, ILIntepreter.ResolveReference(objRef));
- break;
- case ObjectTypes.Object:
- {
- obj = mStack[objRef->Value];
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- instance.Clear();
- }
- else
- throw new NotSupportedException();
- }
- else
- throw new NullReferenceException();
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- var arr = mStack[objRef->Value] as Array;
- var idx = objRef->ValueLow;
- obj = arr.GetValue(idx);
- if (obj == null)
- arr.SetValue(it.Instantiate(), idx);
- else
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- instance.Clear();
- }
- else
- throw new NotImplementedException();
- }
- }
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance instance = obj as ILTypeInstance;
- var tar = instance[objRef->ValueLow] as ILTypeInstance;
- if (tar != null)
- tar.Clear();
- else
- throw new NotSupportedException();
- }
- else
- throw new NotSupportedException();
- }
- else
- throw new NullReferenceException();
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- if (t is ILType)
- {
- var tar = ((ILType)t).StaticInstance[idx] as ILTypeInstance;
- if (tar != null)
- tar.Clear();
- else
- throw new NotSupportedException();
- }
- else
- throw new NotSupportedException();
- }
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else
- {
- PushNull(esp);
- switch (objRef->ObjectType)
- {
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value) as ILType;
- t.StaticInstance.AssignFromStack(objRef->ValueLow, esp, AppDomain, mStack);
- }
- break;
- case ObjectTypes.FieldReference:
- {
- var instance = mStack[objRef->Value] as ILTypeInstance;
- instance.AssignFromStack(objRef->ValueLow, esp, AppDomain, mStack);
- }
- break;
- default:
- {
- if (objRef->ObjectType >= ObjectTypes.Object)
- mStack[objRef->Value] = null;
- else
- PushNull(objRef);
- }
- break;
- }
- }
- }
- else
- {
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- stack.ClearValueTypeObject(type, ILIntepreter.ResolveReference(objRef));
- }
- else if (objRef->ObjectType == ObjectTypes.FieldReference)
- {
- var instance = mStack[objRef->Value] as ILTypeInstance;
- if (instance != null)
- {
- instance.InitializeField(objRef->ValueLow);
- }
- else
- throw new NotImplementedException();
- }
- else if (type.IsPrimitive)
- StackObject.Initialized(objRef, type);
- else
- {
- if (!type.IsValueType)
- {
- if (objRef->ObjectType >= ObjectTypes.Object)
- mStack[objRef->Value] = null;
- else
- PushNull(objRef);
- }
- }
- }
- Free(esp - 1);
- esp--;
- }
- break;
- case OpCodeEnum.Isinst:
- {
- objRef = esp - 1;
- var oriRef = objRef;
- type = domain.GetType(ip->TokenInteger);
- if (type != null)
- {
- objRef = GetObjectAndResolveReference(objRef);
- if (objRef->ObjectType <= ObjectTypes.Double)
- {
- var tclr = type.TypeForCLR;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- {
- if (tclr != typeof(int) && tclr != typeof(bool) && tclr != typeof(short) && tclr != typeof(byte) && tclr != typeof(ushort) && tclr != typeof(uint))
- {
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- }
- }
- break;
- case ObjectTypes.Long:
- {
- if (tclr != typeof(long) && tclr != typeof(ulong))
- {
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- }
- }
- break;
- case ObjectTypes.Float:
- {
- if (tclr != typeof(float))
- {
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- }
- }
- break;
- case ObjectTypes.Double:
- {
- if (tclr != typeof(double))
- {
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- }
- }
- break;
- case ObjectTypes.Null:
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- break;
- }
- }
- else
- {
- obj = RetriveObject(objRef, mStack);
- Free(oriRef);
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- if (((ILTypeInstance)obj).CanAssignTo(type))
- {
- esp = PushObject(oriRef, mStack, obj);
- }
- else
- {
- #if !DEBUG || DISABLE_ILRUNTIME_DEBUG
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- #endif
- }
- }
- else
- {
- if (type.TypeForCLR.IsAssignableFrom(obj.GetType()))
- {
- esp = PushObject(oriRef, mStack, obj, true);
- }
- else
- {
- #if !DEBUG || DISABLE_ILRUNTIME_DEBUG
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- #endif
- }
- }
- }
- else
- {
- #if !DEBUG || DISABLE_ILRUNTIME_DEBUG
- oriRef->ObjectType = ObjectTypes.Null;
- oriRef->Value = -1;
- oriRef->ValueLow = 0;
- #endif
- }
- }
- }
- else
- throw new NullReferenceException();
- }
- break;
- #endregion
- #region Array
- case OpCodeEnum.Newarr:
- {
- var cnt = (esp - 1);
- type = domain.GetType(ip->TokenInteger);
- object arr = null;
- if (type != null)
- {
- if (type.TypeForCLR != typeof(ILTypeInstance))
- {
- if (type is CLRType)
- {
- arr = ((CLRType)type).CreateArrayInstance(cnt->Value);
- }
- else
- {
- arr = Array.CreateInstance(type.TypeForCLR, cnt->Value);
- }
- //Register Type
- AppDomain.GetType(arr.GetType());
- }
- else
- {
- arr = new ILTypeInstance[cnt->Value];
- ILTypeInstance[] ilArr = (ILTypeInstance[])arr;
- if (type.IsValueType)
- {
- for (int i = 0; i < cnt->Value; i++)
- {
- ilArr[i] = ((ILType)type).Instantiate(true);
- }
- }
- }
- }
- cnt->ObjectType = ObjectTypes.Object;
- cnt->Value = mStack.Count;
- mStack.Add(arr);
- }
- break;
- case OpCodeEnum.Stelem_Ref:
- case OpCodeEnum.Stelem_Any:
- {
- val = GetObjectAndResolveReference(esp - 1);
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- Array arr = mStack[arrRef->Value] as Array;
- if (arr is object[])
- {
- switch (val->ObjectType)
- {
- case ObjectTypes.Null:
- arr.SetValue(null, idx->Value);
- break;
- case ObjectTypes.Object:
- ArraySetValue(arr, mStack[val->Value], idx->Value);
- break;
- case ObjectTypes.Integer:
- arr.SetValue(val->Value, idx->Value);
- break;
- case ObjectTypes.Long:
- arr.SetValue(*(long*)&val->Value, idx->Value);
- break;
- case ObjectTypes.Float:
- arr.SetValue(*(float*)&val->Value, idx->Value);
- break;
- case ObjectTypes.Double:
- arr.SetValue(*(double*)&val->Value, idx->Value);
- break;
- case ObjectTypes.ValueTypeObjectReference:
- ArraySetValue(arr, StackObject.ToObject(val, domain, mStack), idx->Value);
- FreeStackValueType(esp - 1);
- break;
- default:
- throw new NotImplementedException();
- }
- }
- else
- {
- switch (val->ObjectType)
- {
- case ObjectTypes.Object:
- ArraySetValue(arr, mStack[val->Value], idx->Value);
- break;
- case ObjectTypes.Integer:
- {
- StoreIntValueToArray(arr, val, idx);
- }
- break;
- case ObjectTypes.Long:
- {
- if (arr is long[])
- {
- ((long[])arr)[idx->Value] = *(long*)&val->Value;
- }
- else
- {
- ((ulong[])arr)[idx->Value] = *(ulong*)&val->Value;
- }
- }
- break;
- case ObjectTypes.Float:
- {
- ((float[])arr)[idx->Value] = *(float*)&val->Value;
- }
- break;
- case ObjectTypes.Double:
- {
- ((double[])arr)[idx->Value] = *(double*)&val->Value;
- }
- break;
- case ObjectTypes.ValueTypeObjectReference:
- ArraySetValue(arr, StackObject.ToObject(val, domain, mStack), idx->Value);
- FreeStackValueType(esp - 1);
- break;
- default:
- throw new NotImplementedException();
- }
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_Ref:
- case OpCodeEnum.Ldelem_Any:
- {
- var idx = esp - 1;
- arrRef = esp - 1 - 1;
- Array arr = mStack[arrRef->Value] as Array;
- obj = arr.GetValue(idx->Value);
- if (obj is CrossBindingAdaptorType)
- obj = ((CrossBindingAdaptorType)obj).ILInstance;
- Free(esp - 1);
- Free(esp - 1 - 1);
- if (obj is ILTypeInstance)
- {
- ILTypeInstance ins = (ILTypeInstance)obj;
- if (!(ins is DelegateAdapter) && ins.Type.IsValueType && !ins.Boxed)
- {
- AllocValueType(arrRef, ins.Type);
- dst = ILIntepreter.ResolveReference(arrRef);
- ins.CopyValueTypeToStack(dst, mStack);
- esp = idx;
- }
- else
- esp = PushObject(esp - 1 - 1, mStack, obj, true);
- }
- else
- esp = PushObject(esp - 1 - 1, mStack, obj, !arr.GetType().GetElementType().IsPrimitive);
- }
- break;
- case OpCodeEnum.Stelem_I1:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- byte[] arr = mStack[arrRef->Value] as byte[];
- if (arr != null)
- {
- arr[idx->Value] = (byte)val->Value;
- }
- else
- {
- bool[] arr2 = mStack[arrRef->Value] as bool[];
- if (arr2 != null)
- {
- arr2[idx->Value] = val->Value == 1;
- }
- else
- {
- sbyte[] arr3 = mStack[arrRef->Value] as sbyte[];
- arr3[idx->Value] = (sbyte)val->Value;
- }
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_I1:
- {
- var idx = esp - 1;
- arrRef = esp - 1 - 1;
- bool[] arr = mStack[arrRef->Value] as bool[];
- if (arr != null)
- intVal = arr[idx->Value] ? 1 : 0;
- else
- {
- sbyte[] arr2 = mStack[arrRef->Value] as sbyte[];
- intVal = arr2[idx->Value];
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = intVal;
- esp -= 1;
- }
- break;
- case OpCodeEnum.Ldelem_U1:
- {
- var idx = (esp - 1);
- arrRef = esp - 1 - 1;
- byte[] arr = mStack[arrRef->Value] as byte[];
- if (arr != null)
- intVal = arr[idx->Value];
- else
- {
- bool[] arr2 = mStack[arrRef->Value] as bool[];
- intVal = arr2[idx->Value] ? 1 : 0;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = intVal;
- esp -= 1;
- }
- break;
- case OpCodeEnum.Stelem_I2:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- short[] arr = mStack[arrRef->Value] as short[];
- if (arr != null)
- {
- arr[idx->Value] = (short)val->Value;
- }
- else
- {
- ushort[] arr2 = mStack[arrRef->Value] as ushort[];
- if (arr2 != null)
- {
- arr2[idx->Value] = (ushort)val->Value;
- }
- else
- {
- char[] arr3 = mStack[arrRef->Value] as char[];
- arr3[idx->Value] = (char)val->Value;
- }
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_I2:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- short[] arr = mStack[arrRef->Value] as short[];
- if (arr != null)
- {
- intVal = arr[idx];
- }
- else
- {
- char[] arr2 = mStack[arrRef->Value] as char[];
- intVal = arr2[idx];
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = intVal;
- esp -= 1;
- }
- break;
- case OpCodeEnum.Ldelem_U2:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- ushort[] arr = mStack[arrRef->Value] as ushort[];
- if (arr != null)
- {
- intVal = arr[idx];
- }
- else
- {
- char[] arr2 = mStack[arrRef->Value] as char[];
- intVal = arr2[idx];
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = intVal;
- esp -= 1;
- }
- break;
- case OpCodeEnum.Stelem_I4:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- int[] arr = mStack[arrRef->Value] as int[];
- if (arr != null)
- {
- arr[idx->Value] = val->Value;
- }
- else
- {
- uint[] arr2 = mStack[arrRef->Value] as uint[];
- arr2[idx->Value] = (uint)val->Value;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_I4:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- int[] arr = mStack[arrRef->Value] as int[];
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = arr[idx];
- esp -= 1;
- }
- break;
- case OpCodeEnum.Ldelem_U4:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- uint[] arr = mStack[arrRef->Value] as uint[];
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = (int)arr[idx];
- esp -= 1;
- }
- break;
- case OpCodeEnum.Stelem_I8:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- long[] arr = mStack[arrRef->Value] as long[];
- if (arr != null)
- {
- arr[idx->Value] = *(long*)&val->Value;
- }
- else
- {
- ulong[] arr2 = mStack[arrRef->Value] as ulong[];
- arr2[idx->Value] = *(ulong*)&val->Value;
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_I8:
- {
- var idx = esp - 1;
- arrRef = esp - 1 - 1;
- long[] arr = mStack[arrRef->Value] as long[];
- long longVal;
- if (arr != null)
- longVal = arr[idx->Value];
- else
- {
- ulong[] arr2 = mStack[arrRef->Value] as ulong[];
- longVal = (long)arr2[idx->Value];
- }
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Long;
- *(long*)&arrRef->Value = longVal;
- esp -= 1;
- }
- break;
- case OpCodeEnum.Stelem_R4:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- float[] arr = mStack[arrRef->Value] as float[];
- arr[idx->Value] = *(float*)&val->Value;
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_R4:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- float[] arr = mStack[arrRef->Value] as float[];
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Float;
- *(float*)&arrRef->Value = arr[idx];
- esp -= 1;
- }
- break;
- case OpCodeEnum.Stelem_R8:
- {
- val = esp - 1;
- var idx = esp - 1 - 1;
- arrRef = esp - 1 - 1 - 1;
- double[] arr = mStack[arrRef->Value] as double[];
- arr[idx->Value] = *(double*)&val->Value;
- Free(esp - 1);
- Free(esp - 1 - 1);
- Free(esp - 1 - 1 - 1);
- esp = esp - 1 - 1 - 1;
- }
- break;
- case OpCodeEnum.Ldelem_R8:
- {
- var idx = (esp - 1)->Value;
- arrRef = esp - 1 - 1;
- double[] arr = mStack[arrRef->Value] as double[];
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.Double;
- *(double*)&arrRef->Value = arr[idx];
- esp -= 1;
- }
- break;
- case OpCodeEnum.Ldlen:
- {
- arrRef = esp - 1;
- Array arr = mStack[arrRef->Value] as Array;
- Free(esp - 1);
- arrRef->ObjectType = ObjectTypes.Integer;
- arrRef->Value = arr.Length;
- }
- break;
- case OpCodeEnum.Ldelema:
- {
- arrRef = esp - 1 - 1;
- var idx = (esp - 1)->Value;
- Array arr = mStack[arrRef->Value] as Array;
- Free(esp - 1);
- Free(esp - 1 - 1);
- arrRef->ObjectType = ObjectTypes.ArrayReference;
- arrRef->Value = mStack.Count;
- mStack.Add(arr);
- arrRef->ValueLow = idx;
- esp--;
- }
- break;
- #endregion
- #region Conversion
- case OpCodeEnum.Conv_U1:
- case OpCodeEnum.Conv_Ovf_U1:
- case OpCodeEnum.Conv_Ovf_U1_Un:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- case ObjectTypes.Integer:
- intVal = (byte)objRef->Value;
- break;
- case ObjectTypes.Float:
- intVal = (byte)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- intVal = (byte)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = intVal;
- objRef->ValueLow = 0;
- }
- break;
- case OpCodeEnum.Conv_I1:
- case OpCodeEnum.Conv_Ovf_I1:
- case OpCodeEnum.Conv_Ovf_I1_Un:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- case ObjectTypes.Integer:
- intVal = (sbyte)objRef->Value;
- break;
- case ObjectTypes.Float:
- intVal = (sbyte)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- intVal = (sbyte)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = intVal;
- objRef->ValueLow = 0;
- }
- break;
- case OpCodeEnum.Conv_U2:
- case OpCodeEnum.Conv_Ovf_U2:
- case OpCodeEnum.Conv_Ovf_U2_Un:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- case ObjectTypes.Integer:
- intVal = (ushort)objRef->Value;
- break;
- case ObjectTypes.Float:
- intVal = (ushort)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- intVal = (ushort)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = intVal;
- objRef->ValueLow = 0;
- }
- break;
- case OpCodeEnum.Conv_I2:
- case OpCodeEnum.Conv_Ovf_I2:
- case OpCodeEnum.Conv_Ovf_I2_Un:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- case ObjectTypes.Integer:
- intVal = (short)(objRef->Value);
- break;
- case ObjectTypes.Float:
- intVal = (short)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- intVal = (short)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = intVal;
- objRef->ValueLow = 0;
- }
- break;
- case OpCodeEnum.Conv_U4:
- case OpCodeEnum.Conv_U:
- case OpCodeEnum.Conv_Ovf_U4:
- case OpCodeEnum.Conv_Ovf_U4_Un:
- {
- objRef = esp - 1;
- uint uintVal;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- uintVal = (uint)*(long*)&objRef->Value;
- break;
- case ObjectTypes.Integer:
- uintVal = (uint)objRef->Value;
- break;
- case ObjectTypes.Float:
- uintVal = (uint)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- uintVal = (uint)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = (int)uintVal;
- objRef->ValueLow = 0;
- }
- break;
- case OpCodeEnum.Conv_I4:
- case OpCodeEnum.Conv_I:
- case OpCodeEnum.Conv_Ovf_I:
- case OpCodeEnum.Conv_Ovf_I_Un:
- case OpCodeEnum.Conv_Ovf_I4:
- case OpCodeEnum.Conv_Ovf_I4_Un:
- {
- objRef = esp - 1;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- intVal = (int)*(long*)&objRef->Value;
- break;
- case ObjectTypes.Float:
- intVal = (int)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- intVal = (int)*(double*)&objRef->Value;
- break;
- case ObjectTypes.Integer:
- intVal = objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = intVal;
- }
- break;
- case OpCodeEnum.Conv_I8:
- case OpCodeEnum.Conv_Ovf_I8:
- case OpCodeEnum.Conv_Ovf_I8_Un:
- {
- objRef = esp - 1;
- long longVal;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- longVal = objRef->Value;
- break;
- case ObjectTypes.Long:
- ip++;
- continue;
- case ObjectTypes.Float:
- longVal = (long)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- longVal = (long)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Long;
- *(long*)(&objRef->Value) = longVal;
- }
- break;
- case OpCodeEnum.Conv_U8:
- case OpCodeEnum.Conv_Ovf_U8:
- case OpCodeEnum.Conv_Ovf_U8_Un:
- {
- objRef = esp - 1;
- ulong ulongVal;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Integer:
- ulongVal = (uint)objRef->Value;
- break;
- case ObjectTypes.Long:
- ip++;
- continue;
- case ObjectTypes.Float:
- ulongVal = (ulong)*(float*)&objRef->Value;
- break;
- case ObjectTypes.Double:
- ulongVal = (ulong)*(double*)&objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Long;
- *(ulong*)(&objRef->Value) = ulongVal;
- }
- break;
- case OpCodeEnum.Conv_R4:
- {
- objRef = esp - 1;
- float floatVal;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- floatVal = (float)*(long*)&objRef->Value;
- break;
- case ObjectTypes.Float:
- ip++;
- continue;
- case ObjectTypes.Double:
- floatVal = (float)*(double*)&objRef->Value;
- break;
- case ObjectTypes.Integer:
- floatVal = objRef->Value;
- break;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Float;
- *(float*)&objRef->Value = floatVal;
- }
- break;
- case OpCodeEnum.Conv_R8:
- {
- objRef = esp - 1;
- double doubleVal;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- doubleVal = (double)*(long*)&objRef->Value;
- break;
- case ObjectTypes.Float:
- doubleVal = *(float*)&objRef->Value;
- break;
- case ObjectTypes.Integer:
- doubleVal = objRef->Value;
- break;
- case ObjectTypes.Double:
- ip++;
- continue;
- default:
- throw new NotImplementedException();
- }
- objRef->ObjectType = ObjectTypes.Double;
- *(double*)&objRef->Value = doubleVal;
- }
- break;
- case OpCodeEnum.Conv_R_Un:
- {
- objRef = esp - 1;
- bool isDouble = false;
- float floatVal = 0;
- double val2 = 0;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Long:
- val2 = (double)*(ulong*)&objRef->Value;
- isDouble = true;
- break;
- case ObjectTypes.Float:
- ip++;
- continue;
- case ObjectTypes.Integer:
- floatVal = (uint)objRef->Value;
- break;
- case ObjectTypes.Double:
- ip++;
- continue;
- default:
- throw new NotImplementedException();
- }
- if (isDouble)
- {
- objRef->ObjectType = ObjectTypes.Double;
- *(double*)&objRef->Value = val2;
- }
- else
- {
- objRef->ObjectType = ObjectTypes.Float;
- *(float*)&objRef->Value = floatVal;
- }
- }
- break;
- #endregion
- #region Stack operation
- case OpCodeEnum.Pop:
- {
- Free(esp - 1);
- esp--;
- }
- break;
- case OpCodeEnum.Dup:
- {
- objRef = esp - 1;
- if (objRef->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- CloneStackValueType(objRef, esp, mStack);
- }
- else
- {
- *esp = *objRef;
- if (esp->ObjectType >= ObjectTypes.Object)
- {
- esp->Value = mStack.Count;
- mStack.Add(mStack[objRef->Value]);
- }
- }
- esp++;
- }
- break;
- #endregion
- case OpCodeEnum.Throw:
- {
- objRef = GetObjectAndResolveReference(esp - 1);
- var ex = mStack[objRef->Value] as Exception;
- Free(objRef);
- esp--;
- throw ex;
- }
- case OpCodeEnum.Rethrow:
- {
- throw lastCaughtEx;
- }
- case OpCodeEnum.Nop:
- case OpCodeEnum.Volatile:
- case OpCodeEnum.Castclass:
- case OpCodeEnum.Readonly:
- break;
- default:
- throw new NotSupportedException("Not supported opcode " + code);
- }
- ip++;
- }
- catch (Exception ex)
- {
- if (ehs != null)
- {
- int addr = (int)(ip - ptr);
- var eh = GetCorrespondingExceptionHandler(ehs, ex, addr, ExceptionHandlerType.Catch, true);
- if (eh == null)
- {
- eh = GetCorrespondingExceptionHandler(ehs, ex, addr, ExceptionHandlerType.Catch, false);
- }
- if (eh != null)
- {
- if (ex is ILRuntimeException)
- {
- ILRuntimeException ire = (ILRuntimeException)ex;
- var inner = ire.InnerException;
- inner.Data["ThisInfo"] = ire.ThisInfo;
- inner.Data["StackTrace"] = ire.StackTrace;
- inner.Data["LocalInfo"] = ire.LocalInfo;
- ex = inner;
- }
- else
- {
- var debugger = AppDomain.DebugService;
- if (method.HasThis)
- ex.Data["ThisInfo"] = debugger.GetThisInfo(this);
- else
- ex.Data["ThisInfo"] = "";
- ex.Data["StackTrace"] = debugger.GetStackTrace(this);
- ex.Data["LocalInfo"] = debugger.GetLocalVariableInfo(this);
- }
- //Clear call stack
- while (stack.Frames.Peek().BasePointer != frame.BasePointer)
- {
- var f = stack.Frames.Peek();
- esp = stack.PopFrame(ref f, esp);
- if (f.Method.ReturnType != AppDomain.VoidType)
- {
- Free(esp - 1);
- esp--;
- }
- }
- lastCaughtEx = ex;
- esp = PushObject(esp, mStack, ex);
- unhandledException = false;
- ip = ptr + eh.HandlerStart;
- continue;
- }
- }
- if (unhandledException)
- {
- throw ex;
- }
- unhandledException = true;
- returned = true;
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- if (!AppDomain.DebugService.Break(this, ex))
- #endif
- {
- var newEx = new ILRuntimeException(ex.Message, this, method, ex);
- throw newEx;
- }
- }
- }
- }
- #if DEBUG && !NO_PROFILER
- if (System.Threading.Thread.CurrentThread.ManagedThreadId == AppDomain.UnityMainThreadID)
- #if UNITY_5_5_OR_NEWER
- UnityEngine.Profiling.Profiler.EndSample();
- #else
- UnityEngine.Profiler.EndSample();
- #endif
- #endif
- //ClearStack
- return stack.PopFrame(ref frame, esp);
- }
- void PrepareRegisterCallStack(StackObject* esp, IList<object> mStack, ILMethod method)
- {
- var pCnt = method.HasThis ? method.ParameterCount + 1 : method.ParameterCount;
- StackObject* basePointer = esp - pCnt;
- int mBase = mStack.Count;
- int existing = 0;
- for (int i = 0; i < pCnt; i++)
- {
- StackObject* cur = basePointer + i;
- if (cur->ObjectType < ObjectTypes.Object)
- {
- mStack.Add(null);
- }
- else
- existing++;
- }
- if (existing > 0)
- {
- mBase = mBase - existing;
- for (int i = pCnt - 1; i >= 0; i--)
- {
- StackObject* cur = basePointer + i;
- if (cur->ObjectType >= ObjectTypes.Object)
- {
- mStack[mBase + i] = mStack[cur->Value];
- cur->Value = mBase + i;
- }
- else
- {
- if (cur->ObjectType == ObjectTypes.Null)
- {
- cur->ObjectType = ObjectTypes.Object;
- cur->Value = mBase + i;
- }
- mStack[mBase + i] = null;
- }
- }
- }
- }
- void DumpStack(StackObject* esp)
- {
- AppDomain.DebugService.DumpStack(esp, stack);
- }
- void CloneStackValueType(StackObject* src, StackObject* dst, IList<object> mStack)
- {
- StackObject* descriptor = ILIntepreter.ResolveReference(src);
- stack.AllocValueType(dst, AppDomain.GetTypeByIndex(descriptor->Value));
- StackObject* dstDescriptor = ILIntepreter.ResolveReference(dst);
- int cnt = descriptor->ValueLow;
- for (int i = 0; i < cnt; i++)
- {
- StackObject* val = Minus(descriptor, i + 1);
- CopyToValueTypeField(dstDescriptor, i, val, mStack);
- }
- }
- bool CanCastTo(StackObject* src, StackObject* dst)
- {
- var sType = AppDomain.GetTypeByIndex(src->Value);
- var dType = AppDomain.GetTypeByIndex(dst->Value);
- return sType.CanAssignTo(dType);
- }
- bool CanCopyStackValueType(StackObject* src, StackObject* dst)
- {
- if (src->ObjectType == ObjectTypes.ValueTypeObjectReference && dst->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- StackObject* descriptor = ILIntepreter.ResolveReference(src);
- StackObject* dstDescriptor = ILIntepreter.ResolveReference(dst);
- return CanCastTo(descriptor, dstDescriptor);
- }
- else
- return false;
- }
- #if DEBUG
- public void CopyStackValueType(StackObject* src, StackObject* dst, IList<object> mStack, bool noCheck = false)
- #else
- public void CopyStackValueType(StackObject* src, StackObject* dst, IList<object> mStack)
- #endif
- {
- StackObject* descriptor = ILIntepreter.ResolveReference(src);
- StackObject* dstDescriptor = ILIntepreter.ResolveReference(dst);
- #if DEBUG
- if (!CanCastTo(descriptor, dstDescriptor))
- throw new InvalidCastException();
- #endif
- int cnt = descriptor->ValueLow;
- for (int i = 0; i < cnt; i++)
- {
- StackObject* srcVal = Minus(descriptor, i + 1);
- StackObject* dstVal = Minus(dstDescriptor, i + 1);
- #if DEBUG
- if (!noCheck && srcVal->ObjectType != dstVal->ObjectType)
- throw new NotSupportedException();
- #endif
- switch (srcVal->ObjectType)
- {
- case ObjectTypes.Object:
- case ObjectTypes.ArrayReference:
- case ObjectTypes.FieldReference:
- mStack[dstVal->Value] = mStack[srcVal->Value];
- break;
- case ObjectTypes.ValueTypeObjectReference:
- CopyStackValueType(srcVal, dstVal, mStack);
- break;
- default:
- *dstVal = *srcVal;
- break;
- }
- }
- }
- void CopyValueTypeToStack(StackObject* dst, object ins, IList<object> mStack)
- {
- if (ins is ILTypeInstance)
- {
- ((ILTypeInstance)ins).CopyValueTypeToStack(dst, mStack);
- }
- else
- {
- if (ins is CrossBindingAdaptorType)
- {
- ((CrossBindingAdaptorType)ins).ILInstance.CopyValueTypeToStack(dst, mStack);
- }
- else
- {
- var vb = ((CLRType)domain.GetTypeByIndex(dst->Value)).ValueTypeBinder;
- vb.CopyValueTypeToStack(ins, dst, mStack);
- }
- }
- }
- void CopyToValueTypeField(StackObject* obj, int idx, StackObject* val, IList<object> mStack)
- {
- StackObject* dst = Minus(obj, idx + 1);
- switch (val->ObjectType)
- {
- case ObjectTypes.Null:
- {
- mStack[dst->Value] = null;
- }
- break;
- case ObjectTypes.Object:
- case ObjectTypes.FieldReference:
- case ObjectTypes.ArrayReference:
- {
- if (dst->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- var ins = mStack[val->Value];
- dst = ILIntepreter.ResolveReference(dst);
- CopyValueTypeToStack(dst, ins, mStack);
- }
- else
- {
- mStack[dst->Value] = CheckAndCloneValueType(mStack[val->Value], domain);
- }
- }
- break;
- case ObjectTypes.ValueTypeObjectReference:
- {
- if (dst->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- CopyStackValueType(val, dst, mStack);
- }
- else
- throw new NotImplementedException();
- }
- break;
- default:
- *dst = *val;
- break;
- }
- }
- void StLocSub(StackObject* esp, StackObject* v, int idx, IList<object> mStack)
- {
- switch (esp->ObjectType)
- {
- case ObjectTypes.Null:
- v->ObjectType = ObjectTypes.Object;
- v->Value = idx;
- mStack[idx] = null;
- break;
- case ObjectTypes.Object:
- case ObjectTypes.FieldReference:
- case ObjectTypes.ArrayReference:
- if (v->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- var obj = mStack[esp->Value];
- if (obj is ILTypeInstance)
- {
- var dst = ILIntepreter.ResolveReference(v);
- ((ILTypeInstance)obj).CopyValueTypeToStack(dst, mStack);
- }
- else
- {
- var dst = ILIntepreter.ResolveReference(v);
- var ct = domain.GetTypeByIndex(dst->Value) as CLRType;
- var binder = ct.ValueTypeBinder;
- binder.CopyValueTypeToStack(obj, dst, mStack);
- }
- }
- else
- {
- *v = *esp;
- mStack[idx] = CheckAndCloneValueType(mStack[v->Value], domain);
- v->Value = idx;
- }
- Free(esp);
- break;
- case ObjectTypes.ValueTypeObjectReference:
- if (v->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- CopyStackValueType(esp, v, mStack);
- }
- else
- throw new NotImplementedException();
- FreeStackValueType(esp);
- break;
- default:
- *v = *esp;
- mStack[idx] = null;
- break;
- }
- }
- public object RetriveObject(StackObject* esp, IList<object> mStack)
- {
- StackObject* objRef = GetObjectAndResolveReference(esp);
- if (objRef->ObjectType == ObjectTypes.Null)
- return null;
- object obj = null;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- obj = mStack[objRef->Value];
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- if (obj is ILTypeInstance)
- {
- obj = ((ILTypeInstance)obj)[idx];
- }
- else
- {
- var t = AppDomain.GetType(obj.GetType());
- obj = ((CLRType)t).GetFieldValue(idx, obj);
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- Array arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- obj = arr.GetValue(idx);
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- if (t is ILType)
- {
- obj = ((ILType)t).StaticInstance[idx];
- }
- else
- {
- obj = ((CLRType)t).GetFieldValue(idx, null);
- }
- }
- break;
- case ObjectTypes.ValueTypeObjectReference:
- obj = StackObject.ToObject(objRef, domain, mStack);
- break;
- default:
- throw new NotImplementedException();
- }
- return obj;
- }
- public int RetriveInt32(StackObject* esp, IList<object> mStack)
- {
- StackObject* objRef = GetObjectAndResolveReference(esp);
- if (objRef->ObjectType == ObjectTypes.Null)
- return 0;
- object obj = null;
- int res = 0;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- res = (int)mStack[objRef->Value];
- break;
- case ObjectTypes.Integer:
- res = objRef->Value;
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- if (obj is ILTypeInstance)
- {
- res = ((ILTypeInstance)obj).Fields[idx].Value;
- }
- else
- {
- var t = AppDomain.GetType(obj.GetType());
- StackObject so;
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, obj, this, ref sop, mStack))
- res = (int)((CLRType)t).GetFieldValue(idx, obj);
- else
- {
- res = so.Value;
- }
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- Array arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- if (arr is int[])
- res = ((int[])arr)[idx];
- else
- {
- res = (int)Convert.ToInt32(arr.GetValue(idx));
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- if (t is ILType)
- {
- res = ((ILType)t).StaticInstance.Fields[idx].Value;
- }
- else
- {
- StackObject so;
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref sop, mStack))
- res = (int)((CLRType)t).GetFieldValue(idx, null);
- else
- {
- res = so.Value;
- }
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- return res;
- }
- public long RetriveInt64(StackObject* esp, IList<object> mStack)
- {
- StackObject* objRef = GetObjectAndResolveReference(esp);
- if (objRef->ObjectType == ObjectTypes.Null)
- return 0;
- object obj = null;
- long res = 0;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- res = (long)mStack[objRef->Value];
- break;
- case ObjectTypes.Long:
- res = *(long*)&objRef->Value;
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- StackObject so;
- if (obj is ILTypeInstance)
- {
- so = ((ILTypeInstance)obj).Fields[idx];
- res = *(long*)&so.Value;
- }
- else
- {
- var t = AppDomain.GetType(obj.GetType());
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, obj, this, ref sop, mStack))
- res = (long)((CLRType)t).GetFieldValue(idx, obj);
- else
- {
- res = *(long*)&so.Value;
- }
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- Array arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- if (arr is long[])
- res = ((long[])arr)[idx];
- else
- {
- res = (long)arr.GetValue(idx);
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- StackObject so;
- if (t is ILType)
- {
- so = ((ILType)t).StaticInstance.Fields[idx];
- res = *(long*)&so.Value;
- }
- else
- {
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref sop, mStack))
- res = (long)((CLRType)t).GetFieldValue(idx, null);
- else
- {
- res = *(long*)&so.Value;
- }
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- return res;
- }
- public float RetriveFloat(StackObject* esp, IList<object> mStack)
- {
- StackObject* objRef = GetObjectAndResolveReference(esp);
- if (objRef->ObjectType == ObjectTypes.Null)
- return 0;
- object obj = null;
- float res = 0;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- res = (float)mStack[objRef->Value];
- break;
- case ObjectTypes.Float:
- res = *(float*)&objRef->Value;
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- StackObject so;
- if (obj is ILTypeInstance)
- {
- so = ((ILTypeInstance)obj).Fields[idx];
- res = *(float*)&so.Value;
- }
- else
- {
- var t = AppDomain.GetType(obj.GetType());
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, obj, this, ref sop, mStack))
- res = (float)((CLRType)t).GetFieldValue(idx, obj);
- else
- {
- res = *(float*)&so.Value;
- }
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- Array arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- if (arr is float[])
- res = ((float[])arr)[idx];
- else
- {
- res = (float)arr.GetValue(idx);
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- StackObject so;
- if (t is ILType)
- {
- so = ((ILType)t).StaticInstance.Fields[idx];
- res = *(float*)&so.Value;
- }
- else
- {
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref sop, mStack))
- res = (float)((CLRType)t).GetFieldValue(idx, null);
- else
- {
- res = *(float*)&so.Value;
- }
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- return res;
- }
- public double RetriveDouble(StackObject* esp, IList<object> mStack)
- {
- StackObject* objRef = GetObjectAndResolveReference(esp);
- if (objRef->ObjectType == ObjectTypes.Null)
- return 0;
- object obj = null;
- double res = 0;
- switch (objRef->ObjectType)
- {
- case ObjectTypes.Object:
- res = (double)mStack[objRef->Value];
- break;
- case ObjectTypes.Double:
- res = *(double*)&objRef->Value;
- break;
- case ObjectTypes.FieldReference:
- {
- obj = mStack[objRef->Value];
- int idx = objRef->ValueLow;
- StackObject so;
- if (obj is ILTypeInstance)
- {
- so = ((ILTypeInstance)obj).Fields[idx];
- res = *(double*)&so.Value;
- }
- else
- {
- var t = AppDomain.GetType(obj.GetType());
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, obj, this, ref sop, mStack))
- res = (double)((CLRType)t).GetFieldValue(idx, obj);
- else
- {
- res = *(double*)&so.Value;
- }
- }
- }
- break;
- case ObjectTypes.ArrayReference:
- {
- Array arr = mStack[objRef->Value] as Array;
- int idx = objRef->ValueLow;
- if (arr is double[])
- res = ((double[])arr)[idx];
- else
- {
- res = (double)arr.GetValue(idx);
- }
- }
- break;
- case ObjectTypes.StaticFieldReference:
- {
- var t = AppDomain.GetType(objRef->Value);
- int idx = objRef->ValueLow;
- StackObject so;
- if (t is ILType)
- {
- so = ((ILType)t).StaticInstance.Fields[idx];
- res = *(double*)&so.Value;
- }
- else
- {
- var sop = &so;
- if (!((CLRType)t).CopyFieldToStack(idx, null, this, ref sop, mStack))
- res = (double)((CLRType)t).GetFieldValue(idx, null);
- else
- {
- res = *(double*)&so.Value;
- }
- }
- }
- break;
- default:
- throw new NotImplementedException();
- }
- return res;
- }
- void ArraySetValue(Array arr, object obj, int idx)
- {
- if (obj == null)
- arr.SetValue(null, idx);
- else
- arr.SetValue(arr.GetType().GetElementType().CheckCLRTypes(obj), idx);
- }
- void StoreIntValueToArray(Array arr, StackObject* val, StackObject* idx)
- {
- {
- int[] tmp = arr as int[];
- if (tmp != null)
- {
- tmp[idx->Value] = val->Value;
- return;
- }
- }
- {
- short[] tmp = arr as short[];
- if (tmp != null)
- {
- tmp[idx->Value] = (short)val->Value;
- return;
- }
- }
- {
- byte[] tmp = arr as byte[];
- if (tmp != null)
- {
- tmp[idx->Value] = (byte)val->Value;
- return;
- }
- }
- {
- bool[] tmp = arr as bool[];
- if (tmp != null)
- {
- tmp[idx->Value] = val->Value == 1;
- return;
- }
- }
- {
- uint[] tmp = arr as uint[];
- if (tmp != null)
- {
- tmp[idx->Value] = (uint)val->Value;
- return;
- }
- }
- {
- ushort[] tmp = arr as ushort[];
- if (tmp != null)
- {
- tmp[idx->Value] = (ushort)val->Value;
- return;
- }
- }
- {
- char[] tmp = arr as char[];
- if (tmp != null)
- {
- tmp[idx->Value] = (char)val->Value;
- return;
- }
- }
- {
- sbyte[] tmp = arr as sbyte[];
- if (tmp != null)
- {
- tmp[idx->Value] = (sbyte)val->Value;
- return;
- }
- }
- throw new NotImplementedException();
- }
- ExceptionHandler GetCorrespondingExceptionHandler(ExceptionHandler[] eh, object obj, int addr, ExceptionHandlerType type, bool explicitMatch)
- {
- ExceptionHandler res = null;
- int distance = int.MaxValue;
- Exception ex = obj is ILRuntimeException ? ((ILRuntimeException)obj).InnerException : obj as Exception;
- foreach (var i in eh)
- {
- if (i.HandlerType == type)
- {
- if (addr >= i.TryStart && addr <= i.TryEnd)
- {
- if (CheckExceptionType(i.CatchType, ex, explicitMatch))
- {
- int d = addr - i.TryStart;
- if (d < distance)
- {
- distance = d;
- res = i;
- }
- }
- }
- }
- }
- return res;
- }
- void LoadFromFieldReference(object obj, int idx, StackObject* dst, IList<object> mStack)
- {
- if (obj is ILTypeInstance)
- {
- ((ILTypeInstance)obj).PushToStack(idx, dst, this, mStack);
- }
- else
- {
- CLRType t = AppDomain.GetType(obj.GetType()) as CLRType;
- if (!t.CopyFieldToStack(idx, obj, this, ref dst, mStack))
- ILIntepreter.PushObject(dst, mStack, t.GetFieldValue(idx, obj));
- }
- }
- void StoreValueToFieldReference(ref object obj, int idx, StackObject* val, IList<object> mStack)
- {
- if (obj is ILTypeInstance)
- {
- ((ILTypeInstance)obj).AssignFromStack(idx, val, AppDomain, mStack);
- }
- else
- {
- CLRType t = AppDomain.GetType(obj.GetType()) as CLRType;
- //It's impossible to garantee this field reference is a direct reference, it'll cause problem if it's not
- //if (!t.AssignFieldFromStack(idx, ref obj, this, val, mStack))
- {
- var v = obj.GetType().CheckCLRTypes(CheckAndCloneValueType(StackObject.ToObject(val, AppDomain, mStack), AppDomain));
- t.SetFieldValue(idx, ref obj, v, true);
- }
- }
- }
- void LoadFromArrayReference(object obj, int idx, StackObject* objRef, IType t, IList<object> mStack, int managedIdx = -1)
- {
- var nT = t.TypeForCLR;
- LoadFromArrayReference(obj, idx, objRef, nT, mStack, managedIdx);
- }
- void LoadFromArrayReference(object obj, int idx, StackObject* objRef, Type nT, IList<object> mStack, int managedIdx = -1)
- {
- if (nT.IsPrimitive)
- {
- if (nT == typeof(int))
- {
- int[] arr = obj as int[];
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(short))
- {
- short[] arr = obj as short[];
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(long))
- {
- long[] arr = obj as long[];
- objRef->ObjectType = ObjectTypes.Long;
- *(long*)&objRef->Value = arr[idx];
- }
- else if (nT == typeof(float))
- {
- float[] arr = obj as float[];
- objRef->ObjectType = ObjectTypes.Float;
- *(float*)&objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(double))
- {
- double[] arr = obj as double[];
- objRef->ObjectType = ObjectTypes.Double;
- *(double*)&objRef->Value = arr[idx];
- }
- else if (nT == typeof(byte))
- {
- byte[] arr = obj as byte[];
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(char))
- {
- char[] arr = obj as char[];
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(uint))
- {
- uint[] arr = obj as uint[];
- objRef->ObjectType = ObjectTypes.Integer;
- *(uint*)&objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(sbyte))
- {
- sbyte[] arr = obj as sbyte[];
- objRef->ObjectType = ObjectTypes.Integer;
- objRef->Value = arr[idx];
- objRef->ValueLow = 0;
- }
- else if (nT == typeof(ulong))
- {
- ulong[] arr = obj as ulong[];
- objRef->ObjectType = ObjectTypes.Long;
- *(ulong*)&objRef->Value = arr[idx];
- }
- else
- throw new NotImplementedException();
- }
- else
- {
- Array arr = obj as Array;
- objRef->ObjectType = ObjectTypes.Object;
- if (managedIdx >= 0)
- {
- objRef->Value = managedIdx;
- mStack[managedIdx] = arr.GetValue(idx);
- }
- else
- {
- objRef->Value = mStack.Count;
- mStack.Add(arr.GetValue(idx));
- }
- objRef->ValueLow = 0;
- }
- }
- void StoreValueToArrayReference(StackObject* objRef, StackObject* val, IType t, IList<object> mStack)
- {
- var nT = t.TypeForCLR;
- StoreValueToArrayReference(objRef, val, nT, mStack);
- }
- void StoreValueToArrayReference(StackObject* objRef, StackObject* val, Type nT, IList<object> mStack)
- {
- if (nT.IsPrimitive)
- {
- if (nT == typeof(int))
- {
- int[] arr = mStack[objRef->Value] as int[];
- arr[objRef->ValueLow] = val->Value;
- }
- else if (nT == typeof(short))
- {
- short[] arr = mStack[objRef->Value] as short[];
- arr[objRef->ValueLow] = (short)val->Value;
- }
- else if (nT == typeof(long))
- {
- long[] arr = mStack[objRef->Value] as long[];
- arr[objRef->ValueLow] = *(long*)&val->Value;
- }
- else if (nT == typeof(float))
- {
- float[] arr = mStack[objRef->Value] as float[];
- arr[objRef->ValueLow] = *(float*)&val->Value;
- }
- else if (nT == typeof(double))
- {
- double[] arr = mStack[objRef->Value] as double[];
- arr[objRef->ValueLow] = *(double*)&val->Value;
- }
- else if (nT == typeof(byte))
- {
- byte[] arr = mStack[objRef->Value] as byte[];
- arr[objRef->ValueLow] = (byte)val->Value;
- }
- else if (nT == typeof(char))
- {
- char[] arr = mStack[objRef->Value] as char[];
- arr[objRef->ValueLow] = (char)val->Value;
- }
- else if (nT == typeof(uint))
- {
- uint[] arr = mStack[objRef->Value] as uint[];
- arr[objRef->ValueLow] = (uint)val->Value;
- }
- else if (nT == typeof(sbyte))
- {
- sbyte[] arr = mStack[objRef->Value] as sbyte[];
- arr[objRef->ValueLow] = (sbyte)val->Value;
- }
- else
- throw new NotImplementedException();
- }
- else
- {
- Array arr = mStack[objRef->Value] as Array;
- arr.SetValue(mStack[val->Value], objRef->ValueLow);
- }
- }
- bool CheckExceptionType(IType catchType, object exception, bool explicitMatch)
- {
- if (catchType is CLRType)
- {
- if (explicitMatch)
- return exception.GetType() == catchType.TypeForCLR;
- else
- return catchType.TypeForCLR.IsAssignableFrom(exception.GetType());
- }
- else
- throw new NotImplementedException();
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* ResolveReference(StackObject* esp)
- {
- var addr = *(long*)&esp->Value;
- return (StackObject*)addr;
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* GetObjectAndResolveReference(StackObject* esp)
- {
- if (esp->ObjectType == ObjectTypes.StackObjectReference)
- {
- return ResolveReference(esp);
- }
- else
- return esp;
- }
- StackObject* PushParameters(IMethod method, StackObject* esp, object[] p, bool useRegister)
- {
- IList<object> mStack = stack.ManagedStack;
- var plist = method.Parameters;
- int pCnt = plist != null ? plist.Count : 0;
- int pCnt2 = p != null ? p.Length : 0;
- if (pCnt != pCnt2)
- throw new ArgumentOutOfRangeException("Parameter mismatch");
- if (pCnt2 > 0)
- {
- for (int i = 0; i < p.Length; i++)
- {
- bool isBox = false;
- if (plist != null && i < plist.Count)
- isBox = plist[i] == AppDomain.ObjectType;
- object obj = p[i];
- if (obj is CrossBindingAdaptorType)
- obj = ((CrossBindingAdaptorType)obj).ILInstance;
- var res = ILIntepreter.PushObject(esp, mStack, obj, isBox);
- if (esp->ObjectType < ObjectTypes.Object && useRegister)
- mStack.Add(null);
- esp = res;
- }
- }
- return esp;
- }
- public void CopyToStack(StackObject* dst, StackObject* src, IList<object> mStack)
- {
- if (src->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- var descriptor = ResolveReference(src);
- var t = domain.GetTypeByIndex(descriptor->Value);
- AllocValueType(dst, t);
- CopyStackValueType(src, dst, mStack);
- }
- else
- {
- *dst = *src;
- if (dst->ObjectType >= ObjectTypes.Object)
- {
- dst->Value = mStack.Count;
- var obj = mStack[src->Value];
- mStack.Add(obj);
- }
- }
- }
- internal static object CheckAndCloneValueType(object obj, Enviorment.AppDomain domain)
- {
- if (obj != null)
- {
- if (obj is ILTypeInstance)
- {
- ILTypeInstance ins = obj as ILTypeInstance;
- if (ins.IsValueType)
- {
- return ins.Clone();
- }
- }
- else
- {
- var type = obj.GetType();
- var typeFlags = type.GetTypeFlags();
- var isPrimitive = (typeFlags & CLR.Utils.Extensions.TypeFlags.IsPrimitive) != 0;
- var isValueType = (typeFlags & CLR.Utils.Extensions.TypeFlags.IsValueType) != 0;
- if (!isPrimitive && isValueType)
- {
- var t = domain.GetType(type);
- return ((CLRType)t).PerformMemberwiseClone(obj);
- }
- }
- }
- return obj;
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* PushOne(StackObject* esp)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = 1;
- return esp + 1;
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* PushZero(StackObject* esp)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = 0;
- return esp + 1;
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* PushNull(StackObject* esp)
- {
- esp->ObjectType = ObjectTypes.Null;
- esp->Value = -1;
- esp->ValueLow = 0;
- return esp + 1;
- }
- public static void UnboxObject(StackObject* esp, object obj, IList<object> mStack = null, Enviorment.AppDomain domain = null)
- {
- if (esp->ObjectType == ObjectTypes.ValueTypeObjectReference && domain != null)
- {
- var dst = ILIntepreter.ResolveReference(esp);
- var vt = domain.GetTypeByIndex(dst->Value);
- if (obj == null)//Nothing to do
- return;
- if (obj is ILTypeInstance)
- {
- var ins = (ILTypeInstance)obj;
- ins.CopyValueTypeToStack(dst, mStack);
- }
- else if (obj is CrossBindingAdaptorType)
- {
- var ins = ((CrossBindingAdaptorType)obj).ILInstance;
- ins.CopyValueTypeToStack(dst, mStack);
- }
- else
- {
- ((CLRType)vt).ValueTypeBinder.CopyValueTypeToStack(obj, dst, mStack);
- }
- }
- else if(obj == null)
- {
- return;
- }
- else if (obj is int)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (int)obj;
- }
- else if (obj is bool)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (bool)(obj) ? 1 : 0;
- }
- else if (obj is short)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (short)obj;
- }
- else if (obj is long)
- {
- esp->ObjectType = ObjectTypes.Long;
- *(long*)(&esp->Value) = (long)obj;
- }
- else if (obj is float)
- {
- esp->ObjectType = ObjectTypes.Float;
- *(float*)(&esp->Value) = (float)obj;
- }
- else if (obj is byte)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (byte)obj;
- }
- else if (obj is uint)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (int)(uint)obj;
- }
- else if (obj is ushort)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (int)(ushort)obj;
- }
- else if (obj is char)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (int)(char)obj;
- }
- else if (obj is double)
- {
- esp->ObjectType = ObjectTypes.Double;
- *(double*)(&esp->Value) = (double)obj;
- }
- else if (obj is ulong)
- {
- esp->ObjectType = ObjectTypes.Long;
- *(ulong*)(&esp->Value) = (ulong)obj;
- }
- else if (obj is sbyte)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = (sbyte)obj;
- }
- else if (obj is Enum)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = Convert.ToInt32(obj);
- }
- else
- throw new NotImplementedException();
- }
- public static StackObject* PushObject(StackObject* esp, IList<object> mStack, object obj, bool isBox = false)
- {
- if (obj != null)
- {
- if (!isBox)
- {
- var typeFlags = obj.GetType().GetTypeFlags();
- if ((typeFlags & CLR.Utils.Extensions.TypeFlags.IsPrimitive) != 0)
- {
- UnboxObject(esp, obj, mStack);
- }
- else if ((typeFlags & CLR.Utils.Extensions.TypeFlags.IsEnum) != 0)
- {
- esp->ObjectType = ObjectTypes.Integer;
- esp->Value = Convert.ToInt32(obj);
- }
- else
- {
- esp->ObjectType = ObjectTypes.Object;
- esp->Value = mStack.Count;
- mStack.Add(obj);
- }
- }
- else
- {
- esp->ObjectType = ObjectTypes.Object;
- esp->Value = mStack.Count;
- mStack.Add(obj);
- }
- }
- else
- {
- if (isBox)
- {
- esp->ObjectType = ObjectTypes.Object;
- esp->Value = mStack.Count;
- mStack.Add(obj);
- }
- else
- return PushNull(esp);
- }
- return esp + 1;
- }
- //Don't ask me why add this funky method for this, otherwise Unity won't calculate the right value
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* Add(StackObject* a, int b)
- {
- return (StackObject*)((long)a + sizeof(StackObject) * b);
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public static StackObject* Minus(StackObject* a, int b)
- {
- return (StackObject*)((long)a - sizeof(StackObject) * b);
- }
- #if NET_4_6 || NET_STANDARD_2_0
- [System.Runtime.CompilerServices.MethodImpl(System.Runtime.CompilerServices.MethodImplOptions.AggressiveInlining)]
- #endif
- public void Free(StackObject* esp)
- {
- switch (esp->ObjectType)
- {
- case ObjectTypes.Object:
- case ObjectTypes.FieldReference:
- case ObjectTypes.ArrayReference:
- var mStack = stack.ManagedStack;
- if (esp->Value == mStack.Count - 1)
- mStack.RemoveAt(esp->Value);
- break;
- case ObjectTypes.ValueTypeObjectReference:
- FreeStackValueType(esp);
- break;
- }
- #if DEBUG && !DISABLE_ILRUNTIME_DEBUG
- esp->ObjectType = ObjectTypes.Null;
- esp->Value = -1;
- esp->ValueLow = 0;
- #endif
- }
- public void FreeStackValueType(StackObject* esp)
- {
- if (esp->ObjectType == ObjectTypes.ValueTypeObjectReference)
- {
- var addr = ILIntepreter.ResolveReference(esp);
- if (addr <= ValueTypeBasePointer)//Only Stack allocation after base pointer should be freed, local variable are freed automatically
- stack.FreeValueTypeObject(esp);
- esp->ObjectType = ObjectTypes.Null;
- }
- }
- public void AllocValueType(StackObject* ptr, IType type)
- {
- stack.AllocValueType(ptr, type);
- }
- }
- }
|