123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588 |
- /*
- * +----------------------------------------------------------------------+
- * | Zend JIT |
- * +----------------------------------------------------------------------+
- * | Copyright (c) The PHP Group |
- * +----------------------------------------------------------------------+
- * | This source file is subject to version 3.01 of the PHP license, |
- * | that is bundled with this package in the file LICENSE, and is |
- * | available through the world-wide-web at the following url: |
- * | https://www.php.net/license/3_01.txt |
- * | If you did not receive a copy of the PHP license and are unable to |
- * | obtain it through the world-wide-web, please send a note to |
- * | license@php.net so we can mail you a copy immediately. |
- * +----------------------------------------------------------------------+
- * | Authors: Dmitry Stogov <dmitry@php.net> |
- * | Xinchen Hui <laruence@php.net> |
- * | Hao Sun <hao.sun@arm.com> |
- * +----------------------------------------------------------------------+
- */
- |.arch arm64
- |.define FP, x27
- |.define IP, x28
- |.define IPl, w28
- |.define RX, x28 // the same as VM IP reused as a general purpose reg
- |.define LR, x30
- |.define CARG1, x0
- |.define CARG2, x1
- |.define CARG3, x2
- |.define CARG4, x3
- |.define CARG5, x4
- |.define CARG6, x5
- |.define CARG1w, w0
- |.define CARG2w, w1
- |.define CARG3w, w2
- |.define CARG4w, w3
- |.define CARG5w, w4
- |.define CARG6w, w5
- |.define RETVALx, x0
- |.define RETVALw, w0
- |.define FCARG1x, x0
- |.define FCARG1w, w0
- |.define FCARG2x, x1
- |.define FCARG2w, w1
- |.define SPAD, 0x20 // padding for CPU stack alignment
- |.define NR_SPAD, 0x30 // padding for CPU stack alignment
- |.define T3, [sp, #0x28] // Used to store old value of IP (CALL VM only)
- |.define T2, [sp, #0x20] // Used to store old value of FP (CALL VM only)
- |.define T1, [sp, #0x10]
- // We use REG0/1/2 and FPR0/1 to replace r0/1/2 and xmm0/1 in the x86 implementation.
- // Scratch registers
- |.define REG0, x8
- |.define REG0w, w8
- |.define REG1, x9
- |.define REG1w, w9
- |.define REG2, x10
- |.define REG2w, w10
- |.define FPR0, d0
- |.define FPR1, d1
- |.define ZREG_REG0, ZREG_X8
- |.define ZREG_REG1, ZREG_X9
- |.define ZREG_REG2, ZREG_X10
- |.define ZREG_FPR0, ZREG_V0
- |.define ZREG_FPR1, ZREG_V1
- // Temporaries, not preserved across calls
- |.define TMP1, x15
- |.define TMP1w, w15
- |.define TMP2, x16
- |.define TMP2w, w16
- |.define TMP3, x17 // TODO: remember about hard-coded: mrs TMP3, tpidr_el0
- |.define TMP3w, w17
- |.define FPTMP, d16
- |.define ZREG_TMP1, ZREG_X15
- |.define ZREG_TMP2, ZREG_X16
- |.define ZREG_TMP3, ZREG_X17
- |.define ZREG_FPTMP, ZREG_V16
- |.define HYBRID_SPAD, 32 // padding for stack alignment
- #define TMP_ZVAL_OFFSET 16
- #define DASM_ALIGNMENT 16
- const char* zend_reg_name[] = {
- "x0", "x1", "x2", "x3", "x4", "x5", "x6", "x7",
- "x8", "x9", "x10", "x11", "x12", "x13", "x14", "x15",
- "x16", "x17", "x18", "x19", "x20", "x21", "x22", "x23",
- "x24", "x25", "x26", "x27", "x28", "x29", "x30", "sp",
- "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7",
- "d8", "d9", "d10", "d11", "d12", "d13", "d14", "d15",
- "d16", "d17", "d18", "d19", "d20", "d21", "d22", "d23",
- "d24", "d25", "d26", "d27", "d28", "d29", "d30", "d31"
- };
- #define ZREG_FCARG1 ZREG_X0
- #define ZREG_FCARG2 ZREG_X1
- |.type EX, zend_execute_data, FP
- |.type OP, zend_op
- |.type ZVAL, zval
- |.actionlist dasm_actions
- |.globals zend_lb
- |.section code, cold_code, jmp_table
- static void* dasm_labels[zend_lb_MAX];
- #if ZTS
- static size_t tsrm_ls_cache_tcb_offset = 0;
- # ifdef __APPLE__
- struct TLVDescriptor {
- void* (*thunk)(struct TLVDescriptor*);
- uint64_t key;
- uint64_t offset;
- };
- typedef struct TLVDescriptor TLVDescriptor;
- # endif
- #endif
- #define IS_SIGNED_32BIT(val) ((((intptr_t)(val)) <= 0x7fffffff) && (((intptr_t)(val)) >= (-2147483647 - 1)))
- /* Encoding of immediate. */
- #define MAX_IMM12 0xfff // maximum value for imm12
- #define MAX_IMM16 0xffff // maximum value for imm16
- #define MOVZ_IMM MAX_IMM16 // movz insn
- #define LDR_STR_PIMM64 (MAX_IMM12*8) // ldr/str insn for 64-bit register: pimm is imm12 * 8
- #define LDR_STR_PIMM32 (MAX_IMM12*4) // ldr/str insn for 32-bit register: pimm is imm12 * 4
- #define LDRB_STRB_PIMM MAX_IMM12 // ldrb/strb insn
- #define B_IMM (1<<27) // signed imm26 * 4
- #define ADR_IMM (1<<20) // signed imm21
- #define ADRP_IMM (1LL<<32) // signed imm21 * 4096
- static bool arm64_may_use_b(const void *addr)
- {
- if (addr >= dasm_buf && addr < dasm_end) {
- return (((char*)dasm_end - (char*)dasm_buf) < B_IMM);
- } else if (addr >= dasm_end) {
- return (((char*)addr - (char*)dasm_buf) < B_IMM);
- } else if (addr < dasm_buf) {
- return (((char*)dasm_end - (char*)addr) < B_IMM);
- }
- return 0;
- }
- static bool arm64_may_use_adr(const void *addr)
- {
- if (addr >= dasm_buf && addr < dasm_end) {
- return (((char*)dasm_end - (char*)dasm_buf) < ADR_IMM);
- } else if (addr >= dasm_end) {
- return (((char*)addr - (char*)dasm_buf) < ADR_IMM);
- } else if (addr < dasm_buf) {
- return (((char*)dasm_end - (char*)addr) < ADR_IMM);
- }
- return 0;
- }
- static bool arm64_may_use_adrp(const void *addr)
- {
- if (addr >= dasm_buf && addr < dasm_end) {
- return (((char*)dasm_end - (char*)dasm_buf) < ADRP_IMM);
- } else if (addr >= dasm_end) {
- return (((char*)addr - (char*)dasm_buf) < ADRP_IMM);
- } else if (addr < dasm_buf) {
- return (((char*)dasm_end - (char*)addr) < ADRP_IMM);
- }
- return 0;
- }
- /* Determine whether "val" falls into two allowed ranges:
- * Range 1: [0, 0xfff]
- * Range 2: LSL #12 to Range 1
- * Used to guard the immediate encoding for add/adds/sub/subs/cmp/cmn instructions. */
- static bool arm64_may_encode_imm12(const int64_t val)
- {
- return (val >= 0 && (val <= MAX_IMM12 || !(val & 0xffffffffff000fff)));
- }
- /* Determine whether an immediate value can be encoded as the immediate operand of logical instructions. */
- static bool logical_immediate_p(uint64_t value, uint32_t reg_size)
- {
- /* fast path: power of two */
- if (value > 0 && !(value & (value - 1))) {
- return true;
- }
- if (reg_size == 32) {
- if (dasm_imm13((uint32_t)value, (uint32_t)value) != -1) {
- return true;
- }
- } else if (reg_size == 64) {
- if (dasm_imm13((uint32_t)value, (uint32_t)(value >> 32)) != -1) {
- return true;
- }
- } else {
- ZEND_UNREACHABLE();
- }
- return false;
- }
- /* Not Implemented Yet */
- |.macro NIY
- || //ZEND_ASSERT(0);
- | brk #0
- |.endmacro
- |.macro NIY_STUB
- || //ZEND_ASSERT(0);
- | brk #0
- |.endmacro
- |.macro ADD_HYBRID_SPAD
- ||#ifndef ZEND_VM_HYBRID_JIT_RED_ZONE_SIZE
- | add sp, sp, # HYBRID_SPAD
- ||#endif
- |.endmacro
- |.macro SUB_HYBRID_SPAD
- ||#ifndef ZEND_VM_HYBRID_JIT_RED_ZONE_SIZE
- | sub sp, sp, # HYBRID_SPAD
- ||#endif
- |.endmacro
- /* Move address into register. TODO: Support 52-bit address */
- |.macro LOAD_ADDR, reg, addr
- | // 48-bit virtual address
- || if (((uintptr_t)(addr)) == 0) {
- | mov reg, xzr
- || } else if (((uintptr_t)(addr)) <= MOVZ_IMM) {
- | movz reg, #((uint64_t)(addr))
- || } else if (arm64_may_use_adr((void*)(addr))) {
- | adr reg, &addr
- || } else if (arm64_may_use_adrp((void*)(addr))) {
- | adrp reg, &(((uintptr_t)(addr)))
- || if (((uintptr_t)(addr)) & 0xfff) {
- | add reg, reg, #(((uintptr_t)(addr)) & 0xfff)
- || }
- || } else if ((uintptr_t)(addr) & 0xffff) {
- | movz reg, #((uintptr_t)(addr) & 0xffff)
- || if (((uintptr_t)(addr) >> 16) & 0xffff) {
- | movk reg, #(((uintptr_t)(addr) >> 16) & 0xffff), lsl #16
- || }
- || if (((uintptr_t)(addr) >> 32) & 0xffff) {
- | movk reg, #(((uintptr_t)(addr) >> 32) & 0xffff), lsl #32
- || }
- || } else if (((uintptr_t)(addr) >> 16) & 0xffff) {
- | movz reg, #(((uintptr_t)(addr) >> 16) & 0xffff), lsl #16
- || if (((uintptr_t)(addr) >> 32) & 0xffff) {
- | movk reg, #(((uintptr_t)(addr) >> 32) & 0xffff), lsl #32
- || }
- || } else {
- | movz reg, #(((uintptr_t)(addr) >> 32) & 0xffff), lsl #32
- || }
- |.endmacro
- /* Move 32-bit immediate value into register. */
- |.macro LOAD_32BIT_VAL, reg, val
- || if (((uint32_t)(val)) <= MOVZ_IMM) {
- | movz reg, #((uint32_t)(val))
- || } else if (((uint32_t)(val) & 0xffff)) {
- | movz reg, #((uint32_t)(val) & 0xffff)
- || if ((((uint32_t)(val) >> 16) & 0xffff)) {
- | movk reg, #(((uint32_t)(val) >> 16) & 0xffff), lsl #16
- || }
- || } else {
- | movz reg, #(((uint32_t)(val) >> 16) & 0xffff), lsl #16
- || }
- |.endmacro
- /* Move 64-bit immediate value into register. */
- |.macro LOAD_64BIT_VAL, reg, val
- || if (((uint64_t)(val)) == 0) {
- | mov reg, xzr
- || } else if (((uint64_t)(val)) <= MOVZ_IMM) {
- | movz reg, #((uint64_t)(val))
- || } else if (~((uint64_t)(val)) <= MOVZ_IMM) {
- | movn reg, #(~((uint64_t)(val)))
- || } else if ((uint64_t)(val) & 0xffff) {
- | movz reg, #((uint64_t)(val) & 0xffff)
- || if (((uint64_t)(val) >> 16) & 0xffff) {
- | movk reg, #(((uint64_t)(val) >> 16) & 0xffff), lsl #16
- || }
- || if (((uint64_t)(val) >> 32) & 0xffff) {
- | movk reg, #(((uint64_t)(val) >> 32) & 0xffff), lsl #32
- || }
- || if ((((uint64_t)(val) >> 48) & 0xffff)) {
- | movk reg, #(((uint64_t)(val) >> 48) & 0xffff), lsl #48
- || }
- || } else if (((uint64_t)(val) >> 16) & 0xffff) {
- | movz reg, #(((uint64_t)(val) >> 16) & 0xffff), lsl #16
- || if (((uint64_t)(val) >> 32) & 0xffff) {
- | movk reg, #(((uint64_t)(val) >> 32) & 0xffff), lsl #32
- || }
- || if ((((uint64_t)(val) >> 48) & 0xffff)) {
- | movk reg, #(((uint64_t)(val) >> 48) & 0xffff), lsl #48
- || }
- || } else if (((uint64_t)(val) >> 32) & 0xffff) {
- | movz reg, #(((uint64_t)(val) >> 32) & 0xffff), lsl #32
- || if ((((uint64_t)(val) >> 48) & 0xffff)) {
- | movk reg, #(((uint64_t)(val) >> 48) & 0xffff), lsl #48
- || }
- || } else {
- | movz reg, #(((uint64_t)(val) >> 48) & 0xffff), lsl #48
- || }
- |.endmacro
- /* Extract the low 8 bits from 'src_reg' into 'dst_reg'.
- * Note: 0xff can be encoded as imm for 'and' instruction. */
- |.macro GET_LOW_8BITS, dst_reg, src_reg
- | and dst_reg, src_reg, #0xff
- |.endmacro
- /* Bitwise operation with immediate. 'bw_ins' can be and/orr/eor/ands.
- * 32-bit and 64-bit registers are distinguished. */
- |.macro BW_OP_32_WITH_CONST, bw_ins, dst_reg, src_reg1, val, tmp_reg
- || if (val == 0) {
- | bw_ins dst_reg, src_reg1, wzr
- || } else if (logical_immediate_p((uint32_t)val, 32)) {
- | bw_ins dst_reg, src_reg1, #val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | bw_ins dst_reg, src_reg1, tmp_reg
- || }
- |.endmacro
- |.macro BW_OP_64_WITH_CONST, bw_ins, dst_reg, src_reg1, val, tmp_reg
- || if (val == 0) {
- | bw_ins dst_reg, src_reg1, xzr
- || } else if (logical_immediate_p(val, 64)) {
- | bw_ins dst_reg, src_reg1, #val
- || } else {
- | LOAD_64BIT_VAL tmp_reg, val
- | bw_ins dst_reg, src_reg1, tmp_reg
- || }
- |.endmacro
- /* Test bits 'tst' with immediate. 32-bit and 64-bit registers are distinguished. */
- |.macro TST_32_WITH_CONST, reg, val, tmp_reg
- || if (val == 0) {
- | tst reg, wzr
- || } else if (logical_immediate_p((uint32_t)val, 32)) {
- | tst reg, #val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | tst reg, tmp_reg
- || }
- |.endmacro
- |.macro TST_64_WITH_CONST, reg, val, tmp_reg
- || if (val == 0) {
- | tst reg, xzr
- || } else if (logical_immediate_p(val, 64)) {
- | tst reg, #val
- || } else {
- | LOAD_64BIT_VAL tmp_reg, val
- | tst reg, tmp_reg
- || }
- |.endmacro
- /* Test bits between 64-bit register with constant 1. */
- |.macro TST_64_WITH_ONE, reg
- | tst reg, #1
- |.endmacro
- /* Compare a register value with immediate. 32-bit and 64-bit registers are distinguished.
- * Note: Comparing 64-bit register with 32-bit immediate is handled in CMP_64_WITH_CONST_32. */
- |.macro CMP_32_WITH_CONST, reg, val, tmp_reg
- || if (val == 0) {
- | cmp reg, wzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | cmp reg, #val
- || } else if (arm64_may_encode_imm12((int64_t)(-val))) {
- | cmn reg, #-val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | cmp reg, tmp_reg
- || }
- |.endmacro
- |.macro CMP_64_WITH_CONST_32, reg, val, tmp_reg
- || if (val == 0) {
- | cmp reg, xzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | cmp reg, #val
- || } else if (arm64_may_encode_imm12((int64_t)(-val))) {
- | cmn reg, #-val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | cmp reg, tmp_reg
- || }
- |.endmacro
- |.macro CMP_64_WITH_CONST, reg, val, tmp_reg
- || if (val == 0) {
- | cmp reg, xzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | cmp reg, #val
- || } else if (arm64_may_encode_imm12((int64_t)(-val))) {
- | cmn reg, #-val
- || } else {
- | LOAD_64BIT_VAL tmp_reg, val
- | cmp reg, tmp_reg
- || }
- |.endmacro
- /* Add/sub a register value with immediate. 'add_sub_ins' can be add/sub/adds/subs.
- * 32-bit and 64-bit registers are distinguished.
- * Note: Case of 64-bit register with 32-bit immediate is handled in ADD_SUB_64_WITH_CONST_32. */
- |.macro ADD_SUB_32_WITH_CONST, add_sub_ins, dst_reg, src_reg1, val, tmp_reg
- || if (val == 0) {
- | add_sub_ins dst_reg, src_reg1, wzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | add_sub_ins dst_reg, src_reg1, #val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | add_sub_ins dst_reg, src_reg1, tmp_reg
- || }
- |.endmacro
- |.macro ADD_SUB_64_WITH_CONST_32, add_sub_ins, dst_reg, src_reg1, val, tmp_reg
- || if (val == 0) {
- | add_sub_ins dst_reg, src_reg1, xzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | add_sub_ins dst_reg, src_reg1, #val
- || } else {
- | LOAD_32BIT_VAL tmp_reg, val
- | add_sub_ins dst_reg, src_reg1, tmp_reg
- || }
- |.endmacro
- |.macro ADD_SUB_64_WITH_CONST, add_sub_ins, dst_reg, src_reg1, val, tmp_reg
- || if (val == 0) {
- | add_sub_ins dst_reg, src_reg1, xzr
- || } else if (arm64_may_encode_imm12((int64_t)(val))) {
- | add_sub_ins dst_reg, src_reg1, #val
- || } else {
- | LOAD_64BIT_VAL tmp_reg, val
- | add_sub_ins dst_reg, src_reg1, tmp_reg
- || }
- |.endmacro
- /* Memory access(load/store) with 32-bit 'offset'.
- * Use "unsigned offset" variant if 'offset' can be encoded, otherwise move 'offset' into temp register.
- * 8-bit, 32-bit and 64-bit registers to be transferred are distinguished.
- * Note: 'reg' can be used as 'tmp_reg' if 1) 'reg' is one GPR, AND 2) 'reg' != 'base_reg', AND 3) ins is 'ldr'. */
- |.macro MEM_ACCESS_64_WITH_UOFFSET, ldr_str_ins, reg, base_reg, offset, tmp_reg
- || if (((uintptr_t)(offset)) > LDR_STR_PIMM64) {
- | LOAD_32BIT_VAL tmp_reg, offset
- | ldr_str_ins reg, [base_reg, tmp_reg]
- || } else {
- | ldr_str_ins reg, [base_reg, #(offset)]
- || }
- |.endmacro
- |.macro MEM_ACCESS_32_WITH_UOFFSET, ldr_str_ins, reg, base_reg, offset, tmp_reg
- || if (((uintptr_t)(offset)) > LDR_STR_PIMM32) {
- | LOAD_32BIT_VAL tmp_reg, offset
- | ldr_str_ins reg, [base_reg, tmp_reg]
- || } else {
- | ldr_str_ins reg, [base_reg, #(offset)]
- || }
- |.endmacro
- |.macro MEM_ACCESS_8_WITH_UOFFSET, ldrb_strb_ins, reg, base_reg, offset, tmp_reg
- || if (((uintptr_t)(offset)) > LDRB_STRB_PIMM) {
- | LOAD_32BIT_VAL tmp_reg, offset
- | ldrb_strb_ins reg, [base_reg, tmp_reg]
- || } else {
- | ldrb_strb_ins reg, [base_reg, #(offset)]
- || }
- |.endmacro
- /* Memory access(load/store) with 64-bit 'offset'.
- * Use "unsigned offset" variant if 'offset' can be encoded, otherwise move 'offset' into temp register. */
- |.macro MEM_ACCESS_64_WITH_UOFFSET_64, ldr_str_ins, reg, base_reg, offset, tmp_reg
- || if (((uintptr_t)(offset)) > LDR_STR_PIMM64) {
- | LOAD_64BIT_VAL tmp_reg, offset
- | ldr_str_ins reg, [base_reg, tmp_reg]
- || } else {
- | ldr_str_ins reg, [base_reg, #(offset)]
- || }
- |.endmacro
- /* ZTS: get thread local variable "_tsrm_ls_cache" */
- |.macro LOAD_TSRM_CACHE, reg
- ||#ifdef __APPLE__
- | .long 0xd53bd071 // TODO: hard-coded: mrs TMP3, tpidrro_el0
- | and TMP3, TMP3, #0xfffffffffffffff8
- | MEM_ACCESS_64_WITH_UOFFSET_64 ldr, TMP3, TMP3, (((TLVDescriptor*)tsrm_ls_cache_tcb_offset)->key << 3), TMP1
- | MEM_ACCESS_64_WITH_UOFFSET_64 ldr, reg, TMP3, (((TLVDescriptor*)tsrm_ls_cache_tcb_offset)->offset), TMP1
- ||#else
- | .long 0xd53bd051 // TODO: hard-coded: mrs TMP3, tpidr_el0
- || ZEND_ASSERT(tsrm_ls_cache_tcb_offset <= LDR_STR_PIMM64);
- | ldr reg, [TMP3, #tsrm_ls_cache_tcb_offset]
- ||#endif
- |.endmacro
- |.macro LOAD_ADDR_ZTS, reg, struct, field
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | ADD_SUB_64_WITH_CONST_32 add, reg, TMP3, (struct.._offset + offsetof(zend_..struct, field)), reg
- | .else
- | LOAD_ADDR reg, &struct.field
- | .endif
- |.endmacro
- /* Store address 'addr' into memory 'mem'. */
- |.macro ADDR_STORE, mem, addr, tmp_reg
- | LOAD_ADDR tmp_reg, addr
- | str tmp_reg, mem
- |.endmacro
- /* Store a register value 'reg' into memory 'addr'.
- * For ZTS mode, base register with unsigned offset variant is used,
- * and 8-bit/32-bit/64-bit registers to be transferred are distinguished. */
- |.macro MEM_STORE, str_ins, reg, addr, tmp_reg
- || if (((uintptr_t)(addr)) > MOVZ_IMM && arm64_may_use_adr((void*)(addr))) {
- | adr tmp_reg, &addr
- | str_ins reg, [tmp_reg]
- || } else if (((uintptr_t)(addr)) > MOVZ_IMM && arm64_may_use_adrp((void*)(addr))) {
- | adrp tmp_reg, &(((uintptr_t)(addr)))
- | str_ins reg, [tmp_reg, #(((uintptr_t)(addr)) & 0xfff)]
- || } else {
- | LOAD_ADDR tmp_reg, addr
- | str_ins reg, [tmp_reg]
- || }
- |.endmacro
- |.macro MEM_STORE_64_ZTS, str_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_64_WITH_UOFFSET str_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_STORE str_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- |.macro MEM_STORE_32_ZTS, str_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_32_WITH_UOFFSET str_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_STORE str_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- |.macro MEM_STORE_8_ZTS, strb_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_8_WITH_UOFFSET strb_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_STORE strb_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- /* Load value from memory 'addr' and write it into register 'reg'.
- * For ZTS mode, base register with unsigned offset variant is used,
- * and 8-bit/32-bit/64-bit registers to be transferred are distinguished. */
- |.macro MEM_LOAD, ldr_ins, reg, addr, tmp_reg
- || if (((uintptr_t)(addr)) > MOVZ_IMM && arm64_may_use_adr((void*)(addr))) {
- | adr tmp_reg, &addr
- | ldr_ins reg, [tmp_reg]
- || } else if (((uintptr_t)(addr)) > MOVZ_IMM && arm64_may_use_adrp((void*)(addr))) {
- | adrp tmp_reg, &(((uintptr_t)(addr)))
- | ldr_ins reg, [tmp_reg, #(((uintptr_t)(addr)) & 0xfff)]
- || } else {
- | LOAD_ADDR tmp_reg, addr
- | ldr_ins reg, [tmp_reg]
- || }
- |.endmacro
- |.macro MEM_LOAD_64_ZTS, ldr_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_64_WITH_UOFFSET ldr_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_LOAD ldr_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- |.macro MEM_LOAD_32_ZTS, ldr_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_32_WITH_UOFFSET ldr_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_LOAD ldr_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- |.macro MEM_LOAD_8_ZTS, ldrb_ins, reg, struct, field, tmp_reg
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_8_WITH_UOFFSET ldrb_ins, reg, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | .else
- | MEM_LOAD ldrb_ins, reg, &struct.field, tmp_reg
- | .endif
- |.endmacro
- /* Conduct arithmetic operation between the value in memory 'addr' and register value in 'reg',
- * and the computation result is stored back in 'reg'. 'op_ins' can be add/sub. */
- |.macro MEM_LOAD_OP, op_ins, ldr_ins, reg, addr, tmp_reg1, tmp_reg2
- | MEM_LOAD ldr_ins, tmp_reg1, addr, tmp_reg2
- | op_ins reg, reg, tmp_reg1
- |.endmacro
- |.macro MEM_LOAD_OP_ZTS, op_ins, ldr_ins, reg, struct, field, tmp_reg1, tmp_reg2
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- | MEM_ACCESS_64_WITH_UOFFSET ldr_ins, tmp_reg2, TMP3, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg1
- | op_ins reg, reg, tmp_reg2
- | .else
- | MEM_LOAD_OP op_ins, ldr_ins, reg, &struct.field, tmp_reg1, tmp_reg2
- | .endif
- |.endmacro
- /* Conduct arithmetic operation between the value in memory 'addr' and operand 'op', and the computation
- * result is stored back to memory 'addr'. Operand 'op' can be either a register value or an immediate value.
- * Currently, only add instruction is used as 'op_ins'.
- * Note: It should be guaranteed that the immediate value can be encoded for 'op_ins'. */
- |.macro MEM_UPDATE, op_ins, ldr_ins, str_ins, op, addr, tmp_reg1, tmp_reg2
- | LOAD_ADDR tmp_reg2, addr
- | ldr_ins, tmp_reg1, [tmp_reg2]
- | op_ins tmp_reg1, tmp_reg1, op
- | str_ins tmp_reg1, [tmp_reg2]
- |.endmacro
- |.macro MEM_UPDATE_ZTS, op_ins, ldr_ins, str_ins, op, struct, field, tmp_reg1, tmp_reg2
- | .if ZTS
- | LOAD_TSRM_CACHE TMP3
- || if (((uintptr_t)(struct.._offset+offsetof(zend_..struct, field))) > LDR_STR_PIMM64) {
- | LOAD_32BIT_VAL tmp_reg1, (struct.._offset+offsetof(zend_..struct, field))
- | ldr_ins tmp_reg2, [TMP3, tmp_reg1]
- | op_ins tmp_reg2, tmp_reg2, op
- | str_ins tmp_reg2, [TMP3, tmp_reg1]
- || } else {
- | ldr_ins tmp_reg2, [TMP3, #(struct.._offset+offsetof(zend_..struct, field))]
- | op_ins tmp_reg2, tmp_reg2, op
- | str_ins tmp_reg2, [TMP3, #(struct.._offset+offsetof(zend_..struct, field))]
- || }
- | .else
- | MEM_UPDATE op_ins, ldr_ins, str_ins, op, &struct.field, tmp_reg1, tmp_reg2
- | .endif
- |.endmacro
- |.macro EXT_CALL, func, tmp_reg
- || if (arm64_may_use_b(func)) {
- | bl &func
- || } else {
- | LOAD_ADDR tmp_reg, func
- | blr tmp_reg
- || }
- |.endmacro
- |.macro EXT_JMP, func, tmp_reg
- || if (arm64_may_use_b(func)) {
- | b &func
- || } else {
- | LOAD_ADDR tmp_reg, func
- | br tmp_reg
- || }
- |.endmacro
- |.macro SAVE_IP
- || if (GCC_GLOBAL_REGS) {
- | str IP, EX->opline
- || }
- |.endmacro
- |.macro LOAD_IP
- || if (GCC_GLOBAL_REGS) {
- | ldr IP, EX->opline
- || }
- |.endmacro
- |.macro LOAD_IP_ADDR, addr
- || if (GCC_GLOBAL_REGS) {
- | LOAD_ADDR IP, addr
- || } else {
- | ADDR_STORE EX->opline, addr, RX
- || }
- |.endmacro
- |.macro LOAD_IP_ADDR_ZTS, struct, field, tmp_reg
- | .if ZTS
- || if (GCC_GLOBAL_REGS) {
- | LOAD_TSRM_CACHE IP
- | MEM_ACCESS_64_WITH_UOFFSET ldr, IP, IP, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- || } else {
- | LOAD_TSRM_CACHE RX
- | ADD_SUB_64_WITH_CONST_32 add, RX, RX, (struct.._offset+offsetof(zend_..struct, field)), tmp_reg
- | str RX, EX->opline
- || }
- | .else
- | LOAD_IP_ADDR &struct.field
- | .endif
- |.endmacro
- |.macro GET_IP, reg
- || if (GCC_GLOBAL_REGS) {
- | mov reg, IP
- || } else {
- | ldr reg, EX->opline
- || }
- |.endmacro
- /* Update IP with register 'reg'. Note: shift variant is handled by ADD_IP_SHIFT. */
- |.macro ADD_IP, reg, tmp_reg
- || if (GCC_GLOBAL_REGS) {
- | add IP, IP, reg
- || } else {
- | ldr tmp_reg, EX->opline
- | add tmp_reg, tmp_reg, reg
- | str tmp_reg, EX->opline
- || }
- |.endmacro
- |.macro ADD_IP_SHIFT, reg, shift, tmp_reg
- || if (GCC_GLOBAL_REGS) {
- | add IP, IP, reg, shift
- || } else {
- | ldr tmp_reg, EX->opline
- | add tmp_reg, tmp_reg, reg, shift
- | str tmp_reg, EX->opline
- || }
- |.endmacro
- /* Update IP with 32-bit immediate 'val'. */
- |.macro ADD_IP_WITH_CONST, val, tmp_reg
- || ZEND_ASSERT(arm64_may_encode_imm12((int64_t)(val)));
- || if (GCC_GLOBAL_REGS) {
- | add IP, IP, #val
- || } else {
- | ldr tmp_reg, EX->opline
- | add tmp_reg, tmp_reg, #val
- | str tmp_reg, EX->opline
- || }
- |.endmacro
- |.macro JMP_IP, tmp_reg
- || if (GCC_GLOBAL_REGS) {
- | ldr tmp_reg, [IP]
- | br tmp_reg
- || } else {
- | ldr tmp_reg, EX:CARG1->opline
- | br tmp_reg
- || }
- |.endmacro
- |.macro CMP_IP, addr, tmp_reg1, tmp_reg2
- | LOAD_ADDR tmp_reg1, addr
- || if (GCC_GLOBAL_REGS) {
- | cmp IP, tmp_reg1
- || } else {
- | ldr tmp_reg2, EX->opline
- | cmp tmp_reg2, tmp_reg1
- || }
- |.endmacro
- |.macro LOAD_ZVAL_ADDR, reg, addr
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | LOAD_ADDR reg, Z_ZV(addr)
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- || if (Z_OFFSET(addr)) {
- | ADD_SUB_64_WITH_CONST_32 add, reg, Rx(Z_REG(addr)), Z_OFFSET(addr), reg
- || } else {
- || if (Z_REG(addr) == ZREG_RSP) {
- | mov reg, sp
- || } else {
- | mov reg, Rx(Z_REG(addr))
- || }
- || }
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro GET_Z_TYPE_INFO, reg, zv
- | ldr reg, [zv, #offsetof(zval,u1.type_info)]
- |.endmacro
- |.macro SET_Z_TYPE_INFO, zv, type, tmp_reg
- | LOAD_32BIT_VAL tmp_reg, type
- | str tmp_reg, [zv, #offsetof(zval,u1.type_info)]
- |.endmacro
- |.macro GET_ZVAL_TYPE, reg, addr, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, reg, Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval,u1.v.type), tmp_reg
- |.endmacro
- |.macro GET_ZVAL_TYPE_INFO, reg, addr, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_32_WITH_UOFFSET ldr, reg, Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval,u1.type_info), tmp_reg
- |.endmacro
- |.macro SET_ZVAL_TYPE_INFO, addr, type, tmp_reg1, tmp_reg2
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | LOAD_32BIT_VAL tmp_reg1, type
- | MEM_ACCESS_32_WITH_UOFFSET str, tmp_reg1, Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval,u1.type_info), tmp_reg2
- |.endmacro
- |.macro SET_ZVAL_TYPE_INFO_FROM_REG, addr, reg, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_32_WITH_UOFFSET str, reg, Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval,u1.type_info), tmp_reg
- |.endmacro
- |.macro GET_Z_PTR, reg, zv
- | ldr reg, [zv]
- |.endmacro
- |.macro GET_ZVAL_PTR, reg, addr, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_64_WITH_UOFFSET ldr, reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- |.endmacro
- |.macro SET_ZVAL_PTR, addr, reg, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_64_WITH_UOFFSET str, reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- |.endmacro
- |.macro UNDEF_OPLINE_RESULT, tmp_reg
- | ldr REG0, EX->opline
- | ldr REG0w, OP:REG0->result.var
- | add REG0, FP, REG0
- | SET_Z_TYPE_INFO REG0, IS_UNDEF, tmp_reg
- |.endmacro
- |.macro UNDEF_OPLINE_RESULT_IF_USED, tmp_reg1, tmp_reg2
- | ldrb tmp_reg1, OP:RX->result_type
- | TST_32_WITH_CONST tmp_reg1, (IS_TMP_VAR|IS_VAR), tmp_reg2
- | beq >1
- | ldr REG0w, OP:RX->result.var
- | add REG0, FP, REG0
- | SET_Z_TYPE_INFO REG0, IS_UNDEF, tmp_reg1
- |1:
- |.endmacro
- /* Floating-point comparison between register 'reg' and value from memory 'addr'.
- * Note: the equivalent macros in JIT/x86 are SSE_AVX_OP and SSE_OP. */
- |.macro DOUBLE_CMP, reg, addr, tmp_reg, fp_tmp_reg
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | MEM_LOAD ldr, Rd(fp_tmp_reg-ZREG_V0), Z_ZV(addr), Rx(tmp_reg)
- | fcmp Rd(reg-ZREG_V0), Rd(fp_tmp_reg-ZREG_V0)
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, Rd(fp_tmp_reg-ZREG_V0), Rx(Z_REG(addr)), Z_OFFSET(addr), Rx(tmp_reg)
- | fcmp Rd(reg-ZREG_V0), Rd(fp_tmp_reg-ZREG_V0)
- || } else if (Z_MODE(addr) == IS_REG) {
- | fcmp Rd(reg-ZREG_V0), Rd(Z_REG(addr)-ZREG_V0)
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- /* Convert LONG value 'val' into DOUBLE type, and move it into FP register 'reg'.
- * Note: the equivalent macro in JIT/x86 is SSE_GET_LONG. */
- |.macro DOUBLE_GET_LONG, reg, val, tmp_reg
- || if (val == 0) {
- | fmov Rd(reg-ZREG_V0), xzr // TODO: "movi d0, #0" is not recognized by DynASM/arm64
- || } else {
- | LOAD_64BIT_VAL Rx(tmp_reg), val
- | scvtf Rd(reg-ZREG_V0), Rx(tmp_reg)
- || }
- |.endmacro
- /* Convert LONG value from memory 'addr' into DOUBLE type, and move it into FP register 'reg'.
- * Note: the equivalent macro in JIT/x86 is SSE_GET_ZVAL_LVAL. */
- |.macro DOUBLE_GET_ZVAL_LVAL, reg, addr, tmp_reg1, tmp_reg2
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | DOUBLE_GET_LONG reg, Z_LVAL_P(Z_ZV(addr)), tmp_reg1
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, Rx(tmp_reg1), Rx(Z_REG(addr)), Z_OFFSET(addr), Rx(tmp_reg2)
- | scvtf Rd(reg-ZREG_V0), Rx(tmp_reg1)
- || } else if (Z_MODE(addr) == IS_REG) {
- | scvtf Rd(reg-ZREG_V0), Rx(Z_REG(addr))
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- /* Floating-point arithmetic operation between two FP registers.
- * Note: the equivalent macro in JIT/x86 is AVX_MATH_REG. */
- |.macro DOUBLE_MATH_REG, opcode, dst_reg, op1_reg, op2_reg
- || switch (opcode) {
- || case ZEND_ADD:
- | fadd Rd(dst_reg-ZREG_V0), Rd(op1_reg-ZREG_V0), Rd(op2_reg-ZREG_V0)
- || break;
- || case ZEND_SUB:
- | fsub Rd(dst_reg-ZREG_V0), Rd(op1_reg-ZREG_V0), Rd(op2_reg-ZREG_V0)
- || break;
- || case ZEND_MUL:
- | fmul Rd(dst_reg-ZREG_V0), Rd(op1_reg-ZREG_V0), Rd(op2_reg-ZREG_V0)
- || break;
- || case ZEND_DIV:
- | fdiv Rd(dst_reg-ZREG_V0), Rd(op1_reg-ZREG_V0), Rd(op2_reg-ZREG_V0)
- || break;
- || }
- |.endmacro
- /* Conduct binary operation between register 'reg' and value from memory 'addr',
- * and the computation result is stored in 'reg'.
- * For LONG_ADD_SUB, 'add_sub_ins' can be adds/subs. For LONG_BW_OP, 'bw_ins' can be and/orr/eor.
- * For LONG_CMP, 'cmp' instruction is used by default and only flag registers are affected.
- * Note: the equivalent macro in JIT/x86 is LONG_OP. */
- |.macro LONG_ADD_SUB, add_sub_ins, reg, addr, tmp_reg
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | ADD_SUB_64_WITH_CONST add_sub_ins, Rx(reg), Rx(reg), Z_LVAL_P(Z_ZV(addr)), tmp_reg
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, tmp_reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- | add_sub_ins Rx(reg), Rx(reg), tmp_reg
- || } else if (Z_MODE(addr) == IS_REG) {
- | add_sub_ins Rx(reg), Rx(reg), Rx(Z_REG(addr))
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro LONG_BW_OP, bw_ins, reg, addr, tmp_reg
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | BW_OP_64_WITH_CONST bw_ins, Rx(reg), Rx(reg), Z_LVAL_P(Z_ZV(addr)), tmp_reg
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, tmp_reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- | bw_ins Rx(reg), Rx(reg), tmp_reg
- || } else if (Z_MODE(addr) == IS_REG) {
- | bw_ins Rx(reg), Rx(reg), Rx(Z_REG(addr))
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro LONG_CMP, reg, addr, tmp_reg
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | CMP_64_WITH_CONST Rx(reg), Z_LVAL_P(Z_ZV(addr)), tmp_reg
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, tmp_reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- | cmp Rx(reg), tmp_reg
- || } else if (Z_MODE(addr) == IS_REG) {
- | cmp Rx(reg), Rx(Z_REG(addr))
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- /* Conduct add/sub between value from memory 'addr' and an immediate value 'val', and
- * the computation result is stored back into 'addr'.
- * Note: it should be guaranteed that 'val' can be encoded into add/sub instruction. */
- |.macro LONG_ADD_SUB_WITH_IMM, add_sub_ins, addr, val, tmp_reg1, tmp_reg2
- || ZEND_ASSERT(arm64_may_encode_imm12((int64_t)(val)));
- || if (Z_MODE(addr) == IS_MEM_ZVAL) {
- || if (((uint32_t)(Z_OFFSET(addr))) > LDR_STR_PIMM64) {
- | LOAD_32BIT_VAL tmp_reg2, Z_OFFSET(addr)
- | ldr tmp_reg1, [Rx(Z_REG(addr)), tmp_reg2]
- | add_sub_ins tmp_reg1, tmp_reg1, #val
- | str tmp_reg1, [Rx(Z_REG(addr)), tmp_reg2]
- || } else {
- | ldr tmp_reg1, [Rx(Z_REG(addr)), #Z_OFFSET(addr)]
- | add_sub_ins tmp_reg1, tmp_reg1, #val
- | str tmp_reg1, [Rx(Z_REG(addr)), #Z_OFFSET(addr)]
- || }
- || } else if (Z_MODE(addr) == IS_REG) {
- | add_sub_ins Rx(Z_REG(addr)), Rx(Z_REG(addr)), #val
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- /* Compare value from memory 'addr' with immediate value 'val'.
- * Note: the equivalent macro in JIT/x86 is LONG_OP_WITH_CONST. */
- |.macro LONG_CMP_WITH_CONST, addr, val, tmp_reg1, tmp_reg2
- || if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, tmp_reg1, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg2
- | CMP_64_WITH_CONST tmp_reg1, val, tmp_reg2
- || } else if (Z_MODE(addr) == IS_REG) {
- | CMP_64_WITH_CONST Rx(Z_REG(addr)), val, tmp_reg1
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro GET_ZVAL_LVAL, reg, addr, tmp_reg
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- || if (Z_LVAL_P(Z_ZV(addr)) == 0) {
- | mov Rx(reg), xzr
- || } else {
- | LOAD_64BIT_VAL Rx(reg), Z_LVAL_P(Z_ZV(addr))
- || }
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, Rx(reg), Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- || } else if (Z_MODE(addr) == IS_REG) {
- || if (reg != Z_REG(addr)) {
- | mov Rx(reg), Rx(Z_REG(addr))
- || }
- || } else {
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro LONG_MATH, opcode, reg, addr, tmp_reg1
- || switch (opcode) {
- || case ZEND_ADD:
- | LONG_ADD_SUB adds, reg, addr, tmp_reg1
- || break;
- || case ZEND_SUB:
- | LONG_ADD_SUB subs, reg, addr, tmp_reg1
- || break;
- || case ZEND_BW_OR:
- | LONG_BW_OP orr, reg, addr, tmp_reg1
- || break;
- || case ZEND_BW_AND:
- | LONG_BW_OP and, reg, addr, tmp_reg1
- || break;
- || case ZEND_BW_XOR:
- | LONG_BW_OP eor, reg, addr, tmp_reg1
- || break;
- || default:
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- |.macro LONG_MATH_REG, opcode, dst_reg, src_reg1, src_reg2
- || switch (opcode) {
- || case ZEND_ADD:
- | adds dst_reg, src_reg1, src_reg2
- || break;
- || case ZEND_SUB:
- | subs dst_reg, src_reg1, src_reg2
- || break;
- || case ZEND_BW_OR:
- | orr dst_reg, src_reg1, src_reg2
- || break;
- || case ZEND_BW_AND:
- | and dst_reg, src_reg1, src_reg2
- || break;
- || case ZEND_BW_XOR:
- | eor dst_reg, src_reg1, src_reg2
- || break;
- || default:
- || ZEND_UNREACHABLE();
- || }
- |.endmacro
- /* Store LONG value into memory 'addr'.
- * This LONG value can be an immediate value i.e. 'val' in macro SET_ZVAL_LVAL, or
- * a register value i.e. 'reg' in macro SET_ZVAL_LVAL_FROM_REG. */
- |.macro SET_ZVAL_LVAL_FROM_REG, addr, reg, tmp_reg
- || if (Z_MODE(addr) == IS_REG) {
- | mov Rx(Z_REG(addr)), reg
- || } else {
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_64_WITH_UOFFSET str, reg, Rx(Z_REG(addr)), Z_OFFSET(addr), tmp_reg
- || }
- |.endmacro
- |.macro SET_ZVAL_LVAL, addr, val, tmp_reg1, tmp_reg2
- || if (val == 0) {
- | SET_ZVAL_LVAL_FROM_REG addr, xzr, tmp_reg2
- || } else {
- | LOAD_64BIT_VAL tmp_reg1, val
- | SET_ZVAL_LVAL_FROM_REG addr, tmp_reg1, tmp_reg2
- || }
- |.endmacro
- /* Store DOUBLE value from FP register 'reg' into memory 'addr'.
- * Note: the equivalent macro in JIT/x86 is SSE_SET_ZVAL_DVAL. */
- |.macro SET_ZVAL_DVAL, addr, reg, tmp_reg
- || if (Z_MODE(addr) == IS_REG) {
- || if (reg != Z_REG(addr)) {
- | fmov Rd(Z_REG(addr)-ZREG_V0), Rd(reg-ZREG_V0)
- || }
- || } else {
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_64_WITH_UOFFSET str, Rd(reg-ZREG_V0), Rx(Z_REG(addr)), Z_OFFSET(addr), Rx(tmp_reg)
- || }
- |.endmacro
- /* Load DOUBLE value from memory 'addr' into FP register 'reg'.
- * Note: the equivalent macro in JIT/x86 is SSE_GET_ZVAL_DVAL. */
- |.macro GET_ZVAL_DVAL, reg, addr, tmp_reg
- || if (Z_MODE(addr) != IS_REG || reg != Z_REG(addr)) {
- || if (Z_MODE(addr) == IS_CONST_ZVAL) {
- | MEM_LOAD ldr, Rd(reg-ZREG_V0), Z_ZV(addr), Rx(tmp_reg)
- || } else if (Z_MODE(addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, Rd(reg-ZREG_V0), Rx(Z_REG(addr)), Z_OFFSET(addr), Rx(tmp_reg)
- || } else if (Z_MODE(addr) == IS_REG) {
- | fmov Rd(reg-ZREG_V0), Rd(Z_REG(addr)-ZREG_V0)
- || } else {
- || ZEND_UNREACHABLE();
- || }
- || }
- |.endmacro
- |.macro ZVAL_COPY_CONST, dst_addr, dst_info, dst_def_info, zv, tmp_reg1, tmp_reg2, fp_tmp_reg
- || if (Z_TYPE_P(zv) > IS_TRUE) {
- || if (Z_TYPE_P(zv) == IS_DOUBLE) {
- || zend_reg dst_reg = (Z_MODE(dst_addr) == IS_REG) ? Z_REG(dst_addr) : fp_tmp_reg;
- | MEM_LOAD ldr, Rd(dst_reg-ZREG_V0), zv, Rx(tmp_reg1)
- | SET_ZVAL_DVAL dst_addr, dst_reg, tmp_reg2
- || } else if (Z_TYPE_P(zv) == IS_LONG && dst_def_info == MAY_BE_DOUBLE) {
- || zend_reg dst_reg = (Z_MODE(dst_addr) == IS_REG) ? Z_REG(dst_addr) : fp_tmp_reg;
- | DOUBLE_GET_LONG dst_reg, Z_LVAL_P(zv), tmp_reg1
- | SET_ZVAL_DVAL dst_addr, dst_reg, tmp_reg2
- || } else {
- | // In x64, if the range of this LONG value can be represented via INT type, only move the low 32 bits into dst_addr.
- | // Note that imm32 is signed extended to 64 bits during mov.
- | // In aarch64, we choose to handle both cases in the same way. Even though 4 mov's are used for 64-bit value and 2 mov's are
- | // needed for 32-bit value, an extra ext insn is needed for 32-bit vlaue.
- | SET_ZVAL_LVAL dst_addr, Z_LVAL_P(zv), Rx(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- || if (Z_MODE(dst_addr) == IS_MEM_ZVAL) {
- || if (dst_def_info == MAY_BE_DOUBLE) {
- || if ((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO dst_addr, IS_DOUBLE, Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || } else if (((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != (1<<Z_TYPE_P(zv))) || (dst_info & (MAY_BE_STRING|MAY_BE_ARRAY)) != 0) {
- | SET_ZVAL_TYPE_INFO dst_addr, Z_TYPE_INFO_P(zv), Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- |.endmacro
- |.macro ZVAL_COPY_CONST_2, dst_addr, res_addr, dst_info, dst_def_info, zv, tmp_reg1, tmp_reg2, fp_tmp_reg
- || if (Z_TYPE_P(zv) > IS_TRUE) {
- || if (Z_TYPE_P(zv) == IS_DOUBLE) {
- || zend_reg dst_reg = (Z_MODE(dst_addr) == IS_REG) ?
- || Z_REG(dst_addr) : ((Z_MODE(res_addr) == IS_REG) ? Z_REG(res_addr) : fp_tmp_reg);
- | MEM_LOAD ldr, Rd(dst_reg-ZREG_V0), zv, Rx(tmp_reg1)
- | SET_ZVAL_DVAL dst_addr, dst_reg, tmp_reg2
- | SET_ZVAL_DVAL res_addr, dst_reg, tmp_reg2
- || } else if (Z_TYPE_P(zv) == IS_LONG && dst_def_info == MAY_BE_DOUBLE) {
- || if (Z_MODE(dst_addr) == IS_REG) {
- | DOUBLE_GET_LONG Z_REG(dst_addr), Z_LVAL_P(zv), tmp_reg1
- | SET_ZVAL_DVAL res_addr, Z_REG(dst_addr), tmp_reg2
- || } else if (Z_MODE(res_addr) == IS_REG) {
- | DOUBLE_GET_LONG Z_REG(res_addr), Z_LVAL_P(zv), tmp_reg1
- | SET_ZVAL_DVAL dst_addr, Z_REG(res_addr), tmp_reg2
- || } else {
- | DOUBLE_GET_LONG fp_tmp_reg, Z_LVAL_P(zv), tmp_reg1
- | SET_ZVAL_DVAL dst_addr, fp_tmp_reg, tmp_reg2
- | SET_ZVAL_DVAL res_addr, fp_tmp_reg, tmp_reg2
- || }
- || } else {
- || if (Z_MODE(dst_addr) == IS_REG) {
- | SET_ZVAL_LVAL dst_addr, Z_LVAL_P(zv), Rx(tmp_reg1), Rx(tmp_reg2)
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(Z_REG(dst_addr)), Rx(tmp_reg1)
- || } else if (Z_MODE(res_addr) == IS_REG) {
- | SET_ZVAL_LVAL res_addr, Z_LVAL_P(zv), Rx(tmp_reg1), Rx(tmp_reg2)
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(Z_REG(res_addr)), Rx(tmp_reg1)
- || } else {
- | SET_ZVAL_LVAL dst_addr, Z_LVAL_P(zv), Rx(tmp_reg1), Rx(tmp_reg2)
- | SET_ZVAL_LVAL res_addr, Z_LVAL_P(zv), Rx(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- || }
- || if (Z_MODE(dst_addr) == IS_MEM_ZVAL) {
- || if (dst_def_info == MAY_BE_DOUBLE) {
- || if ((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO dst_addr, IS_DOUBLE, Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || } else if (((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != (1<<Z_TYPE_P(zv))) || (dst_info & (MAY_BE_STRING|MAY_BE_ARRAY)) != 0) {
- | SET_ZVAL_TYPE_INFO dst_addr, Z_TYPE_INFO_P(zv), Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- || if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- || if (dst_def_info == MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, Rw(tmp_reg1), Rx(tmp_reg2)
- || } else {
- | SET_ZVAL_TYPE_INFO res_addr, Z_TYPE_INFO_P(zv), Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- |.endmacro
- // the same as above, but "src" may overlap with "reg1"
- // Useful info would be stored into reg1 and reg2, and they might be used afterward.
- |.macro ZVAL_COPY_VALUE, dst_addr, dst_info, src_addr, src_info, reg1, reg2, tmp_reg1, tmp_reg2, fp_tmp_reg
- | ZVAL_COPY_VALUE_V dst_addr, dst_info, src_addr, src_info, reg1, reg2, tmp_reg1, fp_tmp_reg
- || if ((src_info & (MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- || !(src_info & MAY_BE_GUARD) &&
- || has_concrete_type(src_info & MAY_BE_ANY)) {
- || if (Z_MODE(dst_addr) == IS_MEM_ZVAL) {
- || if ((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != (src_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD))) {
- || uint32_t type = concrete_type(src_info);
- | SET_ZVAL_TYPE_INFO dst_addr, type, Rw(tmp_reg1), Rx(tmp_reg2)
- || }
- || }
- || } else {
- | GET_ZVAL_TYPE_INFO Rw(reg1), src_addr, Rx(tmp_reg1)
- | SET_ZVAL_TYPE_INFO_FROM_REG dst_addr, Rw(reg1), Rx(tmp_reg1)
- || }
- |.endmacro
- |.macro ZVAL_COPY_VALUE_V, dst_addr, dst_info, src_addr, src_info, reg1, reg2, tmp_reg, fp_tmp_reg
- || if (src_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE))) {
- || if ((src_info & (MAY_BE_ANY|MAY_BE_GUARD)) == MAY_BE_LONG) {
- || if (Z_MODE(src_addr) == IS_REG) {
- || if (Z_MODE(dst_addr) != IS_REG || Z_REG(dst_addr) != Z_REG(src_addr)) {
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(Z_REG(src_addr)), Rx(tmp_reg)
- || }
- || } else if (Z_MODE(dst_addr) == IS_REG) {
- | GET_ZVAL_LVAL Z_REG(dst_addr), src_addr, Rx(tmp_reg)
- || } else {
- | GET_ZVAL_LVAL reg2, src_addr, Rx(tmp_reg)
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(reg2), Rx(tmp_reg)
- || }
- || } else if ((src_info & (MAY_BE_ANY|MAY_BE_GUARD)) == MAY_BE_DOUBLE) {
- || if (Z_MODE(src_addr) == IS_REG) {
- | SET_ZVAL_DVAL dst_addr, Z_REG(src_addr), tmp_reg
- || } else if (Z_MODE(dst_addr) == IS_REG) {
- | GET_ZVAL_DVAL Z_REG(dst_addr), src_addr, tmp_reg
- || } else {
- | GET_ZVAL_DVAL fp_tmp_reg, src_addr, tmp_reg
- | SET_ZVAL_DVAL dst_addr, fp_tmp_reg, tmp_reg
- || }
- || // Combine the following two branches.
- || // } else if (!(src_info & (MAY_BE_DOUBLE|MAY_BE_GUARD))) {
- || } else {
- | GET_ZVAL_PTR Rx(reg2), src_addr, Rx(tmp_reg)
- | SET_ZVAL_PTR dst_addr, Rx(reg2), Rx(tmp_reg)
- || }
- || }
- |.endmacro
- |.macro ZVAL_COPY_VALUE_2, dst_addr, dst_info, res_addr, src_addr, src_info, reg1, reg2, tmp_reg, tmp_reg2, fp_tmp_reg
- || if (src_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE))) {
- || if ((src_info & MAY_BE_ANY) == MAY_BE_LONG) {
- || if (Z_MODE(src_addr) == IS_REG) {
- || if (Z_MODE(dst_addr) != IS_REG || Z_REG(dst_addr) != Z_REG(src_addr)) {
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(Z_REG(src_addr)), Rx(tmp_reg)
- || }
- || if (Z_MODE(res_addr) != IS_REG || Z_REG(res_addr) != Z_REG(src_addr)) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(Z_REG(src_addr)), Rx(tmp_reg)
- || }
- || } else if (Z_MODE(dst_addr) == IS_REG) {
- | GET_ZVAL_LVAL Z_REG(dst_addr), src_addr, Rx(tmp_reg)
- || if (Z_MODE(res_addr) != IS_REG || Z_REG(res_addr) != Z_REG(dst_addr)) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(Z_REG(dst_addr)), Rx(tmp_reg)
- || }
- || } else if (Z_MODE(res_addr) == IS_REG) {
- | GET_ZVAL_LVAL Z_REG(res_addr), src_addr, Rx(tmp_reg)
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(Z_REG(res_addr)), Rx(tmp_reg)
- || } else {
- | GET_ZVAL_LVAL reg2, src_addr, Rx(tmp_reg)
- | SET_ZVAL_LVAL_FROM_REG dst_addr, Rx(reg2), Rx(tmp_reg)
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(reg2), Rx(tmp_reg)
- || }
- || } else if ((src_info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- || if (Z_MODE(src_addr) == IS_REG) {
- | SET_ZVAL_DVAL dst_addr, Z_REG(src_addr), tmp_reg
- | SET_ZVAL_DVAL res_addr, Z_REG(src_addr), tmp_reg
- || } else if (Z_MODE(dst_addr) == IS_REG) {
- | GET_ZVAL_DVAL Z_REG(dst_addr), src_addr, tmp_reg
- | SET_ZVAL_DVAL res_addr, Z_REG(dst_addr), tmp_reg
- || } else if (Z_MODE(res_addr) == IS_REG) {
- | GET_ZVAL_DVAL Z_REG(res_addr), src_addr, tmp_reg
- | SET_ZVAL_DVAL dst_addr, Z_REG(res_addr), tmp_reg
- || } else {
- | GET_ZVAL_DVAL fp_tmp_reg, src_addr, tmp_reg
- | SET_ZVAL_DVAL dst_addr, fp_tmp_reg, tmp_reg
- | SET_ZVAL_DVAL res_addr, fp_tmp_reg, tmp_reg
- || }
- || } else {
- | GET_ZVAL_PTR Rx(reg2), src_addr, Rx(tmp_reg)
- | SET_ZVAL_PTR dst_addr, Rx(reg2), Rx(tmp_reg)
- | SET_ZVAL_PTR res_addr, Rx(reg2), Rx(tmp_reg)
- || }
- || }
- || if ((src_info & (MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- || has_concrete_type(src_info & MAY_BE_ANY)) {
- || uint32_t type = concrete_type(src_info);
- || if (Z_MODE(dst_addr) == IS_MEM_ZVAL) {
- || if ((dst_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) != (src_info & (MAY_BE_ANY|MAY_BE_UNDEF))) {
- | SET_ZVAL_TYPE_INFO dst_addr, type, Rw(tmp_reg), Rx(tmp_reg2)
- || }
- || }
- || if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- | SET_ZVAL_TYPE_INFO res_addr, type, Rw(tmp_reg), Rx(tmp_reg2)
- || }
- || } else {
- | GET_ZVAL_TYPE_INFO Rw(reg1), src_addr, Rx(tmp_reg)
- | SET_ZVAL_TYPE_INFO_FROM_REG dst_addr, Rw(reg1), Rx(tmp_reg)
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, Rw(reg1), Rx(tmp_reg)
- || }
- |.endmacro
- |.macro IF_UNDEF, type_reg, label
- | cbz type_reg, label
- |.endmacro
- |.macro IF_TYPE, type, val, label
- || if (val == 0) {
- | cbz type, label
- || } else {
- | cmp type, #val
- | beq label
- || }
- |.endmacro
- |.macro IF_NOT_TYPE, type, val, label
- || if (val == 0) {
- | cbnz type, label
- || } else {
- | cmp type, #val
- | bne label
- || }
- |.endmacro
- |.macro IF_Z_TYPE, zv, val, label, tmp_reg
- | ldrb tmp_reg, [zv, #offsetof(zval, u1.v.type)]
- | IF_TYPE tmp_reg, val, label
- |.endmacro
- |.macro IF_NOT_Z_TYPE, zv, val, label, tmp_reg
- | ldrb tmp_reg, [zv, #offsetof(zval, u1.v.type)]
- | IF_NOT_TYPE tmp_reg, val, label
- |.endmacro
- |.macro CMP_ZVAL_TYPE, addr, val, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, Rw(tmp_reg), Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval, u1.v.type), Rx(tmp_reg)
- | cmp Rw(tmp_reg), #val
- |.endmacro
- |.macro IF_ZVAL_TYPE, addr, val, label, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, Rw(tmp_reg), Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval, u1.v.type), Rx(tmp_reg)
- | IF_TYPE Rw(tmp_reg), val, label
- |.endmacro
- |.macro IF_NOT_ZVAL_TYPE, addr, val, label, tmp_reg
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, Rw(tmp_reg), Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval, u1.v.type), Rx(tmp_reg)
- | IF_NOT_TYPE Rw(tmp_reg), val, label
- |.endmacro
- |.macro IF_FLAGS, type_flags, mask, label, tmp_reg
- | TST_32_WITH_CONST type_flags, mask, tmp_reg
- | bne label
- |.endmacro
- |.macro IF_NOT_FLAGS, type_flags, mask, label, tmp_reg
- | TST_32_WITH_CONST type_flags, mask, tmp_reg
- | beq label
- |.endmacro
- |.macro IF_REFCOUNTED, type_flags, label, tmp_reg
- | TST_32_WITH_CONST type_flags, (IS_TYPE_REFCOUNTED << Z_TYPE_FLAGS_SHIFT), tmp_reg
- | bne label
- |.endmacro
- |.macro IF_NOT_REFCOUNTED, type_flags, label, tmp_reg
- | TST_32_WITH_CONST type_flags, (IS_TYPE_REFCOUNTED << Z_TYPE_FLAGS_SHIFT), tmp_reg
- | beq label
- |.endmacro
- |.macro IF_ZVAL_FLAGS, addr, mask, label, tmp_reg1, tmp_reg2
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, Rw(tmp_reg1), Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval, u1.v.type_flags), Rx(tmp_reg2)
- | IF_FLAGS Rw(tmp_reg1), mask, label, Rw(tmp_reg2)
- |.endmacro
- |.macro IF_NOT_ZVAL_FLAGS, addr, mask, label, tmp_reg1, tmp_reg2
- || ZEND_ASSERT(Z_MODE(addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, Rw(tmp_reg1), Rx(Z_REG(addr)), Z_OFFSET(addr)+offsetof(zval, u1.v.type_flags), Rx(tmp_reg2)
- | IF_NOT_FLAGS Rw(tmp_reg1), mask, label, Rw(tmp_reg2)
- |.endmacro
- |.macro IF_ZVAL_REFCOUNTED, addr, label, tmp_reg1, tmp_reg2
- | IF_ZVAL_FLAGS addr, IS_TYPE_REFCOUNTED, label, tmp_reg1, tmp_reg2
- |.endmacro
- |.macro IF_NOT_ZVAL_REFCOUNTED, addr, label, tmp_reg1, tmp_reg2
- | IF_NOT_ZVAL_FLAGS addr, IS_TYPE_REFCOUNTED, label, tmp_reg1, tmp_reg2
- |.endmacro
- |.macro IF_NOT_ZVAL_COLLECTABLE, addr, label, tmp_reg1, tmp_reg2
- | IF_NOT_ZVAL_FLAGS addr, IS_TYPE_COLLECTABLE, label, tmp_reg1, tmp_reg2
- |.endmacro
- |.macro GC_ADDREF, zv, tmp_reg
- | ldr tmp_reg, [zv]
- | add tmp_reg, tmp_reg, #1
- | str tmp_reg, [zv]
- |.endmacro
- |.macro GC_ADDREF_2, zv, tmp_reg
- | ldr tmp_reg, [zv]
- | add tmp_reg, tmp_reg, #2
- | str tmp_reg, [zv]
- |.endmacro
- |.macro GC_DELREF, zv, tmp_reg
- | ldr tmp_reg, [zv]
- | subs tmp_reg, tmp_reg, #1
- | str tmp_reg, [zv]
- |.endmacro
- |.macro IF_GC_MAY_NOT_LEAK, ptr, label, tmp_reg1, tmp_reg2
- | ldr tmp_reg1, [ptr, #4]
- | TST_32_WITH_CONST tmp_reg1, (GC_INFO_MASK | (GC_NOT_COLLECTABLE << GC_FLAGS_SHIFT)), tmp_reg2
- | bne label
- |.endmacro
- |.macro ADDREF_CONST, zv, tmp_reg1, tmp_reg2
- | LOAD_ADDR tmp_reg1, Z_PTR_P(zv)
- | ldr tmp_reg2, [tmp_reg1]
- | add tmp_reg2, tmp_reg2, #1
- | str tmp_reg2, [tmp_reg1]
- |.endmacro
- |.macro ADDREF_CONST_2, zv, tmp_reg1, tmp_reg2
- | LOAD_ADDR tmp_reg1, Z_PTR_P(zv)
- | ldr tmp_reg2, [tmp_reg1]
- | add tmp_reg2, tmp_reg2, #2
- | str tmp_reg2, [tmp_reg1]
- |.endmacro
- |.macro TRY_ADDREF, val_info, type_flags_reg, value_ptr_reg, tmp_reg
- || if (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- || if (val_info & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | IF_NOT_REFCOUNTED type_flags_reg, >1, tmp_reg
- || }
- | GC_ADDREF value_ptr_reg, tmp_reg
- |1:
- || }
- |.endmacro
- |.macro TRY_ADDREF_2, val_info, type_flags_reg, value_ptr_reg, tmp_reg
- || if (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- || if (val_info & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | IF_NOT_REFCOUNTED type_flags_reg, >1, tmp_reg
- || }
- | ldr tmp_reg, [value_ptr_reg]
- | add tmp_reg, tmp_reg, #2
- | str tmp_reg, [value_ptr_reg]
- |1:
- || }
- |.endmacro
- |.macro ZVAL_DEREF, reg, info, tmp_reg
- || if (info & MAY_BE_REF) {
- | IF_NOT_Z_TYPE, reg, IS_REFERENCE, >1, tmp_reg
- | GET_Z_PTR reg, reg
- | add reg, reg, #offsetof(zend_reference, val)
- |1:
- || }
- |.endmacro
- |.macro SET_EX_OPLINE, op, tmp_reg
- || if (op == last_valid_opline) {
- || zend_jit_use_last_valid_opline();
- | SAVE_IP
- || } else {
- | ADDR_STORE EX->opline, op, tmp_reg
- || if (!GCC_GLOBAL_REGS) {
- || zend_jit_reset_last_valid_opline();
- || }
- || }
- |.endmacro
- // arg1 "zval" should be in FCARG1x
- |.macro ZVAL_DTOR_FUNC, var_info, opline, tmp_reg
- || do {
- || if (!((var_info) & MAY_BE_GUARD)
- || && has_concrete_type((var_info) & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- || zend_uchar type = concrete_type((var_info) & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE));
- || if (type == IS_STRING && !ZEND_DEBUG) {
- | EXT_CALL _efree, tmp_reg
- || break;
- || } else if (type == IS_ARRAY) {
- || if ((var_info) & (MAY_BE_ARRAY_KEY_STRING|MAY_BE_ARRAY_OF_STRING|MAY_BE_ARRAY_OF_ARRAY|MAY_BE_ARRAY_OF_OBJECT|MAY_BE_ARRAY_OF_RESOURCE|MAY_BE_ARRAY_OF_REF)) {
- || if (opline && ((var_info) & (MAY_BE_ARRAY_OF_ARRAY|MAY_BE_ARRAY_OF_OBJECT|MAY_BE_ARRAY_OF_RESOURCE|MAY_BE_ARRAY_OF_REF))) {
- | SET_EX_OPLINE opline, tmp_reg
- || }
- | EXT_CALL zend_array_destroy, tmp_reg
- || } else {
- | EXT_CALL zend_jit_array_free, tmp_reg
- || }
- || break;
- || } else if (type == IS_OBJECT) {
- || if (opline) {
- | SET_EX_OPLINE opline, REG0
- || }
- | EXT_CALL zend_objects_store_del, tmp_reg
- || break;
- || }
- || }
- || if (opline) {
- | SET_EX_OPLINE opline, tmp_reg
- || }
- | EXT_CALL rc_dtor_func, tmp_reg
- || } while(0);
- |.endmacro
- |.macro ZVAL_PTR_DTOR, addr, op_info, gc, cold, opline, tmp_reg1, tmp_reg2
- || if ((op_info) & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF|MAY_BE_GUARD)) {
- || if ((op_info) & ((MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_INDIRECT|MAY_BE_GUARD)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | // if (Z_REFCOUNTED_P(cv)) {
- || if (cold) {
- | IF_ZVAL_REFCOUNTED addr, >1, tmp_reg1, tmp_reg2
- |.cold_code
- |1:
- || } else {
- | IF_NOT_ZVAL_REFCOUNTED addr, >4, tmp_reg1, tmp_reg2
- || }
- || }
- | // if (!Z_DELREF_P(cv)) {
- | GET_ZVAL_PTR FCARG1x, addr, Rx(tmp_reg2)
- | GC_DELREF FCARG1x, Rw(tmp_reg1)
- || if (((op_info) & MAY_BE_GUARD) || RC_MAY_BE_1(op_info)) {
- || if (((op_info) & MAY_BE_GUARD) || RC_MAY_BE_N(op_info)) {
- || if (gc && (((op_info) & MAY_BE_GUARD) || (RC_MAY_BE_N(op_info) && ((op_info) & (MAY_BE_REF|MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0))) {
- | bne >3
- || } else {
- | bne >4
- || }
- || }
- | // zval_dtor_func(r);
- | ZVAL_DTOR_FUNC op_info, opline, Rx(tmp_reg1)
- || if (gc && (((op_info) & MAY_BE_GUARD) || (RC_MAY_BE_N(op_info) && ((op_info) & (MAY_BE_REF|MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0))) {
- | b >4
- || }
- |3:
- || }
- || if (gc && (((op_info) & MAY_BE_GUARD) || (RC_MAY_BE_N(op_info) && ((op_info) & (MAY_BE_REF|MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0))) {
- || if ((op_info) & (MAY_BE_REF|MAY_BE_GUARD)) {
- || zend_jit_addr ref_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, offsetof(zend_reference, val));
- | IF_NOT_ZVAL_TYPE addr, IS_REFERENCE, >1, tmp_reg1
- | IF_NOT_ZVAL_COLLECTABLE ref_addr, >4, tmp_reg1, tmp_reg2
- | GET_ZVAL_PTR FCARG1x, ref_addr, Rx(tmp_reg2)
- |1:
- || }
- | IF_GC_MAY_NOT_LEAK FCARG1x, >4, Rw(tmp_reg1), Rw(tmp_reg2)
- | // gc_possible_root(Z_COUNTED_P(z))
- | EXT_CALL gc_possible_root, Rx(tmp_reg1)
- || }
- || if (cold && ((op_info) & ((MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_INDIRECT|MAY_BE_GUARD)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) != 0) {
- | b >4
- |.code
- || }
- |4:
- || }
- |.endmacro
- |.macro FREE_OP, op_type, op, op_info, cold, opline, tmp_reg1, tmp_reg2
- || if (op_type & (IS_VAR|IS_TMP_VAR)) {
- || zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op.var);
- | ZVAL_PTR_DTOR addr, op_info, 0, cold, opline, tmp_reg1, tmp_reg2
- || }
- |.endmacro
- |.macro SEPARATE_ARRAY, addr, op_info, cold, tmp_reg1, tmp_reg2
- || if (RC_MAY_BE_N(op_info)) {
- || if (Z_REG(addr) != ZREG_FP) {
- | GET_ZVAL_LVAL ZREG_REG0, addr, Rx(tmp_reg1)
- || if (RC_MAY_BE_1(op_info)) {
- | // if (GC_REFCOUNT() > 1)
- | ldr Rw(tmp_reg1), [REG0]
- | cmp Rw(tmp_reg1), #1
- | bls >2
- || }
- || if (Z_REG(addr) != ZREG_FCARG1 || Z_OFFSET(addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, addr
- || }
- | EXT_CALL zend_jit_zval_array_dup, REG0
- | mov REG0, RETVALx
- |2:
- | mov FCARG1x, REG0
- || } else {
- | GET_ZVAL_LVAL ZREG_FCARG1, addr, Rx(tmp_reg1)
- || if (RC_MAY_BE_1(op_info)) {
- | // if (GC_REFCOUNT() > 1)
- | ldr Rw(tmp_reg1), [FCARG1x]
- | cmp Rw(tmp_reg1), #1
- || if (cold) {
- | bhi >1
- |.cold_code
- |1:
- || } else {
- | bls >2
- || }
- || }
- | IF_NOT_ZVAL_REFCOUNTED addr, >1, tmp_reg1, tmp_reg2
- | GC_DELREF FCARG1x, Rw(tmp_reg1)
- |1:
- | EXT_CALL zend_array_dup, REG0
- | mov REG0, RETVALx
- | SET_ZVAL_PTR addr, REG0, Rx(tmp_reg1)
- | SET_ZVAL_TYPE_INFO addr, IS_ARRAY_EX, Rw(tmp_reg1), Rx(tmp_reg2)
- | mov FCARG1x, REG0
- || if (RC_MAY_BE_1(op_info)) {
- || if (cold) {
- | b >2
- |.code
- || }
- || }
- |2:
- || }
- || } else {
- | GET_ZVAL_LVAL ZREG_FCARG1, addr, Rx(tmp_reg1)
- || }
- |.endmacro
- /* argument is passed in FCARG1x */
- |.macro EFREE_REFERENCE
- ||#if ZEND_DEBUG
- | mov FCARG2x, xzr // filename
- | mov CARG3w, wzr // lineno
- | mov CARG4, xzr
- | mov CARG5, xzr
- | EXT_CALL _efree, REG0
- ||#else
- ||#ifdef HAVE_BUILTIN_CONSTANT_P
- | EXT_CALL _efree_32, REG0
- ||#else
- | EXT_CALL _efree, REG0
- ||#endif
- ||#endif
- |.endmacro
- |.macro EMALLOC, size, op_array, opline
- ||#if ZEND_DEBUG
- || const char *filename = op_array->filename ? op_array->filename->val : NULL;
- | mov FCARG1x, #size
- | LOAD_ADDR FCARG2x, filename
- | LOAD_32BIT_VAL CARG3w, opline->lineno
- | mov CARG4, xzr
- | mov CARG5, xzr
- | EXT_CALL _emalloc, REG0
- | mov REG0, RETVALx
- ||#else
- ||#ifdef HAVE_BUILTIN_CONSTANT_P
- || if (size > 24 && size <= 32) {
- | EXT_CALL _emalloc_32, REG0
- | mov REG0, RETVALx
- || } else {
- | mov FCARG1x, #size
- | EXT_CALL _emalloc, REG0
- | mov REG0, RETVALx
- || }
- ||#else
- | mov FCARG1x, #size
- | EXT_CALL _emalloc, REG0
- | mov REG0, RETVALx
- ||#endif
- ||#endif
- |.endmacro
- |.macro OBJ_RELEASE, reg, exit_label, tmp_reg1, tmp_reg2
- | GC_DELREF Rx(reg), Rw(tmp_reg1)
- | bne >1
- | // zend_objects_store_del(obj);
- || if (reg != ZREG_FCARG1) {
- | mov FCARG1x, Rx(reg)
- || }
- | EXT_CALL zend_objects_store_del, Rx(tmp_reg1)
- | b exit_label
- |1:
- | IF_GC_MAY_NOT_LEAK Rx(reg), >1, Rw(tmp_reg1), Rw(tmp_reg2)
- | // gc_possible_root(obj)
- || if (reg != ZREG_FCARG1) {
- | mov FCARG1x, Rx(reg)
- || }
- | EXT_CALL gc_possible_root, Rx(tmp_reg1)
- |1:
- |.endmacro
- |.macro UNDEFINED_OFFSET, opline
- || if (opline == last_valid_opline) {
- || zend_jit_use_last_valid_opline();
- | bl ->undefined_offset_ex
- || } else {
- | SET_EX_OPLINE opline, REG0
- | bl ->undefined_offset
- || }
- |.endmacro
- |.macro UNDEFINED_INDEX, opline
- || if (opline == last_valid_opline) {
- || zend_jit_use_last_valid_opline();
- | bl ->undefined_index_ex
- || } else {
- | SET_EX_OPLINE opline, REG0
- | bl ->undefined_index
- || }
- |.endmacro
- |.macro CANNOT_ADD_ELEMENT, opline
- || if (opline == last_valid_opline) {
- || zend_jit_use_last_valid_opline();
- | bl ->cannot_add_element_ex
- || } else {
- | SET_EX_OPLINE opline, REG0
- | bl ->cannot_add_element
- || }
- |.endmacro
- static bool reuse_ip = 0;
- static bool delayed_call_chain = 0;
- static uint32_t delayed_call_level = 0;
- static const zend_op *last_valid_opline = NULL;
- static bool use_last_vald_opline = 0;
- static bool track_last_valid_opline = 0;
- static int jit_return_label = -1;
- static uint32_t current_trace_num = 0;
- static uint32_t allowed_opt_flags = 0;
- static void zend_jit_track_last_valid_opline(void)
- {
- use_last_vald_opline = 0;
- track_last_valid_opline = 1;
- }
- static void zend_jit_use_last_valid_opline(void)
- {
- if (track_last_valid_opline) {
- use_last_vald_opline = 1;
- track_last_valid_opline = 0;
- }
- }
- static bool zend_jit_trace_uses_initial_ip(void)
- {
- return use_last_vald_opline;
- }
- static void zend_jit_set_last_valid_opline(const zend_op *target_opline)
- {
- if (!reuse_ip) {
- track_last_valid_opline = 0;
- last_valid_opline = target_opline;
- }
- }
- static void zend_jit_reset_last_valid_opline(void)
- {
- track_last_valid_opline = 0;
- last_valid_opline = NULL;
- }
- static void zend_jit_start_reuse_ip(void)
- {
- zend_jit_reset_last_valid_opline();
- reuse_ip = 1;
- }
- static int zend_jit_reuse_ip(dasm_State **Dst)
- {
- if (!reuse_ip) {
- zend_jit_start_reuse_ip();
- | // call = EX(call);
- | ldr RX, EX->call
- }
- return 1;
- }
- static void zend_jit_stop_reuse_ip(void)
- {
- reuse_ip = 0;
- }
- static int zend_jit_interrupt_handler_stub(dasm_State **Dst)
- {
- |->interrupt_handler:
- | SAVE_IP
- | //EG(vm_interrupt) = 0;
- | MEM_STORE_8_ZTS strb, wzr, executor_globals, vm_interrupt, TMP1
- | //if (EG(timed_out)) {
- | MEM_LOAD_8_ZTS ldrb, TMP1w, executor_globals, timed_out, TMP1
- | cbz TMP1w, >1
- | //zend_timeout();
- | EXT_CALL zend_timeout, TMP1
- |1:
- | //} else if (zend_interrupt_function) {
- if (zend_interrupt_function) {
- | //zend_interrupt_function(execute_data);
- | mov CARG1, FP
- | EXT_CALL zend_interrupt_function, TMP1
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbz REG0, >1
- | EXT_CALL zend_jit_exception_in_interrupt_handler_helper, TMP1
- |1:
- | //ZEND_VM_ENTER();
- | //execute_data = EG(current_execute_data);
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, TMP1
- | LOAD_IP
- }
- | //ZEND_VM_CONTINUE()
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | JMP_IP TMP1
- } else {
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #1 // ZEND_VM_ENTER
- | ret
- }
- return 1;
- }
- static int zend_jit_exception_handler_stub(dasm_State **Dst)
- {
- |->exception_handler:
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- const void *handler = zend_get_opcode_handler_func(EG(exception_op));
- | ADD_HYBRID_SPAD
- | EXT_CALL handler, REG0
- | JMP_IP TMP1
- } else {
- const void *handler = EG(exception_op)->handler;
- if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | EXT_JMP handler, REG0
- } else {
- | mov FCARG1x, FP
- | EXT_CALL handler, REG0
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | tbnz RETVALw, #31, >1
- | mov RETVALw, #1 // ZEND_VM_ENTER
- |1:
- | ret
- }
- }
- return 1;
- }
- static int zend_jit_exception_handler_undef_stub(dasm_State **Dst)
- {
- |->exception_handler_undef:
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, opline_before_exception, REG0
- | ldrb TMP1w, OP:REG0->result_type
- | TST_32_WITH_CONST TMP1w, (IS_TMP_VAR|IS_VAR), TMP2w
- | beq >1
- | ldr REG0w, OP:REG0->result.var
- | add REG0, REG0, FP
- | SET_Z_TYPE_INFO REG0, IS_UNDEF, TMP1w
- |1:
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_exception_handler_free_op1_op2_stub(dasm_State **Dst)
- {
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- |->exception_handler_free_op1_op2:
- | UNDEF_OPLINE_RESULT_IF_USED TMP1w, TMP2w
- | ldrb TMP1w, OP:RX->op1_type
- | TST_32_WITH_CONST TMP1w, (IS_TMP_VAR|IS_VAR), TMP2w
- | beq >9
- | ldr REG0w, OP:RX->op1.var
- | add REG0, REG0, FP
- | ZVAL_PTR_DTOR addr, MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF, 0, 0, NULL, ZREG_TMP1, ZREG_TMP2
- |9:
- | ldrb TMP1w, OP:RX->op2_type
- | TST_32_WITH_CONST TMP1w, (IS_TMP_VAR|IS_VAR), TMP2w
- | beq >9
- | ldr REG0w, OP:RX->op2.var
- | add REG0, REG0, FP
- | ZVAL_PTR_DTOR addr, MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF, 0, 0, NULL, ZREG_TMP1, ZREG_TMP2
- |9:
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_exception_handler_free_op2_stub(dasm_State **Dst)
- {
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- |->exception_handler_free_op2:
- | MEM_LOAD_64_ZTS ldr, RX, executor_globals, opline_before_exception, REG0
- | UNDEF_OPLINE_RESULT_IF_USED TMP1w, TMP2w
- | ldrb TMP1w, OP:RX->op2_type
- | TST_32_WITH_CONST TMP1w, (IS_TMP_VAR|IS_VAR), TMP2w
- | beq >9
- | ldr REG0w, OP:RX->op2.var
- | add REG0, REG0, FP
- | ZVAL_PTR_DTOR addr, MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF, 0, 0, NULL, ZREG_TMP1, ZREG_TMP2
- |9:
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_leave_function_stub(dasm_State **Dst)
- {
- |->leave_function_handler:
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | TST_32_WITH_CONST FCARG1w, ZEND_CALL_TOP, TMP1w
- | bne >1
- | EXT_CALL zend_jit_leave_nested_func_helper, REG0
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- |1:
- | EXT_CALL zend_jit_leave_top_func_helper, REG0
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- } else {
- if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- } else {
- | mov FCARG2x, FP
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- }
- | TST_32_WITH_CONST FCARG1w, ZEND_CALL_TOP, TMP1w
- | bne >1
- | EXT_JMP zend_jit_leave_nested_func_helper, REG0
- |1:
- | EXT_JMP zend_jit_leave_top_func_helper, REG0
- }
- return 1;
- }
- static int zend_jit_leave_throw_stub(dasm_State **Dst)
- {
- |->leave_throw_handler:
- | // if (opline->opcode != ZEND_HANDLE_EXCEPTION) {
- if (GCC_GLOBAL_REGS) {
- | ldrb TMP1w, OP:IP->opcode
- | cmp TMP1w, #ZEND_HANDLE_EXCEPTION
- | beq >5
- | // EG(opline_before_exception) = opline;
- | MEM_STORE_64_ZTS str, IP, executor_globals, opline_before_exception, TMP2
- |5:
- | // opline = EG(exception_op);
- | LOAD_IP_ADDR_ZTS executor_globals, exception_op, TMP2
- | // HANDLE_EXCEPTION()
- | b ->exception_handler
- } else {
- | GET_IP TMP1
- | ldrb TMP2w, OP:TMP1->opcode
- | cmp TMP2w, #ZEND_HANDLE_EXCEPTION
- | beq >5
- | // EG(opline_before_exception) = opline;
- | MEM_STORE_64_ZTS str, TMP1, executor_globals, opline_before_exception, TMP2
- |5:
- | // opline = EG(exception_op);
- | LOAD_IP_ADDR_ZTS executor_globals, exception_op, TMP2
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #2 // ZEND_VM_LEAVE
- | ret
- }
- return 1;
- }
- static int zend_jit_icall_throw_stub(dasm_State **Dst)
- {
- |->icall_throw_handler:
- | // zend_rethrow_exception(zend_execute_data *execute_data)
- | ldr IP, EX->opline
- | // if (EX(opline)->opcode != ZEND_HANDLE_EXCEPTION) {
- | ldrb TMP1w, OP:IP->opcode
- | cmp TMP1w, #ZEND_HANDLE_EXCEPTION
- | beq >1
- | // EG(opline_before_exception) = opline;
- | MEM_STORE_64_ZTS str, IP, executor_globals, opline_before_exception, TMP2
- |1:
- | // opline = EG(exception_op);
- | LOAD_IP_ADDR_ZTS executor_globals, exception_op, TMP2
- || if (GCC_GLOBAL_REGS) {
- | str IP, EX->opline
- || }
- | // HANDLE_EXCEPTION()
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_throw_cannot_pass_by_ref_stub(dasm_State **Dst)
- {
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- |->throw_cannot_pass_by_ref:
- | ldr REG0, EX->opline
- | ldr REG1w, OP:REG0->result.var
- | add REG1, REG1, RX
- | SET_Z_TYPE_INFO REG1, IS_UNDEF, TMP1w
- | // last EX(call) frame may be delayed
- | ldr TMP1, EX->call
- | cmp RX, TMP1
- | beq >1
- | ldr REG1, EX->call
- | str REG1, EX:RX->prev_execute_data
- | str RX, EX->call
- |1:
- | mov RX, REG0
- | ldr FCARG1w, OP:REG0->op2.num
- | EXT_CALL zend_cannot_pass_by_reference, REG0
- | ldrb TMP1w, OP:RX->op1_type
- | cmp TMP1w, #IS_TMP_VAR
- | bne >9
- | ldr REG0w, OP:RX->op1.var
- | add REG0, REG0, FP
- | ZVAL_PTR_DTOR addr, MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF, 0, 0, NULL, ZREG_TMP1, ZREG_TMP2
- |9:
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_undefined_offset_ex_stub(dasm_State **Dst)
- {
- |->undefined_offset_ex:
- | SAVE_IP
- | b ->undefined_offset
- return 1;
- }
- static int zend_jit_undefined_offset_stub(dasm_State **Dst)
- {
- |->undefined_offset:
- #ifdef __APPLE__
- | stp x29, x30, [sp, # -16]!
- | mov x29, sp
- #endif
- | //sub r4, 8
- | ldr REG0, EX->opline
- | ldr REG1w, OP:REG0->result.var
- | add REG1, REG1, FP
- | SET_Z_TYPE_INFO REG1, IS_NULL, TMP1w
- | ldrb REG1w, OP:REG0->op2_type
- | cmp REG1w, #IS_CONST
- | bne >2
- | ldrsw REG1, OP:REG0->op2.constant
- | add REG0, REG0, REG1
- | b >3
- |2:
- | ldr REG0w, OP:REG0->op2.var
- | add REG0, REG0, FP
- |3:
- | mov CARG1, #E_WARNING
- | LOAD_ADDR CARG2, "Undefined array key " ZEND_LONG_FMT
- | ldr CARG3, [REG0]
- #ifdef __APPLE__
- | str CARG3, [sp, #-16]!
- | EXT_CALL zend_error, REG0
- | add sp, sp, #16
- | ldp x29, x30, [sp], #16
- | ret
- #else
- | EXT_JMP zend_error, REG0 // tail call
- | //add r4, 8 // stack alignment
- | //ret
- #endif
- return 1;
- }
- static int zend_jit_undefined_index_ex_stub(dasm_State **Dst)
- {
- |->undefined_index_ex:
- | SAVE_IP
- | b ->undefined_index
- return 1;
- }
- static int zend_jit_undefined_index_stub(dasm_State **Dst)
- {
- |->undefined_index:
- #ifdef __APPLE__
- | stp x29, x30, [sp, # -16]!
- | mov x29, sp
- #endif
- | //sub r4, 8
- | ldr REG0, EX->opline
- | ldr REG1w, OP:REG0->result.var
- | add REG1, REG1, FP
- | SET_Z_TYPE_INFO REG1, IS_NULL, TMP1w
- | ldrb REG1w, OP:REG0->op2_type
- | cmp REG1w, #IS_CONST
- | bne >2
- | ldrsw REG1, OP:REG0->op2.constant
- | add REG0, REG0, REG1
- | b >3
- |2:
- | ldr REG0w, OP:REG0->op2.var
- | add REG0, REG0, FP
- |3:
- | mov CARG1, #E_WARNING
- | LOAD_ADDR CARG2, "Undefined array key \"%s\""
- | ldr CARG3, [REG0]
- | add CARG3, CARG3, #offsetof(zend_string, val)
- #ifdef __APPLE__
- | str CARG3, [sp, #-16]!
- | EXT_CALL zend_error, REG0
- | add sp, sp, #16
- | ldp x29, x30, [sp], #16
- | ret
- #else
- | EXT_JMP zend_error, REG0 // tail call
- | //add r4, 8
- | //ret
- #endif
- return 1;
- }
- static int zend_jit_cannot_add_element_ex_stub(dasm_State **Dst)
- {
- |->cannot_add_element_ex:
- | SAVE_IP
- | b ->cannot_add_element
- return 1;
- }
- static int zend_jit_cannot_add_element_stub(dasm_State **Dst)
- {
- |->cannot_add_element:
- | // sub r4, 8
- | ldr REG0, EX->opline
- | ldrb TMP1w, OP:REG0->result_type
- | cmp TMP1w, #IS_UNUSED
- | beq >1
- | ldr REG0w, OP:REG0->result.var
- | add REG0, REG0, FP
- | SET_Z_TYPE_INFO REG0, IS_NULL, TMP1w
- |1:
- | mov CARG1, xzr
- | LOAD_ADDR CARG2, "Cannot add element to the array as the next element is already occupied"
- | EXT_JMP zend_throw_error, REG0 // tail call
- | // add r4, 8
- | //ret
- return 1;
- }
- static int zend_jit_undefined_function_stub(dasm_State **Dst)
- {
- |->undefined_function:
- | ldr REG0, EX->opline
- | mov CARG1, xzr
- | LOAD_ADDR CARG2, "Call to undefined function %s()"
- | ldrsw CARG3, [REG0, #offsetof(zend_op, op2.constant)]
- | ldr CARG3, [REG0, CARG3]
- | add CARG3, CARG3, #offsetof(zend_string, val)
- #ifdef __APPLE__
- | str CARG3, [sp, #-16]!
- #endif
- | EXT_CALL zend_throw_error, REG0
- #ifdef __APPLE__
- | add sp, sp, #16
- #endif
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_negative_shift_stub(dasm_State **Dst)
- {
- |->negative_shift:
- | ldr RX, EX->opline
- | LOAD_ADDR CARG1, zend_ce_arithmetic_error
- | LOAD_ADDR CARG2, "Bit shift by negative number"
- | EXT_CALL zend_throw_error, REG0
- | b ->exception_handler_free_op1_op2
- return 1;
- }
- static int zend_jit_mod_by_zero_stub(dasm_State **Dst)
- {
- |->mod_by_zero:
- | ldr RX, EX->opline
- | LOAD_ADDR CARG1, zend_ce_division_by_zero_error
- | LOAD_ADDR CARG2, "Modulo by zero"
- | EXT_CALL zend_throw_error, REG0
- | b ->exception_handler_free_op1_op2
- return 1;
- }
- static int zend_jit_invalid_this_stub(dasm_State **Dst)
- {
- |->invalid_this:
- | UNDEF_OPLINE_RESULT TMP1w
- | mov CARG1, xzr
- | LOAD_ADDR CARG2, "Using $this when not in object context"
- | EXT_CALL zend_throw_error, REG0
- | b ->exception_handler
- return 1;
- }
- static int zend_jit_hybrid_runtime_jit_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID) {
- return 1;
- }
- |->hybrid_runtime_jit:
- | EXT_CALL zend_runtime_jit, REG0
- | JMP_IP TMP1
- return 1;
- }
- static int zend_jit_hybrid_profile_jit_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID) {
- return 1;
- }
- |->hybrid_profile_jit:
- | // ++zend_jit_profile_counter;
- | LOAD_ADDR REG0, &zend_jit_profile_counter
- | ldr TMP1, [REG0]
- | add TMP1, TMP1, #1
- | str TMP1, [REG0]
- | // op_array = (zend_op_array*)EX(func);
- | ldr REG0, EX->func
- | // run_time_cache = EX(run_time_cache);
- | ldr REG2, EX->run_time_cache
- | // jit_extension = (const void*)ZEND_FUNC_INFO(op_array);
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | // ++ZEND_COUNTER_INFO(op_array)
- || if ((zend_jit_profile_counter_rid * sizeof(void*)) > LDR_STR_PIMM64) {
- | LOAD_32BIT_VAL TMP1, (zend_jit_profile_counter_rid * sizeof(void*))
- | ldr TMP2, [REG2, TMP1]
- | add TMP2, TMP2, #1
- | str TMP2, [REG2, TMP1]
- || } else {
- | ldr TMP2, [REG2, #(zend_jit_profile_counter_rid * sizeof(void*))]
- | add TMP2, TMP2, #1
- | str TMP2, [REG2, #(zend_jit_profile_counter_rid * sizeof(void*))]
- || }
- | // return ((zend_vm_opcode_handler_t)jit_extension->orig_handler)()
- | ldr TMP1, [REG0, #offsetof(zend_jit_op_array_extension, orig_handler)]
- | br TMP1
- return 1;
- }
- static int zend_jit_hybrid_hot_code_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID) {
- return 1;
- }
- |->hybrid_hot_code:
- || ZEND_ASSERT(ZEND_JIT_COUNTER_INIT <= MOVZ_IMM);
- | movz TMP1w, #ZEND_JIT_COUNTER_INIT
- | strh TMP1w, [REG2]
- | mov FCARG1x, FP
- | GET_IP FCARG2x
- | EXT_CALL zend_jit_hot_func, REG0
- | JMP_IP TMP1
- return 1;
- }
- /*
- * This code is based Mike Pall's "Hashed profile counters" idea, implemented
- * in LuaJIT. The full description may be found in "LuaJIT 2.0 intellectual
- * property disclosure and research opportunities" email
- * at http://lua-users.org/lists/lua-l/2009-11/msg00089.html
- *
- * In addition we use a variation of Knuth's multiplicative hash function
- * described at https://code.i-harness.com/en/q/a21ce
- *
- * uint64_t hash(uint64_t x) {
- * x = (x ^ (x >> 30)) * 0xbf58476d1ce4e5b9;
- * x = (x ^ (x >> 27)) * 0x94d049bb133111eb;
- * x = x ^ (x >> 31);
- * return x;
- * }
- *
- * uint_32_t hash(uint32_t x) {
- * x = ((x >> 16) ^ x) * 0x45d9f3b;
- * x = ((x >> 16) ^ x) * 0x45d9f3b;
- * x = (x >> 16) ^ x;
- * return x;
- * }
- *
- */
- static int zend_jit_hybrid_hot_counter_stub(dasm_State **Dst, uint32_t cost)
- {
- | ldr REG0, EX->func
- | ldr REG1, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG2, [REG1, #offsetof(zend_jit_op_array_hot_extension, counter)]
- | ldrh TMP2w, [REG2]
- | ADD_SUB_32_WITH_CONST subs, TMP2w, TMP2w, cost, TMP1w
- | strh TMP2w, [REG2]
- | ble ->hybrid_hot_code
- | GET_IP REG2
- | ldr TMP1, [REG0, #offsetof(zend_op_array, opcodes)]
- | sub REG2, REG2, TMP1
- | // divide by sizeof(zend_op)
- || ZEND_ASSERT(sizeof(zend_op) == 32);
- | add TMP1, REG1, REG2, asr #2
- | ldr TMP1, [TMP1, #offsetof(zend_jit_op_array_hot_extension, orig_handlers)]
- | br TMP1
- return 1;
- }
- static int zend_jit_hybrid_func_hot_counter_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID || !JIT_G(hot_func)) {
- return 1;
- }
- |->hybrid_func_hot_counter:
- return zend_jit_hybrid_hot_counter_stub(Dst,
- ((ZEND_JIT_COUNTER_INIT + JIT_G(hot_func) - 1) / JIT_G(hot_func)));
- }
- static int zend_jit_hybrid_loop_hot_counter_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID || !JIT_G(hot_loop)) {
- return 1;
- }
- |->hybrid_loop_hot_counter:
- return zend_jit_hybrid_hot_counter_stub(Dst,
- ((ZEND_JIT_COUNTER_INIT + JIT_G(hot_loop) - 1) / JIT_G(hot_loop)));
- }
- static int zend_jit_hybrid_hot_trace_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID) {
- return 1;
- }
- // On entry from counter stub:
- // REG2 -> zend_op_trace_info.counter
- |->hybrid_hot_trace:
- | mov TMP1w, #ZEND_JIT_COUNTER_INIT
- | strh TMP1w, [REG2]
- | mov FCARG1x, FP
- | GET_IP FCARG2x
- | EXT_CALL zend_jit_trace_hot_root, REG0
- | tbnz RETVALw, #31, >1 // Result is < 0 on failure.
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, REG0
- | LOAD_IP
- | JMP_IP TMP1
- |1:
- | EXT_JMP zend_jit_halt_op->handler, REG0
- return 1;
- }
- static int zend_jit_hybrid_trace_counter_stub(dasm_State **Dst, uint32_t cost)
- {
- | ldr REG0, EX->func
- | ldr REG1, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG1, [REG1, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | add TMP1, REG1, IP
- | ldr REG2, [TMP1, #offsetof(zend_op_trace_info, counter)]
- | ldrh TMP2w, [REG2]
- | ADD_SUB_32_WITH_CONST subs, TMP2w, TMP2w, cost, TMP1w
- | strh TMP2w, [REG2]
- | ble ->hybrid_hot_trace
- // Note: "REG1 + IP" is re-calculated as TMP1 is used as temporary register by the prior
- // ADD_SUB_32_WITH_CONST. Will optimize in the future if more temporary registers are available.
- | add TMP1, REG1, IP
- | ldr TMP2, [TMP1, #offsetof(zend_op_trace_info, orig_handler)]
- | br TMP2
- return 1;
- }
- static int zend_jit_hybrid_func_trace_counter_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID || !JIT_G(hot_func)) {
- return 1;
- }
- |->hybrid_func_trace_counter:
- return zend_jit_hybrid_trace_counter_stub(Dst,
- ((ZEND_JIT_COUNTER_INIT + JIT_G(hot_func) - 1) / JIT_G(hot_func)));
- }
- static int zend_jit_hybrid_ret_trace_counter_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID || !JIT_G(hot_return)) {
- return 1;
- }
- |->hybrid_ret_trace_counter:
- return zend_jit_hybrid_trace_counter_stub(Dst,
- ((ZEND_JIT_COUNTER_INIT + JIT_G(hot_return) - 1) / JIT_G(hot_return)));
- }
- static int zend_jit_hybrid_loop_trace_counter_stub(dasm_State **Dst)
- {
- if (zend_jit_vm_kind != ZEND_VM_KIND_HYBRID || !JIT_G(hot_loop)) {
- return 1;
- }
- |->hybrid_loop_trace_counter:
- return zend_jit_hybrid_trace_counter_stub(Dst,
- ((ZEND_JIT_COUNTER_INIT + JIT_G(hot_loop) - 1) / JIT_G(hot_loop)));
- }
- static int zend_jit_trace_halt_stub(dasm_State **Dst)
- {
- |->trace_halt:
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | EXT_JMP zend_jit_halt_op->handler, REG0
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | mov IP, xzr // PC must be zero
- | ret
- } else {
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | movn RETVALx, #0 // ZEND_VM_RETURN (-1)
- | ret
- }
- return 1;
- }
- static int zend_jit_trace_exit_stub(dasm_State **Dst)
- {
- |->trace_exit:
- |
- | // Save CPU registers(32 GP regs + 32 FP regs) on stack in the order of d31 to x0
- |
- | stp d30, d31, [sp, #-16]!
- | stp d28, d29, [sp, #-16]!
- | stp d26, d27, [sp, #-16]!
- | stp d24, d25, [sp, #-16]!
- | stp d22, d23, [sp, #-16]!
- | stp d20, d21, [sp, #-16]!
- | stp d18, d19, [sp, #-16]!
- | stp d16, d17, [sp, #-16]!
- | //stp d14, d15, [sp, #-16]! // we don't use preserved registers yet
- | //stp d12, d13, [sp, #-16]!
- | //stp d10, d11, [sp, #-16]!
- | //stp d8, d9, [sp, #-16]!
- | stp d6, d7, [sp, #(-16*5)]!
- | stp d4, d5, [sp, #-16]!
- | stp d2, d3, [sp, #-16]!
- | stp d0, d1, [sp, #-16]!
- |
- | //str x30, [sp, #-16]! // we don't use callee-saved registers yet (x31 can be omitted)
- | stp x28, x29, [sp, #(-16*2)]! // we have to store RX (x28)
- | //stp x26, x27, [sp, #-16]! // we don't use callee-saved registers yet
- | //stp x24, x25, [sp, #-16]!
- | //stp x22, x23, [sp, #-16]!
- | //stp x20, x21, [sp, #-16]!
- | //stp x18, x19, [sp, #-16]!
- | //stp x16, x17, [sp, #-16]! // we don't need temporary registers
- | stp x14, x15, [sp, #-(16*7)]!
- | stp x12, x13, [sp, #-16]!
- | stp x10, x11, [sp, #-16]!
- | stp x8, x9, [sp, #-16]!
- | stp x6, x7, [sp, #-16]!
- | stp x4, x5, [sp, #-16]!
- | stp x2, x3, [sp, #-16]!
- | stp x0, x1, [sp, #-16]!
- |
- | mov FCARG1w, TMP1w // exit_num
- | mov FCARG2x, sp
- |
- | // EX(opline) = opline
- | SAVE_IP
- | // zend_jit_trace_exit(trace_num, exit_num)
- | EXT_CALL zend_jit_trace_exit, REG0
- |
- | add sp, sp, #(32 * 16) // restore sp
- |
- | tst RETVALw, RETVALw
- | bne >1 // not zero
- | // execute_data = EG(current_execute_data)
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, REG0
- | // opline = EX(opline)
- | LOAD_IP
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | JMP_IP TMP1
- } else {
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #1 // ZEND_VM_ENTER
- | ret
- }
- |1:
- | blt ->trace_halt
- | // execute_data = EG(current_execute_data)
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, REG0
- | // opline = EX(opline)
- | LOAD_IP
- | // check for interrupt (try to avoid this ???)
- | MEM_LOAD_8_ZTS ldrb, TMP1w, executor_globals, vm_interrupt, TMP1
- | cbnz TMP1w, ->interrupt_handler
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | br REG0
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | br REG0
- } else {
- | ldr IP, EX->opline
- | mov FCARG1x, FP
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | blr REG0
- |
- | tst RETVALw, RETVALw
- | blt ->trace_halt
- |
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #1 // ZEND_VM_ENTER
- | ret
- }
- return 1;
- }
- static int zend_jit_trace_escape_stub(dasm_State **Dst)
- {
- |->trace_escape:
- |
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | JMP_IP, TMP1
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | JMP_IP, TMP1
- } else {
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #1 // ZEND_VM_ENTER
- | ret
- }
- return 1;
- }
- /* Keep 32 exit points in a single code block */
- #define ZEND_JIT_EXIT_POINTS_SPACING 4 // bl = bytes
- #define ZEND_JIT_EXIT_POINTS_PER_GROUP 32 // number of continuous exit points
- static int zend_jit_trace_exit_group_stub(dasm_State **Dst, uint32_t n)
- {
- uint32_t i;
- | bl >2
- |1:
- for (i = 1; i < ZEND_JIT_EXIT_POINTS_PER_GROUP; i++) {
- | bl >2
- }
- |2:
- | adr TMP1, <1
- | sub TMP1, lr, TMP1
- | lsr TMP1, TMP1, #2
- if (n) {
- | ADD_SUB_32_WITH_CONST add, TMP1w, TMP1w, n, TMP2w
- }
- | b ->trace_exit // pass exit_num in TMP1w
- return 1;
- }
- #ifdef CONTEXT_THREADED_JIT
- static int zend_jit_context_threaded_call_stub(dasm_State **Dst)
- {
- |->context_threaded_call:
- | NIY_STUB // TODO
- return 1;
- }
- #endif
- static int zend_jit_assign_const_stub(dasm_State **Dst)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- uint32_t val_info = MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN;
- |->assign_const:
- | stp x29, x30, [sp, #-32]!
- | mov x29, sp
- if (!zend_jit_assign_to_variable(
- Dst, NULL,
- var_addr, var_addr, -1, -1,
- IS_CONST, val_addr, val_info,
- 0, 0)) {
- return 0;
- }
- | ldp x29, x30, [sp], #32
- | ret
- return 1;
- }
- static int zend_jit_assign_tmp_stub(dasm_State **Dst)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- uint32_t val_info = MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN;
- |->assign_tmp:
- | stp x29, x30, [sp, #-32]!
- | mov x29, sp
- if (!zend_jit_assign_to_variable(
- Dst, NULL,
- var_addr, var_addr, -1, -1,
- IS_TMP_VAR, val_addr, val_info,
- 0, 0)) {
- return 0;
- }
- | ldp x29, x30, [sp], #32
- | ret
- return 1;
- }
- static int zend_jit_assign_var_stub(dasm_State **Dst)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- uint32_t val_info = MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF;
- |->assign_var:
- | stp x29, x30, [sp, #-32]!
- | mov x29, sp
- if (!zend_jit_assign_to_variable(
- Dst, NULL,
- var_addr, var_addr, -1, -1,
- IS_VAR, val_addr, val_info,
- 0, 0)) {
- return 0;
- }
- | ldp x29, x30, [sp], #32
- | ret
- return 1;
- }
- static int zend_jit_assign_cv_noref_stub(dasm_State **Dst)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- uint32_t val_info = MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN/*|MAY_BE_UNDEF*/;
- |->assign_cv_noref:
- | stp x29, x30, [sp, #-32]!
- | mov x29, sp
- if (!zend_jit_assign_to_variable(
- Dst, NULL,
- var_addr, var_addr, -1, -1,
- IS_CV, val_addr, val_info,
- 0, 0)) {
- return 0;
- }
- | ldp x29, x30, [sp], #32
- | ret
- return 1;
- }
- static int zend_jit_assign_cv_stub(dasm_State **Dst)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- uint32_t val_info = MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN|MAY_BE_REF/*|MAY_BE_UNDEF*/;
- |->assign_cv:
- | stp x29, x30, [sp, #-32]!
- | mov x29, sp
- if (!zend_jit_assign_to_variable(
- Dst, NULL,
- var_addr, var_addr, -1, -1,
- IS_CV, val_addr, val_info,
- 0, 0)) {
- return 0;
- }
- | ldp x29, x30, [sp], #32
- | ret
- return 1;
- }
- static const zend_jit_stub zend_jit_stubs[] = {
- JIT_STUB(interrupt_handler, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(exception_handler, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(exception_handler_undef, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(exception_handler_free_op1_op2, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(exception_handler_free_op2, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(leave_function, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(leave_throw, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(icall_throw, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(throw_cannot_pass_by_ref, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(undefined_offset, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(undefined_index, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(cannot_add_element, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(undefined_offset_ex, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(undefined_index_ex, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(cannot_add_element_ex, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(undefined_function, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(negative_shift, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(mod_by_zero, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(invalid_this, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(trace_halt, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(trace_exit, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(trace_escape, SP_ADJ_JIT, SP_ADJ_VM),
- JIT_STUB(hybrid_runtime_jit, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_profile_jit, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_hot_code, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_func_hot_counter, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_loop_hot_counter, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_hot_trace, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_func_trace_counter, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_ret_trace_counter, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(hybrid_loop_trace_counter, SP_ADJ_VM, SP_ADJ_NONE),
- JIT_STUB(assign_const, SP_ADJ_RET, SP_ADJ_ASSIGN),
- JIT_STUB(assign_tmp, SP_ADJ_RET, SP_ADJ_ASSIGN),
- JIT_STUB(assign_var, SP_ADJ_RET, SP_ADJ_ASSIGN),
- JIT_STUB(assign_cv_noref, SP_ADJ_RET, SP_ADJ_ASSIGN),
- JIT_STUB(assign_cv, SP_ADJ_RET, SP_ADJ_ASSIGN),
- #ifdef CONTEXT_THREADED_JIT
- JIT_STUB(context_threaded_call, SP_ADJ_NONE, SP_ADJ_NONE),
- #endif
- };
- #ifdef HAVE_GDB
- # if 0
- typedef struct _Unwind_Context _Unwind_Context;
- typedef int (*_Unwind_Trace_Fn)(_Unwind_Context *, void *);
- extern int _Unwind_Backtrace(_Unwind_Trace_Fn, void *);
- extern uintptr_t _Unwind_GetCFA(_Unwind_Context *);
- typedef struct _zend_jit_unwind_arg {
- int cnt;
- uintptr_t cfa[3];
- } zend_jit_unwind_arg;
- static int zend_jit_unwind_cb(_Unwind_Context *ctx, void *a)
- {
- zend_jit_unwind_arg *arg = (zend_jit_unwind_arg*)a;
- arg->cfa[arg->cnt] = _Unwind_GetCFA(ctx);
- arg->cnt++;
- if (arg->cnt == 3) {
- return 5; // _URC_END_OF_STACK
- }
- return 0; // _URC_NO_REASON;
- }
- static void ZEND_FASTCALL zend_jit_touch_vm_stack_data(void *vm_stack_data)
- {
- zend_jit_unwind_arg arg;
- memset(&arg, 0, sizeof(arg));
- _Unwind_Backtrace(zend_jit_unwind_cb, &arg);
- if (arg.cnt == 3) {
- sp_adj[SP_ADJ_VM] = arg.cfa[2] - arg.cfa[1];
- }
- }
- # else
- static void ZEND_FASTCALL zend_jit_touch_vm_stack_data(void *vm_stack_data)
- {
- uintptr_t ret;
- __asm__ (
- "ldr %0, [x29]\n\t"
- "sub %0 ,%0, x29"
- : "=r"(ret));
- sp_adj[SP_ADJ_VM] = ret;
- }
- # endif
- extern void (ZEND_FASTCALL *zend_touch_vm_stack_data)(void *vm_stack_data);
- static zend_never_inline void zend_jit_set_sp_adj_vm(void)
- {
- void (ZEND_FASTCALL *orig_zend_touch_vm_stack_data)(void *);
- orig_zend_touch_vm_stack_data = zend_touch_vm_stack_data;
- zend_touch_vm_stack_data = zend_jit_touch_vm_stack_data;
- execute_ex(NULL); // set sp_adj[SP_ADJ_VM]
- zend_touch_vm_stack_data = orig_zend_touch_vm_stack_data;
- }
- #endif
- static int zend_jit_setup(void)
- {
- allowed_opt_flags = 0;
- #if ZTS
- tsrm_ls_cache_tcb_offset = tsrm_get_ls_cache_tcb_offset();
- ZEND_ASSERT(tsrm_ls_cache_tcb_offset != 0);
- #endif
- memset(sp_adj, 0, sizeof(sp_adj));
- #ifdef HAVE_GDB
- sp_adj[SP_ADJ_RET] = 0;
- sp_adj[SP_ADJ_ASSIGN] = 32;
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- zend_jit_set_sp_adj_vm(); // set sp_adj[SP_ADJ_VM]
- #ifndef ZEND_VM_HYBRID_JIT_RED_ZONE_SIZE
- || sp_adj[SP_ADJ_JIT] = sp_adj[SP_ADJ_VM] + HYBRID_SPAD; // sub r4, HYBRID_SPAD
- #else
- || sp_adj[SP_ADJ_JIT] = sp_adj[SP_ADJ_VM];
- #endif
- } else if (GCC_GLOBAL_REGS) {
- || sp_adj[SP_ADJ_JIT] = sp_adj[SP_ADJ_RET] + SPAD; // sub r4, SPAD
- } else {
- || sp_adj[SP_ADJ_JIT] = sp_adj[SP_ADJ_RET] + NR_SPAD; // sub r4, NR_SPAD
- }
- #endif
- return SUCCESS;
- }
- static ZEND_ATTRIBUTE_UNUSED int zend_jit_trap(dasm_State **Dst)
- {
- | brk #0
- return 1;
- }
- static int zend_jit_align_func(dasm_State **Dst)
- {
- reuse_ip = 0;
- delayed_call_chain = 0;
- last_valid_opline = NULL;
- use_last_vald_opline = 0;
- track_last_valid_opline = 0;
- jit_return_label = -1;
- |.align 16
- return 1;
- }
- static int zend_jit_prologue(dasm_State **Dst)
- {
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | SUB_HYBRID_SPAD
- } else if (GCC_GLOBAL_REGS) {
- | stp x29, x30, [sp, # -SPAD]! // stack alignment
- |// mov x29, sp
- } else {
- | stp x29, x30, [sp, # -NR_SPAD]! // stack alignment
- |// mov x29, sp
- | stp FP, RX, T2 // save FP and IP
- | mov FP, FCARG1x
- }
- return 1;
- }
- static int zend_jit_label(dasm_State **Dst, unsigned int label)
- {
- |=>label:
- return 1;
- }
- static int zend_jit_save_call_chain(dasm_State **Dst, uint32_t call_level)
- {
- | // call->prev_execute_data = EX(call);
- if (call_level == 1) {
- | str xzr, EX:RX->prev_execute_data
- } else {
- | ldr REG0, EX->call
- | str REG0, EX:RX->prev_execute_data
- }
- | // EX(call) = call;
- | str RX, EX->call
- delayed_call_chain = 0;
- return 1;
- }
- static int zend_jit_set_ip(dasm_State **Dst, const zend_op *opline)
- {
- if (last_valid_opline == opline) {
- zend_jit_use_last_valid_opline();
- } else if (GCC_GLOBAL_REGS && last_valid_opline) {
- zend_jit_use_last_valid_opline();
- | LOAD_64BIT_VAL TMP1, (opline - last_valid_opline) * sizeof(zend_op)
- | ADD_IP TMP1, TMP2
- } else {
- | LOAD_IP_ADDR opline
- }
- zend_jit_set_last_valid_opline(opline);
- return 1;
- }
- static int zend_jit_set_ip_ex(dasm_State **Dst, const zend_op *opline, bool set_ip_reg)
- {
- return zend_jit_set_ip(Dst, opline);
- }
- static int zend_jit_set_valid_ip(dasm_State **Dst, const zend_op *opline)
- {
- if (delayed_call_chain) {
- if (!zend_jit_save_call_chain(Dst, delayed_call_level)) {
- return 0;
- }
- }
- if (!zend_jit_set_ip(Dst, opline)) {
- return 0;
- }
- reuse_ip = 0;
- return 1;
- }
- static int zend_jit_check_timeout(dasm_State **Dst, const zend_op *opline, const void *exit_addr)
- {
- | MEM_LOAD_8_ZTS ldrb, TMP1w, executor_globals, vm_interrupt, TMP1
- if (exit_addr) {
- | cbnz TMP1w, &exit_addr
- } else if (last_valid_opline == opline) {
- || zend_jit_use_last_valid_opline();
- | cbnz TMP1w, ->interrupt_handler
- } else {
- | cbnz TMP1w, >1
- |.cold_code
- |1:
- | LOAD_IP_ADDR opline
- | b ->interrupt_handler
- |.code
- }
- return 1;
- }
- static int zend_jit_trace_end_loop(dasm_State **Dst, int loop_label, const void *timeout_exit_addr)
- {
- if (timeout_exit_addr) {
- | MEM_LOAD_8_ZTS ldrb, TMP1w, executor_globals, vm_interrupt, TMP1
- | cbz TMP1w, =>loop_label
- | b &timeout_exit_addr
- } else {
- | b =>loop_label
- }
- return 1;
- }
- static int zend_jit_check_exception(dasm_State **Dst)
- {
- | MEM_LOAD_64_ZTS ldr, TMP2, executor_globals, exception, TMP1
- | cbnz TMP2, ->exception_handler
- return 1;
- }
- static int zend_jit_check_exception_undef_result(dasm_State **Dst, const zend_op *opline)
- {
- if (opline->result_type & (IS_TMP_VAR|IS_VAR)) {
- | MEM_LOAD_64_ZTS ldr, TMP2, executor_globals, exception, TMP1
- | cbnz TMP2, ->exception_handler_undef
- return 1;
- }
- return zend_jit_check_exception(Dst);
- }
- static int zend_jit_trace_begin(dasm_State **Dst, uint32_t trace_num, zend_jit_trace_info *parent, uint32_t exit_num)
- {
- current_trace_num = trace_num;
- | // EG(jit_trace_num) = trace_num;
- | LOAD_32BIT_VAL TMP1w, trace_num
- | MEM_STORE_32_ZTS str, TMP1w, executor_globals, jit_trace_num, TMP2
- return 1;
- }
- static int zend_jit_trace_end(dasm_State **Dst, zend_jit_trace_info *t)
- {
- uint32_t i;
- const void *exit_addr;
- /* Emit veneers table for exit points (B instruction for each exit number) */
- |.cold_code
- for (i = 0; i < t->exit_count; i++) {
- exit_addr = zend_jit_trace_get_exit_addr(i);
- if (!exit_addr) {
- return 0;
- }
- | b &exit_addr
- }
- |=>1: // end of the code
- |.code
- return 1;
- }
- static int zend_jit_patch(const void *code, size_t size, uint32_t jmp_table_size, const void *from_addr, const void *to_addr)
- {
- int ret = 0;
- uint8_t *p, *end;
- const void *veneer = NULL;
- ptrdiff_t delta;
- if (jmp_table_size) {
- const void **jmp_slot = (const void **)((char*)code + ZEND_MM_ALIGNED_SIZE_EX(size, sizeof(void*)));
- do {
- if (*jmp_slot == from_addr) {
- *jmp_slot = to_addr;
- ret++;
- }
- jmp_slot++;
- } while (--jmp_table_size);
- }
- end = (uint8_t*)code;
- p = end + size;
- while (p > end) {
- uint32_t *ins_ptr;
- uint32_t ins;
- p -= 4;
- ins_ptr = (uint32_t*)p;
- ins = *ins_ptr;
- if ((ins & 0xfc000000u) == 0x14000000u) {
- // B (imm26:0..25)
- delta = (uint32_t*)from_addr - ins_ptr;
- if (((ins ^ (uint32_t)delta) & 0x01ffffffu) == 0) {
- delta = (uint32_t*)to_addr - ins_ptr;
- if (((delta + 0x02000000) >> 26) != 0) {
- abort(); // brnach target out of range
- }
- *ins_ptr = (ins & 0xfc000000u) | ((uint32_t)delta & 0x03ffffffu);
- ret++;
- if (!veneer) {
- veneer = p;
- }
- }
- } else if ((ins & 0xff000000u) == 0x54000000u ||
- (ins & 0x7e000000u) == 0x34000000u) {
- // B.cond, CBZ, CBNZ (imm19:5..23)
- delta = (uint32_t*)from_addr - ins_ptr;
- if (((ins ^ ((uint32_t)delta << 5)) & 0x00ffffe0u) == 0) {
- delta = (uint32_t*)to_addr - ins_ptr;
- if (((delta + 0x40000) >> 19) != 0) {
- if (veneer) {
- delta = (uint32_t*)veneer - ins_ptr;
- if (((delta + 0x40000) >> 19) != 0) {
- abort(); // brnach target out of range
- }
- } else {
- abort(); // brnach target out of range
- }
- }
- *ins_ptr = (ins & 0xff00001fu) | (((uint32_t)delta & 0x7ffffu) << 5);
- ret++;
- }
- } else if ((ins & 0x7e000000u) == 0x36000000u) {
- // TBZ, TBNZ (imm14:5..18)
- delta = (uint32_t*)from_addr - ins_ptr;
- if (((ins ^ ((uint32_t)delta << 5)) & 0x0007ffe0u) == 0) {
- delta = (uint32_t*)to_addr - ins_ptr;
- if (((delta + 0x2000) >> 14) != 0) {
- if (veneer) {
- delta = (uint32_t*)veneer - ins_ptr;
- if (((delta + 0x2000) >> 14) != 0) {
- abort(); // brnach target out of range
- }
- } else {
- abort(); // brnach target out of range
- }
- }
- *ins_ptr = (ins & 0xfff8001fu) | (((uint32_t)delta & 0x3fffu) << 5);
- ret++;
- }
- }
- }
- JIT_CACHE_FLUSH(code, (char*)code + size);
- #ifdef HAVE_VALGRIND
- VALGRIND_DISCARD_TRANSLATIONS(code, size);
- #endif
- return ret;
- }
- static int zend_jit_link_side_trace(const void *code, size_t size, uint32_t jmp_table_size, uint32_t exit_num, const void *addr)
- {
- return zend_jit_patch(code, size, jmp_table_size, zend_jit_trace_get_exit_addr(exit_num), addr);
- }
- static int zend_jit_trace_link_to_root(dasm_State **Dst, zend_jit_trace_info *t, const void *timeout_exit_addr)
- {
- const void *link_addr;
- size_t prologue_size;
- /* Skip prologue. */
- // TODO: don't hardcode this ???
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- #ifdef ZEND_VM_HYBRID_JIT_RED_ZONE_SIZE
- prologue_size = 0;
- #else
- // sub sp, sp, #0x20
- prologue_size = 4;
- #endif
- } else if (GCC_GLOBAL_REGS) {
- // stp x29, x30, [sp, # -SPAD]!
- prologue_size = 4;
- } else {
- // stp x29, x30, [sp, # -NR_SPAD]! // stack alignment
- // stp FP, RX, T2
- // mov FP, FCARG1x
- prologue_size = 12;
- }
- link_addr = (const void*)((const char*)t->code_start + prologue_size);
- if (timeout_exit_addr) {
- /* Check timeout for links to LOOP */
- | MEM_LOAD_8_ZTS ldrb, TMP1w, executor_globals, vm_interrupt, TMP1
- | cbz TMP1w, &link_addr
- | b &timeout_exit_addr
- } else {
- | b &link_addr
- }
- return 1;
- }
- static int zend_jit_trace_return(dasm_State **Dst, bool original_handler, const zend_op *opline)
- {
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- if (!original_handler) {
- | JMP_IP TMP1
- } else {
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | br REG0
- }
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- if (!original_handler) {
- | JMP_IP TMP1
- } else {
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | br REG0
- }
- } else {
- if (original_handler) {
- | mov FCARG1x, FP
- | ldr REG0, EX->func
- | ldr REG0, [REG0, #offsetof(zend_op_array, reserved[zend_func_info_rid])]
- | ldr REG0, [REG0, #offsetof(zend_jit_op_array_trace_extension, offset)]
- | ldr REG0, [IP, REG0]
- | blr REG0
- }
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- if (!original_handler || !opline ||
- (opline->opcode != ZEND_RETURN
- && opline->opcode != ZEND_RETURN_BY_REF
- && opline->opcode != ZEND_GENERATOR_RETURN
- && opline->opcode != ZEND_GENERATOR_CREATE
- && opline->opcode != ZEND_YIELD
- && opline->opcode != ZEND_YIELD_FROM)) {
- | mov RETVALx, #2 // ZEND_VM_LEAVE
- }
- | ret
- }
- return 1;
- }
- static int zend_jit_type_guard(dasm_State **Dst, const zend_op *opline, uint32_t var, uint8_t type)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE var_addr, type, &exit_addr, ZREG_TMP1
- return 1;
- }
- static int zend_jit_scalar_type_guard(dasm_State **Dst, const zend_op *opline, uint32_t var)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP1w, FP, var+offsetof(zval, u1.v.type), TMP1
- | cmp TMP1w, #IS_STRING
- | bhs &exit_addr
- return 1;
- }
- static int zend_jit_packed_guard(dasm_State **Dst, const zend_op *opline, uint32_t var, uint32_t op_info)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_PACKED_GUARD);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- if (!exit_addr) {
- return 0;
- }
- | GET_ZVAL_LVAL ZREG_FCARG1, var_addr, TMP1
- if (op_info & MAY_BE_ARRAY_PACKED) {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, u.flags)]
- | TST_32_WITH_CONST TMP1w, HASH_FLAG_PACKED, TMP2w
- | beq &exit_addr
- } else {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, u.flags)]
- | TST_32_WITH_CONST TMP1w, HASH_FLAG_PACKED, TMP2w
- | bne &exit_addr
- }
- return 1;
- }
- static int zend_jit_trace_handler(dasm_State **Dst, const zend_op_array *op_array, const zend_op *opline, int may_throw, zend_jit_trace_rec *trace)
- {
- zend_jit_op_array_trace_extension *jit_extension =
- (zend_jit_op_array_trace_extension*)ZEND_FUNC_INFO(op_array);
- size_t offset = jit_extension->offset;
- const void *handler =
- (zend_vm_opcode_handler_t)ZEND_OP_TRACE_INFO(opline, offset)->call_handler;
- if (!zend_jit_set_valid_ip(Dst, opline)) {
- return 0;
- }
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, FP
- }
- | EXT_CALL handler, REG0
- if (may_throw
- && opline->opcode != ZEND_RETURN
- && opline->opcode != ZEND_RETURN_BY_REF) {
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbnz REG0, ->exception_handler
- }
- while (trace->op != ZEND_JIT_TRACE_VM && trace->op != ZEND_JIT_TRACE_END) {
- trace++;
- }
- if (!GCC_GLOBAL_REGS
- && (trace->op != ZEND_JIT_TRACE_END || trace->stop != ZEND_JIT_TRACE_STOP_RETURN)) {
- if (opline->opcode == ZEND_RETURN ||
- opline->opcode == ZEND_RETURN_BY_REF ||
- opline->opcode == ZEND_DO_UCALL ||
- opline->opcode == ZEND_DO_FCALL_BY_NAME ||
- opline->opcode == ZEND_DO_FCALL ||
- opline->opcode == ZEND_GENERATOR_CREATE) {
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, TMP1
- }
- }
- if (zend_jit_trace_may_exit(op_array, opline)) {
- if (opline->opcode == ZEND_RETURN ||
- opline->opcode == ZEND_RETURN_BY_REF ||
- opline->opcode == ZEND_GENERATOR_CREATE) {
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- #if 0
- /* this check should be handled by the following OPLINE guard or jmp [IP] */
- | LOAD_ADDR TMP1, zend_jit_halt_op
- | cmp IP, TMP1
- | beq ->trace_halt
- #endif
- } else if (GCC_GLOBAL_REGS) {
- | cbz IP, ->trace_halt
- } else {
- | tst RETVALw, RETVALw
- | blt ->trace_halt
- }
- } else if (opline->opcode == ZEND_EXIT ||
- opline->opcode == ZEND_GENERATOR_RETURN ||
- opline->opcode == ZEND_YIELD ||
- opline->opcode == ZEND_YIELD_FROM) {
- | b ->trace_halt
- }
- if (trace->op != ZEND_JIT_TRACE_END ||
- (trace->stop != ZEND_JIT_TRACE_STOP_RETURN &&
- trace->stop != ZEND_JIT_TRACE_STOP_INTERPRETER)) {
- const zend_op *next_opline = trace->opline;
- const zend_op *exit_opline = NULL;
- uint32_t exit_point;
- const void *exit_addr;
- uint32_t old_info = 0;
- uint32_t old_res_info = 0;
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- if (zend_is_smart_branch(opline)) {
- bool exit_if_true = 0;
- exit_opline = zend_jit_trace_get_exit_opline(trace, opline + 1, &exit_if_true);
- } else {
- switch (opline->opcode) {
- case ZEND_JMPZ:
- case ZEND_JMPNZ:
- case ZEND_JMPZ_EX:
- case ZEND_JMPNZ_EX:
- case ZEND_JMP_SET:
- case ZEND_COALESCE:
- case ZEND_JMP_NULL:
- case ZEND_FE_RESET_R:
- case ZEND_FE_RESET_RW:
- exit_opline = (trace->opline == opline + 1) ?
- OP_JMP_ADDR(opline, opline->op2) :
- opline + 1;
- break;
- case ZEND_JMPZNZ:
- exit_opline = (trace->opline == OP_JMP_ADDR(opline, opline->op2)) ?
- ZEND_OFFSET_TO_OPLINE(opline, opline->extended_value) :
- OP_JMP_ADDR(opline, opline->op2);
- break;
- case ZEND_FE_FETCH_R:
- case ZEND_FE_FETCH_RW:
- exit_opline = (trace->opline == opline + 1) ?
- ZEND_OFFSET_TO_OPLINE(opline, opline->extended_value) :
- opline + 1;
- break;
- }
- }
- switch (opline->opcode) {
- case ZEND_FE_FETCH_R:
- case ZEND_FE_FETCH_RW:
- if (opline->op2_type != IS_UNUSED) {
- old_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->op2.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->op2.var), IS_UNKNOWN, 1);
- }
- break;
- }
- if (opline->result_type == IS_VAR || opline->result_type == IS_TMP_VAR) {
- old_res_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_UNKNOWN, 1);
- }
- exit_point = zend_jit_trace_get_exit_point(exit_opline, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (opline->result_type == IS_VAR || opline->result_type == IS_TMP_VAR) {
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_res_info);
- }
- switch (opline->opcode) {
- case ZEND_FE_FETCH_R:
- case ZEND_FE_FETCH_RW:
- if (opline->op2_type != IS_UNUSED) {
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->op2.var), old_info);
- }
- break;
- }
- if (!exit_addr) {
- return 0;
- }
- | CMP_IP next_opline, TMP1, TMP2
- | bne &exit_addr
- }
- }
- zend_jit_set_last_valid_opline(trace->opline);
- return 1;
- }
- static int zend_jit_handler(dasm_State **Dst, const zend_op *opline, int may_throw)
- {
- const void *handler;
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- handler = zend_get_opcode_handler_func(opline);
- } else {
- handler = opline->handler;
- }
- if (!zend_jit_set_valid_ip(Dst, opline)) {
- return 0;
- }
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, FP
- }
- | EXT_CALL handler, REG0
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- /* Skip the following OP_DATA */
- switch (opline->opcode) {
- case ZEND_ASSIGN_DIM:
- case ZEND_ASSIGN_OBJ:
- case ZEND_ASSIGN_STATIC_PROP:
- case ZEND_ASSIGN_DIM_OP:
- case ZEND_ASSIGN_OBJ_OP:
- case ZEND_ASSIGN_STATIC_PROP_OP:
- case ZEND_ASSIGN_STATIC_PROP_REF:
- case ZEND_ASSIGN_OBJ_REF:
- zend_jit_set_last_valid_opline(opline + 2);
- break;
- default:
- zend_jit_set_last_valid_opline(opline + 1);
- break;
- }
- return 1;
- }
- static int zend_jit_tail_handler(dasm_State **Dst, const zend_op *opline)
- {
- if (!zend_jit_set_valid_ip(Dst, opline)) {
- return 0;
- }
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- if (opline->opcode == ZEND_DO_UCALL ||
- opline->opcode == ZEND_DO_FCALL_BY_NAME ||
- opline->opcode == ZEND_DO_FCALL ||
- opline->opcode == ZEND_RETURN) {
- /* Use inlined HYBRID VM handler */
- const void *handler = opline->handler;
- | ADD_HYBRID_SPAD
- | EXT_JMP handler, REG0
- } else {
- const void *handler = zend_get_opcode_handler_func(opline);
- | EXT_CALL handler, REG0
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- }
- } else {
- const void *handler = opline->handler;
- if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- } else {
- | mov FCARG1x, FP
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- }
- | EXT_JMP handler, REG0
- }
- zend_jit_reset_last_valid_opline();
- return 1;
- }
- static int zend_jit_trace_opline_guard(dasm_State **Dst, const zend_op *opline)
- {
- uint32_t exit_point = zend_jit_trace_get_exit_point(NULL, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | CMP_IP opline, TMP1, TMP2
- | bne &exit_addr
- zend_jit_set_last_valid_opline(opline);
- return 1;
- }
- static int zend_jit_jmp(dasm_State **Dst, unsigned int target_label)
- {
- | b =>target_label
- return 1;
- }
- static int zend_jit_cond_jmp(dasm_State **Dst, const zend_op *next_opline, unsigned int target_label)
- {
- | CMP_IP next_opline, TMP1, TMP2
- | bne =>target_label
- zend_jit_set_last_valid_opline(next_opline);
- return 1;
- }
- #ifdef CONTEXT_THREADED_JIT
- static int zend_jit_context_threaded_call(dasm_State **Dst, const zend_op *opline, unsigned int next_block)
- {
- | NIY // TODO
- return 1;
- }
- #endif
- static int zend_jit_call(dasm_State **Dst, const zend_op *opline, unsigned int next_block)
- {
- #ifdef CONTEXT_THREADED_JIT
- return zend_jit_context_threaded_call(Dst, opline, next_block);
- #else
- return zend_jit_tail_handler(Dst, opline);
- #endif
- }
- static int zend_jit_spill_store(dasm_State **Dst, zend_jit_addr src, zend_jit_addr dst, uint32_t info, bool set_type)
- {
- ZEND_ASSERT(Z_MODE(src) == IS_REG);
- ZEND_ASSERT(Z_MODE(dst) == IS_MEM_ZVAL);
- if ((info & MAY_BE_ANY) == MAY_BE_LONG) {
- | SET_ZVAL_LVAL_FROM_REG dst, Rx(Z_REG(src)), TMP1
- if (set_type &&
- (Z_REG(dst) != ZREG_FP ||
- !JIT_G(current_frame) ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(Z_OFFSET(dst))) != IS_LONG)) {
- | SET_ZVAL_TYPE_INFO dst, IS_LONG, TMP1w, TMP2
- }
- } else if ((info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- | SET_ZVAL_DVAL dst, Z_REG(src), ZREG_TMP1
- if (set_type &&
- (Z_REG(dst) != ZREG_FP ||
- !JIT_G(current_frame) ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(Z_OFFSET(dst))) != IS_DOUBLE)) {
- | SET_ZVAL_TYPE_INFO dst, IS_DOUBLE, TMP1w, TMP2
- }
- } else {
- ZEND_UNREACHABLE();
- }
- return 1;
- }
- static int zend_jit_load_reg(dasm_State **Dst, zend_jit_addr src, zend_jit_addr dst, uint32_t info)
- {
- ZEND_ASSERT(Z_MODE(src) == IS_MEM_ZVAL);
- ZEND_ASSERT(Z_MODE(dst) == IS_REG);
- if ((info & MAY_BE_ANY) == MAY_BE_LONG) {
- | GET_ZVAL_LVAL Z_REG(dst), src, TMP1
- } else if ((info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- | GET_ZVAL_DVAL Z_REG(dst), src, ZREG_TMP1
- } else {
- ZEND_UNREACHABLE();
- }
- return 1;
- }
- static int zend_jit_store_var(dasm_State **Dst, uint32_t info, int var, zend_reg reg, bool set_type)
- {
- zend_jit_addr src = ZEND_ADDR_REG(reg);
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, EX_NUM_TO_VAR(var));
- return zend_jit_spill_store(Dst, src, dst, info, set_type);
- }
- static int zend_jit_store_var_type(dasm_State **Dst, int var, uint32_t type)
- {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, EX_NUM_TO_VAR(var));
- | SET_ZVAL_TYPE_INFO dst, type, TMP1w, TMP2
- return 1;
- }
- static int zend_jit_store_var_if_necessary(dasm_State **Dst, int var, zend_jit_addr src, uint32_t info)
- {
- if (Z_MODE(src) == IS_REG && Z_STORE(src)) {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- return zend_jit_spill_store(Dst, src, dst, info, 1);
- }
- return 1;
- }
- static int zend_jit_store_var_if_necessary_ex(dasm_State **Dst, int var, zend_jit_addr src, uint32_t info, zend_jit_addr old, uint32_t old_info)
- {
- if (Z_MODE(src) == IS_REG && Z_STORE(src)) {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- bool set_type = 1;
- if ((info & (MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)) ==
- (old_info & (MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF))) {
- if (Z_MODE(old) != IS_REG || Z_LOAD(old) || Z_STORE(old)) {
- set_type = 0;
- }
- }
- return zend_jit_spill_store(Dst, src, dst, info, set_type);
- }
- return 1;
- }
- static int zend_jit_load_var(dasm_State **Dst, uint32_t info, int var, zend_reg reg)
- {
- zend_jit_addr src = ZEND_ADDR_MEM_ZVAL(ZREG_FP, EX_NUM_TO_VAR(var));
- zend_jit_addr dst = ZEND_ADDR_REG(reg);
- return zend_jit_load_reg(Dst, src, dst, info);
- }
- static int zend_jit_invalidate_var_if_necessary(dasm_State **Dst, zend_uchar op_type, zend_jit_addr addr, znode_op op)
- {
- if ((op_type & (IS_TMP_VAR|IS_VAR)) && Z_MODE(addr) == IS_REG && !Z_LOAD(addr) && !Z_STORE(addr)) {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op.var);
- | SET_ZVAL_TYPE_INFO dst, IS_UNDEF, TMP1w, TMP2
- }
- return 1;
- }
- static int zend_jit_update_regs(dasm_State **Dst, uint32_t var, zend_jit_addr src, zend_jit_addr dst, uint32_t info)
- {
- if (!zend_jit_same_addr(src, dst)) {
- if (Z_MODE(src) == IS_REG) {
- if (Z_MODE(dst) == IS_REG) {
- if ((info & MAY_BE_ANY) == MAY_BE_LONG) {
- | mov Rx(Z_REG(dst)), Rx(Z_REG(src))
- } else if ((info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- | fmov Rd(Z_REG(dst)-ZREG_V0), Rd(Z_REG(src)-ZREG_V0)
- } else {
- ZEND_UNREACHABLE();
- }
- if (!Z_LOAD(src) && !Z_STORE(src) && Z_STORE(dst)) {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- if (!zend_jit_spill_store(Dst, dst, var_addr, info,
- JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- JIT_G(current_frame) == NULL ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var)) == IS_UNKNOWN ||
- (1 << STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var))) != (info & MAY_BE_ANY)
- )) {
- return 0;
- }
- }
- } else if (Z_MODE(dst) == IS_MEM_ZVAL) {
- if (!Z_LOAD(src) && !Z_STORE(src)) {
- if (!zend_jit_spill_store(Dst, src, dst, info,
- JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- JIT_G(current_frame) == NULL ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var)) == IS_UNKNOWN ||
- (1 << STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var))) != (info & MAY_BE_ANY)
- )) {
- return 0;
- }
- }
- } else {
- ZEND_UNREACHABLE();
- }
- } else if (Z_MODE(src) == IS_MEM_ZVAL) {
- if (Z_MODE(dst) == IS_REG) {
- if (!zend_jit_load_reg(Dst, src, dst, info)) {
- return 0;
- }
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- ZEND_UNREACHABLE();
- }
- } else if (Z_MODE(dst) == IS_REG && Z_STORE(dst)) {
- dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- if (!zend_jit_spill_store(Dst, src, dst, info,
- JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- JIT_G(current_frame) == NULL ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var)) == IS_UNKNOWN ||
- (1 << STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(var))) != (info & MAY_BE_ANY)
- )) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_escape_if_undef_r0(dasm_State **Dst, int var, uint32_t flags, const zend_op *opline)
- {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- | IF_NOT_ZVAL_TYPE val_addr, IS_UNDEF, >1, ZREG_TMP1
- if (flags & ZEND_JIT_EXIT_RESTORE_CALL) {
- if (!zend_jit_save_call_chain(Dst, -1)) {
- return 0;
- }
- }
- ZEND_ASSERT(opline);
- if ((opline-1)->opcode != ZEND_FETCH_CONSTANT
- && (opline-1)->opcode != ZEND_FETCH_LIST_R
- && ((opline-1)->op1_type & (IS_VAR|IS_TMP_VAR))
- && !(flags & ZEND_JIT_EXIT_FREE_OP1)) {
- val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, (opline-1)->op1.var);
- | IF_NOT_ZVAL_REFCOUNTED val_addr, >2, ZREG_TMP1, ZREG_TMP2
- | GET_ZVAL_PTR TMP1, val_addr, TMP2
- | GC_ADDREF TMP1, TMP2w
- |2:
- }
- | LOAD_IP_ADDR (opline - 1)
- | b ->trace_escape
- |1:
- return 1;
- }
- static int zend_jit_store_const(dasm_State **Dst, int var, zend_reg reg)
- {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, EX_NUM_TO_VAR(var));
- if (reg == ZREG_LONG_MIN_MINUS_1) {
- uint64_t val = 0xc3e0000000000000;
- | SET_ZVAL_LVAL dst, val, TMP1, TMP2
- | SET_ZVAL_TYPE_INFO dst, IS_DOUBLE, TMP1w, TMP2
- } else if (reg == ZREG_LONG_MIN) {
- uint64_t val = 0x8000000000000000;
- | SET_ZVAL_LVAL dst, val, TMP1, TMP2
- | SET_ZVAL_TYPE_INFO dst, IS_LONG, TMP1w, TMP2
- } else if (reg == ZREG_LONG_MAX) {
- uint64_t val = 0x7fffffffffffffff;
- | SET_ZVAL_LVAL dst, val, TMP1, TMP2
- | SET_ZVAL_TYPE_INFO dst, IS_LONG, TMP1w, TMP2
- } else if (reg == ZREG_LONG_MAX_PLUS_1) {
- uint64_t val = 0x43e0000000000000;
- | SET_ZVAL_LVAL dst, val, TMP1, TMP2
- | SET_ZVAL_TYPE_INFO dst, IS_DOUBLE, TMP1w, TMP2
- } else if (reg == ZREG_NULL) {
- | SET_ZVAL_TYPE_INFO dst, IS_NULL, TMP1w, TMP2
- } else if (reg == ZREG_ZVAL_TRY_ADDREF) {
- | IF_NOT_ZVAL_REFCOUNTED dst, >1, ZREG_TMP1, ZREG_TMP2
- | GET_ZVAL_PTR TMP1, dst, TMP2
- | GC_ADDREF TMP1, TMP2w
- |1:
- } else if (reg == ZREG_ZVAL_COPY_GPR0) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- | ZVAL_COPY_VALUE dst, -1, val_addr, -1, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF -1, REG1w, REG2, TMP1w
- } else {
- ZEND_UNREACHABLE();
- }
- return 1;
- }
- static int zend_jit_free_trampoline(dasm_State **Dst)
- {
- | // if (UNEXPECTED(func->common.fn_flags & ZEND_ACC_CALL_VIA_TRAMPOLINE))
- | ldr TMP1w, [REG0, #offsetof(zend_function, common.fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_CALL_VIA_TRAMPOLINE, TMP2w
- | beq >1
- | mov FCARG1x, REG0
- | EXT_CALL zend_jit_free_trampoline_helper, REG0
- |1:
- return 1;
- }
- static int zend_jit_inc_dec(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, uint32_t op1_def_info, zend_jit_addr op1_def_addr, uint32_t res_use_info, uint32_t res_info, zend_jit_addr res_addr, int may_overflow, int may_throw)
- {
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)-MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >2, ZREG_TMP1
- }
- if (opline->opcode == ZEND_POST_INC || opline->opcode == ZEND_POST_DEC) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_addr, MAY_BE_LONG, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- if (!zend_jit_update_regs(Dst, opline->op1.var, op1_addr, op1_def_addr, MAY_BE_LONG)) {
- return 0;
- }
- if (opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_POST_INC) {
- | LONG_ADD_SUB_WITH_IMM adds, op1_def_addr, Z_L(1), TMP1, TMP2
- } else {
- | LONG_ADD_SUB_WITH_IMM subs, op1_def_addr, Z_L(1), TMP1, TMP2
- }
- if (may_overflow &&
- (((op1_def_info & MAY_BE_GUARD) && (op1_def_info & MAY_BE_LONG)) ||
- ((opline->result_type != IS_UNUSED && (res_info & MAY_BE_GUARD) && (res_info & MAY_BE_LONG))))) {
- int32_t exit_point;
- const void *exit_addr;
- zend_jit_trace_stack *stack;
- uint32_t old_op1_info, old_res_info = 0;
- stack = JIT_G(current_frame)->stack;
- old_op1_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->op1.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->op1.var), IS_DOUBLE, 0);
- if (opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_POST_INC) {
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->op1.var), ZREG_LONG_MAX_PLUS_1);
- } else {
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->op1.var), ZREG_LONG_MIN_MINUS_1);
- }
- if (opline->result_type != IS_UNUSED) {
- old_res_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- if (opline->opcode == ZEND_PRE_INC) {
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_DOUBLE, 0);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_LONG_MAX_PLUS_1);
- } else if (opline->opcode == ZEND_PRE_DEC) {
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_DOUBLE, 0);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_LONG_MIN_MINUS_1);
- } else if (opline->opcode == ZEND_POST_INC) {
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_LONG, 0);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_LONG_MAX);
- } else if (opline->opcode == ZEND_POST_DEC) {
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_LONG, 0);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_LONG_MIN);
- }
- }
- exit_point = zend_jit_trace_get_exit_point(opline + 1, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | bvs &exit_addr
- if ((opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_PRE_DEC) &&
- opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_def_addr, MAY_BE_LONG, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->op1.var), old_op1_info);
- if (opline->result_type != IS_UNUSED) {
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_res_info);
- }
- } else if (may_overflow) {
- | bvs >1
- if ((opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_PRE_DEC) &&
- opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_def_addr, MAY_BE_LONG, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- |.cold_code
- |1:
- if (opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_POST_INC) {
- uint64_t val = 0x43e0000000000000;
- if (Z_MODE(op1_def_addr) == IS_REG) {
- | LOAD_64BIT_VAL TMP1, val
- | fmov Rd(Z_REG(op1_def_addr)-ZREG_V0), TMP1
- } else {
- | SET_ZVAL_LVAL op1_def_addr, val, TMP2, TMP1
- }
- } else {
- uint64_t val = 0xc3e0000000000000;
- if (Z_MODE(op1_def_addr) == IS_REG) {
- | LOAD_64BIT_VAL TMP1, val
- | fmov Rd(Z_REG(op1_def_addr)-ZREG_V0), TMP1
- } else {
- | SET_ZVAL_LVAL op1_def_addr, val, TMP2, TMP1
- }
- }
- if (Z_MODE(op1_def_addr) == IS_MEM_ZVAL) {
- | SET_ZVAL_TYPE_INFO op1_def_addr, IS_DOUBLE, TMP1w, TMP2
- }
- if ((opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_PRE_DEC) &&
- opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_def_addr, MAY_BE_DOUBLE, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- | b >3
- |.code
- } else {
- if ((opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_PRE_DEC) &&
- opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_def_addr, MAY_BE_LONG, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- }
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) {
- |.cold_code
- |2:
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | SET_EX_OPLINE opline, REG0
- if (op1_info & MAY_BE_UNDEF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >2, ZREG_TMP1
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | SET_ZVAL_TYPE_INFO op1_addr, IS_NULL, TMP1w, TMP2
- op1_info |= MAY_BE_NULL;
- }
- |2:
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | // ZVAL_DEREF(var_ptr);
- if (op1_info & MAY_BE_REF) {
- | IF_NOT_Z_TYPE, FCARG1x, IS_REFERENCE, >2, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbz TMP1, >1
- if (RETURN_VALUE_USED(opline)) {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- } else {
- | mov FCARG2x, xzr
- }
- if (opline->opcode == ZEND_PRE_INC) {
- | EXT_CALL zend_jit_pre_inc_typed_ref, REG0
- } else if (opline->opcode == ZEND_PRE_DEC) {
- | EXT_CALL zend_jit_pre_dec_typed_ref, REG0
- } else if (opline->opcode == ZEND_POST_INC) {
- | EXT_CALL zend_jit_post_inc_typed_ref, REG0
- } else if (opline->opcode == ZEND_POST_DEC) {
- | EXT_CALL zend_jit_post_dec_typed_ref, REG0
- } else {
- ZEND_UNREACHABLE();
- }
- zend_jit_check_exception(Dst);
- | b >3
- |1:
- | add FCARG1x, FCARG1x, #offsetof(zend_reference, val)
- |2:
- }
- if (opline->opcode == ZEND_POST_INC || opline->opcode == ZEND_POST_DEC) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- | ZVAL_COPY_VALUE res_addr, res_use_info, val_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF op1_info, REG0w, REG2, TMP1w
- }
- if (opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_POST_INC) {
- if (opline->opcode == ZEND_PRE_INC && opline->result_type != IS_UNUSED) {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- | EXT_CALL zend_jit_pre_inc, REG0
- } else {
- | EXT_CALL increment_function, REG0
- }
- } else {
- if (opline->opcode == ZEND_PRE_DEC && opline->result_type != IS_UNUSED) {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- | EXT_CALL zend_jit_pre_dec, REG0
- } else {
- | EXT_CALL decrement_function, REG0
- }
- }
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- } else {
- zend_reg tmp_reg;
- if (opline->opcode == ZEND_POST_INC || opline->opcode == ZEND_POST_DEC) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_addr, MAY_BE_DOUBLE, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- if (Z_MODE(op1_def_addr) == IS_REG) {
- tmp_reg = Z_REG(op1_def_addr);
- } else if (Z_MODE(op1_addr) == IS_REG && Z_LAST_USE(op1_addr)) {
- tmp_reg = Z_REG(op1_addr);
- } else {
- tmp_reg = ZREG_FPR0;
- }
- | GET_ZVAL_DVAL tmp_reg, op1_addr, ZREG_TMP1
- if (opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_POST_INC) {
- uint64_t val = 0x3ff0000000000000; // 1.0
- | LOAD_64BIT_VAL TMP1, val
- | fmov FPTMP, TMP1
- | fadd Rd(tmp_reg-ZREG_V0), Rd(tmp_reg-ZREG_V0), FPTMP
- } else {
- uint64_t val = 0x3ff0000000000000; // 1.0
- | LOAD_64BIT_VAL TMP1, val
- | fmov FPTMP, TMP1
- | fsub Rd(tmp_reg-ZREG_V0), Rd(tmp_reg-ZREG_V0), FPTMP
- }
- | SET_ZVAL_DVAL op1_def_addr, tmp_reg, ZREG_TMP1
- if ((opline->opcode == ZEND_PRE_INC || opline->opcode == ZEND_PRE_DEC) &&
- opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, res_use_info, op1_addr, op1_def_info, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF op1_def_info, REG0w, REG1, TMP1w
- }
- }
- | b >3
- |.code
- }
- |3:
- if (!zend_jit_store_var_if_necessary_ex(Dst, opline->op1.var, op1_def_addr, op1_def_info, op1_addr, op1_info)) {
- return 0;
- }
- if (opline->result_type != IS_UNUSED) {
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_opline_uses_reg(const zend_op *opline, int8_t reg)
- {
- if ((opline+1)->opcode == ZEND_OP_DATA
- && ((opline+1)->op1_type & (IS_VAR|IS_TMP_VAR|IS_CV))
- && JIT_G(current_frame)->stack[EX_VAR_TO_NUM((opline+1)->op1.var)].reg == reg) {
- return 1;
- }
- return
- ((opline->result_type & (IS_VAR|IS_TMP_VAR|IS_CV)) &&
- JIT_G(current_frame)->stack[EX_VAR_TO_NUM(opline->result.var)].reg == reg) ||
- ((opline->op1_type & (IS_VAR|IS_TMP_VAR|IS_CV)) &&
- JIT_G(current_frame)->stack[EX_VAR_TO_NUM(opline->op1.var)].reg == reg) ||
- ((opline->op2_type & (IS_VAR|IS_TMP_VAR|IS_CV)) &&
- JIT_G(current_frame)->stack[EX_VAR_TO_NUM(opline->op2.var)].reg == reg);
- }
- static int zend_jit_math_long_long(dasm_State **Dst,
- const zend_op *opline,
- zend_uchar opcode,
- zend_jit_addr op1_addr,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- uint32_t res_info,
- uint32_t res_use_info,
- int may_overflow)
- {
- bool same_ops = zend_jit_same_addr(op1_addr, op2_addr);
- zend_reg result_reg;
- zend_reg tmp_reg = ZREG_REG0;
- bool use_ovf_flag = 1;
- if (Z_MODE(res_addr) == IS_REG && (res_info & MAY_BE_LONG)) {
- if (may_overflow && (res_info & MAY_BE_GUARD)
- && JIT_G(current_frame)
- && zend_jit_opline_uses_reg(opline, Z_REG(res_addr))) {
- result_reg = ZREG_REG0;
- } else {
- result_reg = Z_REG(res_addr);
- }
- } else if (Z_MODE(op1_addr) == IS_REG && Z_LAST_USE(op1_addr) && !may_overflow) {
- result_reg = Z_REG(op1_addr);
- } else if (Z_REG(res_addr) != ZREG_REG0) {
- result_reg = ZREG_REG0;
- } else {
- /* ASSIGN_DIM_OP */
- result_reg = ZREG_FCARG1;
- tmp_reg = ZREG_FCARG1;
- }
- if (opcode == ZEND_MUL &&
- Z_MODE(op2_addr) == IS_CONST_ZVAL &&
- Z_LVAL_P(Z_ZV(op2_addr)) == 2) {
- if (Z_MODE(op1_addr) == IS_REG) {
- | adds Rx(result_reg), Rx(Z_REG(op1_addr)), Rx(Z_REG(op1_addr))
- } else {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | adds Rx(result_reg), Rx(result_reg), Rx(result_reg)
- }
- } else if (opcode == ZEND_MUL &&
- Z_MODE(op2_addr) == IS_CONST_ZVAL &&
- !may_overflow &&
- zend_long_is_power_of_two(Z_LVAL_P(Z_ZV(op2_addr)))) {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | mov TMP1, #zend_long_floor_log2(Z_LVAL_P(Z_ZV(op2_addr)))
- | lsl Rx(result_reg), Rx(result_reg), TMP1
- } else if (opcode == ZEND_MUL &&
- Z_MODE(op1_addr) == IS_CONST_ZVAL &&
- Z_LVAL_P(Z_ZV(op1_addr)) == 2) {
- if (Z_MODE(op2_addr) == IS_REG) {
- | adds Rx(result_reg), Rx(Z_REG(op2_addr)), Rx(Z_REG(op2_addr))
- } else {
- | GET_ZVAL_LVAL result_reg, op2_addr, TMP1
- | adds Rx(result_reg), Rx(result_reg), Rx(result_reg)
- }
- } else if (opcode == ZEND_MUL &&
- Z_MODE(op1_addr) == IS_CONST_ZVAL &&
- !may_overflow &&
- zend_long_is_power_of_two(Z_LVAL_P(Z_ZV(op1_addr)))) {
- | GET_ZVAL_LVAL result_reg, op2_addr, TMP1
- | mov TMP1, #zend_long_floor_log2(Z_LVAL_P(Z_ZV(op1_addr)))
- | lsl Rx(result_reg), Rx(result_reg), TMP1
- } else if (opcode == ZEND_DIV &&
- (Z_MODE(op2_addr) == IS_CONST_ZVAL &&
- zend_long_is_power_of_two(Z_LVAL_P(Z_ZV(op2_addr))))) {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | asr Rx(result_reg), Rx(result_reg), #zend_long_floor_log2(Z_LVAL_P(Z_ZV(op2_addr)))
- #if 0
- /* x86 specific optimizations through LEA instraction are not supported on ARM */
- } else if (opcode == ZEND_ADD &&
- !may_overflow &&
- Z_MODE(op1_addr) == IS_REG &&
- Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- | NIY // TODO: test
- } else if (opcode == ZEND_ADD &&
- !may_overflow &&
- Z_MODE(op2_addr) == IS_REG &&
- Z_MODE(op1_addr) == IS_CONST_ZVAL) {
- | NIY // TODO: test
- } else if (opcode == ZEND_SUB &&
- !may_overflow &&
- Z_MODE(op1_addr) == IS_REG &&
- Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- | NIY // TODO: test
- #endif
- } else if (opcode == ZEND_MUL) {
- | GET_ZVAL_LVAL ZREG_TMP1, op1_addr, TMP1
- | GET_ZVAL_LVAL ZREG_TMP2, op2_addr, TMP2
- | mul Rx(result_reg), TMP1, TMP2
- if(may_overflow) {
- /* Use 'smulh' to get the upper 64 bits fo the 128-bit result.
- * For signed multiplication, the top 65 bits of the result will contain
- * either all zeros or all ones if no overflow occurred.
- * Flag: bne -> overflow. beq -> no overflow.
- */
- use_ovf_flag = 0;
- | smulh TMP1, TMP1, TMP2
- | cmp TMP1, Rx(result_reg), asr #63
- }
- } else {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- if ((opcode == ZEND_ADD || opcode == ZEND_SUB)
- && Z_MODE(op2_addr) == IS_CONST_ZVAL
- && Z_LVAL_P(Z_ZV(op2_addr)) == 0) {
- /* +/- 0 */
- may_overflow = 0;
- } else if (same_ops && opcode != ZEND_DIV) {
- | LONG_MATH_REG opcode, Rx(result_reg), Rx(result_reg), Rx(result_reg)
- } else {
- | LONG_MATH opcode, result_reg, op2_addr, TMP1
- }
- }
- if (may_overflow) {
- if (res_info & MAY_BE_GUARD) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- if ((res_info & MAY_BE_ANY) == MAY_BE_LONG) {
- if (use_ovf_flag) {
- | bvs &exit_addr
- } else {
- | bne &exit_addr
- }
- if (Z_MODE(res_addr) == IS_REG && result_reg != Z_REG(res_addr)) {
- | mov Rx(Z_REG(res_addr)), Rx(result_reg)
- }
- } else if ((res_info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- if (use_ovf_flag) {
- | bvc &exit_addr
- } else {
- | beq &exit_addr
- }
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- if (res_info & MAY_BE_LONG) {
- if (use_ovf_flag) {
- | bvs >1
- } else {
- | bne >1
- }
- } else {
- if (use_ovf_flag) {
- | bvc >1
- } else {
- | beq >1
- }
- }
- }
- }
- if (Z_MODE(res_addr) == IS_MEM_ZVAL && (res_info & MAY_BE_LONG)) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(result_reg), TMP1
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != Z_REG(res_addr) || Z_OFFSET(op1_addr) != Z_OFFSET(res_addr)) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_LONG) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- }
- }
- if (may_overflow && (!(res_info & MAY_BE_GUARD) || (res_info & MAY_BE_ANY) == MAY_BE_DOUBLE)) {
- zend_reg tmp_reg1 = ZREG_FPR0;
- zend_reg tmp_reg2 = ZREG_FPR1;
- if (res_info & MAY_BE_LONG) {
- |.cold_code
- |1:
- }
- do {
- if ((Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_LVAL_P(Z_ZV(op1_addr)) == 1) ||
- (Z_MODE(op2_addr) == IS_CONST_ZVAL && Z_LVAL_P(Z_ZV(op2_addr)) == 1)) {
- if (opcode == ZEND_ADD) {
- uint64_t val = 0x43e0000000000000;
- if (Z_MODE(res_addr) == IS_REG) {
- | LOAD_64BIT_VAL TMP1, val
- | fmov Rd(Z_REG(res_addr)-ZREG_V0), TMP1
- } else {
- | SET_ZVAL_LVAL res_addr, val, TMP2, TMP1
- }
- break;
- } else if (opcode == ZEND_SUB) {
- uint64_t val = 0xc3e0000000000000;
- if (Z_MODE(res_addr) == IS_REG) {
- | LOAD_64BIT_VAL TMP1, val
- | fmov Rd(Z_REG(res_addr)-ZREG_V0), TMP1
- } else {
- | SET_ZVAL_LVAL res_addr, val, TMP2, TMP1
- }
- break;
- }
- }
- | DOUBLE_GET_ZVAL_LVAL tmp_reg1, op1_addr, tmp_reg, ZREG_TMP1
- | DOUBLE_GET_ZVAL_LVAL tmp_reg2, op2_addr, tmp_reg, ZREG_TMP1
- | DOUBLE_MATH_REG opcode, tmp_reg1, tmp_reg1, tmp_reg2
- | SET_ZVAL_DVAL res_addr, tmp_reg1, ZREG_TMP1
- } while (0);
- if (Z_MODE(res_addr) == IS_MEM_ZVAL
- && (res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- if (res_info & MAY_BE_LONG) {
- | b >2
- |.code
- }
- |2:
- }
- return 1;
- }
- static int zend_jit_math_long_double(dasm_State **Dst,
- zend_uchar opcode,
- zend_jit_addr op1_addr,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- uint32_t res_use_info)
- {
- zend_reg result_reg =
- (Z_MODE(res_addr) == IS_REG) ? Z_REG(res_addr) : ZREG_FPR0;
- zend_reg op2_reg;
- | DOUBLE_GET_ZVAL_LVAL result_reg, op1_addr, ZREG_TMP1, ZREG_TMP2
- if (Z_MODE(op2_addr) == IS_REG) {
- op2_reg = Z_REG(op2_addr);
- } else {
- op2_reg = ZREG_FPTMP;
- | GET_ZVAL_DVAL op2_reg, op2_addr, ZREG_TMP1
- }
- | DOUBLE_MATH_REG opcode, result_reg, result_reg, op2_reg
- | SET_ZVAL_DVAL res_addr, result_reg, ZREG_TMP1
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- }
- return 1;
- }
- static int zend_jit_math_double_long(dasm_State **Dst,
- zend_uchar opcode,
- zend_jit_addr op1_addr,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- uint32_t res_use_info)
- {
- zend_reg result_reg, op1_reg, op2_reg;
- if (zend_is_commutative(opcode)
- && (Z_MODE(res_addr) != IS_REG || Z_MODE(op1_addr) != IS_REG || Z_REG(res_addr) != Z_REG(op1_addr))) {
- if (Z_MODE(res_addr) == IS_REG) {
- result_reg = Z_REG(res_addr);
- } else {
- result_reg = ZREG_FPR0;
- }
- | DOUBLE_GET_ZVAL_LVAL result_reg, op2_addr, ZREG_TMP1, ZREG_TMP2
- if (Z_MODE(op1_addr) == IS_REG) {
- op1_reg = Z_REG(op1_addr);
- } else {
- op1_reg = ZREG_FPTMP;
- | GET_ZVAL_DVAL op1_reg, op1_addr, ZREG_TMP1
- }
- | DOUBLE_MATH_REG opcode, result_reg, result_reg, op1_reg
- } else {
- if (Z_MODE(res_addr) == IS_REG) {
- result_reg = Z_REG(res_addr);
- } else if (Z_MODE(op1_addr) == IS_REG && Z_LAST_USE(op1_addr)) {
- result_reg = Z_REG(op1_addr);
- } else {
- result_reg = ZREG_FPR0;
- }
- if (Z_MODE(op1_addr) == IS_REG) {
- op1_reg = Z_REG(op1_addr);
- } else {
- | GET_ZVAL_DVAL result_reg, op1_addr, ZREG_TMP1
- op1_reg = result_reg;
- }
- if ((opcode == ZEND_ADD || opcode == ZEND_SUB)
- && Z_MODE(op2_addr) == IS_CONST_ZVAL
- && Z_LVAL_P(Z_ZV(op2_addr)) == 0) {
- /* +/- 0 */
- } else {
- op2_reg = ZREG_FPTMP;
- | DOUBLE_GET_ZVAL_LVAL op2_reg, op2_addr, ZREG_TMP1, ZREG_TMP2
- | DOUBLE_MATH_REG opcode, result_reg, op1_reg, op2_reg
- }
- }
- | SET_ZVAL_DVAL res_addr, result_reg, ZREG_TMP1
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != Z_REG(res_addr) || Z_OFFSET(op1_addr) != Z_OFFSET(res_addr)) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- }
- }
- return 1;
- }
- static int zend_jit_math_double_double(dasm_State **Dst,
- zend_uchar opcode,
- zend_jit_addr op1_addr,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- uint32_t res_use_info)
- {
- bool same_ops = zend_jit_same_addr(op1_addr, op2_addr);
- zend_reg result_reg, op1_reg, op2_reg;
- zend_jit_addr val_addr;
- if (Z_MODE(res_addr) == IS_REG) {
- result_reg = Z_REG(res_addr);
- } else if (Z_MODE(op1_addr) == IS_REG && Z_LAST_USE(op1_addr)) {
- result_reg = Z_REG(op1_addr);
- } else if (zend_is_commutative(opcode) && Z_MODE(op2_addr) == IS_REG && Z_LAST_USE(op2_addr)) {
- result_reg = Z_REG(op2_addr);
- } else {
- result_reg = ZREG_FPR0;
- }
- if (Z_MODE(op1_addr) == IS_REG) {
- op1_reg = Z_REG(op1_addr);
- val_addr = op2_addr;
- } else if (Z_MODE(op2_addr) == IS_REG && zend_is_commutative(opcode)) {
- op1_reg = Z_REG(op2_addr);
- val_addr = op1_addr;
- } else {
- | GET_ZVAL_DVAL result_reg, op1_addr, ZREG_TMP1
- op1_reg = result_reg;
- val_addr = op2_addr;
- }
- if ((opcode == ZEND_MUL) &&
- Z_MODE(val_addr) == IS_CONST_ZVAL && Z_DVAL_P(Z_ZV(val_addr)) == 2.0) {
- | DOUBLE_MATH_REG ZEND_ADD, result_reg, op1_reg, op1_reg
- } else {
- if (same_ops) {
- op2_reg = op1_reg;
- } else if (Z_MODE(val_addr) == IS_REG) {
- op2_reg = Z_REG(val_addr);
- } else {
- op2_reg = ZREG_FPTMP;
- | GET_ZVAL_DVAL op2_reg, val_addr, ZREG_TMP1
- }
- | DOUBLE_MATH_REG opcode, result_reg, op1_reg, op2_reg
- }
- | SET_ZVAL_DVAL res_addr, result_reg, ZREG_TMP1
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != Z_REG(res_addr) || Z_OFFSET(op1_addr) != Z_OFFSET(res_addr)) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_DOUBLE) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- }
- }
- return 1;
- }
- static int zend_jit_math_helper(dasm_State **Dst,
- const zend_op *opline,
- zend_uchar opcode,
- zend_uchar op1_type,
- znode_op op1,
- zend_jit_addr op1_addr,
- uint32_t op1_info,
- zend_uchar op2_type,
- znode_op op2,
- zend_jit_addr op2_addr,
- uint32_t op2_info,
- uint32_t res_var,
- zend_jit_addr res_addr,
- uint32_t res_info,
- uint32_t res_use_info,
- int may_overflow,
- int may_throw)
- /* Labels: 1,2,3,4,5,6 */
- {
- bool same_ops = zend_jit_same_addr(op1_addr, op2_addr);
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_LONG) && (res_info & (MAY_BE_LONG|MAY_BE_DOUBLE))) {
- if (op1_info & (MAY_BE_ANY-MAY_BE_LONG)) {
- if (op1_info & MAY_BE_DOUBLE) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >6, ZREG_TMP1
- }
- }
- if (!same_ops && (op2_info & (MAY_BE_ANY-MAY_BE_LONG))) {
- if (op2_info & MAY_BE_DOUBLE) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >1, ZREG_TMP1
- |.cold_code
- |1:
- if (op2_info & (MAY_BE_ANY-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- if (!zend_jit_math_long_double(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- | b >5
- |.code
- } else {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >6, ZREG_TMP1
- }
- }
- if (!zend_jit_math_long_long(Dst, opline, opcode, op1_addr, op2_addr, res_addr, res_info, res_use_info, may_overflow)) {
- return 0;
- }
- if (op1_info & MAY_BE_DOUBLE) {
- |.cold_code
- |3:
- if (op1_info & (MAY_BE_ANY-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- if (op2_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op2_info & (MAY_BE_ANY-MAY_BE_DOUBLE))) {
- if (!same_ops) {
- | IF_NOT_ZVAL_TYPE, op2_addr, IS_DOUBLE, >1, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE, op2_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- }
- if (!zend_jit_math_double_double(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- | b >5
- }
- if (!same_ops) {
- |1:
- if (op2_info & (MAY_BE_ANY-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >6, ZREG_TMP1
- }
- if (!zend_jit_math_double_long(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- | b >5
- }
- |.code
- }
- } else if ((op1_info & MAY_BE_DOUBLE) &&
- !(op1_info & MAY_BE_LONG) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (res_info & MAY_BE_DOUBLE)) {
- if (op1_info & (MAY_BE_ANY-MAY_BE_DOUBLE)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- if (op2_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op2_info & (MAY_BE_ANY-MAY_BE_DOUBLE))) {
- if (!same_ops && (op2_info & MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >1, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- }
- if (!zend_jit_math_double_double(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- }
- if (!same_ops && (op2_info & MAY_BE_LONG)) {
- if (op2_info & MAY_BE_DOUBLE) {
- |.cold_code
- }
- |1:
- if (op2_info & (MAY_BE_ANY-(MAY_BE_DOUBLE|MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >6, ZREG_TMP1
- }
- if (!zend_jit_math_double_long(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- if (op2_info & MAY_BE_DOUBLE) {
- | b >5
- |.code
- }
- }
- } else if ((op2_info & MAY_BE_DOUBLE) &&
- !(op2_info & MAY_BE_LONG) &&
- (op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (res_info & MAY_BE_DOUBLE)) {
- if (op2_info & (MAY_BE_ANY-MAY_BE_DOUBLE)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- if (op1_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op1_info & (MAY_BE_ANY-MAY_BE_DOUBLE))) {
- if (!same_ops && (op1_info & MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >1, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >6, ZREG_TMP1
- }
- }
- if (!zend_jit_math_double_double(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- }
- if (!same_ops && (op1_info & MAY_BE_LONG)) {
- if (op1_info & MAY_BE_DOUBLE) {
- |.cold_code
- }
- |1:
- if (op1_info & (MAY_BE_ANY-(MAY_BE_DOUBLE|MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >6, ZREG_TMP1
- }
- if (!zend_jit_math_long_double(Dst, opcode, op1_addr, op2_addr, res_addr, res_use_info)) {
- return 0;
- }
- if (op1_info & MAY_BE_DOUBLE) {
- | b >5
- |.code
- }
- }
- }
- |5:
- if ((op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) ||
- (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- if ((op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (res_info & (MAY_BE_LONG|MAY_BE_DOUBLE))) {
- |.cold_code
- }
- |6:
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != ZREG_FCARG1) {
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- | LOAD_ZVAL_ADDR FCARG1x, real_addr
- } else if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- } else {
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- | LOAD_ZVAL_ADDR FCARG1x, real_addr
- } else if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- }
- if (Z_MODE(op2_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op2.var);
- if (!zend_jit_spill_store(Dst, op2_addr, real_addr, op2_info, 1)) {
- return 0;
- }
- op2_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR CARG3, op2_addr
- | SET_EX_OPLINE opline, REG0
- if (opcode == ZEND_ADD) {
- | EXT_CALL add_function, REG0
- } else if (opcode == ZEND_SUB) {
- | EXT_CALL sub_function, REG0
- } else if (opcode == ZEND_MUL) {
- | EXT_CALL mul_function, REG0
- } else if (opcode == ZEND_DIV) {
- | EXT_CALL div_function, REG0
- } else {
- ZEND_UNREACHABLE();
- }
- | FREE_OP op1_type, op1, op1_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- | FREE_OP op2_type, op2, op2_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- if (opline->opcode == ZEND_ASSIGN_DIM_OP && (opline->op2_type & (IS_VAR|IS_TMP_VAR))) {
- | MEM_LOAD_64_ZTS ldr, TMP2, executor_globals, exception, TMP1
- | cbnz TMP2, ->exception_handler_free_op2
- } else if (Z_MODE(res_addr) == IS_MEM_ZVAL && Z_REG(res_addr) == ZREG_RX) {
- zend_jit_check_exception_undef_result(Dst, opline);
- } else {
- zend_jit_check_exception(Dst);
- }
- }
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- if (!zend_jit_load_reg(Dst, real_addr, res_addr, res_info)) {
- return 0;
- }
- }
- if ((op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (res_info & (MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | b <5
- |.code
- }
- }
- return 1;
- }
- static int zend_jit_math(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, uint32_t op2_info, zend_jit_addr op2_addr, uint32_t res_use_info, uint32_t res_info, zend_jit_addr res_addr, int may_overflow, int may_throw)
- {
- ZEND_ASSERT(!(op1_info & MAY_BE_UNDEF) && !(op2_info & MAY_BE_UNDEF));
- ZEND_ASSERT((op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE)));
- if (!zend_jit_math_helper(Dst, opline, opline->opcode, opline->op1_type, opline->op1, op1_addr, op1_info, opline->op2_type, opline->op2, op2_addr, op2_info, opline->result.var, res_addr, res_info, res_use_info, may_overflow, may_throw)) {
- return 0;
- }
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- return 1;
- }
- static int zend_jit_add_arrays(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, uint32_t op2_info, zend_jit_addr op2_addr, zend_jit_addr res_addr)
- {
- if (Z_MODE(op2_addr) != IS_MEM_ZVAL || Z_REG(op2_addr) != ZREG_FCARG1) {
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- } else if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != ZREG_FCARG1) {
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- } else {
- | GET_ZVAL_LVAL ZREG_REG0, op2_addr, TMP1
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- | mov FCARG2x, REG0
- }
- | EXT_CALL zend_jit_add_arrays_helper, REG0
- | SET_ZVAL_PTR res_addr, RETVALx, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_ARRAY_EX, TMP1w, TMP2
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- return 1;
- }
- static int zend_jit_long_math_helper(dasm_State **Dst,
- const zend_op *opline,
- zend_uchar opcode,
- zend_uchar op1_type,
- znode_op op1,
- zend_jit_addr op1_addr,
- uint32_t op1_info,
- zend_ssa_range *op1_range,
- zend_uchar op2_type,
- znode_op op2,
- zend_jit_addr op2_addr,
- uint32_t op2_info,
- zend_ssa_range *op2_range,
- uint32_t res_var,
- zend_jit_addr res_addr,
- uint32_t res_info,
- uint32_t res_use_info,
- int may_throw)
- /* Labels: 6 */
- {
- bool same_ops = zend_jit_same_addr(op1_addr, op2_addr);
- zend_reg result_reg;
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >6, ZREG_TMP1
- }
- if (!same_ops && (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >6, ZREG_TMP1
- }
- if (Z_MODE(res_addr) == IS_REG) {
- if ((opline->opcode == ZEND_SL || opline->opcode == ZEND_SR)
- && opline->op2_type != IS_CONST) {
- result_reg = ZREG_REG0;
- } else {
- result_reg = Z_REG(res_addr);
- }
- } else if (Z_MODE(op1_addr) == IS_REG && Z_LAST_USE(op1_addr)) {
- result_reg = Z_REG(op1_addr);
- } else if (Z_REG(res_addr) != ZREG_REG0) {
- result_reg = ZREG_REG0;
- } else {
- /* ASSIGN_DIM_OP */
- result_reg = ZREG_FCARG1;
- }
- if (opcode == ZEND_SL) {
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- zend_long op2_lval = Z_LVAL_P(Z_ZV(op2_addr));
- if (UNEXPECTED((zend_ulong)op2_lval >= SIZEOF_ZEND_LONG * 8)) {
- if (EXPECTED(op2_lval > 0)) {
- | mov Rx(result_reg), xzr
- } else {
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->negative_shift
- }
- } else if (Z_MODE(op1_addr) == IS_REG && op2_lval == 1) {
- | add Rx(result_reg), Rx(Z_REG(op1_addr)), Rx(Z_REG(op1_addr))
- } else {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | lsl Rx(result_reg), Rx(result_reg), #op2_lval
- }
- } else {
- zend_reg op2_reg;
- if (Z_MODE(op2_addr) == IS_REG) {
- op2_reg = Z_REG(op2_addr);
- } else {
- op2_reg = ZREG_TMP2;
- | GET_ZVAL_LVAL ZREG_TMP2, op2_addr, TMP2
- }
- if (!op2_range ||
- op2_range->min < 0 ||
- op2_range->max >= SIZEOF_ZEND_LONG * 8) {
- | cmp Rx(op2_reg), #(SIZEOF_ZEND_LONG*8)
- | bhs >1
- |.cold_code
- |1:
- | mov Rx(result_reg), xzr
- | cmp Rx(op2_reg), xzr
- | bgt >1
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->negative_shift
- |.code
- }
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | lsl Rx(result_reg), Rx(result_reg), Rx(op2_reg)
- |1:
- }
- } else if (opcode == ZEND_SR) {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- zend_long op2_lval = Z_LVAL_P(Z_ZV(op2_addr));
- if (UNEXPECTED((zend_ulong)op2_lval >= SIZEOF_ZEND_LONG * 8)) {
- if (EXPECTED(op2_lval > 0)) {
- | asr Rx(result_reg), Rx(result_reg), #((SIZEOF_ZEND_LONG * 8) - 1)
- } else {
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->negative_shift
- }
- } else {
- | asr Rx(result_reg), Rx(result_reg), #op2_lval
- }
- } else {
- zend_reg op2_reg;
- if (Z_MODE(op2_addr) == IS_REG) {
- op2_reg = Z_REG(op2_addr);
- } else {
- op2_reg = ZREG_TMP2;
- | GET_ZVAL_LVAL ZREG_TMP2, op2_addr, TMP2
- }
- if (!op2_range ||
- op2_range->min < 0 ||
- op2_range->max >= SIZEOF_ZEND_LONG * 8) {
- | cmp Rx(op2_reg), #(SIZEOF_ZEND_LONG*8)
- | bhs >1
- |.cold_code
- |1:
- | cmp Rx(op2_reg), xzr
- | mov Rx(op2_reg), #((SIZEOF_ZEND_LONG * 8) - 1)
- | bgt >1
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->negative_shift
- |.code
- }
- |1:
- | asr Rx(result_reg), Rx(result_reg), Rx(op2_reg)
- }
- } else if (opcode == ZEND_MOD) {
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- zend_long op2_lval = Z_LVAL_P(Z_ZV(op2_addr));
- if (op2_lval == 0) {
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->mod_by_zero
- } else if (op2_lval == -1) {
- | mov Rx(result_reg), xzr
- } else if (zend_long_is_power_of_two(op2_lval) && op1_range && op1_range->min >= 0) {
- zval tmp;
- zend_jit_addr tmp_addr;
- /* Optimisation for mod of power of 2 */
- ZVAL_LONG(&tmp, op2_lval - 1);
- tmp_addr = ZEND_ADDR_CONST_ZVAL(&tmp);
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | LONG_MATH ZEND_BW_AND, result_reg, tmp_addr, TMP1
- } else {
- | GET_ZVAL_LVAL ZREG_TMP1, op1_addr, TMP1
- | GET_ZVAL_LVAL ZREG_TMP2, op2_addr, TMP2
- | sdiv Rx(result_reg), TMP1, TMP2
- | msub Rx(result_reg), Rx(result_reg), TMP2, TMP1
- }
- } else {
- zend_reg op2_reg;
- if (Z_MODE(op2_addr) == IS_MEM_ZVAL) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, TMP2, Rx(Z_REG(op2_addr)), Z_OFFSET(op2_addr), TMP2
- op2_reg = ZREG_TMP2;
- } else {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_REG);
- op2_reg = Z_REG(op2_addr);
- }
- if (!op2_range || (op2_range->min <= 0 && op2_range->max >= 0)) {
- | cbz Rx(op2_reg), >1
- |.cold_code
- |1:
- zend_jit_invalidate_var_if_necessary(Dst, op1_type, op1_addr, op1);
- zend_jit_invalidate_var_if_necessary(Dst, op2_type, op2_addr, op2);
- | SET_EX_OPLINE opline, REG0
- | b ->mod_by_zero
- |.code
- }
- /* Prevent overflow error/crash if op1 == LONG_MIN and op2 == -1 */
- if (!op2_range || (op2_range->min <= -1 && op2_range->max >= -1)) {
- | cmn Rx(op2_reg), #1
- | beq >1
- |.cold_code
- |1:
- | SET_ZVAL_LVAL_FROM_REG res_addr, xzr, TMP1
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != Z_REG(res_addr) || Z_OFFSET(op1_addr) != Z_OFFSET(res_addr)) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_LONG) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- }
- }
- | b >5
- |.code
- }
- | GET_ZVAL_LVAL ZREG_TMP1, op1_addr, TMP1
- | sdiv Rx(result_reg), TMP1, Rx(op2_reg)
- | msub Rx(result_reg), Rx(result_reg), Rx(op2_reg), TMP1
- }
- } else if (same_ops) {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | LONG_MATH_REG opcode, Rx(result_reg), Rx(result_reg), Rx(result_reg)
- } else {
- | GET_ZVAL_LVAL result_reg, op1_addr, TMP1
- | LONG_MATH opcode, result_reg, op2_addr, TMP1
- }
- if (Z_MODE(res_addr) != IS_REG || Z_REG(res_addr) != result_reg) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, Rx(result_reg), TMP1
- }
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != Z_REG(res_addr) || Z_OFFSET(op1_addr) != Z_OFFSET(res_addr)) {
- if ((res_use_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF|MAY_BE_GUARD)) != MAY_BE_LONG) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- }
- }
- if ((op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) ||
- (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG))) {
- if ((op1_info & MAY_BE_LONG) &&
- (op2_info & MAY_BE_LONG)) {
- |.cold_code
- }
- |6:
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != ZREG_FCARG1) {
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- | LOAD_ZVAL_ADDR FCARG1x, real_addr
- } else if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- } else {
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- | LOAD_ZVAL_ADDR FCARG1x, real_addr
- } else if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- }
- if (Z_MODE(op2_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, op2.var);
- if (!zend_jit_spill_store(Dst, op2_addr, real_addr, op2_info, 1)) {
- return 0;
- }
- op2_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR CARG3, op2_addr
- | SET_EX_OPLINE opline, REG0
- if (opcode == ZEND_BW_OR) {
- | EXT_CALL bitwise_or_function, REG0
- } else if (opcode == ZEND_BW_AND) {
- | EXT_CALL bitwise_and_function, REG0
- } else if (opcode == ZEND_BW_XOR) {
- | EXT_CALL bitwise_xor_function, REG0
- } else if (opcode == ZEND_SL) {
- | EXT_CALL shift_left_function, REG0
- } else if (opcode == ZEND_SR) {
- | EXT_CALL shift_right_function, REG0
- } else if (opcode == ZEND_MOD) {
- | EXT_CALL mod_function, REG0
- } else {
- ZEND_UNREACHABLE();
- }
- if (op1_addr == res_addr && (op2_info & MAY_BE_RCN)) {
- /* compound assignment may decrement "op2" refcount */
- op2_info |= MAY_BE_RC1;
- }
- | FREE_OP op1_type, op1, op1_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- | FREE_OP op2_type, op2, op2_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- if (opline->opcode == ZEND_ASSIGN_DIM_OP && (opline->op2_type & (IS_VAR|IS_TMP_VAR))) {
- | MEM_LOAD_64_ZTS ldr, TMP2, executor_globals, exception, TMP1
- | cbnz TMP2, ->exception_handler_free_op2
- } else if (Z_MODE(res_addr) == IS_MEM_ZVAL && Z_REG(res_addr) == ZREG_RX) {
- zend_jit_check_exception_undef_result(Dst, opline);
- } else {
- zend_jit_check_exception(Dst);
- }
- }
- if (Z_MODE(res_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, res_var);
- if (!zend_jit_load_reg(Dst, real_addr, res_addr, res_info)) {
- return 0;
- }
- }
- if ((op1_info & MAY_BE_LONG) &&
- (op2_info & MAY_BE_LONG)) {
- | b >5
- |.code
- }
- }
- |5:
- return 1;
- }
- static int zend_jit_long_math(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_ssa_range *op1_range, zend_jit_addr op1_addr, uint32_t op2_info, zend_ssa_range *op2_range, zend_jit_addr op2_addr, uint32_t res_use_info, uint32_t res_info, zend_jit_addr res_addr, int may_throw)
- {
- ZEND_ASSERT(!(op1_info & MAY_BE_UNDEF) && !(op2_info & MAY_BE_UNDEF));
- ZEND_ASSERT((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_LONG));
- if (!zend_jit_long_math_helper(Dst, opline, opline->opcode,
- opline->op1_type, opline->op1, op1_addr, op1_info, op1_range,
- opline->op2_type, opline->op2, op2_addr, op2_info, op2_range,
- opline->result.var, res_addr, res_info, res_use_info, may_throw)) {
- return 0;
- }
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- return 1;
- }
- static int zend_jit_concat_helper(dasm_State **Dst,
- const zend_op *opline,
- zend_uchar op1_type,
- znode_op op1,
- zend_jit_addr op1_addr,
- uint32_t op1_info,
- zend_uchar op2_type,
- znode_op op2,
- zend_jit_addr op2_addr,
- uint32_t op2_info,
- zend_jit_addr res_addr,
- int may_throw)
- {
- if ((op1_info & MAY_BE_STRING) && (op2_info & MAY_BE_STRING)) {
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF) - MAY_BE_STRING)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >6, ZREG_TMP1
- }
- if (op2_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF) - MAY_BE_STRING)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_STRING, >6, ZREG_TMP1
- }
- if (Z_MODE(op1_addr) == IS_MEM_ZVAL && Z_REG(op1_addr) == Z_REG(res_addr) && Z_OFFSET(op1_addr) == Z_OFFSET(res_addr)) {
- if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | EXT_CALL zend_jit_fast_assign_concat_helper, REG0
- /* concatination with itself may reduce refcount */
- op2_info |= MAY_BE_RC1;
- } else {
- if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- | LOAD_ZVAL_ADDR CARG3, op2_addr
- if (op1_type == IS_CV || op1_type == IS_CONST) {
- | EXT_CALL zend_jit_fast_concat_helper, REG0
- } else {
- | EXT_CALL zend_jit_fast_concat_tmp_helper, REG0
- }
- }
- /* concatination with empty string may increase refcount */
- op2_info |= MAY_BE_RCN;
- | FREE_OP op2_type, op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- |5:
- }
- if ((op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF) - MAY_BE_STRING)) ||
- (op2_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF) - MAY_BE_STRING))) {
- if ((op1_info & MAY_BE_STRING) && (op2_info & MAY_BE_STRING)) {
- |.cold_code
- |6:
- }
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != ZREG_FCARG1) {
- if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- }
- | LOAD_ZVAL_ADDR CARG3, op2_addr
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL concat_function, REG0
- /* concatination with empty string may increase refcount */
- op1_info |= MAY_BE_RCN;
- op2_info |= MAY_BE_RCN;
- | FREE_OP op1_type, op1, op1_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- | FREE_OP op2_type, op2, op2_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- if (Z_MODE(res_addr) == IS_MEM_ZVAL && Z_REG(res_addr) == ZREG_RX) {
- zend_jit_check_exception_undef_result(Dst, opline);
- } else {
- zend_jit_check_exception(Dst);
- }
- }
- if ((op1_info & MAY_BE_STRING) && (op2_info & MAY_BE_STRING)) {
- | b <5
- |.code
- }
- }
- return 1;
- }
- static int zend_jit_concat(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, uint32_t op2_info, zend_jit_addr res_addr, int may_throw)
- {
- zend_jit_addr op1_addr, op2_addr;
- ZEND_ASSERT(!(op1_info & MAY_BE_UNDEF) && !(op2_info & MAY_BE_UNDEF));
- ZEND_ASSERT((op1_info & MAY_BE_STRING) && (op2_info & MAY_BE_STRING));
- op1_addr = OP1_ADDR();
- op2_addr = OP2_ADDR();
- return zend_jit_concat_helper(Dst, opline, opline->op1_type, opline->op1, op1_addr, op1_info, opline->op2_type, opline->op2, op2_addr, op2_info, res_addr, may_throw);
- }
- static int zend_jit_fetch_dimension_address_inner(dasm_State **Dst, const zend_op *opline, uint32_t type, uint32_t op1_info, uint32_t op2_info, uint8_t dim_type, const void *found_exit_addr, const void *not_found_exit_addr, const void *exit_addr)
- /* Labels: 1,2,3,4,5 */
- {
- zend_jit_addr op2_addr = OP2_ADDR();
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && type == BP_VAR_R
- && !exit_addr) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- }
- if (op2_info & MAY_BE_LONG) {
- bool op2_loaded = 0;
- bool packed_loaded = 0;
- bool bad_packed_key = 0;
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_LONG)) {
- | // if (EXPECTED(Z_TYPE_P(dim) == IS_LONG))
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >3, ZREG_TMP1
- }
- if (op1_info & MAY_BE_PACKED_GUARD) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_PACKED_GUARD);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- if (op1_info & MAY_BE_ARRAY_PACKED) {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, u.flags)]
- | TST_32_WITH_CONST TMP1w, HASH_FLAG_PACKED, TMP2w
- | beq &exit_addr
- } else {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, u.flags)]
- | TST_32_WITH_CONST TMP1w, HASH_FLAG_PACKED, TMP2w
- | bne &exit_addr
- }
- }
- if (type == BP_VAR_W) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- op2_loaded = 1;
- }
- if (op1_info & MAY_BE_ARRAY_PACKED) {
- zend_long val = -1;
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- val = Z_LVAL_P(Z_ZV(op2_addr));
- if (val >= 0 && val < HT_MAX_SIZE) {
- packed_loaded = 1;
- } else {
- bad_packed_key = 1;
- }
- } else {
- if (!op2_loaded) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- op2_loaded = 1;
- }
- packed_loaded = 1;
- }
- if (dim_type == IS_UNDEF && type == BP_VAR_W) {
- /* don't generate "fast" code for packed array */
- packed_loaded = 0;
- }
- if (packed_loaded) {
- | // ZEND_HASH_INDEX_FIND(ht, hval, retval, num_undef);
- if (op1_info & MAY_BE_ARRAY_NUMERIC_HASH) {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, u.flags)]
- | TST_32_WITH_CONST TMP1w, HASH_FLAG_PACKED, TMP2w
- | beq >4 // HASH_FIND
- }
- | // if (EXPECTED((zend_ulong)(_h) < (zend_ulong)(_ht)->nNumUsed))
- | ldr REG0w, [FCARG1x, #offsetof(zend_array, nNumUsed)]
- if (val == 0) {
- | cmp REG0, xzr
- } else if (val > 0 && !op2_loaded) {
- | CMP_64_WITH_CONST REG0, val, TMP1
- } else {
- | cmp REG0, FCARG2x
- }
- if (type == BP_JIT_IS) {
- if (not_found_exit_addr) {
- | bls ¬_found_exit_addr
- } else {
- | bls >9 // NOT_FOUND
- }
- } else if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && type == BP_VAR_R) {
- | bls &exit_addr
- } else if (type == BP_VAR_IS && not_found_exit_addr) {
- | bls ¬_found_exit_addr
- } else if (type == BP_VAR_RW && not_found_exit_addr) {
- | bls ¬_found_exit_addr
- } else if (type == BP_VAR_IS && found_exit_addr) {
- | bls >7 // NOT_FOUND
- } else {
- | bls >2 // NOT_FOUND
- }
- | // _ret = &_ht->arData[_h].val;
- if (val >= 0) {
- | ldr REG0, [FCARG1x, #offsetof(zend_array, arData)]
- if (val != 0) {
- | ADD_SUB_64_WITH_CONST add, REG0, REG0, (val * sizeof(Bucket)), TMP1
- }
- } else {
- | ldr TMP1, [FCARG1x, #offsetof(zend_array, arData)]
- | add REG0, TMP1, FCARG2x, lsl #5
- }
- }
- }
- switch (type) {
- case BP_JIT_IS:
- if (op1_info & MAY_BE_ARRAY_NUMERIC_HASH) {
- if (packed_loaded) {
- | b >5
- }
- |4:
- if (!op2_loaded) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- }
- if (packed_loaded) {
- | EXT_CALL _zend_hash_index_find, REG0
- } else {
- | EXT_CALL zend_hash_index_find, REG0
- }
- | mov REG0, RETVALx
- if (not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- } else {
- | cbz REG0, >9 // NOT_FOUND
- }
- if (op2_info & MAY_BE_STRING) {
- | b >5
- }
- } else if (packed_loaded) {
- if (op2_info & MAY_BE_STRING) {
- | b >5
- }
- } else if (not_found_exit_addr) {
- | b ¬_found_exit_addr
- } else {
- | b >9 // NOT_FOUND
- }
- break;
- case BP_VAR_R:
- case BP_VAR_IS:
- case BP_VAR_UNSET:
- if (packed_loaded) {
- if (op1_info & MAY_BE_ARRAY_NUMERIC_HASH) {
- | IF_NOT_Z_TYPE REG0, IS_UNDEF, >8, TMP1w
- } else if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && type == BP_VAR_R) {
- /* perform IS_UNDEF check only after result type guard (during deoptimization) */
- if (!found_exit_addr || (op1_info & MAY_BE_ARRAY_NUMERIC_HASH)) {
- | IF_Z_TYPE REG0, IS_UNDEF, &exit_addr, TMP1w
- }
- } else if (type == BP_VAR_IS && not_found_exit_addr) {
- | IF_Z_TYPE REG0, IS_UNDEF, ¬_found_exit_addr, TMP1w
- } else if (type == BP_VAR_IS && found_exit_addr) {
- | IF_Z_TYPE REG0, IS_UNDEF, >7, TMP1w // NOT_FOUND
- } else {
- | IF_Z_TYPE REG0, IS_UNDEF, >2, TMP1w // NOT_FOUND
- }
- }
- if (!(op1_info & MAY_BE_ARRAY_KEY_LONG) || (packed_loaded && (op1_info & MAY_BE_ARRAY_NUMERIC_HASH))) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && type == BP_VAR_R) {
- | b &exit_addr
- } else if (type == BP_VAR_IS && not_found_exit_addr) {
- | b ¬_found_exit_addr
- } else if (type == BP_VAR_IS && found_exit_addr) {
- | b >7 // NOT_FOUND
- } else {
- | b >2 // NOT_FOUND
- }
- }
- if (!packed_loaded || (op1_info & MAY_BE_ARRAY_NUMERIC_HASH)) {
- |4:
- if (!op2_loaded) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- }
- if (packed_loaded) {
- | EXT_CALL _zend_hash_index_find, REG0
- } else {
- | EXT_CALL zend_hash_index_find, REG0
- }
- | mov REG0, RETVALx
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && type == BP_VAR_R) {
- | cbz REG0, &exit_addr
- } else if (type == BP_VAR_IS && not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- } else if (type == BP_VAR_IS && found_exit_addr) {
- | cbz REG0, >7 // NOT_FOUND
- } else {
- | cbz REG0, >2 // NOT_FOUND
- }
- }
- |.cold_code
- |2:
- switch (type) {
- case BP_VAR_R:
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- | // zend_error(E_WARNING,"Undefined array key " ZEND_LONG_FMT, hval);
- | // retval = &EG(uninitialized_zval);
- | UNDEFINED_OFFSET opline
- | b >9
- }
- break;
- case BP_VAR_IS:
- case BP_VAR_UNSET:
- if (!not_found_exit_addr && !found_exit_addr) {
- | // retval = &EG(uninitialized_zval);
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- | b >9
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- |.code
- break;
- case BP_VAR_RW:
- if (packed_loaded && !not_found_exit_addr) {
- | IF_NOT_Z_TYPE REG0, IS_UNDEF, >8, TMP1w
- }
- if (!packed_loaded ||
- !not_found_exit_addr ||
- (op1_info & MAY_BE_ARRAY_NUMERIC_HASH)) {
- if (packed_loaded && not_found_exit_addr) {
- |.cold_code
- }
- |2:
- |4:
- if (!op2_loaded) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- }
- | SET_EX_OPLINE opline, REG0
- if (packed_loaded) {
- | EXT_CALL zend_jit_hash_index_lookup_rw_no_packed, REG0
- } else {
- | EXT_CALL zend_jit_hash_index_lookup_rw, REG0
- }
- | mov REG0, RETVALx
- if (not_found_exit_addr) {
- if (packed_loaded) {
- | cbnz REG0, >8
- | b ¬_found_exit_addr
- |.code
- } else {
- | cbz REG0, ¬_found_exit_addr
- }
- } else {
- | cbz REG0, >9
- }
- }
- break;
- case BP_VAR_W:
- if (packed_loaded) {
- | IF_NOT_Z_TYPE REG0, IS_UNDEF, >8, TMP1w
- }
- if (!(op1_info & MAY_BE_ARRAY_KEY_LONG) || (op1_info & MAY_BE_ARRAY_NUMERIC_HASH) || packed_loaded || bad_packed_key || dim_type == IS_UNDEF) {
- |2:
- |4:
- if (!op2_loaded) {
- | // hval = Z_LVAL_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- }
- | EXT_CALL zend_hash_index_lookup, REG0
- | mov REG0, RETVALx
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- if (type != BP_JIT_IS && (op2_info & MAY_BE_STRING)) {
- | b >8
- }
- }
- if (op2_info & MAY_BE_STRING) {
- |3:
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING))) {
- | // if (EXPECTED(Z_TYPE_P(dim) == IS_STRING))
- | IF_NOT_ZVAL_TYPE op2_addr, IS_STRING, >3, ZREG_TMP1
- }
- | // offset_key = Z_STR_P(dim);
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- | // retval = zend_hash_find(ht, offset_key);
- switch (type) {
- case BP_JIT_IS:
- if (opline->op2_type != IS_CONST) {
- | ldrb TMP1w, [FCARG2x, #offsetof(zend_string, val)]
- | cmp TMP1w, #((uint8_t) ('9'))
- | ble >1
- |.cold_code
- |1:
- | EXT_CALL zend_jit_symtable_find, REG0
- | b >1
- |.code
- | EXT_CALL zend_hash_find, REG0
- |1:
- } else {
- | EXT_CALL zend_hash_find_known_hash, REG0
- }
- | mov REG0, RETVALx
- if (not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- } else {
- | cbz REG0, >9 // NOT_FOUND
- }
- break;
- case BP_VAR_R:
- case BP_VAR_IS:
- case BP_VAR_UNSET:
- if (opline->op2_type != IS_CONST) {
- | ldrb TMP1w, [FCARG2x, #offsetof(zend_string, val)]
- | cmp TMP1w, #((uint8_t) ('9'))
- | ble >1
- |.cold_code
- |1:
- | EXT_CALL zend_jit_symtable_find, REG0
- | b >1
- |.code
- | EXT_CALL zend_hash_find, REG0
- |1:
- } else {
- | EXT_CALL zend_hash_find_known_hash, REG0
- }
- | mov REG0, RETVALx
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && type == BP_VAR_R) {
- | cbz REG0, &exit_addr
- } else if (type == BP_VAR_IS && not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- } else if (type == BP_VAR_IS && found_exit_addr) {
- | cbz REG0, >7
- } else {
- | cbz REG0, >2 // NOT_FOUND
- |.cold_code
- |2:
- switch (type) {
- case BP_VAR_R:
- // zend_error(E_WARNING, "Undefined array key \"%s\"", ZSTR_VAL(offset_key));
- | UNDEFINED_INDEX opline
- | b >9
- break;
- case BP_VAR_IS:
- case BP_VAR_UNSET:
- | // retval = &EG(uninitialized_zval);
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- | b >9
- break;
- default:
- ZEND_UNREACHABLE();
- }
- |.code
- }
- break;
- case BP_VAR_RW:
- | SET_EX_OPLINE opline, REG0
- if (opline->op2_type != IS_CONST) {
- | EXT_CALL zend_jit_symtable_lookup_rw, REG0
- } else {
- | EXT_CALL zend_jit_hash_lookup_rw, REG0
- }
- | mov REG0, RETVALx
- if (not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- } else {
- | cbz REG0, >9
- }
- break;
- case BP_VAR_W:
- if (opline->op2_type != IS_CONST) {
- | EXT_CALL zend_jit_symtable_lookup_w, REG0
- } else {
- | EXT_CALL zend_hash_lookup, REG0
- }
- | mov REG0, RETVALx
- break;
- default:
- ZEND_UNREACHABLE();
- }
- }
- if (type == BP_JIT_IS && (op2_info & (MAY_BE_LONG|MAY_BE_STRING))) {
- |5:
- if (op1_info & MAY_BE_ARRAY_OF_REF) {
- | ZVAL_DEREF REG0, MAY_BE_REF, TMP1w
- }
- | ldrb TMP1w, [REG0,#offsetof(zval, u1.v.type)]
- | cmp TMP1w, #IS_NULL
- if (not_found_exit_addr) {
- | ble ¬_found_exit_addr
- } else if (found_exit_addr) {
- | bgt &found_exit_addr
- } else {
- | ble >9 // NOT FOUND
- }
- }
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING))) {
- if (op2_info & (MAY_BE_LONG|MAY_BE_STRING)) {
- |.cold_code
- |3:
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- switch (type) {
- case BP_VAR_R:
- | LOAD_ZVAL_ADDR CARG3, res_addr
- | EXT_CALL zend_jit_fetch_dim_r_helper, REG0
- | mov REG0, RETVALx
- | b >9
- break;
- case BP_JIT_IS:
- | EXT_CALL zend_jit_fetch_dim_isset_helper, REG0
- | mov REG0, RETVALx
- if (not_found_exit_addr) {
- | cbz REG0, ¬_found_exit_addr
- if (op2_info & (MAY_BE_LONG|MAY_BE_STRING)) {
- | b >8
- }
- } else if (found_exit_addr) {
- | cbnz REG0, &found_exit_addr
- if (op2_info & (MAY_BE_LONG|MAY_BE_STRING)) {
- | b >9
- }
- } else {
- | cbnz REG0, >8
- | b >9
- }
- break;
- case BP_VAR_IS:
- case BP_VAR_UNSET:
- | LOAD_ZVAL_ADDR CARG3, res_addr
- | EXT_CALL zend_jit_fetch_dim_is_helper, REG0
- | mov REG0, RETVALx
- | b >9
- break;
- case BP_VAR_RW:
- | EXT_CALL zend_jit_fetch_dim_rw_helper, REG0
- | mov REG0, RETVALx
- | cbnz REG0, >8
- | b >9
- break;
- case BP_VAR_W:
- | EXT_CALL zend_jit_fetch_dim_w_helper, REG0
- | mov REG0, RETVALx
- | cbnz REG0, >8
- | b >9
- break;
- default:
- ZEND_UNREACHABLE();
- }
- if (op2_info & (MAY_BE_LONG|MAY_BE_STRING)) {
- |.code
- }
- }
- return 1;
- }
- static int zend_jit_simple_assign(dasm_State **Dst,
- const zend_op *opline,
- zend_jit_addr var_addr,
- uint32_t var_info,
- uint32_t var_def_info,
- zend_uchar val_type,
- zend_jit_addr val_addr,
- uint32_t val_info,
- zend_jit_addr res_addr,
- int in_cold,
- int save_r1)
- /* Labels: 1,2,3 */
- {
- zend_reg tmp_reg;
- if (Z_MODE(var_addr) == IS_REG || Z_REG(var_addr) != ZREG_REG0) {
- tmp_reg = ZREG_REG0;
- } else {
- /* ASSIGN_DIM */
- tmp_reg = ZREG_FCARG1;
- }
- if (Z_MODE(val_addr) == IS_CONST_ZVAL) {
- zval *zv = Z_ZV(val_addr);
- if (!res_addr) {
- | ZVAL_COPY_CONST var_addr, var_info, var_def_info, zv, tmp_reg, ZREG_TMP1, ZREG_FPR0
- } else {
- | ZVAL_COPY_CONST_2 var_addr, res_addr, var_info, var_def_info, zv, tmp_reg, ZREG_TMP1, ZREG_FPR0
- }
- if (Z_REFCOUNTED_P(zv)) {
- if (!res_addr) {
- | ADDREF_CONST zv, TMP1, TMP2
- } else {
- | ADDREF_CONST_2 zv, TMP1, TMP2
- }
- }
- } else {
- if (val_info & MAY_BE_UNDEF) {
- if (in_cold) {
- | IF_NOT_ZVAL_TYPE val_addr, IS_UNDEF, >2, ZREG_TMP1
- } else {
- | IF_ZVAL_TYPE val_addr, IS_UNDEF, >1, ZREG_TMP1
- |.cold_code
- |1:
- }
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- if (save_r1) {
- | str FCARG1x, T1 // save
- }
- | SET_ZVAL_TYPE_INFO var_addr, IS_NULL, TMP1w, TMP2
- if (res_addr) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- }
- if (opline) {
- | SET_EX_OPLINE opline, Rx(tmp_reg)
- }
- ZEND_ASSERT(Z_MODE(val_addr) == IS_MEM_ZVAL && Z_REG(val_addr) == ZREG_FP);
- | LOAD_32BIT_VAL FCARG1w, Z_OFFSET(val_addr)
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | cbz RETVALx, ->exception_handler_undef
- if (save_r1) {
- | ldr FCARG1x, T1 // restore
- }
- | b >3
- if (in_cold) {
- |2:
- } else {
- |.code
- }
- }
- if (val_info & MAY_BE_REF) {
- if (val_type == IS_CV) {
- ZEND_ASSERT(Z_REG(var_addr) != ZREG_REG2);
- if (Z_MODE(val_addr) != IS_MEM_ZVAL || Z_REG(val_addr) != ZREG_REG2 || Z_OFFSET(val_addr) != 0) {
- | LOAD_ZVAL_ADDR REG2, val_addr
- }
- | ZVAL_DEREF REG2, val_info, TMP1w
- val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG2, 0);
- } else {
- zend_jit_addr ref_addr;
- if (in_cold) {
- | IF_NOT_ZVAL_TYPE val_addr, IS_REFERENCE, >1, ZREG_TMP1
- } else {
- | IF_ZVAL_TYPE val_addr, IS_REFERENCE, >1, ZREG_TMP1
- |.cold_code
- |1:
- }
- if (Z_REG(val_addr) == ZREG_REG2) {
- | str REG2, T1 // save
- }
- | // zend_refcounted *ref = Z_COUNTED_P(retval_ptr);
- | GET_ZVAL_PTR REG2, val_addr, TMP1
- | GC_DELREF REG2, TMP1w
- | // ZVAL_COPY_VALUE(return_value, &ref->val);
- ref_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG2, offsetof(zend_reference, val));
- if (!res_addr) {
- | ZVAL_COPY_VALUE var_addr, var_info, ref_addr, val_info, ZREG_REG2, tmp_reg, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- } else {
- | ZVAL_COPY_VALUE_2 var_addr, var_info, res_addr, ref_addr, val_info, ZREG_REG2, tmp_reg, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- | beq >2 // GC_DELREF() reached zero
- | IF_NOT_REFCOUNTED REG2w, >3, TMP1w
- if (!res_addr) {
- | GC_ADDREF Rx(tmp_reg), TMP1w
- } else {
- | GC_ADDREF_2 Rx(tmp_reg), TMP1w
- }
- | b >3
- |2:
- if (res_addr) {
- | IF_NOT_REFCOUNTED REG2w, >2, TMP1w
- | GC_ADDREF Rx(tmp_reg), TMP1w
- |2:
- }
- if (Z_REG(val_addr) == ZREG_REG2) {
- | ldr REG2, T1 // restore
- }
- if (save_r1) {
- | str FCARG1x, T1 // save
- }
- | GET_ZVAL_PTR FCARG1x, val_addr, TMP1
- | EFREE_REFERENCE
- if (save_r1) {
- | ldr FCARG1x, T1 // restore
- }
- | b >3
- if (in_cold) {
- |1:
- } else {
- |.code
- }
- }
- }
- if (!res_addr) {
- | ZVAL_COPY_VALUE var_addr, var_info, val_addr, val_info, ZREG_REG2, tmp_reg, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- } else {
- | ZVAL_COPY_VALUE_2 var_addr, var_info, res_addr, val_addr, val_info, ZREG_REG2, tmp_reg, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- if (val_type == IS_CV) {
- if (!res_addr) {
- | TRY_ADDREF val_info, REG2w, Rx(tmp_reg), TMP1w
- } else {
- | TRY_ADDREF_2 val_info, REG2w, Rx(tmp_reg), TMP1w
- }
- } else {
- if (res_addr) {
- | TRY_ADDREF val_info, REG2w, Rx(tmp_reg), TMP1w
- }
- }
- |3:
- }
- return 1;
- }
- static int zend_jit_assign_to_typed_ref(dasm_State **Dst,
- const zend_op *opline,
- zend_uchar val_type,
- zend_jit_addr val_addr,
- zend_jit_addr res_addr,
- bool check_exception)
- {
- | // if (UNEXPECTED(ZEND_REF_HAS_TYPE_SOURCES(Z_REF_P(variable_ptr)))) {
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbnz TMP1, >2
- |.cold_code
- |2:
- if (Z_MODE(val_addr) != IS_MEM_ZVAL || Z_REG(val_addr) != ZREG_FCARG2 || Z_OFFSET(val_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG2x, val_addr
- }
- if (opline) {
- | SET_EX_OPLINE opline, REG0
- }
- if (val_type == IS_CONST) {
- | EXT_CALL zend_jit_assign_const_to_typed_ref, REG0
- } else if (val_type == IS_TMP_VAR) {
- | EXT_CALL zend_jit_assign_tmp_to_typed_ref, REG0
- } else if (val_type == IS_VAR) {
- | EXT_CALL zend_jit_assign_var_to_typed_ref, REG0
- } else if (val_type == IS_CV) {
- | EXT_CALL zend_jit_assign_cv_to_typed_ref, REG0
- } else {
- ZEND_UNREACHABLE();
- }
- if (res_addr) {
- zend_jit_addr ret_addr = ZEND_ADDR_MEM_ZVAL(ZREG_X0, 0); // RETVAL
- | ZVAL_COPY_VALUE res_addr, -1, ret_addr, -1, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF -1, REG1w, REG2, TMP1w
- }
- if (check_exception) {
- | // if (UNEXPECTED(EG(exception) != NULL)) {
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbz REG0, >8 // END OF zend_jit_assign_to_variable()
- | b ->exception_handler
- } else {
- | b >8
- }
- |.code
- return 1;
- }
- static int zend_jit_assign_to_variable_call(dasm_State **Dst,
- const zend_op *opline,
- zend_jit_addr __var_use_addr,
- zend_jit_addr var_addr,
- uint32_t __var_info,
- uint32_t __var_def_info,
- zend_uchar val_type,
- zend_jit_addr val_addr,
- uint32_t val_info,
- zend_jit_addr __res_addr,
- bool __check_exception)
- {
- if (val_info & MAY_BE_UNDEF) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_ZVAL_TYPE val_addr, IS_UNDEF, &exit_addr, ZREG_TMP1
- } else {
- | IF_ZVAL_TYPE val_addr, IS_UNDEF, >1, ZREG_TMP1
- |.cold_code
- |1:
- ZEND_ASSERT(Z_REG(val_addr) == ZREG_FP);
- if (Z_REG(var_addr) != ZREG_FP) {
- | str Rx(Z_REG(var_addr)), T1 // save
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, Z_OFFSET(val_addr)
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (Z_REG(var_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(var_addr)), T1 // restore
- }
- if (Z_MODE(var_addr) != IS_MEM_ZVAL || Z_REG(var_addr) != ZREG_FCARG1 || Z_OFFSET(var_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, var_addr
- }
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | bl ->assign_const
- | b >9
- |.code
- |1:
- }
- }
- if (Z_MODE(var_addr) != IS_MEM_ZVAL || Z_REG(var_addr) != ZREG_FCARG1 || Z_OFFSET(var_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, var_addr
- }
- if (Z_MODE(val_addr) != IS_MEM_ZVAL || Z_REG(val_addr) != ZREG_FCARG2 || Z_OFFSET(val_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG2x, val_addr
- }
- if (opline) {
- | SET_EX_OPLINE opline, REG0
- }
- if (!(val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) {
- | bl ->assign_tmp
- } else if (val_type == IS_CONST) {
- | bl ->assign_const
- } else if (val_type == IS_TMP_VAR) {
- | bl ->assign_tmp
- } else if (val_type == IS_VAR) {
- if (!(val_info & MAY_BE_REF)) {
- | bl ->assign_tmp
- } else {
- | bl ->assign_var
- }
- } else if (val_type == IS_CV) {
- if (!(val_info & MAY_BE_REF)) {
- | bl ->assign_cv_noref
- } else {
- | bl ->assign_cv
- }
- if ((val_info & MAY_BE_UNDEF) && JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- |9:
- }
- } else {
- ZEND_UNREACHABLE();
- }
- return 1;
- }
- static int zend_jit_assign_to_variable(dasm_State **Dst,
- const zend_op *opline,
- zend_jit_addr var_use_addr,
- zend_jit_addr var_addr,
- uint32_t var_info,
- uint32_t var_def_info,
- zend_uchar val_type,
- zend_jit_addr val_addr,
- uint32_t val_info,
- zend_jit_addr res_addr,
- bool check_exception)
- /* Labels: 1,2,3,4,5,8 */
- {
- int done = 0;
- zend_reg ref_reg, tmp_reg;
- if (Z_MODE(var_addr) == IS_REG || Z_REG(var_use_addr) != ZREG_REG0) {
- ref_reg = ZREG_FCARG1;
- tmp_reg = ZREG_REG0;
- } else {
- /* ASSIGN_DIM */
- ref_reg = ZREG_REG0;
- tmp_reg = ZREG_FCARG1;
- }
- if (var_info & MAY_BE_REF) {
- if (Z_MODE(var_use_addr) != IS_MEM_ZVAL || Z_REG(var_use_addr) != ref_reg || Z_OFFSET(var_use_addr) != 0) {
- | LOAD_ZVAL_ADDR Rx(ref_reg), var_use_addr
- var_addr = var_use_addr = ZEND_ADDR_MEM_ZVAL(ref_reg, 0);
- }
- | // if (Z_ISREF_P(variable_ptr)) {
- | IF_NOT_Z_TYPE Rx(ref_reg), IS_REFERENCE, >3, TMP1w
- | // if (UNEXPECTED(ZEND_REF_HAS_TYPE_SOURCES(Z_REF_P(variable_ptr)))) {
- | GET_Z_PTR FCARG1x, Rx(ref_reg)
- if (!zend_jit_assign_to_typed_ref(Dst, opline, val_type, val_addr, res_addr, check_exception)) {
- return 0;
- }
- | add Rx(ref_reg), FCARG1x, #offsetof(zend_reference, val)
- |3:
- }
- if (var_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- if (RC_MAY_BE_1(var_info)) {
- int in_cold = 0;
- if (var_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | IF_ZVAL_REFCOUNTED var_use_addr, >1, ZREG_TMP1, ZREG_TMP2
- |.cold_code
- |1:
- in_cold = 1;
- }
- if (Z_REG(var_use_addr) == ZREG_FCARG1 || Z_REG(var_use_addr) == ZREG_REG0) {
- bool keep_gc = 0;
- | GET_ZVAL_PTR Rx(tmp_reg), var_use_addr, TMP1
- #if 0
- // TODO: This optiization doesn't work on ARM
- if (tmp_reg == ZREG_FCARG1) {
- if (Z_MODE(val_addr) == IS_REG) {
- keep_gc = 1;
- } else if ((val_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_GUARD)-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE))) == 0) {
- keep_gc = 1;
- } else if (Z_MODE(val_addr) == IS_CONST_ZVAL) {
- zval *zv = Z_ZV(val_addr);
- if (Z_TYPE_P(zv) == IS_DOUBLE) {
- if (Z_DVAL_P(zv) == 0) {
- keep_gc = 1;
- }
- } else if (IS_SIGNED_32BIT(Z_LVAL_P(zv))) {
- keep_gc = 1;
- }
- } else if (Z_MODE(val_addr) == IS_MEM_ZVAL) {
- if ((val_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_GUARD)) == MAY_BE_DOUBLE) {
- keep_gc = 1;
- }
- }
- }
- #endif
- if (!keep_gc) {
- | str Rx(tmp_reg), T1 // save
- }
- if (!zend_jit_simple_assign(Dst, opline, var_addr, var_info, var_def_info, val_type, val_addr, val_info, res_addr, in_cold, 0)) {
- return 0;
- }
- if (!keep_gc) {
- | ldr FCARG1x, T1 // restore
- }
- } else {
- | GET_ZVAL_PTR FCARG1x, var_use_addr, TMP1
- if (!zend_jit_simple_assign(Dst, opline, var_addr, var_info, var_def_info, val_type, val_addr, val_info, res_addr, in_cold, 1)) {
- return 0;
- }
- }
- | GC_DELREF FCARG1x, TMP1w
- if (RC_MAY_BE_N(var_info) && (var_info & (MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0) {
- | bne >4
- } else {
- | bne >8
- }
- | ZVAL_DTOR_FUNC var_info, opline, TMP1
- if (in_cold || (RC_MAY_BE_N(var_info) && (var_info & (MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0)) {
- if (check_exception) {
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbz REG0, >8
- | b ->exception_handler
- } else {
- | b >8
- }
- }
- if (RC_MAY_BE_N(var_info) && (var_info & (MAY_BE_ARRAY|MAY_BE_OBJECT)) != 0) {
- |4:
- | IF_GC_MAY_NOT_LEAK FCARG1x, >8, TMP1w, TMP2w
- | EXT_CALL gc_possible_root, REG0
- if (in_cold) {
- | b >8
- }
- }
- if (in_cold) {
- |.code
- } else {
- done = 1;
- }
- } else /* if (RC_MAY_BE_N(var_info)) */ {
- if (var_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | IF_NOT_ZVAL_REFCOUNTED var_use_addr, >5, ZREG_TMP1, ZREG_TMP2
- }
- if (var_info & (MAY_BE_ARRAY|MAY_BE_OBJECT)) {
- if (Z_REG(var_use_addr) != ZREG_FP) {
- | str Rx(Z_REG(var_use_addr)), T1 // save
- }
- | GET_ZVAL_PTR FCARG1x, var_use_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- | IF_GC_MAY_NOT_LEAK FCARG1x, >5, TMP1w, TMP2w
- | EXT_CALL gc_possible_root, TMP1
- if (Z_REG(var_use_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(var_use_addr)), T1 // restore
- }
- } else {
- | GET_ZVAL_PTR Rx(tmp_reg), var_use_addr, TMP1
- | GC_DELREF Rx(tmp_reg), TMP1w
- }
- |5:
- }
- }
- if (!done && !zend_jit_simple_assign(Dst, opline, var_addr, var_info, var_def_info, val_type, val_addr, val_info, res_addr, 0, 0)) {
- return 0;
- }
- |8:
- return 1;
- }
- static int zend_jit_assign_dim(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, uint32_t op2_info, uint32_t val_info, uint8_t dim_type, int may_throw)
- {
- zend_jit_addr op2_addr, op3_addr, res_addr;
- op2_addr = (opline->op2_type != IS_UNUSED) ? OP2_ADDR() : 0;
- op3_addr = OP1_DATA_ADDR();
- if (opline->result_type == IS_UNUSED) {
- res_addr = 0;
- } else {
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && (val_info & MAY_BE_UNDEF)) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_ZVAL_TYPE op3_addr, IS_UNDEF, &exit_addr, ZREG_TMP1
- val_info &= ~MAY_BE_UNDEF;
- }
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_REFERENCE, >1, TMP1w
- | GET_Z_PTR FCARG2x, FCARG1x
- | ldrb TMP1w, [FCARG2x, #(offsetof(zend_reference, val) + offsetof(zval, u1.v.type))]
- | cmp TMP1w, #IS_ARRAY
- | bne >2
- | add FCARG1x, FCARG2x, #offsetof(zend_reference, val)
- | b >3
- |.cold_code
- |2:
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_prepare_assign_dim_ref, REG0
- | mov FCARG1x, RETVALx
- | cbnz FCARG1x, >1
- | b ->exception_handler_undef
- |.code
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_ARRAY) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- |3:
- | SEPARATE_ARRAY op1_addr, op1_info, 1, ZREG_TMP1, ZREG_TMP2
- } else if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL)) {
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | CMP_ZVAL_TYPE op1_addr, IS_NULL, ZREG_TMP1
- | bgt >7
- }
- | // ZVAL_ARR(container, zend_new_array(8));
- if (Z_REG(op1_addr) != ZREG_FP) {
- | str Rx(Z_REG(op1_addr)), T1 // save
- }
- | EXT_CALL _zend_new_array_0, REG0
- | mov REG0, RETVALx
- if (Z_REG(op1_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(op1_addr)), T1 // restore
- }
- | SET_ZVAL_LVAL_FROM_REG op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_ARRAY_EX, TMP1w, TMP2
- | mov FCARG1x, REG0
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- |6:
- if (opline->op2_type == IS_UNUSED) {
- uint32_t var_info = MAY_BE_NULL;
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- | // var_ptr = zend_hash_next_index_insert(Z_ARRVAL_P(container), &EG(uninitialized_zval));
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | EXT_CALL zend_hash_next_index_insert, REG0
- | // if (UNEXPECTED(!var_ptr)) {
- | mov REG0, RETVALx
- | cbz REG0, >1
- |.cold_code
- |1:
- | // zend_throw_error(NULL, "Cannot add element to the array as the next element is already occupied");
- | CANNOT_ADD_ELEMENT opline
- | //ZEND_VM_C_GOTO(assign_dim_op_ret_null);
- | b >9
- |.code
- if (!zend_jit_simple_assign(Dst, opline, var_addr, var_info, -1, (opline+1)->op1_type, op3_addr, val_info, res_addr, 0, 0)) {
- return 0;
- }
- } else {
- uint32_t var_info = zend_array_element_type(op1_info, opline->op1_type, 0, 0);
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- if (!zend_jit_fetch_dimension_address_inner(Dst, opline, BP_VAR_W, op1_info, op2_info, dim_type, NULL, NULL, NULL)) {
- return 0;
- }
- if (op1_info & (MAY_BE_ARRAY_OF_REF|MAY_BE_OBJECT)) {
- var_info |= MAY_BE_REF;
- }
- if (var_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- var_info |= MAY_BE_RC1;
- }
- |8:
- | // value = zend_assign_to_variable(variable_ptr, value, OP_DATA_TYPE);
- if (opline->op1_type == IS_VAR) {
- ZEND_ASSERT(opline->result_type == IS_UNUSED);
- if (!zend_jit_assign_to_variable_call(Dst, opline, var_addr, var_addr, var_info, -1, (opline+1)->op1_type, op3_addr, val_info, res_addr, 0)) {
- return 0;
- }
- } else {
- if (!zend_jit_assign_to_variable(Dst, opline, var_addr, var_addr, var_info, -1, (opline+1)->op1_type, op3_addr, val_info, res_addr, 0)) {
- return 0;
- }
- }
- }
- }
- if (((op1_info & MAY_BE_ARRAY) &&
- (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL))) ||
- (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY)))) {
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- |.cold_code
- |7:
- }
- if ((op1_info & (MAY_BE_UNDEF|MAY_BE_NULL)) &&
- (op1_info & MAY_BE_ARRAY)) {
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | CMP_ZVAL_TYPE op1_addr, IS_NULL, ZREG_TMP1
- | bgt >2
- }
- | // ZVAL_ARR(container, zend_new_array(8));
- if (Z_REG(op1_addr) != ZREG_FP) {
- | str Rx(Z_REG(op1_addr)), T1 // save
- }
- | EXT_CALL _zend_new_array_0, REG0
- | mov REG0, RETVALx
- if (Z_REG(op1_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(op1_addr)), T1 // restore
- }
- | SET_ZVAL_LVAL_FROM_REG op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_ARRAY_EX, TMP1w, TMP2
- | mov FCARG1x, REG0
- | // ZEND_VM_C_GOTO(assign_dim_op_new_array);
- | b <6
- |2:
- }
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_UNUSED) {
- | mov FCARG2x, xzr
- } else if (opline->op2_type == IS_CONST && Z_EXTRA_P(RT_CONSTANT(opline, opline->op2)) == ZEND_EXTRA_VALUE) {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_CONST_ZVAL);
- | LOAD_ADDR FCARG2x, (Z_ZV(op2_addr) + 1)
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- if (opline->result_type == IS_UNUSED) {
- | mov CARG4, xzr
- } else {
- | LOAD_ZVAL_ADDR CARG4, res_addr
- }
- | LOAD_ZVAL_ADDR CARG3, op3_addr
- | EXT_CALL zend_jit_assign_dim_helper, REG0
- #ifdef ZEND_JIT_USE_RC_INFERENCE
- if (((opline+1)->op1_type & (IS_TMP_VAR|IS_VAR)) && (val_info & MAY_BE_RC1)) {
- /* ASSIGN_DIM may increase refcount of the value */
- val_info |= MAY_BE_RCN;
- }
- #endif
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, val_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | b >9 // END
- }
- |.code
- }
- }
- #ifdef ZEND_JIT_USE_RC_INFERENCE
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR)) && (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_ARRAY|MAY_BE_OBJECT))) {
- /* ASSIGN_DIM may increase refcount of the key */
- op2_info |= MAY_BE_RCN;
- }
- #endif
- |9:
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- return 1;
- }
- static int zend_jit_assign_dim_op(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, uint32_t op1_def_info, zend_jit_addr op1_addr, uint32_t op2_info, uint32_t op1_data_info, zend_ssa_range *op1_data_range, uint8_t dim_type, int may_throw)
- {
- zend_jit_addr op2_addr, op3_addr, var_addr;
- const void *not_found_exit_addr = NULL;
- uint32_t var_info = MAY_BE_NULL;
- ZEND_ASSERT(opline->result_type == IS_UNUSED);
- op2_addr = (opline->op2_type != IS_UNUSED) ? OP2_ADDR() : 0;
- op3_addr = OP1_DATA_ADDR();
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_REFERENCE, >1, TMP1w
- | GET_Z_PTR FCARG2x, FCARG1x
- | ldrb TMP1w, [FCARG2x, #(offsetof(zend_reference, val) + offsetof(zval, u1.v.type))]
- | cmp TMP1w, #IS_ARRAY
- | bne >2
- | add FCARG1x, FCARG2x, #offsetof(zend_reference, val)
- | b >3
- |.cold_code
- |2:
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_prepare_assign_dim_ref, REG0
- | mov FCARG1x, RETVALx
- | cbnz RETVALx, >1
- | b ->exception_handler_undef
- |.code
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_ARRAY) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- |3:
- | SEPARATE_ARRAY op1_addr, op1_info, 1, ZREG_TMP1, ZREG_TMP2
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL)) {
- if (op1_info & MAY_BE_ARRAY) {
- |.cold_code
- |7:
- }
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | CMP_ZVAL_TYPE op1_addr, IS_NULL, ZREG_TMP1
- | bgt >7
- }
- if (Z_REG(op1_addr) != ZREG_FP) {
- | str Rx(Z_REG(op1_addr)), T1 // save
- }
- if (op1_info & MAY_BE_UNDEF) {
- if (op1_info & MAY_BE_NULL) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1x, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- }
- | // ZVAL_ARR(container, zend_new_array(8));
- | EXT_CALL _zend_new_array_0, REG0
- | mov REG0, RETVALx
- if (Z_REG(op1_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(op1_addr)), T1 // restore
- }
- | SET_ZVAL_LVAL_FROM_REG op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_ARRAY_EX, TMP1w, TMP2
- | mov FCARG1x, REG0
- if (op1_info & MAY_BE_ARRAY) {
- | b >1
- |.code
- |1:
- }
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- uint32_t var_def_info = zend_array_element_type(op1_def_info, opline->op1_type, 1, 0);
- |6:
- if (opline->op2_type == IS_UNUSED) {
- var_info = MAY_BE_NULL;
- | // var_ptr = zend_hash_next_index_insert(Z_ARRVAL_P(container), &EG(uninitialized_zval));
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | EXT_CALL zend_hash_next_index_insert, REG0
- | mov REG0, RETVALx
- | // if (UNEXPECTED(!var_ptr)) {
- | cbz REG0, >1
- |.cold_code
- |1:
- | // zend_throw_error(NULL, "Cannot add element to the array as the next element is already occupied");
- | CANNOT_ADD_ELEMENT opline
- | //ZEND_VM_C_GOTO(assign_dim_op_ret_null);
- | b >9
- |.code
- } else {
- var_info = zend_array_element_type(op1_info, opline->op1_type, 0, 0);
- if (op1_info & (MAY_BE_ARRAY_OF_REF|MAY_BE_OBJECT)) {
- var_info |= MAY_BE_REF;
- }
- if (var_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- var_info |= MAY_BE_RC1;
- }
- if (dim_type != IS_UNKNOWN
- && dim_type != IS_UNDEF
- && (op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_ARRAY
- && (op2_info & (MAY_BE_LONG|MAY_BE_STRING))
- && !(op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING)))) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- not_found_exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!not_found_exit_addr) {
- return 0;
- }
- }
- if (!zend_jit_fetch_dimension_address_inner(Dst, opline, BP_VAR_RW, op1_info, op2_info, dim_type, NULL, not_found_exit_addr, NULL)) {
- return 0;
- }
- |8:
- if (not_found_exit_addr && dim_type != IS_REFERENCE) {
- | IF_NOT_Z_TYPE, REG0, dim_type, ¬_found_exit_addr, TMP1w
- var_info = (1 << dim_type) | (var_info & ~(MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF));
- }
- if (var_info & MAY_BE_REF) {
- binary_op_type binary_op = get_binary_op(opline->extended_value);
- | IF_NOT_Z_TYPE, REG0, IS_REFERENCE, >1, TMP1w
- | GET_Z_PTR FCARG1x, REG0
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbnz TMP1, >2
- | add REG0, FCARG1x, #offsetof(zend_reference, val)
- |.cold_code
- |2:
- | LOAD_ZVAL_ADDR FCARG2x, op3_addr
- | LOAD_ADDR CARG3, binary_op
- | SET_EX_OPLINE opline, REG0
- if (((opline+1)->op1_type & (IS_TMP_VAR|IS_VAR))
- && (op1_data_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | EXT_CALL zend_jit_assign_op_to_typed_ref_tmp, REG0
- } else {
- | EXT_CALL zend_jit_assign_op_to_typed_ref, REG0
- }
- | b >9
- |.code
- |1:
- }
- }
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- switch (opline->extended_value) {
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- case ZEND_DIV:
- if (!zend_jit_math_helper(Dst, opline, opline->extended_value, IS_CV, opline->op1, var_addr, var_info, (opline+1)->op1_type, (opline+1)->op1, op3_addr, op1_data_info, 0, var_addr, var_def_info, var_info,
- 1 /* may overflow */, may_throw)) {
- return 0;
- }
- break;
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- case ZEND_SL:
- case ZEND_SR:
- case ZEND_MOD:
- if (!zend_jit_long_math_helper(Dst, opline, opline->extended_value,
- IS_CV, opline->op1, var_addr, var_info, NULL,
- (opline+1)->op1_type, (opline+1)->op1, op3_addr, op1_data_info,
- op1_data_range,
- 0, var_addr, var_def_info, var_info, may_throw)) {
- return 0;
- }
- break;
- case ZEND_CONCAT:
- if (!zend_jit_concat_helper(Dst, opline, IS_CV, opline->op1, var_addr, var_info, (opline+1)->op1_type, (opline+1)->op1, op3_addr, op1_data_info, var_addr,
- may_throw)) {
- return 0;
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- binary_op_type binary_op;
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- |.cold_code
- |7:
- }
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_UNUSED) {
- | mov FCARG2x, xzr
- } else if (opline->op2_type == IS_CONST && Z_EXTRA_P(RT_CONSTANT(opline, opline->op2)) == ZEND_EXTRA_VALUE) {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_CONST_ZVAL);
- | LOAD_ADDR FCARG2x, (Z_ZV(op2_addr) + 1)
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- binary_op = get_binary_op(opline->extended_value);
- | LOAD_ZVAL_ADDR CARG3, op3_addr
- | LOAD_ADDR CARG4, binary_op
- | EXT_CALL zend_jit_assign_dim_op_helper, REG0
- |9:
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, op1_data_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- | b >9 // END
- |.code
- |9:
- }
- } else if ((op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY))
- && (!not_found_exit_addr || (var_info & MAY_BE_REF))) {
- |.cold_code
- |9:
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, op1_data_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- | b >9
- |.code
- |9:
- }
- return 1;
- }
- static int zend_jit_assign_op(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, uint32_t op1_def_info, zend_ssa_range *op1_range, uint32_t op2_info, zend_ssa_range *op2_range, int may_overflow, int may_throw)
- {
- zend_jit_addr op1_addr, op2_addr;
- ZEND_ASSERT(opline->op1_type == IS_CV && opline->result_type == IS_UNUSED);
- ZEND_ASSERT(!(op1_info & MAY_BE_UNDEF) && !(op2_info & MAY_BE_UNDEF));
- op1_addr = OP1_ADDR();
- op2_addr = OP2_ADDR();
- if (op1_info & MAY_BE_REF) {
- binary_op_type binary_op = get_binary_op(opline->extended_value);
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE, FCARG1x, IS_REFERENCE, >1, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbnz TMP1, >2
- | add FCARG1x, FCARG1x, #offsetof(zend_reference, val)
- |.cold_code
- |2:
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | LOAD_ADDR CARG3, binary_op
- | SET_EX_OPLINE opline, REG0
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR))
- && (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | EXT_CALL zend_jit_assign_op_to_typed_ref_tmp, REG0
- } else {
- | EXT_CALL zend_jit_assign_op_to_typed_ref, REG0
- }
- zend_jit_check_exception(Dst);
- | b >9
- |.code
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- int result;
- switch (opline->extended_value) {
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- case ZEND_DIV:
- result = zend_jit_math_helper(Dst, opline, opline->extended_value, opline->op1_type, opline->op1, op1_addr, op1_info, opline->op2_type, opline->op2, op2_addr, op2_info, opline->op1.var, op1_addr, op1_def_info, op1_info, may_overflow, may_throw);
- break;
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- case ZEND_SL:
- case ZEND_SR:
- case ZEND_MOD:
- result = zend_jit_long_math_helper(Dst, opline, opline->extended_value,
- opline->op1_type, opline->op1, op1_addr, op1_info, op1_range,
- opline->op2_type, opline->op2, op2_addr, op2_info, op2_range,
- opline->op1.var, op1_addr, op1_def_info, op1_info, may_throw);
- break;
- case ZEND_CONCAT:
- result = zend_jit_concat_helper(Dst, opline, opline->op1_type, opline->op1, op1_addr, op1_info, opline->op2_type, opline->op2, op2_addr, op2_info, op1_addr, may_throw);
- break;
- default:
- ZEND_UNREACHABLE();
- }
- |9:
- return result;
- }
- static int zend_jit_cmp_long_long(dasm_State **Dst,
- const zend_op *opline,
- zend_ssa_range *op1_range,
- zend_jit_addr op1_addr,
- zend_ssa_range *op2_range,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- zend_uchar smart_branch_opcode,
- uint32_t target_label,
- uint32_t target_label2,
- const void *exit_addr,
- bool skip_comparison)
- {
- bool swap = 0;
- bool result;
- if (zend_jit_is_constant_cmp_long_long(opline, op1_range, op1_addr, op2_range, op2_addr, &result)) {
- if (!smart_branch_opcode ||
- smart_branch_opcode == ZEND_JMPZ_EX ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- | SET_ZVAL_TYPE_INFO res_addr, (result ? IS_TRUE : IS_FALSE), TMP1w, TMP2
- }
- if (smart_branch_opcode && !exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ ||
- smart_branch_opcode == ZEND_JMPZ_EX) {
- if (!result) {
- | b => target_label
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- if (result) {
- | b => target_label
- }
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- if (!result) {
- | b => target_label
- } else {
- | b => target_label2
- }
- } else {
- ZEND_UNREACHABLE();
- }
- }
- return 1;
- }
- if (skip_comparison) {
- if (Z_MODE(op1_addr) != IS_REG &&
- (Z_MODE(op2_addr) == IS_REG ||
- (Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_MODE(op2_addr) != IS_CONST_ZVAL))) {
- swap = 1;
- }
- } else if (Z_MODE(op1_addr) == IS_REG) {
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL && Z_LVAL_P(Z_ZV(op2_addr)) == 0) {
- | cmp Rx(Z_REG(op1_addr)), xzr
- } else {
- | LONG_CMP Z_REG(op1_addr), op2_addr, TMP1
- }
- } else if (Z_MODE(op2_addr) == IS_REG) {
- if (Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_LVAL_P(Z_ZV(op1_addr)) == 0) {
- | cmp Rx(Z_REG(op2_addr)), xzr
- } else {
- | LONG_CMP Z_REG(op2_addr), op1_addr, TMP1
- }
- swap = 1;
- } else if (Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_MODE(op2_addr) != IS_CONST_ZVAL) {
- | LONG_CMP_WITH_CONST op2_addr, Z_LVAL_P(Z_ZV(op1_addr)), TMP1, TMP2
- swap = 1;
- } else if (Z_MODE(op2_addr) == IS_CONST_ZVAL && Z_MODE(op1_addr) != IS_CONST_ZVAL) {
- | LONG_CMP_WITH_CONST op1_addr, Z_LVAL_P(Z_ZV(op2_addr)), TMP1, TMP2
- } else {
- | GET_ZVAL_LVAL ZREG_REG0, op1_addr, TMP1
- if (Z_MODE(op2_addr) == IS_CONST_ZVAL && Z_LVAL_P(Z_ZV(op2_addr)) == 0) {
- | cmp Rx(ZREG_REG0), xzr
- } else {
- | LONG_CMP ZREG_REG0, op2_addr, TMP1
- }
- }
- if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ_EX ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | cset REG0w, eq
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | cset REG0w, ne
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | cset REG0w, gt
- } else {
- | cset REG0w, lt
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | cset REG0w, ge
- } else {
- | cset REG0w, le
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if (smart_branch_opcode == ZEND_JMPZ ||
- smart_branch_opcode == ZEND_JMPZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_NOT_EQUAL:
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- break;
- case ZEND_IS_NOT_IDENTICAL:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | beq => target_label
- }
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- if (exit_addr) {
- | ble &exit_addr
- } else {
- | ble => target_label
- }
- } else {
- if (exit_addr) {
- | bge &exit_addr
- } else {
- | bge => target_label
- }
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- if (exit_addr) {
- | blt &exit_addr
- } else {
- | blt => target_label
- }
- } else {
- if (exit_addr) {
- | bgt &exit_addr
- } else {
- | bgt => target_label
- }
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- break;
- case ZEND_IS_NOT_EQUAL:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_NOT_IDENTICAL:
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- if (exit_addr) {
- | bgt &exit_addr
- } else {
- | bgt => target_label
- }
- } else {
- if (exit_addr) {
- | blt &exit_addr
- } else {
- | blt => target_label
- }
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- if (exit_addr) {
- | bge &exit_addr
- } else {
- | bge => target_label
- }
- } else {
- if (exit_addr) {
- | ble &exit_addr
- } else {
- | ble => target_label
- }
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | bne => target_label
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | beq => target_label
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | ble => target_label
- } else {
- | bge => target_label
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | blt => target_label
- } else {
- | bgt => target_label
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | b => target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | cset REG0w, eq
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | cset REG0w, ne
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | cset REG0w, gt
- } else {
- | cset REG0w, lt
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | cset REG0w, ge
- } else {
- | cset REG0w, le
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- return 1;
- }
- static int zend_jit_cmp_double_common(dasm_State **Dst, const zend_op *opline, zend_jit_addr res_addr, bool swap, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_NOT_EQUAL:
- | bvs >1
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- |1:
- break;
- case ZEND_IS_NOT_IDENTICAL:
- if (exit_addr) {
- | bvs &exit_addr
- | bne &exit_addr
- } else {
- | bvs >1
- | beq => target_label
- |1:
- }
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- if (exit_addr) {
- | bvs &exit_addr
- | bls &exit_addr
- } else {
- | bvs => target_label
- | bls => target_label
- }
- } else {
- if (exit_addr) {
- | bhs &exit_addr
- } else {
- | bhs => target_label
- }
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- if (exit_addr) {
- | bvs &exit_addr
- | blo &exit_addr
- } else {
- | bvs => target_label
- | blo => target_label
- }
- } else {
- if (exit_addr) {
- | bhi &exit_addr
- } else {
- | bhi => target_label
- }
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | bvs >1
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- |1:
- break;
- case ZEND_IS_NOT_EQUAL:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_NOT_IDENTICAL:
- if (exit_addr) {
- | bvs >1
- | beq &exit_addr
- |1:
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | bvs >1 // Always False if involving NaN
- if (exit_addr) {
- | bhi &exit_addr
- } else {
- | bhi => target_label
- }
- |1:
- } else {
- | bvs >1
- if (exit_addr) {
- | blo &exit_addr
- } else {
- | blo => target_label
- }
- |1:
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | bvs >1 // Always False if involving NaN
- if (exit_addr) {
- | bhs &exit_addr
- } else {
- | bhs => target_label
- }
- |1:
- } else {
- | bvs >1
- if (exit_addr) {
- | bls &exit_addr
- } else {
- | bls => target_label
- }
- |1:
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | bne => target_label
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | bvs => target_label2
- | beq => target_label
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | bvs => target_label
- | bls => target_label
- } else {
- | bhs => target_label
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | bvs => target_label
- | blo => target_label
- } else {
- | bhi => target_label
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | b => target_label2
- } else if (smart_branch_opcode == ZEND_JMPZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | bne => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | beq => target_label
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | bvs => target_label
- | bls => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | bhs => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | bvs => target_label
- | blo => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | bhi => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | beq => target_label
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | bvs => target_label
- | bne => target_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- break;
- case ZEND_IS_SMALLER:
- if (swap) {
- | cset REG0w, hi
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- | bvs >1 // Always False if involving NaN
- | bhi => target_label
- |1:
- } else {
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | blo => target_label
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (swap) {
- | cset REG0w, hs
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- | bvs >1 // Always False if involving NaN
- | bhs => target_label
- |1:
- } else {
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | bls => target_label
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_CASE:
- case ZEND_CASE_STRICT:
- | bvs >1
- | mov REG0, #IS_TRUE
- | beq >2
- |1:
- | mov REG0, #IS_FALSE
- |2:
- break;
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_NOT_IDENTICAL:
- | bvs >1
- | mov REG0, #IS_FALSE
- | beq >2
- |1:
- | mov REG0, #IS_TRUE
- |2:
- break;
- case ZEND_IS_SMALLER:
- | bvs >1
- | mov REG0, #IS_TRUE
- || if (swap) {
- | bhi >2
- || } else {
- | blo >2
- || }
- |1:
- | mov REG0, #IS_FALSE
- |2:
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- | bvs >1
- | mov REG0, #IS_TRUE
- || if (swap) {
- | bhs >2
- || } else {
- | bls >2
- || }
- |1:
- | mov REG0, #IS_FALSE
- |2:
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- return 1;
- }
- static int zend_jit_cmp_long_double(dasm_State **Dst, const zend_op *opline, zend_jit_addr op1_addr, zend_jit_addr op2_addr, zend_jit_addr res_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- zend_reg tmp_reg = ZREG_FPR0;
- | DOUBLE_GET_ZVAL_LVAL tmp_reg, op1_addr, ZREG_REG0, ZREG_TMP1
- | DOUBLE_CMP tmp_reg, op2_addr, ZREG_TMP1, ZREG_FPTMP
- return zend_jit_cmp_double_common(Dst, opline, res_addr, 0, smart_branch_opcode, target_label, target_label2, exit_addr);
- }
- static int zend_jit_cmp_double_long(dasm_State **Dst, const zend_op *opline, zend_jit_addr op1_addr, zend_jit_addr op2_addr, zend_jit_addr res_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- zend_reg tmp_reg = ZREG_FPR0;
- | DOUBLE_GET_ZVAL_LVAL tmp_reg, op2_addr, ZREG_REG0, ZREG_TMP1
- | DOUBLE_CMP tmp_reg, op1_addr, ZREG_TMP1, ZREG_FPTMP
- return zend_jit_cmp_double_common(Dst, opline, res_addr, /* swap */ 1, smart_branch_opcode, target_label, target_label2, exit_addr);
- }
- static int zend_jit_cmp_double_double(dasm_State **Dst, const zend_op *opline, zend_jit_addr op1_addr, zend_jit_addr op2_addr, zend_jit_addr res_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- bool swap = 0;
- if (Z_MODE(op1_addr) == IS_REG) {
- | DOUBLE_CMP Z_REG(op1_addr), op2_addr, ZREG_TMP1, ZREG_FPTMP
- } else if (Z_MODE(op2_addr) == IS_REG) {
- | DOUBLE_CMP Z_REG(op2_addr), op1_addr, ZREG_TMP1, ZREG_FPTMP
- swap = 1;
- } else {
- zend_reg tmp_reg = ZREG_FPR0;
- | GET_ZVAL_DVAL tmp_reg, op1_addr, ZREG_TMP1
- | DOUBLE_CMP tmp_reg, op2_addr, ZREG_TMP1, ZREG_FPTMP
- }
- return zend_jit_cmp_double_common(Dst, opline, res_addr, swap, smart_branch_opcode, target_label, target_label2, exit_addr);
- }
- static int zend_jit_cmp_slow(dasm_State **Dst, const zend_op *opline, zend_jit_addr res_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- | tst RETVALw, RETVALw
- if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ_EX ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_CASE:
- | cset REG0w, eq
- break;
- case ZEND_IS_NOT_EQUAL:
- | cset REG0w, ne
- break;
- case ZEND_IS_SMALLER:
- | cset REG0w, lt
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- | cset REG0w, le
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if (smart_branch_opcode == ZEND_JMPZ ||
- smart_branch_opcode == ZEND_JMPZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_CASE:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_NOT_EQUAL:
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- break;
- case ZEND_IS_SMALLER:
- if (exit_addr) {
- | bge &exit_addr
- } else {
- | bge => target_label
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (exit_addr) {
- | bgt &exit_addr
- } else {
- | bgt => target_label
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ ||
- smart_branch_opcode == ZEND_JMPNZ_EX) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_CASE:
- if (exit_addr) {
- | beq &exit_addr
- } else {
- | beq => target_label
- }
- break;
- case ZEND_IS_NOT_EQUAL:
- if (exit_addr) {
- | bne &exit_addr
- } else {
- | bne => target_label
- }
- break;
- case ZEND_IS_SMALLER:
- if (exit_addr) {
- | blt &exit_addr
- } else {
- | blt => target_label
- }
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- if (exit_addr) {
- | ble &exit_addr
- } else {
- | ble => target_label
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_CASE:
- | bne => target_label
- break;
- case ZEND_IS_NOT_EQUAL:
- | beq => target_label
- break;
- case ZEND_IS_SMALLER:
- | bge => target_label
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- | bgt => target_label
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | b => target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- switch (opline->opcode) {
- case ZEND_IS_EQUAL:
- case ZEND_CASE:
- | cset REG0w, eq
- break;
- case ZEND_IS_NOT_EQUAL:
- | cset REG0w, ne
- break;
- case ZEND_IS_SMALLER:
- | cset REG0w, lt
- break;
- case ZEND_IS_SMALLER_OR_EQUAL:
- | cset REG0w, le
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- return 1;
- }
- static int zend_jit_cmp(dasm_State **Dst,
- const zend_op *opline,
- uint32_t op1_info,
- zend_ssa_range *op1_range,
- zend_jit_addr op1_addr,
- uint32_t op2_info,
- zend_ssa_range *op2_range,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- int may_throw,
- zend_uchar smart_branch_opcode,
- uint32_t target_label,
- uint32_t target_label2,
- const void *exit_addr,
- bool skip_comparison)
- {
- bool same_ops = (opline->op1_type == opline->op2_type) && (opline->op1.var == opline->op2.var);
- bool has_slow;
- has_slow =
- (op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE)) &&
- ((op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) ||
- (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))));
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_LONG)) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) {
- if (op1_info & MAY_BE_DOUBLE) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >4, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >9, ZREG_TMP1
- }
- }
- if (!same_ops && (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG))) {
- if (op2_info & MAY_BE_DOUBLE) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >3, ZREG_TMP1
- |.cold_code
- |3:
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- if (!zend_jit_cmp_long_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- | b >6
- |.code
- } else {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >9, ZREG_TMP1
- }
- }
- if (!zend_jit_cmp_long_long(Dst, opline, op1_range, op1_addr, op2_range, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr, skip_comparison)) {
- return 0;
- }
- if (op1_info & MAY_BE_DOUBLE) {
- |.cold_code
- |4:
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- if (op2_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_DOUBLE))) {
- if (!same_ops) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >5, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- }
- if (!zend_jit_cmp_double_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- | b >6
- }
- if (!same_ops) {
- |5:
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >9, ZREG_TMP1
- }
- if (!zend_jit_cmp_double_long(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- | b >6
- }
- |.code
- }
- } else if ((op1_info & MAY_BE_DOUBLE) &&
- !(op1_info & MAY_BE_LONG) &&
- (op2_info & (MAY_BE_LONG|MAY_BE_DOUBLE))) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_DOUBLE)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- if (op2_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_DOUBLE))) {
- if (!same_ops && (op2_info & MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- }
- if (!zend_jit_cmp_double_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- }
- if (!same_ops && (op2_info & MAY_BE_LONG)) {
- if (op2_info & MAY_BE_DOUBLE) {
- |.cold_code
- }
- |3:
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_DOUBLE|MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_LONG, >9, ZREG_TMP1
- }
- if (!zend_jit_cmp_double_long(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- if (op2_info & MAY_BE_DOUBLE) {
- | b >6
- |.code
- }
- }
- } else if ((op2_info & MAY_BE_DOUBLE) &&
- !(op2_info & MAY_BE_LONG) &&
- (op1_info & (MAY_BE_LONG|MAY_BE_DOUBLE))) {
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_DOUBLE)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- if (op1_info & MAY_BE_DOUBLE) {
- if (!same_ops && (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_DOUBLE))) {
- if (!same_ops && (op1_info & MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_DOUBLE, >9, ZREG_TMP1
- }
- }
- if (!zend_jit_cmp_double_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- }
- if (!same_ops && (op1_info & MAY_BE_LONG)) {
- if (op1_info & MAY_BE_DOUBLE) {
- |.cold_code
- }
- |3:
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_DOUBLE|MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >9, ZREG_TMP1
- }
- if (!zend_jit_cmp_long_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- if (op1_info & MAY_BE_DOUBLE) {
- | b >6
- |.code
- }
- }
- }
- if (has_slow ||
- (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) ||
- (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- if (has_slow) {
- |.cold_code
- |9:
- }
- | SET_EX_OPLINE opline, REG0
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- if (Z_MODE(op2_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op2.var);
- if (!zend_jit_spill_store(Dst, op2_addr, real_addr, op2_info, 1)) {
- return 0;
- }
- op2_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- if (opline->op1_type == IS_CV && (op1_info & MAY_BE_UNDEF)) {
- | IF_NOT_Z_TYPE FCARG1x, IS_UNDEF, >1, TMP1w
- | LOAD_32BIT_VAL FCARG1x, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | LOAD_ADDR_ZTS FCARG1x, executor_globals, uninitialized_zval
- |1:
- }
- if (opline->op2_type == IS_CV && (op2_info & MAY_BE_UNDEF)) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_UNDEF, >1, ZREG_TMP1
- | str FCARG1x, T1 // save
- | LOAD_32BIT_VAL FCARG1x, opline->op2.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | ldr FCARG1x, T1 // restore
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | b >2
- |1:
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- |2:
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- | EXT_CALL zend_compare, REG0
- if ((opline->opcode != ZEND_CASE &&
- (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) ||
- ((opline->op2_type & (IS_VAR|IS_TMP_VAR)) &&
- (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)))) {
- | str RETVALw, T1 // save
- if (opline->opcode != ZEND_CASE) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- }
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- | ldr RETVALw, T1 // restore
- }
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- if (!zend_jit_cmp_slow(Dst, opline, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- if (has_slow) {
- | b >6
- |.code
- }
- }
- |6:
- return 1;
- }
- static int zend_jit_identical(dasm_State **Dst,
- const zend_op *opline,
- uint32_t op1_info,
- zend_ssa_range *op1_range,
- zend_jit_addr op1_addr,
- uint32_t op2_info,
- zend_ssa_range *op2_range,
- zend_jit_addr op2_addr,
- zend_jit_addr res_addr,
- int may_throw,
- zend_uchar smart_branch_opcode,
- uint32_t target_label,
- uint32_t target_label2,
- const void *exit_addr,
- bool skip_comparison)
- {
- uint32_t identical_label = (uint32_t)-1;
- uint32_t not_identical_label = (uint32_t)-1;
- if (smart_branch_opcode && !exit_addr) {
- if (opline->opcode != ZEND_IS_NOT_IDENTICAL) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- not_identical_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- identical_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- not_identical_label = target_label;
- identical_label = target_label2;
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- if (smart_branch_opcode == ZEND_JMPZ) {
- identical_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- not_identical_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- identical_label = target_label;
- not_identical_label = target_label2;
- } else {
- ZEND_UNREACHABLE();
- }
- }
- }
- if ((op1_info & (MAY_BE_REF|MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_LONG &&
- (op2_info & (MAY_BE_REF|MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_LONG) {
- if (!zend_jit_cmp_long_long(Dst, opline, op1_range, op1_addr, op2_range, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr, skip_comparison)) {
- return 0;
- }
- return 1;
- } else if ((op1_info & (MAY_BE_REF|MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_DOUBLE &&
- (op2_info & (MAY_BE_REF|MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_DOUBLE) {
- if (!zend_jit_cmp_double_double(Dst, opline, op1_addr, op2_addr, res_addr, smart_branch_opcode, target_label, target_label2, exit_addr)) {
- return 0;
- }
- return 1;
- }
- if ((op1_info & MAY_BE_UNDEF) && (op2_info & MAY_BE_UNDEF)) {
- op1_info |= MAY_BE_NULL;
- op2_info |= MAY_BE_NULL;
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_Z_TYPE FCARG1x, IS_UNDEF, >1, TMP1w
- |.cold_code
- |1:
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- | LOAD_ADDR_ZTS FCARG1x, executor_globals, uninitialized_zval
- | b >1
- |.code
- |1:
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | IF_Z_TYPE FCARG2x, IS_UNDEF, >1, TMP1w
- |.cold_code
- |1:
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | SET_EX_OPLINE opline, REG0
- | str FCARG1x, T1 // save
- | LOAD_32BIT_VAL FCARG1w, opline->op2.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- | ldr FCARG1x, T1 // restore
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | b >1
- |.code
- |1:
- } else if (op1_info & MAY_BE_UNDEF) {
- op1_info |= MAY_BE_NULL;
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_Z_TYPE FCARG1x, IS_UNDEF, >1, TMP1w
- |.cold_code
- |1:
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- | LOAD_ADDR_ZTS FCARG1x, executor_globals, uninitialized_zval
- | b >1
- |.code
- |1:
- if (opline->op2_type != IS_CONST) {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- } else if (op2_info & MAY_BE_UNDEF) {
- op2_info |= MAY_BE_NULL;
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | IF_Z_TYPE FCARG2x, IS_UNDEF, >1, TMP1w
- |.cold_code
- |1:
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op2.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | b >1
- |.code
- |1:
- if (opline->op1_type != IS_CONST) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- } else if ((op1_info & op2_info & MAY_BE_ANY) != 0) {
- if (opline->op1_type != IS_CONST) {
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, real_addr, op1_info, 1)) {
- return 0;
- }
- op1_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type != IS_CONST) {
- if (Z_MODE(op2_addr) == IS_REG) {
- zend_jit_addr real_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op2.var);
- if (!zend_jit_spill_store(Dst, op2_addr, real_addr, op2_info, 1)) {
- return 0;
- }
- op2_addr = real_addr;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- }
- if ((op1_info & op2_info & MAY_BE_ANY) == 0) {
- if ((opline->opcode != ZEND_CASE_STRICT &&
- (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) ||
- ((opline->op2_type & (IS_VAR|IS_TMP_VAR)) &&
- (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)))) {
- if (opline->opcode != ZEND_CASE_STRICT) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- | FREE_OP opline->op2_type, opline->op2, op2_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (smart_branch_opcode) {
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (not_identical_label != (uint32_t)-1) {
- | b =>not_identical_label
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, (opline->opcode != ZEND_IS_NOT_IDENTICAL ? IS_FALSE : IS_TRUE), TMP1w, TMP2
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- }
- return 1;
- }
- if (opline->op1_type & (IS_CV|IS_VAR)) {
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- }
- if (opline->op2_type & (IS_CV|IS_VAR)) {
- | ZVAL_DEREF FCARG2x, op2_info, TMP1w
- }
- if (has_concrete_type(op1_info)
- && has_concrete_type(op2_info)
- && concrete_type(op1_info) == concrete_type(op2_info)
- && concrete_type(op1_info) <= IS_TRUE) {
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- }
- } else if (identical_label != (uint32_t)-1) {
- | b =>identical_label
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, (opline->opcode != ZEND_IS_NOT_IDENTICAL ? IS_TRUE : IS_FALSE), TMP1w, TMP2
- }
- } else if (Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_MODE(op2_addr) == IS_CONST_ZVAL) {
- if (zend_is_identical(Z_ZV(op1_addr), Z_ZV(op2_addr))) {
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- }
- } else if (identical_label != (uint32_t)-1) {
- | b =>identical_label
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, (opline->opcode != ZEND_IS_NOT_IDENTICAL ? IS_TRUE : IS_FALSE), TMP1w, TMP2
- }
- } else {
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (not_identical_label != (uint32_t)-1) {
- | b =>not_identical_label
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, (opline->opcode != ZEND_IS_NOT_IDENTICAL ? IS_FALSE : IS_TRUE), TMP1w, TMP2
- }
- }
- } else if (Z_MODE(op1_addr) == IS_CONST_ZVAL && Z_TYPE_P(Z_ZV(op1_addr)) <= IS_TRUE) {
- zval *val = Z_ZV(op1_addr);
- | ldrb TMP1w, [FCARG2x, #offsetof(zval, u1.v.type)]
- | cmp TMP1w, #Z_TYPE_P(val)
- if (smart_branch_opcode) {
- if (opline->op2_type == IS_VAR && (op2_info & MAY_BE_REF)) {
- | bne >8
- | FREE_OP opline->op2_type, opline->op2, op2_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- if (exit_addr && smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- } else if (identical_label != (uint32_t)-1) {
- | b =>identical_label
- } else {
- | b >9
- }
- |8:
- } else if (exit_addr && smart_branch_opcode == ZEND_JMPNZ) {
- | beq &exit_addr
- } else if (identical_label != (uint32_t)-1) {
- | beq =>identical_label
- } else {
- | beq >9
- }
- } else {
- if (opline->opcode != ZEND_IS_NOT_IDENTICAL) {
- | cset REG0w, eq
- } else {
- | cset REG0w, ne
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if ((opline->op2_type & (IS_VAR|IS_TMP_VAR)) &&
- (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) {
- | FREE_OP opline->op2_type, opline->op2, op2_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- }
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (smart_branch_opcode && not_identical_label != (uint32_t)-1) {
- | b =>not_identical_label
- }
- } else if (Z_MODE(op2_addr) == IS_CONST_ZVAL && Z_TYPE_P(Z_ZV(op2_addr)) <= IS_TRUE) {
- zval *val = Z_ZV(op2_addr);
- | ldrb TMP1w, [FCARG1x, #offsetof(zval, u1.v.type)]
- | cmp TMP1w, #Z_TYPE_P(val)
- if (smart_branch_opcode) {
- if (opline->opcode != ZEND_CASE_STRICT
- && opline->op1_type == IS_VAR && (op1_info & MAY_BE_REF)) {
- | bne >8
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- if (exit_addr && smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- } else if (identical_label != (uint32_t)-1) {
- | b =>identical_label
- } else {
- | b >9
- }
- |8:
- } else if (exit_addr && smart_branch_opcode == ZEND_JMPNZ) {
- | beq &exit_addr
- } else if (identical_label != (uint32_t)-1) {
- | beq =>identical_label
- } else {
- | beq >9
- }
- } else {
- if (opline->opcode != ZEND_IS_NOT_IDENTICAL) {
- | cset REG0w, eq
- } else {
- | cset REG0w, ne
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if (opline->opcode != ZEND_CASE_STRICT
- && (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- }
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (not_identical_label != (uint32_t)-1) {
- | b =>not_identical_label
- }
- }
- } else {
- if (opline->op1_type == IS_CONST) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_CONST) {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- | EXT_CALL zend_is_identical, REG0
- if ((opline->opcode != ZEND_CASE_STRICT &&
- (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) ||
- ((opline->op2_type & (IS_VAR|IS_TMP_VAR)) &&
- (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)))) {
- | str RETVALw, T1 // save
- if (opline->opcode != ZEND_CASE_STRICT) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- | FREE_OP opline->op2_type, opline->op2, op2_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- zend_jit_check_exception_undef_result(Dst, opline);
- }
- | ldr RETVALw, T1 // restore
- }
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | cbnz RETVALw, &exit_addr
- } else {
- | cbz RETVALw, &exit_addr
- }
- } else if (not_identical_label != (uint32_t)-1) {
- | cbz RETVALw, =>not_identical_label
- if (identical_label != (uint32_t)-1) {
- | b =>identical_label
- }
- } else if (identical_label != (uint32_t)-1) {
- | cbnz RETVALw, =>identical_label
- }
- } else {
- if (opline->opcode != ZEND_IS_NOT_IDENTICAL) {
- | add RETVALw, RETVALw, #2
- } else {
- | neg RETVALw, RETVALw
- | add RETVALw, RETVALw, #3
- }
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, RETVALw, TMP1
- }
- }
- |9:
- if (may_throw) {
- zend_jit_check_exception(Dst);
- }
- return 1;
- }
- static int zend_jit_bool_jmpznz(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_jit_addr res_addr, uint32_t target_label, uint32_t target_label2, int may_throw, zend_uchar branch_opcode, const void *exit_addr)
- {
- uint32_t true_label = -1;
- uint32_t false_label = -1;
- bool set_bool = 0;
- bool set_bool_not = 0;
- bool set_delayed = 0;
- bool jmp_done = 0;
- if (branch_opcode == ZEND_BOOL) {
- set_bool = 1;
- } else if (branch_opcode == ZEND_BOOL_NOT) {
- set_bool = 1;
- set_bool_not = 1;
- } else if (branch_opcode == ZEND_JMPZ) {
- false_label = target_label;
- } else if (branch_opcode == ZEND_JMPNZ) {
- true_label = target_label;
- } else if (branch_opcode == ZEND_JMPZNZ) {
- true_label = target_label2;
- false_label = target_label;
- } else if (branch_opcode == ZEND_JMPZ_EX) {
- set_bool = 1;
- false_label = target_label;
- } else if (branch_opcode == ZEND_JMPNZ_EX) {
- set_bool = 1;
- true_label = target_label;
- } else {
- ZEND_UNREACHABLE();
- }
- if (Z_MODE(op1_addr) == IS_CONST_ZVAL) {
- if (zend_is_true(Z_ZV(op1_addr))) {
- /* Always TRUE */
- if (set_bool) {
- if (set_bool_not) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- }
- if (true_label != (uint32_t)-1) {
- | b =>true_label
- }
- } else {
- /* Always FALSE */
- if (set_bool) {
- if (set_bool_not) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- }
- if (false_label != (uint32_t)-1) {
- | b =>false_label
- }
- }
- return 1;
- }
- if (opline->op1_type == IS_CV && (op1_info & MAY_BE_REF)) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE)) {
- if (!(op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)-MAY_BE_TRUE))) {
- /* Always TRUE */
- if (set_bool) {
- if (set_bool_not) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- }
- if (true_label != (uint32_t)-1) {
- | b =>true_label
- }
- } else {
- if (!(op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE)))) {
- /* Always FALSE */
- if (set_bool) {
- if (set_bool_not) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- }
- } else {
- | CMP_ZVAL_TYPE op1_addr, IS_TRUE, ZREG_TMP1
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE))) {
- if ((op1_info & MAY_BE_LONG) &&
- !(op1_info & MAY_BE_UNDEF) &&
- !set_bool) {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ) {
- | blt >9
- } else {
- | blt &exit_addr
- }
- } else if (false_label != (uint32_t)-1) {
- | blt =>false_label
- } else {
- | blt >9
- }
- jmp_done = 1;
- } else {
- | bgt >2
- }
- }
- if (!(op1_info & MAY_BE_TRUE)) {
- /* It's FALSE */
- if (set_bool) {
- if (set_bool_not) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- }
- } else {
- if (exit_addr) {
- if (set_bool) {
- | bne >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | b &exit_addr
- } else {
- | b >9
- }
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- if (branch_opcode == ZEND_JMPZ || branch_opcode == ZEND_JMPZ_EX) {
- if (!(op1_info & (MAY_BE_UNDEF|MAY_BE_LONG))) {
- | bne &exit_addr
- }
- }
- } else {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | beq &exit_addr
- } else if (!(op1_info & (MAY_BE_UNDEF|MAY_BE_LONG))) {
- | bne &exit_addr
- } else {
- | beq >9
- }
- }
- } else if (true_label != (uint32_t)-1 || false_label != (uint32_t)-1) {
- if (set_bool) {
- | bne >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- if (true_label != (uint32_t)-1) {
- | b =>true_label
- } else {
- | b >9
- }
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- } else {
- if (true_label != (uint32_t)-1) {
- | beq =>true_label
- } else if (!(op1_info & (MAY_BE_UNDEF|MAY_BE_LONG))) {
- | bne =>false_label
- jmp_done = 1;
- } else {
- | beq >9
- }
- }
- } else if (set_bool) {
- | cset REG0w, eq
- if (set_bool_not) {
- | neg REG0w, REG0w
- | add REG0w, REG0w, #3
- } else {
- | add REG0w, REG0w, #2
- }
- if ((op1_info & MAY_BE_UNDEF) && (op1_info & MAY_BE_ANY)) {
- set_delayed = 1;
- } else {
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- }
- }
- }
- /* It's FALSE, but may be UNDEF */
- if (op1_info & MAY_BE_UNDEF) {
- if (op1_info & MAY_BE_ANY) {
- if (set_delayed) {
- | CMP_ZVAL_TYPE op1_addr, IS_UNDEF, ZREG_TMP1
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- | beq >1
- } else {
- | IF_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- }
- |.cold_code
- |1:
- }
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (may_throw) {
- if (!zend_jit_check_exception_undef_result(Dst, opline)) {
- return 0;
- }
- }
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPZ || branch_opcode == ZEND_JMPZ_EX) {
- | b &exit_addr
- }
- } else if (false_label != (uint32_t)-1) {
- | b =>false_label
- }
- if (op1_info & MAY_BE_ANY) {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | b >9
- }
- } else if (false_label == (uint32_t)-1) {
- | b >9
- }
- |.code
- }
- }
- if (!jmp_done) {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- if (op1_info & MAY_BE_LONG) {
- | b >9
- }
- } else if (op1_info & MAY_BE_LONG) {
- | b &exit_addr
- }
- } else if (false_label != (uint32_t)-1) {
- | b =>false_label
- } else if ((op1_info & MAY_BE_LONG) || (op1_info & MAY_BE_ANY) == MAY_BE_DOUBLE) {
- | b >9
- }
- }
- }
- }
- if (op1_info & MAY_BE_LONG) {
- |2:
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >2, ZREG_TMP1
- }
- if (Z_MODE(op1_addr) == IS_REG) {
- | tst Rx(Z_REG(op1_addr)), Rx(Z_REG(op1_addr))
- } else {
- | LONG_CMP_WITH_CONST op1_addr, Z_L(0), TMP1, TMP2
- }
- if (set_bool) {
- | cset REG0w, ne
- if (set_bool_not) {
- | neg REG0w, REG0w
- | add REG0w, REG0w, #3
- } else {
- | add REG0w, REG0w, #2
- }
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | bne &exit_addr
- } else {
- | beq &exit_addr
- }
- } else if (true_label != (uint32_t)-1 || false_label != (uint32_t)-1) {
- if (true_label != (uint32_t)-1) {
- | bne =>true_label
- if (false_label != (uint32_t)-1) {
- | b =>false_label
- }
- } else {
- | beq =>false_label
- }
- }
- }
- if ((op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG))) == MAY_BE_DOUBLE) {
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- |.cold_code
- }
- |2:
- | fmov FPR0, xzr // TODO: "movi d0, #0" is not recognized by DynASM/arm64
- | DOUBLE_CMP ZREG_FPR0, op1_addr, ZREG_TMP1, ZREG_FPTMP
- if (set_bool) {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | bvs &exit_addr
- | bne &exit_addr
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- } else {
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | beq &exit_addr
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- } else if (false_label != (uint32_t)-1) { // JMPZ_EX
- | bvs >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | beq => false_label
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- } else if (true_label != (uint32_t)-1) { // JMPNZ_EX
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | bvs => true_label
- | bne => true_label
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- } else if (set_bool_not) { // BOOL_NOT
- | mov REG0w, #IS_FALSE
- | bvs >1
- | bne >1
- | mov REG0w, #IS_TRUE
- |1:
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- } else { // BOOL
- | mov REG0w, #IS_TRUE
- | bvs >1
- | bne >1
- | mov REG0w, #IS_FALSE
- |1:
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- |.code
- }
- } else {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | bvs &exit_addr
- | bne &exit_addr
- |1:
- } else {
- | bvs >1
- | beq &exit_addr
- |1:
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- } else {
- ZEND_ASSERT(true_label != (uint32_t)-1 || false_label != (uint32_t)-1);
- if (false_label != (uint32_t)-1 ) {
- | bvs >1
- | beq => false_label
- |1:
- if (true_label != (uint32_t)-1) {
- | b =>true_label
- } else if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- } else {
- | bvs => true_label
- | bne => true_label
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- }
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- |.code
- }
- }
- } else if (op1_info & (MAY_BE_ANY - (MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG))) {
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- |.cold_code
- |2:
- }
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_is_true, REG0
- | mov REG0, RETVALx
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | IF_NOT_ZVAL_REFCOUNTED op1_addr, >3, ZREG_TMP1, ZREG_TMP2
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- | bne >3
- // In x86, r0 is used in macro ZVAL_DTOR_FUNC as temporary register, hence, r0 should be saved/restored
- // before/after this macro. In AArch64, TMP1 is used, but we still have to store REG0,
- // because it's clobbered by function call.
- | str REG0, T1 // save
- | ZVAL_DTOR_FUNC op1_info, opline, TMP1
- | ldr REG0, T1 // restore
- |3:
- }
- if (may_throw) {
- | MEM_LOAD_64_ZTS ldr, REG1, executor_globals, exception, TMP1
- | cbnz REG1, ->exception_handler_undef
- }
- if (set_bool) {
- if (set_bool_not) {
- | neg REG0w, REG0w
- | add REG0w, REG0w, #3
- } else {
- | add REG0w, REG0w, #2
- }
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- if (exit_addr) {
- | CMP_ZVAL_TYPE res_addr, IS_FALSE, ZREG_TMP1
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | bne &exit_addr
- } else {
- | beq &exit_addr
- }
- } else if (true_label != (uint32_t)-1 || false_label != (uint32_t)-1) {
- | CMP_ZVAL_TYPE res_addr, IS_FALSE, ZREG_TMP1
- if (true_label != (uint32_t)-1) {
- | bne =>true_label
- if (false_label != (uint32_t)-1) {
- | b =>false_label
- } else if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- } else {
- | beq =>false_label
- }
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- |.code
- }
- } else {
- if (exit_addr) {
- if (branch_opcode == ZEND_JMPNZ || branch_opcode == ZEND_JMPNZ_EX) {
- | cbnz REG0w, &exit_addr
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- } else {
- | cbz REG0w, &exit_addr
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- }
- } else if (true_label != (uint32_t)-1) {
- | cbnz REG0w, =>true_label
- if (false_label != (uint32_t)-1) {
- | b =>false_label
- } else if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- } else {
- | cbz REG0w, =>false_label
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- | b >9
- }
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG)) {
- |.code
- }
- }
- }
- |9:
- return 1;
- }
- static int zend_jit_qm_assign(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_jit_addr op1_def_addr, uint32_t res_use_info, uint32_t res_info, zend_jit_addr res_addr)
- {
- if (op1_addr != op1_def_addr) {
- if (!zend_jit_update_regs(Dst, opline->op1.var, op1_addr, op1_def_addr, op1_info)) {
- return 0;
- }
- if (Z_MODE(op1_def_addr) == IS_REG && Z_MODE(op1_addr) != IS_REG) {
- op1_addr = op1_def_addr;
- }
- }
- if (!zend_jit_simple_assign(Dst, opline, res_addr, res_use_info, res_info, opline->op1_type, op1_addr, op1_info, 0, 0, 0)) {
- return 0;
- }
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- if (op1_info & MAY_BE_UNDEF) {
- zend_jit_check_exception(Dst);
- }
- return 1;
- }
- static int zend_jit_assign(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_use_addr, uint32_t op1_def_info, zend_jit_addr op1_addr, uint32_t op2_info, zend_jit_addr op2_addr, zend_jit_addr op2_def_addr, uint32_t res_info, zend_jit_addr res_addr, int may_throw)
- {
- ZEND_ASSERT(opline->op1_type == IS_CV);
- if (op2_addr != op2_def_addr) {
- if (!zend_jit_update_regs(Dst, opline->op2.var, op2_addr, op2_def_addr, op2_info)) {
- return 0;
- }
- if (Z_MODE(op2_def_addr) == IS_REG && Z_MODE(op2_addr) != IS_REG) {
- op2_addr = op2_def_addr;
- }
- }
- if (Z_MODE(op1_addr) != IS_REG
- && Z_MODE(op1_use_addr) == IS_REG
- && !Z_LOAD(op1_use_addr)
- && !Z_STORE(op1_use_addr)) {
- /* Force type update */
- op1_info |= MAY_BE_UNDEF;
- }
- if (!zend_jit_assign_to_variable(Dst, opline, op1_use_addr, op1_addr, op1_info, op1_def_info, opline->op2_type, op2_addr, op2_info, res_addr,
- may_throw)) {
- return 0;
- }
- if (!zend_jit_store_var_if_necessary_ex(Dst, opline->op1.var, op1_addr, op1_def_info, op1_use_addr, op1_info)) {
- return 0;
- }
- if (opline->result_type != IS_UNUSED) {
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- }
- return 1;
- }
- /* copy of hidden zend_closure */
- typedef struct _zend_closure {
- zend_object std;
- zend_function func;
- zval this_ptr;
- zend_class_entry *called_scope;
- zif_handler orig_internal_handler;
- } zend_closure;
- static int zend_jit_stack_check(dasm_State **Dst, const zend_op *opline, uint32_t used_stack)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | // Check Stack Overflow
- | MEM_LOAD_64_ZTS ldr, REG1, executor_globals, vm_stack_end, TMP1
- | MEM_LOAD_OP_ZTS sub, ldr, REG1, executor_globals, vm_stack_top, TMP1, TMP2
- | CMP_64_WITH_CONST_32 REG1, used_stack, TMP1
- | blo &exit_addr
- return 1;
- }
- static int zend_jit_push_call_frame(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, zend_function *func, bool is_closure, bool delayed_fetch_this, int checked_stack)
- {
- uint32_t used_stack;
- bool stack_check = 1;
- // REG0 -> zend_function
- // FCARG1 -> used_stack
- if (func) {
- used_stack = zend_vm_calc_used_stack(opline->extended_value, func);
- if ((int)used_stack <= checked_stack) {
- stack_check = 0;
- }
- } else {
- used_stack = (ZEND_CALL_FRAME_SLOT + opline->extended_value) * sizeof(zval);
- | // if (EXPECTED(ZEND_USER_CODE(func->type))) {
- if (!is_closure) {
- | LOAD_32BIT_VAL FCARG1w, used_stack
- | // Check whether REG0 is an internal function.
- | ldrb TMP1w, [REG0, #offsetof(zend_function, type)]
- | TST_32_WITH_CONST TMP1w, 1, TMP2w
- | bne >1
- } else {
- | LOAD_32BIT_VAL FCARG1w, used_stack
- }
- | // used_stack += (func->op_array.last_var + func->op_array.T - MIN(func->op_array.num_args, num_args)) * sizeof(zval);
- | LOAD_32BIT_VAL REG2w, opline->extended_value
- if (!is_closure) {
- | ldr TMP1w, [REG0, #offsetof(zend_function, op_array.num_args)]
- | cmp REG2w, TMP1w
- | csel REG2w, REG2w, TMP1w, le
- | ldr TMP1w, [REG0, #offsetof(zend_function, op_array.last_var)]
- | sub REG2w, REG2w, TMP1w
- | ldr TMP1w, [REG0, #offsetof(zend_function, op_array.T)]
- | sub REG2w, REG2w, TMP1w
- } else {
- | ldr TMP1w, [REG0, #offsetof(zend_closure, func.op_array.num_args)]
- | cmp REG2w, TMP1w
- | csel REG2w, REG2w, TMP1w, le
- | ldr TMP1w, [REG0, #offsetof(zend_closure, func.op_array.last_var)]
- | sub REG2w, REG2w, TMP1w
- | ldr TMP1w, [REG0, #offsetof(zend_closure, func.op_array.T)]
- | sub REG2w, REG2w, TMP1w
- }
- | sxtw REG2, REG2w
- | sub FCARG1x, FCARG1x, REG2, lsl #4
- |1:
- }
- zend_jit_start_reuse_ip();
- | // if (UNEXPECTED(used_stack > (size_t)(((char*)EG(vm_stack_end)) - (char*)call))) {
- | MEM_LOAD_64_ZTS ldr, RX, executor_globals, vm_stack_top, TMP1
- if (stack_check) {
- | // Check Stack Overflow
- | MEM_LOAD_64_ZTS ldr, REG2, executor_globals, vm_stack_end, TMP1
- | sub REG2, REG2, RX
- if (func) {
- | CMP_64_WITH_CONST_32 REG2, used_stack, TMP1
- } else {
- | cmp REG2, FCARG1x
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | blo &exit_addr
- } else {
- | blo >1
- | // EG(vm_stack_top) = (zval*)((char*)call + used_stack);
- |.cold_code
- |1:
- if (func) {
- | LOAD_32BIT_VAL FCARG1w, used_stack
- }
- if (opline->opcode == ZEND_INIT_FCALL && func && func->type == ZEND_INTERNAL_FUNCTION) {
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_int_extend_stack_helper, REG0
- } else {
- if (!is_closure) {
- | mov FCARG2x, REG0
- } else {
- | add FCARG2x, REG0, #offsetof(zend_closure, func)
- }
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_extend_stack_helper, REG0
- }
- | mov RX, RETVALx
- | b >1
- |.code
- }
- }
- if (func) {
- || if (arm64_may_encode_imm12((int64_t)used_stack)) {
- | MEM_UPDATE_ZTS add, ldr, str, #used_stack, executor_globals, vm_stack_top, REG2, TMP1
- || } else {
- | LOAD_32BIT_VAL TMP1w, used_stack
- | MEM_UPDATE_ZTS add, ldr, str, TMP1, executor_globals, vm_stack_top, REG2, TMP2
- || }
- } else {
- | MEM_UPDATE_ZTS add, ldr, str, FCARG1x, executor_globals, vm_stack_top, REG2, TMP1
- }
- | // zend_vm_init_call_frame(call, call_info, func, num_args, called_scope, object);
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE || opline->opcode != ZEND_INIT_METHOD_CALL) {
- | // ZEND_SET_CALL_INFO(call, 0, call_info);
- | LOAD_32BIT_VAL TMP1w, (IS_UNDEF | ZEND_CALL_NESTED_FUNCTION)
- | str TMP1w, EX:RX->This.u1.type_info
- }
- if (opline->opcode == ZEND_INIT_FCALL && func && func->type == ZEND_INTERNAL_FUNCTION) {
- | // call->func = func;
- |1:
- | ADDR_STORE EX:RX->func, func, REG1
- } else {
- if (!is_closure) {
- | // call->func = func;
- | str REG0, EX:RX->func
- } else {
- | // call->func = &closure->func;
- | add REG1, REG0, #offsetof(zend_closure, func)
- | str REG1, EX:RX->func
- }
- |1:
- }
- if (opline->opcode == ZEND_INIT_METHOD_CALL) {
- | // Z_PTR(call->This) = obj;
- | ldr REG1, T1
- | str REG1, EX:RX->This.value.ptr
- if (opline->op1_type == IS_UNUSED || delayed_fetch_this) {
- | // call->call_info |= ZEND_CALL_HAS_THIS;
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- | LOAD_32BIT_VAL TMP1w, ZEND_CALL_HAS_THIS
- | str TMP1w, EX:RX->This.u1.type_info
- } else {
- | ldr TMP1w, EX:RX->This.u1.type_info
- | BW_OP_32_WITH_CONST orr, TMP1w, TMP1w, ZEND_CALL_HAS_THIS, TMP2w
- | str TMP1w, EX:RX->This.u1.type_info
- }
- } else {
- if (opline->op1_type == IS_CV) {
- | // GC_ADDREF(obj);
- | GC_ADDREF REG1, TMP1w
- }
- | // call->call_info |= ZEND_CALL_HAS_THIS | ZEND_CALL_RELEASE_THIS;
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- | LOAD_32BIT_VAL TMP1w, (ZEND_CALL_HAS_THIS | ZEND_CALL_RELEASE_THIS)
- | str TMP1w, EX:RX->This.u1.type_info
- } else {
- | ldr TMP1w, EX:RX->This.u1.type_info
- | BW_OP_32_WITH_CONST orr, TMP1w, TMP1w, (ZEND_CALL_HAS_THIS | ZEND_CALL_RELEASE_THIS), TMP2w
- | str TMP1w, EX:RX->This.u1.type_info
- }
- }
- } else if (!is_closure) {
- | // Z_CE(call->This) = called_scope;
- | str xzr, EX:RX->This.value.ptr
- } else {
- if (opline->op2_type == IS_CV) {
- | // GC_ADDREF(closure);
- | GC_ADDREF REG0, TMP1w
- }
- | // object_or_called_scope = closure->called_scope;
- | ldr REG1, [REG0, #offsetof(zend_closure, called_scope)]
- | str REG1, EX:RX->This.value.ptr
- | // call_info = ZEND_CALL_NESTED_FUNCTION | ZEND_CALL_DYNAMIC | ZEND_CALL_CLOSURE |
- | // (closure->func->common.fn_flags & ZEND_ACC_FAKE_CLOSURE);
- | ldr REG2w, [REG0, #offsetof(zend_closure, func.common.fn_flags)]
- | BW_OP_32_WITH_CONST and, REG2w, REG2w, ZEND_ACC_FAKE_CLOSURE, TMP1w
- | BW_OP_32_WITH_CONST orr, REG2w, REG2w, (ZEND_CALL_NESTED_FUNCTION | ZEND_CALL_DYNAMIC | ZEND_CALL_CLOSURE), TMP1w
- | // if (Z_TYPE(closure->this_ptr) != IS_UNDEF) {
- | ldrb TMP1w, [REG0, #offsetof(zend_closure, this_ptr.u1.v.type)]
- | cmp TMP1w, #IS_UNDEF
- | beq >1
- | // call_info |= ZEND_CALL_HAS_THIS;
- | BW_OP_32_WITH_CONST orr, REG2w, REG2w, ZEND_CALL_HAS_THIS, TMP1w
- | // object_or_called_scope = Z_OBJ(closure->this_ptr);
- | ldr REG1, [REG0, #offsetof(zend_closure, this_ptr.value.ptr)]
- |1:
- | // ZEND_SET_CALL_INFO(call, 0, call_info);
- | ldr TMP1w, EX:RX->This.u1.type_info
- | orr TMP1w, TMP1w, REG2w
- | str TMP1w, EX:RX->This.u1.type_info
- | // Z_PTR(call->This) = object_or_called_scope;
- | str REG1, EX:RX->This.value.ptr
- | ldr TMP1, [REG0, #offsetof(zend_closure, func.op_array.run_time_cache__ptr)]
- | cbnz TMP1, >1
- | add FCARG1x, REG0, #offsetof(zend_closure, func)
- | EXT_CALL zend_jit_init_func_run_time_cache_helper, REG0
- |1:
- }
- | // ZEND_CALL_NUM_ARGS(call) = num_args;
- | LOAD_32BIT_VAL TMP1w, opline->extended_value
- | str TMP1w, EX:RX->This.u2.num_args
- return 1;
- }
- static int zend_jit_init_fcall_guard(dasm_State **Dst, uint32_t level, const zend_function *func, const zend_op *to_opline)
- {
- int32_t exit_point;
- const void *exit_addr;
- if (func->type == ZEND_INTERNAL_FUNCTION) {
- #ifdef ZEND_WIN32
- // TODO: ASLR may cause different addresses in different workers ???
- return 0;
- #endif
- } else if (func->type == ZEND_USER_FUNCTION) {
- if (!zend_accel_in_shm(func->op_array.opcodes)) {
- /* op_array and op_array->opcodes are not persistent. We can't link. */
- return 0;
- }
- } else {
- ZEND_UNREACHABLE();
- return 0;
- }
- exit_point = zend_jit_trace_get_exit_point(to_opline, ZEND_JIT_EXIT_POLYMORPHISM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | // call = EX(call);
- | ldr REG1, EX->call
- while (level > 0) {
- | ldr REG1, EX:REG1->prev_execute_data
- level--;
- }
- if (func->type == ZEND_USER_FUNCTION &&
- (!(func->common.fn_flags & ZEND_ACC_IMMUTABLE) ||
- (func->common.fn_flags & ZEND_ACC_CLOSURE) ||
- !func->common.function_name)) {
- const zend_op *opcodes = func->op_array.opcodes;
- | ldr REG1, EX:REG1->func
- | LOAD_ADDR REG2, ((ptrdiff_t)opcodes)
- | ldr TMP1, [REG1, #offsetof(zend_op_array, opcodes)]
- | cmp TMP1, REG2
- | bne &exit_addr
- } else {
- | LOAD_ADDR REG2, ((ptrdiff_t)func)
- | ldr TMP1, EX:REG1->func
- | cmp TMP1, REG2
- | bne &exit_addr
- }
- return 1;
- }
- static int zend_jit_init_fcall(dasm_State **Dst, const zend_op *opline, uint32_t b, const zend_op_array *op_array, zend_ssa *ssa, const zend_ssa_op *ssa_op, int call_level, zend_jit_trace_rec *trace, int checked_stack)
- {
- zend_func_info *info = ZEND_FUNC_INFO(op_array);
- zend_call_info *call_info = NULL;
- zend_function *func = NULL;
- if (delayed_call_chain) {
- if (!zend_jit_save_call_chain(Dst, delayed_call_level)) {
- return 0;
- }
- }
- if (info) {
- call_info = info->callee_info;
- while (call_info && call_info->caller_init_opline != opline) {
- call_info = call_info->next_callee;
- }
- if (call_info && call_info->callee_func && !call_info->is_prototype) {
- func = call_info->callee_func;
- }
- }
- if (!func
- && trace
- && trace->op == ZEND_JIT_TRACE_INIT_CALL) {
- func = (zend_function*)trace->func;
- }
- if (opline->opcode == ZEND_INIT_FCALL
- && func
- && func->type == ZEND_INTERNAL_FUNCTION) {
- /* load constant address later */
- } else if (func && op_array == &func->op_array) {
- /* recursive call */
- | ldr REG0, EX->func
- } else {
- | // if (CACHED_PTR(opline->result.num))
- | ldr REG2, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG2, opline->result.num, TMP1
- | cbz REG0, >1
- |.cold_code
- |1:
- if (opline->opcode == ZEND_INIT_FCALL
- && func
- && func->type == ZEND_USER_FUNCTION
- && (func->op_array.fn_flags & ZEND_ACC_IMMUTABLE)) {
- | LOAD_ADDR FCARG1x, func
- | MEM_ACCESS_64_WITH_UOFFSET str, FCARG1x, REG2, opline->result.num, TMP1
- | EXT_CALL zend_jit_init_func_run_time_cache_helper, REG0
- | mov REG0, RETVALx
- | b >3
- } else {
- zval *zv = RT_CONSTANT(opline, opline->op2);
- if (opline->opcode == ZEND_INIT_FCALL) {
- | LOAD_ADDR FCARG1x, Z_STR_P(zv);
- | ADD_SUB_64_WITH_CONST_32 add, FCARG2x, REG2, opline->result.num, TMP1
- | EXT_CALL zend_jit_find_func_helper, REG0
- } else if (opline->opcode == ZEND_INIT_FCALL_BY_NAME) {
- | LOAD_ADDR FCARG1x, Z_STR_P(zv + 1);
- | ADD_SUB_64_WITH_CONST_32 add, FCARG2x, REG2, opline->result.num, TMP1
- | EXT_CALL zend_jit_find_func_helper, REG0
- } else if (opline->opcode == ZEND_INIT_NS_FCALL_BY_NAME) {
- | LOAD_ADDR FCARG1x, zv;
- | ADD_SUB_64_WITH_CONST_32 add, FCARG2x, REG2, opline->result.num, TMP1
- | EXT_CALL zend_jit_find_ns_func_helper, REG0
- } else {
- ZEND_UNREACHABLE();
- }
- | // Get the return value of function zend_jit_find_func_helper/zend_jit_find_ns_func_helper
- | mov REG0, RETVALx
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline,
- func && (func->common.fn_flags & ZEND_ACC_IMMUTABLE) ? ZEND_JIT_EXIT_INVALIDATE : 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- if (!func || opline->opcode == ZEND_INIT_FCALL) {
- | cbnz REG0, >3
- } else if (func->type == ZEND_USER_FUNCTION
- && !(func->common.fn_flags & ZEND_ACC_IMMUTABLE)) {
- const zend_op *opcodes = func->op_array.opcodes;
- | LOAD_ADDR REG1, ((ptrdiff_t)opcodes)
- | ldr TMP1, [REG0, #offsetof(zend_op_array, opcodes)]
- | cmp TMP1, REG1
- | beq >3
- } else {
- | LOAD_ADDR REG1, ((ptrdiff_t)func)
- | cmp REG0, REG1
- | beq >3
- }
- | b &exit_addr
- } else {
- | cbnz REG0, >3
- | // SAVE_OPLINE();
- | SET_EX_OPLINE opline, REG0
- | b ->undefined_function
- }
- }
- |.code
- |3:
- }
- if (!zend_jit_push_call_frame(Dst, opline, op_array, func, 0, 0, checked_stack)) {
- return 0;
- }
- if (zend_jit_needs_call_chain(call_info, b, op_array, ssa, ssa_op, opline, call_level, trace)) {
- if (!zend_jit_save_call_chain(Dst, call_level)) {
- return 0;
- }
- } else {
- delayed_call_chain = 1;
- delayed_call_level = call_level;
- }
- return 1;
- }
- static int zend_jit_init_method_call(dasm_State **Dst,
- const zend_op *opline,
- uint32_t b,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- int call_level,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- zend_class_entry *ce,
- bool ce_is_instanceof,
- bool on_this,
- bool delayed_fetch_this,
- zend_class_entry *trace_ce,
- zend_jit_trace_rec *trace,
- int checked_stack,
- bool polymorphic_side_trace)
- {
- zend_func_info *info = ZEND_FUNC_INFO(op_array);
- zend_call_info *call_info = NULL;
- zend_function *func = NULL;
- zval *function_name;
- ZEND_ASSERT(opline->op2_type == IS_CONST);
- ZEND_ASSERT(op1_info & MAY_BE_OBJECT);
- function_name = RT_CONSTANT(opline, opline->op2);
- if (info) {
- call_info = info->callee_info;
- while (call_info && call_info->caller_init_opline != opline) {
- call_info = call_info->next_callee;
- }
- if (call_info && call_info->callee_func && !call_info->is_prototype) {
- func = call_info->callee_func;
- }
- }
- if (polymorphic_side_trace) {
- /* function is passed in r0 from parent_trace */
- } else {
- if (on_this) {
- zend_jit_addr this_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offsetof(zend_execute_data, This));
- | GET_ZVAL_PTR FCARG1x, this_addr, TMP1
- } else {
- if (op1_info & MAY_BE_REF) {
- if (opline->op1_type == IS_CV) {
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- } else {
- /* Hack: Convert reference to regular value to simplify JIT code */
- ZEND_ASSERT(Z_REG(op1_addr) == ZREG_FP);
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, >1, ZREG_TMP1
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | EXT_CALL zend_jit_unref_helper, REG0
- |1:
- }
- }
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)- MAY_BE_OBJECT)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >1, ZREG_TMP1
- |.cold_code
- |1:
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | SET_EX_OPLINE opline, REG0
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR)) && !delayed_fetch_this) {
- | EXT_CALL zend_jit_invalid_method_call_tmp, REG0
- } else {
- | EXT_CALL zend_jit_invalid_method_call, REG0
- }
- | b ->exception_handler
- |.code
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- }
- if (delayed_call_chain) {
- if (!zend_jit_save_call_chain(Dst, delayed_call_level)) {
- return 0;
- }
- }
- | str FCARG1x, T1 // save
- if (func) {
- | // fbc = CACHED_PTR(opline->result.num + sizeof(void*));
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, (opline->result.num + sizeof(void*)), TMP1
- | cbz REG0, >1
- } else {
- | // if (CACHED_PTR(opline->result.num) == obj->ce)) {
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG2, REG0, opline->result.num, TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp REG2, TMP1
- | bne >1
- | // fbc = CACHED_PTR(opline->result.num + sizeof(void*));
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, (opline->result.num + sizeof(void*)), TMP1
- }
- |.cold_code
- |1:
- | LOAD_ADDR FCARG2x, function_name
- if (TMP_ZVAL_OFFSET == 0) {
- | mov CARG3, sp
- } else {
- | add CARG3, sp, #TMP_ZVAL_OFFSET
- }
- | SET_EX_OPLINE opline, REG0
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR)) && !delayed_fetch_this) {
- | EXT_CALL zend_jit_find_method_tmp_helper, REG0
- } else {
- | EXT_CALL zend_jit_find_method_helper, REG0
- }
- | mov REG0, RETVALx
- | cbnz REG0, >2
- | b ->exception_handler
- |.code
- |2:
- }
- if ((!func || zend_jit_may_be_modified(func, op_array))
- && trace
- && trace->op == ZEND_JIT_TRACE_INIT_CALL
- && trace->func
- ) {
- int32_t exit_point;
- const void *exit_addr;
- exit_point = zend_jit_trace_get_exit_point(opline, func ? ZEND_JIT_EXIT_INVALIDATE : ZEND_JIT_EXIT_METHOD_CALL);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- func = (zend_function*)trace->func;
- if (func->type == ZEND_USER_FUNCTION &&
- (!(func->common.fn_flags & ZEND_ACC_IMMUTABLE) ||
- (func->common.fn_flags & ZEND_ACC_CLOSURE) ||
- !func->common.function_name)) {
- const zend_op *opcodes = func->op_array.opcodes;
- | LOAD_ADDR TMP1, opcodes
- | ldr TMP2, [REG0, #offsetof(zend_op_array, opcodes)]
- | cmp TMP2, TMP1
- | bne &exit_addr
- } else {
- | LOAD_ADDR TMP1, func
- | cmp REG0, TMP1
- | bne &exit_addr
- }
- }
- if (!func) {
- | // if (fbc->common.fn_flags & ZEND_ACC_STATIC) {
- | ldr TMP1w, [REG0, #offsetof(zend_function, common.fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_STATIC, TMP2w
- | bne >1
- |.cold_code
- |1:
- }
- if (!func || (func->common.fn_flags & ZEND_ACC_STATIC) != 0) {
- | ldr FCARG1x, T1 // restore
- | mov FCARG2x, REG0
- | LOAD_32BIT_VAL CARG3w, opline->extended_value
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR)) && !delayed_fetch_this) {
- | EXT_CALL zend_jit_push_static_metod_call_frame_tmp, REG0
- } else {
- | EXT_CALL zend_jit_push_static_metod_call_frame, REG0
- }
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR) && !delayed_fetch_this)) {
- | cbz RETVALx, ->exception_handler
- }
- | mov RX, RETVALx
- }
- if (!func) {
- | b >9
- |.code
- }
- if (!func || (func->common.fn_flags & ZEND_ACC_STATIC) == 0) {
- if (!zend_jit_push_call_frame(Dst, opline, NULL, func, 0, delayed_fetch_this, checked_stack)) {
- return 0;
- }
- }
- if (!func) {
- |9:
- }
- zend_jit_start_reuse_ip();
- if (zend_jit_needs_call_chain(call_info, b, op_array, ssa, ssa_op, opline, call_level, trace)) {
- if (!zend_jit_save_call_chain(Dst, call_level)) {
- return 0;
- }
- } else {
- delayed_call_chain = 1;
- delayed_call_level = call_level;
- }
- return 1;
- }
- static int zend_jit_init_closure_call(dasm_State **Dst,
- const zend_op *opline,
- uint32_t b,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- int call_level,
- zend_jit_trace_rec *trace,
- int checked_stack)
- {
- zend_function *func = NULL;
- zend_jit_addr op2_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op2.var);
- | GET_ZVAL_PTR REG0, op2_addr, TMP1
- if (ssa->var_info[ssa_op->op2_use].ce != zend_ce_closure
- && !(ssa->var_info[ssa_op->op2_use].type & MAY_BE_CLASS_GUARD)) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | LOAD_ADDR FCARG1x, ((ptrdiff_t)zend_ce_closure)
- | ldr, TMP1, [REG0, #offsetof(zend_object, ce)]
- | cmp TMP1, FCARG1x
- | bne &exit_addr
- if (ssa->var_info && ssa_op->op2_use >= 0) {
- ssa->var_info[ssa_op->op2_use].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op2_use].ce = zend_ce_closure;
- ssa->var_info[ssa_op->op2_use].is_instanceof = 0;
- }
- }
- if (trace
- && trace->op == ZEND_JIT_TRACE_INIT_CALL
- && trace->func
- && trace->func->type == ZEND_USER_FUNCTION) {
- const zend_op *opcodes;
- int32_t exit_point;
- const void *exit_addr;
- func = (zend_function*)trace->func;
- opcodes = func->op_array.opcodes;
- exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_CLOSURE_CALL);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | LOAD_ADDR FCARG1x, ((ptrdiff_t)opcodes)
- | ldr TMP1, [REG0, #offsetof(zend_closure, func.op_array.opcodes)]
- | cmp TMP1, FCARG1x
- | bne &exit_addr
- }
- if (delayed_call_chain) {
- if (!zend_jit_save_call_chain(Dst, delayed_call_level)) {
- return 0;
- }
- }
- if (!zend_jit_push_call_frame(Dst, opline, NULL, func, 1, 0, checked_stack)) {
- return 0;
- }
- if (zend_jit_needs_call_chain(NULL, b, op_array, ssa, ssa_op, opline, call_level, trace)) {
- if (!zend_jit_save_call_chain(Dst, call_level)) {
- return 0;
- }
- } else {
- delayed_call_chain = 1;
- delayed_call_level = call_level;
- }
- if (trace
- && trace->op == ZEND_JIT_TRACE_END
- && trace->stop == ZEND_JIT_TRACE_STOP_INTERPRETER) {
- if (!zend_jit_set_valid_ip(Dst, opline + 1)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_do_fcall(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, zend_ssa *ssa, int call_level, unsigned int next_block, zend_jit_trace_rec *trace)
- {
- zend_func_info *info = ZEND_FUNC_INFO(op_array);
- zend_call_info *call_info = NULL;
- const zend_function *func = NULL;
- uint32_t i;
- zend_jit_addr res_addr;
- uint32_t call_num_args = 0;
- bool unknown_num_args = 0;
- const void *exit_addr = NULL;
- const zend_op *prev_opline;
- if (RETURN_VALUE_USED(opline)) {
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- } else {
- /* CPU stack allocated temporary zval */
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_RSP, TMP_ZVAL_OFFSET);
- }
- prev_opline = opline - 1;
- while (prev_opline->opcode == ZEND_EXT_FCALL_BEGIN || prev_opline->opcode == ZEND_TICKS) {
- prev_opline--;
- }
- if (prev_opline->opcode == ZEND_SEND_UNPACK || prev_opline->opcode == ZEND_SEND_ARRAY ||
- prev_opline->opcode == ZEND_CHECK_UNDEF_ARGS) {
- unknown_num_args = 1;
- }
- if (info) {
- call_info = info->callee_info;
- while (call_info && call_info->caller_call_opline != opline) {
- call_info = call_info->next_callee;
- }
- if (call_info && call_info->callee_func && !call_info->is_prototype) {
- func = call_info->callee_func;
- }
- if ((op_array->fn_flags & ZEND_ACC_TRAIT_CLONE)
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && !JIT_G(current_frame)->call->func) {
- call_info = NULL; func = NULL; /* megamorphic call from trait */
- }
- }
- if (!func) {
- /* resolve function at run time */
- } else if (func->type == ZEND_USER_FUNCTION) {
- ZEND_ASSERT(opline->opcode != ZEND_DO_ICALL);
- call_num_args = call_info->num_args;
- } else if (func->type == ZEND_INTERNAL_FUNCTION) {
- ZEND_ASSERT(opline->opcode != ZEND_DO_UCALL);
- call_num_args = call_info->num_args;
- } else {
- ZEND_UNREACHABLE();
- }
- if (trace && !func) {
- if (trace->op == ZEND_JIT_TRACE_DO_ICALL) {
- ZEND_ASSERT(trace->func->type == ZEND_INTERNAL_FUNCTION);
- #ifndef ZEND_WIN32
- // TODO: ASLR may cause different addresses in different workers ???
- func = trace->func;
- if (JIT_G(current_frame) &&
- JIT_G(current_frame)->call &&
- TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)->call) >= 0) {
- call_num_args = TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)->call);
- } else {
- unknown_num_args = 1;
- }
- #endif
- } else if (trace->op == ZEND_JIT_TRACE_ENTER) {
- ZEND_ASSERT(trace->func->type == ZEND_USER_FUNCTION);
- if (zend_accel_in_shm(trace->func->op_array.opcodes)) {
- func = trace->func;
- if (JIT_G(current_frame) &&
- JIT_G(current_frame)->call &&
- TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)->call) >= 0) {
- call_num_args = TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)->call);
- } else {
- unknown_num_args = 1;
- }
- }
- }
- }
- bool may_have_extra_named_params =
- opline->extended_value == ZEND_FCALL_MAY_HAVE_EXTRA_NAMED_PARAMS &&
- (!func || func->common.fn_flags & ZEND_ACC_VARIADIC);
- if (!reuse_ip) {
- zend_jit_start_reuse_ip();
- | // call = EX(call);
- | ldr RX, EX->call
- }
- zend_jit_stop_reuse_ip();
- | // fbc = call->func;
- | // mov r2, EX:RX->func ???
- | // SAVE_OPLINE();
- | SET_EX_OPLINE opline, REG0
- if (opline->opcode == ZEND_DO_FCALL) {
- if (!func) {
- if (trace) {
- uint32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_op_array, fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_DEPRECATED, TMP2w
- | bne &exit_addr
- }
- }
- }
- if (!delayed_call_chain) {
- if (call_level == 1) {
- | str xzr, EX->call
- } else {
- | //EX(call) = call->prev_execute_data;
- | ldr REG0, EX:RX->prev_execute_data
- | str REG0, EX->call
- }
- }
- delayed_call_chain = 0;
- | //call->prev_execute_data = execute_data;
- | str EX, EX:RX->prev_execute_data
- if (!func) {
- | ldr REG0, EX:RX->func
- }
- if (opline->opcode == ZEND_DO_FCALL) {
- if (!func) {
- if (!trace) {
- | ldr TMP1w, [REG0, #offsetof(zend_op_array, fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_DEPRECATED, TMP2w
- | bne >1
- |.cold_code
- |1:
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, RX
- }
- | EXT_CALL zend_jit_deprecated_helper, REG0
- | GET_LOW_8BITS RETVALw, RETVALw
- | ldr REG0, EX:RX->func // reload
- | cbnz RETVALw, >1 // Result is 0 on exception
- | b ->exception_handler
- |.code
- |1:
- }
- } else if (func->common.fn_flags & ZEND_ACC_DEPRECATED) {
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, RX
- }
- | EXT_CALL zend_jit_deprecated_helper, REG0
- | cbz RETVALw, ->exception_handler
- }
- }
- if (!func
- && opline->opcode != ZEND_DO_UCALL
- && opline->opcode != ZEND_DO_ICALL) {
- | ldrb TMP1w, [REG0, #offsetof(zend_function, type)]
- | cmp TMP1w, #ZEND_USER_FUNCTION
- | bne >8
- }
- if ((!func || func->type == ZEND_USER_FUNCTION)
- && opline->opcode != ZEND_DO_ICALL) {
- | // EX(call) = NULL;
- | str xzr, EX:RX->call
- if (RETURN_VALUE_USED(opline)) {
- | // EX(return_value) = EX_VAR(opline->result.var);
- | LOAD_ZVAL_ADDR REG2, res_addr
- | str REG2, EX:RX->return_value
- } else {
- | // EX(return_value) = 0;
- | str xzr, EX:RX->return_value
- }
- //EX_LOAD_RUN_TIME_CACHE(op_array);
- if (!func || func->op_array.cache_size) {
- if (func && op_array == &func->op_array) {
- /* recursive call */
- if (trace || func->op_array.cache_size > sizeof(void*)) {
- | ldr REG2, EX->run_time_cache
- | str REG2, EX:RX->run_time_cache
- }
- } else {
- // Always defined as ZEND_MAP_PTR_KIND_PTR_OR_OFFSET. See Zend/zend_map_ptr.h.
- #if ZEND_MAP_PTR_KIND == ZEND_MAP_PTR_KIND_PTR
- if (func) {
- | ldr REG0, EX:RX->func
- }
- | ldr REG2, [REG0, #offsetof(zend_op_array, run_time_cache__ptr)]
- | ldr REG2, [REG2]
- #elif ZEND_MAP_PTR_KIND == ZEND_MAP_PTR_KIND_PTR_OR_OFFSET
- if (func && !(func->op_array.fn_flags & ZEND_ACC_CLOSURE)) {
- if (ZEND_MAP_PTR_IS_OFFSET(func->op_array.run_time_cache)) {
- | MEM_LOAD_64_ZTS ldr, REG2, compiler_globals, map_ptr_base, TMP1
- | ADD_SUB_64_WITH_CONST add, REG2, REG2, (uintptr_t)ZEND_MAP_PTR(func->op_array.run_time_cache), TMP1
- | ldr REG2, [REG2]
- } else if ((func->op_array.fn_flags & ZEND_ACC_IMMUTABLE)
- && (!func->op_array.scope || (func->op_array.scope->ce_flags & ZEND_ACC_LINKED))) {
- if (func) {
- | ldr REG0, EX:RX->func
- }
- | ldr REG2, [REG0, #offsetof(zend_op_array, run_time_cache__ptr)]
- | MEM_LOAD_OP_ZTS add, ldr, REG2, compiler_globals, map_ptr_base, REG1, TMP1
- | ldr REG2, [REG2]
- } else {
- /* the called op_array may be not persisted yet */
- if (func) {
- | ldr REG0, EX:RX->func
- }
- | ldr REG2, [REG0, #offsetof(zend_op_array, run_time_cache__ptr)]
- | TST_64_WITH_ONE REG2
- | beq >1
- | MEM_LOAD_OP_ZTS add, ldr, REG2, compiler_globals, map_ptr_base, REG1, TMP1
- |1:
- | ldr REG2, [REG2]
- }
- } else {
- if (func) {
- | ldr REG0, EX:RX->func
- }
- | ldr REG2, [REG0, #offsetof(zend_op_array, run_time_cache__ptr)]
- | TST_64_WITH_ONE REG2
- | beq >1
- | MEM_LOAD_OP_ZTS add, ldr, REG2, compiler_globals, map_ptr_base, REG1, TMP1
- |1:
- | ldr REG2, [REG2]
- }
- #else
- # error "Unknown ZEND_MAP_PTR_KIND"
- #endif
- | str REG2, EX:RX->run_time_cache
- }
- }
- | // EG(current_execute_data) = execute_data;
- | MEM_STORE_64_ZTS str, RX, executor_globals, current_execute_data, REG1
- | mov FP, RX
- | // opline = op_array->opcodes;
- if (func && !unknown_num_args) {
- | ADD_SUB_64_WITH_CONST_32 add, TMP1, RX, (EX_NUM_TO_VAR(call_num_args) + offsetof(zval, u1.type_info)), TMP1 // induction variable
- for (i = call_num_args; i < func->op_array.last_var; i++) {
- | // ZVAL_UNDEF(EX_VAR(n))
- | str wzr, [TMP1], #16
- }
- if (call_num_args <= func->op_array.num_args) {
- if (!trace || (trace->op == ZEND_JIT_TRACE_END
- && trace->stop == ZEND_JIT_TRACE_STOP_INTERPRETER)) {
- uint32_t num_args;
- if ((func->op_array.fn_flags & ZEND_ACC_HAS_TYPE_HINTS) != 0) {
- if (trace) {
- num_args = 0;
- } else if (call_info) {
- num_args = skip_valid_arguments(op_array, ssa, call_info);
- } else {
- num_args = call_num_args;
- }
- } else {
- num_args = call_num_args;
- }
- if (zend_accel_in_shm(func->op_array.opcodes)) {
- | LOAD_IP_ADDR (func->op_array.opcodes + num_args)
- } else {
- | ldr REG0, EX->func
- || ZEND_ASSERT(arm64_may_encode_imm12((int64_t)(num_args * sizeof(zend_op))));
- if (GCC_GLOBAL_REGS) {
- | ldr IP, [REG0, #offsetof(zend_op_array, opcodes)]
- if (num_args) {
- | add IP, IP, #(num_args * sizeof(zend_op))
- }
- } else {
- | ldr FCARG1x, [REG0, #offsetof(zend_op_array, opcodes)]
- if (num_args) {
- | add FCARG1x, FCARG1x, #(num_args * sizeof(zend_op))
- }
- | str FCARG1x, EX->opline
- }
- }
- if (GCC_GLOBAL_REGS && !trace && op_array == &func->op_array
- && num_args >= op_array->required_num_args) {
- /* recursive call */
- if (ZEND_OBSERVER_ENABLED) {
- | SAVE_IP
- | mov FCARG1x, FP
- | EXT_CALL zend_observer_fcall_begin, REG0
- }
- #ifdef CONTEXT_THREADED_JIT
- | NIY // TODO
- #else
- | b =>num_args
- #endif
- return 1;
- }
- }
- } else {
- if (!trace || (trace->op == ZEND_JIT_TRACE_END
- && trace->stop == ZEND_JIT_TRACE_STOP_INTERPRETER)) {
- if (func && zend_accel_in_shm(func->op_array.opcodes)) {
- | LOAD_IP_ADDR (func->op_array.opcodes)
- } else if (GCC_GLOBAL_REGS) {
- | ldr IP, [REG0, #offsetof(zend_op_array, opcodes)]
- } else {
- | ldr FCARG1x, [REG0, #offsetof(zend_op_array, opcodes)]
- | str FCARG1x, EX->opline
- }
- }
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, FP
- }
- | EXT_CALL zend_jit_copy_extra_args_helper, REG0
- }
- } else {
- | // opline = op_array->opcodes
- if (func && zend_accel_in_shm(func->op_array.opcodes)) {
- | LOAD_IP_ADDR (func->op_array.opcodes)
- } else if (GCC_GLOBAL_REGS) {
- | ldr IP, [REG0, #offsetof(zend_op_array, opcodes)]
- } else {
- | ldr FCARG1x, [REG0, #offsetof(zend_op_array, opcodes)]
- | str FCARG1x, EX->opline
- }
- if (func) {
- | // num_args = EX_NUM_ARGS();
- | ldr REG1w, [FP, #offsetof(zend_execute_data, This.u2.num_args)]
- | // if (UNEXPECTED(num_args > first_extra_arg))
- | CMP_32_WITH_CONST REG1w, (func->op_array.num_args), TMP1w
- } else {
- | // first_extra_arg = op_array->num_args;
- | ldr REG2w, [REG0, #offsetof(zend_op_array, num_args)]
- | // num_args = EX_NUM_ARGS();
- | ldr REG1w, [FP, #offsetof(zend_execute_data, This.u2.num_args)]
- | // if (UNEXPECTED(num_args > first_extra_arg))
- | cmp REG1w, REG2w
- }
- | bgt >1
- |.cold_code
- |1:
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, FP
- }
- | EXT_CALL zend_jit_copy_extra_args_helper, REG0
- if (!func) {
- | ldr REG0, EX->func // reload
- }
- | ldr REG1w, [FP, #offsetof(zend_execute_data, This.u2.num_args)] // reload
- | b >1
- |.code
- if (!func || (func->op_array.fn_flags & ZEND_ACC_HAS_TYPE_HINTS) == 0) {
- if (!func) {
- | // if (EXPECTED((op_array->fn_flags & ZEND_ACC_HAS_TYPE_HINTS) == 0))
- | ldr TMP1w, [REG0, #offsetof(zend_op_array, fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_HAS_TYPE_HINTS, TMP2w
- | bne >1
- }
- | // opline += num_args;
- || ZEND_ASSERT(sizeof(zend_op) == 32);
- | mov REG2w, REG1w
- | ADD_IP_SHIFT REG2, lsl #5, TMP1
- }
- |1:
- | // if (EXPECTED((int)num_args < op_array->last_var)) {
- if (func) {
- | LOAD_32BIT_VAL REG2w, func->op_array.last_var
- } else {
- | ldr REG2w, [REG0, #offsetof(zend_op_array, last_var)]
- }
- | subs REG2w, REG2w, REG1w
- | ble >3
- | // zval *var = EX_VAR_NUM(num_args);
- | add REG1, FP, REG1, lsl #4
- || ZEND_ASSERT(arm64_may_encode_imm12((int64_t)(ZEND_CALL_FRAME_SLOT * sizeof(zval))));
- | add REG1, REG1, #(ZEND_CALL_FRAME_SLOT * sizeof(zval))
- |2:
- | SET_Z_TYPE_INFO REG1, IS_UNDEF, TMP1w
- | add REG1, REG1, #16
- | subs REG2w, REG2w, #1
- | bne <2
- |3:
- }
- if (ZEND_OBSERVER_ENABLED) {
- | SAVE_IP
- | mov FCARG1x, FP
- | EXT_CALL zend_observer_fcall_begin, REG0
- }
- if (trace) {
- if (!func && (opline->opcode != ZEND_DO_UCALL)) {
- | b >9
- }
- } else {
- #ifdef CONTEXT_THREADED_JIT
- | NIY // TODO: CONTEXT_THREADED_JIT is always undefined.
- #else
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- | JMP_IP TMP1
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- | JMP_IP TMP1
- } else {
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #1 // ZEND_VM_ENTER
- | ret
- }
- }
- #endif
- }
- if ((!func || func->type == ZEND_INTERNAL_FUNCTION)
- && (opline->opcode != ZEND_DO_UCALL)) {
- if (!func && (opline->opcode != ZEND_DO_ICALL)) {
- |8:
- }
- if (opline->opcode == ZEND_DO_FCALL_BY_NAME) {
- if (!func) {
- if (trace) {
- uint32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | ldr TMP1w, [REG0, #offsetof(zend_op_array, fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_DEPRECATED, TMP2w
- | bne &exit_addr
- } else {
- | ldr TMP1w, [REG0, #offsetof(zend_op_array, fn_flags)]
- | TST_32_WITH_CONST TMP1w, ZEND_ACC_DEPRECATED, TMP2w
- | bne >1
- |.cold_code
- |1:
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, RX
- }
- | EXT_CALL zend_jit_deprecated_helper, REG0
- | GET_LOW_8BITS RETVALw, RETVALw
- | ldr REG0, EX:RX->func // reload
- | cbnz RETVALw, >1 // Result is 0 on exception
- | b ->exception_handler
- |.code
- |1:
- }
- } else if (func->common.fn_flags & ZEND_ACC_DEPRECATED) {
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, RX
- }
- | EXT_CALL zend_jit_deprecated_helper, REG0
- | cbz RETVALw, ->exception_handler
- | ldr REG0, EX:RX->func // reload
- }
- }
- | // ZVAL_NULL(EX_VAR(opline->result.var));
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- | SET_Z_TYPE_INFO FCARG2x, IS_NULL, TMP1w
- | // EG(current_execute_data) = execute_data;
- | MEM_STORE_64_ZTS str, RX, executor_globals, current_execute_data, REG1
- zend_jit_reset_last_valid_opline();
- | // fbc->internal_function.handler(call, ret);
- | mov FCARG1x, RX
- if (func) {
- | EXT_CALL func->internal_function.handler, REG0
- } else {
- | ldr TMP1, [REG0, #offsetof(zend_internal_function, handler)]
- | blr TMP1
- }
- | // EG(current_execute_data) = execute_data;
- | MEM_STORE_64_ZTS str, FP, executor_globals, current_execute_data, REG0
- | // zend_vm_stack_free_args(call);
- if (func && !unknown_num_args) {
- for (i = 0; i < call_num_args; i++ ) {
- if (zend_jit_needs_arg_dtor(func, i, call_info)) {
- uint32_t offset = EX_NUM_TO_VAR(i);
- zend_jit_addr arg_addr = ZEND_ADDR_MEM_ZVAL(ZREG_RX, offset);
- | ZVAL_PTR_DTOR arg_addr, (MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN), 0, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- }
- } else {
- | mov FCARG1x, RX
- | EXT_CALL zend_jit_vm_stack_free_args_helper, REG0
- }
- if (may_have_extra_named_params) {
- | ldrb TMP1w, [RX, #(offsetof(zend_execute_data, This.u1.type_info) + 3)]
- | TST_32_WITH_CONST TMP1w, (ZEND_CALL_HAS_EXTRA_NAMED_PARAMS >> 24), TMP2w
- | bne >1
- |.cold_code
- |1:
- | ldr FCARG1x, [RX, #offsetof(zend_execute_data, extra_named_params)]
- | EXT_CALL zend_free_extra_named_params, REG0
- | b >2
- |.code
- |2:
- }
- |8:
- if (opline->opcode == ZEND_DO_FCALL) {
- // TODO: optimize ???
- | // if (UNEXPECTED(ZEND_CALL_INFO(call) & ZEND_CALL_RELEASE_THIS))
- | ldrb TMP1w, [RX, #(offsetof(zend_execute_data, This.u1.type_info) + 2)]
- | TST_32_WITH_CONST TMP1w, (ZEND_CALL_RELEASE_THIS >> 16), TMP2w
- | bne >1
- |.cold_code
- |1:
- | add TMP1, RX, #offsetof(zend_execute_data, This)
- | GET_Z_PTR FCARG1x, TMP1
- | // OBJ_RELEASE(object);
- | OBJ_RELEASE ZREG_FCARG1, >2, ZREG_TMP1, ZREG_TMP2
- | b >2
- |.code
- |2:
- }
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- !JIT_G(current_frame) ||
- !JIT_G(current_frame)->call ||
- !TRACE_FRAME_IS_NESTED(JIT_G(current_frame)->call) ||
- prev_opline->opcode == ZEND_SEND_UNPACK ||
- prev_opline->opcode == ZEND_SEND_ARRAY ||
- prev_opline->opcode == ZEND_CHECK_UNDEF_ARGS) {
- | // zend_vm_stack_free_call_frame(call);
- | ldrb TMP1w, [RX, #(offsetof(zend_execute_data, This.u1.type_info) + 2)]
- | TST_32_WITH_CONST TMP1w, ((ZEND_CALL_ALLOCATED >> 16) & 0xff), TMP2w
- | bne >1
- |.cold_code
- |1:
- | mov FCARG1x, RX
- | EXT_CALL zend_jit_free_call_frame, REG0
- | b >1
- |.code
- }
- | MEM_STORE_64_ZTS str, RX, executor_globals, vm_stack_top, REG0
- |1:
- if (!RETURN_VALUE_USED(opline)) {
- zend_class_entry *ce;
- bool ce_is_instanceof;
- uint32_t func_info = call_info ?
- zend_get_func_info(call_info, ssa, &ce, &ce_is_instanceof) :
- (MAY_BE_ANY|MAY_BE_REF|MAY_BE_RC1|MAY_BE_RCN);
- /* If an exception is thrown, the return_value may stay at the
- * original value of null. */
- func_info |= MAY_BE_NULL;
- if (func_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)) {
- | ZVAL_PTR_DTOR res_addr, func_info, 1, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- }
- | // if (UNEXPECTED(EG(exception) != NULL)) {
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbnz REG0, ->icall_throw_handler
- // TODO: Can we avoid checking for interrupts after each call ???
- if (trace && last_valid_opline != opline) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline + 1, ZEND_JIT_EXIT_TO_VM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- } else {
- exit_addr = NULL;
- }
- if (!zend_jit_check_timeout(Dst, opline + 1, exit_addr)) {
- return 0;
- }
- if ((!trace || !func) && opline->opcode != ZEND_DO_ICALL) {
- | LOAD_IP_ADDR (opline + 1)
- } else if (trace
- && trace->op == ZEND_JIT_TRACE_END
- && trace->stop == ZEND_JIT_TRACE_STOP_INTERPRETER) {
- | LOAD_IP_ADDR (opline + 1)
- }
- }
- if (!func) {
- |9:
- }
- return 1;
- }
- static int zend_jit_send_val(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr)
- {
- uint32_t arg_num = opline->op2.num;
- zend_jit_addr arg_addr;
- ZEND_ASSERT(opline->opcode == ZEND_SEND_VAL || arg_num <= MAX_ARG_FLAG_NUM);
- if (!zend_jit_reuse_ip(Dst)) {
- return 0;
- }
- if (opline->opcode == ZEND_SEND_VAL_EX) {
- uint32_t mask = ZEND_SEND_BY_REF << ((arg_num + 3) * 2);
- ZEND_ASSERT(arg_num <= MAX_ARG_FLAG_NUM);
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && JIT_G(current_frame)->call->func) {
- if (ARG_MUST_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- /* Don't generate code that always throws exception */
- return 0;
- }
- } else if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne &exit_addr
- } else {
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne >1
- |.cold_code
- |1:
- if (Z_MODE(op1_addr) == IS_REG) {
- /* set type to avoid zval_ptr_dtor() on uninitialized value */
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- | SET_ZVAL_TYPE_INFO addr, IS_UNDEF, TMP1w, TMP2
- }
- | SET_EX_OPLINE opline, REG0
- | b ->throw_cannot_pass_by_ref
- |.code
- }
- }
- arg_addr = ZEND_ADDR_MEM_ZVAL(ZREG_RX, opline->result.var);
- if (opline->op1_type == IS_CONST) {
- zval *zv = RT_CONSTANT(opline, opline->op1);
- | ZVAL_COPY_CONST arg_addr, MAY_BE_ANY, MAY_BE_ANY, zv, ZREG_REG0, ZREG_TMP1, ZREG_FPR0
- if (Z_REFCOUNTED_P(zv)) {
- | ADDREF_CONST zv, REG0, TMP1
- }
- } else {
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- return 1;
- }
- static int zend_jit_check_undef_args(dasm_State **Dst, const zend_op *opline)
- {
- | ldr FCARG1x, EX->call
- | ldrb TMP1w, [FCARG1x, #(offsetof(zend_execute_data, This.u1.type_info) + 3)]
- | TST_32_WITH_CONST TMP1w, (ZEND_CALL_MAY_HAVE_UNDEF >> 24), TMP2w
- | bne >1
- |.cold_code
- |1:
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_handle_undef_args, REG0
- | cbz RETVALw, >2
- | b ->exception_handler
- |.code
- |2:
- return 1;
- }
- static int zend_jit_send_ref(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, uint32_t op1_info, int cold)
- {
- zend_jit_addr op1_addr, arg_addr, ref_addr;
- op1_addr = OP1_ADDR();
- arg_addr = ZEND_ADDR_MEM_ZVAL(ZREG_RX, opline->result.var);
- if (!zend_jit_reuse_ip(Dst)) {
- return 0;
- }
- if (opline->op1_type == IS_VAR) {
- if (op1_info & MAY_BE_INDIRECT) {
- | LOAD_ZVAL_ADDR REG0, op1_addr
- | // if (EXPECTED(Z_TYPE_P(ret) == IS_INDIRECT)) {
- | IF_NOT_Z_TYPE REG0, IS_INDIRECT, >1, TMP1w
- | // ret = Z_INDIRECT_P(ret);
- | GET_Z_PTR REG0, REG0
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- }
- } else if (opline->op1_type == IS_CV) {
- if (op1_info & MAY_BE_UNDEF) {
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_NULL, TMP1w, TMP2
- | b >2
- |1:
- }
- op1_info &= ~MAY_BE_UNDEF;
- op1_info |= MAY_BE_NULL;
- }
- } else {
- ZEND_UNREACHABLE();
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)) {
- if (op1_info & MAY_BE_REF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, >2, ZREG_TMP1
- | GET_ZVAL_PTR REG1, op1_addr, TMP1
- | GC_ADDREF REG1, TMP1w
- | SET_ZVAL_PTR arg_addr, REG1, TMP1
- | SET_ZVAL_TYPE_INFO arg_addr, IS_REFERENCE_EX, TMP1w, TMP2
- | b >6
- }
- |2:
- | // ZVAL_NEW_REF(arg, varptr);
- if (opline->op1_type == IS_VAR) {
- if (Z_REG(op1_addr) != ZREG_REG0 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR REG0, op1_addr
- }
- | str REG0, T1 // save
- }
- | EMALLOC sizeof(zend_reference), op_array, opline // Allocate space in REG0
- | mov TMP1w, #2
- | str TMP1w, [REG0]
- || ZEND_ASSERT(GC_REFERENCE <= MOVZ_IMM);
- | movz TMP1w, #GC_REFERENCE
- | str TMP1w, [REG0, #offsetof(zend_reference, gc.u.type_info)]
- | str xzr, [REG0, #offsetof(zend_reference, sources.ptr)]
- ref_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, offsetof(zend_reference, val));
- if (opline->op1_type == IS_VAR) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG1, 0);
- | ldr REG1, T1 // restore
- | ZVAL_COPY_VALUE ref_addr, MAY_BE_ANY, val_addr, op1_info, ZREG_REG2, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | SET_ZVAL_PTR val_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO val_addr, IS_REFERENCE_EX, TMP1w, TMP2
- } else {
- | ZVAL_COPY_VALUE ref_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | SET_ZVAL_PTR op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_REFERENCE_EX, TMP1w, TMP2
- }
- | SET_ZVAL_PTR arg_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO arg_addr, IS_REFERENCE_EX, TMP1w, TMP2
- }
- |6:
- | FREE_OP opline->op1_type, opline->op1, op1_info, !cold, opline, ZREG_TMP1, ZREG_TMP2
- |7:
- return 1;
- }
- static int zend_jit_send_var(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, uint32_t op1_info, zend_jit_addr op1_addr, zend_jit_addr op1_def_addr)
- {
- uint32_t arg_num = opline->op2.num;
- zend_jit_addr arg_addr;
- ZEND_ASSERT((opline->opcode != ZEND_SEND_VAR_EX &&
- opline->opcode != ZEND_SEND_VAR_NO_REF_EX) ||
- arg_num <= MAX_ARG_FLAG_NUM);
- arg_addr = ZEND_ADDR_MEM_ZVAL(ZREG_RX, opline->result.var);
- if (!zend_jit_reuse_ip(Dst)) {
- return 0;
- }
- if (opline->opcode == ZEND_SEND_VAR_EX) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && JIT_G(current_frame)->call->func) {
- if (ARG_SHOULD_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- if (!zend_jit_send_ref(Dst, opline, op_array, op1_info, 0)) {
- return 0;
- }
- return 1;
- }
- } else {
- uint32_t mask = (ZEND_SEND_BY_REF|ZEND_SEND_PREFER_REF) << ((arg_num + 3) * 2);
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne >1
- |.cold_code
- |1:
- if (!zend_jit_send_ref(Dst, opline, op_array, op1_info, 1)) {
- return 0;
- }
- | b >7
- |.code
- }
- } else if (opline->opcode == ZEND_SEND_VAR_NO_REF_EX) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && JIT_G(current_frame)->call->func) {
- if (ARG_SHOULD_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (!ARG_MAY_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- if (!(op1_info & MAY_BE_REF)) {
- /* Don't generate code that always throws exception */
- return 0;
- } else {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | GET_LOW_8BITS TMP1w, REG1w
- | cmp TMP1w, #IS_REFERENCE
- | bne &exit_addr
- }
- }
- return 1;
- }
- } else {
- uint32_t mask = (ZEND_SEND_BY_REF|ZEND_SEND_PREFER_REF) << ((arg_num + 3) * 2);
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne >1
- |.cold_code
- |1:
- mask = ZEND_SEND_PREFER_REF << ((arg_num + 3) * 2);
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (op1_info & MAY_BE_REF) {
- | GET_LOW_8BITS TMP1w, REG1w
- | cmp TMP1w, #IS_REFERENCE
- | beq >7
- }
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne >7
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | b &exit_addr
- } else {
- | SET_EX_OPLINE opline, REG0
- | LOAD_ZVAL_ADDR FCARG1x, arg_addr
- | EXT_CALL zend_jit_only_vars_by_reference, REG0
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- | b >7
- }
- |.code
- }
- } else if (opline->opcode == ZEND_SEND_FUNC_ARG) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && JIT_G(current_frame)->call->func) {
- if (ARG_SHOULD_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- if (!zend_jit_send_ref(Dst, opline, op_array, op1_info, 0)) {
- return 0;
- }
- return 1;
- }
- } else {
- | ldr TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | TST_32_WITH_CONST TMP1w, ZEND_CALL_SEND_ARG_BY_REF, TMP2w
- | bne >1
- |.cold_code
- |1:
- if (!zend_jit_send_ref(Dst, opline, op_array, op1_info, 1)) {
- return 0;
- }
- | b >7
- |.code
- }
- }
- if (op1_info & MAY_BE_UNDEF) {
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- | IF_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- |.cold_code
- |1:
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | SET_ZVAL_TYPE_INFO arg_addr, IS_NULL, TMP1w, TMP2
- | cbz RETVALx, ->exception_handler
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- | b >7
- |.code
- } else {
- |7:
- return 1;
- }
- }
- if (opline->opcode == ZEND_SEND_VAR_NO_REF) {
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (op1_info & MAY_BE_REF) {
- | GET_LOW_8BITS TMP1w, REG1w
- | cmp TMP1w, #IS_REFERENCE
- | beq >7
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | b &exit_addr
- } else {
- | SET_EX_OPLINE opline, REG0
- | LOAD_ZVAL_ADDR FCARG1x, arg_addr
- | EXT_CALL zend_jit_only_vars_by_reference, REG0
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- } else {
- if (op1_info & MAY_BE_REF) {
- if (opline->op1_type == IS_CV) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, val_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF op1_info, REG0w, REG2, TMP1w
- } else {
- zend_jit_addr ref_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 8);
- | IF_ZVAL_TYPE op1_addr, IS_REFERENCE, >1, ZREG_TMP1
- |.cold_code
- |1:
- | // zend_refcounted *ref = Z_COUNTED_P(retval_ptr);
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | // ZVAL_COPY_VALUE(return_value, &ref->value);
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, ref_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | GC_DELREF FCARG1x, TMP1w
- | beq >1
- | IF_NOT_REFCOUNTED REG0w, >2, TMP1w
- | GC_ADDREF REG2, TMP1w
- | b >2
- |1:
- | EFREE_REFERENCE
- | b >2
- |.code
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- |2:
- }
- } else {
- if (op1_addr != op1_def_addr) {
- if (!zend_jit_update_regs(Dst, opline->op1.var, op1_addr, op1_def_addr, op1_info)) {
- return 0;
- }
- if (Z_MODE(op1_def_addr) == IS_REG && Z_MODE(op1_addr) != IS_REG) {
- op1_addr= op1_def_addr;
- }
- }
- | ZVAL_COPY_VALUE arg_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (opline->op1_type == IS_CV) {
- | TRY_ADDREF op1_info, REG0w, REG2, TMP1w
- }
- }
- }
- |7:
- return 1;
- }
- static int zend_jit_check_func_arg(dasm_State **Dst, const zend_op *opline)
- {
- uint32_t arg_num = opline->op2.num;
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->call
- && JIT_G(current_frame)->call->func) {
- if (ARG_SHOULD_BE_SENT_BY_REF(JIT_G(current_frame)->call->func, arg_num)) {
- if (!TRACE_FRAME_IS_LAST_SEND_BY_REF(JIT_G(current_frame)->call)) {
- TRACE_FRAME_SET_LAST_SEND_BY_REF(JIT_G(current_frame)->call);
- | // ZEND_ADD_CALL_FLAG(EX(call), ZEND_CALL_SEND_ARG_BY_REF);
- || if (reuse_ip) {
- | ldr TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST orr, TMP1w, TMP1w, ZEND_CALL_SEND_ARG_BY_REF, TMP2w
- | str TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- || } else {
- | ldr REG0, EX->call
- | ldr TMP1w, [REG0, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST orr, TMP1w, TMP1w, ZEND_CALL_SEND_ARG_BY_REF, TMP2w
- | str TMP1w, [REG0, #offsetof(zend_execute_data, This.u1.type_info)]
- || }
- }
- } else {
- if (!TRACE_FRAME_IS_LAST_SEND_BY_VAL(JIT_G(current_frame)->call)) {
- TRACE_FRAME_SET_LAST_SEND_BY_VAL(JIT_G(current_frame)->call);
- | // ZEND_DEL_CALL_FLAG(EX(call), ZEND_CALL_SEND_ARG_BY_REF);
- || if (reuse_ip) {
- | ldr TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST and, TMP1w, TMP1w, (~ZEND_CALL_SEND_ARG_BY_REF), TMP2w
- | str TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- || } else {
- | ldr REG0, EX->call
- | ldr TMP1w, [REG0, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST and, TMP1w, TMP1w, (~ZEND_CALL_SEND_ARG_BY_REF), TMP2w
- | str TMP1w, [REG0, #offsetof(zend_execute_data, This.u1.type_info)]
- || }
- }
- }
- } else {
- // if (QUICK_ARG_SHOULD_BE_SENT_BY_REF(EX(call)->func, arg_num)) {
- uint32_t mask = (ZEND_SEND_BY_REF|ZEND_SEND_PREFER_REF) << ((arg_num + 3) * 2);
- if (!zend_jit_reuse_ip(Dst)) {
- return 0;
- }
- | ldr REG0, EX:RX->func
- | ldr TMP1w, [REG0, #offsetof(zend_function, quick_arg_flags)]
- | TST_32_WITH_CONST TMP1w, mask, TMP2w
- | bne >1
- |.cold_code
- |1:
- | // ZEND_ADD_CALL_FLAG(EX(call), ZEND_CALL_SEND_ARG_BY_REF);
- | ldr TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST orr, TMP1w, TMP1w, ZEND_CALL_SEND_ARG_BY_REF, TMP2w
- | str TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | b >1
- |.code
- | // ZEND_DEL_CALL_FLAG(EX(call), ZEND_CALL_SEND_ARG_BY_REF);
- | ldr TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- | BW_OP_32_WITH_CONST and, TMP1w, TMP1w, (~(ZEND_CALL_SEND_ARG_BY_REF)), TMP2w
- | str TMP1w, [RX, #offsetof(zend_execute_data, This.u1.type_info)]
- |1:
- }
- return 1;
- }
- static int zend_jit_smart_true(dasm_State **Dst, const zend_op *opline, int jmp, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2)
- {
- if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- if (jmp) {
- | b >7
- }
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | b =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- if (jmp) {
- | b >7
- }
- }
- return 1;
- }
- static int zend_jit_smart_false(dasm_State **Dst, const zend_op *opline, int jmp, zend_uchar smart_branch_opcode, uint32_t target_label)
- {
- if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- if (jmp) {
- | b >7
- }
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | b =>target_label
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- if (jmp) {
- | b >7
- }
- }
- return 1;
- }
- static int zend_jit_defined(dasm_State **Dst, const zend_op *opline, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- uint32_t defined_label = (uint32_t)-1;
- uint32_t undefined_label = (uint32_t)-1;
- zval *zv = RT_CONSTANT(opline, opline->op1);
- zend_jit_addr res_addr = 0;
- if (smart_branch_opcode && !exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- undefined_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- defined_label = target_label;
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- undefined_label = target_label;
- defined_label = target_label2;
- } else {
- ZEND_UNREACHABLE();
- }
- }
- | // if (CACHED_PTR(opline->extended_value)) {
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, opline->extended_value, TMP1
- | cbz REG0, >1
- | TST_64_WITH_ONE REG0
- | bne >4
- |.cold_code
- |4:
- | MEM_LOAD_64_ZTS ldr, FCARG1x, executor_globals, zend_constants, FCARG1x
- | ldr TMP1w, [FCARG1x, #offsetof(HashTable, nNumOfElements)]
- | cmp TMP1, REG0, lsr #1
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | beq &exit_addr
- } else {
- | beq >3
- }
- } else if (undefined_label != (uint32_t)-1) {
- | beq =>undefined_label
- } else {
- | beq >3
- }
- } else {
- | beq >2
- }
- |1:
- | SET_EX_OPLINE opline, REG0
- | LOAD_ADDR FCARG1x, zv
- | EXT_CALL zend_jit_check_constant, REG0
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | cbz RETVALx, >3
- } else {
- | cbnz RETVALx, >3
- }
- | b &exit_addr
- } else if (smart_branch_opcode) {
- if (undefined_label != (uint32_t)-1) {
- | cbz RETVALx, =>undefined_label
- } else {
- | cbz RETVALx, >3
- }
- if (defined_label != (uint32_t)-1) {
- | b =>defined_label
- } else {
- | b >3
- }
- } else {
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- | cbnz RETVALx, >1
- |2:
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- | b >3
- }
- |.code
- if (smart_branch_opcode) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- }
- } else if (defined_label != (uint32_t)-1) {
- | b =>defined_label
- }
- } else {
- |1:
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- |3:
- return 1;
- }
- static int zend_jit_type_check(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- uint32_t mask;
- zend_jit_addr op1_addr = OP1_ADDR();
- // TODO: support for is_resource() ???
- ZEND_ASSERT(opline->extended_value != MAY_BE_RESOURCE);
- if (op1_info & MAY_BE_UNDEF) {
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- | IF_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- |.cold_code
- |1:
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- zend_jit_check_exception_undef_result(Dst, opline);
- if (opline->extended_value & MAY_BE_NULL) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- } else if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) != 0) {
- | b >7
- }
- } else if (!zend_jit_smart_true(Dst, opline, (op1_info & (MAY_BE_ANY|MAY_BE_REF)) != 0, smart_branch_opcode, target_label, target_label2)) {
- return 0;
- }
- } else {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- } else if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) != 0) {
- | b >7
- }
- } else if (!zend_jit_smart_false(Dst, opline, (op1_info & (MAY_BE_ANY|MAY_BE_REF)) != 0, smart_branch_opcode, target_label)) {
- return 0;
- }
- }
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- |.code
- }
- }
- if (op1_info & (MAY_BE_ANY|MAY_BE_REF)) {
- mask = opline->extended_value;
- if (!(op1_info & MAY_BE_GUARD) && !(op1_info & (MAY_BE_ANY - mask))) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- }
- } else if (!zend_jit_smart_true(Dst, opline, 0, smart_branch_opcode, target_label, target_label2)) {
- return 0;
- }
- } else if (!(op1_info & MAY_BE_GUARD) && !(op1_info & mask)) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (!zend_jit_smart_false(Dst, opline, 0, smart_branch_opcode, target_label)) {
- return 0;
- }
- } else {
- bool invert = 0;
- zend_uchar type;
- switch (mask) {
- case MAY_BE_NULL: type = IS_NULL; break;
- case MAY_BE_FALSE: type = IS_FALSE; break;
- case MAY_BE_TRUE: type = IS_TRUE; break;
- case MAY_BE_LONG: type = IS_LONG; break;
- case MAY_BE_DOUBLE: type = IS_DOUBLE; break;
- case MAY_BE_STRING: type = IS_STRING; break;
- case MAY_BE_ARRAY: type = IS_ARRAY; break;
- case MAY_BE_OBJECT: type = IS_OBJECT; break;
- case MAY_BE_ANY - MAY_BE_NULL: type = IS_NULL; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_FALSE: type = IS_FALSE; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_TRUE: type = IS_TRUE; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_LONG: type = IS_LONG; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_DOUBLE: type = IS_DOUBLE; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_STRING: type = IS_STRING; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_ARRAY: type = IS_ARRAY; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_OBJECT: type = IS_OBJECT; invert = 1; break;
- case MAY_BE_ANY - MAY_BE_RESOURCE: type = IS_OBJECT; invert = 1; break;
- default:
- type = 0;
- }
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR REG0, op1_addr
- | ZVAL_DEREF REG0, op1_info, TMP1w
- }
- if (type == 0) {
- if (smart_branch_opcode &&
- (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if ((op1_info) & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | // if (Z_REFCOUNTED_P(cv)) {
- | IF_ZVAL_REFCOUNTED op1_addr, >1, ZREG_TMP1, ZREG_TMP2
- |.cold_code
- |1:
- }
- | // if (!Z_DELREF_P(cv)) {
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- if (RC_MAY_BE_1(op1_info)) {
- if (RC_MAY_BE_N(op1_info)) {
- | bne >3
- }
- if (op1_info & MAY_BE_REF) {
- | ldrb REG0w, [REG0, #offsetof(zval,u1.v.type)]
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG0w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- }
- | str REG0w, T1 // save
- | // zval_dtor_func(r);
- | ZVAL_DTOR_FUNC op1_info, opline, TMP1
- | ldr REG1w, T1 // restore
- | b >2
- }
- if ((op1_info) & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (!RC_MAY_BE_1(op1_info)) {
- | b >3
- }
- |.code
- }
- |3:
- if (op1_info & MAY_BE_REF) {
- | ldrb REG1w, [REG0, #offsetof(zval,u1.v.type)]
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG1w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- }
- |2:
- } else {
- if (op1_info & MAY_BE_REF) {
- | ldrb REG1w, [REG0, #offsetof(zval,u1.v.type)]
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG1w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- }
- }
- | mov REG0w, #1
- | lsl REG0w, REG0w, REG1w
- | TST_32_WITH_CONST REG0w, mask, TMP1w
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | bne &exit_addr
- } else {
- | beq &exit_addr
- }
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | beq =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | bne =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | beq =>target_label
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- | cset REG0w, ne
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- } else {
- if (smart_branch_opcode &&
- (opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if ((op1_info) & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | // if (Z_REFCOUNTED_P(cv)) {
- | IF_ZVAL_REFCOUNTED op1_addr, >1, ZREG_TMP1, ZREG_TMP2
- |.cold_code
- |1:
- }
- | // if (!Z_DELREF_P(cv)) {
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- if (RC_MAY_BE_1(op1_info)) {
- if (RC_MAY_BE_N(op1_info)) {
- | bne >3
- }
- if (op1_info & MAY_BE_REF) {
- | ldrb REG0w, [REG0, #offsetof(zval,u1.v.type)]
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG0w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- }
- | str REG0w, T1 // save
- | // zval_dtor_func(r);
- | ZVAL_DTOR_FUNC op1_info, opline, TMP1
- | ldr REG1w, T1 // restore
- | b >2
- }
- if ((op1_info) & (MAY_BE_ANY-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (!RC_MAY_BE_1(op1_info)) {
- | b >3
- }
- |.code
- }
- |3:
- if (op1_info & MAY_BE_REF) {
- | ldrb REG1w, [REG0, #offsetof(zval,u1.v.type)]
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG1w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- }
- |2:
- // Note: 'type' is of uchar type and holds a positive value,
- // hence it's safe to directly encode it as the imm field of 'cmp' instruction.
- | cmp REG1w, #type
- } else {
- if (op1_info & MAY_BE_REF) {
- | ldrb TMP1w, [REG0, #offsetof(zval,u1.v.type)]
- | cmp TMP1w, #type
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP1w, FP, (opline->op1.var + offsetof(zval,u1.v.type)), TMP1
- | cmp TMP1w, #type
- }
- }
- if (exit_addr) {
- if (invert) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | bne &exit_addr
- } else {
- | beq &exit_addr
- }
- } else {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | beq &exit_addr
- } else {
- | bne &exit_addr
- }
- }
- } else if (smart_branch_opcode) {
- if (invert) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | beq =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | bne =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | beq =>target_label
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | bne =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | beq =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | bne =>target_label
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- }
- } else {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- if (invert) {
- | cset REG0w, ne
- } else {
- | cset REG0w, eq
- }
- | add REG0w, REG0w, #2
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- }
- }
- }
- |7:
- return 1;
- }
- static int zend_jit_leave_frame(dasm_State **Dst)
- {
- | // EG(current_execute_data) = EX(prev_execute_data);
- | ldr REG0, EX->prev_execute_data
- | MEM_STORE_64_ZTS str, REG0, executor_globals, current_execute_data, REG2
- return 1;
- }
- static int zend_jit_free_cvs(dasm_State **Dst)
- {
- | // EG(current_execute_data) = EX(prev_execute_data);
- | ldr FCARG1x, EX->prev_execute_data
- | MEM_STORE_64_ZTS str, FCARG1x, executor_globals, current_execute_data, REG0
- | // zend_free_compiled_variables(execute_data);
- | mov FCARG1x, FP
- | EXT_CALL zend_free_compiled_variables, REG0
- return 1;
- }
- static int zend_jit_free_cv(dasm_State **Dst, uint32_t info, uint32_t var)
- {
- if (info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)) {
- uint32_t offset = EX_NUM_TO_VAR(var);
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offset);
- | ZVAL_PTR_DTOR addr, info, 1, 1, NULL, ZREG_TMP1, ZREG_TMP2
- }
- return 1;
- }
- static int zend_jit_free_op(dasm_State **Dst, const zend_op *opline, uint32_t info, uint32_t var_offset)
- {
- if (info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)) {
- zend_jit_addr addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var_offset);
- | ZVAL_PTR_DTOR addr, info, 0, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- return 1;
- }
- static int zend_jit_leave_func(dasm_State **Dst,
- const zend_op_array *op_array,
- const zend_op *opline,
- uint32_t op1_info,
- bool left_frame,
- zend_jit_trace_rec *trace,
- zend_jit_trace_info *trace_info,
- int indirect_var_access,
- int may_throw)
- {
- bool may_be_top_frame =
- JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- !JIT_G(current_frame) ||
- !TRACE_FRAME_IS_NESTED(JIT_G(current_frame));
- bool may_need_call_helper =
- indirect_var_access || /* may have symbol table */
- !op_array->function_name || /* may have symbol table */
- may_be_top_frame ||
- (op_array->fn_flags & ZEND_ACC_VARIADIC) || /* may have extra named args */
- JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- !JIT_G(current_frame) ||
- TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)) == -1 || /* unknown number of args */
- (uint32_t)TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)) > op_array->num_args; /* extra args */
- bool may_need_release_this =
- !(op_array->fn_flags & ZEND_ACC_CLOSURE) &&
- op_array->scope &&
- !(op_array->fn_flags & ZEND_ACC_STATIC) &&
- (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- !JIT_G(current_frame) ||
- !TRACE_FRAME_NO_NEED_RELEASE_THIS(JIT_G(current_frame)));
- if (may_need_call_helper || may_need_release_this) {
- | ldr FCARG1w, [FP, #offsetof(zend_execute_data, This.u1.type_info)]
- }
- if (may_need_call_helper) {
- if (!left_frame) {
- left_frame = 1;
- if (!zend_jit_leave_frame(Dst)) {
- return 0;
- }
- }
- /* ZEND_CALL_FAKE_CLOSURE handled on slow path to eliminate check for ZEND_CALL_CLOSURE on fast path */
- | TST_32_WITH_CONST FCARG1w, (ZEND_CALL_TOP|ZEND_CALL_HAS_SYMBOL_TABLE|ZEND_CALL_FREE_EXTRA_ARGS|ZEND_CALL_ALLOCATED|ZEND_CALL_HAS_EXTRA_NAMED_PARAMS|ZEND_CALL_FAKE_CLOSURE), TMP1w
- if (trace && trace->op != ZEND_JIT_TRACE_END) {
- | bne >1
- |.cold_code
- |1:
- if (!GCC_GLOBAL_REGS) {
- | mov FCARG1x, FP
- }
- | EXT_CALL zend_jit_leave_func_helper, REG0
- if (may_be_top_frame) {
- // TODO: try to avoid this check ???
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- #if 0
- /* this check should be handled by the following OPLINE guard */
- | LOAD_ADDR TMP1, zend_jit_halt_op
- | cmp IP, TMP1
- | beq ->trace_halt
- #endif
- } else if (GCC_GLOBAL_REGS) {
- | cbz IP, ->trace_halt
- } else {
- | tst RETVALw, RETVALw
- | blt ->trace_halt
- }
- }
- if (!GCC_GLOBAL_REGS) {
- | // execute_data = EG(current_execute_data)
- | MEM_LOAD_64_ZTS ldr, FP, executor_globals, current_execute_data, TMP1
- }
- | b >8
- |.code
- } else {
- | bne ->leave_function_handler
- }
- }
- if (op_array->fn_flags & ZEND_ACC_CLOSURE) {
- if (!left_frame) {
- left_frame = 1;
- if (!zend_jit_leave_frame(Dst)) {
- return 0;
- }
- }
- | // OBJ_RELEASE(ZEND_CLOSURE_OBJECT(EX(func)));
- | ldr FCARG1x, EX->func
- | sub FCARG1x, FCARG1x, #sizeof(zend_object)
- | OBJ_RELEASE ZREG_FCARG1, >4, ZREG_TMP1, ZREG_TMP2
- |4:
- } else if (may_need_release_this) {
- if (!left_frame) {
- left_frame = 1;
- if (!zend_jit_leave_frame(Dst)) {
- return 0;
- }
- }
- | // if (call_info & ZEND_CALL_RELEASE_THIS)
- | TST_32_WITH_CONST FCARG1w, ZEND_CALL_RELEASE_THIS, TMP1w
- | beq >4
- | // zend_object *object = Z_OBJ(execute_data->This);
- | ldr FCARG1x, EX->This.value.obj
- | // OBJ_RELEASE(object);
- | OBJ_RELEASE ZREG_FCARG1, >4, ZREG_TMP1, ZREG_TMP2
- |4:
- // TODO: avoid EG(excption) check for $this->foo() calls
- may_throw = 1;
- }
- | // EG(vm_stack_top) = (zval*)execute_data;
- | MEM_STORE_64_ZTS str, FP, executor_globals, vm_stack_top, REG0
- | // execute_data = EX(prev_execute_data);
- | ldr FP, EX->prev_execute_data
- if (!left_frame) {
- | // EG(current_execute_data) = execute_data;
- | MEM_STORE_64_ZTS str, FP, executor_globals, current_execute_data, REG0
- }
- |9:
- if (trace) {
- if (trace->op != ZEND_JIT_TRACE_END
- && (JIT_G(current_frame) && !TRACE_FRAME_IS_UNKNOWN_RETURN(JIT_G(current_frame)))) {
- zend_jit_reset_last_valid_opline();
- } else {
- | LOAD_IP
- | ADD_IP_WITH_CONST sizeof(zend_op), TMP1
- }
- |8:
- if (trace->op == ZEND_JIT_TRACE_BACK
- && (!JIT_G(current_frame) || TRACE_FRAME_IS_UNKNOWN_RETURN(JIT_G(current_frame)))) {
- const zend_op *next_opline = trace->opline;
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR))
- && (op1_info & MAY_BE_RC1)
- && (op1_info & (MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_ARRAY_OF_OBJECT|MAY_BE_ARRAY_OF_RESOURCE|MAY_BE_ARRAY_OF_ARRAY))) {
- /* exception might be thrown during destruction of unused return value */
- | // if (EG(exception))
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbnz REG0, ->leave_throw_handler
- }
- do {
- trace++;
- } while (trace->op == ZEND_JIT_TRACE_INIT_CALL);
- ZEND_ASSERT(trace->op == ZEND_JIT_TRACE_VM || trace->op == ZEND_JIT_TRACE_END);
- next_opline = trace->opline;
- ZEND_ASSERT(next_opline != NULL);
- if (trace->op == ZEND_JIT_TRACE_END
- && trace->stop == ZEND_JIT_TRACE_STOP_RECURSIVE_RET) {
- trace_info->flags |= ZEND_JIT_TRACE_LOOP;
- | CMP_IP next_opline, TMP1, TMP2
- | beq =>0 // LOOP
- #ifdef ZEND_VM_HYBRID_JIT_RED_ZONE_SIZE
- | JMP_IP TMP1
- #else
- | b ->trace_escape
- #endif
- } else {
- | CMP_IP next_opline, TMP1, TMP2
- | bne ->trace_escape
- }
- zend_jit_set_last_valid_opline(trace->opline);
- return 1;
- } else if (may_throw ||
- (((opline->op1_type & (IS_VAR|IS_TMP_VAR))
- && (op1_info & MAY_BE_RC1)
- && (op1_info & (MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_ARRAY_OF_OBJECT|MAY_BE_ARRAY_OF_RESOURCE|MAY_BE_ARRAY_OF_ARRAY)))
- && (!JIT_G(current_frame) || TRACE_FRAME_IS_RETURN_VALUE_UNUSED(JIT_G(current_frame))))) {
- | // if (EG(exception))
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | cbnz REG0, ->leave_throw_handler
- }
- return 1;
- } else {
- | // if (EG(exception))
- | MEM_LOAD_64_ZTS ldr, REG0, executor_globals, exception, TMP1
- | LOAD_IP
- | cbnz REG0, ->leave_throw_handler
- | // opline = EX(opline) + 1
- | ADD_IP_WITH_CONST sizeof(zend_op), TMP1
- }
- if (zend_jit_vm_kind == ZEND_VM_KIND_HYBRID) {
- | ADD_HYBRID_SPAD
- #ifdef CONTEXT_THREADED_JIT
- | NIY // TODO: CONTEXT_THREADED_JIT is always undefined
- #else
- | JMP_IP TMP1
- #endif
- } else if (GCC_GLOBAL_REGS) {
- | ldp x29, x30, [sp], # SPAD // stack alignment
- #ifdef CONTEXT_THREADED_JIT
- | NIY // TODO
- #else
- | JMP_IP TMP1
- #endif
- } else {
- #ifdef CONTEXT_THREADED_JIT
- ZEND_UNREACHABLE();
- // TODO: context threading can't work without GLOBAL REGS because we have to change
- // the value of execute_data in execute_ex()
- | NIY // TODO
- #else
- | ldp FP, RX, T2 // retore FP and IP
- | ldp x29, x30, [sp], # NR_SPAD // stack alignment
- | mov RETVALx, #2 // ZEND_VM_LEAVE ????
- | ret
- #endif
- }
- return 1;
- }
- static int zend_jit_return(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, uint32_t op1_info, zend_jit_addr op1_addr)
- {
- zend_jit_addr ret_addr;
- int8_t return_value_used;
- ZEND_ASSERT(op_array->type != ZEND_EVAL_CODE && op_array->function_name);
- ZEND_ASSERT(!(op1_info & MAY_BE_UNDEF));
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && JIT_G(current_frame)) {
- if (TRACE_FRAME_IS_RETURN_VALUE_USED(JIT_G(current_frame))) {
- return_value_used = 1;
- } else if (TRACE_FRAME_IS_RETURN_VALUE_UNUSED(JIT_G(current_frame))) {
- return_value_used = 0;
- } else {
- return_value_used = -1;
- }
- } else {
- return_value_used = -1;
- }
- if (ZEND_OBSERVER_ENABLED) {
- if (Z_MODE(op1_addr) == IS_REG) {
- zend_jit_addr dst = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- if (!zend_jit_spill_store(Dst, op1_addr, dst, op1_info, 1)) {
- return 0;
- }
- op1_addr = dst;
- }
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- | mov FCARG1x, FP
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_observer_fcall_end, REG0
- }
- // if (!EX(return_value))
- if (Z_MODE(op1_addr) == IS_REG && Z_REG(op1_addr) == ZREG_REG1) {
- if (return_value_used != 0) {
- | ldr REG2, EX->return_value
- }
- ret_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG2, 0);
- } else {
- if (return_value_used != 0) {
- | ldr REG1, EX->return_value
- }
- ret_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG1, 0);
- }
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (return_value_used == -1) {
- | cbz Rx(Z_REG(ret_addr)), >1
- |.cold_code
- |1:
- }
- if (return_value_used != 1) {
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)-(MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (jit_return_label >= 0) {
- | IF_NOT_ZVAL_REFCOUNTED op1_addr, =>jit_return_label, ZREG_TMP1, ZREG_TMP2
- } else {
- | IF_NOT_ZVAL_REFCOUNTED op1_addr, >9, ZREG_TMP1, ZREG_TMP2
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- if (RC_MAY_BE_1(op1_info)) {
- if (RC_MAY_BE_N(op1_info)) {
- if (jit_return_label >= 0) {
- | bne =>jit_return_label
- } else {
- | bne >9
- }
- }
- | //SAVE_OPLINE()
- | ZVAL_DTOR_FUNC op1_info, opline, TMP1
- | //????ldr REG1, EX->return_value // reload ???
- }
- if (return_value_used == -1) {
- if (jit_return_label >= 0) {
- | b =>jit_return_label
- } else {
- | b >9
- }
- |.code
- }
- }
- } else if (return_value_used == -1) {
- if (jit_return_label >= 0) {
- | cbz Rx(Z_REG(ret_addr)), =>jit_return_label
- } else {
- | cbz Rx(Z_REG(ret_addr)), >9
- }
- }
- if (return_value_used == 0) {
- |9:
- return 1;
- }
- if (opline->op1_type == IS_CONST) {
- zval *zv = RT_CONSTANT(opline, opline->op1);
- | ZVAL_COPY_CONST ret_addr, MAY_BE_ANY, MAY_BE_ANY, zv, ZREG_REG0, ZREG_TMP1, ZREG_FPR0
- if (Z_REFCOUNTED_P(zv)) {
- | ADDREF_CONST zv, REG0, TMP1
- }
- } else if (opline->op1_type == IS_TMP_VAR) {
- | ZVAL_COPY_VALUE ret_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- } else if (opline->op1_type == IS_CV) {
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR REG0, op1_addr
- | ZVAL_DEREF REG0, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- }
- | ZVAL_COPY_VALUE ret_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- (op1_info & (MAY_BE_REF|MAY_BE_OBJECT)) ||
- !op_array->function_name) {
- | TRY_ADDREF op1_info, REG0w, REG2, TMP1w
- } else if (return_value_used != 1) {
- | // if (EXPECTED(!(EX_CALL_INFO() & ZEND_CALL_CODE))) ZVAL_NULL(retval_ptr);
- | SET_ZVAL_TYPE_INFO op1_addr, IS_NULL, TMP1w, TMP2
- }
- }
- } else {
- if (op1_info & MAY_BE_REF) {
- zend_jit_addr ref_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, offsetof(zend_reference, val));
- | IF_ZVAL_TYPE op1_addr, IS_REFERENCE, >1, ZREG_TMP1
- |.cold_code
- |1:
- | // zend_refcounted *ref = Z_COUNTED_P(retval_ptr);
- | GET_ZVAL_PTR REG0, op1_addr, TMP1
- | // ZVAL_COPY_VALUE(return_value, &ref->value);
- | ZVAL_COPY_VALUE ret_addr, MAY_BE_ANY, ref_addr, op1_info, ZREG_REG2, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | GC_DELREF REG0, TMP1w
- | beq >2
- | // if (IS_REFCOUNTED())
- if (jit_return_label >= 0) {
- | IF_NOT_REFCOUNTED REG2w, =>jit_return_label, TMP1w
- } else {
- | IF_NOT_REFCOUNTED REG2w, >9, TMP1w
- }
- | // ADDREF
- | GET_ZVAL_PTR REG2, ret_addr, TMP1 // reload
- | GC_ADDREF REG2, TMP1w
- if (jit_return_label >= 0) {
- | b =>jit_return_label
- } else {
- | b >9
- }
- |2:
- | mov FCARG1x, REG0
- | EFREE_REFERENCE
- if (jit_return_label >= 0) {
- | b =>jit_return_label
- } else {
- | b >9
- }
- |.code
- }
- | ZVAL_COPY_VALUE ret_addr, MAY_BE_ANY, op1_addr, op1_info, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- |9:
- return 1;
- }
- static int zend_jit_zval_copy_deref(dasm_State **Dst, zend_jit_addr res_addr, zend_jit_addr val_addr, zend_reg type_reg)
- {
- ZEND_ASSERT(type_reg == ZREG_REG2);
- | GET_ZVAL_PTR REG1, val_addr, TMP1
- | IF_NOT_REFCOUNTED REG2w, >2, TMP1w
- | GET_LOW_8BITS TMP2w, REG2w
- | IF_NOT_TYPE TMP2w, IS_REFERENCE, >1
- | add REG1, REG1, #offsetof(zend_reference, val)
- | GET_Z_TYPE_INFO REG2w, REG1
- | GET_Z_PTR REG1, REG1
- | IF_NOT_REFCOUNTED REG2w, >2, TMP1w
- |1:
- | GC_ADDREF REG1, TMP2w
- |2:
- | SET_ZVAL_PTR res_addr, REG1, TMP1
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG2w, TMP1
- return 1;
- }
- static int zend_jit_fetch_dim_read(dasm_State **Dst,
- const zend_op *opline,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- bool op1_avoid_refcounting,
- uint32_t op2_info,
- uint32_t res_info,
- zend_jit_addr res_addr,
- uint8_t dim_type)
- {
- zend_jit_addr orig_op1_addr, op2_addr;
- const void *exit_addr = NULL;
- const void *not_found_exit_addr = NULL;
- const void *res_exit_addr = NULL;
- bool result_avoid_refcounting = 0;
- uint32_t may_be_string = (opline->opcode != ZEND_FETCH_LIST_R) ? MAY_BE_STRING : 0;
- int may_throw = 0;
- orig_op1_addr = OP1_ADDR();
- op2_addr = OP2_ADDR();
- if (opline->opcode != ZEND_FETCH_DIM_IS
- && JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- }
- if ((res_info & MAY_BE_GUARD)
- && JIT_G(current_frame)
- && (op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_ARRAY) {
- uint32_t flags = 0;
- uint32_t old_op1_info = 0;
- uint32_t old_info;
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- int32_t exit_point;
- if (opline->opcode != ZEND_FETCH_LIST_R
- && (opline->op1_type & (IS_VAR|IS_TMP_VAR))
- && !op1_avoid_refcounting) {
- flags |= ZEND_JIT_EXIT_FREE_OP1;
- }
- if ((opline->op2_type & (IS_VAR|IS_TMP_VAR))
- && (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- flags |= ZEND_JIT_EXIT_FREE_OP2;
- }
- if ((opline->result_type & (IS_VAR|IS_TMP_VAR))
- && !(flags & ZEND_JIT_EXIT_FREE_OP1)
- && (res_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))
- && (ssa_op+1)->op1_use == ssa_op->result_def
- && !(op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF) - (MAY_BE_STRING|MAY_BE_LONG)))
- && zend_jit_may_avoid_refcounting(opline+1, res_info)) {
- result_avoid_refcounting = 1;
- ssa->var_info[ssa_op->result_def].avoid_refcounting = 1;
- }
- if (op1_avoid_refcounting) {
- old_op1_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->op1.var));
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->op1.var), ZREG_NONE);
- }
- if (!(op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF) - (MAY_BE_STRING|MAY_BE_LONG)))) {
- old_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_UNKNOWN, 1);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_ZVAL_COPY_GPR0);
- exit_point = zend_jit_trace_get_exit_point(opline+1, flags);
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_info);
- res_exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!res_exit_addr) {
- return 0;
- }
- res_info &= ~MAY_BE_GUARD;
- ssa->var_info[ssa_op->result_def].type &= ~MAY_BE_GUARD;
- }
- if (opline->opcode == ZEND_FETCH_DIM_IS
- && !(res_info & MAY_BE_NULL)) {
- old_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_NULL, 0);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_NULL);
- exit_point = zend_jit_trace_get_exit_point(opline+1, flags);
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_info);
- not_found_exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!not_found_exit_addr) {
- return 0;
- }
- }
- if (op1_avoid_refcounting) {
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->op1.var), old_op1_info);
- }
- }
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_ARRAY) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY)) {
- if (exit_addr && !(op1_info & (MAY_BE_OBJECT|may_be_string))) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- }
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- if ((op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING))) ||
- (opline->opcode != ZEND_FETCH_DIM_IS && JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE)) {
- may_throw = 1;
- }
- if (!zend_jit_fetch_dimension_address_inner(Dst, opline, (opline->opcode != ZEND_FETCH_DIM_IS) ? BP_VAR_R : BP_VAR_IS, op1_info, op2_info, dim_type, res_exit_addr, not_found_exit_addr, exit_addr)) {
- return 0;
- }
- }
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_ARRAY)) {
- if (op1_info & MAY_BE_ARRAY) {
- |.cold_code
- |7:
- }
- if (opline->opcode != ZEND_FETCH_LIST_R && (op1_info & MAY_BE_STRING)) {
- may_throw = 1;
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_ARRAY|MAY_BE_STRING))) {
- if (exit_addr && !(op1_info & MAY_BE_OBJECT)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >6, ZREG_TMP1
- }
- }
- | SET_EX_OPLINE opline, REG0
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- if (opline->opcode != ZEND_FETCH_DIM_IS) {
- if ((op2_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_GUARD)) == MAY_BE_LONG) {
- | GET_ZVAL_LVAL ZREG_FCARG2, op2_addr, TMP1
- | EXT_CALL zend_jit_fetch_dim_str_offset_r_helper, REG0
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | EXT_CALL zend_jit_fetch_dim_str_r_helper, REG0
- }
- | SET_ZVAL_PTR res_addr, RETVALx, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_STRING, TMP1w, TMP2
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- | LOAD_ZVAL_ADDR CARG3, res_addr
- | EXT_CALL zend_jit_fetch_dim_str_is_helper, REG0
- }
- if ((op1_info & MAY_BE_ARRAY) ||
- (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_ARRAY|MAY_BE_STRING)))) {
- | b >9 // END
- }
- |6:
- }
- if (op1_info & MAY_BE_OBJECT) {
- may_throw = 1;
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_ARRAY|MAY_BE_OBJECT|may_be_string))) {
- if (exit_addr) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >6, ZREG_TMP1
- }
- }
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_CONST && Z_EXTRA_P(RT_CONSTANT(opline, opline->op2)) == ZEND_EXTRA_VALUE) {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_CONST_ZVAL);
- | LOAD_ADDR FCARG2x, (Z_ZV(op2_addr) + 1)
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- | LOAD_ZVAL_ADDR CARG3, res_addr
- if (opline->opcode != ZEND_FETCH_DIM_IS) {
- | EXT_CALL zend_jit_fetch_dim_obj_r_helper, REG0
- } else {
- | EXT_CALL zend_jit_fetch_dim_obj_is_helper, REG0
- }
- if ((op1_info & MAY_BE_ARRAY) ||
- (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_ARRAY|MAY_BE_OBJECT|may_be_string)))) {
- | b >9 // END
- }
- |6:
- }
- if ((op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_ARRAY|MAY_BE_OBJECT|may_be_string)))
- && (!exit_addr || !(op1_info & (MAY_BE_ARRAY|MAY_BE_OBJECT|may_be_string)))) {
- if ((opline->opcode != ZEND_FETCH_DIM_IS && (op1_info & MAY_BE_UNDEF)) || (op2_info & MAY_BE_UNDEF)) {
- | SET_EX_OPLINE opline, REG0
- if (opline->opcode != ZEND_FETCH_DIM_IS && (op1_info & MAY_BE_UNDEF)) {
- may_throw = 1;
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- }
- if (op2_info & MAY_BE_UNDEF) {
- may_throw = 1;
- | IF_NOT_ZVAL_TYPE op2_addr, IS_UNDEF, >1, ZREG_TMP1
- | LOAD_32BIT_VAL FCARG1w, opline->op2.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- }
- }
- if (opline->opcode != ZEND_FETCH_DIM_IS && opline->opcode != ZEND_FETCH_LIST_R) {
- may_throw = 1;
- if ((op1_info & MAY_BE_UNDEF) || (op2_info & MAY_BE_UNDEF)) {
- | LOAD_ZVAL_ADDR FCARG1x, orig_op1_addr
- } else {
- | SET_EX_OPLINE opline, REG0
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL ||
- Z_REG(op1_addr) != ZREG_FCARG1 ||
- Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- }
- | EXT_CALL zend_jit_invalid_array_access, REG0
- }
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- if (op1_info & MAY_BE_ARRAY) {
- | b >9 // END
- }
- }
- if (op1_info & MAY_BE_ARRAY) {
- |.code
- }
- }
- if (op1_info & MAY_BE_ARRAY) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- |8:
- if (res_exit_addr) {
- uint32_t type = concrete_type(res_info);
- if ((op1_info & MAY_BE_ARRAY_OF_REF)
- && dim_type != IS_UNKNOWN
- && dim_type != IS_REFERENCE) {
- if (type < IS_STRING) {
- | IF_NOT_ZVAL_TYPE val_addr, type, >1, ZREG_TMP1
- |.cold_code
- |1:
- | IF_NOT_ZVAL_TYPE val_addr, IS_REFERENCE, &res_exit_addr, ZREG_TMP1
- | GET_Z_PTR REG0, REG0
- | add REG0, REG0, #offsetof(zend_reference, val)
- | IF_ZVAL_TYPE val_addr, type, >1, ZREG_TMP1
- | b &res_exit_addr
- |.code
- |1:
- } else {
- | GET_ZVAL_TYPE_INFO REG2w, val_addr, TMP1
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_NOT_TYPE TMP1w, type, >1
- |.cold_code
- |1:
- | IF_NOT_TYPE TMP1w, IS_REFERENCE, &res_exit_addr
- | GET_Z_PTR REG0, REG0
- | add REG0, REG0, #offsetof(zend_reference, val)
- | GET_ZVAL_TYPE_INFO REG2w, val_addr, TMP1
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_TYPE TMP1w, type, >1
- | b &res_exit_addr
- |.code
- |1:
- }
- } else {
- if (op1_info & MAY_BE_ARRAY_OF_REF) {
- | ZVAL_DEREF REG0, MAY_BE_REF, TMP1w
- }
- if (type < IS_STRING) {
- | IF_NOT_ZVAL_TYPE val_addr, type, &res_exit_addr, ZREG_TMP1
- } else {
- | GET_ZVAL_TYPE_INFO REG2w, val_addr, TMP1
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_NOT_TYPE TMP1w, type, &res_exit_addr
- }
- }
- | // ZVAL_COPY
- |7:
- | ZVAL_COPY_VALUE_V res_addr, -1, val_addr, res_info, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_FPR0
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- if (type < IS_STRING) {
- if (Z_REG(res_addr) != ZREG_FP ||
- JIT_G(current_frame) == NULL ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(Z_OFFSET(res_addr))) != type) {
- | SET_ZVAL_TYPE_INFO res_addr, type, TMP1w, TMP2
- }
- } else {
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG2w, TMP1
- if (!result_avoid_refcounting) {
- | TRY_ADDREF res_info, REG2w, REG1, TMP1w
- }
- }
- } else if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- } else if (op1_info & MAY_BE_ARRAY_OF_REF) {
- | // ZVAL_COPY_DEREF
- | GET_ZVAL_TYPE_INFO Rw(ZREG_REG2), val_addr, TMP1
- if (!zend_jit_zval_copy_deref(Dst, res_addr, val_addr, ZREG_REG2)) {
- return 0;
- }
- } else {
- | // ZVAL_COPY
- | ZVAL_COPY_VALUE res_addr, -1, val_addr, res_info, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF res_info, REG1w, REG2, TMP1w
- }
- }
- |9: // END
- #ifdef ZEND_JIT_USE_RC_INFERENCE
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR)) && (op1_info & MAY_BE_OBJECT)) {
- /* Magic offsetGet() may increase refcount of the key */
- op2_info |= MAY_BE_RCN;
- }
- #endif
- if (opline->op2_type & (IS_TMP_VAR|IS_VAR)) {
- if ((op2_info & MAY_HAVE_DTOR) && (op2_info & MAY_BE_RC1)) {
- may_throw = 1;
- }
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (opline->opcode != ZEND_FETCH_LIST_R && !op1_avoid_refcounting) {
- if (opline->op1_type & (IS_TMP_VAR|IS_VAR)) {
- if ((op1_info & MAY_HAVE_DTOR) && (op1_info & MAY_BE_RC1)) {
- may_throw = 1;
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- }
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_fetch_dim(dasm_State **Dst,
- const zend_op *opline,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- uint32_t op2_info,
- zend_jit_addr res_addr,
- uint8_t dim_type)
- {
- zend_jit_addr op2_addr;
- int may_throw = 0;
- op2_addr = (opline->op2_type != IS_UNUSED) ? OP2_ADDR() : 0;
- if (op1_info & MAY_BE_REF) {
- may_throw = 1;
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_REFERENCE, >1, TMP1w
- | GET_Z_PTR FCARG2x, FCARG1x
- | ldrb TMP1w, [FCARG2x, #(offsetof(zend_reference, val) + offsetof(zval, u1.v.type))]
- | cmp TMP1w, #IS_ARRAY
- | bne >2
- | add FCARG1x, FCARG2x, #offsetof(zend_reference, val)
- | b >3
- |.cold_code
- |2:
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_prepare_assign_dim_ref, REG0
- | mov FCARG1x, RETVALx
- | cbnz FCARG1x, >1
- | b ->exception_handler_undef
- |.code
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_ARRAY) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- |3:
- | SEPARATE_ARRAY op1_addr, op1_info, 1, ZREG_TMP1, ZREG_TMP2
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL)) {
- if (op1_info & MAY_BE_ARRAY) {
- |.cold_code
- |7:
- }
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- | CMP_ZVAL_TYPE op1_addr, IS_NULL, ZREG_TMP1
- | bgt >7
- }
- if (Z_REG(op1_addr) != ZREG_FP) {
- | str Rx(Z_REG(op1_addr)), T1 // save
- }
- if ((op1_info & MAY_BE_UNDEF)
- && opline->opcode == ZEND_FETCH_DIM_RW) {
- may_throw = 1;
- if (op1_info & MAY_BE_NULL) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- }
- | // ZVAL_ARR(container, zend_new_array(8));
- | EXT_CALL _zend_new_array_0, REG0
- | mov REG0, RETVALx
- if (Z_REG(op1_addr) != ZREG_FP) {
- | ldr Rx(Z_REG(op1_addr)), T1 // restore
- }
- | SET_ZVAL_LVAL_FROM_REG op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_ARRAY_EX, TMP1w, TMP2
- | mov FCARG1x, REG0
- if (op1_info & MAY_BE_ARRAY) {
- | b >1
- |.code
- |1:
- }
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- |6:
- if (opline->op2_type == IS_UNUSED) {
- may_throw = 1;
- | // var_ptr = zend_hash_next_index_insert(Z_ARRVAL_P(container), &EG(uninitialized_zval));
- | LOAD_ADDR_ZTS FCARG2x, executor_globals, uninitialized_zval
- | EXT_CALL zend_hash_next_index_insert, REG0
- | // if (UNEXPECTED(!var_ptr)) {
- | cbz RETVALx, >1
- |.cold_code
- |1:
- | // zend_throw_error(NULL, "Cannot add element to the array as the next element is already occupied");
- | CANNOT_ADD_ELEMENT opline
- | SET_ZVAL_TYPE_INFO res_addr, IS_UNDEF, TMP1w, TMP2
- | //ZEND_VM_C_GOTO(assign_dim_op_ret_null);
- | b >8
- |.code
- | SET_ZVAL_PTR res_addr, RETVALx, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_INDIRECT, TMP1w, TMP2
- } else {
- uint32_t type;
- switch (opline->opcode) {
- case ZEND_FETCH_DIM_W:
- case ZEND_FETCH_LIST_W:
- type = BP_VAR_W;
- break;
- case ZEND_FETCH_DIM_RW:
- may_throw = 1;
- type = BP_VAR_RW;
- break;
- case ZEND_FETCH_DIM_UNSET:
- type = BP_VAR_UNSET;
- break;
- default:
- ZEND_UNREACHABLE();
- }
- if (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING))) {
- may_throw = 1;
- }
- if (!zend_jit_fetch_dimension_address_inner(Dst, opline, type, op1_info, op2_info, dim_type, NULL, NULL, NULL)) {
- return 0;
- }
- |8:
- | SET_ZVAL_PTR res_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_INDIRECT, TMP1w, TMP2
- if (type == BP_VAR_RW || (op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_STRING)))) {
- |.cold_code
- |9:
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- | b >8
- |.code
- }
- }
- }
- if (op1_info & (MAY_BE_ANY-(MAY_BE_NULL|MAY_BE_ARRAY))) {
- may_throw = 1;
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- |.cold_code
- |7:
- }
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_UNUSED) {
- | mov FCARG2x, xzr
- } else if (opline->op2_type == IS_CONST && Z_EXTRA_P(RT_CONSTANT(opline, opline->op2)) == ZEND_EXTRA_VALUE) {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_CONST_ZVAL);
- | LOAD_ADDR FCARG2x, (Z_ZV(op2_addr) + 1)
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- | LOAD_ZVAL_ADDR CARG3, res_addr
- switch (opline->opcode) {
- case ZEND_FETCH_DIM_W:
- case ZEND_FETCH_LIST_W:
- | EXT_CALL zend_jit_fetch_dim_obj_w_helper, REG0
- break;
- case ZEND_FETCH_DIM_RW:
- | EXT_CALL zend_jit_fetch_dim_obj_rw_helper, REG0
- break;
- // case ZEND_FETCH_DIM_UNSET:
- // | EXT_CALL zend_jit_fetch_dim_obj_unset_helper, REG0
- // break;
- default:
- ZEND_UNREACHABLE();
- }
- if (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_ARRAY)) {
- | b >8 // END
- |.code
- }
- }
- #ifdef ZEND_JIT_USE_RC_INFERENCE
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR)) && (op1_info & (MAY_BE_UNDEF|MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_ARRAY|MAY_BE_OBJECT))) {
- /* ASSIGN_DIM may increase refcount of the key */
- op2_info |= MAY_BE_RCN;
- }
- #endif
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR))
- && (op2_info & MAY_HAVE_DTOR)
- && (op2_info & MAY_BE_RC1)) {
- may_throw = 1;
- }
- |8:
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_isset_isempty_dim(dasm_State **Dst,
- const zend_op *opline,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- bool op1_avoid_refcounting,
- uint32_t op2_info,
- uint8_t dim_type,
- int may_throw,
- zend_uchar smart_branch_opcode,
- uint32_t target_label,
- uint32_t target_label2,
- const void *exit_addr)
- {
- zend_jit_addr op2_addr, res_addr;
- // TODO: support for empty() ???
- ZEND_ASSERT(!(opline->extended_value & ZEND_ISEMPTY));
- op2_addr = OP2_ADDR();
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_ARRAY) {
- const void *found_exit_addr = NULL;
- const void *not_found_exit_addr = NULL;
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY)) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- | GET_ZVAL_LVAL ZREG_FCARG1, op1_addr, TMP1
- if (exit_addr
- && !(op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_ARRAY))
- && !may_throw
- && (!(opline->op1_type & (IS_TMP_VAR|IS_VAR)) || op1_avoid_refcounting)
- && (!(opline->op2_type & (IS_TMP_VAR|IS_VAR)) || !(op2_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)))) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- found_exit_addr = exit_addr;
- } else {
- not_found_exit_addr = exit_addr;
- }
- }
- if (!zend_jit_fetch_dimension_address_inner(Dst, opline, BP_JIT_IS, op1_info, op2_info, dim_type, found_exit_addr, not_found_exit_addr, NULL)) {
- return 0;
- }
- if (found_exit_addr) {
- |9:
- return 1;
- } else if (not_found_exit_addr) {
- |8:
- return 1;
- }
- }
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_ARRAY)) {
- if (op1_info & MAY_BE_ARRAY) {
- |.cold_code
- |7:
- }
- if (op1_info & (MAY_BE_STRING|MAY_BE_OBJECT)) {
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- if (opline->op2_type == IS_CONST && Z_EXTRA_P(RT_CONSTANT(opline, opline->op2)) == ZEND_EXTRA_VALUE) {
- ZEND_ASSERT(Z_MODE(op2_addr) == IS_CONST_ZVAL);
- | LOAD_ADDR FCARG2x, (Z_ZV(op2_addr) + 1)
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, op2_addr
- }
- | EXT_CALL zend_jit_isset_dim_helper, REG0
- | cbz RETVALw, >9
- if (op1_info & MAY_BE_ARRAY) {
- | b >8
- |.code
- }
- } else {
- if (op2_info & MAY_BE_UNDEF) {
- if (op2_info & MAY_BE_ANY) {
- | IF_NOT_ZVAL_TYPE op2_addr, IS_UNDEF, >1, ZREG_TMP1
- }
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op2.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- }
- if (op1_info & MAY_BE_ARRAY) {
- | b >9
- |.code
- }
- }
- }
- #ifdef ZEND_JIT_USE_RC_INFERENCE
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR)) && (op1_info & MAY_BE_OBJECT)) {
- /* Magic offsetExists() may increase refcount of the key */
- op2_info |= MAY_BE_RCN;
- }
- #endif
- if (op1_info & (MAY_BE_ARRAY|MAY_BE_STRING|MAY_BE_OBJECT)) {
- |8:
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (!op1_avoid_refcounting) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- if (!zend_jit_check_exception_undef_result(Dst, opline)) {
- return 0;
- }
- }
- if (!(opline->extended_value & ZEND_ISEMPTY)) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b &exit_addr
- } else {
- | b >8
- }
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b =>target_label2
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | b =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- | b >8
- }
- } else {
- | NIY // TODO: support for empty()
- }
- }
- |9: // not found
- | FREE_OP opline->op2_type, opline->op2, op2_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (!op1_avoid_refcounting) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- if (!zend_jit_check_exception_undef_result(Dst, opline)) {
- return 0;
- }
- }
- if (!(opline->extended_value & ZEND_ISEMPTY)) {
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b &exit_addr
- }
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | b =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | b =>target_label
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- } else {
- | NIY // TODO: support for empty()
- }
- |8:
- return 1;
- }
- static int zend_jit_bind_global(dasm_State **Dst, const zend_op *opline, uint32_t op1_info)
- {
- zend_jit_addr op1_addr = OP1_ADDR();
- zend_string *varname = Z_STR_P(RT_CONSTANT(opline, opline->op2));
- | // idx = (uint32_t)(uintptr_t)CACHED_PTR(opline->extended_value) - 1;
- | ldr FCARG2x, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, FCARG2x, opline->extended_value, TMP1
- | sub REG0, REG0, #1
- | // if (EXPECTED(idx < EG(symbol_table).nNumUsed * sizeof(Bucket)))
- | MEM_LOAD_32_ZTS ldr, REG1w, executor_globals, symbol_table.nNumUsed, REG1
- | cmp REG0, REG1, lsl #5
- | bhs >9
- | // Bucket *p = (Bucket*)((char*)EG(symbol_table).arData + idx);
- | MEM_LOAD_64_ZTS ldr, TMP1, executor_globals, symbol_table.arData, REG1
- | add REG0, REG0, TMP1
- | IF_NOT_Z_TYPE REG0, IS_REFERENCE, >9, TMP1w
- | // (EXPECTED(p->key == varname))
- | ldr TMP1, [REG0, #offsetof(Bucket, key)]
- | LOAD_ADDR TMP2, varname
- | cmp TMP1, TMP2
- | bne >9
- | GET_Z_PTR REG0, REG0
- | GC_ADDREF REG0, TMP1w
- |1:
- if (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | // if (UNEXPECTED(Z_REFCOUNTED_P(variable_ptr)))
- | IF_ZVAL_REFCOUNTED op1_addr, >2, ZREG_TMP1, ZREG_TMP2
- |.cold_code
- |2:
- }
- | // zend_refcounted *garbage = Z_COUNTED_P(variable_ptr);
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | // ZVAL_REF(variable_ptr, ref)
- | SET_ZVAL_PTR op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_REFERENCE_EX, TMP1w, TMP2
- | // if (GC_DELREF(garbage) == 0)
- | GC_DELREF FCARG1x, TMP1w
- if (op1_info & (MAY_BE_REF|MAY_BE_ARRAY|MAY_BE_OBJECT)) {
- | bne >3
- } else {
- | bne >5
- }
- | ZVAL_DTOR_FUNC op1_info, opline, TMP1
- | b >5
- if (op1_info & (MAY_BE_REF|MAY_BE_ARRAY|MAY_BE_OBJECT)) {
- |3:
- | // GC_ZVAL_CHECK_POSSIBLE_ROOT(variable_ptr)
- | IF_GC_MAY_NOT_LEAK FCARG1x, >5, TMP1w, TMP2w
- | EXT_CALL gc_possible_root, REG0
- | b >5
- }
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- |.code
- }
- }
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF) - (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | // ZVAL_REF(variable_ptr, ref)
- | SET_ZVAL_PTR op1_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO op1_addr, IS_REFERENCE_EX, TMP1w, TMP2
- }
- |5:
- //END of handler
- |.cold_code
- |9:
- | LOAD_ADDR FCARG1x, (ptrdiff_t)varname
- if (opline->extended_value) {
- | ADD_SUB_64_WITH_CONST_32 add, FCARG2x, FCARG2x, opline->extended_value, TMP1
- }
- | EXT_CALL zend_jit_fetch_global_helper, REG0
- | mov REG0, RETVALx
- | b <1
- |.code
- return 1;
- }
- static int zend_jit_verify_arg_type(dasm_State **Dst, const zend_op *opline, zend_arg_info *arg_info, bool check_exception)
- {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- bool in_cold = 0;
- uint32_t type_mask = ZEND_TYPE_PURE_MASK(arg_info->type) & MAY_BE_ANY;
- zend_reg tmp_reg = (type_mask == 0 || is_power_of_two(type_mask)) ? ZREG_FCARG1 : ZREG_REG0;
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && JIT_G(current_frame)->prev) {
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- uint8_t type = STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var));
- if (type != IS_UNKNOWN && (type_mask & (1u << type))) {
- return 1;
- }
- }
- if (ZEND_ARG_SEND_MODE(arg_info)) {
- if (opline->opcode == ZEND_RECV_INIT) {
- | LOAD_ZVAL_ADDR Rx(tmp_reg), res_addr
- | ZVAL_DEREF Rx(tmp_reg), MAY_BE_REF, TMP1w
- res_addr = ZEND_ADDR_MEM_ZVAL(tmp_reg, 0);
- } else {
- | GET_ZVAL_PTR Rx(tmp_reg), res_addr, TMP1
- res_addr = ZEND_ADDR_MEM_ZVAL(tmp_reg, offsetof(zend_reference, val));
- }
- }
- if (type_mask != 0) {
- if (is_power_of_two(type_mask)) {
- uint32_t type_code = concrete_type(type_mask);
- | IF_NOT_ZVAL_TYPE res_addr, type_code, >1, ZREG_TMP1
- } else {
- | mov REG2w, #1
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, REG1w, Rx(Z_REG(res_addr)), Z_OFFSET(res_addr)+offsetof(zval, u1.v.type), TMP1
- | lsl REG2w, REG2w, REG1w
- | TST_32_WITH_CONST REG2w, type_mask, TMP1w
- | beq >1
- }
- |.cold_code
- |1:
- in_cold = 1;
- }
- if (Z_REG(res_addr) != ZREG_FCARG1 || Z_OFFSET(res_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- | SET_EX_OPLINE opline, REG0
- } else {
- | ADDR_STORE EX->opline, opline, REG0
- }
- | LOAD_ADDR FCARG2x, (ptrdiff_t)arg_info
- | EXT_CALL zend_jit_verify_arg_slow, REG0
- if (check_exception) {
- | GET_LOW_8BITS REG0w, RETVALw
- if (in_cold) {
- | cbnz REG0w, >1
- | b ->exception_handler
- |.code
- |1:
- } else {
- | cbz REG0w, ->exception_handler
- }
- } else if (in_cold) {
- | b >1
- |.code
- |1:
- }
- return 1;
- }
- static int zend_jit_recv(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array)
- {
- uint32_t arg_num = opline->op1.num;
- zend_arg_info *arg_info = NULL;
- if (op_array->fn_flags & ZEND_ACC_HAS_TYPE_HINTS) {
- if (EXPECTED(arg_num <= op_array->num_args)) {
- arg_info = &op_array->arg_info[arg_num-1];
- } else if (UNEXPECTED(op_array->fn_flags & ZEND_ACC_VARIADIC)) {
- arg_info = &op_array->arg_info[op_array->num_args];
- }
- if (arg_info && !ZEND_TYPE_IS_SET(arg_info->type)) {
- arg_info = NULL;
- }
- }
- if (arg_info || (opline+1)->opcode != ZEND_RECV) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- if (!JIT_G(current_frame) ||
- TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)) < 0 ||
- arg_num > TRACE_FRAME_NUM_ARGS(JIT_G(current_frame))) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | ldr TMP1w, EX->This.u2.num_args
- | CMP_32_WITH_CONST TMP1w, arg_num, TMP2w
- | blo &exit_addr
- }
- } else {
- | ldr TMP1w, EX->This.u2.num_args
- | CMP_32_WITH_CONST TMP1w, arg_num, TMP2w
- | blo >1
- |.cold_code
- |1:
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- | SET_EX_OPLINE opline, REG0
- } else {
- | ADDR_STORE EX->opline, opline, REG0
- }
- | mov FCARG1x, FP
- | EXT_CALL zend_missing_arg_error, REG0
- | b ->exception_handler
- |.code
- }
- }
- if (arg_info) {
- if (!zend_jit_verify_arg_type(Dst, opline, arg_info, 1)) {
- return 0;
- }
- }
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- if ((opline+1)->opcode != ZEND_RECV && (opline+1)->opcode != ZEND_RECV_INIT) {
- | LOAD_IP_ADDR (opline + 1)
- zend_jit_set_last_valid_opline(opline + 1);
- }
- }
- return 1;
- }
- static int zend_jit_recv_init(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, bool is_last, int may_throw)
- {
- uint32_t arg_num = opline->op1.num;
- zval *zv = RT_CONSTANT(opline, opline->op2);
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && JIT_G(current_frame)
- && TRACE_FRAME_NUM_ARGS(JIT_G(current_frame)) >= 0) {
- if (arg_num > TRACE_FRAME_NUM_ARGS(JIT_G(current_frame))) {
- | ZVAL_COPY_CONST res_addr, -1, -1, zv, ZREG_REG0, ZREG_TMP1, ZREG_FPR0
- if (Z_REFCOUNTED_P(zv)) {
- | ADDREF_CONST zv, REG0, TMP1
- }
- }
- } else {
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE ||
- (op_array->fn_flags & ZEND_ACC_HAS_TYPE_HINTS)) {
- | ldr TMP1w, EX->This.u2.num_args
- | CMP_32_WITH_CONST TMP1w, arg_num, TMP2w
- | bhs >5
- }
- | ZVAL_COPY_CONST res_addr, -1, -1, zv, ZREG_REG0, ZREG_TMP1, ZREG_FPR0
- if (Z_REFCOUNTED_P(zv)) {
- | ADDREF_CONST zv, REG0, TMP1
- }
- }
- if (Z_CONSTANT_P(zv)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- | SET_EX_OPLINE opline, REG0
- } else {
- | ADDR_STORE EX->opline, opline, REG0
- }
- | LOAD_ZVAL_ADDR FCARG1x, res_addr
- | ldr REG0, EX->func
- | ldr FCARG2x, [REG0, #offsetof(zend_op_array, scope)]
- | EXT_CALL zval_update_constant_ex, REG0
- | cbnz RETVALw, >1
- |.cold_code
- |1:
- | ZVAL_PTR_DTOR res_addr, MAY_BE_ANY|MAY_BE_RC1|MAY_BE_RCN, 1, 0, opline, ZREG_TMP1, ZREG_TMP2
- | SET_ZVAL_TYPE_INFO res_addr, IS_UNDEF, TMP1w, TMP2
- | b ->exception_handler
- |.code
- }
- |5:
- if (op_array->fn_flags & ZEND_ACC_HAS_TYPE_HINTS) {
- do {
- zend_arg_info *arg_info;
- if (arg_num <= op_array->num_args) {
- arg_info = &op_array->arg_info[arg_num-1];
- } else if (op_array->fn_flags & ZEND_ACC_VARIADIC) {
- arg_info = &op_array->arg_info[op_array->num_args];
- } else {
- break;
- }
- if (!ZEND_TYPE_IS_SET(arg_info->type)) {
- break;
- }
- if (!zend_jit_verify_arg_type(Dst, opline, arg_info, may_throw)) {
- return 0;
- }
- } while (0);
- }
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- if (is_last) {
- | LOAD_IP_ADDR (opline + 1)
- zend_jit_set_last_valid_opline(opline + 1);
- }
- }
- return 1;
- }
- static int zend_jit_class_guard(dasm_State **Dst, const zend_op *opline, zend_class_entry *ce)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | LOAD_ADDR TMP1, ((ptrdiff_t)ce)
- | ldr TMP2, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp TMP2, TMP1
- | bne &exit_addr
- return 1;
- }
- static int zend_jit_fetch_obj(dasm_State **Dst,
- const zend_op *opline,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- bool op1_indirect,
- zend_class_entry *ce,
- bool ce_is_instanceof,
- bool on_this,
- bool delayed_fetch_this,
- bool op1_avoid_refcounting,
- zend_class_entry *trace_ce,
- uint8_t prop_type,
- int may_throw)
- {
- zval *member;
- zend_property_info *prop_info;
- bool may_be_dynamic = 1;
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- zend_jit_addr this_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offsetof(zend_execute_data, This));
- zend_jit_addr prop_addr;
- uint32_t res_info = RES_INFO();
- bool type_loaded = 0;
- ZEND_ASSERT(opline->op2_type == IS_CONST);
- ZEND_ASSERT(op1_info & MAY_BE_OBJECT);
- member = RT_CONSTANT(opline, opline->op2);
- ZEND_ASSERT(Z_TYPE_P(member) == IS_STRING && Z_STRVAL_P(member)[0] != '\0');
- prop_info = zend_get_known_property_info(op_array, ce, Z_STR_P(member), on_this, op_array->filename);
- if (on_this) {
- | GET_ZVAL_PTR FCARG1x, this_addr, TMP1
- } else {
- if (opline->op1_type == IS_VAR
- && opline->opcode == ZEND_FETCH_OBJ_W
- && (op1_info & MAY_BE_INDIRECT)
- && Z_REG(op1_addr) == ZREG_FP) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_INDIRECT, >1, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_REF) {
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)- MAY_BE_OBJECT)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >7, ZREG_TMP1
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- }
- if (!prop_info && trace_ce && (trace_ce->ce_flags & ZEND_ACC_IMMUTABLE)) {
- prop_info = zend_get_known_property_info(op_array, trace_ce, Z_STR_P(member), on_this, op_array->filename);
- if (prop_info) {
- ce = trace_ce;
- ce_is_instanceof = 0;
- if (!(op1_info & MAY_BE_CLASS_GUARD)) {
- if (on_this && JIT_G(current_frame)
- && TRACE_FRAME_IS_THIS_CLASS_CHECKED(JIT_G(current_frame))) {
- ZEND_ASSERT(JIT_G(current_frame)->ce == ce);
- } else if (zend_jit_class_guard(Dst, opline, ce)) {
- if (on_this && JIT_G(current_frame)) {
- JIT_G(current_frame)->ce = ce;
- TRACE_FRAME_SET_THIS_CLASS_CHECKED(JIT_G(current_frame));
- }
- } else {
- return 0;
- }
- if (ssa->var_info && ssa_op->op1_use >= 0) {
- ssa->var_info[ssa_op->op1_use].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_use].ce = ce;
- ssa->var_info[ssa_op->op1_use].is_instanceof = ce_is_instanceof;
- }
- }
- }
- }
- if (!prop_info) {
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG2, REG0, (opline->extended_value & ~ZEND_FETCH_OBJ_FLAGS), TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp REG2, TMP1
- | bne >5
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, ((opline->extended_value & ~ZEND_FETCH_OBJ_FLAGS) + sizeof(void*)), TMP1
- may_be_dynamic = zend_may_be_dynamic_property(ce, Z_STR_P(member), opline->op1_type == IS_UNUSED, op_array->filename);
- if (may_be_dynamic) {
- | tst REG0, REG0
- if (opline->opcode == ZEND_FETCH_OBJ_W) {
- | blt >5
- } else {
- | blt >8 // dynamic property
- }
- }
- | add TMP1, FCARG1x, REG0
- | ldr REG2w, [TMP1, #offsetof(zval,u1.type_info)]
- | IF_UNDEF REG2w, >5
- | mov FCARG1x, TMP1
- type_loaded = 1;
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- if (opline->opcode == ZEND_FETCH_OBJ_W
- && (!ce || ce_is_instanceof || (ce->ce_flags & ZEND_ACC_HAS_TYPE_HINTS))) {
- uint32_t flags = opline->extended_value & ZEND_FETCH_OBJ_FLAGS;
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, ((opline->extended_value & ~ZEND_FETCH_OBJ_FLAGS) + sizeof(void*) * 2), TMP1
- | cbnz FCARG2x, >1
- |.cold_code
- |1:
- | ldr TMP1w, [FCARG2x, #offsetof(zend_property_info, flags)]
- | tst TMP1w, #ZEND_ACC_READONLY
- if (flags) {
- | beq >3
- } else {
- | beq >4
- }
- | IF_NOT_TYPE REG2w, IS_OBJECT_EX, >2
- | GET_Z_PTR REG2, FCARG1x
- | GC_ADDREF REG2, TMP1w
- | SET_ZVAL_PTR res_addr, REG2, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_OBJECT_EX, TMP1w, TMP2
- | b >9
- |2:
- | mov FCARG1x, FCARG2x
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_readonly_property_modification_error, REG0
- | SET_ZVAL_TYPE_INFO res_addr, _IS_ERROR, TMP1w, TMP2
- | b >9
- |3:
- if (flags == ZEND_FETCH_DIM_WRITE) {
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_check_array_promotion, REG0
- | b >9
- } else if (flags == ZEND_FETCH_REF) {
- | LOAD_ZVAL_ADDR CARG3, res_addr
- | EXT_CALL zend_jit_create_typed_ref, REG0
- | b >9
- } else {
- ZEND_ASSERT(flags == 0);
- }
- |.code
- |4:
- }
- } else {
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, prop_info->offset);
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- if (opline->opcode == ZEND_FETCH_OBJ_W || !(res_info & MAY_BE_GUARD) || !JIT_G(current_frame)) {
- /* perform IS_UNDEF check only after result type guard (during deoptimization) */
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- | IF_UNDEF REG2w, &exit_addr
- }
- } else {
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- | IF_UNDEF REG2w, >5
- }
- if (opline->opcode == ZEND_FETCH_OBJ_W && (prop_info->flags & ZEND_ACC_READONLY)) {
- if (!type_loaded) {
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- }
- | IF_NOT_TYPE REG2w, IS_OBJECT_EX, >4
- | GET_ZVAL_PTR REG2, prop_addr, TMP1
- | GC_ADDREF REG2, TMP1w
- | SET_ZVAL_PTR res_addr, REG2, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_OBJECT_EX, TMP1w, TMP2
- | b >9
- |.cold_code
- |4:
- | LOAD_ADDR FCARG1x, prop_info
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_readonly_property_modification_error, REG0
- | SET_ZVAL_TYPE_INFO res_addr, _IS_ERROR, TMP1w, TMP2
- | b >9
- |.code
- }
- if (opline->opcode == ZEND_FETCH_OBJ_W
- && (opline->extended_value & ZEND_FETCH_OBJ_FLAGS)
- && ZEND_TYPE_IS_SET(prop_info->type)) {
- uint32_t flags = opline->extended_value & ZEND_FETCH_OBJ_FLAGS;
- if (flags == ZEND_FETCH_DIM_WRITE) {
- if ((ZEND_TYPE_FULL_MASK(prop_info->type) & (MAY_BE_ITERABLE|MAY_BE_ARRAY)) == 0) {
- if (!type_loaded) {
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- }
- | cmp REG2w, #IS_FALSE
- | ble >1
- |.cold_code
- |1:
- if (Z_REG(prop_addr) != ZREG_FCARG1 || Z_OFFSET(prop_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- }
- | LOAD_ADDR FCARG2x, prop_info
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_check_array_promotion, REG0
- | b >9
- |.code
- }
- } else if (flags == ZEND_FETCH_REF) {
- if (!type_loaded) {
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- }
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_TYPE TMP1w, IS_REFERENCE, >1
- if (ce && ce->ce_flags & ZEND_ACC_IMMUTABLE) {
- | LOAD_ADDR FCARG2x, prop_info
- } else {
- int prop_info_offset =
- (((prop_info->offset - (sizeof(zend_object) - sizeof(zval))) / sizeof(zval)) * sizeof(void*));
- | ldr REG0, [FCARG1x, #offsetof(zend_object, ce)]
- | ldr REG0, [REG0, #offsetof(zend_class_entry, properties_info_table)]
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, prop_info_offset, TMP1
- }
- if (Z_REG(prop_addr) != ZREG_FCARG1 || Z_OFFSET(prop_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- }
- | LOAD_ZVAL_ADDR CARG3, res_addr
- | EXT_CALL zend_jit_create_typed_ref, REG0
- | b >9
- |1:
- } else {
- ZEND_UNREACHABLE();
- }
- }
- }
- if (opline->opcode == ZEND_FETCH_OBJ_W) {
- if (Z_REG(prop_addr) != ZREG_FCARG1 || Z_OFFSET(prop_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- }
- | SET_ZVAL_PTR res_addr, FCARG1x, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_INDIRECT, TMP1w, TMP2
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE && prop_info) {
- ssa->var_info[ssa_op->result_def].indirect_reference = 1;
- }
- } else {
- bool result_avoid_refcounting = 0;
- if ((res_info & MAY_BE_GUARD) && JIT_G(current_frame) && prop_info) {
- uint32_t flags = 0;
- uint32_t old_info;
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- int32_t exit_point;
- const void *exit_addr;
- uint32_t type;
- zend_jit_addr val_addr = prop_addr;
- if ((opline->op1_type & (IS_VAR|IS_TMP_VAR))
- && !delayed_fetch_this
- && !op1_avoid_refcounting) {
- flags = ZEND_JIT_EXIT_FREE_OP1;
- }
- if ((opline->result_type & (IS_VAR|IS_TMP_VAR))
- && !(flags & ZEND_JIT_EXIT_FREE_OP1)
- && (res_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))
- && (ssa_op+1)->op1_use == ssa_op->result_def
- && zend_jit_may_avoid_refcounting(opline+1, res_info)) {
- result_avoid_refcounting = 1;
- ssa->var_info[ssa_op->result_def].avoid_refcounting = 1;
- }
- type = concrete_type(res_info);
- if (prop_type != IS_UNKNOWN
- && prop_type != IS_UNDEF
- && prop_type != IS_REFERENCE
- && (op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_OBJECT) {
- exit_point = zend_jit_trace_get_exit_point(opline, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- } else {
- val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- | LOAD_ZVAL_ADDR REG0, prop_addr
- if (op1_avoid_refcounting) {
- SET_STACK_REG(JIT_G(current_frame)->stack,
- EX_VAR_TO_NUM(opline->op1.var), ZREG_NONE);
- }
- old_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_UNKNOWN, 1);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_ZVAL_COPY_GPR0);
- exit_point = zend_jit_trace_get_exit_point(opline+1, flags);
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_info);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- if (!type_loaded) {
- type_loaded = 1;
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.type_info)), TMP1
- }
- | // ZVAL_DEREF()
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_NOT_TYPE TMP1w, IS_REFERENCE, >1
- | GET_Z_PTR REG0, REG0
- | add REG0, REG0, #offsetof(zend_reference, val)
- | GET_ZVAL_TYPE_INFO REG2w, val_addr, TMP1
- }
- res_info &= ~MAY_BE_GUARD;
- ssa->var_info[ssa_op->result_def].type &= ~MAY_BE_GUARD;
- if (type < IS_STRING) {
- |1:
- if (type_loaded) {
- | IF_NOT_TYPE REG2w, type, &exit_addr
- } else {
- | IF_NOT_ZVAL_TYPE val_addr, type, &exit_addr, ZREG_TMP1
- }
- } else {
- if (!type_loaded) {
- type_loaded = 1;
- | GET_ZVAL_TYPE_INFO REG2w, val_addr, TMP1
- }
- |1:
- | GET_LOW_8BITS TMP1w, REG2w
- | IF_NOT_TYPE TMP1w, type, &exit_addr
- }
- | // ZVAL_COPY
- | ZVAL_COPY_VALUE_V res_addr, -1, val_addr, res_info, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_FPR0
- if (type < IS_STRING) {
- if (Z_REG(res_addr) != ZREG_FP ||
- JIT_G(current_frame) == NULL ||
- STACK_MEM_TYPE(JIT_G(current_frame)->stack, EX_VAR_TO_NUM(Z_OFFSET(res_addr))) != type) {
- | SET_ZVAL_TYPE_INFO res_addr, type, TMP1w, TMP2
- }
- } else {
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG2w, TMP1
- if (!result_avoid_refcounting) {
- | TRY_ADDREF res_info, REG2w, REG1, TMP1w
- }
- }
- } else {
- if (!zend_jit_zval_copy_deref(Dst, res_addr, prop_addr, ZREG_REG2)) {
- return 0;
- }
- }
- }
- if (op1_avoid_refcounting) {
- SET_STACK_REG(JIT_G(current_frame)->stack,
- EX_VAR_TO_NUM(opline->op1.var), ZREG_NONE);
- }
- |.cold_code
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE || !prop_info) {
- |5:
- | SET_EX_OPLINE opline, REG0
- if (opline->opcode == ZEND_FETCH_OBJ_W) {
- | EXT_CALL zend_jit_fetch_obj_w_slow, REG0
- } else if (opline->opcode != ZEND_FETCH_OBJ_IS) {
- | EXT_CALL zend_jit_fetch_obj_r_slow, REG0
- } else {
- | EXT_CALL zend_jit_fetch_obj_is_slow, REG0
- }
- | b >9
- }
- if ((op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)- MAY_BE_OBJECT)) && JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- |7:
- if (opline->opcode != ZEND_FETCH_OBJ_IS) {
- | SET_EX_OPLINE opline, REG0
- if (opline->opcode != ZEND_FETCH_OBJ_W
- && (op1_info & MAY_BE_UNDEF)) {
- zend_jit_addr orig_op1_addr = OP1_ADDR();
- if (op1_info & MAY_BE_ANY) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >1, ZREG_TMP1
- }
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- |1:
- | LOAD_ZVAL_ADDR FCARG1x, orig_op1_addr
- } else if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | LOAD_ADDR FCARG2x, Z_STRVAL_P(member)
- if (opline->opcode == ZEND_FETCH_OBJ_W) {
- | EXT_CALL zend_jit_invalid_property_write, REG0
- | SET_ZVAL_TYPE_INFO res_addr, _IS_ERROR, TMP1w, TMP2
- } else {
- | EXT_CALL zend_jit_invalid_property_read, REG0
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- }
- | b >9
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- | b >9
- }
- }
- if (!prop_info
- && may_be_dynamic
- && opline->opcode != ZEND_FETCH_OBJ_W) {
- |8:
- | mov FCARG2x, REG0
- | SET_EX_OPLINE opline, REG0
- if (opline->opcode != ZEND_FETCH_OBJ_IS) {
- | EXT_CALL zend_jit_fetch_obj_r_dynamic, REG0
- } else {
- | EXT_CALL zend_jit_fetch_obj_is_dynamic, REG0
- }
- | b >9
- }
- |.code;
- |9: // END
- if (opline->op1_type != IS_UNUSED && !delayed_fetch_this && !op1_indirect) {
- if (opline->op1_type == IS_VAR
- && opline->opcode == ZEND_FETCH_OBJ_W
- && (op1_info & MAY_BE_RC1)) {
- zend_jit_addr orig_op1_addr = OP1_ADDR();
- | IF_NOT_ZVAL_REFCOUNTED orig_op1_addr, >1, ZREG_TMP1, ZREG_TMP2
- | GET_ZVAL_PTR FCARG1x, orig_op1_addr, TMP1
- | GC_DELREF FCARG1x, TMP1w
- | bne >1
- | SET_EX_OPLINE opline, REG0
- | EXT_CALL zend_jit_extract_helper, REG0
- |1:
- } else if (!op1_avoid_refcounting) {
- if (on_this) {
- op1_info &= ~MAY_BE_RC1;
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && prop_info
- && (opline->opcode != ZEND_FETCH_OBJ_W ||
- !(opline->extended_value & ZEND_FETCH_OBJ_FLAGS) ||
- !ZEND_TYPE_IS_SET(prop_info->type))
- && (!(opline->op1_type & (IS_VAR|IS_TMP_VAR)) || on_this || op1_indirect)) {
- may_throw = 0;
- }
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_incdec_obj(dasm_State **Dst,
- const zend_op *opline,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- bool op1_indirect,
- zend_class_entry *ce,
- bool ce_is_instanceof,
- bool on_this,
- bool delayed_fetch_this,
- zend_class_entry *trace_ce,
- uint8_t prop_type)
- {
- zval *member;
- zend_string *name;
- zend_property_info *prop_info;
- zend_jit_addr this_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offsetof(zend_execute_data, This));
- zend_jit_addr res_addr = 0;
- zend_jit_addr prop_addr;
- bool needs_slow_path = 0;
- bool use_prop_guard = 0;
- bool may_throw = 0;
- uint32_t res_info = (opline->result_type != IS_UNDEF) ? RES_INFO() : 0;
- ZEND_ASSERT(opline->op2_type == IS_CONST);
- ZEND_ASSERT(op1_info & MAY_BE_OBJECT);
- if (opline->result_type != IS_UNUSED) {
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- }
- member = RT_CONSTANT(opline, opline->op2);
- ZEND_ASSERT(Z_TYPE_P(member) == IS_STRING && Z_STRVAL_P(member)[0] != '\0');
- name = Z_STR_P(member);
- prop_info = zend_get_known_property_info(op_array, ce, name, on_this, op_array->filename);
- if (on_this) {
- | GET_ZVAL_PTR FCARG1x, this_addr, TMP1
- } else {
- if (opline->op1_type == IS_VAR
- && (op1_info & MAY_BE_INDIRECT)
- && Z_REG(op1_addr) == ZREG_FP) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_INDIRECT, >1, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_REF) {
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)- MAY_BE_OBJECT)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >1, ZREG_TMP1
- |.cold_code
- |1:
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | LOAD_ADDR FCARG2x, ZSTR_VAL(name)
- | EXT_CALL zend_jit_invalid_property_incdec, REG0
- | b ->exception_handler
- |.code
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- }
- if (!prop_info && trace_ce && (trace_ce->ce_flags & ZEND_ACC_IMMUTABLE)) {
- prop_info = zend_get_known_property_info(op_array, trace_ce, name, on_this, op_array->filename);
- if (prop_info) {
- ce = trace_ce;
- ce_is_instanceof = 0;
- if (!(op1_info & MAY_BE_CLASS_GUARD)) {
- if (on_this && JIT_G(current_frame)
- && TRACE_FRAME_IS_THIS_CLASS_CHECKED(JIT_G(current_frame))) {
- ZEND_ASSERT(JIT_G(current_frame)->ce == ce);
- } else if (zend_jit_class_guard(Dst, opline, ce)) {
- if (on_this && JIT_G(current_frame)) {
- JIT_G(current_frame)->ce = ce;
- TRACE_FRAME_SET_THIS_CLASS_CHECKED(JIT_G(current_frame));
- }
- } else {
- return 0;
- }
- if (ssa->var_info && ssa_op->op1_use >= 0) {
- ssa->var_info[ssa_op->op1_use].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_use].ce = ce;
- ssa->var_info[ssa_op->op1_use].is_instanceof = ce_is_instanceof;
- }
- if (ssa->var_info && ssa_op->op1_def >= 0) {
- ssa->var_info[ssa_op->op1_def].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_def].ce = ce;
- ssa->var_info[ssa_op->op1_def].is_instanceof = ce_is_instanceof;
- }
- }
- }
- }
- use_prop_guard = (prop_type != IS_UNKNOWN
- && prop_type != IS_UNDEF
- && prop_type != IS_REFERENCE
- && (op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_OBJECT);
- if (!prop_info) {
- needs_slow_path = 1;
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG2, REG0, opline->extended_value, TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp REG2, TMP1
- | bne >7
- if (!ce || ce_is_instanceof || (ce->ce_flags & ZEND_ACC_HAS_TYPE_HINTS)) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, TMP1, REG0, (opline->extended_value + sizeof(void*) * 2), TMP1
- | cbnz TMP1, >7
- }
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, (opline->extended_value + sizeof(void*)), TMP1
- | tst REG0, REG0
- | blt >7
- | add TMP1, FCARG1x, REG0
- if (!use_prop_guard) {
- | ldrb TMP2w, [TMP1, #offsetof(zval,u1.v.type)]
- | IF_TYPE TMP2w , IS_UNDEF, >7
- }
- | mov FCARG1x, TMP1
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- } else {
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, prop_info->offset);
- if (ZEND_TYPE_IS_SET(prop_info->type) || !use_prop_guard) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, &exit_addr
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, >7
- needs_slow_path = 1;
- }
- }
- if (ZEND_TYPE_IS_SET(prop_info->type)) {
- may_throw = 1;
- | SET_EX_OPLINE opline, REG0
- if (ce && ce->ce_flags & ZEND_ACC_IMMUTABLE) {
- | LOAD_ADDR FCARG2x, prop_info
- } else {
- int prop_info_offset =
- (((prop_info->offset - (sizeof(zend_object) - sizeof(zval))) / sizeof(zval)) * sizeof(void*));
- | ldr REG0, [FCARG1x, #offsetof(zend_object, ce)]
- | ldr REG0, [REG0, #offsetof(zend_class_entry, properties_info_table)]
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, prop_info_offset, TMP1
- }
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- if (opline->result_type == IS_UNUSED) {
- switch (opline->opcode) {
- case ZEND_PRE_INC_OBJ:
- case ZEND_POST_INC_OBJ:
- | EXT_CALL zend_jit_inc_typed_prop, REG0
- break;
- case ZEND_PRE_DEC_OBJ:
- case ZEND_POST_DEC_OBJ:
- | EXT_CALL zend_jit_dec_typed_prop, REG0
- break;
- default:
- ZEND_UNREACHABLE();
- }
- } else {
- | LOAD_ZVAL_ADDR CARG3, res_addr
- switch (opline->opcode) {
- case ZEND_PRE_INC_OBJ:
- | EXT_CALL zend_jit_pre_inc_typed_prop, REG0
- break;
- case ZEND_PRE_DEC_OBJ:
- | EXT_CALL zend_jit_pre_dec_typed_prop, REG0
- break;
- case ZEND_POST_INC_OBJ:
- | EXT_CALL zend_jit_post_inc_typed_prop, REG0
- break;
- case ZEND_POST_DEC_OBJ:
- | EXT_CALL zend_jit_post_dec_typed_prop, REG0
- break;
- default:
- ZEND_UNREACHABLE();
- }
- }
- }
- }
- if (!prop_info || !ZEND_TYPE_IS_SET(prop_info->type)) {
- uint32_t var_info = MAY_BE_ANY|MAY_BE_REF|MAY_BE_RC1|MAY_BE_RCN;
- zend_jit_addr var_addr = prop_addr;
- if (use_prop_guard) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE var_addr, prop_type, &exit_addr, ZREG_TMP1
- var_info = (1 << prop_type) | (var_info & ~(MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF));
- }
- if (var_info & MAY_BE_REF) {
- may_throw = 1;
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- if (Z_REG(prop_addr) != ZREG_FCARG1 || Z_OFFSET(prop_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- }
- | IF_NOT_ZVAL_TYPE var_addr, IS_REFERENCE, >2, ZREG_TMP1
- | GET_ZVAL_PTR FCARG1x, var_addr, TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbnz TMP1, >1
- | add FCARG1x, FCARG1x, #offsetof(zend_reference, val)
- |.cold_code
- |1:
- if (opline) {
- | SET_EX_OPLINE opline, REG0
- }
- if (opline->result_type == IS_UNUSED) {
- | mov FCARG2x, xzr
- } else {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- }
- switch (opline->opcode) {
- case ZEND_PRE_INC_OBJ:
- | EXT_CALL zend_jit_pre_inc_typed_ref, REG0
- break;
- case ZEND_PRE_DEC_OBJ:
- | EXT_CALL zend_jit_pre_dec_typed_ref, REG0
- break;
- case ZEND_POST_INC_OBJ:
- | EXT_CALL zend_jit_post_inc_typed_ref, REG0
- break;
- case ZEND_POST_DEC_OBJ:
- | EXT_CALL zend_jit_post_dec_typed_ref, REG0
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | b >9
- |.code
- |2:
- }
- if (var_info & MAY_BE_LONG) {
- if (var_info & (MAY_BE_ANY - MAY_BE_LONG)) {
- | IF_NOT_ZVAL_TYPE var_addr, IS_LONG, >2, ZREG_TMP1
- }
- if (opline->opcode == ZEND_POST_INC_OBJ || opline->opcode == ZEND_POST_DEC_OBJ) {
- if (opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, -1, var_addr, MAY_BE_LONG, ZREG_REG1, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- }
- if (opline->opcode == ZEND_PRE_INC_OBJ || opline->opcode == ZEND_POST_INC_OBJ) {
- | LONG_ADD_SUB_WITH_IMM adds, var_addr, Z_L(1), TMP1, TMP2
- } else {
- | LONG_ADD_SUB_WITH_IMM subs, var_addr, Z_L(1), TMP1, TMP2
- }
- | bvs >3
- if (opline->opcode == ZEND_PRE_INC_OBJ || opline->opcode == ZEND_PRE_DEC_OBJ) {
- if (opline->result_type != IS_UNUSED) {
- | ZVAL_COPY_VALUE res_addr, -1, var_addr, MAY_BE_LONG, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- }
- }
- |.cold_code
- }
- if (var_info & (MAY_BE_ANY - MAY_BE_LONG)) {
- if (var_info & (MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- may_throw = 1;
- }
- if (var_info & MAY_BE_LONG) {
- |2:
- }
- if (Z_REG(var_addr) != ZREG_FCARG1 || Z_OFFSET(var_addr) != 0) {
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- }
- if (opline->opcode == ZEND_POST_INC_OBJ || opline->opcode == ZEND_POST_DEC_OBJ) {
- | ZVAL_COPY_VALUE res_addr, -1, var_addr, MAY_BE_ANY, ZREG_REG0, ZREG_REG2, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF MAY_BE_ANY, REG0w, REG2, TMP1w
- }
- if (opline->opcode == ZEND_PRE_INC_OBJ || opline->opcode == ZEND_POST_INC_OBJ) {
- if (opline->opcode == ZEND_PRE_INC_OBJ && opline->result_type != IS_UNUSED) {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- | EXT_CALL zend_jit_pre_inc, REG0
- } else {
- | EXT_CALL increment_function, REG0
- }
- } else {
- if (opline->opcode == ZEND_PRE_DEC_OBJ && opline->result_type != IS_UNUSED) {
- | LOAD_ZVAL_ADDR FCARG2x, res_addr
- | EXT_CALL zend_jit_pre_dec, REG0
- } else {
- | EXT_CALL decrement_function, REG0
- }
- }
- if (var_info & MAY_BE_LONG) {
- | b >4
- }
- }
- if (var_info & MAY_BE_LONG) {
- |3:
- if (opline->opcode == ZEND_PRE_INC_OBJ || opline->opcode == ZEND_POST_INC_OBJ) {
- uint64_t val = 0x43e0000000000000;
- | LOAD_64BIT_VAL TMP2, val
- | SET_ZVAL_LVAL_FROM_REG var_addr, TMP2, TMP1
- | SET_ZVAL_TYPE_INFO var_addr, IS_DOUBLE, TMP1w, TMP2
- if (opline->opcode == ZEND_PRE_INC_OBJ && opline->result_type != IS_UNUSED) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, TMP2, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- } else {
- uint64_t val = 0xc3e0000000000000;
- | LOAD_64BIT_VAL TMP2, val
- | SET_ZVAL_LVAL_FROM_REG var_addr, TMP2, TMP1
- | SET_ZVAL_TYPE_INFO var_addr, IS_DOUBLE, TMP1w, TMP2
- if (opline->opcode == ZEND_PRE_DEC_OBJ && opline->result_type != IS_UNUSED) {
- | SET_ZVAL_LVAL_FROM_REG res_addr, TMP2, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_DOUBLE, TMP1w, TMP2
- }
- }
- if (opline->result_type != IS_UNUSED
- && (opline->opcode == ZEND_PRE_INC_OBJ || opline->opcode == ZEND_PRE_DEC_OBJ)
- && prop_info
- && !ZEND_TYPE_IS_SET(prop_info->type)
- && (res_info & MAY_BE_GUARD)
- && (res_info & MAY_BE_LONG)) {
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- uint32_t old_res_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- int32_t exit_point;
- const void *exit_addr;
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_DOUBLE, 0);
- exit_point = zend_jit_trace_get_exit_point(opline + 1, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_res_info);
- ssa->var_info[ssa_op->result_def].type = res_info & ~MAY_BE_GUARD;
- | b &exit_addr
- |.code
- } else {
- | b >4
- |.code
- |4:
- }
- }
- }
- if (needs_slow_path) {
- may_throw = 1;
- |.cold_code
- |7:
- | SET_EX_OPLINE opline, REG0
- | // value = zobj->handlers->write_property(zobj, name, value, CACHE_ADDR(opline->extended_value));
- | LOAD_ADDR FCARG2x, name
- | ldr CARG3, EX->run_time_cache
- | ADD_SUB_64_WITH_CONST_32 add, CARG3, CARG3, opline->extended_value, TMP1
- if (opline->result_type == IS_UNUSED) {
- | mov CARG4, xzr
- } else {
- | LOAD_ZVAL_ADDR CARG4, res_addr
- }
- switch (opline->opcode) {
- case ZEND_PRE_INC_OBJ:
- | EXT_CALL zend_jit_pre_inc_obj_helper, REG0
- break;
- case ZEND_PRE_DEC_OBJ:
- | EXT_CALL zend_jit_pre_dec_obj_helper, REG0
- break;
- case ZEND_POST_INC_OBJ:
- | EXT_CALL zend_jit_post_inc_obj_helper, REG0
- break;
- case ZEND_POST_DEC_OBJ:
- | EXT_CALL zend_jit_post_dec_obj_helper, REG0
- break;
- default:
- ZEND_UNREACHABLE();
- }
- | b >9
- |.code
- }
- |9:
- if (opline->op1_type != IS_UNUSED && !delayed_fetch_this && !op1_indirect) {
- if ((op1_info & MAY_HAVE_DTOR) && (op1_info & MAY_BE_RC1)) {
- may_throw = 1;
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_assign_obj_op(dasm_State **Dst,
- const zend_op *opline,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- uint32_t val_info,
- zend_ssa_range *val_range,
- bool op1_indirect,
- zend_class_entry *ce,
- bool ce_is_instanceof,
- bool on_this,
- bool delayed_fetch_this,
- zend_class_entry *trace_ce,
- uint8_t prop_type)
- {
- zval *member;
- zend_string *name;
- zend_property_info *prop_info;
- zend_jit_addr val_addr = OP1_DATA_ADDR();
- zend_jit_addr this_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offsetof(zend_execute_data, This));
- zend_jit_addr prop_addr;
- bool needs_slow_path = 0;
- bool use_prop_guard = 0;
- bool may_throw = 0;
- binary_op_type binary_op = get_binary_op(opline->extended_value);
- ZEND_ASSERT(opline->op2_type == IS_CONST);
- ZEND_ASSERT(op1_info & MAY_BE_OBJECT);
- ZEND_ASSERT(opline->result_type == IS_UNUSED);
- member = RT_CONSTANT(opline, opline->op2);
- ZEND_ASSERT(Z_TYPE_P(member) == IS_STRING && Z_STRVAL_P(member)[0] != '\0');
- name = Z_STR_P(member);
- prop_info = zend_get_known_property_info(op_array, ce, name, on_this, op_array->filename);
- if (on_this) {
- | GET_ZVAL_PTR FCARG1x, this_addr, TMP1
- } else {
- if (opline->op1_type == IS_VAR
- && (op1_info & MAY_BE_INDIRECT)
- && Z_REG(op1_addr) == ZREG_FP) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_INDIRECT, >1, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_REF) {
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)- MAY_BE_OBJECT)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >1, ZREG_TMP1
- |.cold_code
- |1:
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | LOAD_ADDR FCARG2x, ZSTR_VAL(name)
- if (op1_info & MAY_BE_UNDEF) {
- | EXT_CALL zend_jit_invalid_property_assign_op, REG0
- } else {
- | EXT_CALL zend_jit_invalid_property_assign, REG0
- }
- may_throw = 1;
- if (((opline+1)->op1_type & (IS_VAR|IS_TMP_VAR))
- && (val_info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | b >8
- } else {
- | b >9
- }
- |.code
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- }
- if (!prop_info && trace_ce && (trace_ce->ce_flags & ZEND_ACC_IMMUTABLE)) {
- prop_info = zend_get_known_property_info(op_array, trace_ce, name, on_this, op_array->filename);
- if (prop_info) {
- ce = trace_ce;
- ce_is_instanceof = 0;
- if (!(op1_info & MAY_BE_CLASS_GUARD)) {
- if (on_this && JIT_G(current_frame)
- && TRACE_FRAME_IS_THIS_CLASS_CHECKED(JIT_G(current_frame))) {
- ZEND_ASSERT(JIT_G(current_frame)->ce == ce);
- } else if (zend_jit_class_guard(Dst, opline, ce)) {
- if (on_this && JIT_G(current_frame)) {
- JIT_G(current_frame)->ce = ce;
- TRACE_FRAME_SET_THIS_CLASS_CHECKED(JIT_G(current_frame));
- }
- } else {
- return 0;
- }
- if (ssa->var_info && ssa_op->op1_use >= 0) {
- ssa->var_info[ssa_op->op1_use].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_use].ce = ce;
- ssa->var_info[ssa_op->op1_use].is_instanceof = ce_is_instanceof;
- }
- if (ssa->var_info && ssa_op->op1_def >= 0) {
- ssa->var_info[ssa_op->op1_def].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_def].ce = ce;
- ssa->var_info[ssa_op->op1_def].is_instanceof = ce_is_instanceof;
- }
- }
- }
- }
- use_prop_guard = (prop_type != IS_UNKNOWN
- && prop_type != IS_UNDEF
- && prop_type != IS_REFERENCE
- && (op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_OBJECT);
- if (!prop_info) {
- needs_slow_path = 1;
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG2, REG0, ((opline+1)->extended_value), TMP1
- | ldr TMP2, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp REG2, TMP2
- | bne >7
- if (!ce || ce_is_instanceof || (ce->ce_flags & ZEND_ACC_HAS_TYPE_HINTS)) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, TMP1, REG0, ((opline+1)->extended_value + sizeof(void*) * 2), TMP1
- | cbnz TMP1, >7
- }
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, ((opline+1)->extended_value + sizeof(void*)), TMP1
- | tst REG0, REG0
- | blt >7
- | add TMP1, FCARG1x, REG0
- if (!use_prop_guard) {
- | ldrb TMP2w, [TMP1, #offsetof(zval,u1.v.type)]
- | IF_TYPE TMP2w, IS_UNDEF, >7
- }
- | mov FCARG1x, TMP1
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- } else {
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, prop_info->offset);
- if (ZEND_TYPE_IS_SET(prop_info->type) || !use_prop_guard) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, &exit_addr
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, >7
- needs_slow_path = 1;
- }
- }
- if (ZEND_TYPE_IS_SET(prop_info->type)) {
- uint32_t info = val_info;
- may_throw = 1;
- if (opline) {
- | SET_EX_OPLINE opline, REG0
- }
- | IF_ZVAL_TYPE prop_addr, IS_REFERENCE, >1, ZREG_TMP1
- |.cold_code
- |1:
- | GET_ZVAL_PTR FCARG1x, prop_addr, TMP1
- if (Z_MODE(val_addr) != IS_MEM_ZVAL || Z_REG(val_addr) != ZREG_FCARG2 || Z_OFFSET(val_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG2x, val_addr
- }
- | LOAD_ADDR CARG3, binary_op
- if ((opline->op2_type & (IS_TMP_VAR|IS_VAR))
- && (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | EXT_CALL zend_jit_assign_op_to_typed_ref_tmp, REG0
- } else {
- | EXT_CALL zend_jit_assign_op_to_typed_ref, REG0
- }
- | b >9
- |.code
- | // value = zend_assign_to_typed_prop(prop_info, property_val, value EXECUTE_DATA_CC);
- if (ce && ce->ce_flags & ZEND_ACC_IMMUTABLE) {
- | LOAD_ADDR FCARG2x, prop_info
- } else {
- int prop_info_offset =
- (((prop_info->offset - (sizeof(zend_object) - sizeof(zval))) / sizeof(zval)) * sizeof(void*));
- | ldr REG0, [FCARG1x, #offsetof(zend_object, ce)]
- | ldr REG0, [REG0, #offsetof(zend_class_entry, properties_info_table)]
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, prop_info_offset, TMP1
- }
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- | LOAD_ZVAL_ADDR CARG3, val_addr
- | LOAD_ADDR CARG4, binary_op
- | EXT_CALL zend_jit_assign_op_to_typed_prop, REG0
- if (info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- info |= MAY_BE_RC1|MAY_BE_RCN;
- }
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- }
- }
- if (!prop_info || !ZEND_TYPE_IS_SET(prop_info->type)) {
- zend_jit_addr var_addr = prop_addr;
- uint32_t var_info = MAY_BE_ANY|MAY_BE_REF|MAY_BE_RC1|MAY_BE_RCN;
- uint32_t var_def_info = MAY_BE_ANY|MAY_BE_REF|MAY_BE_RC1|MAY_BE_RCN;
- if (use_prop_guard) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE var_addr, prop_type, &exit_addr, ZREG_TMP1
- var_info = (1 << prop_type) | (var_info & ~(MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF));
- }
- if (var_info & MAY_BE_REF) {
- may_throw = 1;
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- | LOAD_ZVAL_ADDR REG0, prop_addr
- | IF_NOT_ZVAL_TYPE var_addr, IS_REFERENCE, >2, ZREG_TMP1
- | GET_ZVAL_PTR FCARG1x, var_addr, TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_reference, sources.ptr)]
- | cbnz TMP1, >1
- | add REG0, FCARG1x, #offsetof(zend_reference, val)
- |.cold_code
- |1:
- if (Z_MODE(val_addr) != IS_MEM_ZVAL || Z_REG(val_addr) != ZREG_FCARG2 || Z_OFFSET(val_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG2x, val_addr
- }
- if (opline) {
- | SET_EX_OPLINE opline, REG0
- }
- | LOAD_ADDR CARG3, binary_op
- if (((opline+1)->op1_type & (IS_TMP_VAR|IS_VAR))
- && (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | EXT_CALL zend_jit_assign_op_to_typed_ref_tmp, REG0
- } else {
- | EXT_CALL zend_jit_assign_op_to_typed_ref, REG0
- }
- | b >9
- |.code
- |2:
- }
- switch (opline->extended_value) {
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- if ((var_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) ||
- (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (opline->extended_value != ZEND_ADD ||
- (var_info & MAY_BE_ANY) != MAY_BE_ARRAY ||
- (val_info & MAY_BE_ANY) == MAY_BE_ARRAY) {
- may_throw = 1;
- }
- }
- if (!zend_jit_math_helper(Dst, opline, opline->extended_value, IS_CV, opline->op1, var_addr, var_info, (opline+1)->op1_type, (opline+1)->op1, val_addr, val_info, 0, var_addr, var_def_info, var_info,
- 1 /* may overflow */, 0)) {
- return 0;
- }
- break;
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- may_throw = 1;
- if ((var_info & (MAY_BE_STRING|MAY_BE_DOUBLE|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) ||
- (val_info & (MAY_BE_STRING|MAY_BE_DOUBLE|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if ((var_info & MAY_BE_ANY) != MAY_BE_STRING ||
- (val_info & MAY_BE_ANY) != MAY_BE_STRING) {
- may_throw = 1;
- }
- }
- goto long_math;
- case ZEND_SL:
- case ZEND_SR:
- if ((var_info & (MAY_BE_STRING|MAY_BE_DOUBLE|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) ||
- (val_info & (MAY_BE_STRING|MAY_BE_DOUBLE|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- may_throw = 1;
- }
- if ((opline+1)->op1_type != IS_CONST ||
- Z_TYPE_P(RT_CONSTANT((opline+1), (opline+1)->op1)) != IS_LONG ||
- Z_LVAL_P(RT_CONSTANT((opline+1), (opline+1)->op1)) < 0) {
- may_throw = 1;
- }
- goto long_math;
- case ZEND_MOD:
- if ((var_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) ||
- (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- if (opline->extended_value != ZEND_ADD ||
- (var_info & MAY_BE_ANY) != MAY_BE_ARRAY ||
- (val_info & MAY_BE_ANY) == MAY_BE_ARRAY) {
- may_throw = 1;
- }
- }
- if ((opline+1)->op1_type != IS_CONST ||
- Z_TYPE_P(RT_CONSTANT((opline+1), (opline+1)->op1)) != IS_LONG ||
- Z_LVAL_P(RT_CONSTANT((opline+1), (opline+1)->op1)) == 0) {
- may_throw = 1;
- }
- long_math:
- if (!zend_jit_long_math_helper(Dst, opline, opline->extended_value,
- IS_CV, opline->op1, var_addr, var_info, NULL,
- (opline+1)->op1_type, (opline+1)->op1, val_addr, val_info,
- val_range,
- 0, var_addr, var_def_info, var_info, 0)) {
- return 0;
- }
- break;
- case ZEND_CONCAT:
- may_throw = 1;
- if (!zend_jit_concat_helper(Dst, opline, IS_CV, opline->op1, var_addr, var_info, (opline+1)->op1_type, (opline+1)->op1, val_addr, val_info, var_addr,
- 0)) {
- return 0;
- }
- break;
- default:
- ZEND_UNREACHABLE();
- }
- }
- if (needs_slow_path) {
- may_throw = 1;
- |.cold_code
- |7:
- | SET_EX_OPLINE opline, REG0
- | // value = zobj->handlers->write_property(zobj, name, value, CACHE_ADDR(opline->extended_value));
- | LOAD_ADDR FCARG2x, name
- | LOAD_ZVAL_ADDR CARG3, val_addr
- | ldr CARG4, EX->run_time_cache
- | ADD_SUB_64_WITH_CONST_32 add, CARG4, CARG4, (opline+1)->extended_value, TMP1
- | LOAD_ADDR CARG5, binary_op
- | EXT_CALL zend_jit_assign_obj_op_helper, REG0
- if (val_info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- val_info |= MAY_BE_RC1|MAY_BE_RCN;
- }
- |8:
- | // FREE_OP_DATA();
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, val_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- | b >9
- |.code
- }
- |9:
- if (opline->op1_type != IS_UNUSED && !delayed_fetch_this && !op1_indirect) {
- if ((op1_info & MAY_HAVE_DTOR) && (op1_info & MAY_BE_RC1)) {
- may_throw = 1;
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_assign_obj(dasm_State **Dst,
- const zend_op *opline,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- uint32_t op1_info,
- zend_jit_addr op1_addr,
- uint32_t val_info,
- bool op1_indirect,
- zend_class_entry *ce,
- bool ce_is_instanceof,
- bool on_this,
- bool delayed_fetch_this,
- zend_class_entry *trace_ce,
- uint8_t prop_type,
- int may_throw)
- {
- zval *member;
- zend_string *name;
- zend_property_info *prop_info;
- zend_jit_addr val_addr = OP1_DATA_ADDR();
- zend_jit_addr res_addr = 0;
- zend_jit_addr this_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, offsetof(zend_execute_data, This));
- zend_jit_addr prop_addr;
- bool needs_slow_path = 0;
- bool needs_val_dtor = 0;
- if (RETURN_VALUE_USED(opline)) {
- res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- }
- ZEND_ASSERT(opline->op2_type == IS_CONST);
- ZEND_ASSERT(op1_info & MAY_BE_OBJECT);
- member = RT_CONSTANT(opline, opline->op2);
- ZEND_ASSERT(Z_TYPE_P(member) == IS_STRING && Z_STRVAL_P(member)[0] != '\0');
- name = Z_STR_P(member);
- prop_info = zend_get_known_property_info(op_array, ce, name, on_this, op_array->filename);
- if (on_this) {
- | GET_ZVAL_PTR FCARG1x, this_addr, TMP1
- } else {
- if (opline->op1_type == IS_VAR
- && (op1_info & MAY_BE_INDIRECT)
- && Z_REG(op1_addr) == ZREG_FP) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- | IF_NOT_Z_TYPE FCARG1x, IS_INDIRECT, >1, TMP1w
- | GET_Z_PTR FCARG1x, FCARG1x
- |1:
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & MAY_BE_REF) {
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- if (op1_info & ((MAY_BE_UNDEF|MAY_BE_ANY)- MAY_BE_OBJECT)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, &exit_addr, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_OBJECT, >1, ZREG_TMP1
- |.cold_code
- |1:
- | SET_EX_OPLINE opline, REG0
- if (Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- }
- | LOAD_ADDR FCARG2x, ZSTR_VAL(name)
- | EXT_CALL zend_jit_invalid_property_assign, REG0
- if (RETURN_VALUE_USED(opline)) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_NULL, TMP1w, TMP2
- }
- if (((opline+1)->op1_type & (IS_VAR|IS_TMP_VAR))
- && (val_info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- needs_val_dtor = 1;
- | b >7
- } else {
- | b >9
- }
- |.code
- }
- }
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- }
- if (!prop_info && trace_ce && (trace_ce->ce_flags & ZEND_ACC_IMMUTABLE)) {
- prop_info = zend_get_known_property_info(op_array, trace_ce, name, on_this, op_array->filename);
- if (prop_info) {
- ce = trace_ce;
- ce_is_instanceof = 0;
- if (!(op1_info & MAY_BE_CLASS_GUARD)) {
- if (on_this && JIT_G(current_frame)
- && TRACE_FRAME_IS_THIS_CLASS_CHECKED(JIT_G(current_frame))) {
- ZEND_ASSERT(JIT_G(current_frame)->ce == ce);
- } else if (zend_jit_class_guard(Dst, opline, ce)) {
- if (on_this && JIT_G(current_frame)) {
- JIT_G(current_frame)->ce = ce;
- TRACE_FRAME_SET_THIS_CLASS_CHECKED(JIT_G(current_frame));
- }
- } else {
- return 0;
- }
- if (ssa->var_info && ssa_op->op1_use >= 0) {
- ssa->var_info[ssa_op->op1_use].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_use].ce = ce;
- ssa->var_info[ssa_op->op1_use].is_instanceof = ce_is_instanceof;
- }
- if (ssa->var_info && ssa_op->op1_def >= 0) {
- ssa->var_info[ssa_op->op1_def].type |= MAY_BE_CLASS_GUARD;
- ssa->var_info[ssa_op->op1_def].ce = ce;
- ssa->var_info[ssa_op->op1_def].is_instanceof = ce_is_instanceof;
- }
- }
- }
- }
- if (!prop_info) {
- needs_slow_path = 1;
- | ldr REG0, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG2, REG0, opline->extended_value, TMP1
- | ldr TMP1, [FCARG1x, #offsetof(zend_object, ce)]
- | cmp REG2, TMP1
- | bne >5
- if (!ce || ce_is_instanceof || (ce->ce_flags & ZEND_ACC_HAS_TYPE_HINTS)) {
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, (opline->extended_value + sizeof(void*) * 2), TMP1
- }
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, REG0, (opline->extended_value + sizeof(void*)), TMP1
- | tst REG0, REG0
- | blt >5
- | add TMP2, FCARG1x, REG0
- | ldrb TMP1w, [TMP2, #offsetof(zval,u1.v.type)]
- | IF_TYPE TMP1w, IS_UNDEF, >5
- | mov FCARG1x, TMP2
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- if (!ce || ce_is_instanceof || (ce->ce_flags & ZEND_ACC_HAS_TYPE_HINTS)) {
- | cbnz FCARG2x, >1
- |.cold_code
- |1:
- | // value = zend_assign_to_typed_prop(prop_info, property_val, value EXECUTE_DATA_CC);
- | SET_EX_OPLINE opline, REG0
- | LOAD_ZVAL_ADDR CARG3, val_addr
- if (RETURN_VALUE_USED(opline)) {
- | LOAD_ZVAL_ADDR CARG4, res_addr
- } else {
- | mov CARG4, xzr
- }
- | EXT_CALL zend_jit_assign_to_typed_prop, REG0
- if ((opline+1)->op1_type == IS_CONST) {
- | // TODO: ???
- | // if (Z_TYPE_P(value) == orig_type) {
- | // CACHE_PTR_EX(cache_slot + 2, NULL);
- }
- if (((opline+1)->op1_type & (IS_VAR|IS_TMP_VAR))
- && (val_info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) {
- | b >7
- } else {
- | b >9
- }
- |.code
- }
- } else {
- prop_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, prop_info->offset);
- if (!ce || ce_is_instanceof || !(ce->ce_flags & ZEND_ACC_IMMUTABLE) || ce->__get || ce->__set || (prop_info->flags & ZEND_ACC_READONLY)) {
- // Undefined property with magic __get()/__set()
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, &exit_addr
- } else {
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP2w, FCARG1x, (prop_info->offset + offsetof(zval,u1.v.type)), TMP1
- | IF_TYPE TMP2w, IS_UNDEF, >5
- needs_slow_path = 1;
- }
- }
- if (ZEND_TYPE_IS_SET(prop_info->type)) {
- uint32_t info = val_info;
- | // value = zend_assign_to_typed_prop(prop_info, property_val, value EXECUTE_DATA_CC);
- | SET_EX_OPLINE opline, REG0
- if (ce && ce->ce_flags & ZEND_ACC_IMMUTABLE) {
- | LOAD_ADDR FCARG2x, prop_info
- } else {
- int prop_info_offset =
- (((prop_info->offset - (sizeof(zend_object) - sizeof(zval))) / sizeof(zval)) * sizeof(void*));
- | ldr REG0, [FCARG1x, #offsetof(zend_object, ce)]
- | ldr REG0, [REG0, #offsetof(zend_class_entry, properties_info_table)]
- | MEM_ACCESS_64_WITH_UOFFSET ldr, FCARG2x, REG0, prop_info_offset, TMP1
- }
- | LOAD_ZVAL_ADDR FCARG1x, prop_addr
- | LOAD_ZVAL_ADDR CARG3, val_addr
- if (RETURN_VALUE_USED(opline)) {
- | LOAD_ZVAL_ADDR CARG4, res_addr
- } else {
- | mov CARG4, xzr
- }
- | EXT_CALL zend_jit_assign_to_typed_prop, REG0
- if (info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- info |= MAY_BE_RC1|MAY_BE_RCN;
- }
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, info, 0, NULL, ZREG_TMP1, ZREG_TMP2
- }
- }
- if (!prop_info || !ZEND_TYPE_IS_SET(prop_info->type)) {
- // value = zend_assign_to_variable(property_val, value, OP_DATA_TYPE, EX_USES_STRICT_TYPES());
- if (opline->result_type == IS_UNUSED) {
- if (!zend_jit_assign_to_variable_call(Dst, opline, prop_addr, prop_addr, -1, -1, (opline+1)->op1_type, val_addr, val_info, res_addr, 0)) {
- return 0;
- }
- } else {
- if (!zend_jit_assign_to_variable(Dst, opline, prop_addr, prop_addr, -1, -1, (opline+1)->op1_type, val_addr, val_info, res_addr, 0)) {
- return 0;
- }
- }
- }
- if (needs_slow_path) {
- |.cold_code
- |5:
- | SET_EX_OPLINE opline, REG0
- | // value = zobj->handlers->write_property(zobj, name, value, CACHE_ADDR(opline->extended_value));
- | LOAD_ADDR FCARG2x, name
- | LOAD_ZVAL_ADDR CARG3, val_addr
- | ldr CARG4, EX->run_time_cache
- | ADD_SUB_64_WITH_CONST_32 add, CARG4, CARG4, opline->extended_value, TMP1
- if (RETURN_VALUE_USED(opline)) {
- | LOAD_ZVAL_ADDR CARG5, res_addr
- } else {
- | mov CARG5, xzr
- }
- | EXT_CALL zend_jit_assign_obj_helper, REG0
- if (val_info & (MAY_BE_REF|MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- val_info |= MAY_BE_RC1|MAY_BE_RCN;
- }
- |7:
- | // FREE_OP_DATA();
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, val_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- | b >9
- |.code
- } else if (needs_val_dtor) {
- |.cold_code
- |7:
- | // FREE_OP_DATA();
- | FREE_OP (opline+1)->op1_type, (opline+1)->op1, val_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- | b >9
- |.code
- }
- |9:
- if (opline->op1_type != IS_UNUSED && !delayed_fetch_this && !op1_indirect) {
- | FREE_OP opline->op1_type, opline->op1, op1_info, 1, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_free(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, int may_throw)
- {
- zend_jit_addr op1_addr = OP1_ADDR();
- if (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF)) {
- if (may_throw) {
- | SET_EX_OPLINE opline, REG0
- }
- if (opline->opcode == ZEND_FE_FREE && (op1_info & (MAY_BE_OBJECT|MAY_BE_REF))) {
- if (op1_info & MAY_BE_ARRAY) {
- | IF_ZVAL_TYPE op1_addr, IS_ARRAY, >7, ZREG_TMP1
- }
- | MEM_ACCESS_32_WITH_UOFFSET ldr, FCARG1w, FP, (opline->op1.var + offsetof(zval, u2.fe_iter_idx)), TMP1
- | mvn TMP1w, wzr // TODO: DynAsm fails loading #-1
- | cmp FCARG1w, TMP1w
- | beq >7
- | EXT_CALL zend_hash_iterator_del, REG0
- |7:
- }
- | ZVAL_PTR_DTOR op1_addr, op1_info, 0, 0, opline, ZREG_TMP1, ZREG_TMP2
- if (may_throw) {
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- }
- return 1;
- }
- static int zend_jit_echo(dasm_State **Dst, const zend_op *opline, uint32_t op1_info)
- {
- if (opline->op1_type == IS_CONST) {
- zval *zv;
- size_t len;
- zv = RT_CONSTANT(opline, opline->op1);
- ZEND_ASSERT(Z_TYPE_P(zv) == IS_STRING);
- len = Z_STRLEN_P(zv);
- if (len > 0) {
- const char *str = Z_STRVAL_P(zv);
- | SET_EX_OPLINE opline, REG0
- | LOAD_ADDR CARG1, str
- | LOAD_64BIT_VAL CARG2, len
- | EXT_CALL zend_write, REG0
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- } else {
- zend_jit_addr op1_addr = OP1_ADDR();
- ZEND_ASSERT((op1_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_STRING);
- | SET_EX_OPLINE opline, REG0
- | GET_ZVAL_PTR REG0, op1_addr, TMP1
- | add CARG1, REG0, #offsetof(zend_string, val)
- | ldr CARG2, [REG0, #offsetof(zend_string, len)]
- | EXT_CALL zend_write, REG0
- if (opline->op1_type & (IS_VAR|IS_TMP_VAR)) {
- | ZVAL_PTR_DTOR op1_addr, op1_info, 0, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_strlen(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_jit_addr res_addr)
- {
- if (opline->op1_type == IS_CONST) {
- zval *zv;
- size_t len;
- zv = RT_CONSTANT(opline, opline->op1);
- ZEND_ASSERT(Z_TYPE_P(zv) == IS_STRING);
- len = Z_STRLEN_P(zv);
- | SET_ZVAL_LVAL res_addr, len, TMP1, TMP2
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- } else if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, MAY_BE_LONG)) {
- return 0;
- }
- } else {
- ZEND_ASSERT((op1_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_STRING);
- if (Z_MODE(res_addr) == IS_REG) {
- | GET_ZVAL_PTR Rx(Z_REG(res_addr)), op1_addr, TMP1
- | ldr Rx(Z_REG(res_addr)), [Rx(Z_REG(res_addr)), #offsetof(zend_string, len)]
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, MAY_BE_LONG)) {
- return 0;
- }
- } else {
- | GET_ZVAL_PTR REG0, op1_addr, TMP1
- | ldr REG0, [REG0, #offsetof(zend_string, len)]
- | SET_ZVAL_LVAL_FROM_REG res_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- return 1;
- }
- static int zend_jit_count(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_jit_addr res_addr, int may_throw)
- {
- if (opline->op1_type == IS_CONST) {
- zval *zv;
- zend_long count;
- zv = RT_CONSTANT(opline, opline->op1);
- ZEND_ASSERT(Z_TYPE_P(zv) == IS_ARRAY);
- count = zend_hash_num_elements(Z_ARRVAL_P(zv));
- | SET_ZVAL_LVAL res_addr, count, TMP1, TMP2
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- } else if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, MAY_BE_LONG)) {
- return 0;
- }
- } else {
- ZEND_ASSERT((op1_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_ARRAY);
- // Note: See the implementation of ZEND_COUNT in Zend/zend_vm_def.h - arrays do not contain IS_UNDEF starting in php 8.1+.
- if (Z_MODE(res_addr) == IS_REG) {
- | GET_ZVAL_PTR Rx(Z_REG(res_addr)), op1_addr, TMP1
- // Sign-extend the 32-bit value to a potentially 64-bit zend_long
- | ldr Rw(Z_REG(res_addr)), [Rx(Z_REG(res_addr)), #offsetof(HashTable, nNumOfElements)]
- if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, MAY_BE_LONG)) {
- return 0;
- }
- } else {
- | GET_ZVAL_PTR REG0, op1_addr, TMP1
- // Sign-extend the 32-bit value to a potentially 64-bit zend_long
- | ldr REG0w, [REG0, #offsetof(HashTable, nNumOfElements)]
- | SET_ZVAL_LVAL_FROM_REG res_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- | FREE_OP opline->op1_type, opline->op1, op1_info, 0, opline, ZREG_TMP1, ZREG_TMP2
- }
- if (may_throw) {
- return zend_jit_check_exception(Dst);
- }
- return 1;
- }
- static int zend_jit_load_this(dasm_State **Dst, uint32_t var)
- {
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, var);
- | ldr FCARG1x, EX->This.value.ptr
- | SET_ZVAL_PTR var_addr, FCARG1x, TMP1
- | SET_ZVAL_TYPE_INFO var_addr, IS_OBJECT_EX, TMP1w, TMP2
- | GC_ADDREF FCARG1x, TMP1w
- return 1;
- }
- static int zend_jit_fetch_this(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, bool check_only)
- {
- if (!op_array->scope || (op_array->fn_flags & ZEND_ACC_STATIC)) {
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- if (!JIT_G(current_frame) ||
- !TRACE_FRAME_IS_THIS_CHECKED(JIT_G(current_frame))) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, ZEND_JIT_EXIT_TO_VM);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | ldrb TMP1w, EX->This.u1.v.type
- | cmp TMP1w, #IS_OBJECT
- | bne &exit_addr
- if (JIT_G(current_frame)) {
- TRACE_FRAME_SET_THIS_CHECKED(JIT_G(current_frame));
- }
- }
- } else {
- | ldrb TMP1w, EX->This.u1.v.type
- | cmp TMP1w, #IS_OBJECT
- | bne >1
- |.cold_code
- |1:
- | SET_EX_OPLINE opline, REG0
- | b ->invalid_this
- |.code
- }
- }
- if (!check_only) {
- if (!zend_jit_load_this(Dst, opline->result.var)) {
- return 0;
- }
- }
- return 1;
- }
- static int zend_jit_hash_jmp(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, zend_ssa *ssa, HashTable *jumptable, int default_b, const void *default_label, const zend_op *next_opline, zend_jit_trace_info *trace_info)
- {
- uint32_t count;
- Bucket *p;
- const zend_op *target;
- int b;
- int32_t exit_point;
- const void *exit_addr;
- if (default_label) {
- | cbz REG0, &default_label
- } else if (next_opline) {
- | cbz REG0, >3
- } else {
- | cbz REG0, =>default_b
- }
- | LOAD_ADDR FCARG1x, jumptable
- | ldr TMP1, [FCARG1x, #offsetof(HashTable, arData)]
- | sub REG0, REG0, TMP1
- | mov FCARG1x, #(sizeof(Bucket) / sizeof(void*))
- | sdiv REG0, REG0, FCARG1x
- | adr FCARG1x, >4
- | ldr TMP1, [FCARG1x, REG0]
- | br TMP1
- |.jmp_table
- |.align 8
- |4:
- if (trace_info) {
- trace_info->jmp_table_size += zend_hash_num_elements(jumptable);
- }
- count = jumptable->nNumUsed;
- p = jumptable->arData;
- do {
- if (Z_TYPE(p->val) == IS_UNDEF) {
- if (default_label) {
- | .addr &default_label
- } else if (next_opline) {
- | .addr >3
- } else {
- | .addr =>default_b
- }
- } else {
- target = ZEND_OFFSET_TO_OPLINE(opline, Z_LVAL(p->val));
- if (!next_opline) {
- b = ssa->cfg.map[target - op_array->opcodes];
- | .addr =>b
- } else if (next_opline == target) {
- | .addr >3
- } else {
- exit_point = zend_jit_trace_get_exit_point(target, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | .addr &exit_addr
- }
- }
- p++;
- count--;
- } while (count);
- |.code
- return 1;
- }
- static int zend_jit_switch(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, zend_ssa *ssa, zend_jit_trace_rec *trace, zend_jit_trace_info *trace_info)
- {
- HashTable *jumptable = Z_ARRVAL_P(RT_CONSTANT(opline, opline->op2));
- const zend_op *next_opline = NULL;
- if (trace) {
- ZEND_ASSERT(trace->op == ZEND_JIT_TRACE_VM || trace->op == ZEND_JIT_TRACE_END);
- ZEND_ASSERT(trace->opline != NULL);
- next_opline = trace->opline;
- }
- if (opline->op1_type == IS_CONST) {
- zval *zv = RT_CONSTANT(opline, opline->op1);
- zval *jump_zv = NULL;
- int b;
- if (opline->opcode == ZEND_SWITCH_LONG) {
- if (Z_TYPE_P(zv) == IS_LONG) {
- jump_zv = zend_hash_index_find(jumptable, Z_LVAL_P(zv));
- }
- } else if (opline->opcode == ZEND_SWITCH_STRING) {
- if (Z_TYPE_P(zv) == IS_STRING) {
- jump_zv = zend_hash_find_known_hash(jumptable, Z_STR_P(zv));
- }
- } else if (opline->opcode == ZEND_MATCH) {
- if (Z_TYPE_P(zv) == IS_LONG) {
- jump_zv = zend_hash_index_find(jumptable, Z_LVAL_P(zv));
- } else if (Z_TYPE_P(zv) == IS_STRING) {
- jump_zv = zend_hash_find_known_hash(jumptable, Z_STR_P(zv));
- }
- } else {
- ZEND_UNREACHABLE();
- }
- if (next_opline) {
- const zend_op *target;
- if (jump_zv != NULL) {
- target = ZEND_OFFSET_TO_OPLINE(opline, Z_LVAL_P(jump_zv));
- } else {
- target = ZEND_OFFSET_TO_OPLINE(opline, opline->extended_value);
- }
- ZEND_ASSERT(target == next_opline);
- } else {
- if (jump_zv != NULL) {
- b = ssa->cfg.map[ZEND_OFFSET_TO_OPLINE(opline, Z_LVAL_P(jump_zv)) - op_array->opcodes];
- } else {
- b = ssa->cfg.map[ZEND_OFFSET_TO_OPLINE(opline, opline->extended_value) - op_array->opcodes];
- }
- | b =>b
- }
- } else {
- zend_ssa_op *ssa_op = &ssa->ops[opline - op_array->opcodes];
- uint32_t op1_info = OP1_INFO();
- zend_jit_addr op1_addr = OP1_ADDR();
- const zend_op *default_opline = ZEND_OFFSET_TO_OPLINE(opline, opline->extended_value);
- const zend_op *target;
- int default_b = next_opline ? -1 : ssa->cfg.map[default_opline - op_array->opcodes];
- int b;
- int32_t exit_point;
- const void *fallback_label = NULL;
- const void *default_label = NULL;
- const void *exit_addr;
- if (next_opline) {
- if (next_opline != opline + 1) {
- exit_point = zend_jit_trace_get_exit_point(opline + 1, 0);
- fallback_label = zend_jit_trace_get_exit_addr(exit_point);
- if (!fallback_label) {
- return 0;
- }
- }
- if (next_opline != default_opline) {
- exit_point = zend_jit_trace_get_exit_point(default_opline, 0);
- default_label = zend_jit_trace_get_exit_addr(exit_point);
- if (!default_label) {
- return 0;
- }
- }
- }
- if (opline->opcode == ZEND_SWITCH_LONG) {
- if (op1_info & MAY_BE_LONG) {
- if (op1_info & MAY_BE_REF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >1, ZREG_TMP1
- | GET_ZVAL_LVAL ZREG_FCARG2, op1_addr, TMP1
- |.cold_code
- |1:
- | // ZVAL_DEREF(op)
- if (fallback_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, &fallback_label, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, >3, ZREG_TMP1
- }
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- if (fallback_label) {
- | add TMP1, FCARG2x, #offsetof(zend_reference, val)
- | IF_NOT_Z_TYPE TMP1, IS_LONG, &fallback_label, TMP2w
- } else {
- | add TMP1, FCARG2x, #offsetof(zend_reference, val)
- | IF_NOT_Z_TYPE TMP1, IS_LONG, >3, TMP2w
- }
- | ldr FCARG2x, [FCARG2x, #offsetof(zend_reference, val.value.lval)]
- | b >2
- |.code
- |2:
- } else {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) {
- if (fallback_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, &fallback_label, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >3, ZREG_TMP1
- }
- }
- | GET_ZVAL_LVAL ZREG_FCARG2, op1_addr, TMP1
- }
- if (HT_IS_PACKED(jumptable)) {
- uint32_t count = jumptable->nNumUsed;
- Bucket *p = jumptable->arData;
- | CMP_64_WITH_CONST_32 FCARG2x, jumptable->nNumUsed, TMP1
- if (default_label) {
- | bhs &default_label
- } else if (next_opline) {
- | bhs >3
- } else {
- | bhs =>default_b
- }
- | adr REG0, >4
- | ldr TMP1, [REG0, FCARG2x, lsl #3]
- | br TMP1
- |.jmp_table
- |.align 8
- |4:
- if (trace_info) {
- trace_info->jmp_table_size += count;
- }
- p = jumptable->arData;
- do {
- if (Z_TYPE(p->val) == IS_UNDEF) {
- if (default_label) {
- | .addr &default_label
- } else if (next_opline) {
- | .addr >3
- } else {
- | .addr =>default_b
- }
- } else {
- target = ZEND_OFFSET_TO_OPLINE(opline, Z_LVAL(p->val));
- if (!next_opline) {
- b = ssa->cfg.map[target - op_array->opcodes];
- | .addr =>b
- } else if (next_opline == target) {
- | .addr >3
- } else {
- exit_point = zend_jit_trace_get_exit_point(target, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | .addr &exit_addr
- }
- }
- p++;
- count--;
- } while (count);
- |.code
- |3:
- } else {
- | LOAD_ADDR FCARG1x, jumptable
- | EXT_CALL zend_hash_index_find, REG0
- | mov REG0, RETVALx
- if (!zend_jit_hash_jmp(Dst, opline, op_array, ssa, jumptable, default_b, default_label, next_opline, trace_info)) {
- return 0;
- }
- |3:
- }
- }
- } else if (opline->opcode == ZEND_SWITCH_STRING) {
- if (op1_info & MAY_BE_STRING) {
- if (op1_info & MAY_BE_REF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >1, ZREG_TMP1
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- |.cold_code
- |1:
- | // ZVAL_DEREF(op)
- if (fallback_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, &fallback_label, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_REFERENCE, >3, ZREG_TMP1
- }
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- if (fallback_label) {
- | add TMP1, FCARG2x, #offsetof(zend_reference, val)
- | IF_NOT_Z_TYPE TMP1, IS_STRING, &fallback_label, TMP2w
- } else {
- | add TMP1, FCARG2x, #offsetof(zend_reference, val)
- | IF_NOT_Z_TYPE TMP1, IS_STRING, >3, TMP2w
- }
- | ldr FCARG2x, [FCARG2x, #offsetof(zend_reference, val.value.ptr)]
- | b >2
- |.code
- |2:
- } else {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_STRING)) {
- if (fallback_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, &fallback_label, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >3, ZREG_TMP1
- }
- }
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- }
- | LOAD_ADDR FCARG1x, jumptable
- | EXT_CALL zend_hash_find, REG0
- | mov REG0, RETVALx
- if (!zend_jit_hash_jmp(Dst, opline, op_array, ssa, jumptable, default_b, default_label, next_opline, trace_info)) {
- return 0;
- }
- |3:
- }
- } else if (opline->opcode == ZEND_MATCH) {
- if (op1_info & (MAY_BE_LONG|MAY_BE_STRING)) {
- if (op1_info & MAY_BE_REF) {
- | LOAD_ZVAL_ADDR FCARG2x, op1_addr
- | ZVAL_DEREF FCARG2x, op1_info, TMP1w
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- }
- | LOAD_ADDR FCARG1x, jumptable
- if (op1_info & MAY_BE_LONG) {
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-MAY_BE_LONG)) {
- if (op1_info & MAY_BE_STRING) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >5, ZREG_TMP1
- } else if (op1_info & MAY_BE_UNDEF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >6, ZREG_TMP1
- } else if (default_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, &default_label, ZREG_TMP1
- } else if (next_opline) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_LONG, =>default_b, ZREG_TMP1
- }
- }
- | GET_ZVAL_LVAL ZREG_FCARG2, op1_addr, TMP1
- | EXT_CALL zend_hash_index_find, REG0
- | mov REG0, RETVALx
- if (op1_info & MAY_BE_STRING) {
- | b >2
- }
- }
- if (op1_info & MAY_BE_STRING) {
- |5:
- if (op1_info & ((MAY_BE_ANY|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_STRING))) {
- if (op1_info & MAY_BE_UNDEF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >6, ZREG_TMP1
- } else if (default_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, &default_label, ZREG_TMP1
- } else if (next_opline) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_STRING, =>default_b, ZREG_TMP1
- }
- }
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- | EXT_CALL zend_hash_find, REG0
- | mov REG0, RETVALx
- }
- |2:
- if (!zend_jit_hash_jmp(Dst, opline, op_array, ssa, jumptable, default_b, default_label, next_opline, trace_info)) {
- return 0;
- }
- }
- if (op1_info & MAY_BE_UNDEF) {
- |6:
- if (op1_info & (MAY_BE_ANY-(MAY_BE_LONG|MAY_BE_STRING))) {
- if (default_label) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, &default_label, ZREG_TMP1
- } else if (next_opline) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >3, ZREG_TMP1
- } else {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, =>default_b, ZREG_TMP1
- }
- }
- | // zend_error(E_WARNING, "Undefined variable $%s", ZSTR_VAL(CV_DEF_OF(EX_VAR_TO_NUM(opline->op1.var))));
- | SET_EX_OPLINE opline, REG0
- | LOAD_32BIT_VAL FCARG1w, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- if (!zend_jit_check_exception_undef_result(Dst, opline)) {
- return 0;
- }
- }
- if (default_label) {
- | b &default_label
- } else if (next_opline) {
- | b >3
- } else {
- | b =>default_b
- }
- |3:
- } else {
- ZEND_UNREACHABLE();
- }
- }
- return 1;
- }
- static bool zend_jit_verify_return_type(dasm_State **Dst, const zend_op *opline, const zend_op_array *op_array, uint32_t op1_info)
- {
- zend_arg_info *arg_info = &op_array->arg_info[-1];
- ZEND_ASSERT(ZEND_TYPE_IS_SET(arg_info->type));
- zend_jit_addr op1_addr = OP1_ADDR();
- bool needs_slow_check = 1;
- bool slow_check_in_cold = 1;
- uint32_t type_mask = ZEND_TYPE_PURE_MASK(arg_info->type) & MAY_BE_ANY;
- if (type_mask == 0) {
- slow_check_in_cold = 0;
- } else {
- if (((op1_info & MAY_BE_ANY) & type_mask) == 0) {
- slow_check_in_cold = 0;
- } else if (((op1_info & MAY_BE_ANY) | type_mask) == type_mask) {
- needs_slow_check = 0;
- } else if (is_power_of_two(type_mask)) {
- uint32_t type_code = concrete_type(type_mask);
- | IF_NOT_ZVAL_TYPE op1_addr, type_code, >6, ZREG_TMP1
- } else {
- | mov REG2w, #1
- | GET_ZVAL_TYPE REG1w, op1_addr, TMP1
- | lsl REG2w, REG2w, REG1w
- | TST_32_WITH_CONST REG2w, type_mask, TMP1w
- | beq >6
- }
- }
- if (needs_slow_check) {
- if (slow_check_in_cold) {
- |.cold_code
- |6:
- }
- | SET_EX_OPLINE opline, REG1
- if (op1_info & MAY_BE_UNDEF) {
- | IF_NOT_ZVAL_TYPE op1_addr, IS_UNDEF, >7, ZREG_TMP1
- | LOAD_32BIT_VAL FCARG1x, opline->op1.var
- | EXT_CALL zend_jit_undefined_op_helper, REG0
- | cbz RETVALx, ->exception_handler
- | LOAD_ADDR_ZTS FCARG1x, executor_globals, uninitialized_zval
- | b >8
- }
- |7:
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- |8:
- | ldr FCARG2x, EX->func
- | LOAD_ADDR CARG3, (ptrdiff_t)arg_info
- | ldr REG0, EX->run_time_cache
- | ADD_SUB_64_WITH_CONST_32 add, CARG4, REG0, opline->op2.num, TMP1
- | EXT_CALL zend_jit_verify_return_slow, REG0
- if (!zend_jit_check_exception(Dst)) {
- return 0;
- }
- if (slow_check_in_cold) {
- | b >9
- |.code
- }
- }
- |9:
- return 1;
- }
- static int zend_jit_isset_isempty_cv(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- // TODO: support for empty() ???
- ZEND_ASSERT(!(opline->extended_value & ZEND_ISEMPTY));
- if (op1_info & MAY_BE_REF) {
- if (Z_MODE(op1_addr) != IS_MEM_ZVAL || Z_REG(op1_addr) != ZREG_FCARG1 || Z_OFFSET(op1_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, op1_addr
- op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- }
- | ZVAL_DEREF FCARG1x, op1_info, TMP1w
- |1:
- }
- if (!(op1_info & (MAY_BE_UNDEF|MAY_BE_NULL))) {
- if (exit_addr) {
- ZEND_ASSERT(smart_branch_opcode == ZEND_JMPZ);
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | b =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | b =>target_label2
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_TRUE, TMP1w, TMP2
- }
- } else if (!(op1_info & (MAY_BE_ANY - MAY_BE_NULL))) {
- if (exit_addr) {
- ZEND_ASSERT(smart_branch_opcode == ZEND_JMPNZ);
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode != ZEND_JMPNZ) {
- | b =>target_label
- }
- } else {
- | SET_ZVAL_TYPE_INFO res_addr, IS_FALSE, TMP1w, TMP2
- }
- } else {
- ZEND_ASSERT(Z_MODE(op1_addr) == IS_MEM_ZVAL);
- | MEM_ACCESS_8_WITH_UOFFSET ldrb, TMP1w, Rx(Z_REG(op1_addr)), (Z_OFFSET(op1_addr)+offsetof(zval, u1.v.type)), TMP1
- | cmp TMP1w, #IS_NULL
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPNZ) {
- | bgt &exit_addr
- } else {
- | ble &exit_addr
- }
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | ble =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | bgt =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | ble =>target_label
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- | cset REG0w, gt
- | add REG0w, REG0w, #IS_FALSE
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- }
- return 1;
- }
- static int zend_jit_fe_reset(dasm_State **Dst, const zend_op *opline, uint32_t op1_info)
- {
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- if (opline->op1_type == IS_CONST) {
- zval *zv = RT_CONSTANT(opline, opline->op1);
- | ZVAL_COPY_CONST res_addr, MAY_BE_ANY, MAY_BE_ANY, zv, ZREG_REG0, ZREG_TMP1, ZREG_FPR0
- if (Z_REFCOUNTED_P(zv)) {
- | ADDREF_CONST zv, REG0, TMP1
- }
- } else {
- zend_jit_addr op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- | // ZVAL_COPY(res, value);
- | ZVAL_COPY_VALUE res_addr, -1, op1_addr, op1_info, ZREG_REG0, ZREG_FCARG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- if (opline->op1_type == IS_CV) {
- | TRY_ADDREF op1_info, REG0w, FCARG1x, TMP1w
- }
- }
- | // Z_FE_POS_P(res) = 0;
- | MEM_ACCESS_32_WITH_UOFFSET str, wzr, FP, (opline->result.var + offsetof(zval, u2.fe_pos)), TMP1
- return 1;
- }
- static int zend_jit_fe_fetch(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, uint32_t op2_info, unsigned int target_label, zend_uchar exit_opcode, const void *exit_addr)
- {
- zend_jit_addr op1_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op1.var);
- | // array = EX_VAR(opline->op1.var);
- | // fe_ht = Z_ARRVAL_P(array);
- | GET_ZVAL_PTR FCARG1x, op1_addr, TMP1
- | // pos = Z_FE_POS_P(array);
- | MEM_ACCESS_32_WITH_UOFFSET ldr, REG0w, FP, (opline->op1.var + offsetof(zval, u2.fe_pos)), TMP1
- | // p = fe_ht->arData + pos;
- || ZEND_ASSERT(sizeof(Bucket) == 32);
- | mov FCARG2w, REG0w
- | ldr TMP1, [FCARG1x, #offsetof(zend_array, arData)]
- | add FCARG2x, TMP1, FCARG2x, lsl #5
- |1:
- | // if (UNEXPECTED(pos >= fe_ht->nNumUsed)) {
- | ldr TMP1w, [FCARG1x, #offsetof(zend_array, nNumUsed)]
- | cmp TMP1w, REG0w
- | // ZEND_VM_SET_RELATIVE_OPCODE(opline, opline->extended_value);
- | // ZEND_VM_CONTINUE();
- if (exit_addr) {
- if (exit_opcode == ZEND_JMP) {
- | bls &exit_addr
- } else {
- | bls >3
- }
- } else {
- | bls =>target_label
- }
- | // pos++;
- | add REG0w, REG0w, #1
- | // value_type = Z_TYPE_INFO_P(value);
- | // if (EXPECTED(value_type != IS_UNDEF)) {
- if (!exit_addr || exit_opcode == ZEND_JMP) {
- | IF_NOT_Z_TYPE FCARG2x, IS_UNDEF, >3, TMP1w
- } else {
- | IF_NOT_Z_TYPE FCARG2x, IS_UNDEF, &exit_addr, TMP1w
- }
- | // p++;
- | add FCARG2x, FCARG2x, #sizeof(Bucket)
- | b <1
- |3:
- if (!exit_addr || exit_opcode == ZEND_JMP) {
- zend_jit_addr val_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG2, 0);
- zend_jit_addr var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->op2.var);
- uint32_t val_info;
- | // Z_FE_POS_P(array) = pos + 1;
- | MEM_ACCESS_32_WITH_UOFFSET str, REG0w, FP, (opline->op1.var + offsetof(zval, u2.fe_pos)), TMP1
- if (RETURN_VALUE_USED(opline)) {
- zend_jit_addr res_addr = RES_ADDR();
- if ((op1_info & MAY_BE_ARRAY_KEY_LONG)
- && (op1_info & MAY_BE_ARRAY_KEY_STRING)) {
- | // if (!p->key) {
- | ldr REG0, [FCARG2x, #offsetof(Bucket, key)]
- | cbz REG0, >2
- }
- if (op1_info & MAY_BE_ARRAY_KEY_STRING) {
- | // ZVAL_STR_COPY(EX_VAR(opline->result.var), p->key);
- | ldr REG0, [FCARG2x, #offsetof(Bucket, key)]
- | SET_ZVAL_PTR res_addr, REG0, TMP1
- | ldr TMP1w, [REG0, #offsetof(zend_refcounted, gc.u.type_info)]
- | TST_32_WITH_CONST TMP1w, IS_STR_INTERNED, TMP2w
- | beq >1
- | SET_ZVAL_TYPE_INFO res_addr, IS_STRING, TMP1w, TMP2
- | b >3
- |1:
- | GC_ADDREF REG0, TMP1w
- | SET_ZVAL_TYPE_INFO res_addr, IS_STRING_EX, TMP1w, TMP2
- if (op1_info & MAY_BE_ARRAY_KEY_LONG) {
- | b >3
- |2:
- }
- }
- if (op1_info & MAY_BE_ARRAY_KEY_LONG) {
- | // ZVAL_LONG(EX_VAR(opline->result.var), p->h);
- | ldr REG0, [FCARG2x, #offsetof(Bucket, h)]
- | SET_ZVAL_LVAL_FROM_REG res_addr, REG0, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_LONG, TMP1w, TMP2
- }
- |3:
- }
- val_info = ((op1_info & MAY_BE_ARRAY_OF_ANY) >> MAY_BE_ARRAY_SHIFT);
- if (val_info & MAY_BE_ARRAY) {
- val_info |= MAY_BE_ARRAY_KEY_ANY | MAY_BE_ARRAY_OF_ANY | MAY_BE_ARRAY_OF_REF;
- }
- if (op1_info & MAY_BE_ARRAY_OF_REF) {
- val_info |= MAY_BE_REF | MAY_BE_RC1 | MAY_BE_RCN | MAY_BE_ANY |
- MAY_BE_ARRAY_KEY_ANY | MAY_BE_ARRAY_OF_ANY | MAY_BE_ARRAY_OF_REF;
- } else if (val_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)) {
- val_info |= MAY_BE_RC1 | MAY_BE_RCN;
- }
- if (opline->op2_type == IS_CV) {
- | // zend_assign_to_variable(variable_ptr, value, IS_CV, EX_USES_STRICT_TYPES());
- if (!zend_jit_assign_to_variable(Dst, opline, var_addr, var_addr, op2_info, -1, IS_CV, val_addr, val_info, 0, 1)) {
- return 0;
- }
- } else {
- | // ZVAL_COPY(res, value);
- | ZVAL_COPY_VALUE var_addr, -1, val_addr, val_info, ZREG_REG0, ZREG_FCARG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF val_info, REG0w, FCARG1x, TMP1w
- }
- }
- return 1;
- }
- static int zend_jit_fetch_constant(dasm_State **Dst,
- const zend_op *opline,
- const zend_op_array *op_array,
- zend_ssa *ssa,
- const zend_ssa_op *ssa_op,
- zend_jit_addr res_addr)
- {
- zval *zv = RT_CONSTANT(opline, opline->op2) + 1;
- zend_jit_addr const_addr = ZEND_ADDR_MEM_ZVAL(ZREG_REG0, 0);
- uint32_t res_info = RES_INFO();
- | // c = CACHED_PTR(opline->extended_value);
- | ldr FCARG1x, EX->run_time_cache
- | MEM_ACCESS_64_WITH_UOFFSET ldr, REG0, FCARG1x, opline->extended_value, TMP1
- | // if (c != NULL)
- | cbz REG0, >9
- if (!zend_jit_is_persistent_constant(zv, opline->op1.num)) {
- | // if (!IS_SPECIAL_CACHE_VAL(c))
- || ZEND_ASSERT(CACHE_SPECIAL == 1);
- | TST_64_WITH_ONE REG0
- | bne >9
- }
- |8:
- if ((res_info & MAY_BE_GUARD) && JIT_G(current_frame)) {
- zend_jit_trace_stack *stack = JIT_G(current_frame)->stack;
- uint32_t old_info = STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var));
- int32_t exit_point;
- const void *exit_addr = NULL;
- SET_STACK_TYPE(stack, EX_VAR_TO_NUM(opline->result.var), IS_UNKNOWN, 1);
- SET_STACK_REG(stack, EX_VAR_TO_NUM(opline->result.var), ZREG_ZVAL_COPY_GPR0);
- exit_point = zend_jit_trace_get_exit_point(opline+1, 0);
- SET_STACK_INFO(stack, EX_VAR_TO_NUM(opline->result.var), old_info);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- res_info &= ~MAY_BE_GUARD;
- ssa->var_info[ssa_op->result_def].type &= ~MAY_BE_GUARD;
- uint32_t type = concrete_type(res_info);
- if (type < IS_STRING) {
- | IF_NOT_ZVAL_TYPE const_addr, type, &exit_addr, ZREG_TMP1
- } else {
- | GET_ZVAL_TYPE_INFO REG2w, const_addr, TMP1
- | IF_NOT_TYPE REG2w, type, &exit_addr
- }
- | ZVAL_COPY_VALUE_V res_addr, -1, const_addr, res_info, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_FPR0
- if (type < IS_STRING) {
- if (Z_MODE(res_addr) == IS_MEM_ZVAL) {
- | SET_ZVAL_TYPE_INFO res_addr, type, TMP1w, TMP2
- } else if (!zend_jit_store_var_if_necessary(Dst, opline->result.var, res_addr, res_info)) {
- return 0;
- }
- } else {
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG2w, TMP1
- | TRY_ADDREF res_info, REG2w, REG1, TMP1w
- }
- } else {
- | ZVAL_COPY_VALUE res_addr, MAY_BE_ANY, const_addr, MAY_BE_ANY, ZREG_REG0, ZREG_REG1, ZREG_TMP1, ZREG_TMP2, ZREG_FPR0
- | TRY_ADDREF MAY_BE_ANY, REG0w, REG1, TMP1w
- }
- |.cold_code
- |9:
- | // SAVE_OPLINE();
- | SET_EX_OPLINE opline, REG0
- | // zend_quick_get_constant(RT_CONSTANT(opline, opline->op2) + 1, opline->op1.num OPLINE_CC EXECUTE_DATA_CC);
- | LOAD_ADDR FCARG1x, zv
- | LOAD_32BIT_VAL FCARG2w, opline->op1.num
- | EXT_CALL zend_jit_get_constant, REG0
- | mov REG0, RETVALx
- | // ZEND_VM_NEXT_OPCODE_CHECK_EXCEPTION();
- | cbnz REG0, <8
- | b ->exception_handler
- |.code
- return 1;
- }
- static int zend_jit_in_array(dasm_State **Dst, const zend_op *opline, uint32_t op1_info, zend_jit_addr op1_addr, zend_uchar smart_branch_opcode, uint32_t target_label, uint32_t target_label2, const void *exit_addr)
- {
- HashTable *ht = Z_ARRVAL_P(RT_CONSTANT(opline, opline->op2));
- zend_jit_addr res_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FP, opline->result.var);
- ZEND_ASSERT(opline->op1_type != IS_VAR && opline->op1_type != IS_TMP_VAR);
- ZEND_ASSERT((op1_info & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF)) == MAY_BE_STRING);
- | // result = zend_hash_find_ex(ht, Z_STR_P(op1), OP1_TYPE == IS_CONST);
- | LOAD_ADDR FCARG1x, ht
- if (opline->op1_type != IS_CONST) {
- | GET_ZVAL_PTR FCARG2x, op1_addr, TMP1
- | EXT_CALL zend_hash_find, REG0
- } else {
- zend_string *str = Z_STR_P(RT_CONSTANT(opline, opline->op1));
- | LOAD_ADDR FCARG2x, str
- | EXT_CALL zend_hash_find_known_hash, REG0
- }
- if (exit_addr) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | cbz RETVALx, &exit_addr
- } else {
- | cbnz RETVALx, &exit_addr
- }
- } else if (smart_branch_opcode) {
- if (smart_branch_opcode == ZEND_JMPZ) {
- | cbz RETVALx, =>target_label
- } else if (smart_branch_opcode == ZEND_JMPNZ) {
- | cbnz RETVALx, =>target_label
- } else if (smart_branch_opcode == ZEND_JMPZNZ) {
- | cbz RETVALx, =>target_label
- | b =>target_label2
- } else {
- ZEND_UNREACHABLE();
- }
- } else {
- | tst RETVALx, RETVALx
- | cset REG0w, ne
- | add REG0w, REG0w, #IS_FALSE
- | SET_ZVAL_TYPE_INFO_FROM_REG res_addr, REG0w, TMP1
- }
- return 1;
- }
- static int zend_jit_rope(dasm_State **Dst, const zend_op *opline, uint32_t op2_info)
- {
- uint32_t offset;
- offset = (opline->opcode == ZEND_ROPE_INIT) ?
- opline->result.var :
- opline->op1.var + opline->extended_value * sizeof(zend_string*);
- if (opline->op2_type == IS_CONST) {
- zval *zv = RT_CONSTANT(opline, opline->op2);
- zend_string *str;
- ZEND_ASSERT(Z_TYPE_P(zv) == IS_STRING);
- str = Z_STR_P(zv);
- | LOAD_ADDR REG0, str
- | MEM_ACCESS_64_WITH_UOFFSET str, REG0, FP, offset, TMP1
- } else {
- zend_jit_addr op2_addr = OP2_ADDR();
- ZEND_ASSERT((op2_info & (MAY_BE_UNDEF|MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_STRING);
- | GET_ZVAL_PTR REG1, op2_addr, TMP1
- | MEM_ACCESS_64_WITH_UOFFSET str, REG1, FP, offset, TMP1
- if (opline->op2_type == IS_CV) {
- | GET_ZVAL_TYPE_INFO REG0w, op2_addr, TMP1
- | TRY_ADDREF op2_info, REG0w, REG1, TMP1w
- }
- }
- if (opline->opcode == ZEND_ROPE_END) {
- zend_jit_addr res_addr = RES_ADDR();
- | ADD_SUB_64_WITH_CONST add, FCARG1x, FP, opline->op1.var, TMP1
- | LOAD_32BIT_VAL FCARG2w, opline->extended_value
- | EXT_CALL zend_jit_rope_end, TMP1
- | SET_ZVAL_PTR res_addr, RETVALx, TMP1
- | SET_ZVAL_TYPE_INFO res_addr, IS_STRING_EX, TMP1w, TMP2
- }
- return 1;
- }
- static bool zend_jit_noref_guard(dasm_State **Dst, const zend_op *opline, zend_jit_addr var_addr)
- {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_ZVAL_TYPE var_addr, IS_REFERENCE, &exit_addr, ZREG_TMP1
- return 1;
- }
- static bool zend_jit_fetch_reference(dasm_State **Dst, const zend_op *opline, uint8_t var_type, uint32_t *var_info_ptr, zend_jit_addr *var_addr_ptr, bool add_ref_guard, bool add_type_guard)
- {
- zend_jit_addr var_addr = *var_addr_ptr;
- uint32_t var_info = *var_info_ptr;
- const void *exit_addr = NULL;
- if (add_ref_guard || add_type_guard) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- }
- if (add_ref_guard) {
- | IF_NOT_ZVAL_TYPE var_addr, IS_REFERENCE, &exit_addr, ZREG_TMP1
- }
- if (opline->opcode == ZEND_INIT_METHOD_CALL && opline->op1_type == IS_VAR) {
- /* Hack: Convert reference to regular value to simplify JIT code for INIT_METHOD_CALL */
- if (Z_REG(var_addr) != ZREG_FCARG1 || Z_OFFSET(var_addr) != 0) {
- | LOAD_ZVAL_ADDR FCARG1x, var_addr
- }
- | EXT_CALL zend_jit_unref_helper, REG0
- } else {
- | GET_ZVAL_PTR FCARG1x, var_addr, TMP1
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, offsetof(zend_reference, val));
- *var_addr_ptr = var_addr;
- }
- if (var_type != IS_UNKNOWN) {
- var_type &= ~(IS_TRACE_REFERENCE|IS_TRACE_INDIRECT|IS_TRACE_PACKED);
- }
- if (add_type_guard
- && var_type != IS_UNKNOWN
- && (var_info & (MAY_BE_ANY|MAY_BE_UNDEF)) != (1 << var_type)) {
- | IF_NOT_ZVAL_TYPE var_addr, var_type, &exit_addr, ZREG_TMP1
- ZEND_ASSERT(var_info & (1 << var_type));
- if (var_type < IS_STRING) {
- var_info = (1 << var_type);
- } else if (var_type != IS_ARRAY) {
- var_info = (1 << var_type) | (var_info & (MAY_BE_RC1|MAY_BE_RCN));
- } else {
- var_info = MAY_BE_ARRAY | (var_info & (MAY_BE_ARRAY_OF_ANY|MAY_BE_ARRAY_OF_REF|MAY_BE_ARRAY_KEY_ANY|MAY_BE_RC1|MAY_BE_RCN));
- }
- *var_info_ptr = var_info;
- } else {
- var_info &= ~MAY_BE_REF;
- *var_info_ptr = var_info;
- }
- *var_info_ptr |= MAY_BE_GUARD; /* prevent generation of specialized zval dtor */
- return 1;
- }
- static bool zend_jit_fetch_indirect_var(dasm_State **Dst, const zend_op *opline, uint8_t var_type, uint32_t *var_info_ptr, zend_jit_addr *var_addr_ptr, bool add_indirect_guard)
- {
- zend_jit_addr var_addr = *var_addr_ptr;
- uint32_t var_info = *var_info_ptr;
- int32_t exit_point;
- const void *exit_addr;
- if (add_indirect_guard) {
- int32_t exit_point = zend_jit_trace_get_exit_point(opline, 0);
- const void *exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_ZVAL_TYPE var_addr, IS_INDIRECT, &exit_addr, ZREG_TMP1
- | GET_ZVAL_PTR FCARG1x, var_addr, TMP1
- } else {
- /* May be already loaded into FCARG1a or RAX by previus FETCH_OBJ_W/DIM_W */
- if (opline->op1_type != IS_VAR ||
- (opline-1)->result_type != IS_VAR ||
- (opline-1)->result.var != opline->op1.var ||
- (opline-1)->op2_type == IS_VAR ||
- (opline-1)->op2_type == IS_TMP_VAR) {
- | GET_ZVAL_PTR FCARG1x, var_addr, TMP1
- } else if ((opline-1)->opcode == ZEND_FETCH_DIM_W || (opline-1)->opcode == ZEND_FETCH_DIM_RW) {
- | mov FCARG1x, REG0
- }
- }
- *var_info_ptr &= ~MAY_BE_INDIRECT;
- var_addr = ZEND_ADDR_MEM_ZVAL(ZREG_FCARG1, 0);
- *var_addr_ptr = var_addr;
- if (var_type != IS_UNKNOWN) {
- var_type &= ~(IS_TRACE_INDIRECT|IS_TRACE_PACKED);
- }
- if (!(var_type & IS_TRACE_REFERENCE)
- && var_type != IS_UNKNOWN
- && (var_info & (MAY_BE_ANY|MAY_BE_UNDEF)) != (1 << var_type)) {
- exit_point = zend_jit_trace_get_exit_point(opline, 0);
- exit_addr = zend_jit_trace_get_exit_addr(exit_point);
- if (!exit_addr) {
- return 0;
- }
- | IF_NOT_Z_TYPE FCARG1x, var_type, &exit_addr, TMP1w
- //var_info = zend_jit_trace_type_to_info_ex(var_type, var_info);
- ZEND_ASSERT(var_info & (1 << var_type));
- if (var_type < IS_STRING) {
- var_info = (1 << var_type);
- } else if (var_type != IS_ARRAY) {
- var_info = (1 << var_type) | (var_info & (MAY_BE_RC1|MAY_BE_RCN));
- } else {
- var_info = MAY_BE_ARRAY | (var_info & (MAY_BE_ARRAY_OF_ANY|MAY_BE_ARRAY_OF_REF|MAY_BE_ARRAY_KEY_ANY|MAY_BE_RC1|MAY_BE_RCN));
- }
- *var_info_ptr = var_info;
- }
- return 1;
- }
- static bool zend_jit_may_reuse_reg(const zend_op *opline, const zend_ssa_op *ssa_op, zend_ssa *ssa, int def_var, int use_var)
- {
- if ((ssa->var_info[def_var].type & ~MAY_BE_GUARD) != (ssa->var_info[use_var].type & ~MAY_BE_GUARD)) {
- return 0;
- }
- switch (opline->opcode) {
- case ZEND_QM_ASSIGN:
- case ZEND_SEND_VAR:
- case ZEND_ASSIGN:
- case ZEND_PRE_INC:
- case ZEND_PRE_DEC:
- case ZEND_POST_INC:
- case ZEND_POST_DEC:
- return 1;
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- case ZEND_SL:
- case ZEND_SR:
- if (def_var == ssa_op->result_def &&
- use_var == ssa_op->op1_use) {
- return 1;
- }
- break;
- default:
- break;
- }
- return 0;
- }
- static bool zend_jit_opline_supports_reg(const zend_op_array *op_array, zend_ssa *ssa, const zend_op *opline, const zend_ssa_op *ssa_op, zend_jit_trace_rec *trace)
- {
- uint32_t op1_info, op2_info;
- switch (opline->opcode) {
- case ZEND_SEND_VAR:
- case ZEND_SEND_VAL:
- case ZEND_SEND_VAL_EX:
- return (opline->op2_type != IS_CONST);
- case ZEND_QM_ASSIGN:
- case ZEND_IS_SMALLER:
- case ZEND_IS_SMALLER_OR_EQUAL:
- case ZEND_IS_EQUAL:
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_IS_NOT_IDENTICAL:
- case ZEND_CASE:
- return 1;
- case ZEND_RETURN:
- return (op_array->type != ZEND_EVAL_CODE && op_array->function_name);
- case ZEND_ASSIGN:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- return
- opline->op1_type == IS_CV &&
- !(op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_RESOURCE|MAY_BE_OBJECT|MAY_BE_REF)) &&
- !(op2_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)));
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- return !((op1_info | op2_info) & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF) - (MAY_BE_LONG|MAY_BE_DOUBLE)));
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- case ZEND_SL:
- case ZEND_SR:
- case ZEND_MOD:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- return !((op1_info | op2_info) & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF) - MAY_BE_LONG));
- case ZEND_PRE_INC:
- case ZEND_PRE_DEC:
- case ZEND_POST_INC:
- case ZEND_POST_DEC:
- op1_info = OP1_INFO();
- op2_info = OP1_DEF_INFO();
- return opline->op1_type == IS_CV
- && !(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF) - MAY_BE_LONG))
- && (op2_info & MAY_BE_LONG);
- case ZEND_STRLEN:
- op1_info = OP1_INFO();
- return (opline->op1_type & (IS_CV|IS_CONST))
- && (op1_info & (MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)) == MAY_BE_STRING;
- case ZEND_COUNT:
- op1_info = OP1_INFO();
- return (opline->op1_type & (IS_CV|IS_CONST))
- && (op1_info & (MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)) == MAY_BE_ARRAY;
- case ZEND_JMPZ:
- case ZEND_JMPNZ:
- if (JIT_G(trigger) != ZEND_JIT_ON_HOT_TRACE) {
- if (!ssa->cfg.map) {
- return 0;
- }
- if (opline > op_array->opcodes + ssa->cfg.blocks[ssa->cfg.map[opline-op_array->opcodes]].start &&
- ((opline-1)->result_type & (IS_SMART_BRANCH_JMPZ|IS_SMART_BRANCH_JMPNZ)) != 0) {
- return 0;
- }
- }
- ZEND_FALLTHROUGH;
- case ZEND_BOOL:
- case ZEND_BOOL_NOT:
- case ZEND_JMPZNZ:
- case ZEND_JMPZ_EX:
- case ZEND_JMPNZ_EX:
- return 1;
- case ZEND_FETCH_CONSTANT:
- return 1;
- case ZEND_FETCH_DIM_R:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (trace
- && trace->op1_type != IS_UNKNOWN
- && (trace->op1_type & ~(IS_TRACE_REFERENCE|IS_TRACE_INDIRECT|IS_TRACE_PACKED)) == IS_ARRAY) {
- op1_info &= ~((MAY_BE_ANY|MAY_BE_UNDEF) - MAY_BE_ARRAY);
- }
- return ((op1_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_ARRAY) &&
- (!(opline->op1_type & (IS_TMP_VAR|IS_VAR)) || !(op1_info & MAY_BE_RC1)) &&
- (((op2_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_LONG) ||
- (((op2_info & (MAY_BE_ANY|MAY_BE_UNDEF)) == MAY_BE_STRING) &&
- (!(opline->op2_type & (IS_TMP_VAR|IS_VAR)) || !(op2_info & MAY_BE_RC1))));
- }
- return 0;
- }
- static bool zend_jit_var_supports_reg(zend_ssa *ssa, int var)
- {
- if (ssa->vars[var].no_val) {
- /* we don't need the value */
- return 0;
- }
- if (!(JIT_G(opt_flags) & ZEND_JIT_REG_ALLOC_GLOBAL)) {
- /* Disable global register allocation,
- * register allocation for SSA variables connected through Phi functions
- */
- if (ssa->vars[var].definition_phi) {
- return 0;
- }
- if (ssa->vars[var].phi_use_chain) {
- zend_ssa_phi *phi = ssa->vars[var].phi_use_chain;
- do {
- if (!ssa->vars[phi->ssa_var].no_val) {
- return 0;
- }
- phi = zend_ssa_next_use_phi(ssa, var, phi);
- } while (phi);
- }
- }
- if (((ssa->var_info[var].type & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF)) != MAY_BE_DOUBLE) &&
- ((ssa->var_info[var].type & (MAY_BE_ANY|MAY_BE_UNDEF|MAY_BE_REF)) != MAY_BE_LONG)) {
- /* bad type */
- return 0;
- }
- return 1;
- }
- static bool zend_jit_may_be_in_reg(const zend_op_array *op_array, zend_ssa *ssa, int var)
- {
- if (!zend_jit_var_supports_reg(ssa, var)) {
- return 0;
- }
- if (ssa->vars[var].definition >= 0) {
- uint32_t def = ssa->vars[var].definition;
- if (!zend_jit_opline_supports_reg(op_array, ssa, op_array->opcodes + def, ssa->ops + def, NULL)) {
- return 0;
- }
- }
- if (ssa->vars[var].use_chain >= 0) {
- int use = ssa->vars[var].use_chain;
- do {
- if (!zend_ssa_is_no_val_use(op_array->opcodes + use, ssa->ops + use, var) &&
- !zend_jit_opline_supports_reg(op_array, ssa, op_array->opcodes + use, ssa->ops + use, NULL)) {
- return 0;
- }
- use = zend_ssa_next_use(ssa->ops, var, use);
- } while (use >= 0);
- }
- return 1;
- }
- static zend_regset zend_jit_get_def_scratch_regset(const zend_op *opline, const zend_ssa_op *ssa_op, const zend_op_array *op_array, zend_ssa *ssa, int current_var, bool last_use)
- {
- uint32_t op1_info, op2_info;
- switch (opline->opcode) {
- case ZEND_FETCH_DIM_R:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (((opline->op1_type & (IS_TMP_VAR|IS_VAR)) &&
- (op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE))) ||
- ((opline->op2_type & (IS_TMP_VAR|IS_VAR)) &&
- (op2_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE)))) {
- return ZEND_REGSET(ZREG_FCARG1);
- }
- break;
- default:
- break;
- }
- return ZEND_REGSET_EMPTY;
- }
- static zend_regset zend_jit_get_scratch_regset(const zend_op *opline, const zend_ssa_op *ssa_op, const zend_op_array *op_array, zend_ssa *ssa, int current_var, bool last_use)
- {
- uint32_t op1_info, op2_info, res_info;
- zend_regset regset = ZEND_REGSET_SCRATCH;
- switch (opline->opcode) {
- case ZEND_NOP:
- case ZEND_OP_DATA:
- case ZEND_JMP:
- case ZEND_RETURN:
- regset = ZEND_REGSET_EMPTY;
- break;
- case ZEND_QM_ASSIGN:
- if (ssa_op->op1_def == current_var ||
- ssa_op->result_def == current_var) {
- regset = ZEND_REGSET_EMPTY;
- break;
- }
- /* break missing intentionally */
- case ZEND_SEND_VAL:
- case ZEND_SEND_VAL_EX:
- if (opline->op2_type == IS_CONST) {
- break;
- }
- if (ssa_op->op1_use == current_var) {
- regset = ZEND_REGSET(ZREG_REG0);
- break;
- }
- op1_info = OP1_INFO();
- if (!(op1_info & MAY_BE_UNDEF)) {
- if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_DOUBLE) {
- regset = ZEND_REGSET(ZREG_FPR0);
- } else if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_LONG) {
- regset = ZEND_REGSET(ZREG_REG0);
- } else {
- regset = ZEND_REGSET_UNION(ZEND_REGSET(ZREG_REG0), ZEND_REGSET(ZREG_REG2));
- }
- }
- break;
- case ZEND_SEND_VAR:
- if (opline->op2_type == IS_CONST) {
- break;
- }
- if (ssa_op->op1_use == current_var ||
- ssa_op->op1_def == current_var) {
- regset = ZEND_REGSET_EMPTY;
- break;
- }
- op1_info = OP1_INFO();
- if (!(op1_info & MAY_BE_UNDEF)) {
- if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_DOUBLE) {
- regset = ZEND_REGSET(ZREG_FPR0);
- } else if ((op1_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_LONG) {
- } else {
- regset = ZEND_REGSET_UNION(ZEND_REGSET(ZREG_REG0), ZEND_REGSET(ZREG_REG2));
- if (op1_info & MAY_BE_REF) {
- ZEND_REGSET_INCL(regset, ZREG_REG1);
- }
- }
- }
- break;
- case ZEND_ASSIGN:
- if (ssa_op->op2_use == current_var ||
- ssa_op->op2_def == current_var ||
- ssa_op->op1_def == current_var ||
- ssa_op->result_def == current_var) {
- regset = ZEND_REGSET_EMPTY;
- break;
- }
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (opline->op1_type == IS_CV
- && !(op2_info & MAY_BE_UNDEF)
- && !(op1_info & (MAY_BE_STRING|MAY_BE_ARRAY|MAY_BE_OBJECT|MAY_BE_RESOURCE|MAY_BE_REF))) {
- if ((op2_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_DOUBLE) {
- regset = ZEND_REGSET(ZREG_FPR0);
- } else if ((op2_info & (MAY_BE_ANY|MAY_BE_REF)) == MAY_BE_LONG) {
- regset = ZEND_REGSET(ZREG_REG0);
- } else {
- regset = ZEND_REGSET_UNION(ZEND_REGSET(ZREG_REG0), ZEND_REGSET(ZREG_REG2));
- }
- }
- break;
- case ZEND_PRE_INC:
- case ZEND_PRE_DEC:
- case ZEND_POST_INC:
- case ZEND_POST_DEC:
- if (ssa_op->op1_use == current_var ||
- ssa_op->op1_def == current_var ||
- ssa_op->result_def == current_var) {
- regset = ZEND_REGSET_EMPTY;
- break;
- }
- op1_info = OP1_INFO();
- if (opline->op1_type == IS_CV
- && (op1_info & MAY_BE_LONG)
- && !(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- regset = ZEND_REGSET_EMPTY;
- if (op1_info & MAY_BE_DOUBLE) {
- regset = ZEND_REGSET(ZREG_FPR0);
- }
- if (opline->result_type != IS_UNUSED && (op1_info & MAY_BE_LONG)) {
- ZEND_REGSET_INCL(regset, ZREG_REG1);
- }
- }
- break;
- case ZEND_ADD:
- case ZEND_SUB:
- case ZEND_MUL:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (!(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) &&
- !(op2_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- regset = ZEND_REGSET_EMPTY;
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_LONG)) {
- if (ssa_op->result_def != current_var &&
- (ssa_op->op1_use != current_var || !last_use)) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- res_info = RES_INFO();
- if (res_info & MAY_BE_DOUBLE) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- ZEND_REGSET_INCL(regset, ZREG_FPR1);
- } else if (res_info & MAY_BE_GUARD) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- }
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_DOUBLE)) {
- if (ssa_op->result_def != current_var) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- }
- if ((op1_info & MAY_BE_DOUBLE) && (op2_info & MAY_BE_LONG)) {
- if (zend_is_commutative(opline->opcode)) {
- if (ssa_op->result_def != current_var) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- } else {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- if (ssa_op->result_def != current_var &&
- (ssa_op->op1_use != current_var || !last_use)) {
- ZEND_REGSET_INCL(regset, ZREG_FPR1);
- }
- }
- }
- if ((op1_info & MAY_BE_DOUBLE) && (op2_info & MAY_BE_DOUBLE)) {
- if (ssa_op->result_def != current_var &&
- (ssa_op->op1_use != current_var || !last_use) &&
- (!zend_is_commutative(opline->opcode) || ssa_op->op2_use != current_var || !last_use)) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- }
- }
- break;
- case ZEND_BW_OR:
- case ZEND_BW_AND:
- case ZEND_BW_XOR:
- case ZEND_SL:
- case ZEND_SR:
- case ZEND_MOD:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (!(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-MAY_BE_LONG)) &&
- !(op2_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-MAY_BE_LONG))) {
- regset = ZEND_REGSET_EMPTY;
- if (ssa_op->result_def != current_var &&
- (ssa_op->op1_use != current_var || !last_use)) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- }
- break;
- case ZEND_IS_SMALLER:
- case ZEND_IS_SMALLER_OR_EQUAL:
- case ZEND_IS_EQUAL:
- case ZEND_IS_NOT_EQUAL:
- case ZEND_IS_IDENTICAL:
- case ZEND_IS_NOT_IDENTICAL:
- case ZEND_CASE:
- op1_info = OP1_INFO();
- op2_info = OP2_INFO();
- if (!(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE))) &&
- !(op2_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- regset = ZEND_REGSET_EMPTY;
- if (!(opline->result_type & (IS_SMART_BRANCH_JMPZ|IS_SMART_BRANCH_JMPNZ))) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_LONG) &&
- opline->op1_type != IS_CONST && opline->op2_type != IS_CONST) {
- if (ssa_op->op1_use != current_var &&
- ssa_op->op2_use != current_var) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- }
- if ((op1_info & MAY_BE_LONG) && (op2_info & MAY_BE_DOUBLE)) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- if ((op1_info & MAY_BE_DOUBLE) && (op2_info & MAY_BE_LONG)) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- if ((op1_info & MAY_BE_DOUBLE) && (op2_info & MAY_BE_DOUBLE)) {
- if (ssa_op->op1_use != current_var &&
- ssa_op->op2_use != current_var) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- }
- }
- break;
- case ZEND_BOOL:
- case ZEND_BOOL_NOT:
- case ZEND_JMPZ:
- case ZEND_JMPNZ:
- case ZEND_JMPZNZ:
- case ZEND_JMPZ_EX:
- case ZEND_JMPNZ_EX:
- op1_info = OP1_INFO();
- if (!(op1_info & ((MAY_BE_ANY|MAY_BE_REF|MAY_BE_UNDEF)-(MAY_BE_NULL|MAY_BE_FALSE|MAY_BE_TRUE|MAY_BE_LONG|MAY_BE_DOUBLE)))) {
- regset = ZEND_REGSET_EMPTY;
- if (op1_info & MAY_BE_DOUBLE) {
- ZEND_REGSET_INCL(regset, ZREG_FPR0);
- }
- if (opline->opcode == ZEND_BOOL ||
- opline->opcode == ZEND_BOOL_NOT ||
- opline->opcode == ZEND_JMPZ_EX ||
- opline->opcode == ZEND_JMPNZ_EX) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- }
- }
- break;
- case ZEND_DO_UCALL:
- case ZEND_DO_FCALL:
- case ZEND_DO_FCALL_BY_NAME:
- case ZEND_INCLUDE_OR_EVAL:
- case ZEND_GENERATOR_CREATE:
- case ZEND_YIELD:
- case ZEND_YIELD_FROM:
- regset = ZEND_REGSET_UNION(ZEND_REGSET_GP, ZEND_REGSET_FP);
- break;
- default:
- break;
- }
- if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE) {
- if (ssa_op == ssa->ops
- && JIT_G(current_trace)[ZEND_JIT_TRACE_START_REC_SIZE].op == ZEND_JIT_TRACE_INIT_CALL
- && (JIT_G(current_trace)[ZEND_JIT_TRACE_START_REC_SIZE].info & ZEND_JIT_TRACE_FAKE_INIT_CALL)) {
- ZEND_REGSET_INCL(regset, ZREG_REG0);
- ZEND_REGSET_INCL(regset, ZREG_REG1);
- }
- }
- return regset;
- }
- static size_t dasm_venners_size = 0;
- void **dasm_labels_veneers = NULL;
- static int zend_jit_add_veneer(dasm_State *Dst, void *buffer, uint32_t ins, int *b, uint32_t *cp, ptrdiff_t offset)
- {
- void *veneer;
- ptrdiff_t na;
- int n, m;
- /* try to reuse veneers for global labels */
- if ((ins >> 16) == DASM_REL_LG
- && *(b-1) < 0
- && dasm_labels_veneers[-*(b-1)]) {
- veneer = dasm_labels_veneers[-*(b-1)];
- na = (ptrdiff_t)veneer - (ptrdiff_t)cp + 4;
- n = (int)na;
- /* check if we can jump to veneer */
- if ((ptrdiff_t)n != na) {
- /* pass */
- } else if (!(ins & 0xf800)) { /* B, BL */
- if ((n & 3) == 0 && ((n+0x08000000) >> 28) == 0) {
- return n;
- }
- } else if ((ins & 0x800)) { /* B.cond, CBZ, CBNZ, LDR* literal */
- if ((n & 3) == 0 && ((n+0x00100000) >> 21) == 0) {
- return n;
- }
- } else if ((ins & 0x3000) == 0x2000) { /* ADR */
- /* pass */
- } else if ((ins & 0x3000) == 0x3000) { /* ADRP */
- /* pass */
- } else if ((ins & 0x1000)) { /* TBZ, TBNZ */
- if ((n & 3) == 0 && ((n+0x00008000) >> 16) == 0) {
- return n;
- }
- }
- } else if (JIT_G(trigger) == ZEND_JIT_ON_HOT_TRACE
- && (ins >> 16) == DASM_REL_A) {
- ptrdiff_t addr = (((ptrdiff_t)(*(b-1))) << 32) | (unsigned int)(*(b-2));
- if ((void*)addr >= dasm_buf && (void*)addr < dasm_end) {
- uint32_t exit_point = zend_jit_trace_find_exit_point((void*)addr);
- zend_jit_trace_info *t = zend_jit_get_current_trace_info();
- if (exit_point != (uint32_t)-1) {
- /* Use exit points table */
- ZEND_ASSERT(exit_point < t->exit_count);
- veneer = (char*)buffer + dasm_getpclabel(&Dst, 1) - (t->exit_count - exit_point) * 4;
- na = (ptrdiff_t)veneer - (ptrdiff_t)cp + 4;
- n = (int)na;
- /* check if we can jump to veneer */
- if ((ptrdiff_t)n != na) {
- ZEND_ASSERT(0);
- return 0;
- } else if (!(ins & 0xf800)) { /* B, BL */
- if ((n & 3) != 0 || ((n+0x08000000) >> 28) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else if ((ins & 0x800)) { /* B.cond, CBZ, CBNZ, LDR* literal */
- if ((n & 3) != 0 || ((n+0x00100000) >> 21) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else if ((ins & 0x3000) == 0x2000) { /* ADR */
- ZEND_ASSERT(0);
- return 0;
- } else if ((ins & 0x3000) == 0x3000) { /* ADRP */
- ZEND_ASSERT(0);
- return 0;
- } else if ((ins & 0x1000)) { /* TBZ, TBNZ */
- if ((n & 3) != 0 || ((n+0x00008000) >> 16) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else {
- ZEND_ASSERT(0);
- return 0;
- }
- return n;
- }
- }
- }
- veneer = (char*)buffer + (Dst->codesize + dasm_venners_size);
- if (veneer > dasm_end) {
- return 0; /* jit_buffer_size overflow */
- }
- na = (ptrdiff_t)veneer - (ptrdiff_t)cp + 4;
- n = (int)na;
- /* check if we can jump to veneer */
- if ((ptrdiff_t)n != na) {
- ZEND_ASSERT(0);
- return 0;
- } else if (!(ins & 0xf800)) { /* B, BL */
- if ((n & 3) != 0 || ((n+0x08000000) >> 28) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else if ((ins & 0x800)) { /* B.cond, CBZ, CBNZ, LDR* literal */
- if ((n & 3) != 0 || ((n+0x00100000) >> 21) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else if ((ins & 0x3000) == 0x2000) { /* ADR */
- ZEND_ASSERT(0);
- return 0;
- } else if ((ins & 0x3000) == 0x3000) { /* ADRP */
- ZEND_ASSERT(0);
- return 0;
- } else if ((ins & 0x1000)) { /* TBZ, TBNZ */
- if ((n & 3) != 0 || ((n+0x00008000) >> 16) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- } else if ((ins & 0x8000)) { /* absolute */
- ZEND_ASSERT(0);
- return 0;
- } else {
- ZEND_ASSERT(0);
- return 0;
- }
- // TODO: support for long veneers (above 128MB) ???
- /* check if we can use B to jump from veneer */
- na = (ptrdiff_t)cp + offset - (ptrdiff_t)veneer - 4;
- m = (int)na;
- if ((ptrdiff_t)m != na) {
- ZEND_ASSERT(0);
- return 0;
- } else if ((m & 3) != 0 || ((m+0x08000000) >> 28) != 0) {
- ZEND_ASSERT(0);
- return 0;
- }
- /* generate B instruction */
- *(uint32_t*)veneer = 0x14000000 | ((m >> 2) & 0x03ffffff);
- dasm_venners_size += 4;
- if ((ins >> 16) == DASM_REL_LG
- && *(b-1) < 0) {
- /* reuse this veneer for the future jumps to global label */
- dasm_labels_veneers[-*(b-1)] = veneer;
- /* Dst->globals[*(b-1)] = veneer; */
- #ifdef HAVE_DISASM
- if (JIT_G(debug) & ZEND_JIT_DEBUG_ASM) {
- const char *name = zend_jit_disasm_find_symbol((ptrdiff_t)cp + offset - 4, (int64_t *)(&offset));
- if (name && !offset) {
- if (strstr(name, "@veneer") == NULL) {
- char *new_name;
- zend_spprintf(&new_name, 0, "%s@veneer", name);
- zend_jit_disasm_add_symbol(new_name, (uint64_t)(uintptr_t)veneer, 4);
- efree(new_name);
- } else {
- zend_jit_disasm_add_symbol(name, (uint64_t)(uintptr_t)veneer, 4);
- }
- }
- }
- #endif
- }
- return n;
- }
- /*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * indent-tabs-mode: t
- * End:
- */
|