2
0

BfIRCodeGen.cpp 193 KB

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