BfIRCodeGen.cpp 194 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396
  1. #include "BfIRCodeGen.h"
  2. #include "BfModule.h"
  3. #include "BeefySysLib/util/BeefPerf.h"
  4. #include "BeefySysLib/util/Hash.h"
  5. #ifdef BF_PLATFORM_WINDOWS
  6. #include <io.h>
  7. #endif
  8. #pragma warning(push)
  9. #pragma warning(disable:4141)
  10. #pragma warning(disable:4146)
  11. #pragma warning(disable:4291)
  12. #pragma warning(disable:4244)
  13. #pragma warning(disable:4267)
  14. #pragma warning(disable:4624)
  15. #pragma warning(disable:4800)
  16. #pragma warning(disable:4996)
  17. #include "llvm/IR/Module.h"
  18. #include "llvm/IR/Constants.h"
  19. #include "llvm/IR/GlobalValue.h"
  20. #include "llvm/IR/GlobalVariable.h"
  21. #include "llvm/ADT/ArrayRef.h"
  22. #include "llvm/IR/InlineAsm.h"
  23. #include "llvm/IR/Attributes.h"
  24. #include "llvm/Support/FileSystem.h"
  25. #include "llvm/TargetParser/Host.h"
  26. //#include "llvm/Support/Dwarf.h"
  27. #include "llvm/IR/DIBuilder.h"
  28. //#include "llvm/ADT/Triple.h"
  29. //#include "llvm/CodeGen/CommandFlags.h"
  30. #include "llvm/CodeGen/LinkAllAsmWriterComponents.h"
  31. #include "llvm/CodeGen/LinkAllCodegenComponents.h"
  32. #include "llvm/IR/DataLayout.h"
  33. #include "llvm/IR/IRPrintingPasses.h"
  34. #include "llvm/IR/LLVMContext.h"
  35. #include "llvm/IR/Module.h"
  36. #include "llvm/IRReader/IRReader.h"
  37. //#include "llvm/MC/SubtargetFeature.h"
  38. #include "llvm/MC/MCObjectWriter.h"
  39. #include "llvm/Pass.h"
  40. //#include "llvm/Transforms/IPO/PassManagerBuilder.h"
  41. #include "llvm/Transforms/Utils.h"
  42. #include "llvm/Transforms/Scalar/InstSimplifyPass.h"
  43. #include "llvm/IR/LegacyPassManager.h"
  44. #include "llvm/Support/CommandLine.h"
  45. #include "llvm/Support/Debug.h"
  46. #include "llvm/Support/FileSystem.h"
  47. #include "llvm/Support/FormattedStream.h"
  48. //#include "llvm/Support/Host.h"
  49. #include "llvm/Support/ManagedStatic.h"
  50. #include "llvm/Support/CodeGen.h"
  51. #include "llvm/Support/PluginLoader.h"
  52. #include "llvm/Support/PrettyStackTrace.h"
  53. #include "llvm/Support/Signals.h"
  54. #include "llvm/Support/SourceMgr.h"
  55. //#include "llvm/Support/TargetRegistry.h"
  56. #include "llvm/Support/TargetSelect.h"
  57. #include "llvm/Support/ToolOutputFile.h"
  58. //#include "llvm/Target/TargetLibraryInfo.h"
  59. #include "llvm/Target/TargetMachine.h"
  60. //#include "llvm/Target/TargetSubtargetInfo.h"
  61. //#include "llvm/Transforms/IPO/PassManagerBuilder.h"
  62. //#include "llvm-c/Transforms/PassManagerBuilder.h"
  63. #include "llvm/ADT/SmallVector.h"
  64. #include "llvm/Analysis/Passes.h"
  65. #include "llvm/IR/DataLayout.h"
  66. #include "llvm/IR/Verifier.h"
  67. #include "llvm/IR/LegacyPassManager.h"
  68. #include "llvm/IR/PassManager.h"
  69. #include "llvm/Support/CommandLine.h"
  70. #include "llvm/Support/ManagedStatic.h"
  71. #include "llvm/Analysis/BasicAliasAnalysis.h"
  72. //#include "llvm/Analysis/CFLAliasAnalysis.h"
  73. //#include "llvm/Analysis/CFLAndersAliasAnalysis.h"
  74. //#include "llvm/Analysis/CFLSteensAliasAnalysis.h"
  75. #include "llvm/Analysis/GlobalsModRef.h"
  76. #include "llvm/Analysis/ScopedNoAliasAA.h"
  77. #include "llvm/Analysis/TargetLibraryInfo.h"
  78. #include "llvm/Analysis/TypeBasedAliasAnalysis.h"
  79. #include "llvm/Target/TargetMachine.h"
  80. #include "llvm/Transforms/IPO.h"
  81. #include "llvm/Transforms/IPO/ForceFunctionAttrs.h"
  82. #include "llvm/Transforms/IPO/FunctionAttrs.h"
  83. #include "llvm/Transforms/IPO/InferFunctionAttrs.h"
  84. #include "llvm/Transforms/IPO/AlwaysInliner.h"
  85. #include "llvm/Transforms/Instrumentation.h"
  86. #include "llvm/Transforms/Scalar.h"
  87. #include "llvm/Transforms/Scalar/GVN.h"
  88. //#include "llvm/Transforms/Vectorize.h"
  89. #include "llvm/Transforms/AggressiveInstCombine/AggressiveInstCombine.h"
  90. #include "llvm/Transforms/InstCombine/InstCombine.h"
  91. #include "llvm/Transforms/Scalar/SimpleLoopUnswitch.h"
  92. #include "llvm/Passes/PassBuilder.h"
  93. //#include "llvm/Bitcode/ReaderWriter.h"
  94. #include "llvm/Analysis/Passes.h"
  95. #include "llvm/Transforms/IPO.h"
  96. #include "llvm/Transforms/Scalar.h"
  97. //#include "llvm/Transforms/Vectorize.h"
  98. #include "llvm/Pass.h"
  99. #include "llvm/CodeGen/MachineFunctionPass.h"
  100. #include "llvm/Support/raw_ostream.h"
  101. #include "llvm/MC/MCAsmBackend.h"
  102. #include "llvm/MC/MCCodeEmitter.h"
  103. #include "llvm/MC/TargetRegistry.h"
  104. #include "llvm/LTO/LTOBackend.h"
  105. #include "llvm/Bitcode/BitcodeWriter.h"
  106. #include "llvm/Bitcode/BitcodeReader.h"
  107. #include "llvm/Bitcode/BitcodeWriterPass.h"
  108. #include "llvm/Transforms/IPO/ThinLTOBitcodeWriter.h"
  109. #include "llvm/Transforms/IPO/AlwaysInliner.h"
  110. #include "llvm/Transforms/IPO.h"
  111. #include "../LLVMUtils.h"
  112. #pragma warning(pop)
  113. void pm(llvm::Module* module);
  114. USING_NS_BF;
  115. #pragma warning(disable:4146)
  116. #pragma warning(disable:4996)
  117. struct BuiltinEntry
  118. {
  119. const char* mName;
  120. bool operator<(const StringImpl& rhs) const
  121. {
  122. return strcmp(mName, rhs.c_str()) < 0;
  123. }
  124. };
  125. static const BuiltinEntry gIntrinEntries[] =
  126. {
  127. {":PLATFORM"},
  128. {"abs"},
  129. {"add"},
  130. {"and"},
  131. {"atomic_add"},
  132. {"atomic_and"},
  133. {"atomic_cmpstore"},
  134. {"atomic_cmpstore_weak"},
  135. {"atomic_cmpxchg"},
  136. {"atomic_fence"},
  137. {"atomic_load"},
  138. {"atomic_max"},
  139. {"atomic_min"},
  140. {"atomic_nand"},
  141. {"atomic_or"},
  142. {"atomic_store"},
  143. {"atomic_sub"},
  144. {"atomic_umax"},
  145. {"atomic_umin"},
  146. {"atomic_xchg"},
  147. {"atomic_xor"},
  148. {"bswap"},
  149. {"cast"},
  150. {"cos"},
  151. {"cpuid"},
  152. {"debugtrap"},
  153. {"div"},
  154. {"eq"},
  155. {"floor"},
  156. {"free"},
  157. {"gt"},
  158. {"gte"},
  159. ("index"),
  160. {"log"},
  161. {"log10"},
  162. {"log2"},
  163. {"lt"},
  164. {"lte"},
  165. {"malloc"},
  166. {"max"},
  167. {"memcpy"},
  168. {"memmove"},
  169. {"memset"},
  170. {"min"},
  171. {"mod"},
  172. {"mul"},
  173. {"neq"},
  174. {"not"},
  175. {"or"},
  176. {"pow"},
  177. {"powi"},
  178. {"returnaddress"},
  179. {"round"},
  180. {"sar"},
  181. {"shl"},
  182. {"shr"},
  183. {"shuffle"},
  184. {"sin"},
  185. {"sqrt"},
  186. {"sub"},
  187. {"va_arg"},
  188. {"va_end"},
  189. {"va_start"},
  190. {"xgetbv"},
  191. {"xor"},
  192. };
  193. #define CMD_PARAM(ty, name) ty name; Read(name);
  194. #define CMD_PARAM_NOTRANS(ty, name) ty name; Read(name, NULL, BfIRSizeAlignKind_NoTransform);
  195. BF_STATIC_ASSERT(BF_ARRAY_COUNT(gIntrinEntries) == BfIRIntrinsic_COUNT);
  196. template <typename T>
  197. class CmdParamVec : public llvm::SmallVector<T, 8>
  198. {};
  199. static int GetLLVMCallingConv(BfIRCallingConv callingConv, BfTargetTriple& targetTriple)
  200. {
  201. int llvmCallingConv = llvm::CallingConv::C;
  202. if (targetTriple.GetMachineType() == BfMachineType_AArch64)
  203. {
  204. if (callingConv == BfIRCallingConv_CDecl)
  205. llvmCallingConv = llvm::CallingConv::C;
  206. else
  207. llvmCallingConv = llvm::CallingConv::PreserveMost;
  208. }
  209. else
  210. {
  211. if (callingConv == BfIRCallingConv_ThisCall)
  212. llvmCallingConv = llvm::CallingConv::X86_ThisCall;
  213. else if (callingConv == BfIRCallingConv_StdCall)
  214. llvmCallingConv = llvm::CallingConv::X86_StdCall;
  215. else if (callingConv == BfIRCallingConv_FastCall)
  216. llvmCallingConv = llvm::CallingConv::X86_FastCall;
  217. else if (callingConv == BfIRCallingConv_CDecl)
  218. llvmCallingConv = llvm::CallingConv::C;
  219. }
  220. return llvmCallingConv;
  221. }
  222. static llvm::GlobalValue::LinkageTypes LLVMMapLinkageType(BfIRLinkageType linkageType)
  223. {
  224. llvm::GlobalValue::LinkageTypes llvmLinkageType;
  225. if (linkageType == BfIRLinkageType_Internal)
  226. llvmLinkageType = llvm::GlobalValue::InternalLinkage;
  227. else
  228. llvmLinkageType = llvm::GlobalValue::ExternalLinkage;
  229. return llvmLinkageType;
  230. }
  231. static llvm::Attribute::AttrKind LLVMMapAttribute(BfIRAttribute attr)
  232. {
  233. switch (attr)
  234. {
  235. case BfIRAttribute_NoReturn: return llvm::Attribute::NoReturn;
  236. case BfIRAttribute_NoAlias: return llvm::Attribute::NoAlias;
  237. case BfIRAttribute_NoCapture: return llvm::Attribute::NoCapture;
  238. case BfIRAttribute_StructRet: return llvm::Attribute::StructRet;
  239. case BfIRAttribute_ZExt: return llvm::Attribute::ZExt;
  240. case BFIRAttribute_NoUnwind: return llvm::Attribute::NoUnwind;
  241. case BFIRAttribute_UWTable: return llvm::Attribute::UWTable;
  242. case BFIRAttribute_AlwaysInline: return llvm::Attribute::AlwaysInline;
  243. case BFIRAttribute_NoRecurse: return llvm::Attribute::NoRecurse;
  244. default: break;
  245. }
  246. return llvm::Attribute::None;
  247. }
  248. #ifdef BF_PLATFORM_WINDOWS
  249. struct BfTempFile
  250. {
  251. String mContents;
  252. String mFilePath;
  253. CritSect mCritSect;
  254. FILE* mFP;
  255. BfTempFile()
  256. {
  257. mFP = NULL;
  258. }
  259. ~BfTempFile()
  260. {
  261. if (mFP != NULL)
  262. fclose(mFP);
  263. if (!mFilePath.IsEmpty())
  264. ::DeleteFileW(UTF8Decode(mFilePath).c_str());
  265. }
  266. bool Create()
  267. {
  268. AutoCrit autoCrit(mCritSect);
  269. if (mFP != NULL)
  270. return false;
  271. WCHAR wPath[4096];
  272. wPath[0] = 0;
  273. ::GetTempPathW(4096, wPath);
  274. WCHAR wFilePath[4096];
  275. wFilePath[0] = 0;
  276. GetTempFileNameW(wPath, L"bftmp", 0, wFilePath);
  277. mFilePath = UTF8Encode(wFilePath);
  278. mFP = _wfopen(wFilePath, L"w+D");
  279. return mFP != NULL;
  280. }
  281. String GetContents()
  282. {
  283. AutoCrit autoCrit(mCritSect);
  284. if (mFP != NULL)
  285. {
  286. fseek(mFP, 0, SEEK_END);
  287. int size = (int)ftell(mFP);
  288. fseek(mFP, 0, SEEK_SET);
  289. char* str = new char[size];
  290. int readSize = (int)fread(str, 1, size, mFP);
  291. mContents.Append(str, readSize);
  292. delete [] str;
  293. fclose(mFP);
  294. mFP = NULL;
  295. ::DeleteFileW(UTF8Decode(mFilePath).c_str());
  296. }
  297. return mContents;
  298. }
  299. };
  300. static BfTempFile gTempFile;
  301. static void AddStdErrCrashInfo()
  302. {
  303. String tempContents = gTempFile.GetContents();
  304. if (!tempContents.IsEmpty())
  305. BfpSystem_AddCrashInfo(tempContents.c_str());
  306. }
  307. #endif
  308. ///
  309. BfIRCodeGen::BfIRCodeGen()
  310. {
  311. mStream = NULL;
  312. mBfIRBuilder = NULL;
  313. mLLVMTargetMachine = NULL;
  314. mNopInlineAsm = NULL;
  315. mObjectCheckAsm = NULL;
  316. mOverflowCheckAsm = NULL;
  317. mHasDebugLoc = false;
  318. mAttrSet = NULL;
  319. mIRBuilder = NULL;
  320. mDIBuilder = NULL;
  321. mDICompileUnit = NULL;
  322. mActiveFunction = NULL;
  323. mActiveFunctionType = NULL;
  324. mLLVMContext = new llvm::LLVMContext();
  325. mLLVMModule = NULL;
  326. mIsCodeView = false;
  327. mHadDLLExport = false;
  328. mConstValIdx = 0;
  329. mCmdCount = 0;
  330. mCurLine = -1;
  331. #ifdef BF_PLATFORM_WINDOWS
  332. if (::GetStdHandle(STD_ERROR_HANDLE) == 0)
  333. {
  334. if (gTempFile.Create())
  335. {
  336. _dup2(fileno(gTempFile.mFP), 2);
  337. BfpSystem_AddCrashInfoFunc(AddStdErrCrashInfo);
  338. }
  339. }
  340. #endif
  341. }
  342. BfIRCodeGen::~BfIRCodeGen()
  343. {
  344. mDebugLoc = llvm::DebugLoc();
  345. mSavedDebugLocs.Clear();
  346. for (auto typeEx : mIRTypeExs)
  347. delete typeEx;
  348. for (auto kv : mTypeCodeTypeExMap)
  349. delete kv.mValue;
  350. delete mStream;
  351. delete mIRBuilder;
  352. delete mDIBuilder;
  353. delete mLLVMTargetMachine;
  354. delete mLLVMModule;
  355. delete mLLVMContext;
  356. }
  357. void BfIRCodeGen::FatalError(const StringImpl &err)
  358. {
  359. String failStr = "Fatal Error in Module: ";
  360. failStr += mModuleName;
  361. failStr += "\n";
  362. if (mLLVMModule != NULL)
  363. {
  364. if (mActiveFunction != NULL)
  365. {
  366. failStr += "Function: ";
  367. failStr += mActiveFunction->getName().str();
  368. failStr += "\n";
  369. }
  370. auto loc = mIRBuilder->getCurrentDebugLocation();
  371. auto dbgLoc = loc.getAsMDNode();
  372. if (dbgLoc != NULL)
  373. {
  374. std::string str;
  375. llvm::raw_string_ostream os(str);
  376. dbgLoc->print(os);
  377. failStr += "DbgLoc: ";
  378. failStr += str;
  379. failStr += "\n";
  380. llvm::MDNode* scope = loc.getScope();
  381. if (scope != NULL)
  382. {
  383. std::string str;
  384. llvm::raw_string_ostream os(str);
  385. scope->print(os);
  386. failStr += "Scope: ";
  387. failStr += str;
  388. failStr += "\n";
  389. }
  390. }
  391. }
  392. failStr += err;
  393. BF_FATAL(failStr);
  394. }
  395. void BfIRCodeGen::Fail(const StringImpl& error)
  396. {
  397. if (mFailed)
  398. return;
  399. if (mHasDebugLoc)
  400. {
  401. auto dbgLoc = mIRBuilder->getCurrentDebugLocation();
  402. if (dbgLoc)
  403. {
  404. llvm::DIFile* file = NULL;
  405. if (llvm::DIScope* scope = llvm::dyn_cast<llvm::DIScope>(dbgLoc.getScope()))
  406. {
  407. BfIRCodeGenBase::Fail(StrFormat("%s at line %d:%d in %s/%s", error.c_str(), dbgLoc.getLine(), dbgLoc.getCol(), scope->getDirectory().data(), scope->getFilename().data()));
  408. return;
  409. }
  410. }
  411. }
  412. BfIRCodeGenBase::Fail(error);
  413. }
  414. void BfIRCodeGen::PrintModule()
  415. {
  416. Beefy::debug_ostream os;
  417. mLLVMModule->print(os, NULL, false, true);
  418. os << "\n";
  419. os.flush();
  420. }
  421. void BfIRCodeGen::PrintFunction()
  422. {
  423. Beefy::debug_ostream os;
  424. mActiveFunction->print(os);
  425. os << "\n";
  426. os.flush();
  427. }
  428. void pte(BfIRTypeEx* typeEx, int indent)
  429. {
  430. Beefy::debug_ostream os;
  431. typeEx->mLLVMType->print(os);
  432. os << "\n";
  433. os.flush();
  434. for (int i = 0; i < typeEx->mMembers.mSize; i++)
  435. {
  436. for (int i = 0; i < indent; i++)
  437. os << " ";
  438. os << i << ". ";
  439. os.flush();
  440. pte(typeEx->mMembers[i], indent + 1);
  441. }
  442. }
  443. void pte(BfIRTypeEx* typeEx)
  444. {
  445. if (typeEx == NULL)
  446. return;
  447. pte(typeEx, 0);
  448. }
  449. void pve(const BfIRTypedValue& typedValue)
  450. {
  451. Beefy::debug_ostream os;
  452. os << "Value: ";
  453. typedValue.mValue->print(os);
  454. os << "\nType: ";
  455. os.flush();
  456. pte(typedValue.mTypeEx);
  457. }
  458. void pirb(llvm::IRBuilder<>* irBuilder)
  459. {
  460. Beefy::debug_ostream os;
  461. os << "Debug loc: ";
  462. auto debugLoc = irBuilder->getCurrentDebugLocation();
  463. if (debugLoc.get() == NULL)
  464. os << "NULL";
  465. else
  466. debugLoc->print(os);
  467. os << "\n";
  468. os.flush();
  469. }
  470. void BfIRCodeGen::FixValues(llvm::StructType* structType, llvm::SmallVector<llvm::Value*, 8>& values)
  471. {
  472. if (values.size() >= structType->getNumElements())
  473. return;
  474. int readIdx = (int)values.size() - 1;
  475. values.resize(structType->getNumElements());
  476. for (int i = (int)values.size() - 1; i >= 0; i--)
  477. {
  478. if (values[readIdx]->getType() == structType->getElementType(i))
  479. {
  480. values[i] = values[readIdx];
  481. readIdx--;
  482. }
  483. else if (structType->getElementType(i)->isArrayTy())
  484. {
  485. values[i] = llvm::ConstantAggregateZero::get(structType->getElementType(i));
  486. }
  487. else
  488. {
  489. BF_FATAL("Malformed structure values");
  490. }
  491. }
  492. }
  493. void BfIRCodeGen::FixValues(llvm::StructType* structType, llvm::SmallVector<llvm::Constant*, 8>& values)
  494. {
  495. if (values.size() >= structType->getNumElements())
  496. return;
  497. int readIdx = (int)values.size() - 1;
  498. values.resize(structType->getNumElements());
  499. for (int i = (int)values.size() - 1; i >= 0; i--)
  500. {
  501. if (values[readIdx]->getType() == structType->getElementType(i))
  502. {
  503. values[i] = values[readIdx];
  504. readIdx--;
  505. }
  506. else if (structType->getElementType(i)->isArrayTy())
  507. {
  508. values[i] = llvm::ConstantAggregateZero::get(structType->getElementType(i));
  509. }
  510. else
  511. {
  512. BF_FATAL("Malformed structure values");
  513. }
  514. }
  515. }
  516. void BfIRCodeGen::FixIndexer(llvm::Value*& val)
  517. {
  518. if ((int)val->getType()->getScalarSizeInBits() > mPtrSize * 8)
  519. val = mIRBuilder->CreateIntCast(val, llvm::Type::getInt32Ty(*mLLVMContext), false);
  520. }
  521. BfTypeCode BfIRCodeGen::GetTypeCode(llvm::Type* type, bool isSigned)
  522. {
  523. if (type->isIntegerTy())
  524. {
  525. switch (type->getIntegerBitWidth())
  526. {
  527. case 1:
  528. return BfTypeCode_Boolean;
  529. case 8:
  530. return isSigned ? BfTypeCode_Int8 : BfTypeCode_UInt8;
  531. case 16:
  532. return isSigned ? BfTypeCode_Int16 : BfTypeCode_UInt16;
  533. case 32:
  534. return isSigned ? BfTypeCode_Int32 : BfTypeCode_UInt32;
  535. case 64:
  536. return isSigned ? BfTypeCode_Int64 : BfTypeCode_UInt64;
  537. }
  538. }
  539. if (type->isFloatingPointTy())
  540. return BfTypeCode_Float;
  541. if (type->isDoubleTy())
  542. return BfTypeCode_Double;
  543. return BfTypeCode_None;
  544. }
  545. llvm::Type* BfIRCodeGen::GetLLVMType(BfTypeCode typeCode, bool& isSigned)
  546. {
  547. if ((typeCode == BfTypeCode_IntPtr) || (typeCode == BfTypeCode_UIntPtr))
  548. {
  549. /*isSigned = typeCode == BfTypeCode_IntPtr;
  550. if (mModule->mSystem->mPtrSize == 4)
  551. return llvm::Type::getInt32Ty(*mLLVMContext);
  552. else
  553. return llvm::Type::getInt64Ty(*mLLVMContext);*/
  554. BF_FATAL("Unsupported");
  555. }
  556. isSigned = false;
  557. switch (typeCode)
  558. {
  559. case BfTypeCode_None:
  560. return llvm::Type::getVoidTy(*mLLVMContext);
  561. case BfTypeCode_NullPtr:
  562. return llvm::PointerType::get(*mLLVMContext, 0);
  563. case BfTypeCode_Boolean:
  564. return llvm::Type::getInt1Ty(*mLLVMContext);
  565. case BfTypeCode_Int8:
  566. isSigned = true;
  567. return llvm::Type::getInt8Ty(*mLLVMContext);
  568. case BfTypeCode_UInt8:
  569. case BfTypeCode_Char8:
  570. return llvm::Type::getInt8Ty(*mLLVMContext);
  571. case BfTypeCode_Int16:
  572. isSigned = true;
  573. return llvm::Type::getInt16Ty(*mLLVMContext);
  574. case BfTypeCode_UInt16:
  575. case BfTypeCode_Char16:
  576. return llvm::Type::getInt16Ty(*mLLVMContext);
  577. case BfTypeCode_Int24:
  578. isSigned = true;
  579. return llvm::Type::getIntNTy(*mLLVMContext, 24);
  580. case BfTypeCode_UInt24:
  581. return llvm::Type::getIntNTy(*mLLVMContext, 24);
  582. case BfTypeCode_Int32:
  583. isSigned = true;
  584. return llvm::Type::getInt32Ty(*mLLVMContext);
  585. case BfTypeCode_UInt32:
  586. case BfTypeCode_Char32:
  587. return llvm::Type::getInt32Ty(*mLLVMContext);
  588. case BfTypeCode_Int40:
  589. isSigned = true;
  590. return llvm::Type::getIntNTy(*mLLVMContext, 40);
  591. case BfTypeCode_UInt40:
  592. return llvm::Type::getIntNTy(*mLLVMContext, 40);
  593. case BfTypeCode_Int48:
  594. isSigned = true;
  595. return llvm::Type::getIntNTy(*mLLVMContext, 48);
  596. case BfTypeCode_UInt48:
  597. return llvm::Type::getIntNTy(*mLLVMContext, 48);
  598. case BfTypeCode_Int56:
  599. isSigned = true;
  600. return llvm::Type::getIntNTy(*mLLVMContext, 56);
  601. case BfTypeCode_UInt56:
  602. return llvm::Type::getIntNTy(*mLLVMContext, 56);
  603. case BfTypeCode_Int64:
  604. isSigned = true;
  605. return llvm::Type::getInt64Ty(*mLLVMContext);
  606. case BfTypeCode_UInt64:
  607. return llvm::Type::getInt64Ty(*mLLVMContext);
  608. case BfTypeCode_Int128:
  609. isSigned = true;
  610. return llvm::Type::getInt128Ty(*mLLVMContext);
  611. case BfTypeCode_UInt128:
  612. return llvm::Type::getInt128Ty(*mLLVMContext);
  613. case BfTypeCode_IntPtr:
  614. BF_FATAL("Illegal");
  615. /*isSigned = true;
  616. if (mModule->mSystem->mPtrSize == 4)
  617. return llvm::Type::getInt32Ty(*mLLVMContext);
  618. else
  619. return llvm::Type::getInt64Ty(*mLLVMContext);*/
  620. case BfTypeCode_UIntPtr:
  621. BF_FATAL("Illegal");
  622. /*if (mModule->mSystem->mPtrSize == 4)
  623. return llvm::Type::getInt32Ty(*mLLVMContext);
  624. else
  625. return llvm::Type::getInt64Ty(*mLLVMContext);*/
  626. case BfTypeCode_Float:
  627. return llvm::Type::getFloatTy(*mLLVMContext);
  628. case BfTypeCode_Double:
  629. return llvm::Type::getDoubleTy(*mLLVMContext);
  630. case BfTypeCode_Float2:
  631. return llvm::FixedVectorType::get(llvm::Type::getFloatTy(*mLLVMContext), 2);
  632. case BfTypeCode_FloatX2:
  633. return llvm::ArrayType::get(llvm::Type::getFloatTy(*mLLVMContext), 2);
  634. case BfTypeCode_FloatX3:
  635. return llvm::ArrayType::get(llvm::Type::getFloatTy(*mLLVMContext), 3);
  636. case BfTypeCode_FloatX4:
  637. return llvm::ArrayType::get(llvm::Type::getFloatTy(*mLLVMContext), 4);
  638. case BfTypeCode_DoubleX2:
  639. return llvm::ArrayType::get(llvm::Type::getDoubleTy(*mLLVMContext), 2);
  640. case BfTypeCode_DoubleX3:
  641. return llvm::ArrayType::get(llvm::Type::getDoubleTy(*mLLVMContext), 3);
  642. case BfTypeCode_DoubleX4:
  643. return llvm::ArrayType::get(llvm::Type::getDoubleTy(*mLLVMContext), 4);
  644. case BfTypeCode_Int64X2:
  645. return llvm::ArrayType::get(llvm::Type::getInt64Ty(*mLLVMContext), 2);
  646. case BfTypeCode_Int64X3:
  647. return llvm::ArrayType::get(llvm::Type::getInt64Ty(*mLLVMContext), 3);
  648. case BfTypeCode_Int64X4:
  649. return llvm::ArrayType::get(llvm::Type::getInt64Ty(*mLLVMContext), 4);
  650. default: break;
  651. }
  652. return NULL;
  653. }
  654. BfIRTypeEx* BfIRCodeGen::GetTypeEx(BfTypeCode typeCode, bool& isSigned)
  655. {
  656. BfIRTypeEx** valuePtr = NULL;
  657. if (mTypeCodeTypeExMap.TryAdd(typeCode, NULL, &valuePtr))
  658. {
  659. BfIRTypeEx* typeEx = new BfIRTypeEx();
  660. typeEx->mLLVMType = GetLLVMType(typeCode, isSigned);
  661. if (typeEx->mLLVMType->isPointerTy())
  662. {
  663. // Make void* actually be an i8*
  664. typeEx->mMembers.Add(GetTypeEx(llvm::Type::getInt8Ty(*mLLVMContext)));
  665. }
  666. if (auto arrType = llvm::dyn_cast<llvm::ArrayType>(typeEx->mLLVMType))
  667. {
  668. typeEx->mMembers.Add(GetTypeEx(arrType->getElementType()));
  669. }
  670. if (auto vectorType = llvm::dyn_cast<llvm::VectorType>(typeEx->mLLVMType))
  671. {
  672. typeEx->mMembers.Add(GetTypeEx(vectorType->getElementType()));
  673. }
  674. *valuePtr = typeEx;
  675. }
  676. else
  677. {
  678. isSigned = false;
  679. switch (typeCode)
  680. {
  681. case BfTypeCode_Int8:
  682. case BfTypeCode_Int16:
  683. case BfTypeCode_Int24:
  684. case BfTypeCode_Int32:
  685. case BfTypeCode_Int40:
  686. case BfTypeCode_Int48:
  687. case BfTypeCode_Int56:
  688. case BfTypeCode_Int64:
  689. case BfTypeCode_Int128:
  690. isSigned = true;
  691. }
  692. }
  693. return *valuePtr;
  694. }
  695. BfIRTypeEx* BfIRCodeGen::GetTypeEx(llvm::Type* llvmType)
  696. {
  697. BfIRTypeEx** valuePtr = NULL;
  698. if (mLLVMTypeExMap.TryAdd(llvmType, NULL, &valuePtr))
  699. {
  700. BfIRTypeEx* typeEx = new BfIRTypeEx();
  701. mIRTypeExs.Add(typeEx);
  702. typeEx->mLLVMType = llvmType;
  703. *valuePtr = typeEx;
  704. }
  705. return *valuePtr;
  706. }
  707. BfIRTypeEx* BfIRCodeGen::CreateTypeEx(llvm::Type* llvmType)
  708. {
  709. BfIRTypeEx* typeEx = new BfIRTypeEx();
  710. mIRTypeExs.Add(typeEx);
  711. typeEx->mLLVMType = llvmType;
  712. return typeEx;
  713. }
  714. BfIRTypeEx* BfIRCodeGen::GetPointerTypeEx(BfIRTypeEx* elementType)
  715. {
  716. BF_ASSERT(elementType != NULL);
  717. BfIRTypeEx** valuePtr = NULL;
  718. if (mPointerTypeExMap.TryAdd(elementType, NULL, &valuePtr))
  719. {
  720. BfIRTypeEx* typeEx = new BfIRTypeEx();
  721. mIRTypeExs.Add(typeEx);
  722. typeEx->mLLVMType = llvm::PointerType::get(*mLLVMContext, 0);
  723. typeEx->mMembers.Add(elementType);
  724. *valuePtr = typeEx;
  725. }
  726. return *valuePtr;
  727. }
  728. BfIRTypeEx* BfIRCodeGen::GetTypeMember(BfIRTypeEx* typeEx, int idx)
  729. {
  730. if ((idx < 0) || (idx >= typeEx->mMembers.mSize))
  731. {
  732. Fail("BfIRTypeEx GetTypeMember OOB");
  733. bool isSigned;
  734. return GetTypeEx(BfTypeCode_Int8, isSigned);
  735. }
  736. return typeEx->mMembers[idx];
  737. }
  738. BfIRTypeEntry& BfIRCodeGen::GetTypeEntry(int typeId)
  739. {
  740. BfIRTypeEntry& typeEntry = mTypes[typeId];
  741. if (typeEntry.mTypeId == -1)
  742. typeEntry.mTypeId = typeId;
  743. return typeEntry;
  744. }
  745. BfIRTypeEntry* BfIRCodeGen::GetTypeEntry(BfIRTypeEx* type)
  746. {
  747. int typeId = 0;
  748. if (!mTypeToTypeIdMap.TryGetValue(type, &typeId))
  749. return NULL;
  750. return &GetTypeEntry(typeId);
  751. }
  752. void BfIRCodeGen::SetResult(int id, llvm::Value* value)
  753. {
  754. BF_ASSERT(!value->getType()->isAggregateType());
  755. BF_ASSERT(!value->getType()->isPointerTy());
  756. BfIRCodeGenEntry entry;
  757. entry.mKind = BfIRCodeGenEntryKind_LLVMValue;
  758. entry.mLLVMValue = value;
  759. mResults.TryAdd(id, entry);
  760. }
  761. void BfIRCodeGen::SetResult(int id, const BfIRTypedValue& value)
  762. {
  763. BfIRCodeGenEntry entry;
  764. entry.mKind = BfIRCodeGenEntryKind_TypedValue;
  765. entry.mTypedValue = value;
  766. mResults.TryAdd(id, entry);
  767. }
  768. void BfIRCodeGen::SetResultAligned(int id, llvm::Value* value)
  769. {
  770. BfIRCodeGenEntry entry;
  771. entry.mKind = BfIRCodeGenEntryKind_LLVMValue_Aligned;
  772. entry.mLLVMValue = value;
  773. mResults.TryAdd(id, entry);
  774. }
  775. void BfIRCodeGen::SetResultAligned(int id, const BfIRTypedValue& value)
  776. {
  777. BfIRCodeGenEntry entry;
  778. entry.mKind = BfIRCodeGenEntryKind_TypedValue_Aligned;
  779. entry.mTypedValue = value;
  780. mResults.TryAdd(id, entry);
  781. }
  782. void BfIRCodeGen::SetResult(int id, llvm::Type* type)
  783. {
  784. BfIRCodeGenEntry entry;
  785. entry.mKind = BfIRCodeGenEntryKind_LLVMType;
  786. entry.mLLVMType = type;
  787. mResults.TryAdd(id, entry);
  788. }
  789. void BfIRCodeGen::SetResult(int id, BfIRTypeEx* typeEx)
  790. {
  791. BfIRCodeGenEntry entry;
  792. entry.mKind = BfIRCodeGenEntryKind_TypeEx;
  793. entry.mTypeEx = typeEx;
  794. mResults.TryAdd(id, entry);
  795. }
  796. void BfIRCodeGen::SetResult(int id, llvm::BasicBlock* value)
  797. {
  798. BfIRCodeGenEntry entry;
  799. entry.mKind = BfIRCodeGenEntryKind_LLVMBasicBlock;
  800. entry.mLLVMBlock = value;
  801. mResults.TryAdd(id, entry);
  802. }
  803. void BfIRCodeGen::SetResult(int id, llvm::MDNode* md)
  804. {
  805. BfIRCodeGenEntry entry;
  806. entry.mKind = BfIRCodeGenEntryKind_LLVMMetadata;
  807. entry.mLLVMMetadata = md;
  808. mResults.TryAdd(id, entry);
  809. }
  810. void BfIRCodeGen::ProcessBfIRData(const BfSizedArray<uint8>& buffer)
  811. {
  812. // Diagnostic handlers were unified in LLVM change 5de2d189e6ad, so starting
  813. // with LLVM 13 this function is gone.
  814. /*struct InlineAsmErrorHook
  815. {
  816. static void StaticHandler(const llvm::SMDiagnostic& diag, void *context, unsigned locCookie)
  817. {
  818. if (diag.getKind() == llvm::SourceMgr::DK_Error)
  819. {
  820. BfIRCodeGen* irCodeGen = (BfIRCodeGen*)context;
  821. if (!irCodeGen->mErrorMsg.empty())
  822. irCodeGen->mErrorMsg += "\n";
  823. irCodeGen->mErrorMsg += StrFormat("Inline assembly error: \"%s\" : %s", diag.getMessage().data(), diag.getLineContents().data());
  824. }
  825. }
  826. };
  827. mLLVMContext->setInlineAsmDiagnosticHandler(InlineAsmErrorHook::StaticHandler, this);*/
  828. BF_ASSERT(mStream == NULL);
  829. mStream = new ChunkedDataBuffer();
  830. mStream->InitFlatRef(buffer.mVals, buffer.mSize);
  831. while (mStream->GetReadPos() < buffer.mSize)
  832. {
  833. if (mFailed)
  834. break;
  835. HandleNextCmd();
  836. }
  837. ApplySimdFeatures();
  838. BF_ASSERT((mFailed) || (mStream->GetReadPos() == buffer.mSize));
  839. }
  840. int64 BfIRCodeGen::ReadSLEB128()
  841. {
  842. int64 val = 0;
  843. int64 shift = 0;
  844. uint8 byteVal;
  845. do
  846. {
  847. byteVal = mStream->Read();
  848. val |= ((int64)(byteVal & 0x7f)) << shift;
  849. shift += 7;
  850. } while (byteVal >= 128);
  851. // Sign extend negative numbers.
  852. if ((byteVal & 0x40) && (shift < 64))
  853. val |= (-1ULL) << shift;
  854. return val;
  855. }
  856. void BfIRCodeGen::Read(StringImpl& str)
  857. {
  858. int len = (int)ReadSLEB128();
  859. str.Append('?', len);
  860. mStream->Read((void*)str.c_str(), len);
  861. }
  862. void BfIRCodeGen::Read(int& i)
  863. {
  864. i = (int)ReadSLEB128();
  865. }
  866. void BfIRCodeGen::Read(int64& i)
  867. {
  868. i = ReadSLEB128();
  869. }
  870. void BfIRCodeGen::Read(Val128& i)
  871. {
  872. i.mLow = (uint64)ReadSLEB128();
  873. i.mHigh = (uint64)ReadSLEB128();
  874. }
  875. void BfIRCodeGen::Read(bool& val)
  876. {
  877. val = mStream->Read() != 0;
  878. }
  879. void BfIRCodeGen::Read(int8& val)
  880. {
  881. val = mStream->Read();
  882. }
  883. void BfIRCodeGen::Read(BfIRTypeEntry*& type)
  884. {
  885. int typeId = (int)ReadSLEB128();
  886. type = &GetTypeEntry(typeId);
  887. }
  888. void BfIRCodeGen::Read(BfIRTypeEx*& typeEx, BfIRTypeEntry** outTypeEntry)
  889. {
  890. typeEx = NULL;
  891. BfIRType::TypeKind typeKind = (BfIRType::TypeKind)mStream->Read();
  892. if (typeKind == BfIRType::TypeKind::TypeKind_None)
  893. return;
  894. if (typeKind == BfIRType::TypeKind::TypeKind_Stream)
  895. {
  896. int streamId = (int)ReadSLEB128();
  897. if (streamId == -1)
  898. {
  899. typeEx = NULL;
  900. return;
  901. }
  902. auto& result = mResults[streamId];
  903. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_TypeEx);
  904. typeEx = result.mTypeEx;
  905. return;
  906. }
  907. if (typeKind == BfIRType::TypeKind::TypeKind_SizedArray)
  908. {
  909. CMD_PARAM(BfIRTypeEx*, elementType);
  910. CMD_PARAM(int, length);
  911. typeEx = new BfIRTypeEx();
  912. typeEx->mLLVMType = llvm::ArrayType::get(elementType->mLLVMType, length);
  913. BF_ASSERT(elementType != NULL);
  914. typeEx->mMembers.Add(elementType);
  915. mIRTypeExs.Add(typeEx);
  916. return;
  917. }
  918. int typeId = (int)ReadSLEB128();
  919. if (typeKind == BfIRType::TypeKind::TypeKind_TypeCode)
  920. {
  921. bool isSigned = false;
  922. typeEx = GetTypeEx((BfTypeCode)typeId, isSigned);
  923. return;
  924. }
  925. auto& typeEntry = GetTypeEntry(typeId);
  926. if (typeKind == BfIRType::TypeKind::TypeKind_TypeId)
  927. typeEx = typeEntry.mType;
  928. else if (typeKind == BfIRType::TypeKind::TypeKind_TypeInstId)
  929. typeEx = typeEntry.mInstType;
  930. else if (typeKind == BfIRType::TypeKind::TypeKind_TypeInstPtrId)
  931. typeEx = GetPointerTypeEx(typeEntry.mInstType);
  932. if (outTypeEntry != NULL)
  933. *outTypeEntry = &typeEntry;
  934. }
  935. void BfIRCodeGen::Read(llvm::Type*& llvmType, BfIRTypeEntry** outTypeEntry)
  936. {
  937. BfIRTypeEx* typeEx = NULL;
  938. Read(typeEx, outTypeEntry);
  939. if (typeEx != NULL)
  940. {
  941. llvmType = typeEx->mLLVMType;
  942. }
  943. else
  944. llvmType = NULL;
  945. }
  946. void BfIRCodeGen::Read(llvm::FunctionType*& llvmType)
  947. {
  948. int streamId = (int)ReadSLEB128();
  949. auto& result = mResults[streamId];
  950. if (result.mKind == BfIRCodeGenEntryKind_TypeEx)
  951. {
  952. llvmType = (llvm::FunctionType*)result.mTypeEx->mLLVMType;
  953. return;
  954. }
  955. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMType);
  956. llvmType = (llvm::FunctionType*)result.mLLVMType;
  957. }
  958. void BfIRCodeGen::ReadFunctionType(BfIRTypeEx*& typeEx)
  959. {
  960. int streamId = (int)ReadSLEB128();
  961. auto& result = mResults[streamId];
  962. if (result.mKind == BfIRCodeGenEntryKind_TypeEx)
  963. {
  964. typeEx = result.mTypeEx;
  965. return;
  966. }
  967. BF_FATAL("Invalid path in ReadFunctionType");
  968. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMType);
  969. typeEx = GetTypeEx(result.mLLVMType);
  970. }
  971. void BfIRCodeGen::FixTypedValue(BfIRTypedValue& typedValue)
  972. {
  973. if ((typedValue.mValue != NULL) && (typedValue.mTypeEx == NULL))
  974. {
  975. typedValue.mTypeEx = GetTypeEx(typedValue.mValue->getType());
  976. BF_ASSERT(!typedValue.mValue->getType()->isStructTy());
  977. BF_ASSERT(!typedValue.mValue->getType()->isFunctionTy());
  978. }
  979. }
  980. void BfIRCodeGen::Read(BfIRTypedValue& typedValue, BfIRCodeGenEntry** codeGenEntry, BfIRSizeAlignKind sizeAlignKind)
  981. {
  982. typedValue.mValue = NULL;
  983. typedValue.mTypeEx = NULL;
  984. BfIRParamType paramType = (BfIRParamType)mStream->Read();
  985. if (paramType == BfIRParamType_None)
  986. {
  987. //
  988. }
  989. else if (paramType == BfIRParamType_Const)
  990. {
  991. BfTypeCode typeCode = (BfTypeCode)mStream->Read();
  992. BfConstType constType = (BfConstType)typeCode;
  993. if (constType == BfConstType_GlobalVar)
  994. {
  995. CMD_PARAM(int, streamId);
  996. if (streamId == -1)
  997. {
  998. int streamId = mCmdCount++;
  999. CMD_PARAM(BfIRTypeEx*, varType);
  1000. CMD_PARAM(bool, isConstant);
  1001. BfIRLinkageType linkageType = (BfIRLinkageType)mStream->Read();
  1002. CMD_PARAM(llvm::Constant*, initializer);
  1003. CMD_PARAM(String, name);
  1004. CMD_PARAM(bool, isTLS);
  1005. llvm::GlobalVariable* globalVariable = mLLVMModule->getGlobalVariable(name.c_str(), true);
  1006. if (globalVariable == NULL)
  1007. {
  1008. globalVariable = mLLVMModule->getGlobalVariable(name.c_str());
  1009. if (globalVariable == NULL)
  1010. {
  1011. globalVariable = new llvm::GlobalVariable(
  1012. *mLLVMModule,
  1013. varType->mLLVMType,
  1014. isConstant,
  1015. LLVMMapLinkageType(linkageType),
  1016. initializer,
  1017. name.c_str(), NULL, isTLS ? llvm::GlobalValue::GeneralDynamicTLSModel : llvm::GlobalValue::NotThreadLocal);
  1018. }
  1019. }
  1020. typedValue.mTypeEx = GetPointerTypeEx(varType);
  1021. typedValue.mValue = globalVariable;
  1022. SetResult(streamId, typedValue);
  1023. }
  1024. else
  1025. typedValue = GetTypedValue(streamId);
  1026. FixTypedValue(typedValue);
  1027. return;
  1028. }
  1029. /*else if (constType == BfConstType_GlobalVar_TypeInst)
  1030. {
  1031. CMD_PARAM(int, streamId);
  1032. if (streamId == -1)
  1033. {
  1034. int streamId = mStream->GetReadPos();
  1035. CMD_PARAM(int, varTypeId);
  1036. auto& typeEntry = GetTypeEntry(varTypeId);
  1037. auto varType = typeEntry.mInstLLVMType;
  1038. CMD_PARAM(bool, isConstant);
  1039. BfIRLinkageType linkageType = (BfIRLinkageType)mStream->Read();
  1040. CMD_PARAM(llvm::Constant*, initializer);
  1041. CMD_PARAM(String, name);
  1042. CMD_PARAM(bool, isTLS);
  1043. auto globalVariable = new llvm::GlobalVariable(
  1044. *mLLVMModule,
  1045. varType,
  1046. isConstant,
  1047. LLVMMapLinkageType(linkageType),
  1048. initializer,
  1049. name, NULL, isTLS ? llvm::GlobalValue::GeneralDynamicTLSModel : llvm::GlobalValue::NotThreadLocal);
  1050. llvmValue = globalVariable;
  1051. SetResult(streamId, globalVariable);
  1052. }
  1053. else
  1054. llvmValue = GetLLVMValue(streamId);
  1055. return;
  1056. }*/
  1057. else if ((constType == BfConstType_BitCast) || (constType == BfConstType_BitCastNull))
  1058. {
  1059. CMD_PARAM(llvm::Constant*, target);
  1060. CMD_PARAM(BfIRTypeEx*, toType);
  1061. typedValue.mTypeEx = toType;
  1062. if ((constType == BfConstType_BitCastNull) && (toType->mLLVMType->isIntegerTy()))
  1063. {
  1064. typedValue.mValue = llvm::ConstantInt::getNullValue(toType->mLLVMType);
  1065. }
  1066. else if (target->getType()->isIntegerTy())
  1067. typedValue.mValue = llvm::ConstantExpr::getIntToPtr(target, toType->mLLVMType);
  1068. else
  1069. typedValue.mValue = llvm::ConstantExpr::getBitCast(target, toType->mLLVMType);
  1070. FixTypedValue(typedValue);
  1071. return;
  1072. }
  1073. else if (constType == BfConstType_GEP32_1)
  1074. {
  1075. CMD_PARAM(BfIRTypedValue, target);
  1076. CMD_PARAM(int, idx0);
  1077. llvm::Value* gepArgs[] = {
  1078. llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), idx0)};
  1079. auto compositeType = GetTypeMember(target.mTypeEx, 0);
  1080. auto constant = llvm::dyn_cast<llvm::Constant>(target.mValue);
  1081. typedValue.mTypeEx = target.mTypeEx;
  1082. typedValue.mValue = llvm::ConstantExpr::getInBoundsGetElementPtr(compositeType->mLLVMType, constant, gepArgs);
  1083. FixTypedValue(typedValue);
  1084. return;
  1085. }
  1086. else if (constType == BfConstType_GEP32_2)
  1087. {
  1088. CMD_PARAM(BfIRTypedValue, target);
  1089. CMD_PARAM(int, idx0);
  1090. CMD_PARAM(int, idx1);
  1091. llvm::Value* gepArgs[] = {
  1092. llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), idx0),
  1093. llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), idx1)};
  1094. auto compositeType = GetTypeMember(target.mTypeEx, 0);
  1095. int elemIdx = BF_MAX(BF_MIN(idx1, (int)compositeType->mMembers.mSize - 1), 0);
  1096. auto elemType = GetTypeMember(compositeType, elemIdx);
  1097. auto constant = llvm::dyn_cast<llvm::Constant>(target.mValue);
  1098. typedValue.mValue = llvm::ConstantExpr::getInBoundsGetElementPtr(compositeType->mLLVMType, constant, gepArgs);
  1099. typedValue.mTypeEx = GetPointerTypeEx(elemType);
  1100. return;
  1101. }
  1102. else if (constType == BfConstType_ExtractValue)
  1103. {
  1104. CMD_PARAM(BfIRTypedValue, target);
  1105. CMD_PARAM(int, idx0);
  1106. auto compositeType = target.mTypeEx;
  1107. int elemIdx = BF_MIN(idx0, (int)compositeType->mMembers.mSize - 1);
  1108. auto elemType = GetTypeMember(compositeType, elemIdx);
  1109. typedValue.mTypeEx = elemType;
  1110. if (auto constant = llvm::dyn_cast<llvm::Constant>(target.mValue))
  1111. typedValue.mValue = constant->getAggregateElement(llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), idx0));
  1112. FixTypedValue(typedValue);
  1113. return;
  1114. }
  1115. else if (constType == BfConstType_PtrToInt)
  1116. {
  1117. CMD_PARAM(llvm::Constant*, target);
  1118. BfTypeCode toTypeCode = (BfTypeCode)mStream->Read();
  1119. bool isSigned;
  1120. BfIRTypeEx* toType = GetTypeEx(toTypeCode, isSigned);
  1121. typedValue.mTypeEx = toType;
  1122. typedValue.mValue = llvm::ConstantExpr::getPtrToInt(target, toType->mLLVMType);
  1123. FixTypedValue(typedValue);
  1124. return;
  1125. }
  1126. else if (constType == BfConstType_IntToPtr)
  1127. {
  1128. CMD_PARAM(llvm::Constant*, target);
  1129. CMD_PARAM(BfIRTypeEx*, toType);
  1130. typedValue.mTypeEx = toType;
  1131. typedValue.mValue = llvm::ConstantExpr::getIntToPtr(target, toType->mLLVMType);
  1132. FixTypedValue(typedValue);
  1133. return;
  1134. }
  1135. else if (constType == BfConstType_AggZero)
  1136. {
  1137. BfIRTypeEntry* typeEntry = NULL;
  1138. BfIRTypeEx* type = NULL;
  1139. Read(type, &typeEntry);
  1140. typedValue.mTypeEx = type;
  1141. if ((sizeAlignKind == BfIRSizeAlignKind_Aligned) && (typeEntry != NULL))
  1142. typedValue.mValue = llvm::ConstantAggregateZero::get(GetSizeAlignedType(typeEntry)->mLLVMType);
  1143. else
  1144. typedValue.mValue = llvm::ConstantAggregateZero::get(type->mLLVMType);
  1145. FixTypedValue(typedValue);
  1146. return;
  1147. }
  1148. else if (constType == BfConstType_ArrayZero8)
  1149. {
  1150. CMD_PARAM(int, count);
  1151. auto arrType = llvm::ArrayType::get(llvm::Type::getInt8Ty(*mLLVMContext), count);
  1152. typedValue.mValue = llvm::ConstantAggregateZero::get(arrType);
  1153. FixTypedValue(typedValue);
  1154. return;
  1155. }
  1156. else if (constType == BfConstType_Agg)
  1157. {
  1158. BfIRTypeEntry* typeEntry = NULL;
  1159. BfIRTypeEx* type = NULL;
  1160. Read(type, &typeEntry);
  1161. CmdParamVec<llvm::Constant*> values;
  1162. Read(values, type->mLLVMType->isArrayTy() ? BfIRSizeAlignKind_Aligned : BfIRSizeAlignKind_Original);
  1163. typedValue.mTypeEx = type;
  1164. if (auto arrayType = llvm::dyn_cast<llvm::ArrayType>(type->mLLVMType))
  1165. {
  1166. int fillCount = (int)(arrayType->getNumElements() - values.size());
  1167. if (fillCount > 0)
  1168. {
  1169. auto lastValue = values.back();
  1170. for (int i = 0; i < fillCount; i++)
  1171. values.push_back(lastValue);
  1172. }
  1173. typedValue.mValue = llvm::ConstantArray::get(arrayType, values);
  1174. }
  1175. else if (auto structType = llvm::dyn_cast<llvm::StructType>(type->mLLVMType))
  1176. {
  1177. FixValues(structType, values);
  1178. for (int i = 0; i < (int)values.size(); i++)
  1179. {
  1180. if (values[i]->getType() != structType->getElementType(i))
  1181. {
  1182. auto valArrayType = llvm::dyn_cast<llvm::ArrayType>(values[i]->getType());
  1183. if (valArrayType != NULL)
  1184. {
  1185. if (valArrayType->getNumElements() == 0)
  1186. {
  1187. values[i] = llvm::ConstantAggregateZero::get(structType->getElementType(i));
  1188. }
  1189. }
  1190. }
  1191. }
  1192. if ((sizeAlignKind == BfIRSizeAlignKind_Aligned) && (typeEntry != NULL))
  1193. {
  1194. auto alignedTypeEx = GetSizeAlignedType(typeEntry);
  1195. auto alignedType = llvm::dyn_cast<llvm::StructType>(alignedTypeEx->mLLVMType);
  1196. if (type != alignedTypeEx)
  1197. values.push_back(llvm::ConstantAggregateZero::get(alignedType->getElementType(alignedType->getNumElements() - 1)));
  1198. typedValue.mTypeEx = alignedTypeEx;
  1199. typedValue.mValue = llvm::ConstantStruct::get(alignedType, values);
  1200. }
  1201. else
  1202. {
  1203. typedValue.mValue = llvm::ConstantStruct::get(structType, values);
  1204. }
  1205. }
  1206. else if (auto vecType = llvm::dyn_cast<llvm::VectorType>(type->mLLVMType))
  1207. {
  1208. typedValue.mValue = llvm::ConstantVector::get(values);
  1209. }
  1210. else
  1211. {
  1212. typedValue.mValue = NULL;
  1213. Fail("Bad type");
  1214. }
  1215. FixTypedValue(typedValue);
  1216. return;
  1217. }
  1218. else if (constType == BfConstType_Undef)
  1219. {
  1220. CMD_PARAM(BfIRTypeEx*, type);
  1221. typedValue.mTypeEx = type;
  1222. typedValue.mValue = llvm::UndefValue::get(type->mLLVMType);
  1223. return;
  1224. }
  1225. else if (constType == BfConstType_TypeOf)
  1226. {
  1227. CMD_PARAM(BfIRTypeEx*, type);
  1228. typedValue = mReflectDataMap[type];
  1229. BF_ASSERT(typedValue.mValue != NULL);
  1230. return;
  1231. }
  1232. else if (constType == BfConstType_TypeOf_WithData)
  1233. {
  1234. CMD_PARAM(BfIRTypeEx*, type);
  1235. CMD_PARAM(BfIRTypedValue, value);
  1236. mReflectDataMap[type] = value;
  1237. typedValue = value;
  1238. return;
  1239. }
  1240. bool isSigned;
  1241. llvm::Type* llvmConstType = GetLLVMType(typeCode, isSigned);
  1242. if (typeCode == BfTypeCode_Float)
  1243. {
  1244. float f;
  1245. mStream->Read(&f, sizeof(float));
  1246. typedValue.mValue = llvm::ConstantFP::get(llvmConstType, f);
  1247. }
  1248. else if (typeCode == BfTypeCode_Double)
  1249. {
  1250. double d;
  1251. mStream->Read(&d, sizeof(double));
  1252. typedValue.mValue = llvm::ConstantFP::get(llvmConstType, d);
  1253. }
  1254. else if (typeCode == BfTypeCode_Boolean)
  1255. {
  1256. CMD_PARAM(bool, boolVal);
  1257. typedValue.mValue = llvm::ConstantInt::get(llvmConstType, boolVal ? 1 : 0);
  1258. }
  1259. else if (typeCode == BfTypeCode_None)
  1260. {
  1261. typedValue.mValue = NULL;
  1262. }
  1263. else if (typeCode == BfTypeCode_NullPtr)
  1264. {
  1265. CMD_PARAM(llvm::Type*, nullType);
  1266. if (nullType != NULL)
  1267. typedValue.mValue = llvm::ConstantPointerNull::get((llvm::PointerType*)nullType);
  1268. else
  1269. typedValue.mValue = llvm::ConstantPointerNull::get((llvm::PointerType*)llvmConstType);
  1270. }
  1271. else if (BfIRBuilder::IsInt(typeCode))
  1272. {
  1273. int64 intVal = ReadSLEB128();
  1274. auto constVal = llvm::ConstantInt::get(llvmConstType, intVal);
  1275. auto constInt = (llvm::ConstantInt*)constVal;
  1276. typedValue.mValue = constInt;
  1277. }
  1278. else
  1279. {
  1280. BF_FATAL("Unhandled");
  1281. }
  1282. }
  1283. else if (paramType == BfIRParamType_Arg)
  1284. {
  1285. int argIdx = mStream->Read();
  1286. if (argIdx >= mActiveFunction->arg_size())
  1287. {
  1288. FatalError(StrFormat("ARG out of bounds %d", argIdx));
  1289. }
  1290. auto typeEx = mActiveFunctionType;
  1291. BF_ASSERT(argIdx < mActiveFunction->arg_size());
  1292. auto argItr = mActiveFunction->arg_begin();
  1293. for (int i = 0; i < argIdx; i++)
  1294. argItr++;
  1295. typedValue.mValue = &(*argItr);
  1296. typedValue.mTypeEx = GetTypeMember(typeEx, argIdx + 1);
  1297. }
  1298. else
  1299. {
  1300. int cmdId = -1;
  1301. if (paramType == BfIRParamType_StreamId_Abs8)
  1302. {
  1303. cmdId = mStream->Read();
  1304. }
  1305. else if (paramType == BfIRParamType_StreamId_Rel)
  1306. {
  1307. cmdId = mCmdCount - (int)ReadSLEB128();
  1308. }
  1309. else
  1310. {
  1311. cmdId = mCmdCount - (paramType - BfIRParamType_StreamId_Back1) - 1;
  1312. }
  1313. auto& result = mResults[cmdId];
  1314. if ((codeGenEntry != NULL) && (result.mKind != BfIRCodeGenEntryKind_None))
  1315. *codeGenEntry = &result;
  1316. if (result.mKind == BfIRCodeGenEntryKind_TypedValue_Aligned)
  1317. {
  1318. typedValue = result.mTypedValue;
  1319. BfIRTypeEx* normalType = NULL;
  1320. if (mAlignedTypeToNormalType.TryGetValue(typedValue.mTypeEx, &normalType))
  1321. typedValue.mTypeEx = normalType;
  1322. return;
  1323. }
  1324. if (result.mKind == BfIRCodeGenEntryKind_TypedValue)
  1325. {
  1326. typedValue = result.mTypedValue;
  1327. return;
  1328. }
  1329. if (result.mKind != BfIRCodeGenEntryKind_LLVMValue)
  1330. {
  1331. if ((codeGenEntry != NULL) && (result.mKind != BfIRCodeGenEntryKind_None))
  1332. {
  1333. *codeGenEntry = &result;
  1334. return;
  1335. }
  1336. }
  1337. if (result.mKind == BfIRCodeGenEntryKind_LLVMValue_Aligned)
  1338. {
  1339. typedValue.mValue = result.mLLVMValue;
  1340. if (sizeAlignKind != BfIRSizeAlignKind_Original)
  1341. return;
  1342. llvm::Type* normalType = NULL;
  1343. //TODO: if (auto ptrType = llvm::dyn_cast<llvm::PointerType>(llvmValue->getType()))
  1344. {
  1345. // if (mAlignedTypeToNormalType.TryGetValue(ptrType->getElementType(), &normalType))
  1346. // {
  1347. // llvmValue = mIRBuilder->CreateBitCast(llvmValue, normalType->getPointerTo());
  1348. // return;
  1349. // }
  1350. }
  1351. }
  1352. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMValue);
  1353. typedValue.mValue = result.mLLVMValue;
  1354. }
  1355. FixTypedValue(typedValue);
  1356. }
  1357. void BfIRCodeGen::Read(llvm::Value*& llvmValue, BfIRCodeGenEntry** codeGenEntry, BfIRSizeAlignKind sizeAlignKind)
  1358. {
  1359. BfIRTypedValue typedValue;
  1360. Read(typedValue, codeGenEntry, sizeAlignKind);
  1361. llvmValue = typedValue.mValue;
  1362. }
  1363. void BfIRCodeGen::Read(llvm::Constant*& llvmConstant, BfIRSizeAlignKind sizeAlignKind)
  1364. {
  1365. llvm::Value* value;
  1366. Read(value, NULL, sizeAlignKind);
  1367. if (value == NULL)
  1368. {
  1369. llvmConstant = NULL;
  1370. }
  1371. else
  1372. {
  1373. BF_ASSERT(llvm::isa<llvm::Constant>(value));
  1374. llvmConstant = (llvm::Constant*)value;
  1375. }
  1376. }
  1377. void BfIRCodeGen::Read(llvm::Function*& llvmFunc)
  1378. {
  1379. int streamId = (int)ReadSLEB128();
  1380. if (streamId == -1)
  1381. {
  1382. llvmFunc = NULL;
  1383. return;
  1384. }
  1385. auto& result = mResults[streamId];
  1386. if (result.mKind == BfIRCodeGenEntryKind_TypedValue)
  1387. {
  1388. llvmFunc = (llvm::Function*)result.mTypedValue.mValue;
  1389. return;
  1390. }
  1391. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMValue);
  1392. BF_ASSERT(llvm::isa<llvm::Function>(result.mLLVMValue));
  1393. llvmFunc = (llvm::Function*)result.mLLVMValue;
  1394. }
  1395. void BfIRCodeGen::ReadFunction(BfIRTypedValue& typedValue)
  1396. {
  1397. int streamId = (int)ReadSLEB128();
  1398. if (streamId == -1)
  1399. {
  1400. typedValue.mValue = NULL;
  1401. typedValue.mTypeEx = NULL;
  1402. return;
  1403. }
  1404. auto& result = mResults[streamId];
  1405. if (result.mKind == BfIRCodeGenEntryKind_TypedValue)
  1406. {
  1407. typedValue = result.mTypedValue;
  1408. return;
  1409. }
  1410. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMValue);
  1411. BF_ASSERT(llvm::isa<llvm::Function>(result.mLLVMValue));
  1412. typedValue.mValue = result.mLLVMValue;
  1413. FixTypedValue(typedValue);
  1414. }
  1415. void BfIRCodeGen::Read(llvm::BasicBlock*& llvmBlock)
  1416. {
  1417. int streamId = (int)ReadSLEB128();
  1418. auto& result = mResults[streamId];
  1419. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMBasicBlock);
  1420. llvmBlock = (llvm::BasicBlock*)result.mLLVMType;
  1421. }
  1422. void BfIRCodeGen::Read(llvm::MDNode*& llvmMD)
  1423. {
  1424. int streamId = (int)ReadSLEB128();
  1425. if (streamId == -1)
  1426. {
  1427. llvmMD = NULL;
  1428. return;
  1429. }
  1430. auto& result = mResults[streamId];
  1431. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMMetadata);
  1432. llvmMD = result.mLLVMMetadata;
  1433. }
  1434. void BfIRCodeGen::Read(llvm::Metadata*& llvmMD)
  1435. {
  1436. int streamId = (int)ReadSLEB128();
  1437. if (streamId == -1)
  1438. {
  1439. llvmMD = NULL;
  1440. return;
  1441. }
  1442. auto& result = mResults[streamId];
  1443. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMMetadata);
  1444. llvmMD = result.mLLVMMetadata;
  1445. }
  1446. void BfIRCodeGen::AddNop()
  1447. {
  1448. if ((mTargetTriple.GetMachineType() != BfMachineType_x86) && (mTargetTriple.GetMachineType() != BfMachineType_x64))
  1449. return;
  1450. if (mNopInlineAsm == NULL)
  1451. {
  1452. llvm::SmallVector<llvm::Type*, 8> paramTypes;
  1453. llvm::FunctionType* funcType = llvm::FunctionType::get(llvm::Type::getVoidTy(*mLLVMContext), paramTypes, false);
  1454. mNopInlineAsm = llvm::InlineAsm::get(funcType,
  1455. "nop", "", true, false, llvm::InlineAsm::AD_ATT);
  1456. }
  1457. llvm::CallInst* callInst = mIRBuilder->CreateCall(mNopInlineAsm);
  1458. callInst->addFnAttr(llvm::Attribute::NoUnwind);
  1459. }
  1460. llvm::Value* BfIRCodeGen::TryToVector(const BfIRTypedValue& value)
  1461. {
  1462. auto valueType = value.mTypeEx->mLLVMType;
  1463. if (llvm::isa<llvm::VectorType>(valueType))
  1464. return value.mValue;
  1465. if (auto ptrType = llvm::dyn_cast<llvm::PointerType>(valueType))
  1466. {
  1467. auto ptrElemType = GetTypeMember(value.mTypeEx, 0);
  1468. if (auto arrType = llvm::dyn_cast<llvm::ArrayType>(ptrElemType->mLLVMType))
  1469. {
  1470. auto vecType = llvm::FixedVectorType::get(arrType->getArrayElementType(), (uint)arrType->getArrayNumElements());
  1471. auto vecPtrType = vecType->getPointerTo();
  1472. auto ptrVal0 = mIRBuilder->CreateBitCast(value.mValue, vecPtrType);
  1473. return mIRBuilder->CreateAlignedLoad(vecType, ptrVal0, llvm::MaybeAlign(1));
  1474. }
  1475. if (auto vecType = llvm::dyn_cast<llvm::VectorType>(ptrElemType->mLLVMType))
  1476. {
  1477. return mIRBuilder->CreateAlignedLoad(vecType, value.mValue, llvm::MaybeAlign(1));
  1478. }
  1479. }
  1480. return NULL;
  1481. }
  1482. bool BfIRCodeGen::TryMemCpy(const BfIRTypedValue& ptr, llvm::Value* val)
  1483. {
  1484. auto valType = val->getType();
  1485. auto dataLayout = llvm::DataLayout(mLLVMModule);
  1486. int arrayBytes = (int)dataLayout.getTypeSizeInBits(valType) / 8;
  1487. // LLVM has perf issues with large aggregates - it treats each element as a unique value,
  1488. // which is great for optimizing small data but is a perf killer for large data.
  1489. if (arrayBytes < 256)
  1490. return false;
  1491. auto int8Ty = llvm::Type::getInt8Ty(*mLLVMContext);
  1492. auto int32Ty = llvm::Type::getInt32Ty(*mLLVMContext);
  1493. auto int8PtrTy = int8Ty->getPointerTo();
  1494. if (auto loadInst = llvm::dyn_cast<llvm::LoadInst>(val))
  1495. {
  1496. mIRBuilder->CreateMemCpy(
  1497. mIRBuilder->CreateBitCast(ptr.mValue, int8PtrTy),
  1498. llvm::MaybeAlign(1),
  1499. mIRBuilder->CreateBitCast(loadInst->getPointerOperand(), int8PtrTy),
  1500. llvm::MaybeAlign(1),
  1501. llvm::ConstantInt::get(int32Ty, arrayBytes));
  1502. return true;
  1503. }
  1504. auto constVal = llvm::dyn_cast<llvm::Constant>(val);
  1505. if (constVal == NULL)
  1506. return false;
  1507. if (llvm::isa<llvm::ConstantAggregateZero>(constVal))
  1508. {
  1509. mIRBuilder->CreateMemSet(
  1510. mIRBuilder->CreateBitCast(ptr.mValue, int8PtrTy),
  1511. llvm::ConstantInt::get(int8Ty, 0),
  1512. llvm::ConstantInt::get(int32Ty, arrayBytes),
  1513. llvm::MaybeAlign(1));
  1514. return true;
  1515. }
  1516. auto globalVariable = new llvm::GlobalVariable(
  1517. *mLLVMModule,
  1518. valType,
  1519. true,
  1520. llvm::GlobalValue::InternalLinkage,
  1521. constVal,
  1522. StrFormat("__ConstVal__%d", mConstValIdx++).c_str(),
  1523. NULL,
  1524. llvm::GlobalValue::NotThreadLocal);
  1525. mIRBuilder->CreateMemCpy(
  1526. mIRBuilder->CreateBitCast(ptr.mValue, int8PtrTy),
  1527. llvm::MaybeAlign(1),
  1528. mIRBuilder->CreateBitCast(globalVariable, int8PtrTy),
  1529. llvm::MaybeAlign(1),
  1530. llvm::ConstantInt::get(int32Ty, arrayBytes));
  1531. return true;
  1532. }
  1533. bool BfIRCodeGen::TryVectorCpy(const BfIRTypedValue& ptr, llvm::Value* val)
  1534. {
  1535. if (GetTypeMember(ptr.mTypeEx, 0)->mLLVMType == val->getType())
  1536. return false;
  1537. if (!llvm::isa<llvm::VectorType>(val->getType()))
  1538. {
  1539. return false;
  1540. }
  1541. auto usePtr = mIRBuilder->CreateBitCast(ptr.mValue, val->getType()->getPointerTo());
  1542. mIRBuilder->CreateAlignedStore(val, usePtr, llvm::MaybeAlign(1));
  1543. return true;
  1544. }
  1545. llvm::Type* BfIRCodeGen::GetLLVMPointerElementType(BfIRTypeEx* typeEx)
  1546. {
  1547. BF_ASSERT(typeEx != NULL);
  1548. BF_ASSERT(typeEx->mLLVMType->isPointerTy());
  1549. return GetTypeMember(typeEx, 0)->mLLVMType;
  1550. }
  1551. BfIRTypeEx* BfIRCodeGen::GetSizeAlignedType(BfIRTypeEntry* typeEntry)
  1552. {
  1553. if ((typeEntry->mAlignType == NULL) && ((typeEntry->mSize & (typeEntry->mAlign - 1)) != 0))
  1554. {
  1555. auto structType = llvm::dyn_cast<llvm::StructType>(typeEntry->mType->mLLVMType);
  1556. if (structType != NULL)
  1557. {
  1558. //TODO: Fill out properly
  1559. BF_ASSERT(structType->isPacked());
  1560. auto alignTypeEx = new BfIRTypeEx();
  1561. mIRTypeExs.Add(alignTypeEx);
  1562. auto alignType = llvm::StructType::create(*mLLVMContext, (structType->getName().str() + "_ALIGNED").c_str());
  1563. llvm::SmallVector<llvm::Type*, 8> members;
  1564. for (int elemIdx = 0; elemIdx < (int)structType->getNumElements(); elemIdx++)
  1565. {
  1566. members.push_back(structType->getElementType(elemIdx));
  1567. }
  1568. int alignSize = BF_ALIGN(typeEntry->mSize, typeEntry->mAlign);
  1569. int fillSize = alignSize - typeEntry->mSize;
  1570. members.push_back(llvm::ArrayType::get(llvm::Type::getInt8Ty(*mLLVMContext), fillSize));
  1571. alignType->setBody(members, structType->isPacked());
  1572. alignTypeEx->mLLVMType = alignType;
  1573. typeEntry->mAlignType = alignTypeEx;
  1574. mAlignedTypeToNormalType[alignTypeEx] = typeEntry->mType;
  1575. }
  1576. }
  1577. if (typeEntry->mAlignType != NULL)
  1578. return typeEntry->mAlignType;
  1579. return typeEntry->mType;
  1580. }
  1581. BfIRTypedValue BfIRCodeGen::GetAlignedPtr(const BfIRTypedValue& val)
  1582. {
  1583. BfIRTypedValue result = val;
  1584. if (auto ptrType = llvm::dyn_cast<llvm::PointerType>(val.mTypeEx->mLLVMType))
  1585. {
  1586. auto elemType = GetTypeMember(val.mTypeEx, 0);
  1587. auto typeEntry = GetTypeEntry(elemType);
  1588. if (typeEntry != NULL)
  1589. {
  1590. auto alignedType = GetSizeAlignedType(typeEntry);
  1591. if (alignedType != elemType)
  1592. result.mTypeEx = GetPointerTypeEx(alignedType);
  1593. }
  1594. }
  1595. return result;
  1596. }
  1597. llvm::Value* BfIRCodeGen::DoCheckedIntrinsic(llvm::Intrinsic::ID intrin, llvm::Value* lhs, llvm::Value* rhs, bool useAsm)
  1598. {
  1599. if ((mTargetTriple.GetMachineType() != BfMachineType_x86) && (mTargetTriple.GetMachineType() != BfMachineType_x64))
  1600. useAsm = false;
  1601. CmdParamVec<llvm::Type*> useParams;
  1602. useParams.push_back(lhs->getType());
  1603. auto func = llvm::Intrinsic::getDeclaration(mLLVMModule, intrin, useParams);
  1604. CmdParamVec<llvm::Value*> args;
  1605. args.push_back(lhs);
  1606. args.push_back(rhs);
  1607. llvm::FunctionType* funcType = func->getFunctionType();
  1608. auto aggResult = mIRBuilder->CreateCall(funcType, func, args);
  1609. auto valResult = mIRBuilder->CreateExtractValue(aggResult, 0);
  1610. auto failResult = mIRBuilder->CreateExtractValue(aggResult, 1);
  1611. if (!useAsm)
  1612. {
  1613. mLockedBlocks.Add(mIRBuilder->GetInsertBlock());
  1614. auto failBB = llvm::BasicBlock::Create(*mLLVMContext, "access.fail");
  1615. auto passBB = llvm::BasicBlock::Create(*mLLVMContext, "access.pass");
  1616. mIRBuilder->CreateCondBr(failResult, failBB, passBB);
  1617. mActiveFunction->insert(mActiveFunction->end(), failBB);
  1618. mIRBuilder->SetInsertPoint(failBB);
  1619. auto trapDecl = llvm::Intrinsic::getDeclaration(mLLVMModule, llvm::Intrinsic::trap);
  1620. auto callInst = mIRBuilder->CreateCall(trapDecl);
  1621. callInst->addFnAttr(llvm::Attribute::NoReturn);
  1622. mIRBuilder->CreateBr(passBB);
  1623. mActiveFunction->insert(mActiveFunction->end(), passBB);
  1624. mIRBuilder->SetInsertPoint(passBB);
  1625. }
  1626. else
  1627. {
  1628. if (mOverflowCheckAsm == NULL)
  1629. {
  1630. std::vector<llvm::Type*> paramTypes;
  1631. paramTypes.push_back(llvm::Type::getInt8Ty(*mLLVMContext));
  1632. auto funcType = llvm::FunctionType::get(llvm::Type::getVoidTy(*mLLVMContext), paramTypes, false);
  1633. String asmStr =
  1634. "testb $$1, $0\n"
  1635. "jz 1f\n"
  1636. "int $$3\n"
  1637. "1:";
  1638. mOverflowCheckAsm = llvm::InlineAsm::get(funcType,
  1639. asmStr.c_str(), "r,~{dirflag},~{fpsr},~{flags}", true,
  1640. false, llvm::InlineAsm::AD_ATT);
  1641. }
  1642. llvm::SmallVector<llvm::Value*, 1> llvmArgs;
  1643. llvmArgs.push_back(mIRBuilder->CreateIntCast(failResult, llvm::Type::getInt8Ty(*mLLVMContext), false));
  1644. llvm::CallInst* callInst = mIRBuilder->CreateCall(mOverflowCheckAsm, llvmArgs);
  1645. callInst->addFnAttr(llvm::Attribute::NoUnwind);
  1646. }
  1647. return valResult;
  1648. }
  1649. void BfIRCodeGen::CreateMemSet(llvm::Value* addr, llvm::Value* val, llvm::Value* size, int alignment, bool isVolatile)
  1650. {
  1651. auto sizeConst = llvm::dyn_cast<llvm::ConstantInt>(size);
  1652. auto valConst = llvm::dyn_cast<llvm::ConstantInt>(val);
  1653. if ((!mIsOptimized) && (sizeConst != NULL) && (valConst != NULL))
  1654. {
  1655. int64 sizeVal = sizeConst->getSExtValue();
  1656. uint8 setVal = (uint8)valConst->getSExtValue();
  1657. if (sizeVal <= 128)
  1658. {
  1659. //llvm::Value* intVal = mIRBuilder->CreatePtrToInt(addr, llvm::Type::getInt32Ty(*mLLVMContext))
  1660. int curOffset = 0;
  1661. int sizeLeft = (int)sizeVal;
  1662. llvm::Value* headVal;
  1663. if (mPtrSize >= 8)
  1664. {
  1665. headVal = NULL;
  1666. auto intTy = llvm::Type::getInt64Ty(*mLLVMContext);
  1667. auto constVal = llvm::ConstantInt::get(intTy,
  1668. ((int64)setVal << 56) | ((int64)setVal << 48) | ((int64)setVal << 40) | ((int64)setVal << 32) |
  1669. ((int64)setVal << 24) | ((int64)setVal << 16) | ((int64)setVal << 8) | ((int64)setVal));
  1670. while (sizeLeft >= 8)
  1671. {
  1672. if (headVal == NULL)
  1673. headVal = mIRBuilder->CreateBitCast(addr, intTy->getPointerTo());
  1674. llvm::Value* ptrVal = headVal;
  1675. if (curOffset != 0)
  1676. ptrVal = mIRBuilder->CreateConstInBoundsGEP1_32(intTy, headVal, curOffset / 8);
  1677. mIRBuilder->CreateStore(constVal, ptrVal, isVolatile);
  1678. curOffset += 8;
  1679. sizeLeft -= 8;
  1680. }
  1681. }
  1682. if (sizeLeft >= 4)
  1683. {
  1684. headVal = NULL;
  1685. auto intTy = llvm::Type::getInt32Ty(*mLLVMContext);
  1686. auto constVal = llvm::ConstantInt::get(intTy, ((int)setVal << 24) | ((int)setVal << 16) | ((int)setVal << 8) | ((int)setVal));
  1687. while (sizeLeft >= 4)
  1688. {
  1689. if (headVal == NULL)
  1690. headVal = mIRBuilder->CreateBitCast(addr, intTy->getPointerTo());
  1691. llvm::Value* ptrVal = headVal;
  1692. if (curOffset != 0)
  1693. ptrVal = mIRBuilder->CreateConstInBoundsGEP1_32(intTy, headVal, curOffset / 4);
  1694. mIRBuilder->CreateStore(constVal, ptrVal, isVolatile);
  1695. curOffset += 4;
  1696. sizeLeft -= 4;
  1697. }
  1698. }
  1699. if (sizeLeft >= 2)
  1700. {
  1701. headVal = NULL;
  1702. auto intTy = llvm::Type::getInt16Ty(*mLLVMContext);
  1703. auto constVal = llvm::ConstantInt::get(intTy, ((int)setVal << 8) | ((int)setVal));
  1704. while (sizeLeft >= 2)
  1705. {
  1706. if (headVal == NULL)
  1707. headVal = mIRBuilder->CreateBitCast(addr, intTy->getPointerTo());
  1708. llvm::Value* ptrVal = headVal;
  1709. if (curOffset != 0)
  1710. ptrVal = mIRBuilder->CreateConstInBoundsGEP1_32(intTy, headVal, curOffset / 2);
  1711. mIRBuilder->CreateStore(constVal, ptrVal, isVolatile);
  1712. curOffset += 2;
  1713. sizeLeft -= 2;
  1714. }
  1715. }
  1716. if (sizeLeft >= 1)
  1717. {
  1718. headVal = NULL;
  1719. auto intTy = llvm::Type::getInt8Ty(*mLLVMContext);
  1720. auto constVal = llvm::ConstantInt::get(intTy, ((int)setVal));
  1721. while (sizeLeft >= 1)
  1722. {
  1723. if (headVal == NULL)
  1724. headVal = mIRBuilder->CreateBitCast(addr, intTy->getPointerTo());
  1725. llvm::Value* ptrVal = headVal;
  1726. if (curOffset != 0)
  1727. ptrVal = mIRBuilder->CreateConstInBoundsGEP1_32(intTy, headVal, curOffset / 1);
  1728. mIRBuilder->CreateStore(constVal, ptrVal, isVolatile);
  1729. curOffset += 1;
  1730. sizeLeft -= 1;
  1731. }
  1732. }
  1733. return;
  1734. }
  1735. }
  1736. mIRBuilder->CreateMemSet(addr, val, size, llvm::MaybeAlign(alignment), isVolatile);
  1737. }
  1738. void BfIRCodeGen::InitTarget()
  1739. {
  1740. llvm::SMDiagnostic Err;
  1741. llvm::Triple theTriple = llvm::Triple(mLLVMModule->getTargetTriple());
  1742. llvm::CodeGenOptLevel optLvl = llvm::CodeGenOptLevel::None;
  1743. String cpuName = mTargetCPU;
  1744. String arch = "";
  1745. // Get the target specific parser.
  1746. std::string Error;
  1747. const llvm::Target *theTarget = llvm::TargetRegistry::lookupTarget(arch.c_str(), theTriple, Error);
  1748. if (!theTarget)
  1749. {
  1750. Fail(StrFormat("Failed to create LLVM Target: %s", Error.c_str()));
  1751. return;
  1752. }
  1753. llvm::TargetOptions Options = llvm::TargetOptions(); // InitTargetOptionsFromCodeGenFlags();
  1754. String featuresStr;
  1755. if (mCodeGenOptions.mOptLevel == BfOptLevel_O1)
  1756. {
  1757. //optLvl = CodeGenOpt::Less;
  1758. }
  1759. else if (mCodeGenOptions.mOptLevel == BfOptLevel_O2)
  1760. optLvl = llvm::CodeGenOptLevel::Default;
  1761. else if (mCodeGenOptions.mOptLevel == BfOptLevel_O3)
  1762. optLvl = llvm::CodeGenOptLevel::Aggressive;
  1763. if (theTriple.isWasm())
  1764. featuresStr = "+atomics,+bulk-memory,+mutable-globals,+sign-ext";
  1765. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE)
  1766. featuresStr = "+sse";
  1767. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE2)
  1768. featuresStr = "+sse2";
  1769. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE3)
  1770. featuresStr = "+sse3";
  1771. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE4)
  1772. featuresStr = "+sse4";
  1773. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE41)
  1774. featuresStr = "+sse4.1";
  1775. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_SSE42)
  1776. featuresStr = "+sse4.2";
  1777. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_AVX)
  1778. featuresStr = "+avx";
  1779. else if (mCodeGenOptions.mSIMDSetting == BfSIMDSetting_AVX2)
  1780. featuresStr = "+avx2";
  1781. std::optional<llvm::Reloc::Model> relocModel;
  1782. llvm::CodeModel::Model cmModel = llvm::CodeModel::Small;
  1783. switch (mCodeGenOptions.mRelocType)
  1784. {
  1785. case BfRelocType_Static:
  1786. relocModel = llvm::Reloc::Model::DynamicNoPIC;
  1787. break;
  1788. case BfRelocType_PIC:
  1789. relocModel = llvm::Reloc::Model::PIC_;
  1790. break;
  1791. case BfRelocType_DynamicNoPIC:
  1792. relocModel = llvm::Reloc::Model::DynamicNoPIC;
  1793. break;
  1794. case BfRelocType_ROPI:
  1795. relocModel = llvm::Reloc::Model::ROPI;
  1796. break;
  1797. case BfRelocType_RWPI:
  1798. relocModel = llvm::Reloc::Model::RWPI;
  1799. break;
  1800. case BfRelocType_ROPI_RWPI:
  1801. relocModel = llvm::Reloc::Model::ROPI_RWPI;
  1802. break;
  1803. default: break;
  1804. }
  1805. switch (mCodeGenOptions.mPICLevel)
  1806. {
  1807. case BfPICLevel_Not:
  1808. mLLVMModule->setPICLevel(llvm::PICLevel::Level::NotPIC);
  1809. break;
  1810. case BfPICLevel_Small:
  1811. mLLVMModule->setPICLevel(llvm::PICLevel::Level::SmallPIC);
  1812. break;
  1813. case BfPICLevel_Big:
  1814. mLLVMModule->setPICLevel(llvm::PICLevel::Level::BigPIC);
  1815. break;
  1816. default: break;
  1817. }
  1818. mLLVMTargetMachine =
  1819. theTarget->createTargetMachine(theTriple.getTriple(), cpuName.c_str(), featuresStr.c_str(),
  1820. Options, relocModel, cmModel, optLvl);
  1821. mLLVMModule->setDataLayout(mLLVMTargetMachine->createDataLayout());
  1822. }
  1823. void BfIRCodeGen::HandleNextCmd()
  1824. {
  1825. if (mFailed)
  1826. return;
  1827. int curId = mCmdCount;
  1828. BfIRCmd cmd = (BfIRCmd)mStream->Read();
  1829. mCmdCount++;
  1830. switch (cmd)
  1831. {
  1832. case BfIRCmd_Module_Start:
  1833. {
  1834. CMD_PARAM(String, moduleName);
  1835. CMD_PARAM(int, ptrSize);
  1836. CMD_PARAM(bool, isOptimized);
  1837. BF_ASSERT(mLLVMModule == NULL);
  1838. mModuleName = moduleName;
  1839. mPtrSize = ptrSize;
  1840. mIsOptimized = isOptimized;
  1841. mLLVMModule = new llvm::Module(moduleName.c_str(), *mLLVMContext);
  1842. mLLVMModule->setIsNewDbgInfoFormat(false);
  1843. mIRBuilder = new llvm::IRBuilder<>(*mLLVMContext);
  1844. //OutputDebugStrF("-------- Starting Module %s --------\n", moduleName.c_str());
  1845. }
  1846. break;
  1847. case BfIRCmd_Module_SetTargetTriple:
  1848. {
  1849. CMD_PARAM(String, targetTriple);
  1850. CMD_PARAM(String, targetCPU);
  1851. mTargetTriple.Set(targetTriple);
  1852. mTargetCPU = targetCPU;
  1853. if (targetTriple.IsEmpty())
  1854. mLLVMModule->setTargetTriple(llvm::sys::getDefaultTargetTriple());
  1855. else
  1856. mLLVMModule->setTargetTriple(targetTriple.c_str());
  1857. InitTarget();
  1858. }
  1859. break;
  1860. case BfIRCmd_Module_AddModuleFlag:
  1861. {
  1862. CMD_PARAM(String, flag);
  1863. CMD_PARAM(int, val);
  1864. mLLVMModule->addModuleFlag(llvm::Module::Warning, flag.c_str(), val);
  1865. if (flag == "CodeView")
  1866. mIsCodeView = true;
  1867. }
  1868. break;
  1869. case BfIRCmd_WriteIR:
  1870. {
  1871. CMD_PARAM(String, fileName);
  1872. std::error_code ec;
  1873. llvm::raw_fd_ostream outStream(fileName.c_str(), ec, llvm::sys::fs::OpenFlags::OF_Text);
  1874. if (ec)
  1875. {
  1876. Fail("Failed writing IR '" + fileName + "': " + ec.message());
  1877. }
  1878. else
  1879. mLLVMModule->print(outStream, NULL);
  1880. }
  1881. break;
  1882. case BfIRCmd_Abort:
  1883. Fail("Stream aborted");
  1884. break;
  1885. case BfIRCmd_SetType:
  1886. {
  1887. CMD_PARAM(int, typeId);
  1888. CMD_PARAM(BfIRTypeEx*, type);
  1889. //llvm::Type* type;
  1890. //llvm::Type* elementType;
  1891. auto& typeEntry = GetTypeEntry(typeId);
  1892. typeEntry.mType = type;
  1893. if (typeEntry.mInstType == NULL)
  1894. typeEntry.mInstType = type;
  1895. mTypeToTypeIdMap[type] = typeId;
  1896. }
  1897. break;
  1898. case BfIRCmd_SetInstType:
  1899. {
  1900. CMD_PARAM(int, typeId);
  1901. CMD_PARAM(BfIRTypeEx*, type);
  1902. GetTypeEntry(typeId).mInstType = type;
  1903. }
  1904. break;
  1905. case BfIRCmd_PrimitiveType:
  1906. {
  1907. BfTypeCode typeCode = (BfTypeCode)mStream->Read();
  1908. bool isSigned;
  1909. SetResult(curId, GetLLVMType(typeCode, isSigned));
  1910. }
  1911. break;
  1912. case BfIRCmd_CreateAnonymousStruct:
  1913. {
  1914. CMD_PARAM(CmdParamVec<BfIRTypeEx*>, members);
  1915. CmdParamVec<llvm::Type*> llvmMembers;
  1916. for (auto& memberType : members)
  1917. llvmMembers.push_back(memberType->mLLVMType);
  1918. auto structType = llvm::StructType::get(*mLLVMContext, llvmMembers);
  1919. auto typeEx = CreateTypeEx(structType);
  1920. for (auto& memberType : members)
  1921. {
  1922. BF_ASSERT(memberType != NULL);
  1923. typeEx->mMembers.Add(memberType);
  1924. }
  1925. SetResult(curId, typeEx);
  1926. }
  1927. break;
  1928. case BfIRCmd_CreateStruct:
  1929. {
  1930. CMD_PARAM(String, typeName);
  1931. auto structType = llvm::StructType::create(*mLLVMContext, typeName.c_str());
  1932. auto typeEx = CreateTypeEx(structType);
  1933. SetResult(curId, typeEx);
  1934. }
  1935. break;
  1936. case BfIRCmd_StructSetBody:
  1937. {
  1938. BfIRTypeEx* typeEx = NULL;
  1939. BfIRTypeEntry* typeEntry = NULL;
  1940. Read(typeEx, &typeEntry);
  1941. CMD_PARAM(CmdParamVec<BfIRTypeEx*>, members);
  1942. CMD_PARAM(int, instSize);
  1943. CMD_PARAM(int, instAlign);
  1944. CMD_PARAM(bool, isPacked);
  1945. typeEx->mMembers.clear();
  1946. auto type = typeEx->mLLVMType;
  1947. CmdParamVec<llvm::Type*> llvmMembers;
  1948. for (auto& memberType : members)
  1949. {
  1950. BF_ASSERT(memberType != NULL);
  1951. typeEx->mMembers.Add(memberType);
  1952. llvmMembers.push_back(memberType->mLLVMType);
  1953. }
  1954. BF_ASSERT(llvm::isa<llvm::StructType>(type));
  1955. auto structType = (llvm::StructType*)type;
  1956. if (structType->isOpaque())
  1957. structType->setBody(llvmMembers, isPacked);
  1958. if (typeEntry != NULL)
  1959. {
  1960. typeEntry->mSize = instSize;
  1961. typeEntry->mAlign = instAlign;
  1962. }
  1963. }
  1964. break;
  1965. case BfIRCmd_Type:
  1966. {
  1967. CMD_PARAM(BfIRTypeEntry*, typeEntry);
  1968. auto type = typeEntry->mType;
  1969. SetResult(curId, type);
  1970. }
  1971. break;
  1972. case BfIRCmd_TypeInst:
  1973. {
  1974. CMD_PARAM(BfIRTypeEntry*, typeEntry);
  1975. SetResult(curId, typeEntry->mInstType);
  1976. }
  1977. break;
  1978. case BfIRCmd_TypeInstPtr:
  1979. {
  1980. CMD_PARAM(BfIRTypeEntry*, typeEntry);
  1981. SetResult(curId, GetPointerTypeEx(typeEntry->mInstType));
  1982. }
  1983. break;
  1984. case BfIRCmd_GetType:
  1985. {
  1986. CMD_PARAM(BfIRTypedValue, typedValue);
  1987. BF_ASSERT(typedValue.mTypeEx != NULL);
  1988. SetResult(curId, typedValue.mTypeEx);
  1989. }
  1990. break;
  1991. case BfIRCmd_GetPointerToFuncType:
  1992. {
  1993. BfIRTypeEx* funcType = NULL;
  1994. ReadFunctionType(funcType);
  1995. SetResult(curId, GetPointerTypeEx(funcType));
  1996. }
  1997. break;
  1998. case BfIRCmd_GetPointerToType:
  1999. {
  2000. CMD_PARAM(BfIRTypeEx*, type);
  2001. SetResult(curId, GetPointerTypeEx(type));
  2002. }
  2003. break;
  2004. case BfIRCmd_GetSizedArrayType:
  2005. {
  2006. BfIRTypeEx* elementType = NULL;
  2007. BfIRTypeEntry* elementTypeEntry = NULL;
  2008. Read(elementType, &elementTypeEntry);
  2009. auto typeEx = new BfIRTypeEx();
  2010. typeEx->mMembers.Add(elementType);
  2011. mIRTypeExs.Add(typeEx);
  2012. CMD_PARAM(int, length);
  2013. if (elementTypeEntry != NULL)
  2014. typeEx->mLLVMType = llvm::ArrayType::get(GetSizeAlignedType(elementTypeEntry)->mLLVMType, length);
  2015. else
  2016. typeEx->mLLVMType = llvm::ArrayType::get(elementType->mLLVMType, length);
  2017. SetResult(curId, typeEx);
  2018. }
  2019. break;
  2020. case BfIRCmd_GetVectorType:
  2021. {
  2022. CMD_PARAM(BfIRTypeEx*, elementType);
  2023. CMD_PARAM(int, length);
  2024. auto llvmType = elementType->mLLVMType;
  2025. if (llvmType->getScalarSizeInBits() == 1)
  2026. {
  2027. llvmType = llvm::Type::getInt8Ty(*mLLVMContext);
  2028. }
  2029. auto typeEx = new BfIRTypeEx();
  2030. mIRTypeExs.Add(typeEx);
  2031. typeEx->mLLVMType = llvm::FixedVectorType::get(llvmType, length);
  2032. typeEx->mMembers.Add(elementType);
  2033. SetResult(curId, typeEx);
  2034. }
  2035. break;
  2036. case BfIRCmd_CreateConstAgg:
  2037. {
  2038. CMD_PARAM(BfIRTypeEx*, type);
  2039. CMD_PARAM(CmdParamVec<llvm::Value*>, values)
  2040. llvm::SmallVector<llvm::Constant*, 8> copyValues;
  2041. if (auto arrayType = llvm::dyn_cast<llvm::ArrayType>(type->mLLVMType))
  2042. {
  2043. for (auto val : values)
  2044. {
  2045. auto constValue = llvm::dyn_cast<llvm::Constant>(val);
  2046. BF_ASSERT(constValue != NULL);
  2047. copyValues.push_back(constValue);
  2048. }
  2049. int fillCount = (int)(arrayType->getNumElements() - copyValues.size());
  2050. if (fillCount > 0)
  2051. {
  2052. auto lastValue = copyValues.back();
  2053. for (int i = 0; i < fillCount; i++)
  2054. copyValues.push_back(lastValue);
  2055. }
  2056. BfIRTypedValue result;
  2057. result.mTypeEx = type;
  2058. result.mValue = llvm::ConstantArray::get(arrayType, copyValues);
  2059. SetResult(curId, result);
  2060. }
  2061. else if (auto structType = llvm::dyn_cast<llvm::StructType>(type->mLLVMType))
  2062. {
  2063. FixValues(structType, values);
  2064. for (auto val : values)
  2065. {
  2066. auto constValue = llvm::dyn_cast<llvm::Constant>(val);
  2067. BF_ASSERT(constValue != NULL);
  2068. copyValues.push_back(constValue);
  2069. }
  2070. BfIRTypedValue result;
  2071. result.mTypeEx = type;
  2072. result.mValue = llvm::ConstantStruct::get(structType, copyValues);
  2073. SetResult(curId, result);
  2074. }
  2075. else
  2076. Fail("Bad type");
  2077. }
  2078. break;
  2079. case BfIRCmd_CreateConstStructZero:
  2080. {
  2081. CMD_PARAM(BfIRTypeEx*, type);
  2082. BfIRTypedValue result;
  2083. result.mTypeEx = type;
  2084. result.mValue = llvm::ConstantAggregateZero::get(type->mLLVMType);
  2085. SetResult(curId, result);
  2086. }
  2087. break;
  2088. case BfIRCmd_CreateConstString:
  2089. {
  2090. CMD_PARAM(String, str);
  2091. BfIRTypedValue result;
  2092. result.mValue = llvm::ConstantDataArray::getString(*mLLVMContext, llvm::StringRef(str.c_str(), str.length()));
  2093. result.mTypeEx = GetTypeEx(result.mValue->getType());
  2094. SetResult(curId, result);
  2095. }
  2096. break;
  2097. case BfIRCmd_ConfigConst:
  2098. {
  2099. CMD_PARAM(int, constIdx);
  2100. BfTypeCode typeCode = (BfTypeCode)mStream->Read();
  2101. if (typeCode == BfTypeCode_IntPtr)
  2102. typeCode = (mPtrSize == 4) ? BfTypeCode_Int32 : BfTypeCode_Int64;
  2103. llvm::Constant* constVal = (typeCode == BfTypeCode_Int32) ?
  2104. mConfigConsts32[constIdx] :
  2105. mConfigConsts64[constIdx];
  2106. SetResult(curId, constVal);
  2107. }
  2108. break;
  2109. case BfIRCmd_SetName:
  2110. {
  2111. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2112. CMD_PARAM(String, name);
  2113. if (!val->getType()->isVoidTy())
  2114. val->setName(name.c_str());
  2115. }
  2116. break;
  2117. case BfIRCmd_CreateUndefValue:
  2118. {
  2119. CMD_PARAM(BfIRTypeEx*, type);
  2120. BfIRTypedValue result;
  2121. result.mTypeEx = type;
  2122. result.mValue = llvm::UndefValue::get(type->mLLVMType);
  2123. SetResult(curId, result);
  2124. }
  2125. break;
  2126. case BfIRCmd_NumericCast:
  2127. {
  2128. CMD_PARAM(llvm::Value*, val);
  2129. CMD_PARAM(bool, valIsSigned);
  2130. BfTypeCode typeCode = (BfTypeCode)mStream->Read();
  2131. BfTypeCode valTypeCode = GetTypeCode(val->getType(), valIsSigned);
  2132. bool toSigned;
  2133. auto toLLVMType = GetLLVMType(typeCode, toSigned);
  2134. llvm::Value* retVal = NULL;
  2135. if (BfIRBuilder::IsIntable(typeCode))
  2136. {
  2137. // Int -> Int
  2138. if ((BfIRBuilder::IsIntable(valTypeCode)) || (valTypeCode == BfTypeCode_Boolean))
  2139. {
  2140. retVal = mIRBuilder->CreateIntCast(val, toLLVMType, toSigned && valIsSigned);
  2141. }
  2142. else // Float -> Int
  2143. {
  2144. if (BfIRBuilder::IsSigned(typeCode))
  2145. retVal = mIRBuilder->CreateFPToSI(val, toLLVMType);
  2146. else
  2147. retVal = mIRBuilder->CreateFPToUI(val, toLLVMType);
  2148. }
  2149. }
  2150. else
  2151. {
  2152. // Int -> Float
  2153. if ((BfIRBuilder::IsIntable(valTypeCode)) || (valTypeCode == BfTypeCode_Boolean))
  2154. {
  2155. if (BfIRBuilder::IsSigned(valTypeCode))
  2156. retVal = mIRBuilder->CreateSIToFP(val, toLLVMType);
  2157. else
  2158. retVal = mIRBuilder->CreateUIToFP(val, toLLVMType);
  2159. }
  2160. else // Float -> Float
  2161. {
  2162. retVal = mIRBuilder->CreateFPCast(val, toLLVMType);
  2163. }
  2164. }
  2165. SetResult(curId, retVal);
  2166. }
  2167. break;
  2168. case BfIRCmd_CmpEQ:
  2169. {
  2170. CMD_PARAM(llvm::Value*, lhs);
  2171. CMD_PARAM(llvm::Value*, rhs);
  2172. if (lhs->getType()->isFloatingPointTy())
  2173. SetResult(curId, mIRBuilder->CreateFCmpOEQ(lhs, rhs));
  2174. else
  2175. SetResult(curId, mIRBuilder->CreateICmpEQ(lhs, rhs));
  2176. }
  2177. break;
  2178. case BfIRCmd_CmpNE:
  2179. {
  2180. CMD_PARAM(llvm::Value*, lhs);
  2181. CMD_PARAM(llvm::Value*, rhs);
  2182. if (lhs->getType()->isFloatingPointTy())
  2183. SetResult(curId, mIRBuilder->CreateFCmpUNE(lhs, rhs));
  2184. else
  2185. SetResult(curId, mIRBuilder->CreateICmpNE(lhs, rhs));
  2186. }
  2187. break;
  2188. case BfIRCmd_CmpSLT:
  2189. {
  2190. CMD_PARAM(llvm::Value*, lhs);
  2191. CMD_PARAM(llvm::Value*, rhs);
  2192. if (lhs->getType()->isFloatingPointTy())
  2193. SetResult(curId, mIRBuilder->CreateFCmpOLT(lhs, rhs));
  2194. else
  2195. SetResult(curId, mIRBuilder->CreateICmpSLT(lhs, rhs));
  2196. }
  2197. break;
  2198. case BfIRCmd_CmpULT:
  2199. {
  2200. CMD_PARAM(llvm::Value*, lhs);
  2201. CMD_PARAM(llvm::Value*, rhs);
  2202. if (lhs->getType()->isFloatingPointTy())
  2203. SetResult(curId, mIRBuilder->CreateFCmpOLT(lhs, rhs));
  2204. else
  2205. SetResult(curId, mIRBuilder->CreateICmpULT(lhs, rhs));
  2206. }
  2207. break;
  2208. case BfIRCmd_CmpSLE:
  2209. {
  2210. CMD_PARAM(llvm::Value*, lhs);
  2211. CMD_PARAM(llvm::Value*, rhs);
  2212. if (lhs->getType()->isFloatingPointTy())
  2213. SetResult(curId, mIRBuilder->CreateFCmpOLE(lhs, rhs));
  2214. else
  2215. SetResult(curId, mIRBuilder->CreateICmpSLE(lhs, rhs));
  2216. }
  2217. break;
  2218. case BfIRCmd_CmpULE:
  2219. {
  2220. CMD_PARAM(llvm::Value*, lhs);
  2221. CMD_PARAM(llvm::Value*, rhs);
  2222. if (lhs->getType()->isFloatingPointTy())
  2223. SetResult(curId, mIRBuilder->CreateFCmpOLE(lhs, rhs));
  2224. else
  2225. SetResult(curId, mIRBuilder->CreateICmpULE(lhs, rhs));
  2226. }
  2227. break;
  2228. case BfIRCmd_CmpSGT:
  2229. {
  2230. CMD_PARAM(llvm::Value*, lhs);
  2231. CMD_PARAM(llvm::Value*, rhs);
  2232. if (lhs->getType()->isFloatingPointTy())
  2233. SetResult(curId, mIRBuilder->CreateFCmpOGT(lhs, rhs));
  2234. else
  2235. SetResult(curId, mIRBuilder->CreateICmpSGT(lhs, rhs));
  2236. }
  2237. break;
  2238. case BfIRCmd_CmpUGT:
  2239. {
  2240. CMD_PARAM(llvm::Value*, lhs);
  2241. CMD_PARAM(llvm::Value*, rhs);
  2242. if (lhs->getType()->isFloatingPointTy())
  2243. SetResult(curId, mIRBuilder->CreateFCmpOGT(lhs, rhs));
  2244. else
  2245. SetResult(curId, mIRBuilder->CreateICmpUGT(lhs, rhs));
  2246. }
  2247. break;
  2248. case BfIRCmd_CmpSGE:
  2249. {
  2250. CMD_PARAM(llvm::Value*, lhs);
  2251. CMD_PARAM(llvm::Value*, rhs);
  2252. if (lhs->getType()->isFloatingPointTy())
  2253. SetResult(curId, mIRBuilder->CreateFCmpOGE(lhs, rhs));
  2254. else
  2255. SetResult(curId, mIRBuilder->CreateICmpSGE(lhs, rhs));
  2256. }
  2257. break;
  2258. case BfIRCmd_CmpUGE:
  2259. {
  2260. CMD_PARAM(llvm::Value*, lhs);
  2261. CMD_PARAM(llvm::Value*, rhs);
  2262. if (lhs->getType()->isFloatingPointTy())
  2263. SetResult(curId, mIRBuilder->CreateFCmpOGE(lhs, rhs));
  2264. else
  2265. SetResult(curId, mIRBuilder->CreateICmpUGE(lhs, rhs));
  2266. }
  2267. break;
  2268. case BfIRCmd_Add:
  2269. {
  2270. CMD_PARAM(llvm::Value*, lhs);
  2271. CMD_PARAM(llvm::Value*, rhs);
  2272. CMD_PARAM(int8, overflowCheckKind);
  2273. if (lhs->getType()->isFloatingPointTy())
  2274. SetResult(curId, mIRBuilder->CreateFAdd(lhs, rhs));
  2275. else if ((overflowCheckKind & (BfOverflowCheckKind_Signed | BfOverflowCheckKind_Unsigned)) != 0)
  2276. SetResult(curId, DoCheckedIntrinsic(((overflowCheckKind & BfOverflowCheckKind_Signed) != 0) ? llvm::Intrinsic::sadd_with_overflow : llvm::Intrinsic::uadd_with_overflow,
  2277. lhs, rhs, (overflowCheckKind & BfOverflowCheckKind_Flag_UseAsm) != 0));
  2278. else
  2279. SetResult(curId, mIRBuilder->CreateAdd(lhs, rhs));
  2280. }
  2281. break;
  2282. case BfIRCmd_Sub:
  2283. {
  2284. CMD_PARAM(llvm::Value*, lhs);
  2285. CMD_PARAM(llvm::Value*, rhs);
  2286. CMD_PARAM(int8, overflowCheckKind);
  2287. if (lhs->getType()->isFloatingPointTy())
  2288. SetResult(curId, mIRBuilder->CreateFSub(lhs, rhs));
  2289. else if ((overflowCheckKind & (BfOverflowCheckKind_Signed | BfOverflowCheckKind_Unsigned)) != 0)
  2290. SetResult(curId, DoCheckedIntrinsic(((overflowCheckKind & BfOverflowCheckKind_Signed) != 0) ? llvm::Intrinsic::ssub_with_overflow : llvm::Intrinsic::usub_with_overflow,
  2291. lhs, rhs, (overflowCheckKind & BfOverflowCheckKind_Flag_UseAsm) != 0));
  2292. else
  2293. SetResult(curId, mIRBuilder->CreateSub(lhs, rhs));
  2294. }
  2295. break;
  2296. case BfIRCmd_Mul:
  2297. {
  2298. CMD_PARAM(llvm::Value*, lhs);
  2299. CMD_PARAM(llvm::Value*, rhs);
  2300. CMD_PARAM(int8, overflowCheckKind);
  2301. if (lhs->getType()->isFloatingPointTy())
  2302. SetResult(curId, mIRBuilder->CreateFMul(lhs, rhs));
  2303. else if ((overflowCheckKind & (BfOverflowCheckKind_Signed | BfOverflowCheckKind_Unsigned)) != 0)
  2304. SetResult(curId, DoCheckedIntrinsic(((overflowCheckKind & BfOverflowCheckKind_Signed) != 0) ? llvm::Intrinsic::smul_with_overflow : llvm::Intrinsic::umul_with_overflow,
  2305. lhs, rhs, (overflowCheckKind & BfOverflowCheckKind_Flag_UseAsm) != 0));
  2306. else
  2307. SetResult(curId, mIRBuilder->CreateMul(lhs, rhs));
  2308. }
  2309. break;
  2310. case BfIRCmd_SDiv:
  2311. {
  2312. CMD_PARAM(llvm::Value*, lhs);
  2313. CMD_PARAM(llvm::Value*, rhs);
  2314. if (lhs->getType()->isFloatingPointTy())
  2315. SetResult(curId, mIRBuilder->CreateFDiv(lhs, rhs));
  2316. else
  2317. SetResult(curId, mIRBuilder->CreateSDiv(lhs, rhs));
  2318. }
  2319. break;
  2320. case BfIRCmd_UDiv:
  2321. {
  2322. CMD_PARAM(llvm::Value*, lhs);
  2323. CMD_PARAM(llvm::Value*, rhs);
  2324. SetResult(curId, mIRBuilder->CreateUDiv(lhs, rhs));
  2325. }
  2326. break;
  2327. case BfIRCmd_SRem:
  2328. {
  2329. CMD_PARAM(llvm::Value*, lhs);
  2330. CMD_PARAM(llvm::Value*, rhs);
  2331. if (lhs->getType()->isFloatingPointTy())
  2332. SetResult(curId, mIRBuilder->CreateFRem(lhs, rhs));
  2333. else
  2334. SetResult(curId, mIRBuilder->CreateSRem(lhs, rhs));
  2335. }
  2336. break;
  2337. case BfIRCmd_URem:
  2338. {
  2339. CMD_PARAM(llvm::Value*, lhs);
  2340. CMD_PARAM(llvm::Value*, rhs);
  2341. SetResult(curId, mIRBuilder->CreateURem(lhs, rhs));
  2342. }
  2343. break;
  2344. case BfIRCmd_And:
  2345. {
  2346. CMD_PARAM(llvm::Value*, lhs);
  2347. CMD_PARAM(llvm::Value*, rhs);
  2348. SetResult(curId, mIRBuilder->CreateAnd(lhs, rhs));
  2349. }
  2350. break;
  2351. case BfIRCmd_Or:
  2352. {
  2353. CMD_PARAM(llvm::Value*, lhs);
  2354. CMD_PARAM(llvm::Value*, rhs);
  2355. SetResult(curId, mIRBuilder->CreateOr(lhs, rhs));
  2356. }
  2357. break;
  2358. case BfIRCmd_Xor:
  2359. {
  2360. CMD_PARAM(llvm::Value*, lhs);
  2361. CMD_PARAM(llvm::Value*, rhs);
  2362. SetResult(curId, mIRBuilder->CreateXor(lhs, rhs));
  2363. }
  2364. break;
  2365. case BfIRCmd_Shl:
  2366. {
  2367. CMD_PARAM(llvm::Value*, lhs);
  2368. CMD_PARAM(llvm::Value*, rhs);
  2369. SetResult(curId, mIRBuilder->CreateShl(lhs, rhs));
  2370. }
  2371. break;
  2372. case BfIRCmd_AShr:
  2373. {
  2374. CMD_PARAM(llvm::Value*, lhs);
  2375. CMD_PARAM(llvm::Value*, rhs);
  2376. SetResult(curId, mIRBuilder->CreateAShr(lhs, rhs));
  2377. }
  2378. break;
  2379. case BfIRCmd_LShr:
  2380. {
  2381. CMD_PARAM(llvm::Value*, lhs);
  2382. CMD_PARAM(llvm::Value*, rhs);
  2383. SetResult(curId, mIRBuilder->CreateLShr(lhs, rhs));
  2384. }
  2385. break;
  2386. case BfIRCmd_Neg:
  2387. {
  2388. CMD_PARAM(llvm::Value*, val);
  2389. if (val->getType()->isFloatingPointTy())
  2390. SetResult(curId, mIRBuilder->CreateFNeg(val));
  2391. else
  2392. SetResult(curId, mIRBuilder->CreateNeg(val));
  2393. }
  2394. break;
  2395. case BfIRCmd_Not:
  2396. {
  2397. CMD_PARAM(llvm::Value*, val);
  2398. SetResult(curId, mIRBuilder->CreateNot(val));
  2399. }
  2400. break;
  2401. case BfIRCmd_BitCast:
  2402. {
  2403. CMD_PARAM(BfIRTypedValue, val);
  2404. CMD_PARAM(BfIRTypeEx*, toType);
  2405. BfIRTypedValue result;
  2406. result.mTypeEx = toType;
  2407. auto fromType = val.mValue->getType();
  2408. if ((!fromType->isPointerTy()) || (!toType->mLLVMType->isPointerTy()))
  2409. {
  2410. if (fromType->isIntegerTy())
  2411. result.mValue = mIRBuilder->CreateIntToPtr(val.mValue, toType->mLLVMType);
  2412. else
  2413. result.mValue = mIRBuilder->CreatePtrToInt(val.mValue, toType->mLLVMType);
  2414. }
  2415. else
  2416. result.mValue = mIRBuilder->CreateBitCast(val.mValue, toType->mLLVMType);
  2417. SetResult(curId, result);
  2418. }
  2419. break;
  2420. case BfIRCmd_PtrToInt:
  2421. {
  2422. CMD_PARAM(llvm::Value*, val);
  2423. auto typeCode = (BfTypeCode)mStream->Read();
  2424. bool isSigned;
  2425. BfIRTypedValue result;
  2426. result.mTypeEx = GetTypeEx(typeCode, isSigned);
  2427. result.mValue = mIRBuilder->CreatePtrToInt(val, result.mTypeEx->mLLVMType);
  2428. SetResult(curId, result);
  2429. }
  2430. break;
  2431. case BfIRCmd_IntToPtr:
  2432. {
  2433. CMD_PARAM(llvm::Value*, val);
  2434. CMD_PARAM(BfIRTypeEx*, toType);
  2435. BfIRTypedValue result;
  2436. result.mTypeEx = toType;
  2437. result.mValue = mIRBuilder->CreateIntToPtr(val, toType->mLLVMType);
  2438. SetResult(curId, result);
  2439. }
  2440. break;
  2441. case BfIRCmd_InboundsGEP1_32:
  2442. {
  2443. CMD_PARAM(BfIRTypedValue, val);
  2444. CMD_PARAM(int, idx0);
  2445. BfIRTypedValue result;
  2446. result.mTypeEx = val.mTypeEx;
  2447. auto alignedPtr = GetAlignedPtr(val);
  2448. auto compositeType = GetTypeMember(alignedPtr.mTypeEx, 0);
  2449. result.mValue = mIRBuilder->CreateConstInBoundsGEP1_32(compositeType->mLLVMType, alignedPtr.mValue, idx0);
  2450. SetResult(curId, result);
  2451. }
  2452. break;
  2453. case BfIRCmd_InboundsGEP2_32:
  2454. {
  2455. CMD_PARAM(BfIRTypedValue, val);
  2456. CMD_PARAM(int, idx0);
  2457. CMD_PARAM(int, idx1);
  2458. auto compositeType = GetTypeMember(val.mTypeEx, 0);
  2459. int elemIdx = BF_MIN(idx1, (int)compositeType->mMembers.mSize - 1);
  2460. BfIRTypeEx* elemType = GetTypeMember(compositeType, elemIdx);
  2461. BfIRTypedValue result;
  2462. result.mValue = mIRBuilder->CreateConstInBoundsGEP2_32(compositeType->mLLVMType, val.mValue, idx0, idx1);
  2463. result.mTypeEx = GetPointerTypeEx(elemType);
  2464. SetResult(curId, result);
  2465. }
  2466. break;
  2467. case BfIRCmd_InBoundsGEP1:
  2468. {
  2469. CMD_PARAM(BfIRTypedValue, val);
  2470. CMD_PARAM(llvm::Value*, idx0);
  2471. BfIRTypedValue result;
  2472. auto alignedPtr = GetAlignedPtr(val);
  2473. auto compositeType = GetTypeMember(alignedPtr.mTypeEx, 0);
  2474. FixIndexer(idx0);
  2475. result.mValue = mIRBuilder->CreateInBoundsGEP(compositeType->mLLVMType, alignedPtr.mValue, idx0);
  2476. result.mTypeEx = val.mTypeEx;
  2477. SetResult(curId, result);
  2478. }
  2479. break;
  2480. case BfIRCmd_InBoundsGEP2:
  2481. {
  2482. CMD_PARAM(BfIRTypedValue, val);
  2483. CMD_PARAM(llvm::Value*, idx0);
  2484. CMD_PARAM(llvm::Value*, idx1);
  2485. FixIndexer(idx0);
  2486. FixIndexer(idx1);
  2487. llvm::Value* indices[2] = { idx0, idx1 };
  2488. int elemIdx = 0;
  2489. if (auto constInt = llvm::dyn_cast<llvm::ConstantInt>(idx1))
  2490. elemIdx = BF_MIN((int)constInt->getSExtValue(), (int)val.mTypeEx->mMembers.mSize - 1);
  2491. auto compositeType = GetTypeMember(val.mTypeEx, 0);
  2492. BfIRTypeEx* elemType = GetTypeMember(compositeType, elemIdx);
  2493. BfIRTypedValue result;
  2494. result.mValue = mIRBuilder->CreateInBoundsGEP(compositeType->mLLVMType, val.mValue, llvm::ArrayRef(indices));
  2495. result.mTypeEx = GetPointerTypeEx(elemType);
  2496. SetResult(curId, result);
  2497. }
  2498. break;
  2499. case BfIRCmd_IsNull:
  2500. {
  2501. CMD_PARAM(llvm::Value*, val);
  2502. SetResult(curId, mIRBuilder->CreateIsNull(val));
  2503. }
  2504. break;
  2505. case BfIRCmd_IsNotNull:
  2506. {
  2507. CMD_PARAM(llvm::Value*, val);
  2508. SetResult(curId, mIRBuilder->CreateIsNotNull(val));
  2509. }
  2510. break;
  2511. case BfIRCmd_ExtractValue:
  2512. {
  2513. CMD_PARAM(BfIRTypedValue, val);
  2514. CMD_PARAM(int, idx);
  2515. auto compositeType = val.mTypeEx;
  2516. int elemIdx = BF_MIN(idx, (int)compositeType->mMembers.mSize - 1);
  2517. auto elemType = GetTypeMember(compositeType, elemIdx);
  2518. BfIRTypedValue result;
  2519. result.mTypeEx = elemType;
  2520. result.mValue = mIRBuilder->CreateExtractValue(val.mValue, llvm::ArrayRef((unsigned)idx));
  2521. SetResult(curId, result);
  2522. }
  2523. break;
  2524. case BfIRCmd_InsertValue:
  2525. {
  2526. CMD_PARAM(BfIRTypedValue, agg);
  2527. CMD_PARAM(BfIRTypedValue, val);
  2528. CMD_PARAM(int, idx);
  2529. BfIRTypedValue result;
  2530. result.mTypeEx = agg.mTypeEx;
  2531. result.mValue = mIRBuilder->CreateInsertValue(agg.mValue, val.mValue, llvm::ArrayRef((unsigned)idx));
  2532. SetResult(curId, result);
  2533. }
  2534. break;
  2535. case BfIRCmd_Alloca:
  2536. {
  2537. CMD_PARAM(BfIRTypeEx*, type);
  2538. if (type->mLLVMType->isStructTy())
  2539. {
  2540. BF_ASSERT(!((llvm::StructType*)type->mLLVMType)->isOpaque());
  2541. }
  2542. BfIRTypedValue result;
  2543. result.mTypeEx = GetPointerTypeEx(type);
  2544. result.mValue = mIRBuilder->CreateAlloca(type->mLLVMType);
  2545. SetResult(curId, result);
  2546. }
  2547. break;
  2548. case BfIRCmd_AllocaArray:
  2549. {
  2550. CMD_PARAM(BfIRTypeEx*, type);
  2551. CMD_PARAM(llvm::Value*, arraySize);
  2552. auto origType = type;
  2553. auto typeEntry = GetTypeEntry(type);
  2554. if (typeEntry != NULL)
  2555. type = GetSizeAlignedType(typeEntry);
  2556. BfIRTypedValue typedValue;
  2557. typedValue.mTypeEx = GetPointerTypeEx(type);
  2558. if (origType != type)
  2559. {
  2560. typedValue.mValue = mIRBuilder->CreateAlloca(type->mLLVMType, arraySize);
  2561. SetResultAligned(curId, typedValue);
  2562. }
  2563. else
  2564. {
  2565. typedValue.mValue = mIRBuilder->CreateAlloca(type->mLLVMType, arraySize);
  2566. SetResult(curId, typedValue);
  2567. }
  2568. }
  2569. break;
  2570. case BfIRCmd_SetAllocaAlignment:
  2571. {
  2572. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2573. CMD_PARAM(int, alignment);
  2574. auto inst = llvm::dyn_cast<llvm::AllocaInst>(val);
  2575. inst->setAlignment(llvm::Align(alignment));
  2576. }
  2577. break;
  2578. case BfIRCmd_SetAllocaNoChkStkHint:
  2579. {
  2580. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2581. // LLVM does not support this
  2582. }
  2583. break;
  2584. case BfIRCmd_LifetimeStart:
  2585. {
  2586. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2587. SetResult(curId, mIRBuilder->CreateLifetimeStart(val));
  2588. }
  2589. break;
  2590. case BfIRCmd_LifetimeEnd:
  2591. {
  2592. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2593. SetResult(curId, mIRBuilder->CreateLifetimeEnd(val));
  2594. }
  2595. break;
  2596. case BfIRCmd_LifetimeSoftEnd:
  2597. {
  2598. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2599. }
  2600. break;
  2601. case BfIRCmd_LifetimeExtend:
  2602. {
  2603. CMD_PARAM_NOTRANS(llvm::Value*, val);
  2604. }
  2605. break;
  2606. case BfIRCmd_Load:
  2607. {
  2608. CMD_PARAM(BfIRTypedValue, typedValue);
  2609. BF_ASSERT(typedValue.mTypeEx != NULL);
  2610. CMD_PARAM(bool, isVolatile);
  2611. BfIRTypedValue result;
  2612. result.mTypeEx = GetTypeMember(typedValue.mTypeEx, 0);
  2613. result.mValue = mIRBuilder->CreateLoad(result.mTypeEx->mLLVMType, typedValue.mValue, isVolatile);
  2614. SetResult(curId, result);
  2615. }
  2616. break;
  2617. case BfIRCmd_AlignedLoad:
  2618. {
  2619. CMD_PARAM(BfIRTypedValue, typedValue);
  2620. BF_ASSERT(typedValue.mTypeEx != NULL);
  2621. CMD_PARAM(int, alignment);
  2622. CMD_PARAM(bool, isVolatile);
  2623. BfIRTypedValue result;
  2624. result.mTypeEx = GetTypeMember(typedValue.mTypeEx, 0);
  2625. result.mValue = mIRBuilder->CreateAlignedLoad(result.mTypeEx->mLLVMType, typedValue.mValue, llvm::MaybeAlign(alignment), isVolatile);
  2626. SetResult(curId, result);
  2627. }
  2628. break;
  2629. case BfIRCmd_Store:
  2630. {
  2631. CMD_PARAM(BfIRTypedValue, val);
  2632. CMD_PARAM(BfIRTypedValue, ptr);
  2633. CMD_PARAM(bool, isVolatile);
  2634. if ((!TryMemCpy(ptr, val.mValue)) &&
  2635. (!TryVectorCpy(ptr, val.mValue)))
  2636. SetResult(curId, mIRBuilder->CreateStore(val.mValue, ptr.mValue, isVolatile));
  2637. }
  2638. break;
  2639. case BfIRCmd_AlignedStore:
  2640. {
  2641. CMD_PARAM(BfIRTypedValue, val);
  2642. CMD_PARAM(BfIRTypedValue, ptr);
  2643. CMD_PARAM(int, alignment);
  2644. CMD_PARAM(bool, isVolatile);
  2645. if ((!TryMemCpy(ptr, val.mValue)) &&
  2646. (!TryVectorCpy(ptr, val.mValue)))
  2647. SetResult(curId, mIRBuilder->CreateAlignedStore(val.mValue, ptr.mValue, llvm::MaybeAlign(alignment), isVolatile));
  2648. }
  2649. break;
  2650. case BfIRCmd_MemSet:
  2651. {
  2652. CMD_PARAM(llvm::Value*, addr);
  2653. CMD_PARAM(llvm::Value*, val);
  2654. CMD_PARAM(llvm::Value*, size);
  2655. CMD_PARAM(int, alignment);
  2656. CreateMemSet(addr, val, size, alignment);
  2657. }
  2658. break;
  2659. case BfIRCmd_Fence:
  2660. {
  2661. BfIRFenceType fenceType = (BfIRFenceType)mStream->Read();
  2662. if (fenceType == BfIRFenceType_AcquireRelease)
  2663. mIRBuilder->CreateFence(llvm::AtomicOrdering::AcquireRelease);
  2664. }
  2665. break;
  2666. case BfIRCmd_StackSave:
  2667. {
  2668. //auto intrin = llvm::Intrinsic::getDeclaration(mLLVMModule, llvm::Intrinsic::stacksave);
  2669. //CreateStackSave
  2670. //auto callInst = mIRBuilder->CreateCall(intrin);
  2671. BfIRTypedValue result;
  2672. result.mValue = mIRBuilder->CreateStackSave();
  2673. result.mTypeEx = GetTypeEx(result.mValue->getType());
  2674. SetResult(curId, result);
  2675. }
  2676. break;
  2677. case BfIRCmd_StackRestore:
  2678. {
  2679. CMD_PARAM(llvm::Value*, stackVal);
  2680. //auto intrin = llvm::Intrinsic::getDeclaration(mLLVMModule, llvm::Intrinsic::stackrestore);
  2681. //auto callInst = mIRBuilder->CreateCall(intrin, llvm::SmallVector<llvm::Value*, 1> {stackVal });
  2682. auto callInst = mIRBuilder->CreateStackRestore(stackVal);
  2683. SetResult(curId, callInst);
  2684. }
  2685. break;
  2686. case BfIRCmd_GlobalVariable:
  2687. {
  2688. CMD_PARAM(BfIRTypeEx*, varType);
  2689. CMD_PARAM(bool, isConstant);
  2690. BfIRLinkageType linkageType = (BfIRLinkageType)mStream->Read();
  2691. CMD_PARAM(String, name);
  2692. CMD_PARAM(bool, isTLS);
  2693. CMD_PARAM(llvm::Constant*, initializer);
  2694. auto globalVariable = mLLVMModule->getGlobalVariable(name.c_str());
  2695. if (globalVariable == NULL)
  2696. {
  2697. globalVariable = new llvm::GlobalVariable(
  2698. *mLLVMModule,
  2699. varType->mLLVMType,
  2700. isConstant,
  2701. LLVMMapLinkageType(linkageType),
  2702. initializer,
  2703. name.c_str(), NULL, isTLS ? llvm::GlobalValue::GeneralDynamicTLSModel : llvm::GlobalValue::NotThreadLocal);
  2704. }
  2705. BfIRTypedValue result;
  2706. result.mValue = globalVariable;
  2707. result.mTypeEx = GetPointerTypeEx(varType);
  2708. SetResult(curId, result);
  2709. }
  2710. break;
  2711. case BfIRCmd_GlobalVar_SetUnnamedAddr:
  2712. {
  2713. CMD_PARAM(llvm::Value*, val);
  2714. CMD_PARAM(bool, unnamedAddr);
  2715. ((llvm::GlobalVariable*)val)->setUnnamedAddr(llvm::GlobalValue::UnnamedAddr::Global);
  2716. }
  2717. break;
  2718. case BfIRCmd_GlobalVar_SetInitializer:
  2719. {
  2720. CMD_PARAM(llvm::Value*, val);
  2721. CMD_PARAM(llvm::Constant*, initializer);
  2722. ((llvm::GlobalVariable*)val)->setInitializer(initializer);
  2723. }
  2724. break;
  2725. case BfIRCmd_GlobalVar_SetAlignment:
  2726. {
  2727. CMD_PARAM(llvm::Value*, val);
  2728. CMD_PARAM(int, alignment);
  2729. ((llvm::GlobalVariable*)val)->setAlignment(llvm::Align(alignment));
  2730. }
  2731. break;
  2732. case BfIRCmd_GlobalVar_SetStorageKind:
  2733. {
  2734. CMD_PARAM(llvm::Value*, val);
  2735. CMD_PARAM(int, storageKind);
  2736. ((llvm::GlobalVariable*)val)->setDLLStorageClass((llvm::GlobalValue::DLLStorageClassTypes)storageKind);
  2737. }
  2738. break;
  2739. case BfIRCmd_GlobalStringPtr:
  2740. {
  2741. CMD_PARAM(String, str);
  2742. BfIRTypedValue result;
  2743. result.mValue = mIRBuilder->CreateGlobalStringPtr(llvm::StringRef(str.c_str(), str.length()));
  2744. result.mTypeEx = GetTypeEx(result.mValue->getType());
  2745. SetResult(curId, result);
  2746. }
  2747. break;
  2748. case BfIRCmd_SetReflectTypeData:
  2749. {
  2750. CMD_PARAM(BfIRTypeEx*, type);
  2751. CMD_PARAM(BfIRTypedValue, value);
  2752. mReflectDataMap[type] = value;
  2753. }
  2754. break;
  2755. case BfIRCmd_CreateBlock:
  2756. {
  2757. CMD_PARAM(String, name);
  2758. CMD_PARAM(bool, addNow);
  2759. auto block = llvm::BasicBlock::Create(*mLLVMContext, name.c_str());
  2760. if (addNow)
  2761. mActiveFunction->insert(mActiveFunction->end(), block);
  2762. SetResult(curId, block);
  2763. }
  2764. break;
  2765. case BfIRCmd_MaybeChainNewBlock:
  2766. {
  2767. CMD_PARAM(String, name);
  2768. auto newBlock = mIRBuilder->GetInsertBlock();
  2769. if (!newBlock->empty())
  2770. {
  2771. auto bb = llvm::BasicBlock::Create(*mLLVMContext, name.c_str());
  2772. mIRBuilder->CreateBr(bb);
  2773. mActiveFunction->insert(mActiveFunction->end(), bb);
  2774. mIRBuilder->SetInsertPoint(bb);
  2775. newBlock = bb;
  2776. }
  2777. SetResult(curId, newBlock);
  2778. }
  2779. break;
  2780. case BfIRCmd_AddBlock:
  2781. {
  2782. CMD_PARAM(llvm::BasicBlock*, block);
  2783. mActiveFunction->insert(mActiveFunction->end(), block);
  2784. }
  2785. break;
  2786. case BfIRCmd_DropBlocks:
  2787. {
  2788. //TODO: Not even needed
  2789. // CMD_PARAM(llvm::BasicBlock*, startingBlock);
  2790. // auto& basicBlockList = mActiveFunction->getBasicBlockList();
  2791. // int postExitBlockIdx = -1;
  2792. //
  2793. // auto itr = basicBlockList.rbegin();
  2794. // int blockIdx = (int)basicBlockList.size() - 1;
  2795. // while (itr != basicBlockList.rend())
  2796. // {
  2797. // auto& block = *itr++;
  2798. // block.dropAllReferences();
  2799. // if (&block == startingBlock)
  2800. // {
  2801. // postExitBlockIdx = blockIdx;
  2802. // break;
  2803. // }
  2804. // blockIdx--;
  2805. // }
  2806. //
  2807. // while ((int)basicBlockList.size() > postExitBlockIdx)
  2808. // {
  2809. // auto& block = basicBlockList.back();
  2810. // block.eraseFromParent();
  2811. // }
  2812. }
  2813. break;
  2814. case BfIRCmd_MergeBlockDown:
  2815. {
  2816. CMD_PARAM(llvm::BasicBlock*, fromBlock);
  2817. CMD_PARAM(llvm::BasicBlock*, intoBlock);
  2818. //llvm::BasicBlock::InstListType& fromInstList = fromBlock->getInstList();
  2819. //llvm::BasicBlock::InstListType& intoInstList = intoBlock->getInstList();
  2820. //intoInstList.splice(intoInstList.begin(), fromInstList, fromInstList.begin(), fromInstList.end());
  2821. intoBlock->splice(intoBlock->begin(), fromBlock);
  2822. fromBlock->eraseFromParent();
  2823. }
  2824. break;
  2825. case BfIRCmd_GetInsertBlock:
  2826. {
  2827. SetResult(curId, mIRBuilder->GetInsertBlock());
  2828. }
  2829. break;
  2830. case BfIRCmd_SetInsertPoint:
  2831. {
  2832. CMD_PARAM(llvm::BasicBlock*, block);
  2833. if (mLockedBlocks.Contains(block))
  2834. Fail("Attempt to modify locked block");
  2835. mIRBuilder->SetInsertPoint(block);
  2836. }
  2837. break;
  2838. case BfIRCmd_SetInsertPointAtStart:
  2839. {
  2840. CMD_PARAM(llvm::BasicBlock*, block);
  2841. auto itr = block->begin();
  2842. if (itr != block->end())
  2843. {
  2844. // Some instructructions MUST be at start of the block
  2845. auto instType = itr->getType();
  2846. if (llvm::PHINode::classof(&*itr))
  2847. ++itr;
  2848. }
  2849. mIRBuilder->SetInsertPoint(block, itr);
  2850. // SetInsertPoint can clear the debug loc so reset it here
  2851. mIRBuilder->SetCurrentDebugLocation(mDebugLoc);
  2852. }
  2853. break;
  2854. case BfIRCmd_EraseFromParent:
  2855. {
  2856. CMD_PARAM(llvm::BasicBlock*, block);
  2857. block->eraseFromParent();
  2858. }
  2859. break;
  2860. case BfIRCmd_DeleteBlock:
  2861. {
  2862. CMD_PARAM(llvm::BasicBlock*, block);
  2863. delete block;
  2864. }
  2865. break;
  2866. case BfIRCmd_EraseInstFromParent:
  2867. {
  2868. CMD_PARAM(llvm::Value*, instVal);
  2869. BF_ASSERT(llvm::isa<llvm::Instruction>(instVal));
  2870. ((llvm::Instruction*)instVal)->eraseFromParent();
  2871. }
  2872. break;
  2873. case BfIRCmd_CreateBr:
  2874. case BfIRCmd_CreateBr_NoCollapse:
  2875. {
  2876. CMD_PARAM(llvm::BasicBlock*, block);
  2877. mIRBuilder->CreateBr(block);
  2878. }
  2879. break;
  2880. case BfIRCmd_CreateBr_Fake:
  2881. {
  2882. CMD_PARAM(llvm::BasicBlock*, block);
  2883. // Do nothing
  2884. }
  2885. break;
  2886. case BfIRCmd_CreateCondBr:
  2887. {
  2888. CMD_PARAM(llvm::Value*, condVal);
  2889. CMD_PARAM(llvm::BasicBlock*, trueBlock);
  2890. CMD_PARAM(llvm::BasicBlock*, falseBlock);
  2891. mIRBuilder->CreateCondBr(condVal, trueBlock, falseBlock);
  2892. }
  2893. break;
  2894. case BfIRCmd_MoveBlockToEnd:
  2895. {
  2896. CMD_PARAM(llvm::BasicBlock*, block);
  2897. block->moveAfter(&block->getParent()->back());
  2898. }
  2899. break;
  2900. case BfIRCmd_CreateSwitch:
  2901. {
  2902. CMD_PARAM(llvm::Value*, val);
  2903. CMD_PARAM(llvm::BasicBlock*, dest);
  2904. CMD_PARAM(int, numCases);
  2905. SetResult(curId, mIRBuilder->CreateSwitch(val, dest, numCases));
  2906. }
  2907. break;
  2908. case BfIRCmd_AddSwitchCase:
  2909. {
  2910. CMD_PARAM(llvm::Value*, switchVal);
  2911. CMD_PARAM(llvm::Value*, caseVal);
  2912. CMD_PARAM(llvm::BasicBlock*, caseBlock);
  2913. BF_ASSERT(llvm::isa<llvm::SwitchInst>(switchVal));
  2914. BF_ASSERT(llvm::isa<llvm::ConstantInt>(caseVal));
  2915. ((llvm::SwitchInst*)switchVal)->addCase((llvm::ConstantInt*)caseVal, caseBlock);
  2916. }
  2917. break;
  2918. case BfIRCmd_SetSwitchDefaultDest:
  2919. {
  2920. CMD_PARAM(llvm::Value*, switchVal);
  2921. CMD_PARAM(llvm::BasicBlock*, caseBlock);
  2922. ((llvm::SwitchInst*)switchVal)->setDefaultDest(caseBlock);
  2923. }
  2924. break;
  2925. case BfIRCmd_CreatePhi:
  2926. {
  2927. CMD_PARAM(BfIRTypeEx*, type);
  2928. CMD_PARAM(int, incomingCount);
  2929. BfIRTypedValue result;
  2930. result.mTypeEx = type;
  2931. result.mValue = mIRBuilder->CreatePHI(type->mLLVMType, incomingCount);
  2932. SetResult(curId, result);
  2933. }
  2934. break;
  2935. case BfIRCmd_AddPhiIncoming:
  2936. {
  2937. CMD_PARAM(llvm::Value*, phiValue);
  2938. CMD_PARAM(llvm::Value*, value);
  2939. CMD_PARAM(llvm::BasicBlock*, comingFrom);
  2940. BF_ASSERT(llvm::isa<llvm::PHINode>(phiValue));
  2941. ((llvm::PHINode*)phiValue)->addIncoming(value, comingFrom);
  2942. }
  2943. break;
  2944. case BfIRCmd_GetIntrinsic:
  2945. {
  2946. CMD_PARAM(String, intrinName);
  2947. CMD_PARAM(int, intrinId);
  2948. CMD_PARAM(BfIRTypeEx*, returnType);
  2949. CMD_PARAM(CmdParamVec<BfIRTypeEx*>, paramTypes);
  2950. llvm::Function* func = NULL;
  2951. struct _Intrinsics
  2952. {
  2953. llvm::Intrinsic::ID mID;
  2954. int mArg0;
  2955. int mArg1;
  2956. int mArg2;
  2957. };
  2958. static _Intrinsics intrinsics[] =
  2959. {
  2960. { (llvm::Intrinsic::ID)-1, -1}, // PLATFORM,
  2961. { llvm::Intrinsic::fabs, 0, -1},
  2962. { (llvm::Intrinsic::ID)-2, -1}, // add,
  2963. { (llvm::Intrinsic::ID)-2, -1}, // and,
  2964. { (llvm::Intrinsic::ID)-2, -1}, // AtomicAdd,
  2965. { (llvm::Intrinsic::ID)-2, -1}, // AtomicAnd,
  2966. { (llvm::Intrinsic::ID)-2, -1}, // AtomicCmpStore,
  2967. { (llvm::Intrinsic::ID)-2, -1}, // AtomicCmpStore_Weak,
  2968. { (llvm::Intrinsic::ID)-2, -1}, // AtomicCmpXChg,
  2969. { (llvm::Intrinsic::ID)-2, -1}, // AtomicFence,
  2970. { (llvm::Intrinsic::ID)-2, -1}, // AtomicLoad,
  2971. { (llvm::Intrinsic::ID)-2, -1}, // AtomicMax,
  2972. { (llvm::Intrinsic::ID)-2, -1}, // AtomicMin,
  2973. { (llvm::Intrinsic::ID)-2, -1}, // AtomicNAnd,
  2974. { (llvm::Intrinsic::ID)-2, -1}, // AtomicOr,
  2975. { (llvm::Intrinsic::ID)-2, -1}, // AtomicStore,
  2976. { (llvm::Intrinsic::ID)-2, -1}, // AtomicSub,
  2977. { (llvm::Intrinsic::ID)-2, -1}, // AtomicUMax,
  2978. { (llvm::Intrinsic::ID)-2, -1}, // AtomicUMin,
  2979. { (llvm::Intrinsic::ID)-2, -1}, // AtomicXChg,
  2980. { (llvm::Intrinsic::ID)-2, -1}, // AtomicXor,
  2981. { llvm::Intrinsic::bswap, -1},
  2982. { (llvm::Intrinsic::ID)-2, -1}, // cast,
  2983. { llvm::Intrinsic::cos, 0, -1},
  2984. { (llvm::Intrinsic::ID)-2, -1}, // cpuid
  2985. { llvm::Intrinsic::debugtrap, -1}, // debugtrap,
  2986. { (llvm::Intrinsic::ID)-2, -1}, // div
  2987. { (llvm::Intrinsic::ID)-2, -1}, // eq
  2988. { llvm::Intrinsic::floor, 0, -1},
  2989. { (llvm::Intrinsic::ID)-2, -1}, // free
  2990. { (llvm::Intrinsic::ID)-2, -1}, // gt
  2991. { (llvm::Intrinsic::ID)-2, -1}, // gte
  2992. { (llvm::Intrinsic::ID)-2, -1}, // index
  2993. { llvm::Intrinsic::log, 0, -1},
  2994. { llvm::Intrinsic::log10, 0, -1},
  2995. { llvm::Intrinsic::log2, 0, -1},
  2996. { (llvm::Intrinsic::ID)-2, -1}, // lt
  2997. { (llvm::Intrinsic::ID)-2, -1}, // lte
  2998. { (llvm::Intrinsic::ID)-2}, // malloc
  2999. { (llvm::Intrinsic::ID)-2, -1}, // max
  3000. { llvm::Intrinsic::memcpy, 0, 1, 2},
  3001. { llvm::Intrinsic::memmove, 0, 2},
  3002. { llvm::Intrinsic::memset, 0, 2},
  3003. { (llvm::Intrinsic::ID)-2, -1}, // min
  3004. { (llvm::Intrinsic::ID)-2, -1}, // mod
  3005. { (llvm::Intrinsic::ID)-2, -1}, // mul
  3006. { (llvm::Intrinsic::ID)-2, -1}, // neq
  3007. { (llvm::Intrinsic::ID)-2, -1}, // not
  3008. { (llvm::Intrinsic::ID)-2, -1}, // or
  3009. { llvm::Intrinsic::pow, 0, -1},
  3010. { llvm::Intrinsic::powi, 0, -1},
  3011. { llvm::Intrinsic::returnaddress, -1},
  3012. { llvm::Intrinsic::round, 0, -1},
  3013. { (llvm::Intrinsic::ID)-2, -1}, // sar
  3014. { (llvm::Intrinsic::ID)-2, -1}, // shl
  3015. { (llvm::Intrinsic::ID)-2, -1}, // shr
  3016. { (llvm::Intrinsic::ID)-2, -1}, // shuffle
  3017. { llvm::Intrinsic::sin, 0, -1},
  3018. { llvm::Intrinsic::sqrt, 0, -1},
  3019. { (llvm::Intrinsic::ID)-2, -1}, // sub,
  3020. { (llvm::Intrinsic::ID)-2, 0, 1, 2}, // va_arg,
  3021. { llvm::Intrinsic::vaend, 0, -1}, // va_end,
  3022. { llvm::Intrinsic::vastart, 0, -1}, // va_start,
  3023. { (llvm::Intrinsic::ID)-2, -1}, // xgetbv
  3024. { (llvm::Intrinsic::ID)-2, -1}, // xor
  3025. };
  3026. BF_STATIC_ASSERT(BF_ARRAY_COUNT(intrinsics) == BfIRIntrinsic_COUNT);
  3027. CmdParamVec<llvm::Type*> useParams;
  3028. if (intrinsics[intrinId].mArg0 != -1)
  3029. {
  3030. useParams.push_back(paramTypes[0]->mLLVMType);
  3031. if (intrinsics[intrinId].mArg1 != -1)
  3032. {
  3033. useParams.push_back(paramTypes[1]->mLLVMType);
  3034. if (intrinsics[intrinId].mArg2 != -1)
  3035. {
  3036. useParams.push_back(paramTypes[2]->mLLVMType);
  3037. }
  3038. }
  3039. }
  3040. bool isFakeIntrinsic = (int)intrinsics[intrinId].mID == -2;
  3041. if (isFakeIntrinsic)
  3042. {
  3043. auto intrinsicData = mIntrinsicData.Alloc();
  3044. intrinsicData->mName = intrinName;
  3045. intrinsicData->mIntrinsic = (BfIRIntrinsic)intrinId;
  3046. intrinsicData->mReturnType = returnType;
  3047. BfIRCodeGenEntry entry;
  3048. entry.mKind = BfIRCodeGenEntryKind_IntrinsicData;
  3049. entry.mIntrinsicData = intrinsicData;
  3050. mResults.TryAdd(curId, entry);
  3051. break;
  3052. }
  3053. if (intrinId == BfIRIntrinsic__PLATFORM)
  3054. {
  3055. int colonPos = (int)intrinName.IndexOf(':');
  3056. String platName = intrinName.Substring(0, colonPos);
  3057. String platIntrinName = intrinName.Substring(colonPos + 1);
  3058. if (platName.IsEmpty())
  3059. {
  3060. auto intrinsicData = mIntrinsicData.Alloc();
  3061. intrinsicData->mName = platIntrinName;
  3062. intrinsicData->mIntrinsic = BfIRIntrinsic__PLATFORM;
  3063. intrinsicData->mReturnType = returnType;
  3064. BfIRCodeGenEntry entry;
  3065. entry.mKind = BfIRCodeGenEntryKind_IntrinsicData;
  3066. entry.mIntrinsicData = intrinsicData;
  3067. mResults.TryAdd(curId, entry);
  3068. break;
  3069. }
  3070. llvm::Intrinsic::ID intrin = llvm::Intrinsic::getIntrinsicForClangBuiltin(platName.c_str(), platIntrinName.c_str());
  3071. if ((int)intrin <= 0)
  3072. FatalError(StrFormat("Unable to find intrinsic '%s'", intrinName.c_str()));
  3073. else
  3074. func = llvm::Intrinsic::getDeclaration(mLLVMModule, intrinsics[intrinId].mID, useParams);
  3075. }
  3076. else
  3077. {
  3078. BF_ASSERT(intrinsics[intrinId].mID != (llvm::Intrinsic::ID)-1);
  3079. func = llvm::Intrinsic::getDeclaration(mLLVMModule, intrinsics[intrinId].mID, useParams);
  3080. }
  3081. mIntrinsicReverseMap[func] = intrinId;
  3082. auto funcTypeEx = CreateTypeEx(func->getFunctionType());
  3083. funcTypeEx->mMembers.Add(returnType);
  3084. for (auto typeEx : paramTypes)
  3085. funcTypeEx->mMembers.Add(typeEx);
  3086. BfIRTypedValue result;
  3087. result.mTypeEx = GetPointerTypeEx(funcTypeEx);
  3088. result.mValue = func;
  3089. SetResult(curId, result);
  3090. }
  3091. break;
  3092. case BfIRCmd_CreateFunctionType:
  3093. {
  3094. CMD_PARAM(BfIRTypeEx*, resultType);
  3095. CMD_PARAM(CmdParamVec<BfIRTypeEx*>, paramTypes);
  3096. CMD_PARAM(bool, isVarArg);
  3097. CmdParamVec<llvm::Type*> llvmTypes;
  3098. for (auto typeEx : paramTypes)
  3099. {
  3100. if (typeEx->mLLVMType->isPointerTy())
  3101. {
  3102. BF_ASSERT(!typeEx->mMembers.IsEmpty());
  3103. }
  3104. llvmTypes.push_back(typeEx->mLLVMType);
  3105. }
  3106. auto funcType = llvm::FunctionType::get(resultType->mLLVMType, llvmTypes, isVarArg);
  3107. auto typeEx = CreateTypeEx(funcType);
  3108. if (typeEx->mMembers.IsEmpty())
  3109. {
  3110. typeEx->mMembers.Add(resultType);
  3111. for (auto paramType : paramTypes)
  3112. typeEx->mMembers.Add(paramType);
  3113. }
  3114. SetResult(curId, typeEx);
  3115. }
  3116. break;
  3117. case BfIRCmd_CreateFunction:
  3118. {
  3119. BfIRTypeEx* type = NULL;
  3120. ReadFunctionType(type);
  3121. BfIRLinkageType linkageType = (BfIRLinkageType)mStream->Read();
  3122. CMD_PARAM(String, name);
  3123. BfIRTypedValue result;
  3124. result.mTypeEx = GetPointerTypeEx(type);
  3125. auto func = mLLVMModule->getFunction(name.c_str());
  3126. if ((func == NULL) || (func->getFunctionType() != type->mLLVMType))
  3127. func = llvm::Function::Create((llvm::FunctionType*)type->mLLVMType, LLVMMapLinkageType(linkageType), name.c_str(), mLLVMModule);
  3128. result.mValue = func;
  3129. SetResult(curId, result);
  3130. func->addFnAttr("no-trapping-math", "true");
  3131. func->addFnAttr("min-legal-vector-width", "0");
  3132. func->addFnAttr("tune-cpu", "generic");
  3133. mFunctionsUsingSimd[func] = mCodeGenOptions.mSIMDSetting;
  3134. }
  3135. break;
  3136. case BfIRCmd_SetFunctionName:
  3137. {
  3138. CMD_PARAM(llvm::Value*, func);
  3139. CMD_PARAM(String, name);
  3140. llvm::Function* llvmFunc = llvm::dyn_cast<llvm::Function>(func);
  3141. llvmFunc->setName(name.c_str());
  3142. }
  3143. break;
  3144. case BfIRCmd_EnsureFunctionPatchable:
  3145. {
  3146. int minPatchSize = 5;
  3147. int guessInstBytes = 1; // ret
  3148. guessInstBytes += mActiveFunction->getFunctionType()->getNumParams() * 4;
  3149. if (guessInstBytes < 5)
  3150. {
  3151. for (auto& block : *mActiveFunction)
  3152. {
  3153. for (auto& inst : block)
  3154. {
  3155. if (auto loadInst = llvm::dyn_cast<llvm::LoadInst>(&inst))
  3156. guessInstBytes += 2;
  3157. else if (auto storeInst = llvm::dyn_cast<llvm::StoreInst>(&inst))
  3158. guessInstBytes += 2;
  3159. else if (auto callInst = llvm::dyn_cast<llvm::CallInst>(&inst))
  3160. {
  3161. auto calledValue = callInst->getCalledOperand();
  3162. if (calledValue == mNopInlineAsm)
  3163. guessInstBytes += 1;
  3164. else if (auto func = llvm::dyn_cast<llvm::Function>(calledValue))
  3165. {
  3166. if (!func->isIntrinsic())
  3167. guessInstBytes += 4;
  3168. }
  3169. else
  3170. guessInstBytes += 4;
  3171. }
  3172. if (guessInstBytes >= minPatchSize)
  3173. break;
  3174. }
  3175. }
  3176. }
  3177. for (int i = guessInstBytes; i < minPatchSize; i++)
  3178. AddNop();
  3179. }
  3180. break;
  3181. case BfIRCmd_RemapBindFunction:
  3182. {
  3183. CMD_PARAM(BfIRTypedValue, func);
  3184. // We need to store this value to a data segment so we get a symbol we can remap during hot swap
  3185. // We actually do this to ensure that we don't bind to the NEW method but rather the old one- so
  3186. // delegate equality checks still work
  3187. llvm::Function* llvmFunc = llvm::dyn_cast<llvm::Function>(func.mValue);
  3188. if (llvmFunc != NULL)
  3189. {
  3190. // I don't know why we mixed in HSPreserveIdx - that causes bound address to change after reloading, basically totally breaking
  3191. // the whole point of this.
  3192. //String funcName = StrFormat("bf_hs_preserve@%d@%s", mModule->mCompiler->mHSPreserveIdx++, func->getName());
  3193. String funcName = StrFormat("bf_hs_preserve@%s_%s", llvmFunc->getName().data(), mLLVMModule->getName().data());
  3194. llvm::GlobalVariable* globalVariable = mLLVMModule->getGlobalVariable(funcName.c_str());
  3195. if (globalVariable == NULL)
  3196. {
  3197. globalVariable = new llvm::GlobalVariable(*mLLVMModule, llvmFunc->getType(), true, llvm::GlobalValue::ExternalLinkage, (llvm::Constant*)llvmFunc, funcName.c_str());
  3198. }
  3199. BfIRTypedValue result;
  3200. result.mTypeEx = func.mTypeEx;
  3201. result.mValue = mIRBuilder->CreateLoad(result.mTypeEx->mLLVMType, globalVariable);
  3202. SetResult(curId, result);
  3203. }
  3204. else
  3205. SetResult(curId, func);
  3206. }
  3207. break;
  3208. case BfIRCmd_SetActiveFunction:
  3209. {
  3210. BfIRTypedValue func;
  3211. ReadFunction(func);
  3212. mActiveFunction = (llvm::Function*)func.mValue;
  3213. if (mActiveFunction == NULL)
  3214. mActiveFunctionType = NULL;
  3215. else
  3216. mActiveFunctionType = GetTypeMember(func.mTypeEx, 0);
  3217. }
  3218. break;
  3219. case BfIRCmd_CreateCall:
  3220. {
  3221. BfIRTypedValue func;
  3222. BfIRCodeGenEntry* codeGenEntry = NULL;
  3223. Read(func, &codeGenEntry);
  3224. CMD_PARAM(CmdParamVec<BfIRTypedValue>, args);
  3225. if ((func.mValue == NULL) && (codeGenEntry != NULL) && (codeGenEntry->mKind == BfIRCodeGenEntryKind_IntrinsicData))
  3226. {
  3227. auto intrinsicData = codeGenEntry->mIntrinsicData;
  3228. switch (intrinsicData->mIntrinsic)
  3229. {
  3230. case BfIRIntrinsic__PLATFORM:
  3231. {
  3232. if (intrinsicData->mName == "add_string_to_section")
  3233. {
  3234. llvm::StringRef strContent[2];
  3235. llvm::ConstantDataArray* dataArray;
  3236. for (int i = 0; i < 2; i++)
  3237. {
  3238. if (const llvm::ConstantExpr* ce = llvm::dyn_cast<llvm::ConstantExpr>(args[i].mValue))
  3239. {
  3240. llvm::Value* firstOperand = ce->getOperand(0);
  3241. if (llvm::GlobalVariable* gv = llvm::dyn_cast<llvm::GlobalVariable>(firstOperand))
  3242. {
  3243. if (gv->getType()->isPointerTy())
  3244. {
  3245. if (dataArray = llvm::dyn_cast<llvm::ConstantDataArray>(gv->getInitializer()))
  3246. strContent[i] = dataArray->getAsString();
  3247. }
  3248. }
  3249. }
  3250. else
  3251. FatalError("Value is not ConstantExpr");
  3252. }
  3253. static int symbolCount = 0;
  3254. symbolCount++;
  3255. auto charType = llvm::IntegerType::get(*mLLVMContext, 8);
  3256. std::vector<llvm::Constant*> chars(strContent[0].size());
  3257. for (unsigned int i = 0; i < strContent[0].size(); i++)
  3258. {
  3259. chars[i] = llvm::ConstantInt::get(charType, strContent[0][i]);;
  3260. }
  3261. chars.push_back(llvm::ConstantInt::get(charType, 0));
  3262. auto stringType = llvm::ArrayType::get(charType, chars.size());
  3263. std::string symbolName = strContent[1].str() + "_" + std::to_string(symbolCount);
  3264. llvm::StringRef resultStringRef(symbolName);
  3265. auto globalVar = (llvm::GlobalVariable*)mLLVMModule->getOrInsertGlobal(symbolName, stringType);
  3266. globalVar->setSection(strContent[1]);
  3267. globalVar->setInitializer(llvm::ConstantArray::get(stringType, chars));
  3268. globalVar->setConstant(true);
  3269. globalVar->setLinkage(llvm::GlobalValue::LinkageTypes::ExternalLinkage);
  3270. globalVar->setUnnamedAddr(llvm::GlobalValue::UnnamedAddr::Global);
  3271. SetResult(curId, llvm::ConstantExpr::getBitCast(globalVar, charType->getPointerTo()));
  3272. break;
  3273. }
  3274. FatalError(StrFormat("Unable to find intrinsic '%s'", intrinsicData->mName.c_str()));
  3275. break;
  3276. }
  3277. case BfIRIntrinsic_Add:
  3278. case BfIRIntrinsic_And:
  3279. case BfIRIntrinsic_Div:
  3280. case BfIRIntrinsic_Eq:
  3281. case BfIRIntrinsic_Gt:
  3282. case BfIRIntrinsic_GtE:
  3283. case BfIRIntrinsic_Lt:
  3284. case BfIRIntrinsic_LtE:
  3285. case BfIRIntrinsic_Mod:
  3286. case BfIRIntrinsic_Mul:
  3287. case BfIRIntrinsic_Neq:
  3288. case BfIRIntrinsic_Or:
  3289. case BfIRIntrinsic_Sub:
  3290. case BfIRIntrinsic_Xor:
  3291. {
  3292. auto val0 = TryToVector(args[0]);
  3293. if (val0 != NULL)
  3294. {
  3295. auto vecType = llvm::dyn_cast<llvm::VectorType>(val0->getType());
  3296. auto elemType = vecType->getElementType();
  3297. bool isFP = elemType->isFloatingPointTy();
  3298. llvm::Value* val1;
  3299. if (args.size() < 2)
  3300. {
  3301. llvm::Value* val;
  3302. if (isFP)
  3303. val = llvm::ConstantFP::get(elemType, 1);
  3304. else
  3305. val = llvm::ConstantInt::get(elemType, 1);
  3306. val1 = mIRBuilder->CreateInsertElement(llvm::UndefValue::get(vecType), val, (uint64)0);
  3307. val1 = mIRBuilder->CreateInsertElement(val1, val, (uint64)1);
  3308. val1 = mIRBuilder->CreateInsertElement(val1, val, (uint64)2);
  3309. val1 = mIRBuilder->CreateInsertElement(val1, val, (uint64)3);
  3310. }
  3311. else if (args[1].mValue->getType()->isPointerTy())
  3312. {
  3313. auto ptrVal1 = mIRBuilder->CreateBitCast(args[1].mValue, vecType->getPointerTo());
  3314. val1 = mIRBuilder->CreateAlignedLoad(vecType, ptrVal1, llvm::MaybeAlign(1));
  3315. }
  3316. else if (args[1].mValue->getType()->isVectorTy())
  3317. {
  3318. val1 = args[1].mValue;
  3319. }
  3320. else
  3321. {
  3322. val1 = mIRBuilder->CreateInsertElement(llvm::UndefValue::get(vecType), args[1].mValue, (uint64)0);
  3323. val1 = mIRBuilder->CreateInsertElement(val1, args[1].mValue, (uint64)1);
  3324. val1 = mIRBuilder->CreateInsertElement(val1, args[1].mValue, (uint64)2);
  3325. val1 = mIRBuilder->CreateInsertElement(val1, args[1].mValue, (uint64)3);
  3326. }
  3327. if (isFP)
  3328. {
  3329. llvm::Value* result = NULL;
  3330. switch (intrinsicData->mIntrinsic)
  3331. {
  3332. case BfIRIntrinsic_Add:
  3333. result = mIRBuilder->CreateFAdd(val0, val1);
  3334. break;
  3335. case BfIRIntrinsic_Div:
  3336. result = mIRBuilder->CreateFDiv(val0, val1);
  3337. break;
  3338. case BfIRIntrinsic_Eq:
  3339. result = mIRBuilder->CreateFCmpOEQ(val0, val1);
  3340. break;
  3341. case BfIRIntrinsic_Gt:
  3342. result = mIRBuilder->CreateFCmpOGT(val0, val1);
  3343. break;
  3344. case BfIRIntrinsic_GtE:
  3345. result = mIRBuilder->CreateFCmpOGE(val0, val1);
  3346. break;
  3347. case BfIRIntrinsic_Lt:
  3348. result = mIRBuilder->CreateFCmpOLT(val0, val1);
  3349. break;
  3350. case BfIRIntrinsic_LtE:
  3351. result = mIRBuilder->CreateFCmpOLE(val0, val1);
  3352. break;
  3353. case BfIRIntrinsic_Mod:
  3354. result = mIRBuilder->CreateFRem(val0, val1);
  3355. break;
  3356. case BfIRIntrinsic_Mul:
  3357. result = mIRBuilder->CreateFMul(val0, val1);
  3358. break;
  3359. case BfIRIntrinsic_Neq:
  3360. result = mIRBuilder->CreateFCmpONE(val0, val1);
  3361. break;
  3362. case BfIRIntrinsic_Sub:
  3363. result = mIRBuilder->CreateFSub(val0, val1);
  3364. break;
  3365. default:
  3366. FatalError("Intrinsic argument error");
  3367. }
  3368. if (result != NULL)
  3369. {
  3370. if (auto vecType = llvm::dyn_cast<llvm::FixedVectorType>(result->getType()))
  3371. {
  3372. if (auto intType = llvm::dyn_cast<llvm::IntegerType>(vecType->getElementType()))
  3373. {
  3374. if (intType->getBitWidth() == 1)
  3375. {
  3376. auto toType = llvm::FixedVectorType::get(llvm::IntegerType::get(*mLLVMContext, 8), vecType->getNumElements());
  3377. result = mIRBuilder->CreateZExt(result, toType);
  3378. }
  3379. }
  3380. }
  3381. SetResult(curId, result);
  3382. }
  3383. }
  3384. else
  3385. {
  3386. llvm::Value* result = NULL;
  3387. switch (intrinsicData->mIntrinsic)
  3388. {
  3389. case BfIRIntrinsic_And:
  3390. result = mIRBuilder->CreateAnd(val0, val1);
  3391. break;
  3392. case BfIRIntrinsic_Add:
  3393. result = mIRBuilder->CreateAdd(val0, val1);
  3394. break;
  3395. case BfIRIntrinsic_Div:
  3396. result = mIRBuilder->CreateSDiv(val0, val1);
  3397. break;
  3398. case BfIRIntrinsic_Eq:
  3399. result = mIRBuilder->CreateICmpEQ(val0, val1);
  3400. break;
  3401. case BfIRIntrinsic_Gt:
  3402. result = mIRBuilder->CreateICmpSGT(val0, val1);
  3403. break;
  3404. case BfIRIntrinsic_GtE:
  3405. result = mIRBuilder->CreateICmpSGE(val0, val1);
  3406. break;
  3407. case BfIRIntrinsic_Lt:
  3408. result = mIRBuilder->CreateICmpSLT(val0, val1);
  3409. break;
  3410. case BfIRIntrinsic_LtE:
  3411. result = mIRBuilder->CreateICmpSLE(val0, val1);
  3412. break;
  3413. case BfIRIntrinsic_Mod:
  3414. result = mIRBuilder->CreateSRem(val0, val1);
  3415. break;
  3416. case BfIRIntrinsic_Mul:
  3417. result = mIRBuilder->CreateMul(val0, val1);
  3418. break;
  3419. case BfIRIntrinsic_Neq:
  3420. result = mIRBuilder->CreateICmpNE(val0, val1);
  3421. break;
  3422. case BfIRIntrinsic_Or:
  3423. result = mIRBuilder->CreateOr(val0, val1);
  3424. break;
  3425. case BfIRIntrinsic_Sub:
  3426. result = mIRBuilder->CreateSub(val0, val1);
  3427. break;
  3428. case BfIRIntrinsic_Xor:
  3429. result = mIRBuilder->CreateXor(val0, val1);
  3430. break;
  3431. default:
  3432. FatalError("Intrinsic argument error");
  3433. }
  3434. if (result != NULL)
  3435. {
  3436. if (auto vecType = llvm::dyn_cast<llvm::FixedVectorType>(result->getType()))
  3437. {
  3438. if (auto intType = llvm::dyn_cast<llvm::IntegerType>(vecType->getElementType()))
  3439. {
  3440. if (intType->getBitWidth() == 1)
  3441. {
  3442. auto toType = llvm::FixedVectorType::get(llvm::IntegerType::get(*mLLVMContext, 8), vecType->getNumElements());
  3443. result = mIRBuilder->CreateZExt(result, toType);
  3444. }
  3445. }
  3446. }
  3447. SetResult(curId, result);
  3448. }
  3449. }
  3450. }
  3451. else if (auto ptrType = llvm::dyn_cast<llvm::PointerType>(args[1].mTypeEx->mLLVMType))
  3452. {
  3453. //auto ptrElemType = ptrType->getElementType();
  3454. auto ptrElemType = GetLLVMPointerElementType(args[1].mTypeEx);
  3455. if (auto arrType = llvm::dyn_cast<llvm::ArrayType>(ptrElemType))
  3456. {
  3457. auto vecType = llvm::FixedVectorType::get(arrType->getArrayElementType(), (uint)arrType->getArrayNumElements());
  3458. auto vecPtrType = vecType->getPointerTo();
  3459. llvm::Value* val0;
  3460. val0 = mIRBuilder->CreateInsertElement(llvm::UndefValue::get(vecType), args[0].mValue, (uint64)0);
  3461. val0 = mIRBuilder->CreateInsertElement(val0, args[0].mValue, (uint64)1);
  3462. val0 = mIRBuilder->CreateInsertElement(val0, args[0].mValue, (uint64)2);
  3463. val0 = mIRBuilder->CreateInsertElement(val0, args[0].mValue, (uint64)3);
  3464. auto ptrVal1 = mIRBuilder->CreateBitCast(args[1].mValue, vecPtrType);
  3465. auto val1 = mIRBuilder->CreateAlignedLoad(vecType, ptrVal1, llvm::MaybeAlign(1));
  3466. switch (intrinsicData->mIntrinsic)
  3467. {
  3468. case BfIRIntrinsic_Div:
  3469. SetResult(curId, mIRBuilder->CreateFDiv(val0, val1));
  3470. break;
  3471. case BfIRIntrinsic_Mod:
  3472. SetResult(curId, mIRBuilder->CreateFRem(val0, val1));
  3473. break;
  3474. default:
  3475. FatalError("Intrinsic argument error");
  3476. }
  3477. }
  3478. }
  3479. else
  3480. {
  3481. FatalError("Intrinsic argument error");
  3482. }
  3483. }
  3484. break;
  3485. case BfIRIntrinsic_Min:
  3486. case BfIRIntrinsic_Max:
  3487. {
  3488. // Get arguments as vectors
  3489. auto val0 = TryToVector(args[0]);
  3490. if (val0 == NULL)
  3491. FatalError("Intrinsic argument error");
  3492. auto val1 = TryToVector(args[1]);
  3493. if (val1 == NULL)
  3494. FatalError("Intrinsic argument error");
  3495. // Make sure both argument types are the same
  3496. auto vecType = llvm::dyn_cast<llvm::VectorType>(val0->getType());
  3497. if (vecType != llvm::dyn_cast<llvm::VectorType>(val1->getType()))
  3498. FatalError("Intrinsic argument error");
  3499. // Make sure the type is not scalable
  3500. if (vecType->getElementCount().isScalable())
  3501. FatalError("Intrinsic argument error");
  3502. // Make sure the element type is either float or double
  3503. auto elemType = vecType->getElementType();
  3504. if (!elemType->isFloatTy() && !elemType->isDoubleTy())
  3505. FatalError("Intrinsic argument error");
  3506. // Get some properties for easier access
  3507. bool isFloat = elemType->isFloatTy();
  3508. bool isMin = intrinsicData->mIntrinsic == BfIRIntrinsic_Min;
  3509. auto elemCount = vecType->getElementCount().getFixedValue();
  3510. // Get the intrinsic function
  3511. const char* funcName;
  3512. if (isFloat)
  3513. {
  3514. if (elemCount == 4)
  3515. {
  3516. funcName = isMin ? "llvm.x86.sse.min.ps" : "llvm.x86.sse.max.ps";
  3517. SetActiveFunctionSimdType(BfSIMDSetting_SSE);
  3518. }
  3519. else if (elemCount == 8)
  3520. {
  3521. funcName = isMin ? "llvm.x86.avx.min.ps.256" : "llvm.x86.avx.max.ps.256";
  3522. SetActiveFunctionSimdType(BfSIMDSetting_AVX2);
  3523. }
  3524. else if (elemCount == 16)
  3525. {
  3526. funcName = isMin ? "llvm.x86.avx512.min.ps.512" : "llvm.x86.avx512.max.ps.512";
  3527. SetActiveFunctionSimdType(BfSIMDSetting_AVX512);
  3528. }
  3529. else
  3530. FatalError("Intrinsic argument error");
  3531. }
  3532. else
  3533. {
  3534. if (elemCount == 2)
  3535. {
  3536. funcName = isMin ? "llvm.x86.sse.min.pd" : "llvm.x86.sse.max.pd";
  3537. SetActiveFunctionSimdType(BfSIMDSetting_SSE);
  3538. }
  3539. else if (elemCount == 4)
  3540. {
  3541. funcName = isMin ? "llvm.x86.avx.min.pd.256" : "llvm.x86.avx.max.pd.256";
  3542. SetActiveFunctionSimdType(BfSIMDSetting_AVX2);
  3543. }
  3544. else if (elemCount == 8)
  3545. {
  3546. funcName = isMin ? "llvm.x86.avx512.min.pd.512" : "llvm.x86.avx512.max.pd.512";
  3547. SetActiveFunctionSimdType(BfSIMDSetting_AVX512);
  3548. }
  3549. else
  3550. FatalError("Intrinsic argument error");
  3551. }
  3552. auto func = mLLVMModule->getOrInsertFunction(funcName, vecType, vecType, vecType);
  3553. // Call intrinsic
  3554. llvm::SmallVector<llvm::Value*, 2> args;
  3555. args.push_back(val0);
  3556. args.push_back(val1);
  3557. SetResult(curId, mIRBuilder->CreateCall(func, args));
  3558. }
  3559. break;
  3560. case BfIRIntrinsic_Cpuid:
  3561. {
  3562. llvm::Type* elemType = llvm::Type::getInt32Ty(*mLLVMContext);
  3563. // Check argument errors
  3564. if (args.size() != 6 || !args[0].mValue->getType()->isIntegerTy(32) || !args[1].mValue->getType()->isIntegerTy(32))
  3565. FatalError("Intrinsic argument error");
  3566. // for (int i = 2; i < 6; i++)
  3567. // {
  3568. // llvm::Type* type = args[i]->getType();
  3569. //
  3570. // if (!type->isPointerTy() || !GetPointerElementType(args[1])->isIntegerTy(32))
  3571. // FatalError("Intrinsic argument error");
  3572. // }
  3573. // Get asm return type
  3574. llvm::SmallVector<llvm::Type*, 4> asmReturnTypes;
  3575. asmReturnTypes.push_back(elemType);
  3576. asmReturnTypes.push_back(elemType);
  3577. asmReturnTypes.push_back(elemType);
  3578. asmReturnTypes.push_back(elemType);
  3579. llvm::Type* returnType = llvm::StructType::get(*mLLVMContext, asmReturnTypes);
  3580. // Get asm function
  3581. llvm::SmallVector<llvm::Type*, 2> funcParams;
  3582. funcParams.push_back(elemType);
  3583. funcParams.push_back(elemType);
  3584. llvm::FunctionType* funcType = llvm::FunctionType::get(returnType, funcParams, false);
  3585. llvm::InlineAsm* func = llvm::InlineAsm::get(funcType, "xchgq %rbx,${1:q}\ncpuid\nxchgq %rbx,${1:q}", "={ax},=r,={cx},={dx},0,2,~{dirflag},~{fpsr},~{flags}", false);
  3586. // Call asm function
  3587. llvm::SmallVector<llvm::Value*, 2> funcArgs;
  3588. funcArgs.push_back(args[0].mValue);
  3589. funcArgs.push_back(args[1].mValue);
  3590. llvm::Value* asmResult = mIRBuilder->CreateCall(func, funcArgs);
  3591. // Store results
  3592. mIRBuilder->CreateStore(mIRBuilder->CreateExtractValue(asmResult, 0), args[2].mValue);
  3593. mIRBuilder->CreateStore(mIRBuilder->CreateExtractValue(asmResult, 1), args[3].mValue);
  3594. mIRBuilder->CreateStore(mIRBuilder->CreateExtractValue(asmResult, 2), args[4].mValue);
  3595. mIRBuilder->CreateStore(mIRBuilder->CreateExtractValue(asmResult, 3), args[5].mValue);
  3596. }
  3597. break;
  3598. case BfIRIntrinsic_Xgetbv:
  3599. {
  3600. if (args.size() != 1 || !args[0].mValue->getType()->isIntegerTy(32))
  3601. FatalError("Intrinsic argument error");
  3602. auto func = mLLVMModule->getOrInsertFunction("llvm.x86.xgetbv", llvm::Type::getInt64Ty(*mLLVMContext), llvm::Type::getInt32Ty(*mLLVMContext));
  3603. SetResult(curId, mIRBuilder->CreateCall(func, args[0].mValue));
  3604. }
  3605. break;
  3606. case BfIRIntrinsic_Not:
  3607. {
  3608. auto val0 = TryToVector(args[0]);
  3609. SetResult(curId, mIRBuilder->CreateNot(val0));
  3610. }
  3611. break;
  3612. case BfIRIntrinsic_Shuffle:
  3613. {
  3614. llvm::SmallVector<int, 8> intMask;
  3615. for (int i = 7; i < (int)intrinsicData->mName.length(); i++)
  3616. intMask.push_back((int)(intrinsicData->mName[i] - '0'));
  3617. auto val0 = TryToVector(args[0]);
  3618. if (val0 != NULL)
  3619. {
  3620. SetResult(curId, mIRBuilder->CreateShuffleVector(val0, val0, intMask));
  3621. }
  3622. else
  3623. {
  3624. FatalError("Intrinsic argument error");
  3625. }
  3626. }
  3627. break;
  3628. case BfIRIntrinsic_Index:
  3629. {
  3630. llvm::Value* gepArgs[] = {
  3631. llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), 0),
  3632. args[1].mValue };
  3633. auto gep = mIRBuilder->CreateInBoundsGEP(GetLLVMPointerElementType(args[0].mTypeEx), args[0].mValue, llvm::ArrayRef(gepArgs));
  3634. if (args.size() >= 3)
  3635. mIRBuilder->CreateStore(args[2].mValue, gep);
  3636. else
  3637. {
  3638. BfIRTypedValue result;
  3639. result.mTypeEx = GetTypeMember(args[0].mTypeEx, 0);
  3640. result.mValue = mIRBuilder->CreateLoad(result.mTypeEx->mLLVMType, gep);
  3641. SetResult(curId, result);
  3642. }
  3643. }
  3644. break;
  3645. case BfIRIntrinsic_AtomicCmpStore:
  3646. case BfIRIntrinsic_AtomicCmpStore_Weak:
  3647. case BfIRIntrinsic_AtomicCmpXChg:
  3648. {
  3649. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[3].mValue);
  3650. if (memoryKindConst == NULL)
  3651. {
  3652. FatalError("Non-constant success ordering on Atomic_CmpXChg");
  3653. break;
  3654. }
  3655. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3656. auto successOrdering = llvm::AtomicOrdering::Unordered;
  3657. auto failOrdering = llvm::AtomicOrdering::Unordered;
  3658. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3659. {
  3660. case BfIRAtomicOrdering_Acquire:
  3661. successOrdering = llvm::AtomicOrdering::Acquire;
  3662. failOrdering = llvm::AtomicOrdering::Acquire;
  3663. break;
  3664. case BfIRAtomicOrdering_AcqRel:
  3665. successOrdering = llvm::AtomicOrdering::AcquireRelease;
  3666. failOrdering = llvm::AtomicOrdering::Acquire;
  3667. break;
  3668. case BfIRAtomicOrdering_Relaxed:
  3669. successOrdering = llvm::AtomicOrdering::Monotonic;
  3670. failOrdering = llvm::AtomicOrdering::Monotonic;
  3671. break;
  3672. case BfIRAtomicOrdering_Release:
  3673. successOrdering = llvm::AtomicOrdering::Release;
  3674. failOrdering = llvm::AtomicOrdering::Monotonic;
  3675. break;
  3676. case BfIRAtomicOrdering_SeqCst:
  3677. successOrdering = llvm::AtomicOrdering::SequentiallyConsistent;
  3678. failOrdering = llvm::AtomicOrdering::SequentiallyConsistent;
  3679. break;
  3680. default:
  3681. Fail("Invalid success ordering on Atomic_CmpXChg");
  3682. break;
  3683. }
  3684. if (args.size() >= 5)
  3685. {
  3686. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[4].mValue);
  3687. if (memoryKindConst == NULL)
  3688. {
  3689. FatalError("Non-constant fail ordering on Atomic_CmpXChg");
  3690. break;
  3691. }
  3692. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3693. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3694. {
  3695. case BfIRAtomicOrdering_Acquire:
  3696. failOrdering = llvm::AtomicOrdering::Acquire;
  3697. break;
  3698. case BfIRAtomicOrdering_Relaxed:
  3699. failOrdering = llvm::AtomicOrdering::Monotonic;
  3700. break;
  3701. case BfIRAtomicOrdering_SeqCst:
  3702. failOrdering = llvm::AtomicOrdering::SequentiallyConsistent;
  3703. break;
  3704. default:
  3705. FatalError("Invalid fail ordering on Atomic_CmpXChg");
  3706. break;
  3707. }
  3708. }
  3709. auto inst = mIRBuilder->CreateAtomicCmpXchg(args[0].mValue, args[1].mValue, args[2].mValue, llvm::MaybeAlign(), successOrdering, failOrdering);
  3710. if (intrinsicData->mIntrinsic == BfIRIntrinsic_AtomicCmpStore_Weak)
  3711. inst->setWeak(true);
  3712. if ((memoryKind & BfIRAtomicOrdering_Volatile) != 0)
  3713. inst->setVolatile(true);
  3714. if (intrinsicData->mIntrinsic == BfIRIntrinsic_AtomicCmpXChg)
  3715. {
  3716. auto prevVal = mIRBuilder->CreateExtractValue(inst, 0);
  3717. SetResult(curId, prevVal);
  3718. }
  3719. else
  3720. {
  3721. auto successVal = mIRBuilder->CreateExtractValue(inst, 1);
  3722. SetResult(curId, successVal);
  3723. }
  3724. }
  3725. break;
  3726. case BfIRIntrinsic_AtomicFence:
  3727. {
  3728. if (args.size() == 0)
  3729. {
  3730. if ((mTargetTriple.GetMachineType() != BfMachineType_x86) && (mTargetTriple.GetMachineType() != BfMachineType_x64))
  3731. {
  3732. Fail("Unable to create compiler barrier on this platform");
  3733. }
  3734. else
  3735. {
  3736. // Compiler barrier
  3737. llvm::SmallVector<llvm::Type*, 8> paramTypes;
  3738. llvm::FunctionType* funcType = llvm::FunctionType::get(llvm::Type::getVoidTy(*mLLVMContext), paramTypes, false);
  3739. auto fenceFunc = llvm::InlineAsm::get(funcType,
  3740. "", "~{memory},~{dirflag},~{fpsr},~{flags}", true, false, llvm::InlineAsm::AD_ATT);
  3741. mIRBuilder->CreateCall(fenceFunc);
  3742. }
  3743. break;
  3744. }
  3745. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[0].mValue);
  3746. if (memoryKindConst == NULL)
  3747. {
  3748. FatalError("Non-constant success ordering on AtomicFence");
  3749. break;
  3750. }
  3751. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3752. auto ordering = llvm::AtomicOrdering::SequentiallyConsistent;
  3753. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3754. {
  3755. case BfIRAtomicOrdering_Acquire:
  3756. ordering = llvm::AtomicOrdering::Acquire;
  3757. break;
  3758. case BfIRAtomicOrdering_AcqRel:
  3759. ordering = llvm::AtomicOrdering::AcquireRelease;
  3760. break;
  3761. case BfIRAtomicOrdering_Release:
  3762. ordering = llvm::AtomicOrdering::Release;
  3763. break;
  3764. case BfIRAtomicOrdering_SeqCst:
  3765. ordering = llvm::AtomicOrdering::SequentiallyConsistent;
  3766. break;
  3767. default:
  3768. Fail("Invalid ordering on atomic operation");
  3769. break;
  3770. }
  3771. mIRBuilder->CreateFence(ordering);
  3772. }
  3773. break;
  3774. case BfIRIntrinsic_AtomicLoad:
  3775. {
  3776. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[1].mValue);
  3777. if (memoryKindConst == NULL)
  3778. {
  3779. FatalError("Non-constant success ordering on AtomicLoad");
  3780. break;
  3781. }
  3782. BfIRTypedValue result;
  3783. result.mTypeEx = GetTypeMember(args[0].mTypeEx, 0);
  3784. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3785. auto ptrType = llvm::dyn_cast<llvm::PointerType>(args[0].mValue->getType());
  3786. auto loadInst = mIRBuilder->CreateAlignedLoad(result.mTypeEx->mLLVMType, args[0].mValue, llvm::MaybeAlign((uint)GetLLVMPointerElementType(args[0].mTypeEx)->getPrimitiveSizeInBits() / 8));
  3787. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3788. {
  3789. case BfIRAtomicOrdering_Acquire:
  3790. loadInst->setAtomic(llvm::AtomicOrdering::Acquire);
  3791. break;
  3792. case BfIRAtomicOrdering_Relaxed:
  3793. loadInst->setAtomic(llvm::AtomicOrdering::Monotonic);
  3794. break;
  3795. case BfIRAtomicOrdering_SeqCst:
  3796. loadInst->setAtomic(llvm::AtomicOrdering::SequentiallyConsistent);
  3797. break;
  3798. default:
  3799. BF_FATAL("BadAtomic");
  3800. }
  3801. if ((memoryKind & BfIRAtomicOrdering_Volatile) != 0)
  3802. loadInst->setVolatile(true);
  3803. result.mValue = loadInst;
  3804. SetResult(curId, result);
  3805. }
  3806. break;
  3807. case BfIRIntrinsic_AtomicStore:
  3808. {
  3809. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[2].mValue);
  3810. if (memoryKindConst == NULL)
  3811. {
  3812. FatalError("Non-constant success ordering on AtomicLoad");
  3813. break;
  3814. }
  3815. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3816. auto storeInst = mIRBuilder->CreateAlignedStore(args[1].mValue, args[0].mValue, llvm::MaybeAlign((uint)args[1].mValue->getType()->getPrimitiveSizeInBits() / 8));
  3817. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3818. {
  3819. case BfIRAtomicOrdering_Relaxed:
  3820. storeInst->setAtomic(llvm::AtomicOrdering::Monotonic);
  3821. break;
  3822. case BfIRAtomicOrdering_Release:
  3823. storeInst->setAtomic(llvm::AtomicOrdering::Release);
  3824. break;
  3825. case BfIRAtomicOrdering_SeqCst:
  3826. storeInst->setAtomic(llvm::AtomicOrdering::SequentiallyConsistent);
  3827. break;
  3828. }
  3829. if ((memoryKind & BfIRAtomicOrdering_Volatile) != 0)
  3830. storeInst->setVolatile(true);
  3831. SetResult(curId, storeInst);
  3832. }
  3833. break;
  3834. case BfIRIntrinsic_AtomicAdd:
  3835. case BfIRIntrinsic_AtomicAnd:
  3836. case BfIRIntrinsic_AtomicMax:
  3837. case BfIRIntrinsic_AtomicMin:
  3838. case BfIRIntrinsic_AtomicNAnd:
  3839. case BfIRIntrinsic_AtomicOr:
  3840. case BfIRIntrinsic_AtomicSub:
  3841. case BfIRIntrinsic_AtomicUMax:
  3842. case BfIRIntrinsic_AtomicUMin:
  3843. case BfIRIntrinsic_AtomicXChg:
  3844. case BfIRIntrinsic_AtomicXor:
  3845. {
  3846. bool isFloat = args[1].mValue->getType()->isFloatingPointTy();
  3847. auto op = llvm::AtomicRMWInst::BinOp::Add;
  3848. switch (intrinsicData->mIntrinsic)
  3849. {
  3850. case BfIRIntrinsic_AtomicAdd:
  3851. op = llvm::AtomicRMWInst::BinOp::Add;
  3852. break;
  3853. case BfIRIntrinsic_AtomicAnd:
  3854. op = llvm::AtomicRMWInst::BinOp::And;
  3855. break;
  3856. case BfIRIntrinsic_AtomicMax:
  3857. op = llvm::AtomicRMWInst::BinOp::Max;
  3858. break;
  3859. case BfIRIntrinsic_AtomicMin:
  3860. op = llvm::AtomicRMWInst::BinOp::Min;
  3861. break;
  3862. case BfIRIntrinsic_AtomicNAnd:
  3863. op = llvm::AtomicRMWInst::BinOp::Nand;
  3864. break;
  3865. case BfIRIntrinsic_AtomicOr:
  3866. op = llvm::AtomicRMWInst::BinOp::Or;
  3867. break;
  3868. case BfIRIntrinsic_AtomicSub:
  3869. op = llvm::AtomicRMWInst::BinOp::Sub;
  3870. break;
  3871. case BfIRIntrinsic_AtomicUMax:
  3872. op = llvm::AtomicRMWInst::BinOp::UMax;
  3873. break;
  3874. case BfIRIntrinsic_AtomicUMin:
  3875. op = llvm::AtomicRMWInst::BinOp::UMin;
  3876. break;
  3877. case BfIRIntrinsic_AtomicXChg:
  3878. op = llvm::AtomicRMWInst::BinOp::Xchg;
  3879. break;
  3880. case BfIRIntrinsic_AtomicXor:
  3881. op = llvm::AtomicRMWInst::BinOp::Xor;
  3882. break;
  3883. default: break;
  3884. }
  3885. auto memoryKindConst = llvm::dyn_cast<llvm::ConstantInt>(args[2].mValue);
  3886. if (memoryKindConst == NULL)
  3887. {
  3888. FatalError("Non-constant ordering on atomic operation");
  3889. break;
  3890. }
  3891. auto memoryKind = (BfIRAtomicOrdering)memoryKindConst->getSExtValue();
  3892. auto ordering = llvm::AtomicOrdering::Unordered;
  3893. switch (memoryKind & BfIRAtomicOrdering_ORDERMASK)
  3894. {
  3895. case BfIRAtomicOrdering_Acquire:
  3896. ordering = llvm::AtomicOrdering::Acquire;
  3897. break;
  3898. case BfIRAtomicOrdering_AcqRel:
  3899. ordering = llvm::AtomicOrdering::AcquireRelease;
  3900. break;
  3901. case BfIRAtomicOrdering_Relaxed:
  3902. ordering = llvm::AtomicOrdering::Monotonic;
  3903. break;
  3904. case BfIRAtomicOrdering_Release:
  3905. ordering = llvm::AtomicOrdering::Release;
  3906. break;
  3907. case BfIRAtomicOrdering_SeqCst:
  3908. ordering = llvm::AtomicOrdering::SequentiallyConsistent;
  3909. break;
  3910. default:
  3911. Fail("Invalid ordering on atomic operation");
  3912. break;
  3913. }
  3914. auto atomicRMW = mIRBuilder->CreateAtomicRMW(op, args[0].mValue, args[1].mValue, llvm::MaybeAlign(), ordering);
  3915. if ((memoryKind & BfIRAtomicOrdering_Volatile) != 0)
  3916. atomicRMW->setVolatile(true);
  3917. llvm::Value* result = atomicRMW;
  3918. if ((memoryKind & BfIRAtomicOrdering_ReturnModified) != 0)
  3919. {
  3920. switch (intrinsicData->mIntrinsic)
  3921. {
  3922. case BfIRIntrinsic_AtomicAdd:
  3923. if (isFloat)
  3924. result = mIRBuilder->CreateFAdd(atomicRMW, args[1].mValue);
  3925. else
  3926. result = mIRBuilder->CreateAdd(atomicRMW, args[1].mValue);
  3927. break;
  3928. case BfIRIntrinsic_AtomicAnd:
  3929. result = mIRBuilder->CreateAnd(atomicRMW, args[1].mValue);
  3930. break;
  3931. case BfIRIntrinsic_AtomicMax:
  3932. case BfIRIntrinsic_AtomicMin:
  3933. case BfIRIntrinsic_AtomicUMax:
  3934. case BfIRIntrinsic_AtomicUMin:
  3935. {
  3936. llvm::Value* cmpVal = NULL;
  3937. switch (intrinsicData->mIntrinsic)
  3938. {
  3939. case BfIRIntrinsic_AtomicMax:
  3940. if (isFloat)
  3941. cmpVal = mIRBuilder->CreateFCmpOGE(atomicRMW, args[1].mValue);
  3942. else
  3943. cmpVal = mIRBuilder->CreateICmpSGE(atomicRMW, args[1].mValue);
  3944. break;
  3945. case BfIRIntrinsic_AtomicMin:
  3946. if (isFloat)
  3947. cmpVal = mIRBuilder->CreateFCmpOLE(atomicRMW, args[1].mValue);
  3948. else
  3949. cmpVal = mIRBuilder->CreateICmpSLE(atomicRMW, args[1].mValue);
  3950. break;
  3951. case BfIRIntrinsic_AtomicUMax:
  3952. cmpVal = mIRBuilder->CreateICmpUGE(atomicRMW, args[1].mValue);
  3953. break;
  3954. case BfIRIntrinsic_AtomicUMin:
  3955. cmpVal = mIRBuilder->CreateICmpULE(atomicRMW, args[1].mValue);
  3956. break;
  3957. default: break;
  3958. }
  3959. result = mIRBuilder->CreateSelect(cmpVal, atomicRMW, args[1].mValue);
  3960. }
  3961. break;
  3962. case BfIRIntrinsic_AtomicNAnd:
  3963. result = mIRBuilder->CreateAnd(atomicRMW, args[1].mValue);
  3964. result = mIRBuilder->CreateNot(result);
  3965. break;
  3966. case BfIRIntrinsic_AtomicOr:
  3967. result = mIRBuilder->CreateOr(atomicRMW, args[1].mValue);
  3968. break;
  3969. case BfIRIntrinsic_AtomicSub:
  3970. if (isFloat)
  3971. result = mIRBuilder->CreateFSub(atomicRMW, args[1].mValue);
  3972. else
  3973. result = mIRBuilder->CreateSub(atomicRMW, args[1].mValue);
  3974. break;
  3975. case BfIRIntrinsic_AtomicXor:
  3976. result = mIRBuilder->CreateXor(atomicRMW, args[1].mValue);
  3977. break;
  3978. case BfIRIntrinsic_AtomicXChg:
  3979. result = args[1].mValue;
  3980. break;
  3981. default: break;
  3982. }
  3983. }
  3984. SetResult(curId, result);
  3985. }
  3986. break;
  3987. case BfIRIntrinsic_Cast:
  3988. {
  3989. BfIRTypedValue result;
  3990. result.mTypeEx = intrinsicData->mReturnType;
  3991. auto arg0Type = args[0].mValue->getType();
  3992. if (arg0Type->isPointerTy())
  3993. {
  3994. if (intrinsicData->mReturnType->mLLVMType->isPointerTy())
  3995. {
  3996. result.mValue = mIRBuilder->CreateBitCast(args[0].mValue, intrinsicData->mReturnType->mLLVMType);
  3997. }
  3998. else
  3999. {
  4000. auto castedRes = mIRBuilder->CreateBitCast(args[0].mValue, intrinsicData->mReturnType->mLLVMType->getPointerTo());
  4001. result.mValue = mIRBuilder->CreateAlignedLoad(intrinsicData->mReturnType->mLLVMType, castedRes, llvm::MaybeAlign(1));
  4002. }
  4003. }
  4004. else if ((arg0Type->isVectorTy()) && (intrinsicData->mReturnType->mLLVMType->isVectorTy()))
  4005. {
  4006. result.mValue = mIRBuilder->CreateBitCast(args[0].mValue, intrinsicData->mReturnType->mLLVMType);
  4007. }
  4008. else
  4009. FatalError("Invalid cast intrinsic values");
  4010. SetResult(curId, result);
  4011. }
  4012. break;
  4013. case BfIRIntrinsic_VAArg:
  4014. {
  4015. auto constInt = llvm::dyn_cast<llvm::ConstantInt>(args[2].mValue);
  4016. auto argType = GetLLVMTypeById((int)constInt->getSExtValue());
  4017. auto vaArgVal = mIRBuilder->CreateVAArg(args[0].mValue, argType);
  4018. auto resultPtr = mIRBuilder->CreateBitCast(args[1].mValue, argType->getPointerTo());
  4019. mIRBuilder->CreateStore(vaArgVal, resultPtr);
  4020. }
  4021. break;
  4022. default:
  4023. FatalError("Unhandled intrinsic");
  4024. }
  4025. break;
  4026. }
  4027. if (auto funcPtr = llvm::dyn_cast<llvm::Function>(func.mValue))
  4028. {
  4029. // if (funcPtr->getName() == "__FAILCALL")
  4030. // {
  4031. // FatalError("__FAILCALL");
  4032. // }
  4033. int intrinId = -1;
  4034. if (mIntrinsicReverseMap.TryGetValue(funcPtr, &intrinId))
  4035. {
  4036. if (intrinId == BfIRIntrinsic_MemSet)
  4037. {
  4038. int align = 1;
  4039. BF_ASSERT(args.size() == 5);
  4040. auto alignConst = llvm::dyn_cast<llvm::ConstantInt>(args[3].mValue);
  4041. if (alignConst != NULL)
  4042. align = (int)alignConst->getSExtValue();
  4043. bool isVolatile = false;
  4044. auto volatileConst = llvm::dyn_cast<llvm::ConstantInt>(args[4].mValue);
  4045. if ((volatileConst != NULL) && (volatileConst->getSExtValue() != 0))
  4046. isVolatile = true;
  4047. CreateMemSet(args[0].mValue, args[1].mValue, args[2].mValue, align, isVolatile);
  4048. break;
  4049. }
  4050. else if ((intrinId == BfIRIntrinsic_MemCpy) || (intrinId == BfIRIntrinsic_MemMove))
  4051. {
  4052. int align = 1;
  4053. BF_ASSERT(args.size() == 5);
  4054. auto alignConst = llvm::dyn_cast<llvm::ConstantInt>(args[3].mValue);
  4055. if (alignConst != NULL)
  4056. align = (int)alignConst->getSExtValue();
  4057. bool isVolatile = false;
  4058. auto volatileConst = llvm::dyn_cast<llvm::ConstantInt>(args[4].mValue);
  4059. if ((volatileConst != NULL) && (volatileConst->getSExtValue() != 0))
  4060. isVolatile = true;
  4061. if (intrinId == BfIRIntrinsic_MemCpy)
  4062. mIRBuilder->CreateMemCpy(args[0].mValue, llvm::MaybeAlign(align), args[1].mValue, llvm::MaybeAlign(align), args[2].mValue, isVolatile);
  4063. else
  4064. mIRBuilder->CreateMemMove(args[0].mValue, llvm::MaybeAlign(align), args[1].mValue, llvm::MaybeAlign(align), args[2].mValue, isVolatile);
  4065. break;
  4066. }
  4067. }
  4068. }
  4069. llvm::Value* val0 = NULL;
  4070. llvm::Value* val1 = NULL;
  4071. if (args.size() > 0)
  4072. {
  4073. val0 = args[0].mValue;
  4074. }
  4075. if (args.size() > 1)
  4076. {
  4077. val1 = args[1].mValue;
  4078. }
  4079. llvm::FunctionType* funcType = NULL;
  4080. if (auto ptrType = llvm::dyn_cast<llvm::PointerType>(func.mValue->getType()))
  4081. funcType = llvm::dyn_cast<llvm::FunctionType>(GetLLVMPointerElementType(func.mTypeEx));
  4082. CmdParamVec<llvm::Value*> llvmArgs;
  4083. for (auto& arg : args)
  4084. llvmArgs.push_back(arg.mValue);
  4085. auto funcTypeEx = GetTypeMember(func.mTypeEx, 0);
  4086. auto returnTypeEx = GetTypeMember(funcTypeEx, 0);
  4087. BfIRTypedValue result;
  4088. result.mTypeEx = returnTypeEx;
  4089. result.mValue = mIRBuilder->CreateCall(funcType, func.mValue, llvmArgs);
  4090. SetResult(curId, result);
  4091. mLastFuncCalled.mValue = result.mValue;
  4092. mLastFuncCalled.mTypeEx = funcTypeEx;
  4093. }
  4094. break;
  4095. case BfIRCmd_SetCallCallingConv:
  4096. {
  4097. CMD_PARAM(llvm::Value*, callInst);
  4098. BfIRCallingConv callingConv = (BfIRCallingConv)mStream->Read();
  4099. BF_ASSERT(llvm::isa<llvm::CallInst>(callInst));
  4100. ((llvm::CallInst*)callInst)->setCallingConv(GetLLVMCallingConv(callingConv, mTargetTriple));
  4101. }
  4102. break;
  4103. case BfIRCmd_SetFuncCallingConv:
  4104. {
  4105. CMD_PARAM(llvm::Function*, func);
  4106. BfIRCallingConv callingConv = (BfIRCallingConv)mStream->Read();
  4107. ((llvm::Function*)func)->setCallingConv(GetLLVMCallingConv(callingConv, mTargetTriple));
  4108. }
  4109. break;
  4110. case BfIRCmd_SetTailCall:
  4111. {
  4112. CMD_PARAM(llvm::Value*, callInst);
  4113. BF_ASSERT(llvm::isa<llvm::CallInst>(callInst));
  4114. ((llvm::CallInst*)callInst)->setTailCall();
  4115. }
  4116. break;
  4117. case BfIRCmd_SetCallAttribute:
  4118. {
  4119. CMD_PARAM(llvm::Value*, callInst);
  4120. CMD_PARAM(int, paramIdx);
  4121. BfIRAttribute attribute = (BfIRAttribute)mStream->Read();
  4122. BF_ASSERT(llvm::isa<llvm::CallInst>(callInst));
  4123. llvm::Attribute::AttrKind attr = llvm::Attribute::None;
  4124. if (attribute == BfIRAttribute_NoReturn)
  4125. attr = llvm::Attribute::NoReturn;
  4126. ((llvm::CallInst*)callInst)->addParamAttr(paramIdx, attr);
  4127. }
  4128. break;
  4129. case BfIRCmd_CreateRet:
  4130. {
  4131. CMD_PARAM(llvm::Value*, val);
  4132. SetResult(curId, mIRBuilder->CreateRet(val));
  4133. }
  4134. break;
  4135. case BfIRCmd_CreateRetVoid:
  4136. {
  4137. mIRBuilder->CreateRetVoid();
  4138. }
  4139. break;
  4140. case BfIRCmd_CreateUnreachable:
  4141. {
  4142. mIRBuilder->CreateUnreachable();
  4143. }
  4144. break;
  4145. case BfIRCmd_Call_AddAttribute:
  4146. {
  4147. CMD_PARAM(BfIRTypedValue, inst);
  4148. CMD_PARAM(int, argIdx);
  4149. BF_ASSERT(inst.mValue == mLastFuncCalled.mValue);
  4150. BfIRAttribute attribute = (BfIRAttribute)mStream->Read();
  4151. auto attr = LLVMMapAttribute(attribute);
  4152. auto callInst = llvm::dyn_cast<llvm::CallInst>(inst.mValue);
  4153. BfIRTypeEx* funcType = mLastFuncCalled.mTypeEx;
  4154. if (attr == llvm::Attribute::StructRet)
  4155. {
  4156. auto elemPtrType = GetTypeMember(funcType, argIdx);
  4157. auto elemType = GetTypeMember(elemPtrType, 0);
  4158. llvm::Attribute sret = llvm::Attribute::getWithStructRetType(*mLLVMContext, elemType->mLLVMType);
  4159. ((llvm::CallInst*)callInst)->addParamAttr(argIdx - 1, sret);
  4160. }
  4161. else
  4162. {
  4163. if (argIdx == -1)
  4164. ((llvm::CallInst*)callInst)->addFnAttr(attr);
  4165. else if (argIdx == 0)
  4166. ((llvm::CallInst*)callInst)->addRetAttr(attr);
  4167. else
  4168. ((llvm::CallInst*)callInst)->addParamAttr(argIdx - 1, attr);
  4169. }
  4170. }
  4171. break;
  4172. case BfIRCmd_Call_AddAttribute1:
  4173. {
  4174. CMD_PARAM(BfIRTypedValue, inst);
  4175. CMD_PARAM(int, argIdx);
  4176. BfIRAttribute attribute = (BfIRAttribute)mStream->Read();
  4177. CMD_PARAM(int, arg);
  4178. BF_ASSERT(inst.mValue == mLastFuncCalled.mValue);
  4179. auto callInst = llvm::dyn_cast<llvm::CallInst>(inst.mValue);
  4180. if (callInst != NULL)
  4181. {
  4182. BfIRTypeEx* funcType = mLastFuncCalled.mTypeEx;
  4183. if (attribute == BfIRAttribute_Dereferencable)
  4184. {
  4185. ((llvm::CallInst*)callInst)->addDereferenceableParamAttr(argIdx - 1, arg);
  4186. }
  4187. else if (attribute == BfIRAttribute_ByVal)
  4188. {
  4189. auto elemPtrType = GetTypeMember(funcType, argIdx);
  4190. auto elemType = GetTypeMember(elemPtrType, 0);
  4191. llvm::Attribute byValAttr = llvm::Attribute::getWithByValType(*mLLVMContext, elemType->mLLVMType);
  4192. llvm::Attribute alignAttr = llvm::Attribute::getWithAlignment(*mLLVMContext, llvm::Align(arg));
  4193. ((llvm::CallInst*)callInst)->addParamAttr(argIdx - 1, byValAttr);
  4194. ((llvm::CallInst*)callInst)->addParamAttr(argIdx - 1, alignAttr);
  4195. }
  4196. }
  4197. }
  4198. break;
  4199. case BfIRCmd_Func_AddAttribute:
  4200. {
  4201. BfIRTypedValue typedValue;
  4202. ReadFunction(typedValue);
  4203. CMD_PARAM(int, argIdx);
  4204. auto func = llvm::dyn_cast<llvm::Function>(typedValue.mValue);
  4205. auto funcType = GetTypeMember(typedValue.mTypeEx, 0);
  4206. BfIRAttribute attribute = (BfIRAttribute)mStream->Read();
  4207. if (attribute == BFIRAttribute_DllImport)
  4208. {
  4209. func->setDLLStorageClass(llvm::GlobalValue::DLLImportStorageClass);
  4210. }
  4211. else if (attribute == BFIRAttribute_DllExport)
  4212. {
  4213. func->setDLLStorageClass(llvm::GlobalValue::DLLExportStorageClass);
  4214. mHadDLLExport = true;
  4215. }
  4216. else if (attribute == BFIRAttribute_NoFramePointerElim)
  4217. {
  4218. func->addFnAttr("no-frame-pointer-elim", "true");
  4219. }
  4220. else if ((attribute == BFIRAttribute_Constructor) || (attribute == BFIRAttribute_Destructor))
  4221. {
  4222. CmdParamVec<llvm::Type*> members;
  4223. members.push_back(llvm::Type::getInt32Ty(*mLLVMContext));
  4224. members.push_back(func->getType());
  4225. members.push_back(llvm::PointerType::get(*mLLVMContext, 0));
  4226. llvm::StructType* structType = llvm::StructType::get(*mLLVMContext, members);
  4227. CmdParamVec<llvm::Constant*> structVals;
  4228. structVals.push_back(llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), 0x7FFFFF00));
  4229. structVals.push_back(func);
  4230. structVals.push_back(llvm::ConstantPointerNull::get(llvm::PointerType::get(*mLLVMContext, 0)));
  4231. auto constStruct = llvm::ConstantStruct::get(structType, structVals);
  4232. CmdParamVec<llvm::Constant*> structArrVals;
  4233. structArrVals.push_back(constStruct);
  4234. auto arrTy = llvm::ArrayType::get(structType, 1);
  4235. auto constArr = llvm::ConstantArray::get(arrTy, structArrVals);
  4236. auto globalVariable = new llvm::GlobalVariable(
  4237. *mLLVMModule,
  4238. arrTy,
  4239. false,
  4240. llvm::GlobalValue::AppendingLinkage,
  4241. constArr,
  4242. (attribute == BFIRAttribute_Constructor) ? "llvm.global_ctors" : "llvm.global_dtors",
  4243. NULL, llvm::GlobalValue::NotThreadLocal);
  4244. }
  4245. else
  4246. {
  4247. auto attr = LLVMMapAttribute(attribute);
  4248. if (attr == llvm::Attribute::StructRet)
  4249. {
  4250. auto elemPtrType = GetTypeMember(funcType, argIdx);
  4251. auto elemType = GetTypeMember(elemPtrType, 0);
  4252. llvm::Attribute sret = llvm::Attribute::getWithStructRetType(*mLLVMContext, elemType->mLLVMType);
  4253. func->addParamAttr(argIdx - 1, sret);
  4254. }
  4255. else if (attr != llvm::Attribute::None)
  4256. {
  4257. if (argIdx < 0)
  4258. {
  4259. switch (attr)
  4260. {
  4261. case llvm::Attribute::UWTable:
  4262. {
  4263. llvm::AttrBuilder attrBuilder(*mLLVMContext);
  4264. attrBuilder.addUWTableAttr(llvm::UWTableKind::Default);
  4265. func->addFnAttrs(attrBuilder);
  4266. }
  4267. break;
  4268. default:
  4269. func->addFnAttr(attr);
  4270. }
  4271. }
  4272. else if (argIdx == 0)
  4273. func->addRetAttr(attr);
  4274. else
  4275. func->addParamAttr(argIdx - 1, attr);
  4276. }
  4277. }
  4278. }
  4279. break;
  4280. case BfIRCmd_Func_AddAttribute1:
  4281. {
  4282. BfIRTypedValue typedValue;
  4283. ReadFunction(typedValue);
  4284. CMD_PARAM(int, argIdx);
  4285. auto func = llvm::dyn_cast<llvm::Function>(typedValue.mValue);
  4286. auto funcType = GetTypeMember(typedValue.mTypeEx, 0);
  4287. BfIRAttribute attribute = (BfIRAttribute)mStream->Read();
  4288. CMD_PARAM(int, arg);
  4289. if (attribute == BfIRAttribute_Dereferencable)
  4290. {
  4291. ((llvm::Function*)func)->addDereferenceableParamAttr(argIdx - 1, arg);
  4292. }
  4293. else if (attribute == BfIRAttribute_ByVal)
  4294. {
  4295. auto elemPtrType = GetTypeMember(funcType, argIdx);
  4296. auto elemType = GetTypeMember(elemPtrType, 0);
  4297. auto funcType = func->getFunctionType();
  4298. llvm::Attribute byValAttr = llvm::Attribute::getWithByValType(*mLLVMContext, elemType->mLLVMType);
  4299. llvm::Attribute alignAttr = llvm::Attribute::getWithAlignment(*mLLVMContext, llvm::Align(arg));
  4300. func->addParamAttr(argIdx - 1, byValAttr);
  4301. func->addParamAttr(argIdx - 1, alignAttr);
  4302. }
  4303. }
  4304. break;
  4305. case BfIRCmd_Func_SetParamName:
  4306. {
  4307. CMD_PARAM(llvm::Function*, func);
  4308. CMD_PARAM(int, argIdx);
  4309. CMD_PARAM(String, name);
  4310. if (argIdx > func->arg_size())
  4311. {
  4312. Fail("BfIRCmd_Func_SetParamName argIdx error");
  4313. break;
  4314. }
  4315. auto argItr = func->arg_begin();
  4316. for (int i = 1; i < argIdx; i++)
  4317. ++argItr;
  4318. argItr->setName(name.c_str());
  4319. }
  4320. break;
  4321. case BfIRCmd_Func_DeleteBody:
  4322. {
  4323. CMD_PARAM(llvm::Function*, func);
  4324. BF_ASSERT(llvm::isa<llvm::Function>(func));
  4325. ((llvm::Function*)func)->deleteBody();
  4326. }
  4327. break;
  4328. case BfIRCmd_Func_SafeRename:
  4329. {
  4330. CMD_PARAM(llvm::Function*, func);
  4331. func->setName(llvm::Twine((Beefy::String(func->getName().data()) + StrFormat("__RENAME%d", curId)).c_str()));
  4332. }
  4333. break;
  4334. case BfIRCmd_Func_SafeRenameFrom:
  4335. {
  4336. CMD_PARAM(llvm::Function*, func);
  4337. CMD_PARAM(String, prevName);
  4338. if (String(func->getName().data()) == prevName)
  4339. func->setName(llvm::Twine((Beefy::String(func->getName().data()) + StrFormat("__RENAME%d", curId)).c_str()));
  4340. }
  4341. break;
  4342. case BfIRCmd_Func_SetLinkage:
  4343. {
  4344. CMD_PARAM(llvm::Function*, func);
  4345. BfIRLinkageType linkageType = (BfIRLinkageType)mStream->Read();
  4346. ((llvm::Function*)func)->setLinkage(LLVMMapLinkageType(linkageType));
  4347. }
  4348. break;
  4349. case BfIRCmd_SaveDebugLocation:
  4350. {
  4351. mSavedDebugLocs.push_back(mIRBuilder->getCurrentDebugLocation());
  4352. }
  4353. break;
  4354. case BfIRCmd_RestoreDebugLocation:
  4355. {
  4356. mDebugLoc = mSavedDebugLocs[mSavedDebugLocs.size() - 1];
  4357. mIRBuilder->SetCurrentDebugLocation(mDebugLoc);
  4358. mSavedDebugLocs.pop_back();
  4359. }
  4360. break;
  4361. case BfIRCmd_DupDebugLocation:
  4362. break;
  4363. case BfIRCmd_ClearDebugLocation:
  4364. {
  4365. mDebugLoc = llvm::DebugLoc();
  4366. mIRBuilder->SetCurrentDebugLocation(llvm::DebugLoc());
  4367. }
  4368. break;
  4369. case BfIRCmd_ClearDebugLocationInst:
  4370. {
  4371. CMD_PARAM_NOTRANS(llvm::Value*, instValue);
  4372. BF_ASSERT(llvm::isa<llvm::Instruction>(instValue));
  4373. if (llvm::dyn_cast<llvm::DbgDeclareInst>(instValue))
  4374. {
  4375. printf("BfIRCmd_ClearDebugLocationInst on DbgDeclareInst in %s\n", mModuleName.c_str());
  4376. }
  4377. else
  4378. {
  4379. ((llvm::Instruction*)instValue)->setDebugLoc(llvm::DebugLoc());
  4380. }
  4381. }
  4382. break;
  4383. case BfIRCmd_ClearDebugLocationInstLast:
  4384. {
  4385. llvm::BasicBlock* bb = mIRBuilder->GetInsertBlock();
  4386. if (bb != NULL)
  4387. {
  4388. if (!bb->empty())
  4389. {
  4390. auto& inst = bb->back();
  4391. if (llvm::dyn_cast<llvm::DbgDeclareInst>(&inst))
  4392. {
  4393. printf("BfIRCmd_ClearDebugLocationInstLast on DbgDeclareInst\n");
  4394. }
  4395. else
  4396. {
  4397. inst.setDebugLoc(llvm::DebugLoc());
  4398. }
  4399. }
  4400. }
  4401. }
  4402. break;
  4403. case BfIRCmd_UpdateDebugLocation:
  4404. {
  4405. CMD_PARAM_NOTRANS(llvm::Value*, instValue);
  4406. BF_ASSERT(llvm::isa<llvm::Instruction>(instValue));
  4407. if ((llvm::dyn_cast<llvm::DbgDeclareInst>(instValue)) && (!mIRBuilder->getCurrentDebugLocation()))
  4408. {
  4409. printf("BfIRCmd_UpdateDebugLocation NULL on DbgDeclareInst\n");
  4410. }
  4411. else
  4412. {
  4413. ((llvm::Instruction*)instValue)->setDebugLoc(mIRBuilder->getCurrentDebugLocation());
  4414. }
  4415. }
  4416. break;
  4417. case BfIRCmd_SetCurrentDebugLocation:
  4418. {
  4419. CMD_PARAM(int, line);
  4420. CMD_PARAM(int, column);
  4421. CMD_PARAM(llvm::MDNode*, diScope);
  4422. CMD_PARAM(llvm::MDNode*, diInlinedAt);
  4423. if (line == 0)
  4424. column = 0;
  4425. mCurLine = line;
  4426. mDebugLoc = llvm::DILocation::get(*mLLVMContext, line, column, diScope, diInlinedAt);
  4427. #ifdef _DEBUG
  4428. llvm::DILocation* DL = mDebugLoc;
  4429. if (DL != NULL)
  4430. {
  4431. llvm::Metadata* Parent = DL->getRawScope();
  4432. llvm::DILocalScope* Scope = DL->getInlinedAtScope();
  4433. llvm::DISubprogram* SP = Scope->getSubprogram();
  4434. if (SP != NULL)
  4435. {
  4436. BF_ASSERT(SP->describes(mActiveFunction));
  4437. }
  4438. }
  4439. #endif
  4440. }
  4441. break;
  4442. case BfIRCmd_Nop:
  4443. case BfIRCmd_EnsureInstructionAt:
  4444. AddNop();
  4445. break;
  4446. case BfIRCmd_StatementStart:
  4447. // We only commit the debug loc for statement starts
  4448. mIRBuilder->SetCurrentDebugLocation(mDebugLoc);
  4449. mHasDebugLoc = true;
  4450. break;
  4451. case BfIRCmd_ObjectAccessCheck:
  4452. {
  4453. CMD_PARAM(llvm::Value*, val);
  4454. CMD_PARAM(bool, useAsm);
  4455. auto curLLVMFunc = mActiveFunction;
  4456. auto irBuilder = mIRBuilder;
  4457. if ((mTargetTriple.GetMachineType() != BfMachineType_x86) && (mTargetTriple.GetMachineType() != BfMachineType_x64))
  4458. useAsm = false;
  4459. if (!useAsm)
  4460. {
  4461. mLockedBlocks.Add(irBuilder->GetInsertBlock());
  4462. // This is generates slower code than the inline asm in debug mode, but can optimize well in release
  4463. auto int8Ty = llvm::Type::getInt8Ty(*mLLVMContext);
  4464. auto int8Ptr = irBuilder->CreateBitCast(val, int8Ty->getPointerTo());
  4465. auto int8Val = irBuilder->CreateLoad(int8Ty, int8Ptr);
  4466. auto cmpResult = irBuilder->CreateICmpUGE(int8Val, llvm::ConstantInt::get(int8Ty, 0x80));
  4467. auto failBB = llvm::BasicBlock::Create(*mLLVMContext, "access.fail");
  4468. auto passBB = llvm::BasicBlock::Create(*mLLVMContext, "access.pass");
  4469. irBuilder->CreateCondBr(cmpResult, failBB, passBB);
  4470. curLLVMFunc->insert(curLLVMFunc->end(), failBB);
  4471. irBuilder->SetInsertPoint(failBB);
  4472. auto trapDecl = llvm::Intrinsic::getDeclaration(mLLVMModule, llvm::Intrinsic::trap);
  4473. auto callInst = irBuilder->CreateCall(trapDecl);
  4474. callInst->addFnAttr(llvm::Attribute::NoReturn);
  4475. irBuilder->CreateBr(passBB);
  4476. curLLVMFunc->insert(curLLVMFunc->end(), passBB);
  4477. irBuilder->SetInsertPoint(passBB);
  4478. SetResult(curId, passBB);
  4479. }
  4480. else
  4481. {
  4482. llvm::Type* voidPtrType = llvm::PointerType::get(*mLLVMContext, 0);
  4483. if (mObjectCheckAsm == NULL)
  4484. {
  4485. std::vector<llvm::Type*> paramTypes;
  4486. paramTypes.push_back(voidPtrType);
  4487. auto funcType = llvm::FunctionType::get(llvm::Type::getVoidTy(*mLLVMContext), paramTypes, false);
  4488. String asmStr =
  4489. "cmpb $$128, ($0)\n"
  4490. "jb 1f\n"
  4491. "int $$3\n"
  4492. "1:";
  4493. mObjectCheckAsm = llvm::InlineAsm::get(funcType,
  4494. asmStr.c_str(), "r,~{dirflag},~{fpsr},~{flags}", true,
  4495. false, llvm::InlineAsm::AD_ATT);
  4496. }
  4497. llvm::SmallVector<llvm::Value*, 1> llvmArgs;
  4498. llvmArgs.push_back(mIRBuilder->CreateBitCast(val, voidPtrType));
  4499. llvm::CallInst* callInst = irBuilder->CreateCall(mObjectCheckAsm, llvmArgs);
  4500. callInst->addFnAttr(llvm::Attribute::NoUnwind);
  4501. SetResult(curId, mIRBuilder->GetInsertBlock());
  4502. }
  4503. }
  4504. break;
  4505. case BfIRCmd_DbgInit:
  4506. {
  4507. mDIBuilder = new llvm::DIBuilder(*mLLVMModule);
  4508. }
  4509. break;
  4510. case BfIRCmd_DbgFinalize:
  4511. {
  4512. for (auto& typeEntryPair : mTypes)
  4513. {
  4514. auto& typeEntry = typeEntryPair.mValue;
  4515. if (typeEntry.mInstDIType != NULL)
  4516. typeEntry.mInstDIType->resolveCycles();
  4517. }
  4518. mDIBuilder->finalize();
  4519. }
  4520. break;
  4521. case BfIRCmd_DbgCreateCompileUnit:
  4522. {
  4523. CMD_PARAM(int, lang);
  4524. CMD_PARAM(String, fileName);
  4525. CMD_PARAM(String, directory);
  4526. CMD_PARAM(String, producer);
  4527. CMD_PARAM(bool, isOptimized);
  4528. CMD_PARAM(String, flags);
  4529. CMD_PARAM(int, runtimeVer);
  4530. CMD_PARAM(bool, linesOnly);
  4531. auto diFile = mDIBuilder->createFile(fileName.c_str(), directory.c_str());
  4532. mDICompileUnit = mDIBuilder->createCompileUnit(lang, diFile, producer.c_str(), isOptimized, flags.c_str(), runtimeVer, "", linesOnly ? llvm::DICompileUnit::LineTablesOnly : llvm::DICompileUnit::FullDebug);
  4533. SetResult(curId, mDICompileUnit);
  4534. }
  4535. break;
  4536. case BfIRCmd_DbgCreateFile:
  4537. {
  4538. CMD_PARAM(String, fileName);
  4539. CMD_PARAM(String, directory);
  4540. CMD_PARAM(Val128, md5Hash);
  4541. char hashStr[64];
  4542. for (int i = 0; i < 16; i++)
  4543. sprintf(&hashStr[i * 2], "%.2x", ((uint8*)&md5Hash)[i]);
  4544. SetResult(curId, mDIBuilder->createFile(fileName.c_str(), directory.c_str(),
  4545. llvm::DIFile::ChecksumInfo<llvm::StringRef>(llvm::DIFile::CSK_MD5, hashStr)));
  4546. }
  4547. break;
  4548. case BfIRCmd_ConstValueI64:
  4549. {
  4550. CMD_PARAM(int64, val);
  4551. SetResult(curId, mDIBuilder->createConstantValueExpression((uint64)val));
  4552. }
  4553. break;
  4554. case BfIRCmd_DbgGetCurrentLocation:
  4555. {
  4556. auto debugLoc = mIRBuilder->getCurrentDebugLocation();
  4557. if (!debugLoc)
  4558. debugLoc = mDebugLoc;
  4559. SetResult(curId, debugLoc);
  4560. }
  4561. break;
  4562. case BfIRCmd_DbgSetType:
  4563. {
  4564. CMD_PARAM(int, typeId);
  4565. CMD_PARAM(llvm::MDNode*, type);
  4566. auto& typeEntry = GetTypeEntry(typeId);
  4567. typeEntry.mDIType = (llvm::DIType*)type;
  4568. if (typeEntry.mInstDIType == NULL)
  4569. typeEntry.mInstDIType = (llvm::DIType*)type;
  4570. }
  4571. break;
  4572. case BfIRCmd_DbgSetInstType:
  4573. {
  4574. CMD_PARAM(int, typeId);
  4575. CMD_PARAM(llvm::MDNode*, type);
  4576. GetTypeEntry(typeId).mInstDIType = (llvm::DIType*)type;
  4577. }
  4578. break;
  4579. case BfIRCmd_DbgGetType:
  4580. {
  4581. CMD_PARAM(int, typeId);
  4582. SetResult(curId, GetTypeEntry(typeId).mDIType);
  4583. }
  4584. break;
  4585. case BfIRCmd_DbgGetTypeInst:
  4586. {
  4587. CMD_PARAM(int, typeId);
  4588. SetResult(curId, GetTypeEntry(typeId).mInstDIType);
  4589. }
  4590. break;
  4591. case BfIRCmd_DbgTrackDITypes:
  4592. {
  4593. CMD_PARAM(int, typeId);
  4594. auto& typeEntry = GetTypeEntry(typeId);
  4595. if (typeEntry.mDIType != NULL)
  4596. llvm::MetadataTracking::track(*(llvm::Metadata**)&typeEntry.mDIType);
  4597. if (typeEntry.mInstDIType != NULL)
  4598. llvm::MetadataTracking::track(*(llvm::Metadata**)&typeEntry.mInstDIType);
  4599. }
  4600. break;
  4601. case BfIRCmd_DbgCreateNamespace:
  4602. {
  4603. CMD_PARAM(llvm::MDNode*, scope);
  4604. CMD_PARAM(String, name);
  4605. CMD_PARAM(llvm::MDNode*, file);
  4606. CMD_PARAM(int, lineNum);
  4607. BF_ASSERT(file != NULL);
  4608. SetResult(curId, mDIBuilder->createNameSpace((llvm::DIScope*)scope, name.c_str(), true));
  4609. }
  4610. break;
  4611. case BfIRCmd_DbgCreateImportedModule:
  4612. {
  4613. CMD_PARAM(llvm::MDNode*, context);
  4614. CMD_PARAM(llvm::MDNode*, namespaceNode);
  4615. CMD_PARAM(int, lineNum);
  4616. //SetResult(curId, mDIBuilder->createImportedModule((llvm::DIScope*)context, (llvm::DINamespace*)namespaceNode, lineNum));
  4617. }
  4618. break;
  4619. case BfIRCmd_DbgCreateBasicType:
  4620. {
  4621. CMD_PARAM(String, name);
  4622. CMD_PARAM(int64, sizeInBits);
  4623. CMD_PARAM(int64, alignInBits);
  4624. CMD_PARAM(int, encoding);
  4625. SetResult(curId, mDIBuilder->createBasicType(name.c_str(), sizeInBits, encoding));
  4626. }
  4627. break;
  4628. case BfIRCmd_DbgCreateStructType:
  4629. {
  4630. CMD_PARAM(llvm::MDNode*, context);
  4631. CMD_PARAM(String, name);
  4632. CMD_PARAM(llvm::MDNode*, file);
  4633. CMD_PARAM(int, lineNum);
  4634. CMD_PARAM(int64, sizeInBits);
  4635. CMD_PARAM(int64, alignInBits);
  4636. CMD_PARAM(int, flags);
  4637. CMD_PARAM(llvm::MDNode*, derivedFrom);
  4638. CMD_PARAM(CmdParamVec<llvm::Metadata*>, members);
  4639. auto diMembersArray = mDIBuilder->getOrCreateArray(members);
  4640. BF_ASSERT(file != NULL);
  4641. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4642. auto mdStruct = mDIBuilder->createStructType((llvm::DIScope*)context, name.c_str(), (llvm::DIFile*)file, lineNum, sizeInBits, (uint32)alignInBits, diFlags, (llvm::DIType*)derivedFrom, diMembersArray);
  4643. SetResult(curId, mdStruct);
  4644. //OutputDebugStrF("BfIRCmd_DbgCreateStructType %p\n", mdStruct);
  4645. }
  4646. break;
  4647. case BfIRCmd_DbgCreateEnumerationType:
  4648. {
  4649. CMD_PARAM(llvm::MDNode*, context);
  4650. CMD_PARAM(String, name);
  4651. CMD_PARAM(llvm::MDNode*, file);
  4652. CMD_PARAM(int, lineNum);
  4653. CMD_PARAM(int64, sizeInBits);
  4654. CMD_PARAM(int64, alignInBits);
  4655. CMD_PARAM(CmdParamVec<llvm::Metadata*>, members);
  4656. CMD_PARAM(llvm::MDNode*, underlyingType);
  4657. auto diMembersArray = mDIBuilder->getOrCreateArray(members);
  4658. /*static int typeIdx = 0;
  4659. if (name == "TypeCode")
  4660. name += StrFormat("_%d", typeIdx);
  4661. typeIdx++;*/
  4662. BF_ASSERT(file != NULL);
  4663. auto enumType = mDIBuilder->createEnumerationType((llvm::DIScope*)context, name.c_str(), (llvm::DIFile*)file, lineNum, sizeInBits, (uint32)alignInBits, diMembersArray, (llvm::DIType*)underlyingType);
  4664. SetResult(curId, enumType);
  4665. //OutputDebugStrF("BfIRCmd_DbgCreateEnumerationType %p\n", enumType);
  4666. }
  4667. break;
  4668. case BfIRCmd_DbgCreatePointerType:
  4669. {
  4670. CMD_PARAM(llvm::MDNode*, diType);
  4671. SetResult(curId, mDIBuilder->createPointerType((llvm::DIType*)diType, mPtrSize*8, (uint32)mPtrSize * 8));
  4672. }
  4673. break;
  4674. case BfIRCmd_DbgCreateReferenceType:
  4675. {
  4676. CMD_PARAM(llvm::MDNode*, diType);
  4677. SetResult(curId, mDIBuilder->createReferenceType(llvm::dwarf::DW_TAG_reference_type, (llvm::DIType*)diType));
  4678. }
  4679. break;
  4680. case BfIRCmd_DbgCreateConstType:
  4681. {
  4682. CMD_PARAM(llvm::MDNode*, diType);
  4683. SetResult(curId, mDIBuilder->createQualifiedType(llvm::dwarf::DW_TAG_const_type, (llvm::DIType*)diType));
  4684. }
  4685. break;
  4686. case BfIRCmd_DbgCreateArtificialType:
  4687. {
  4688. CMD_PARAM(llvm::MDNode*, diType);
  4689. SetResult(curId, mDIBuilder->createArtificialType((llvm::DIType*)diType));
  4690. }
  4691. break;
  4692. case BfIRCmd_DbgCreateArrayType:
  4693. {
  4694. CMD_PARAM(int64, sizeInBits);
  4695. CMD_PARAM(int64, alignInBits);
  4696. CMD_PARAM(llvm::MDNode*, elementType);
  4697. CMD_PARAM(int64, numElements);
  4698. llvm::SmallVector<llvm::Metadata*, 1> diSizeVec;
  4699. diSizeVec.push_back(mDIBuilder->getOrCreateSubrange(0, numElements));
  4700. auto diSizeArray = mDIBuilder->getOrCreateArray(diSizeVec);
  4701. SetResult(curId, mDIBuilder->createArrayType(sizeInBits, (uint32)alignInBits, (llvm::DIType*)elementType, diSizeArray));
  4702. }
  4703. break;
  4704. case BfIRCmd_DbgCreateReplaceableCompositeType:
  4705. {
  4706. CMD_PARAM(int, tag);
  4707. CMD_PARAM(String, name);
  4708. CMD_PARAM(llvm::MDNode*, scope);
  4709. CMD_PARAM(llvm::MDNode*, file);
  4710. CMD_PARAM(int, line);
  4711. CMD_PARAM(int64, sizeInBits);
  4712. CMD_PARAM(int64, alignInBits);
  4713. CMD_PARAM(int, flags);
  4714. BF_ASSERT(file != NULL);
  4715. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4716. SetResult(curId, mDIBuilder->createReplaceableCompositeType(tag, name.c_str(), (llvm::DIScope*)scope, (llvm::DIFile*)file, line, 0, sizeInBits, (uint32)alignInBits, diFlags));
  4717. }
  4718. break;
  4719. case BfIRCmd_DbgCreateForwardDecl:
  4720. {
  4721. CMD_PARAM(int, tag);
  4722. CMD_PARAM(String, name);
  4723. CMD_PARAM(llvm::MDNode*, scope);
  4724. CMD_PARAM(llvm::MDNode*, file);
  4725. CMD_PARAM(int, line);
  4726. BF_ASSERT(file != NULL);
  4727. auto diType = mDIBuilder->createForwardDecl(tag, name.c_str(), (llvm::DIScope*)scope, (llvm::DIFile*)file, line);
  4728. SetResult(curId, diType);
  4729. }
  4730. break;
  4731. case BfIRCmd_DbgCreateSizedForwardDecl:
  4732. {
  4733. CMD_PARAM(int, tag);
  4734. CMD_PARAM(String, name);
  4735. CMD_PARAM(llvm::MDNode*, scope);
  4736. CMD_PARAM(llvm::MDNode*, file);
  4737. CMD_PARAM(int, line);
  4738. CMD_PARAM(int64, sizeInBits);
  4739. CMD_PARAM(int64, alignInBits);
  4740. BF_ASSERT(file != NULL);
  4741. SetResult(curId, mDIBuilder->createForwardDecl(tag, name.c_str(), (llvm::DIScope*)scope, (llvm::DIFile*)file, line, 0, sizeInBits, (uint32)alignInBits));
  4742. }
  4743. break;
  4744. case BeIRCmd_DbgSetTypeSize:
  4745. {
  4746. CMD_PARAM(llvm::MDNode*, mdType);
  4747. CMD_PARAM(int64, sizeInBits);
  4748. CMD_PARAM(int64, alignInBits);
  4749. class DIMutType : public llvm::DIType
  4750. {
  4751. public:
  4752. void Resize(int64 newSize, int32 newAlign)
  4753. {
  4754. init(getLine(), newSize, newAlign, getOffsetInBits(), getFlags());
  4755. }
  4756. };
  4757. auto diType = (DIMutType*)mdType;
  4758. diType->Resize(sizeInBits, (int32)alignInBits);
  4759. }
  4760. break;
  4761. case BfIRCmd_DbgReplaceAllUses:
  4762. {
  4763. CMD_PARAM(llvm::MDNode*, diPrevNode);
  4764. CMD_PARAM(llvm::MDNode*, diNewNode);
  4765. diPrevNode->replaceAllUsesWith(diNewNode);
  4766. }
  4767. break;
  4768. case BfIRCmd_DbgDeleteTemporary:
  4769. {
  4770. CMD_PARAM(llvm::MDNode*, diNode);
  4771. llvm::MDNode::deleteTemporary(diNode);
  4772. }
  4773. break;
  4774. case BfIRCmd_DbgMakePermanent:
  4775. {
  4776. CMD_PARAM(llvm::MDNode*, diNode);
  4777. CMD_PARAM(llvm::MDNode*, diBaseType);
  4778. CMD_PARAM(CmdParamVec<llvm::Metadata*>, members);
  4779. llvm::MDNode* newNode = diNode;
  4780. if (auto diComposite = llvm::dyn_cast<llvm::DICompositeType>(diNode))
  4781. {
  4782. //diComposite->getBaseType()
  4783. if (diBaseType != NULL)
  4784. {
  4785. // It's unfortunate we have to hard-code the '3' here
  4786. diComposite->replaceOperandWith(3, diBaseType);
  4787. BF_ASSERT(diComposite->getBaseType() == diBaseType);
  4788. }
  4789. if (members.size() != 0)
  4790. {
  4791. llvm::DINodeArray elements = mDIBuilder->getOrCreateArray(members);
  4792. mDIBuilder->replaceArrays(diComposite, elements);
  4793. }
  4794. newNode = llvm::MDNode::replaceWithPermanent(llvm::TempDICompositeType(diComposite));
  4795. }
  4796. /*else if (auto diEnumerator = llvm::dyn_cast<llvm::DIEnumerator>(diNode))
  4797. {
  4798. if (members.size() != 0)
  4799. {
  4800. llvm::DINodeArray elements = mDIBuilder->getOrCreateArray(diNode);
  4801. mDIBuilder->set(diComposite, elements);
  4802. }
  4803. newNode = llvm::MDNode::replaceWithPermanent(llvm::TempDIEnumerator(diEnumerator));
  4804. }*/
  4805. SetResult(curId, newNode);
  4806. break;
  4807. }
  4808. case BfIRCmd_CreateEnumerator:
  4809. {
  4810. CMD_PARAM(String, name);
  4811. CMD_PARAM(int64, val);
  4812. SetResult(curId, mDIBuilder->createEnumerator(name.c_str(), val));
  4813. }
  4814. break;
  4815. case BfIRCmd_DbgCreateMemberType:
  4816. {
  4817. CMD_PARAM(llvm::MDNode*, scope);
  4818. CMD_PARAM(String, name);
  4819. CMD_PARAM(llvm::MDNode*, file);
  4820. CMD_PARAM(int, lineNumber);
  4821. CMD_PARAM(int64, sizeInBits);
  4822. CMD_PARAM(int64, alignInBits);
  4823. CMD_PARAM(int64, offsetInBits);
  4824. CMD_PARAM(int, flags);
  4825. CMD_PARAM(llvm::MDNode*, type);
  4826. BF_ASSERT(file != NULL);
  4827. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4828. /*Beefy::debug_ostream os;
  4829. os << "BfIRCmd_DbgCreateMemberType " << name.c_str() << "\n";
  4830. scope->print(os);
  4831. os << "\n";
  4832. type->print(os);
  4833. os << "\n";
  4834. os.flush();*/
  4835. const char* namePtr = name.c_str();
  4836. if (name.IsEmpty())
  4837. namePtr = NULL;
  4838. auto member = mDIBuilder->createMemberType((llvm::DIScope*)scope, namePtr, (llvm::DIFile*)file, lineNumber, sizeInBits, (uint32)alignInBits, offsetInBits, diFlags, (llvm::DIType*)type);
  4839. SetResult(curId, member);
  4840. //OutputDebugStrF("BfIRCmd_DbgCreateMemberType = %p\n", member);
  4841. }
  4842. break;
  4843. case BfIRCmd_DbgStaticCreateMemberType:
  4844. {
  4845. CMD_PARAM(llvm::MDNode*, scope);
  4846. CMD_PARAM(String, name);
  4847. CMD_PARAM(llvm::MDNode*, file);
  4848. CMD_PARAM(int, lineNumber);
  4849. CMD_PARAM(llvm::MDNode*, type);
  4850. CMD_PARAM(int, flags);
  4851. CMD_PARAM(llvm::Constant*, val);
  4852. BF_ASSERT(file != NULL);
  4853. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4854. /*Beefy::debug_ostream os;
  4855. os << "BfIRCmd_DbgStaticCreateMemberType " << name.c_str() << "\n";
  4856. scope->print(os);
  4857. os << "\n";
  4858. type->print(os);
  4859. os << "\n";
  4860. os.flush();*/
  4861. auto member = mDIBuilder->createStaticMemberType((llvm::DIScope*)scope, name.c_str(), (llvm::DIFile*)file, lineNumber, (llvm::DIType*)type, diFlags, val, llvm::dwarf::DW_TAG_member);
  4862. SetResult(curId, member);
  4863. //OutputDebugStrF("BfIRCmd_DbgStaticCreateMemberType = %p\n", member);
  4864. }
  4865. break;
  4866. case BfIRCmd_DbgCreateInheritance:
  4867. {
  4868. CMD_PARAM(llvm::MDNode*, type);
  4869. CMD_PARAM(llvm::MDNode*, baseType);
  4870. CMD_PARAM(int64, baseOffset);
  4871. CMD_PARAM(int, flags);
  4872. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4873. auto member = mDIBuilder->createInheritance((llvm::DIType*)type, (llvm::DIType*)baseType, baseOffset, 0, diFlags);
  4874. SetResult(curId, member);
  4875. //OutputDebugStrF("BfIRCmd_DbgCreateInheritance = %p\n", member);
  4876. }
  4877. break;
  4878. case BfIRCmd_DbgCreateMethod:
  4879. {
  4880. CMD_PARAM(llvm::MDNode*, context);
  4881. CMD_PARAM(String, name);
  4882. CMD_PARAM(String, linkageName);
  4883. CMD_PARAM(llvm::MDNode*, file);
  4884. CMD_PARAM(int, lineNum);
  4885. CMD_PARAM(llvm::MDNode*, type);
  4886. CMD_PARAM(bool, isLocalToUnit);
  4887. CMD_PARAM(bool, isDefinition);
  4888. CMD_PARAM(int, vk);
  4889. CMD_PARAM(int, vIndex);
  4890. CMD_PARAM(llvm::MDNode*, vTableHolder);
  4891. CMD_PARAM(int, flags);
  4892. CMD_PARAM(bool, isOptimized);
  4893. CMD_PARAM(llvm::Value*, fn);
  4894. CMD_PARAM(CmdParamVec<llvm::MDNode*>, genericArgs);
  4895. CMD_PARAM(CmdParamVec<llvm::Constant*>, genericConstValueArgs);
  4896. BF_ASSERT(file != NULL);
  4897. llvm::DITemplateParameterArray templateParamArr = NULL;
  4898. llvm::DINodeArray templateParamNodes;
  4899. if (genericArgs.size() != 0)
  4900. {
  4901. llvm::SmallVector<llvm::Metadata*, 16> templateParams;
  4902. for (int i = 0; i < (int)genericArgs.size(); i++)
  4903. {
  4904. auto genericArg = (llvm::DIType*)genericArgs[i];
  4905. String name = StrFormat("T%d", i);
  4906. llvm::Constant* constant = NULL;
  4907. if (i < genericConstValueArgs.size())
  4908. constant = genericConstValueArgs[i];
  4909. if (constant != NULL)
  4910. templateParams.push_back(mDIBuilder->createTemplateValueParameter(mDICompileUnit, name.c_str(), genericArg, false, constant));
  4911. else
  4912. templateParams.push_back(mDIBuilder->createTemplateTypeParameter(mDICompileUnit, name.c_str(), genericArg, false));
  4913. }
  4914. templateParamNodes = mDIBuilder->getOrCreateArray(templateParams);
  4915. templateParamArr = templateParamNodes.get();
  4916. }
  4917. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4918. llvm::DISubprogram::DISPFlags dispFlags = llvm::DISubprogram::DISPFlags::SPFlagZero;
  4919. if (isLocalToUnit)
  4920. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagLocalToUnit);
  4921. if (isDefinition)
  4922. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagDefinition);
  4923. if (isOptimized)
  4924. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagOptimized);
  4925. if (vk != 0)
  4926. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagVirtual);
  4927. auto diSubProgram = mDIBuilder->createMethod((llvm::DIScope*)context, name.c_str(), linkageName.c_str(), (llvm::DIFile*)file, lineNum,
  4928. (llvm::DISubroutineType*)type, vIndex, 0, (llvm::DIType*)vTableHolder, diFlags, dispFlags, templateParamArr);
  4929. if (fn != NULL)
  4930. ((llvm::Function*)fn)->setSubprogram(diSubProgram);
  4931. SetResult(curId, diSubProgram);
  4932. //OutputDebugStrF("BfIRCmd_DbgCreateMethod = %p\n", diSubProgram);
  4933. }
  4934. break;
  4935. case BfIRCmd_DbgCreateFunction:
  4936. {
  4937. CMD_PARAM(llvm::MDNode*, context);
  4938. CMD_PARAM(String, name);
  4939. CMD_PARAM(String, linkageName);
  4940. CMD_PARAM(llvm::MDNode*, file);
  4941. CMD_PARAM(int, lineNum);
  4942. CMD_PARAM(llvm::MDNode*, type);
  4943. CMD_PARAM(bool, isLocalToUnit);
  4944. CMD_PARAM(bool, isDefinition);
  4945. CMD_PARAM(int, scopeLine);
  4946. CMD_PARAM(int, flags);
  4947. CMD_PARAM(bool, isOptimized);
  4948. CMD_PARAM(llvm::Value*, fn);
  4949. BF_ASSERT(file != NULL);
  4950. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4951. llvm::DISubprogram::DISPFlags dispFlags = llvm::DISubprogram::DISPFlags::SPFlagZero;
  4952. if (isLocalToUnit)
  4953. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagLocalToUnit);
  4954. if (isDefinition)
  4955. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagDefinition);
  4956. if (isOptimized)
  4957. dispFlags = (llvm::DISubprogram::DISPFlags)(dispFlags | llvm::DISubprogram::DISPFlags::SPFlagOptimized);
  4958. auto diSubProgram = mDIBuilder->createFunction((llvm::DIScope*)context, name.c_str(), linkageName.c_str(), (llvm::DIFile*)file, lineNum,
  4959. (llvm::DISubroutineType*)type, scopeLine, diFlags, dispFlags);
  4960. if (fn != NULL)
  4961. ((llvm::Function*)fn)->setSubprogram(diSubProgram);
  4962. SetResult(curId, diSubProgram);
  4963. //OutputDebugStrF("BfIRCmd_DbgCreateFunction = %p\n", diSubProgram);
  4964. }
  4965. break;
  4966. case BfIRCmd_DbgCreateParameterVariable:
  4967. {
  4968. CMD_PARAM(llvm::MDNode*, scope);
  4969. CMD_PARAM(String, name);
  4970. CMD_PARAM(int, argNo);
  4971. CMD_PARAM(llvm::MDNode*, file);
  4972. CMD_PARAM(int, lineNum);
  4973. CMD_PARAM(llvm::MDNode*, type);
  4974. CMD_PARAM(bool, alwaysPreserve);
  4975. CMD_PARAM(int, flags);
  4976. BF_ASSERT(file != NULL);
  4977. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)flags;
  4978. SetResult(curId, mDIBuilder->createParameterVariable((llvm::DIScope*)scope, name.c_str(), argNo, (llvm::DIFile*)file, lineNum, (llvm::DIType*)type,
  4979. alwaysPreserve, diFlags));
  4980. }
  4981. break;
  4982. case BfIRCmd_DbgCreateSubroutineType:
  4983. {
  4984. CMD_PARAM(CmdParamVec<llvm::Metadata*>, elements);
  4985. auto diArray = mDIBuilder->getOrCreateTypeArray(elements);
  4986. SetResult(curId, mDIBuilder->createSubroutineType(diArray));
  4987. }
  4988. break;
  4989. case BfIRCmd_DbgCreateAutoVariable:
  4990. {
  4991. CMD_PARAM(llvm::MDNode*, scope);
  4992. CMD_PARAM(String, name);
  4993. CMD_PARAM(llvm::MDNode*, file);
  4994. CMD_PARAM(int, lineNo);
  4995. CMD_PARAM(llvm::MDNode*, type);
  4996. CMD_PARAM(int, initType);
  4997. BF_ASSERT(file != NULL);
  4998. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)0;
  4999. auto loc = mIRBuilder->getCurrentDebugLocation();
  5000. auto dbgLoc = loc.getAsMDNode();
  5001. SetResult(curId, mDIBuilder->createAutoVariable((llvm::DIScope*)scope, name.c_str(), (llvm::DIFile*)file, lineNo, (llvm::DIType*)type, false, diFlags));
  5002. }
  5003. break;
  5004. case BfIRCmd_DbgInsertValueIntrinsic:
  5005. {
  5006. CMD_PARAM(llvm::Value*, val);
  5007. CMD_PARAM(llvm::MDNode*, varInfo);
  5008. auto diVariable = (llvm::DILocalVariable*)varInfo;
  5009. if (val == NULL)
  5010. {
  5011. val = llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), 0);
  5012. }
  5013. else if (mIsCodeView)
  5014. {
  5015. if (auto constant = llvm::dyn_cast<llvm::Constant>(val))
  5016. {
  5017. int64 writeVal = 0;
  5018. if (auto constantInt = llvm::dyn_cast<llvm::ConstantInt>(val))
  5019. {
  5020. writeVal = constantInt->getSExtValue();
  5021. }
  5022. auto nameRef = diVariable->getName();
  5023. if (writeVal < 0)
  5024. diVariable->replaceOperandWith(1, llvm::MDString::get(*mLLVMContext, (String(nameRef.data()) + StrFormat("$_%llu", -writeVal)).c_str()));
  5025. else
  5026. diVariable->replaceOperandWith(1, llvm::MDString::get(*mLLVMContext, (String(nameRef.data()) + StrFormat("$%llu", writeVal)).c_str()));
  5027. }
  5028. }
  5029. mDIBuilder->insertDbgValueIntrinsic(val, diVariable, mDIBuilder->createExpression(),
  5030. mIRBuilder->getCurrentDebugLocation(), (llvm::BasicBlock*)mIRBuilder->GetInsertBlock());
  5031. }
  5032. break;
  5033. case BfIRCmd_DbgInsertDeclare:
  5034. {
  5035. CMD_PARAM(llvm::Value*, val);
  5036. CMD_PARAM(llvm::MDNode*, varInfo);
  5037. CMD_PARAM(llvm::Value*, insertBefore);
  5038. llvm::Instruction* insertBeforeInst = NULL;
  5039. if (insertBefore != NULL)
  5040. insertBeforeInst = llvm::dyn_cast<llvm::Instruction>(insertBefore);
  5041. // Protect against lack of debug location
  5042. if (mIRBuilder->getCurrentDebugLocation())
  5043. {
  5044. if (insertBeforeInst != NULL)
  5045. {
  5046. auto dbgResult = mDIBuilder->insertDeclare(val, (llvm::DILocalVariable*)varInfo, mDIBuilder->createExpression(),
  5047. mIRBuilder->getCurrentDebugLocation(), insertBeforeInst);
  5048. auto inst = dbgResult.get<llvm::Instruction*>();
  5049. SetResult(curId, inst);
  5050. }
  5051. else
  5052. {
  5053. auto dbgResult = mDIBuilder->insertDeclare(val, (llvm::DILocalVariable*)varInfo, mDIBuilder->createExpression(),
  5054. mIRBuilder->getCurrentDebugLocation(), mIRBuilder->GetInsertBlock());
  5055. auto inst = dbgResult.get<llvm::Instruction*>();
  5056. SetResult(curId, inst);
  5057. }
  5058. }
  5059. }
  5060. break;
  5061. case BfIRCmd_DbgLifetimeEnd:
  5062. {
  5063. CMD_PARAM(llvm::MDNode*, varInfo);
  5064. }
  5065. break;
  5066. case BfIRCmd_DbgCreateGlobalVariable:
  5067. {
  5068. CMD_PARAM(llvm::MDNode*, context);
  5069. CMD_PARAM(String, name);
  5070. CMD_PARAM(String, linkageName);
  5071. CMD_PARAM(llvm::MDNode*, file);
  5072. CMD_PARAM(int, lineNum);
  5073. CMD_PARAM(llvm::MDNode*, type);
  5074. CMD_PARAM(bool, isLocalToUnit);
  5075. CMD_PARAM(llvm::Constant*, val);
  5076. CMD_PARAM(llvm::MDNode*, decl);
  5077. //BF_ASSERT(file != NULL);
  5078. llvm::DIExpression* diExpr = NULL;
  5079. auto gve = mDIBuilder->createGlobalVariableExpression((llvm::DIScope*)context, name.c_str(), linkageName.c_str(), (llvm::DIFile*)file, lineNum, (llvm::DIType*)type,
  5080. isLocalToUnit, true, diExpr, decl);
  5081. if (val != NULL)
  5082. {
  5083. if (auto globalVar = llvm::dyn_cast<llvm::GlobalVariable>(val))
  5084. {
  5085. globalVar->addDebugInfo(gve);
  5086. }
  5087. }
  5088. SetResult(curId, diExpr);
  5089. }
  5090. break;
  5091. case BfIRCmd_DbgCreateLexicalBlock:
  5092. {
  5093. CMD_PARAM(llvm::MDNode*, scope);
  5094. CMD_PARAM(llvm::MDNode*, file);
  5095. CMD_PARAM(int, lineNum);
  5096. CMD_PARAM(int, col);
  5097. if (lineNum == 0)
  5098. col = 0;
  5099. BF_ASSERT(file != NULL);
  5100. SetResult(curId, mDIBuilder->createLexicalBlock((llvm::DIScope*)scope, (llvm::DIFile*)file, (unsigned)lineNum, (unsigned)col));
  5101. }
  5102. break;
  5103. case BfIRCmd_DbgCreateAnnotation:
  5104. {
  5105. CMD_PARAM(llvm::MDNode*, scope);
  5106. CMD_PARAM(String, name);
  5107. CMD_PARAM(llvm::Value*, value);
  5108. if (auto dbgFunc = llvm::dyn_cast<llvm::DISubprogram>(scope))
  5109. {
  5110. auto beType = value->getType();
  5111. auto diType = mDIBuilder->createBasicType("int32", 4 * 8, llvm::dwarf::DW_ATE_signed);
  5112. llvm::DINode::DIFlags diFlags = (llvm::DINode::DIFlags)0;
  5113. auto loc = mIRBuilder->getCurrentDebugLocation();
  5114. auto dbgLoc = loc.getAsMDNode();
  5115. auto diScope = (llvm::DIScope*)scope;
  5116. String dbgName = "#" + name;
  5117. int64 writeVal = 0;
  5118. if (auto constant = llvm::dyn_cast<llvm::ConstantInt>(value))
  5119. {
  5120. writeVal = constant->getSExtValue();
  5121. }
  5122. if (writeVal < 0)
  5123. dbgName += StrFormat("$_%llu", -writeVal);
  5124. else
  5125. dbgName += StrFormat("$%llu", writeVal);
  5126. auto dbgVar = mDIBuilder->createAutoVariable((llvm::DIScope*)scope, dbgName.c_str(), (llvm::DIFile*)diScope->getFile(), 0, diType, false, diFlags);
  5127. mDIBuilder->insertDbgValueIntrinsic(value, dbgVar, mDIBuilder->createExpression(),
  5128. mIRBuilder->getCurrentDebugLocation(), (llvm::BasicBlock*)mIRBuilder->GetInsertBlock());
  5129. }
  5130. }
  5131. break;
  5132. default:
  5133. BF_FATAL("Unhandled");
  5134. break;
  5135. }
  5136. }
  5137. void BfIRCodeGen::SetCodeGenOptions(BfCodeGenOptions codeGenOptions)
  5138. {
  5139. mCodeGenOptions = codeGenOptions;
  5140. }
  5141. void BfIRCodeGen::SetConfigConst(int idx, int value)
  5142. {
  5143. auto constVal = llvm::ConstantInt::get(llvm::Type::getInt32Ty(*mLLVMContext), value);
  5144. BF_ASSERT(idx == (int)mConfigConsts32.size());
  5145. mConfigConsts32.Add(constVal);
  5146. constVal = llvm::ConstantInt::get(llvm::Type::getInt64Ty(*mLLVMContext), value);
  5147. BF_ASSERT(idx == (int)mConfigConsts64.size());
  5148. mConfigConsts64.Add(constVal);
  5149. }
  5150. void BfIRCodeGen::SetActiveFunctionSimdType(BfSIMDSetting type)
  5151. {
  5152. BfSIMDSetting currentType;
  5153. bool contains = mFunctionsUsingSimd.TryGetValue(mActiveFunction, &currentType);
  5154. if (!contains || type > currentType)
  5155. mFunctionsUsingSimd[mActiveFunction] = type;
  5156. }
  5157. String BfIRCodeGen::GetSimdTypeString(BfSIMDSetting type)
  5158. {
  5159. switch (type)
  5160. {
  5161. case BfSIMDSetting_SSE:
  5162. return "+cmov,+cx8,+fxsr,+mmx,+sse,+x87";
  5163. case BfSIMDSetting_SSE2:
  5164. return "+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87";
  5165. case BfSIMDSetting_SSE4:
  5166. return "+cmov,+crc32,+cx16,+cx8,+fxsr,+mmx,+popcnt,+sahf,+sse,+sse2,+sse3,+ssse3,+x87";
  5167. case BfSIMDSetting_SSE41:
  5168. return "+cmov,+crc32,+cx16,+cx8,+fxsr,+mmx,+popcnt,+sahf,+sse,+sse2,+sse3,+sse4.1,+ssse3,+x87";
  5169. case BfSIMDSetting_SSE42:
  5170. return "+cmov,+crc32,+cx16,+cx8,+fxsr,+mmx,+popcnt,+sahf,+sse,+sse2,+sse3,+sse4.1,+sse4.2,+ssse3,+x87";
  5171. case BfSIMDSetting_AVX:
  5172. return "+avx,+bmi,+bmi2,+cmov,+crc32,+cx16,+cx8,+f16c,+fma,+fxsr,+lzcnt,+mmx,+movbe,+popcnt,+sahf,+sse,+sse2,+sse3,+sse4.1,+sse4.2,+ssse3,+x87,+xsave";
  5173. case BfSIMDSetting_AVX2:
  5174. return "+avx,+avx2,+bmi,+bmi2,+cmov,+crc32,+cx16,+cx8,+f16c,+fma,+fxsr,+lzcnt,+mmx,+movbe,+popcnt,+sahf,+sse,+sse2,+sse3,+sse4.1,+sse4.2,+ssse3,+x87,+xsave";
  5175. case BfSIMDSetting_AVX512:
  5176. return "+avx,+avx2,+avx512bw,+avx512cd,+avx512dq,+avx512f,+avx512vl,+bmi,+bmi2,+cmov,+crc32,+cx16,+cx8,+evex512,+f16c,+fma,+fxsr,+lzcnt,+mmx,+movbe,+popcnt,+sahf,+sse,+sse2,+sse3,+sse4.1,+sse4.2,+ssse3,+x87,+xsave";
  5177. default:
  5178. return "";
  5179. }
  5180. }
  5181. BfSIMDSetting BfIRCodeGen::GetSimdTypeFromFunction(llvm::Function* function)
  5182. {
  5183. if (function->hasFnAttribute("target-features"))
  5184. {
  5185. auto str = function->getFnAttribute("target-features").getValueAsString();
  5186. if (str.contains("+avx512f"))
  5187. return BfSIMDSetting_AVX512;
  5188. if (str.contains("+avx2"))
  5189. return BfSIMDSetting_AVX2;
  5190. if (str.contains("+avx"))
  5191. return BfSIMDSetting_AVX;
  5192. if (str.contains("+sse4.1"))
  5193. return BfSIMDSetting_SSE41;
  5194. if (str.contains("+sse4.2"))
  5195. return BfSIMDSetting_SSE42;
  5196. if (str.contains("+sse2"))
  5197. return BfSIMDSetting_SSE2;
  5198. if (str.contains("+sse"))
  5199. return BfSIMDSetting_SSE;
  5200. }
  5201. return BfSIMDSetting_None;
  5202. }
  5203. BfIRTypedValue BfIRCodeGen::GetTypedValue(int id)
  5204. {
  5205. auto& result = mResults[id];
  5206. if (result.mKind == BfIRCodeGenEntryKind_TypedValue)
  5207. return result.mTypedValue;
  5208. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMValue);
  5209. BfIRTypedValue typedValue;
  5210. typedValue.mTypeEx = NULL;
  5211. typedValue.mValue = result.mLLVMValue;
  5212. return typedValue;
  5213. }
  5214. llvm::Value* BfIRCodeGen::GetLLVMValue(int id)
  5215. {
  5216. auto& result = mResults[id];
  5217. if (result.mKind == BfIRCodeGenEntryKind_TypedValue)
  5218. return result.mTypedValue.mValue;
  5219. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMValue);
  5220. return result.mLLVMValue;
  5221. }
  5222. llvm::Type* BfIRCodeGen::GetLLVMType(int id)
  5223. {
  5224. auto& result = mResults[id];
  5225. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMType);
  5226. return result.mLLVMType;
  5227. }
  5228. llvm::BasicBlock * BfIRCodeGen::GetLLVMBlock(int id)
  5229. {
  5230. auto& result = mResults[id];
  5231. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMBasicBlock);
  5232. return result.mLLVMBlock;
  5233. }
  5234. llvm::MDNode* BfIRCodeGen::GetLLVMMetadata(int id)
  5235. {
  5236. auto& result = mResults[id];
  5237. BF_ASSERT(result.mKind == BfIRCodeGenEntryKind_LLVMMetadata);
  5238. return result.mLLVMMetadata;
  5239. }
  5240. llvm::Type* BfIRCodeGen::GetLLVMTypeById(int id)
  5241. {
  5242. return GetTypeEntry(id).mType->mLLVMType;
  5243. }
  5244. // LLVM/Clang 19.1.7
  5245. static void addSanitizers(const llvm::Triple& TargetTriple, BfCodeGenOptions& CodeGenOpts, llvm::PassBuilder& PB)
  5246. {
  5247. #if 0
  5248. auto SanitizersCallback = [&](llvm::ModulePassManager& MPM, llvm::OptimizationLevel Level) {
  5249. if (CodeGenOpts.hasSanitizeCoverage())
  5250. {
  5251. auto SancovOpts = getSancovOptsFromCGOpts(CodeGenOpts);
  5252. MPM.addPass(SanitizerCoveragePass(
  5253. SancovOpts, CodeGenOpts.SanitizeCoverageAllowlistFiles,
  5254. CodeGenOpts.SanitizeCoverageIgnorelistFiles));
  5255. }
  5256. if (CodeGenOpts.hasSanitizeBinaryMetadata()) {
  5257. MPM.addPass(SanitizerBinaryMetadataPass(
  5258. getSanitizerBinaryMetadataOptions(CodeGenOpts),
  5259. CodeGenOpts.SanitizeMetadataIgnorelistFiles));
  5260. }
  5261. auto MSanPass = [&](SanitizerMask Mask, bool CompileKernel) {
  5262. if (LangOpts.Sanitize.has(Mask)) {
  5263. int TrackOrigins = CodeGenOpts.SanitizeMemoryTrackOrigins;
  5264. bool Recover = CodeGenOpts.SanitizeRecover.has(Mask);
  5265. MemorySanitizerOptions options(TrackOrigins, Recover, CompileKernel,
  5266. CodeGenOpts.SanitizeMemoryParamRetval);
  5267. MPM.addPass(MemorySanitizerPass(options));
  5268. if (Level != OptimizationLevel::O0) {
  5269. // MemorySanitizer inserts complex instrumentation that mostly follows
  5270. // the logic of the original code, but operates on "shadow" values. It
  5271. // can benefit from re-running some general purpose optimization
  5272. // passes.
  5273. MPM.addPass(RequireAnalysisPass<GlobalsAA, llvm::Module>());
  5274. FunctionPassManager FPM;
  5275. FPM.addPass(EarlyCSEPass(true /* Enable mem-ssa. */));
  5276. FPM.addPass(InstCombinePass());
  5277. FPM.addPass(JumpThreadingPass());
  5278. FPM.addPass(GVNPass());
  5279. FPM.addPass(InstCombinePass());
  5280. MPM.addPass(createModuleToFunctionPassAdaptor(std::move(FPM)));
  5281. }
  5282. }
  5283. };
  5284. MSanPass(SanitizerKind::Memory, false);
  5285. MSanPass(SanitizerKind::KernelMemory, true);
  5286. if (LangOpts.Sanitize.has(SanitizerKind::Thread)) {
  5287. MPM.addPass(ModuleThreadSanitizerPass());
  5288. MPM.addPass(createModuleToFunctionPassAdaptor(ThreadSanitizerPass()));
  5289. }
  5290. auto ASanPass = [&](SanitizerMask Mask, bool CompileKernel) {
  5291. if (LangOpts.Sanitize.has(Mask)) {
  5292. bool UseGlobalGC = asanUseGlobalsGC(TargetTriple, CodeGenOpts);
  5293. bool UseOdrIndicator = CodeGenOpts.SanitizeAddressUseOdrIndicator;
  5294. llvm::AsanDtorKind DestructorKind =
  5295. CodeGenOpts.getSanitizeAddressDtor();
  5296. AddressSanitizerOptions Opts;
  5297. Opts.CompileKernel = CompileKernel;
  5298. Opts.Recover = CodeGenOpts.SanitizeRecover.has(Mask);
  5299. Opts.UseAfterScope = CodeGenOpts.SanitizeAddressUseAfterScope;
  5300. Opts.UseAfterReturn = CodeGenOpts.getSanitizeAddressUseAfterReturn();
  5301. MPM.addPass(AddressSanitizerPass(Opts, UseGlobalGC, UseOdrIndicator,
  5302. DestructorKind));
  5303. }
  5304. };
  5305. ASanPass(SanitizerKind::Address, false);
  5306. ASanPass(SanitizerKind::KernelAddress, true);
  5307. auto HWASanPass = [&](SanitizerMask Mask, bool CompileKernel) {
  5308. if (LangOpts.Sanitize.has(Mask)) {
  5309. bool Recover = CodeGenOpts.SanitizeRecover.has(Mask);
  5310. MPM.addPass(HWAddressSanitizerPass(
  5311. { CompileKernel, Recover,
  5312. /*DisableOptimization=*/CodeGenOpts.OptimizationLevel == 0 }));
  5313. }
  5314. };
  5315. HWASanPass(SanitizerKind::HWAddress, false);
  5316. HWASanPass(SanitizerKind::KernelHWAddress, true);
  5317. if (LangOpts.Sanitize.has(SanitizerKind::DataFlow)) {
  5318. MPM.addPass(DataFlowSanitizerPass(LangOpts.NoSanitizeFiles));
  5319. }
  5320. };
  5321. if (ClSanitizeOnOptimizerEarlyEP) {
  5322. PB.registerOptimizerEarlyEPCallback(
  5323. [SanitizersCallback](ModulePassManager& MPM, OptimizationLevel Level) {
  5324. ModulePassManager NewMPM;
  5325. SanitizersCallback(NewMPM, Level);
  5326. if (!NewMPM.isEmpty()) {
  5327. // Sanitizers can abandon<GlobalsAA>.
  5328. NewMPM.addPass(RequireAnalysisPass<GlobalsAA, llvm::Module>());
  5329. MPM.addPass(std::move(NewMPM));
  5330. }
  5331. });
  5332. }
  5333. else {
  5334. // LastEP does not need GlobalsAA.
  5335. PB.registerOptimizerLastEPCallback(SanitizersCallback);
  5336. }
  5337. #endif
  5338. }
  5339. // LLVM/Clang 19.1.7
  5340. static void addKCFIPass(const llvm::Triple& TargetTriple, const BfCodeGenOptions& codeGenOpts, llvm::PassBuilder& PB)
  5341. {
  5342. #if 0
  5343. // If the back-end supports KCFI operand bundle lowering, skip KCFIPass.
  5344. if (TargetTriple.getArch() == llvm::Triple::x86_64 ||
  5345. TargetTriple.isAArch64(64) || TargetTriple.isRISCV())
  5346. return;
  5347. // Ensure we lower KCFI operand bundles with -O0.
  5348. PB.registerOptimizerLastEPCallback(
  5349. [&](ModulePassManager& MPM, OptimizationLevel Level) {
  5350. if (Level == OptimizationLevel::O0 &&
  5351. LangOpts.Sanitize.has(SanitizerKind::KCFI))
  5352. MPM.addPass(createModuleToFunctionPassAdaptor(KCFIPass()));
  5353. });
  5354. // When optimizations are requested, run KCIFPass after InstCombine to
  5355. // avoid unnecessary checks.
  5356. PB.registerPeepholeEPCallback(
  5357. [&](FunctionPassManager& FPM, OptimizationLevel Level) {
  5358. if (Level != OptimizationLevel::O0 &&
  5359. LangOpts.Sanitize.has(SanitizerKind::KCFI))
  5360. FPM.addPass(KCFIPass());
  5361. });
  5362. #endif
  5363. }
  5364. /// Check whether we should emit a module summary for regular LTO.
  5365. /// The module summary should be emitted by default for regular LTO
  5366. /// except for ld64 targets.
  5367. ///
  5368. /// \return True if the module summary should be emitted.
  5369. static bool shouldEmitRegularLTOSummary(const llvm::Triple& targetTriple, const BfCodeGenOptions& codeGenOptions, bool PrepareForLTO)
  5370. {
  5371. return PrepareForLTO /*&& !CodeGenOpts.DisableLLVMPasses*/ &&
  5372. targetTriple.getVendor() != llvm::Triple::Apple;
  5373. }
  5374. /// Check whether we should emit a flag for UnifiedLTO.
  5375. /// The UnifiedLTO module flag should be set when UnifiedLTO is enabled for
  5376. /// ThinLTO or Full LTO with module summaries.
  5377. static bool shouldEmitUnifiedLTOModueFlag(const llvm::Triple& targetTriple, const BfCodeGenOptions& codeGenOptions, bool PrepareForLTO)
  5378. {
  5379. return false;
  5380. /*return CodeGenOpts.UnifiedLTO &&
  5381. (CodeGenOpts.PrepareForThinLTO || shouldEmitRegularLTOSummary());*/
  5382. }
  5383. void BfIRCodeGen::RunOptimizationPipeline(const llvm::Triple& targetTriple)
  5384. {
  5385. bool verifyModule = true;
  5386. std::optional<llvm::PGOOptions> pgoOptions;
  5387. mLLVMTargetMachine->setPGOOption(pgoOptions);
  5388. llvm::PipelineTuningOptions pto;
  5389. pto.LoopUnrolling = !mCodeGenOptions.mDisableUnrollLoops;
  5390. // For historical reasons, loop interleaving is set to mirror setting for loop unrolling.
  5391. pto.LoopInterleaving = !mCodeGenOptions.mDisableUnrollLoops;
  5392. pto.LoopVectorization = mCodeGenOptions.mLoopVectorize;
  5393. pto.SLPVectorization = mCodeGenOptions.mSLPVectorize;
  5394. pto.MergeFunctions = mCodeGenOptions.mMergeFunctions;
  5395. //TODO:
  5396. //pto.CallGraphProfile = ???
  5397. //pto.UnifiedLTO = ???
  5398. llvm::LoopAnalysisManager LAM;
  5399. llvm::FunctionAnalysisManager FAM;
  5400. llvm::CGSCCAnalysisManager CGAM;
  5401. llvm::ModuleAnalysisManager MAM;
  5402. llvm::PassInstrumentationCallbacks PIC;
  5403. // PrintPassOptions PrintPassOpts;
  5404. // PrintPassOpts.Indent = DebugPassStructure;
  5405. // PrintPassOpts.SkipAnalyses = DebugPassStructure;
  5406. // StandardInstrumentations SI(
  5407. // TheModule->getContext(),
  5408. // (CodeGenOpts.DebugPassManager || DebugPassStructure),
  5409. // CodeGenOpts.VerifyEach, PrintPassOpts);
  5410. // SI.registerCallbacks(PIC, &MAM);
  5411. llvm::PassBuilder PB(mLLVMTargetMachine, pto, pgoOptions, &PIC);
  5412. // Register all the basic analyses with the managers.
  5413. PB.registerModuleAnalyses(MAM);
  5414. PB.registerCGSCCAnalyses(CGAM);
  5415. PB.registerFunctionAnalyses(FAM);
  5416. PB.registerLoopAnalyses(LAM);
  5417. PB.crossRegisterProxies(LAM, FAM, CGAM, MAM);
  5418. //llvm::ModulePassManager MPM;
  5419. // Add a verifier pass, before any other passes, to catch CodeGen issues.
  5420. llvm::ModulePassManager MPM;
  5421. if (verifyModule)
  5422. MPM.addPass(llvm::VerifierPass());
  5423. bool disableLLVMPasses = false;
  5424. if (!disableLLVMPasses)
  5425. {
  5426. llvm::OptimizationLevel Level;
  5427. bool PrepareForLTO = false;
  5428. bool PrepareForThinLTO = mCodeGenOptions.mLTOType == BfLTOType_Thin;
  5429. //bool performThinLTO = false;
  5430. Level = llvm::OptimizationLevel::O0;
  5431. switch (mCodeGenOptions.mOptLevel)
  5432. {
  5433. case BfOptLevel_O0:
  5434. Level = llvm::OptimizationLevel::O0;
  5435. break;
  5436. case BfOptLevel_O1:
  5437. Level = llvm::OptimizationLevel::O1;
  5438. break;
  5439. case BfOptLevel_O2:
  5440. Level = llvm::OptimizationLevel::O2;
  5441. break;
  5442. case BfOptLevel_O3:
  5443. Level = llvm::OptimizationLevel::O3;
  5444. break;
  5445. case BfOptLevel_Og:
  5446. Level = llvm::OptimizationLevel::O1;
  5447. break;
  5448. }
  5449. bool IsThinLTOPostLink = false;
  5450. #if 0
  5451. // If we reached here with a non-empty index file name, then the index
  5452. // file was empty and we are not performing ThinLTO backend compilation
  5453. // (used in testing in a distributed build environment).
  5454. bool IsThinLTOPostLink = !CodeGenOpts.ThinLTOIndexFile.empty();
  5455. // If so drop any the type test assume sequences inserted for whole program
  5456. // vtables so that codegen doesn't complain.
  5457. if (IsThinLTOPostLink)
  5458. PB.registerPipelineStartEPCallback(
  5459. [](ModulePassManager& MPM, OptimizationLevel Level) {
  5460. MPM.addPass(LowerTypeTestsPass(/*ExportSummary=*/nullptr,
  5461. /*ImportSummary=*/nullptr,
  5462. /*DropTypeTests=*/true));
  5463. });
  5464. // Register callbacks to schedule sanitizer passes at the appropriate part
  5465. // of the pipeline.
  5466. if (LangOpts.Sanitize.has(SanitizerKind::LocalBounds))
  5467. PB.registerScalarOptimizerLateEPCallback(
  5468. [](FunctionPassManager& FPM, OptimizationLevel Level) {
  5469. FPM.addPass(BoundsCheckingPass());
  5470. });
  5471. #endif
  5472. // Don't add sanitizers if we are here from ThinLTO PostLink. That already
  5473. // done on PreLink stage.
  5474. if (!IsThinLTOPostLink) {
  5475. addSanitizers(targetTriple, mCodeGenOptions, PB);
  5476. addKCFIPass(targetTriple, mCodeGenOptions, PB);
  5477. }
  5478. #if 0
  5479. if (std::optional<GCOVOptions> Options =
  5480. getGCOVOptions(CodeGenOpts, LangOpts))
  5481. PB.registerPipelineStartEPCallback(
  5482. [Options](ModulePassManager& MPM, OptimizationLevel Level) {
  5483. MPM.addPass(GCOVProfilerPass(*Options));
  5484. });
  5485. if (std::optional<InstrProfOptions> Options =
  5486. getInstrProfOptions(CodeGenOpts, LangOpts))
  5487. PB.registerPipelineStartEPCallback(
  5488. [Options](ModulePassManager& MPM, OptimizationLevel Level) {
  5489. MPM.addPass(InstrProfilingLoweringPass(*Options, false));
  5490. });
  5491. // TODO: Consider passing the MemoryProfileOutput to the pass builder via
  5492. // the PGOOptions, and set this up there.
  5493. if (!CodeGenOpts.MemoryProfileOutput.empty()) {
  5494. PB.registerOptimizerLastEPCallback(
  5495. [](ModulePassManager& MPM, OptimizationLevel Level) {
  5496. MPM.addPass(createModuleToFunctionPassAdaptor(MemProfilerPass()));
  5497. MPM.addPass(ModuleMemProfilerPass());
  5498. });
  5499. }
  5500. #endif
  5501. if (mCodeGenOptions.mLTOType == BfLTOType_Fat)
  5502. {
  5503. MPM.addPass(PB.buildFatLTODefaultPipeline(
  5504. Level, PrepareForThinLTO,
  5505. PrepareForThinLTO || shouldEmitRegularLTOSummary(targetTriple, mCodeGenOptions, PrepareForLTO)));
  5506. }
  5507. else if (PrepareForThinLTO)
  5508. {
  5509. MPM.addPass(PB.buildThinLTOPreLinkDefaultPipeline(Level));
  5510. }
  5511. else if (PrepareForLTO)
  5512. {
  5513. MPM.addPass(PB.buildLTOPreLinkDefaultPipeline(Level));
  5514. }
  5515. else
  5516. {
  5517. MPM.addPass(PB.buildPerModuleDefaultPipeline(Level));
  5518. }
  5519. }
  5520. // Re-link against any bitcodes supplied via the -mlink-builtin-bitcode option
  5521. // Some optimizations may generate new function calls that would not have
  5522. // been linked pre-optimization (i.e. fused sincos calls generated by
  5523. // AMDGPULibCalls::fold_sincos.)
  5524. //TODO:
  5525. // if (ClRelinkBuiltinBitcodePostop)
  5526. // MPM.addPass(LinkInModulesPass(BC, false));
  5527. // Add a verifier pass if requested. We don't have to do this if the action
  5528. // requires code generation because there will already be a verifier pass in
  5529. // the code-generation pipeline.
  5530. // Since we already added a verifier pass above, this
  5531. // might even not run the analysis, if previous passes caused no changes.
  5532. // if (!actionRequiresCodeGen(Action) && CodeGenOpts.VerifyModule)
  5533. // MPM.addPass(VerifierPass());
  5534. //TODO:
  5535. #if 0
  5536. if (Action == Backend_EmitBC || Action == Backend_EmitLL || CodeGenOpts.FatLTO)
  5537. {
  5538. if (CodeGenOpts.PrepareForThinLTO && !CodeGenOpts.DisableLLVMPasses) {
  5539. if (!TheModule->getModuleFlag("EnableSplitLTOUnit"))
  5540. TheModule->addModuleFlag(llvm::Module::Error, "EnableSplitLTOUnit",
  5541. CodeGenOpts.EnableSplitLTOUnit);
  5542. if (Action == Backend_EmitBC) {
  5543. if (!CodeGenOpts.ThinLinkBitcodeFile.empty()) {
  5544. ThinLinkOS = openOutputFile(CodeGenOpts.ThinLinkBitcodeFile);
  5545. if (!ThinLinkOS)
  5546. return;
  5547. }
  5548. MPM.addPass(ThinLTOBitcodeWriterPass(
  5549. *OS, ThinLinkOS ? &ThinLinkOS->os() : nullptr));
  5550. }
  5551. else if (Action == Backend_EmitLL) {
  5552. MPM.addPass(PrintModulePass(*OS, "", CodeGenOpts.EmitLLVMUseLists,
  5553. /*EmitLTOSummary=*/true));
  5554. }
  5555. }
  5556. else {
  5557. // Emit a module summary by default for Regular LTO except for ld64
  5558. // targets
  5559. bool EmitLTOSummary = shouldEmitRegularLTOSummary();
  5560. if (EmitLTOSummary) {
  5561. if (!TheModule->getModuleFlag("ThinLTO") && !CodeGenOpts.UnifiedLTO)
  5562. TheModule->addModuleFlag(llvm::Module::Error, "ThinLTO", uint32_t(0));
  5563. if (!TheModule->getModuleFlag("EnableSplitLTOUnit"))
  5564. TheModule->addModuleFlag(llvm::Module::Error, "EnableSplitLTOUnit",
  5565. uint32_t(1));
  5566. }
  5567. if (Action == Backend_EmitBC) {
  5568. MPM.addPass(BitcodeWriterPass(*OS, CodeGenOpts.EmitLLVMUseLists,
  5569. EmitLTOSummary));
  5570. }
  5571. else if (Action == Backend_EmitLL) {
  5572. MPM.addPass(PrintModulePass(*OS, "", CodeGenOpts.EmitLLVMUseLists,
  5573. EmitLTOSummary));
  5574. }
  5575. }
  5576. if (shouldEmitUnifiedLTOModueFlag())
  5577. TheModule->addModuleFlag(llvm::Module::Error, "UnifiedLTO", uint32_t(1));
  5578. }
  5579. #endif
  5580. // Print a textual, '-passes=' compatible, representation of pipeline if
  5581. // requested.
  5582. // if (PrintPipelinePasses) {
  5583. // MPM.printPipeline(outs(), [&PIC](StringRef ClassName) {
  5584. // auto PassName = PIC.getPassNameForClassName(ClassName);
  5585. // return PassName.empty() ? ClassName : PassName;
  5586. // });
  5587. // outs() << "\n";
  5588. // return;
  5589. // }
  5590. //
  5591. // if (LangOpts.HIPStdPar && !LangOpts.CUDAIsDevice &&
  5592. // LangOpts.HIPStdParInterposeAlloc)
  5593. // MPM.addPass(HipStdParAllocationInterpositionPass());
  5594. // Now that we have all of the passes ready, run them.
  5595. {
  5596. //PrettyStackTraceString CrashInfo("Optimizer");
  5597. //llvm::TimeTraceScope TimeScope("Optimizer");
  5598. MPM.run(*mLLVMModule, MAM);
  5599. }
  5600. }
  5601. bool BfIRCodeGen::WriteObjectFile(const StringImpl& outFileName)
  5602. {
  5603. // {
  5604. // PassManagerBuilderWrapper pmBuilder;
  5605. //
  5606. //
  5607. // }
  5608. mHasDebugLoc = false; // So fails don't show a line number
  5609. bool enableLTO = mCodeGenOptions.mLTOType != BfLTOType_None;
  5610. if (enableLTO)
  5611. {
  5612. // We have some constructs which trip up ThinLTO, and it's not useful to LTO here anyway
  5613. if (GetFileName(outFileName) == "vdata.obj")
  5614. {
  5615. enableLTO = false;
  5616. }
  5617. if (mHadDLLExport) // LTO bug in LLVM-link?
  5618. enableLTO = false;
  5619. }
  5620. std::error_code EC;
  5621. llvm::sys::fs::OpenFlags OpenFlags = llvm::sys::fs::OF_None;
  5622. llvm::raw_fd_ostream out(outFileName.c_str(), EC, OpenFlags);
  5623. if (EC)
  5624. return false;
  5625. // Build up all of the passes that we want to do to the module.
  5626. //llvm::legacy::PassManager PM;
  5627. llvm::legacy::PassManager PM;
  5628. llvm::Triple theTriple = llvm::Triple(mLLVMModule->getTargetTriple());
  5629. // Add an appropriate TargetLibraryInfo pass for the module's triple.
  5630. llvm::TargetLibraryInfoImpl TLII(theTriple);
  5631. PM.add(new llvm::TargetLibraryInfoWrapperPass(TLII));
  5632. // Add the target data from the target machine, if it exists, or the module.
  5633. //PM.add(new DataLayoutPass());
  5634. RunOptimizationPipeline(theTriple);
  5635. llvm::raw_fd_ostream* outStream = NULL;
  5636. defer ( delete outStream; );
  5637. if ((enableLTO) || (mCodeGenOptions.mWriteBitcode))
  5638. {
  5639. std::error_code ec;
  5640. outStream = new llvm::raw_fd_ostream(outFileName.c_str(), ec, llvm::sys::fs::OF_None);
  5641. if (outStream->has_error())
  5642. {
  5643. return false;
  5644. }
  5645. // if (enableLTO)
  5646. // PM.add(createWriteThinLTOBitcodePass(*outStream, NULL));
  5647. //else
  5648. PM.add(createBitcodeWriterPass(*outStream, false));
  5649. }
  5650. // TargetPassConfig *PassConfig = target->createPassConfig(PM);
  5651. // PM.add(new BfPass());
  5652. // PM.add(sBfPass);
  5653. // Do
  5654. {
  5655. //formatted_raw_ostream FOS(out);
  5656. //raw_pwrite_stream *OS = &out->os();
  5657. //TODO:
  5658. llvm::AnalysisID StartAfterID = nullptr;
  5659. llvm::AnalysisID StopAfterID = nullptr;
  5660. const llvm::PassRegistry *PR = llvm::PassRegistry::getPassRegistry();
  5661. //WriteBitcode
  5662. bool noVerify = false; // Option
  5663. if ((!enableLTO) && (!mCodeGenOptions.mWriteBitcode))
  5664. {
  5665. // Ask the target to add backend passes as necessary.
  5666. if (mLLVMTargetMachine->addPassesToEmitFile(PM, out, NULL,
  5667. (mCodeGenOptions.mAsmKind != BfAsmKind_None) ? llvm::CodeGenFileType::AssemblyFile : llvm::CodeGenFileType::ObjectFile,
  5668. //TargetMachine::CGFT_AssemblyFile,
  5669. noVerify /*, StartAfterID, StopAfterID*/))
  5670. {
  5671. Fail("Target does not support generation of this file type");
  5672. /*errs() << argv[0] << ": target does not support generation of this"
  5673. << " file type!\n";*/
  5674. return false;
  5675. }
  5676. }
  5677. bool success = PM.run(*mLLVMModule);
  5678. if ((mCodeGenOptions.mOptLevel > BfOptLevel_O0) && (mCodeGenOptions.mWriteLLVMIR))
  5679. {
  5680. BP_ZONE("BfCodeGen::RunLoop.LLVM.IR");
  5681. String fileName = outFileName;
  5682. int dotPos = (int)fileName.LastIndexOf('.');
  5683. if (dotPos != -1)
  5684. fileName.RemoveToEnd(dotPos);
  5685. fileName += "_OPT.ll";
  5686. String irError;
  5687. WriteIR(fileName, irError);
  5688. }
  5689. }
  5690. return true;
  5691. }
  5692. bool BfIRCodeGen::WriteIR(const StringImpl& outFileName, StringImpl& error)
  5693. {
  5694. std::error_code ec;
  5695. llvm::raw_fd_ostream outStream(outFileName.c_str(), ec, llvm::sys::fs::OpenFlags::OF_Text);
  5696. if (ec)
  5697. {
  5698. error = ec.message();
  5699. return false;
  5700. }
  5701. mLLVMModule->print(outStream, NULL);
  5702. return true;
  5703. }
  5704. void BfIRCodeGen::ApplySimdFeatures()
  5705. {
  5706. Array<std::tuple<llvm::Function*, BfSIMDSetting>> functionsToProcess;
  5707. for (auto pair : mFunctionsUsingSimd)
  5708. functionsToProcess.Add({ pair.mKey, pair.mValue });
  5709. while (functionsToProcess.Count() > 0)
  5710. {
  5711. auto tuple = functionsToProcess.front();
  5712. functionsToProcess.RemoveAt(0);
  5713. auto function = std::get<0>(tuple);
  5714. auto simdType = std::get<1>(tuple);
  5715. auto currentSimdType = GetSimdTypeFromFunction(function);
  5716. simdType = simdType > currentSimdType ? simdType : currentSimdType;
  5717. function->addFnAttr("target-features", GetSimdTypeString(simdType).c_str());
  5718. if (function->hasFnAttribute(llvm::Attribute::AlwaysInline))
  5719. {
  5720. for (auto user : function->users())
  5721. {
  5722. if (auto call = llvm::dyn_cast<llvm::CallInst>(user))
  5723. {
  5724. auto func = call->getFunction();
  5725. functionsToProcess.Add({ func, simdType });
  5726. }
  5727. }
  5728. }
  5729. }
  5730. }
  5731. int BfIRCodeGen::GetIntrinsicId(const StringImpl& name)
  5732. {
  5733. auto itr = std::lower_bound(std::begin(gIntrinEntries), std::end(gIntrinEntries), name);
  5734. if (itr != std::end(gIntrinEntries) && strcmp(itr->mName, name.c_str()) == 0)
  5735. {
  5736. int id = (int)(itr - gIntrinEntries);
  5737. return id;
  5738. }
  5739. if (name.StartsWith("shuffle"))
  5740. return BfIRIntrinsic_Shuffle;
  5741. if (name.Contains(':'))
  5742. return BfIRIntrinsic__PLATFORM;
  5743. return -1;
  5744. }
  5745. const char* BfIRCodeGen::GetIntrinsicName(int intrinId)
  5746. {
  5747. return gIntrinEntries[intrinId].mName;
  5748. }
  5749. void BfIRCodeGen::SetAsmKind(BfAsmKind asmKind)
  5750. {
  5751. const char* args[] = {"", (asmKind == BfAsmKind_ATT) ? "-x86-asm-syntax=att" : "-x86-asm-syntax=intel" };
  5752. llvm::cl::ParseCommandLineOptions(2, args);
  5753. }
  5754. #ifdef BF_PLATFORM_LINUX
  5755. //HACK: I don't know why this is needed, but we get link errors if we don't have it.
  5756. int BF_LinuxFixLinkage()
  5757. {
  5758. llvm::MCContext* ctx = NULL;
  5759. llvm::raw_pwrite_stream* stream = NULL;
  5760. createWasmStreamer(*ctx, NULL, NULL, NULL);
  5761. createMachOStreamer(*ctx, NULL, NULL, NULL, false, false);
  5762. createAsmStreamer(*ctx, NULL, NULL, NULL, NULL);
  5763. createELFStreamer(*ctx, NULL, NULL, NULL);
  5764. return 0;
  5765. }
  5766. #endif
  5767. //#include "aarch64/Disassembler/X86DisassemblerDecoder.h"
  5768. //#include "X86/MCTargetDesc/X86MCTargetDesc.h"
  5769. //#include "X86/MCTargetDesc/X86BaseInfo.h"
  5770. //#include "X86InstrInfo.h"
  5771. #ifdef BF_PLATFORM_MACOS
  5772. #include "AArch64/MCTargetDesc/AArch64MCTargetDesc.h"
  5773. //#include "AArch64/MCTargetDesc/AArch64BaseInfo.h"
  5774. //#include "../X86InstrInfo.h"
  5775. int BF_AARC64_Linkage()
  5776. {
  5777. LLVMInitializeAArch64TargetInfo();
  5778. LLVMInitializeAArch64Target();
  5779. LLVMInitializeAArch64TargetMC();
  5780. return 0;
  5781. }
  5782. #endif
  5783. void BfIRCodeGen::StaticInit()
  5784. {
  5785. LLVMInitializeX86TargetInfo();
  5786. LLVMInitializeX86Target();
  5787. LLVMInitializeX86TargetMC();
  5788. LLVMInitializeX86AsmPrinter();
  5789. LLVMInitializeX86AsmParser();
  5790. LLVMInitializeX86Disassembler();
  5791. LLVMInitializeARMTargetInfo();
  5792. LLVMInitializeARMTarget();
  5793. LLVMInitializeARMTargetMC();
  5794. LLVMInitializeARMAsmPrinter();
  5795. LLVMInitializeAArch64TargetInfo();
  5796. LLVMInitializeAArch64Target();
  5797. LLVMInitializeAArch64TargetMC();
  5798. LLVMInitializeAArch64AsmPrinter();
  5799. //LLVMInitializeAArch64Parser();
  5800. //LLVMInitializeX86Disassembler();
  5801. LLVMInitializeWebAssemblyTargetInfo();
  5802. LLVMInitializeWebAssemblyTarget();
  5803. LLVMInitializeWebAssemblyTargetMC();
  5804. LLVMInitializeWebAssemblyAsmPrinter();
  5805. //LLVMInitializeWebAssemblyAsmParser();
  5806. LLVMInitializeWebAssemblyDisassembler();
  5807. }