duktape.c 3.4 MB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319203202032120322203232032420325203262032720328203292033020331203322033320334203352033620337203382033920340203412034220343203442034520346203472034820349203502035120352203532035420355203562035720358203592036020361203622036320364203652036620367203682036920370203712037220373203742037520376203772037820379203802038120382203832038420385203862038720388203892039020391203922039320394203952039620397203982039920400204012040220403204042040520406204072040820409204102041120412204132041420415204162041720418204192042020421204222042320424204252042620427204282042920430204312043220433204342043520436204372043820439204402044120442204432044420445204462044720448204492045020451204522045320454204552045620457204582045920460204612046220463204642046520466204672046820469204702047120472204732047420475204762047720478204792048020481204822048320484204852048620487204882048920490204912049220493204942049520496204972049820499205002050120502205032050420505205062050720508205092051020511205122051320514205152051620517205182051920520205212052220523205242052520526205272052820529205302053120532205332053420535205362053720538205392054020541205422054320544205452054620547205482054920550205512055220553205542055520556205572055820559205602056120562205632056420565205662056720568205692057020571205722057320574205752057620577205782057920580205812058220583205842058520586205872058820589205902059120592205932059420595205962059720598205992060020601206022060320604206052060620607206082060920610206112061220613206142061520616206172061820619206202062120622206232062420625206262062720628206292063020631206322063320634206352063620637206382063920640206412064220643206442064520646206472064820649206502065120652206532065420655206562065720658206592066020661206622066320664206652066620667206682066920670206712067220673206742067520676206772067820679206802068120682206832068420685206862068720688206892069020691206922069320694206952069620697206982069920700207012070220703207042070520706207072070820709207102071120712207132071420715207162071720718207192072020721207222072320724207252072620727207282072920730207312073220733207342073520736207372073820739207402074120742207432074420745207462074720748207492075020751207522075320754207552075620757207582075920760207612076220763207642076520766207672076820769207702077120772207732077420775207762077720778207792078020781207822078320784207852078620787207882078920790207912079220793207942079520796207972079820799208002080120802208032080420805208062080720808208092081020811208122081320814208152081620817208182081920820208212082220823208242082520826208272082820829208302083120832208332083420835208362083720838208392084020841208422084320844208452084620847208482084920850208512085220853208542085520856208572085820859208602086120862208632086420865208662086720868208692087020871208722087320874208752087620877208782087920880208812088220883208842088520886208872088820889208902089120892208932089420895208962089720898208992090020901209022090320904209052090620907209082090920910209112091220913209142091520916209172091820919209202092120922209232092420925209262092720928209292093020931209322093320934209352093620937209382093920940209412094220943209442094520946209472094820949209502095120952209532095420955209562095720958209592096020961209622096320964209652096620967209682096920970209712097220973209742097520976209772097820979209802098120982209832098420985209862098720988209892099020991209922099320994209952099620997209982099921000210012100221003210042100521006210072100821009210102101121012210132101421015210162101721018210192102021021210222102321024210252102621027210282102921030210312103221033210342103521036210372103821039210402104121042210432104421045210462104721048210492105021051210522105321054210552105621057210582105921060210612106221063210642106521066210672106821069210702107121072210732107421075210762107721078210792108021081210822108321084210852108621087210882108921090210912109221093210942109521096210972109821099211002110121102211032110421105211062110721108211092111021111211122111321114211152111621117211182111921120211212112221123211242112521126211272112821129211302113121132211332113421135211362113721138211392114021141211422114321144211452114621147211482114921150211512115221153211542115521156211572115821159211602116121162211632116421165211662116721168211692117021171211722117321174211752117621177211782117921180211812118221183211842118521186211872118821189211902119121192211932119421195211962119721198211992120021201212022120321204212052120621207212082120921210212112121221213212142121521216212172121821219212202122121222212232122421225212262122721228212292123021231212322123321234212352123621237212382123921240212412124221243212442124521246212472124821249212502125121252212532125421255212562125721258212592126021261212622126321264212652126621267212682126921270212712127221273212742127521276212772127821279212802128121282212832128421285212862128721288212892129021291212922129321294212952129621297212982129921300213012130221303213042130521306213072130821309213102131121312213132131421315213162131721318213192132021321213222132321324213252132621327213282132921330213312133221333213342133521336213372133821339213402134121342213432134421345213462134721348213492135021351213522135321354213552135621357213582135921360213612136221363213642136521366213672136821369213702137121372213732137421375213762137721378213792138021381213822138321384213852138621387213882138921390213912139221393213942139521396213972139821399214002140121402214032140421405214062140721408214092141021411214122141321414214152141621417214182141921420214212142221423214242142521426214272142821429214302143121432214332143421435214362143721438214392144021441214422144321444214452144621447214482144921450214512145221453214542145521456214572145821459214602146121462214632146421465214662146721468214692147021471214722147321474214752147621477214782147921480214812148221483214842148521486214872148821489214902149121492214932149421495214962149721498214992150021501215022150321504215052150621507215082150921510215112151221513215142151521516215172151821519215202152121522215232152421525215262152721528215292153021531215322153321534215352153621537215382153921540215412154221543215442154521546215472154821549215502155121552215532155421555215562155721558215592156021561215622156321564215652156621567215682156921570215712157221573215742157521576215772157821579215802158121582215832158421585215862158721588215892159021591215922159321594215952159621597215982159921600216012160221603216042160521606216072160821609216102161121612216132161421615216162161721618216192162021621216222162321624216252162621627216282162921630216312163221633216342163521636216372163821639216402164121642216432164421645216462164721648216492165021651216522165321654216552165621657216582165921660216612166221663216642166521666216672166821669216702167121672216732167421675216762167721678216792168021681216822168321684216852168621687216882168921690216912169221693216942169521696216972169821699217002170121702217032170421705217062170721708217092171021711217122171321714217152171621717217182171921720217212172221723217242172521726217272172821729217302173121732217332173421735217362173721738217392174021741217422174321744217452174621747217482174921750217512175221753217542175521756217572175821759217602176121762217632176421765217662176721768217692177021771217722177321774217752177621777217782177921780217812178221783217842178521786217872178821789217902179121792217932179421795217962179721798217992180021801218022180321804218052180621807218082180921810218112181221813218142181521816218172181821819218202182121822218232182421825218262182721828218292183021831218322183321834218352183621837218382183921840218412184221843218442184521846218472184821849218502185121852218532185421855218562185721858218592186021861218622186321864218652186621867218682186921870218712187221873218742187521876218772187821879218802188121882218832188421885218862188721888218892189021891218922189321894218952189621897218982189921900219012190221903219042190521906219072190821909219102191121912219132191421915219162191721918219192192021921219222192321924219252192621927219282192921930219312193221933219342193521936219372193821939219402194121942219432194421945219462194721948219492195021951219522195321954219552195621957219582195921960219612196221963219642196521966219672196821969219702197121972219732197421975219762197721978219792198021981219822198321984219852198621987219882198921990219912199221993219942199521996219972199821999220002200122002220032200422005220062200722008220092201022011220122201322014220152201622017220182201922020220212202222023220242202522026220272202822029220302203122032220332203422035220362203722038220392204022041220422204322044220452204622047220482204922050220512205222053220542205522056220572205822059220602206122062220632206422065220662206722068220692207022071220722207322074220752207622077220782207922080220812208222083220842208522086220872208822089220902209122092220932209422095220962209722098220992210022101221022210322104221052210622107221082210922110221112211222113221142211522116221172211822119221202212122122221232212422125221262212722128221292213022131221322213322134221352213622137221382213922140221412214222143221442214522146221472214822149221502215122152221532215422155221562215722158221592216022161221622216322164221652216622167221682216922170221712217222173221742217522176221772217822179221802218122182221832218422185221862218722188221892219022191221922219322194221952219622197221982219922200222012220222203222042220522206222072220822209222102221122212222132221422215222162221722218222192222022221222222222322224222252222622227222282222922230222312223222233222342223522236222372223822239222402224122242222432224422245222462224722248222492225022251222522225322254222552225622257222582225922260222612226222263222642226522266222672226822269222702227122272222732227422275222762227722278222792228022281222822228322284222852228622287222882228922290222912229222293222942229522296222972229822299223002230122302223032230422305223062230722308223092231022311223122231322314223152231622317223182231922320223212232222323223242232522326223272232822329223302233122332223332233422335223362233722338223392234022341223422234322344223452234622347223482234922350223512235222353223542235522356223572235822359223602236122362223632236422365223662236722368223692237022371223722237322374223752237622377223782237922380223812238222383223842238522386223872238822389223902239122392223932239422395223962239722398223992240022401224022240322404224052240622407224082240922410224112241222413224142241522416224172241822419224202242122422224232242422425224262242722428224292243022431224322243322434224352243622437224382243922440224412244222443224442244522446224472244822449224502245122452224532245422455224562245722458224592246022461224622246322464224652246622467224682246922470224712247222473224742247522476224772247822479224802248122482224832248422485224862248722488224892249022491224922249322494224952249622497224982249922500225012250222503225042250522506225072250822509225102251122512225132251422515225162251722518225192252022521225222252322524225252252622527225282252922530225312253222533225342253522536225372253822539225402254122542225432254422545225462254722548225492255022551225522255322554225552255622557225582255922560225612256222563225642256522566225672256822569225702257122572225732257422575225762257722578225792258022581225822258322584225852258622587225882258922590225912259222593225942259522596225972259822599226002260122602226032260422605226062260722608226092261022611226122261322614226152261622617226182261922620226212262222623226242262522626226272262822629226302263122632226332263422635226362263722638226392264022641226422264322644226452264622647226482264922650226512265222653226542265522656226572265822659226602266122662226632266422665226662266722668226692267022671226722267322674226752267622677226782267922680226812268222683226842268522686226872268822689226902269122692226932269422695226962269722698226992270022701227022270322704227052270622707227082270922710227112271222713227142271522716227172271822719227202272122722227232272422725227262272722728227292273022731227322273322734227352273622737227382273922740227412274222743227442274522746227472274822749227502275122752227532275422755227562275722758227592276022761227622276322764227652276622767227682276922770227712277222773227742277522776227772277822779227802278122782227832278422785227862278722788227892279022791227922279322794227952279622797227982279922800228012280222803228042280522806228072280822809228102281122812228132281422815228162281722818228192282022821228222282322824228252282622827228282282922830228312283222833228342283522836228372283822839228402284122842228432284422845228462284722848228492285022851228522285322854228552285622857228582285922860228612286222863228642286522866228672286822869228702287122872228732287422875228762287722878228792288022881228822288322884228852288622887228882288922890228912289222893228942289522896228972289822899229002290122902229032290422905229062290722908229092291022911229122291322914229152291622917229182291922920229212292222923229242292522926229272292822929229302293122932229332293422935229362293722938229392294022941229422294322944229452294622947229482294922950229512295222953229542295522956229572295822959229602296122962229632296422965229662296722968229692297022971229722297322974229752297622977229782297922980229812298222983229842298522986229872298822989229902299122992229932299422995229962299722998229992300023001230022300323004230052300623007230082300923010230112301223013230142301523016230172301823019230202302123022230232302423025230262302723028230292303023031230322303323034230352303623037230382303923040230412304223043230442304523046230472304823049230502305123052230532305423055230562305723058230592306023061230622306323064230652306623067230682306923070230712307223073230742307523076230772307823079230802308123082230832308423085230862308723088230892309023091230922309323094230952309623097230982309923100231012310223103231042310523106231072310823109231102311123112231132311423115231162311723118231192312023121231222312323124231252312623127231282312923130231312313223133231342313523136231372313823139231402314123142231432314423145231462314723148231492315023151231522315323154231552315623157231582315923160231612316223163231642316523166231672316823169231702317123172231732317423175231762317723178231792318023181231822318323184231852318623187231882318923190231912319223193231942319523196231972319823199232002320123202232032320423205232062320723208232092321023211232122321323214232152321623217232182321923220232212322223223232242322523226232272322823229232302323123232232332323423235232362323723238232392324023241232422324323244232452324623247232482324923250232512325223253232542325523256232572325823259232602326123262232632326423265232662326723268232692327023271232722327323274232752327623277232782327923280232812328223283232842328523286232872328823289232902329123292232932329423295232962329723298232992330023301233022330323304233052330623307233082330923310233112331223313233142331523316233172331823319233202332123322233232332423325233262332723328233292333023331233322333323334233352333623337233382333923340233412334223343233442334523346233472334823349233502335123352233532335423355233562335723358233592336023361233622336323364233652336623367233682336923370233712337223373233742337523376233772337823379233802338123382233832338423385233862338723388233892339023391233922339323394233952339623397233982339923400234012340223403234042340523406234072340823409234102341123412234132341423415234162341723418234192342023421234222342323424234252342623427234282342923430234312343223433234342343523436234372343823439234402344123442234432344423445234462344723448234492345023451234522345323454234552345623457234582345923460234612346223463234642346523466234672346823469234702347123472234732347423475234762347723478234792348023481234822348323484234852348623487234882348923490234912349223493234942349523496234972349823499235002350123502235032350423505235062350723508235092351023511235122351323514235152351623517235182351923520235212352223523235242352523526235272352823529235302353123532235332353423535235362353723538235392354023541235422354323544235452354623547235482354923550235512355223553235542355523556235572355823559235602356123562235632356423565235662356723568235692357023571235722357323574235752357623577235782357923580235812358223583235842358523586235872358823589235902359123592235932359423595235962359723598235992360023601236022360323604236052360623607236082360923610236112361223613236142361523616236172361823619236202362123622236232362423625236262362723628236292363023631236322363323634236352363623637236382363923640236412364223643236442364523646236472364823649236502365123652236532365423655236562365723658236592366023661236622366323664236652366623667236682366923670236712367223673236742367523676236772367823679236802368123682236832368423685236862368723688236892369023691236922369323694236952369623697236982369923700237012370223703237042370523706237072370823709237102371123712237132371423715237162371723718237192372023721237222372323724237252372623727237282372923730237312373223733237342373523736237372373823739237402374123742237432374423745237462374723748237492375023751237522375323754237552375623757237582375923760237612376223763237642376523766237672376823769237702377123772237732377423775237762377723778237792378023781237822378323784237852378623787237882378923790237912379223793237942379523796237972379823799238002380123802238032380423805238062380723808238092381023811238122381323814238152381623817238182381923820238212382223823238242382523826238272382823829238302383123832238332383423835238362383723838238392384023841238422384323844238452384623847238482384923850238512385223853238542385523856238572385823859238602386123862238632386423865238662386723868238692387023871238722387323874238752387623877238782387923880238812388223883238842388523886238872388823889238902389123892238932389423895238962389723898238992390023901239022390323904239052390623907239082390923910239112391223913239142391523916239172391823919239202392123922239232392423925239262392723928239292393023931239322393323934239352393623937239382393923940239412394223943239442394523946239472394823949239502395123952239532395423955239562395723958239592396023961239622396323964239652396623967239682396923970239712397223973239742397523976239772397823979239802398123982239832398423985239862398723988239892399023991239922399323994239952399623997239982399924000240012400224003240042400524006240072400824009240102401124012240132401424015240162401724018240192402024021240222402324024240252402624027240282402924030240312403224033240342403524036240372403824039240402404124042240432404424045240462404724048240492405024051240522405324054240552405624057240582405924060240612406224063240642406524066240672406824069240702407124072240732407424075240762407724078240792408024081240822408324084240852408624087240882408924090240912409224093240942409524096240972409824099241002410124102241032410424105241062410724108241092411024111241122411324114241152411624117241182411924120241212412224123241242412524126241272412824129241302413124132241332413424135241362413724138241392414024141241422414324144241452414624147241482414924150241512415224153241542415524156241572415824159241602416124162241632416424165241662416724168241692417024171241722417324174241752417624177241782417924180241812418224183241842418524186241872418824189241902419124192241932419424195241962419724198241992420024201242022420324204242052420624207242082420924210242112421224213242142421524216242172421824219242202422124222242232422424225242262422724228242292423024231242322423324234242352423624237242382423924240242412424224243242442424524246242472424824249242502425124252242532425424255242562425724258242592426024261242622426324264242652426624267242682426924270242712427224273242742427524276242772427824279242802428124282242832428424285242862428724288242892429024291242922429324294242952429624297242982429924300243012430224303243042430524306243072430824309243102431124312243132431424315243162431724318243192432024321243222432324324243252432624327243282432924330243312433224333243342433524336243372433824339243402434124342243432434424345243462434724348243492435024351243522435324354243552435624357243582435924360243612436224363243642436524366243672436824369243702437124372243732437424375243762437724378243792438024381243822438324384243852438624387243882438924390243912439224393243942439524396243972439824399244002440124402244032440424405244062440724408244092441024411244122441324414244152441624417244182441924420244212442224423244242442524426244272442824429244302443124432244332443424435244362443724438244392444024441244422444324444244452444624447244482444924450244512445224453244542445524456244572445824459244602446124462244632446424465244662446724468244692447024471244722447324474244752447624477244782447924480244812448224483244842448524486244872448824489244902449124492244932449424495244962449724498244992450024501245022450324504245052450624507245082450924510245112451224513245142451524516245172451824519245202452124522245232452424525245262452724528245292453024531245322453324534245352453624537245382453924540245412454224543245442454524546245472454824549245502455124552245532455424555245562455724558245592456024561245622456324564245652456624567245682456924570245712457224573245742457524576245772457824579245802458124582245832458424585245862458724588245892459024591245922459324594245952459624597245982459924600246012460224603246042460524606246072460824609246102461124612246132461424615246162461724618246192462024621246222462324624246252462624627246282462924630246312463224633246342463524636246372463824639246402464124642246432464424645246462464724648246492465024651246522465324654246552465624657246582465924660246612466224663246642466524666246672466824669246702467124672246732467424675246762467724678246792468024681246822468324684246852468624687246882468924690246912469224693246942469524696246972469824699247002470124702247032470424705247062470724708247092471024711247122471324714247152471624717247182471924720247212472224723247242472524726247272472824729247302473124732247332473424735247362473724738247392474024741247422474324744247452474624747247482474924750247512475224753247542475524756247572475824759247602476124762247632476424765247662476724768247692477024771247722477324774247752477624777247782477924780247812478224783247842478524786247872478824789247902479124792247932479424795247962479724798247992480024801248022480324804248052480624807248082480924810248112481224813248142481524816248172481824819248202482124822248232482424825248262482724828248292483024831248322483324834248352483624837248382483924840248412484224843248442484524846248472484824849248502485124852248532485424855248562485724858248592486024861248622486324864248652486624867248682486924870248712487224873248742487524876248772487824879248802488124882248832488424885248862488724888248892489024891248922489324894248952489624897248982489924900249012490224903249042490524906249072490824909249102491124912249132491424915249162491724918249192492024921249222492324924249252492624927249282492924930249312493224933249342493524936249372493824939249402494124942249432494424945249462494724948249492495024951249522495324954249552495624957249582495924960249612496224963249642496524966249672496824969249702497124972249732497424975249762497724978249792498024981249822498324984249852498624987249882498924990249912499224993249942499524996249972499824999250002500125002250032500425005250062500725008250092501025011250122501325014250152501625017250182501925020250212502225023250242502525026250272502825029250302503125032250332503425035250362503725038250392504025041250422504325044250452504625047250482504925050250512505225053250542505525056250572505825059250602506125062250632506425065250662506725068250692507025071250722507325074250752507625077250782507925080250812508225083250842508525086250872508825089250902509125092250932509425095250962509725098250992510025101251022510325104251052510625107251082510925110251112511225113251142511525116251172511825119251202512125122251232512425125251262512725128251292513025131251322513325134251352513625137251382513925140251412514225143251442514525146251472514825149251502515125152251532515425155251562515725158251592516025161251622516325164251652516625167251682516925170251712517225173251742517525176251772517825179251802518125182251832518425185251862518725188251892519025191251922519325194251952519625197251982519925200252012520225203252042520525206252072520825209252102521125212252132521425215252162521725218252192522025221252222522325224252252522625227252282522925230252312523225233252342523525236252372523825239252402524125242252432524425245252462524725248252492525025251252522525325254252552525625257252582525925260252612526225263252642526525266252672526825269252702527125272252732527425275252762527725278252792528025281252822528325284252852528625287252882528925290252912529225293252942529525296252972529825299253002530125302253032530425305253062530725308253092531025311253122531325314253152531625317253182531925320253212532225323253242532525326253272532825329253302533125332253332533425335253362533725338253392534025341253422534325344253452534625347253482534925350253512535225353253542535525356253572535825359253602536125362253632536425365253662536725368253692537025371253722537325374253752537625377253782537925380253812538225383253842538525386253872538825389253902539125392253932539425395253962539725398253992540025401254022540325404254052540625407254082540925410254112541225413254142541525416254172541825419254202542125422254232542425425254262542725428254292543025431254322543325434254352543625437254382543925440254412544225443254442544525446254472544825449254502545125452254532545425455254562545725458254592546025461254622546325464254652546625467254682546925470254712547225473254742547525476254772547825479254802548125482254832548425485254862548725488254892549025491254922549325494254952549625497254982549925500255012550225503255042550525506255072550825509255102551125512255132551425515255162551725518255192552025521255222552325524255252552625527255282552925530255312553225533255342553525536255372553825539255402554125542255432554425545255462554725548255492555025551255522555325554255552555625557255582555925560255612556225563255642556525566255672556825569255702557125572255732557425575255762557725578255792558025581255822558325584255852558625587255882558925590255912559225593255942559525596255972559825599256002560125602256032560425605256062560725608256092561025611256122561325614256152561625617256182561925620256212562225623256242562525626256272562825629256302563125632256332563425635256362563725638256392564025641256422564325644256452564625647256482564925650256512565225653256542565525656256572565825659256602566125662256632566425665256662566725668256692567025671256722567325674256752567625677256782567925680256812568225683256842568525686256872568825689256902569125692256932569425695256962569725698256992570025701257022570325704257052570625707257082570925710257112571225713257142571525716257172571825719257202572125722257232572425725257262572725728257292573025731257322573325734257352573625737257382573925740257412574225743257442574525746257472574825749257502575125752257532575425755257562575725758257592576025761257622576325764257652576625767257682576925770257712577225773257742577525776257772577825779257802578125782257832578425785257862578725788257892579025791257922579325794257952579625797257982579925800258012580225803258042580525806258072580825809258102581125812258132581425815258162581725818258192582025821258222582325824258252582625827258282582925830258312583225833258342583525836258372583825839258402584125842258432584425845258462584725848258492585025851258522585325854258552585625857258582585925860258612586225863258642586525866258672586825869258702587125872258732587425875258762587725878258792588025881258822588325884258852588625887258882588925890258912589225893258942589525896258972589825899259002590125902259032590425905259062590725908259092591025911259122591325914259152591625917259182591925920259212592225923259242592525926259272592825929259302593125932259332593425935259362593725938259392594025941259422594325944259452594625947259482594925950259512595225953259542595525956259572595825959259602596125962259632596425965259662596725968259692597025971259722597325974259752597625977259782597925980259812598225983259842598525986259872598825989259902599125992259932599425995259962599725998259992600026001260022600326004260052600626007260082600926010260112601226013260142601526016260172601826019260202602126022260232602426025260262602726028260292603026031260322603326034260352603626037260382603926040260412604226043260442604526046260472604826049260502605126052260532605426055260562605726058260592606026061260622606326064260652606626067260682606926070260712607226073260742607526076260772607826079260802608126082260832608426085260862608726088260892609026091260922609326094260952609626097260982609926100261012610226103261042610526106261072610826109261102611126112261132611426115261162611726118261192612026121261222612326124261252612626127261282612926130261312613226133261342613526136261372613826139261402614126142261432614426145261462614726148261492615026151261522615326154261552615626157261582615926160261612616226163261642616526166261672616826169261702617126172261732617426175261762617726178261792618026181261822618326184261852618626187261882618926190261912619226193261942619526196261972619826199262002620126202262032620426205262062620726208262092621026211262122621326214262152621626217262182621926220262212622226223262242622526226262272622826229262302623126232262332623426235262362623726238262392624026241262422624326244262452624626247262482624926250262512625226253262542625526256262572625826259262602626126262262632626426265262662626726268262692627026271262722627326274262752627626277262782627926280262812628226283262842628526286262872628826289262902629126292262932629426295262962629726298262992630026301263022630326304263052630626307263082630926310263112631226313263142631526316263172631826319263202632126322263232632426325263262632726328263292633026331263322633326334263352633626337263382633926340263412634226343263442634526346263472634826349263502635126352263532635426355263562635726358263592636026361263622636326364263652636626367263682636926370263712637226373263742637526376263772637826379263802638126382263832638426385263862638726388263892639026391263922639326394263952639626397263982639926400264012640226403264042640526406264072640826409264102641126412264132641426415264162641726418264192642026421264222642326424264252642626427264282642926430264312643226433264342643526436264372643826439264402644126442264432644426445264462644726448264492645026451264522645326454264552645626457264582645926460264612646226463264642646526466264672646826469264702647126472264732647426475264762647726478264792648026481264822648326484264852648626487264882648926490264912649226493264942649526496264972649826499265002650126502265032650426505265062650726508265092651026511265122651326514265152651626517265182651926520265212652226523265242652526526265272652826529265302653126532265332653426535265362653726538265392654026541265422654326544265452654626547265482654926550265512655226553265542655526556265572655826559265602656126562265632656426565265662656726568265692657026571265722657326574265752657626577265782657926580265812658226583265842658526586265872658826589265902659126592265932659426595265962659726598265992660026601266022660326604266052660626607266082660926610266112661226613266142661526616266172661826619266202662126622266232662426625266262662726628266292663026631266322663326634266352663626637266382663926640266412664226643266442664526646266472664826649266502665126652266532665426655266562665726658266592666026661266622666326664266652666626667266682666926670266712667226673266742667526676266772667826679266802668126682266832668426685266862668726688266892669026691266922669326694266952669626697266982669926700267012670226703267042670526706267072670826709267102671126712267132671426715267162671726718267192672026721267222672326724267252672626727267282672926730267312673226733267342673526736267372673826739267402674126742267432674426745267462674726748267492675026751267522675326754267552675626757267582675926760267612676226763267642676526766267672676826769267702677126772267732677426775267762677726778267792678026781267822678326784267852678626787267882678926790267912679226793267942679526796267972679826799268002680126802268032680426805268062680726808268092681026811268122681326814268152681626817268182681926820268212682226823268242682526826268272682826829268302683126832268332683426835268362683726838268392684026841268422684326844268452684626847268482684926850268512685226853268542685526856268572685826859268602686126862268632686426865268662686726868268692687026871268722687326874268752687626877268782687926880268812688226883268842688526886268872688826889268902689126892268932689426895268962689726898268992690026901269022690326904269052690626907269082690926910269112691226913269142691526916269172691826919269202692126922269232692426925269262692726928269292693026931269322693326934269352693626937269382693926940269412694226943269442694526946269472694826949269502695126952269532695426955269562695726958269592696026961269622696326964269652696626967269682696926970269712697226973269742697526976269772697826979269802698126982269832698426985269862698726988269892699026991269922699326994269952699626997269982699927000270012700227003270042700527006270072700827009270102701127012270132701427015270162701727018270192702027021270222702327024270252702627027270282702927030270312703227033270342703527036270372703827039270402704127042270432704427045270462704727048270492705027051270522705327054270552705627057270582705927060270612706227063270642706527066270672706827069270702707127072270732707427075270762707727078270792708027081270822708327084270852708627087270882708927090270912709227093270942709527096270972709827099271002710127102271032710427105271062710727108271092711027111271122711327114271152711627117271182711927120271212712227123271242712527126271272712827129271302713127132271332713427135271362713727138271392714027141271422714327144271452714627147271482714927150271512715227153271542715527156271572715827159271602716127162271632716427165271662716727168271692717027171271722717327174271752717627177271782717927180271812718227183271842718527186271872718827189271902719127192271932719427195271962719727198271992720027201272022720327204272052720627207272082720927210272112721227213272142721527216272172721827219272202722127222272232722427225272262722727228272292723027231272322723327234272352723627237272382723927240272412724227243272442724527246272472724827249272502725127252272532725427255272562725727258272592726027261272622726327264272652726627267272682726927270272712727227273272742727527276272772727827279272802728127282272832728427285272862728727288272892729027291272922729327294272952729627297272982729927300273012730227303273042730527306273072730827309273102731127312273132731427315273162731727318273192732027321273222732327324273252732627327273282732927330273312733227333273342733527336273372733827339273402734127342273432734427345273462734727348273492735027351273522735327354273552735627357273582735927360273612736227363273642736527366273672736827369273702737127372273732737427375273762737727378273792738027381273822738327384273852738627387273882738927390273912739227393273942739527396273972739827399274002740127402274032740427405274062740727408274092741027411274122741327414274152741627417274182741927420274212742227423274242742527426274272742827429274302743127432274332743427435274362743727438274392744027441274422744327444274452744627447274482744927450274512745227453274542745527456274572745827459274602746127462274632746427465274662746727468274692747027471274722747327474274752747627477274782747927480274812748227483274842748527486274872748827489274902749127492274932749427495274962749727498274992750027501275022750327504275052750627507275082750927510275112751227513275142751527516275172751827519275202752127522275232752427525275262752727528275292753027531275322753327534275352753627537275382753927540275412754227543275442754527546275472754827549275502755127552275532755427555275562755727558275592756027561275622756327564275652756627567275682756927570275712757227573275742757527576275772757827579275802758127582275832758427585275862758727588275892759027591275922759327594275952759627597275982759927600276012760227603276042760527606276072760827609276102761127612276132761427615276162761727618276192762027621276222762327624276252762627627276282762927630276312763227633276342763527636276372763827639276402764127642276432764427645276462764727648276492765027651276522765327654276552765627657276582765927660276612766227663276642766527666276672766827669276702767127672276732767427675276762767727678276792768027681276822768327684276852768627687276882768927690276912769227693276942769527696276972769827699277002770127702277032770427705277062770727708277092771027711277122771327714277152771627717277182771927720277212772227723277242772527726277272772827729277302773127732277332773427735277362773727738277392774027741277422774327744277452774627747277482774927750277512775227753277542775527756277572775827759277602776127762277632776427765277662776727768277692777027771277722777327774277752777627777277782777927780277812778227783277842778527786277872778827789277902779127792277932779427795277962779727798277992780027801278022780327804278052780627807278082780927810278112781227813278142781527816278172781827819278202782127822278232782427825278262782727828278292783027831278322783327834278352783627837278382783927840278412784227843278442784527846278472784827849278502785127852278532785427855278562785727858278592786027861278622786327864278652786627867278682786927870278712787227873278742787527876278772787827879278802788127882278832788427885278862788727888278892789027891278922789327894278952789627897278982789927900279012790227903279042790527906279072790827909279102791127912279132791427915279162791727918279192792027921279222792327924279252792627927279282792927930279312793227933279342793527936279372793827939279402794127942279432794427945279462794727948279492795027951279522795327954279552795627957279582795927960279612796227963279642796527966279672796827969279702797127972279732797427975279762797727978279792798027981279822798327984279852798627987279882798927990279912799227993279942799527996279972799827999280002800128002280032800428005280062800728008280092801028011280122801328014280152801628017280182801928020280212802228023280242802528026280272802828029280302803128032280332803428035280362803728038280392804028041280422804328044280452804628047280482804928050280512805228053280542805528056280572805828059280602806128062280632806428065280662806728068280692807028071280722807328074280752807628077280782807928080280812808228083280842808528086280872808828089280902809128092280932809428095280962809728098280992810028101281022810328104281052810628107281082810928110281112811228113281142811528116281172811828119281202812128122281232812428125281262812728128281292813028131281322813328134281352813628137281382813928140281412814228143281442814528146281472814828149281502815128152281532815428155281562815728158281592816028161281622816328164281652816628167281682816928170281712817228173281742817528176281772817828179281802818128182281832818428185281862818728188281892819028191281922819328194281952819628197281982819928200282012820228203282042820528206282072820828209282102821128212282132821428215282162821728218282192822028221282222822328224282252822628227282282822928230282312823228233282342823528236282372823828239282402824128242282432824428245282462824728248282492825028251282522825328254282552825628257282582825928260282612826228263282642826528266282672826828269282702827128272282732827428275282762827728278282792828028281282822828328284282852828628287282882828928290282912829228293282942829528296282972829828299283002830128302283032830428305283062830728308283092831028311283122831328314283152831628317283182831928320283212832228323283242832528326283272832828329283302833128332283332833428335283362833728338283392834028341283422834328344283452834628347283482834928350283512835228353283542835528356283572835828359283602836128362283632836428365283662836728368283692837028371283722837328374283752837628377283782837928380283812838228383283842838528386283872838828389283902839128392283932839428395283962839728398283992840028401284022840328404284052840628407284082840928410284112841228413284142841528416284172841828419284202842128422284232842428425284262842728428284292843028431284322843328434284352843628437284382843928440284412844228443284442844528446284472844828449284502845128452284532845428455284562845728458284592846028461284622846328464284652846628467284682846928470284712847228473284742847528476284772847828479284802848128482284832848428485284862848728488284892849028491284922849328494284952849628497284982849928500285012850228503285042850528506285072850828509285102851128512285132851428515285162851728518285192852028521285222852328524285252852628527285282852928530285312853228533285342853528536285372853828539285402854128542285432854428545285462854728548285492855028551285522855328554285552855628557285582855928560285612856228563285642856528566285672856828569285702857128572285732857428575285762857728578285792858028581285822858328584285852858628587285882858928590285912859228593285942859528596285972859828599286002860128602286032860428605286062860728608286092861028611286122861328614286152861628617286182861928620286212862228623286242862528626286272862828629286302863128632286332863428635286362863728638286392864028641286422864328644286452864628647286482864928650286512865228653286542865528656286572865828659286602866128662286632866428665286662866728668286692867028671286722867328674286752867628677286782867928680286812868228683286842868528686286872868828689286902869128692286932869428695286962869728698286992870028701287022870328704287052870628707287082870928710287112871228713287142871528716287172871828719287202872128722287232872428725287262872728728287292873028731287322873328734287352873628737287382873928740287412874228743287442874528746287472874828749287502875128752287532875428755287562875728758287592876028761287622876328764287652876628767287682876928770287712877228773287742877528776287772877828779287802878128782287832878428785287862878728788287892879028791287922879328794287952879628797287982879928800288012880228803288042880528806288072880828809288102881128812288132881428815288162881728818288192882028821288222882328824288252882628827288282882928830288312883228833288342883528836288372883828839288402884128842288432884428845288462884728848288492885028851288522885328854288552885628857288582885928860288612886228863288642886528866288672886828869288702887128872288732887428875288762887728878288792888028881288822888328884288852888628887288882888928890288912889228893288942889528896288972889828899289002890128902289032890428905289062890728908289092891028911289122891328914289152891628917289182891928920289212892228923289242892528926289272892828929289302893128932289332893428935289362893728938289392894028941289422894328944289452894628947289482894928950289512895228953289542895528956289572895828959289602896128962289632896428965289662896728968289692897028971289722897328974289752897628977289782897928980289812898228983289842898528986289872898828989289902899128992289932899428995289962899728998289992900029001290022900329004290052900629007290082900929010290112901229013290142901529016290172901829019290202902129022290232902429025290262902729028290292903029031290322903329034290352903629037290382903929040290412904229043290442904529046290472904829049290502905129052290532905429055290562905729058290592906029061290622906329064290652906629067290682906929070290712907229073290742907529076290772907829079290802908129082290832908429085290862908729088290892909029091290922909329094290952909629097290982909929100291012910229103291042910529106291072910829109291102911129112291132911429115291162911729118291192912029121291222912329124291252912629127291282912929130291312913229133291342913529136291372913829139291402914129142291432914429145291462914729148291492915029151291522915329154291552915629157291582915929160291612916229163291642916529166291672916829169291702917129172291732917429175291762917729178291792918029181291822918329184291852918629187291882918929190291912919229193291942919529196291972919829199292002920129202292032920429205292062920729208292092921029211292122921329214292152921629217292182921929220292212922229223292242922529226292272922829229292302923129232292332923429235292362923729238292392924029241292422924329244292452924629247292482924929250292512925229253292542925529256292572925829259292602926129262292632926429265292662926729268292692927029271292722927329274292752927629277292782927929280292812928229283292842928529286292872928829289292902929129292292932929429295292962929729298292992930029301293022930329304293052930629307293082930929310293112931229313293142931529316293172931829319293202932129322293232932429325293262932729328293292933029331293322933329334293352933629337293382933929340293412934229343293442934529346293472934829349293502935129352293532935429355293562935729358293592936029361293622936329364293652936629367293682936929370293712937229373293742937529376293772937829379293802938129382293832938429385293862938729388293892939029391293922939329394293952939629397293982939929400294012940229403294042940529406294072940829409294102941129412294132941429415294162941729418294192942029421294222942329424294252942629427294282942929430294312943229433294342943529436294372943829439294402944129442294432944429445294462944729448294492945029451294522945329454294552945629457294582945929460294612946229463294642946529466294672946829469294702947129472294732947429475294762947729478294792948029481294822948329484294852948629487294882948929490294912949229493294942949529496294972949829499295002950129502295032950429505295062950729508295092951029511295122951329514295152951629517295182951929520295212952229523295242952529526295272952829529295302953129532295332953429535295362953729538295392954029541295422954329544295452954629547295482954929550295512955229553295542955529556295572955829559295602956129562295632956429565295662956729568295692957029571295722957329574295752957629577295782957929580295812958229583295842958529586295872958829589295902959129592295932959429595295962959729598295992960029601296022960329604296052960629607296082960929610296112961229613296142961529616296172961829619296202962129622296232962429625296262962729628296292963029631296322963329634296352963629637296382963929640296412964229643296442964529646296472964829649296502965129652296532965429655296562965729658296592966029661296622966329664296652966629667296682966929670296712967229673296742967529676296772967829679296802968129682296832968429685296862968729688296892969029691296922969329694296952969629697296982969929700297012970229703297042970529706297072970829709297102971129712297132971429715297162971729718297192972029721297222972329724297252972629727297282972929730297312973229733297342973529736297372973829739297402974129742297432974429745297462974729748297492975029751297522975329754297552975629757297582975929760297612976229763297642976529766297672976829769297702977129772297732977429775297762977729778297792978029781297822978329784297852978629787297882978929790297912979229793297942979529796297972979829799298002980129802298032980429805298062980729808298092981029811298122981329814298152981629817298182981929820298212982229823298242982529826298272982829829298302983129832298332983429835298362983729838298392984029841298422984329844298452984629847298482984929850298512985229853298542985529856298572985829859298602986129862298632986429865298662986729868298692987029871298722987329874298752987629877298782987929880298812988229883298842988529886298872988829889298902989129892298932989429895298962989729898298992990029901299022990329904299052990629907299082990929910299112991229913299142991529916299172991829919299202992129922299232992429925299262992729928299292993029931299322993329934299352993629937299382993929940299412994229943299442994529946299472994829949299502995129952299532995429955299562995729958299592996029961299622996329964299652996629967299682996929970299712997229973299742997529976299772997829979299802998129982299832998429985299862998729988299892999029991299922999329994299952999629997299982999930000300013000230003300043000530006300073000830009300103001130012300133001430015300163001730018300193002030021300223002330024300253002630027300283002930030300313003230033300343003530036300373003830039300403004130042300433004430045300463004730048300493005030051300523005330054300553005630057300583005930060300613006230063300643006530066300673006830069300703007130072300733007430075300763007730078300793008030081300823008330084300853008630087300883008930090300913009230093300943009530096300973009830099301003010130102301033010430105301063010730108301093011030111301123011330114301153011630117301183011930120301213012230123301243012530126301273012830129301303013130132301333013430135301363013730138301393014030141301423014330144301453014630147301483014930150301513015230153301543015530156301573015830159301603016130162301633016430165301663016730168301693017030171301723017330174301753017630177301783017930180301813018230183301843018530186301873018830189301903019130192301933019430195301963019730198301993020030201302023020330204302053020630207302083020930210302113021230213302143021530216302173021830219302203022130222302233022430225302263022730228302293023030231302323023330234302353023630237302383023930240302413024230243302443024530246302473024830249302503025130252302533025430255302563025730258302593026030261302623026330264302653026630267302683026930270302713027230273302743027530276302773027830279302803028130282302833028430285302863028730288302893029030291302923029330294302953029630297302983029930300303013030230303303043030530306303073030830309303103031130312303133031430315303163031730318303193032030321303223032330324303253032630327303283032930330303313033230333303343033530336303373033830339303403034130342303433034430345303463034730348303493035030351303523035330354303553035630357303583035930360303613036230363303643036530366303673036830369303703037130372303733037430375303763037730378303793038030381303823038330384303853038630387303883038930390303913039230393303943039530396303973039830399304003040130402304033040430405304063040730408304093041030411304123041330414304153041630417304183041930420304213042230423304243042530426304273042830429304303043130432304333043430435304363043730438304393044030441304423044330444304453044630447304483044930450304513045230453304543045530456304573045830459304603046130462304633046430465304663046730468304693047030471304723047330474304753047630477304783047930480304813048230483304843048530486304873048830489304903049130492304933049430495304963049730498304993050030501305023050330504305053050630507305083050930510305113051230513305143051530516305173051830519305203052130522305233052430525305263052730528305293053030531305323053330534305353053630537305383053930540305413054230543305443054530546305473054830549305503055130552305533055430555305563055730558305593056030561305623056330564305653056630567305683056930570305713057230573305743057530576305773057830579305803058130582305833058430585305863058730588305893059030591305923059330594305953059630597305983059930600306013060230603306043060530606306073060830609306103061130612306133061430615306163061730618306193062030621306223062330624306253062630627306283062930630306313063230633306343063530636306373063830639306403064130642306433064430645306463064730648306493065030651306523065330654306553065630657306583065930660306613066230663306643066530666306673066830669306703067130672306733067430675306763067730678306793068030681306823068330684306853068630687306883068930690306913069230693306943069530696306973069830699307003070130702307033070430705307063070730708307093071030711307123071330714307153071630717307183071930720307213072230723307243072530726307273072830729307303073130732307333073430735307363073730738307393074030741307423074330744307453074630747307483074930750307513075230753307543075530756307573075830759307603076130762307633076430765307663076730768307693077030771307723077330774307753077630777307783077930780307813078230783307843078530786307873078830789307903079130792307933079430795307963079730798307993080030801308023080330804308053080630807308083080930810308113081230813308143081530816308173081830819308203082130822308233082430825308263082730828308293083030831308323083330834308353083630837308383083930840308413084230843308443084530846308473084830849308503085130852308533085430855308563085730858308593086030861308623086330864308653086630867308683086930870308713087230873308743087530876308773087830879308803088130882308833088430885308863088730888308893089030891308923089330894308953089630897308983089930900309013090230903309043090530906309073090830909309103091130912309133091430915309163091730918309193092030921309223092330924309253092630927309283092930930309313093230933309343093530936309373093830939309403094130942309433094430945309463094730948309493095030951309523095330954309553095630957309583095930960309613096230963309643096530966309673096830969309703097130972309733097430975309763097730978309793098030981309823098330984309853098630987309883098930990309913099230993309943099530996309973099830999310003100131002310033100431005310063100731008310093101031011310123101331014310153101631017310183101931020310213102231023310243102531026310273102831029310303103131032310333103431035310363103731038310393104031041310423104331044310453104631047310483104931050310513105231053310543105531056310573105831059310603106131062310633106431065310663106731068310693107031071310723107331074310753107631077310783107931080310813108231083310843108531086310873108831089310903109131092310933109431095310963109731098310993110031101311023110331104311053110631107311083110931110311113111231113311143111531116311173111831119311203112131122311233112431125311263112731128311293113031131311323113331134311353113631137311383113931140311413114231143311443114531146311473114831149311503115131152311533115431155311563115731158311593116031161311623116331164311653116631167311683116931170311713117231173311743117531176311773117831179311803118131182311833118431185311863118731188311893119031191311923119331194311953119631197311983119931200312013120231203312043120531206312073120831209312103121131212312133121431215312163121731218312193122031221312223122331224312253122631227312283122931230312313123231233312343123531236312373123831239312403124131242312433124431245312463124731248312493125031251312523125331254312553125631257312583125931260312613126231263312643126531266312673126831269312703127131272312733127431275312763127731278312793128031281312823128331284312853128631287312883128931290312913129231293312943129531296312973129831299313003130131302313033130431305313063130731308313093131031311313123131331314313153131631317313183131931320313213132231323313243132531326313273132831329313303133131332313333133431335313363133731338313393134031341313423134331344313453134631347313483134931350313513135231353313543135531356313573135831359313603136131362313633136431365313663136731368313693137031371313723137331374313753137631377313783137931380313813138231383313843138531386313873138831389313903139131392313933139431395313963139731398313993140031401314023140331404314053140631407314083140931410314113141231413314143141531416314173141831419314203142131422314233142431425314263142731428314293143031431314323143331434314353143631437314383143931440314413144231443314443144531446314473144831449314503145131452314533145431455314563145731458314593146031461314623146331464314653146631467314683146931470314713147231473314743147531476314773147831479314803148131482314833148431485314863148731488314893149031491314923149331494314953149631497314983149931500315013150231503315043150531506315073150831509315103151131512315133151431515315163151731518315193152031521315223152331524315253152631527315283152931530315313153231533315343153531536315373153831539315403154131542315433154431545315463154731548315493155031551315523155331554315553155631557315583155931560315613156231563315643156531566315673156831569315703157131572315733157431575315763157731578315793158031581315823158331584315853158631587315883158931590315913159231593315943159531596315973159831599316003160131602316033160431605316063160731608316093161031611316123161331614316153161631617316183161931620316213162231623316243162531626316273162831629316303163131632316333163431635316363163731638316393164031641316423164331644316453164631647316483164931650316513165231653316543165531656316573165831659316603166131662316633166431665316663166731668316693167031671316723167331674316753167631677316783167931680316813168231683316843168531686316873168831689316903169131692316933169431695316963169731698316993170031701317023170331704317053170631707317083170931710317113171231713317143171531716317173171831719317203172131722317233172431725317263172731728317293173031731317323173331734317353173631737317383173931740317413174231743317443174531746317473174831749317503175131752317533175431755317563175731758317593176031761317623176331764317653176631767317683176931770317713177231773317743177531776317773177831779317803178131782317833178431785317863178731788317893179031791317923179331794317953179631797317983179931800318013180231803318043180531806318073180831809318103181131812318133181431815318163181731818318193182031821318223182331824318253182631827318283182931830318313183231833318343183531836318373183831839318403184131842318433184431845318463184731848318493185031851318523185331854318553185631857318583185931860318613186231863318643186531866318673186831869318703187131872318733187431875318763187731878318793188031881318823188331884318853188631887318883188931890318913189231893318943189531896318973189831899319003190131902319033190431905319063190731908319093191031911319123191331914319153191631917319183191931920319213192231923319243192531926319273192831929319303193131932319333193431935319363193731938319393194031941319423194331944319453194631947319483194931950319513195231953319543195531956319573195831959319603196131962319633196431965319663196731968319693197031971319723197331974319753197631977319783197931980319813198231983319843198531986319873198831989319903199131992319933199431995319963199731998319993200032001320023200332004320053200632007320083200932010320113201232013320143201532016320173201832019320203202132022320233202432025320263202732028320293203032031320323203332034320353203632037320383203932040320413204232043320443204532046320473204832049320503205132052320533205432055320563205732058320593206032061320623206332064320653206632067320683206932070320713207232073320743207532076320773207832079320803208132082320833208432085320863208732088320893209032091320923209332094320953209632097320983209932100321013210232103321043210532106321073210832109321103211132112321133211432115321163211732118321193212032121321223212332124321253212632127321283212932130321313213232133321343213532136321373213832139321403214132142321433214432145321463214732148321493215032151321523215332154321553215632157321583215932160321613216232163321643216532166321673216832169321703217132172321733217432175321763217732178321793218032181321823218332184321853218632187321883218932190321913219232193321943219532196321973219832199322003220132202322033220432205322063220732208322093221032211322123221332214322153221632217322183221932220322213222232223322243222532226322273222832229322303223132232322333223432235322363223732238322393224032241322423224332244322453224632247322483224932250322513225232253322543225532256322573225832259322603226132262322633226432265322663226732268322693227032271322723227332274322753227632277322783227932280322813228232283322843228532286322873228832289322903229132292322933229432295322963229732298322993230032301323023230332304323053230632307323083230932310323113231232313323143231532316323173231832319323203232132322323233232432325323263232732328323293233032331323323233332334323353233632337323383233932340323413234232343323443234532346323473234832349323503235132352323533235432355323563235732358323593236032361323623236332364323653236632367323683236932370323713237232373323743237532376323773237832379323803238132382323833238432385323863238732388323893239032391323923239332394323953239632397323983239932400324013240232403324043240532406324073240832409324103241132412324133241432415324163241732418324193242032421324223242332424324253242632427324283242932430324313243232433324343243532436324373243832439324403244132442324433244432445324463244732448324493245032451324523245332454324553245632457324583245932460324613246232463324643246532466324673246832469324703247132472324733247432475324763247732478324793248032481324823248332484324853248632487324883248932490324913249232493324943249532496324973249832499325003250132502325033250432505325063250732508325093251032511325123251332514325153251632517325183251932520325213252232523325243252532526325273252832529325303253132532325333253432535325363253732538325393254032541325423254332544325453254632547325483254932550325513255232553325543255532556325573255832559325603256132562325633256432565325663256732568325693257032571325723257332574325753257632577325783257932580325813258232583325843258532586325873258832589325903259132592325933259432595325963259732598325993260032601326023260332604326053260632607326083260932610326113261232613326143261532616326173261832619326203262132622326233262432625326263262732628326293263032631326323263332634326353263632637326383263932640326413264232643326443264532646326473264832649326503265132652326533265432655326563265732658326593266032661326623266332664326653266632667326683266932670326713267232673326743267532676326773267832679326803268132682326833268432685326863268732688326893269032691326923269332694326953269632697326983269932700327013270232703327043270532706327073270832709327103271132712327133271432715327163271732718327193272032721327223272332724327253272632727327283272932730327313273232733327343273532736327373273832739327403274132742327433274432745327463274732748327493275032751327523275332754327553275632757327583275932760327613276232763327643276532766327673276832769327703277132772327733277432775327763277732778327793278032781327823278332784327853278632787327883278932790327913279232793327943279532796327973279832799328003280132802328033280432805328063280732808328093281032811328123281332814328153281632817328183281932820328213282232823328243282532826328273282832829328303283132832328333283432835328363283732838328393284032841328423284332844328453284632847328483284932850328513285232853328543285532856328573285832859328603286132862328633286432865328663286732868328693287032871328723287332874328753287632877328783287932880328813288232883328843288532886328873288832889328903289132892328933289432895328963289732898328993290032901329023290332904329053290632907329083290932910329113291232913329143291532916329173291832919329203292132922329233292432925329263292732928329293293032931329323293332934329353293632937329383293932940329413294232943329443294532946329473294832949329503295132952329533295432955329563295732958329593296032961329623296332964329653296632967329683296932970329713297232973329743297532976329773297832979329803298132982329833298432985329863298732988329893299032991329923299332994329953299632997329983299933000330013300233003330043300533006330073300833009330103301133012330133301433015330163301733018330193302033021330223302333024330253302633027330283302933030330313303233033330343303533036330373303833039330403304133042330433304433045330463304733048330493305033051330523305333054330553305633057330583305933060330613306233063330643306533066330673306833069330703307133072330733307433075330763307733078330793308033081330823308333084330853308633087330883308933090330913309233093330943309533096330973309833099331003310133102331033310433105331063310733108331093311033111331123311333114331153311633117331183311933120331213312233123331243312533126331273312833129331303313133132331333313433135331363313733138331393314033141331423314333144331453314633147331483314933150331513315233153331543315533156331573315833159331603316133162331633316433165331663316733168331693317033171331723317333174331753317633177331783317933180331813318233183331843318533186331873318833189331903319133192331933319433195331963319733198331993320033201332023320333204332053320633207332083320933210332113321233213332143321533216332173321833219332203322133222332233322433225332263322733228332293323033231332323323333234332353323633237332383323933240332413324233243332443324533246332473324833249332503325133252332533325433255332563325733258332593326033261332623326333264332653326633267332683326933270332713327233273332743327533276332773327833279332803328133282332833328433285332863328733288332893329033291332923329333294332953329633297332983329933300333013330233303333043330533306333073330833309333103331133312333133331433315333163331733318333193332033321333223332333324333253332633327333283332933330333313333233333333343333533336333373333833339333403334133342333433334433345333463334733348333493335033351333523335333354333553335633357333583335933360333613336233363333643336533366333673336833369333703337133372333733337433375333763337733378333793338033381333823338333384333853338633387333883338933390333913339233393333943339533396333973339833399334003340133402334033340433405334063340733408334093341033411334123341333414334153341633417334183341933420334213342233423334243342533426334273342833429334303343133432334333343433435334363343733438334393344033441334423344333444334453344633447334483344933450334513345233453334543345533456334573345833459334603346133462334633346433465334663346733468334693347033471334723347333474334753347633477334783347933480334813348233483334843348533486334873348833489334903349133492334933349433495334963349733498334993350033501335023350333504335053350633507335083350933510335113351233513335143351533516335173351833519335203352133522335233352433525335263352733528335293353033531335323353333534335353353633537335383353933540335413354233543335443354533546335473354833549335503355133552335533355433555335563355733558335593356033561335623356333564335653356633567335683356933570335713357233573335743357533576335773357833579335803358133582335833358433585335863358733588335893359033591335923359333594335953359633597335983359933600336013360233603336043360533606336073360833609336103361133612336133361433615336163361733618336193362033621336223362333624336253362633627336283362933630336313363233633336343363533636336373363833639336403364133642336433364433645336463364733648336493365033651336523365333654336553365633657336583365933660336613366233663336643366533666336673366833669336703367133672336733367433675336763367733678336793368033681336823368333684336853368633687336883368933690336913369233693336943369533696336973369833699337003370133702337033370433705337063370733708337093371033711337123371333714337153371633717337183371933720337213372233723337243372533726337273372833729337303373133732337333373433735337363373733738337393374033741337423374333744337453374633747337483374933750337513375233753337543375533756337573375833759337603376133762337633376433765337663376733768337693377033771337723377333774337753377633777337783377933780337813378233783337843378533786337873378833789337903379133792337933379433795337963379733798337993380033801338023380333804338053380633807338083380933810338113381233813338143381533816338173381833819338203382133822338233382433825338263382733828338293383033831338323383333834338353383633837338383383933840338413384233843338443384533846338473384833849338503385133852338533385433855338563385733858338593386033861338623386333864338653386633867338683386933870338713387233873338743387533876338773387833879338803388133882338833388433885338863388733888338893389033891338923389333894338953389633897338983389933900339013390233903339043390533906339073390833909339103391133912339133391433915339163391733918339193392033921339223392333924339253392633927339283392933930339313393233933339343393533936339373393833939339403394133942339433394433945339463394733948339493395033951339523395333954339553395633957339583395933960339613396233963339643396533966339673396833969339703397133972339733397433975339763397733978339793398033981339823398333984339853398633987339883398933990339913399233993339943399533996339973399833999340003400134002340033400434005340063400734008340093401034011340123401334014340153401634017340183401934020340213402234023340243402534026340273402834029340303403134032340333403434035340363403734038340393404034041340423404334044340453404634047340483404934050340513405234053340543405534056340573405834059340603406134062340633406434065340663406734068340693407034071340723407334074340753407634077340783407934080340813408234083340843408534086340873408834089340903409134092340933409434095340963409734098340993410034101341023410334104341053410634107341083410934110341113411234113341143411534116341173411834119341203412134122341233412434125341263412734128341293413034131341323413334134341353413634137341383413934140341413414234143341443414534146341473414834149341503415134152341533415434155341563415734158341593416034161341623416334164341653416634167341683416934170341713417234173341743417534176341773417834179341803418134182341833418434185341863418734188341893419034191341923419334194341953419634197341983419934200342013420234203342043420534206342073420834209342103421134212342133421434215342163421734218342193422034221342223422334224342253422634227342283422934230342313423234233342343423534236342373423834239342403424134242342433424434245342463424734248342493425034251342523425334254342553425634257342583425934260342613426234263342643426534266342673426834269342703427134272342733427434275342763427734278342793428034281342823428334284342853428634287342883428934290342913429234293342943429534296342973429834299343003430134302343033430434305343063430734308343093431034311343123431334314343153431634317343183431934320343213432234323343243432534326343273432834329343303433134332343333433434335343363433734338343393434034341343423434334344343453434634347343483434934350343513435234353343543435534356343573435834359343603436134362343633436434365343663436734368343693437034371343723437334374343753437634377343783437934380343813438234383343843438534386343873438834389343903439134392343933439434395343963439734398343993440034401344023440334404344053440634407344083440934410344113441234413344143441534416344173441834419344203442134422344233442434425344263442734428344293443034431344323443334434344353443634437344383443934440344413444234443344443444534446344473444834449344503445134452344533445434455344563445734458344593446034461344623446334464344653446634467344683446934470344713447234473344743447534476344773447834479344803448134482344833448434485344863448734488344893449034491344923449334494344953449634497344983449934500345013450234503345043450534506345073450834509345103451134512345133451434515345163451734518345193452034521345223452334524345253452634527345283452934530345313453234533345343453534536345373453834539345403454134542345433454434545345463454734548345493455034551345523455334554345553455634557345583455934560345613456234563345643456534566345673456834569345703457134572345733457434575345763457734578345793458034581345823458334584345853458634587345883458934590345913459234593345943459534596345973459834599346003460134602346033460434605346063460734608346093461034611346123461334614346153461634617346183461934620346213462234623346243462534626346273462834629346303463134632346333463434635346363463734638346393464034641346423464334644346453464634647346483464934650346513465234653346543465534656346573465834659346603466134662346633466434665346663466734668346693467034671346723467334674346753467634677346783467934680346813468234683346843468534686346873468834689346903469134692346933469434695346963469734698346993470034701347023470334704347053470634707347083470934710347113471234713347143471534716347173471834719347203472134722347233472434725347263472734728347293473034731347323473334734347353473634737347383473934740347413474234743347443474534746347473474834749347503475134752347533475434755347563475734758347593476034761347623476334764347653476634767347683476934770347713477234773347743477534776347773477834779347803478134782347833478434785347863478734788347893479034791347923479334794347953479634797347983479934800348013480234803348043480534806348073480834809348103481134812348133481434815348163481734818348193482034821348223482334824348253482634827348283482934830348313483234833348343483534836348373483834839348403484134842348433484434845348463484734848348493485034851348523485334854348553485634857348583485934860348613486234863348643486534866348673486834869348703487134872348733487434875348763487734878348793488034881348823488334884348853488634887348883488934890348913489234893348943489534896348973489834899349003490134902349033490434905349063490734908349093491034911349123491334914349153491634917349183491934920349213492234923349243492534926349273492834929349303493134932349333493434935349363493734938349393494034941349423494334944349453494634947349483494934950349513495234953349543495534956349573495834959349603496134962349633496434965349663496734968349693497034971349723497334974349753497634977349783497934980349813498234983349843498534986349873498834989349903499134992349933499434995349963499734998349993500035001350023500335004350053500635007350083500935010350113501235013350143501535016350173501835019350203502135022350233502435025350263502735028350293503035031350323503335034350353503635037350383503935040350413504235043350443504535046350473504835049350503505135052350533505435055350563505735058350593506035061350623506335064350653506635067350683506935070350713507235073350743507535076350773507835079350803508135082350833508435085350863508735088350893509035091350923509335094350953509635097350983509935100351013510235103351043510535106351073510835109351103511135112351133511435115351163511735118351193512035121351223512335124351253512635127351283512935130351313513235133351343513535136351373513835139351403514135142351433514435145351463514735148351493515035151351523515335154351553515635157351583515935160351613516235163351643516535166351673516835169351703517135172351733517435175351763517735178351793518035181351823518335184351853518635187351883518935190351913519235193351943519535196351973519835199352003520135202352033520435205352063520735208352093521035211352123521335214352153521635217352183521935220352213522235223352243522535226352273522835229352303523135232352333523435235352363523735238352393524035241352423524335244352453524635247352483524935250352513525235253352543525535256352573525835259352603526135262352633526435265352663526735268352693527035271352723527335274352753527635277352783527935280352813528235283352843528535286352873528835289352903529135292352933529435295352963529735298352993530035301353023530335304353053530635307353083530935310353113531235313353143531535316353173531835319353203532135322353233532435325353263532735328353293533035331353323533335334353353533635337353383533935340353413534235343353443534535346353473534835349353503535135352353533535435355353563535735358353593536035361353623536335364353653536635367353683536935370353713537235373353743537535376353773537835379353803538135382353833538435385353863538735388353893539035391353923539335394353953539635397353983539935400354013540235403354043540535406354073540835409354103541135412354133541435415354163541735418354193542035421354223542335424354253542635427354283542935430354313543235433354343543535436354373543835439354403544135442354433544435445354463544735448354493545035451354523545335454354553545635457354583545935460354613546235463354643546535466354673546835469354703547135472354733547435475354763547735478354793548035481354823548335484354853548635487354883548935490354913549235493354943549535496354973549835499355003550135502355033550435505355063550735508355093551035511355123551335514355153551635517355183551935520355213552235523355243552535526355273552835529355303553135532355333553435535355363553735538355393554035541355423554335544355453554635547355483554935550355513555235553355543555535556355573555835559355603556135562355633556435565355663556735568355693557035571355723557335574355753557635577355783557935580355813558235583355843558535586355873558835589355903559135592355933559435595355963559735598355993560035601356023560335604356053560635607356083560935610356113561235613356143561535616356173561835619356203562135622356233562435625356263562735628356293563035631356323563335634356353563635637356383563935640356413564235643356443564535646356473564835649356503565135652356533565435655356563565735658356593566035661356623566335664356653566635667356683566935670356713567235673356743567535676356773567835679356803568135682356833568435685356863568735688356893569035691356923569335694356953569635697356983569935700357013570235703357043570535706357073570835709357103571135712357133571435715357163571735718357193572035721357223572335724357253572635727357283572935730357313573235733357343573535736357373573835739357403574135742357433574435745357463574735748357493575035751357523575335754357553575635757357583575935760357613576235763357643576535766357673576835769357703577135772357733577435775357763577735778357793578035781357823578335784357853578635787357883578935790357913579235793357943579535796357973579835799358003580135802358033580435805358063580735808358093581035811358123581335814358153581635817358183581935820358213582235823358243582535826358273582835829358303583135832358333583435835358363583735838358393584035841358423584335844358453584635847358483584935850358513585235853358543585535856358573585835859358603586135862358633586435865358663586735868358693587035871358723587335874358753587635877358783587935880358813588235883358843588535886358873588835889358903589135892358933589435895358963589735898358993590035901359023590335904359053590635907359083590935910359113591235913359143591535916359173591835919359203592135922359233592435925359263592735928359293593035931359323593335934359353593635937359383593935940359413594235943359443594535946359473594835949359503595135952359533595435955359563595735958359593596035961359623596335964359653596635967359683596935970359713597235973359743597535976359773597835979359803598135982359833598435985359863598735988359893599035991359923599335994359953599635997359983599936000360013600236003360043600536006360073600836009360103601136012360133601436015360163601736018360193602036021360223602336024360253602636027360283602936030360313603236033360343603536036360373603836039360403604136042360433604436045360463604736048360493605036051360523605336054360553605636057360583605936060360613606236063360643606536066360673606836069360703607136072360733607436075360763607736078360793608036081360823608336084360853608636087360883608936090360913609236093360943609536096360973609836099361003610136102361033610436105361063610736108361093611036111361123611336114361153611636117361183611936120361213612236123361243612536126361273612836129361303613136132361333613436135361363613736138361393614036141361423614336144361453614636147361483614936150361513615236153361543615536156361573615836159361603616136162361633616436165361663616736168361693617036171361723617336174361753617636177361783617936180361813618236183361843618536186361873618836189361903619136192361933619436195361963619736198361993620036201362023620336204362053620636207362083620936210362113621236213362143621536216362173621836219362203622136222362233622436225362263622736228362293623036231362323623336234362353623636237362383623936240362413624236243362443624536246362473624836249362503625136252362533625436255362563625736258362593626036261362623626336264362653626636267362683626936270362713627236273362743627536276362773627836279362803628136282362833628436285362863628736288362893629036291362923629336294362953629636297362983629936300363013630236303363043630536306363073630836309363103631136312363133631436315363163631736318363193632036321363223632336324363253632636327363283632936330363313633236333363343633536336363373633836339363403634136342363433634436345363463634736348363493635036351363523635336354363553635636357363583635936360363613636236363363643636536366363673636836369363703637136372363733637436375363763637736378363793638036381363823638336384363853638636387363883638936390363913639236393363943639536396363973639836399364003640136402364033640436405364063640736408364093641036411364123641336414364153641636417364183641936420364213642236423364243642536426364273642836429364303643136432364333643436435364363643736438364393644036441364423644336444364453644636447364483644936450364513645236453364543645536456364573645836459364603646136462364633646436465364663646736468364693647036471364723647336474364753647636477364783647936480364813648236483364843648536486364873648836489364903649136492364933649436495364963649736498364993650036501365023650336504365053650636507365083650936510365113651236513365143651536516365173651836519365203652136522365233652436525365263652736528365293653036531365323653336534365353653636537365383653936540365413654236543365443654536546365473654836549365503655136552365533655436555365563655736558365593656036561365623656336564365653656636567365683656936570365713657236573365743657536576365773657836579365803658136582365833658436585365863658736588365893659036591365923659336594365953659636597365983659936600366013660236603366043660536606366073660836609366103661136612366133661436615366163661736618366193662036621366223662336624366253662636627366283662936630366313663236633366343663536636366373663836639366403664136642366433664436645366463664736648366493665036651366523665336654366553665636657366583665936660366613666236663366643666536666366673666836669366703667136672366733667436675366763667736678366793668036681366823668336684366853668636687366883668936690366913669236693366943669536696366973669836699367003670136702367033670436705367063670736708367093671036711367123671336714367153671636717367183671936720367213672236723367243672536726367273672836729367303673136732367333673436735367363673736738367393674036741367423674336744367453674636747367483674936750367513675236753367543675536756367573675836759367603676136762367633676436765367663676736768367693677036771367723677336774367753677636777367783677936780367813678236783367843678536786367873678836789367903679136792367933679436795367963679736798367993680036801368023680336804368053680636807368083680936810368113681236813368143681536816368173681836819368203682136822368233682436825368263682736828368293683036831368323683336834368353683636837368383683936840368413684236843368443684536846368473684836849368503685136852368533685436855368563685736858368593686036861368623686336864368653686636867368683686936870368713687236873368743687536876368773687836879368803688136882368833688436885368863688736888368893689036891368923689336894368953689636897368983689936900369013690236903369043690536906369073690836909369103691136912369133691436915369163691736918369193692036921369223692336924369253692636927369283692936930369313693236933369343693536936369373693836939369403694136942369433694436945369463694736948369493695036951369523695336954369553695636957369583695936960369613696236963369643696536966369673696836969369703697136972369733697436975369763697736978369793698036981369823698336984369853698636987369883698936990369913699236993369943699536996369973699836999370003700137002370033700437005370063700737008370093701037011370123701337014370153701637017370183701937020370213702237023370243702537026370273702837029370303703137032370333703437035370363703737038370393704037041370423704337044370453704637047370483704937050370513705237053370543705537056370573705837059370603706137062370633706437065370663706737068370693707037071370723707337074370753707637077370783707937080370813708237083370843708537086370873708837089370903709137092370933709437095370963709737098370993710037101371023710337104371053710637107371083710937110371113711237113371143711537116371173711837119371203712137122371233712437125371263712737128371293713037131371323713337134371353713637137371383713937140371413714237143371443714537146371473714837149371503715137152371533715437155371563715737158371593716037161371623716337164371653716637167371683716937170371713717237173371743717537176371773717837179371803718137182371833718437185371863718737188371893719037191371923719337194371953719637197371983719937200372013720237203372043720537206372073720837209372103721137212372133721437215372163721737218372193722037221372223722337224372253722637227372283722937230372313723237233372343723537236372373723837239372403724137242372433724437245372463724737248372493725037251372523725337254372553725637257372583725937260372613726237263372643726537266372673726837269372703727137272372733727437275372763727737278372793728037281372823728337284372853728637287372883728937290372913729237293372943729537296372973729837299373003730137302373033730437305373063730737308373093731037311373123731337314373153731637317373183731937320373213732237323373243732537326373273732837329373303733137332373333733437335373363733737338373393734037341373423734337344373453734637347373483734937350373513735237353373543735537356373573735837359373603736137362373633736437365373663736737368373693737037371373723737337374373753737637377373783737937380373813738237383373843738537386373873738837389373903739137392373933739437395373963739737398373993740037401374023740337404374053740637407374083740937410374113741237413374143741537416374173741837419374203742137422374233742437425374263742737428374293743037431374323743337434374353743637437374383743937440374413744237443374443744537446374473744837449374503745137452374533745437455374563745737458374593746037461374623746337464374653746637467374683746937470374713747237473374743747537476374773747837479374803748137482374833748437485374863748737488374893749037491374923749337494374953749637497374983749937500375013750237503375043750537506375073750837509375103751137512375133751437515375163751737518375193752037521375223752337524375253752637527375283752937530375313753237533375343753537536375373753837539375403754137542375433754437545375463754737548375493755037551375523755337554375553755637557375583755937560375613756237563375643756537566375673756837569375703757137572375733757437575375763757737578375793758037581375823758337584375853758637587375883758937590375913759237593375943759537596375973759837599376003760137602376033760437605376063760737608376093761037611376123761337614376153761637617376183761937620376213762237623376243762537626376273762837629376303763137632376333763437635376363763737638376393764037641376423764337644376453764637647376483764937650376513765237653376543765537656376573765837659376603766137662376633766437665376663766737668376693767037671376723767337674376753767637677376783767937680376813768237683376843768537686376873768837689376903769137692376933769437695376963769737698376993770037701377023770337704377053770637707377083770937710377113771237713377143771537716377173771837719377203772137722377233772437725377263772737728377293773037731377323773337734377353773637737377383773937740377413774237743377443774537746377473774837749377503775137752377533775437755377563775737758377593776037761377623776337764377653776637767377683776937770377713777237773377743777537776377773777837779377803778137782377833778437785377863778737788377893779037791377923779337794377953779637797377983779937800378013780237803378043780537806378073780837809378103781137812378133781437815378163781737818378193782037821378223782337824378253782637827378283782937830378313783237833378343783537836378373783837839378403784137842378433784437845378463784737848378493785037851378523785337854378553785637857378583785937860378613786237863378643786537866378673786837869378703787137872378733787437875378763787737878378793788037881378823788337884378853788637887378883788937890378913789237893378943789537896378973789837899379003790137902379033790437905379063790737908379093791037911379123791337914379153791637917379183791937920379213792237923379243792537926379273792837929379303793137932379333793437935379363793737938379393794037941379423794337944379453794637947379483794937950379513795237953379543795537956379573795837959379603796137962379633796437965379663796737968379693797037971379723797337974379753797637977379783797937980379813798237983379843798537986379873798837989379903799137992379933799437995379963799737998379993800038001380023800338004380053800638007380083800938010380113801238013380143801538016380173801838019380203802138022380233802438025380263802738028380293803038031380323803338034380353803638037380383803938040380413804238043380443804538046380473804838049380503805138052380533805438055380563805738058380593806038061380623806338064380653806638067380683806938070380713807238073380743807538076380773807838079380803808138082380833808438085380863808738088380893809038091380923809338094380953809638097380983809938100381013810238103381043810538106381073810838109381103811138112381133811438115381163811738118381193812038121381223812338124381253812638127381283812938130381313813238133381343813538136381373813838139381403814138142381433814438145381463814738148381493815038151381523815338154381553815638157381583815938160381613816238163381643816538166381673816838169381703817138172381733817438175381763817738178381793818038181381823818338184381853818638187381883818938190381913819238193381943819538196381973819838199382003820138202382033820438205382063820738208382093821038211382123821338214382153821638217382183821938220382213822238223382243822538226382273822838229382303823138232382333823438235382363823738238382393824038241382423824338244382453824638247382483824938250382513825238253382543825538256382573825838259382603826138262382633826438265382663826738268382693827038271382723827338274382753827638277382783827938280382813828238283382843828538286382873828838289382903829138292382933829438295382963829738298382993830038301383023830338304383053830638307383083830938310383113831238313383143831538316383173831838319383203832138322383233832438325383263832738328383293833038331383323833338334383353833638337383383833938340383413834238343383443834538346383473834838349383503835138352383533835438355383563835738358383593836038361383623836338364383653836638367383683836938370383713837238373383743837538376383773837838379383803838138382383833838438385383863838738388383893839038391383923839338394383953839638397383983839938400384013840238403384043840538406384073840838409384103841138412384133841438415384163841738418384193842038421384223842338424384253842638427384283842938430384313843238433384343843538436384373843838439384403844138442384433844438445384463844738448384493845038451384523845338454384553845638457384583845938460384613846238463384643846538466384673846838469384703847138472384733847438475384763847738478384793848038481384823848338484384853848638487384883848938490384913849238493384943849538496384973849838499385003850138502385033850438505385063850738508385093851038511385123851338514385153851638517385183851938520385213852238523385243852538526385273852838529385303853138532385333853438535385363853738538385393854038541385423854338544385453854638547385483854938550385513855238553385543855538556385573855838559385603856138562385633856438565385663856738568385693857038571385723857338574385753857638577385783857938580385813858238583385843858538586385873858838589385903859138592385933859438595385963859738598385993860038601386023860338604386053860638607386083860938610386113861238613386143861538616386173861838619386203862138622386233862438625386263862738628386293863038631386323863338634386353863638637386383863938640386413864238643386443864538646386473864838649386503865138652386533865438655386563865738658386593866038661386623866338664386653866638667386683866938670386713867238673386743867538676386773867838679386803868138682386833868438685386863868738688386893869038691386923869338694386953869638697386983869938700387013870238703387043870538706387073870838709387103871138712387133871438715387163871738718387193872038721387223872338724387253872638727387283872938730387313873238733387343873538736387373873838739387403874138742387433874438745387463874738748387493875038751387523875338754387553875638757387583875938760387613876238763387643876538766387673876838769387703877138772387733877438775387763877738778387793878038781387823878338784387853878638787387883878938790387913879238793387943879538796387973879838799388003880138802388033880438805388063880738808388093881038811388123881338814388153881638817388183881938820388213882238823388243882538826388273882838829388303883138832388333883438835388363883738838388393884038841388423884338844388453884638847388483884938850388513885238853388543885538856388573885838859388603886138862388633886438865388663886738868388693887038871388723887338874388753887638877388783887938880388813888238883388843888538886388873888838889388903889138892388933889438895388963889738898388993890038901389023890338904389053890638907389083890938910389113891238913389143891538916389173891838919389203892138922389233892438925389263892738928389293893038931389323893338934389353893638937389383893938940389413894238943389443894538946389473894838949389503895138952389533895438955389563895738958389593896038961389623896338964389653896638967389683896938970389713897238973389743897538976389773897838979389803898138982389833898438985389863898738988389893899038991389923899338994389953899638997389983899939000390013900239003390043900539006390073900839009390103901139012390133901439015390163901739018390193902039021390223902339024390253902639027390283902939030390313903239033390343903539036390373903839039390403904139042390433904439045390463904739048390493905039051390523905339054390553905639057390583905939060390613906239063390643906539066390673906839069390703907139072390733907439075390763907739078390793908039081390823908339084390853908639087390883908939090390913909239093390943909539096390973909839099391003910139102391033910439105391063910739108391093911039111391123911339114391153911639117391183911939120391213912239123391243912539126391273912839129391303913139132391333913439135391363913739138391393914039141391423914339144391453914639147391483914939150391513915239153391543915539156391573915839159391603916139162391633916439165391663916739168391693917039171391723917339174391753917639177391783917939180391813918239183391843918539186391873918839189391903919139192391933919439195391963919739198391993920039201392023920339204392053920639207392083920939210392113921239213392143921539216392173921839219392203922139222392233922439225392263922739228392293923039231392323923339234392353923639237392383923939240392413924239243392443924539246392473924839249392503925139252392533925439255392563925739258392593926039261392623926339264392653926639267392683926939270392713927239273392743927539276392773927839279392803928139282392833928439285392863928739288392893929039291392923929339294392953929639297392983929939300393013930239303393043930539306393073930839309393103931139312393133931439315393163931739318393193932039321393223932339324393253932639327393283932939330393313933239333393343933539336393373933839339393403934139342393433934439345393463934739348393493935039351393523935339354393553935639357393583935939360393613936239363393643936539366393673936839369393703937139372393733937439375393763937739378393793938039381393823938339384393853938639387393883938939390393913939239393393943939539396393973939839399394003940139402394033940439405394063940739408394093941039411394123941339414394153941639417394183941939420394213942239423394243942539426394273942839429394303943139432394333943439435394363943739438394393944039441394423944339444394453944639447394483944939450394513945239453394543945539456394573945839459394603946139462394633946439465394663946739468394693947039471394723947339474394753947639477394783947939480394813948239483394843948539486394873948839489394903949139492394933949439495394963949739498394993950039501395023950339504395053950639507395083950939510395113951239513395143951539516395173951839519395203952139522395233952439525395263952739528395293953039531395323953339534395353953639537395383953939540395413954239543395443954539546395473954839549395503955139552395533955439555395563955739558395593956039561395623956339564395653956639567395683956939570395713957239573395743957539576395773957839579395803958139582395833958439585395863958739588395893959039591395923959339594395953959639597395983959939600396013960239603396043960539606396073960839609396103961139612396133961439615396163961739618396193962039621396223962339624396253962639627396283962939630396313963239633396343963539636396373963839639396403964139642396433964439645396463964739648396493965039651396523965339654396553965639657396583965939660396613966239663396643966539666396673966839669396703967139672396733967439675396763967739678396793968039681396823968339684396853968639687396883968939690396913969239693396943969539696396973969839699397003970139702397033970439705397063970739708397093971039711397123971339714397153971639717397183971939720397213972239723397243972539726397273972839729397303973139732397333973439735397363973739738397393974039741397423974339744397453974639747397483974939750397513975239753397543975539756397573975839759397603976139762397633976439765397663976739768397693977039771397723977339774397753977639777397783977939780397813978239783397843978539786397873978839789397903979139792397933979439795397963979739798397993980039801398023980339804398053980639807398083980939810398113981239813398143981539816398173981839819398203982139822398233982439825398263982739828398293983039831398323983339834398353983639837398383983939840398413984239843398443984539846398473984839849398503985139852398533985439855398563985739858398593986039861398623986339864398653986639867398683986939870398713987239873398743987539876398773987839879398803988139882398833988439885398863988739888398893989039891398923989339894398953989639897398983989939900399013990239903399043990539906399073990839909399103991139912399133991439915399163991739918399193992039921399223992339924399253992639927399283992939930399313993239933399343993539936399373993839939399403994139942399433994439945399463994739948399493995039951399523995339954399553995639957399583995939960399613996239963399643996539966399673996839969399703997139972399733997439975399763997739978399793998039981399823998339984399853998639987399883998939990399913999239993399943999539996399973999839999400004000140002400034000440005400064000740008400094001040011400124001340014400154001640017400184001940020400214002240023400244002540026400274002840029400304003140032400334003440035400364003740038400394004040041400424004340044400454004640047400484004940050400514005240053400544005540056400574005840059400604006140062400634006440065400664006740068400694007040071400724007340074400754007640077400784007940080400814008240083400844008540086400874008840089400904009140092400934009440095400964009740098400994010040101401024010340104401054010640107401084010940110401114011240113401144011540116401174011840119401204012140122401234012440125401264012740128401294013040131401324013340134401354013640137401384013940140401414014240143401444014540146401474014840149401504015140152401534015440155401564015740158401594016040161401624016340164401654016640167401684016940170401714017240173401744017540176401774017840179401804018140182401834018440185401864018740188401894019040191401924019340194401954019640197401984019940200402014020240203402044020540206402074020840209402104021140212402134021440215402164021740218402194022040221402224022340224402254022640227402284022940230402314023240233402344023540236402374023840239402404024140242402434024440245402464024740248402494025040251402524025340254402554025640257402584025940260402614026240263402644026540266402674026840269402704027140272402734027440275402764027740278402794028040281402824028340284402854028640287402884028940290402914029240293402944029540296402974029840299403004030140302403034030440305403064030740308403094031040311403124031340314403154031640317403184031940320403214032240323403244032540326403274032840329403304033140332403334033440335403364033740338403394034040341403424034340344403454034640347403484034940350403514035240353403544035540356403574035840359403604036140362403634036440365403664036740368403694037040371403724037340374403754037640377403784037940380403814038240383403844038540386403874038840389403904039140392403934039440395403964039740398403994040040401404024040340404404054040640407404084040940410404114041240413404144041540416404174041840419404204042140422404234042440425404264042740428404294043040431404324043340434404354043640437404384043940440404414044240443404444044540446404474044840449404504045140452404534045440455404564045740458404594046040461404624046340464404654046640467404684046940470404714047240473404744047540476404774047840479404804048140482404834048440485404864048740488404894049040491404924049340494404954049640497404984049940500405014050240503405044050540506405074050840509405104051140512405134051440515405164051740518405194052040521405224052340524405254052640527405284052940530405314053240533405344053540536405374053840539405404054140542405434054440545405464054740548405494055040551405524055340554405554055640557405584055940560405614056240563405644056540566405674056840569405704057140572405734057440575405764057740578405794058040581405824058340584405854058640587405884058940590405914059240593405944059540596405974059840599406004060140602406034060440605406064060740608406094061040611406124061340614406154061640617406184061940620406214062240623406244062540626406274062840629406304063140632406334063440635406364063740638406394064040641406424064340644406454064640647406484064940650406514065240653406544065540656406574065840659406604066140662406634066440665406664066740668406694067040671406724067340674406754067640677406784067940680406814068240683406844068540686406874068840689406904069140692406934069440695406964069740698406994070040701407024070340704407054070640707407084070940710407114071240713407144071540716407174071840719407204072140722407234072440725407264072740728407294073040731407324073340734407354073640737407384073940740407414074240743407444074540746407474074840749407504075140752407534075440755407564075740758407594076040761407624076340764407654076640767407684076940770407714077240773407744077540776407774077840779407804078140782407834078440785407864078740788407894079040791407924079340794407954079640797407984079940800408014080240803408044080540806408074080840809408104081140812408134081440815408164081740818408194082040821408224082340824408254082640827408284082940830408314083240833408344083540836408374083840839408404084140842408434084440845408464084740848408494085040851408524085340854408554085640857408584085940860408614086240863408644086540866408674086840869408704087140872408734087440875408764087740878408794088040881408824088340884408854088640887408884088940890408914089240893408944089540896408974089840899409004090140902409034090440905409064090740908409094091040911409124091340914409154091640917409184091940920409214092240923409244092540926409274092840929409304093140932409334093440935409364093740938409394094040941409424094340944409454094640947409484094940950409514095240953409544095540956409574095840959409604096140962409634096440965409664096740968409694097040971409724097340974409754097640977409784097940980409814098240983409844098540986409874098840989409904099140992409934099440995409964099740998409994100041001410024100341004410054100641007410084100941010410114101241013410144101541016410174101841019410204102141022410234102441025410264102741028410294103041031410324103341034410354103641037410384103941040410414104241043410444104541046410474104841049410504105141052410534105441055410564105741058410594106041061410624106341064410654106641067410684106941070410714107241073410744107541076410774107841079410804108141082410834108441085410864108741088410894109041091410924109341094410954109641097410984109941100411014110241103411044110541106411074110841109411104111141112411134111441115411164111741118411194112041121411224112341124411254112641127411284112941130411314113241133411344113541136411374113841139411404114141142411434114441145411464114741148411494115041151411524115341154411554115641157411584115941160411614116241163411644116541166411674116841169411704117141172411734117441175411764117741178411794118041181411824118341184411854118641187411884118941190411914119241193411944119541196411974119841199412004120141202412034120441205412064120741208412094121041211412124121341214412154121641217412184121941220412214122241223412244122541226412274122841229412304123141232412334123441235412364123741238412394124041241412424124341244412454124641247412484124941250412514125241253412544125541256412574125841259412604126141262412634126441265412664126741268412694127041271412724127341274412754127641277412784127941280412814128241283412844128541286412874128841289412904129141292412934129441295412964129741298412994130041301413024130341304413054130641307413084130941310413114131241313413144131541316413174131841319413204132141322413234132441325413264132741328413294133041331413324133341334413354133641337413384133941340413414134241343413444134541346413474134841349413504135141352413534135441355413564135741358413594136041361413624136341364413654136641367413684136941370413714137241373413744137541376413774137841379413804138141382413834138441385413864138741388413894139041391413924139341394413954139641397413984139941400414014140241403414044140541406414074140841409414104141141412414134141441415414164141741418414194142041421414224142341424414254142641427414284142941430414314143241433414344143541436414374143841439414404144141442414434144441445414464144741448414494145041451414524145341454414554145641457414584145941460414614146241463414644146541466414674146841469414704147141472414734147441475414764147741478414794148041481414824148341484414854148641487414884148941490414914149241493414944149541496414974149841499415004150141502415034150441505415064150741508415094151041511415124151341514415154151641517415184151941520415214152241523415244152541526415274152841529415304153141532415334153441535415364153741538415394154041541415424154341544415454154641547415484154941550415514155241553415544155541556415574155841559415604156141562415634156441565415664156741568415694157041571415724157341574415754157641577415784157941580415814158241583415844158541586415874158841589415904159141592415934159441595415964159741598415994160041601416024160341604416054160641607416084160941610416114161241613416144161541616416174161841619416204162141622416234162441625416264162741628416294163041631416324163341634416354163641637416384163941640416414164241643416444164541646416474164841649416504165141652416534165441655416564165741658416594166041661416624166341664416654166641667416684166941670416714167241673416744167541676416774167841679416804168141682416834168441685416864168741688416894169041691416924169341694416954169641697416984169941700417014170241703417044170541706417074170841709417104171141712417134171441715417164171741718417194172041721417224172341724417254172641727417284172941730417314173241733417344173541736417374173841739417404174141742417434174441745417464174741748417494175041751417524175341754417554175641757417584175941760417614176241763417644176541766417674176841769417704177141772417734177441775417764177741778417794178041781417824178341784417854178641787417884178941790417914179241793417944179541796417974179841799418004180141802418034180441805418064180741808418094181041811418124181341814418154181641817418184181941820418214182241823418244182541826418274182841829418304183141832418334183441835418364183741838418394184041841418424184341844418454184641847418484184941850418514185241853418544185541856418574185841859418604186141862418634186441865418664186741868418694187041871418724187341874418754187641877418784187941880418814188241883418844188541886418874188841889418904189141892418934189441895418964189741898418994190041901419024190341904419054190641907419084190941910419114191241913419144191541916419174191841919419204192141922419234192441925419264192741928419294193041931419324193341934419354193641937419384193941940419414194241943419444194541946419474194841949419504195141952419534195441955419564195741958419594196041961419624196341964419654196641967419684196941970419714197241973419744197541976419774197841979419804198141982419834198441985419864198741988419894199041991419924199341994419954199641997419984199942000420014200242003420044200542006420074200842009420104201142012420134201442015420164201742018420194202042021420224202342024420254202642027420284202942030420314203242033420344203542036420374203842039420404204142042420434204442045420464204742048420494205042051420524205342054420554205642057420584205942060420614206242063420644206542066420674206842069420704207142072420734207442075420764207742078420794208042081420824208342084420854208642087420884208942090420914209242093420944209542096420974209842099421004210142102421034210442105421064210742108421094211042111421124211342114421154211642117421184211942120421214212242123421244212542126421274212842129421304213142132421334213442135421364213742138421394214042141421424214342144421454214642147421484214942150421514215242153421544215542156421574215842159421604216142162421634216442165421664216742168421694217042171421724217342174421754217642177421784217942180421814218242183421844218542186421874218842189421904219142192421934219442195421964219742198421994220042201422024220342204422054220642207422084220942210422114221242213422144221542216422174221842219422204222142222422234222442225422264222742228422294223042231422324223342234422354223642237422384223942240422414224242243422444224542246422474224842249422504225142252422534225442255422564225742258422594226042261422624226342264422654226642267422684226942270422714227242273422744227542276422774227842279422804228142282422834228442285422864228742288422894229042291422924229342294422954229642297422984229942300423014230242303423044230542306423074230842309423104231142312423134231442315423164231742318423194232042321423224232342324423254232642327423284232942330423314233242333423344233542336423374233842339423404234142342423434234442345423464234742348423494235042351423524235342354423554235642357423584235942360423614236242363423644236542366423674236842369423704237142372423734237442375423764237742378423794238042381423824238342384423854238642387423884238942390423914239242393423944239542396423974239842399424004240142402424034240442405424064240742408424094241042411424124241342414424154241642417424184241942420424214242242423424244242542426424274242842429424304243142432424334243442435424364243742438424394244042441424424244342444424454244642447424484244942450424514245242453424544245542456424574245842459424604246142462424634246442465424664246742468424694247042471424724247342474424754247642477424784247942480424814248242483424844248542486424874248842489424904249142492424934249442495424964249742498424994250042501425024250342504425054250642507425084250942510425114251242513425144251542516425174251842519425204252142522425234252442525425264252742528425294253042531425324253342534425354253642537425384253942540425414254242543425444254542546425474254842549425504255142552425534255442555425564255742558425594256042561425624256342564425654256642567425684256942570425714257242573425744257542576425774257842579425804258142582425834258442585425864258742588425894259042591425924259342594425954259642597425984259942600426014260242603426044260542606426074260842609426104261142612426134261442615426164261742618426194262042621426224262342624426254262642627426284262942630426314263242633426344263542636426374263842639426404264142642426434264442645426464264742648426494265042651426524265342654426554265642657426584265942660426614266242663426644266542666426674266842669426704267142672426734267442675426764267742678426794268042681426824268342684426854268642687426884268942690426914269242693426944269542696426974269842699427004270142702427034270442705427064270742708427094271042711427124271342714427154271642717427184271942720427214272242723427244272542726427274272842729427304273142732427334273442735427364273742738427394274042741427424274342744427454274642747427484274942750427514275242753427544275542756427574275842759427604276142762427634276442765427664276742768427694277042771427724277342774427754277642777427784277942780427814278242783427844278542786427874278842789427904279142792427934279442795427964279742798427994280042801428024280342804428054280642807428084280942810428114281242813428144281542816428174281842819428204282142822428234282442825428264282742828428294283042831428324283342834428354283642837428384283942840428414284242843428444284542846428474284842849428504285142852428534285442855428564285742858428594286042861428624286342864428654286642867428684286942870428714287242873428744287542876428774287842879428804288142882428834288442885428864288742888428894289042891428924289342894428954289642897428984289942900429014290242903429044290542906429074290842909429104291142912429134291442915429164291742918429194292042921429224292342924429254292642927429284292942930429314293242933429344293542936429374293842939429404294142942429434294442945429464294742948429494295042951429524295342954429554295642957429584295942960429614296242963429644296542966429674296842969429704297142972429734297442975429764297742978429794298042981429824298342984429854298642987429884298942990429914299242993429944299542996429974299842999430004300143002430034300443005430064300743008430094301043011430124301343014430154301643017430184301943020430214302243023430244302543026430274302843029430304303143032430334303443035430364303743038430394304043041430424304343044430454304643047430484304943050430514305243053430544305543056430574305843059430604306143062430634306443065430664306743068430694307043071430724307343074430754307643077430784307943080430814308243083430844308543086430874308843089430904309143092430934309443095430964309743098430994310043101431024310343104431054310643107431084310943110431114311243113431144311543116431174311843119431204312143122431234312443125431264312743128431294313043131431324313343134431354313643137431384313943140431414314243143431444314543146431474314843149431504315143152431534315443155431564315743158431594316043161431624316343164431654316643167431684316943170431714317243173431744317543176431774317843179431804318143182431834318443185431864318743188431894319043191431924319343194431954319643197431984319943200432014320243203432044320543206432074320843209432104321143212432134321443215432164321743218432194322043221432224322343224432254322643227432284322943230432314323243233432344323543236432374323843239432404324143242432434324443245432464324743248432494325043251432524325343254432554325643257432584325943260432614326243263432644326543266432674326843269432704327143272432734327443275432764327743278432794328043281432824328343284432854328643287432884328943290432914329243293432944329543296432974329843299433004330143302433034330443305433064330743308433094331043311433124331343314433154331643317433184331943320433214332243323433244332543326433274332843329433304333143332433334333443335433364333743338433394334043341433424334343344433454334643347433484334943350433514335243353433544335543356433574335843359433604336143362433634336443365433664336743368433694337043371433724337343374433754337643377433784337943380433814338243383433844338543386433874338843389433904339143392433934339443395433964339743398433994340043401434024340343404434054340643407434084340943410434114341243413434144341543416434174341843419434204342143422434234342443425434264342743428434294343043431434324343343434434354343643437434384343943440434414344243443434444344543446434474344843449434504345143452434534345443455434564345743458434594346043461434624346343464434654346643467434684346943470434714347243473434744347543476434774347843479434804348143482434834348443485434864348743488434894349043491434924349343494434954349643497434984349943500435014350243503435044350543506435074350843509435104351143512435134351443515435164351743518435194352043521435224352343524435254352643527435284352943530435314353243533435344353543536435374353843539435404354143542435434354443545435464354743548435494355043551435524355343554435554355643557435584355943560435614356243563435644356543566435674356843569435704357143572435734357443575435764357743578435794358043581435824358343584435854358643587435884358943590435914359243593435944359543596435974359843599436004360143602436034360443605436064360743608436094361043611436124361343614436154361643617436184361943620436214362243623436244362543626436274362843629436304363143632436334363443635436364363743638436394364043641436424364343644436454364643647436484364943650436514365243653436544365543656436574365843659436604366143662436634366443665436664366743668436694367043671436724367343674436754367643677436784367943680436814368243683436844368543686436874368843689436904369143692436934369443695436964369743698436994370043701437024370343704437054370643707437084370943710437114371243713437144371543716437174371843719437204372143722437234372443725437264372743728437294373043731437324373343734437354373643737437384373943740437414374243743437444374543746437474374843749437504375143752437534375443755437564375743758437594376043761437624376343764437654376643767437684376943770437714377243773437744377543776437774377843779437804378143782437834378443785437864378743788437894379043791437924379343794437954379643797437984379943800438014380243803438044380543806438074380843809438104381143812438134381443815438164381743818438194382043821438224382343824438254382643827438284382943830438314383243833438344383543836438374383843839438404384143842438434384443845438464384743848438494385043851438524385343854438554385643857438584385943860438614386243863438644386543866438674386843869438704387143872438734387443875438764387743878438794388043881438824388343884438854388643887438884388943890438914389243893438944389543896438974389843899439004390143902439034390443905439064390743908439094391043911439124391343914439154391643917439184391943920439214392243923439244392543926439274392843929439304393143932439334393443935439364393743938439394394043941439424394343944439454394643947439484394943950439514395243953439544395543956439574395843959439604396143962439634396443965439664396743968439694397043971439724397343974439754397643977439784397943980439814398243983439844398543986439874398843989439904399143992439934399443995439964399743998439994400044001440024400344004440054400644007440084400944010440114401244013440144401544016440174401844019440204402144022440234402444025440264402744028440294403044031440324403344034440354403644037440384403944040440414404244043440444404544046440474404844049440504405144052440534405444055440564405744058440594406044061440624406344064440654406644067440684406944070440714407244073440744407544076440774407844079440804408144082440834408444085440864408744088440894409044091440924409344094440954409644097440984409944100441014410244103441044410544106441074410844109441104411144112441134411444115441164411744118441194412044121441224412344124441254412644127441284412944130441314413244133441344413544136441374413844139441404414144142441434414444145441464414744148441494415044151441524415344154441554415644157441584415944160441614416244163441644416544166441674416844169441704417144172441734417444175441764417744178441794418044181441824418344184441854418644187441884418944190441914419244193441944419544196441974419844199442004420144202442034420444205442064420744208442094421044211442124421344214442154421644217442184421944220442214422244223442244422544226442274422844229442304423144232442334423444235442364423744238442394424044241442424424344244442454424644247442484424944250442514425244253442544425544256442574425844259442604426144262442634426444265442664426744268442694427044271442724427344274442754427644277442784427944280442814428244283442844428544286442874428844289442904429144292442934429444295442964429744298442994430044301443024430344304443054430644307443084430944310443114431244313443144431544316443174431844319443204432144322443234432444325443264432744328443294433044331443324433344334443354433644337443384433944340443414434244343443444434544346443474434844349443504435144352443534435444355443564435744358443594436044361443624436344364443654436644367443684436944370443714437244373443744437544376443774437844379443804438144382443834438444385443864438744388443894439044391443924439344394443954439644397443984439944400444014440244403444044440544406444074440844409444104441144412444134441444415444164441744418444194442044421444224442344424444254442644427444284442944430444314443244433444344443544436444374443844439444404444144442444434444444445444464444744448444494445044451444524445344454444554445644457444584445944460444614446244463444644446544466444674446844469444704447144472444734447444475444764447744478444794448044481444824448344484444854448644487444884448944490444914449244493444944449544496444974449844499445004450144502445034450444505445064450744508445094451044511445124451344514445154451644517445184451944520445214452244523445244452544526445274452844529445304453144532445334453444535445364453744538445394454044541445424454344544445454454644547445484454944550445514455244553445544455544556445574455844559445604456144562445634456444565445664456744568445694457044571445724457344574445754457644577445784457944580445814458244583445844458544586445874458844589445904459144592445934459444595445964459744598445994460044601446024460344604446054460644607446084460944610446114461244613446144461544616446174461844619446204462144622446234462444625446264462744628446294463044631446324463344634446354463644637446384463944640446414464244643446444464544646446474464844649446504465144652446534465444655446564465744658446594466044661446624466344664446654466644667446684466944670446714467244673446744467544676446774467844679446804468144682446834468444685446864468744688446894469044691446924469344694446954469644697446984469944700447014470244703447044470544706447074470844709447104471144712447134471444715447164471744718447194472044721447224472344724447254472644727447284472944730447314473244733447344473544736447374473844739447404474144742447434474444745447464474744748447494475044751447524475344754447554475644757447584475944760447614476244763447644476544766447674476844769447704477144772447734477444775447764477744778447794478044781447824478344784447854478644787447884478944790447914479244793447944479544796447974479844799448004480144802448034480444805448064480744808448094481044811448124481344814448154481644817448184481944820448214482244823448244482544826448274482844829448304483144832448334483444835448364483744838448394484044841448424484344844448454484644847448484484944850448514485244853448544485544856448574485844859448604486144862448634486444865448664486744868448694487044871448724487344874448754487644877448784487944880448814488244883448844488544886448874488844889448904489144892448934489444895448964489744898448994490044901449024490344904449054490644907449084490944910449114491244913449144491544916449174491844919449204492144922449234492444925449264492744928449294493044931449324493344934449354493644937449384493944940449414494244943449444494544946449474494844949449504495144952449534495444955449564495744958449594496044961449624496344964449654496644967449684496944970449714497244973449744497544976449774497844979449804498144982449834498444985449864498744988449894499044991449924499344994449954499644997449984499945000450014500245003450044500545006450074500845009450104501145012450134501445015450164501745018450194502045021450224502345024450254502645027450284502945030450314503245033450344503545036450374503845039450404504145042450434504445045450464504745048450494505045051450524505345054450554505645057450584505945060450614506245063450644506545066450674506845069450704507145072450734507445075450764507745078450794508045081450824508345084450854508645087450884508945090450914509245093450944509545096450974509845099451004510145102451034510445105451064510745108451094511045111451124511345114451154511645117451184511945120451214512245123451244512545126451274512845129451304513145132451334513445135451364513745138451394514045141451424514345144451454514645147451484514945150451514515245153451544515545156451574515845159451604516145162451634516445165451664516745168451694517045171451724517345174451754517645177451784517945180451814518245183451844518545186451874518845189451904519145192451934519445195451964519745198451994520045201452024520345204452054520645207452084520945210452114521245213452144521545216452174521845219452204522145222452234522445225452264522745228452294523045231452324523345234452354523645237452384523945240452414524245243452444524545246452474524845249452504525145252452534525445255452564525745258452594526045261452624526345264452654526645267452684526945270452714527245273452744527545276452774527845279452804528145282452834528445285452864528745288452894529045291452924529345294452954529645297452984529945300453014530245303453044530545306453074530845309453104531145312453134531445315453164531745318453194532045321453224532345324453254532645327453284532945330453314533245333453344533545336453374533845339453404534145342453434534445345453464534745348453494535045351453524535345354453554535645357453584535945360453614536245363453644536545366453674536845369453704537145372453734537445375453764537745378453794538045381453824538345384453854538645387453884538945390453914539245393453944539545396453974539845399454004540145402454034540445405454064540745408454094541045411454124541345414454154541645417454184541945420454214542245423454244542545426454274542845429454304543145432454334543445435454364543745438454394544045441454424544345444454454544645447454484544945450454514545245453454544545545456454574545845459454604546145462454634546445465454664546745468454694547045471454724547345474454754547645477454784547945480454814548245483454844548545486454874548845489454904549145492454934549445495454964549745498454994550045501455024550345504455054550645507455084550945510455114551245513455144551545516455174551845519455204552145522455234552445525455264552745528455294553045531455324553345534455354553645537455384553945540455414554245543455444554545546455474554845549455504555145552455534555445555455564555745558455594556045561455624556345564455654556645567455684556945570455714557245573455744557545576455774557845579455804558145582455834558445585455864558745588455894559045591455924559345594455954559645597455984559945600456014560245603456044560545606456074560845609456104561145612456134561445615456164561745618456194562045621456224562345624456254562645627456284562945630456314563245633456344563545636456374563845639456404564145642456434564445645456464564745648456494565045651456524565345654456554565645657456584565945660456614566245663456644566545666456674566845669456704567145672456734567445675456764567745678456794568045681456824568345684456854568645687456884568945690456914569245693456944569545696456974569845699457004570145702457034570445705457064570745708457094571045711457124571345714457154571645717457184571945720457214572245723457244572545726457274572845729457304573145732457334573445735457364573745738457394574045741457424574345744457454574645747457484574945750457514575245753457544575545756457574575845759457604576145762457634576445765457664576745768457694577045771457724577345774457754577645777457784577945780457814578245783457844578545786457874578845789457904579145792457934579445795457964579745798457994580045801458024580345804458054580645807458084580945810458114581245813458144581545816458174581845819458204582145822458234582445825458264582745828458294583045831458324583345834458354583645837458384583945840458414584245843458444584545846458474584845849458504585145852458534585445855458564585745858458594586045861458624586345864458654586645867458684586945870458714587245873458744587545876458774587845879458804588145882458834588445885458864588745888458894589045891458924589345894458954589645897458984589945900459014590245903459044590545906459074590845909459104591145912459134591445915459164591745918459194592045921459224592345924459254592645927459284592945930459314593245933459344593545936459374593845939459404594145942459434594445945459464594745948459494595045951459524595345954459554595645957459584595945960459614596245963459644596545966459674596845969459704597145972459734597445975459764597745978459794598045981459824598345984459854598645987459884598945990459914599245993459944599545996459974599845999460004600146002460034600446005460064600746008460094601046011460124601346014460154601646017460184601946020460214602246023460244602546026460274602846029460304603146032460334603446035460364603746038460394604046041460424604346044460454604646047460484604946050460514605246053460544605546056460574605846059460604606146062460634606446065460664606746068460694607046071460724607346074460754607646077460784607946080460814608246083460844608546086460874608846089460904609146092460934609446095460964609746098460994610046101461024610346104461054610646107461084610946110461114611246113461144611546116461174611846119461204612146122461234612446125461264612746128461294613046131461324613346134461354613646137461384613946140461414614246143461444614546146461474614846149461504615146152461534615446155461564615746158461594616046161461624616346164461654616646167461684616946170461714617246173461744617546176461774617846179461804618146182461834618446185461864618746188461894619046191461924619346194461954619646197461984619946200462014620246203462044620546206462074620846209462104621146212462134621446215462164621746218462194622046221462224622346224462254622646227462284622946230462314623246233462344623546236462374623846239462404624146242462434624446245462464624746248462494625046251462524625346254462554625646257462584625946260462614626246263462644626546266462674626846269462704627146272462734627446275462764627746278462794628046281462824628346284462854628646287462884628946290462914629246293462944629546296462974629846299463004630146302463034630446305463064630746308463094631046311463124631346314463154631646317463184631946320463214632246323463244632546326463274632846329463304633146332463334633446335463364633746338463394634046341463424634346344463454634646347463484634946350463514635246353463544635546356463574635846359463604636146362463634636446365463664636746368463694637046371463724637346374463754637646377463784637946380463814638246383463844638546386463874638846389463904639146392463934639446395463964639746398463994640046401464024640346404464054640646407464084640946410464114641246413464144641546416464174641846419464204642146422464234642446425464264642746428464294643046431464324643346434464354643646437464384643946440464414644246443464444644546446464474644846449464504645146452464534645446455464564645746458464594646046461464624646346464464654646646467464684646946470464714647246473464744647546476464774647846479464804648146482464834648446485464864648746488464894649046491464924649346494464954649646497464984649946500465014650246503465044650546506465074650846509465104651146512465134651446515465164651746518465194652046521465224652346524465254652646527465284652946530465314653246533465344653546536465374653846539465404654146542465434654446545465464654746548465494655046551465524655346554465554655646557465584655946560465614656246563465644656546566465674656846569465704657146572465734657446575465764657746578465794658046581465824658346584465854658646587465884658946590465914659246593465944659546596465974659846599466004660146602466034660446605466064660746608466094661046611466124661346614466154661646617466184661946620466214662246623466244662546626466274662846629466304663146632466334663446635466364663746638466394664046641466424664346644466454664646647466484664946650466514665246653466544665546656466574665846659466604666146662466634666446665466664666746668466694667046671466724667346674466754667646677466784667946680466814668246683466844668546686466874668846689466904669146692466934669446695466964669746698466994670046701467024670346704467054670646707467084670946710467114671246713467144671546716467174671846719467204672146722467234672446725467264672746728467294673046731467324673346734467354673646737467384673946740467414674246743467444674546746467474674846749467504675146752467534675446755467564675746758467594676046761467624676346764467654676646767467684676946770467714677246773467744677546776467774677846779467804678146782467834678446785467864678746788467894679046791467924679346794467954679646797467984679946800468014680246803468044680546806468074680846809468104681146812468134681446815468164681746818468194682046821468224682346824468254682646827468284682946830468314683246833468344683546836468374683846839468404684146842468434684446845468464684746848468494685046851468524685346854468554685646857468584685946860468614686246863468644686546866468674686846869468704687146872468734687446875468764687746878468794688046881468824688346884468854688646887468884688946890468914689246893468944689546896468974689846899469004690146902469034690446905469064690746908469094691046911469124691346914469154691646917469184691946920469214692246923469244692546926469274692846929469304693146932469334693446935469364693746938469394694046941469424694346944469454694646947469484694946950469514695246953469544695546956469574695846959469604696146962469634696446965469664696746968469694697046971469724697346974469754697646977469784697946980469814698246983469844698546986469874698846989469904699146992469934699446995469964699746998469994700047001470024700347004470054700647007470084700947010470114701247013470144701547016470174701847019470204702147022470234702447025470264702747028470294703047031470324703347034470354703647037470384703947040470414704247043470444704547046470474704847049470504705147052470534705447055470564705747058470594706047061470624706347064470654706647067470684706947070470714707247073470744707547076470774707847079470804708147082470834708447085470864708747088470894709047091470924709347094470954709647097470984709947100471014710247103471044710547106471074710847109471104711147112471134711447115471164711747118471194712047121471224712347124471254712647127471284712947130471314713247133471344713547136471374713847139471404714147142471434714447145471464714747148471494715047151471524715347154471554715647157471584715947160471614716247163471644716547166471674716847169471704717147172471734717447175471764717747178471794718047181471824718347184471854718647187471884718947190471914719247193471944719547196471974719847199472004720147202472034720447205472064720747208472094721047211472124721347214472154721647217472184721947220472214722247223472244722547226472274722847229472304723147232472334723447235472364723747238472394724047241472424724347244472454724647247472484724947250472514725247253472544725547256472574725847259472604726147262472634726447265472664726747268472694727047271472724727347274472754727647277472784727947280472814728247283472844728547286472874728847289472904729147292472934729447295472964729747298472994730047301473024730347304473054730647307473084730947310473114731247313473144731547316473174731847319473204732147322473234732447325473264732747328473294733047331473324733347334473354733647337473384733947340473414734247343473444734547346473474734847349473504735147352473534735447355473564735747358473594736047361473624736347364473654736647367473684736947370473714737247373473744737547376473774737847379473804738147382473834738447385473864738747388473894739047391473924739347394473954739647397473984739947400474014740247403474044740547406474074740847409474104741147412474134741447415474164741747418474194742047421474224742347424474254742647427474284742947430474314743247433474344743547436474374743847439474404744147442474434744447445474464744747448474494745047451474524745347454474554745647457474584745947460474614746247463474644746547466474674746847469474704747147472474734747447475474764747747478474794748047481474824748347484474854748647487474884748947490474914749247493474944749547496474974749847499475004750147502475034750447505475064750747508475094751047511475124751347514475154751647517475184751947520475214752247523475244752547526475274752847529475304753147532475334753447535475364753747538475394754047541475424754347544475454754647547475484754947550475514755247553475544755547556475574755847559475604756147562475634756447565475664756747568475694757047571475724757347574475754757647577475784757947580475814758247583475844758547586475874758847589475904759147592475934759447595475964759747598475994760047601476024760347604476054760647607476084760947610476114761247613476144761547616476174761847619476204762147622476234762447625476264762747628476294763047631476324763347634476354763647637476384763947640476414764247643476444764547646476474764847649476504765147652476534765447655476564765747658476594766047661476624766347664476654766647667476684766947670476714767247673476744767547676476774767847679476804768147682476834768447685476864768747688476894769047691476924769347694476954769647697476984769947700477014770247703477044770547706477074770847709477104771147712477134771447715477164771747718477194772047721477224772347724477254772647727477284772947730477314773247733477344773547736477374773847739477404774147742477434774447745477464774747748477494775047751477524775347754477554775647757477584775947760477614776247763477644776547766477674776847769477704777147772477734777447775477764777747778477794778047781477824778347784477854778647787477884778947790477914779247793477944779547796477974779847799478004780147802478034780447805478064780747808478094781047811478124781347814478154781647817478184781947820478214782247823478244782547826478274782847829478304783147832478334783447835478364783747838478394784047841478424784347844478454784647847478484784947850478514785247853478544785547856478574785847859478604786147862478634786447865478664786747868478694787047871478724787347874478754787647877478784787947880478814788247883478844788547886478874788847889478904789147892478934789447895478964789747898478994790047901479024790347904479054790647907479084790947910479114791247913479144791547916479174791847919479204792147922479234792447925479264792747928479294793047931479324793347934479354793647937479384793947940479414794247943479444794547946479474794847949479504795147952479534795447955479564795747958479594796047961479624796347964479654796647967479684796947970479714797247973479744797547976479774797847979479804798147982479834798447985479864798747988479894799047991479924799347994479954799647997479984799948000480014800248003480044800548006480074800848009480104801148012480134801448015480164801748018480194802048021480224802348024480254802648027480284802948030480314803248033480344803548036480374803848039480404804148042480434804448045480464804748048480494805048051480524805348054480554805648057480584805948060480614806248063480644806548066480674806848069480704807148072480734807448075480764807748078480794808048081480824808348084480854808648087480884808948090480914809248093480944809548096480974809848099481004810148102481034810448105481064810748108481094811048111481124811348114481154811648117481184811948120481214812248123481244812548126481274812848129481304813148132481334813448135481364813748138481394814048141481424814348144481454814648147481484814948150481514815248153481544815548156481574815848159481604816148162481634816448165481664816748168481694817048171481724817348174481754817648177481784817948180481814818248183481844818548186481874818848189481904819148192481934819448195481964819748198481994820048201482024820348204482054820648207482084820948210482114821248213482144821548216482174821848219482204822148222482234822448225482264822748228482294823048231482324823348234482354823648237482384823948240482414824248243482444824548246482474824848249482504825148252482534825448255482564825748258482594826048261482624826348264482654826648267482684826948270482714827248273482744827548276482774827848279482804828148282482834828448285482864828748288482894829048291482924829348294482954829648297482984829948300483014830248303483044830548306483074830848309483104831148312483134831448315483164831748318483194832048321483224832348324483254832648327483284832948330483314833248333483344833548336483374833848339483404834148342483434834448345483464834748348483494835048351483524835348354483554835648357483584835948360483614836248363483644836548366483674836848369483704837148372483734837448375483764837748378483794838048381483824838348384483854838648387483884838948390483914839248393483944839548396483974839848399484004840148402484034840448405484064840748408484094841048411484124841348414484154841648417484184841948420484214842248423484244842548426484274842848429484304843148432484334843448435484364843748438484394844048441484424844348444484454844648447484484844948450484514845248453484544845548456484574845848459484604846148462484634846448465484664846748468484694847048471484724847348474484754847648477484784847948480484814848248483484844848548486484874848848489484904849148492484934849448495484964849748498484994850048501485024850348504485054850648507485084850948510485114851248513485144851548516485174851848519485204852148522485234852448525485264852748528485294853048531485324853348534485354853648537485384853948540485414854248543485444854548546485474854848549485504855148552485534855448555485564855748558485594856048561485624856348564485654856648567485684856948570485714857248573485744857548576485774857848579485804858148582485834858448585485864858748588485894859048591485924859348594485954859648597485984859948600486014860248603486044860548606486074860848609486104861148612486134861448615486164861748618486194862048621486224862348624486254862648627486284862948630486314863248633486344863548636486374863848639486404864148642486434864448645486464864748648486494865048651486524865348654486554865648657486584865948660486614866248663486644866548666486674866848669486704867148672486734867448675486764867748678486794868048681486824868348684486854868648687486884868948690486914869248693486944869548696486974869848699487004870148702487034870448705487064870748708487094871048711487124871348714487154871648717487184871948720487214872248723487244872548726487274872848729487304873148732487334873448735487364873748738487394874048741487424874348744487454874648747487484874948750487514875248753487544875548756487574875848759487604876148762487634876448765487664876748768487694877048771487724877348774487754877648777487784877948780487814878248783487844878548786487874878848789487904879148792487934879448795487964879748798487994880048801488024880348804488054880648807488084880948810488114881248813488144881548816488174881848819488204882148822488234882448825488264882748828488294883048831488324883348834488354883648837488384883948840488414884248843488444884548846488474884848849488504885148852488534885448855488564885748858488594886048861488624886348864488654886648867488684886948870488714887248873488744887548876488774887848879488804888148882488834888448885488864888748888488894889048891488924889348894488954889648897488984889948900489014890248903489044890548906489074890848909489104891148912489134891448915489164891748918489194892048921489224892348924489254892648927489284892948930489314893248933489344893548936489374893848939489404894148942489434894448945489464894748948489494895048951489524895348954489554895648957489584895948960489614896248963489644896548966489674896848969489704897148972489734897448975489764897748978489794898048981489824898348984489854898648987489884898948990489914899248993489944899548996489974899848999490004900149002490034900449005490064900749008490094901049011490124901349014490154901649017490184901949020490214902249023490244902549026490274902849029490304903149032490334903449035490364903749038490394904049041490424904349044490454904649047490484904949050490514905249053490544905549056490574905849059490604906149062490634906449065490664906749068490694907049071490724907349074490754907649077490784907949080490814908249083490844908549086490874908849089490904909149092490934909449095490964909749098490994910049101491024910349104491054910649107491084910949110491114911249113491144911549116491174911849119491204912149122491234912449125491264912749128491294913049131491324913349134491354913649137491384913949140491414914249143491444914549146491474914849149491504915149152491534915449155491564915749158491594916049161491624916349164491654916649167491684916949170491714917249173491744917549176491774917849179491804918149182491834918449185491864918749188491894919049191491924919349194491954919649197491984919949200492014920249203492044920549206492074920849209492104921149212492134921449215492164921749218492194922049221492224922349224492254922649227492284922949230492314923249233492344923549236492374923849239492404924149242492434924449245492464924749248492494925049251492524925349254492554925649257492584925949260492614926249263492644926549266492674926849269492704927149272492734927449275492764927749278492794928049281492824928349284492854928649287492884928949290492914929249293492944929549296492974929849299493004930149302493034930449305493064930749308493094931049311493124931349314493154931649317493184931949320493214932249323493244932549326493274932849329493304933149332493334933449335493364933749338493394934049341493424934349344493454934649347493484934949350493514935249353493544935549356493574935849359493604936149362493634936449365493664936749368493694937049371493724937349374493754937649377493784937949380493814938249383493844938549386493874938849389493904939149392493934939449395493964939749398493994940049401494024940349404494054940649407494084940949410494114941249413494144941549416494174941849419494204942149422494234942449425494264942749428494294943049431494324943349434494354943649437494384943949440494414944249443494444944549446494474944849449494504945149452494534945449455494564945749458494594946049461494624946349464494654946649467494684946949470494714947249473494744947549476494774947849479494804948149482494834948449485494864948749488494894949049491494924949349494494954949649497494984949949500495014950249503495044950549506495074950849509495104951149512495134951449515495164951749518495194952049521495224952349524495254952649527495284952949530495314953249533495344953549536495374953849539495404954149542495434954449545495464954749548495494955049551495524955349554495554955649557495584955949560495614956249563495644956549566495674956849569495704957149572495734957449575495764957749578495794958049581495824958349584495854958649587495884958949590495914959249593495944959549596495974959849599496004960149602496034960449605496064960749608496094961049611496124961349614496154961649617496184961949620496214962249623496244962549626496274962849629496304963149632496334963449635496364963749638496394964049641496424964349644496454964649647496484964949650496514965249653496544965549656496574965849659496604966149662496634966449665496664966749668496694967049671496724967349674496754967649677496784967949680496814968249683496844968549686496874968849689496904969149692496934969449695496964969749698496994970049701497024970349704497054970649707497084970949710497114971249713497144971549716497174971849719497204972149722497234972449725497264972749728497294973049731497324973349734497354973649737497384973949740497414974249743497444974549746497474974849749497504975149752497534975449755497564975749758497594976049761497624976349764497654976649767497684976949770497714977249773497744977549776497774977849779497804978149782497834978449785497864978749788497894979049791497924979349794497954979649797497984979949800498014980249803498044980549806498074980849809498104981149812498134981449815498164981749818498194982049821498224982349824498254982649827498284982949830498314983249833498344983549836498374983849839498404984149842498434984449845498464984749848498494985049851498524985349854498554985649857498584985949860498614986249863498644986549866498674986849869498704987149872498734987449875498764987749878498794988049881498824988349884498854988649887498884988949890498914989249893498944989549896498974989849899499004990149902499034990449905499064990749908499094991049911499124991349914499154991649917499184991949920499214992249923499244992549926499274992849929499304993149932499334993449935499364993749938499394994049941499424994349944499454994649947499484994949950499514995249953499544995549956499574995849959499604996149962499634996449965499664996749968499694997049971499724997349974499754997649977499784997949980499814998249983499844998549986499874998849989499904999149992499934999449995499964999749998499995000050001500025000350004500055000650007500085000950010500115001250013500145001550016500175001850019500205002150022500235002450025500265002750028500295003050031500325003350034500355003650037500385003950040500415004250043500445004550046500475004850049500505005150052500535005450055500565005750058500595006050061500625006350064500655006650067500685006950070500715007250073500745007550076500775007850079500805008150082500835008450085500865008750088500895009050091500925009350094500955009650097500985009950100501015010250103501045010550106501075010850109501105011150112501135011450115501165011750118501195012050121501225012350124501255012650127501285012950130501315013250133501345013550136501375013850139501405014150142501435014450145501465014750148501495015050151501525015350154501555015650157501585015950160501615016250163501645016550166501675016850169501705017150172501735017450175501765017750178501795018050181501825018350184501855018650187501885018950190501915019250193501945019550196501975019850199502005020150202502035020450205502065020750208502095021050211502125021350214502155021650217502185021950220502215022250223502245022550226502275022850229502305023150232502335023450235502365023750238502395024050241502425024350244502455024650247502485024950250502515025250253502545025550256502575025850259502605026150262502635026450265502665026750268502695027050271502725027350274502755027650277502785027950280502815028250283502845028550286502875028850289502905029150292502935029450295502965029750298502995030050301503025030350304503055030650307503085030950310503115031250313503145031550316503175031850319503205032150322503235032450325503265032750328503295033050331503325033350334503355033650337503385033950340503415034250343503445034550346503475034850349503505035150352503535035450355503565035750358503595036050361503625036350364503655036650367503685036950370503715037250373503745037550376503775037850379503805038150382503835038450385503865038750388503895039050391503925039350394503955039650397503985039950400504015040250403504045040550406504075040850409504105041150412504135041450415504165041750418504195042050421504225042350424504255042650427504285042950430504315043250433504345043550436504375043850439504405044150442504435044450445504465044750448504495045050451504525045350454504555045650457504585045950460504615046250463504645046550466504675046850469504705047150472504735047450475504765047750478504795048050481504825048350484504855048650487504885048950490504915049250493504945049550496504975049850499505005050150502505035050450505505065050750508505095051050511505125051350514505155051650517505185051950520505215052250523505245052550526505275052850529505305053150532505335053450535505365053750538505395054050541505425054350544505455054650547505485054950550505515055250553505545055550556505575055850559505605056150562505635056450565505665056750568505695057050571505725057350574505755057650577505785057950580505815058250583505845058550586505875058850589505905059150592505935059450595505965059750598505995060050601506025060350604506055060650607506085060950610506115061250613506145061550616506175061850619506205062150622506235062450625506265062750628506295063050631506325063350634506355063650637506385063950640506415064250643506445064550646506475064850649506505065150652506535065450655506565065750658506595066050661506625066350664506655066650667506685066950670506715067250673506745067550676506775067850679506805068150682506835068450685506865068750688506895069050691506925069350694506955069650697506985069950700507015070250703507045070550706507075070850709507105071150712507135071450715507165071750718507195072050721507225072350724507255072650727507285072950730507315073250733507345073550736507375073850739507405074150742507435074450745507465074750748507495075050751507525075350754507555075650757507585075950760507615076250763507645076550766507675076850769507705077150772507735077450775507765077750778507795078050781507825078350784507855078650787507885078950790507915079250793507945079550796507975079850799508005080150802508035080450805508065080750808508095081050811508125081350814508155081650817508185081950820508215082250823508245082550826508275082850829508305083150832508335083450835508365083750838508395084050841508425084350844508455084650847508485084950850508515085250853508545085550856508575085850859508605086150862508635086450865508665086750868508695087050871508725087350874508755087650877508785087950880508815088250883508845088550886508875088850889508905089150892508935089450895508965089750898508995090050901509025090350904509055090650907509085090950910509115091250913509145091550916509175091850919509205092150922509235092450925509265092750928509295093050931509325093350934509355093650937509385093950940509415094250943509445094550946509475094850949509505095150952509535095450955509565095750958509595096050961509625096350964509655096650967509685096950970509715097250973509745097550976509775097850979509805098150982509835098450985509865098750988509895099050991509925099350994509955099650997509985099951000510015100251003510045100551006510075100851009510105101151012510135101451015510165101751018510195102051021510225102351024510255102651027510285102951030510315103251033510345103551036510375103851039510405104151042510435104451045510465104751048510495105051051510525105351054510555105651057510585105951060510615106251063510645106551066510675106851069510705107151072510735107451075510765107751078510795108051081510825108351084510855108651087510885108951090510915109251093510945109551096510975109851099511005110151102511035110451105511065110751108511095111051111511125111351114511155111651117511185111951120511215112251123511245112551126511275112851129511305113151132511335113451135511365113751138511395114051141511425114351144511455114651147511485114951150511515115251153511545115551156511575115851159511605116151162511635116451165511665116751168511695117051171511725117351174511755117651177511785117951180511815118251183511845118551186511875118851189511905119151192511935119451195511965119751198511995120051201512025120351204512055120651207512085120951210512115121251213512145121551216512175121851219512205122151222512235122451225512265122751228512295123051231512325123351234512355123651237512385123951240512415124251243512445124551246512475124851249512505125151252512535125451255512565125751258512595126051261512625126351264512655126651267512685126951270512715127251273512745127551276512775127851279512805128151282512835128451285512865128751288512895129051291512925129351294512955129651297512985129951300513015130251303513045130551306513075130851309513105131151312513135131451315513165131751318513195132051321513225132351324513255132651327513285132951330513315133251333513345133551336513375133851339513405134151342513435134451345513465134751348513495135051351513525135351354513555135651357513585135951360513615136251363513645136551366513675136851369513705137151372513735137451375513765137751378513795138051381513825138351384513855138651387513885138951390513915139251393513945139551396513975139851399514005140151402514035140451405514065140751408514095141051411514125141351414514155141651417514185141951420514215142251423514245142551426514275142851429514305143151432514335143451435514365143751438514395144051441514425144351444514455144651447514485144951450514515145251453514545145551456514575145851459514605146151462514635146451465514665146751468514695147051471514725147351474514755147651477514785147951480514815148251483514845148551486514875148851489514905149151492514935149451495514965149751498514995150051501515025150351504515055150651507515085150951510515115151251513515145151551516515175151851519515205152151522515235152451525515265152751528515295153051531515325153351534515355153651537515385153951540515415154251543515445154551546515475154851549515505155151552515535155451555515565155751558515595156051561515625156351564515655156651567515685156951570515715157251573515745157551576515775157851579515805158151582515835158451585515865158751588515895159051591515925159351594515955159651597515985159951600516015160251603516045160551606516075160851609516105161151612516135161451615516165161751618516195162051621516225162351624516255162651627516285162951630516315163251633516345163551636516375163851639516405164151642516435164451645516465164751648516495165051651516525165351654516555165651657516585165951660516615166251663516645166551666516675166851669516705167151672516735167451675516765167751678516795168051681516825168351684516855168651687516885168951690516915169251693516945169551696516975169851699517005170151702517035170451705517065170751708517095171051711517125171351714517155171651717517185171951720517215172251723517245172551726517275172851729517305173151732517335173451735517365173751738517395174051741517425174351744517455174651747517485174951750517515175251753517545175551756517575175851759517605176151762517635176451765517665176751768517695177051771517725177351774517755177651777517785177951780517815178251783517845178551786517875178851789517905179151792517935179451795517965179751798517995180051801518025180351804518055180651807518085180951810518115181251813518145181551816518175181851819518205182151822518235182451825518265182751828518295183051831518325183351834518355183651837518385183951840518415184251843518445184551846518475184851849518505185151852518535185451855518565185751858518595186051861518625186351864518655186651867518685186951870518715187251873518745187551876518775187851879518805188151882518835188451885518865188751888518895189051891518925189351894518955189651897518985189951900519015190251903519045190551906519075190851909519105191151912519135191451915519165191751918519195192051921519225192351924519255192651927519285192951930519315193251933519345193551936519375193851939519405194151942519435194451945519465194751948519495195051951519525195351954519555195651957519585195951960519615196251963519645196551966519675196851969519705197151972519735197451975519765197751978519795198051981519825198351984519855198651987519885198951990519915199251993519945199551996519975199851999520005200152002520035200452005520065200752008520095201052011520125201352014520155201652017520185201952020520215202252023520245202552026520275202852029520305203152032520335203452035520365203752038520395204052041520425204352044520455204652047520485204952050520515205252053520545205552056520575205852059520605206152062520635206452065520665206752068520695207052071520725207352074520755207652077520785207952080520815208252083520845208552086520875208852089520905209152092520935209452095520965209752098520995210052101521025210352104521055210652107521085210952110521115211252113521145211552116521175211852119521205212152122521235212452125521265212752128521295213052131521325213352134521355213652137521385213952140521415214252143521445214552146521475214852149521505215152152521535215452155521565215752158521595216052161521625216352164521655216652167521685216952170521715217252173521745217552176521775217852179521805218152182521835218452185521865218752188521895219052191521925219352194521955219652197521985219952200522015220252203522045220552206522075220852209522105221152212522135221452215522165221752218522195222052221522225222352224522255222652227522285222952230522315223252233522345223552236522375223852239522405224152242522435224452245522465224752248522495225052251522525225352254522555225652257522585225952260522615226252263522645226552266522675226852269522705227152272522735227452275522765227752278522795228052281522825228352284522855228652287522885228952290522915229252293522945229552296522975229852299523005230152302523035230452305523065230752308523095231052311523125231352314523155231652317523185231952320523215232252323523245232552326523275232852329523305233152332523335233452335523365233752338523395234052341523425234352344523455234652347523485234952350523515235252353523545235552356523575235852359523605236152362523635236452365523665236752368523695237052371523725237352374523755237652377523785237952380523815238252383523845238552386523875238852389523905239152392523935239452395523965239752398523995240052401524025240352404524055240652407524085240952410524115241252413524145241552416524175241852419524205242152422524235242452425524265242752428524295243052431524325243352434524355243652437524385243952440524415244252443524445244552446524475244852449524505245152452524535245452455524565245752458524595246052461524625246352464524655246652467524685246952470524715247252473524745247552476524775247852479524805248152482524835248452485524865248752488524895249052491524925249352494524955249652497524985249952500525015250252503525045250552506525075250852509525105251152512525135251452515525165251752518525195252052521525225252352524525255252652527525285252952530525315253252533525345253552536525375253852539525405254152542525435254452545525465254752548525495255052551525525255352554525555255652557525585255952560525615256252563525645256552566525675256852569525705257152572525735257452575525765257752578525795258052581525825258352584525855258652587525885258952590525915259252593525945259552596525975259852599526005260152602526035260452605526065260752608526095261052611526125261352614526155261652617526185261952620526215262252623526245262552626526275262852629526305263152632526335263452635526365263752638526395264052641526425264352644526455264652647526485264952650526515265252653526545265552656526575265852659526605266152662526635266452665526665266752668526695267052671526725267352674526755267652677526785267952680526815268252683526845268552686526875268852689526905269152692526935269452695526965269752698526995270052701527025270352704527055270652707527085270952710527115271252713527145271552716527175271852719527205272152722527235272452725527265272752728527295273052731527325273352734527355273652737527385273952740527415274252743527445274552746527475274852749527505275152752527535275452755527565275752758527595276052761527625276352764527655276652767527685276952770527715277252773527745277552776527775277852779527805278152782527835278452785527865278752788527895279052791527925279352794527955279652797527985279952800528015280252803528045280552806528075280852809528105281152812528135281452815528165281752818528195282052821528225282352824528255282652827528285282952830528315283252833528345283552836528375283852839528405284152842528435284452845528465284752848528495285052851528525285352854528555285652857528585285952860528615286252863528645286552866528675286852869528705287152872528735287452875528765287752878528795288052881528825288352884528855288652887528885288952890528915289252893528945289552896528975289852899529005290152902529035290452905529065290752908529095291052911529125291352914529155291652917529185291952920529215292252923529245292552926529275292852929529305293152932529335293452935529365293752938529395294052941529425294352944529455294652947529485294952950529515295252953529545295552956529575295852959529605296152962529635296452965529665296752968529695297052971529725297352974529755297652977529785297952980529815298252983529845298552986529875298852989529905299152992529935299452995529965299752998529995300053001530025300353004530055300653007530085300953010530115301253013530145301553016530175301853019530205302153022530235302453025530265302753028530295303053031530325303353034530355303653037530385303953040530415304253043530445304553046530475304853049530505305153052530535305453055530565305753058530595306053061530625306353064530655306653067530685306953070530715307253073530745307553076530775307853079530805308153082530835308453085530865308753088530895309053091530925309353094530955309653097530985309953100531015310253103531045310553106531075310853109531105311153112531135311453115531165311753118531195312053121531225312353124531255312653127531285312953130531315313253133531345313553136531375313853139531405314153142531435314453145531465314753148531495315053151531525315353154531555315653157531585315953160531615316253163531645316553166531675316853169531705317153172531735317453175531765317753178531795318053181531825318353184531855318653187531885318953190531915319253193531945319553196531975319853199532005320153202532035320453205532065320753208532095321053211532125321353214532155321653217532185321953220532215322253223532245322553226532275322853229532305323153232532335323453235532365323753238532395324053241532425324353244532455324653247532485324953250532515325253253532545325553256532575325853259532605326153262532635326453265532665326753268532695327053271532725327353274532755327653277532785327953280532815328253283532845328553286532875328853289532905329153292532935329453295532965329753298532995330053301533025330353304533055330653307533085330953310533115331253313533145331553316533175331853319533205332153322533235332453325533265332753328533295333053331533325333353334533355333653337533385333953340533415334253343533445334553346533475334853349533505335153352533535335453355533565335753358533595336053361533625336353364533655336653367533685336953370533715337253373533745337553376533775337853379533805338153382533835338453385533865338753388533895339053391533925339353394533955339653397533985339953400534015340253403534045340553406534075340853409534105341153412534135341453415534165341753418534195342053421534225342353424534255342653427534285342953430534315343253433534345343553436534375343853439534405344153442534435344453445534465344753448534495345053451534525345353454534555345653457534585345953460534615346253463534645346553466534675346853469534705347153472534735347453475534765347753478534795348053481534825348353484534855348653487534885348953490534915349253493534945349553496534975349853499535005350153502535035350453505535065350753508535095351053511535125351353514535155351653517535185351953520535215352253523535245352553526535275352853529535305353153532535335353453535535365353753538535395354053541535425354353544535455354653547535485354953550535515355253553535545355553556535575355853559535605356153562535635356453565535665356753568535695357053571535725357353574535755357653577535785357953580535815358253583535845358553586535875358853589535905359153592535935359453595535965359753598535995360053601536025360353604536055360653607536085360953610536115361253613536145361553616536175361853619536205362153622536235362453625536265362753628536295363053631536325363353634536355363653637536385363953640536415364253643536445364553646536475364853649536505365153652536535365453655536565365753658536595366053661536625366353664536655366653667536685366953670536715367253673536745367553676536775367853679536805368153682536835368453685536865368753688536895369053691536925369353694536955369653697536985369953700537015370253703537045370553706537075370853709537105371153712537135371453715537165371753718537195372053721537225372353724537255372653727537285372953730537315373253733537345373553736537375373853739537405374153742537435374453745537465374753748537495375053751537525375353754537555375653757537585375953760537615376253763537645376553766537675376853769537705377153772537735377453775537765377753778537795378053781537825378353784537855378653787537885378953790537915379253793537945379553796537975379853799538005380153802538035380453805538065380753808538095381053811538125381353814538155381653817538185381953820538215382253823538245382553826538275382853829538305383153832538335383453835538365383753838538395384053841538425384353844538455384653847538485384953850538515385253853538545385553856538575385853859538605386153862538635386453865538665386753868538695387053871538725387353874538755387653877538785387953880538815388253883538845388553886538875388853889538905389153892538935389453895538965389753898538995390053901539025390353904539055390653907539085390953910539115391253913539145391553916539175391853919539205392153922539235392453925539265392753928539295393053931539325393353934539355393653937539385393953940539415394253943539445394553946539475394853949539505395153952539535395453955539565395753958539595396053961539625396353964539655396653967539685396953970539715397253973539745397553976539775397853979539805398153982539835398453985539865398753988539895399053991539925399353994539955399653997539985399954000540015400254003540045400554006540075400854009540105401154012540135401454015540165401754018540195402054021540225402354024540255402654027540285402954030540315403254033540345403554036540375403854039540405404154042540435404454045540465404754048540495405054051540525405354054540555405654057540585405954060540615406254063540645406554066540675406854069540705407154072540735407454075540765407754078540795408054081540825408354084540855408654087540885408954090540915409254093540945409554096540975409854099541005410154102541035410454105541065410754108541095411054111541125411354114541155411654117541185411954120541215412254123541245412554126541275412854129541305413154132541335413454135541365413754138541395414054141541425414354144541455414654147541485414954150541515415254153541545415554156541575415854159541605416154162541635416454165541665416754168541695417054171541725417354174541755417654177541785417954180541815418254183541845418554186541875418854189541905419154192541935419454195541965419754198541995420054201542025420354204542055420654207542085420954210542115421254213542145421554216542175421854219542205422154222542235422454225542265422754228542295423054231542325423354234542355423654237542385423954240542415424254243542445424554246542475424854249542505425154252542535425454255542565425754258542595426054261542625426354264542655426654267542685426954270542715427254273542745427554276542775427854279542805428154282542835428454285542865428754288542895429054291542925429354294542955429654297542985429954300543015430254303543045430554306543075430854309543105431154312543135431454315543165431754318543195432054321543225432354324543255432654327543285432954330543315433254333543345433554336543375433854339543405434154342543435434454345543465434754348543495435054351543525435354354543555435654357543585435954360543615436254363543645436554366543675436854369543705437154372543735437454375543765437754378543795438054381543825438354384543855438654387543885438954390543915439254393543945439554396543975439854399544005440154402544035440454405544065440754408544095441054411544125441354414544155441654417544185441954420544215442254423544245442554426544275442854429544305443154432544335443454435544365443754438544395444054441544425444354444544455444654447544485444954450544515445254453544545445554456544575445854459544605446154462544635446454465544665446754468544695447054471544725447354474544755447654477544785447954480544815448254483544845448554486544875448854489544905449154492544935449454495544965449754498544995450054501545025450354504545055450654507545085450954510545115451254513545145451554516545175451854519545205452154522545235452454525545265452754528545295453054531545325453354534545355453654537545385453954540545415454254543545445454554546545475454854549545505455154552545535455454555545565455754558545595456054561545625456354564545655456654567545685456954570545715457254573545745457554576545775457854579545805458154582545835458454585545865458754588545895459054591545925459354594545955459654597545985459954600546015460254603546045460554606546075460854609546105461154612546135461454615546165461754618546195462054621546225462354624546255462654627546285462954630546315463254633546345463554636546375463854639546405464154642546435464454645546465464754648546495465054651546525465354654546555465654657546585465954660546615466254663546645466554666546675466854669546705467154672546735467454675546765467754678546795468054681546825468354684546855468654687546885468954690546915469254693546945469554696546975469854699547005470154702547035470454705547065470754708547095471054711547125471354714547155471654717547185471954720547215472254723547245472554726547275472854729547305473154732547335473454735547365473754738547395474054741547425474354744547455474654747547485474954750547515475254753547545475554756547575475854759547605476154762547635476454765547665476754768547695477054771547725477354774547755477654777547785477954780547815478254783547845478554786547875478854789547905479154792547935479454795547965479754798547995480054801548025480354804548055480654807548085480954810548115481254813548145481554816548175481854819548205482154822548235482454825548265482754828548295483054831548325483354834548355483654837548385483954840548415484254843548445484554846548475484854849548505485154852548535485454855548565485754858548595486054861548625486354864548655486654867548685486954870548715487254873548745487554876548775487854879548805488154882548835488454885548865488754888548895489054891548925489354894548955489654897548985489954900549015490254903549045490554906549075490854909549105491154912549135491454915549165491754918549195492054921549225492354924549255492654927549285492954930549315493254933549345493554936549375493854939549405494154942549435494454945549465494754948549495495054951549525495354954549555495654957549585495954960549615496254963549645496554966549675496854969549705497154972549735497454975549765497754978549795498054981549825498354984549855498654987549885498954990549915499254993549945499554996549975499854999550005500155002550035500455005550065500755008550095501055011550125501355014550155501655017550185501955020550215502255023550245502555026550275502855029550305503155032550335503455035550365503755038550395504055041550425504355044550455504655047550485504955050550515505255053550545505555056550575505855059550605506155062550635506455065550665506755068550695507055071550725507355074550755507655077550785507955080550815508255083550845508555086550875508855089550905509155092550935509455095550965509755098550995510055101551025510355104551055510655107551085510955110551115511255113551145511555116551175511855119551205512155122551235512455125551265512755128551295513055131551325513355134551355513655137551385513955140551415514255143551445514555146551475514855149551505515155152551535515455155551565515755158551595516055161551625516355164551655516655167551685516955170551715517255173551745517555176551775517855179551805518155182551835518455185551865518755188551895519055191551925519355194551955519655197551985519955200552015520255203552045520555206552075520855209552105521155212552135521455215552165521755218552195522055221552225522355224552255522655227552285522955230552315523255233552345523555236552375523855239552405524155242552435524455245552465524755248552495525055251552525525355254552555525655257552585525955260552615526255263552645526555266552675526855269552705527155272552735527455275552765527755278552795528055281552825528355284552855528655287552885528955290552915529255293552945529555296552975529855299553005530155302553035530455305553065530755308553095531055311553125531355314553155531655317553185531955320553215532255323553245532555326553275532855329553305533155332553335533455335553365533755338553395534055341553425534355344553455534655347553485534955350553515535255353553545535555356553575535855359553605536155362553635536455365553665536755368553695537055371553725537355374553755537655377553785537955380553815538255383553845538555386553875538855389553905539155392553935539455395553965539755398553995540055401554025540355404554055540655407554085540955410554115541255413554145541555416554175541855419554205542155422554235542455425554265542755428554295543055431554325543355434554355543655437554385543955440554415544255443554445544555446554475544855449554505545155452554535545455455554565545755458554595546055461554625546355464554655546655467554685546955470554715547255473554745547555476554775547855479554805548155482554835548455485554865548755488554895549055491554925549355494554955549655497554985549955500555015550255503555045550555506555075550855509555105551155512555135551455515555165551755518555195552055521555225552355524555255552655527555285552955530555315553255533555345553555536555375553855539555405554155542555435554455545555465554755548555495555055551555525555355554555555555655557555585555955560555615556255563555645556555566555675556855569555705557155572555735557455575555765557755578555795558055581555825558355584555855558655587555885558955590555915559255593555945559555596555975559855599556005560155602556035560455605556065560755608556095561055611556125561355614556155561655617556185561955620556215562255623556245562555626556275562855629556305563155632556335563455635556365563755638556395564055641556425564355644556455564655647556485564955650556515565255653556545565555656556575565855659556605566155662556635566455665556665566755668556695567055671556725567355674556755567655677556785567955680556815568255683556845568555686556875568855689556905569155692556935569455695556965569755698556995570055701557025570355704557055570655707557085570955710557115571255713557145571555716557175571855719557205572155722557235572455725557265572755728557295573055731557325573355734557355573655737557385573955740557415574255743557445574555746557475574855749557505575155752557535575455755557565575755758557595576055761557625576355764557655576655767557685576955770557715577255773557745577555776557775577855779557805578155782557835578455785557865578755788557895579055791557925579355794557955579655797557985579955800558015580255803558045580555806558075580855809558105581155812558135581455815558165581755818558195582055821558225582355824558255582655827558285582955830558315583255833558345583555836558375583855839558405584155842558435584455845558465584755848558495585055851558525585355854558555585655857558585585955860558615586255863558645586555866558675586855869558705587155872558735587455875558765587755878558795588055881558825588355884558855588655887558885588955890558915589255893558945589555896558975589855899559005590155902559035590455905559065590755908559095591055911559125591355914559155591655917559185591955920559215592255923559245592555926559275592855929559305593155932559335593455935559365593755938559395594055941559425594355944559455594655947559485594955950559515595255953559545595555956559575595855959559605596155962559635596455965559665596755968559695597055971559725597355974559755597655977559785597955980559815598255983559845598555986559875598855989559905599155992559935599455995559965599755998559995600056001560025600356004560055600656007560085600956010560115601256013560145601556016560175601856019560205602156022560235602456025560265602756028560295603056031560325603356034560355603656037560385603956040560415604256043560445604556046560475604856049560505605156052560535605456055560565605756058560595606056061560625606356064560655606656067560685606956070560715607256073560745607556076560775607856079560805608156082560835608456085560865608756088560895609056091560925609356094560955609656097560985609956100561015610256103561045610556106561075610856109561105611156112561135611456115561165611756118561195612056121561225612356124561255612656127561285612956130561315613256133561345613556136561375613856139561405614156142561435614456145561465614756148561495615056151561525615356154561555615656157561585615956160561615616256163561645616556166561675616856169561705617156172561735617456175561765617756178561795618056181561825618356184561855618656187561885618956190561915619256193561945619556196561975619856199562005620156202562035620456205562065620756208562095621056211562125621356214562155621656217562185621956220562215622256223562245622556226562275622856229562305623156232562335623456235562365623756238562395624056241562425624356244562455624656247562485624956250562515625256253562545625556256562575625856259562605626156262562635626456265562665626756268562695627056271562725627356274562755627656277562785627956280562815628256283562845628556286562875628856289562905629156292562935629456295562965629756298562995630056301563025630356304563055630656307563085630956310563115631256313563145631556316563175631856319563205632156322563235632456325563265632756328563295633056331563325633356334563355633656337563385633956340563415634256343563445634556346563475634856349563505635156352563535635456355563565635756358563595636056361563625636356364563655636656367563685636956370563715637256373563745637556376563775637856379563805638156382563835638456385563865638756388563895639056391563925639356394563955639656397563985639956400564015640256403564045640556406564075640856409564105641156412564135641456415564165641756418564195642056421564225642356424564255642656427564285642956430564315643256433564345643556436564375643856439564405644156442564435644456445564465644756448564495645056451564525645356454564555645656457564585645956460564615646256463564645646556466564675646856469564705647156472564735647456475564765647756478564795648056481564825648356484564855648656487564885648956490564915649256493564945649556496564975649856499565005650156502565035650456505565065650756508565095651056511565125651356514565155651656517565185651956520565215652256523565245652556526565275652856529565305653156532565335653456535565365653756538565395654056541565425654356544565455654656547565485654956550565515655256553565545655556556565575655856559565605656156562565635656456565565665656756568565695657056571565725657356574565755657656577565785657956580565815658256583565845658556586565875658856589565905659156592565935659456595565965659756598565995660056601566025660356604566055660656607566085660956610566115661256613566145661556616566175661856619566205662156622566235662456625566265662756628566295663056631566325663356634566355663656637566385663956640566415664256643566445664556646566475664856649566505665156652566535665456655566565665756658566595666056661566625666356664566655666656667566685666956670566715667256673566745667556676566775667856679566805668156682566835668456685566865668756688566895669056691566925669356694566955669656697566985669956700567015670256703567045670556706567075670856709567105671156712567135671456715567165671756718567195672056721567225672356724567255672656727567285672956730567315673256733567345673556736567375673856739567405674156742567435674456745567465674756748567495675056751567525675356754567555675656757567585675956760567615676256763567645676556766567675676856769567705677156772567735677456775567765677756778567795678056781567825678356784567855678656787567885678956790567915679256793567945679556796567975679856799568005680156802568035680456805568065680756808568095681056811568125681356814568155681656817568185681956820568215682256823568245682556826568275682856829568305683156832568335683456835568365683756838568395684056841568425684356844568455684656847568485684956850568515685256853568545685556856568575685856859568605686156862568635686456865568665686756868568695687056871568725687356874568755687656877568785687956880568815688256883568845688556886568875688856889568905689156892568935689456895568965689756898568995690056901569025690356904569055690656907569085690956910569115691256913569145691556916569175691856919569205692156922569235692456925569265692756928569295693056931569325693356934569355693656937569385693956940569415694256943569445694556946569475694856949569505695156952569535695456955569565695756958569595696056961569625696356964569655696656967569685696956970569715697256973569745697556976569775697856979569805698156982569835698456985569865698756988569895699056991569925699356994569955699656997569985699957000570015700257003570045700557006570075700857009570105701157012570135701457015570165701757018570195702057021570225702357024570255702657027570285702957030570315703257033570345703557036570375703857039570405704157042570435704457045570465704757048570495705057051570525705357054570555705657057570585705957060570615706257063570645706557066570675706857069570705707157072570735707457075570765707757078570795708057081570825708357084570855708657087570885708957090570915709257093570945709557096570975709857099571005710157102571035710457105571065710757108571095711057111571125711357114571155711657117571185711957120571215712257123571245712557126571275712857129571305713157132571335713457135571365713757138571395714057141571425714357144571455714657147571485714957150571515715257153571545715557156571575715857159571605716157162571635716457165571665716757168571695717057171571725717357174571755717657177571785717957180571815718257183571845718557186571875718857189571905719157192571935719457195571965719757198571995720057201572025720357204572055720657207572085720957210572115721257213572145721557216572175721857219572205722157222572235722457225572265722757228572295723057231572325723357234572355723657237572385723957240572415724257243572445724557246572475724857249572505725157252572535725457255572565725757258572595726057261572625726357264572655726657267572685726957270572715727257273572745727557276572775727857279572805728157282572835728457285572865728757288572895729057291572925729357294572955729657297572985729957300573015730257303573045730557306573075730857309573105731157312573135731457315573165731757318573195732057321573225732357324573255732657327573285732957330573315733257333573345733557336573375733857339573405734157342573435734457345573465734757348573495735057351573525735357354573555735657357573585735957360573615736257363573645736557366573675736857369573705737157372573735737457375573765737757378573795738057381573825738357384573855738657387573885738957390573915739257393573945739557396573975739857399574005740157402574035740457405574065740757408574095741057411574125741357414574155741657417574185741957420574215742257423574245742557426574275742857429574305743157432574335743457435574365743757438574395744057441574425744357444574455744657447574485744957450574515745257453574545745557456574575745857459574605746157462574635746457465574665746757468574695747057471574725747357474574755747657477574785747957480574815748257483574845748557486574875748857489574905749157492574935749457495574965749757498574995750057501575025750357504575055750657507575085750957510575115751257513575145751557516575175751857519575205752157522575235752457525575265752757528575295753057531575325753357534575355753657537575385753957540575415754257543575445754557546575475754857549575505755157552575535755457555575565755757558575595756057561575625756357564575655756657567575685756957570575715757257573575745757557576575775757857579575805758157582575835758457585575865758757588575895759057591575925759357594575955759657597575985759957600576015760257603576045760557606576075760857609576105761157612576135761457615576165761757618576195762057621576225762357624576255762657627576285762957630576315763257633576345763557636576375763857639576405764157642576435764457645576465764757648576495765057651576525765357654576555765657657576585765957660576615766257663576645766557666576675766857669576705767157672576735767457675576765767757678576795768057681576825768357684576855768657687576885768957690576915769257693576945769557696576975769857699577005770157702577035770457705577065770757708577095771057711577125771357714577155771657717577185771957720577215772257723577245772557726577275772857729577305773157732577335773457735577365773757738577395774057741577425774357744577455774657747577485774957750577515775257753577545775557756577575775857759577605776157762577635776457765577665776757768577695777057771577725777357774577755777657777577785777957780577815778257783577845778557786577875778857789577905779157792577935779457795577965779757798577995780057801578025780357804578055780657807578085780957810578115781257813578145781557816578175781857819578205782157822578235782457825578265782757828578295783057831578325783357834578355783657837578385783957840578415784257843578445784557846578475784857849578505785157852578535785457855578565785757858578595786057861578625786357864578655786657867578685786957870578715787257873578745787557876578775787857879578805788157882578835788457885578865788757888578895789057891578925789357894578955789657897578985789957900579015790257903579045790557906579075790857909579105791157912579135791457915579165791757918579195792057921579225792357924579255792657927579285792957930579315793257933579345793557936579375793857939579405794157942579435794457945579465794757948579495795057951579525795357954579555795657957579585795957960579615796257963579645796557966579675796857969579705797157972579735797457975579765797757978579795798057981579825798357984579855798657987579885798957990579915799257993579945799557996579975799857999580005800158002580035800458005580065800758008580095801058011580125801358014580155801658017580185801958020580215802258023580245802558026580275802858029580305803158032580335803458035580365803758038580395804058041580425804358044580455804658047580485804958050580515805258053580545805558056580575805858059580605806158062580635806458065580665806758068580695807058071580725807358074580755807658077580785807958080580815808258083580845808558086580875808858089580905809158092580935809458095580965809758098580995810058101581025810358104581055810658107581085810958110581115811258113581145811558116581175811858119581205812158122581235812458125581265812758128581295813058131581325813358134581355813658137581385813958140581415814258143581445814558146581475814858149581505815158152581535815458155581565815758158581595816058161581625816358164581655816658167581685816958170581715817258173581745817558176581775817858179581805818158182581835818458185581865818758188581895819058191581925819358194581955819658197581985819958200582015820258203582045820558206582075820858209582105821158212582135821458215582165821758218582195822058221582225822358224582255822658227582285822958230582315823258233582345823558236582375823858239582405824158242582435824458245582465824758248582495825058251582525825358254582555825658257582585825958260582615826258263582645826558266582675826858269582705827158272582735827458275582765827758278582795828058281582825828358284582855828658287582885828958290582915829258293582945829558296582975829858299583005830158302583035830458305583065830758308583095831058311583125831358314583155831658317583185831958320583215832258323583245832558326583275832858329583305833158332583335833458335583365833758338583395834058341583425834358344583455834658347583485834958350583515835258353583545835558356583575835858359583605836158362583635836458365583665836758368583695837058371583725837358374583755837658377583785837958380583815838258383583845838558386583875838858389583905839158392583935839458395583965839758398583995840058401584025840358404584055840658407584085840958410584115841258413584145841558416584175841858419584205842158422584235842458425584265842758428584295843058431584325843358434584355843658437584385843958440584415844258443584445844558446584475844858449584505845158452584535845458455584565845758458584595846058461584625846358464584655846658467584685846958470584715847258473584745847558476584775847858479584805848158482584835848458485584865848758488584895849058491584925849358494584955849658497584985849958500585015850258503585045850558506585075850858509585105851158512585135851458515585165851758518585195852058521585225852358524585255852658527585285852958530585315853258533585345853558536585375853858539585405854158542585435854458545585465854758548585495855058551585525855358554585555855658557585585855958560585615856258563585645856558566585675856858569585705857158572585735857458575585765857758578585795858058581585825858358584585855858658587585885858958590585915859258593585945859558596585975859858599586005860158602586035860458605586065860758608586095861058611586125861358614586155861658617586185861958620586215862258623586245862558626586275862858629586305863158632586335863458635586365863758638586395864058641586425864358644586455864658647586485864958650586515865258653586545865558656586575865858659586605866158662586635866458665586665866758668586695867058671586725867358674586755867658677586785867958680586815868258683586845868558686586875868858689586905869158692586935869458695586965869758698586995870058701587025870358704587055870658707587085870958710587115871258713587145871558716587175871858719587205872158722587235872458725587265872758728587295873058731587325873358734587355873658737587385873958740587415874258743587445874558746587475874858749587505875158752587535875458755587565875758758587595876058761587625876358764587655876658767587685876958770587715877258773587745877558776587775877858779587805878158782587835878458785587865878758788587895879058791587925879358794587955879658797587985879958800588015880258803588045880558806588075880858809588105881158812588135881458815588165881758818588195882058821588225882358824588255882658827588285882958830588315883258833588345883558836588375883858839588405884158842588435884458845588465884758848588495885058851588525885358854588555885658857588585885958860588615886258863588645886558866588675886858869588705887158872588735887458875588765887758878588795888058881588825888358884588855888658887588885888958890588915889258893588945889558896588975889858899589005890158902589035890458905589065890758908589095891058911589125891358914589155891658917589185891958920589215892258923589245892558926589275892858929589305893158932589335893458935589365893758938589395894058941589425894358944589455894658947589485894958950589515895258953589545895558956589575895858959589605896158962589635896458965589665896758968589695897058971589725897358974589755897658977589785897958980589815898258983589845898558986589875898858989589905899158992589935899458995589965899758998589995900059001590025900359004590055900659007590085900959010590115901259013590145901559016590175901859019590205902159022590235902459025590265902759028590295903059031590325903359034590355903659037590385903959040590415904259043590445904559046590475904859049590505905159052590535905459055590565905759058590595906059061590625906359064590655906659067590685906959070590715907259073590745907559076590775907859079590805908159082590835908459085590865908759088590895909059091590925909359094590955909659097590985909959100591015910259103591045910559106591075910859109591105911159112591135911459115591165911759118591195912059121591225912359124591255912659127591285912959130591315913259133591345913559136591375913859139591405914159142591435914459145591465914759148591495915059151591525915359154591555915659157591585915959160591615916259163591645916559166591675916859169591705917159172591735917459175591765917759178591795918059181591825918359184591855918659187591885918959190591915919259193591945919559196591975919859199592005920159202592035920459205592065920759208592095921059211592125921359214592155921659217592185921959220592215922259223592245922559226592275922859229592305923159232592335923459235592365923759238592395924059241592425924359244592455924659247592485924959250592515925259253592545925559256592575925859259592605926159262592635926459265592665926759268592695927059271592725927359274592755927659277592785927959280592815928259283592845928559286592875928859289592905929159292592935929459295592965929759298592995930059301593025930359304593055930659307593085930959310593115931259313593145931559316593175931859319593205932159322593235932459325593265932759328593295933059331593325933359334593355933659337593385933959340593415934259343593445934559346593475934859349593505935159352593535935459355593565935759358593595936059361593625936359364593655936659367593685936959370593715937259373593745937559376593775937859379593805938159382593835938459385593865938759388593895939059391593925939359394593955939659397593985939959400594015940259403594045940559406594075940859409594105941159412594135941459415594165941759418594195942059421594225942359424594255942659427594285942959430594315943259433594345943559436594375943859439594405944159442594435944459445594465944759448594495945059451594525945359454594555945659457594585945959460594615946259463594645946559466594675946859469594705947159472594735947459475594765947759478594795948059481594825948359484594855948659487594885948959490594915949259493594945949559496594975949859499595005950159502595035950459505595065950759508595095951059511595125951359514595155951659517595185951959520595215952259523595245952559526595275952859529595305953159532595335953459535595365953759538595395954059541595425954359544595455954659547595485954959550595515955259553595545955559556595575955859559595605956159562595635956459565595665956759568595695957059571595725957359574595755957659577595785957959580595815958259583595845958559586595875958859589595905959159592595935959459595595965959759598595995960059601596025960359604596055960659607596085960959610596115961259613596145961559616596175961859619596205962159622596235962459625596265962759628596295963059631596325963359634596355963659637596385963959640596415964259643596445964559646596475964859649596505965159652596535965459655596565965759658596595966059661596625966359664596655966659667596685966959670596715967259673596745967559676596775967859679596805968159682596835968459685596865968759688596895969059691596925969359694596955969659697596985969959700597015970259703597045970559706597075970859709597105971159712597135971459715597165971759718597195972059721597225972359724597255972659727597285972959730597315973259733597345973559736597375973859739597405974159742597435974459745597465974759748597495975059751597525975359754597555975659757597585975959760597615976259763597645976559766597675976859769597705977159772597735977459775597765977759778597795978059781597825978359784597855978659787597885978959790597915979259793597945979559796597975979859799598005980159802598035980459805598065980759808598095981059811598125981359814598155981659817598185981959820598215982259823598245982559826598275982859829598305983159832598335983459835598365983759838598395984059841598425984359844598455984659847598485984959850598515985259853598545985559856598575985859859598605986159862598635986459865598665986759868598695987059871598725987359874598755987659877598785987959880598815988259883598845988559886598875988859889598905989159892598935989459895598965989759898598995990059901599025990359904599055990659907599085990959910599115991259913599145991559916599175991859919599205992159922599235992459925599265992759928599295993059931599325993359934599355993659937599385993959940599415994259943599445994559946599475994859949599505995159952599535995459955599565995759958599595996059961599625996359964599655996659967599685996959970599715997259973599745997559976599775997859979599805998159982599835998459985599865998759988599895999059991599925999359994599955999659997599985999960000600016000260003600046000560006600076000860009600106001160012600136001460015600166001760018600196002060021600226002360024600256002660027600286002960030600316003260033600346003560036600376003860039600406004160042600436004460045600466004760048600496005060051600526005360054600556005660057600586005960060600616006260063600646006560066600676006860069600706007160072600736007460075600766007760078600796008060081600826008360084600856008660087600886008960090600916009260093600946009560096600976009860099601006010160102601036010460105601066010760108601096011060111601126011360114601156011660117601186011960120601216012260123601246012560126601276012860129601306013160132601336013460135601366013760138601396014060141601426014360144601456014660147601486014960150601516015260153601546015560156601576015860159601606016160162601636016460165601666016760168601696017060171601726017360174601756017660177601786017960180601816018260183601846018560186601876018860189601906019160192601936019460195601966019760198601996020060201602026020360204602056020660207602086020960210602116021260213602146021560216602176021860219602206022160222602236022460225602266022760228602296023060231602326023360234602356023660237602386023960240602416024260243602446024560246602476024860249602506025160252602536025460255602566025760258602596026060261602626026360264602656026660267602686026960270602716027260273602746027560276602776027860279602806028160282602836028460285602866028760288602896029060291602926029360294602956029660297602986029960300603016030260303603046030560306603076030860309603106031160312603136031460315603166031760318603196032060321603226032360324603256032660327603286032960330603316033260333603346033560336603376033860339603406034160342603436034460345603466034760348603496035060351603526035360354603556035660357603586035960360603616036260363603646036560366603676036860369603706037160372603736037460375603766037760378603796038060381603826038360384603856038660387603886038960390603916039260393603946039560396603976039860399604006040160402604036040460405604066040760408604096041060411604126041360414604156041660417604186041960420604216042260423604246042560426604276042860429604306043160432604336043460435604366043760438604396044060441604426044360444604456044660447604486044960450604516045260453604546045560456604576045860459604606046160462604636046460465604666046760468604696047060471604726047360474604756047660477604786047960480604816048260483604846048560486604876048860489604906049160492604936049460495604966049760498604996050060501605026050360504605056050660507605086050960510605116051260513605146051560516605176051860519605206052160522605236052460525605266052760528605296053060531605326053360534605356053660537605386053960540605416054260543605446054560546605476054860549605506055160552605536055460555605566055760558605596056060561605626056360564605656056660567605686056960570605716057260573605746057560576605776057860579605806058160582605836058460585605866058760588605896059060591605926059360594605956059660597605986059960600606016060260603606046060560606606076060860609606106061160612606136061460615606166061760618606196062060621606226062360624606256062660627606286062960630606316063260633606346063560636606376063860639606406064160642606436064460645606466064760648606496065060651606526065360654606556065660657606586065960660606616066260663606646066560666606676066860669606706067160672606736067460675606766067760678606796068060681606826068360684606856068660687606886068960690606916069260693606946069560696606976069860699607006070160702607036070460705607066070760708607096071060711607126071360714607156071660717607186071960720607216072260723607246072560726607276072860729607306073160732607336073460735607366073760738607396074060741607426074360744607456074660747607486074960750607516075260753607546075560756607576075860759607606076160762607636076460765607666076760768607696077060771607726077360774607756077660777607786077960780607816078260783607846078560786607876078860789607906079160792607936079460795607966079760798607996080060801608026080360804608056080660807608086080960810608116081260813608146081560816608176081860819608206082160822608236082460825608266082760828608296083060831608326083360834608356083660837608386083960840608416084260843608446084560846608476084860849608506085160852608536085460855608566085760858608596086060861608626086360864608656086660867608686086960870608716087260873608746087560876608776087860879608806088160882608836088460885608866088760888608896089060891608926089360894608956089660897608986089960900609016090260903609046090560906609076090860909609106091160912609136091460915609166091760918609196092060921609226092360924609256092660927609286092960930609316093260933609346093560936609376093860939609406094160942609436094460945609466094760948609496095060951609526095360954609556095660957609586095960960609616096260963609646096560966609676096860969609706097160972609736097460975609766097760978609796098060981609826098360984609856098660987609886098960990609916099260993609946099560996609976099860999610006100161002610036100461005610066100761008610096101061011610126101361014610156101661017610186101961020610216102261023610246102561026610276102861029610306103161032610336103461035610366103761038610396104061041610426104361044610456104661047610486104961050610516105261053610546105561056610576105861059610606106161062610636106461065610666106761068610696107061071610726107361074610756107661077610786107961080610816108261083610846108561086610876108861089610906109161092610936109461095610966109761098610996110061101611026110361104611056110661107611086110961110611116111261113611146111561116611176111861119611206112161122611236112461125611266112761128611296113061131611326113361134611356113661137611386113961140611416114261143611446114561146611476114861149611506115161152611536115461155611566115761158611596116061161611626116361164611656116661167611686116961170611716117261173611746117561176611776117861179611806118161182611836118461185611866118761188611896119061191611926119361194611956119661197611986119961200612016120261203612046120561206612076120861209612106121161212612136121461215612166121761218612196122061221612226122361224612256122661227612286122961230612316123261233612346123561236612376123861239612406124161242612436124461245612466124761248612496125061251612526125361254612556125661257612586125961260612616126261263612646126561266612676126861269612706127161272612736127461275612766127761278612796128061281612826128361284612856128661287612886128961290612916129261293612946129561296612976129861299613006130161302613036130461305613066130761308613096131061311613126131361314613156131661317613186131961320613216132261323613246132561326613276132861329613306133161332613336133461335613366133761338613396134061341613426134361344613456134661347613486134961350613516135261353613546135561356613576135861359613606136161362613636136461365613666136761368613696137061371613726137361374613756137661377613786137961380613816138261383613846138561386613876138861389613906139161392613936139461395613966139761398613996140061401614026140361404614056140661407614086140961410614116141261413614146141561416614176141861419614206142161422614236142461425614266142761428614296143061431614326143361434614356143661437614386143961440614416144261443614446144561446614476144861449614506145161452614536145461455614566145761458614596146061461614626146361464614656146661467614686146961470614716147261473614746147561476614776147861479614806148161482614836148461485614866148761488614896149061491614926149361494614956149661497614986149961500615016150261503615046150561506615076150861509615106151161512615136151461515615166151761518615196152061521615226152361524615256152661527615286152961530615316153261533615346153561536615376153861539615406154161542615436154461545615466154761548615496155061551615526155361554615556155661557615586155961560615616156261563615646156561566615676156861569615706157161572615736157461575615766157761578615796158061581615826158361584615856158661587615886158961590615916159261593615946159561596615976159861599616006160161602616036160461605616066160761608616096161061611616126161361614616156161661617616186161961620616216162261623616246162561626616276162861629616306163161632616336163461635616366163761638616396164061641616426164361644616456164661647616486164961650616516165261653616546165561656616576165861659616606166161662616636166461665616666166761668616696167061671616726167361674616756167661677616786167961680616816168261683616846168561686616876168861689616906169161692616936169461695616966169761698616996170061701617026170361704617056170661707617086170961710617116171261713617146171561716617176171861719617206172161722617236172461725617266172761728617296173061731617326173361734617356173661737617386173961740617416174261743617446174561746617476174861749617506175161752617536175461755617566175761758617596176061761617626176361764617656176661767617686176961770617716177261773617746177561776617776177861779617806178161782617836178461785617866178761788617896179061791617926179361794617956179661797617986179961800618016180261803618046180561806618076180861809618106181161812618136181461815618166181761818618196182061821618226182361824618256182661827618286182961830618316183261833618346183561836618376183861839618406184161842618436184461845618466184761848618496185061851618526185361854618556185661857618586185961860618616186261863618646186561866618676186861869618706187161872618736187461875618766187761878618796188061881618826188361884618856188661887618886188961890618916189261893618946189561896618976189861899619006190161902619036190461905619066190761908619096191061911619126191361914619156191661917619186191961920619216192261923619246192561926619276192861929619306193161932619336193461935619366193761938619396194061941619426194361944619456194661947619486194961950619516195261953619546195561956619576195861959619606196161962619636196461965619666196761968619696197061971619726197361974619756197661977619786197961980619816198261983619846198561986619876198861989619906199161992619936199461995619966199761998619996200062001620026200362004620056200662007620086200962010620116201262013620146201562016620176201862019620206202162022620236202462025620266202762028620296203062031620326203362034620356203662037620386203962040620416204262043620446204562046620476204862049620506205162052620536205462055620566205762058620596206062061620626206362064620656206662067620686206962070620716207262073620746207562076620776207862079620806208162082620836208462085620866208762088620896209062091620926209362094620956209662097620986209962100621016210262103621046210562106621076210862109621106211162112621136211462115621166211762118621196212062121621226212362124621256212662127621286212962130621316213262133621346213562136621376213862139621406214162142621436214462145621466214762148621496215062151621526215362154621556215662157621586215962160621616216262163621646216562166621676216862169621706217162172621736217462175621766217762178621796218062181621826218362184621856218662187621886218962190621916219262193621946219562196621976219862199622006220162202622036220462205622066220762208622096221062211622126221362214622156221662217622186221962220622216222262223622246222562226622276222862229622306223162232622336223462235622366223762238622396224062241622426224362244622456224662247622486224962250622516225262253622546225562256622576225862259622606226162262622636226462265622666226762268622696227062271622726227362274622756227662277622786227962280622816228262283622846228562286622876228862289622906229162292622936229462295622966229762298622996230062301623026230362304623056230662307623086230962310623116231262313623146231562316623176231862319623206232162322623236232462325623266232762328623296233062331623326233362334623356233662337623386233962340623416234262343623446234562346623476234862349623506235162352623536235462355623566235762358623596236062361623626236362364623656236662367623686236962370623716237262373623746237562376623776237862379623806238162382623836238462385623866238762388623896239062391623926239362394623956239662397623986239962400624016240262403624046240562406624076240862409624106241162412624136241462415624166241762418624196242062421624226242362424624256242662427624286242962430624316243262433624346243562436624376243862439624406244162442624436244462445624466244762448624496245062451624526245362454624556245662457624586245962460624616246262463624646246562466624676246862469624706247162472624736247462475624766247762478624796248062481624826248362484624856248662487624886248962490624916249262493624946249562496624976249862499625006250162502625036250462505625066250762508625096251062511625126251362514625156251662517625186251962520625216252262523625246252562526625276252862529625306253162532625336253462535625366253762538625396254062541625426254362544625456254662547625486254962550625516255262553625546255562556625576255862559625606256162562625636256462565625666256762568625696257062571625726257362574625756257662577625786257962580625816258262583625846258562586625876258862589625906259162592625936259462595625966259762598625996260062601626026260362604626056260662607626086260962610626116261262613626146261562616626176261862619626206262162622626236262462625626266262762628626296263062631626326263362634626356263662637626386263962640626416264262643626446264562646626476264862649626506265162652626536265462655626566265762658626596266062661626626266362664626656266662667626686266962670626716267262673626746267562676626776267862679626806268162682626836268462685626866268762688626896269062691626926269362694626956269662697626986269962700627016270262703627046270562706627076270862709627106271162712627136271462715627166271762718627196272062721627226272362724627256272662727627286272962730627316273262733627346273562736627376273862739627406274162742627436274462745627466274762748627496275062751627526275362754627556275662757627586275962760627616276262763627646276562766627676276862769627706277162772627736277462775627766277762778627796278062781627826278362784627856278662787627886278962790627916279262793627946279562796627976279862799628006280162802628036280462805628066280762808628096281062811628126281362814628156281662817628186281962820628216282262823628246282562826628276282862829628306283162832628336283462835628366283762838628396284062841628426284362844628456284662847628486284962850628516285262853628546285562856628576285862859628606286162862628636286462865628666286762868628696287062871628726287362874628756287662877628786287962880628816288262883628846288562886628876288862889628906289162892628936289462895628966289762898628996290062901629026290362904629056290662907629086290962910629116291262913629146291562916629176291862919629206292162922629236292462925629266292762928629296293062931629326293362934629356293662937629386293962940629416294262943629446294562946629476294862949629506295162952629536295462955629566295762958629596296062961629626296362964629656296662967629686296962970629716297262973629746297562976629776297862979629806298162982629836298462985629866298762988629896299062991629926299362994629956299662997629986299963000630016300263003630046300563006630076300863009630106301163012630136301463015630166301763018630196302063021630226302363024630256302663027630286302963030630316303263033630346303563036630376303863039630406304163042630436304463045630466304763048630496305063051630526305363054630556305663057630586305963060630616306263063630646306563066630676306863069630706307163072630736307463075630766307763078630796308063081630826308363084630856308663087630886308963090630916309263093630946309563096630976309863099631006310163102631036310463105631066310763108631096311063111631126311363114631156311663117631186311963120631216312263123631246312563126631276312863129631306313163132631336313463135631366313763138631396314063141631426314363144631456314663147631486314963150631516315263153631546315563156631576315863159631606316163162631636316463165631666316763168631696317063171631726317363174631756317663177631786317963180631816318263183631846318563186631876318863189631906319163192631936319463195631966319763198631996320063201632026320363204632056320663207632086320963210632116321263213632146321563216632176321863219632206322163222632236322463225632266322763228632296323063231632326323363234632356323663237632386323963240632416324263243632446324563246632476324863249632506325163252632536325463255632566325763258632596326063261632626326363264632656326663267632686326963270632716327263273632746327563276632776327863279632806328163282632836328463285632866328763288632896329063291632926329363294632956329663297632986329963300633016330263303633046330563306633076330863309633106331163312633136331463315633166331763318633196332063321633226332363324633256332663327633286332963330633316333263333633346333563336633376333863339633406334163342633436334463345633466334763348633496335063351633526335363354633556335663357633586335963360633616336263363633646336563366633676336863369633706337163372633736337463375633766337763378633796338063381633826338363384633856338663387633886338963390633916339263393633946339563396633976339863399634006340163402634036340463405634066340763408634096341063411634126341363414634156341663417634186341963420634216342263423634246342563426634276342863429634306343163432634336343463435634366343763438634396344063441634426344363444634456344663447634486344963450634516345263453634546345563456634576345863459634606346163462634636346463465634666346763468634696347063471634726347363474634756347663477634786347963480634816348263483634846348563486634876348863489634906349163492634936349463495634966349763498634996350063501635026350363504635056350663507635086350963510635116351263513635146351563516635176351863519635206352163522635236352463525635266352763528635296353063531635326353363534635356353663537635386353963540635416354263543635446354563546635476354863549635506355163552635536355463555635566355763558635596356063561635626356363564635656356663567635686356963570635716357263573635746357563576635776357863579635806358163582635836358463585635866358763588635896359063591635926359363594635956359663597635986359963600636016360263603636046360563606636076360863609636106361163612636136361463615636166361763618636196362063621636226362363624636256362663627636286362963630636316363263633636346363563636636376363863639636406364163642636436364463645636466364763648636496365063651636526365363654636556365663657636586365963660636616366263663636646366563666636676366863669636706367163672636736367463675636766367763678636796368063681636826368363684636856368663687636886368963690636916369263693636946369563696636976369863699637006370163702637036370463705637066370763708637096371063711637126371363714637156371663717637186371963720637216372263723637246372563726637276372863729637306373163732637336373463735637366373763738637396374063741637426374363744637456374663747637486374963750637516375263753637546375563756637576375863759637606376163762637636376463765637666376763768637696377063771637726377363774637756377663777637786377963780637816378263783637846378563786637876378863789637906379163792637936379463795637966379763798637996380063801638026380363804638056380663807638086380963810638116381263813638146381563816638176381863819638206382163822638236382463825638266382763828638296383063831638326383363834638356383663837638386383963840638416384263843638446384563846638476384863849638506385163852638536385463855638566385763858638596386063861638626386363864638656386663867638686386963870638716387263873638746387563876638776387863879638806388163882638836388463885638866388763888638896389063891638926389363894638956389663897638986389963900639016390263903639046390563906639076390863909639106391163912639136391463915639166391763918639196392063921639226392363924639256392663927639286392963930639316393263933639346393563936639376393863939639406394163942639436394463945639466394763948639496395063951639526395363954639556395663957639586395963960639616396263963639646396563966639676396863969639706397163972639736397463975639766397763978639796398063981639826398363984639856398663987639886398963990639916399263993639946399563996639976399863999640006400164002640036400464005640066400764008640096401064011640126401364014640156401664017640186401964020640216402264023640246402564026640276402864029640306403164032640336403464035640366403764038640396404064041640426404364044640456404664047640486404964050640516405264053640546405564056640576405864059640606406164062640636406464065640666406764068640696407064071640726407364074640756407664077640786407964080640816408264083640846408564086640876408864089640906409164092640936409464095640966409764098640996410064101641026410364104641056410664107641086410964110641116411264113641146411564116641176411864119641206412164122641236412464125641266412764128641296413064131641326413364134641356413664137641386413964140641416414264143641446414564146641476414864149641506415164152641536415464155641566415764158641596416064161641626416364164641656416664167641686416964170641716417264173641746417564176641776417864179641806418164182641836418464185641866418764188641896419064191641926419364194641956419664197641986419964200642016420264203642046420564206642076420864209642106421164212642136421464215642166421764218642196422064221642226422364224642256422664227642286422964230642316423264233642346423564236642376423864239642406424164242642436424464245642466424764248642496425064251642526425364254642556425664257642586425964260642616426264263642646426564266642676426864269642706427164272642736427464275642766427764278642796428064281642826428364284642856428664287642886428964290642916429264293642946429564296642976429864299643006430164302643036430464305643066430764308643096431064311643126431364314643156431664317643186431964320643216432264323643246432564326643276432864329643306433164332643336433464335643366433764338643396434064341643426434364344643456434664347643486434964350643516435264353643546435564356643576435864359643606436164362643636436464365643666436764368643696437064371643726437364374643756437664377643786437964380643816438264383643846438564386643876438864389643906439164392643936439464395643966439764398643996440064401644026440364404644056440664407644086440964410644116441264413644146441564416644176441864419644206442164422644236442464425644266442764428644296443064431644326443364434644356443664437644386443964440644416444264443644446444564446644476444864449644506445164452644536445464455644566445764458644596446064461644626446364464644656446664467644686446964470644716447264473644746447564476644776447864479644806448164482644836448464485644866448764488644896449064491644926449364494644956449664497644986449964500645016450264503645046450564506645076450864509645106451164512645136451464515645166451764518645196452064521645226452364524645256452664527645286452964530645316453264533645346453564536645376453864539645406454164542645436454464545645466454764548645496455064551645526455364554645556455664557645586455964560645616456264563645646456564566645676456864569645706457164572645736457464575645766457764578645796458064581645826458364584645856458664587645886458964590645916459264593645946459564596645976459864599646006460164602646036460464605646066460764608646096461064611646126461364614646156461664617646186461964620646216462264623646246462564626646276462864629646306463164632646336463464635646366463764638646396464064641646426464364644646456464664647646486464964650646516465264653646546465564656646576465864659646606466164662646636466464665646666466764668646696467064671646726467364674646756467664677646786467964680646816468264683646846468564686646876468864689646906469164692646936469464695646966469764698646996470064701647026470364704647056470664707647086470964710647116471264713647146471564716647176471864719647206472164722647236472464725647266472764728647296473064731647326473364734647356473664737647386473964740647416474264743647446474564746647476474864749647506475164752647536475464755647566475764758647596476064761647626476364764647656476664767647686476964770647716477264773647746477564776647776477864779647806478164782647836478464785647866478764788647896479064791647926479364794647956479664797647986479964800648016480264803648046480564806648076480864809648106481164812648136481464815648166481764818648196482064821648226482364824648256482664827648286482964830648316483264833648346483564836648376483864839648406484164842648436484464845648466484764848648496485064851648526485364854648556485664857648586485964860648616486264863648646486564866648676486864869648706487164872648736487464875648766487764878648796488064881648826488364884648856488664887648886488964890648916489264893648946489564896648976489864899649006490164902649036490464905649066490764908649096491064911649126491364914649156491664917649186491964920649216492264923649246492564926649276492864929649306493164932649336493464935649366493764938649396494064941649426494364944649456494664947649486494964950649516495264953649546495564956649576495864959649606496164962649636496464965649666496764968649696497064971649726497364974649756497664977649786497964980649816498264983649846498564986649876498864989649906499164992649936499464995649966499764998649996500065001650026500365004650056500665007650086500965010650116501265013650146501565016650176501865019650206502165022650236502465025650266502765028650296503065031650326503365034650356503665037650386503965040650416504265043650446504565046650476504865049650506505165052650536505465055650566505765058650596506065061650626506365064650656506665067650686506965070650716507265073650746507565076650776507865079650806508165082650836508465085650866508765088650896509065091650926509365094650956509665097650986509965100651016510265103651046510565106651076510865109651106511165112651136511465115651166511765118651196512065121651226512365124651256512665127651286512965130651316513265133651346513565136651376513865139651406514165142651436514465145651466514765148651496515065151651526515365154651556515665157651586515965160651616516265163651646516565166651676516865169651706517165172651736517465175651766517765178651796518065181651826518365184651856518665187651886518965190651916519265193651946519565196651976519865199652006520165202652036520465205652066520765208652096521065211652126521365214652156521665217652186521965220652216522265223652246522565226652276522865229652306523165232652336523465235652366523765238652396524065241652426524365244652456524665247652486524965250652516525265253652546525565256652576525865259652606526165262652636526465265652666526765268652696527065271652726527365274652756527665277652786527965280652816528265283652846528565286652876528865289652906529165292652936529465295652966529765298652996530065301653026530365304653056530665307653086530965310653116531265313653146531565316653176531865319653206532165322653236532465325653266532765328653296533065331653326533365334653356533665337653386533965340653416534265343653446534565346653476534865349653506535165352653536535465355653566535765358653596536065361653626536365364653656536665367653686536965370653716537265373653746537565376653776537865379653806538165382653836538465385653866538765388653896539065391653926539365394653956539665397653986539965400654016540265403654046540565406654076540865409654106541165412654136541465415654166541765418654196542065421654226542365424654256542665427654286542965430654316543265433654346543565436654376543865439654406544165442654436544465445654466544765448654496545065451654526545365454654556545665457654586545965460654616546265463654646546565466654676546865469654706547165472654736547465475654766547765478654796548065481654826548365484654856548665487654886548965490654916549265493654946549565496654976549865499655006550165502655036550465505655066550765508655096551065511655126551365514655156551665517655186551965520655216552265523655246552565526655276552865529655306553165532655336553465535655366553765538655396554065541655426554365544655456554665547655486554965550655516555265553655546555565556655576555865559655606556165562655636556465565655666556765568655696557065571655726557365574655756557665577655786557965580655816558265583655846558565586655876558865589655906559165592655936559465595655966559765598655996560065601656026560365604656056560665607656086560965610656116561265613656146561565616656176561865619656206562165622656236562465625656266562765628656296563065631656326563365634656356563665637656386563965640656416564265643656446564565646656476564865649656506565165652656536565465655656566565765658656596566065661656626566365664656656566665667656686566965670656716567265673656746567565676656776567865679656806568165682656836568465685656866568765688656896569065691656926569365694656956569665697656986569965700657016570265703657046570565706657076570865709657106571165712657136571465715657166571765718657196572065721657226572365724657256572665727657286572965730657316573265733657346573565736657376573865739657406574165742657436574465745657466574765748657496575065751657526575365754657556575665757657586575965760657616576265763657646576565766657676576865769657706577165772657736577465775657766577765778657796578065781657826578365784657856578665787657886578965790657916579265793657946579565796657976579865799658006580165802658036580465805658066580765808658096581065811658126581365814658156581665817658186581965820658216582265823658246582565826658276582865829658306583165832658336583465835658366583765838658396584065841658426584365844658456584665847658486584965850658516585265853658546585565856658576585865859658606586165862658636586465865658666586765868658696587065871658726587365874658756587665877658786587965880658816588265883658846588565886658876588865889658906589165892658936589465895658966589765898658996590065901659026590365904659056590665907659086590965910659116591265913659146591565916659176591865919659206592165922659236592465925659266592765928659296593065931659326593365934659356593665937659386593965940659416594265943659446594565946659476594865949659506595165952659536595465955659566595765958659596596065961659626596365964659656596665967659686596965970659716597265973659746597565976659776597865979659806598165982659836598465985659866598765988659896599065991659926599365994659956599665997659986599966000660016600266003660046600566006660076600866009660106601166012660136601466015660166601766018660196602066021660226602366024660256602666027660286602966030660316603266033660346603566036660376603866039660406604166042660436604466045660466604766048660496605066051660526605366054660556605666057660586605966060660616606266063660646606566066660676606866069660706607166072660736607466075660766607766078660796608066081660826608366084660856608666087660886608966090660916609266093660946609566096660976609866099661006610166102661036610466105661066610766108661096611066111661126611366114661156611666117661186611966120661216612266123661246612566126661276612866129661306613166132661336613466135661366613766138661396614066141661426614366144661456614666147661486614966150661516615266153661546615566156661576615866159661606616166162661636616466165661666616766168661696617066171661726617366174661756617666177661786617966180661816618266183661846618566186661876618866189661906619166192661936619466195661966619766198661996620066201662026620366204662056620666207662086620966210662116621266213662146621566216662176621866219662206622166222662236622466225662266622766228662296623066231662326623366234662356623666237662386623966240662416624266243662446624566246662476624866249662506625166252662536625466255662566625766258662596626066261662626626366264662656626666267662686626966270662716627266273662746627566276662776627866279662806628166282662836628466285662866628766288662896629066291662926629366294662956629666297662986629966300663016630266303663046630566306663076630866309663106631166312663136631466315663166631766318663196632066321663226632366324663256632666327663286632966330663316633266333663346633566336663376633866339663406634166342663436634466345663466634766348663496635066351663526635366354663556635666357663586635966360663616636266363663646636566366663676636866369663706637166372663736637466375663766637766378663796638066381663826638366384663856638666387663886638966390663916639266393663946639566396663976639866399664006640166402664036640466405664066640766408664096641066411664126641366414664156641666417664186641966420664216642266423664246642566426664276642866429664306643166432664336643466435664366643766438664396644066441664426644366444664456644666447664486644966450664516645266453664546645566456664576645866459664606646166462664636646466465664666646766468664696647066471664726647366474664756647666477664786647966480664816648266483664846648566486664876648866489664906649166492664936649466495664966649766498664996650066501665026650366504665056650666507665086650966510665116651266513665146651566516665176651866519665206652166522665236652466525665266652766528665296653066531665326653366534665356653666537665386653966540665416654266543665446654566546665476654866549665506655166552665536655466555665566655766558665596656066561665626656366564665656656666567665686656966570665716657266573665746657566576665776657866579665806658166582665836658466585665866658766588665896659066591665926659366594665956659666597665986659966600666016660266603666046660566606666076660866609666106661166612666136661466615666166661766618666196662066621666226662366624666256662666627666286662966630666316663266633666346663566636666376663866639666406664166642666436664466645666466664766648666496665066651666526665366654666556665666657666586665966660666616666266663666646666566666666676666866669666706667166672666736667466675666766667766678666796668066681666826668366684666856668666687666886668966690666916669266693666946669566696666976669866699667006670166702667036670466705667066670766708667096671066711667126671366714667156671666717667186671966720667216672266723667246672566726667276672866729667306673166732667336673466735667366673766738667396674066741667426674366744667456674666747667486674966750667516675266753667546675566756667576675866759667606676166762667636676466765667666676766768667696677066771667726677366774667756677666777667786677966780667816678266783667846678566786667876678866789667906679166792667936679466795667966679766798667996680066801668026680366804668056680666807668086680966810668116681266813668146681566816668176681866819668206682166822668236682466825668266682766828668296683066831668326683366834668356683666837668386683966840668416684266843668446684566846668476684866849668506685166852668536685466855668566685766858668596686066861668626686366864668656686666867668686686966870668716687266873668746687566876668776687866879668806688166882668836688466885668866688766888668896689066891668926689366894668956689666897668986689966900669016690266903669046690566906669076690866909669106691166912669136691466915669166691766918669196692066921669226692366924669256692666927669286692966930669316693266933669346693566936669376693866939669406694166942669436694466945669466694766948669496695066951669526695366954669556695666957669586695966960669616696266963669646696566966669676696866969669706697166972669736697466975669766697766978669796698066981669826698366984669856698666987669886698966990669916699266993669946699566996669976699866999670006700167002670036700467005670066700767008670096701067011670126701367014670156701667017670186701967020670216702267023670246702567026670276702867029670306703167032670336703467035670366703767038670396704067041670426704367044670456704667047670486704967050670516705267053670546705567056670576705867059670606706167062670636706467065670666706767068670696707067071670726707367074670756707667077670786707967080670816708267083670846708567086670876708867089670906709167092670936709467095670966709767098670996710067101671026710367104671056710667107671086710967110671116711267113671146711567116671176711867119671206712167122671236712467125671266712767128671296713067131671326713367134671356713667137671386713967140671416714267143671446714567146671476714867149671506715167152671536715467155671566715767158671596716067161671626716367164671656716667167671686716967170671716717267173671746717567176671776717867179671806718167182671836718467185671866718767188671896719067191671926719367194671956719667197671986719967200672016720267203672046720567206672076720867209672106721167212672136721467215672166721767218672196722067221672226722367224672256722667227672286722967230672316723267233672346723567236672376723867239672406724167242672436724467245672466724767248672496725067251672526725367254672556725667257672586725967260672616726267263672646726567266672676726867269672706727167272672736727467275672766727767278672796728067281672826728367284672856728667287672886728967290672916729267293672946729567296672976729867299673006730167302673036730467305673066730767308673096731067311673126731367314673156731667317673186731967320673216732267323673246732567326673276732867329673306733167332673336733467335673366733767338673396734067341673426734367344673456734667347673486734967350673516735267353673546735567356673576735867359673606736167362673636736467365673666736767368673696737067371673726737367374673756737667377673786737967380673816738267383673846738567386673876738867389673906739167392673936739467395673966739767398673996740067401674026740367404674056740667407674086740967410674116741267413674146741567416674176741867419674206742167422674236742467425674266742767428674296743067431674326743367434674356743667437674386743967440674416744267443674446744567446674476744867449674506745167452674536745467455674566745767458674596746067461674626746367464674656746667467674686746967470674716747267473674746747567476674776747867479674806748167482674836748467485674866748767488674896749067491674926749367494674956749667497674986749967500675016750267503675046750567506675076750867509675106751167512675136751467515675166751767518675196752067521675226752367524675256752667527675286752967530675316753267533675346753567536675376753867539675406754167542675436754467545675466754767548675496755067551675526755367554675556755667557675586755967560675616756267563675646756567566675676756867569675706757167572675736757467575675766757767578675796758067581675826758367584675856758667587675886758967590675916759267593675946759567596675976759867599676006760167602676036760467605676066760767608676096761067611676126761367614676156761667617676186761967620676216762267623676246762567626676276762867629676306763167632676336763467635676366763767638676396764067641676426764367644676456764667647676486764967650676516765267653676546765567656676576765867659676606766167662676636766467665676666766767668676696767067671676726767367674676756767667677676786767967680676816768267683676846768567686676876768867689676906769167692676936769467695676966769767698676996770067701677026770367704677056770667707677086770967710677116771267713677146771567716677176771867719677206772167722677236772467725677266772767728677296773067731677326773367734677356773667737677386773967740677416774267743677446774567746677476774867749677506775167752677536775467755677566775767758677596776067761677626776367764677656776667767677686776967770677716777267773677746777567776677776777867779677806778167782677836778467785677866778767788677896779067791677926779367794677956779667797677986779967800678016780267803678046780567806678076780867809678106781167812678136781467815678166781767818678196782067821678226782367824678256782667827678286782967830678316783267833678346783567836678376783867839678406784167842678436784467845678466784767848678496785067851678526785367854678556785667857678586785967860678616786267863678646786567866678676786867869678706787167872678736787467875678766787767878678796788067881678826788367884678856788667887678886788967890678916789267893678946789567896678976789867899679006790167902679036790467905679066790767908679096791067911679126791367914679156791667917679186791967920679216792267923679246792567926679276792867929679306793167932679336793467935679366793767938679396794067941679426794367944679456794667947679486794967950679516795267953679546795567956679576795867959679606796167962679636796467965679666796767968679696797067971679726797367974679756797667977679786797967980679816798267983679846798567986679876798867989679906799167992679936799467995679966799767998679996800068001680026800368004680056800668007680086800968010680116801268013680146801568016680176801868019680206802168022680236802468025680266802768028680296803068031680326803368034680356803668037680386803968040680416804268043680446804568046680476804868049680506805168052680536805468055680566805768058680596806068061680626806368064680656806668067680686806968070680716807268073680746807568076680776807868079680806808168082680836808468085680866808768088680896809068091680926809368094680956809668097680986809968100681016810268103681046810568106681076810868109681106811168112681136811468115681166811768118681196812068121681226812368124681256812668127681286812968130681316813268133681346813568136681376813868139681406814168142681436814468145681466814768148681496815068151681526815368154681556815668157681586815968160681616816268163681646816568166681676816868169681706817168172681736817468175681766817768178681796818068181681826818368184681856818668187681886818968190681916819268193681946819568196681976819868199682006820168202682036820468205682066820768208682096821068211682126821368214682156821668217682186821968220682216822268223682246822568226682276822868229682306823168232682336823468235682366823768238682396824068241682426824368244682456824668247682486824968250682516825268253682546825568256682576825868259682606826168262682636826468265682666826768268682696827068271682726827368274682756827668277682786827968280682816828268283682846828568286682876828868289682906829168292682936829468295682966829768298682996830068301683026830368304683056830668307683086830968310683116831268313683146831568316683176831868319683206832168322683236832468325683266832768328683296833068331683326833368334683356833668337683386833968340683416834268343683446834568346683476834868349683506835168352683536835468355683566835768358683596836068361683626836368364683656836668367683686836968370683716837268373683746837568376683776837868379683806838168382683836838468385683866838768388683896839068391683926839368394683956839668397683986839968400684016840268403684046840568406684076840868409684106841168412684136841468415684166841768418684196842068421684226842368424684256842668427684286842968430684316843268433684346843568436684376843868439684406844168442684436844468445684466844768448684496845068451684526845368454684556845668457684586845968460684616846268463684646846568466684676846868469684706847168472684736847468475684766847768478684796848068481684826848368484684856848668487684886848968490684916849268493684946849568496684976849868499685006850168502685036850468505685066850768508685096851068511685126851368514685156851668517685186851968520685216852268523685246852568526685276852868529685306853168532685336853468535685366853768538685396854068541685426854368544685456854668547685486854968550685516855268553685546855568556685576855868559685606856168562685636856468565685666856768568685696857068571685726857368574685756857668577685786857968580685816858268583685846858568586685876858868589685906859168592685936859468595685966859768598685996860068601686026860368604686056860668607686086860968610686116861268613686146861568616686176861868619686206862168622686236862468625686266862768628686296863068631686326863368634686356863668637686386863968640686416864268643686446864568646686476864868649686506865168652686536865468655686566865768658686596866068661686626866368664686656866668667686686866968670686716867268673686746867568676686776867868679686806868168682686836868468685686866868768688686896869068691686926869368694686956869668697686986869968700687016870268703687046870568706687076870868709687106871168712687136871468715687166871768718687196872068721687226872368724687256872668727687286872968730687316873268733687346873568736687376873868739687406874168742687436874468745687466874768748687496875068751687526875368754687556875668757687586875968760687616876268763687646876568766687676876868769687706877168772687736877468775687766877768778687796878068781687826878368784687856878668787687886878968790687916879268793687946879568796687976879868799688006880168802688036880468805688066880768808688096881068811688126881368814688156881668817688186881968820688216882268823688246882568826688276882868829688306883168832688336883468835688366883768838688396884068841688426884368844688456884668847688486884968850688516885268853688546885568856688576885868859688606886168862688636886468865688666886768868688696887068871688726887368874688756887668877688786887968880688816888268883688846888568886688876888868889688906889168892688936889468895688966889768898688996890068901689026890368904689056890668907689086890968910689116891268913689146891568916689176891868919689206892168922689236892468925689266892768928689296893068931689326893368934689356893668937689386893968940689416894268943689446894568946689476894868949689506895168952689536895468955689566895768958689596896068961689626896368964689656896668967689686896968970689716897268973689746897568976689776897868979689806898168982689836898468985689866898768988689896899068991689926899368994689956899668997689986899969000690016900269003690046900569006690076900869009690106901169012690136901469015690166901769018690196902069021690226902369024690256902669027690286902969030690316903269033690346903569036690376903869039690406904169042690436904469045690466904769048690496905069051690526905369054690556905669057690586905969060690616906269063690646906569066690676906869069690706907169072690736907469075690766907769078690796908069081690826908369084690856908669087690886908969090690916909269093690946909569096690976909869099691006910169102691036910469105691066910769108691096911069111691126911369114691156911669117691186911969120691216912269123691246912569126691276912869129691306913169132691336913469135691366913769138691396914069141691426914369144691456914669147691486914969150691516915269153691546915569156691576915869159691606916169162691636916469165691666916769168691696917069171691726917369174691756917669177691786917969180691816918269183691846918569186691876918869189691906919169192691936919469195691966919769198691996920069201692026920369204692056920669207692086920969210692116921269213692146921569216692176921869219692206922169222692236922469225692266922769228692296923069231692326923369234692356923669237692386923969240692416924269243692446924569246692476924869249692506925169252692536925469255692566925769258692596926069261692626926369264692656926669267692686926969270692716927269273692746927569276692776927869279692806928169282692836928469285692866928769288692896929069291692926929369294692956929669297692986929969300693016930269303693046930569306693076930869309693106931169312693136931469315693166931769318693196932069321693226932369324693256932669327693286932969330693316933269333693346933569336693376933869339693406934169342693436934469345693466934769348693496935069351693526935369354693556935669357693586935969360693616936269363693646936569366693676936869369693706937169372693736937469375693766937769378693796938069381693826938369384693856938669387693886938969390693916939269393693946939569396693976939869399694006940169402694036940469405694066940769408694096941069411694126941369414694156941669417694186941969420694216942269423694246942569426694276942869429694306943169432694336943469435694366943769438694396944069441694426944369444694456944669447694486944969450694516945269453694546945569456694576945869459694606946169462694636946469465694666946769468694696947069471694726947369474694756947669477694786947969480694816948269483694846948569486694876948869489694906949169492694936949469495694966949769498694996950069501695026950369504695056950669507695086950969510695116951269513695146951569516695176951869519695206952169522695236952469525695266952769528695296953069531695326953369534695356953669537695386953969540695416954269543695446954569546695476954869549695506955169552695536955469555695566955769558695596956069561695626956369564695656956669567695686956969570695716957269573695746957569576695776957869579695806958169582695836958469585695866958769588695896959069591695926959369594695956959669597695986959969600696016960269603696046960569606696076960869609696106961169612696136961469615696166961769618696196962069621696226962369624696256962669627696286962969630696316963269633696346963569636696376963869639696406964169642696436964469645696466964769648696496965069651696526965369654696556965669657696586965969660696616966269663696646966569666696676966869669696706967169672696736967469675696766967769678696796968069681696826968369684696856968669687696886968969690696916969269693696946969569696696976969869699697006970169702697036970469705697066970769708697096971069711697126971369714697156971669717697186971969720697216972269723697246972569726697276972869729697306973169732697336973469735697366973769738697396974069741697426974369744697456974669747697486974969750697516975269753697546975569756697576975869759697606976169762697636976469765697666976769768697696977069771697726977369774697756977669777697786977969780697816978269783697846978569786697876978869789697906979169792697936979469795697966979769798697996980069801698026980369804698056980669807698086980969810698116981269813698146981569816698176981869819698206982169822698236982469825698266982769828698296983069831698326983369834698356983669837698386983969840698416984269843698446984569846698476984869849698506985169852698536985469855698566985769858698596986069861698626986369864698656986669867698686986969870698716987269873698746987569876698776987869879698806988169882698836988469885698866988769888698896989069891698926989369894698956989669897698986989969900699016990269903699046990569906699076990869909699106991169912699136991469915699166991769918699196992069921699226992369924699256992669927699286992969930699316993269933699346993569936699376993869939699406994169942699436994469945699466994769948699496995069951699526995369954699556995669957699586995969960699616996269963699646996569966699676996869969699706997169972699736997469975699766997769978699796998069981699826998369984699856998669987699886998969990699916999269993699946999569996699976999869999700007000170002700037000470005700067000770008700097001070011700127001370014700157001670017700187001970020700217002270023700247002570026700277002870029700307003170032700337003470035700367003770038700397004070041700427004370044700457004670047700487004970050700517005270053700547005570056700577005870059700607006170062700637006470065700667006770068700697007070071700727007370074700757007670077700787007970080700817008270083700847008570086700877008870089700907009170092700937009470095700967009770098700997010070101701027010370104701057010670107701087010970110701117011270113701147011570116701177011870119701207012170122701237012470125701267012770128701297013070131701327013370134701357013670137701387013970140701417014270143701447014570146701477014870149701507015170152701537015470155701567015770158701597016070161701627016370164701657016670167701687016970170701717017270173701747017570176701777017870179701807018170182701837018470185701867018770188701897019070191701927019370194701957019670197701987019970200702017020270203702047020570206702077020870209702107021170212702137021470215702167021770218702197022070221702227022370224702257022670227702287022970230702317023270233702347023570236702377023870239702407024170242702437024470245702467024770248702497025070251702527025370254702557025670257702587025970260702617026270263702647026570266702677026870269702707027170272702737027470275702767027770278702797028070281702827028370284702857028670287702887028970290702917029270293702947029570296702977029870299703007030170302703037030470305703067030770308703097031070311703127031370314703157031670317703187031970320703217032270323703247032570326703277032870329703307033170332703337033470335703367033770338703397034070341703427034370344703457034670347703487034970350703517035270353703547035570356703577035870359703607036170362703637036470365703667036770368703697037070371703727037370374703757037670377703787037970380703817038270383703847038570386703877038870389703907039170392703937039470395703967039770398703997040070401704027040370404704057040670407704087040970410704117041270413704147041570416704177041870419704207042170422704237042470425704267042770428704297043070431704327043370434704357043670437704387043970440704417044270443704447044570446704477044870449704507045170452704537045470455704567045770458704597046070461704627046370464704657046670467704687046970470704717047270473704747047570476704777047870479704807048170482704837048470485704867048770488704897049070491704927049370494704957049670497704987049970500705017050270503705047050570506705077050870509705107051170512705137051470515705167051770518705197052070521705227052370524705257052670527705287052970530705317053270533705347053570536705377053870539705407054170542705437054470545705467054770548705497055070551705527055370554705557055670557705587055970560705617056270563705647056570566705677056870569705707057170572705737057470575705767057770578705797058070581705827058370584705857058670587705887058970590705917059270593705947059570596705977059870599706007060170602706037060470605706067060770608706097061070611706127061370614706157061670617706187061970620706217062270623706247062570626706277062870629706307063170632706337063470635706367063770638706397064070641706427064370644706457064670647706487064970650706517065270653706547065570656706577065870659706607066170662706637066470665706667066770668706697067070671706727067370674706757067670677706787067970680706817068270683706847068570686706877068870689706907069170692706937069470695706967069770698706997070070701707027070370704707057070670707707087070970710707117071270713707147071570716707177071870719707207072170722707237072470725707267072770728707297073070731707327073370734707357073670737707387073970740707417074270743707447074570746707477074870749707507075170752707537075470755707567075770758707597076070761707627076370764707657076670767707687076970770707717077270773707747077570776707777077870779707807078170782707837078470785707867078770788707897079070791707927079370794707957079670797707987079970800708017080270803708047080570806708077080870809708107081170812708137081470815708167081770818708197082070821708227082370824708257082670827708287082970830708317083270833708347083570836708377083870839708407084170842708437084470845708467084770848708497085070851708527085370854708557085670857708587085970860708617086270863708647086570866708677086870869708707087170872708737087470875708767087770878708797088070881708827088370884708857088670887708887088970890708917089270893708947089570896708977089870899709007090170902709037090470905709067090770908709097091070911709127091370914709157091670917709187091970920709217092270923709247092570926709277092870929709307093170932709337093470935709367093770938709397094070941709427094370944709457094670947709487094970950709517095270953709547095570956709577095870959709607096170962709637096470965709667096770968709697097070971709727097370974709757097670977709787097970980709817098270983709847098570986709877098870989709907099170992709937099470995709967099770998709997100071001710027100371004710057100671007710087100971010710117101271013710147101571016710177101871019710207102171022710237102471025710267102771028710297103071031710327103371034710357103671037710387103971040710417104271043710447104571046710477104871049710507105171052710537105471055710567105771058710597106071061710627106371064710657106671067710687106971070710717107271073710747107571076710777107871079710807108171082710837108471085710867108771088710897109071091710927109371094710957109671097710987109971100711017110271103711047110571106711077110871109711107111171112711137111471115711167111771118711197112071121711227112371124711257112671127711287112971130711317113271133711347113571136711377113871139711407114171142711437114471145711467114771148711497115071151711527115371154711557115671157711587115971160711617116271163711647116571166711677116871169711707117171172711737117471175711767117771178711797118071181711827118371184711857118671187711887118971190711917119271193711947119571196711977119871199712007120171202712037120471205712067120771208712097121071211712127121371214712157121671217712187121971220712217122271223712247122571226712277122871229712307123171232712337123471235712367123771238712397124071241712427124371244712457124671247712487124971250712517125271253712547125571256712577125871259712607126171262712637126471265712667126771268712697127071271712727127371274712757127671277712787127971280712817128271283712847128571286712877128871289712907129171292712937129471295712967129771298712997130071301713027130371304713057130671307713087130971310713117131271313713147131571316713177131871319713207132171322713237132471325713267132771328713297133071331713327133371334713357133671337713387133971340713417134271343713447134571346713477134871349713507135171352713537135471355713567135771358713597136071361713627136371364713657136671367713687136971370713717137271373713747137571376713777137871379713807138171382713837138471385713867138771388713897139071391713927139371394713957139671397713987139971400714017140271403714047140571406714077140871409714107141171412714137141471415714167141771418714197142071421714227142371424714257142671427714287142971430714317143271433714347143571436714377143871439714407144171442714437144471445714467144771448714497145071451714527145371454714557145671457714587145971460714617146271463714647146571466714677146871469714707147171472714737147471475714767147771478714797148071481714827148371484714857148671487714887148971490714917149271493714947149571496714977149871499715007150171502715037150471505715067150771508715097151071511715127151371514715157151671517715187151971520715217152271523715247152571526715277152871529715307153171532715337153471535715367153771538715397154071541715427154371544715457154671547715487154971550715517155271553715547155571556715577155871559715607156171562715637156471565715667156771568715697157071571715727157371574715757157671577715787157971580715817158271583715847158571586715877158871589715907159171592715937159471595715967159771598715997160071601716027160371604716057160671607716087160971610716117161271613716147161571616716177161871619716207162171622716237162471625716267162771628716297163071631716327163371634716357163671637716387163971640716417164271643716447164571646716477164871649716507165171652716537165471655716567165771658716597166071661716627166371664716657166671667716687166971670716717167271673716747167571676716777167871679716807168171682716837168471685716867168771688716897169071691716927169371694716957169671697716987169971700717017170271703717047170571706717077170871709717107171171712717137171471715717167171771718717197172071721717227172371724717257172671727717287172971730717317173271733717347173571736717377173871739717407174171742717437174471745717467174771748717497175071751717527175371754717557175671757717587175971760717617176271763717647176571766717677176871769717707177171772717737177471775717767177771778717797178071781717827178371784717857178671787717887178971790717917179271793717947179571796717977179871799718007180171802718037180471805718067180771808718097181071811718127181371814718157181671817718187181971820718217182271823718247182571826718277182871829718307183171832718337183471835718367183771838718397184071841718427184371844718457184671847718487184971850718517185271853718547185571856718577185871859718607186171862718637186471865718667186771868718697187071871718727187371874718757187671877718787187971880718817188271883718847188571886718877188871889718907189171892718937189471895718967189771898718997190071901719027190371904719057190671907719087190971910719117191271913719147191571916719177191871919719207192171922719237192471925719267192771928719297193071931719327193371934719357193671937719387193971940719417194271943719447194571946719477194871949719507195171952719537195471955719567195771958719597196071961719627196371964719657196671967719687196971970719717197271973719747197571976719777197871979719807198171982719837198471985719867198771988719897199071991719927199371994719957199671997719987199972000720017200272003720047200572006720077200872009720107201172012720137201472015720167201772018720197202072021720227202372024720257202672027720287202972030720317203272033720347203572036720377203872039720407204172042720437204472045720467204772048720497205072051720527205372054720557205672057720587205972060720617206272063720647206572066720677206872069720707207172072720737207472075720767207772078720797208072081720827208372084720857208672087720887208972090720917209272093720947209572096720977209872099721007210172102721037210472105721067210772108721097211072111721127211372114721157211672117721187211972120721217212272123721247212572126721277212872129721307213172132721337213472135721367213772138721397214072141721427214372144721457214672147721487214972150721517215272153721547215572156721577215872159721607216172162721637216472165721667216772168721697217072171721727217372174721757217672177721787217972180721817218272183721847218572186721877218872189721907219172192721937219472195721967219772198721997220072201722027220372204722057220672207722087220972210722117221272213722147221572216722177221872219722207222172222722237222472225722267222772228722297223072231722327223372234722357223672237722387223972240722417224272243722447224572246722477224872249722507225172252722537225472255722567225772258722597226072261722627226372264722657226672267722687226972270722717227272273722747227572276722777227872279722807228172282722837228472285722867228772288722897229072291722927229372294722957229672297722987229972300723017230272303723047230572306723077230872309723107231172312723137231472315723167231772318723197232072321723227232372324723257232672327723287232972330723317233272333723347233572336723377233872339723407234172342723437234472345723467234772348723497235072351723527235372354723557235672357723587235972360723617236272363723647236572366723677236872369723707237172372723737237472375723767237772378723797238072381723827238372384723857238672387723887238972390723917239272393723947239572396723977239872399724007240172402724037240472405724067240772408724097241072411724127241372414724157241672417724187241972420724217242272423724247242572426724277242872429724307243172432724337243472435724367243772438724397244072441724427244372444724457244672447724487244972450724517245272453724547245572456724577245872459724607246172462724637246472465724667246772468724697247072471724727247372474724757247672477724787247972480724817248272483724847248572486724877248872489724907249172492724937249472495724967249772498724997250072501725027250372504725057250672507725087250972510725117251272513725147251572516725177251872519725207252172522725237252472525725267252772528725297253072531725327253372534725357253672537725387253972540725417254272543725447254572546725477254872549725507255172552725537255472555725567255772558725597256072561725627256372564725657256672567725687256972570725717257272573725747257572576725777257872579725807258172582725837258472585725867258772588725897259072591725927259372594725957259672597725987259972600726017260272603726047260572606726077260872609726107261172612726137261472615726167261772618726197262072621726227262372624726257262672627726287262972630726317263272633726347263572636726377263872639726407264172642726437264472645726467264772648726497265072651726527265372654726557265672657726587265972660726617266272663726647266572666726677266872669726707267172672726737267472675726767267772678726797268072681726827268372684726857268672687726887268972690726917269272693726947269572696726977269872699727007270172702727037270472705727067270772708727097271072711727127271372714727157271672717727187271972720727217272272723727247272572726727277272872729727307273172732727337273472735727367273772738727397274072741727427274372744727457274672747727487274972750727517275272753727547275572756727577275872759727607276172762727637276472765727667276772768727697277072771727727277372774727757277672777727787277972780727817278272783727847278572786727877278872789727907279172792727937279472795727967279772798727997280072801728027280372804728057280672807728087280972810728117281272813728147281572816728177281872819728207282172822728237282472825728267282772828728297283072831728327283372834728357283672837728387283972840728417284272843728447284572846728477284872849728507285172852728537285472855728567285772858728597286072861728627286372864728657286672867728687286972870728717287272873728747287572876728777287872879728807288172882728837288472885728867288772888728897289072891728927289372894728957289672897728987289972900729017290272903729047290572906729077290872909729107291172912729137291472915729167291772918729197292072921729227292372924729257292672927729287292972930729317293272933729347293572936729377293872939729407294172942729437294472945729467294772948729497295072951729527295372954729557295672957729587295972960729617296272963729647296572966729677296872969729707297172972729737297472975729767297772978729797298072981729827298372984729857298672987729887298972990729917299272993729947299572996729977299872999730007300173002730037300473005730067300773008730097301073011730127301373014730157301673017730187301973020730217302273023730247302573026730277302873029730307303173032730337303473035730367303773038730397304073041730427304373044730457304673047730487304973050730517305273053730547305573056730577305873059730607306173062730637306473065730667306773068730697307073071730727307373074730757307673077730787307973080730817308273083730847308573086730877308873089730907309173092730937309473095730967309773098730997310073101731027310373104731057310673107731087310973110731117311273113731147311573116731177311873119731207312173122731237312473125731267312773128731297313073131731327313373134731357313673137731387313973140731417314273143731447314573146731477314873149731507315173152731537315473155731567315773158731597316073161731627316373164731657316673167731687316973170731717317273173731747317573176731777317873179731807318173182731837318473185731867318773188731897319073191731927319373194731957319673197731987319973200732017320273203732047320573206732077320873209732107321173212732137321473215732167321773218732197322073221732227322373224732257322673227732287322973230732317323273233732347323573236732377323873239732407324173242732437324473245732467324773248732497325073251732527325373254732557325673257732587325973260732617326273263732647326573266732677326873269732707327173272732737327473275732767327773278732797328073281732827328373284732857328673287732887328973290732917329273293732947329573296732977329873299733007330173302733037330473305733067330773308733097331073311733127331373314733157331673317733187331973320733217332273323733247332573326733277332873329733307333173332733337333473335733367333773338733397334073341733427334373344733457334673347733487334973350733517335273353733547335573356733577335873359733607336173362733637336473365733667336773368733697337073371733727337373374733757337673377733787337973380733817338273383733847338573386733877338873389733907339173392733937339473395733967339773398733997340073401734027340373404734057340673407734087340973410734117341273413734147341573416734177341873419734207342173422734237342473425734267342773428734297343073431734327343373434734357343673437734387343973440734417344273443734447344573446734477344873449734507345173452734537345473455734567345773458734597346073461734627346373464734657346673467734687346973470734717347273473734747347573476734777347873479734807348173482734837348473485734867348773488734897349073491734927349373494734957349673497734987349973500735017350273503735047350573506735077350873509735107351173512735137351473515735167351773518735197352073521735227352373524735257352673527735287352973530735317353273533735347353573536735377353873539735407354173542735437354473545735467354773548735497355073551735527355373554735557355673557735587355973560735617356273563735647356573566735677356873569735707357173572735737357473575735767357773578735797358073581735827358373584735857358673587735887358973590735917359273593735947359573596735977359873599736007360173602736037360473605736067360773608736097361073611736127361373614736157361673617736187361973620736217362273623736247362573626736277362873629736307363173632736337363473635736367363773638736397364073641736427364373644736457364673647736487364973650736517365273653736547365573656736577365873659736607366173662736637366473665736667366773668736697367073671736727367373674736757367673677736787367973680736817368273683736847368573686736877368873689736907369173692736937369473695736967369773698736997370073701737027370373704737057370673707737087370973710737117371273713737147371573716737177371873719737207372173722737237372473725737267372773728737297373073731737327373373734737357373673737737387373973740737417374273743737447374573746737477374873749737507375173752737537375473755737567375773758737597376073761737627376373764737657376673767737687376973770737717377273773737747377573776737777377873779737807378173782737837378473785737867378773788737897379073791737927379373794737957379673797737987379973800738017380273803738047380573806738077380873809738107381173812738137381473815738167381773818738197382073821738227382373824738257382673827738287382973830738317383273833738347383573836738377383873839738407384173842738437384473845738467384773848738497385073851738527385373854738557385673857738587385973860738617386273863738647386573866738677386873869738707387173872738737387473875738767387773878738797388073881738827388373884738857388673887738887388973890738917389273893738947389573896738977389873899739007390173902739037390473905739067390773908739097391073911739127391373914739157391673917739187391973920739217392273923739247392573926739277392873929739307393173932739337393473935739367393773938739397394073941739427394373944739457394673947739487394973950739517395273953739547395573956739577395873959739607396173962739637396473965739667396773968739697397073971739727397373974739757397673977739787397973980739817398273983739847398573986739877398873989739907399173992739937399473995739967399773998739997400074001740027400374004740057400674007740087400974010740117401274013740147401574016740177401874019740207402174022740237402474025740267402774028740297403074031740327403374034740357403674037740387403974040740417404274043740447404574046740477404874049740507405174052740537405474055740567405774058740597406074061740627406374064740657406674067740687406974070740717407274073740747407574076740777407874079740807408174082740837408474085740867408774088740897409074091740927409374094740957409674097740987409974100741017410274103741047410574106741077410874109741107411174112741137411474115741167411774118741197412074121741227412374124741257412674127741287412974130741317413274133741347413574136741377413874139741407414174142741437414474145741467414774148741497415074151741527415374154741557415674157741587415974160741617416274163741647416574166741677416874169741707417174172741737417474175741767417774178741797418074181741827418374184741857418674187741887418974190741917419274193741947419574196741977419874199742007420174202742037420474205742067420774208742097421074211742127421374214742157421674217742187421974220742217422274223742247422574226742277422874229742307423174232742337423474235742367423774238742397424074241742427424374244742457424674247742487424974250742517425274253742547425574256742577425874259742607426174262742637426474265742667426774268742697427074271742727427374274742757427674277742787427974280742817428274283742847428574286742877428874289742907429174292742937429474295742967429774298742997430074301743027430374304743057430674307743087430974310743117431274313743147431574316743177431874319743207432174322743237432474325743267432774328743297433074331743327433374334743357433674337743387433974340743417434274343743447434574346743477434874349743507435174352743537435474355743567435774358743597436074361743627436374364743657436674367743687436974370743717437274373743747437574376743777437874379743807438174382743837438474385743867438774388743897439074391743927439374394743957439674397743987439974400744017440274403744047440574406744077440874409744107441174412744137441474415744167441774418744197442074421744227442374424744257442674427744287442974430744317443274433744347443574436744377443874439744407444174442744437444474445744467444774448744497445074451744527445374454744557445674457744587445974460744617446274463744647446574466744677446874469744707447174472744737447474475744767447774478744797448074481744827448374484744857448674487744887448974490744917449274493744947449574496744977449874499745007450174502745037450474505745067450774508745097451074511745127451374514745157451674517745187451974520745217452274523745247452574526745277452874529745307453174532745337453474535745367453774538745397454074541745427454374544745457454674547745487454974550745517455274553745547455574556745577455874559745607456174562745637456474565745667456774568745697457074571745727457374574745757457674577745787457974580745817458274583745847458574586745877458874589745907459174592745937459474595745967459774598745997460074601746027460374604746057460674607746087460974610746117461274613746147461574616746177461874619746207462174622746237462474625746267462774628746297463074631746327463374634746357463674637746387463974640746417464274643746447464574646746477464874649746507465174652746537465474655746567465774658746597466074661746627466374664746657466674667746687466974670746717467274673746747467574676746777467874679746807468174682746837468474685746867468774688746897469074691746927469374694746957469674697746987469974700747017470274703747047470574706747077470874709747107471174712747137471474715747167471774718747197472074721747227472374724747257472674727747287472974730747317473274733747347473574736747377473874739747407474174742747437474474745747467474774748747497475074751747527475374754747557475674757747587475974760747617476274763747647476574766747677476874769747707477174772747737477474775747767477774778747797478074781747827478374784747857478674787747887478974790747917479274793747947479574796747977479874799748007480174802748037480474805748067480774808748097481074811748127481374814748157481674817748187481974820748217482274823748247482574826748277482874829748307483174832748337483474835748367483774838748397484074841748427484374844748457484674847748487484974850748517485274853748547485574856748577485874859748607486174862748637486474865748667486774868748697487074871748727487374874748757487674877748787487974880748817488274883748847488574886748877488874889748907489174892748937489474895748967489774898748997490074901749027490374904749057490674907749087490974910749117491274913749147491574916749177491874919749207492174922749237492474925749267492774928749297493074931749327493374934749357493674937749387493974940749417494274943749447494574946749477494874949749507495174952749537495474955749567495774958749597496074961749627496374964749657496674967749687496974970749717497274973749747497574976749777497874979749807498174982749837498474985749867498774988749897499074991749927499374994749957499674997749987499975000750017500275003750047500575006750077500875009750107501175012750137501475015750167501775018750197502075021750227502375024750257502675027750287502975030750317503275033750347503575036750377503875039750407504175042750437504475045750467504775048750497505075051750527505375054750557505675057750587505975060750617506275063750647506575066750677506875069750707507175072750737507475075750767507775078750797508075081750827508375084750857508675087750887508975090750917509275093750947509575096750977509875099751007510175102751037510475105751067510775108751097511075111751127511375114751157511675117751187511975120751217512275123751247512575126751277512875129751307513175132751337513475135751367513775138751397514075141751427514375144751457514675147751487514975150751517515275153751547515575156751577515875159751607516175162751637516475165751667516775168751697517075171751727517375174751757517675177751787517975180751817518275183751847518575186751877518875189751907519175192751937519475195751967519775198751997520075201752027520375204752057520675207752087520975210752117521275213752147521575216752177521875219752207522175222752237522475225752267522775228752297523075231752327523375234752357523675237752387523975240752417524275243752447524575246752477524875249752507525175252752537525475255752567525775258752597526075261752627526375264752657526675267752687526975270752717527275273752747527575276752777527875279752807528175282752837528475285752867528775288752897529075291752927529375294752957529675297752987529975300753017530275303753047530575306753077530875309753107531175312753137531475315753167531775318753197532075321753227532375324753257532675327753287532975330753317533275333753347533575336753377533875339753407534175342753437534475345753467534775348753497535075351753527535375354753557535675357753587535975360753617536275363753647536575366753677536875369753707537175372753737537475375753767537775378753797538075381753827538375384753857538675387753887538975390753917539275393753947539575396753977539875399754007540175402754037540475405754067540775408754097541075411754127541375414754157541675417754187541975420754217542275423754247542575426754277542875429754307543175432754337543475435754367543775438754397544075441754427544375444754457544675447754487544975450754517545275453754547545575456754577545875459754607546175462754637546475465754667546775468754697547075471754727547375474754757547675477754787547975480754817548275483754847548575486754877548875489754907549175492754937549475495754967549775498754997550075501755027550375504755057550675507755087550975510755117551275513755147551575516755177551875519755207552175522755237552475525755267552775528755297553075531755327553375534755357553675537755387553975540755417554275543755447554575546755477554875549755507555175552755537555475555755567555775558755597556075561755627556375564755657556675567755687556975570755717557275573755747557575576755777557875579755807558175582755837558475585755867558775588755897559075591755927559375594755957559675597755987559975600756017560275603756047560575606756077560875609756107561175612756137561475615756167561775618756197562075621756227562375624756257562675627756287562975630756317563275633756347563575636756377563875639756407564175642756437564475645756467564775648756497565075651756527565375654756557565675657756587565975660756617566275663756647566575666756677566875669756707567175672756737567475675756767567775678756797568075681756827568375684756857568675687756887568975690756917569275693756947569575696756977569875699757007570175702757037570475705757067570775708757097571075711757127571375714757157571675717757187571975720757217572275723757247572575726757277572875729757307573175732757337573475735757367573775738757397574075741757427574375744757457574675747757487574975750757517575275753757547575575756757577575875759757607576175762757637576475765757667576775768757697577075771757727577375774757757577675777757787577975780757817578275783757847578575786757877578875789757907579175792757937579475795757967579775798757997580075801758027580375804758057580675807758087580975810758117581275813758147581575816758177581875819758207582175822758237582475825758267582775828758297583075831758327583375834758357583675837758387583975840758417584275843758447584575846758477584875849758507585175852758537585475855758567585775858758597586075861758627586375864758657586675867758687586975870758717587275873758747587575876758777587875879758807588175882758837588475885758867588775888758897589075891758927589375894758957589675897758987589975900759017590275903759047590575906759077590875909759107591175912759137591475915759167591775918759197592075921759227592375924759257592675927759287592975930759317593275933759347593575936759377593875939759407594175942759437594475945759467594775948759497595075951759527595375954759557595675957759587595975960759617596275963759647596575966759677596875969759707597175972759737597475975759767597775978759797598075981759827598375984759857598675987759887598975990759917599275993759947599575996759977599875999760007600176002760037600476005760067600776008760097601076011760127601376014760157601676017760187601976020760217602276023760247602576026760277602876029760307603176032760337603476035760367603776038760397604076041760427604376044760457604676047760487604976050760517605276053760547605576056760577605876059760607606176062760637606476065760667606776068760697607076071760727607376074760757607676077760787607976080760817608276083760847608576086760877608876089760907609176092760937609476095760967609776098760997610076101761027610376104761057610676107761087610976110761117611276113761147611576116761177611876119761207612176122761237612476125761267612776128761297613076131761327613376134761357613676137761387613976140761417614276143761447614576146761477614876149761507615176152761537615476155761567615776158761597616076161761627616376164761657616676167761687616976170761717617276173761747617576176761777617876179761807618176182761837618476185761867618776188761897619076191761927619376194761957619676197761987619976200762017620276203762047620576206762077620876209762107621176212762137621476215762167621776218762197622076221762227622376224762257622676227762287622976230762317623276233762347623576236762377623876239762407624176242762437624476245762467624776248762497625076251762527625376254762557625676257762587625976260762617626276263762647626576266762677626876269762707627176272762737627476275762767627776278762797628076281762827628376284762857628676287762887628976290762917629276293762947629576296762977629876299763007630176302763037630476305763067630776308763097631076311763127631376314763157631676317763187631976320763217632276323763247632576326763277632876329763307633176332763337633476335763367633776338763397634076341763427634376344763457634676347763487634976350763517635276353763547635576356763577635876359763607636176362763637636476365763667636776368763697637076371763727637376374763757637676377763787637976380763817638276383763847638576386763877638876389763907639176392763937639476395763967639776398763997640076401764027640376404764057640676407764087640976410764117641276413764147641576416764177641876419764207642176422764237642476425764267642776428764297643076431764327643376434764357643676437764387643976440764417644276443764447644576446764477644876449764507645176452764537645476455764567645776458764597646076461764627646376464764657646676467764687646976470764717647276473764747647576476764777647876479764807648176482764837648476485764867648776488764897649076491764927649376494764957649676497764987649976500765017650276503765047650576506765077650876509765107651176512765137651476515765167651776518765197652076521765227652376524765257652676527765287652976530765317653276533765347653576536765377653876539765407654176542765437654476545765467654776548765497655076551765527655376554765557655676557765587655976560765617656276563765647656576566765677656876569765707657176572765737657476575765767657776578765797658076581765827658376584765857658676587765887658976590765917659276593765947659576596765977659876599766007660176602766037660476605766067660776608766097661076611766127661376614766157661676617766187661976620766217662276623766247662576626766277662876629766307663176632766337663476635766367663776638766397664076641766427664376644766457664676647766487664976650766517665276653766547665576656766577665876659766607666176662766637666476665766667666776668766697667076671766727667376674766757667676677766787667976680766817668276683766847668576686766877668876689766907669176692766937669476695766967669776698766997670076701767027670376704767057670676707767087670976710767117671276713767147671576716767177671876719767207672176722767237672476725767267672776728767297673076731767327673376734767357673676737767387673976740767417674276743767447674576746767477674876749767507675176752767537675476755767567675776758767597676076761767627676376764767657676676767767687676976770767717677276773767747677576776767777677876779767807678176782767837678476785767867678776788767897679076791767927679376794767957679676797767987679976800768017680276803768047680576806768077680876809768107681176812768137681476815768167681776818768197682076821768227682376824768257682676827768287682976830768317683276833768347683576836768377683876839768407684176842768437684476845768467684776848768497685076851768527685376854768557685676857768587685976860768617686276863768647686576866768677686876869768707687176872768737687476875768767687776878768797688076881768827688376884768857688676887768887688976890768917689276893768947689576896768977689876899769007690176902769037690476905769067690776908769097691076911769127691376914769157691676917769187691976920769217692276923769247692576926769277692876929769307693176932769337693476935769367693776938769397694076941769427694376944769457694676947769487694976950769517695276953769547695576956769577695876959769607696176962769637696476965769667696776968769697697076971769727697376974769757697676977769787697976980769817698276983769847698576986769877698876989769907699176992769937699476995769967699776998769997700077001770027700377004770057700677007770087700977010770117701277013770147701577016770177701877019770207702177022770237702477025770267702777028770297703077031770327703377034770357703677037770387703977040770417704277043770447704577046770477704877049770507705177052770537705477055770567705777058770597706077061770627706377064770657706677067770687706977070770717707277073770747707577076770777707877079770807708177082770837708477085770867708777088770897709077091770927709377094770957709677097770987709977100771017710277103771047710577106771077710877109771107711177112771137711477115771167711777118771197712077121771227712377124771257712677127771287712977130771317713277133771347713577136771377713877139771407714177142771437714477145771467714777148771497715077151771527715377154771557715677157771587715977160771617716277163771647716577166771677716877169771707717177172771737717477175771767717777178771797718077181771827718377184771857718677187771887718977190771917719277193771947719577196771977719877199772007720177202772037720477205772067720777208772097721077211772127721377214772157721677217772187721977220772217722277223772247722577226772277722877229772307723177232772337723477235772367723777238772397724077241772427724377244772457724677247772487724977250772517725277253772547725577256772577725877259772607726177262772637726477265772667726777268772697727077271772727727377274772757727677277772787727977280772817728277283772847728577286772877728877289772907729177292772937729477295772967729777298772997730077301773027730377304773057730677307773087730977310773117731277313773147731577316773177731877319773207732177322773237732477325773267732777328773297733077331773327733377334773357733677337773387733977340773417734277343773447734577346773477734877349773507735177352773537735477355773567735777358773597736077361773627736377364773657736677367773687736977370773717737277373773747737577376773777737877379773807738177382773837738477385773867738777388773897739077391773927739377394773957739677397773987739977400774017740277403774047740577406774077740877409774107741177412774137741477415774167741777418774197742077421774227742377424774257742677427774287742977430774317743277433774347743577436774377743877439774407744177442774437744477445774467744777448774497745077451774527745377454774557745677457774587745977460774617746277463774647746577466774677746877469774707747177472774737747477475774767747777478774797748077481774827748377484774857748677487774887748977490774917749277493774947749577496774977749877499775007750177502775037750477505775067750777508775097751077511775127751377514775157751677517775187751977520775217752277523775247752577526775277752877529775307753177532775337753477535775367753777538775397754077541775427754377544775457754677547775487754977550775517755277553775547755577556775577755877559775607756177562775637756477565775667756777568775697757077571775727757377574775757757677577775787757977580775817758277583775847758577586775877758877589775907759177592775937759477595775967759777598775997760077601776027760377604776057760677607776087760977610776117761277613776147761577616776177761877619776207762177622776237762477625776267762777628776297763077631776327763377634776357763677637776387763977640776417764277643776447764577646776477764877649776507765177652776537765477655776567765777658776597766077661776627766377664776657766677667776687766977670776717767277673776747767577676776777767877679776807768177682776837768477685776867768777688776897769077691776927769377694776957769677697776987769977700777017770277703777047770577706777077770877709777107771177712777137771477715777167771777718777197772077721777227772377724777257772677727777287772977730777317773277733777347773577736777377773877739777407774177742777437774477745777467774777748777497775077751777527775377754777557775677757777587775977760777617776277763777647776577766777677776877769777707777177772777737777477775777767777777778777797778077781777827778377784777857778677787777887778977790777917779277793777947779577796777977779877799778007780177802778037780477805778067780777808778097781077811778127781377814778157781677817778187781977820778217782277823778247782577826778277782877829778307783177832778337783477835778367783777838778397784077841778427784377844778457784677847778487784977850778517785277853778547785577856778577785877859778607786177862778637786477865778667786777868778697787077871778727787377874778757787677877778787787977880778817788277883778847788577886778877788877889778907789177892778937789477895778967789777898778997790077901779027790377904779057790677907779087790977910779117791277913779147791577916779177791877919779207792177922779237792477925779267792777928779297793077931779327793377934779357793677937779387793977940779417794277943779447794577946779477794877949779507795177952779537795477955779567795777958779597796077961779627796377964779657796677967779687796977970779717797277973779747797577976779777797877979779807798177982779837798477985779867798777988779897799077991779927799377994779957799677997779987799978000780017800278003780047800578006780077800878009780107801178012780137801478015780167801778018780197802078021780227802378024780257802678027780287802978030780317803278033780347803578036780377803878039780407804178042780437804478045780467804778048780497805078051780527805378054780557805678057780587805978060780617806278063780647806578066780677806878069780707807178072780737807478075780767807778078780797808078081780827808378084780857808678087780887808978090780917809278093780947809578096780977809878099781007810178102781037810478105781067810778108781097811078111781127811378114781157811678117781187811978120781217812278123781247812578126781277812878129781307813178132781337813478135781367813778138781397814078141781427814378144781457814678147781487814978150781517815278153781547815578156781577815878159781607816178162781637816478165781667816778168781697817078171781727817378174781757817678177781787817978180781817818278183781847818578186781877818878189781907819178192781937819478195781967819778198781997820078201782027820378204782057820678207782087820978210782117821278213782147821578216782177821878219782207822178222782237822478225782267822778228782297823078231782327823378234782357823678237782387823978240782417824278243782447824578246782477824878249782507825178252782537825478255782567825778258782597826078261782627826378264782657826678267782687826978270782717827278273782747827578276782777827878279782807828178282782837828478285782867828778288782897829078291782927829378294782957829678297782987829978300783017830278303783047830578306783077830878309783107831178312783137831478315783167831778318783197832078321783227832378324783257832678327783287832978330783317833278333783347833578336783377833878339783407834178342783437834478345783467834778348783497835078351783527835378354783557835678357783587835978360783617836278363783647836578366783677836878369783707837178372783737837478375783767837778378783797838078381783827838378384783857838678387783887838978390783917839278393783947839578396783977839878399784007840178402784037840478405784067840778408784097841078411784127841378414784157841678417784187841978420784217842278423784247842578426784277842878429784307843178432784337843478435784367843778438784397844078441784427844378444784457844678447784487844978450784517845278453784547845578456784577845878459784607846178462784637846478465784667846778468784697847078471784727847378474784757847678477784787847978480784817848278483784847848578486784877848878489784907849178492784937849478495784967849778498784997850078501785027850378504785057850678507785087850978510785117851278513785147851578516785177851878519785207852178522785237852478525785267852778528785297853078531785327853378534785357853678537785387853978540785417854278543785447854578546785477854878549785507855178552785537855478555785567855778558785597856078561785627856378564785657856678567785687856978570785717857278573785747857578576785777857878579785807858178582785837858478585785867858778588785897859078591785927859378594785957859678597785987859978600786017860278603786047860578606786077860878609786107861178612786137861478615786167861778618786197862078621786227862378624786257862678627786287862978630786317863278633786347863578636786377863878639786407864178642786437864478645786467864778648786497865078651786527865378654786557865678657786587865978660786617866278663786647866578666786677866878669786707867178672786737867478675786767867778678786797868078681786827868378684786857868678687786887868978690786917869278693786947869578696786977869878699787007870178702787037870478705787067870778708787097871078711787127871378714787157871678717787187871978720787217872278723787247872578726787277872878729787307873178732787337873478735787367873778738787397874078741787427874378744787457874678747787487874978750787517875278753787547875578756787577875878759787607876178762787637876478765787667876778768787697877078771787727877378774787757877678777787787877978780787817878278783787847878578786787877878878789787907879178792787937879478795787967879778798787997880078801788027880378804788057880678807788087880978810788117881278813788147881578816788177881878819788207882178822788237882478825788267882778828788297883078831788327883378834788357883678837788387883978840788417884278843788447884578846788477884878849788507885178852788537885478855788567885778858788597886078861788627886378864788657886678867788687886978870788717887278873788747887578876788777887878879788807888178882788837888478885788867888778888788897889078891788927889378894788957889678897788987889978900789017890278903789047890578906789077890878909789107891178912789137891478915789167891778918789197892078921789227892378924789257892678927789287892978930789317893278933789347893578936789377893878939789407894178942789437894478945789467894778948789497895078951789527895378954789557895678957789587895978960789617896278963789647896578966789677896878969789707897178972789737897478975789767897778978789797898078981789827898378984789857898678987789887898978990789917899278993789947899578996789977899878999790007900179002790037900479005790067900779008790097901079011790127901379014790157901679017790187901979020790217902279023790247902579026790277902879029790307903179032790337903479035790367903779038790397904079041790427904379044790457904679047790487904979050790517905279053790547905579056790577905879059790607906179062790637906479065790667906779068790697907079071790727907379074790757907679077790787907979080790817908279083790847908579086790877908879089790907909179092790937909479095790967909779098790997910079101791027910379104791057910679107791087910979110791117911279113791147911579116791177911879119791207912179122791237912479125791267912779128791297913079131791327913379134791357913679137791387913979140791417914279143791447914579146791477914879149791507915179152791537915479155791567915779158791597916079161791627916379164791657916679167791687916979170791717917279173791747917579176791777917879179791807918179182791837918479185791867918779188791897919079191791927919379194791957919679197791987919979200792017920279203792047920579206792077920879209792107921179212792137921479215792167921779218792197922079221792227922379224792257922679227792287922979230792317923279233792347923579236792377923879239792407924179242792437924479245792467924779248792497925079251792527925379254792557925679257792587925979260792617926279263792647926579266792677926879269792707927179272792737927479275792767927779278792797928079281792827928379284792857928679287792887928979290792917929279293792947929579296792977929879299793007930179302793037930479305793067930779308793097931079311793127931379314793157931679317793187931979320793217932279323793247932579326793277932879329793307933179332793337933479335793367933779338793397934079341793427934379344793457934679347793487934979350793517935279353793547935579356793577935879359793607936179362793637936479365793667936779368793697937079371793727937379374793757937679377793787937979380793817938279383793847938579386793877938879389793907939179392793937939479395793967939779398793997940079401794027940379404794057940679407794087940979410794117941279413794147941579416794177941879419794207942179422794237942479425794267942779428794297943079431794327943379434794357943679437794387943979440794417944279443794447944579446794477944879449794507945179452794537945479455794567945779458794597946079461794627946379464794657946679467794687946979470794717947279473794747947579476794777947879479794807948179482794837948479485794867948779488794897949079491794927949379494794957949679497794987949979500795017950279503795047950579506795077950879509795107951179512795137951479515795167951779518795197952079521795227952379524795257952679527795287952979530795317953279533795347953579536795377953879539795407954179542795437954479545795467954779548795497955079551795527955379554795557955679557795587955979560795617956279563795647956579566795677956879569795707957179572795737957479575795767957779578795797958079581795827958379584795857958679587795887958979590795917959279593795947959579596795977959879599796007960179602796037960479605796067960779608796097961079611796127961379614796157961679617796187961979620796217962279623796247962579626796277962879629796307963179632796337963479635796367963779638796397964079641796427964379644796457964679647796487964979650796517965279653796547965579656796577965879659796607966179662796637966479665796667966779668796697967079671796727967379674796757967679677796787967979680796817968279683796847968579686796877968879689796907969179692796937969479695796967969779698796997970079701797027970379704797057970679707797087970979710797117971279713797147971579716797177971879719797207972179722797237972479725797267972779728797297973079731797327973379734797357973679737797387973979740797417974279743797447974579746797477974879749797507975179752797537975479755797567975779758797597976079761797627976379764797657976679767797687976979770797717977279773797747977579776797777977879779797807978179782797837978479785797867978779788797897979079791797927979379794797957979679797797987979979800798017980279803798047980579806798077980879809798107981179812798137981479815798167981779818798197982079821798227982379824798257982679827798287982979830798317983279833798347983579836798377983879839798407984179842798437984479845798467984779848798497985079851798527985379854798557985679857798587985979860798617986279863798647986579866798677986879869798707987179872798737987479875798767987779878798797988079881798827988379884798857988679887798887988979890798917989279893798947989579896798977989879899799007990179902799037990479905799067990779908799097991079911799127991379914799157991679917799187991979920799217992279923799247992579926799277992879929799307993179932799337993479935799367993779938799397994079941799427994379944799457994679947799487994979950799517995279953799547995579956799577995879959799607996179962799637996479965799667996779968799697997079971799727997379974799757997679977799787997979980799817998279983799847998579986799877998879989799907999179992799937999479995799967999779998799998000080001800028000380004800058000680007800088000980010800118001280013800148001580016800178001880019800208002180022800238002480025800268002780028800298003080031800328003380034800358003680037800388003980040800418004280043800448004580046800478004880049800508005180052800538005480055800568005780058800598006080061800628006380064800658006680067800688006980070800718007280073800748007580076800778007880079800808008180082800838008480085800868008780088800898009080091800928009380094800958009680097800988009980100801018010280103801048010580106801078010880109801108011180112801138011480115801168011780118801198012080121801228012380124801258012680127801288012980130801318013280133801348013580136801378013880139801408014180142801438014480145801468014780148801498015080151801528015380154801558015680157801588015980160801618016280163801648016580166801678016880169801708017180172801738017480175801768017780178801798018080181801828018380184801858018680187801888018980190801918019280193801948019580196801978019880199802008020180202802038020480205802068020780208802098021080211802128021380214802158021680217802188021980220802218022280223802248022580226802278022880229802308023180232802338023480235802368023780238802398024080241802428024380244802458024680247802488024980250802518025280253802548025580256802578025880259802608026180262802638026480265802668026780268802698027080271802728027380274802758027680277802788027980280802818028280283802848028580286802878028880289802908029180292802938029480295802968029780298802998030080301803028030380304803058030680307803088030980310803118031280313803148031580316803178031880319803208032180322803238032480325803268032780328803298033080331803328033380334803358033680337803388033980340803418034280343803448034580346803478034880349803508035180352803538035480355803568035780358803598036080361803628036380364803658036680367803688036980370803718037280373803748037580376803778037880379803808038180382803838038480385803868038780388803898039080391803928039380394803958039680397803988039980400804018040280403804048040580406804078040880409804108041180412804138041480415804168041780418804198042080421804228042380424804258042680427804288042980430804318043280433804348043580436804378043880439804408044180442804438044480445804468044780448804498045080451804528045380454804558045680457804588045980460804618046280463804648046580466804678046880469804708047180472804738047480475804768047780478804798048080481804828048380484804858048680487804888048980490804918049280493804948049580496804978049880499805008050180502805038050480505805068050780508805098051080511805128051380514805158051680517805188051980520805218052280523805248052580526805278052880529805308053180532805338053480535805368053780538805398054080541805428054380544805458054680547805488054980550805518055280553805548055580556805578055880559805608056180562805638056480565805668056780568805698057080571805728057380574805758057680577805788057980580805818058280583805848058580586805878058880589805908059180592805938059480595805968059780598805998060080601806028060380604806058060680607806088060980610806118061280613806148061580616806178061880619806208062180622806238062480625806268062780628806298063080631806328063380634806358063680637806388063980640806418064280643806448064580646806478064880649806508065180652806538065480655806568065780658806598066080661806628066380664806658066680667806688066980670806718067280673806748067580676806778067880679806808068180682806838068480685806868068780688806898069080691806928069380694806958069680697806988069980700807018070280703807048070580706807078070880709807108071180712807138071480715807168071780718807198072080721807228072380724807258072680727807288072980730807318073280733807348073580736807378073880739807408074180742807438074480745807468074780748807498075080751807528075380754807558075680757807588075980760807618076280763807648076580766807678076880769807708077180772807738077480775807768077780778807798078080781807828078380784807858078680787807888078980790807918079280793807948079580796807978079880799808008080180802808038080480805808068080780808808098081080811808128081380814808158081680817808188081980820808218082280823808248082580826808278082880829808308083180832808338083480835808368083780838808398084080841808428084380844808458084680847808488084980850808518085280853808548085580856808578085880859808608086180862808638086480865808668086780868808698087080871808728087380874808758087680877808788087980880808818088280883808848088580886808878088880889808908089180892808938089480895808968089780898808998090080901809028090380904809058090680907809088090980910809118091280913809148091580916809178091880919809208092180922809238092480925809268092780928809298093080931809328093380934809358093680937809388093980940809418094280943809448094580946809478094880949809508095180952809538095480955809568095780958809598096080961809628096380964809658096680967809688096980970809718097280973809748097580976809778097880979809808098180982809838098480985809868098780988809898099080991809928099380994809958099680997809988099981000810018100281003810048100581006810078100881009810108101181012810138101481015810168101781018810198102081021810228102381024810258102681027810288102981030810318103281033810348103581036810378103881039810408104181042810438104481045810468104781048810498105081051810528105381054810558105681057810588105981060810618106281063810648106581066810678106881069810708107181072810738107481075810768107781078810798108081081810828108381084810858108681087810888108981090810918109281093810948109581096810978109881099811008110181102811038110481105811068110781108811098111081111811128111381114811158111681117811188111981120811218112281123811248112581126811278112881129811308113181132811338113481135811368113781138811398114081141811428114381144811458114681147811488114981150811518115281153811548115581156811578115881159811608116181162811638116481165811668116781168811698117081171811728117381174811758117681177811788117981180811818118281183811848118581186811878118881189811908119181192811938119481195811968119781198811998120081201812028120381204812058120681207812088120981210812118121281213812148121581216812178121881219812208122181222812238122481225812268122781228812298123081231812328123381234812358123681237812388123981240812418124281243812448124581246812478124881249812508125181252812538125481255812568125781258812598126081261812628126381264812658126681267812688126981270812718127281273812748127581276812778127881279812808128181282812838128481285812868128781288812898129081291812928129381294812958129681297812988129981300813018130281303813048130581306813078130881309813108131181312813138131481315813168131781318813198132081321813228132381324813258132681327813288132981330813318133281333813348133581336813378133881339813408134181342813438134481345813468134781348813498135081351813528135381354813558135681357813588135981360813618136281363813648136581366813678136881369813708137181372813738137481375813768137781378813798138081381813828138381384813858138681387813888138981390813918139281393813948139581396813978139881399814008140181402814038140481405814068140781408814098141081411814128141381414814158141681417814188141981420814218142281423814248142581426814278142881429814308143181432814338143481435814368143781438814398144081441814428144381444814458144681447814488144981450814518145281453814548145581456814578145881459814608146181462814638146481465814668146781468814698147081471814728147381474814758147681477814788147981480814818148281483814848148581486814878148881489814908149181492814938149481495814968149781498814998150081501815028150381504815058150681507815088150981510815118151281513815148151581516815178151881519815208152181522815238152481525815268152781528815298153081531815328153381534815358153681537815388153981540815418154281543815448154581546815478154881549815508155181552815538155481555815568155781558815598156081561815628156381564815658156681567815688156981570815718157281573815748157581576815778157881579815808158181582815838158481585815868158781588815898159081591815928159381594815958159681597815988159981600816018160281603816048160581606816078160881609816108161181612816138161481615816168161781618816198162081621816228162381624816258162681627816288162981630816318163281633816348163581636816378163881639816408164181642816438164481645816468164781648816498165081651816528165381654816558165681657816588165981660816618166281663816648166581666816678166881669816708167181672816738167481675816768167781678816798168081681816828168381684816858168681687816888168981690816918169281693816948169581696816978169881699817008170181702817038170481705817068170781708817098171081711817128171381714817158171681717817188171981720817218172281723817248172581726817278172881729817308173181732817338173481735817368173781738817398174081741817428174381744817458174681747817488174981750817518175281753817548175581756817578175881759817608176181762817638176481765817668176781768817698177081771817728177381774817758177681777817788177981780817818178281783817848178581786817878178881789817908179181792817938179481795817968179781798817998180081801818028180381804818058180681807818088180981810818118181281813818148181581816818178181881819818208182181822818238182481825818268182781828818298183081831818328183381834818358183681837818388183981840818418184281843818448184581846818478184881849818508185181852818538185481855818568185781858818598186081861818628186381864818658186681867818688186981870818718187281873818748187581876818778187881879818808188181882818838188481885818868188781888818898189081891818928189381894818958189681897818988189981900819018190281903819048190581906819078190881909819108191181912819138191481915819168191781918819198192081921819228192381924819258192681927819288192981930819318193281933819348193581936819378193881939819408194181942819438194481945819468194781948819498195081951819528195381954819558195681957819588195981960819618196281963819648196581966819678196881969819708197181972819738197481975819768197781978819798198081981819828198381984819858198681987819888198981990819918199281993819948199581996819978199881999820008200182002820038200482005820068200782008820098201082011820128201382014820158201682017820188201982020820218202282023820248202582026820278202882029820308203182032820338203482035820368203782038820398204082041820428204382044820458204682047820488204982050820518205282053820548205582056820578205882059820608206182062820638206482065820668206782068820698207082071820728207382074820758207682077820788207982080820818208282083820848208582086820878208882089820908209182092820938209482095820968209782098820998210082101821028210382104821058210682107821088210982110821118211282113821148211582116821178211882119821208212182122821238212482125821268212782128821298213082131821328213382134821358213682137821388213982140821418214282143821448214582146821478214882149821508215182152821538215482155821568215782158821598216082161821628216382164821658216682167821688216982170821718217282173821748217582176821778217882179821808218182182821838218482185821868218782188821898219082191821928219382194821958219682197821988219982200822018220282203822048220582206822078220882209822108221182212822138221482215822168221782218822198222082221822228222382224822258222682227822288222982230822318223282233822348223582236822378223882239822408224182242822438224482245822468224782248822498225082251822528225382254822558225682257822588225982260822618226282263822648226582266822678226882269822708227182272822738227482275822768227782278822798228082281822828228382284822858228682287822888228982290822918229282293822948229582296822978229882299823008230182302823038230482305823068230782308823098231082311823128231382314823158231682317823188231982320823218232282323823248232582326823278232882329823308233182332823338233482335823368233782338823398234082341823428234382344823458234682347823488234982350823518235282353823548235582356823578235882359823608236182362823638236482365823668236782368823698237082371823728237382374823758237682377823788237982380823818238282383823848238582386823878238882389823908239182392823938239482395823968239782398823998240082401824028240382404824058240682407824088240982410824118241282413824148241582416824178241882419824208242182422824238242482425824268242782428824298243082431824328243382434824358243682437824388243982440824418244282443824448244582446824478244882449824508245182452824538245482455824568245782458824598246082461824628246382464824658246682467824688246982470824718247282473824748247582476824778247882479824808248182482824838248482485824868248782488824898249082491824928249382494824958249682497824988249982500825018250282503825048250582506825078250882509825108251182512825138251482515825168251782518825198252082521825228252382524825258252682527825288252982530825318253282533825348253582536825378253882539825408254182542825438254482545825468254782548825498255082551825528255382554825558255682557825588255982560825618256282563825648256582566825678256882569825708257182572825738257482575825768257782578825798258082581825828258382584825858258682587825888258982590825918259282593825948259582596825978259882599826008260182602826038260482605826068260782608826098261082611826128261382614826158261682617826188261982620826218262282623826248262582626826278262882629826308263182632826338263482635826368263782638826398264082641826428264382644826458264682647826488264982650826518265282653826548265582656826578265882659826608266182662826638266482665826668266782668826698267082671826728267382674826758267682677826788267982680826818268282683826848268582686826878268882689826908269182692826938269482695826968269782698826998270082701827028270382704827058270682707827088270982710827118271282713827148271582716827178271882719827208272182722827238272482725827268272782728827298273082731827328273382734827358273682737827388273982740827418274282743827448274582746827478274882749827508275182752827538275482755827568275782758827598276082761827628276382764827658276682767827688276982770827718277282773827748277582776827778277882779827808278182782827838278482785827868278782788827898279082791827928279382794827958279682797827988279982800828018280282803828048280582806828078280882809828108281182812828138281482815828168281782818828198282082821828228282382824828258282682827828288282982830828318283282833828348283582836828378283882839828408284182842828438284482845828468284782848828498285082851828528285382854828558285682857828588285982860828618286282863828648286582866828678286882869828708287182872828738287482875828768287782878828798288082881828828288382884828858288682887828888288982890828918289282893828948289582896828978289882899829008290182902829038290482905829068290782908829098291082911829128291382914829158291682917829188291982920829218292282923829248292582926829278292882929829308293182932829338293482935829368293782938829398294082941829428294382944829458294682947829488294982950829518295282953829548295582956829578295882959829608296182962829638296482965829668296782968829698297082971829728297382974829758297682977829788297982980829818298282983829848298582986829878298882989829908299182992829938299482995829968299782998829998300083001830028300383004830058300683007830088300983010830118301283013830148301583016830178301883019830208302183022830238302483025830268302783028830298303083031830328303383034830358303683037830388303983040830418304283043830448304583046830478304883049830508305183052830538305483055830568305783058830598306083061830628306383064830658306683067830688306983070830718307283073830748307583076830778307883079830808308183082830838308483085830868308783088830898309083091830928309383094830958309683097830988309983100831018310283103831048310583106831078310883109831108311183112831138311483115831168311783118831198312083121831228312383124831258312683127831288312983130831318313283133831348313583136831378313883139831408314183142831438314483145831468314783148831498315083151831528315383154831558315683157831588315983160831618316283163831648316583166831678316883169831708317183172831738317483175831768317783178831798318083181831828318383184831858318683187831888318983190831918319283193831948319583196831978319883199832008320183202832038320483205832068320783208832098321083211832128321383214832158321683217832188321983220832218322283223832248322583226832278322883229832308323183232832338323483235832368323783238832398324083241832428324383244832458324683247832488324983250832518325283253832548325583256832578325883259832608326183262832638326483265832668326783268832698327083271832728327383274832758327683277832788327983280832818328283283832848328583286832878328883289832908329183292832938329483295832968329783298832998330083301833028330383304833058330683307833088330983310833118331283313833148331583316833178331883319833208332183322833238332483325833268332783328833298333083331833328333383334833358333683337833388333983340833418334283343833448334583346833478334883349833508335183352833538335483355833568335783358833598336083361833628336383364833658336683367833688336983370833718337283373833748337583376833778337883379833808338183382833838338483385833868338783388833898339083391833928339383394833958339683397833988339983400834018340283403834048340583406834078340883409834108341183412834138341483415834168341783418834198342083421834228342383424834258342683427834288342983430834318343283433834348343583436834378343883439834408344183442834438344483445834468344783448834498345083451834528345383454834558345683457834588345983460834618346283463834648346583466834678346883469834708347183472834738347483475834768347783478834798348083481834828348383484834858348683487834888348983490834918349283493834948349583496834978349883499835008350183502835038350483505835068350783508835098351083511835128351383514835158351683517835188351983520835218352283523835248352583526835278352883529835308353183532835338353483535835368353783538835398354083541835428354383544835458354683547835488354983550835518355283553835548355583556835578355883559835608356183562835638356483565835668356783568835698357083571835728357383574835758357683577835788357983580835818358283583835848358583586835878358883589835908359183592835938359483595835968359783598835998360083601836028360383604836058360683607836088360983610836118361283613836148361583616836178361883619836208362183622836238362483625836268362783628836298363083631836328363383634836358363683637836388363983640836418364283643836448364583646836478364883649836508365183652836538365483655836568365783658836598366083661836628366383664836658366683667836688366983670836718367283673836748367583676836778367883679836808368183682836838368483685836868368783688836898369083691836928369383694836958369683697836988369983700837018370283703837048370583706837078370883709837108371183712837138371483715837168371783718837198372083721837228372383724837258372683727837288372983730837318373283733837348373583736837378373883739837408374183742837438374483745837468374783748837498375083751837528375383754837558375683757837588375983760837618376283763837648376583766837678376883769837708377183772837738377483775837768377783778837798378083781837828378383784837858378683787837888378983790837918379283793837948379583796837978379883799838008380183802838038380483805838068380783808838098381083811838128381383814838158381683817838188381983820838218382283823838248382583826838278382883829838308383183832838338383483835838368383783838838398384083841838428384383844838458384683847838488384983850838518385283853838548385583856838578385883859838608386183862838638386483865838668386783868838698387083871838728387383874838758387683877838788387983880838818388283883838848388583886838878388883889838908389183892838938389483895838968389783898838998390083901839028390383904839058390683907839088390983910839118391283913839148391583916839178391883919839208392183922839238392483925839268392783928839298393083931839328393383934839358393683937839388393983940839418394283943839448394583946839478394883949839508395183952839538395483955839568395783958839598396083961839628396383964839658396683967839688396983970839718397283973839748397583976839778397883979839808398183982839838398483985839868398783988839898399083991839928399383994839958399683997839988399984000840018400284003840048400584006840078400884009840108401184012840138401484015840168401784018840198402084021840228402384024840258402684027840288402984030840318403284033840348403584036840378403884039840408404184042840438404484045840468404784048840498405084051840528405384054840558405684057840588405984060840618406284063840648406584066840678406884069840708407184072840738407484075840768407784078840798408084081840828408384084840858408684087840888408984090840918409284093840948409584096840978409884099841008410184102841038410484105841068410784108841098411084111841128411384114841158411684117841188411984120841218412284123841248412584126841278412884129841308413184132841338413484135841368413784138841398414084141841428414384144841458414684147841488414984150841518415284153841548415584156841578415884159841608416184162841638416484165841668416784168841698417084171841728417384174841758417684177841788417984180841818418284183841848418584186841878418884189841908419184192841938419484195841968419784198841998420084201842028420384204842058420684207842088420984210842118421284213842148421584216842178421884219842208422184222842238422484225842268422784228842298423084231842328423384234842358423684237842388423984240842418424284243842448424584246842478424884249842508425184252842538425484255842568425784258842598426084261842628426384264842658426684267842688426984270842718427284273842748427584276842778427884279842808428184282842838428484285842868428784288842898429084291842928429384294842958429684297842988429984300843018430284303843048430584306843078430884309843108431184312843138431484315843168431784318843198432084321843228432384324843258432684327843288432984330843318433284333843348433584336843378433884339843408434184342843438434484345843468434784348843498435084351843528435384354843558435684357843588435984360843618436284363843648436584366843678436884369843708437184372843738437484375843768437784378843798438084381843828438384384843858438684387843888438984390843918439284393843948439584396843978439884399844008440184402844038440484405844068440784408844098441084411844128441384414844158441684417844188441984420844218442284423844248442584426844278442884429844308443184432844338443484435844368443784438844398444084441844428444384444844458444684447844488444984450844518445284453844548445584456844578445884459844608446184462844638446484465844668446784468844698447084471844728447384474844758447684477844788447984480844818448284483844848448584486844878448884489844908449184492844938449484495844968449784498844998450084501845028450384504845058450684507845088450984510845118451284513845148451584516845178451884519845208452184522845238452484525845268452784528845298453084531845328453384534845358453684537845388453984540845418454284543845448454584546845478454884549845508455184552845538455484555845568455784558845598456084561845628456384564845658456684567845688456984570845718457284573845748457584576845778457884579845808458184582845838458484585845868458784588845898459084591845928459384594845958459684597845988459984600846018460284603846048460584606846078460884609846108461184612846138461484615846168461784618846198462084621846228462384624846258462684627846288462984630846318463284633846348463584636846378463884639846408464184642846438464484645846468464784648846498465084651846528465384654846558465684657846588465984660846618466284663846648466584666846678466884669846708467184672846738467484675846768467784678846798468084681846828468384684846858468684687846888468984690846918469284693846948469584696846978469884699847008470184702847038470484705847068470784708847098471084711847128471384714847158471684717847188471984720847218472284723847248472584726847278472884729847308473184732847338473484735847368473784738847398474084741847428474384744847458474684747847488474984750847518475284753847548475584756847578475884759847608476184762847638476484765847668476784768847698477084771847728477384774847758477684777847788477984780847818478284783847848478584786847878478884789847908479184792847938479484795847968479784798847998480084801848028480384804848058480684807848088480984810848118481284813848148481584816848178481884819848208482184822848238482484825848268482784828848298483084831848328483384834848358483684837848388483984840848418484284843848448484584846848478484884849848508485184852848538485484855848568485784858848598486084861848628486384864848658486684867848688486984870848718487284873848748487584876848778487884879848808488184882848838488484885848868488784888848898489084891848928489384894848958489684897848988489984900849018490284903849048490584906849078490884909849108491184912849138491484915849168491784918849198492084921849228492384924849258492684927849288492984930849318493284933849348493584936849378493884939849408494184942849438494484945849468494784948849498495084951849528495384954849558495684957849588495984960849618496284963849648496584966849678496884969849708497184972849738497484975849768497784978849798498084981849828498384984849858498684987849888498984990849918499284993849948499584996849978499884999850008500185002850038500485005850068500785008850098501085011850128501385014850158501685017850188501985020850218502285023850248502585026850278502885029850308503185032850338503485035850368503785038850398504085041850428504385044850458504685047850488504985050850518505285053850548505585056850578505885059850608506185062850638506485065850668506785068850698507085071850728507385074850758507685077850788507985080850818508285083850848508585086850878508885089850908509185092850938509485095850968509785098850998510085101851028510385104851058510685107851088510985110851118511285113851148511585116851178511885119851208512185122851238512485125851268512785128851298513085131851328513385134851358513685137851388513985140851418514285143851448514585146851478514885149851508515185152851538515485155851568515785158851598516085161851628516385164851658516685167851688516985170851718517285173851748517585176851778517885179851808518185182851838518485185851868518785188851898519085191851928519385194851958519685197851988519985200852018520285203852048520585206852078520885209852108521185212852138521485215852168521785218852198522085221852228522385224852258522685227852288522985230852318523285233852348523585236852378523885239852408524185242852438524485245852468524785248852498525085251852528525385254852558525685257852588525985260852618526285263852648526585266852678526885269852708527185272852738527485275852768527785278852798528085281852828528385284852858528685287852888528985290852918529285293852948529585296852978529885299853008530185302853038530485305853068530785308853098531085311853128531385314853158531685317853188531985320853218532285323853248532585326853278532885329853308533185332853338533485335853368533785338853398534085341853428534385344853458534685347853488534985350853518535285353853548535585356853578535885359853608536185362853638536485365853668536785368853698537085371853728537385374853758537685377853788537985380853818538285383853848538585386853878538885389853908539185392853938539485395853968539785398853998540085401854028540385404854058540685407854088540985410854118541285413854148541585416854178541885419854208542185422854238542485425854268542785428854298543085431854328543385434854358543685437854388543985440854418544285443854448544585446854478544885449854508545185452854538545485455854568545785458854598546085461854628546385464854658546685467854688546985470854718547285473854748547585476854778547885479854808548185482854838548485485854868548785488854898549085491854928549385494854958549685497854988549985500855018550285503855048550585506855078550885509855108551185512855138551485515855168551785518855198552085521855228552385524855258552685527855288552985530855318553285533855348553585536855378553885539855408554185542855438554485545855468554785548855498555085551855528555385554855558555685557855588555985560855618556285563855648556585566855678556885569855708557185572855738557485575855768557785578855798558085581855828558385584855858558685587855888558985590855918559285593855948559585596855978559885599856008560185602856038560485605856068560785608856098561085611856128561385614856158561685617856188561985620856218562285623856248562585626856278562885629856308563185632856338563485635856368563785638856398564085641856428564385644856458564685647856488564985650856518565285653856548565585656856578565885659856608566185662856638566485665856668566785668856698567085671856728567385674856758567685677856788567985680856818568285683856848568585686856878568885689856908569185692856938569485695856968569785698856998570085701857028570385704857058570685707857088570985710857118571285713857148571585716857178571885719857208572185722857238572485725857268572785728857298573085731857328573385734857358573685737857388573985740857418574285743857448574585746857478574885749857508575185752857538575485755857568575785758857598576085761857628576385764857658576685767857688576985770857718577285773857748577585776857778577885779857808578185782857838578485785857868578785788857898579085791857928579385794857958579685797857988579985800858018580285803858048580585806858078580885809858108581185812858138581485815858168581785818858198582085821858228582385824858258582685827858288582985830858318583285833858348583585836858378583885839858408584185842858438584485845858468584785848858498585085851858528585385854858558585685857858588585985860858618586285863858648586585866858678586885869858708587185872858738587485875858768587785878858798588085881858828588385884858858588685887858888588985890858918589285893858948589585896858978589885899859008590185902859038590485905859068590785908859098591085911859128591385914859158591685917859188591985920859218592285923859248592585926859278592885929859308593185932859338593485935859368593785938859398594085941859428594385944859458594685947859488594985950859518595285953859548595585956859578595885959859608596185962859638596485965859668596785968859698597085971859728597385974859758597685977859788597985980859818598285983859848598585986859878598885989859908599185992859938599485995859968599785998859998600086001860028600386004860058600686007860088600986010860118601286013860148601586016860178601886019860208602186022860238602486025860268602786028860298603086031860328603386034860358603686037860388603986040860418604286043860448604586046860478604886049860508605186052860538605486055860568605786058860598606086061860628606386064860658606686067860688606986070860718607286073860748607586076860778607886079860808608186082860838608486085860868608786088860898609086091860928609386094860958609686097860988609986100861018610286103861048610586106861078610886109861108611186112861138611486115861168611786118861198612086121861228612386124861258612686127861288612986130861318613286133861348613586136861378613886139861408614186142861438614486145861468614786148861498615086151861528615386154861558615686157861588615986160861618616286163861648616586166861678616886169861708617186172861738617486175861768617786178861798618086181861828618386184861858618686187861888618986190861918619286193861948619586196861978619886199862008620186202862038620486205862068620786208862098621086211862128621386214862158621686217862188621986220862218622286223862248622586226862278622886229862308623186232862338623486235862368623786238862398624086241862428624386244862458624686247862488624986250862518625286253862548625586256862578625886259862608626186262862638626486265862668626786268862698627086271862728627386274862758627686277862788627986280862818628286283862848628586286862878628886289862908629186292862938629486295862968629786298862998630086301863028630386304863058630686307863088630986310863118631286313863148631586316863178631886319863208632186322863238632486325863268632786328863298633086331863328633386334863358633686337863388633986340863418634286343863448634586346863478634886349863508635186352863538635486355863568635786358863598636086361863628636386364863658636686367863688636986370863718637286373863748637586376863778637886379863808638186382863838638486385863868638786388863898639086391863928639386394863958639686397863988639986400864018640286403864048640586406864078640886409864108641186412864138641486415864168641786418864198642086421864228642386424864258642686427864288642986430864318643286433864348643586436864378643886439864408644186442864438644486445864468644786448864498645086451864528645386454864558645686457864588645986460864618646286463864648646586466864678646886469864708647186472864738647486475864768647786478864798648086481864828648386484864858648686487864888648986490864918649286493864948649586496864978649886499865008650186502865038650486505865068650786508865098651086511865128651386514865158651686517865188651986520865218652286523865248652586526865278652886529865308653186532865338653486535865368653786538865398654086541865428654386544865458654686547865488654986550865518655286553865548655586556865578655886559865608656186562865638656486565865668656786568865698657086571865728657386574865758657686577865788657986580865818658286583865848658586586865878658886589865908659186592865938659486595865968659786598865998660086601866028660386604866058660686607866088660986610866118661286613866148661586616866178661886619866208662186622866238662486625866268662786628866298663086631866328663386634866358663686637866388663986640866418664286643866448664586646866478664886649866508665186652866538665486655866568665786658866598666086661866628666386664866658666686667866688666986670866718667286673866748667586676866778667886679866808668186682866838668486685866868668786688866898669086691866928669386694866958669686697866988669986700867018670286703867048670586706867078670886709867108671186712867138671486715867168671786718867198672086721867228672386724867258672686727867288672986730867318673286733867348673586736867378673886739867408674186742867438674486745867468674786748867498675086751867528675386754867558675686757867588675986760867618676286763867648676586766867678676886769867708677186772867738677486775867768677786778867798678086781867828678386784867858678686787867888678986790867918679286793867948679586796867978679886799868008680186802868038680486805868068680786808868098681086811868128681386814868158681686817868188681986820868218682286823868248682586826868278682886829868308683186832868338683486835868368683786838868398684086841868428684386844868458684686847868488684986850868518685286853868548685586856868578685886859868608686186862868638686486865868668686786868868698687086871868728687386874868758687686877868788687986880868818688286883868848688586886868878688886889868908689186892868938689486895868968689786898868998690086901869028690386904869058690686907869088690986910869118691286913869148691586916869178691886919869208692186922869238692486925869268692786928869298693086931869328693386934869358693686937869388693986940869418694286943869448694586946869478694886949869508695186952869538695486955869568695786958869598696086961869628696386964869658696686967869688696986970869718697286973869748697586976869778697886979869808698186982869838698486985869868698786988869898699086991869928699386994869958699686997869988699987000870018700287003870048700587006870078700887009870108701187012870138701487015870168701787018870198702087021870228702387024870258702687027870288702987030870318703287033870348703587036870378703887039870408704187042870438704487045870468704787048870498705087051870528705387054870558705687057870588705987060870618706287063870648706587066870678706887069870708707187072870738707487075870768707787078870798708087081870828708387084870858708687087870888708987090870918709287093870948709587096870978709887099871008710187102871038710487105871068710787108871098711087111871128711387114871158711687117871188711987120871218712287123871248712587126871278712887129871308713187132871338713487135871368713787138871398714087141871428714387144871458714687147871488714987150871518715287153871548715587156871578715887159871608716187162871638716487165871668716787168871698717087171871728717387174871758717687177871788717987180871818718287183871848718587186871878718887189871908719187192871938719487195871968719787198871998720087201872028720387204872058720687207872088720987210872118721287213872148721587216872178721887219872208722187222872238722487225872268722787228872298723087231872328723387234872358723687237872388723987240872418724287243872448724587246872478724887249872508725187252872538725487255872568725787258872598726087261872628726387264872658726687267872688726987270872718727287273872748727587276872778727887279872808728187282872838728487285872868728787288872898729087291872928729387294872958729687297872988729987300873018730287303873048730587306873078730887309873108731187312873138731487315873168731787318873198732087321873228732387324873258732687327873288732987330873318733287333873348733587336873378733887339873408734187342873438734487345873468734787348873498735087351873528735387354873558735687357873588735987360873618736287363873648736587366873678736887369873708737187372873738737487375873768737787378873798738087381873828738387384873858738687387873888738987390873918739287393873948739587396873978739887399874008740187402874038740487405874068740787408874098741087411874128741387414874158741687417874188741987420874218742287423874248742587426874278742887429874308743187432874338743487435874368743787438874398744087441874428744387444874458744687447874488744987450874518745287453874548745587456874578745887459874608746187462874638746487465874668746787468874698747087471874728747387474874758747687477874788747987480874818748287483874848748587486874878748887489874908749187492874938749487495874968749787498874998750087501875028750387504875058750687507875088750987510875118751287513875148751587516875178751887519875208752187522875238752487525875268752787528875298753087531875328753387534875358753687537875388753987540875418754287543875448754587546875478754887549875508755187552875538755487555875568755787558875598756087561875628756387564875658756687567875688756987570875718757287573875748757587576875778757887579875808758187582875838758487585875868758787588875898759087591875928759387594875958759687597875988759987600876018760287603876048760587606876078760887609876108761187612876138761487615876168761787618876198762087621876228762387624876258762687627876288762987630876318763287633876348763587636876378763887639876408764187642876438764487645876468764787648876498765087651876528765387654876558765687657876588765987660876618766287663876648766587666876678766887669876708767187672876738767487675876768767787678876798768087681876828768387684876858768687687876888768987690876918769287693876948769587696876978769887699877008770187702877038770487705877068770787708877098771087711877128771387714877158771687717877188771987720877218772287723877248772587726877278772887729877308773187732877338773487735877368773787738877398774087741877428774387744877458774687747877488774987750877518775287753877548775587756877578775887759877608776187762877638776487765877668776787768877698777087771877728777387774877758777687777877788777987780877818778287783877848778587786877878778887789877908779187792877938779487795877968779787798877998780087801878028780387804878058780687807878088780987810878118781287813878148781587816878178781887819878208782187822878238782487825878268782787828878298783087831878328783387834878358783687837878388783987840878418784287843878448784587846878478784887849878508785187852878538785487855878568785787858878598786087861878628786387864878658786687867878688786987870878718787287873878748787587876878778787887879878808788187882878838788487885878868788787888878898789087891878928789387894878958789687897878988789987900879018790287903879048790587906879078790887909879108791187912879138791487915879168791787918879198792087921879228792387924879258792687927879288792987930879318793287933879348793587936879378793887939879408794187942879438794487945879468794787948879498795087951879528795387954879558795687957879588795987960879618796287963879648796587966879678796887969879708797187972879738797487975879768797787978879798798087981879828798387984879858798687987879888798987990879918799287993879948799587996879978799887999880008800188002880038800488005880068800788008880098801088011880128801388014880158801688017880188801988020880218802288023880248802588026880278802888029880308803188032880338803488035880368803788038880398804088041880428804388044880458804688047880488804988050880518805288053880548805588056880578805888059880608806188062880638806488065880668806788068880698807088071880728807388074880758807688077880788807988080880818808288083880848808588086880878808888089880908809188092880938809488095880968809788098880998810088101881028810388104881058810688107881088810988110881118811288113881148811588116881178811888119881208812188122881238812488125881268812788128881298813088131881328813388134881358813688137881388813988140881418814288143881448814588146881478814888149881508815188152881538815488155881568815788158881598816088161881628816388164881658816688167881688816988170881718817288173881748817588176881778817888179881808818188182881838818488185881868818788188881898819088191881928819388194881958819688197881988819988200882018820288203882048820588206882078820888209882108821188212882138821488215882168821788218882198822088221882228822388224882258822688227882288822988230882318823288233882348823588236882378823888239882408824188242882438824488245882468824788248882498825088251882528825388254882558825688257882588825988260882618826288263882648826588266882678826888269882708827188272882738827488275882768827788278882798828088281882828828388284882858828688287882888828988290882918829288293882948829588296882978829888299883008830188302883038830488305883068830788308883098831088311883128831388314883158831688317883188831988320883218832288323883248832588326883278832888329883308833188332883338833488335883368833788338883398834088341883428834388344883458834688347883488834988350883518835288353883548835588356883578835888359883608836188362883638836488365883668836788368883698837088371883728837388374883758837688377883788837988380883818838288383883848838588386883878838888389883908839188392883938839488395883968839788398883998840088401884028840388404884058840688407884088840988410884118841288413884148841588416884178841888419884208842188422884238842488425884268842788428884298843088431884328843388434884358843688437884388843988440884418844288443884448844588446884478844888449884508845188452884538845488455884568845788458884598846088461884628846388464884658846688467884688846988470884718847288473884748847588476884778847888479884808848188482884838848488485884868848788488884898849088491884928849388494884958849688497884988849988500885018850288503885048850588506885078850888509885108851188512885138851488515885168851788518885198852088521885228852388524885258852688527885288852988530885318853288533885348853588536885378853888539885408854188542885438854488545885468854788548885498855088551885528855388554885558855688557885588855988560885618856288563885648856588566885678856888569885708857188572885738857488575885768857788578885798858088581885828858388584885858858688587885888858988590885918859288593885948859588596885978859888599886008860188602886038860488605886068860788608886098861088611886128861388614886158861688617886188861988620886218862288623886248862588626886278862888629886308863188632886338863488635886368863788638886398864088641886428864388644886458864688647886488864988650886518865288653886548865588656886578865888659886608866188662886638866488665886668866788668886698867088671886728867388674886758867688677886788867988680886818868288683886848868588686886878868888689886908869188692886938869488695886968869788698886998870088701887028870388704887058870688707887088870988710887118871288713887148871588716887178871888719887208872188722887238872488725887268872788728887298873088731887328873388734887358873688737887388873988740887418874288743887448874588746887478874888749887508875188752887538875488755887568875788758887598876088761887628876388764887658876688767887688876988770887718877288773887748877588776887778877888779887808878188782887838878488785887868878788788887898879088791887928879388794887958879688797887988879988800888018880288803888048880588806888078880888809888108881188812888138881488815888168881788818888198882088821888228882388824888258882688827888288882988830888318883288833888348883588836888378883888839888408884188842888438884488845888468884788848888498885088851888528885388854888558885688857888588885988860888618886288863888648886588866888678886888869888708887188872888738887488875888768887788878888798888088881888828888388884888858888688887888888888988890888918889288893888948889588896888978889888899889008890188902889038890488905889068890788908889098891088911889128891388914889158891688917889188891988920889218892288923889248892588926889278892888929889308893188932889338893488935889368893788938889398894088941889428894388944889458894688947889488894988950889518895288953889548895588956889578895888959889608896188962889638896488965889668896788968889698897088971889728897388974889758897688977889788897988980889818898288983889848898588986889878898888989889908899188992889938899488995889968899788998889998900089001890028900389004890058900689007890088900989010890118901289013890148901589016890178901889019890208902189022890238902489025890268902789028890298903089031890328903389034890358903689037890388903989040890418904289043890448904589046890478904889049890508905189052890538905489055890568905789058890598906089061890628906389064890658906689067890688906989070890718907289073890748907589076890778907889079890808908189082890838908489085890868908789088890898909089091890928909389094890958909689097890988909989100891018910289103891048910589106891078910889109891108911189112891138911489115891168911789118891198912089121891228912389124891258912689127891288912989130891318913289133891348913589136891378913889139891408914189142891438914489145891468914789148891498915089151891528915389154891558915689157891588915989160891618916289163891648916589166891678916889169891708917189172891738917489175891768917789178891798918089181891828918389184891858918689187891888918989190891918919289193891948919589196891978919889199892008920189202892038920489205892068920789208892098921089211892128921389214892158921689217892188921989220892218922289223892248922589226892278922889229892308923189232892338923489235892368923789238892398924089241892428924389244892458924689247892488924989250892518925289253892548925589256892578925889259892608926189262892638926489265892668926789268892698927089271892728927389274892758927689277892788927989280892818928289283892848928589286892878928889289892908929189292892938929489295892968929789298892998930089301893028930389304893058930689307893088930989310893118931289313893148931589316893178931889319893208932189322893238932489325893268932789328893298933089331893328933389334893358933689337893388933989340893418934289343893448934589346893478934889349893508935189352893538935489355893568935789358893598936089361893628936389364893658936689367893688936989370893718937289373893748937589376893778937889379893808938189382893838938489385893868938789388893898939089391893928939389394893958939689397893988939989400894018940289403894048940589406894078940889409894108941189412894138941489415894168941789418894198942089421894228942389424894258942689427894288942989430894318943289433894348943589436894378943889439894408944189442894438944489445894468944789448894498945089451894528945389454894558945689457894588945989460894618946289463894648946589466894678946889469894708947189472894738947489475894768947789478894798948089481894828948389484894858948689487894888948989490894918949289493894948949589496894978949889499895008950189502895038950489505895068950789508895098951089511895128951389514895158951689517895188951989520895218952289523895248952589526895278952889529895308953189532895338953489535895368953789538895398954089541895428954389544895458954689547895488954989550895518955289553895548955589556895578955889559895608956189562895638956489565895668956789568895698957089571895728957389574895758957689577895788957989580895818958289583895848958589586895878958889589895908959189592895938959489595895968959789598895998960089601896028960389604896058960689607896088960989610896118961289613896148961589616896178961889619896208962189622896238962489625896268962789628896298963089631896328963389634896358963689637896388963989640896418964289643896448964589646896478964889649896508965189652896538965489655896568965789658896598966089661896628966389664896658966689667896688966989670896718967289673896748967589676896778967889679896808968189682896838968489685896868968789688896898969089691896928969389694896958969689697896988969989700897018970289703897048970589706897078970889709897108971189712897138971489715897168971789718897198972089721897228972389724897258972689727897288972989730897318973289733897348973589736897378973889739897408974189742897438974489745897468974789748897498975089751897528975389754897558975689757897588975989760897618976289763897648976589766897678976889769897708977189772897738977489775897768977789778897798978089781897828978389784897858978689787897888978989790897918979289793897948979589796897978979889799898008980189802898038980489805898068980789808898098981089811898128981389814898158981689817898188981989820898218982289823898248982589826898278982889829898308983189832898338983489835898368983789838898398984089841898428984389844898458984689847898488984989850898518985289853898548985589856898578985889859898608986189862898638986489865898668986789868898698987089871898728987389874898758987689877898788987989880898818988289883898848988589886898878988889889898908989189892898938989489895898968989789898898998990089901899028990389904899058990689907899088990989910899118991289913899148991589916899178991889919899208992189922899238992489925899268992789928899298993089931899328993389934899358993689937899388993989940899418994289943899448994589946899478994889949899508995189952899538995489955899568995789958899598996089961899628996389964899658996689967899688996989970899718997289973899748997589976899778997889979899808998189982899838998489985899868998789988899898999089991899928999389994899958999689997899988999990000900019000290003900049000590006900079000890009900109001190012900139001490015900169001790018900199002090021900229002390024900259002690027900289002990030900319003290033900349003590036900379003890039900409004190042900439004490045900469004790048900499005090051900529005390054900559005690057900589005990060900619006290063900649006590066900679006890069900709007190072900739007490075900769007790078900799008090081900829008390084900859008690087900889008990090900919009290093900949009590096900979009890099901009010190102901039010490105901069010790108901099011090111901129011390114901159011690117901189011990120901219012290123901249012590126901279012890129901309013190132901339013490135901369013790138901399014090141901429014390144901459014690147901489014990150901519015290153901549015590156901579015890159901609016190162901639016490165901669016790168901699017090171901729017390174901759017690177901789017990180901819018290183901849018590186901879018890189901909019190192901939019490195901969019790198901999020090201902029020390204902059020690207902089020990210902119021290213902149021590216902179021890219902209022190222902239022490225902269022790228902299023090231902329023390234902359023690237902389023990240902419024290243902449024590246902479024890249902509025190252902539025490255902569025790258902599026090261902629026390264902659026690267902689026990270902719027290273902749027590276902779027890279902809028190282902839028490285902869028790288902899029090291902929029390294902959029690297902989029990300903019030290303903049030590306903079030890309903109031190312903139031490315903169031790318903199032090321903229032390324903259032690327903289032990330903319033290333903349033590336903379033890339903409034190342903439034490345903469034790348903499035090351903529035390354903559035690357903589035990360903619036290363903649036590366903679036890369903709037190372903739037490375903769037790378903799038090381903829038390384903859038690387903889038990390903919039290393903949039590396903979039890399904009040190402904039040490405904069040790408904099041090411904129041390414904159041690417904189041990420904219042290423904249042590426904279042890429904309043190432904339043490435904369043790438904399044090441904429044390444904459044690447904489044990450904519045290453904549045590456904579045890459904609046190462904639046490465904669046790468904699047090471904729047390474904759047690477904789047990480904819048290483904849048590486904879048890489904909049190492904939049490495904969049790498904999050090501905029050390504905059050690507905089050990510905119051290513905149051590516905179051890519905209052190522905239052490525905269052790528905299053090531905329053390534905359053690537905389053990540905419054290543905449054590546905479054890549905509055190552905539055490555905569055790558905599056090561905629056390564905659056690567905689056990570905719057290573905749057590576905779057890579905809058190582905839058490585905869058790588905899059090591905929059390594905959059690597905989059990600906019060290603906049060590606906079060890609906109061190612906139061490615906169061790618906199062090621906229062390624906259062690627906289062990630906319063290633906349063590636906379063890639906409064190642906439064490645906469064790648906499065090651906529065390654906559065690657906589065990660906619066290663906649066590666906679066890669906709067190672906739067490675906769067790678906799068090681906829068390684906859068690687906889068990690906919069290693906949069590696906979069890699907009070190702907039070490705907069070790708907099071090711907129071390714907159071690717907189071990720907219072290723907249072590726907279072890729907309073190732907339073490735907369073790738907399074090741907429074390744907459074690747907489074990750907519075290753907549075590756907579075890759907609076190762907639076490765907669076790768907699077090771907729077390774907759077690777907789077990780907819078290783907849078590786907879078890789907909079190792907939079490795907969079790798907999080090801908029080390804908059080690807908089080990810908119081290813908149081590816908179081890819908209082190822908239082490825908269082790828908299083090831908329083390834908359083690837908389083990840908419084290843908449084590846908479084890849908509085190852908539085490855908569085790858908599086090861908629086390864908659086690867908689086990870908719087290873908749087590876908779087890879908809088190882908839088490885908869088790888908899089090891908929089390894908959089690897908989089990900909019090290903909049090590906909079090890909909109091190912909139091490915909169091790918909199092090921909229092390924909259092690927909289092990930909319093290933909349093590936909379093890939909409094190942909439094490945909469094790948909499095090951909529095390954909559095690957909589095990960909619096290963909649096590966909679096890969909709097190972909739097490975909769097790978909799098090981909829098390984909859098690987909889098990990909919099290993909949099590996909979099890999910009100191002910039100491005910069100791008910099101091011910129101391014910159101691017910189101991020910219102291023910249102591026910279102891029910309103191032910339103491035910369103791038910399104091041910429104391044910459104691047910489104991050910519105291053910549105591056910579105891059910609106191062910639106491065910669106791068910699107091071910729107391074910759107691077910789107991080910819108291083910849108591086910879108891089910909109191092910939109491095910969109791098910999110091101911029110391104911059110691107911089110991110911119111291113911149111591116911179111891119911209112191122911239112491125911269112791128911299113091131911329113391134911359113691137911389113991140911419114291143911449114591146911479114891149911509115191152911539115491155911569115791158911599116091161911629116391164911659116691167911689116991170911719117291173911749117591176911779117891179911809118191182911839118491185911869118791188911899119091191911929119391194911959119691197911989119991200912019120291203912049120591206912079120891209912109121191212912139121491215912169121791218912199122091221912229122391224912259122691227912289122991230912319123291233912349123591236912379123891239912409124191242912439124491245912469124791248912499125091251912529125391254912559125691257912589125991260912619126291263912649126591266912679126891269912709127191272912739127491275912769127791278912799128091281912829128391284912859128691287912889128991290912919129291293912949129591296912979129891299913009130191302913039130491305913069130791308913099131091311913129131391314913159131691317913189131991320913219132291323913249132591326913279132891329913309133191332913339133491335913369133791338913399134091341913429134391344913459134691347913489134991350913519135291353913549135591356913579135891359913609136191362913639136491365913669136791368913699137091371913729137391374913759137691377913789137991380913819138291383913849138591386913879138891389913909139191392913939139491395913969139791398913999140091401914029140391404914059140691407914089140991410914119141291413914149141591416914179141891419914209142191422914239142491425914269142791428914299143091431914329143391434914359143691437914389143991440914419144291443914449144591446914479144891449914509145191452914539145491455914569145791458914599146091461914629146391464914659146691467914689146991470914719147291473914749147591476914779147891479914809148191482914839148491485914869148791488914899149091491914929149391494914959149691497914989149991500915019150291503915049150591506915079150891509915109151191512915139151491515915169151791518915199152091521915229152391524915259152691527915289152991530915319153291533915349153591536915379153891539915409154191542915439154491545915469154791548915499155091551915529155391554915559155691557915589155991560915619156291563915649156591566915679156891569915709157191572915739157491575915769157791578915799158091581915829158391584915859158691587915889158991590915919159291593915949159591596915979159891599916009160191602916039160491605916069160791608916099161091611916129161391614916159161691617916189161991620916219162291623916249162591626916279162891629916309163191632916339163491635916369163791638916399164091641916429164391644916459164691647916489164991650916519165291653916549165591656916579165891659916609166191662916639166491665916669166791668916699167091671916729167391674916759167691677916789167991680916819168291683916849168591686916879168891689916909169191692916939169491695916969169791698916999170091701917029170391704917059170691707917089170991710917119171291713917149171591716917179171891719917209172191722917239172491725917269172791728917299173091731917329173391734917359173691737917389173991740917419174291743917449174591746917479174891749917509175191752917539175491755917569175791758917599176091761917629176391764917659176691767917689176991770917719177291773917749177591776917779177891779917809178191782917839178491785917869178791788917899179091791917929179391794917959179691797917989179991800918019180291803918049180591806918079180891809918109181191812918139181491815918169181791818918199182091821918229182391824918259182691827918289182991830918319183291833918349183591836918379183891839918409184191842918439184491845918469184791848918499185091851918529185391854918559185691857918589185991860918619186291863918649186591866918679186891869918709187191872918739187491875918769187791878918799188091881918829188391884918859188691887918889188991890918919189291893918949189591896918979189891899919009190191902919039190491905919069190791908919099191091911919129191391914919159191691917919189191991920919219192291923919249192591926919279192891929919309193191932919339193491935919369193791938919399194091941919429194391944919459194691947919489194991950919519195291953919549195591956919579195891959919609196191962919639196491965919669196791968919699197091971919729197391974919759197691977919789197991980919819198291983919849198591986919879198891989919909199191992919939199491995919969199791998919999200092001920029200392004920059200692007920089200992010920119201292013920149201592016920179201892019920209202192022920239202492025920269202792028920299203092031920329203392034920359203692037920389203992040920419204292043920449204592046920479204892049920509205192052920539205492055920569205792058920599206092061920629206392064920659206692067920689206992070920719207292073920749207592076920779207892079920809208192082920839208492085920869208792088920899209092091920929209392094920959209692097920989209992100921019210292103921049210592106921079210892109921109211192112921139211492115921169211792118921199212092121921229212392124921259212692127921289212992130921319213292133921349213592136921379213892139921409214192142921439214492145921469214792148921499215092151921529215392154921559215692157921589215992160921619216292163921649216592166921679216892169921709217192172921739217492175921769217792178921799218092181921829218392184921859218692187921889218992190921919219292193921949219592196921979219892199922009220192202922039220492205922069220792208922099221092211922129221392214922159221692217922189221992220922219222292223922249222592226922279222892229922309223192232922339223492235922369223792238922399224092241922429224392244922459224692247922489224992250922519225292253922549225592256922579225892259922609226192262922639226492265922669226792268922699227092271922729227392274922759227692277922789227992280922819228292283922849228592286922879228892289922909229192292922939229492295922969229792298922999230092301923029230392304923059230692307923089230992310923119231292313923149231592316923179231892319923209232192322923239232492325923269232792328923299233092331923329233392334923359233692337923389233992340923419234292343923449234592346923479234892349923509235192352923539235492355923569235792358923599236092361923629236392364923659236692367923689236992370923719237292373923749237592376923779237892379923809238192382923839238492385923869238792388923899239092391923929239392394923959239692397923989239992400924019240292403924049240592406924079240892409924109241192412924139241492415924169241792418924199242092421924229242392424924259242692427924289242992430924319243292433924349243592436924379243892439924409244192442924439244492445924469244792448924499245092451924529245392454924559245692457924589245992460924619246292463924649246592466924679246892469924709247192472924739247492475924769247792478924799248092481924829248392484924859248692487924889248992490924919249292493924949249592496924979249892499925009250192502925039250492505925069250792508925099251092511925129251392514925159251692517925189251992520925219252292523925249252592526925279252892529925309253192532925339253492535925369253792538925399254092541925429254392544925459254692547925489254992550925519255292553925549255592556925579255892559925609256192562925639256492565925669256792568925699257092571925729257392574925759257692577925789257992580925819258292583925849258592586925879258892589925909259192592925939259492595925969259792598925999260092601926029260392604926059260692607926089260992610926119261292613926149261592616926179261892619926209262192622926239262492625926269262792628926299263092631926329263392634926359263692637926389263992640926419264292643926449264592646926479264892649926509265192652926539265492655926569265792658926599266092661926629266392664926659266692667926689266992670926719267292673926749267592676926779267892679926809268192682926839268492685926869268792688926899269092691926929269392694926959269692697926989269992700927019270292703927049270592706927079270892709927109271192712927139271492715927169271792718927199272092721927229272392724927259272692727927289272992730927319273292733927349273592736927379273892739927409274192742927439274492745927469274792748927499275092751927529275392754927559275692757927589275992760927619276292763927649276592766927679276892769927709277192772927739277492775927769277792778927799278092781927829278392784927859278692787927889278992790927919279292793927949279592796927979279892799928009280192802928039280492805928069280792808928099281092811928129281392814928159281692817928189281992820928219282292823928249282592826928279282892829928309283192832928339283492835928369283792838928399284092841928429284392844928459284692847928489284992850928519285292853928549285592856928579285892859928609286192862928639286492865928669286792868928699287092871928729287392874928759287692877928789287992880928819288292883928849288592886928879288892889928909289192892928939289492895928969289792898928999290092901929029290392904929059290692907929089290992910929119291292913929149291592916929179291892919929209292192922929239292492925929269292792928929299293092931929329293392934929359293692937929389293992940929419294292943929449294592946929479294892949929509295192952929539295492955929569295792958929599296092961929629296392964929659296692967929689296992970929719297292973929749297592976929779297892979929809298192982929839298492985929869298792988929899299092991929929299392994929959299692997929989299993000930019300293003930049300593006930079300893009930109301193012930139301493015930169301793018930199302093021930229302393024930259302693027930289302993030930319303293033930349303593036930379303893039930409304193042930439304493045930469304793048930499305093051930529305393054930559305693057930589305993060930619306293063930649306593066930679306893069930709307193072930739307493075930769307793078930799308093081930829308393084930859308693087930889308993090930919309293093930949309593096930979309893099931009310193102931039310493105931069310793108931099311093111931129311393114931159311693117931189311993120931219312293123931249312593126931279312893129931309313193132931339313493135931369313793138931399314093141931429314393144931459314693147931489314993150931519315293153931549315593156931579315893159931609316193162931639316493165931669316793168931699317093171931729317393174931759317693177931789317993180931819318293183931849318593186931879318893189931909319193192931939319493195931969319793198931999320093201932029320393204932059320693207932089320993210932119321293213932149321593216932179321893219932209322193222932239322493225932269322793228932299323093231932329323393234932359323693237932389323993240932419324293243932449324593246932479324893249932509325193252932539325493255932569325793258932599326093261932629326393264932659326693267932689326993270932719327293273932749327593276932779327893279932809328193282932839328493285932869328793288932899329093291932929329393294932959329693297932989329993300933019330293303933049330593306933079330893309933109331193312933139331493315933169331793318933199332093321933229332393324933259332693327933289332993330933319333293333933349333593336933379333893339933409334193342933439334493345933469334793348933499335093351933529335393354933559335693357933589335993360933619336293363933649336593366933679336893369933709337193372933739337493375933769337793378933799338093381933829338393384933859338693387933889338993390933919339293393933949339593396933979339893399934009340193402934039340493405934069340793408934099341093411934129341393414934159341693417934189341993420934219342293423934249342593426934279342893429934309343193432934339343493435934369343793438934399344093441934429344393444934459344693447934489344993450934519345293453934549345593456934579345893459934609346193462934639346493465934669346793468934699347093471934729347393474934759347693477934789347993480934819348293483934849348593486934879348893489934909349193492934939349493495934969349793498934999350093501935029350393504935059350693507935089350993510935119351293513935149351593516935179351893519935209352193522935239352493525935269352793528935299353093531935329353393534935359353693537935389353993540935419354293543935449354593546935479354893549935509355193552935539355493555935569355793558935599356093561935629356393564935659356693567935689356993570935719357293573935749357593576935779357893579935809358193582935839358493585935869358793588935899359093591935929359393594935959359693597935989359993600936019360293603936049360593606936079360893609936109361193612936139361493615936169361793618936199362093621936229362393624936259362693627936289362993630936319363293633936349363593636936379363893639936409364193642936439364493645936469364793648936499365093651936529365393654936559365693657936589365993660936619366293663936649366593666936679366893669936709367193672936739367493675936769367793678936799368093681936829368393684936859368693687936889368993690936919369293693936949369593696936979369893699937009370193702937039370493705937069370793708937099371093711937129371393714937159371693717937189371993720937219372293723937249372593726937279372893729937309373193732937339373493735937369373793738937399374093741937429374393744937459374693747937489374993750937519375293753937549375593756937579375893759937609376193762937639376493765937669376793768937699377093771937729377393774937759377693777937789377993780937819378293783937849378593786937879378893789937909379193792937939379493795937969379793798937999380093801938029380393804938059380693807938089380993810938119381293813938149381593816938179381893819938209382193822938239382493825938269382793828938299383093831938329383393834938359383693837938389383993840938419384293843938449384593846938479384893849938509385193852938539385493855938569385793858938599386093861938629386393864938659386693867938689386993870938719387293873938749387593876938779387893879938809388193882938839388493885938869388793888938899389093891938929389393894938959389693897938989389993900939019390293903939049390593906939079390893909939109391193912939139391493915939169391793918939199392093921939229392393924939259392693927939289392993930939319393293933939349393593936939379393893939939409394193942939439394493945939469394793948939499395093951939529395393954939559395693957939589395993960939619396293963939649396593966939679396893969939709397193972939739397493975939769397793978939799398093981939829398393984939859398693987939889398993990939919399293993939949399593996939979399893999940009400194002940039400494005940069400794008940099401094011940129401394014940159401694017940189401994020940219402294023940249402594026940279402894029940309403194032940339403494035940369403794038940399404094041940429404394044940459404694047940489404994050940519405294053940549405594056940579405894059940609406194062940639406494065940669406794068940699407094071940729407394074940759407694077940789407994080940819408294083940849408594086940879408894089940909409194092940939409494095940969409794098940999410094101941029410394104941059410694107941089410994110941119411294113941149411594116941179411894119941209412194122941239412494125941269412794128941299413094131941329413394134941359413694137941389413994140941419414294143941449414594146941479414894149941509415194152941539415494155941569415794158941599416094161941629416394164941659416694167941689416994170941719417294173941749417594176941779417894179941809418194182941839418494185941869418794188941899419094191941929419394194941959419694197941989419994200942019420294203942049420594206942079420894209942109421194212942139421494215942169421794218942199422094221942229422394224942259422694227942289422994230942319423294233942349423594236942379423894239942409424194242942439424494245942469424794248942499425094251942529425394254942559425694257942589425994260942619426294263942649426594266942679426894269942709427194272942739427494275942769427794278942799428094281942829428394284942859428694287942889428994290942919429294293942949429594296942979429894299943009430194302943039430494305943069430794308943099431094311943129431394314943159431694317943189431994320943219432294323943249432594326943279432894329943309433194332943339433494335943369433794338943399434094341943429434394344943459434694347943489434994350943519435294353943549435594356943579435894359943609436194362943639436494365943669436794368943699437094371943729437394374943759437694377943789437994380943819438294383943849438594386943879438894389943909439194392943939439494395943969439794398943999440094401944029440394404944059440694407944089440994410944119441294413944149441594416944179441894419944209442194422944239442494425944269442794428944299443094431944329443394434944359443694437944389443994440944419444294443944449444594446944479444894449944509445194452944539445494455944569445794458944599446094461944629446394464944659446694467944689446994470944719447294473944749447594476944779447894479944809448194482944839448494485944869448794488944899449094491944929449394494944959449694497944989449994500945019450294503945049450594506945079450894509945109451194512945139451494515945169451794518945199452094521945229452394524945259452694527945289452994530945319453294533945349453594536945379453894539945409454194542945439454494545945469454794548945499455094551945529455394554945559455694557945589455994560945619456294563945649456594566945679456894569945709457194572945739457494575945769457794578945799458094581945829458394584945859458694587945889458994590945919459294593945949459594596945979459894599946009460194602946039460494605946069460794608946099461094611946129461394614946159461694617946189461994620946219462294623946249462594626946279462894629946309463194632946339463494635946369463794638946399464094641946429464394644946459464694647946489464994650946519465294653946549465594656946579465894659946609466194662946639466494665946669466794668946699467094671946729467394674946759467694677946789467994680946819468294683946849468594686946879468894689946909469194692946939469494695946969469794698946999470094701947029470394704947059470694707947089470994710947119471294713947149471594716947179471894719947209472194722947239472494725947269472794728947299473094731947329473394734947359473694737947389473994740947419474294743947449474594746947479474894749947509475194752947539475494755947569475794758947599476094761947629476394764947659476694767947689476994770947719477294773947749477594776947779477894779947809478194782947839478494785947869478794788947899479094791947929479394794947959479694797947989479994800948019480294803948049480594806948079480894809948109481194812948139481494815948169481794818948199482094821948229482394824948259482694827948289482994830948319483294833948349483594836948379483894839948409484194842948439484494845948469484794848948499485094851948529485394854948559485694857948589485994860948619486294863948649486594866948679486894869948709487194872948739487494875948769487794878948799488094881948829488394884948859488694887948889488994890948919489294893948949489594896948979489894899949009490194902949039490494905949069490794908949099491094911949129491394914949159491694917949189491994920949219492294923949249492594926949279492894929949309493194932949339493494935949369493794938949399494094941949429494394944949459494694947949489494994950949519495294953949549495594956949579495894959949609496194962949639496494965949669496794968949699497094971949729497394974949759497694977949789497994980949819498294983949849498594986949879498894989949909499194992949939499494995949969499794998949999500095001950029500395004950059500695007950089500995010950119501295013950149501595016950179501895019950209502195022950239502495025950269502795028950299503095031950329503395034950359503695037950389503995040950419504295043950449504595046950479504895049950509505195052950539505495055950569505795058950599506095061950629506395064950659506695067950689506995070950719507295073950749507595076950779507895079950809508195082950839508495085950869508795088950899509095091950929509395094950959509695097950989509995100951019510295103951049510595106951079510895109951109511195112951139511495115951169511795118
  1. /*
  2. * Single source autogenerated distributable for Duktape 2.2.0.
  3. *
  4. * Git commit a459cf3c9bd1779fc01b435d69302b742675a08f (v2.2.0).
  5. * Git branch master.
  6. *
  7. * See Duktape AUTHORS.rst and LICENSE.txt for copyright and
  8. * licensing information.
  9. */
  10. /* LICENSE.txt */
  11. /*
  12. * ===============
  13. * Duktape license
  14. * ===============
  15. *
  16. * (http://opensource.org/licenses/MIT)
  17. *
  18. * Copyright (c) 2013-2017 by Duktape authors (see AUTHORS.rst)
  19. *
  20. * Permission is hereby granted, free of charge, to any person obtaining a copy
  21. * of this software and associated documentation files (the "Software"), to deal
  22. * in the Software without restriction, including without limitation the rights
  23. * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  24. * copies of the Software, and to permit persons to whom the Software is
  25. * furnished to do so, subject to the following conditions:
  26. *
  27. * The above copyright notice and this permission notice shall be included in
  28. * all copies or substantial portions of the Software.
  29. *
  30. * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  31. * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  32. * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  33. * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  34. * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  35. * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  36. * THE SOFTWARE.
  37. */
  38. /* AUTHORS.rst */
  39. /*
  40. * ===============
  41. * Duktape authors
  42. * ===============
  43. *
  44. * Copyright
  45. * =========
  46. *
  47. * Duktape copyrights are held by its authors. Each author has a copyright
  48. * to their contribution, and agrees to irrevocably license the contribution
  49. * under the Duktape ``LICENSE.txt``.
  50. *
  51. * Authors
  52. * =======
  53. *
  54. * Please include an e-mail address, a link to your GitHub profile, or something
  55. * similar to allow your contribution to be identified accurately.
  56. *
  57. * The following people have contributed code, website contents, or Wiki contents,
  58. * and agreed to irrevocably license their contributions under the Duktape
  59. * ``LICENSE.txt`` (in order of appearance):
  60. *
  61. * * Sami Vaarala <sami.vaarala@iki.fi>
  62. * * Niki Dobrev
  63. * * Andreas \u00d6man <andreas@lonelycoder.com>
  64. * * L\u00e1szl\u00f3 Lang\u00f3 <llango.u-szeged@partner.samsung.com>
  65. * * Legimet <legimet.calc@gmail.com>
  66. * * Karl Skomski <karl@skomski.com>
  67. * * Bruce Pascoe <fatcerberus1@gmail.com>
  68. * * Ren\u00e9 Hollander <rene@rene8888.at>
  69. * * Julien Hamaide (https://github.com/crazyjul)
  70. * * Sebastian G\u00f6tte (https://github.com/jaseg)
  71. * * Tomasz Magulski (https://github.com/magul)
  72. * * \D. Bohdan (https://github.com/dbohdan)
  73. * * Ond\u0159ej Jirman (https://github.com/megous)
  74. * * Sa\u00fal Ibarra Corretg\u00e9 <saghul@gmail.com>
  75. * * Jeremy HU <huxingyi@msn.com>
  76. * * Ole Andr\u00e9 Vadla Ravn\u00e5s (https://github.com/oleavr)
  77. * * Harold Brenes (https://github.com/harold-b)
  78. * * Oliver Crow (https://github.com/ocrow)
  79. * * Jakub Ch\u0142api\u0144ski (https://github.com/jchlapinski)
  80. * * Brett Vickers (https://github.com/beevik)
  81. * * Dominik Okwieka (https://github.com/okitec)
  82. * * Remko Tron\u00e7on (https://el-tramo.be)
  83. * * Romero Malaquias (rbsm@ic.ufal.br)
  84. * * Michael Drake <michael.drake@codethink.co.uk>
  85. * * Steven Don (https://github.com/shdon)
  86. * * Simon Stone (https://github.com/sstone1)
  87. * * \J. McC. (https://github.com/jmhmccr)
  88. *
  89. * Other contributions
  90. * ===================
  91. *
  92. * The following people have contributed something other than code (e.g. reported
  93. * bugs, provided ideas, etc; roughly in order of appearance):
  94. *
  95. * * Greg Burns
  96. * * Anthony Rabine
  97. * * Carlos Costa
  98. * * Aur\u00e9lien Bouilland
  99. * * Preet Desai (Pris Matic)
  100. * * judofyr (http://www.reddit.com/user/judofyr)
  101. * * Jason Woofenden
  102. * * Micha\u0142 Przyby\u015b
  103. * * Anthony Howe
  104. * * Conrad Pankoff
  105. * * Jim Schimpf
  106. * * Rajaran Gaunker (https://github.com/zimbabao)
  107. * * Andreas \u00d6man
  108. * * Doug Sanden
  109. * * Josh Engebretson (https://github.com/JoshEngebretson)
  110. * * Remo Eichenberger (https://github.com/remoe)
  111. * * Mamod Mehyar (https://github.com/mamod)
  112. * * David Demelier (https://github.com/markand)
  113. * * Tim Caswell (https://github.com/creationix)
  114. * * Mitchell Blank Jr (https://github.com/mitchblank)
  115. * * https://github.com/yushli
  116. * * Seo Sanghyeon (https://github.com/sanxiyn)
  117. * * Han ChoongWoo (https://github.com/tunz)
  118. * * Joshua Peek (https://github.com/josh)
  119. * * Bruce E. Pascoe (https://github.com/fatcerberus)
  120. * * https://github.com/Kelledin
  121. * * https://github.com/sstruchtrup
  122. * * Michael Drake (https://github.com/tlsa)
  123. * * https://github.com/chris-y
  124. * * Laurent Zubiaur (https://github.com/lzubiaur)
  125. * * Neil Kolban (https://github.com/nkolban)
  126. *
  127. * If you are accidentally missing from this list, send me an e-mail
  128. * (``sami.vaarala@iki.fi``) and I'll fix the omission.
  129. */
  130. #line 1 "duk_replacements.c"
  131. /*
  132. * Replacements for missing platform functions.
  133. *
  134. * Unlike the originals, fpclassify() and signbit() replacements don't
  135. * work on any floating point types, only doubles. The C typing here
  136. * mimics the standard prototypes.
  137. */
  138. /* #include duk_internal.h */
  139. #line 1 "duk_internal.h"
  140. /*
  141. * Top-level include file to be used for all (internal) source files.
  142. *
  143. * Source files should not include individual header files, as they
  144. * have not been designed to be individually included.
  145. */
  146. #if !defined(DUK_INTERNAL_H_INCLUDED)
  147. #define DUK_INTERNAL_H_INCLUDED
  148. /*
  149. * The 'duktape.h' header provides the public API, but also handles all
  150. * compiler and platform specific feature detection, Duktape feature
  151. * resolution, inclusion of system headers, etc. These have been merged
  152. * because the public API is also dependent on e.g. detecting appropriate
  153. * C types which is quite platform/compiler specific especially for a non-C99
  154. * build. The public API is also dependent on the resolved feature set.
  155. *
  156. * Some actions taken by the merged header (such as including system headers)
  157. * are not appropriate for building a user application. The define
  158. * DUK_COMPILING_DUKTAPE allows the merged header to skip/include some
  159. * sections depending on what is being built.
  160. */
  161. #define DUK_COMPILING_DUKTAPE
  162. #include "duktape.h"
  163. /*
  164. * User declarations, e.g. prototypes for user functions used by Duktape
  165. * macros.
  166. */
  167. DUK_USE_USER_DECLARE()
  168. /*
  169. * Duktape includes (other than duk_features.h)
  170. *
  171. * The header files expect to be included in an order which satisfies header
  172. * dependencies correctly (the headers themselves don't include any other
  173. * includes). Forward declarations are used to break circular struct/typedef
  174. * dependencies.
  175. */
  176. /* #include duk_dblunion.h */
  177. #line 1 "duk_dblunion.h"
  178. /*
  179. * Union to access IEEE double memory representation, indexes for double
  180. * memory representation, and some macros for double manipulation.
  181. *
  182. * Also used by packed duk_tval. Use a union for bit manipulation to
  183. * minimize aliasing issues in practice. The C99 standard does not
  184. * guarantee that this should work, but it's a very widely supported
  185. * practice for low level manipulation.
  186. *
  187. * IEEE double format summary:
  188. *
  189. * seeeeeee eeeeffff ffffffff ffffffff ffffffff ffffffff ffffffff ffffffff
  190. * A B C D E F G H
  191. *
  192. * s sign bit
  193. * eee... exponent field
  194. * fff... fraction
  195. *
  196. * See http://en.wikipedia.org/wiki/Double_precision_floating-point_format.
  197. *
  198. * NaNs are represented as exponent 0x7ff and mantissa != 0. The NaN is a
  199. * signaling NaN when the highest bit of the mantissa is zero, and a quiet
  200. * NaN when the highest bit is set.
  201. *
  202. * At least three memory layouts are relevant here:
  203. *
  204. * A B C D E F G H Big endian (e.g. 68k) DUK_USE_DOUBLE_BE
  205. * H G F E D C B A Little endian (e.g. x86) DUK_USE_DOUBLE_LE
  206. * D C B A H G F E Mixed/cross endian (e.g. ARM) DUK_USE_DOUBLE_ME
  207. *
  208. * ARM is a special case: ARM double values are in mixed/cross endian
  209. * format while ARM duk_uint64_t values are in standard little endian
  210. * format (H G F E D C B A). When a double is read as a duk_uint64_t
  211. * from memory, the register will contain the (logical) value
  212. * E F G H A B C D. This requires some special handling below.
  213. *
  214. * Indexes of various types (8-bit, 16-bit, 32-bit) in memory relative to
  215. * the logical (big endian) order:
  216. *
  217. * byte order duk_uint8_t duk_uint16_t duk_uint32_t
  218. * BE 01234567 0123 01
  219. * LE 76543210 3210 10
  220. * ME (ARM) 32107654 1032 01
  221. *
  222. * Some processors may alter NaN values in a floating point load+store.
  223. * For instance, on X86 a FLD + FSTP may convert a signaling NaN to a
  224. * quiet one. This is catastrophic when NaN space is used in packed
  225. * duk_tval values. See: misc/clang_aliasing.c.
  226. */
  227. #if !defined(DUK_DBLUNION_H_INCLUDED)
  228. #define DUK_DBLUNION_H_INCLUDED
  229. /*
  230. * Union for accessing double parts, also serves as packed duk_tval
  231. */
  232. union duk_double_union {
  233. double d;
  234. float f[2];
  235. #if defined(DUK_USE_64BIT_OPS)
  236. duk_uint64_t ull[1];
  237. #endif
  238. duk_uint32_t ui[2];
  239. duk_uint16_t us[4];
  240. duk_uint8_t uc[8];
  241. #if defined(DUK_USE_PACKED_TVAL)
  242. void *vp[2]; /* used by packed duk_tval, assumes sizeof(void *) == 4 */
  243. #endif
  244. };
  245. typedef union duk_double_union duk_double_union;
  246. /*
  247. * Indexes of various types with respect to big endian (logical) layout
  248. */
  249. #if defined(DUK_USE_DOUBLE_LE)
  250. #if defined(DUK_USE_64BIT_OPS)
  251. #define DUK_DBL_IDX_ULL0 0
  252. #endif
  253. #define DUK_DBL_IDX_UI0 1
  254. #define DUK_DBL_IDX_UI1 0
  255. #define DUK_DBL_IDX_US0 3
  256. #define DUK_DBL_IDX_US1 2
  257. #define DUK_DBL_IDX_US2 1
  258. #define DUK_DBL_IDX_US3 0
  259. #define DUK_DBL_IDX_UC0 7
  260. #define DUK_DBL_IDX_UC1 6
  261. #define DUK_DBL_IDX_UC2 5
  262. #define DUK_DBL_IDX_UC3 4
  263. #define DUK_DBL_IDX_UC4 3
  264. #define DUK_DBL_IDX_UC5 2
  265. #define DUK_DBL_IDX_UC6 1
  266. #define DUK_DBL_IDX_UC7 0
  267. #define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
  268. #define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
  269. #elif defined(DUK_USE_DOUBLE_BE)
  270. #if defined(DUK_USE_64BIT_OPS)
  271. #define DUK_DBL_IDX_ULL0 0
  272. #endif
  273. #define DUK_DBL_IDX_UI0 0
  274. #define DUK_DBL_IDX_UI1 1
  275. #define DUK_DBL_IDX_US0 0
  276. #define DUK_DBL_IDX_US1 1
  277. #define DUK_DBL_IDX_US2 2
  278. #define DUK_DBL_IDX_US3 3
  279. #define DUK_DBL_IDX_UC0 0
  280. #define DUK_DBL_IDX_UC1 1
  281. #define DUK_DBL_IDX_UC2 2
  282. #define DUK_DBL_IDX_UC3 3
  283. #define DUK_DBL_IDX_UC4 4
  284. #define DUK_DBL_IDX_UC5 5
  285. #define DUK_DBL_IDX_UC6 6
  286. #define DUK_DBL_IDX_UC7 7
  287. #define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
  288. #define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
  289. #elif defined(DUK_USE_DOUBLE_ME)
  290. #if defined(DUK_USE_64BIT_OPS)
  291. #define DUK_DBL_IDX_ULL0 0 /* not directly applicable, byte order differs from a double */
  292. #endif
  293. #define DUK_DBL_IDX_UI0 0
  294. #define DUK_DBL_IDX_UI1 1
  295. #define DUK_DBL_IDX_US0 1
  296. #define DUK_DBL_IDX_US1 0
  297. #define DUK_DBL_IDX_US2 3
  298. #define DUK_DBL_IDX_US3 2
  299. #define DUK_DBL_IDX_UC0 3
  300. #define DUK_DBL_IDX_UC1 2
  301. #define DUK_DBL_IDX_UC2 1
  302. #define DUK_DBL_IDX_UC3 0
  303. #define DUK_DBL_IDX_UC4 7
  304. #define DUK_DBL_IDX_UC5 6
  305. #define DUK_DBL_IDX_UC6 5
  306. #define DUK_DBL_IDX_UC7 4
  307. #define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */
  308. #define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */
  309. #else
  310. #error internal error
  311. #endif
  312. /*
  313. * Helper macros for reading/writing memory representation parts, used
  314. * by duk_numconv.c and duk_tval.h.
  315. */
  316. #define DUK_DBLUNION_SET_DOUBLE(u,v) do { \
  317. (u)->d = (v); \
  318. } while (0)
  319. #define DUK_DBLUNION_SET_HIGH32(u,v) do { \
  320. (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \
  321. } while (0)
  322. #if defined(DUK_USE_64BIT_OPS)
  323. #if defined(DUK_USE_DOUBLE_ME)
  324. #define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
  325. (u)->ull[DUK_DBL_IDX_ULL0] = (duk_uint64_t) (v); \
  326. } while (0)
  327. #else
  328. #define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
  329. (u)->ull[DUK_DBL_IDX_ULL0] = ((duk_uint64_t) (v)) << 32; \
  330. } while (0)
  331. #endif
  332. #else /* DUK_USE_64BIT_OPS */
  333. #define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \
  334. (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \
  335. (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0; \
  336. } while (0)
  337. #endif /* DUK_USE_64BIT_OPS */
  338. #define DUK_DBLUNION_SET_LOW32(u,v) do { \
  339. (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (v); \
  340. } while (0)
  341. #define DUK_DBLUNION_GET_DOUBLE(u) ((u)->d)
  342. #define DUK_DBLUNION_GET_HIGH32(u) ((u)->ui[DUK_DBL_IDX_UI0])
  343. #define DUK_DBLUNION_GET_LOW32(u) ((u)->ui[DUK_DBL_IDX_UI1])
  344. #if defined(DUK_USE_64BIT_OPS)
  345. #if defined(DUK_USE_DOUBLE_ME)
  346. #define DUK_DBLUNION_SET_UINT64(u,v) do { \
  347. (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) ((v) >> 32); \
  348. (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (v); \
  349. } while (0)
  350. #define DUK_DBLUNION_GET_UINT64(u) \
  351. ((((duk_uint64_t) (u)->ui[DUK_DBL_IDX_UI0]) << 32) | \
  352. ((duk_uint64_t) (u)->ui[DUK_DBL_IDX_UI1]))
  353. #else
  354. #define DUK_DBLUNION_SET_UINT64(u,v) do { \
  355. (u)->ull[DUK_DBL_IDX_ULL0] = (duk_uint64_t) (v); \
  356. } while (0)
  357. #define DUK_DBLUNION_GET_UINT64(u) ((u)->ull[DUK_DBL_IDX_ULL0])
  358. #endif
  359. #define DUK_DBLUNION_SET_INT64(u,v) DUK_DBLUNION_SET_UINT64((u), (duk_uint64_t) (v))
  360. #define DUK_DBLUNION_GET_INT64(u) ((duk_int64_t) DUK_DBLUNION_GET_UINT64((u)))
  361. #endif /* DUK_USE_64BIT_OPS */
  362. /*
  363. * Double NaN manipulation macros related to NaN normalization needed when
  364. * using the packed duk_tval representation. NaN normalization is necessary
  365. * to keep double values compatible with the duk_tval format.
  366. *
  367. * When packed duk_tval is used, the NaN space is used to store pointers
  368. * and other tagged values in addition to NaNs. Actual NaNs are normalized
  369. * to a specific quiet NaN. The macros below are used by the implementation
  370. * to check and normalize NaN values when they might be created. The macros
  371. * are essentially NOPs when the non-packed duk_tval representation is used.
  372. *
  373. * A FULL check is exact and checks all bits. A NOTFULL check is used by
  374. * the packed duk_tval and works correctly for all NaNs except those that
  375. * begin with 0x7ff0. Since the 'normalized NaN' values used with packed
  376. * duk_tval begin with 0x7ff8, the partial check is reliable when packed
  377. * duk_tval is used. The 0x7ff8 prefix means the normalized NaN will be a
  378. * quiet NaN regardless of its remaining lower bits.
  379. *
  380. * The ME variant below is specifically for ARM byte order, which has the
  381. * feature that while doubles have a mixed byte order (32107654), unsigned
  382. * long long values has a little endian byte order (76543210). When writing
  383. * a logical double value through a ULL pointer, the 32-bit words need to be
  384. * swapped; hence the #if defined()s below for ULL writes with DUK_USE_DOUBLE_ME.
  385. * This is not full ARM support but suffices for some environments.
  386. */
  387. #if defined(DUK_USE_64BIT_OPS)
  388. #if defined(DUK_USE_DOUBLE_ME)
  389. /* Macros for 64-bit ops + mixed endian doubles. */
  390. #define DUK__DBLUNION_SET_NAN_FULL(u) do { \
  391. (u)->ull[DUK_DBL_IDX_ULL0] = DUK_U64_CONSTANT(0x000000007ff80000); \
  392. } while (0)
  393. #define DUK__DBLUNION_IS_NAN_FULL(u) \
  394. ((((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000)) == DUK_U64_CONSTANT(0x000000007ff00000)) && \
  395. ((((u)->ull[DUK_DBL_IDX_ULL0]) & DUK_U64_CONSTANT(0xffffffff000fffff)) != 0))
  396. #define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
  397. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x000000007ff80000))
  398. #define DUK__DBLUNION_IS_ANYINF(u) \
  399. (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0xffffffff7fffffff)) == DUK_U64_CONSTANT(0x000000007ff00000))
  400. #define DUK__DBLUNION_IS_POSINF(u) \
  401. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x000000007ff00000))
  402. #define DUK__DBLUNION_IS_NEGINF(u) \
  403. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x00000000fff00000))
  404. #define DUK__DBLUNION_IS_ANYZERO(u) \
  405. (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0xffffffff7fffffff)) == DUK_U64_CONSTANT(0x0000000000000000))
  406. #define DUK__DBLUNION_IS_POSZERO(u) \
  407. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000000000000))
  408. #define DUK__DBLUNION_IS_NEGZERO(u) \
  409. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000080000000))
  410. #else
  411. /* Macros for 64-bit ops + big/little endian doubles. */
  412. #define DUK__DBLUNION_SET_NAN_FULL(u) do { \
  413. (u)->ull[DUK_DBL_IDX_ULL0] = DUK_U64_CONSTANT(0x7ff8000000000000); \
  414. } while (0)
  415. #define DUK__DBLUNION_IS_NAN_FULL(u) \
  416. ((((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000)) == DUK_U64_CONSTANT(0x7ff0000000000000)) && \
  417. ((((u)->ull[DUK_DBL_IDX_ULL0]) & DUK_U64_CONSTANT(0x000fffffffffffff)) != 0))
  418. #define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
  419. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x7ff8000000000000))
  420. #define DUK__DBLUNION_IS_ANYINF(u) \
  421. (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7fffffffffffffff)) == DUK_U64_CONSTANT(0x7ff0000000000000))
  422. #define DUK__DBLUNION_IS_POSINF(u) \
  423. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x7ff0000000000000))
  424. #define DUK__DBLUNION_IS_NEGINF(u) \
  425. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0xfff0000000000000))
  426. #define DUK__DBLUNION_IS_ANYZERO(u) \
  427. (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7fffffffffffffff)) == DUK_U64_CONSTANT(0x0000000000000000))
  428. #define DUK__DBLUNION_IS_POSZERO(u) \
  429. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000000000000))
  430. #define DUK__DBLUNION_IS_NEGZERO(u) \
  431. ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x8000000000000000))
  432. #endif
  433. #else /* DUK_USE_64BIT_OPS */
  434. /* Macros for no 64-bit ops, any endianness. */
  435. #define DUK__DBLUNION_SET_NAN_FULL(u) do { \
  436. (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) 0x7ff80000UL; \
  437. (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0x00000000UL; \
  438. } while (0)
  439. #define DUK__DBLUNION_IS_NAN_FULL(u) \
  440. ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL) == 0x7ff00000UL) && \
  441. (((u)->ui[DUK_DBL_IDX_UI0] & 0x000fffffUL) != 0 || \
  442. (u)->ui[DUK_DBL_IDX_UI1] != 0))
  443. #define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \
  444. (((u)->ui[DUK_DBL_IDX_UI0] == 0x7ff80000UL) && \
  445. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  446. #define DUK__DBLUNION_IS_ANYINF(u) \
  447. ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7fffffffUL) == 0x7ff00000UL) && \
  448. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  449. #define DUK__DBLUNION_IS_POSINF(u) \
  450. (((u)->ui[DUK_DBL_IDX_UI0] == 0x7ff00000UL) && \
  451. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  452. #define DUK__DBLUNION_IS_NEGINF(u) \
  453. (((u)->ui[DUK_DBL_IDX_UI0] == 0xfff00000UL) && \
  454. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  455. #define DUK__DBLUNION_IS_ANYZERO(u) \
  456. ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7fffffffUL) == 0x00000000UL) && \
  457. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  458. #define DUK__DBLUNION_IS_POSZERO(u) \
  459. (((u)->ui[DUK_DBL_IDX_UI0] == 0x00000000UL) && \
  460. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  461. #define DUK__DBLUNION_IS_NEGZERO(u) \
  462. (((u)->ui[DUK_DBL_IDX_UI0] == 0x80000000UL) && \
  463. ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL))
  464. #endif /* DUK_USE_64BIT_OPS */
  465. #define DUK__DBLUNION_SET_NAN_NOTFULL(u) do { \
  466. (u)->us[DUK_DBL_IDX_US0] = 0x7ff8UL; \
  467. } while (0)
  468. #define DUK__DBLUNION_IS_NAN_NOTFULL(u) \
  469. /* E == 0x7ff, topmost four bits of F != 0 => assume NaN */ \
  470. ((((u)->us[DUK_DBL_IDX_US0] & 0x7ff0UL) == 0x7ff0UL) && \
  471. (((u)->us[DUK_DBL_IDX_US0] & 0x000fUL) != 0x0000UL))
  472. #define DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL(u) \
  473. /* E == 0x7ff, F == 8 => normalized NaN */ \
  474. ((u)->us[DUK_DBL_IDX_US0] == 0x7ff8UL)
  475. #define DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL(u) do { \
  476. if (DUK__DBLUNION_IS_NAN_FULL((u))) { \
  477. DUK__DBLUNION_SET_NAN_FULL((u)); \
  478. } \
  479. } while (0)
  480. #define DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL(u) do { \
  481. if (DUK__DBLUNION_IS_NAN_NOTFULL((u))) { \
  482. DUK__DBLUNION_SET_NAN_NOTFULL((u)); \
  483. } \
  484. } while (0)
  485. /* Concrete macros for NaN handling used by the implementation internals.
  486. * Chosen so that they match the duk_tval representation: with a packed
  487. * duk_tval, ensure NaNs are properly normalized; with a non-packed duk_tval
  488. * these are essentially NOPs.
  489. */
  490. #if defined(DUK_USE_PACKED_TVAL)
  491. #if defined(DUK_USE_FULL_TVAL)
  492. #define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL((u))
  493. #define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u))
  494. #define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_FULL((u))
  495. #define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_FULL((d))
  496. #else
  497. #define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL((u))
  498. #define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_NOTFULL((u))
  499. #define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL((u))
  500. #define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_NOTFULL((d))
  501. #endif
  502. #define DUK_DBLUNION_IS_NORMALIZED(u) \
  503. (!DUK_DBLUNION_IS_NAN((u)) || /* either not a NaN */ \
  504. DUK_DBLUNION_IS_NORMALIZED_NAN((u))) /* or is a normalized NaN */
  505. #else /* DUK_USE_PACKED_TVAL */
  506. #define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) /* nop: no need to normalize */
  507. #define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u)) /* (DUK_ISNAN((u)->d)) */
  508. #define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u)) /* (DUK_ISNAN((u)->d)) */
  509. #define DUK_DBLUNION_IS_NORMALIZED(u) 1 /* all doubles are considered normalized */
  510. #define DUK_DBLUNION_SET_NAN(u) do { \
  511. /* in non-packed representation we don't care about which NaN is used */ \
  512. (u)->d = DUK_DOUBLE_NAN; \
  513. } while (0)
  514. #endif /* DUK_USE_PACKED_TVAL */
  515. #define DUK_DBLUNION_IS_ANYINF(u) DUK__DBLUNION_IS_ANYINF((u))
  516. #define DUK_DBLUNION_IS_POSINF(u) DUK__DBLUNION_IS_POSINF((u))
  517. #define DUK_DBLUNION_IS_NEGINF(u) DUK__DBLUNION_IS_NEGINF((u))
  518. #define DUK_DBLUNION_IS_ANYZERO(u) DUK__DBLUNION_IS_ANYZERO((u))
  519. #define DUK_DBLUNION_IS_POSZERO(u) DUK__DBLUNION_IS_POSZERO((u))
  520. #define DUK_DBLUNION_IS_NEGZERO(u) DUK__DBLUNION_IS_NEGZERO((u))
  521. /* XXX: native 64-bit byteswaps when available */
  522. /* 64-bit byteswap, same operation independent of target endianness. */
  523. #define DUK_DBLUNION_BSWAP64(u) do { \
  524. duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \
  525. duk__bswaptmp1 = (u)->ui[0]; \
  526. duk__bswaptmp2 = (u)->ui[1]; \
  527. duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \
  528. duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \
  529. (u)->ui[0] = duk__bswaptmp2; \
  530. (u)->ui[1] = duk__bswaptmp1; \
  531. } while (0)
  532. /* Byteswap an IEEE double in the duk_double_union from host to network
  533. * order. For a big endian target this is a no-op.
  534. */
  535. #if defined(DUK_USE_DOUBLE_LE)
  536. #define DUK_DBLUNION_DOUBLE_HTON(u) do { \
  537. duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \
  538. duk__bswaptmp1 = (u)->ui[0]; \
  539. duk__bswaptmp2 = (u)->ui[1]; \
  540. duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \
  541. duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \
  542. (u)->ui[0] = duk__bswaptmp2; \
  543. (u)->ui[1] = duk__bswaptmp1; \
  544. } while (0)
  545. #elif defined(DUK_USE_DOUBLE_ME)
  546. #define DUK_DBLUNION_DOUBLE_HTON(u) do { \
  547. duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \
  548. duk__bswaptmp1 = (u)->ui[0]; \
  549. duk__bswaptmp2 = (u)->ui[1]; \
  550. duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \
  551. duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \
  552. (u)->ui[0] = duk__bswaptmp1; \
  553. (u)->ui[1] = duk__bswaptmp2; \
  554. } while (0)
  555. #elif defined(DUK_USE_DOUBLE_BE)
  556. #define DUK_DBLUNION_DOUBLE_HTON(u) do { } while (0)
  557. #else
  558. #error internal error, double endianness insane
  559. #endif
  560. /* Reverse operation is the same. */
  561. #define DUK_DBLUNION_DOUBLE_NTOH(u) DUK_DBLUNION_DOUBLE_HTON((u))
  562. /* Some sign bit helpers. */
  563. #if defined(DUK_USE_64BIT_OPS)
  564. #define DUK_DBLUNION_HAS_SIGNBIT(u) (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x8000000000000000)) != 0)
  565. #define DUK_DBLUNION_GET_SIGNBIT(u) (((u)->ull[DUK_DBL_IDX_ULL0] >> 63U))
  566. #else
  567. #define DUK_DBLUNION_HAS_SIGNBIT(u) (((u)->ui[DUK_DBL_IDX_UI0] & 0x80000000UL) != 0)
  568. #define DUK_DBLUNION_GET_SIGNBIT(u) (((u)->ui[DUK_DBL_IDX_UI0] >> 31U))
  569. #endif
  570. #endif /* DUK_DBLUNION_H_INCLUDED */
  571. /* #include duk_replacements.h */
  572. #line 1 "duk_replacements.h"
  573. #if !defined(DUK_REPLACEMENTS_H_INCLUDED)
  574. #define DUK_REPLACEMENTS_H_INCLUDED
  575. #if !defined(DUK_SINGLE_FILE)
  576. #if defined(DUK_USE_COMPUTED_INFINITY)
  577. DUK_INTERNAL_DECL double duk_computed_infinity;
  578. #endif
  579. #if defined(DUK_USE_COMPUTED_NAN)
  580. DUK_INTERNAL_DECL double duk_computed_nan;
  581. #endif
  582. #endif /* !DUK_SINGLE_FILE */
  583. #if defined(DUK_USE_REPL_FPCLASSIFY)
  584. DUK_INTERNAL_DECL int duk_repl_fpclassify(double x);
  585. #endif
  586. #if defined(DUK_USE_REPL_SIGNBIT)
  587. DUK_INTERNAL_DECL int duk_repl_signbit(double x);
  588. #endif
  589. #if defined(DUK_USE_REPL_ISFINITE)
  590. DUK_INTERNAL_DECL int duk_repl_isfinite(double x);
  591. #endif
  592. #if defined(DUK_USE_REPL_ISNAN)
  593. DUK_INTERNAL_DECL int duk_repl_isnan(double x);
  594. #endif
  595. #if defined(DUK_USE_REPL_ISINF)
  596. DUK_INTERNAL_DECL int duk_repl_isinf(double x);
  597. #endif
  598. #endif /* DUK_REPLACEMENTS_H_INCLUDED */
  599. /* #include duk_jmpbuf.h */
  600. #line 1 "duk_jmpbuf.h"
  601. /*
  602. * Wrapper for jmp_buf.
  603. *
  604. * This is used because jmp_buf is an array type for backward compatibility.
  605. * Wrapping jmp_buf in a struct makes pointer references, sizeof, etc,
  606. * behave more intuitively.
  607. *
  608. * http://en.wikipedia.org/wiki/Setjmp.h#Member_types
  609. */
  610. #if !defined(DUK_JMPBUF_H_INCLUDED)
  611. #define DUK_JMPBUF_H_INCLUDED
  612. #if defined(DUK_USE_CPP_EXCEPTIONS)
  613. struct duk_jmpbuf {
  614. duk_small_int_t dummy; /* unused */
  615. };
  616. #else
  617. struct duk_jmpbuf {
  618. DUK_JMPBUF_TYPE jb;
  619. };
  620. #endif
  621. #endif /* DUK_JMPBUF_H_INCLUDED */
  622. /* #include duk_exception.h */
  623. #line 1 "duk_exception.h"
  624. /*
  625. * Exception for Duktape internal throws when C++ exceptions are used
  626. * for long control transfers.
  627. *
  628. * Doesn't inherit from any exception base class to minimize the chance
  629. * that user code would accidentally catch this exception.
  630. */
  631. #if !defined(DUK_EXCEPTION_H_INCLUDED)
  632. #define DUK_EXCEPTION_H_INCLUDED
  633. #if defined(DUK_USE_CPP_EXCEPTIONS)
  634. class duk_internal_exception {
  635. /* intentionally empty */
  636. };
  637. #endif
  638. #endif /* DUK_EXCEPTION_H_INCLUDED */
  639. /* #include duk_forwdecl.h */
  640. #line 1 "duk_forwdecl.h"
  641. /*
  642. * Forward declarations for all Duktape structures.
  643. */
  644. #if !defined(DUK_FORWDECL_H_INCLUDED)
  645. #define DUK_FORWDECL_H_INCLUDED
  646. /*
  647. * Forward declarations
  648. */
  649. #if defined(DUK_USE_CPP_EXCEPTIONS)
  650. class duk_internal_exception;
  651. #else
  652. struct duk_jmpbuf;
  653. #endif
  654. /* duk_tval intentionally skipped */
  655. struct duk_heaphdr;
  656. struct duk_heaphdr_string;
  657. struct duk_harray;
  658. struct duk_hstring;
  659. struct duk_hstring_external;
  660. struct duk_hobject;
  661. struct duk_hcompfunc;
  662. struct duk_hnatfunc;
  663. struct duk_hboundfunc;
  664. struct duk_hthread;
  665. struct duk_hbufobj;
  666. struct duk_hdecenv;
  667. struct duk_hobjenv;
  668. struct duk_hproxy;
  669. struct duk_hbuffer;
  670. struct duk_hbuffer_fixed;
  671. struct duk_hbuffer_dynamic;
  672. struct duk_hbuffer_external;
  673. struct duk_propaccessor;
  674. union duk_propvalue;
  675. struct duk_propdesc;
  676. struct duk_heap;
  677. struct duk_breakpoint;
  678. struct duk_activation;
  679. struct duk_catcher;
  680. struct duk_strcache;
  681. struct duk_ljstate;
  682. struct duk_strtab_entry;
  683. #if defined(DUK_USE_DEBUG)
  684. struct duk_fixedbuffer;
  685. #endif
  686. struct duk_bitdecoder_ctx;
  687. struct duk_bitencoder_ctx;
  688. struct duk_bufwriter_ctx;
  689. struct duk_token;
  690. struct duk_re_token;
  691. struct duk_lexer_point;
  692. struct duk_lexer_ctx;
  693. struct duk_lexer_codepoint;
  694. struct duk_compiler_instr;
  695. struct duk_compiler_func;
  696. struct duk_compiler_ctx;
  697. struct duk_re_matcher_ctx;
  698. struct duk_re_compiler_ctx;
  699. #if defined(DUK_USE_CPP_EXCEPTIONS)
  700. /* no typedef */
  701. #else
  702. typedef struct duk_jmpbuf duk_jmpbuf;
  703. #endif
  704. /* duk_tval intentionally skipped */
  705. typedef struct duk_heaphdr duk_heaphdr;
  706. typedef struct duk_heaphdr_string duk_heaphdr_string;
  707. typedef struct duk_harray duk_harray;
  708. typedef struct duk_hstring duk_hstring;
  709. typedef struct duk_hstring_external duk_hstring_external;
  710. typedef struct duk_hobject duk_hobject;
  711. typedef struct duk_hcompfunc duk_hcompfunc;
  712. typedef struct duk_hnatfunc duk_hnatfunc;
  713. typedef struct duk_hboundfunc duk_hboundfunc;
  714. typedef struct duk_hthread duk_hthread;
  715. typedef struct duk_hbufobj duk_hbufobj;
  716. typedef struct duk_hdecenv duk_hdecenv;
  717. typedef struct duk_hobjenv duk_hobjenv;
  718. typedef struct duk_hproxy duk_hproxy;
  719. typedef struct duk_hbuffer duk_hbuffer;
  720. typedef struct duk_hbuffer_fixed duk_hbuffer_fixed;
  721. typedef struct duk_hbuffer_dynamic duk_hbuffer_dynamic;
  722. typedef struct duk_hbuffer_external duk_hbuffer_external;
  723. typedef struct duk_propaccessor duk_propaccessor;
  724. typedef union duk_propvalue duk_propvalue;
  725. typedef struct duk_propdesc duk_propdesc;
  726. typedef struct duk_heap duk_heap;
  727. typedef struct duk_breakpoint duk_breakpoint;
  728. typedef struct duk_activation duk_activation;
  729. typedef struct duk_catcher duk_catcher;
  730. typedef struct duk_strcache duk_strcache;
  731. typedef struct duk_ljstate duk_ljstate;
  732. typedef struct duk_strtab_entry duk_strtab_entry;
  733. #if defined(DUK_USE_DEBUG)
  734. typedef struct duk_fixedbuffer duk_fixedbuffer;
  735. #endif
  736. typedef struct duk_bitdecoder_ctx duk_bitdecoder_ctx;
  737. typedef struct duk_bitencoder_ctx duk_bitencoder_ctx;
  738. typedef struct duk_bufwriter_ctx duk_bufwriter_ctx;
  739. typedef struct duk_token duk_token;
  740. typedef struct duk_re_token duk_re_token;
  741. typedef struct duk_lexer_point duk_lexer_point;
  742. typedef struct duk_lexer_ctx duk_lexer_ctx;
  743. typedef struct duk_lexer_codepoint duk_lexer_codepoint;
  744. typedef struct duk_compiler_instr duk_compiler_instr;
  745. typedef struct duk_compiler_func duk_compiler_func;
  746. typedef struct duk_compiler_ctx duk_compiler_ctx;
  747. typedef struct duk_re_matcher_ctx duk_re_matcher_ctx;
  748. typedef struct duk_re_compiler_ctx duk_re_compiler_ctx;
  749. #endif /* DUK_FORWDECL_H_INCLUDED */
  750. /* #include duk_tval.h */
  751. #line 1 "duk_tval.h"
  752. /*
  753. * Tagged type definition (duk_tval) and accessor macros.
  754. *
  755. * Access all fields through the accessor macros, as the representation
  756. * is quite tricky.
  757. *
  758. * There are two packed type alternatives: an 8-byte representation
  759. * based on an IEEE double (preferred for compactness), and a 12-byte
  760. * representation (portability). The latter is needed also in e.g.
  761. * 64-bit environments (it usually pads to 16 bytes per value).
  762. *
  763. * Selecting the tagged type format involves many trade-offs (memory
  764. * use, size and performance of generated code, portability, etc).
  765. *
  766. * NB: because macro arguments are often expressions, macros should
  767. * avoid evaluating their argument more than once.
  768. */
  769. #if !defined(DUK_TVAL_H_INCLUDED)
  770. #define DUK_TVAL_H_INCLUDED
  771. /* sanity */
  772. #if !defined(DUK_USE_DOUBLE_LE) && !defined(DUK_USE_DOUBLE_ME) && !defined(DUK_USE_DOUBLE_BE)
  773. #error unsupported: cannot determine byte order variant
  774. #endif
  775. #if defined(DUK_USE_PACKED_TVAL)
  776. /* ======================================================================== */
  777. /*
  778. * Packed 8-byte representation
  779. */
  780. /* use duk_double_union as duk_tval directly */
  781. typedef union duk_double_union duk_tval;
  782. typedef struct {
  783. duk_uint16_t a;
  784. duk_uint16_t b;
  785. duk_uint16_t c;
  786. duk_uint16_t d;
  787. } duk_tval_unused;
  788. /* tags */
  789. #define DUK_TAG_NORMALIZED_NAN 0x7ff8UL /* the NaN variant we use */
  790. /* avoid tag 0xfff0, no risk of confusion with negative infinity */
  791. #define DUK_TAG_MIN 0xfff1UL
  792. #if defined(DUK_USE_FASTINT)
  793. #define DUK_TAG_FASTINT 0xfff1UL /* embed: integer value */
  794. #endif
  795. #define DUK_TAG_UNUSED 0xfff2UL /* marker; not actual tagged value */
  796. #define DUK_TAG_UNDEFINED 0xfff3UL /* embed: nothing */
  797. #define DUK_TAG_NULL 0xfff4UL /* embed: nothing */
  798. #define DUK_TAG_BOOLEAN 0xfff5UL /* embed: 0 or 1 (false or true) */
  799. /* DUK_TAG_NUMBER would logically go here, but it has multiple 'tags' */
  800. #define DUK_TAG_POINTER 0xfff6UL /* embed: void ptr */
  801. #define DUK_TAG_LIGHTFUNC 0xfff7UL /* embed: func ptr */
  802. #define DUK_TAG_STRING 0xfff8UL /* embed: duk_hstring ptr */
  803. #define DUK_TAG_OBJECT 0xfff9UL /* embed: duk_hobject ptr */
  804. #define DUK_TAG_BUFFER 0xfffaUL /* embed: duk_hbuffer ptr */
  805. #define DUK_TAG_MAX 0xfffaUL
  806. /* for convenience */
  807. #define DUK_XTAG_BOOLEAN_FALSE 0xfff50000UL
  808. #define DUK_XTAG_BOOLEAN_TRUE 0xfff50001UL
  809. #define DUK_TVAL_IS_VALID_TAG(tv) \
  810. (DUK_TVAL_GET_TAG((tv)) - DUK_TAG_MIN <= DUK_TAG_MAX - DUK_TAG_MIN)
  811. /* DUK_TVAL_UNUSED initializer for duk_tval_unused, works for any endianness. */
  812. #define DUK_TVAL_UNUSED_INITIALIZER() \
  813. { DUK_TAG_UNUSED, DUK_TAG_UNUSED, DUK_TAG_UNUSED, DUK_TAG_UNUSED }
  814. /* two casts to avoid gcc warning: "warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]" */
  815. #if defined(DUK_USE_64BIT_OPS)
  816. #if defined(DUK_USE_DOUBLE_ME)
  817. #define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \
  818. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) (tag)) << 16) | (((duk_uint64_t) (duk_uint32_t) (h)) << 32); \
  819. } while (0)
  820. #else
  821. #define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \
  822. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) (tag)) << 48) | ((duk_uint64_t) (duk_uint32_t) (h)); \
  823. } while (0)
  824. #endif
  825. #else /* DUK_USE_64BIT_OPS */
  826. #define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \
  827. duk_tval *duk__tv; \
  828. duk__tv = (tv); \
  829. duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) (tag)) << 16; \
  830. duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (h); \
  831. } while (0)
  832. #endif /* DUK_USE_64BIT_OPS */
  833. #if defined(DUK_USE_64BIT_OPS)
  834. /* Double casting for pointer to avoid gcc warning (cast from pointer to integer of different size) */
  835. #if defined(DUK_USE_DOUBLE_ME)
  836. #define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \
  837. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_LIGHTFUNC) << 16) | \
  838. ((duk_uint64_t) (flags)) | \
  839. (((duk_uint64_t) (duk_uint32_t) (fp)) << 32); \
  840. } while (0)
  841. #else
  842. #define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \
  843. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_LIGHTFUNC) << 48) | \
  844. (((duk_uint64_t) (flags)) << 32) | \
  845. ((duk_uint64_t) (duk_uint32_t) (fp)); \
  846. } while (0)
  847. #endif
  848. #else /* DUK_USE_64BIT_OPS */
  849. #define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \
  850. duk_tval *duk__tv; \
  851. duk__tv = (tv); \
  852. duk__tv->ui[DUK_DBL_IDX_UI0] = (((duk_uint32_t) DUK_TAG_LIGHTFUNC) << 16) | ((duk_uint32_t) (flags)); \
  853. duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (fp); \
  854. } while (0)
  855. #endif /* DUK_USE_64BIT_OPS */
  856. #if defined(DUK_USE_FASTINT)
  857. /* Note: masking is done for 'i' to deal with negative numbers correctly */
  858. #if defined(DUK_USE_DOUBLE_ME)
  859. #define DUK__TVAL_SET_I48(tv,i) do { \
  860. duk_tval *duk__tv; \
  861. duk__tv = (tv); \
  862. duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) DUK_TAG_FASTINT) << 16 | (((duk_uint32_t) ((i) >> 32)) & 0x0000ffffUL); \
  863. duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (i); \
  864. } while (0)
  865. #define DUK__TVAL_SET_U32(tv,i) do { \
  866. duk_tval *duk__tv; \
  867. duk__tv = (tv); \
  868. duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) DUK_TAG_FASTINT) << 16; \
  869. duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (i); \
  870. } while (0)
  871. #else
  872. #define DUK__TVAL_SET_I48(tv,i) do { \
  873. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_FASTINT) << 48) | (((duk_uint64_t) (i)) & DUK_U64_CONSTANT(0x0000ffffffffffff)); \
  874. } while (0)
  875. #define DUK__TVAL_SET_U32(tv,i) do { \
  876. (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_FASTINT) << 48) | (duk_uint64_t) (i); \
  877. } while (0)
  878. #endif
  879. /* This needs to go through a cast because sign extension is needed. */
  880. #define DUK__TVAL_SET_I32(tv,i) do { \
  881. duk_int64_t duk__tmp = (duk_int64_t) (i); \
  882. DUK_TVAL_SET_I48((tv), duk__tmp); \
  883. } while (0)
  884. /* XXX: Clumsy sign extend and masking of 16 topmost bits. */
  885. #if defined(DUK_USE_DOUBLE_ME)
  886. #define DUK__TVAL_GET_FASTINT(tv) (((duk_int64_t) ((((duk_uint64_t) (tv)->ui[DUK_DBL_IDX_UI0]) << 32) | ((duk_uint64_t) (tv)->ui[DUK_DBL_IDX_UI1]))) << 16 >> 16)
  887. #else
  888. #define DUK__TVAL_GET_FASTINT(tv) ((((duk_int64_t) (tv)->ull[DUK_DBL_IDX_ULL0]) << 16) >> 16)
  889. #endif
  890. #define DUK__TVAL_GET_FASTINT_U32(tv) ((tv)->ui[DUK_DBL_IDX_UI1])
  891. #define DUK__TVAL_GET_FASTINT_I32(tv) ((duk_int32_t) (tv)->ui[DUK_DBL_IDX_UI1])
  892. #endif /* DUK_USE_FASTINT */
  893. #define DUK_TVAL_SET_UNDEFINED(tv) do { \
  894. (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_UNDEFINED; \
  895. } while (0)
  896. #define DUK_TVAL_SET_UNUSED(tv) do { \
  897. (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_UNUSED; \
  898. } while (0)
  899. #define DUK_TVAL_SET_NULL(tv) do { \
  900. (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_NULL; \
  901. } while (0)
  902. #define DUK_TVAL_SET_BOOLEAN(tv,val) DUK_DBLUNION_SET_HIGH32((tv), (((duk_uint32_t) DUK_TAG_BOOLEAN) << 16) | ((duk_uint32_t) (val)))
  903. #define DUK_TVAL_SET_NAN(tv) DUK_DBLUNION_SET_NAN_FULL((tv))
  904. /* Assumes that caller has normalized NaNs, otherwise trouble ahead. */
  905. #if defined(DUK_USE_FASTINT)
  906. #define DUK_TVAL_SET_DOUBLE(tv,d) do { \
  907. duk_double_t duk__dblval; \
  908. duk__dblval = (d); \
  909. DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); \
  910. DUK_DBLUNION_SET_DOUBLE((tv), duk__dblval); \
  911. } while (0)
  912. #define DUK_TVAL_SET_I48(tv,i) DUK__TVAL_SET_I48((tv), (i))
  913. #define DUK_TVAL_SET_I32(tv,i) DUK__TVAL_SET_I32((tv), (i))
  914. #define DUK_TVAL_SET_U32(tv,i) DUK__TVAL_SET_U32((tv), (i))
  915. #define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) duk_tval_set_number_chkfast_fast((tv), (d))
  916. #define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) duk_tval_set_number_chkfast_slow((tv), (d))
  917. #define DUK_TVAL_SET_NUMBER(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d))
  918. #define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { \
  919. duk_tval *duk__tv; \
  920. duk_double_t duk__d; \
  921. duk__tv = (tv); \
  922. if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \
  923. duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \
  924. DUK_TVAL_SET_NUMBER_CHKFAST_FAST(duk__tv, duk__d); \
  925. } \
  926. } while (0)
  927. #define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { \
  928. duk_tval *duk__tv; \
  929. duk_double_t duk__d; \
  930. duk__tv = (tv); \
  931. if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \
  932. duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \
  933. DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(duk__tv, duk__d); \
  934. } \
  935. } while (0)
  936. #else /* DUK_USE_FASTINT */
  937. #define DUK_TVAL_SET_DOUBLE(tv,d) do { \
  938. duk_double_t duk__dblval; \
  939. duk__dblval = (d); \
  940. DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); \
  941. DUK_DBLUNION_SET_DOUBLE((tv), duk__dblval); \
  942. } while (0)
  943. #define DUK_TVAL_SET_I48(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i)) /* XXX: fast int-to-double */
  944. #define DUK_TVAL_SET_I32(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i))
  945. #define DUK_TVAL_SET_U32(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i))
  946. #define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d))
  947. #define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d))
  948. #define DUK_TVAL_SET_NUMBER(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d))
  949. #define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { } while (0)
  950. #define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { } while (0)
  951. #endif /* DUK_USE_FASTINT */
  952. #define DUK_TVAL_SET_FASTINT(tv,i) DUK_TVAL_SET_I48((tv), (i)) /* alias */
  953. #define DUK_TVAL_SET_LIGHTFUNC(tv,fp,flags) DUK__TVAL_SET_LIGHTFUNC((tv), (fp), (flags))
  954. #define DUK_TVAL_SET_STRING(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_STRING)
  955. #define DUK_TVAL_SET_OBJECT(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_OBJECT)
  956. #define DUK_TVAL_SET_BUFFER(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_BUFFER)
  957. #define DUK_TVAL_SET_POINTER(tv,p) DUK__TVAL_SET_TAGGEDPOINTER((tv), (p), DUK_TAG_POINTER)
  958. #define DUK_TVAL_SET_TVAL(tv,x) do { *(tv) = *(x); } while (0)
  959. /* getters */
  960. #define DUK_TVAL_GET_BOOLEAN(tv) ((duk_small_uint_t) (tv)->us[DUK_DBL_IDX_US1])
  961. #if defined(DUK_USE_FASTINT)
  962. #define DUK_TVAL_GET_DOUBLE(tv) ((tv)->d)
  963. #define DUK_TVAL_GET_FASTINT(tv) DUK__TVAL_GET_FASTINT((tv))
  964. #define DUK_TVAL_GET_FASTINT_U32(tv) DUK__TVAL_GET_FASTINT_U32((tv))
  965. #define DUK_TVAL_GET_FASTINT_I32(tv) DUK__TVAL_GET_FASTINT_I32((tv))
  966. #define DUK_TVAL_GET_NUMBER(tv) duk_tval_get_number_packed((tv))
  967. #else
  968. #define DUK_TVAL_GET_NUMBER(tv) ((tv)->d)
  969. #define DUK_TVAL_GET_DOUBLE(tv) ((tv)->d)
  970. #endif
  971. #define DUK_TVAL_GET_LIGHTFUNC(tv,out_fp,out_flags) do { \
  972. (out_flags) = (tv)->ui[DUK_DBL_IDX_UI0] & 0xffffUL; \
  973. (out_fp) = (duk_c_function) (tv)->ui[DUK_DBL_IDX_UI1]; \
  974. } while (0)
  975. #define DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv) ((duk_c_function) ((tv)->ui[DUK_DBL_IDX_UI1]))
  976. #define DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv) (((duk_small_uint_t) (tv)->ui[DUK_DBL_IDX_UI0]) & 0xffffUL)
  977. #define DUK_TVAL_GET_STRING(tv) ((duk_hstring *) (tv)->vp[DUK_DBL_IDX_VP1])
  978. #define DUK_TVAL_GET_OBJECT(tv) ((duk_hobject *) (tv)->vp[DUK_DBL_IDX_VP1])
  979. #define DUK_TVAL_GET_BUFFER(tv) ((duk_hbuffer *) (tv)->vp[DUK_DBL_IDX_VP1])
  980. #define DUK_TVAL_GET_POINTER(tv) ((void *) (tv)->vp[DUK_DBL_IDX_VP1])
  981. #define DUK_TVAL_GET_HEAPHDR(tv) ((duk_heaphdr *) (tv)->vp[DUK_DBL_IDX_VP1])
  982. /* decoding */
  983. #define DUK_TVAL_GET_TAG(tv) ((duk_small_uint_t) (tv)->us[DUK_DBL_IDX_US0])
  984. #define DUK_TVAL_IS_UNDEFINED(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_UNDEFINED)
  985. #define DUK_TVAL_IS_UNUSED(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_UNUSED)
  986. #define DUK_TVAL_IS_NULL(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_NULL)
  987. #define DUK_TVAL_IS_BOOLEAN(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_BOOLEAN)
  988. #define DUK_TVAL_IS_BOOLEAN_TRUE(tv) ((tv)->ui[DUK_DBL_IDX_UI0] == DUK_XTAG_BOOLEAN_TRUE)
  989. #define DUK_TVAL_IS_BOOLEAN_FALSE(tv) ((tv)->ui[DUK_DBL_IDX_UI0] == DUK_XTAG_BOOLEAN_FALSE)
  990. #define DUK_TVAL_IS_LIGHTFUNC(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_LIGHTFUNC)
  991. #define DUK_TVAL_IS_STRING(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_STRING)
  992. #define DUK_TVAL_IS_OBJECT(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_OBJECT)
  993. #define DUK_TVAL_IS_BUFFER(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_BUFFER)
  994. #define DUK_TVAL_IS_POINTER(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_POINTER)
  995. #if defined(DUK_USE_FASTINT)
  996. /* 0xfff0 is -Infinity */
  997. #define DUK_TVAL_IS_DOUBLE(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff0UL)
  998. #define DUK_TVAL_IS_FASTINT(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_FASTINT)
  999. #define DUK_TVAL_IS_NUMBER(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff1UL)
  1000. #else
  1001. #define DUK_TVAL_IS_NUMBER(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff0UL)
  1002. #define DUK_TVAL_IS_DOUBLE(tv) DUK_TVAL_IS_NUMBER((tv))
  1003. #endif
  1004. /* This is performance critical because it appears in every DECREF. */
  1005. #define DUK_TVAL_IS_HEAP_ALLOCATED(tv) (DUK_TVAL_GET_TAG((tv)) >= DUK_TAG_STRING)
  1006. #if defined(DUK_USE_FASTINT)
  1007. DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_packed(duk_tval *tv);
  1008. #endif
  1009. #else /* DUK_USE_PACKED_TVAL */
  1010. /* ======================================================================== */
  1011. /*
  1012. * Portable 12-byte representation
  1013. */
  1014. /* Note: not initializing all bytes is normally not an issue: Duktape won't
  1015. * read or use the uninitialized bytes so valgrind won't issue warnings.
  1016. * In some special cases a harmless valgrind warning may be issued though.
  1017. * For example, the DumpHeap debugger command writes out a compiled function's
  1018. * 'data' area as is, including any uninitialized bytes, which causes a
  1019. * valgrind warning.
  1020. */
  1021. typedef struct duk_tval_struct duk_tval;
  1022. struct duk_tval_struct {
  1023. duk_small_uint_t t;
  1024. duk_small_uint_t v_extra;
  1025. union {
  1026. duk_double_t d;
  1027. duk_small_int_t i;
  1028. #if defined(DUK_USE_FASTINT)
  1029. duk_int64_t fi; /* if present, forces 16-byte duk_tval */
  1030. #endif
  1031. void *voidptr;
  1032. duk_hstring *hstring;
  1033. duk_hobject *hobject;
  1034. duk_hcompfunc *hcompfunc;
  1035. duk_hnatfunc *hnatfunc;
  1036. duk_hthread *hthread;
  1037. duk_hbuffer *hbuffer;
  1038. duk_heaphdr *heaphdr;
  1039. duk_c_function lightfunc;
  1040. } v;
  1041. };
  1042. typedef struct {
  1043. duk_small_uint_t t;
  1044. duk_small_uint_t v_extra;
  1045. /* The rest of the fields don't matter except for debug dumps and such
  1046. * for which a partial initializer may trigger out-ot-bounds memory
  1047. * reads. Include a double field which is usually as large or larger
  1048. * than pointers (not always however).
  1049. */
  1050. duk_double_t d;
  1051. } duk_tval_unused;
  1052. #define DUK_TVAL_UNUSED_INITIALIZER() \
  1053. { DUK_TAG_UNUSED, 0, 0.0 }
  1054. #define DUK_TAG_MIN 0
  1055. #define DUK_TAG_NUMBER 0 /* DUK_TAG_NUMBER only defined for non-packed duk_tval */
  1056. #if defined(DUK_USE_FASTINT)
  1057. #define DUK_TAG_FASTINT 1
  1058. #endif
  1059. #define DUK_TAG_UNDEFINED 2
  1060. #define DUK_TAG_NULL 3
  1061. #define DUK_TAG_BOOLEAN 4
  1062. #define DUK_TAG_POINTER 5
  1063. #define DUK_TAG_LIGHTFUNC 6
  1064. #define DUK_TAG_UNUSED 7 /* marker; not actual tagged type */
  1065. #define DUK_TAG_STRING 8 /* first heap allocated, match bit boundary */
  1066. #define DUK_TAG_OBJECT 9
  1067. #define DUK_TAG_BUFFER 10
  1068. #define DUK_TAG_MAX 10
  1069. #define DUK_TVAL_IS_VALID_TAG(tv) \
  1070. (DUK_TVAL_GET_TAG((tv)) - DUK_TAG_MIN <= DUK_TAG_MAX - DUK_TAG_MIN)
  1071. /* DUK_TAG_NUMBER is intentionally first, as it is the default clause in code
  1072. * to support the 8-byte representation. Further, it is a non-heap-allocated
  1073. * type so it should come before DUK_TAG_STRING. Finally, it should not break
  1074. * the tag value ranges covered by case-clauses in a switch-case.
  1075. */
  1076. /* setters */
  1077. #define DUK_TVAL_SET_UNDEFINED(tv) do { \
  1078. duk_tval *duk__tv; \
  1079. duk__tv = (tv); \
  1080. duk__tv->t = DUK_TAG_UNDEFINED; \
  1081. } while (0)
  1082. #define DUK_TVAL_SET_UNUSED(tv) do { \
  1083. duk_tval *duk__tv; \
  1084. duk__tv = (tv); \
  1085. duk__tv->t = DUK_TAG_UNUSED; \
  1086. } while (0)
  1087. #define DUK_TVAL_SET_NULL(tv) do { \
  1088. duk_tval *duk__tv; \
  1089. duk__tv = (tv); \
  1090. duk__tv->t = DUK_TAG_NULL; \
  1091. } while (0)
  1092. #define DUK_TVAL_SET_BOOLEAN(tv,val) do { \
  1093. duk_tval *duk__tv; \
  1094. duk__tv = (tv); \
  1095. duk__tv->t = DUK_TAG_BOOLEAN; \
  1096. duk__tv->v.i = (duk_small_int_t) (val); \
  1097. } while (0)
  1098. #if defined(DUK_USE_FASTINT)
  1099. #define DUK_TVAL_SET_DOUBLE(tv,val) do { \
  1100. duk_tval *duk__tv; \
  1101. duk_double_t duk__dblval; \
  1102. duk__dblval = (val); \
  1103. DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); /* nop for unpacked duk_tval */ \
  1104. duk__tv = (tv); \
  1105. duk__tv->t = DUK_TAG_NUMBER; \
  1106. duk__tv->v.d = duk__dblval; \
  1107. } while (0)
  1108. #define DUK_TVAL_SET_I48(tv,val) do { \
  1109. duk_tval *duk__tv; \
  1110. duk__tv = (tv); \
  1111. duk__tv->t = DUK_TAG_FASTINT; \
  1112. duk__tv->v.fi = (val); \
  1113. } while (0)
  1114. #define DUK_TVAL_SET_U32(tv,val) do { \
  1115. duk_tval *duk__tv; \
  1116. duk__tv = (tv); \
  1117. duk__tv->t = DUK_TAG_FASTINT; \
  1118. duk__tv->v.fi = (duk_int64_t) (val); \
  1119. } while (0)
  1120. #define DUK_TVAL_SET_I32(tv,val) do { \
  1121. duk_tval *duk__tv; \
  1122. duk__tv = (tv); \
  1123. duk__tv->t = DUK_TAG_FASTINT; \
  1124. duk__tv->v.fi = (duk_int64_t) (val); \
  1125. } while (0)
  1126. #define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) \
  1127. duk_tval_set_number_chkfast_fast((tv), (d))
  1128. #define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) \
  1129. duk_tval_set_number_chkfast_slow((tv), (d))
  1130. #define DUK_TVAL_SET_NUMBER(tv,val) \
  1131. DUK_TVAL_SET_DOUBLE((tv), (val))
  1132. #define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { \
  1133. duk_tval *duk__tv; \
  1134. duk_double_t duk__d; \
  1135. duk__tv = (tv); \
  1136. if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \
  1137. duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \
  1138. DUK_TVAL_SET_NUMBER_CHKFAST_FAST(duk__tv, duk__d); \
  1139. } \
  1140. } while (0)
  1141. #define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { \
  1142. duk_tval *duk__tv; \
  1143. duk_double_t duk__d; \
  1144. duk__tv = (tv); \
  1145. if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \
  1146. duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \
  1147. DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(duk__tv, duk__d); \
  1148. } \
  1149. } while (0)
  1150. #else /* DUK_USE_FASTINT */
  1151. #define DUK_TVAL_SET_DOUBLE(tv,d) \
  1152. DUK_TVAL_SET_NUMBER((tv), (d))
  1153. #define DUK_TVAL_SET_I48(tv,val) \
  1154. DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val)) /* XXX: fast int-to-double */
  1155. #define DUK_TVAL_SET_U32(tv,val) \
  1156. DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val))
  1157. #define DUK_TVAL_SET_I32(tv,val) \
  1158. DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val))
  1159. #define DUK_TVAL_SET_NUMBER(tv,val) do { \
  1160. duk_tval *duk__tv; \
  1161. duk_double_t duk__dblval; \
  1162. duk__dblval = (val); \
  1163. DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); /* nop for unpacked duk_tval */ \
  1164. duk__tv = (tv); \
  1165. duk__tv->t = DUK_TAG_NUMBER; \
  1166. duk__tv->v.d = duk__dblval; \
  1167. } while (0)
  1168. #define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) \
  1169. DUK_TVAL_SET_NUMBER((tv), (d))
  1170. #define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) \
  1171. DUK_TVAL_SET_NUMBER((tv), (d))
  1172. #define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { } while (0)
  1173. #define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { } while (0)
  1174. #endif /* DUK_USE_FASTINT */
  1175. #define DUK_TVAL_SET_FASTINT(tv,i) \
  1176. DUK_TVAL_SET_I48((tv), (i)) /* alias */
  1177. #define DUK_TVAL_SET_POINTER(tv,hptr) do { \
  1178. duk_tval *duk__tv; \
  1179. duk__tv = (tv); \
  1180. duk__tv->t = DUK_TAG_POINTER; \
  1181. duk__tv->v.voidptr = (hptr); \
  1182. } while (0)
  1183. #define DUK_TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \
  1184. duk_tval *duk__tv; \
  1185. duk__tv = (tv); \
  1186. duk__tv->t = DUK_TAG_LIGHTFUNC; \
  1187. duk__tv->v_extra = (flags); \
  1188. duk__tv->v.lightfunc = (duk_c_function) (fp); \
  1189. } while (0)
  1190. #define DUK_TVAL_SET_STRING(tv,hptr) do { \
  1191. duk_tval *duk__tv; \
  1192. duk__tv = (tv); \
  1193. duk__tv->t = DUK_TAG_STRING; \
  1194. duk__tv->v.hstring = (hptr); \
  1195. } while (0)
  1196. #define DUK_TVAL_SET_OBJECT(tv,hptr) do { \
  1197. duk_tval *duk__tv; \
  1198. duk__tv = (tv); \
  1199. duk__tv->t = DUK_TAG_OBJECT; \
  1200. duk__tv->v.hobject = (hptr); \
  1201. } while (0)
  1202. #define DUK_TVAL_SET_BUFFER(tv,hptr) do { \
  1203. duk_tval *duk__tv; \
  1204. duk__tv = (tv); \
  1205. duk__tv->t = DUK_TAG_BUFFER; \
  1206. duk__tv->v.hbuffer = (hptr); \
  1207. } while (0)
  1208. #define DUK_TVAL_SET_NAN(tv) do { \
  1209. /* in non-packed representation we don't care about which NaN is used */ \
  1210. duk_tval *duk__tv; \
  1211. duk__tv = (tv); \
  1212. duk__tv->t = DUK_TAG_NUMBER; \
  1213. duk__tv->v.d = DUK_DOUBLE_NAN; \
  1214. } while (0)
  1215. #define DUK_TVAL_SET_TVAL(tv,x) do { *(tv) = *(x); } while (0)
  1216. /* getters */
  1217. #define DUK_TVAL_GET_BOOLEAN(tv) ((duk_small_uint_t) (tv)->v.i)
  1218. #if defined(DUK_USE_FASTINT)
  1219. #define DUK_TVAL_GET_DOUBLE(tv) ((tv)->v.d)
  1220. #define DUK_TVAL_GET_FASTINT(tv) ((tv)->v.fi)
  1221. #define DUK_TVAL_GET_FASTINT_U32(tv) ((duk_uint32_t) ((tv)->v.fi))
  1222. #define DUK_TVAL_GET_FASTINT_I32(tv) ((duk_int32_t) ((tv)->v.fi))
  1223. #if 0
  1224. #define DUK_TVAL_GET_NUMBER(tv) (DUK_TVAL_IS_FASTINT((tv)) ? \
  1225. (duk_double_t) DUK_TVAL_GET_FASTINT((tv)) : \
  1226. DUK_TVAL_GET_DOUBLE((tv)))
  1227. #define DUK_TVAL_GET_NUMBER(tv) duk_tval_get_number_unpacked((tv))
  1228. #else
  1229. /* This seems reasonable overall. */
  1230. #define DUK_TVAL_GET_NUMBER(tv) (DUK_TVAL_IS_FASTINT((tv)) ? \
  1231. duk_tval_get_number_unpacked_fastint((tv)) : \
  1232. DUK_TVAL_GET_DOUBLE((tv)))
  1233. #endif
  1234. #else
  1235. #define DUK_TVAL_GET_NUMBER(tv) ((tv)->v.d)
  1236. #define DUK_TVAL_GET_DOUBLE(tv) ((tv)->v.d)
  1237. #endif /* DUK_USE_FASTINT */
  1238. #define DUK_TVAL_GET_POINTER(tv) ((tv)->v.voidptr)
  1239. #define DUK_TVAL_GET_LIGHTFUNC(tv,out_fp,out_flags) do { \
  1240. (out_flags) = (duk_uint32_t) (tv)->v_extra; \
  1241. (out_fp) = (tv)->v.lightfunc; \
  1242. } while (0)
  1243. #define DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv) ((tv)->v.lightfunc)
  1244. #define DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv) ((duk_small_uint_t) ((tv)->v_extra))
  1245. #define DUK_TVAL_GET_STRING(tv) ((tv)->v.hstring)
  1246. #define DUK_TVAL_GET_OBJECT(tv) ((tv)->v.hobject)
  1247. #define DUK_TVAL_GET_BUFFER(tv) ((tv)->v.hbuffer)
  1248. #define DUK_TVAL_GET_HEAPHDR(tv) ((tv)->v.heaphdr)
  1249. /* decoding */
  1250. #define DUK_TVAL_GET_TAG(tv) ((tv)->t)
  1251. #define DUK_TVAL_IS_UNDEFINED(tv) ((tv)->t == DUK_TAG_UNDEFINED)
  1252. #define DUK_TVAL_IS_UNUSED(tv) ((tv)->t == DUK_TAG_UNUSED)
  1253. #define DUK_TVAL_IS_NULL(tv) ((tv)->t == DUK_TAG_NULL)
  1254. #define DUK_TVAL_IS_BOOLEAN(tv) ((tv)->t == DUK_TAG_BOOLEAN)
  1255. #define DUK_TVAL_IS_BOOLEAN_TRUE(tv) (((tv)->t == DUK_TAG_BOOLEAN) && ((tv)->v.i != 0))
  1256. #define DUK_TVAL_IS_BOOLEAN_FALSE(tv) (((tv)->t == DUK_TAG_BOOLEAN) && ((tv)->v.i == 0))
  1257. #if defined(DUK_USE_FASTINT)
  1258. #define DUK_TVAL_IS_DOUBLE(tv) ((tv)->t == DUK_TAG_NUMBER)
  1259. #define DUK_TVAL_IS_FASTINT(tv) ((tv)->t == DUK_TAG_FASTINT)
  1260. #define DUK_TVAL_IS_NUMBER(tv) ((tv)->t == DUK_TAG_NUMBER || \
  1261. (tv)->t == DUK_TAG_FASTINT)
  1262. #else
  1263. #define DUK_TVAL_IS_NUMBER(tv) ((tv)->t == DUK_TAG_NUMBER)
  1264. #define DUK_TVAL_IS_DOUBLE(tv) DUK_TVAL_IS_NUMBER((tv))
  1265. #endif /* DUK_USE_FASTINT */
  1266. #define DUK_TVAL_IS_POINTER(tv) ((tv)->t == DUK_TAG_POINTER)
  1267. #define DUK_TVAL_IS_LIGHTFUNC(tv) ((tv)->t == DUK_TAG_LIGHTFUNC)
  1268. #define DUK_TVAL_IS_STRING(tv) ((tv)->t == DUK_TAG_STRING)
  1269. #define DUK_TVAL_IS_OBJECT(tv) ((tv)->t == DUK_TAG_OBJECT)
  1270. #define DUK_TVAL_IS_BUFFER(tv) ((tv)->t == DUK_TAG_BUFFER)
  1271. /* This is performance critical because it's needed for every DECREF.
  1272. * Take advantage of the fact that the first heap allocated tag is 8,
  1273. * so that bit 3 is set for all heap allocated tags (and never set for
  1274. * non-heap-allocated tags).
  1275. */
  1276. #if 0
  1277. #define DUK_TVAL_IS_HEAP_ALLOCATED(tv) ((tv)->t >= DUK_TAG_STRING)
  1278. #endif
  1279. #define DUK_TVAL_IS_HEAP_ALLOCATED(tv) ((tv)->t & 0x08)
  1280. #if defined(DUK_USE_FASTINT)
  1281. #if 0
  1282. DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_unpacked(duk_tval *tv);
  1283. #endif
  1284. DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_unpacked_fastint(duk_tval *tv);
  1285. #endif
  1286. #endif /* DUK_USE_PACKED_TVAL */
  1287. /*
  1288. * Convenience (independent of representation)
  1289. */
  1290. #define DUK_TVAL_SET_BOOLEAN_TRUE(tv) DUK_TVAL_SET_BOOLEAN((tv), 1)
  1291. #define DUK_TVAL_SET_BOOLEAN_FALSE(tv) DUK_TVAL_SET_BOOLEAN((tv), 0)
  1292. #define DUK_TVAL_STRING_IS_SYMBOL(tv) \
  1293. DUK_HSTRING_HAS_SYMBOL(DUK_TVAL_GET_STRING((tv)))
  1294. /* Lightfunc flags packing and unpacking. */
  1295. /* Sign extend: 0x0000##00 -> 0x##000000 -> sign extend to 0xssssss##.
  1296. * Avoid signed shifts due to portability limitations.
  1297. */
  1298. #define DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags) \
  1299. ((duk_int32_t) (duk_int8_t) (((duk_uint16_t) (lf_flags)) >> 8))
  1300. #define DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags) \
  1301. (((lf_flags) >> 4) & 0x0fU)
  1302. #define DUK_LFUNC_FLAGS_GET_NARGS(lf_flags) \
  1303. ((lf_flags) & 0x0fU)
  1304. #define DUK_LFUNC_FLAGS_PACK(magic,length,nargs) \
  1305. ((((duk_small_uint_t) (magic)) & 0xffU) << 8) | ((length) << 4) | (nargs)
  1306. #define DUK_LFUNC_NARGS_VARARGS 0x0f /* varargs marker */
  1307. #define DUK_LFUNC_NARGS_MIN 0x00
  1308. #define DUK_LFUNC_NARGS_MAX 0x0e /* max, excl. varargs marker */
  1309. #define DUK_LFUNC_LENGTH_MIN 0x00
  1310. #define DUK_LFUNC_LENGTH_MAX 0x0f
  1311. #define DUK_LFUNC_MAGIC_MIN (-0x80)
  1312. #define DUK_LFUNC_MAGIC_MAX 0x7f
  1313. /* fastint constants etc */
  1314. #if defined(DUK_USE_FASTINT)
  1315. #define DUK_FASTINT_MIN (DUK_I64_CONSTANT(-0x800000000000))
  1316. #define DUK_FASTINT_MAX (DUK_I64_CONSTANT(0x7fffffffffff))
  1317. #define DUK_FASTINT_BITS 48
  1318. DUK_INTERNAL_DECL void duk_tval_set_number_chkfast_fast(duk_tval *tv, duk_double_t x);
  1319. DUK_INTERNAL_DECL void duk_tval_set_number_chkfast_slow(duk_tval *tv, duk_double_t x);
  1320. #endif
  1321. #endif /* DUK_TVAL_H_INCLUDED */
  1322. /* #include duk_builtins.h */
  1323. #line 1 "duk_builtins.h"
  1324. /*
  1325. * Automatically generated by genbuiltins.py, do not edit!
  1326. */
  1327. #if !defined(DUK_BUILTINS_H_INCLUDED)
  1328. #define DUK_BUILTINS_H_INCLUDED
  1329. #if defined(DUK_USE_ROM_STRINGS)
  1330. #error ROM support not enabled, rerun configure.py with --rom-support
  1331. #else /* DUK_USE_ROM_STRINGS */
  1332. #define DUK_STRIDX_UC_UNDEFINED 0 /* 'Undefined' */
  1333. #define DUK_HEAP_STRING_UC_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_UNDEFINED)
  1334. #define DUK_HTHREAD_STRING_UC_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_UNDEFINED)
  1335. #define DUK_STRIDX_UC_NULL 1 /* 'Null' */
  1336. #define DUK_HEAP_STRING_UC_NULL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_NULL)
  1337. #define DUK_HTHREAD_STRING_UC_NULL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_NULL)
  1338. #define DUK_STRIDX_UC_SYMBOL 2 /* 'Symbol' */
  1339. #define DUK_HEAP_STRING_UC_SYMBOL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_SYMBOL)
  1340. #define DUK_HTHREAD_STRING_UC_SYMBOL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_SYMBOL)
  1341. #define DUK_STRIDX_UC_ARGUMENTS 3 /* 'Arguments' */
  1342. #define DUK_HEAP_STRING_UC_ARGUMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_ARGUMENTS)
  1343. #define DUK_HTHREAD_STRING_UC_ARGUMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_ARGUMENTS)
  1344. #define DUK_STRIDX_UC_OBJECT 4 /* 'Object' */
  1345. #define DUK_HEAP_STRING_UC_OBJECT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_OBJECT)
  1346. #define DUK_HTHREAD_STRING_UC_OBJECT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_OBJECT)
  1347. #define DUK_STRIDX_UC_FUNCTION 5 /* 'Function' */
  1348. #define DUK_HEAP_STRING_UC_FUNCTION(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_FUNCTION)
  1349. #define DUK_HTHREAD_STRING_UC_FUNCTION(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_FUNCTION)
  1350. #define DUK_STRIDX_ARRAY 6 /* 'Array' */
  1351. #define DUK_HEAP_STRING_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ARRAY)
  1352. #define DUK_HTHREAD_STRING_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ARRAY)
  1353. #define DUK_STRIDX_UC_STRING 7 /* 'String' */
  1354. #define DUK_HEAP_STRING_UC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_STRING)
  1355. #define DUK_HTHREAD_STRING_UC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_STRING)
  1356. #define DUK_STRIDX_UC_BOOLEAN 8 /* 'Boolean' */
  1357. #define DUK_HEAP_STRING_UC_BOOLEAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_BOOLEAN)
  1358. #define DUK_HTHREAD_STRING_UC_BOOLEAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_BOOLEAN)
  1359. #define DUK_STRIDX_UC_NUMBER 9 /* 'Number' */
  1360. #define DUK_HEAP_STRING_UC_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_NUMBER)
  1361. #define DUK_HTHREAD_STRING_UC_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_NUMBER)
  1362. #define DUK_STRIDX_DATE 10 /* 'Date' */
  1363. #define DUK_HEAP_STRING_DATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DATE)
  1364. #define DUK_HTHREAD_STRING_DATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DATE)
  1365. #define DUK_STRIDX_REG_EXP 11 /* 'RegExp' */
  1366. #define DUK_HEAP_STRING_REG_EXP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_REG_EXP)
  1367. #define DUK_HTHREAD_STRING_REG_EXP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_REG_EXP)
  1368. #define DUK_STRIDX_UC_ERROR 12 /* 'Error' */
  1369. #define DUK_HEAP_STRING_UC_ERROR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_ERROR)
  1370. #define DUK_HTHREAD_STRING_UC_ERROR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_ERROR)
  1371. #define DUK_STRIDX_MATH 13 /* 'Math' */
  1372. #define DUK_HEAP_STRING_MATH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MATH)
  1373. #define DUK_HTHREAD_STRING_MATH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MATH)
  1374. #define DUK_STRIDX_JSON 14 /* 'JSON' */
  1375. #define DUK_HEAP_STRING_JSON(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON)
  1376. #define DUK_HTHREAD_STRING_JSON(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON)
  1377. #define DUK_STRIDX_EMPTY_STRING 15 /* '' */
  1378. #define DUK_HEAP_STRING_EMPTY_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EMPTY_STRING)
  1379. #define DUK_HTHREAD_STRING_EMPTY_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EMPTY_STRING)
  1380. #define DUK_STRIDX_ARRAY_BUFFER 16 /* 'ArrayBuffer' */
  1381. #define DUK_HEAP_STRING_ARRAY_BUFFER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ARRAY_BUFFER)
  1382. #define DUK_HTHREAD_STRING_ARRAY_BUFFER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ARRAY_BUFFER)
  1383. #define DUK_STRIDX_DATA_VIEW 17 /* 'DataView' */
  1384. #define DUK_HEAP_STRING_DATA_VIEW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DATA_VIEW)
  1385. #define DUK_HTHREAD_STRING_DATA_VIEW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DATA_VIEW)
  1386. #define DUK_STRIDX_INT8_ARRAY 18 /* 'Int8Array' */
  1387. #define DUK_HEAP_STRING_INT8_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT8_ARRAY)
  1388. #define DUK_HTHREAD_STRING_INT8_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT8_ARRAY)
  1389. #define DUK_STRIDX_UINT8_ARRAY 19 /* 'Uint8Array' */
  1390. #define DUK_HEAP_STRING_UINT8_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT8_ARRAY)
  1391. #define DUK_HTHREAD_STRING_UINT8_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT8_ARRAY)
  1392. #define DUK_STRIDX_UINT8_CLAMPED_ARRAY 20 /* 'Uint8ClampedArray' */
  1393. #define DUK_HEAP_STRING_UINT8_CLAMPED_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT8_CLAMPED_ARRAY)
  1394. #define DUK_HTHREAD_STRING_UINT8_CLAMPED_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT8_CLAMPED_ARRAY)
  1395. #define DUK_STRIDX_INT16_ARRAY 21 /* 'Int16Array' */
  1396. #define DUK_HEAP_STRING_INT16_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT16_ARRAY)
  1397. #define DUK_HTHREAD_STRING_INT16_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT16_ARRAY)
  1398. #define DUK_STRIDX_UINT16_ARRAY 22 /* 'Uint16Array' */
  1399. #define DUK_HEAP_STRING_UINT16_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT16_ARRAY)
  1400. #define DUK_HTHREAD_STRING_UINT16_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT16_ARRAY)
  1401. #define DUK_STRIDX_INT32_ARRAY 23 /* 'Int32Array' */
  1402. #define DUK_HEAP_STRING_INT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT32_ARRAY)
  1403. #define DUK_HTHREAD_STRING_INT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT32_ARRAY)
  1404. #define DUK_STRIDX_UINT32_ARRAY 24 /* 'Uint32Array' */
  1405. #define DUK_HEAP_STRING_UINT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT32_ARRAY)
  1406. #define DUK_HTHREAD_STRING_UINT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT32_ARRAY)
  1407. #define DUK_STRIDX_FLOAT32_ARRAY 25 /* 'Float32Array' */
  1408. #define DUK_HEAP_STRING_FLOAT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLOAT32_ARRAY)
  1409. #define DUK_HTHREAD_STRING_FLOAT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLOAT32_ARRAY)
  1410. #define DUK_STRIDX_FLOAT64_ARRAY 26 /* 'Float64Array' */
  1411. #define DUK_HEAP_STRING_FLOAT64_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLOAT64_ARRAY)
  1412. #define DUK_HTHREAD_STRING_FLOAT64_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLOAT64_ARRAY)
  1413. #define DUK_STRIDX_GLOBAL 27 /* 'global' */
  1414. #define DUK_HEAP_STRING_GLOBAL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_GLOBAL)
  1415. #define DUK_HTHREAD_STRING_GLOBAL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_GLOBAL)
  1416. #define DUK_STRIDX_OBJ_ENV 28 /* 'ObjEnv' */
  1417. #define DUK_HEAP_STRING_OBJ_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_OBJ_ENV)
  1418. #define DUK_HTHREAD_STRING_OBJ_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_OBJ_ENV)
  1419. #define DUK_STRIDX_DEC_ENV 29 /* 'DecEnv' */
  1420. #define DUK_HEAP_STRING_DEC_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEC_ENV)
  1421. #define DUK_HTHREAD_STRING_DEC_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEC_ENV)
  1422. #define DUK_STRIDX_UC_BUFFER 30 /* 'Buffer' */
  1423. #define DUK_HEAP_STRING_UC_BUFFER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_BUFFER)
  1424. #define DUK_HTHREAD_STRING_UC_BUFFER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_BUFFER)
  1425. #define DUK_STRIDX_UC_POINTER 31 /* 'Pointer' */
  1426. #define DUK_HEAP_STRING_UC_POINTER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_POINTER)
  1427. #define DUK_HTHREAD_STRING_UC_POINTER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_POINTER)
  1428. #define DUK_STRIDX_UC_THREAD 32 /* 'Thread' */
  1429. #define DUK_HEAP_STRING_UC_THREAD(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_THREAD)
  1430. #define DUK_HTHREAD_STRING_UC_THREAD(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_THREAD)
  1431. #define DUK_STRIDX_EVAL 33 /* 'eval' */
  1432. #define DUK_HEAP_STRING_EVAL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EVAL)
  1433. #define DUK_HTHREAD_STRING_EVAL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EVAL)
  1434. #define DUK_STRIDX_VALUE 34 /* 'value' */
  1435. #define DUK_HEAP_STRING_VALUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VALUE)
  1436. #define DUK_HTHREAD_STRING_VALUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VALUE)
  1437. #define DUK_STRIDX_WRITABLE 35 /* 'writable' */
  1438. #define DUK_HEAP_STRING_WRITABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WRITABLE)
  1439. #define DUK_HTHREAD_STRING_WRITABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WRITABLE)
  1440. #define DUK_STRIDX_CONFIGURABLE 36 /* 'configurable' */
  1441. #define DUK_HEAP_STRING_CONFIGURABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONFIGURABLE)
  1442. #define DUK_HTHREAD_STRING_CONFIGURABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONFIGURABLE)
  1443. #define DUK_STRIDX_ENUMERABLE 37 /* 'enumerable' */
  1444. #define DUK_HEAP_STRING_ENUMERABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENUMERABLE)
  1445. #define DUK_HTHREAD_STRING_ENUMERABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENUMERABLE)
  1446. #define DUK_STRIDX_JOIN 38 /* 'join' */
  1447. #define DUK_HEAP_STRING_JOIN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JOIN)
  1448. #define DUK_HTHREAD_STRING_JOIN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JOIN)
  1449. #define DUK_STRIDX_TO_LOCALE_STRING 39 /* 'toLocaleString' */
  1450. #define DUK_HEAP_STRING_TO_LOCALE_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_LOCALE_STRING)
  1451. #define DUK_HTHREAD_STRING_TO_LOCALE_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_LOCALE_STRING)
  1452. #define DUK_STRIDX_VALUE_OF 40 /* 'valueOf' */
  1453. #define DUK_HEAP_STRING_VALUE_OF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VALUE_OF)
  1454. #define DUK_HTHREAD_STRING_VALUE_OF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VALUE_OF)
  1455. #define DUK_STRIDX_TO_UTC_STRING 41 /* 'toUTCString' */
  1456. #define DUK_HEAP_STRING_TO_UTC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_UTC_STRING)
  1457. #define DUK_HTHREAD_STRING_TO_UTC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_UTC_STRING)
  1458. #define DUK_STRIDX_TO_ISO_STRING 42 /* 'toISOString' */
  1459. #define DUK_HEAP_STRING_TO_ISO_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_ISO_STRING)
  1460. #define DUK_HTHREAD_STRING_TO_ISO_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_ISO_STRING)
  1461. #define DUK_STRIDX_TO_GMT_STRING 43 /* 'toGMTString' */
  1462. #define DUK_HEAP_STRING_TO_GMT_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_GMT_STRING)
  1463. #define DUK_HTHREAD_STRING_TO_GMT_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_GMT_STRING)
  1464. #define DUK_STRIDX_SOURCE 44 /* 'source' */
  1465. #define DUK_HEAP_STRING_SOURCE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SOURCE)
  1466. #define DUK_HTHREAD_STRING_SOURCE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SOURCE)
  1467. #define DUK_STRIDX_IGNORE_CASE 45 /* 'ignoreCase' */
  1468. #define DUK_HEAP_STRING_IGNORE_CASE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IGNORE_CASE)
  1469. #define DUK_HTHREAD_STRING_IGNORE_CASE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IGNORE_CASE)
  1470. #define DUK_STRIDX_MULTILINE 46 /* 'multiline' */
  1471. #define DUK_HEAP_STRING_MULTILINE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MULTILINE)
  1472. #define DUK_HTHREAD_STRING_MULTILINE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MULTILINE)
  1473. #define DUK_STRIDX_LAST_INDEX 47 /* 'lastIndex' */
  1474. #define DUK_HEAP_STRING_LAST_INDEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LAST_INDEX)
  1475. #define DUK_HTHREAD_STRING_LAST_INDEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LAST_INDEX)
  1476. #define DUK_STRIDX_FLAGS 48 /* 'flags' */
  1477. #define DUK_HEAP_STRING_FLAGS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLAGS)
  1478. #define DUK_HTHREAD_STRING_FLAGS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLAGS)
  1479. #define DUK_STRIDX_INDEX 49 /* 'index' */
  1480. #define DUK_HEAP_STRING_INDEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INDEX)
  1481. #define DUK_HTHREAD_STRING_INDEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INDEX)
  1482. #define DUK_STRIDX_PROTOTYPE 50 /* 'prototype' */
  1483. #define DUK_HEAP_STRING_PROTOTYPE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PROTOTYPE)
  1484. #define DUK_HTHREAD_STRING_PROTOTYPE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PROTOTYPE)
  1485. #define DUK_STRIDX_CONSTRUCTOR 51 /* 'constructor' */
  1486. #define DUK_HEAP_STRING_CONSTRUCTOR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONSTRUCTOR)
  1487. #define DUK_HTHREAD_STRING_CONSTRUCTOR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONSTRUCTOR)
  1488. #define DUK_STRIDX_MESSAGE 52 /* 'message' */
  1489. #define DUK_HEAP_STRING_MESSAGE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MESSAGE)
  1490. #define DUK_HTHREAD_STRING_MESSAGE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MESSAGE)
  1491. #define DUK_STRIDX_LC_BOOLEAN 53 /* 'boolean' */
  1492. #define DUK_HEAP_STRING_LC_BOOLEAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_BOOLEAN)
  1493. #define DUK_HTHREAD_STRING_LC_BOOLEAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_BOOLEAN)
  1494. #define DUK_STRIDX_LC_NUMBER 54 /* 'number' */
  1495. #define DUK_HEAP_STRING_LC_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_NUMBER)
  1496. #define DUK_HTHREAD_STRING_LC_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_NUMBER)
  1497. #define DUK_STRIDX_LC_STRING 55 /* 'string' */
  1498. #define DUK_HEAP_STRING_LC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_STRING)
  1499. #define DUK_HTHREAD_STRING_LC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_STRING)
  1500. #define DUK_STRIDX_LC_SYMBOL 56 /* 'symbol' */
  1501. #define DUK_HEAP_STRING_LC_SYMBOL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_SYMBOL)
  1502. #define DUK_HTHREAD_STRING_LC_SYMBOL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_SYMBOL)
  1503. #define DUK_STRIDX_LC_OBJECT 57 /* 'object' */
  1504. #define DUK_HEAP_STRING_LC_OBJECT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_OBJECT)
  1505. #define DUK_HTHREAD_STRING_LC_OBJECT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_OBJECT)
  1506. #define DUK_STRIDX_LC_UNDEFINED 58 /* 'undefined' */
  1507. #define DUK_HEAP_STRING_LC_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_UNDEFINED)
  1508. #define DUK_HTHREAD_STRING_LC_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_UNDEFINED)
  1509. #define DUK_STRIDX_NAN 59 /* 'NaN' */
  1510. #define DUK_HEAP_STRING_NAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NAN)
  1511. #define DUK_HTHREAD_STRING_NAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NAN)
  1512. #define DUK_STRIDX_INFINITY 60 /* 'Infinity' */
  1513. #define DUK_HEAP_STRING_INFINITY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INFINITY)
  1514. #define DUK_HTHREAD_STRING_INFINITY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INFINITY)
  1515. #define DUK_STRIDX_MINUS_INFINITY 61 /* '-Infinity' */
  1516. #define DUK_HEAP_STRING_MINUS_INFINITY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MINUS_INFINITY)
  1517. #define DUK_HTHREAD_STRING_MINUS_INFINITY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MINUS_INFINITY)
  1518. #define DUK_STRIDX_MINUS_ZERO 62 /* '-0' */
  1519. #define DUK_HEAP_STRING_MINUS_ZERO(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MINUS_ZERO)
  1520. #define DUK_HTHREAD_STRING_MINUS_ZERO(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MINUS_ZERO)
  1521. #define DUK_STRIDX_COMMA 63 /* ',' */
  1522. #define DUK_HEAP_STRING_COMMA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_COMMA)
  1523. #define DUK_HTHREAD_STRING_COMMA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_COMMA)
  1524. #define DUK_STRIDX_NEWLINE_4SPACE 64 /* '\n ' */
  1525. #define DUK_HEAP_STRING_NEWLINE_4SPACE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NEWLINE_4SPACE)
  1526. #define DUK_HTHREAD_STRING_NEWLINE_4SPACE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NEWLINE_4SPACE)
  1527. #define DUK_STRIDX_BRACKETED_ELLIPSIS 65 /* '[...]' */
  1528. #define DUK_HEAP_STRING_BRACKETED_ELLIPSIS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BRACKETED_ELLIPSIS)
  1529. #define DUK_HTHREAD_STRING_BRACKETED_ELLIPSIS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BRACKETED_ELLIPSIS)
  1530. #define DUK_STRIDX_INVALID_DATE 66 /* 'Invalid Date' */
  1531. #define DUK_HEAP_STRING_INVALID_DATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INVALID_DATE)
  1532. #define DUK_HTHREAD_STRING_INVALID_DATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INVALID_DATE)
  1533. #define DUK_STRIDX_LC_ARGUMENTS 67 /* 'arguments' */
  1534. #define DUK_HEAP_STRING_LC_ARGUMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_ARGUMENTS)
  1535. #define DUK_HTHREAD_STRING_LC_ARGUMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_ARGUMENTS)
  1536. #define DUK_STRIDX_CALLEE 68 /* 'callee' */
  1537. #define DUK_HEAP_STRING_CALLEE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CALLEE)
  1538. #define DUK_HTHREAD_STRING_CALLEE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CALLEE)
  1539. #define DUK_STRIDX_CALLER 69 /* 'caller' */
  1540. #define DUK_HEAP_STRING_CALLER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CALLER)
  1541. #define DUK_HTHREAD_STRING_CALLER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CALLER)
  1542. #define DUK_STRIDX_APPLY 70 /* 'apply' */
  1543. #define DUK_HEAP_STRING_APPLY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_APPLY)
  1544. #define DUK_HTHREAD_STRING_APPLY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_APPLY)
  1545. #define DUK_STRIDX_CONSTRUCT 71 /* 'construct' */
  1546. #define DUK_HEAP_STRING_CONSTRUCT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONSTRUCT)
  1547. #define DUK_HTHREAD_STRING_CONSTRUCT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONSTRUCT)
  1548. #define DUK_STRIDX_DELETE_PROPERTY 72 /* 'deleteProperty' */
  1549. #define DUK_HEAP_STRING_DELETE_PROPERTY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DELETE_PROPERTY)
  1550. #define DUK_HTHREAD_STRING_DELETE_PROPERTY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DELETE_PROPERTY)
  1551. #define DUK_STRIDX_GET 73 /* 'get' */
  1552. #define DUK_HEAP_STRING_GET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_GET)
  1553. #define DUK_HTHREAD_STRING_GET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_GET)
  1554. #define DUK_STRIDX_HAS 74 /* 'has' */
  1555. #define DUK_HEAP_STRING_HAS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_HAS)
  1556. #define DUK_HTHREAD_STRING_HAS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_HAS)
  1557. #define DUK_STRIDX_OWN_KEYS 75 /* 'ownKeys' */
  1558. #define DUK_HEAP_STRING_OWN_KEYS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_OWN_KEYS)
  1559. #define DUK_HTHREAD_STRING_OWN_KEYS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_OWN_KEYS)
  1560. #define DUK_STRIDX_SET_PROTOTYPE_OF 76 /* 'setPrototypeOf' */
  1561. #define DUK_HEAP_STRING_SET_PROTOTYPE_OF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SET_PROTOTYPE_OF)
  1562. #define DUK_HTHREAD_STRING_SET_PROTOTYPE_OF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SET_PROTOTYPE_OF)
  1563. #define DUK_STRIDX___PROTO__ 77 /* '__proto__' */
  1564. #define DUK_HEAP_STRING___PROTO__(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX___PROTO__)
  1565. #define DUK_HTHREAD_STRING___PROTO__(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX___PROTO__)
  1566. #define DUK_STRIDX_TO_STRING 78 /* 'toString' */
  1567. #define DUK_HEAP_STRING_TO_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_STRING)
  1568. #define DUK_HTHREAD_STRING_TO_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_STRING)
  1569. #define DUK_STRIDX_TO_JSON 79 /* 'toJSON' */
  1570. #define DUK_HEAP_STRING_TO_JSON(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_JSON)
  1571. #define DUK_HTHREAD_STRING_TO_JSON(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_JSON)
  1572. #define DUK_STRIDX_TYPE 80 /* 'type' */
  1573. #define DUK_HEAP_STRING_TYPE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TYPE)
  1574. #define DUK_HTHREAD_STRING_TYPE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TYPE)
  1575. #define DUK_STRIDX_DATA 81 /* 'data' */
  1576. #define DUK_HEAP_STRING_DATA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DATA)
  1577. #define DUK_HTHREAD_STRING_DATA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DATA)
  1578. #define DUK_STRIDX_LENGTH 82 /* 'length' */
  1579. #define DUK_HEAP_STRING_LENGTH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LENGTH)
  1580. #define DUK_HTHREAD_STRING_LENGTH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LENGTH)
  1581. #define DUK_STRIDX_SET 83 /* 'set' */
  1582. #define DUK_HEAP_STRING_SET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SET)
  1583. #define DUK_HTHREAD_STRING_SET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SET)
  1584. #define DUK_STRIDX_STACK 84 /* 'stack' */
  1585. #define DUK_HEAP_STRING_STACK(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_STACK)
  1586. #define DUK_HTHREAD_STRING_STACK(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_STACK)
  1587. #define DUK_STRIDX_PC 85 /* 'pc' */
  1588. #define DUK_HEAP_STRING_PC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PC)
  1589. #define DUK_HTHREAD_STRING_PC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PC)
  1590. #define DUK_STRIDX_LINE_NUMBER 86 /* 'lineNumber' */
  1591. #define DUK_HEAP_STRING_LINE_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LINE_NUMBER)
  1592. #define DUK_HTHREAD_STRING_LINE_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LINE_NUMBER)
  1593. #define DUK_STRIDX_INT_TRACEDATA 87 /* '\x82Tracedata' */
  1594. #define DUK_HEAP_STRING_INT_TRACEDATA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_TRACEDATA)
  1595. #define DUK_HTHREAD_STRING_INT_TRACEDATA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_TRACEDATA)
  1596. #define DUK_STRIDX_NAME 88 /* 'name' */
  1597. #define DUK_HEAP_STRING_NAME(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NAME)
  1598. #define DUK_HTHREAD_STRING_NAME(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NAME)
  1599. #define DUK_STRIDX_FILE_NAME 89 /* 'fileName' */
  1600. #define DUK_HEAP_STRING_FILE_NAME(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FILE_NAME)
  1601. #define DUK_HTHREAD_STRING_FILE_NAME(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FILE_NAME)
  1602. #define DUK_STRIDX_LC_POINTER 90 /* 'pointer' */
  1603. #define DUK_HEAP_STRING_LC_POINTER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_POINTER)
  1604. #define DUK_HTHREAD_STRING_LC_POINTER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_POINTER)
  1605. #define DUK_STRIDX_INT_TARGET 91 /* '\x82Target' */
  1606. #define DUK_HEAP_STRING_INT_TARGET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_TARGET)
  1607. #define DUK_HTHREAD_STRING_INT_TARGET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_TARGET)
  1608. #define DUK_STRIDX_INT_NEXT 92 /* '\x82Next' */
  1609. #define DUK_HEAP_STRING_INT_NEXT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_NEXT)
  1610. #define DUK_HTHREAD_STRING_INT_NEXT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_NEXT)
  1611. #define DUK_STRIDX_INT_BYTECODE 93 /* '\x82Bytecode' */
  1612. #define DUK_HEAP_STRING_INT_BYTECODE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_BYTECODE)
  1613. #define DUK_HTHREAD_STRING_INT_BYTECODE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_BYTECODE)
  1614. #define DUK_STRIDX_INT_FORMALS 94 /* '\x82Formals' */
  1615. #define DUK_HEAP_STRING_INT_FORMALS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_FORMALS)
  1616. #define DUK_HTHREAD_STRING_INT_FORMALS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_FORMALS)
  1617. #define DUK_STRIDX_INT_VARMAP 95 /* '\x82Varmap' */
  1618. #define DUK_HEAP_STRING_INT_VARMAP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VARMAP)
  1619. #define DUK_HTHREAD_STRING_INT_VARMAP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VARMAP)
  1620. #define DUK_STRIDX_INT_SOURCE 96 /* '\x82Source' */
  1621. #define DUK_HEAP_STRING_INT_SOURCE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_SOURCE)
  1622. #define DUK_HTHREAD_STRING_INT_SOURCE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_SOURCE)
  1623. #define DUK_STRIDX_INT_PC2LINE 97 /* '\x82Pc2line' */
  1624. #define DUK_HEAP_STRING_INT_PC2LINE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_PC2LINE)
  1625. #define DUK_HTHREAD_STRING_INT_PC2LINE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_PC2LINE)
  1626. #define DUK_STRIDX_INT_MAP 98 /* '\x82Map' */
  1627. #define DUK_HEAP_STRING_INT_MAP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_MAP)
  1628. #define DUK_HTHREAD_STRING_INT_MAP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_MAP)
  1629. #define DUK_STRIDX_INT_VARENV 99 /* '\x82Varenv' */
  1630. #define DUK_HEAP_STRING_INT_VARENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VARENV)
  1631. #define DUK_HTHREAD_STRING_INT_VARENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VARENV)
  1632. #define DUK_STRIDX_INT_FINALIZER 100 /* '\x82Finalizer' */
  1633. #define DUK_HEAP_STRING_INT_FINALIZER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_FINALIZER)
  1634. #define DUK_HTHREAD_STRING_INT_FINALIZER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_FINALIZER)
  1635. #define DUK_STRIDX_INT_VALUE 101 /* '\x82Value' */
  1636. #define DUK_HEAP_STRING_INT_VALUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VALUE)
  1637. #define DUK_HTHREAD_STRING_INT_VALUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VALUE)
  1638. #define DUK_STRIDX_COMPILE 102 /* 'compile' */
  1639. #define DUK_HEAP_STRING_COMPILE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_COMPILE)
  1640. #define DUK_HTHREAD_STRING_COMPILE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_COMPILE)
  1641. #define DUK_STRIDX_INPUT 103 /* 'input' */
  1642. #define DUK_HEAP_STRING_INPUT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INPUT)
  1643. #define DUK_HTHREAD_STRING_INPUT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INPUT)
  1644. #define DUK_STRIDX_ERR_CREATE 104 /* 'errCreate' */
  1645. #define DUK_HEAP_STRING_ERR_CREATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ERR_CREATE)
  1646. #define DUK_HTHREAD_STRING_ERR_CREATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ERR_CREATE)
  1647. #define DUK_STRIDX_ERR_THROW 105 /* 'errThrow' */
  1648. #define DUK_HEAP_STRING_ERR_THROW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ERR_THROW)
  1649. #define DUK_HTHREAD_STRING_ERR_THROW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ERR_THROW)
  1650. #define DUK_STRIDX_ENV 106 /* 'env' */
  1651. #define DUK_HEAP_STRING_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENV)
  1652. #define DUK_HTHREAD_STRING_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENV)
  1653. #define DUK_STRIDX_HEX 107 /* 'hex' */
  1654. #define DUK_HEAP_STRING_HEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_HEX)
  1655. #define DUK_HTHREAD_STRING_HEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_HEX)
  1656. #define DUK_STRIDX_BASE64 108 /* 'base64' */
  1657. #define DUK_HEAP_STRING_BASE64(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BASE64)
  1658. #define DUK_HTHREAD_STRING_BASE64(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BASE64)
  1659. #define DUK_STRIDX_JX 109 /* 'jx' */
  1660. #define DUK_HEAP_STRING_JX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JX)
  1661. #define DUK_HTHREAD_STRING_JX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JX)
  1662. #define DUK_STRIDX_JC 110 /* 'jc' */
  1663. #define DUK_HEAP_STRING_JC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JC)
  1664. #define DUK_HTHREAD_STRING_JC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JC)
  1665. #define DUK_STRIDX_JSON_EXT_UNDEFINED 111 /* '{"_undef":true}' */
  1666. #define DUK_HEAP_STRING_JSON_EXT_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_UNDEFINED)
  1667. #define DUK_HTHREAD_STRING_JSON_EXT_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_UNDEFINED)
  1668. #define DUK_STRIDX_JSON_EXT_NAN 112 /* '{"_nan":true}' */
  1669. #define DUK_HEAP_STRING_JSON_EXT_NAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_NAN)
  1670. #define DUK_HTHREAD_STRING_JSON_EXT_NAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_NAN)
  1671. #define DUK_STRIDX_JSON_EXT_POSINF 113 /* '{"_inf":true}' */
  1672. #define DUK_HEAP_STRING_JSON_EXT_POSINF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_POSINF)
  1673. #define DUK_HTHREAD_STRING_JSON_EXT_POSINF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_POSINF)
  1674. #define DUK_STRIDX_JSON_EXT_NEGINF 114 /* '{"_ninf":true}' */
  1675. #define DUK_HEAP_STRING_JSON_EXT_NEGINF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_NEGINF)
  1676. #define DUK_HTHREAD_STRING_JSON_EXT_NEGINF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_NEGINF)
  1677. #define DUK_STRIDX_JSON_EXT_FUNCTION1 115 /* '{"_func":true}' */
  1678. #define DUK_HEAP_STRING_JSON_EXT_FUNCTION1(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_FUNCTION1)
  1679. #define DUK_HTHREAD_STRING_JSON_EXT_FUNCTION1(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_FUNCTION1)
  1680. #define DUK_STRIDX_JSON_EXT_FUNCTION2 116 /* '{_func:true}' */
  1681. #define DUK_HEAP_STRING_JSON_EXT_FUNCTION2(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_FUNCTION2)
  1682. #define DUK_HTHREAD_STRING_JSON_EXT_FUNCTION2(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_FUNCTION2)
  1683. #define DUK_STRIDX_BREAK 117 /* 'break' */
  1684. #define DUK_HEAP_STRING_BREAK(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BREAK)
  1685. #define DUK_HTHREAD_STRING_BREAK(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BREAK)
  1686. #define DUK_STRIDX_CASE 118 /* 'case' */
  1687. #define DUK_HEAP_STRING_CASE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CASE)
  1688. #define DUK_HTHREAD_STRING_CASE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CASE)
  1689. #define DUK_STRIDX_CATCH 119 /* 'catch' */
  1690. #define DUK_HEAP_STRING_CATCH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CATCH)
  1691. #define DUK_HTHREAD_STRING_CATCH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CATCH)
  1692. #define DUK_STRIDX_CONTINUE 120 /* 'continue' */
  1693. #define DUK_HEAP_STRING_CONTINUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONTINUE)
  1694. #define DUK_HTHREAD_STRING_CONTINUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONTINUE)
  1695. #define DUK_STRIDX_DEBUGGER 121 /* 'debugger' */
  1696. #define DUK_HEAP_STRING_DEBUGGER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEBUGGER)
  1697. #define DUK_HTHREAD_STRING_DEBUGGER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEBUGGER)
  1698. #define DUK_STRIDX_DEFAULT 122 /* 'default' */
  1699. #define DUK_HEAP_STRING_DEFAULT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEFAULT)
  1700. #define DUK_HTHREAD_STRING_DEFAULT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEFAULT)
  1701. #define DUK_STRIDX_DELETE 123 /* 'delete' */
  1702. #define DUK_HEAP_STRING_DELETE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DELETE)
  1703. #define DUK_HTHREAD_STRING_DELETE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DELETE)
  1704. #define DUK_STRIDX_DO 124 /* 'do' */
  1705. #define DUK_HEAP_STRING_DO(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DO)
  1706. #define DUK_HTHREAD_STRING_DO(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DO)
  1707. #define DUK_STRIDX_ELSE 125 /* 'else' */
  1708. #define DUK_HEAP_STRING_ELSE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ELSE)
  1709. #define DUK_HTHREAD_STRING_ELSE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ELSE)
  1710. #define DUK_STRIDX_FINALLY 126 /* 'finally' */
  1711. #define DUK_HEAP_STRING_FINALLY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FINALLY)
  1712. #define DUK_HTHREAD_STRING_FINALLY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FINALLY)
  1713. #define DUK_STRIDX_FOR 127 /* 'for' */
  1714. #define DUK_HEAP_STRING_FOR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FOR)
  1715. #define DUK_HTHREAD_STRING_FOR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FOR)
  1716. #define DUK_STRIDX_LC_FUNCTION 128 /* 'function' */
  1717. #define DUK_HEAP_STRING_LC_FUNCTION(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_FUNCTION)
  1718. #define DUK_HTHREAD_STRING_LC_FUNCTION(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_FUNCTION)
  1719. #define DUK_STRIDX_IF 129 /* 'if' */
  1720. #define DUK_HEAP_STRING_IF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IF)
  1721. #define DUK_HTHREAD_STRING_IF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IF)
  1722. #define DUK_STRIDX_IN 130 /* 'in' */
  1723. #define DUK_HEAP_STRING_IN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IN)
  1724. #define DUK_HTHREAD_STRING_IN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IN)
  1725. #define DUK_STRIDX_INSTANCEOF 131 /* 'instanceof' */
  1726. #define DUK_HEAP_STRING_INSTANCEOF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INSTANCEOF)
  1727. #define DUK_HTHREAD_STRING_INSTANCEOF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INSTANCEOF)
  1728. #define DUK_STRIDX_NEW 132 /* 'new' */
  1729. #define DUK_HEAP_STRING_NEW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NEW)
  1730. #define DUK_HTHREAD_STRING_NEW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NEW)
  1731. #define DUK_STRIDX_RETURN 133 /* 'return' */
  1732. #define DUK_HEAP_STRING_RETURN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_RETURN)
  1733. #define DUK_HTHREAD_STRING_RETURN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_RETURN)
  1734. #define DUK_STRIDX_SWITCH 134 /* 'switch' */
  1735. #define DUK_HEAP_STRING_SWITCH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SWITCH)
  1736. #define DUK_HTHREAD_STRING_SWITCH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SWITCH)
  1737. #define DUK_STRIDX_THIS 135 /* 'this' */
  1738. #define DUK_HEAP_STRING_THIS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_THIS)
  1739. #define DUK_HTHREAD_STRING_THIS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_THIS)
  1740. #define DUK_STRIDX_THROW 136 /* 'throw' */
  1741. #define DUK_HEAP_STRING_THROW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_THROW)
  1742. #define DUK_HTHREAD_STRING_THROW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_THROW)
  1743. #define DUK_STRIDX_TRY 137 /* 'try' */
  1744. #define DUK_HEAP_STRING_TRY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TRY)
  1745. #define DUK_HTHREAD_STRING_TRY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TRY)
  1746. #define DUK_STRIDX_TYPEOF 138 /* 'typeof' */
  1747. #define DUK_HEAP_STRING_TYPEOF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TYPEOF)
  1748. #define DUK_HTHREAD_STRING_TYPEOF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TYPEOF)
  1749. #define DUK_STRIDX_VAR 139 /* 'var' */
  1750. #define DUK_HEAP_STRING_VAR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VAR)
  1751. #define DUK_HTHREAD_STRING_VAR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VAR)
  1752. #define DUK_STRIDX_CONST 140 /* 'const' */
  1753. #define DUK_HEAP_STRING_CONST(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONST)
  1754. #define DUK_HTHREAD_STRING_CONST(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONST)
  1755. #define DUK_STRIDX_VOID 141 /* 'void' */
  1756. #define DUK_HEAP_STRING_VOID(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VOID)
  1757. #define DUK_HTHREAD_STRING_VOID(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VOID)
  1758. #define DUK_STRIDX_WHILE 142 /* 'while' */
  1759. #define DUK_HEAP_STRING_WHILE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WHILE)
  1760. #define DUK_HTHREAD_STRING_WHILE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WHILE)
  1761. #define DUK_STRIDX_WITH 143 /* 'with' */
  1762. #define DUK_HEAP_STRING_WITH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WITH)
  1763. #define DUK_HTHREAD_STRING_WITH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WITH)
  1764. #define DUK_STRIDX_CLASS 144 /* 'class' */
  1765. #define DUK_HEAP_STRING_CLASS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CLASS)
  1766. #define DUK_HTHREAD_STRING_CLASS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CLASS)
  1767. #define DUK_STRIDX_ENUM 145 /* 'enum' */
  1768. #define DUK_HEAP_STRING_ENUM(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENUM)
  1769. #define DUK_HTHREAD_STRING_ENUM(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENUM)
  1770. #define DUK_STRIDX_EXPORT 146 /* 'export' */
  1771. #define DUK_HEAP_STRING_EXPORT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EXPORT)
  1772. #define DUK_HTHREAD_STRING_EXPORT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EXPORT)
  1773. #define DUK_STRIDX_EXTENDS 147 /* 'extends' */
  1774. #define DUK_HEAP_STRING_EXTENDS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EXTENDS)
  1775. #define DUK_HTHREAD_STRING_EXTENDS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EXTENDS)
  1776. #define DUK_STRIDX_IMPORT 148 /* 'import' */
  1777. #define DUK_HEAP_STRING_IMPORT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IMPORT)
  1778. #define DUK_HTHREAD_STRING_IMPORT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IMPORT)
  1779. #define DUK_STRIDX_SUPER 149 /* 'super' */
  1780. #define DUK_HEAP_STRING_SUPER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SUPER)
  1781. #define DUK_HTHREAD_STRING_SUPER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SUPER)
  1782. #define DUK_STRIDX_LC_NULL 150 /* 'null' */
  1783. #define DUK_HEAP_STRING_LC_NULL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_NULL)
  1784. #define DUK_HTHREAD_STRING_LC_NULL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_NULL)
  1785. #define DUK_STRIDX_TRUE 151 /* 'true' */
  1786. #define DUK_HEAP_STRING_TRUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TRUE)
  1787. #define DUK_HTHREAD_STRING_TRUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TRUE)
  1788. #define DUK_STRIDX_FALSE 152 /* 'false' */
  1789. #define DUK_HEAP_STRING_FALSE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FALSE)
  1790. #define DUK_HTHREAD_STRING_FALSE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FALSE)
  1791. #define DUK_STRIDX_IMPLEMENTS 153 /* 'implements' */
  1792. #define DUK_HEAP_STRING_IMPLEMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IMPLEMENTS)
  1793. #define DUK_HTHREAD_STRING_IMPLEMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IMPLEMENTS)
  1794. #define DUK_STRIDX_INTERFACE 154 /* 'interface' */
  1795. #define DUK_HEAP_STRING_INTERFACE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INTERFACE)
  1796. #define DUK_HTHREAD_STRING_INTERFACE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INTERFACE)
  1797. #define DUK_STRIDX_LET 155 /* 'let' */
  1798. #define DUK_HEAP_STRING_LET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LET)
  1799. #define DUK_HTHREAD_STRING_LET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LET)
  1800. #define DUK_STRIDX_PACKAGE 156 /* 'package' */
  1801. #define DUK_HEAP_STRING_PACKAGE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PACKAGE)
  1802. #define DUK_HTHREAD_STRING_PACKAGE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PACKAGE)
  1803. #define DUK_STRIDX_PRIVATE 157 /* 'private' */
  1804. #define DUK_HEAP_STRING_PRIVATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PRIVATE)
  1805. #define DUK_HTHREAD_STRING_PRIVATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PRIVATE)
  1806. #define DUK_STRIDX_PROTECTED 158 /* 'protected' */
  1807. #define DUK_HEAP_STRING_PROTECTED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PROTECTED)
  1808. #define DUK_HTHREAD_STRING_PROTECTED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PROTECTED)
  1809. #define DUK_STRIDX_PUBLIC 159 /* 'public' */
  1810. #define DUK_HEAP_STRING_PUBLIC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PUBLIC)
  1811. #define DUK_HTHREAD_STRING_PUBLIC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PUBLIC)
  1812. #define DUK_STRIDX_STATIC 160 /* 'static' */
  1813. #define DUK_HEAP_STRING_STATIC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_STATIC)
  1814. #define DUK_HTHREAD_STRING_STATIC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_STATIC)
  1815. #define DUK_STRIDX_YIELD 161 /* 'yield' */
  1816. #define DUK_HEAP_STRING_YIELD(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_YIELD)
  1817. #define DUK_HTHREAD_STRING_YIELD(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_YIELD)
  1818. #define DUK_HEAP_NUM_STRINGS 162
  1819. #define DUK_STRIDX_START_RESERVED 117
  1820. #define DUK_STRIDX_START_STRICT_RESERVED 153
  1821. #define DUK_STRIDX_END_RESERVED 162 /* exclusive endpoint */
  1822. /* To convert a heap stridx to a token number, subtract
  1823. * DUK_STRIDX_START_RESERVED and add DUK_TOK_START_RESERVED.
  1824. */
  1825. #if !defined(DUK_SINGLE_FILE)
  1826. DUK_INTERNAL_DECL const duk_uint8_t duk_strings_data[892];
  1827. #endif /* !DUK_SINGLE_FILE */
  1828. #define DUK_STRDATA_MAX_STRLEN 17
  1829. #define DUK_STRDATA_DATA_LENGTH 892
  1830. #endif /* DUK_USE_ROM_STRINGS */
  1831. #if defined(DUK_USE_ROM_OBJECTS)
  1832. #error RAM support not enabled, rerun configure.py with --ram-support
  1833. #else /* DUK_USE_ROM_OBJECTS */
  1834. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor(duk_context *ctx);
  1835. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_constructor(duk_context *ctx);
  1836. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype(duk_context *ctx);
  1837. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_constructor(duk_context *ctx);
  1838. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor(duk_context *ctx);
  1839. DUK_INTERNAL_DECL duk_ret_t duk_bi_boolean_constructor(duk_context *ctx);
  1840. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_constructor(duk_context *ctx);
  1841. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor(duk_context *ctx);
  1842. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_constructor(duk_context *ctx);
  1843. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_constructor_shared(duk_context *ctx);
  1844. DUK_INTERNAL_DECL duk_ret_t duk_bi_type_error_thrower(duk_context *ctx);
  1845. DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_constructor(duk_context *ctx);
  1846. DUK_INTERNAL_DECL duk_ret_t duk_bi_pointer_constructor(duk_context *ctx);
  1847. DUK_INTERNAL_DECL duk_ret_t duk_bi_proxy_constructor(duk_context *ctx);
  1848. DUK_INTERNAL_DECL duk_ret_t duk_bi_arraybuffer_constructor(duk_context *ctx);
  1849. DUK_INTERNAL_DECL duk_ret_t duk_bi_dataview_constructor(duk_context *ctx);
  1850. DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_constructor(duk_context *ctx);
  1851. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_constructor(duk_context *ctx);
  1852. DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_constructor(duk_context *ctx);
  1853. DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_constructor(duk_context *ctx);
  1854. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_eval(duk_context *ctx);
  1855. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_parse_int(duk_context *ctx);
  1856. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_parse_float(duk_context *ctx);
  1857. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_is_nan(duk_context *ctx);
  1858. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_is_finite(duk_context *ctx);
  1859. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_decode_uri(duk_context *ctx);
  1860. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_decode_uri_component(duk_context *ctx);
  1861. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_encode_uri(duk_context *ctx);
  1862. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_encode_uri_component(duk_context *ctx);
  1863. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_escape(duk_context *ctx);
  1864. DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_unescape(duk_context *ctx);
  1865. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_getprototype_shared(duk_context *ctx);
  1866. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_setprototype_shared(duk_context *ctx);
  1867. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_get_own_property_descriptor(duk_context *ctx);
  1868. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_keys_shared(duk_context *ctx);
  1869. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_assign(duk_context *ctx);
  1870. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_create(duk_context *ctx);
  1871. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_define_property(duk_context *ctx);
  1872. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_define_properties(duk_context *ctx);
  1873. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_seal_freeze_shared(duk_context *ctx);
  1874. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_prevent_extensions(duk_context *ctx);
  1875. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is_sealed_frozen_shared(duk_context *ctx);
  1876. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is_extensible(duk_context *ctx);
  1877. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is(duk_context *ctx);
  1878. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_string(duk_context *ctx);
  1879. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_locale_string(duk_context *ctx);
  1880. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_value_of(duk_context *ctx);
  1881. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_has_own_property(duk_context *ctx);
  1882. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_is_prototype_of(duk_context *ctx);
  1883. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_property_is_enumerable(duk_context *ctx);
  1884. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_defineaccessor(duk_context *ctx);
  1885. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_lookupaccessor(duk_context *ctx);
  1886. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_to_string(duk_context *ctx);
  1887. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_apply(duk_context *ctx);
  1888. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_call(duk_context *ctx);
  1889. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_bind(duk_context *ctx);
  1890. DUK_INTERNAL_DECL duk_ret_t duk_bi_native_function_length(duk_context *ctx);
  1891. DUK_INTERNAL_DECL duk_ret_t duk_bi_native_function_name(duk_context *ctx);
  1892. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_constructor_is_array(duk_context *ctx);
  1893. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_to_string(duk_context *ctx);
  1894. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_join_shared(duk_context *ctx);
  1895. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_concat(duk_context *ctx);
  1896. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_pop(duk_context *ctx);
  1897. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_push(duk_context *ctx);
  1898. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_reverse(duk_context *ctx);
  1899. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_shift(duk_context *ctx);
  1900. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_slice(duk_context *ctx);
  1901. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_sort(duk_context *ctx);
  1902. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_splice(duk_context *ctx);
  1903. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_unshift(duk_context *ctx);
  1904. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_indexof_shared(duk_context *ctx);
  1905. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_iter_shared(duk_context *ctx);
  1906. DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_reduce_shared(duk_context *ctx);
  1907. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor_from_char_code(duk_context *ctx);
  1908. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor_from_code_point(duk_context *ctx);
  1909. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_to_string(duk_context *ctx);
  1910. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_char_at(duk_context *ctx);
  1911. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_char_code_at(duk_context *ctx);
  1912. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_concat(duk_context *ctx);
  1913. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_indexof_shared(duk_context *ctx);
  1914. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_locale_compare(duk_context *ctx);
  1915. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_match(duk_context *ctx);
  1916. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_replace(duk_context *ctx);
  1917. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_search(duk_context *ctx);
  1918. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_slice(duk_context *ctx);
  1919. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_split(duk_context *ctx);
  1920. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_substring(duk_context *ctx);
  1921. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_caseconv_shared(duk_context *ctx);
  1922. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_trim(duk_context *ctx);
  1923. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_repeat(duk_context *ctx);
  1924. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_startswith_endswith(duk_context *ctx);
  1925. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_includes(duk_context *ctx);
  1926. DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_substr(duk_context *ctx);
  1927. DUK_INTERNAL_DECL duk_ret_t duk_bi_boolean_prototype_tostring_shared(duk_context *ctx);
  1928. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_string(duk_context *ctx);
  1929. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_locale_string(duk_context *ctx);
  1930. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_value_of(duk_context *ctx);
  1931. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_fixed(duk_context *ctx);
  1932. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_exponential(duk_context *ctx);
  1933. DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_precision(duk_context *ctx);
  1934. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_parse(duk_context *ctx);
  1935. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_utc(duk_context *ctx);
  1936. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_now(duk_context *ctx);
  1937. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_tostring_shared(duk_context *ctx);
  1938. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_to_json(duk_context *ctx);
  1939. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_value_of(duk_context *ctx);
  1940. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_get_shared(duk_context *ctx);
  1941. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_get_timezone_offset(duk_context *ctx);
  1942. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_set_time(duk_context *ctx);
  1943. DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_set_shared(duk_context *ctx);
  1944. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_exec(duk_context *ctx);
  1945. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_test(duk_context *ctx);
  1946. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_tostring(duk_context *ctx);
  1947. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_flags(duk_context *ctx);
  1948. DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_shared_getter(duk_context *ctx);
  1949. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_stack_getter(duk_context *ctx);
  1950. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_stack_setter(duk_context *ctx);
  1951. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_filename_getter(duk_context *ctx);
  1952. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_filename_setter(duk_context *ctx);
  1953. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_context *ctx);
  1954. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_linenumber_setter(duk_context *ctx);
  1955. DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_to_string(duk_context *ctx);
  1956. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_onearg_shared(duk_context *ctx);
  1957. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_twoarg_shared(duk_context *ctx);
  1958. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_clz32(duk_context *ctx);
  1959. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_hypot(duk_context *ctx);
  1960. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_imul(duk_context *ctx);
  1961. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_max(duk_context *ctx);
  1962. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_min(duk_context *ctx);
  1963. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_random(duk_context *ctx);
  1964. DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_sign(duk_context *ctx);
  1965. DUK_INTERNAL_DECL duk_ret_t duk_bi_json_object_parse(duk_context *ctx);
  1966. DUK_INTERNAL_DECL duk_ret_t duk_bi_json_object_stringify(duk_context *ctx);
  1967. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_info(duk_context *ctx);
  1968. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_act(duk_context *ctx);
  1969. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_gc(duk_context *ctx);
  1970. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_fin(duk_context *ctx);
  1971. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_enc(duk_context *ctx);
  1972. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_dec(duk_context *ctx);
  1973. DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_compact(duk_context *ctx);
  1974. DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_yield(duk_context *ctx);
  1975. DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_resume(duk_context *ctx);
  1976. DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_current(duk_context *ctx);
  1977. DUK_INTERNAL_DECL duk_ret_t duk_bi_pointer_prototype_tostring_shared(duk_context *ctx);
  1978. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_apply(duk_context *ctx);
  1979. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_construct(duk_context *ctx);
  1980. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_delete_property(duk_context *ctx);
  1981. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_get(duk_context *ctx);
  1982. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_has(duk_context *ctx);
  1983. DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_set(duk_context *ctx);
  1984. DUK_INTERNAL_DECL duk_ret_t duk_bi_arraybuffer_isview(duk_context *ctx);
  1985. DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_context *ctx);
  1986. DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_slice_shared(duk_context *ctx);
  1987. DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_context *ctx);
  1988. DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_buffer_getter(duk_context *ctx);
  1989. DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_readfield(duk_context *ctx);
  1990. DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_writefield(duk_context *ctx);
  1991. DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_set(duk_context *ctx);
  1992. DUK_INTERNAL_DECL duk_ret_t duk_bi_uint8array_allocplain(duk_context *ctx);
  1993. DUK_INTERNAL_DECL duk_ret_t duk_bi_uint8array_plainof(duk_context *ctx);
  1994. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_concat(duk_context *ctx);
  1995. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_is_encoding(duk_context *ctx);
  1996. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_is_buffer(duk_context *ctx);
  1997. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_byte_length(duk_context *ctx);
  1998. DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_compare_shared(duk_context *ctx);
  1999. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_tostring(duk_context *ctx);
  2000. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_tojson(duk_context *ctx);
  2001. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_fill(duk_context *ctx);
  2002. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_copy(duk_context *ctx);
  2003. DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_write(duk_context *ctx);
  2004. DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_prototype_encoding_getter(duk_context *ctx);
  2005. DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_prototype_encode(duk_context *ctx);
  2006. DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_prototype_shared_getter(duk_context *ctx);
  2007. DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_prototype_decode(duk_context *ctx);
  2008. DUK_INTERNAL_DECL duk_ret_t duk_bi_performance_now(duk_context *ctx);
  2009. #if !defined(DUK_SINGLE_FILE)
  2010. DUK_INTERNAL_DECL const duk_c_function duk_bi_native_functions[176];
  2011. #endif /* !DUK_SINGLE_FILE */
  2012. #define DUK_BIDX_GLOBAL 0
  2013. #define DUK_BIDX_GLOBAL_ENV 1
  2014. #define DUK_BIDX_OBJECT_CONSTRUCTOR 2
  2015. #define DUK_BIDX_OBJECT_PROTOTYPE 3
  2016. #define DUK_BIDX_FUNCTION_CONSTRUCTOR 4
  2017. #define DUK_BIDX_FUNCTION_PROTOTYPE 5
  2018. #define DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE 6
  2019. #define DUK_BIDX_ARRAY_CONSTRUCTOR 7
  2020. #define DUK_BIDX_ARRAY_PROTOTYPE 8
  2021. #define DUK_BIDX_STRING_CONSTRUCTOR 9
  2022. #define DUK_BIDX_STRING_PROTOTYPE 10
  2023. #define DUK_BIDX_BOOLEAN_CONSTRUCTOR 11
  2024. #define DUK_BIDX_BOOLEAN_PROTOTYPE 12
  2025. #define DUK_BIDX_NUMBER_CONSTRUCTOR 13
  2026. #define DUK_BIDX_NUMBER_PROTOTYPE 14
  2027. #define DUK_BIDX_DATE_CONSTRUCTOR 15
  2028. #define DUK_BIDX_DATE_PROTOTYPE 16
  2029. #define DUK_BIDX_REGEXP_CONSTRUCTOR 17
  2030. #define DUK_BIDX_REGEXP_PROTOTYPE 18
  2031. #define DUK_BIDX_ERROR_CONSTRUCTOR 19
  2032. #define DUK_BIDX_ERROR_PROTOTYPE 20
  2033. #define DUK_BIDX_EVAL_ERROR_CONSTRUCTOR 21
  2034. #define DUK_BIDX_EVAL_ERROR_PROTOTYPE 22
  2035. #define DUK_BIDX_RANGE_ERROR_CONSTRUCTOR 23
  2036. #define DUK_BIDX_RANGE_ERROR_PROTOTYPE 24
  2037. #define DUK_BIDX_REFERENCE_ERROR_CONSTRUCTOR 25
  2038. #define DUK_BIDX_REFERENCE_ERROR_PROTOTYPE 26
  2039. #define DUK_BIDX_SYNTAX_ERROR_CONSTRUCTOR 27
  2040. #define DUK_BIDX_SYNTAX_ERROR_PROTOTYPE 28
  2041. #define DUK_BIDX_TYPE_ERROR_CONSTRUCTOR 29
  2042. #define DUK_BIDX_TYPE_ERROR_PROTOTYPE 30
  2043. #define DUK_BIDX_URI_ERROR_CONSTRUCTOR 31
  2044. #define DUK_BIDX_URI_ERROR_PROTOTYPE 32
  2045. #define DUK_BIDX_TYPE_ERROR_THROWER 33
  2046. #define DUK_BIDX_DUKTAPE 34
  2047. #define DUK_BIDX_THREAD_PROTOTYPE 35
  2048. #define DUK_BIDX_POINTER_PROTOTYPE 36
  2049. #define DUK_BIDX_DOUBLE_ERROR 37
  2050. #define DUK_BIDX_SYMBOL_PROTOTYPE 38
  2051. #define DUK_BIDX_ARRAYBUFFER_PROTOTYPE 39
  2052. #define DUK_BIDX_DATAVIEW_PROTOTYPE 40
  2053. #define DUK_BIDX_INT8ARRAY_PROTOTYPE 41
  2054. #define DUK_BIDX_UINT8ARRAY_PROTOTYPE 42
  2055. #define DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE 43
  2056. #define DUK_BIDX_INT16ARRAY_PROTOTYPE 44
  2057. #define DUK_BIDX_UINT16ARRAY_PROTOTYPE 45
  2058. #define DUK_BIDX_INT32ARRAY_PROTOTYPE 46
  2059. #define DUK_BIDX_UINT32ARRAY_PROTOTYPE 47
  2060. #define DUK_BIDX_FLOAT32ARRAY_PROTOTYPE 48
  2061. #define DUK_BIDX_FLOAT64ARRAY_PROTOTYPE 49
  2062. #define DUK_BIDX_NODEJS_BUFFER_PROTOTYPE 50
  2063. #define DUK_NUM_BUILTINS 51
  2064. #define DUK_NUM_BIDX_BUILTINS 51
  2065. #define DUK_NUM_ALL_BUILTINS 76
  2066. #if defined(DUK_USE_DOUBLE_LE)
  2067. #if !defined(DUK_SINGLE_FILE)
  2068. DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[3972];
  2069. #endif /* !DUK_SINGLE_FILE */
  2070. #define DUK_BUILTINS_DATA_LENGTH 3972
  2071. #elif defined(DUK_USE_DOUBLE_BE)
  2072. #if !defined(DUK_SINGLE_FILE)
  2073. DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[3972];
  2074. #endif /* !DUK_SINGLE_FILE */
  2075. #define DUK_BUILTINS_DATA_LENGTH 3972
  2076. #elif defined(DUK_USE_DOUBLE_ME)
  2077. #if !defined(DUK_SINGLE_FILE)
  2078. DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[3972];
  2079. #endif /* !DUK_SINGLE_FILE */
  2080. #define DUK_BUILTINS_DATA_LENGTH 3972
  2081. #else
  2082. #error invalid endianness defines
  2083. #endif
  2084. #endif /* DUK_USE_ROM_OBJECTS */
  2085. #endif /* DUK_BUILTINS_H_INCLUDED */
  2086. #line 51 "duk_internal.h"
  2087. /* #include duk_util.h */
  2088. #line 1 "duk_util.h"
  2089. /*
  2090. * Utilities
  2091. */
  2092. #if !defined(DUK_UTIL_H_INCLUDED)
  2093. #define DUK_UTIL_H_INCLUDED
  2094. #if defined(DUK_USE_GET_RANDOM_DOUBLE)
  2095. #define DUK_UTIL_GET_RANDOM_DOUBLE(thr) DUK_USE_GET_RANDOM_DOUBLE((thr)->heap_udata)
  2096. #else
  2097. #define DUK_UTIL_GET_RANDOM_DOUBLE(thr) duk_util_tinyrandom_get_double(thr)
  2098. #endif
  2099. /*
  2100. * Some useful constants
  2101. */
  2102. #define DUK_DOUBLE_2TO32 4294967296.0
  2103. #define DUK_DOUBLE_2TO31 2147483648.0
  2104. #define DUK_DOUBLE_LOG2E 1.4426950408889634
  2105. #define DUK_DOUBLE_LOG10E 0.4342944819032518
  2106. /*
  2107. * Endian conversion
  2108. */
  2109. #if defined(DUK_USE_INTEGER_LE)
  2110. #define DUK_HTON32(x) DUK_BSWAP32((x))
  2111. #define DUK_NTOH32(x) DUK_BSWAP32((x))
  2112. #define DUK_HTON16(x) DUK_BSWAP16((x))
  2113. #define DUK_NTOH16(x) DUK_BSWAP16((x))
  2114. #elif defined(DUK_USE_INTEGER_BE)
  2115. #define DUK_HTON32(x) (x)
  2116. #define DUK_NTOH32(x) (x)
  2117. #define DUK_HTON16(x) (x)
  2118. #define DUK_NTOH16(x) (x)
  2119. #else
  2120. #error internal error, endianness defines broken
  2121. #endif
  2122. /*
  2123. * Bitstream decoder
  2124. */
  2125. struct duk_bitdecoder_ctx {
  2126. const duk_uint8_t *data;
  2127. duk_size_t offset;
  2128. duk_size_t length;
  2129. duk_uint32_t currval;
  2130. duk_small_int_t currbits;
  2131. };
  2132. #define DUK_BD_BITPACKED_STRING_MAXLEN 256
  2133. /*
  2134. * Bitstream encoder
  2135. */
  2136. struct duk_bitencoder_ctx {
  2137. duk_uint8_t *data;
  2138. duk_size_t offset;
  2139. duk_size_t length;
  2140. duk_uint32_t currval;
  2141. duk_small_int_t currbits;
  2142. duk_small_int_t truncated;
  2143. };
  2144. /*
  2145. * Raw write/read macros for big endian, unaligned basic values.
  2146. * Caller ensures there's enough space. The macros update the pointer
  2147. * argument automatically on resizes. The idiom seems a bit odd, but
  2148. * leads to compact code.
  2149. */
  2150. #define DUK_RAW_WRITE_U8(ptr,val) do { \
  2151. *(ptr)++ = (duk_uint8_t) (val); \
  2152. } while (0)
  2153. #define DUK_RAW_WRITE_U16_BE(ptr,val) duk_raw_write_u16_be(&(ptr), (duk_uint16_t) (val))
  2154. #define DUK_RAW_WRITE_U32_BE(ptr,val) duk_raw_write_u32_be(&(ptr), (duk_uint32_t) (val))
  2155. #define DUK_RAW_WRITE_DOUBLE_BE(ptr,val) duk_raw_write_double_be(&(ptr), (duk_double_t) (val))
  2156. #define DUK_RAW_WRITE_XUTF8(ptr,val) do { \
  2157. /* 'ptr' is evaluated both as LHS and RHS. */ \
  2158. duk_uint8_t *duk__ptr; \
  2159. duk_small_int_t duk__len; \
  2160. duk__ptr = (duk_uint8_t *) (ptr); \
  2161. duk__len = duk_unicode_encode_xutf8((duk_ucodepoint_t) (val), duk__ptr); \
  2162. duk__ptr += duk__len; \
  2163. (ptr) = duk__ptr; \
  2164. } while (0)
  2165. #define DUK_RAW_WRITE_CESU8(ptr,val) do { \
  2166. /* 'ptr' is evaluated both as LHS and RHS. */ \
  2167. duk_uint8_t *duk__ptr; \
  2168. duk_small_int_t duk__len; \
  2169. duk__ptr = (duk_uint8_t *) (ptr); \
  2170. duk__len = duk_unicode_encode_cesu8((duk_ucodepoint_t) (val), duk__ptr); \
  2171. duk__ptr += duk__len; \
  2172. (ptr) = duk__ptr; \
  2173. } while (0)
  2174. #define DUK_RAW_READ_U8(ptr) ((duk_uint8_t) (*(ptr)++))
  2175. #define DUK_RAW_READ_U16_BE(ptr) duk_raw_read_u16_be(&(ptr));
  2176. #define DUK_RAW_READ_U32_BE(ptr) duk_raw_read_u32_be(&(ptr));
  2177. #define DUK_RAW_READ_DOUBLE_BE(ptr) duk_raw_read_double_be(&(ptr));
  2178. /*
  2179. * Buffer writer (dynamic buffer only)
  2180. *
  2181. * Helper for writing to a dynamic buffer with a concept of a "slack" area
  2182. * to reduce resizes. You can ensure there is enough space beforehand and
  2183. * then write for a while without further checks, relying on a stable data
  2184. * pointer. Slack handling is automatic so call sites only indicate how
  2185. * much data they need right now.
  2186. *
  2187. * There are several ways to write using bufwriter. The best approach
  2188. * depends mainly on how much performance matters over code footprint.
  2189. * The key issues are (1) ensuring there is space and (2) keeping the
  2190. * pointers consistent. Fast code should ensure space for multiple writes
  2191. * with one ensure call. Fastest inner loop code can temporarily borrow
  2192. * the 'p' pointer but must write it back eventually.
  2193. *
  2194. * Be careful to ensure all macro arguments (other than static pointers like
  2195. * 'thr' and 'bw_ctx') are evaluated exactly once, using temporaries if
  2196. * necessary (if that's not possible, there should be a note near the macro).
  2197. * Buffer write arguments often contain arithmetic etc so this is
  2198. * particularly important here.
  2199. */
  2200. /* XXX: Migrate bufwriter and other read/write helpers to its own header? */
  2201. struct duk_bufwriter_ctx {
  2202. duk_uint8_t *p;
  2203. duk_uint8_t *p_base;
  2204. duk_uint8_t *p_limit;
  2205. duk_hbuffer_dynamic *buf;
  2206. };
  2207. #if defined(DUK_USE_PREFER_SIZE)
  2208. #define DUK_BW_SLACK_ADD 64
  2209. #define DUK_BW_SLACK_SHIFT 4 /* 2^4 -> 1/16 = 6.25% slack */
  2210. #else
  2211. #define DUK_BW_SLACK_ADD 64
  2212. #define DUK_BW_SLACK_SHIFT 2 /* 2^2 -> 1/4 = 25% slack */
  2213. #endif
  2214. /* Initialization and finalization (compaction), converting to other types. */
  2215. #define DUK_BW_INIT_PUSHBUF(thr,bw_ctx,sz) do { \
  2216. duk_bw_init_pushbuf((thr), (bw_ctx), (sz)); \
  2217. } while (0)
  2218. #define DUK_BW_INIT_WITHBUF(thr,bw_ctx,buf) do { \
  2219. duk_bw_init((thr), (bw_ctx), (buf)); \
  2220. } while (0)
  2221. #define DUK_BW_COMPACT(thr,bw_ctx) do { \
  2222. /* Make underlying buffer compact to match DUK_BW_GET_SIZE(). */ \
  2223. duk_bw_compact((thr), (bw_ctx)); \
  2224. } while (0)
  2225. #define DUK_BW_PUSH_AS_STRING(thr,bw_ctx) do { \
  2226. duk_push_lstring((thr), \
  2227. (const char *) (bw_ctx)->p_base, \
  2228. (duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base)); \
  2229. } while (0)
  2230. /* Pointers may be NULL for a while when 'buf' size is zero and before any
  2231. * ENSURE calls have been made. Once an ENSURE has been made, the pointers
  2232. * are required to be non-NULL so that it's always valid to use memcpy() and
  2233. * memmove(), even for zero size.
  2234. */
  2235. #define DUK_BW_ASSERT_VALID_EXPR(thr,bw_ctx) \
  2236. DUK_ASSERT_EXPR((bw_ctx) != NULL && \
  2237. (bw_ctx)->buf != NULL && \
  2238. ((DUK_HBUFFER_DYNAMIC_GET_SIZE((bw_ctx)->buf) == 0) || \
  2239. ((bw_ctx)->p != NULL && \
  2240. (bw_ctx)->p_base != NULL && \
  2241. (bw_ctx)->p_limit != NULL && \
  2242. (bw_ctx)->p_limit >= (bw_ctx)->p_base && \
  2243. (bw_ctx)->p >= (bw_ctx)->p_base && \
  2244. (bw_ctx)->p <= (bw_ctx)->p_limit)))
  2245. #define DUK_BW_ASSERT_VALID(thr,bw_ctx) do { \
  2246. DUK_BW_ASSERT_VALID_EXPR((thr), (bw_ctx)); \
  2247. } while (0)
  2248. /* Working with the pointer and current size. */
  2249. #define DUK_BW_GET_PTR(thr,bw_ctx) \
  2250. ((bw_ctx)->p)
  2251. #define DUK_BW_SET_PTR(thr,bw_ctx,ptr) do { \
  2252. (bw_ctx)->p = (ptr); \
  2253. } while (0)
  2254. #define DUK_BW_ADD_PTR(thr,bw_ctx,delta) do { \
  2255. (bw_ctx)->p += (delta); \
  2256. } while (0)
  2257. #define DUK_BW_GET_BASEPTR(thr,bw_ctx) \
  2258. ((bw_ctx)->p_base)
  2259. #define DUK_BW_GET_LIMITPTR(thr,bw_ctx) \
  2260. ((bw_ctx)->p_limit)
  2261. #define DUK_BW_GET_SIZE(thr,bw_ctx) \
  2262. ((duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base))
  2263. #define DUK_BW_SET_SIZE(thr,bw_ctx,sz) do { \
  2264. DUK_ASSERT((duk_size_t) (sz) <= (duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base)); \
  2265. (bw_ctx)->p = (bw_ctx)->p_base + (sz); \
  2266. } while (0)
  2267. #define DUK_BW_RESET_SIZE(thr,bw_ctx) do { \
  2268. /* Reset to zero size, keep current limit. */ \
  2269. (bw_ctx)->p = (bw_ctx)->p_base; \
  2270. } while (0)
  2271. #define DUK_BW_GET_BUFFER(thr,bw_ctx) \
  2272. ((bw_ctx)->buf)
  2273. /* Ensuring (reserving) space. */
  2274. #define DUK_BW_ENSURE(thr,bw_ctx,sz) do { \
  2275. duk_size_t duk__sz, duk__space; \
  2276. DUK_BW_ASSERT_VALID((thr), (bw_ctx)); \
  2277. duk__sz = (sz); \
  2278. duk__space = (duk_size_t) ((bw_ctx)->p_limit - (bw_ctx)->p); \
  2279. if (duk__space < duk__sz) { \
  2280. (void) duk_bw_resize((thr), (bw_ctx), duk__sz); \
  2281. } \
  2282. } while (0)
  2283. /* NOTE: Multiple evaluation of 'ptr' in this macro. */
  2284. /* XXX: Rework to use an always-inline function? */
  2285. #define DUK_BW_ENSURE_RAW(thr,bw_ctx,sz,ptr) \
  2286. (((duk_size_t) ((bw_ctx)->p_limit - (ptr)) >= (sz)) ? \
  2287. (ptr) : \
  2288. ((bw_ctx)->p = (ptr), duk_bw_resize((thr),(bw_ctx),(sz))))
  2289. #define DUK_BW_ENSURE_GETPTR(thr,bw_ctx,sz) \
  2290. DUK_BW_ENSURE_RAW((thr), (bw_ctx), (sz), (bw_ctx)->p)
  2291. #define DUK_BW_ASSERT_SPACE_EXPR(thr,bw_ctx,sz) \
  2292. (DUK_BW_ASSERT_VALID_EXPR((thr), (bw_ctx)), \
  2293. DUK_ASSERT_EXPR((duk_size_t) ((bw_ctx)->p_limit - (bw_ctx)->p) >= (duk_size_t) (sz)))
  2294. #define DUK_BW_ASSERT_SPACE(thr,bw_ctx,sz) do { \
  2295. DUK_BW_ASSERT_SPACE_EXPR((thr), (bw_ctx), (sz)); \
  2296. } while (0)
  2297. /* Miscellaneous. */
  2298. #define DUK_BW_SETPTR_AND_COMPACT(thr,bw_ctx,ptr) do { \
  2299. (bw_ctx)->p = (ptr); \
  2300. duk_bw_compact((thr), (bw_ctx)); \
  2301. } while (0)
  2302. /* Fast write calls which assume you control the slack beforehand.
  2303. * Multibyte write variants exist and use a temporary write pointer
  2304. * because byte writes alias with anything: with a stored pointer
  2305. * explicit pointer load/stores get generated (e.g. gcc -Os).
  2306. */
  2307. #define DUK_BW_WRITE_RAW_U8(thr,bw_ctx,val) do { \
  2308. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 1); \
  2309. *(bw_ctx)->p++ = (duk_uint8_t) (val); \
  2310. } while (0)
  2311. #define DUK_BW_WRITE_RAW_U8_2(thr,bw_ctx,val1,val2) do { \
  2312. duk_uint8_t *duk__p; \
  2313. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 2); \
  2314. duk__p = (bw_ctx)->p; \
  2315. *duk__p++ = (duk_uint8_t) (val1); \
  2316. *duk__p++ = (duk_uint8_t) (val2); \
  2317. (bw_ctx)->p = duk__p; \
  2318. } while (0)
  2319. #define DUK_BW_WRITE_RAW_U8_3(thr,bw_ctx,val1,val2,val3) do { \
  2320. duk_uint8_t *duk__p; \
  2321. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 3); \
  2322. duk__p = (bw_ctx)->p; \
  2323. *duk__p++ = (duk_uint8_t) (val1); \
  2324. *duk__p++ = (duk_uint8_t) (val2); \
  2325. *duk__p++ = (duk_uint8_t) (val3); \
  2326. (bw_ctx)->p = duk__p; \
  2327. } while (0)
  2328. #define DUK_BW_WRITE_RAW_U8_4(thr,bw_ctx,val1,val2,val3,val4) do { \
  2329. duk_uint8_t *duk__p; \
  2330. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 4); \
  2331. duk__p = (bw_ctx)->p; \
  2332. *duk__p++ = (duk_uint8_t) (val1); \
  2333. *duk__p++ = (duk_uint8_t) (val2); \
  2334. *duk__p++ = (duk_uint8_t) (val3); \
  2335. *duk__p++ = (duk_uint8_t) (val4); \
  2336. (bw_ctx)->p = duk__p; \
  2337. } while (0)
  2338. #define DUK_BW_WRITE_RAW_U8_5(thr,bw_ctx,val1,val2,val3,val4,val5) do { \
  2339. duk_uint8_t *duk__p; \
  2340. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 5); \
  2341. duk__p = (bw_ctx)->p; \
  2342. *duk__p++ = (duk_uint8_t) (val1); \
  2343. *duk__p++ = (duk_uint8_t) (val2); \
  2344. *duk__p++ = (duk_uint8_t) (val3); \
  2345. *duk__p++ = (duk_uint8_t) (val4); \
  2346. *duk__p++ = (duk_uint8_t) (val5); \
  2347. (bw_ctx)->p = duk__p; \
  2348. } while (0)
  2349. #define DUK_BW_WRITE_RAW_U8_6(thr,bw_ctx,val1,val2,val3,val4,val5,val6) do { \
  2350. duk_uint8_t *duk__p; \
  2351. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 6); \
  2352. duk__p = (bw_ctx)->p; \
  2353. *duk__p++ = (duk_uint8_t) (val1); \
  2354. *duk__p++ = (duk_uint8_t) (val2); \
  2355. *duk__p++ = (duk_uint8_t) (val3); \
  2356. *duk__p++ = (duk_uint8_t) (val4); \
  2357. *duk__p++ = (duk_uint8_t) (val5); \
  2358. *duk__p++ = (duk_uint8_t) (val6); \
  2359. (bw_ctx)->p = duk__p; \
  2360. } while (0)
  2361. #define DUK_BW_WRITE_RAW_XUTF8(thr,bw_ctx,cp) do { \
  2362. duk_ucodepoint_t duk__cp; \
  2363. duk_small_int_t duk__enc_len; \
  2364. duk__cp = (duk_ucodepoint_t) (cp); \
  2365. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), duk_unicode_get_xutf8_length(duk__cp)); \
  2366. duk__enc_len = duk_unicode_encode_xutf8(duk__cp, (bw_ctx)->p); \
  2367. (bw_ctx)->p += duk__enc_len; \
  2368. } while (0)
  2369. #define DUK_BW_WRITE_RAW_CESU8(thr,bw_ctx,cp) do { \
  2370. duk_ucodepoint_t duk__cp; \
  2371. duk_small_int_t duk__enc_len; \
  2372. duk__cp = (duk_ucodepoint_t) (cp); \
  2373. DUK_BW_ASSERT_SPACE((thr), (bw_ctx), duk_unicode_get_cesu8_length(duk__cp)); \
  2374. duk__enc_len = duk_unicode_encode_cesu8(duk__cp, (bw_ctx)->p); \
  2375. (bw_ctx)->p += duk__enc_len; \
  2376. } while (0)
  2377. /* XXX: add temporary duk__p pointer here too; sharing */
  2378. #define DUK_BW_WRITE_RAW_BYTES(thr,bw_ctx,valptr,valsz) do { \
  2379. const void *duk__valptr; \
  2380. duk_size_t duk__valsz; \
  2381. duk__valptr = (const void *) (valptr); \
  2382. duk__valsz = (duk_size_t) (valsz); \
  2383. DUK_MEMCPY((void *) ((bw_ctx)->p), duk__valptr, duk__valsz); \
  2384. (bw_ctx)->p += duk__valsz; \
  2385. } while (0)
  2386. #define DUK_BW_WRITE_RAW_CSTRING(thr,bw_ctx,val) do { \
  2387. const duk_uint8_t *duk__val; \
  2388. duk_size_t duk__val_len; \
  2389. duk__val = (const duk_uint8_t *) (val); \
  2390. duk__val_len = DUK_STRLEN((const char *) duk__val); \
  2391. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) duk__val, duk__val_len); \
  2392. (bw_ctx)->p += duk__val_len; \
  2393. } while (0)
  2394. #define DUK_BW_WRITE_RAW_HSTRING(thr,bw_ctx,val) do { \
  2395. duk_size_t duk__val_len; \
  2396. duk__val_len = DUK_HSTRING_GET_BYTELEN((val)); \
  2397. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HSTRING_GET_DATA((val)), duk__val_len); \
  2398. (bw_ctx)->p += duk__val_len; \
  2399. } while (0)
  2400. #define DUK_BW_WRITE_RAW_HBUFFER(thr,bw_ctx,val) do { \
  2401. duk_size_t duk__val_len; \
  2402. duk__val_len = DUK_HBUFFER_GET_SIZE((val)); \
  2403. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2404. (bw_ctx)->p += duk__val_len; \
  2405. } while (0)
  2406. #define DUK_BW_WRITE_RAW_HBUFFER_FIXED(thr,bw_ctx,val) do { \
  2407. duk_size_t duk__val_len; \
  2408. duk__val_len = DUK_HBUFFER_FIXED_GET_SIZE((val)); \
  2409. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_FIXED_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2410. (bw_ctx)->p += duk__val_len; \
  2411. } while (0)
  2412. #define DUK_BW_WRITE_RAW_HBUFFER_DYNAMIC(thr,bw_ctx,val) do { \
  2413. duk_size_t duk__val_len; \
  2414. duk__val_len = DUK_HBUFFER_DYNAMIC_GET_SIZE((val)); \
  2415. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2416. (bw_ctx)->p += duk__val_len; \
  2417. } while (0)
  2418. /* Append bytes from a slice already in the buffer. */
  2419. #define DUK_BW_WRITE_RAW_SLICE(thr,bw,dst_off,dst_len) \
  2420. duk_bw_write_raw_slice((thr), (bw), (dst_off), (dst_len))
  2421. /* Insert bytes in the middle of the buffer from an external buffer. */
  2422. #define DUK_BW_INSERT_RAW_BYTES(thr,bw,dst_off,buf,len) \
  2423. duk_bw_insert_raw_bytes((thr), (bw), (dst_off), (buf), (len))
  2424. /* Insert bytes in the middle of the buffer from a slice already
  2425. * in the buffer. Source offset is interpreted "before" the operation.
  2426. */
  2427. #define DUK_BW_INSERT_RAW_SLICE(thr,bw,dst_off,src_off,len) \
  2428. duk_bw_insert_raw_slice((thr), (bw), (dst_off), (src_off), (len))
  2429. /* Insert a reserved area somewhere in the buffer; caller fills it.
  2430. * Evaluates to a (duk_uint_t *) pointing to the start of the reserved
  2431. * area for convenience.
  2432. */
  2433. #define DUK_BW_INSERT_RAW_AREA(thr,bw,off,len) \
  2434. duk_bw_insert_raw_area((thr), (bw), (off), (len))
  2435. /* Remove a slice from inside buffer. */
  2436. #define DUK_BW_REMOVE_RAW_SLICE(thr,bw,off,len) \
  2437. duk_bw_remove_raw_slice((thr), (bw), (off), (len))
  2438. /* Safe write calls which will ensure space first. */
  2439. #define DUK_BW_WRITE_ENSURE_U8(thr,bw_ctx,val) do { \
  2440. DUK_BW_ENSURE((thr), (bw_ctx), 1); \
  2441. DUK_BW_WRITE_RAW_U8((thr), (bw_ctx), (val)); \
  2442. } while (0)
  2443. #define DUK_BW_WRITE_ENSURE_U8_2(thr,bw_ctx,val1,val2) do { \
  2444. DUK_BW_ENSURE((thr), (bw_ctx), 2); \
  2445. DUK_BW_WRITE_RAW_U8_2((thr), (bw_ctx), (val1), (val2)); \
  2446. } while (0)
  2447. #define DUK_BW_WRITE_ENSURE_U8_3(thr,bw_ctx,val1,val2,val3) do { \
  2448. DUK_BW_ENSURE((thr), (bw_ctx), 3); \
  2449. DUK_BW_WRITE_RAW_U8_3((thr), (bw_ctx), (val1), (val2), (val3)); \
  2450. } while (0)
  2451. #define DUK_BW_WRITE_ENSURE_U8_4(thr,bw_ctx,val1,val2,val3,val4) do { \
  2452. DUK_BW_ENSURE((thr), (bw_ctx), 4); \
  2453. DUK_BW_WRITE_RAW_U8_4((thr), (bw_ctx), (val1), (val2), (val3), (val4)); \
  2454. } while (0)
  2455. #define DUK_BW_WRITE_ENSURE_U8_5(thr,bw_ctx,val1,val2,val3,val4,val5) do { \
  2456. DUK_BW_ENSURE((thr), (bw_ctx), 5); \
  2457. DUK_BW_WRITE_RAW_U8_5((thr), (bw_ctx), (val1), (val2), (val3), (val4), (val5)); \
  2458. } while (0)
  2459. #define DUK_BW_WRITE_ENSURE_U8_6(thr,bw_ctx,val1,val2,val3,val4,val5,val6) do { \
  2460. DUK_BW_ENSURE((thr), (bw_ctx), 6); \
  2461. DUK_BW_WRITE_RAW_U8_6((thr), (bw_ctx), (val1), (val2), (val3), (val4), (val5), (val6)); \
  2462. } while (0)
  2463. #define DUK_BW_WRITE_ENSURE_XUTF8(thr,bw_ctx,cp) do { \
  2464. DUK_BW_ENSURE((thr), (bw_ctx), DUK_UNICODE_MAX_XUTF8_LENGTH); \
  2465. DUK_BW_WRITE_RAW_XUTF8((thr), (bw_ctx), (cp)); \
  2466. } while (0)
  2467. #define DUK_BW_WRITE_ENSURE_CESU8(thr,bw_ctx,cp) do { \
  2468. DUK_BW_ENSURE((thr), (bw_ctx), DUK_UNICODE_MAX_CESU8_LENGTH); \
  2469. DUK_BW_WRITE_RAW_CESU8((thr), (bw_ctx), (cp)); \
  2470. } while (0)
  2471. /* XXX: add temporary duk__p pointer here too; sharing */
  2472. #define DUK_BW_WRITE_ENSURE_BYTES(thr,bw_ctx,valptr,valsz) do { \
  2473. const void *duk__valptr; \
  2474. duk_size_t duk__valsz; \
  2475. duk__valptr = (const void *) (valptr); \
  2476. duk__valsz = (duk_size_t) (valsz); \
  2477. DUK_BW_ENSURE((thr), (bw_ctx), duk__valsz); \
  2478. DUK_MEMCPY((void *) ((bw_ctx)->p), duk__valptr, duk__valsz); \
  2479. (bw_ctx)->p += duk__valsz; \
  2480. } while (0)
  2481. #define DUK_BW_WRITE_ENSURE_CSTRING(thr,bw_ctx,val) do { \
  2482. const duk_uint8_t *duk__val; \
  2483. duk_size_t duk__val_len; \
  2484. duk__val = (const duk_uint8_t *) (val); \
  2485. duk__val_len = DUK_STRLEN((const char *) duk__val); \
  2486. DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \
  2487. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) duk__val, duk__val_len); \
  2488. (bw_ctx)->p += duk__val_len; \
  2489. } while (0)
  2490. #define DUK_BW_WRITE_ENSURE_HSTRING(thr,bw_ctx,val) do { \
  2491. duk_size_t duk__val_len; \
  2492. duk__val_len = DUK_HSTRING_GET_BYTELEN((val)); \
  2493. DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \
  2494. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HSTRING_GET_DATA((val)), duk__val_len); \
  2495. (bw_ctx)->p += duk__val_len; \
  2496. } while (0)
  2497. #define DUK_BW_WRITE_ENSURE_HBUFFER(thr,bw_ctx,val) do { \
  2498. duk_size_t duk__val_len; \
  2499. duk__val_len = DUK_HBUFFER_GET_SIZE((val)); \
  2500. DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \
  2501. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2502. (bw_ctx)->p += duk__val_len; \
  2503. } while (0)
  2504. #define DUK_BW_WRITE_ENSURE_HBUFFER_FIXED(thr,bw_ctx,val) do { \
  2505. duk_size_t duk__val_len; \
  2506. duk__val_len = DUK_HBUFFER_FIXED_GET_SIZE((val)); \
  2507. DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \
  2508. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_FIXED_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2509. (bw_ctx)->p += duk__val_len; \
  2510. } while (0)
  2511. #define DUK_BW_WRITE_ENSURE_HBUFFER_DYNAMIC(thr,bw_ctx,val) do { \
  2512. duk_size_t duk__val_len; \
  2513. duk__val_len = DUK_HBUFFER_DYNAMIC_GET_SIZE((val)); \
  2514. DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \
  2515. DUK_MEMCPY((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \
  2516. (bw_ctx)->p += duk__val_len; \
  2517. } while (0)
  2518. #define DUK_BW_WRITE_ENSURE_SLICE(thr,bw,dst_off,dst_len) \
  2519. duk_bw_write_ensure_slice((thr), (bw), (dst_off), (dst_len))
  2520. #define DUK_BW_INSERT_ENSURE_BYTES(thr,bw,dst_off,buf,len) \
  2521. duk_bw_insert_ensure_bytes((thr), (bw), (dst_off), (buf), (len))
  2522. #define DUK_BW_INSERT_ENSURE_SLICE(thr,bw,dst_off,src_off,len) \
  2523. duk_bw_insert_ensure_slice((thr), (bw), (dst_off), (src_off), (len))
  2524. #define DUK_BW_INSERT_ENSURE_AREA(thr,bw,off,len) \
  2525. /* Evaluates to (duk_uint8_t *) pointing to start of area. */ \
  2526. duk_bw_insert_ensure_area((thr), (bw), (off), (len))
  2527. #define DUK_BW_REMOVE_ENSURE_SLICE(thr,bw,off,len) \
  2528. /* No difference between raw/ensure because the buffer shrinks. */ \
  2529. DUK_BW_REMOVE_RAW_SLICE((thr), (bw), (off), (len))
  2530. /*
  2531. * Externs and prototypes
  2532. */
  2533. #if !defined(DUK_SINGLE_FILE)
  2534. DUK_INTERNAL_DECL const duk_uint8_t duk_lc_digits[36];
  2535. DUK_INTERNAL_DECL const duk_uint8_t duk_uc_nybbles[16];
  2536. DUK_INTERNAL_DECL const duk_int8_t duk_hex_dectab[256];
  2537. #if defined(DUK_USE_HEX_FASTPATH)
  2538. DUK_INTERNAL_DECL const duk_int16_t duk_hex_dectab_shift4[256];
  2539. DUK_INTERNAL_DECL const duk_uint16_t duk_hex_enctab[256];
  2540. #endif
  2541. #if defined(DUK_USE_BASE64_FASTPATH)
  2542. DUK_INTERNAL_DECL const duk_uint8_t duk_base64_enctab[64];
  2543. DUK_INTERNAL_DECL const duk_int8_t duk_base64_dectab[256];
  2544. #endif
  2545. #endif /* !DUK_SINGLE_FILE */
  2546. /* Note: assumes that duk_util_probe_steps size is 32 */
  2547. #if defined(DUK_USE_HOBJECT_HASH_PART)
  2548. #if !defined(DUK_SINGLE_FILE)
  2549. DUK_INTERNAL_DECL duk_uint8_t duk_util_probe_steps[32];
  2550. #endif /* !DUK_SINGLE_FILE */
  2551. #endif
  2552. #if defined(DUK_USE_STRHASH_DENSE)
  2553. DUK_INTERNAL_DECL duk_uint32_t duk_util_hashbytes(const duk_uint8_t *data, duk_size_t len, duk_uint32_t seed);
  2554. #endif
  2555. DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode(duk_bitdecoder_ctx *ctx, duk_small_int_t bits);
  2556. DUK_INTERNAL_DECL duk_small_uint_t duk_bd_decode_flag(duk_bitdecoder_ctx *ctx);
  2557. DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode_flagged(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_uint32_t def_value);
  2558. DUK_INTERNAL_DECL duk_int32_t duk_bd_decode_flagged_signed(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_int32_t def_value);
  2559. DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode_varuint(duk_bitdecoder_ctx *ctx);
  2560. DUK_INTERNAL_DECL duk_small_uint_t duk_bd_decode_bitpacked_string(duk_bitdecoder_ctx *bd, duk_uint8_t *out);
  2561. DUK_INTERNAL_DECL void duk_be_encode(duk_bitencoder_ctx *ctx, duk_uint32_t data, duk_small_int_t bits);
  2562. DUK_INTERNAL_DECL void duk_be_finish(duk_bitencoder_ctx *ctx);
  2563. #if !defined(DUK_USE_GET_RANDOM_DOUBLE)
  2564. DUK_INTERNAL_DECL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr);
  2565. DUK_INTERNAL_DECL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr);
  2566. #endif
  2567. DUK_INTERNAL_DECL void duk_bw_init(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_hbuffer_dynamic *h_buf);
  2568. DUK_INTERNAL_DECL void duk_bw_init_pushbuf(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t buf_size);
  2569. DUK_INTERNAL_DECL duk_uint8_t *duk_bw_resize(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t sz);
  2570. DUK_INTERNAL_DECL void duk_bw_compact(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx);
  2571. DUK_INTERNAL_DECL void duk_bw_write_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len);
  2572. DUK_INTERNAL_DECL void duk_bw_write_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len);
  2573. DUK_INTERNAL_DECL void duk_bw_insert_raw_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len);
  2574. DUK_INTERNAL_DECL void duk_bw_insert_ensure_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len);
  2575. DUK_INTERNAL_DECL void duk_bw_insert_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len);
  2576. DUK_INTERNAL_DECL void duk_bw_insert_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len);
  2577. DUK_INTERNAL_DECL duk_uint8_t *duk_bw_insert_raw_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len);
  2578. DUK_INTERNAL_DECL duk_uint8_t *duk_bw_insert_ensure_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len);
  2579. DUK_INTERNAL_DECL void duk_bw_remove_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len);
  2580. /* No duk_bw_remove_ensure_slice(), functionality would be identical. */
  2581. DUK_INTERNAL_DECL duk_uint16_t duk_raw_read_u16_be(duk_uint8_t **p);
  2582. DUK_INTERNAL_DECL duk_uint32_t duk_raw_read_u32_be(duk_uint8_t **p);
  2583. DUK_INTERNAL_DECL duk_double_t duk_raw_read_double_be(duk_uint8_t **p);
  2584. DUK_INTERNAL_DECL void duk_raw_write_u16_be(duk_uint8_t **p, duk_uint16_t val);
  2585. DUK_INTERNAL_DECL void duk_raw_write_u32_be(duk_uint8_t **p, duk_uint32_t val);
  2586. DUK_INTERNAL_DECL void duk_raw_write_double_be(duk_uint8_t **p, duk_double_t val);
  2587. #if defined(DUK_USE_DEBUGGER_SUPPORT) /* For now only needed by the debugger. */
  2588. DUK_INTERNAL_DECL void duk_byteswap_bytes(duk_uint8_t *p, duk_small_uint_t len);
  2589. #endif
  2590. DUK_INTERNAL_DECL duk_bool_t duk_is_whole_get_int32_nonegzero(duk_double_t x, duk_int32_t *ival);
  2591. DUK_INTERNAL_DECL duk_bool_t duk_is_whole_get_int32(duk_double_t x, duk_int32_t *ival);
  2592. DUK_INTERNAL_DECL duk_bool_t duk_double_is_anyinf(duk_double_t x);
  2593. DUK_INTERNAL_DECL duk_bool_t duk_double_is_posinf(duk_double_t x);
  2594. DUK_INTERNAL_DECL duk_bool_t duk_double_is_neginf(duk_double_t x);
  2595. DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan(duk_double_t x);
  2596. DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_or_zero(duk_double_t x);
  2597. DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_or_inf(duk_double_t x);
  2598. DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_zero_inf(duk_double_t x);
  2599. DUK_INTERNAL_DECL duk_small_uint_t duk_double_signbit(duk_double_t x);
  2600. DUK_INTERNAL_DECL duk_double_t duk_double_trunc_towards_zero(duk_double_t x);
  2601. DUK_INTERNAL_DECL duk_bool_t duk_double_same_sign(duk_double_t x, duk_double_t y);
  2602. DUK_INTERNAL_DECL duk_double_t duk_double_fmin(duk_double_t x, duk_double_t y);
  2603. DUK_INTERNAL_DECL duk_double_t duk_double_fmax(duk_double_t x, duk_double_t y);
  2604. #endif /* DUK_UTIL_H_INCLUDED */
  2605. /* #include duk_strings.h */
  2606. #line 1 "duk_strings.h"
  2607. /*
  2608. * Shared string macros.
  2609. *
  2610. * Using shared macros helps minimize strings data size because it's easy
  2611. * to check if an existing string could be used. String constants don't
  2612. * need to be all defined here; defining a string here makes sense if there's
  2613. * a high chance the string could be reused. Also, using macros allows
  2614. * a call site express the exact string needed, but the macro may map to an
  2615. * approximate string to reduce unique string count. Macros can also be
  2616. * more easily tuned for low memory targets than #if defined()s throughout
  2617. * the code base.
  2618. *
  2619. * Because format strings behave differently in the call site (they need to
  2620. * be followed by format arguments), they use a special prefix DUK_STR_FMT_.
  2621. *
  2622. * On some compilers using explicit shared strings is preferable; on others
  2623. * it may be better to use straight literals because the compiler will combine
  2624. * them anyway, and such strings won't end up unnecessarily in a symbol table.
  2625. */
  2626. #if !defined(DUK_ERRMSG_H_INCLUDED)
  2627. #define DUK_ERRMSG_H_INCLUDED
  2628. /* Mostly API and built-in method related */
  2629. #define DUK_STR_INTERNAL_ERROR "internal error"
  2630. #define DUK_STR_UNSUPPORTED "unsupported"
  2631. #define DUK_STR_INVALID_COUNT "invalid count"
  2632. #define DUK_STR_INVALID_ARGS "invalid args"
  2633. #define DUK_STR_INVALID_STATE "invalid state"
  2634. #define DUK_STR_INVALID_INPUT "invalid input"
  2635. #define DUK_STR_INVALID_LENGTH "invalid length"
  2636. #define DUK_STR_NOT_CONSTRUCTABLE "not constructable"
  2637. #define DUK_STR_CONSTRUCT_ONLY "constructor requires 'new'"
  2638. #define DUK_STR_NOT_CALLABLE "not callable"
  2639. #define DUK_STR_NOT_EXTENSIBLE "not extensible"
  2640. #define DUK_STR_NOT_WRITABLE "not writable"
  2641. #define DUK_STR_NOT_CONFIGURABLE "not configurable"
  2642. #define DUK_STR_INVALID_CONTEXT "invalid context"
  2643. #define DUK_STR_INVALID_INDEX "invalid args"
  2644. #define DUK_STR_PUSH_BEYOND_ALLOC_STACK "cannot push beyond allocated stack"
  2645. #define DUK_STR_NOT_UNDEFINED "unexpected type"
  2646. #define DUK_STR_NOT_NULL "unexpected type"
  2647. #define DUK_STR_NOT_BOOLEAN "unexpected type"
  2648. #define DUK_STR_NOT_NUMBER "unexpected type"
  2649. #define DUK_STR_NOT_STRING "unexpected type"
  2650. #define DUK_STR_NOT_OBJECT "unexpected type"
  2651. #define DUK_STR_NOT_POINTER "unexpected type"
  2652. #define DUK_STR_NOT_BUFFER "not buffer" /* still in use with verbose messages */
  2653. #define DUK_STR_UNEXPECTED_TYPE "unexpected type"
  2654. #define DUK_STR_NOT_THREAD "unexpected type"
  2655. #define DUK_STR_NOT_COMPFUNC "unexpected type"
  2656. #define DUK_STR_NOT_NATFUNC "unexpected type"
  2657. #define DUK_STR_NOT_C_FUNCTION "unexpected type"
  2658. #define DUK_STR_NOT_FUNCTION "unexpected type"
  2659. #define DUK_STR_NOT_REGEXP "unexpected type"
  2660. #define DUK_STR_TOPRIMITIVE_FAILED "coercion to primitive failed"
  2661. #define DUK_STR_NUMBER_OUTSIDE_RANGE "number outside range"
  2662. #define DUK_STR_NOT_OBJECT_COERCIBLE "not object coercible"
  2663. #define DUK_STR_CANNOT_NUMBER_COERCE_SYMBOL "cannot number coerce Symbol"
  2664. #define DUK_STR_CANNOT_STRING_COERCE_SYMBOL "cannot string coerce Symbol"
  2665. #define DUK_STR_STRING_TOO_LONG "string too long"
  2666. #define DUK_STR_BUFFER_TOO_LONG "buffer too long"
  2667. #define DUK_STR_ALLOC_FAILED "alloc failed"
  2668. #define DUK_STR_WRONG_BUFFER_TYPE "wrong buffer type"
  2669. #define DUK_STR_BASE64_ENCODE_FAILED "base64 encode failed"
  2670. #define DUK_STR_SOURCE_DECODE_FAILED "source decode failed"
  2671. #define DUK_STR_UTF8_DECODE_FAILED "utf-8 decode failed"
  2672. #define DUK_STR_BASE64_DECODE_FAILED "base64 decode failed"
  2673. #define DUK_STR_HEX_DECODE_FAILED "hex decode failed"
  2674. #define DUK_STR_INVALID_BYTECODE "invalid bytecode"
  2675. #define DUK_STR_NO_SOURCECODE "no sourcecode"
  2676. #define DUK_STR_RESULT_TOO_LONG "result too long"
  2677. #define DUK_STR_INVALID_CFUNC_RC "invalid C function rc"
  2678. #define DUK_STR_INVALID_INSTANCEOF_RVAL "invalid instanceof rval"
  2679. #define DUK_STR_INVALID_INSTANCEOF_RVAL_NOPROTO "instanceof rval has no .prototype"
  2680. /* JSON */
  2681. #define DUK_STR_FMT_PTR "%p"
  2682. #define DUK_STR_FMT_INVALID_JSON "invalid json (at offset %ld)"
  2683. #define DUK_STR_JSONDEC_RECLIMIT "json decode recursion limit"
  2684. #define DUK_STR_JSONENC_RECLIMIT "json encode recursion limit"
  2685. #define DUK_STR_CYCLIC_INPUT "cyclic input"
  2686. /* Object property access */
  2687. #define DUK_STR_INVALID_BASE "invalid base value"
  2688. #define DUK_STR_STRICT_CALLER_READ "cannot read strict 'caller'"
  2689. #define DUK_STR_PROXY_REJECTED "proxy rejected"
  2690. #define DUK_STR_INVALID_ARRAY_LENGTH "invalid array length"
  2691. #define DUK_STR_SETTER_UNDEFINED "setter undefined"
  2692. #define DUK_STR_INVALID_DESCRIPTOR "invalid descriptor"
  2693. /* Proxy */
  2694. #define DUK_STR_PROXY_REVOKED "proxy revoked"
  2695. #define DUK_STR_INVALID_TRAP_RESULT "invalid trap result"
  2696. /* Variables */
  2697. /* Lexer */
  2698. #define DUK_STR_INVALID_ESCAPE "invalid escape"
  2699. #define DUK_STR_UNTERMINATED_STRING "unterminated string"
  2700. #define DUK_STR_UNTERMINATED_COMMENT "unterminated comment"
  2701. #define DUK_STR_UNTERMINATED_REGEXP "unterminated regexp"
  2702. #define DUK_STR_TOKEN_LIMIT "token limit"
  2703. #define DUK_STR_REGEXP_SUPPORT_DISABLED "regexp support disabled"
  2704. #define DUK_STR_INVALID_NUMBER_LITERAL "invalid number literal"
  2705. #define DUK_STR_INVALID_TOKEN "invalid token"
  2706. /* Compiler */
  2707. #define DUK_STR_PARSE_ERROR "parse error"
  2708. #define DUK_STR_DUPLICATE_LABEL "duplicate label"
  2709. #define DUK_STR_INVALID_LABEL "invalid label"
  2710. #define DUK_STR_INVALID_ARRAY_LITERAL "invalid array literal"
  2711. #define DUK_STR_INVALID_OBJECT_LITERAL "invalid object literal"
  2712. #define DUK_STR_INVALID_VAR_DECLARATION "invalid variable declaration"
  2713. #define DUK_STR_CANNOT_DELETE_IDENTIFIER "cannot delete identifier"
  2714. #define DUK_STR_INVALID_EXPRESSION "invalid expression"
  2715. #define DUK_STR_INVALID_LVALUE "invalid lvalue"
  2716. #define DUK_STR_INVALID_NEWTARGET "invalid new.target"
  2717. #define DUK_STR_EXPECTED_IDENTIFIER "expected identifier"
  2718. #define DUK_STR_EMPTY_EXPR_NOT_ALLOWED "empty expression not allowed"
  2719. #define DUK_STR_INVALID_FOR "invalid for statement"
  2720. #define DUK_STR_INVALID_SWITCH "invalid switch statement"
  2721. #define DUK_STR_INVALID_BREAK_CONT_LABEL "invalid break/continue label"
  2722. #define DUK_STR_INVALID_RETURN "invalid return"
  2723. #define DUK_STR_INVALID_TRY "invalid try"
  2724. #define DUK_STR_INVALID_THROW "invalid throw"
  2725. #define DUK_STR_WITH_IN_STRICT_MODE "with in strict mode"
  2726. #define DUK_STR_FUNC_STMT_NOT_ALLOWED "function statement not allowed"
  2727. #define DUK_STR_UNTERMINATED_STMT "unterminated statement"
  2728. #define DUK_STR_INVALID_ARG_NAME "invalid argument name"
  2729. #define DUK_STR_INVALID_FUNC_NAME "invalid function name"
  2730. #define DUK_STR_INVALID_GETSET_NAME "invalid getter/setter name"
  2731. #define DUK_STR_FUNC_NAME_REQUIRED "function name required"
  2732. /* RegExp */
  2733. #define DUK_STR_INVALID_QUANTIFIER "invalid regexp quantifier"
  2734. #define DUK_STR_INVALID_QUANTIFIER_NO_ATOM "quantifier without preceding atom"
  2735. #define DUK_STR_INVALID_QUANTIFIER_VALUES "quantifier values invalid (qmin > qmax)"
  2736. #define DUK_STR_QUANTIFIER_TOO_MANY_COPIES "quantifier requires too many atom copies"
  2737. #define DUK_STR_UNEXPECTED_CLOSING_PAREN "unexpected closing parenthesis"
  2738. #define DUK_STR_UNEXPECTED_END_OF_PATTERN "unexpected end of pattern"
  2739. #define DUK_STR_UNEXPECTED_REGEXP_TOKEN "unexpected token in regexp"
  2740. #define DUK_STR_INVALID_REGEXP_FLAGS "invalid regexp flags"
  2741. #define DUK_STR_INVALID_REGEXP_ESCAPE "invalid regexp escape"
  2742. #define DUK_STR_INVALID_BACKREFS "invalid backreference(s)"
  2743. #define DUK_STR_INVALID_REGEXP_CHARACTER "invalid regexp character"
  2744. #define DUK_STR_INVALID_REGEXP_GROUP "invalid regexp group"
  2745. #define DUK_STR_UNTERMINATED_CHARCLASS "unterminated character class"
  2746. #define DUK_STR_INVALID_RANGE "invalid range"
  2747. /* Limits */
  2748. #define DUK_STR_VALSTACK_LIMIT "valstack limit"
  2749. #define DUK_STR_CALLSTACK_LIMIT "callstack limit"
  2750. #define DUK_STR_PROTOTYPE_CHAIN_LIMIT "prototype chain limit"
  2751. #define DUK_STR_BOUND_CHAIN_LIMIT "function call bound chain limit"
  2752. #define DUK_STR_C_CALLSTACK_LIMIT "C call stack depth limit"
  2753. #define DUK_STR_COMPILER_RECURSION_LIMIT "compiler recursion limit"
  2754. #define DUK_STR_BYTECODE_LIMIT "bytecode limit"
  2755. #define DUK_STR_REG_LIMIT "register limit"
  2756. #define DUK_STR_TEMP_LIMIT "temp limit"
  2757. #define DUK_STR_CONST_LIMIT "const limit"
  2758. #define DUK_STR_FUNC_LIMIT "function limit"
  2759. #define DUK_STR_REGEXP_COMPILER_RECURSION_LIMIT "regexp compiler recursion limit"
  2760. #define DUK_STR_REGEXP_EXECUTOR_RECURSION_LIMIT "regexp executor recursion limit"
  2761. #define DUK_STR_REGEXP_EXECUTOR_STEP_LIMIT "regexp step limit"
  2762. #endif /* DUK_ERRMSG_H_INCLUDED */
  2763. /* #include duk_js_bytecode.h */
  2764. #line 1 "duk_js_bytecode.h"
  2765. /*
  2766. * Ecmascript bytecode
  2767. */
  2768. #if !defined(DUK_JS_BYTECODE_H_INCLUDED)
  2769. #define DUK_JS_BYTECODE_H_INCLUDED
  2770. /*
  2771. * Bytecode instruction layout
  2772. * ===========================
  2773. *
  2774. * Instructions are unsigned 32-bit integers divided as follows:
  2775. *
  2776. * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! !
  2777. * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!
  2778. * +-----------------------------------------------+---------------+
  2779. * ! C ! B ! A ! OP !
  2780. * +-----------------------------------------------+---------------+
  2781. *
  2782. * OP (8 bits): opcode (DUK_OP_*), access should be fastest
  2783. * consecutive opcodes allocated when opcode needs flags
  2784. * A (8 bits): typically a target register number
  2785. * B (8 bits): typically first source register/constant number
  2786. * C (8 bits): typically second source register/constant number
  2787. *
  2788. * Some instructions combine BC or ABC together for larger parameter values.
  2789. * Signed integers (e.g. jump offsets) are encoded as unsigned, with an
  2790. * opcode specific bias.
  2791. *
  2792. * Some opcodes have flags which are handled by allocating consecutive
  2793. * opcodes to make space for 1-N flags. Flags can also be e.g. in the 'A'
  2794. * field when there's room for the specific opcode.
  2795. *
  2796. * For example, if three flags were needed, they could be allocated from
  2797. * the opcode field as follows:
  2798. *
  2799. * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! !
  2800. * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!
  2801. * +-----------------------------------------------+---------------+
  2802. * ! C ! B ! A ! OP !Z!Y!X!
  2803. * +-----------------------------------------------+---------------+
  2804. *
  2805. * Some opcodes accept a reg/const argument which is handled by allocating
  2806. * flags in the OP field, see DUK_BC_ISREG() and DUK_BC_ISCONST(). The
  2807. * following convention is shared by most opcodes, so that the compiler
  2808. * can handle reg/const flagging without opcode specific code paths:
  2809. *
  2810. * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! !
  2811. * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!
  2812. * +-----------------------------------------------+---------------+
  2813. * ! C ! B ! A ! OP !Y!X!
  2814. * +-----------------------------------------------+---------------+
  2815. *
  2816. * X 1=B is const, 0=B is reg
  2817. * Y 1=C is const, 0=C is reg
  2818. *
  2819. * In effect OP, OP + 1, OP + 2, and OP + 3 are allocated from the
  2820. * 8-bit opcode space for a single logical opcode. The base opcode
  2821. * number should be divisible by 4. If the opcode is called 'FOO'
  2822. * the following opcode constants would be defined:
  2823. *
  2824. * DUK_OP_FOO 100 // base opcode number
  2825. * DUK_OP_FOO_RR 100 // FOO, B=reg, C=reg
  2826. * DUK_OP_FOO_CR 101 // FOO, B=const, C=reg
  2827. * DUK_OP_FOO_RC 102 // FOO, B=reg, C=const
  2828. * DUK_OP_FOO_CC 103 // FOO, B=const, C=const
  2829. *
  2830. * If only B or C is a reg/const, the unused opcode combinations can be
  2831. * used for other opcodes (which take no reg/const argument). However,
  2832. * such opcode values are initially reserved, at least while opcode space
  2833. * is available. For example, if 'BAR' uses B for a register field and
  2834. * C is a reg/const:
  2835. *
  2836. * DUK_OP_BAR 116 // base opcode number
  2837. * DUK_OP_BAR_RR 116 // BAR, B=reg, C=reg
  2838. * DUK_OP_BAR_CR_UNUSED 117 // unused, could be repurposed
  2839. * DUK_OP_BAR_RC 118 // BAR, B=reg, C=const
  2840. * DUK_OP_BAR_CC_UNUSED 119 // unused, could be repurposed
  2841. *
  2842. * Macro naming is a bit misleading, e.g. "ABC" in macro name but the
  2843. * field layout is concretely "CBA" in the register.
  2844. */
  2845. typedef duk_uint32_t duk_instr_t;
  2846. #define DUK_BC_SHIFT_OP 0
  2847. #define DUK_BC_SHIFT_A 8
  2848. #define DUK_BC_SHIFT_B 16
  2849. #define DUK_BC_SHIFT_C 24
  2850. #define DUK_BC_SHIFT_BC DUK_BC_SHIFT_B
  2851. #define DUK_BC_SHIFT_ABC DUK_BC_SHIFT_A
  2852. #define DUK_BC_UNSHIFTED_MASK_OP 0xffUL
  2853. #define DUK_BC_UNSHIFTED_MASK_A 0xffUL
  2854. #define DUK_BC_UNSHIFTED_MASK_B 0xffUL
  2855. #define DUK_BC_UNSHIFTED_MASK_C 0xffUL
  2856. #define DUK_BC_UNSHIFTED_MASK_BC 0xffffUL
  2857. #define DUK_BC_UNSHIFTED_MASK_ABC 0xffffffUL
  2858. #define DUK_BC_SHIFTED_MASK_OP (DUK_BC_UNSHIFTED_MASK_OP << DUK_BC_SHIFT_OP)
  2859. #define DUK_BC_SHIFTED_MASK_A (DUK_BC_UNSHIFTED_MASK_A << DUK_BC_SHIFT_A)
  2860. #define DUK_BC_SHIFTED_MASK_B (DUK_BC_UNSHIFTED_MASK_B << DUK_BC_SHIFT_B)
  2861. #define DUK_BC_SHIFTED_MASK_C (DUK_BC_UNSHIFTED_MASK_C << DUK_BC_SHIFT_C)
  2862. #define DUK_BC_SHIFTED_MASK_BC (DUK_BC_UNSHIFTED_MASK_BC << DUK_BC_SHIFT_BC)
  2863. #define DUK_BC_SHIFTED_MASK_ABC (DUK_BC_UNSHIFTED_MASK_ABC << DUK_BC_SHIFT_ABC)
  2864. #define DUK_DEC_OP(x) ((x) & 0xffUL)
  2865. #define DUK_DEC_A(x) (((x) >> 8) & 0xffUL)
  2866. #define DUK_DEC_B(x) (((x) >> 16) & 0xffUL)
  2867. #define DUK_DEC_C(x) (((x) >> 24) & 0xffUL)
  2868. #define DUK_DEC_BC(x) (((x) >> 16) & 0xffffUL)
  2869. #define DUK_DEC_ABC(x) (((x) >> 8) & 0xffffffUL)
  2870. #define DUK_ENC_OP(op) ((duk_instr_t) (op))
  2871. #define DUK_ENC_OP_ABC(op,abc) ((duk_instr_t) ( \
  2872. (((duk_instr_t) (abc)) << 8) | \
  2873. ((duk_instr_t) (op)) \
  2874. ))
  2875. #define DUK_ENC_OP_A_BC(op,a,bc) ((duk_instr_t) ( \
  2876. (((duk_instr_t) (bc)) << 16) | \
  2877. (((duk_instr_t) (a)) << 8) | \
  2878. ((duk_instr_t) (op)) \
  2879. ))
  2880. #define DUK_ENC_OP_A_B_C(op,a,b,c) ((duk_instr_t) ( \
  2881. (((duk_instr_t) (c)) << 24) | \
  2882. (((duk_instr_t) (b)) << 16) | \
  2883. (((duk_instr_t) (a)) << 8) | \
  2884. ((duk_instr_t) (op)) \
  2885. ))
  2886. #define DUK_ENC_OP_A_B(op,a,b) DUK_ENC_OP_A_B_C((op),(a),(b),0)
  2887. #define DUK_ENC_OP_A(op,a) DUK_ENC_OP_A_B_C((op),(a),0,0)
  2888. #define DUK_ENC_OP_BC(op,bc) DUK_ENC_OP_A_BC((op),0,(bc))
  2889. /* Get opcode base value with B/C reg/const flags cleared. */
  2890. #define DUK_BC_NOREGCONST_OP(op) ((op) & 0xfc)
  2891. /* Constants should be signed so that signed arithmetic involving them
  2892. * won't cause values to be coerced accidentally to unsigned.
  2893. */
  2894. #define DUK_BC_OP_MIN 0
  2895. #define DUK_BC_OP_MAX 0xffL
  2896. #define DUK_BC_A_MIN 0
  2897. #define DUK_BC_A_MAX 0xffL
  2898. #define DUK_BC_B_MIN 0
  2899. #define DUK_BC_B_MAX 0xffL
  2900. #define DUK_BC_C_MIN 0
  2901. #define DUK_BC_C_MAX 0xffL
  2902. #define DUK_BC_BC_MIN 0
  2903. #define DUK_BC_BC_MAX 0xffffL
  2904. #define DUK_BC_ABC_MIN 0
  2905. #define DUK_BC_ABC_MAX 0xffffffL
  2906. /* Masks for B/C reg/const indicator in opcode field. */
  2907. #define DUK_BC_REGCONST_B (0x01UL)
  2908. #define DUK_BC_REGCONST_C (0x02UL)
  2909. /* Misc. masks for opcode field. */
  2910. #define DUK_BC_INCDECP_FLAG_DEC (0x04UL)
  2911. #define DUK_BC_INCDECP_FLAG_POST (0x08UL)
  2912. /* Opcodes. */
  2913. #define DUK_OP_LDREG 0
  2914. #define DUK_OP_STREG 1
  2915. #define DUK_OP_JUMP 2
  2916. #define DUK_OP_LDCONST 3
  2917. #define DUK_OP_LDINT 4
  2918. #define DUK_OP_LDINTX 5
  2919. #define DUK_OP_LDTHIS 6
  2920. #define DUK_OP_LDUNDEF 7
  2921. #define DUK_OP_LDNULL 8
  2922. #define DUK_OP_LDTRUE 9
  2923. #define DUK_OP_LDFALSE 10
  2924. #define DUK_OP_GETVAR 11
  2925. #define DUK_OP_BNOT 12
  2926. #define DUK_OP_LNOT 13
  2927. #define DUK_OP_UNM 14
  2928. #define DUK_OP_UNP 15
  2929. #define DUK_OP_EQ 16
  2930. #define DUK_OP_EQ_RR 16
  2931. #define DUK_OP_EQ_CR 17
  2932. #define DUK_OP_EQ_RC 18
  2933. #define DUK_OP_EQ_CC 19
  2934. #define DUK_OP_NEQ 20
  2935. #define DUK_OP_NEQ_RR 20
  2936. #define DUK_OP_NEQ_CR 21
  2937. #define DUK_OP_NEQ_RC 22
  2938. #define DUK_OP_NEQ_CC 23
  2939. #define DUK_OP_SEQ 24
  2940. #define DUK_OP_SEQ_RR 24
  2941. #define DUK_OP_SEQ_CR 25
  2942. #define DUK_OP_SEQ_RC 26
  2943. #define DUK_OP_SEQ_CC 27
  2944. #define DUK_OP_SNEQ 28
  2945. #define DUK_OP_SNEQ_RR 28
  2946. #define DUK_OP_SNEQ_CR 29
  2947. #define DUK_OP_SNEQ_RC 30
  2948. #define DUK_OP_SNEQ_CC 31
  2949. #define DUK_OP_GT 32
  2950. #define DUK_OP_GT_RR 32
  2951. #define DUK_OP_GT_CR 33
  2952. #define DUK_OP_GT_RC 34
  2953. #define DUK_OP_GT_CC 35
  2954. #define DUK_OP_GE 36
  2955. #define DUK_OP_GE_RR 36
  2956. #define DUK_OP_GE_CR 37
  2957. #define DUK_OP_GE_RC 38
  2958. #define DUK_OP_GE_CC 39
  2959. #define DUK_OP_LT 40
  2960. #define DUK_OP_LT_RR 40
  2961. #define DUK_OP_LT_CR 41
  2962. #define DUK_OP_LT_RC 42
  2963. #define DUK_OP_LT_CC 43
  2964. #define DUK_OP_LE 44
  2965. #define DUK_OP_LE_RR 44
  2966. #define DUK_OP_LE_CR 45
  2967. #define DUK_OP_LE_RC 46
  2968. #define DUK_OP_LE_CC 47
  2969. #define DUK_OP_IFTRUE 48
  2970. #define DUK_OP_IFTRUE_R 48
  2971. #define DUK_OP_IFTRUE_C 49
  2972. #define DUK_OP_IFFALSE 50
  2973. #define DUK_OP_IFFALSE_R 50
  2974. #define DUK_OP_IFFALSE_C 51
  2975. #define DUK_OP_ADD 52
  2976. #define DUK_OP_ADD_RR 52
  2977. #define DUK_OP_ADD_CR 53
  2978. #define DUK_OP_ADD_RC 54
  2979. #define DUK_OP_ADD_CC 55
  2980. #define DUK_OP_SUB 56
  2981. #define DUK_OP_SUB_RR 56
  2982. #define DUK_OP_SUB_CR 57
  2983. #define DUK_OP_SUB_RC 58
  2984. #define DUK_OP_SUB_CC 59
  2985. #define DUK_OP_MUL 60
  2986. #define DUK_OP_MUL_RR 60
  2987. #define DUK_OP_MUL_CR 61
  2988. #define DUK_OP_MUL_RC 62
  2989. #define DUK_OP_MUL_CC 63
  2990. #define DUK_OP_DIV 64
  2991. #define DUK_OP_DIV_RR 64
  2992. #define DUK_OP_DIV_CR 65
  2993. #define DUK_OP_DIV_RC 66
  2994. #define DUK_OP_DIV_CC 67
  2995. #define DUK_OP_MOD 68
  2996. #define DUK_OP_MOD_RR 68
  2997. #define DUK_OP_MOD_CR 69
  2998. #define DUK_OP_MOD_RC 70
  2999. #define DUK_OP_MOD_CC 71
  3000. #define DUK_OP_EXP 72
  3001. #define DUK_OP_EXP_RR 72
  3002. #define DUK_OP_EXP_CR 73
  3003. #define DUK_OP_EXP_RC 74
  3004. #define DUK_OP_EXP_CC 75
  3005. #define DUK_OP_BAND 76
  3006. #define DUK_OP_BAND_RR 76
  3007. #define DUK_OP_BAND_CR 77
  3008. #define DUK_OP_BAND_RC 78
  3009. #define DUK_OP_BAND_CC 79
  3010. #define DUK_OP_BOR 80
  3011. #define DUK_OP_BOR_RR 80
  3012. #define DUK_OP_BOR_CR 81
  3013. #define DUK_OP_BOR_RC 82
  3014. #define DUK_OP_BOR_CC 83
  3015. #define DUK_OP_BXOR 84
  3016. #define DUK_OP_BXOR_RR 84
  3017. #define DUK_OP_BXOR_CR 85
  3018. #define DUK_OP_BXOR_RC 86
  3019. #define DUK_OP_BXOR_CC 87
  3020. #define DUK_OP_BASL 88
  3021. #define DUK_OP_BASL_RR 88
  3022. #define DUK_OP_BASL_CR 89
  3023. #define DUK_OP_BASL_RC 90
  3024. #define DUK_OP_BASL_CC 91
  3025. #define DUK_OP_BLSR 92
  3026. #define DUK_OP_BLSR_RR 92
  3027. #define DUK_OP_BLSR_CR 93
  3028. #define DUK_OP_BLSR_RC 94
  3029. #define DUK_OP_BLSR_CC 95
  3030. #define DUK_OP_BASR 96
  3031. #define DUK_OP_BASR_RR 96
  3032. #define DUK_OP_BASR_CR 97
  3033. #define DUK_OP_BASR_RC 98
  3034. #define DUK_OP_BASR_CC 99
  3035. #define DUK_OP_INSTOF 100
  3036. #define DUK_OP_INSTOF_RR 100
  3037. #define DUK_OP_INSTOF_CR 101
  3038. #define DUK_OP_INSTOF_RC 102
  3039. #define DUK_OP_INSTOF_CC 103
  3040. #define DUK_OP_IN 104
  3041. #define DUK_OP_IN_RR 104
  3042. #define DUK_OP_IN_CR 105
  3043. #define DUK_OP_IN_RC 106
  3044. #define DUK_OP_IN_CC 107
  3045. #define DUK_OP_GETPROP 108
  3046. #define DUK_OP_GETPROP_RR 108
  3047. #define DUK_OP_GETPROP_CR 109
  3048. #define DUK_OP_GETPROP_RC 110
  3049. #define DUK_OP_GETPROP_CC 111
  3050. #define DUK_OP_PUTPROP 112
  3051. #define DUK_OP_PUTPROP_RR 112
  3052. #define DUK_OP_PUTPROP_CR 113
  3053. #define DUK_OP_PUTPROP_RC 114
  3054. #define DUK_OP_PUTPROP_CC 115
  3055. #define DUK_OP_DELPROP 116
  3056. #define DUK_OP_DELPROP_RR 116
  3057. #define DUK_OP_DELPROP_CR_UNUSED 117 /* unused now */
  3058. #define DUK_OP_DELPROP_RC 118
  3059. #define DUK_OP_DELPROP_CC_UNUSED 119 /* unused now */
  3060. #define DUK_OP_PREINCR 120 /* pre/post opcode values have constraints, */
  3061. #define DUK_OP_PREDECR 121 /* see duk_js_executor.c and duk_js_compiler.c. */
  3062. #define DUK_OP_POSTINCR 122
  3063. #define DUK_OP_POSTDECR 123
  3064. #define DUK_OP_PREINCV 124
  3065. #define DUK_OP_PREDECV 125
  3066. #define DUK_OP_POSTINCV 126
  3067. #define DUK_OP_POSTDECV 127
  3068. #define DUK_OP_PREINCP 128 /* pre/post inc/dec prop opcodes have constraints */
  3069. #define DUK_OP_PREINCP_RR 128
  3070. #define DUK_OP_PREINCP_CR 129
  3071. #define DUK_OP_PREINCP_RC 130
  3072. #define DUK_OP_PREINCP_CC 131
  3073. #define DUK_OP_PREDECP 132
  3074. #define DUK_OP_PREDECP_RR 132
  3075. #define DUK_OP_PREDECP_CR 133
  3076. #define DUK_OP_PREDECP_RC 134
  3077. #define DUK_OP_PREDECP_CC 135
  3078. #define DUK_OP_POSTINCP 136
  3079. #define DUK_OP_POSTINCP_RR 136
  3080. #define DUK_OP_POSTINCP_CR 137
  3081. #define DUK_OP_POSTINCP_RC 138
  3082. #define DUK_OP_POSTINCP_CC 139
  3083. #define DUK_OP_POSTDECP 140
  3084. #define DUK_OP_POSTDECP_RR 140
  3085. #define DUK_OP_POSTDECP_CR 141
  3086. #define DUK_OP_POSTDECP_RC 142
  3087. #define DUK_OP_POSTDECP_CC 143
  3088. #define DUK_OP_DECLVAR 144
  3089. #define DUK_OP_DECLVAR_RR 144
  3090. #define DUK_OP_DECLVAR_CR 145
  3091. #define DUK_OP_DECLVAR_RC 146
  3092. #define DUK_OP_DECLVAR_CC 147
  3093. #define DUK_OP_REGEXP 148
  3094. #define DUK_OP_REGEXP_RR 148
  3095. #define DUK_OP_REGEXP_CR 149
  3096. #define DUK_OP_REGEXP_RC 150
  3097. #define DUK_OP_REGEXP_CC 151
  3098. #define DUK_OP_CLOSURE 152
  3099. #define DUK_OP_TYPEOF 153
  3100. #define DUK_OP_TYPEOFID 154
  3101. #define DUK_OP_PUTVAR 155
  3102. #define DUK_OP_DELVAR 156
  3103. #define DUK_OP_RETREG 157
  3104. #define DUK_OP_RETUNDEF 158
  3105. #define DUK_OP_RETCONST 159
  3106. #define DUK_OP_RETCONSTN 160 /* return const without incref (e.g. number) */
  3107. #define DUK_OP_LABEL 161
  3108. #define DUK_OP_ENDLABEL 162
  3109. #define DUK_OP_BREAK 163
  3110. #define DUK_OP_CONTINUE 164
  3111. #define DUK_OP_TRYCATCH 165
  3112. #define DUK_OP_ENDTRY 166
  3113. #define DUK_OP_ENDCATCH 167
  3114. #define DUK_OP_ENDFIN 168
  3115. #define DUK_OP_THROW 169
  3116. #define DUK_OP_INVLHS 170
  3117. #define DUK_OP_CSREG 171
  3118. #define DUK_OP_CSVAR 172
  3119. #define DUK_OP_CSVAR_RR 172
  3120. #define DUK_OP_CSVAR_CR 173
  3121. #define DUK_OP_CSVAR_RC 174
  3122. #define DUK_OP_CSVAR_CC 175
  3123. #define DUK_OP_CALL0 176 /* DUK_OP_CALL0 & 0x0F must be zero. */
  3124. #define DUK_OP_CALL1 177
  3125. #define DUK_OP_CALL2 178
  3126. #define DUK_OP_CALL3 179
  3127. #define DUK_OP_CALL4 180
  3128. #define DUK_OP_CALL5 181
  3129. #define DUK_OP_CALL6 182
  3130. #define DUK_OP_CALL7 183
  3131. #define DUK_OP_CALL8 184
  3132. #define DUK_OP_CALL9 185
  3133. #define DUK_OP_CALL10 186
  3134. #define DUK_OP_CALL11 187
  3135. #define DUK_OP_CALL12 188
  3136. #define DUK_OP_CALL13 189
  3137. #define DUK_OP_CALL14 190
  3138. #define DUK_OP_CALL15 191
  3139. #define DUK_OP_NEWOBJ 192
  3140. #define DUK_OP_NEWARR 193
  3141. #define DUK_OP_MPUTOBJ 194
  3142. #define DUK_OP_MPUTOBJI 195
  3143. #define DUK_OP_INITSET 196
  3144. #define DUK_OP_INITGET 197
  3145. #define DUK_OP_MPUTARR 198
  3146. #define DUK_OP_MPUTARRI 199
  3147. #define DUK_OP_SETALEN 200
  3148. #define DUK_OP_INITENUM 201
  3149. #define DUK_OP_NEXTENUM 202
  3150. #define DUK_OP_NEWTARGET 203
  3151. #define DUK_OP_DEBUGGER 204
  3152. #define DUK_OP_NOP 205
  3153. #define DUK_OP_INVALID 206
  3154. #define DUK_OP_UNUSED207 207
  3155. #define DUK_OP_GETPROPC 208
  3156. #define DUK_OP_GETPROPC_RR 208
  3157. #define DUK_OP_GETPROPC_CR 209
  3158. #define DUK_OP_GETPROPC_RC 210
  3159. #define DUK_OP_GETPROPC_CC 211
  3160. #define DUK_OP_UNUSED212 212
  3161. #define DUK_OP_UNUSED213 213
  3162. #define DUK_OP_UNUSED214 214
  3163. #define DUK_OP_UNUSED215 215
  3164. #define DUK_OP_UNUSED216 216
  3165. #define DUK_OP_UNUSED217 217
  3166. #define DUK_OP_UNUSED218 218
  3167. #define DUK_OP_UNUSED219 219
  3168. #define DUK_OP_UNUSED220 220
  3169. #define DUK_OP_UNUSED221 221
  3170. #define DUK_OP_UNUSED222 222
  3171. #define DUK_OP_UNUSED223 223
  3172. #define DUK_OP_UNUSED224 224
  3173. #define DUK_OP_UNUSED225 225
  3174. #define DUK_OP_UNUSED226 226
  3175. #define DUK_OP_UNUSED227 227
  3176. #define DUK_OP_UNUSED228 228
  3177. #define DUK_OP_UNUSED229 229
  3178. #define DUK_OP_UNUSED230 230
  3179. #define DUK_OP_UNUSED231 231
  3180. #define DUK_OP_UNUSED232 232
  3181. #define DUK_OP_UNUSED233 233
  3182. #define DUK_OP_UNUSED234 234
  3183. #define DUK_OP_UNUSED235 235
  3184. #define DUK_OP_UNUSED236 236
  3185. #define DUK_OP_UNUSED237 237
  3186. #define DUK_OP_UNUSED238 238
  3187. #define DUK_OP_UNUSED239 239
  3188. #define DUK_OP_UNUSED240 240
  3189. #define DUK_OP_UNUSED241 241
  3190. #define DUK_OP_UNUSED242 242
  3191. #define DUK_OP_UNUSED243 243
  3192. #define DUK_OP_UNUSED244 244
  3193. #define DUK_OP_UNUSED245 245
  3194. #define DUK_OP_UNUSED246 246
  3195. #define DUK_OP_UNUSED247 247
  3196. #define DUK_OP_UNUSED248 248
  3197. #define DUK_OP_UNUSED249 249
  3198. #define DUK_OP_UNUSED250 250
  3199. #define DUK_OP_UNUSED251 251
  3200. #define DUK_OP_UNUSED252 252
  3201. #define DUK_OP_UNUSED253 253
  3202. #define DUK_OP_UNUSED254 254
  3203. #define DUK_OP_UNUSED255 255
  3204. #define DUK_OP_NONE 256 /* dummy value used as marker (doesn't fit in 8-bit field) */
  3205. /* XXX: Allocate flags from opcode field? Would take 16 opcode slots
  3206. * but avoids shuffling in more cases. Maybe not worth it.
  3207. */
  3208. /* DUK_OP_TRYCATCH flags in A. */
  3209. #define DUK_BC_TRYCATCH_FLAG_HAVE_CATCH (1U << 0)
  3210. #define DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY (1U << 1)
  3211. #define DUK_BC_TRYCATCH_FLAG_CATCH_BINDING (1U << 2)
  3212. #define DUK_BC_TRYCATCH_FLAG_WITH_BINDING (1U << 3)
  3213. /* DUK_OP_DECLVAR flags in A; bottom bits are reserved for propdesc flags
  3214. * (DUK_PROPDESC_FLAG_XXX).
  3215. */
  3216. #define DUK_BC_DECLVAR_FLAG_FUNC_DECL (1U << 4) /* function declaration */
  3217. /* DUK_OP_CALLn flags, part of opcode field. Three lowest bits must match
  3218. * DUK_CALL_FLAG_xxx directly.
  3219. */
  3220. #define DUK_BC_CALL_FLAG_TAILCALL (1U << 0)
  3221. #define DUK_BC_CALL_FLAG_CONSTRUCT (1U << 1)
  3222. #define DUK_BC_CALL_FLAG_CALLED_AS_EVAL (1U << 2)
  3223. #define DUK_BC_CALL_FLAG_INDIRECT (1U << 3)
  3224. /* Misc constants and helper macros. */
  3225. #define DUK_BC_LDINT_BIAS (1L << 15)
  3226. #define DUK_BC_LDINTX_SHIFT 16
  3227. #define DUK_BC_JUMP_BIAS (1L << 23)
  3228. #endif /* DUK_JS_BYTECODE_H_INCLUDED */
  3229. /* #include duk_lexer.h */
  3230. #line 1 "duk_lexer.h"
  3231. /*
  3232. * Lexer defines.
  3233. */
  3234. #if !defined(DUK_LEXER_H_INCLUDED)
  3235. #define DUK_LEXER_H_INCLUDED
  3236. typedef void (*duk_re_range_callback)(void *user, duk_codepoint_t r1, duk_codepoint_t r2, duk_bool_t direct);
  3237. /*
  3238. * A token is interpreted as any possible production of InputElementDiv
  3239. * and InputElementRegExp, see E5 Section 7 in its entirety. Note that
  3240. * the E5 "Token" production does not cover all actual tokens of the
  3241. * language (which is explicitly stated in the specification, Section 7.5).
  3242. * Null and boolean literals are defined as part of both ReservedWord
  3243. * (E5 Section 7.6.1) and Literal (E5 Section 7.8) productions. Here,
  3244. * null and boolean values have literal tokens, and are not reserved
  3245. * words.
  3246. *
  3247. * Decimal literal negative/positive sign is -not- part of DUK_TOK_NUMBER.
  3248. * The number tokens always have a non-negative value. The unary minus
  3249. * operator in "-1.0" is optimized during compilation to yield a single
  3250. * negative constant.
  3251. *
  3252. * Token numbering is free except that reserved words are required to be
  3253. * in a continuous range and in a particular order. See genstrings.py.
  3254. */
  3255. #define DUK_LEXER_INITCTX(ctx) duk_lexer_initctx((ctx))
  3256. #define DUK_LEXER_SETPOINT(ctx,pt) duk_lexer_setpoint((ctx), (pt))
  3257. #define DUK_LEXER_GETPOINT(ctx,pt) duk_lexer_getpoint((ctx), (pt))
  3258. /* Currently 6 characters of lookup are actually needed (duk_lexer.c). */
  3259. #define DUK_LEXER_WINDOW_SIZE 6
  3260. #if defined(DUK_USE_LEXER_SLIDING_WINDOW)
  3261. #define DUK_LEXER_BUFFER_SIZE 64
  3262. #endif
  3263. #define DUK_TOK_MINVAL 0
  3264. /* returned after EOF (infinite amount) */
  3265. #define DUK_TOK_EOF 0
  3266. /* identifier names (E5 Section 7.6) */
  3267. #define DUK_TOK_IDENTIFIER 1
  3268. /* reserved words: keywords */
  3269. #define DUK_TOK_START_RESERVED 2
  3270. #define DUK_TOK_BREAK 2
  3271. #define DUK_TOK_CASE 3
  3272. #define DUK_TOK_CATCH 4
  3273. #define DUK_TOK_CONTINUE 5
  3274. #define DUK_TOK_DEBUGGER 6
  3275. #define DUK_TOK_DEFAULT 7
  3276. #define DUK_TOK_DELETE 8
  3277. #define DUK_TOK_DO 9
  3278. #define DUK_TOK_ELSE 10
  3279. #define DUK_TOK_FINALLY 11
  3280. #define DUK_TOK_FOR 12
  3281. #define DUK_TOK_FUNCTION 13
  3282. #define DUK_TOK_IF 14
  3283. #define DUK_TOK_IN 15
  3284. #define DUK_TOK_INSTANCEOF 16
  3285. #define DUK_TOK_NEW 17
  3286. #define DUK_TOK_RETURN 18
  3287. #define DUK_TOK_SWITCH 19
  3288. #define DUK_TOK_THIS 20
  3289. #define DUK_TOK_THROW 21
  3290. #define DUK_TOK_TRY 22
  3291. #define DUK_TOK_TYPEOF 23
  3292. #define DUK_TOK_VAR 24
  3293. #define DUK_TOK_CONST 25
  3294. #define DUK_TOK_VOID 26
  3295. #define DUK_TOK_WHILE 27
  3296. #define DUK_TOK_WITH 28
  3297. /* reserved words: future reserved words */
  3298. #define DUK_TOK_CLASS 29
  3299. #define DUK_TOK_ENUM 30
  3300. #define DUK_TOK_EXPORT 31
  3301. #define DUK_TOK_EXTENDS 32
  3302. #define DUK_TOK_IMPORT 33
  3303. #define DUK_TOK_SUPER 34
  3304. /* "null", "true", and "false" are always reserved words.
  3305. * Note that "get" and "set" are not!
  3306. */
  3307. #define DUK_TOK_NULL 35
  3308. #define DUK_TOK_TRUE 36
  3309. #define DUK_TOK_FALSE 37
  3310. /* reserved words: additional future reserved words in strict mode */
  3311. #define DUK_TOK_START_STRICT_RESERVED 38 /* inclusive */
  3312. #define DUK_TOK_IMPLEMENTS 38
  3313. #define DUK_TOK_INTERFACE 39
  3314. #define DUK_TOK_LET 40
  3315. #define DUK_TOK_PACKAGE 41
  3316. #define DUK_TOK_PRIVATE 42
  3317. #define DUK_TOK_PROTECTED 43
  3318. #define DUK_TOK_PUBLIC 44
  3319. #define DUK_TOK_STATIC 45
  3320. #define DUK_TOK_YIELD 46
  3321. #define DUK_TOK_END_RESERVED 47 /* exclusive */
  3322. /* "get" and "set" are tokens but NOT ReservedWords. They are currently
  3323. * parsed and identifiers and these defines are actually now unused.
  3324. */
  3325. #define DUK_TOK_GET 47
  3326. #define DUK_TOK_SET 48
  3327. /* punctuators (unlike the spec, also includes "/" and "/=") */
  3328. #define DUK_TOK_LCURLY 49
  3329. #define DUK_TOK_RCURLY 50
  3330. #define DUK_TOK_LBRACKET 51
  3331. #define DUK_TOK_RBRACKET 52
  3332. #define DUK_TOK_LPAREN 53
  3333. #define DUK_TOK_RPAREN 54
  3334. #define DUK_TOK_PERIOD 55
  3335. #define DUK_TOK_SEMICOLON 56
  3336. #define DUK_TOK_COMMA 57
  3337. #define DUK_TOK_LT 58
  3338. #define DUK_TOK_GT 59
  3339. #define DUK_TOK_LE 60
  3340. #define DUK_TOK_GE 61
  3341. #define DUK_TOK_EQ 62
  3342. #define DUK_TOK_NEQ 63
  3343. #define DUK_TOK_SEQ 64
  3344. #define DUK_TOK_SNEQ 65
  3345. #define DUK_TOK_ADD 66
  3346. #define DUK_TOK_SUB 67
  3347. #define DUK_TOK_MUL 68
  3348. #define DUK_TOK_DIV 69
  3349. #define DUK_TOK_MOD 70
  3350. #define DUK_TOK_EXP 71
  3351. #define DUK_TOK_INCREMENT 72
  3352. #define DUK_TOK_DECREMENT 73
  3353. #define DUK_TOK_ALSHIFT 74 /* named "arithmetic" because result is signed */
  3354. #define DUK_TOK_ARSHIFT 75
  3355. #define DUK_TOK_RSHIFT 76
  3356. #define DUK_TOK_BAND 77
  3357. #define DUK_TOK_BOR 78
  3358. #define DUK_TOK_BXOR 79
  3359. #define DUK_TOK_LNOT 80
  3360. #define DUK_TOK_BNOT 81
  3361. #define DUK_TOK_LAND 82
  3362. #define DUK_TOK_LOR 83
  3363. #define DUK_TOK_QUESTION 84
  3364. #define DUK_TOK_COLON 85
  3365. #define DUK_TOK_EQUALSIGN 86
  3366. #define DUK_TOK_ADD_EQ 87
  3367. #define DUK_TOK_SUB_EQ 88
  3368. #define DUK_TOK_MUL_EQ 89
  3369. #define DUK_TOK_DIV_EQ 90
  3370. #define DUK_TOK_MOD_EQ 91
  3371. #define DUK_TOK_EXP_EQ 92
  3372. #define DUK_TOK_ALSHIFT_EQ 93
  3373. #define DUK_TOK_ARSHIFT_EQ 94
  3374. #define DUK_TOK_RSHIFT_EQ 95
  3375. #define DUK_TOK_BAND_EQ 96
  3376. #define DUK_TOK_BOR_EQ 97
  3377. #define DUK_TOK_BXOR_EQ 98
  3378. /* literals (E5 Section 7.8), except null, true, false, which are treated
  3379. * like reserved words (above).
  3380. */
  3381. #define DUK_TOK_NUMBER 99
  3382. #define DUK_TOK_STRING 100
  3383. #define DUK_TOK_REGEXP 101
  3384. #define DUK_TOK_MAXVAL 101 /* inclusive */
  3385. #define DUK_TOK_INVALID DUK_SMALL_UINT_MAX
  3386. /* Convert heap string index to a token (reserved words) */
  3387. #define DUK_STRIDX_TO_TOK(x) ((x) - DUK_STRIDX_START_RESERVED + DUK_TOK_START_RESERVED)
  3388. /* Sanity check */
  3389. #if (DUK_TOK_MAXVAL > 255)
  3390. #error DUK_TOK_MAXVAL too large, code assumes it fits into 8 bits
  3391. #endif
  3392. /* Sanity checks for string and token defines */
  3393. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_BREAK) != DUK_TOK_BREAK)
  3394. #error mismatch in token defines
  3395. #endif
  3396. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CASE) != DUK_TOK_CASE)
  3397. #error mismatch in token defines
  3398. #endif
  3399. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CATCH) != DUK_TOK_CATCH)
  3400. #error mismatch in token defines
  3401. #endif
  3402. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CONTINUE) != DUK_TOK_CONTINUE)
  3403. #error mismatch in token defines
  3404. #endif
  3405. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DEBUGGER) != DUK_TOK_DEBUGGER)
  3406. #error mismatch in token defines
  3407. #endif
  3408. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DEFAULT) != DUK_TOK_DEFAULT)
  3409. #error mismatch in token defines
  3410. #endif
  3411. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DELETE) != DUK_TOK_DELETE)
  3412. #error mismatch in token defines
  3413. #endif
  3414. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DO) != DUK_TOK_DO)
  3415. #error mismatch in token defines
  3416. #endif
  3417. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_ELSE) != DUK_TOK_ELSE)
  3418. #error mismatch in token defines
  3419. #endif
  3420. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FINALLY) != DUK_TOK_FINALLY)
  3421. #error mismatch in token defines
  3422. #endif
  3423. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FOR) != DUK_TOK_FOR)
  3424. #error mismatch in token defines
  3425. #endif
  3426. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LC_FUNCTION) != DUK_TOK_FUNCTION)
  3427. #error mismatch in token defines
  3428. #endif
  3429. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IF) != DUK_TOK_IF)
  3430. #error mismatch in token defines
  3431. #endif
  3432. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IN) != DUK_TOK_IN)
  3433. #error mismatch in token defines
  3434. #endif
  3435. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_INSTANCEOF) != DUK_TOK_INSTANCEOF)
  3436. #error mismatch in token defines
  3437. #endif
  3438. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_NEW) != DUK_TOK_NEW)
  3439. #error mismatch in token defines
  3440. #endif
  3441. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_RETURN) != DUK_TOK_RETURN)
  3442. #error mismatch in token defines
  3443. #endif
  3444. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_SWITCH) != DUK_TOK_SWITCH)
  3445. #error mismatch in token defines
  3446. #endif
  3447. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_THIS) != DUK_TOK_THIS)
  3448. #error mismatch in token defines
  3449. #endif
  3450. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_THROW) != DUK_TOK_THROW)
  3451. #error mismatch in token defines
  3452. #endif
  3453. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TRY) != DUK_TOK_TRY)
  3454. #error mismatch in token defines
  3455. #endif
  3456. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TYPEOF) != DUK_TOK_TYPEOF)
  3457. #error mismatch in token defines
  3458. #endif
  3459. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_VAR) != DUK_TOK_VAR)
  3460. #error mismatch in token defines
  3461. #endif
  3462. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_VOID) != DUK_TOK_VOID)
  3463. #error mismatch in token defines
  3464. #endif
  3465. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_WHILE) != DUK_TOK_WHILE)
  3466. #error mismatch in token defines
  3467. #endif
  3468. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_WITH) != DUK_TOK_WITH)
  3469. #error mismatch in token defines
  3470. #endif
  3471. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CLASS) != DUK_TOK_CLASS)
  3472. #error mismatch in token defines
  3473. #endif
  3474. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CONST) != DUK_TOK_CONST)
  3475. #error mismatch in token defines
  3476. #endif
  3477. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_ENUM) != DUK_TOK_ENUM)
  3478. #error mismatch in token defines
  3479. #endif
  3480. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_EXPORT) != DUK_TOK_EXPORT)
  3481. #error mismatch in token defines
  3482. #endif
  3483. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_EXTENDS) != DUK_TOK_EXTENDS)
  3484. #error mismatch in token defines
  3485. #endif
  3486. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IMPORT) != DUK_TOK_IMPORT)
  3487. #error mismatch in token defines
  3488. #endif
  3489. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_SUPER) != DUK_TOK_SUPER)
  3490. #error mismatch in token defines
  3491. #endif
  3492. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LC_NULL) != DUK_TOK_NULL)
  3493. #error mismatch in token defines
  3494. #endif
  3495. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TRUE) != DUK_TOK_TRUE)
  3496. #error mismatch in token defines
  3497. #endif
  3498. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FALSE) != DUK_TOK_FALSE)
  3499. #error mismatch in token defines
  3500. #endif
  3501. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IMPLEMENTS) != DUK_TOK_IMPLEMENTS)
  3502. #error mismatch in token defines
  3503. #endif
  3504. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_INTERFACE) != DUK_TOK_INTERFACE)
  3505. #error mismatch in token defines
  3506. #endif
  3507. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LET) != DUK_TOK_LET)
  3508. #error mismatch in token defines
  3509. #endif
  3510. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PACKAGE) != DUK_TOK_PACKAGE)
  3511. #error mismatch in token defines
  3512. #endif
  3513. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PRIVATE) != DUK_TOK_PRIVATE)
  3514. #error mismatch in token defines
  3515. #endif
  3516. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PROTECTED) != DUK_TOK_PROTECTED)
  3517. #error mismatch in token defines
  3518. #endif
  3519. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PUBLIC) != DUK_TOK_PUBLIC)
  3520. #error mismatch in token defines
  3521. #endif
  3522. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_STATIC) != DUK_TOK_STATIC)
  3523. #error mismatch in token defines
  3524. #endif
  3525. #if (DUK_STRIDX_TO_TOK(DUK_STRIDX_YIELD) != DUK_TOK_YIELD)
  3526. #error mismatch in token defines
  3527. #endif
  3528. /* Regexp tokens */
  3529. #define DUK_RETOK_EOF 0
  3530. #define DUK_RETOK_DISJUNCTION 1
  3531. #define DUK_RETOK_QUANTIFIER 2
  3532. #define DUK_RETOK_ASSERT_START 3
  3533. #define DUK_RETOK_ASSERT_END 4
  3534. #define DUK_RETOK_ASSERT_WORD_BOUNDARY 5
  3535. #define DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY 6
  3536. #define DUK_RETOK_ASSERT_START_POS_LOOKAHEAD 7
  3537. #define DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD 8
  3538. #define DUK_RETOK_ATOM_PERIOD 9
  3539. #define DUK_RETOK_ATOM_CHAR 10
  3540. #define DUK_RETOK_ATOM_DIGIT 11 /* assumptions in regexp compiler */
  3541. #define DUK_RETOK_ATOM_NOT_DIGIT 12 /* -""- */
  3542. #define DUK_RETOK_ATOM_WHITE 13 /* -""- */
  3543. #define DUK_RETOK_ATOM_NOT_WHITE 14 /* -""- */
  3544. #define DUK_RETOK_ATOM_WORD_CHAR 15 /* -""- */
  3545. #define DUK_RETOK_ATOM_NOT_WORD_CHAR 16 /* -""- */
  3546. #define DUK_RETOK_ATOM_BACKREFERENCE 17
  3547. #define DUK_RETOK_ATOM_START_CAPTURE_GROUP 18
  3548. #define DUK_RETOK_ATOM_START_NONCAPTURE_GROUP 19
  3549. #define DUK_RETOK_ATOM_START_CHARCLASS 20
  3550. #define DUK_RETOK_ATOM_START_CHARCLASS_INVERTED 21
  3551. #define DUK_RETOK_ATOM_END_GROUP 22
  3552. /* Constants for duk_lexer_ctx.buf. */
  3553. #define DUK_LEXER_TEMP_BUF_LIMIT 256
  3554. /* A token value. Can be memcpy()'d, but note that slot1/slot2 values are on the valstack.
  3555. * Some fields (like num, str1, str2) are only valid for specific token types and may have
  3556. * stale values otherwise.
  3557. */
  3558. struct duk_token {
  3559. duk_small_uint_t t; /* token type (with reserved word identification) */
  3560. duk_small_uint_t t_nores; /* token type (with reserved words as DUK_TOK_IDENTIFER) */
  3561. duk_double_t num; /* numeric value of token */
  3562. duk_hstring *str1; /* string 1 of token (borrowed, stored to ctx->slot1_idx) */
  3563. duk_hstring *str2; /* string 2 of token (borrowed, stored to ctx->slot2_idx) */
  3564. duk_size_t start_offset; /* start byte offset of token in lexer input */
  3565. duk_int_t start_line; /* start line of token (first char) */
  3566. duk_int_t num_escapes; /* number of escapes and line continuations (for directive prologue) */
  3567. duk_bool_t lineterm; /* token was preceded by a lineterm */
  3568. duk_bool_t allow_auto_semi; /* token allows automatic semicolon insertion (eof or preceded by newline) */
  3569. };
  3570. #define DUK_RE_QUANTIFIER_INFINITE ((duk_uint32_t) 0xffffffffUL)
  3571. /* A regexp token value. */
  3572. struct duk_re_token {
  3573. duk_small_uint_t t; /* token type */
  3574. duk_small_uint_t greedy;
  3575. duk_uint32_t num; /* numeric value (character, count) */
  3576. duk_uint32_t qmin;
  3577. duk_uint32_t qmax;
  3578. };
  3579. /* A structure for 'snapshotting' a point for rewinding */
  3580. struct duk_lexer_point {
  3581. duk_size_t offset;
  3582. duk_int_t line;
  3583. };
  3584. /* Lexer codepoint with additional info like offset/line number */
  3585. struct duk_lexer_codepoint {
  3586. duk_codepoint_t codepoint;
  3587. duk_size_t offset;
  3588. duk_int_t line;
  3589. };
  3590. /* Lexer context. Same context is used for Ecmascript and Regexp parsing. */
  3591. struct duk_lexer_ctx {
  3592. #if defined(DUK_USE_LEXER_SLIDING_WINDOW)
  3593. duk_lexer_codepoint *window; /* unicode code points, window[0] is always next, points to 'buffer' */
  3594. duk_lexer_codepoint buffer[DUK_LEXER_BUFFER_SIZE];
  3595. #else
  3596. duk_lexer_codepoint window[DUK_LEXER_WINDOW_SIZE]; /* unicode code points, window[0] is always next */
  3597. #endif
  3598. duk_hthread *thr; /* thread; minimizes argument passing */
  3599. const duk_uint8_t *input; /* input string (may be a user pointer) */
  3600. duk_size_t input_length; /* input byte length */
  3601. duk_size_t input_offset; /* input offset for window leading edge (not window[0]) */
  3602. duk_int_t input_line; /* input linenumber at input_offset (not window[0]), init to 1 */
  3603. duk_idx_t slot1_idx; /* valstack slot for 1st token value */
  3604. duk_idx_t slot2_idx; /* valstack slot for 2nd token value */
  3605. duk_idx_t buf_idx; /* valstack slot for temp buffer */
  3606. duk_hbuffer_dynamic *buf; /* temp accumulation buffer */
  3607. duk_bufwriter_ctx bw; /* bufwriter for temp accumulation */
  3608. duk_int_t token_count; /* number of tokens parsed */
  3609. duk_int_t token_limit; /* maximum token count before error (sanity backstop) */
  3610. duk_small_uint_t flags; /* lexer flags, use compiler flag defines for now */
  3611. };
  3612. /*
  3613. * Prototypes
  3614. */
  3615. DUK_INTERNAL_DECL void duk_lexer_initctx(duk_lexer_ctx *lex_ctx);
  3616. DUK_INTERNAL_DECL void duk_lexer_getpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt);
  3617. DUK_INTERNAL_DECL void duk_lexer_setpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt);
  3618. DUK_INTERNAL_DECL
  3619. void duk_lexer_parse_js_input_element(duk_lexer_ctx *lex_ctx,
  3620. duk_token *out_token,
  3621. duk_bool_t strict_mode,
  3622. duk_bool_t regexp_mode);
  3623. #if defined(DUK_USE_REGEXP_SUPPORT)
  3624. DUK_INTERNAL_DECL void duk_lexer_parse_re_token(duk_lexer_ctx *lex_ctx, duk_re_token *out_token);
  3625. DUK_INTERNAL_DECL void duk_lexer_parse_re_ranges(duk_lexer_ctx *lex_ctx, duk_re_range_callback gen_range, void *userdata);
  3626. #endif /* DUK_USE_REGEXP_SUPPORT */
  3627. #endif /* DUK_LEXER_H_INCLUDED */
  3628. /* #include duk_js_compiler.h */
  3629. #line 1 "duk_js_compiler.h"
  3630. /*
  3631. * Ecmascript compiler.
  3632. */
  3633. #if !defined(DUK_JS_COMPILER_H_INCLUDED)
  3634. #define DUK_JS_COMPILER_H_INCLUDED
  3635. /* ecmascript compiler limits */
  3636. #define DUK_COMPILER_TOKEN_LIMIT 100000000L /* 1e8: protects against deeply nested inner functions */
  3637. /* maximum loopcount for peephole optimization */
  3638. #define DUK_COMPILER_PEEPHOLE_MAXITER 3
  3639. /* maximum bytecode length in instructions */
  3640. #define DUK_COMPILER_MAX_BYTECODE_LENGTH (256L * 1024L * 1024L) /* 1 GB */
  3641. /*
  3642. * Compiler intermediate values
  3643. *
  3644. * Intermediate values describe either plain values (e.g. strings or
  3645. * numbers) or binary operations which have not yet been coerced into
  3646. * either a left-hand-side or right-hand-side role (e.g. object property).
  3647. */
  3648. #define DUK_IVAL_NONE 0 /* no value */
  3649. #define DUK_IVAL_PLAIN 1 /* register, constant, or value */
  3650. #define DUK_IVAL_ARITH 2 /* binary arithmetic; DUK_OP_ADD, DUK_OP_EQ, other binary ops */
  3651. #define DUK_IVAL_PROP 3 /* property access */
  3652. #define DUK_IVAL_VAR 4 /* variable access */
  3653. #define DUK_ISPEC_NONE 0 /* no value */
  3654. #define DUK_ISPEC_VALUE 1 /* value resides in 'valstack_idx' */
  3655. #define DUK_ISPEC_REGCONST 2 /* value resides in a register or constant */
  3656. /* Bit mask which indicates that a regconst is a constant instead of a register.
  3657. * Chosen so that when a regconst is cast to duk_int32_t, all consts are
  3658. * negative values.
  3659. */
  3660. #define DUK_REGCONST_CONST_MARKER DUK_INT32_MIN /* = -0x80000000 */
  3661. /* Type to represent a reg/const reference during compilation, with <0
  3662. * indicating a constant. Some call sites also use -1 to indicate 'none'.
  3663. */
  3664. typedef duk_int32_t duk_regconst_t;
  3665. typedef struct {
  3666. duk_small_uint_t t; /* DUK_ISPEC_XXX */
  3667. duk_regconst_t regconst;
  3668. duk_idx_t valstack_idx; /* always set; points to a reserved valstack slot */
  3669. } duk_ispec;
  3670. typedef struct {
  3671. /*
  3672. * PLAIN: x1
  3673. * ARITH: x1 <op> x2
  3674. * PROP: x1.x2
  3675. * VAR: x1 (name)
  3676. */
  3677. /* XXX: can be optimized for smaller footprint esp. on 32-bit environments */
  3678. duk_small_uint_t t; /* DUK_IVAL_XXX */
  3679. duk_small_uint_t op; /* bytecode opcode for binary ops */
  3680. duk_ispec x1;
  3681. duk_ispec x2;
  3682. } duk_ivalue;
  3683. /*
  3684. * Bytecode instruction representation during compilation
  3685. *
  3686. * Contains the actual instruction and (optionally) debug info.
  3687. */
  3688. struct duk_compiler_instr {
  3689. duk_instr_t ins;
  3690. #if defined(DUK_USE_PC2LINE)
  3691. duk_uint32_t line;
  3692. #endif
  3693. };
  3694. /*
  3695. * Compiler state
  3696. */
  3697. #define DUK_LABEL_FLAG_ALLOW_BREAK (1U << 0)
  3698. #define DUK_LABEL_FLAG_ALLOW_CONTINUE (1U << 1)
  3699. #define DUK_DECL_TYPE_VAR 0
  3700. #define DUK_DECL_TYPE_FUNC 1
  3701. /* XXX: optimize to 16 bytes */
  3702. typedef struct {
  3703. duk_small_uint_t flags;
  3704. duk_int_t label_id; /* numeric label_id (-1 reserved as marker) */
  3705. duk_hstring *h_label; /* borrowed label name */
  3706. duk_int_t catch_depth; /* catch depth at point of definition */
  3707. duk_int_t pc_label; /* pc of label statement:
  3708. * pc+1: break jump site
  3709. * pc+2: continue jump site
  3710. */
  3711. /* Fast jumps (which avoid longjmp) jump directly to the jump sites
  3712. * which are always known even while the iteration/switch statement
  3713. * is still being parsed. A final peephole pass "straightens out"
  3714. * the jumps.
  3715. */
  3716. } duk_labelinfo;
  3717. /* Compiling state of one function, eventually converted to duk_hcompfunc */
  3718. struct duk_compiler_func {
  3719. /* These pointers are at the start of the struct so that they pack
  3720. * nicely. Mixing pointers and integer values is bad on some
  3721. * platforms (e.g. if int is 32 bits and pointers are 64 bits).
  3722. */
  3723. duk_bufwriter_ctx bw_code; /* bufwriter for code */
  3724. duk_hstring *h_name; /* function name (borrowed reference), ends up in _name */
  3725. /* h_code: held in bw_code */
  3726. duk_hobject *h_consts; /* array */
  3727. duk_hobject *h_funcs; /* array of function templates: [func1, offset1, line1, func2, offset2, line2]
  3728. * offset/line points to closing brace to allow skipping on pass 2
  3729. */
  3730. duk_hobject *h_decls; /* array of declarations: [ name1, val1, name2, val2, ... ]
  3731. * valN = (typeN) | (fnum << 8), where fnum is inner func number (0 for vars)
  3732. * record function and variable declarations in pass 1
  3733. */
  3734. duk_hobject *h_labelnames; /* array of active label names */
  3735. duk_hbuffer_dynamic *h_labelinfos; /* C array of duk_labelinfo */
  3736. duk_hobject *h_argnames; /* array of formal argument names (-> _Formals) */
  3737. duk_hobject *h_varmap; /* variable map for pass 2 (identifier -> register number or null (unmapped)) */
  3738. /* Value stack indices for tracking objects. */
  3739. /* code_idx: not needed */
  3740. duk_idx_t consts_idx;
  3741. duk_idx_t funcs_idx;
  3742. duk_idx_t decls_idx;
  3743. duk_idx_t labelnames_idx;
  3744. duk_idx_t labelinfos_idx;
  3745. duk_idx_t argnames_idx;
  3746. duk_idx_t varmap_idx;
  3747. /* Temp reg handling. */
  3748. duk_regconst_t temp_first; /* first register that is a temporary (below: variables) */
  3749. duk_regconst_t temp_next; /* next temporary register to allocate */
  3750. duk_regconst_t temp_max; /* highest value of temp_reg (temp_max - 1 is highest used reg) */
  3751. /* Shuffle registers if large number of regs/consts. */
  3752. duk_regconst_t shuffle1;
  3753. duk_regconst_t shuffle2;
  3754. duk_regconst_t shuffle3;
  3755. /* Stats for current expression being parsed. */
  3756. duk_int_t nud_count;
  3757. duk_int_t led_count;
  3758. duk_int_t paren_level; /* parenthesis count, 0 = top level */
  3759. duk_bool_t expr_lhs; /* expression is left-hand-side compatible */
  3760. duk_bool_t allow_in; /* current paren level allows 'in' token */
  3761. /* Misc. */
  3762. duk_int_t stmt_next; /* statement id allocation (running counter) */
  3763. duk_int_t label_next; /* label id allocation (running counter) */
  3764. duk_int_t catch_depth; /* catch stack depth */
  3765. duk_int_t with_depth; /* with stack depth (affects identifier lookups) */
  3766. duk_int_t fnum_next; /* inner function numbering */
  3767. duk_int_t num_formals; /* number of formal arguments */
  3768. duk_regconst_t reg_stmt_value; /* register for writing value of 'non-empty' statements (global or eval code), -1 is marker */
  3769. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  3770. duk_int_t min_line; /* XXX: typing (duk_hcompfunc has duk_uint32_t) */
  3771. duk_int_t max_line;
  3772. #endif
  3773. /* Status booleans. */
  3774. duk_uint8_t is_function; /* is an actual function (not global/eval code) */
  3775. duk_uint8_t is_eval; /* is eval code */
  3776. duk_uint8_t is_global; /* is global code */
  3777. duk_uint8_t is_namebinding; /* needs a name binding */
  3778. duk_uint8_t is_constructable; /* result is constructable */
  3779. duk_uint8_t is_setget; /* is a setter/getter */
  3780. duk_uint8_t is_strict; /* function is strict */
  3781. duk_uint8_t is_notail; /* function must not be tail called */
  3782. duk_uint8_t in_directive_prologue; /* parsing in "directive prologue", recognize directives */
  3783. duk_uint8_t in_scanning; /* parsing in "scanning" phase (first pass) */
  3784. duk_uint8_t may_direct_eval; /* function may call direct eval */
  3785. duk_uint8_t id_access_arguments; /* function refers to 'arguments' identifier */
  3786. duk_uint8_t id_access_slow; /* function makes one or more slow path accesses that won't match own static variables */
  3787. duk_uint8_t id_access_slow_own; /* function makes one or more slow path accesses that may match own static variables */
  3788. duk_uint8_t is_arguments_shadowed; /* argument/function declaration shadows 'arguments' */
  3789. duk_uint8_t needs_shuffle; /* function needs shuffle registers */
  3790. duk_uint8_t reject_regexp_in_adv; /* reject RegExp literal on next advance() call; needed for handling IdentifierName productions */
  3791. };
  3792. struct duk_compiler_ctx {
  3793. duk_hthread *thr;
  3794. /* filename being compiled (ends up in functions' '_filename' property) */
  3795. duk_hstring *h_filename; /* borrowed reference */
  3796. /* lexing (tokenization) state (contains two valstack slot indices) */
  3797. duk_lexer_ctx lex;
  3798. /* current and previous token for parsing */
  3799. duk_token prev_token;
  3800. duk_token curr_token;
  3801. duk_idx_t tok11_idx; /* curr_token slot1 (matches 'lex' slot1_idx) */
  3802. duk_idx_t tok12_idx; /* curr_token slot2 (matches 'lex' slot2_idx) */
  3803. duk_idx_t tok21_idx; /* prev_token slot1 */
  3804. duk_idx_t tok22_idx; /* prev_token slot2 */
  3805. /* recursion limit */
  3806. duk_int_t recursion_depth;
  3807. duk_int_t recursion_limit;
  3808. /* code emission temporary */
  3809. duk_int_t emit_jumpslot_pc;
  3810. /* current function being compiled (embedded instead of pointer for more compact access) */
  3811. duk_compiler_func curr_func;
  3812. };
  3813. /*
  3814. * Prototypes
  3815. */
  3816. DUK_INTERNAL_DECL void duk_js_compile(duk_hthread *thr, const duk_uint8_t *src_buffer, duk_size_t src_length, duk_small_uint_t flags);
  3817. #endif /* DUK_JS_COMPILER_H_INCLUDED */
  3818. /* #include duk_regexp.h */
  3819. #line 1 "duk_regexp.h"
  3820. /*
  3821. * Regular expression structs, constants, and bytecode defines.
  3822. */
  3823. #if !defined(DUK_REGEXP_H_INCLUDED)
  3824. #define DUK_REGEXP_H_INCLUDED
  3825. /* maximum bytecode copies for {n,m} quantifiers */
  3826. #define DUK_RE_MAX_ATOM_COPIES 1000
  3827. /* regexp compilation limits */
  3828. #define DUK_RE_COMPILE_TOKEN_LIMIT 100000000L /* 1e8 */
  3829. /* regexp execution limits */
  3830. #define DUK_RE_EXECUTE_STEPS_LIMIT 1000000000L /* 1e9 */
  3831. /* regexp opcodes */
  3832. #define DUK_REOP_MATCH 1
  3833. #define DUK_REOP_CHAR 2
  3834. #define DUK_REOP_PERIOD 3
  3835. #define DUK_REOP_RANGES 4
  3836. #define DUK_REOP_INVRANGES 5
  3837. #define DUK_REOP_JUMP 6
  3838. #define DUK_REOP_SPLIT1 7
  3839. #define DUK_REOP_SPLIT2 8
  3840. #define DUK_REOP_SQMINIMAL 9
  3841. #define DUK_REOP_SQGREEDY 10
  3842. #define DUK_REOP_SAVE 11
  3843. #define DUK_REOP_WIPERANGE 12
  3844. #define DUK_REOP_LOOKPOS 13
  3845. #define DUK_REOP_LOOKNEG 14
  3846. #define DUK_REOP_BACKREFERENCE 15
  3847. #define DUK_REOP_ASSERT_START 16
  3848. #define DUK_REOP_ASSERT_END 17
  3849. #define DUK_REOP_ASSERT_WORD_BOUNDARY 18
  3850. #define DUK_REOP_ASSERT_NOT_WORD_BOUNDARY 19
  3851. /* flags */
  3852. #define DUK_RE_FLAG_GLOBAL (1U << 0)
  3853. #define DUK_RE_FLAG_IGNORE_CASE (1U << 1)
  3854. #define DUK_RE_FLAG_MULTILINE (1U << 2)
  3855. struct duk_re_matcher_ctx {
  3856. duk_hthread *thr;
  3857. duk_uint32_t re_flags;
  3858. const duk_uint8_t *input;
  3859. const duk_uint8_t *input_end;
  3860. const duk_uint8_t *bytecode;
  3861. const duk_uint8_t *bytecode_end;
  3862. const duk_uint8_t **saved; /* allocated from valstack (fixed buffer) */
  3863. duk_uint32_t nsaved;
  3864. duk_uint32_t recursion_depth;
  3865. duk_uint32_t recursion_limit;
  3866. duk_uint32_t steps_count;
  3867. duk_uint32_t steps_limit;
  3868. };
  3869. struct duk_re_compiler_ctx {
  3870. duk_hthread *thr;
  3871. duk_uint32_t re_flags;
  3872. duk_lexer_ctx lex;
  3873. duk_re_token curr_token;
  3874. duk_bufwriter_ctx bw;
  3875. duk_uint32_t captures; /* highest capture number emitted so far (used as: ++captures) */
  3876. duk_uint32_t highest_backref;
  3877. duk_uint32_t recursion_depth;
  3878. duk_uint32_t recursion_limit;
  3879. duk_uint32_t nranges; /* internal temporary value, used for char classes */
  3880. };
  3881. /*
  3882. * Prototypes
  3883. */
  3884. #if defined(DUK_USE_REGEXP_SUPPORT)
  3885. DUK_INTERNAL_DECL void duk_regexp_compile(duk_hthread *thr);
  3886. DUK_INTERNAL_DECL void duk_regexp_create_instance(duk_hthread *thr);
  3887. DUK_INTERNAL_DECL void duk_regexp_match(duk_hthread *thr);
  3888. DUK_INTERNAL_DECL void duk_regexp_match_force_global(duk_hthread *thr); /* hacky helper for String.prototype.split() */
  3889. #endif
  3890. #endif /* DUK_REGEXP_H_INCLUDED */
  3891. /* #include duk_heaphdr.h */
  3892. #line 1 "duk_heaphdr.h"
  3893. /*
  3894. * Heap header definition and assorted macros, including ref counting.
  3895. * Access all fields through the accessor macros.
  3896. */
  3897. #if !defined(DUK_HEAPHDR_H_INCLUDED)
  3898. #define DUK_HEAPHDR_H_INCLUDED
  3899. /*
  3900. * Common heap header
  3901. *
  3902. * All heap objects share the same flags and refcount fields. Objects other
  3903. * than strings also need to have a single or double linked list pointers
  3904. * for insertion into the "heap allocated" list. Strings have single linked
  3905. * list pointers for string table chaining.
  3906. *
  3907. * Technically, 'h_refcount' must be wide enough to guarantee that it cannot
  3908. * wrap; otherwise objects might be freed incorrectly after wrapping. The
  3909. * default refcount field is 32 bits even on 64-bit systems: while that's in
  3910. * theory incorrect, the Duktape heap needs to be larger than 64GB for the
  3911. * count to actually wrap (assuming 16-byte duk_tvals). This is very unlikely
  3912. * to ever be an issue, but if it is, disabling DUK_USE_REFCOUNT32 causes
  3913. * Duktape to use size_t for refcounts which should always be safe.
  3914. *
  3915. * Heap header size on 32-bit platforms: 8 bytes without reference counting,
  3916. * 16 bytes with reference counting.
  3917. *
  3918. * Note that 'raw' macros such as DUK_HEAPHDR_GET_REFCOUNT() are not
  3919. * defined without DUK_USE_REFERENCE_COUNTING, so caller must #if defined()
  3920. * around them.
  3921. */
  3922. /* XXX: macro for shared header fields (avoids some padding issues) */
  3923. struct duk_heaphdr {
  3924. duk_uint32_t h_flags;
  3925. #if defined(DUK_USE_REFERENCE_COUNTING)
  3926. #if defined(DUK_USE_ASSERTIONS)
  3927. /* When assertions enabled, used by mark-and-sweep for refcount
  3928. * validation. Largest reasonable type; also detects overflows.
  3929. */
  3930. duk_size_t h_assert_refcount;
  3931. #endif
  3932. #if defined(DUK_USE_REFCOUNT16)
  3933. duk_uint16_t h_refcount;
  3934. #elif defined(DUK_USE_REFCOUNT32)
  3935. duk_uint32_t h_refcount;
  3936. #else
  3937. duk_size_t h_refcount;
  3938. #endif
  3939. #endif /* DUK_USE_REFERENCE_COUNTING */
  3940. #if defined(DUK_USE_HEAPPTR16)
  3941. duk_uint16_t h_next16;
  3942. #else
  3943. duk_heaphdr *h_next;
  3944. #endif
  3945. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  3946. /* refcounting requires direct heap frees, which in turn requires a dual linked heap */
  3947. #if defined(DUK_USE_HEAPPTR16)
  3948. duk_uint16_t h_prev16;
  3949. #else
  3950. duk_heaphdr *h_prev;
  3951. #endif
  3952. #endif
  3953. /* When DUK_USE_HEAPPTR16 (and DUK_USE_REFCOUNT16) is in use, the
  3954. * struct won't align nicely to 4 bytes. This 16-bit extra field
  3955. * is added to make the alignment clean; the field can be used by
  3956. * heap objects when 16-bit packing is used. This field is now
  3957. * conditional to DUK_USE_HEAPPTR16 only, but it is intended to be
  3958. * used with DUK_USE_REFCOUNT16 and DUK_USE_DOUBLE_LINKED_HEAP;
  3959. * this only matter to low memory environments anyway.
  3960. */
  3961. #if defined(DUK_USE_HEAPPTR16)
  3962. duk_uint16_t h_extra16;
  3963. #endif
  3964. };
  3965. struct duk_heaphdr_string {
  3966. /* 16 bits would be enough for shared heaphdr flags and duk_hstring
  3967. * flags. The initial parts of duk_heaphdr_string and duk_heaphdr
  3968. * must match so changing the flags field size here would be quite
  3969. * awkward. However, to minimize struct size, we can pack at least
  3970. * 16 bits of duk_hstring data into the flags field.
  3971. */
  3972. duk_uint32_t h_flags;
  3973. #if defined(DUK_USE_REFERENCE_COUNTING)
  3974. #if defined(DUK_USE_ASSERTIONS)
  3975. /* When assertions enabled, used by mark-and-sweep for refcount
  3976. * validation. Largest reasonable type; also detects overflows.
  3977. */
  3978. duk_size_t h_assert_refcount;
  3979. #endif
  3980. #if defined(DUK_USE_REFCOUNT16)
  3981. duk_uint16_t h_refcount;
  3982. duk_uint16_t h_strextra16; /* round out to 8 bytes */
  3983. #elif defined(DUK_USE_REFCOUNT32)
  3984. duk_uint32_t h_refcount;
  3985. #else
  3986. duk_size_t h_refcount;
  3987. #endif
  3988. #else
  3989. duk_uint16_t h_strextra16;
  3990. #endif /* DUK_USE_REFERENCE_COUNTING */
  3991. duk_hstring *h_next;
  3992. /* No 'h_prev' pointer for strings. */
  3993. };
  3994. #define DUK_HEAPHDR_FLAGS_TYPE_MASK 0x00000003UL
  3995. #define DUK_HEAPHDR_FLAGS_FLAG_MASK (~DUK_HEAPHDR_FLAGS_TYPE_MASK)
  3996. /* 2 bits for heap type */
  3997. #define DUK_HEAPHDR_FLAGS_HEAP_START 2 /* 5 heap flags */
  3998. #define DUK_HEAPHDR_FLAGS_USER_START 7 /* 25 user flags */
  3999. #define DUK_HEAPHDR_HEAP_FLAG_NUMBER(n) (DUK_HEAPHDR_FLAGS_HEAP_START + (n))
  4000. #define DUK_HEAPHDR_USER_FLAG_NUMBER(n) (DUK_HEAPHDR_FLAGS_USER_START + (n))
  4001. #define DUK_HEAPHDR_HEAP_FLAG(n) (1UL << (DUK_HEAPHDR_FLAGS_HEAP_START + (n)))
  4002. #define DUK_HEAPHDR_USER_FLAG(n) (1UL << (DUK_HEAPHDR_FLAGS_USER_START + (n)))
  4003. #define DUK_HEAPHDR_FLAG_REACHABLE DUK_HEAPHDR_HEAP_FLAG(0) /* mark-and-sweep: reachable */
  4004. #define DUK_HEAPHDR_FLAG_TEMPROOT DUK_HEAPHDR_HEAP_FLAG(1) /* mark-and-sweep: children not processed */
  4005. #define DUK_HEAPHDR_FLAG_FINALIZABLE DUK_HEAPHDR_HEAP_FLAG(2) /* mark-and-sweep: finalizable (on current pass) */
  4006. #define DUK_HEAPHDR_FLAG_FINALIZED DUK_HEAPHDR_HEAP_FLAG(3) /* mark-and-sweep: finalized (on previous pass) */
  4007. #define DUK_HEAPHDR_FLAG_READONLY DUK_HEAPHDR_HEAP_FLAG(4) /* read-only object, in code section */
  4008. #define DUK_HTYPE_MIN 0
  4009. #define DUK_HTYPE_STRING 0
  4010. #define DUK_HTYPE_OBJECT 1
  4011. #define DUK_HTYPE_BUFFER 2
  4012. #define DUK_HTYPE_MAX 2
  4013. #if defined(DUK_USE_HEAPPTR16)
  4014. #define DUK_HEAPHDR_GET_NEXT(heap,h) \
  4015. ((duk_heaphdr *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->h_next16))
  4016. #define DUK_HEAPHDR_SET_NEXT(heap,h,val) do { \
  4017. (h)->h_next16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) val); \
  4018. } while (0)
  4019. #else
  4020. #define DUK_HEAPHDR_GET_NEXT(heap,h) ((h)->h_next)
  4021. #define DUK_HEAPHDR_SET_NEXT(heap,h,val) do { \
  4022. (h)->h_next = (val); \
  4023. } while (0)
  4024. #endif
  4025. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  4026. #if defined(DUK_USE_HEAPPTR16)
  4027. #define DUK_HEAPHDR_GET_PREV(heap,h) \
  4028. ((duk_heaphdr *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->h_prev16))
  4029. #define DUK_HEAPHDR_SET_PREV(heap,h,val) do { \
  4030. (h)->h_prev16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (val)); \
  4031. } while (0)
  4032. #else
  4033. #define DUK_HEAPHDR_GET_PREV(heap,h) ((h)->h_prev)
  4034. #define DUK_HEAPHDR_SET_PREV(heap,h,val) do { \
  4035. (h)->h_prev = (val); \
  4036. } while (0)
  4037. #endif
  4038. #endif
  4039. #if defined(DUK_USE_REFERENCE_COUNTING)
  4040. #define DUK_HEAPHDR_GET_REFCOUNT(h) ((h)->h_refcount)
  4041. #define DUK_HEAPHDR_SET_REFCOUNT(h,val) do { \
  4042. (h)->h_refcount = (val); \
  4043. DUK_ASSERT((h)->h_refcount == (val)); /* No truncation. */ \
  4044. } while (0)
  4045. #define DUK_HEAPHDR_PREINC_REFCOUNT(h) (++(h)->h_refcount) /* result: updated refcount */
  4046. #define DUK_HEAPHDR_PREDEC_REFCOUNT(h) (--(h)->h_refcount) /* result: updated refcount */
  4047. #else
  4048. /* refcount macros not defined without refcounting, caller must #if defined() now */
  4049. #endif /* DUK_USE_REFERENCE_COUNTING */
  4050. /*
  4051. * Note: type is treated as a field separate from flags, so some masking is
  4052. * involved in the macros below.
  4053. */
  4054. #define DUK_HEAPHDR_GET_FLAGS_RAW(h) ((h)->h_flags)
  4055. #define DUK_HEAPHDR_SET_FLAGS_RAW(h,val) do { \
  4056. (h)->h_flags = (val); } \
  4057. }
  4058. #define DUK_HEAPHDR_GET_FLAGS(h) ((h)->h_flags & DUK_HEAPHDR_FLAGS_FLAG_MASK)
  4059. #define DUK_HEAPHDR_SET_FLAGS(h,val) do { \
  4060. (h)->h_flags = ((h)->h_flags & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) | (val); \
  4061. } while (0)
  4062. #define DUK_HEAPHDR_GET_TYPE(h) ((h)->h_flags & DUK_HEAPHDR_FLAGS_TYPE_MASK)
  4063. #define DUK_HEAPHDR_SET_TYPE(h,val) do { \
  4064. (h)->h_flags = ((h)->h_flags & ~(DUK_HEAPHDR_FLAGS_TYPE_MASK)) | (val); \
  4065. } while (0)
  4066. /* Comparison for type >= DUK_HTYPE_MIN skipped; because DUK_HTYPE_MIN is zero
  4067. * and the comparison is unsigned, it's always true and generates warnings.
  4068. */
  4069. #define DUK_HEAPHDR_HTYPE_VALID(h) ( \
  4070. DUK_HEAPHDR_GET_TYPE((h)) <= DUK_HTYPE_MAX \
  4071. )
  4072. #define DUK_HEAPHDR_SET_TYPE_AND_FLAGS(h,tval,fval) do { \
  4073. (h)->h_flags = ((tval) & DUK_HEAPHDR_FLAGS_TYPE_MASK) | \
  4074. ((fval) & DUK_HEAPHDR_FLAGS_FLAG_MASK); \
  4075. } while (0)
  4076. #define DUK_HEAPHDR_SET_FLAG_BITS(h,bits) do { \
  4077. DUK_ASSERT(((bits) & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) == 0); \
  4078. (h)->h_flags |= (bits); \
  4079. } while (0)
  4080. #define DUK_HEAPHDR_CLEAR_FLAG_BITS(h,bits) do { \
  4081. DUK_ASSERT(((bits) & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) == 0); \
  4082. (h)->h_flags &= ~((bits)); \
  4083. } while (0)
  4084. #define DUK_HEAPHDR_CHECK_FLAG_BITS(h,bits) (((h)->h_flags & (bits)) != 0)
  4085. #define DUK_HEAPHDR_SET_REACHABLE(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE)
  4086. #define DUK_HEAPHDR_CLEAR_REACHABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE)
  4087. #define DUK_HEAPHDR_HAS_REACHABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE)
  4088. #define DUK_HEAPHDR_SET_TEMPROOT(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT)
  4089. #define DUK_HEAPHDR_CLEAR_TEMPROOT(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT)
  4090. #define DUK_HEAPHDR_HAS_TEMPROOT(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT)
  4091. #define DUK_HEAPHDR_SET_FINALIZABLE(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE)
  4092. #define DUK_HEAPHDR_CLEAR_FINALIZABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE)
  4093. #define DUK_HEAPHDR_HAS_FINALIZABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE)
  4094. #define DUK_HEAPHDR_SET_FINALIZED(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED)
  4095. #define DUK_HEAPHDR_CLEAR_FINALIZED(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED)
  4096. #define DUK_HEAPHDR_HAS_FINALIZED(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED)
  4097. #define DUK_HEAPHDR_SET_READONLY(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY)
  4098. #define DUK_HEAPHDR_CLEAR_READONLY(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY)
  4099. #define DUK_HEAPHDR_HAS_READONLY(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY)
  4100. /* get or set a range of flags; m=first bit number, n=number of bits */
  4101. #define DUK_HEAPHDR_GET_FLAG_RANGE(h,m,n) (((h)->h_flags >> (m)) & ((1UL << (n)) - 1UL))
  4102. #define DUK_HEAPHDR_SET_FLAG_RANGE(h,m,n,v) do { \
  4103. (h)->h_flags = \
  4104. ((h)->h_flags & (~(((1UL << (n)) - 1UL) << (m)))) \
  4105. | ((v) << (m)); \
  4106. } while (0)
  4107. /* init pointer fields to null */
  4108. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  4109. #define DUK_HEAPHDR_INIT_NULLS(h) do { \
  4110. DUK_HEAPHDR_SET_NEXT((h), (void *) NULL); \
  4111. DUK_HEAPHDR_SET_PREV((h), (void *) NULL); \
  4112. } while (0)
  4113. #else
  4114. #define DUK_HEAPHDR_INIT_NULLS(h) do { \
  4115. DUK_HEAPHDR_SET_NEXT((h), (void *) NULL); \
  4116. } while (0)
  4117. #endif
  4118. #define DUK_HEAPHDR_STRING_INIT_NULLS(h) do { \
  4119. (h)->h_next = NULL; \
  4120. } while (0)
  4121. /*
  4122. * Type tests
  4123. */
  4124. /* Take advantage of the fact that for DUK_HTYPE_xxx numbers the lowest bit
  4125. * is only set for DUK_HTYPE_OBJECT (= 1).
  4126. */
  4127. #if 0
  4128. #define DUK_HEAPHDR_IS_OBJECT(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_OBJECT)
  4129. #endif
  4130. #define DUK_HEAPHDR_IS_OBJECT(h) ((h)->h_flags & 0x01UL)
  4131. #define DUK_HEAPHDR_IS_STRING(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_STRING)
  4132. #define DUK_HEAPHDR_IS_BUFFER(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_BUFFER)
  4133. /*
  4134. * Assert helpers
  4135. */
  4136. /* Check that prev/next links are consistent: if e.g. h->prev is != NULL,
  4137. * h->prev->next should point back to h.
  4138. */
  4139. #if defined(DUK_USE_DOUBLE_LINKED_HEAP) && defined(DUK_USE_ASSERTIONS)
  4140. #define DUK_ASSERT_HEAPHDR_LINKS(heap,h) do { \
  4141. if ((h) != NULL) { \
  4142. duk_heaphdr *h__prev, *h__next; \
  4143. h__prev = DUK_HEAPHDR_GET_PREV((heap), (h)); \
  4144. h__next = DUK_HEAPHDR_GET_NEXT((heap), (h)); \
  4145. DUK_ASSERT(h__prev == NULL || (DUK_HEAPHDR_GET_NEXT((heap), h__prev) == (h))); \
  4146. DUK_ASSERT(h__next == NULL || (DUK_HEAPHDR_GET_PREV((heap), h__next) == (h))); \
  4147. } \
  4148. } while (0)
  4149. #else
  4150. #define DUK_ASSERT_HEAPHDR_LINKS(heap,h) do {} while (0)
  4151. #endif
  4152. #define DUK_ASSERT_HEAPHDR_VALID(h) do { \
  4153. DUK_ASSERT((h) != NULL); \
  4154. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID((h))); \
  4155. } while (0)
  4156. #endif /* DUK_HEAPHDR_H_INCLUDED */
  4157. /* #include duk_refcount.h */
  4158. #line 1 "duk_refcount.h"
  4159. /*
  4160. * Reference counting helper macros. The macros take a thread argument
  4161. * and must thus always be executed in a specific thread context. The
  4162. * thread argument is not really needed anymore: DECREF can operate with
  4163. * a heap pointer only, and INCREF needs neither.
  4164. */
  4165. #if !defined(DUK_REFCOUNT_H_INCLUDED)
  4166. #define DUK_REFCOUNT_H_INCLUDED
  4167. #if defined(DUK_USE_REFERENCE_COUNTING)
  4168. #if defined(DUK_USE_ROM_OBJECTS)
  4169. /* With ROM objects "needs refcount update" is true when the value is
  4170. * heap allocated and is not a ROM object.
  4171. */
  4172. /* XXX: double evaluation for 'tv' argument. */
  4173. #define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) \
  4174. (DUK_TVAL_IS_HEAP_ALLOCATED((tv)) && !DUK_HEAPHDR_HAS_READONLY(DUK_TVAL_GET_HEAPHDR((tv))))
  4175. #define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) (!DUK_HEAPHDR_HAS_READONLY((h)))
  4176. #else /* DUK_USE_ROM_OBJECTS */
  4177. /* Without ROM objects "needs refcount update" == is heap allocated. */
  4178. #define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) DUK_TVAL_IS_HEAP_ALLOCATED((tv))
  4179. #define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) 1
  4180. #endif /* DUK_USE_ROM_OBJECTS */
  4181. /* Fast variants, inline refcount operations except for refzero handling.
  4182. * Can be used explicitly when speed is always more important than size.
  4183. * For a good compiler and a single file build, these are basically the
  4184. * same as a forced inline.
  4185. */
  4186. #define DUK_TVAL_INCREF_FAST(thr,tv) do { \
  4187. duk_tval *duk__tv = (tv); \
  4188. DUK_ASSERT(duk__tv != NULL); \
  4189. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \
  4190. duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \
  4191. DUK_ASSERT(duk__h != NULL); \
  4192. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \
  4193. DUK_HEAPHDR_PREINC_REFCOUNT(duk__h); \
  4194. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) != 0); /* No wrapping. */ \
  4195. } \
  4196. } while (0)
  4197. #define DUK_TVAL_DECREF_FAST(thr,tv) do { \
  4198. duk_tval *duk__tv = (tv); \
  4199. DUK_ASSERT(duk__tv != NULL); \
  4200. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \
  4201. duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \
  4202. DUK_ASSERT(duk__h != NULL); \
  4203. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \
  4204. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \
  4205. if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \
  4206. duk_heaphdr_refzero((thr), duk__h); \
  4207. } \
  4208. } \
  4209. } while (0)
  4210. #define DUK_TVAL_DECREF_NORZ_FAST(thr,tv) do { \
  4211. duk_tval *duk__tv = (tv); \
  4212. DUK_ASSERT(duk__tv != NULL); \
  4213. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \
  4214. duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \
  4215. DUK_ASSERT(duk__h != NULL); \
  4216. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \
  4217. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \
  4218. if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \
  4219. duk_heaphdr_refzero_norz((thr), duk__h); \
  4220. } \
  4221. } \
  4222. } while (0)
  4223. #define DUK_HEAPHDR_INCREF_FAST(thr,h) do { \
  4224. duk_heaphdr *duk__h = (duk_heaphdr *) (h); \
  4225. DUK_ASSERT(duk__h != NULL); \
  4226. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \
  4227. if (DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(duk__h)) { \
  4228. DUK_HEAPHDR_PREINC_REFCOUNT(duk__h); \
  4229. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) != 0); /* No wrapping. */ \
  4230. } \
  4231. } while (0)
  4232. #define DUK_HEAPHDR_DECREF_FAST_RAW(thr,h,rzcall,rzcast) do { \
  4233. duk_heaphdr *duk__h = (duk_heaphdr *) (h); \
  4234. DUK_ASSERT(duk__h != NULL); \
  4235. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \
  4236. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \
  4237. if (DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(duk__h)) { \
  4238. if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \
  4239. (rzcall)((thr), (rzcast) duk__h); \
  4240. } \
  4241. } \
  4242. } while (0)
  4243. #define DUK_HEAPHDR_DECREF_FAST(thr,h) \
  4244. DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero,duk_heaphdr *)
  4245. #define DUK_HEAPHDR_DECREF_NORZ_FAST(thr,h) \
  4246. DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero_norz,duk_heaphdr *)
  4247. /* Slow variants, call to a helper to reduce code size.
  4248. * Can be used explicitly when size is always more important than speed.
  4249. */
  4250. #define DUK_TVAL_INCREF_SLOW(thr,tv) do { duk_tval_incref((tv)); } while (0)
  4251. #define DUK_TVAL_DECREF_SLOW(thr,tv) do { duk_tval_decref((thr), (tv)); } while (0)
  4252. #define DUK_TVAL_DECREF_NORZ_SLOW(thr,tv) do { duk_tval_decref_norz((thr), (tv)); } while (0)
  4253. #define DUK_HEAPHDR_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0)
  4254. #define DUK_HEAPHDR_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0)
  4255. #define DUK_HEAPHDR_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0)
  4256. #define DUK_HSTRING_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0)
  4257. #define DUK_HSTRING_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0)
  4258. #define DUK_HSTRING_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0)
  4259. #define DUK_HBUFFER_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0)
  4260. #define DUK_HBUFFER_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0)
  4261. #define DUK_HBUFFER_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0)
  4262. #define DUK_HOBJECT_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0)
  4263. #define DUK_HOBJECT_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0)
  4264. #define DUK_HOBJECT_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0)
  4265. /* Default variants. Selection depends on speed/size preference.
  4266. * Concretely: with gcc 4.8.1 -Os x64 the difference in final binary
  4267. * is about +1kB for _FAST variants.
  4268. */
  4269. #if defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  4270. /* XXX: It would be nice to specialize for specific duk_hobject subtypes
  4271. * but current refzero queue handling prevents that.
  4272. */
  4273. #define DUK_TVAL_INCREF(thr,tv) DUK_TVAL_INCREF_FAST((thr),(tv))
  4274. #define DUK_TVAL_DECREF(thr,tv) DUK_TVAL_DECREF_FAST((thr),(tv))
  4275. #define DUK_TVAL_DECREF_NORZ(thr,tv) DUK_TVAL_DECREF_NORZ_FAST((thr),(tv))
  4276. #define DUK_HEAPHDR_INCREF(thr,h) DUK_HEAPHDR_INCREF_FAST((thr),(h))
  4277. #define DUK_HEAPHDR_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero,duk_heaphdr *)
  4278. #define DUK_HEAPHDR_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero_norz,duk_heaphdr *)
  4279. #define DUK_HSTRING_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4280. #define DUK_HSTRING_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hstring_refzero,duk_hstring *)
  4281. #define DUK_HSTRING_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hstring_refzero,duk_hstring *) /* no 'norz' variant */
  4282. #define DUK_HOBJECT_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4283. #define DUK_HOBJECT_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *)
  4284. #define DUK_HOBJECT_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *)
  4285. #define DUK_HBUFFER_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4286. #define DUK_HBUFFER_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hbuffer_refzero,duk_hbuffer *)
  4287. #define DUK_HBUFFER_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hbuffer_refzero,duk_hbuffer *) /* no 'norz' variant */
  4288. #define DUK_HCOMPFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4289. #define DUK_HCOMPFUNC_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *)
  4290. #define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *)
  4291. #define DUK_HNATFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4292. #define DUK_HNATFUNC_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *)
  4293. #define DUK_HNATFUNC_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *)
  4294. #define DUK_HBUFOBJ_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4295. #define DUK_HBUFOBJ_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *)
  4296. #define DUK_HBUFOBJ_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *)
  4297. #define DUK_HTHREAD_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4298. #define DUK_HTHREAD_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *)
  4299. #define DUK_HTHREAD_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *)
  4300. #else
  4301. #define DUK_TVAL_INCREF(thr,tv) DUK_TVAL_INCREF_SLOW((thr),(tv))
  4302. #define DUK_TVAL_DECREF(thr,tv) DUK_TVAL_DECREF_SLOW((thr),(tv))
  4303. #define DUK_TVAL_DECREF_NORZ(thr,tv) DUK_TVAL_DECREF_NORZ_SLOW((thr),(tv))
  4304. #define DUK_HEAPHDR_INCREF(thr,h) DUK_HEAPHDR_INCREF_SLOW((thr),(h))
  4305. #define DUK_HEAPHDR_DECREF(thr,h) DUK_HEAPHDR_DECREF_SLOW((thr),(h))
  4306. #define DUK_HEAPHDR_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_NORZ_SLOW((thr),(h))
  4307. #define DUK_HSTRING_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4308. #define DUK_HSTRING_DECREF(thr,h) DUK_HSTRING_DECREF_SLOW((thr),(h))
  4309. #define DUK_HSTRING_DECREF_NORZ(thr,h) DUK_HSTRING_DECREF_NORZ_SLOW((thr),(h))
  4310. #define DUK_HOBJECT_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4311. #define DUK_HOBJECT_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(h))
  4312. #define DUK_HOBJECT_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(h))
  4313. #define DUK_HBUFFER_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h))
  4314. #define DUK_HBUFFER_DECREF(thr,h) DUK_HBUFFER_DECREF_SLOW((thr),(h))
  4315. #define DUK_HBUFFER_DECREF_NORZ(thr,h) DUK_HBUFFER_DECREF_NORZ_SLOW((thr),(h))
  4316. #define DUK_HCOMPFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4317. #define DUK_HCOMPFUNC_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj)
  4318. #define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj)
  4319. #define DUK_HNATFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4320. #define DUK_HNATFUNC_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj)
  4321. #define DUK_HNATFUNC_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj)
  4322. #define DUK_HBUFOBJ_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4323. #define DUK_HBUFOBJ_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj)
  4324. #define DUK_HBUFOB_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj)
  4325. #define DUK_HTHREAD_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj)
  4326. #define DUK_HTHREAD_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj)
  4327. #define DUK_HTHREAD_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj)
  4328. #endif
  4329. /* Convenience for some situations; the above macros don't allow NULLs
  4330. * for performance reasons. Macros cover only actually needed cases.
  4331. */
  4332. #define DUK_HEAPHDR_INCREF_ALLOWNULL(thr,h) do { \
  4333. if ((h) != NULL) { \
  4334. DUK_HEAPHDR_INCREF((thr), (duk_heaphdr *) (h)); \
  4335. } \
  4336. } while (0)
  4337. #define DUK_HEAPHDR_DECREF_ALLOWNULL(thr,h) do { \
  4338. if ((h) != NULL) { \
  4339. DUK_HEAPHDR_DECREF((thr), (duk_heaphdr *) (h)); \
  4340. } \
  4341. } while (0)
  4342. #define DUK_HEAPHDR_DECREF_NORZ_ALLOWNULL(thr,h) do { \
  4343. if ((h) != NULL) { \
  4344. DUK_HEAPHDR_DECREF_NORZ((thr), (duk_heaphdr *) (h)); \
  4345. } \
  4346. } while (0)
  4347. #define DUK_HOBJECT_INCREF_ALLOWNULL(thr,h) do { \
  4348. if ((h) != NULL) { \
  4349. DUK_HOBJECT_INCREF((thr), (h)); \
  4350. } \
  4351. } while (0)
  4352. #define DUK_HOBJECT_DECREF_ALLOWNULL(thr,h) do { \
  4353. if ((h) != NULL) { \
  4354. DUK_HOBJECT_DECREF((thr), (h)); \
  4355. } \
  4356. } while (0)
  4357. #define DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr,h) do { \
  4358. if ((h) != NULL) { \
  4359. DUK_HOBJECT_DECREF_NORZ((thr), (h)); \
  4360. } \
  4361. } while (0)
  4362. #define DUK_HBUFFER_INCREF_ALLOWNULL(thr,h) do { \
  4363. if ((h) != NULL) { \
  4364. DUK_HBUFFER_INCREF((thr), (h)); \
  4365. } \
  4366. } while (0)
  4367. #define DUK_HBUFFER_DECREF_ALLOWNULL(thr,h) do { \
  4368. if ((h) != NULL) { \
  4369. DUK_HBUFFER_DECREF((thr), (h)); \
  4370. } \
  4371. } while (0)
  4372. #define DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr,h) do { \
  4373. if ((h) != NULL) { \
  4374. DUK_HBUFFER_DECREF_NORZ((thr), (h)); \
  4375. } \
  4376. } while (0)
  4377. #define DUK_HTHREAD_INCREF_ALLOWNULL(thr,h) do { \
  4378. if ((h) != NULL) { \
  4379. DUK_HTHREAD_INCREF((thr), (h)); \
  4380. } \
  4381. } while (0)
  4382. #define DUK_HTHREAD_DECREF_ALLOWNULL(thr,h) do { \
  4383. if ((h) != NULL) { \
  4384. DUK_HTHREAD_DECREF((thr), (h)); \
  4385. } \
  4386. } while (0)
  4387. #define DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr,h) do { \
  4388. if ((h) != NULL) { \
  4389. DUK_HTHREAD_DECREF_NORZ((thr), (h)); \
  4390. } \
  4391. } while (0)
  4392. /* Called after one or more DECREF NORZ calls to handle pending side effects.
  4393. * At present DECREF NORZ does freeing inline but doesn't execute finalizers,
  4394. * so these macros check for pending finalizers and execute them. The FAST
  4395. * variant is performance critical.
  4396. */
  4397. #if defined(DUK_USE_FINALIZER_SUPPORT)
  4398. #define DUK_REFZERO_CHECK_FAST(thr) do { \
  4399. duk_refzero_check_fast((thr)); \
  4400. } while (0)
  4401. #define DUK_REFZERO_CHECK_SLOW(thr) do { \
  4402. duk_refzero_check_slow((thr)); \
  4403. } while (0)
  4404. #else /* DUK_USE_FINALIZER_SUPPORT */
  4405. #define DUK_REFZERO_CHECK_FAST(thr) do { } while (0)
  4406. #define DUK_REFZERO_CHECK_SLOW(thr) do { } while (0)
  4407. #endif /* DUK_USE_FINALIZER_SUPPORT */
  4408. /*
  4409. * Macros to set a duk_tval and update refcount of the target (decref the
  4410. * old value and incref the new value if necessary). This is both performance
  4411. * and footprint critical; any changes made should be measured for size/speed.
  4412. */
  4413. #define DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0(thr,tvptr_dst) do { \
  4414. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4415. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4416. DUK_TVAL_SET_UNDEFINED(tv__dst); \
  4417. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4418. } while (0)
  4419. #define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ_ALT0(thr,tvptr_dst) do { \
  4420. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4421. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4422. DUK_TVAL_SET_UNDEFINED(tv__dst); \
  4423. DUK_TVAL_DECREF_NORZ((thr), &tv__tmp); \
  4424. } while (0)
  4425. #define DUK_TVAL_SET_UNUSED_UPDREF_ALT0(thr,tvptr_dst) do { \
  4426. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4427. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4428. DUK_TVAL_SET_UNUSED(tv__dst); \
  4429. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4430. } while (0)
  4431. #define DUK_TVAL_SET_NULL_UPDREF_ALT0(thr,tvptr_dst) do { \
  4432. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4433. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4434. DUK_TVAL_SET_NULL(tv__dst); \
  4435. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4436. } while (0)
  4437. #define DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4438. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4439. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4440. DUK_TVAL_SET_BOOLEAN(tv__dst, (newval)); \
  4441. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4442. } while (0)
  4443. #define DUK_TVAL_SET_NUMBER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4444. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4445. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4446. DUK_TVAL_SET_NUMBER(tv__dst, (newval)); \
  4447. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4448. } while (0)
  4449. #define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4450. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4451. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4452. DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv__dst, (newval)); \
  4453. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4454. } while (0)
  4455. #define DUK_TVAL_SET_DOUBLE_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4456. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4457. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4458. DUK_TVAL_SET_DOUBLE(tv__dst, (newval)); \
  4459. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4460. } while (0)
  4461. #define DUK_TVAL_SET_NAN_UPDREF_ALT0(thr,tvptr_dst) do { \
  4462. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4463. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4464. DUK_TVAL_SET_NAN(tv__dst); \
  4465. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4466. } while (0)
  4467. #if defined(DUK_USE_FASTINT)
  4468. #define DUK_TVAL_SET_I48_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4469. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4470. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4471. DUK_TVAL_SET_I48(tv__dst, (newval)); \
  4472. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4473. } while (0)
  4474. #define DUK_TVAL_SET_I32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4475. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4476. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4477. DUK_TVAL_SET_I32(tv__dst, (newval)); \
  4478. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4479. } while (0)
  4480. #define DUK_TVAL_SET_U32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4481. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4482. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4483. DUK_TVAL_SET_U32(tv__dst, (newval)); \
  4484. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4485. } while (0)
  4486. #else
  4487. #define DUK_TVAL_SET_DOUBLE_CAST_UPDREF(thr,tvptr_dst,newval) \
  4488. DUK_TVAL_SET_DOUBLE_UPDREF((thr), (tvptr_dst), (duk_double_t) (newval))
  4489. #endif /* DUK_USE_FASTINT */
  4490. #define DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0(thr,tvptr_dst,lf_v,lf_fp,lf_flags) do { \
  4491. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4492. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4493. DUK_TVAL_SET_LIGHTFUNC(tv__dst, (lf_v), (lf_fp), (lf_flags)); \
  4494. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4495. } while (0)
  4496. #define DUK_TVAL_SET_STRING_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4497. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4498. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4499. DUK_TVAL_SET_STRING(tv__dst, (newval)); \
  4500. DUK_HSTRING_INCREF((thr), (newval)); \
  4501. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4502. } while (0)
  4503. #define DUK_TVAL_SET_OBJECT_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4504. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4505. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4506. DUK_TVAL_SET_OBJECT(tv__dst, (newval)); \
  4507. DUK_HOBJECT_INCREF((thr), (newval)); \
  4508. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4509. } while (0)
  4510. #define DUK_TVAL_SET_BUFFER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4511. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4512. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4513. DUK_TVAL_SET_BUFFER(tv__dst, (newval)); \
  4514. DUK_HBUFFER_INCREF((thr), (newval)); \
  4515. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4516. } while (0)
  4517. #define DUK_TVAL_SET_POINTER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4518. duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \
  4519. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4520. DUK_TVAL_SET_POINTER(tv__dst, (newval)); \
  4521. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4522. } while (0)
  4523. /* DUK_TVAL_SET_TVAL_UPDREF() is used a lot in executor, property lookups,
  4524. * etc, so it's very important for performance. Measure when changing.
  4525. *
  4526. * NOTE: the source and destination duk_tval pointers may be the same, and
  4527. * the macros MUST deal with that correctly.
  4528. */
  4529. /* Original idiom used, minimal code size. */
  4530. #define DUK_TVAL_SET_TVAL_UPDREF_ALT0(thr,tvptr_dst,tvptr_src) do { \
  4531. duk_tval *tv__dst, *tv__src; duk_tval tv__tmp; \
  4532. tv__dst = (tvptr_dst); tv__src = (tvptr_src); \
  4533. DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \
  4534. DUK_TVAL_SET_TVAL(tv__dst, tv__src); \
  4535. DUK_TVAL_INCREF((thr), tv__src); \
  4536. DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \
  4537. } while (0)
  4538. /* Faster alternative: avoid making a temporary copy of tvptr_dst and use
  4539. * fast incref/decref macros.
  4540. */
  4541. #define DUK_TVAL_SET_TVAL_UPDREF_ALT1(thr,tvptr_dst,tvptr_src) do { \
  4542. duk_tval *tv__dst, *tv__src; duk_heaphdr *h__obj; \
  4543. tv__dst = (tvptr_dst); tv__src = (tvptr_src); \
  4544. DUK_TVAL_INCREF_FAST((thr), tv__src); \
  4545. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv__dst)) { \
  4546. h__obj = DUK_TVAL_GET_HEAPHDR(tv__dst); \
  4547. DUK_ASSERT(h__obj != NULL); \
  4548. DUK_TVAL_SET_TVAL(tv__dst, tv__src); \
  4549. DUK_HEAPHDR_DECREF_FAST((thr), h__obj); /* side effects */ \
  4550. } else { \
  4551. DUK_TVAL_SET_TVAL(tv__dst, tv__src); \
  4552. } \
  4553. } while (0)
  4554. /* XXX: no optimized variants yet */
  4555. #define DUK_TVAL_SET_UNDEFINED_UPDREF DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0
  4556. #define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ_ALT0
  4557. #define DUK_TVAL_SET_UNUSED_UPDREF DUK_TVAL_SET_UNUSED_UPDREF_ALT0
  4558. #define DUK_TVAL_SET_NULL_UPDREF DUK_TVAL_SET_NULL_UPDREF_ALT0
  4559. #define DUK_TVAL_SET_BOOLEAN_UPDREF DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0
  4560. #define DUK_TVAL_SET_NUMBER_UPDREF DUK_TVAL_SET_NUMBER_UPDREF_ALT0
  4561. #define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0
  4562. #define DUK_TVAL_SET_DOUBLE_UPDREF DUK_TVAL_SET_DOUBLE_UPDREF_ALT0
  4563. #define DUK_TVAL_SET_NAN_UPDREF DUK_TVAL_SET_NAN_UPDREF_ALT0
  4564. #if defined(DUK_USE_FASTINT)
  4565. #define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_I48_UPDREF_ALT0
  4566. #define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_I32_UPDREF_ALT0
  4567. #define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_U32_UPDREF_ALT0
  4568. #else
  4569. #define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF /* XXX: fast int-to-double */
  4570. #define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF
  4571. #define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF
  4572. #endif /* DUK_USE_FASTINT */
  4573. #define DUK_TVAL_SET_FASTINT_UPDREF DUK_TVAL_SET_I48_UPDREF /* convenience */
  4574. #define DUK_TVAL_SET_LIGHTFUNC_UPDREF DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0
  4575. #define DUK_TVAL_SET_STRING_UPDREF DUK_TVAL_SET_STRING_UPDREF_ALT0
  4576. #define DUK_TVAL_SET_OBJECT_UPDREF DUK_TVAL_SET_OBJECT_UPDREF_ALT0
  4577. #define DUK_TVAL_SET_BUFFER_UPDREF DUK_TVAL_SET_BUFFER_UPDREF_ALT0
  4578. #define DUK_TVAL_SET_POINTER_UPDREF DUK_TVAL_SET_POINTER_UPDREF_ALT0
  4579. #if defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  4580. /* Optimized for speed. */
  4581. #define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT1
  4582. #define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT1
  4583. #define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4584. #else
  4585. /* Optimized for size. */
  4586. #define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4587. #define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4588. #define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4589. #endif
  4590. #else /* DUK_USE_REFERENCE_COUNTING */
  4591. #define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) 0
  4592. #define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) 0
  4593. #define DUK_TVAL_INCREF_FAST(thr,v) do {} while (0) /* nop */
  4594. #define DUK_TVAL_DECREF_FAST(thr,v) do {} while (0) /* nop */
  4595. #define DUK_TVAL_DECREF_NORZ_FAST(thr,v) do {} while (0) /* nop */
  4596. #define DUK_TVAL_INCREF_SLOW(thr,v) do {} while (0) /* nop */
  4597. #define DUK_TVAL_DECREF_SLOW(thr,v) do {} while (0) /* nop */
  4598. #define DUK_TVAL_DECREF_NORZ_SLOW(thr,v) do {} while (0) /* nop */
  4599. #define DUK_TVAL_INCREF(thr,v) do {} while (0) /* nop */
  4600. #define DUK_TVAL_DECREF(thr,v) do {} while (0) /* nop */
  4601. #define DUK_TVAL_DECREF_NORZ(thr,v) do {} while (0) /* nop */
  4602. #define DUK_HEAPHDR_INCREF_FAST(thr,h) do {} while (0) /* nop */
  4603. #define DUK_HEAPHDR_DECREF_FAST(thr,h) do {} while (0) /* nop */
  4604. #define DUK_HEAPHDR_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */
  4605. #define DUK_HEAPHDR_INCREF_SLOW(thr,h) do {} while (0) /* nop */
  4606. #define DUK_HEAPHDR_DECREF_SLOW(thr,h) do {} while (0) /* nop */
  4607. #define DUK_HEAPHDR_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */
  4608. #define DUK_HEAPHDR_INCREF(thr,h) do {} while (0) /* nop */
  4609. #define DUK_HEAPHDR_DECREF(thr,h) do {} while (0) /* nop */
  4610. #define DUK_HEAPHDR_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4611. #define DUK_HSTRING_INCREF_FAST(thr,h) do {} while (0) /* nop */
  4612. #define DUK_HSTRING_DECREF_FAST(thr,h) do {} while (0) /* nop */
  4613. #define DUK_HSTRING_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */
  4614. #define DUK_HSTRING_INCREF_SLOW(thr,h) do {} while (0) /* nop */
  4615. #define DUK_HSTRING_DECREF_SLOW(thr,h) do {} while (0) /* nop */
  4616. #define DUK_HSTRING_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */
  4617. #define DUK_HSTRING_INCREF(thr,h) do {} while (0) /* nop */
  4618. #define DUK_HSTRING_DECREF(thr,h) do {} while (0) /* nop */
  4619. #define DUK_HSTRING_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4620. #define DUK_HOBJECT_INCREF_FAST(thr,h) do {} while (0) /* nop */
  4621. #define DUK_HOBJECT_DECREF_FAST(thr,h) do {} while (0) /* nop */
  4622. #define DUK_HOBJECT_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */
  4623. #define DUK_HOBJECT_INCREF_SLOW(thr,h) do {} while (0) /* nop */
  4624. #define DUK_HOBJECT_DECREF_SLOW(thr,h) do {} while (0) /* nop */
  4625. #define DUK_HOBJECT_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */
  4626. #define DUK_HOBJECT_INCREF(thr,h) do {} while (0) /* nop */
  4627. #define DUK_HOBJECT_DECREF(thr,h) do {} while (0) /* nop */
  4628. #define DUK_HOBJECT_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4629. #define DUK_HBUFFER_INCREF_FAST(thr,h) do {} while (0) /* nop */
  4630. #define DUK_HBUFFER_DECREF_FAST(thr,h) do {} while (0) /* nop */
  4631. #define DUK_HBUFFER_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */
  4632. #define DUK_HBUFFER_INCREF_SLOW(thr,h) do {} while (0) /* nop */
  4633. #define DUK_HBUFFER_DECREF_SLOW(thr,h) do {} while (0) /* nop */
  4634. #define DUK_HBUFFER_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */
  4635. #define DUK_HBUFFER_INCREF(thr,h) do {} while (0) /* nop */
  4636. #define DUK_HBUFFER_DECREF(thr,h) do {} while (0) /* nop */
  4637. #define DUK_HBUFFER_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4638. #define DUK_HCOMPFUNC_INCREF(thr,h) do {} while (0) /* nop */
  4639. #define DUK_HCOMPFUNC_DECREF(thr,h) do {} while (0) /* nop */
  4640. #define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4641. #define DUK_HNATFUNC_INCREF(thr,h) do {} while (0) /* nop */
  4642. #define DUK_HNATFUNC_DECREF(thr,h) do {} while (0) /* nop */
  4643. #define DUK_HNATFUNC_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4644. #define DUK_HBUFOBJ_INCREF(thr,h) do {} while (0) /* nop */
  4645. #define DUK_HBUFOBJ_DECREF(thr,h) do {} while (0) /* nop */
  4646. #define DUK_HBUFOBJ_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4647. #define DUK_HTHREAD_INCREF(thr,h) do {} while (0) /* nop */
  4648. #define DUK_HTHREAD_DECREF(thr,h) do {} while (0) /* nop */
  4649. #define DUK_HTHREAD_DECREF_NORZ(thr,h) do {} while (0) /* nop */
  4650. #define DUK_HOBJECT_INCREF_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4651. #define DUK_HOBJECT_DECREF_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4652. #define DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4653. #define DUK_HBUFFER_INCREF_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4654. #define DUK_HBUFFER_DECREF_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4655. #define DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr,h) do {} while (0) /* nop */
  4656. #define DUK_REFZERO_CHECK_FAST(thr) do {} while (0) /* nop */
  4657. #define DUK_REFZERO_CHECK_SLOW(thr) do {} while (0) /* nop */
  4658. #define DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0(thr,tvptr_dst) do { \
  4659. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4660. DUK_TVAL_SET_UNDEFINED(tv__dst); \
  4661. DUK_UNREF((thr)); \
  4662. } while (0)
  4663. #define DUK_TVAL_SET_UNUSED_UPDREF_ALT0(thr,tvptr_dst) do { \
  4664. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4665. DUK_TVAL_SET_UNUSED(tv__dst); \
  4666. DUK_UNREF((thr)); \
  4667. } while (0)
  4668. #define DUK_TVAL_SET_NULL_UPDREF_ALT0(thr,tvptr_dst) do { \
  4669. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4670. DUK_TVAL_SET_NULL(tv__dst); \
  4671. DUK_UNREF((thr)); \
  4672. } while (0)
  4673. #define DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4674. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4675. DUK_TVAL_SET_BOOLEAN(tv__dst, (newval)); \
  4676. DUK_UNREF((thr)); \
  4677. } while (0)
  4678. #define DUK_TVAL_SET_NUMBER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4679. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4680. DUK_TVAL_SET_NUMBER(tv__dst, (newval)); \
  4681. DUK_UNREF((thr)); \
  4682. } while (0)
  4683. #define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4684. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4685. DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv__dst, (newval)); \
  4686. DUK_UNREF((thr)); \
  4687. } while (0)
  4688. #define DUK_TVAL_SET_DOUBLE_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4689. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4690. DUK_TVAL_SET_DOUBLE(tv__dst, (newval)); \
  4691. DUK_UNREF((thr)); \
  4692. } while (0)
  4693. #define DUK_TVAL_SET_NAN_UPDREF_ALT0(thr,tvptr_dst) do { \
  4694. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4695. DUK_TVAL_SET_NAN(tv__dst); \
  4696. DUK_UNREF((thr)); \
  4697. } while (0)
  4698. #if defined(DUK_USE_FASTINT)
  4699. #define DUK_TVAL_SET_I48_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4700. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4701. DUK_TVAL_SET_I48(tv__dst, (newval)); \
  4702. DUK_UNREF((thr)); \
  4703. } while (0)
  4704. #define DUK_TVAL_SET_I32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4705. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4706. DUK_TVAL_SET_I32(tv__dst, (newval)); \
  4707. DUK_UNREF((thr)); \
  4708. } while (0)
  4709. #define DUK_TVAL_SET_U32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4710. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4711. DUK_TVAL_SET_U32(tv__dst, (newval)); \
  4712. DUK_UNREF((thr)); \
  4713. } while (0)
  4714. #else
  4715. #define DUK_TVAL_SET_DOUBLE_CAST_UPDREF(thr,tvptr_dst,newval) \
  4716. DUK_TVAL_SET_DOUBLE_UPDREF((thr), (tvptr_dst), (duk_double_t) (newval))
  4717. #endif /* DUK_USE_FASTINT */
  4718. #define DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0(thr,tvptr_dst,lf_v,lf_fp,lf_flags) do { \
  4719. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4720. DUK_TVAL_SET_LIGHTFUNC(tv__dst, (lf_v), (lf_fp), (lf_flags)); \
  4721. DUK_UNREF((thr)); \
  4722. } while (0)
  4723. #define DUK_TVAL_SET_STRING_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4724. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4725. DUK_TVAL_SET_STRING(tv__dst, (newval)); \
  4726. DUK_UNREF((thr)); \
  4727. } while (0)
  4728. #define DUK_TVAL_SET_OBJECT_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4729. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4730. DUK_TVAL_SET_OBJECT(tv__dst, (newval)); \
  4731. DUK_UNREF((thr)); \
  4732. } while (0)
  4733. #define DUK_TVAL_SET_BUFFER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4734. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4735. DUK_TVAL_SET_BUFFER(tv__dst, (newval)); \
  4736. DUK_UNREF((thr)); \
  4737. } while (0)
  4738. #define DUK_TVAL_SET_POINTER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \
  4739. duk_tval *tv__dst; tv__dst = (tvptr_dst); \
  4740. DUK_TVAL_SET_POINTER(tv__dst, (newval)); \
  4741. DUK_UNREF((thr)); \
  4742. } while (0)
  4743. #define DUK_TVAL_SET_TVAL_UPDREF_ALT0(thr,tvptr_dst,tvptr_src) do { \
  4744. duk_tval *tv__dst, *tv__src; \
  4745. tv__dst = (tvptr_dst); tv__src = (tvptr_src); \
  4746. DUK_TVAL_SET_TVAL(tv__dst, tv__src); \
  4747. DUK_UNREF((thr)); \
  4748. } while (0)
  4749. #define DUK_TVAL_SET_UNDEFINED_UPDREF DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0
  4750. #define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0
  4751. #define DUK_TVAL_SET_UNUSED_UPDREF DUK_TVAL_SET_UNUSED_UPDREF_ALT0
  4752. #define DUK_TVAL_SET_NULL_UPDREF DUK_TVAL_SET_NULL_UPDREF_ALT0
  4753. #define DUK_TVAL_SET_BOOLEAN_UPDREF DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0
  4754. #define DUK_TVAL_SET_NUMBER_UPDREF DUK_TVAL_SET_NUMBER_UPDREF_ALT0
  4755. #define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0
  4756. #define DUK_TVAL_SET_DOUBLE_UPDREF DUK_TVAL_SET_DOUBLE_UPDREF_ALT0
  4757. #define DUK_TVAL_SET_NAN_UPDREF DUK_TVAL_SET_NAN_UPDREF_ALT0
  4758. #if defined(DUK_USE_FASTINT)
  4759. #define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_I48_UPDREF_ALT0
  4760. #define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_I32_UPDREF_ALT0
  4761. #define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_U32_UPDREF_ALT0
  4762. #else
  4763. #define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF /* XXX: fast-int-to-double */
  4764. #define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF
  4765. #define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF
  4766. #endif /* DUK_USE_FASTINT */
  4767. #define DUK_TVAL_SET_FASTINT_UPDREF DUK_TVAL_SET_I48_UPDREF /* convenience */
  4768. #define DUK_TVAL_SET_LIGHTFUNC_UPDREF DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0
  4769. #define DUK_TVAL_SET_STRING_UPDREF DUK_TVAL_SET_STRING_UPDREF_ALT0
  4770. #define DUK_TVAL_SET_OBJECT_UPDREF DUK_TVAL_SET_OBJECT_UPDREF_ALT0
  4771. #define DUK_TVAL_SET_BUFFER_UPDREF DUK_TVAL_SET_BUFFER_UPDREF_ALT0
  4772. #define DUK_TVAL_SET_POINTER_UPDREF DUK_TVAL_SET_POINTER_UPDREF_ALT0
  4773. #define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4774. #define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4775. #define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0
  4776. #endif /* DUK_USE_REFERENCE_COUNTING */
  4777. /*
  4778. * Some convenience macros that don't have optimized implementations now.
  4779. */
  4780. #define DUK_TVAL_SET_TVAL_UPDREF_NORZ(thr,tv_dst,tv_src) do { \
  4781. duk_hthread *duk__thr = (thr); \
  4782. duk_tval *duk__dst = (tv_dst); \
  4783. duk_tval *duk__src = (tv_src); \
  4784. DUK_UNREF(duk__thr); \
  4785. DUK_TVAL_DECREF_NORZ(thr, duk__dst); \
  4786. DUK_TVAL_SET_TVAL(duk__dst, duk__src); \
  4787. DUK_TVAL_INCREF(thr, duk__dst); \
  4788. } while (0)
  4789. #define DUK_TVAL_SET_U32_UPDREF_NORZ(thr,tv_dst,val) do { \
  4790. duk_hthread *duk__thr = (thr); \
  4791. duk_tval *duk__dst = (tv_dst); \
  4792. duk_uint32_t duk__val = (duk_uint32_t) (val); \
  4793. DUK_UNREF(duk__thr); \
  4794. DUK_TVAL_DECREF_NORZ(thr, duk__dst); \
  4795. DUK_TVAL_SET_U32(duk__dst, duk__val); \
  4796. } while (0)
  4797. /*
  4798. * Prototypes
  4799. */
  4800. #if defined(DUK_USE_REFERENCE_COUNTING)
  4801. #if defined(DUK_USE_FINALIZER_SUPPORT)
  4802. DUK_INTERNAL_DECL void duk_refzero_check_slow(duk_hthread *thr);
  4803. DUK_INTERNAL_DECL void duk_refzero_check_fast(duk_hthread *thr);
  4804. #endif
  4805. DUK_INTERNAL_DECL void duk_heaphdr_refcount_finalize_norz(duk_heap *heap, duk_heaphdr *hdr);
  4806. DUK_INTERNAL_DECL void duk_hobject_refcount_finalize_norz(duk_heap *heap, duk_hobject *h);
  4807. #if 0 /* Not needed: fast path handles inline; slow path uses duk_heaphdr_decref() which is needed anyway. */
  4808. DUK_INTERNAL_DECL void duk_hstring_decref(duk_hthread *thr, duk_hstring *h);
  4809. DUK_INTERNAL_DECL void duk_hstring_decref_norz(duk_hthread *thr, duk_hstring *h);
  4810. DUK_INTERNAL_DECL void duk_hbuffer_decref(duk_hthread *thr, duk_hbuffer *h);
  4811. DUK_INTERNAL_DECL void duk_hbuffer_decref_norz(duk_hthread *thr, duk_hbuffer *h);
  4812. DUK_INTERNAL_DECL void duk_hobject_decref(duk_hthread *thr, duk_hobject *h);
  4813. DUK_INTERNAL_DECL void duk_hobject_decref_norz(duk_hthread *thr, duk_hobject *h);
  4814. #endif
  4815. DUK_INTERNAL_DECL void duk_heaphdr_refzero(duk_hthread *thr, duk_heaphdr *h);
  4816. DUK_INTERNAL_DECL void duk_heaphdr_refzero_norz(duk_hthread *thr, duk_heaphdr *h);
  4817. #if defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  4818. DUK_INTERNAL_DECL void duk_hstring_refzero(duk_hthread *thr, duk_hstring *h); /* no 'norz' variant */
  4819. DUK_INTERNAL_DECL void duk_hbuffer_refzero(duk_hthread *thr, duk_hbuffer *h); /* no 'norz' variant */
  4820. DUK_INTERNAL_DECL void duk_hobject_refzero(duk_hthread *thr, duk_hobject *h);
  4821. DUK_INTERNAL_DECL void duk_hobject_refzero_norz(duk_hthread *thr, duk_hobject *h);
  4822. #else
  4823. DUK_INTERNAL_DECL void duk_tval_incref(duk_tval *tv);
  4824. DUK_INTERNAL_DECL void duk_tval_decref(duk_hthread *thr, duk_tval *tv);
  4825. DUK_INTERNAL_DECL void duk_tval_decref_norz(duk_hthread *thr, duk_tval *tv);
  4826. DUK_INTERNAL_DECL void duk_heaphdr_incref(duk_heaphdr *h);
  4827. DUK_INTERNAL_DECL void duk_heaphdr_decref(duk_hthread *thr, duk_heaphdr *h);
  4828. DUK_INTERNAL_DECL void duk_heaphdr_decref_norz(duk_hthread *thr, duk_heaphdr *h);
  4829. #endif
  4830. #else /* DUK_USE_REFERENCE_COUNTING */
  4831. /* no refcounting */
  4832. #endif /* DUK_USE_REFERENCE_COUNTING */
  4833. #endif /* DUK_REFCOUNT_H_INCLUDED */
  4834. /* #include duk_api_internal.h */
  4835. #line 1 "duk_api_internal.h"
  4836. /*
  4837. * Internal API calls which have (stack and other) semantics similar
  4838. * to the public API.
  4839. */
  4840. #if !defined(DUK_API_INTERNAL_H_INCLUDED)
  4841. #define DUK_API_INTERNAL_H_INCLUDED
  4842. #define DUK_INTERNAL_SYMBOL(x) ("\x82" x)
  4843. /* duk_push_sprintf constants */
  4844. #define DUK_PUSH_SPRINTF_INITIAL_SIZE 256L
  4845. #define DUK_PUSH_SPRINTF_SANITY_LIMIT (1L * 1024L * 1024L * 1024L)
  4846. /* Flag ORed to err_code to indicate __FILE__ / __LINE__ is not
  4847. * blamed as source of error for error fileName / lineNumber.
  4848. */
  4849. #define DUK_ERRCODE_FLAG_NOBLAME_FILELINE (1L << 24)
  4850. /* Current convention is to use duk_size_t for value stack sizes and global indices,
  4851. * and duk_idx_t for local frame indices.
  4852. */
  4853. DUK_INTERNAL_DECL void duk_valstack_grow_check_throw(duk_hthread *thr, duk_size_t min_bytes);
  4854. DUK_INTERNAL_DECL duk_bool_t duk_valstack_grow_check_nothrow(duk_hthread *thr, duk_size_t min_bytes);
  4855. DUK_INTERNAL_DECL void duk_valstack_shrink_check_nothrow(duk_hthread *thr, duk_bool_t snug);
  4856. DUK_INTERNAL_DECL void duk_copy_tvals_incref(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_size_t count);
  4857. DUK_INTERNAL_DECL duk_tval *duk_reserve_gap(duk_hthread *thr, duk_idx_t idx_base, duk_idx_t count);
  4858. DUK_INTERNAL_DECL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx);
  4859. DUK_INTERNAL_DECL void duk_set_top_and_wipe(duk_hthread *thr, duk_idx_t top, duk_idx_t idx_wipe_start);
  4860. DUK_INTERNAL_DECL void duk_dup_0(duk_hthread *thr);
  4861. DUK_INTERNAL_DECL void duk_dup_1(duk_hthread *thr);
  4862. DUK_INTERNAL_DECL void duk_dup_2(duk_hthread *thr);
  4863. /* duk_dup_m1() would be same as duk_dup_top() */
  4864. DUK_INTERNAL_DECL void duk_dup_m2(duk_hthread *thr);
  4865. DUK_INTERNAL_DECL void duk_dup_m3(duk_hthread *thr);
  4866. DUK_INTERNAL_DECL void duk_dup_m4(duk_hthread *thr);
  4867. DUK_INTERNAL_DECL void duk_remove_unsafe(duk_hthread *thr, duk_idx_t idx);
  4868. DUK_INTERNAL_DECL void duk_remove_m2(duk_hthread *thr);
  4869. DUK_INTERNAL_DECL void duk_remove_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count);
  4870. DUK_INTERNAL_DECL void duk_remove_n_unsafe(duk_hthread *thr, duk_idx_t idx, duk_idx_t count);
  4871. DUK_INTERNAL_DECL duk_int_t duk_get_type_tval(duk_tval *tv);
  4872. DUK_INTERNAL_DECL duk_uint_t duk_get_type_mask_tval(duk_tval *tv);
  4873. #if defined(DUK_USE_VERBOSE_ERRORS) && defined(DUK_USE_PARANOID_ERRORS)
  4874. DUK_INTERNAL_DECL const char *duk_get_type_name(duk_hthread *thr, duk_idx_t idx);
  4875. #endif
  4876. DUK_INTERNAL_DECL duk_small_uint_t duk_get_class_number(duk_hthread *thr, duk_idx_t idx);
  4877. DUK_INTERNAL_DECL duk_tval *duk_get_tval(duk_hthread *thr, duk_idx_t idx);
  4878. DUK_INTERNAL_DECL duk_tval *duk_get_tval_or_unused(duk_hthread *thr, duk_idx_t idx);
  4879. DUK_INTERNAL_DECL duk_tval *duk_require_tval(duk_hthread *thr, duk_idx_t idx);
  4880. DUK_INTERNAL_DECL void duk_push_tval(duk_hthread *thr, duk_tval *tv);
  4881. /* Push the current 'this' binding; throw TypeError if binding is not object
  4882. * coercible (CheckObjectCoercible).
  4883. */
  4884. DUK_INTERNAL_DECL void duk_push_this_check_object_coercible(duk_hthread *thr);
  4885. /* duk_push_this() + CheckObjectCoercible() + duk_to_object() */
  4886. DUK_INTERNAL_DECL duk_hobject *duk_push_this_coercible_to_object(duk_hthread *thr);
  4887. /* duk_push_this() + CheckObjectCoercible() + duk_to_string() */
  4888. DUK_INTERNAL_DECL duk_hstring *duk_push_this_coercible_to_string(duk_hthread *thr);
  4889. DUK_INTERNAL_DECL duk_hstring *duk_push_uint_to_hstring(duk_hthread *thr, duk_uint_t i);
  4890. /* Get a borrowed duk_tval pointer to the current 'this' binding. Caller must
  4891. * make sure there's an active callstack entry. Note that the returned pointer
  4892. * is unstable with regards to side effects.
  4893. */
  4894. DUK_INTERNAL_DECL duk_tval *duk_get_borrowed_this_tval(duk_hthread *thr);
  4895. /* XXX: add fastint support? */
  4896. #define duk_push_u64(thr,val) \
  4897. duk_push_number((thr), (duk_double_t) (val))
  4898. #define duk_push_i64(thr,val) \
  4899. duk_push_number((thr), (duk_double_t) (val))
  4900. /* duk_push_(u)int() is guaranteed to support at least (un)signed 32-bit range */
  4901. #define duk_push_u32(thr,val) \
  4902. duk_push_uint((thr), (duk_uint_t) (val))
  4903. #define duk_push_i32(thr,val) \
  4904. duk_push_int((thr), (duk_int_t) (val))
  4905. /* sometimes stack and array indices need to go on the stack */
  4906. #define duk_push_idx(thr,val) \
  4907. duk_push_int((thr), (duk_int_t) (val))
  4908. #define duk_push_uarridx(thr,val) \
  4909. duk_push_uint((thr), (duk_uint_t) (val))
  4910. #define duk_push_size_t(thr,val) \
  4911. duk_push_uint((thr), (duk_uint_t) (val)) /* XXX: assumed to fit for now */
  4912. DUK_INTERNAL_DECL duk_bool_t duk_is_string_notsymbol(duk_hthread *thr, duk_idx_t idx);
  4913. DUK_INTERNAL_DECL duk_bool_t duk_is_callable_tval(duk_hthread *thr, duk_tval *tv);
  4914. DUK_INTERNAL_DECL duk_hstring *duk_get_hstring(duk_hthread *thr, duk_idx_t idx);
  4915. DUK_INTERNAL_DECL duk_hstring *duk_get_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx);
  4916. DUK_INTERNAL_DECL const char *duk_get_string_notsymbol(duk_hthread *thr, duk_idx_t idx);
  4917. DUK_INTERNAL_DECL duk_hobject *duk_get_hobject(duk_hthread *thr, duk_idx_t idx);
  4918. DUK_INTERNAL_DECL duk_hbuffer *duk_get_hbuffer(duk_hthread *thr, duk_idx_t idx);
  4919. DUK_INTERNAL_DECL duk_hthread *duk_get_hthread(duk_hthread *thr, duk_idx_t idx);
  4920. DUK_INTERNAL_DECL duk_hcompfunc *duk_get_hcompfunc(duk_hthread *thr, duk_idx_t idx);
  4921. DUK_INTERNAL_DECL duk_hnatfunc *duk_get_hnatfunc(duk_hthread *thr, duk_idx_t idx);
  4922. DUK_INTERNAL_DECL void *duk_get_buffer_data_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len, duk_bool_t throw_flag, duk_bool_t *out_isbuffer);
  4923. DUK_INTERNAL_DECL duk_hobject *duk_get_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum);
  4924. DUK_INTERNAL_DECL duk_hobject *duk_get_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask);
  4925. DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask);
  4926. DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_accept_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask);
  4927. #define duk_require_hobject_promote_lfunc(thr,idx) \
  4928. duk_require_hobject_promote_mask((thr), (idx), DUK_TYPE_MASK_LIGHTFUNC)
  4929. #define duk_get_hobject_promote_lfunc(thr,idx) \
  4930. duk_get_hobject_promote_mask((thr), (idx), DUK_TYPE_MASK_LIGHTFUNC)
  4931. #if 0 /*unused*/
  4932. DUK_INTERNAL_DECL void *duk_get_voidptr(duk_hthread *thr, duk_idx_t idx);
  4933. #endif
  4934. DUK_INTERNAL_DECL duk_hstring *duk_known_hstring(duk_hthread *thr, duk_idx_t idx);
  4935. DUK_INTERNAL_DECL duk_hobject *duk_known_hobject(duk_hthread *thr, duk_idx_t idx);
  4936. DUK_INTERNAL_DECL duk_hbuffer *duk_known_hbuffer(duk_hthread *thr, duk_idx_t idx);
  4937. DUK_INTERNAL_DECL duk_hcompfunc *duk_known_hcompfunc(duk_hthread *thr, duk_idx_t idx);
  4938. DUK_INTERNAL_DECL duk_hnatfunc *duk_known_hnatfunc(duk_hthread *thr, duk_idx_t idx);
  4939. DUK_INTERNAL_DECL duk_double_t duk_to_number_tval(duk_hthread *thr, duk_tval *tv);
  4940. DUK_INTERNAL_DECL duk_hstring *duk_to_hstring(duk_hthread *thr, duk_idx_t idx);
  4941. DUK_INTERNAL_DECL duk_hstring *duk_to_hstring_m1(duk_hthread *thr);
  4942. DUK_INTERNAL_DECL duk_hstring *duk_to_hstring_acceptsymbol(duk_hthread *thr, duk_idx_t idx);
  4943. DUK_INTERNAL_DECL duk_hobject *duk_to_hobject(duk_hthread *thr, duk_idx_t idx);
  4944. DUK_INTERNAL_DECL duk_double_t duk_to_number_m1(duk_hthread *thr);
  4945. DUK_INTERNAL_DECL duk_double_t duk_to_number_m2(duk_hthread *thr);
  4946. #if defined(DUK_USE_DEBUGGER_SUPPORT) /* only needed by debugger for now */
  4947. DUK_INTERNAL_DECL duk_hstring *duk_safe_to_hstring(duk_hthread *thr, duk_idx_t idx);
  4948. #endif
  4949. DUK_INTERNAL_DECL void duk_push_class_string_tval(duk_hthread *thr, duk_tval *tv);
  4950. DUK_INTERNAL_DECL duk_int_t duk_to_int_clamped_raw(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval, duk_bool_t *out_clamped); /* out_clamped=NULL, RangeError if outside range */
  4951. DUK_INTERNAL_DECL duk_int_t duk_to_int_clamped(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval);
  4952. DUK_INTERNAL_DECL duk_int_t duk_to_int_check_range(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval);
  4953. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  4954. DUK_INTERNAL_DECL duk_uint8_t duk_to_uint8clamped(duk_hthread *thr, duk_idx_t idx);
  4955. #endif
  4956. DUK_INTERNAL_DECL duk_hstring *duk_to_property_key_hstring(duk_hthread *thr, duk_idx_t idx);
  4957. DUK_INTERNAL_DECL duk_hstring *duk_require_hstring(duk_hthread *thr, duk_idx_t idx);
  4958. DUK_INTERNAL_DECL duk_hstring *duk_require_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx);
  4959. DUK_INTERNAL_DECL const char *duk_require_lstring_notsymbol(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len);
  4960. DUK_INTERNAL_DECL const char *duk_require_string_notsymbol(duk_hthread *thr, duk_idx_t idx);
  4961. DUK_INTERNAL_DECL duk_hobject *duk_require_hobject(duk_hthread *thr, duk_idx_t idx);
  4962. DUK_INTERNAL_DECL duk_hbuffer *duk_require_hbuffer(duk_hthread *thr, duk_idx_t idx);
  4963. DUK_INTERNAL_DECL duk_hthread *duk_require_hthread(duk_hthread *thr, duk_idx_t idx);
  4964. DUK_INTERNAL_DECL duk_hcompfunc *duk_require_hcompfunc(duk_hthread *thr, duk_idx_t idx);
  4965. DUK_INTERNAL_DECL duk_hnatfunc *duk_require_hnatfunc(duk_hthread *thr, duk_idx_t idx);
  4966. DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum);
  4967. DUK_INTERNAL_DECL void duk_push_hstring(duk_hthread *thr, duk_hstring *h);
  4968. DUK_INTERNAL_DECL void duk_push_hstring_stridx(duk_hthread *thr, duk_small_uint_t stridx);
  4969. DUK_INTERNAL_DECL void duk_push_hstring_empty(duk_hthread *thr);
  4970. DUK_INTERNAL_DECL void duk_push_hobject(duk_hthread *thr, duk_hobject *h);
  4971. DUK_INTERNAL_DECL void duk_push_hbuffer(duk_hthread *thr, duk_hbuffer *h);
  4972. #define duk_push_hthread(thr,h) \
  4973. duk_push_hobject((thr), (duk_hobject *) (h))
  4974. #define duk_push_hnatfunc(thr,h) \
  4975. duk_push_hobject((thr), (duk_hobject *) (h))
  4976. DUK_INTERNAL_DECL void duk_push_hobject_bidx(duk_hthread *thr, duk_small_int_t builtin_idx);
  4977. DUK_INTERNAL_DECL duk_hobject *duk_push_object_helper(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx);
  4978. DUK_INTERNAL_DECL duk_hobject *duk_push_object_helper_proto(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_hobject *proto);
  4979. DUK_INTERNAL_DECL duk_hcompfunc *duk_push_hcompfunc(duk_hthread *thr);
  4980. DUK_INTERNAL_DECL duk_hboundfunc *duk_push_hboundfunc(duk_hthread *thr);
  4981. DUK_INTERNAL_DECL void duk_push_c_function_builtin(duk_hthread *thr, duk_c_function func, duk_int_t nargs);
  4982. DUK_INTERNAL_DECL void duk_push_c_function_builtin_noconstruct(duk_hthread *thr, duk_c_function func, duk_int_t nargs);
  4983. /* XXX: duk_push_harray() and duk_push_hcompfunc() are inconsistent with
  4984. * duk_push_hobject() etc which don't create a new value.
  4985. */
  4986. DUK_INTERNAL_DECL duk_harray *duk_push_harray(duk_hthread *thr);
  4987. DUK_INTERNAL_DECL duk_harray *duk_push_harray_with_size(duk_hthread *thr, duk_uint32_t size);
  4988. DUK_INTERNAL_DECL duk_tval *duk_push_harray_with_size_outptr(duk_hthread *thr, duk_uint32_t size);
  4989. DUK_INTERNAL_DECL void duk_push_string_funcptr(duk_hthread *thr, duk_uint8_t *ptr, duk_size_t sz);
  4990. DUK_INTERNAL_DECL void duk_push_lightfunc_name_raw(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags);
  4991. DUK_INTERNAL_DECL void duk_push_lightfunc_name(duk_hthread *thr, duk_tval *tv);
  4992. DUK_INTERNAL_DECL void duk_push_lightfunc_tostring(duk_hthread *thr, duk_tval *tv);
  4993. #if 0 /* not used yet */
  4994. DUK_INTERNAL_DECL void duk_push_hnatfunc_name(duk_hthread *thr, duk_hnatfunc *h);
  4995. #endif
  4996. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  4997. DUK_INTERNAL_DECL duk_hbufobj *duk_push_bufobj_raw(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx);
  4998. #endif
  4999. DUK_INTERNAL_DECL void *duk_push_fixed_buffer_nozero(duk_hthread *thr, duk_size_t len);
  5000. DUK_INTERNAL_DECL void *duk_push_fixed_buffer_zero(duk_hthread *thr, duk_size_t len);
  5001. DUK_INTERNAL_DECL const char *duk_push_string_readable(duk_hthread *thr, duk_idx_t idx);
  5002. DUK_INTERNAL_DECL const char *duk_push_string_tval_readable(duk_hthread *thr, duk_tval *tv);
  5003. DUK_INTERNAL_DECL const char *duk_push_string_tval_readable_error(duk_hthread *thr, duk_tval *tv);
  5004. /* The duk_xxx_prop_stridx_short() variants expect their arguments to be short
  5005. * enough to be packed into a single 32-bit integer argument. Argument limits
  5006. * vary per call; typically 16 bits are assigned to the signed value stack index
  5007. * and the stridx. In practice these work well for footprint with constant
  5008. * arguments and such call sites are also easiest to verify to be correct.
  5009. */
  5010. DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [val] */
  5011. DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args);
  5012. #define duk_get_prop_stridx_short(thr,obj_idx,stridx) \
  5013. (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x8000L && (duk_int_t) (obj_idx) <= 0x7fffL), \
  5014. DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \
  5015. duk_get_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx))))
  5016. DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx_boolean(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_bool_t *out_has_prop); /* [] -> [] */
  5017. DUK_INTERNAL_DECL duk_bool_t duk_put_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [val] -> [] */
  5018. DUK_INTERNAL_DECL duk_bool_t duk_put_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args);
  5019. #define duk_put_prop_stridx_short(thr,obj_idx,stridx) \
  5020. (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x8000L && (duk_int_t) (obj_idx) <= 0x7fffL), \
  5021. DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \
  5022. duk_put_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx))))
  5023. DUK_INTERNAL_DECL duk_bool_t duk_del_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */
  5024. #if 0 /* Too few call sites to be useful. */
  5025. DUK_INTERNAL_DECL duk_bool_t duk_del_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args);
  5026. #define duk_del_prop_stridx_short(thr,obj_idx,stridx) \
  5027. (DUK_ASSERT_EXPR((obj_idx) >= -0x8000L && (obj_idx) <= 0x7fffL), \
  5028. DUK_ASSERT_EXPR((stridx) >= 0 && (stridx) <= 0xffffL), \
  5029. duk_del_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx))))
  5030. #endif
  5031. #define duk_del_prop_stridx_short(thr,obj_idx,stridx) \
  5032. duk_del_prop_stridx((thr), (obj_idx), (stridx))
  5033. DUK_INTERNAL_DECL duk_bool_t duk_has_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */
  5034. #if 0 /* Too few call sites to be useful. */
  5035. DUK_INTERNAL_DECL duk_bool_t duk_has_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args);
  5036. #define duk_has_prop_stridx_short(thr,obj_idx,stridx) \
  5037. (DUK_ASSERT_EXPR((obj_idx) >= -0x8000L && (obj_idx) <= 0x7fffL), \
  5038. DUK_ASSERT_EXPR((stridx) >= 0 && (stridx) <= 0xffffL), \
  5039. duk_has_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx))))
  5040. #endif
  5041. #define duk_has_prop_stridx_short(thr,obj_idx,stridx) \
  5042. duk_has_prop_stridx((thr), (obj_idx), (stridx))
  5043. DUK_INTERNAL_DECL void duk_xdef_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t desc_flags); /* [key val] -> [] */
  5044. DUK_INTERNAL_DECL void duk_xdef_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx, duk_small_uint_t desc_flags); /* [val] -> [] */
  5045. /* XXX: Because stridx and desc_flags have a limited range, this call could
  5046. * always pack stridx and desc_flags into a single argument.
  5047. */
  5048. DUK_INTERNAL_DECL void duk_xdef_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_uint_t desc_flags); /* [val] -> [] */
  5049. DUK_INTERNAL_DECL void duk_xdef_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args);
  5050. #define duk_xdef_prop_stridx_short(thr,obj_idx,stridx,desc_flags) \
  5051. (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x80L && (duk_int_t) (obj_idx) <= 0x7fL), \
  5052. DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \
  5053. DUK_ASSERT_EXPR((duk_int_t) (desc_flags) >= 0 && (duk_int_t) (desc_flags) <= 0xffL), \
  5054. duk_xdef_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 24) + (((duk_uint_t) (stridx)) << 8) + (duk_uint_t) (desc_flags)))
  5055. #define duk_xdef_prop_wec(thr,obj_idx) \
  5056. duk_xdef_prop((thr), (obj_idx), DUK_PROPDESC_FLAGS_WEC)
  5057. #define duk_xdef_prop_index_wec(thr,obj_idx,arr_idx) \
  5058. duk_xdef_prop_index((thr), (obj_idx), (arr_idx), DUK_PROPDESC_FLAGS_WEC)
  5059. #define duk_xdef_prop_stridx_wec(thr,obj_idx,stridx) \
  5060. duk_xdef_prop_stridx((thr), (obj_idx), (stridx), DUK_PROPDESC_FLAGS_WEC)
  5061. #define duk_xdef_prop_stridx_short_wec(thr,obj_idx,stridx) \
  5062. duk_xdef_prop_stridx_short((thr), (obj_idx), (stridx), DUK_PROPDESC_FLAGS_WEC)
  5063. #if 0 /*unused*/
  5064. DUK_INTERNAL_DECL void duk_xdef_prop_stridx_builtin(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_int_t builtin_idx, duk_small_uint_t desc_flags); /* [] -> [] */
  5065. #endif
  5066. DUK_INTERNAL_DECL void duk_xdef_prop_stridx_thrower(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */
  5067. DUK_INTERNAL_DECL void duk_pack(duk_hthread *thr, duk_idx_t count);
  5068. DUK_INTERNAL_DECL duk_idx_t duk_unpack_array_like(duk_hthread *thr, duk_idx_t idx);
  5069. #if 0
  5070. DUK_INTERNAL_DECL void duk_unpack(duk_hthread *thr);
  5071. #endif
  5072. DUK_INTERNAL_DECL void duk_require_constructor_call(duk_hthread *thr);
  5073. DUK_INTERNAL_DECL void duk_require_constructable(duk_hthread *thr, duk_idx_t idx);
  5074. DUK_INTERNAL_DECL void duk_push_symbol_descriptive_string(duk_hthread *thr, duk_hstring *h);
  5075. DUK_INTERNAL_DECL void duk_resolve_nonbound_function(duk_hthread *thr);
  5076. DUK_INTERNAL_DECL duk_idx_t duk_get_top_require_min(duk_hthread *thr, duk_idx_t min_top);
  5077. DUK_INTERNAL_DECL duk_idx_t duk_get_top_index_unsafe(duk_hthread *thr);
  5078. DUK_INTERNAL_DECL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count);
  5079. DUK_INTERNAL_DECL void duk_pop_unsafe(duk_hthread *thr);
  5080. DUK_INTERNAL_DECL void duk_pop_2_unsafe(duk_hthread *thr);
  5081. DUK_INTERNAL_DECL void duk_pop_3_unsafe(duk_hthread *thr);
  5082. DUK_INTERNAL_DECL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count);
  5083. DUK_INTERNAL_DECL void duk_pop_nodecref_unsafe(duk_hthread *thr);
  5084. DUK_INTERNAL_DECL void duk_pop_2_nodecref_unsafe(duk_hthread *thr);
  5085. DUK_INTERNAL_DECL void duk_pop_3_nodecref_unsafe(duk_hthread *thr);
  5086. DUK_INTERNAL_DECL void duk_pop_undefined(duk_hthread *thr);
  5087. DUK_INTERNAL_DECL void duk_compact_m1(duk_hthread *thr);
  5088. DUK_INTERNAL_DECL void duk_seal_freeze_raw(duk_hthread *thr, duk_idx_t obj_idx, duk_bool_t is_freeze);
  5089. DUK_INTERNAL_DECL void duk_insert_undefined(duk_hthread *thr, duk_idx_t idx);
  5090. DUK_INTERNAL_DECL void duk_insert_undefined_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count);
  5091. DUK_INTERNAL_DECL void duk_concat_2(duk_hthread *thr);
  5092. DUK_INTERNAL_DECL duk_int_t duk_pcall_method_flags(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags);
  5093. /* Raw internal valstack access macros: access is unsafe so call site
  5094. * must have a guarantee that the index is valid. When that is the case,
  5095. * using these macro results in faster and smaller code than duk_get_tval().
  5096. * Both 'ctx' and 'idx' are evaluted multiple times, but only for asserts.
  5097. */
  5098. #define DUK_ASSERT_VALID_NEGIDX(thr,idx) \
  5099. (DUK_ASSERT_EXPR((duk_int_t) (idx) < 0), DUK_ASSERT_EXPR(duk_is_valid_index((thr), (idx))))
  5100. #define DUK_ASSERT_VALID_POSIDX(thr,idx) \
  5101. (DUK_ASSERT_EXPR((duk_int_t) (idx) >= 0), DUK_ASSERT_EXPR(duk_is_valid_index((thr), (idx))))
  5102. #define DUK_GET_TVAL_NEGIDX(thr,idx) \
  5103. (DUK_ASSERT_VALID_NEGIDX((thr),(idx)), ((duk_hthread *) (thr))->valstack_top + (idx))
  5104. #define DUK_GET_TVAL_POSIDX(thr,idx) \
  5105. (DUK_ASSERT_VALID_POSIDX((thr),(idx)), ((duk_hthread *) (thr))->valstack_bottom + (idx))
  5106. #define DUK_GET_HOBJECT_NEGIDX(thr,idx) \
  5107. (DUK_ASSERT_VALID_NEGIDX((thr),(idx)), DUK_TVAL_GET_OBJECT(((duk_hthread *) (thr))->valstack_top + (idx)))
  5108. #define DUK_GET_HOBJECT_POSIDX(thr,idx) \
  5109. (DUK_ASSERT_VALID_POSIDX((thr),(idx)), DUK_TVAL_GET_OBJECT(((duk_hthread *) (thr))->valstack_bottom + (idx)))
  5110. #define DUK_GET_THIS_TVAL_PTR(thr) \
  5111. (DUK_ASSERT_EXPR((thr)->valstack_bottom > (thr)->valstack), \
  5112. (thr)->valstack_bottom - 1)
  5113. DUK_INTERNAL_DECL duk_double_t duk_time_get_ecmascript_time(duk_hthread *thr);
  5114. DUK_INTERNAL_DECL duk_double_t duk_time_get_ecmascript_time_nofrac(duk_hthread *thr);
  5115. DUK_INTERNAL_DECL duk_double_t duk_time_get_monotonic_time(duk_hthread *thr);
  5116. #endif /* DUK_API_INTERNAL_H_INCLUDED */
  5117. /* #include duk_hstring.h */
  5118. #line 1 "duk_hstring.h"
  5119. /*
  5120. * Heap string representation.
  5121. *
  5122. * Strings are byte sequences ordinarily stored in extended UTF-8 format,
  5123. * allowing values larger than the official UTF-8 range (used internally)
  5124. * and also allowing UTF-8 encoding of surrogate pairs (CESU-8 format).
  5125. * Strings may also be invalid UTF-8 altogether which is the case e.g. with
  5126. * strings used as internal property names and raw buffers converted to
  5127. * strings. In such cases the 'clen' field contains an inaccurate value.
  5128. *
  5129. * Ecmascript requires support for 32-bit long strings. However, since each
  5130. * 16-bit codepoint can take 3 bytes in CESU-8, this representation can only
  5131. * support about 1.4G codepoint long strings in extreme cases. This is not
  5132. * really a practical issue.
  5133. */
  5134. #if !defined(DUK_HSTRING_H_INCLUDED)
  5135. #define DUK_HSTRING_H_INCLUDED
  5136. /* Impose a maximum string length for now. Restricted artificially to
  5137. * ensure adding a heap header length won't overflow size_t. The limit
  5138. * should be synchronized with DUK_HBUFFER_MAX_BYTELEN.
  5139. *
  5140. * E5.1 makes provisions to support strings longer than 4G characters.
  5141. * This limit should be eliminated on 64-bit platforms (and increased
  5142. * closer to maximum support on 32-bit platforms).
  5143. */
  5144. #if defined(DUK_USE_STRLEN16)
  5145. #define DUK_HSTRING_MAX_BYTELEN (0x0000ffffUL)
  5146. #else
  5147. #define DUK_HSTRING_MAX_BYTELEN (0x7fffffffUL)
  5148. #endif
  5149. /* XXX: could add flags for "is valid CESU-8" (Ecmascript compatible strings),
  5150. * "is valid UTF-8", "is valid extended UTF-8" (internal strings are not,
  5151. * regexp bytecode is), and "contains non-BMP characters". These are not
  5152. * needed right now.
  5153. */
  5154. #define DUK_HSTRING_FLAG_ASCII DUK_HEAPHDR_USER_FLAG(0) /* string is ASCII, clen == blen */
  5155. #define DUK_HSTRING_FLAG_ARRIDX DUK_HEAPHDR_USER_FLAG(1) /* string is a valid array index */
  5156. #define DUK_HSTRING_FLAG_SYMBOL DUK_HEAPHDR_USER_FLAG(2) /* string is a symbol (invalid utf-8) */
  5157. #define DUK_HSTRING_FLAG_HIDDEN DUK_HEAPHDR_USER_FLAG(3) /* string is a hidden symbol (implies symbol, Duktape 1.x internal string) */
  5158. #define DUK_HSTRING_FLAG_RESERVED_WORD DUK_HEAPHDR_USER_FLAG(4) /* string is a reserved word (non-strict) */
  5159. #define DUK_HSTRING_FLAG_STRICT_RESERVED_WORD DUK_HEAPHDR_USER_FLAG(5) /* string is a reserved word (strict) */
  5160. #define DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS DUK_HEAPHDR_USER_FLAG(6) /* string is 'eval' or 'arguments' */
  5161. #define DUK_HSTRING_FLAG_EXTDATA DUK_HEAPHDR_USER_FLAG(7) /* string data is external (duk_hstring_external) */
  5162. #define DUK_HSTRING_HAS_ASCII(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII)
  5163. #define DUK_HSTRING_HAS_ARRIDX(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX)
  5164. #define DUK_HSTRING_HAS_SYMBOL(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL)
  5165. #define DUK_HSTRING_HAS_HIDDEN(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN)
  5166. #define DUK_HSTRING_HAS_RESERVED_WORD(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD)
  5167. #define DUK_HSTRING_HAS_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD)
  5168. #define DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS)
  5169. #define DUK_HSTRING_HAS_EXTDATA(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA)
  5170. #define DUK_HSTRING_SET_ASCII(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII)
  5171. #define DUK_HSTRING_SET_ARRIDX(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX)
  5172. #define DUK_HSTRING_SET_SYMBOL(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL)
  5173. #define DUK_HSTRING_SET_HIDDEN(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN)
  5174. #define DUK_HSTRING_SET_RESERVED_WORD(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD)
  5175. #define DUK_HSTRING_SET_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD)
  5176. #define DUK_HSTRING_SET_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS)
  5177. #define DUK_HSTRING_SET_EXTDATA(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA)
  5178. #define DUK_HSTRING_CLEAR_ASCII(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII)
  5179. #define DUK_HSTRING_CLEAR_ARRIDX(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX)
  5180. #define DUK_HSTRING_CLEAR_SYMBOL(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL)
  5181. #define DUK_HSTRING_CLEAR_HIDDEN(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN)
  5182. #define DUK_HSTRING_CLEAR_RESERVED_WORD(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD)
  5183. #define DUK_HSTRING_CLEAR_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD)
  5184. #define DUK_HSTRING_CLEAR_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS)
  5185. #define DUK_HSTRING_CLEAR_EXTDATA(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA)
  5186. #if 0 /* Slightly smaller code without explicit flag, but explicit flag
  5187. * is very useful when 'clen' is dropped.
  5188. */
  5189. #define DUK_HSTRING_IS_ASCII(x) (DUK_HSTRING_GET_BYTELEN((x)) == DUK_HSTRING_GET_CHARLEN((x)))
  5190. #endif
  5191. #define DUK_HSTRING_IS_ASCII(x) DUK_HSTRING_HAS_ASCII((x)) /* lazily set! */
  5192. #define DUK_HSTRING_IS_EMPTY(x) (DUK_HSTRING_GET_BYTELEN((x)) == 0)
  5193. #if defined(DUK_USE_STRHASH16)
  5194. #define DUK_HSTRING_GET_HASH(x) ((x)->hdr.h_flags >> 16)
  5195. #define DUK_HSTRING_SET_HASH(x,v) do { \
  5196. (x)->hdr.h_flags = ((x)->hdr.h_flags & 0x0000ffffUL) | ((v) << 16); \
  5197. } while (0)
  5198. #else
  5199. #define DUK_HSTRING_GET_HASH(x) ((x)->hash)
  5200. #define DUK_HSTRING_SET_HASH(x,v) do { \
  5201. (x)->hash = (v); \
  5202. } while (0)
  5203. #endif
  5204. #if defined(DUK_USE_STRLEN16)
  5205. #define DUK_HSTRING_GET_BYTELEN(x) ((x)->hdr.h_strextra16)
  5206. #define DUK_HSTRING_SET_BYTELEN(x,v) do { \
  5207. (x)->hdr.h_strextra16 = (v); \
  5208. } while (0)
  5209. #if defined(DUK_USE_HSTRING_CLEN)
  5210. #define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x))
  5211. #define DUK_HSTRING_SET_CHARLEN(x,v) do { \
  5212. (x)->clen16 = (v); \
  5213. } while (0)
  5214. #else
  5215. #define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x))
  5216. #define DUK_HSTRING_SET_CHARLEN(x,v) do { \
  5217. DUK_ASSERT(0); /* should never be called */ \
  5218. } while (0)
  5219. #endif
  5220. #else
  5221. #define DUK_HSTRING_GET_BYTELEN(x) ((x)->blen)
  5222. #define DUK_HSTRING_SET_BYTELEN(x,v) do { \
  5223. (x)->blen = (v); \
  5224. } while (0)
  5225. #define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x))
  5226. #define DUK_HSTRING_SET_CHARLEN(x,v) do { \
  5227. (x)->clen = (v); \
  5228. } while (0)
  5229. #endif
  5230. #if defined(DUK_USE_HSTRING_EXTDATA)
  5231. #define DUK_HSTRING_GET_EXTDATA(x) \
  5232. ((x)->extdata)
  5233. #define DUK_HSTRING_GET_DATA(x) \
  5234. (DUK_HSTRING_HAS_EXTDATA((x)) ? \
  5235. DUK_HSTRING_GET_EXTDATA((const duk_hstring_external *) (x)) : ((const duk_uint8_t *) ((x) + 1)))
  5236. #else
  5237. #define DUK_HSTRING_GET_DATA(x) \
  5238. ((const duk_uint8_t *) ((x) + 1))
  5239. #endif
  5240. #define DUK_HSTRING_GET_DATA_END(x) \
  5241. (DUK_HSTRING_GET_DATA((x)) + (x)->blen)
  5242. /* Marker value; in E5 2^32-1 is not a valid array index (2^32-2 is highest
  5243. * valid).
  5244. */
  5245. #define DUK_HSTRING_NO_ARRAY_INDEX (0xffffffffUL)
  5246. #if defined(DUK_USE_HSTRING_ARRIDX)
  5247. #define DUK_HSTRING_GET_ARRIDX_FAST(h) ((h)->arridx)
  5248. #define DUK_HSTRING_GET_ARRIDX_SLOW(h) ((h)->arridx)
  5249. #else
  5250. /* Get array index related to string (or return DUK_HSTRING_NO_ARRAY_INDEX);
  5251. * avoids helper call if string has no array index value.
  5252. */
  5253. #define DUK_HSTRING_GET_ARRIDX_FAST(h) \
  5254. (DUK_HSTRING_HAS_ARRIDX((h)) ? duk_js_to_arrayindex_hstring_fast_known((h)) : DUK_HSTRING_NO_ARRAY_INDEX)
  5255. /* Slower but more compact variant. */
  5256. #define DUK_HSTRING_GET_ARRIDX_SLOW(h) \
  5257. (duk_js_to_arrayindex_hstring_fast((h)))
  5258. #endif
  5259. /* XXX: these actually fit into duk_hstring */
  5260. #define DUK_SYMBOL_TYPE_HIDDEN 0
  5261. #define DUK_SYMBOL_TYPE_GLOBAL 1
  5262. #define DUK_SYMBOL_TYPE_LOCAL 2
  5263. #define DUK_SYMBOL_TYPE_WELLKNOWN 3
  5264. /*
  5265. * Misc
  5266. */
  5267. struct duk_hstring {
  5268. /* Smaller heaphdr than for other objects, because strings are held
  5269. * in string intern table which requires no link pointers. Much of
  5270. * the 32-bit flags field is unused by flags, so we can stuff a 16-bit
  5271. * field in there.
  5272. */
  5273. duk_heaphdr_string hdr;
  5274. /* String hash. */
  5275. #if defined(DUK_USE_STRHASH16)
  5276. /* If 16-bit hash is in use, stuff it into duk_heaphdr_string flags. */
  5277. #else
  5278. duk_uint32_t hash;
  5279. #endif
  5280. /* Precomputed array index (or DUK_HSTRING_NO_ARRAY_INDEX). */
  5281. #if defined(DUK_USE_HSTRING_ARRIDX)
  5282. duk_uarridx_t arridx;
  5283. #endif
  5284. /* Length in bytes (not counting NUL term). */
  5285. #if defined(DUK_USE_STRLEN16)
  5286. /* placed in duk_heaphdr_string */
  5287. #else
  5288. duk_uint32_t blen;
  5289. #endif
  5290. /* Length in codepoints (must be E5 compatible). */
  5291. #if defined(DUK_USE_STRLEN16)
  5292. #if defined(DUK_USE_HSTRING_CLEN)
  5293. duk_uint16_t clen16;
  5294. #else
  5295. /* computed live */
  5296. #endif
  5297. #else
  5298. duk_uint32_t clen;
  5299. #endif
  5300. /*
  5301. * String data of 'blen+1' bytes follows (+1 for NUL termination
  5302. * convenience for C API). No alignment needs to be guaranteed
  5303. * for strings, but fields above should guarantee alignment-by-4
  5304. * (but not alignment-by-8).
  5305. */
  5306. };
  5307. /* The external string struct is defined even when the feature is inactive. */
  5308. struct duk_hstring_external {
  5309. duk_hstring str;
  5310. /*
  5311. * For an external string, the NUL-terminated string data is stored
  5312. * externally. The user must guarantee that data behind this pointer
  5313. * doesn't change while it's used.
  5314. */
  5315. const duk_uint8_t *extdata;
  5316. };
  5317. /*
  5318. * Prototypes
  5319. */
  5320. DUK_INTERNAL_DECL duk_ucodepoint_t duk_hstring_char_code_at_raw(duk_hthread *thr, duk_hstring *h, duk_uint_t pos, duk_bool_t surrogate_aware);
  5321. DUK_INTERNAL_DECL duk_bool_t duk_hstring_equals_ascii_cstring(duk_hstring *h, const char *cstr);
  5322. DUK_INTERNAL_DECL duk_size_t duk_hstring_get_charlen(duk_hstring *h);
  5323. #if !defined(DUK_USE_HSTRING_LAZY_CLEN)
  5324. DUK_INTERNAL_DECL void duk_hstring_init_charlen(duk_hstring *h);
  5325. #endif
  5326. #endif /* DUK_HSTRING_H_INCLUDED */
  5327. /* #include duk_hobject.h */
  5328. #line 1 "duk_hobject.h"
  5329. /*
  5330. * Heap object representation.
  5331. *
  5332. * Heap objects are used for Ecmascript objects, arrays, and functions,
  5333. * but also for internal control like declarative and object environment
  5334. * records. Compiled functions, native functions, and threads are also
  5335. * objects but with an extended C struct.
  5336. *
  5337. * Objects provide the required Ecmascript semantics and exotic behaviors
  5338. * especially for property access.
  5339. *
  5340. * Properties are stored in three conceptual parts:
  5341. *
  5342. * 1. A linear 'entry part' contains ordered key-value-attributes triples
  5343. * and is the main method of string properties.
  5344. *
  5345. * 2. An optional linear 'array part' is used for array objects to store a
  5346. * (dense) range of [0,N[ array indexed entries with default attributes
  5347. * (writable, enumerable, configurable). If the array part would become
  5348. * sparse or non-default attributes are required, the array part is
  5349. * abandoned and moved to the 'entry part'.
  5350. *
  5351. * 3. An optional 'hash part' is used to optimize lookups of the entry
  5352. * part; it is used only for objects with sufficiently many properties
  5353. * and can be abandoned without loss of information.
  5354. *
  5355. * These three conceptual parts are stored in a single memory allocated area.
  5356. * This minimizes memory allocation overhead but also means that all three
  5357. * parts are resized together, and makes property access a bit complicated.
  5358. */
  5359. #if !defined(DUK_HOBJECT_H_INCLUDED)
  5360. #define DUK_HOBJECT_H_INCLUDED
  5361. /* Object flags. Make sure this stays in sync with debugger object
  5362. * inspection code.
  5363. */
  5364. /* XXX: some flags are object subtype specific (e.g. common to all function
  5365. * subtypes, duk_harray, etc) and could be reused for different subtypes.
  5366. */
  5367. #define DUK_HOBJECT_FLAG_EXTENSIBLE DUK_HEAPHDR_USER_FLAG(0) /* object is extensible */
  5368. #define DUK_HOBJECT_FLAG_CONSTRUCTABLE DUK_HEAPHDR_USER_FLAG(1) /* object is constructable */
  5369. #define DUK_HOBJECT_FLAG_CALLABLE DUK_HEAPHDR_USER_FLAG(2) /* object is callable */
  5370. #define DUK_HOBJECT_FLAG_BOUNDFUNC DUK_HEAPHDR_USER_FLAG(3) /* object established using Function.prototype.bind() */
  5371. #define DUK_HOBJECT_FLAG_COMPFUNC DUK_HEAPHDR_USER_FLAG(4) /* object is a compiled function (duk_hcompfunc) */
  5372. #define DUK_HOBJECT_FLAG_NATFUNC DUK_HEAPHDR_USER_FLAG(5) /* object is a native function (duk_hnatfunc) */
  5373. #define DUK_HOBJECT_FLAG_BUFOBJ DUK_HEAPHDR_USER_FLAG(6) /* object is a buffer object (duk_hbufobj) (always exotic) */
  5374. #define DUK_HOBJECT_FLAG_FASTREFS DUK_HEAPHDR_USER_FLAG(7) /* object has no fields needing DECREF/marking beyond base duk_hobject header */
  5375. #define DUK_HOBJECT_FLAG_ARRAY_PART DUK_HEAPHDR_USER_FLAG(8) /* object has an array part (a_size may still be 0) */
  5376. #define DUK_HOBJECT_FLAG_STRICT DUK_HEAPHDR_USER_FLAG(9) /* function: function object is strict */
  5377. #define DUK_HOBJECT_FLAG_NOTAIL DUK_HEAPHDR_USER_FLAG(10) /* function: function must not be tail called */
  5378. #define DUK_HOBJECT_FLAG_NEWENV DUK_HEAPHDR_USER_FLAG(11) /* function: create new environment when called (see duk_hcompfunc) */
  5379. #define DUK_HOBJECT_FLAG_NAMEBINDING DUK_HEAPHDR_USER_FLAG(12) /* function: create binding for func name (function templates only, used for named function expressions) */
  5380. #define DUK_HOBJECT_FLAG_CREATEARGS DUK_HEAPHDR_USER_FLAG(13) /* function: create an arguments object on function call */
  5381. #define DUK_HOBJECT_FLAG_HAVE_FINALIZER DUK_HEAPHDR_USER_FLAG(14) /* object has a callable (own) finalizer property */
  5382. #define DUK_HOBJECT_FLAG_EXOTIC_ARRAY DUK_HEAPHDR_USER_FLAG(15) /* 'Array' object, array length and index exotic behavior */
  5383. #define DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ DUK_HEAPHDR_USER_FLAG(16) /* 'String' object, array index exotic behavior */
  5384. #define DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS DUK_HEAPHDR_USER_FLAG(17) /* 'Arguments' object and has arguments exotic behavior (non-strict callee) */
  5385. #define DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ DUK_HEAPHDR_USER_FLAG(18) /* 'Proxy' object */
  5386. #define DUK_HOBJECT_FLAG_SPECIAL_CALL DUK_HEAPHDR_USER_FLAG(19) /* special casing in call behavior, for .call(), .apply(), etc. */
  5387. #define DUK_HOBJECT_FLAG_CLASS_BASE DUK_HEAPHDR_USER_FLAG_NUMBER(20)
  5388. #define DUK_HOBJECT_FLAG_CLASS_BITS 5
  5389. #define DUK_HOBJECT_GET_CLASS_NUMBER(h) \
  5390. DUK_HEAPHDR_GET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS)
  5391. #define DUK_HOBJECT_SET_CLASS_NUMBER(h,v) \
  5392. DUK_HEAPHDR_SET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS, (v))
  5393. #define DUK_HOBJECT_GET_CLASS_MASK(h) \
  5394. (1UL << DUK_HEAPHDR_GET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS))
  5395. /* Macro for creating flag initializer from a class number.
  5396. * Unsigned type cast is needed to avoid warnings about coercing
  5397. * a signed integer to an unsigned one; the largest class values
  5398. * have the highest bit (bit 31) set which causes this.
  5399. */
  5400. #define DUK_HOBJECT_CLASS_AS_FLAGS(v) (((duk_uint_t) (v)) << DUK_HOBJECT_FLAG_CLASS_BASE)
  5401. /* E5 Section 8.6.2 + custom classes */
  5402. #define DUK_HOBJECT_CLASS_NONE 0
  5403. #define DUK_HOBJECT_CLASS_OBJECT 1
  5404. #define DUK_HOBJECT_CLASS_ARRAY 2
  5405. #define DUK_HOBJECT_CLASS_FUNCTION 3
  5406. #define DUK_HOBJECT_CLASS_ARGUMENTS 4
  5407. #define DUK_HOBJECT_CLASS_BOOLEAN 5
  5408. #define DUK_HOBJECT_CLASS_DATE 6
  5409. #define DUK_HOBJECT_CLASS_ERROR 7
  5410. #define DUK_HOBJECT_CLASS_JSON 8
  5411. #define DUK_HOBJECT_CLASS_MATH 9
  5412. #define DUK_HOBJECT_CLASS_NUMBER 10
  5413. #define DUK_HOBJECT_CLASS_REGEXP 11
  5414. #define DUK_HOBJECT_CLASS_STRING 12
  5415. #define DUK_HOBJECT_CLASS_GLOBAL 13
  5416. #define DUK_HOBJECT_CLASS_SYMBOL 14
  5417. #define DUK_HOBJECT_CLASS_OBJENV 15 /* custom */
  5418. #define DUK_HOBJECT_CLASS_DECENV 16 /* custom */
  5419. #define DUK_HOBJECT_CLASS_POINTER 17 /* custom */
  5420. #define DUK_HOBJECT_CLASS_THREAD 18 /* custom; implies DUK_HOBJECT_IS_THREAD */
  5421. #define DUK_HOBJECT_CLASS_BUFOBJ_MIN 19
  5422. #define DUK_HOBJECT_CLASS_ARRAYBUFFER 19 /* implies DUK_HOBJECT_IS_BUFOBJ */
  5423. #define DUK_HOBJECT_CLASS_DATAVIEW 20
  5424. #define DUK_HOBJECT_CLASS_INT8ARRAY 21
  5425. #define DUK_HOBJECT_CLASS_UINT8ARRAY 22
  5426. #define DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY 23
  5427. #define DUK_HOBJECT_CLASS_INT16ARRAY 24
  5428. #define DUK_HOBJECT_CLASS_UINT16ARRAY 25
  5429. #define DUK_HOBJECT_CLASS_INT32ARRAY 26
  5430. #define DUK_HOBJECT_CLASS_UINT32ARRAY 27
  5431. #define DUK_HOBJECT_CLASS_FLOAT32ARRAY 28
  5432. #define DUK_HOBJECT_CLASS_FLOAT64ARRAY 29
  5433. #define DUK_HOBJECT_CLASS_BUFOBJ_MAX 29
  5434. #define DUK_HOBJECT_CLASS_MAX 29
  5435. /* Class masks. */
  5436. #define DUK_HOBJECT_CMASK_ALL ((1UL << (DUK_HOBJECT_CLASS_MAX + 1)) - 1UL)
  5437. #define DUK_HOBJECT_CMASK_NONE (1UL << DUK_HOBJECT_CLASS_NONE)
  5438. #define DUK_HOBJECT_CMASK_ARGUMENTS (1UL << DUK_HOBJECT_CLASS_ARGUMENTS)
  5439. #define DUK_HOBJECT_CMASK_ARRAY (1UL << DUK_HOBJECT_CLASS_ARRAY)
  5440. #define DUK_HOBJECT_CMASK_BOOLEAN (1UL << DUK_HOBJECT_CLASS_BOOLEAN)
  5441. #define DUK_HOBJECT_CMASK_DATE (1UL << DUK_HOBJECT_CLASS_DATE)
  5442. #define DUK_HOBJECT_CMASK_ERROR (1UL << DUK_HOBJECT_CLASS_ERROR)
  5443. #define DUK_HOBJECT_CMASK_FUNCTION (1UL << DUK_HOBJECT_CLASS_FUNCTION)
  5444. #define DUK_HOBJECT_CMASK_JSON (1UL << DUK_HOBJECT_CLASS_JSON)
  5445. #define DUK_HOBJECT_CMASK_MATH (1UL << DUK_HOBJECT_CLASS_MATH)
  5446. #define DUK_HOBJECT_CMASK_NUMBER (1UL << DUK_HOBJECT_CLASS_NUMBER)
  5447. #define DUK_HOBJECT_CMASK_OBJECT (1UL << DUK_HOBJECT_CLASS_OBJECT)
  5448. #define DUK_HOBJECT_CMASK_REGEXP (1UL << DUK_HOBJECT_CLASS_REGEXP)
  5449. #define DUK_HOBJECT_CMASK_STRING (1UL << DUK_HOBJECT_CLASS_STRING)
  5450. #define DUK_HOBJECT_CMASK_GLOBAL (1UL << DUK_HOBJECT_CLASS_GLOBAL)
  5451. #define DUK_HOBJECT_CMASK_SYMBOL (1UL << DUK_HOBJECT_CLASS_SYMBOL)
  5452. #define DUK_HOBJECT_CMASK_OBJENV (1UL << DUK_HOBJECT_CLASS_OBJENV)
  5453. #define DUK_HOBJECT_CMASK_DECENV (1UL << DUK_HOBJECT_CLASS_DECENV)
  5454. #define DUK_HOBJECT_CMASK_POINTER (1UL << DUK_HOBJECT_CLASS_POINTER)
  5455. #define DUK_HOBJECT_CMASK_ARRAYBUFFER (1UL << DUK_HOBJECT_CLASS_ARRAYBUFFER)
  5456. #define DUK_HOBJECT_CMASK_DATAVIEW (1UL << DUK_HOBJECT_CLASS_DATAVIEW)
  5457. #define DUK_HOBJECT_CMASK_INT8ARRAY (1UL << DUK_HOBJECT_CLASS_INT8ARRAY)
  5458. #define DUK_HOBJECT_CMASK_UINT8ARRAY (1UL << DUK_HOBJECT_CLASS_UINT8ARRAY)
  5459. #define DUK_HOBJECT_CMASK_UINT8CLAMPEDARRAY (1UL << DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY)
  5460. #define DUK_HOBJECT_CMASK_INT16ARRAY (1UL << DUK_HOBJECT_CLASS_INT16ARRAY)
  5461. #define DUK_HOBJECT_CMASK_UINT16ARRAY (1UL << DUK_HOBJECT_CLASS_UINT16ARRAY)
  5462. #define DUK_HOBJECT_CMASK_INT32ARRAY (1UL << DUK_HOBJECT_CLASS_INT32ARRAY)
  5463. #define DUK_HOBJECT_CMASK_UINT32ARRAY (1UL << DUK_HOBJECT_CLASS_UINT32ARRAY)
  5464. #define DUK_HOBJECT_CMASK_FLOAT32ARRAY (1UL << DUK_HOBJECT_CLASS_FLOAT32ARRAY)
  5465. #define DUK_HOBJECT_CMASK_FLOAT64ARRAY (1UL << DUK_HOBJECT_CLASS_FLOAT64ARRAY)
  5466. #define DUK_HOBJECT_CMASK_ALL_BUFOBJS \
  5467. (DUK_HOBJECT_CMASK_ARRAYBUFFER | \
  5468. DUK_HOBJECT_CMASK_DATAVIEW | \
  5469. DUK_HOBJECT_CMASK_INT8ARRAY | \
  5470. DUK_HOBJECT_CMASK_UINT8ARRAY | \
  5471. DUK_HOBJECT_CMASK_UINT8CLAMPEDARRAY | \
  5472. DUK_HOBJECT_CMASK_INT16ARRAY | \
  5473. DUK_HOBJECT_CMASK_UINT16ARRAY | \
  5474. DUK_HOBJECT_CMASK_INT32ARRAY | \
  5475. DUK_HOBJECT_CMASK_UINT32ARRAY | \
  5476. DUK_HOBJECT_CMASK_FLOAT32ARRAY | \
  5477. DUK_HOBJECT_CMASK_FLOAT64ARRAY)
  5478. #define DUK_HOBJECT_IS_OBJENV(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_OBJENV)
  5479. #define DUK_HOBJECT_IS_DECENV(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_DECENV)
  5480. #define DUK_HOBJECT_IS_ENV(h) (DUK_HOBJECT_IS_OBJENV((h)) || DUK_HOBJECT_IS_DECENV((h)))
  5481. #define DUK_HOBJECT_IS_ARRAY(h) DUK_HOBJECT_HAS_EXOTIC_ARRAY((h)) /* Rely on class Array <=> exotic Array */
  5482. #define DUK_HOBJECT_IS_BOUNDFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC)
  5483. #define DUK_HOBJECT_IS_COMPFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC)
  5484. #define DUK_HOBJECT_IS_NATFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC)
  5485. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  5486. #define DUK_HOBJECT_IS_BUFOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ)
  5487. #else
  5488. #define DUK_HOBJECT_IS_BUFOBJ(h) 0
  5489. #endif
  5490. #define DUK_HOBJECT_IS_THREAD(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_THREAD)
  5491. #if defined(DUK_USE_ES6_PROXY)
  5492. #define DUK_HOBJECT_IS_PROXY(h) DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ((h))
  5493. #else
  5494. #define DUK_HOBJECT_IS_PROXY(h) 0
  5495. #endif
  5496. #define DUK_HOBJECT_IS_NONBOUND_FUNCTION(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, \
  5497. DUK_HOBJECT_FLAG_COMPFUNC | \
  5498. DUK_HOBJECT_FLAG_NATFUNC)
  5499. #define DUK_HOBJECT_IS_FUNCTION(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, \
  5500. DUK_HOBJECT_FLAG_BOUNDFUNC | \
  5501. DUK_HOBJECT_FLAG_COMPFUNC | \
  5502. DUK_HOBJECT_FLAG_NATFUNC)
  5503. #define DUK_HOBJECT_IS_CALLABLE(h) DUK_HOBJECT_HAS_CALLABLE((h))
  5504. /* Object has any exotic behavior(s). */
  5505. #define DUK_HOBJECT_EXOTIC_BEHAVIOR_FLAGS (DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \
  5506. DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS | \
  5507. DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | \
  5508. DUK_HOBJECT_FLAG_BUFOBJ | \
  5509. DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ)
  5510. #define DUK_HOBJECT_HAS_EXOTIC_BEHAVIOR(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_EXOTIC_BEHAVIOR_FLAGS)
  5511. /* Object has any virtual properties (not counting Proxy behavior). */
  5512. #define DUK_HOBJECT_VIRTUAL_PROPERTY_FLAGS (DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \
  5513. DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | \
  5514. DUK_HOBJECT_FLAG_BUFOBJ)
  5515. #define DUK_HOBJECT_HAS_VIRTUAL_PROPERTIES(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_VIRTUAL_PROPERTY_FLAGS)
  5516. #define DUK_HOBJECT_HAS_EXTENSIBLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE)
  5517. #define DUK_HOBJECT_HAS_CONSTRUCTABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE)
  5518. #define DUK_HOBJECT_HAS_CALLABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE)
  5519. #define DUK_HOBJECT_HAS_BOUNDFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC)
  5520. #define DUK_HOBJECT_HAS_COMPFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC)
  5521. #define DUK_HOBJECT_HAS_NATFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC)
  5522. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  5523. #define DUK_HOBJECT_HAS_BUFOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ)
  5524. #else
  5525. #define DUK_HOBJECT_HAS_BUFOBJ(h) 0
  5526. #endif
  5527. #define DUK_HOBJECT_HAS_FASTREFS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS)
  5528. #define DUK_HOBJECT_HAS_ARRAY_PART(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART)
  5529. #define DUK_HOBJECT_HAS_STRICT(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT)
  5530. #define DUK_HOBJECT_HAS_NOTAIL(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL)
  5531. #define DUK_HOBJECT_HAS_NEWENV(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV)
  5532. #define DUK_HOBJECT_HAS_NAMEBINDING(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING)
  5533. #define DUK_HOBJECT_HAS_CREATEARGS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS)
  5534. #define DUK_HOBJECT_HAS_HAVE_FINALIZER(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER)
  5535. #define DUK_HOBJECT_HAS_EXOTIC_ARRAY(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY)
  5536. #define DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ)
  5537. #define DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS)
  5538. #if defined(DUK_USE_ES6_PROXY)
  5539. #define DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ)
  5540. #else
  5541. #define DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h) 0
  5542. #endif
  5543. #define DUK_HOBJECT_HAS_SPECIAL_CALL(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL)
  5544. #define DUK_HOBJECT_SET_EXTENSIBLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE)
  5545. #define DUK_HOBJECT_SET_CONSTRUCTABLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE)
  5546. #define DUK_HOBJECT_SET_CALLABLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE)
  5547. #define DUK_HOBJECT_SET_BOUNDFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC)
  5548. #define DUK_HOBJECT_SET_COMPFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC)
  5549. #define DUK_HOBJECT_SET_NATFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC)
  5550. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  5551. #define DUK_HOBJECT_SET_BUFOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ)
  5552. #endif
  5553. #define DUK_HOBJECT_SET_FASTREFS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS)
  5554. #define DUK_HOBJECT_SET_ARRAY_PART(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART)
  5555. #define DUK_HOBJECT_SET_STRICT(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT)
  5556. #define DUK_HOBJECT_SET_NOTAIL(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL)
  5557. #define DUK_HOBJECT_SET_NEWENV(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV)
  5558. #define DUK_HOBJECT_SET_NAMEBINDING(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING)
  5559. #define DUK_HOBJECT_SET_CREATEARGS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS)
  5560. #define DUK_HOBJECT_SET_HAVE_FINALIZER(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER)
  5561. #define DUK_HOBJECT_SET_EXOTIC_ARRAY(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY)
  5562. #define DUK_HOBJECT_SET_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ)
  5563. #define DUK_HOBJECT_SET_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS)
  5564. #if defined(DUK_USE_ES6_PROXY)
  5565. #define DUK_HOBJECT_SET_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ)
  5566. #endif
  5567. #define DUK_HOBJECT_SET_SPECIAL_CALL(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL)
  5568. #define DUK_HOBJECT_CLEAR_EXTENSIBLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE)
  5569. #define DUK_HOBJECT_CLEAR_CONSTRUCTABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE)
  5570. #define DUK_HOBJECT_CLEAR_CALLABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE)
  5571. #define DUK_HOBJECT_CLEAR_BOUNDFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC)
  5572. #define DUK_HOBJECT_CLEAR_COMPFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC)
  5573. #define DUK_HOBJECT_CLEAR_NATFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC)
  5574. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  5575. #define DUK_HOBJECT_CLEAR_BUFOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ)
  5576. #endif
  5577. #define DUK_HOBJECT_CLEAR_FASTREFS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS)
  5578. #define DUK_HOBJECT_CLEAR_ARRAY_PART(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART)
  5579. #define DUK_HOBJECT_CLEAR_STRICT(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT)
  5580. #define DUK_HOBJECT_CLEAR_NOTAIL(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL)
  5581. #define DUK_HOBJECT_CLEAR_NEWENV(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV)
  5582. #define DUK_HOBJECT_CLEAR_NAMEBINDING(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING)
  5583. #define DUK_HOBJECT_CLEAR_CREATEARGS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS)
  5584. #define DUK_HOBJECT_CLEAR_HAVE_FINALIZER(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER)
  5585. #define DUK_HOBJECT_CLEAR_EXOTIC_ARRAY(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY)
  5586. #define DUK_HOBJECT_CLEAR_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ)
  5587. #define DUK_HOBJECT_CLEAR_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS)
  5588. #if defined(DUK_USE_ES6_PROXY)
  5589. #define DUK_HOBJECT_CLEAR_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ)
  5590. #endif
  5591. #define DUK_HOBJECT_CLEAR_SPECIAL_CALL(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL)
  5592. /* Object can/cannot use FASTREFS, i.e. has no strong reference fields beyond
  5593. * duk_hobject base header. This is used just for asserts so doesn't need to
  5594. * be optimized.
  5595. */
  5596. #define DUK_HOBJECT_PROHIBITS_FASTREFS(h) \
  5597. (DUK_HOBJECT_IS_COMPFUNC((h)) || DUK_HOBJECT_IS_DECENV((h)) || DUK_HOBJECT_IS_OBJENV((h)) || \
  5598. DUK_HOBJECT_IS_BUFOBJ((h)) || DUK_HOBJECT_IS_THREAD((h)) || DUK_HOBJECT_IS_PROXY((h)) || \
  5599. DUK_HOBJECT_IS_BOUNDFUNC((h)))
  5600. #define DUK_HOBJECT_ALLOWS_FASTREFS(h) (!DUK_HOBJECT_PROHIBITS_FASTREFS((h)))
  5601. /* Flags used for property attributes in duk_propdesc and packed flags.
  5602. * Must fit into 8 bits.
  5603. */
  5604. #define DUK_PROPDESC_FLAG_WRITABLE (1U << 0) /* E5 Section 8.6.1 */
  5605. #define DUK_PROPDESC_FLAG_ENUMERABLE (1U << 1) /* E5 Section 8.6.1 */
  5606. #define DUK_PROPDESC_FLAG_CONFIGURABLE (1U << 2) /* E5 Section 8.6.1 */
  5607. #define DUK_PROPDESC_FLAG_ACCESSOR (1U << 3) /* accessor */
  5608. #define DUK_PROPDESC_FLAG_VIRTUAL (1U << 4) /* property is virtual: used in duk_propdesc, never stored
  5609. * (used by e.g. buffer virtual properties)
  5610. */
  5611. #define DUK_PROPDESC_FLAGS_MASK (DUK_PROPDESC_FLAG_WRITABLE | \
  5612. DUK_PROPDESC_FLAG_ENUMERABLE | \
  5613. DUK_PROPDESC_FLAG_CONFIGURABLE | \
  5614. DUK_PROPDESC_FLAG_ACCESSOR)
  5615. /* Additional flags which are passed in the same flags argument as property
  5616. * flags but are not stored in object properties.
  5617. */
  5618. #define DUK_PROPDESC_FLAG_NO_OVERWRITE (1U << 4) /* internal define property: skip write silently if exists */
  5619. /* Convenience defines for property attributes. */
  5620. #define DUK_PROPDESC_FLAGS_NONE 0
  5621. #define DUK_PROPDESC_FLAGS_W (DUK_PROPDESC_FLAG_WRITABLE)
  5622. #define DUK_PROPDESC_FLAGS_E (DUK_PROPDESC_FLAG_ENUMERABLE)
  5623. #define DUK_PROPDESC_FLAGS_C (DUK_PROPDESC_FLAG_CONFIGURABLE)
  5624. #define DUK_PROPDESC_FLAGS_WE (DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_ENUMERABLE)
  5625. #define DUK_PROPDESC_FLAGS_WC (DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_CONFIGURABLE)
  5626. #define DUK_PROPDESC_FLAGS_EC (DUK_PROPDESC_FLAG_ENUMERABLE | DUK_PROPDESC_FLAG_CONFIGURABLE)
  5627. #define DUK_PROPDESC_FLAGS_WEC (DUK_PROPDESC_FLAG_WRITABLE | \
  5628. DUK_PROPDESC_FLAG_ENUMERABLE | \
  5629. DUK_PROPDESC_FLAG_CONFIGURABLE)
  5630. /* Flags for duk_hobject_get_own_propdesc() and variants. */
  5631. #define DUK_GETDESC_FLAG_PUSH_VALUE (1U << 0) /* push value to stack */
  5632. #define DUK_GETDESC_FLAG_IGNORE_PROTOLOOP (1U << 1) /* don't throw for prototype loop */
  5633. /*
  5634. * Macro for object validity check
  5635. *
  5636. * Assert for currently guaranteed relations between flags, for instance.
  5637. */
  5638. #define DUK_ASSERT_HOBJECT_VALID(h) do { \
  5639. DUK_ASSERT((h) != NULL); \
  5640. DUK_ASSERT(!DUK_HOBJECT_IS_CALLABLE((h)) || \
  5641. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_FUNCTION); \
  5642. DUK_ASSERT(!DUK_HOBJECT_IS_BUFOBJ((h)) || \
  5643. (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_ARRAYBUFFER || \
  5644. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_DATAVIEW || \
  5645. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_INT8ARRAY || \
  5646. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_UINT8ARRAY || \
  5647. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY || \
  5648. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_INT16ARRAY || \
  5649. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_UINT16ARRAY || \
  5650. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_INT32ARRAY || \
  5651. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_UINT32ARRAY || \
  5652. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_FLOAT32ARRAY || \
  5653. DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_FLOAT64ARRAY)); \
  5654. /* Object is an Array <=> object has exotic array behavior */ \
  5655. DUK_ASSERT((DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_ARRAY && DUK_HOBJECT_HAS_EXOTIC_ARRAY((h))) || \
  5656. (DUK_HOBJECT_GET_CLASS_NUMBER((h)) != DUK_HOBJECT_CLASS_ARRAY && !DUK_HOBJECT_HAS_EXOTIC_ARRAY((h)))); \
  5657. } while (0)
  5658. /*
  5659. * Macros to access the 'props' allocation.
  5660. */
  5661. #if defined(DUK_USE_HEAPPTR16)
  5662. #define DUK_HOBJECT_GET_PROPS(heap,h) \
  5663. ((duk_uint8_t *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, ((duk_heaphdr *) (h))->h_extra16))
  5664. #define DUK_HOBJECT_SET_PROPS(heap,h,x) do { \
  5665. ((duk_heaphdr *) (h))->h_extra16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (x)); \
  5666. } while (0)
  5667. #else
  5668. #define DUK_HOBJECT_GET_PROPS(heap,h) \
  5669. ((h)->props)
  5670. #define DUK_HOBJECT_SET_PROPS(heap,h,x) do { \
  5671. (h)->props = (duk_uint8_t *) (x); \
  5672. } while (0)
  5673. #endif
  5674. #if defined(DUK_USE_HOBJECT_LAYOUT_1)
  5675. /* LAYOUT 1 */
  5676. #define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \
  5677. ((duk_hstring **) (void *) ( \
  5678. DUK_HOBJECT_GET_PROPS((heap), (h)) \
  5679. ))
  5680. #define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \
  5681. ((duk_propvalue *) (void *) ( \
  5682. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5683. DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_hstring *) \
  5684. ))
  5685. #define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \
  5686. ((duk_uint8_t *) (void *) ( \
  5687. DUK_HOBJECT_GET_PROPS((heap), (h)) + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue)) \
  5688. ))
  5689. #define DUK_HOBJECT_A_GET_BASE(heap,h) \
  5690. ((duk_tval *) (void *) ( \
  5691. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5692. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) \
  5693. ))
  5694. #define DUK_HOBJECT_H_GET_BASE(heap,h) \
  5695. ((duk_uint32_t *) (void *) ( \
  5696. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5697. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \
  5698. DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \
  5699. ))
  5700. #define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \
  5701. ( \
  5702. (n_ent) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \
  5703. (n_arr) * sizeof(duk_tval) + \
  5704. (n_hash) * sizeof(duk_uint32_t) \
  5705. )
  5706. #define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \
  5707. (set_e_k) = (duk_hstring **) (void *) (p_base); \
  5708. (set_e_pv) = (duk_propvalue *) (void *) ((set_e_k) + (n_ent)); \
  5709. (set_e_f) = (duk_uint8_t *) (void *) ((set_e_pv) + (n_ent)); \
  5710. (set_a) = (duk_tval *) (void *) ((set_e_f) + (n_ent)); \
  5711. (set_h) = (duk_uint32_t *) (void *) ((set_a) + (n_arr)); \
  5712. } while (0)
  5713. #elif defined(DUK_USE_HOBJECT_LAYOUT_2)
  5714. /* LAYOUT 2 */
  5715. #if (DUK_USE_ALIGN_BY == 4)
  5716. #define DUK_HOBJECT_E_FLAG_PADDING(e_sz) ((4 - (e_sz)) & 0x03)
  5717. #elif (DUK_USE_ALIGN_BY == 8)
  5718. #define DUK_HOBJECT_E_FLAG_PADDING(e_sz) ((8 - (e_sz)) & 0x07)
  5719. #elif (DUK_USE_ALIGN_BY == 1)
  5720. #define DUK_HOBJECT_E_FLAG_PADDING(e_sz) 0
  5721. #else
  5722. #error invalid DUK_USE_ALIGN_BY
  5723. #endif
  5724. #define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \
  5725. ((duk_hstring **) (void *) ( \
  5726. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5727. DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) \
  5728. ))
  5729. #define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \
  5730. ((duk_propvalue *) (void *) ( \
  5731. DUK_HOBJECT_GET_PROPS((heap), (h)) \
  5732. ))
  5733. #define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \
  5734. ((duk_uint8_t *) (void *) ( \
  5735. DUK_HOBJECT_GET_PROPS((heap), (h)) + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue)) \
  5736. ))
  5737. #define DUK_HOBJECT_A_GET_BASE(heap,h) \
  5738. ((duk_tval *) (void *) ( \
  5739. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5740. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \
  5741. DUK_HOBJECT_E_FLAG_PADDING(DUK_HOBJECT_GET_ESIZE((h))) \
  5742. ))
  5743. #define DUK_HOBJECT_H_GET_BASE(heap,h) \
  5744. ((duk_uint32_t *) (void *) ( \
  5745. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5746. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \
  5747. DUK_HOBJECT_E_FLAG_PADDING(DUK_HOBJECT_GET_ESIZE((h))) + \
  5748. DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \
  5749. ))
  5750. #define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \
  5751. ( \
  5752. (n_ent) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \
  5753. DUK_HOBJECT_E_FLAG_PADDING((n_ent)) + \
  5754. (n_arr) * sizeof(duk_tval) + \
  5755. (n_hash) * sizeof(duk_uint32_t) \
  5756. )
  5757. #define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \
  5758. (set_e_pv) = (duk_propvalue *) (void *) (p_base); \
  5759. (set_e_k) = (duk_hstring **) (void *) ((set_e_pv) + (n_ent)); \
  5760. (set_e_f) = (duk_uint8_t *) (void *) ((set_e_k) + (n_ent)); \
  5761. (set_a) = (duk_tval *) (void *) (((duk_uint8_t *) (set_e_f)) + \
  5762. sizeof(duk_uint8_t) * (n_ent) + \
  5763. DUK_HOBJECT_E_FLAG_PADDING((n_ent))); \
  5764. (set_h) = (duk_uint32_t *) (void *) ((set_a) + (n_arr)); \
  5765. } while (0)
  5766. #elif defined(DUK_USE_HOBJECT_LAYOUT_3)
  5767. /* LAYOUT 3 */
  5768. #define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \
  5769. ((duk_hstring **) (void *) ( \
  5770. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5771. DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) + \
  5772. DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \
  5773. ))
  5774. #define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \
  5775. ((duk_propvalue *) (void *) ( \
  5776. DUK_HOBJECT_GET_PROPS((heap), (h)) \
  5777. ))
  5778. #define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \
  5779. ((duk_uint8_t *) (void *) ( \
  5780. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5781. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_propvalue) + sizeof(duk_hstring *)) + \
  5782. DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) + \
  5783. DUK_HOBJECT_GET_HSIZE((h)) * sizeof(duk_uint32_t) \
  5784. ))
  5785. #define DUK_HOBJECT_A_GET_BASE(heap,h) \
  5786. ((duk_tval *) (void *) ( \
  5787. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5788. DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) \
  5789. ))
  5790. #define DUK_HOBJECT_H_GET_BASE(heap,h) \
  5791. ((duk_uint32_t *) (void *) ( \
  5792. DUK_HOBJECT_GET_PROPS((heap), (h)) + \
  5793. DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_propvalue) + sizeof(duk_hstring *)) + \
  5794. DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \
  5795. ))
  5796. #define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \
  5797. ( \
  5798. (n_ent) * (sizeof(duk_propvalue) + sizeof(duk_hstring *) + sizeof(duk_uint8_t)) + \
  5799. (n_arr) * sizeof(duk_tval) + \
  5800. (n_hash) * sizeof(duk_uint32_t) \
  5801. )
  5802. #define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \
  5803. (set_e_pv) = (duk_propvalue *) (void *) (p_base); \
  5804. (set_a) = (duk_tval *) (void *) ((set_e_pv) + (n_ent)); \
  5805. (set_e_k) = (duk_hstring **) (void *) ((set_a) + (n_arr)); \
  5806. (set_h) = (duk_uint32_t *) (void *) ((set_e_k) + (n_ent)); \
  5807. (set_e_f) = (duk_uint8_t *) (void *) ((set_h) + (n_hash)); \
  5808. } while (0)
  5809. #else
  5810. #error invalid hobject layout defines
  5811. #endif /* hobject property layout */
  5812. #define DUK_HOBJECT_P_ALLOC_SIZE(h) \
  5813. DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE((h)), DUK_HOBJECT_GET_ASIZE((h)), DUK_HOBJECT_GET_HSIZE((h)))
  5814. #define DUK_HOBJECT_E_GET_KEY(heap,h,i) (DUK_HOBJECT_E_GET_KEY_BASE((heap), (h))[(i)])
  5815. #define DUK_HOBJECT_E_GET_KEY_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_KEY_BASE((heap), (h))[(i)])
  5816. #define DUK_HOBJECT_E_GET_VALUE(heap,h,i) (DUK_HOBJECT_E_GET_VALUE_BASE((heap), (h))[(i)])
  5817. #define DUK_HOBJECT_E_GET_VALUE_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE_BASE((heap), (h))[(i)])
  5818. #define DUK_HOBJECT_E_GET_VALUE_TVAL(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v)
  5819. #define DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v)
  5820. #define DUK_HOBJECT_E_GET_VALUE_GETTER(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get)
  5821. #define DUK_HOBJECT_E_GET_VALUE_GETTER_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get)
  5822. #define DUK_HOBJECT_E_GET_VALUE_SETTER(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set)
  5823. #define DUK_HOBJECT_E_GET_VALUE_SETTER_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set)
  5824. #define DUK_HOBJECT_E_GET_FLAGS(heap,h,i) (DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)])
  5825. #define DUK_HOBJECT_E_GET_FLAGS_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)])
  5826. #define DUK_HOBJECT_A_GET_VALUE(heap,h,i) (DUK_HOBJECT_A_GET_BASE((heap), (h))[(i)])
  5827. #define DUK_HOBJECT_A_GET_VALUE_PTR(heap,h,i) (&DUK_HOBJECT_A_GET_BASE((heap), (h))[(i)])
  5828. #define DUK_HOBJECT_H_GET_INDEX(heap,h,i) (DUK_HOBJECT_H_GET_BASE((heap), (h))[(i)])
  5829. #define DUK_HOBJECT_H_GET_INDEX_PTR(heap,h,i) (&DUK_HOBJECT_H_GET_BASE((heap), (h))[(i)])
  5830. #define DUK_HOBJECT_E_SET_KEY(heap,h,i,k) do { \
  5831. DUK_HOBJECT_E_GET_KEY((heap), (h), (i)) = (k); \
  5832. } while (0)
  5833. #define DUK_HOBJECT_E_SET_VALUE(heap,h,i,v) do { \
  5834. DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)) = (v); \
  5835. } while (0)
  5836. #define DUK_HOBJECT_E_SET_VALUE_TVAL(heap,h,i,v) do { \
  5837. DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v = (v); \
  5838. } while (0)
  5839. #define DUK_HOBJECT_E_SET_VALUE_GETTER(heap,h,i,v) do { \
  5840. DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get = (v); \
  5841. } while (0)
  5842. #define DUK_HOBJECT_E_SET_VALUE_SETTER(heap,h,i,v) do { \
  5843. DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set = (v); \
  5844. } while (0)
  5845. #define DUK_HOBJECT_E_SET_FLAGS(heap,h,i,f) do { \
  5846. DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) = (duk_uint8_t) (f); \
  5847. } while (0)
  5848. #define DUK_HOBJECT_A_SET_VALUE(heap,h,i,v) do { \
  5849. DUK_HOBJECT_A_GET_VALUE((heap), (h), (i)) = (v); \
  5850. } while (0)
  5851. #define DUK_HOBJECT_A_SET_VALUE_TVAL(heap,h,i,v) \
  5852. DUK_HOBJECT_A_SET_VALUE((heap), (h), (i), (v)) /* alias for above */
  5853. #define DUK_HOBJECT_H_SET_INDEX(heap,h,i,v) do { \
  5854. DUK_HOBJECT_H_GET_INDEX((heap), (h), (i)) = (v); \
  5855. } while (0)
  5856. #define DUK_HOBJECT_E_SET_FLAG_BITS(heap,h,i,mask) do { \
  5857. DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)] |= (mask); \
  5858. } while (0)
  5859. #define DUK_HOBJECT_E_CLEAR_FLAG_BITS(heap,h,i,mask) do { \
  5860. DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)] &= ~(mask); \
  5861. } while (0)
  5862. #define DUK_HOBJECT_E_SLOT_IS_WRITABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_WRITABLE) != 0)
  5863. #define DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_ENUMERABLE) != 0)
  5864. #define DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_CONFIGURABLE) != 0)
  5865. #define DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_ACCESSOR) != 0)
  5866. #define DUK_HOBJECT_E_SLOT_SET_WRITABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_WRITABLE)
  5867. #define DUK_HOBJECT_E_SLOT_SET_ENUMERABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ENUMERABLE)
  5868. #define DUK_HOBJECT_E_SLOT_SET_CONFIGURABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_CONFIGURABLE)
  5869. #define DUK_HOBJECT_E_SLOT_SET_ACCESSOR(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ACCESSOR)
  5870. #define DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_WRITABLE)
  5871. #define DUK_HOBJECT_E_SLOT_CLEAR_ENUMERABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ENUMERABLE)
  5872. #define DUK_HOBJECT_E_SLOT_CLEAR_CONFIGURABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_CONFIGURABLE)
  5873. #define DUK_HOBJECT_E_SLOT_CLEAR_ACCESSOR(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ACCESSOR)
  5874. #define DUK_PROPDESC_IS_WRITABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_WRITABLE) != 0)
  5875. #define DUK_PROPDESC_IS_ENUMERABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_ENUMERABLE) != 0)
  5876. #define DUK_PROPDESC_IS_CONFIGURABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_CONFIGURABLE) != 0)
  5877. #define DUK_PROPDESC_IS_ACCESSOR(p) (((p)->flags & DUK_PROPDESC_FLAG_ACCESSOR) != 0)
  5878. #define DUK_HOBJECT_HASHIDX_UNUSED 0xffffffffUL
  5879. #define DUK_HOBJECT_HASHIDX_DELETED 0xfffffffeUL
  5880. /*
  5881. * Macros for accessing size fields
  5882. */
  5883. #if defined(DUK_USE_OBJSIZES16)
  5884. #define DUK_HOBJECT_GET_ESIZE(h) ((h)->e_size16)
  5885. #define DUK_HOBJECT_SET_ESIZE(h,v) do { (h)->e_size16 = (v); } while (0)
  5886. #define DUK_HOBJECT_GET_ENEXT(h) ((h)->e_next16)
  5887. #define DUK_HOBJECT_SET_ENEXT(h,v) do { (h)->e_next16 = (v); } while (0)
  5888. #define DUK_HOBJECT_POSTINC_ENEXT(h) ((h)->e_next16++)
  5889. #define DUK_HOBJECT_GET_ASIZE(h) ((h)->a_size16)
  5890. #define DUK_HOBJECT_SET_ASIZE(h,v) do { (h)->a_size16 = (v); } while (0)
  5891. #if defined(DUK_USE_HOBJECT_HASH_PART)
  5892. #define DUK_HOBJECT_GET_HSIZE(h) ((h)->h_size16)
  5893. #define DUK_HOBJECT_SET_HSIZE(h,v) do { (h)->h_size16 = (v); } while (0)
  5894. #else
  5895. #define DUK_HOBJECT_GET_HSIZE(h) 0
  5896. #define DUK_HOBJECT_SET_HSIZE(h,v) do { DUK_ASSERT((v) == 0); } while (0)
  5897. #endif
  5898. #else
  5899. #define DUK_HOBJECT_GET_ESIZE(h) ((h)->e_size)
  5900. #define DUK_HOBJECT_SET_ESIZE(h,v) do { (h)->e_size = (v); } while (0)
  5901. #define DUK_HOBJECT_GET_ENEXT(h) ((h)->e_next)
  5902. #define DUK_HOBJECT_SET_ENEXT(h,v) do { (h)->e_next = (v); } while (0)
  5903. #define DUK_HOBJECT_POSTINC_ENEXT(h) ((h)->e_next++)
  5904. #define DUK_HOBJECT_GET_ASIZE(h) ((h)->a_size)
  5905. #define DUK_HOBJECT_SET_ASIZE(h,v) do { (h)->a_size = (v); } while (0)
  5906. #if defined(DUK_USE_HOBJECT_HASH_PART)
  5907. #define DUK_HOBJECT_GET_HSIZE(h) ((h)->h_size)
  5908. #define DUK_HOBJECT_SET_HSIZE(h,v) do { (h)->h_size = (v); } while (0)
  5909. #else
  5910. #define DUK_HOBJECT_GET_HSIZE(h) 0
  5911. #define DUK_HOBJECT_SET_HSIZE(h,v) do { DUK_ASSERT((v) == 0); } while (0)
  5912. #endif
  5913. #endif
  5914. /*
  5915. * Misc
  5916. */
  5917. /* Maximum prototype traversal depth. Sanity limit which handles e.g.
  5918. * prototype loops (even complex ones like 1->2->3->4->2->3->4->2->3->4).
  5919. */
  5920. #define DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY 10000L
  5921. /*
  5922. * Ecmascript [[Class]]
  5923. */
  5924. /* range check not necessary because all 4-bit values are mapped */
  5925. #define DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(n) duk_class_number_to_stridx[(n)]
  5926. #define DUK_HOBJECT_GET_CLASS_STRING(heap,h) \
  5927. DUK_HEAP_GET_STRING( \
  5928. (heap), \
  5929. DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(DUK_HOBJECT_GET_CLASS_NUMBER((h))) \
  5930. )
  5931. /*
  5932. * Macros for property handling
  5933. */
  5934. #if defined(DUK_USE_HEAPPTR16)
  5935. #define DUK_HOBJECT_GET_PROTOTYPE(heap,h) \
  5936. ((duk_hobject *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->prototype16))
  5937. #define DUK_HOBJECT_SET_PROTOTYPE(heap,h,x) do { \
  5938. (h)->prototype16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (x)); \
  5939. } while (0)
  5940. #else
  5941. #define DUK_HOBJECT_GET_PROTOTYPE(heap,h) \
  5942. ((h)->prototype)
  5943. #define DUK_HOBJECT_SET_PROTOTYPE(heap,h,x) do { \
  5944. (h)->prototype = (x); \
  5945. } while (0)
  5946. #endif
  5947. /* Set prototype, DECREF earlier value, INCREF new value (tolerating NULLs). */
  5948. #define DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr,h,p) duk_hobject_set_prototype_updref((thr), (h), (p))
  5949. /* Set initial prototype, assume NULL previous prototype, INCREF new value,
  5950. * tolerate NULL.
  5951. */
  5952. #define DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr,h,proto) do { \
  5953. duk_hthread *duk__thr = (thr); \
  5954. duk_hobject *duk__obj = (h); \
  5955. duk_hobject *duk__proto = (proto); \
  5956. DUK_UNREF(duk__thr); \
  5957. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(duk__thr->heap, duk__obj) == NULL); \
  5958. DUK_HOBJECT_SET_PROTOTYPE(duk__thr->heap, duk__obj, duk__proto); \
  5959. DUK_HOBJECT_INCREF_ALLOWNULL(duk__thr, duk__proto); \
  5960. } while (0)
  5961. /*
  5962. * Finalizer check
  5963. */
  5964. #if defined(DUK_USE_HEAPPTR16)
  5965. #define DUK_HOBJECT_HAS_FINALIZER_FAST(heap,h) duk_hobject_has_finalizer_fast_raw((heap), (h))
  5966. #else
  5967. #define DUK_HOBJECT_HAS_FINALIZER_FAST(heap,h) duk_hobject_has_finalizer_fast_raw((h))
  5968. #endif
  5969. /*
  5970. * Resizing and hash behavior
  5971. */
  5972. /* Sanity limit on max number of properties (allocated, not necessarily used).
  5973. * This is somewhat arbitrary, but if we're close to 2**32 properties some
  5974. * algorithms will fail (e.g. hash size selection, next prime selection).
  5975. * Also, we use negative array/entry table indices to indicate 'not found',
  5976. * so anything above 0x80000000 will cause trouble now.
  5977. */
  5978. #if defined(DUK_USE_OBJSIZES16)
  5979. #define DUK_HOBJECT_MAX_PROPERTIES 0x0000ffffUL
  5980. #else
  5981. #define DUK_HOBJECT_MAX_PROPERTIES 0x3fffffffUL /* 2**30-1 ~= 1G properties */
  5982. #endif
  5983. /* internal align target for props allocation, must be 2*n for some n */
  5984. #if (DUK_USE_ALIGN_BY == 4)
  5985. #define DUK_HOBJECT_ALIGN_TARGET 4
  5986. #elif (DUK_USE_ALIGN_BY == 8)
  5987. #define DUK_HOBJECT_ALIGN_TARGET 8
  5988. #elif (DUK_USE_ALIGN_BY == 1)
  5989. #define DUK_HOBJECT_ALIGN_TARGET 1
  5990. #else
  5991. #error invalid DUK_USE_ALIGN_BY
  5992. #endif
  5993. /*
  5994. * PC-to-line constants
  5995. */
  5996. #define DUK_PC2LINE_SKIP 64
  5997. /* maximum length for a SKIP-1 diffstream: 35 bits per entry, rounded up to bytes */
  5998. #define DUK_PC2LINE_MAX_DIFF_LENGTH (((DUK_PC2LINE_SKIP - 1) * 35 + 7) / 8)
  5999. /*
  6000. * Struct defs
  6001. */
  6002. struct duk_propaccessor {
  6003. duk_hobject *get;
  6004. duk_hobject *set;
  6005. };
  6006. union duk_propvalue {
  6007. /* The get/set pointers could be 16-bit pointer compressed but it
  6008. * would make no difference on 32-bit platforms because duk_tval is
  6009. * 8 bytes or more anyway.
  6010. */
  6011. duk_tval v;
  6012. duk_propaccessor a;
  6013. };
  6014. struct duk_propdesc {
  6015. /* read-only values 'lifted' for ease of use */
  6016. duk_small_uint_t flags;
  6017. duk_hobject *get;
  6018. duk_hobject *set;
  6019. /* for updating (all are set to < 0 for virtual properties) */
  6020. duk_int_t e_idx; /* prop index in 'entry part', < 0 if not there */
  6021. duk_int_t h_idx; /* prop index in 'hash part', < 0 if not there */
  6022. duk_int_t a_idx; /* prop index in 'array part', < 0 if not there */
  6023. };
  6024. struct duk_hobject {
  6025. duk_heaphdr hdr;
  6026. /*
  6027. * 'props' contains {key,value,flags} entries, optional array entries, and
  6028. * an optional hash lookup table for non-array entries in a single 'sliced'
  6029. * allocation. There are several layout options, which differ slightly in
  6030. * generated code size/speed and alignment/padding; duk_features.h selects
  6031. * the layout used.
  6032. *
  6033. * Layout 1 (DUK_USE_HOBJECT_LAYOUT_1):
  6034. *
  6035. * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable)
  6036. * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable)
  6037. * e_size * sizeof(duk_uint8_t) bytes of entry flags (e_next gc reachable)
  6038. * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable)
  6039. * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size),
  6040. * 0xffffffffUL = unused, 0xfffffffeUL = deleted
  6041. *
  6042. * Layout 2 (DUK_USE_HOBJECT_LAYOUT_2):
  6043. *
  6044. * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable)
  6045. * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable)
  6046. * e_size * sizeof(duk_uint8_t) + pad bytes of entry flags (e_next gc reachable)
  6047. * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable)
  6048. * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size),
  6049. * 0xffffffffUL = unused, 0xfffffffeUL = deleted
  6050. *
  6051. * Layout 3 (DUK_USE_HOBJECT_LAYOUT_3):
  6052. *
  6053. * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable)
  6054. * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable)
  6055. * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable)
  6056. * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size),
  6057. * 0xffffffffUL = unused, 0xfffffffeUL = deleted
  6058. * e_size * sizeof(duk_uint8_t) bytes of entry flags (e_next gc reachable)
  6059. *
  6060. * In layout 1, the 'e_next' count is rounded to 4 or 8 on platforms
  6061. * requiring 4 or 8 byte alignment. This ensures proper alignment
  6062. * for the entries, at the cost of memory footprint. However, it's
  6063. * probably preferable to use another layout on such platforms instead.
  6064. *
  6065. * In layout 2, the key and value parts are swapped to avoid padding
  6066. * the key array on platforms requiring alignment by 8. The flags part
  6067. * is padded to get alignment for array entries. The 'e_next' count does
  6068. * not need to be rounded as in layout 1.
  6069. *
  6070. * In layout 3, entry values and array values are always aligned properly,
  6071. * and assuming pointers are at most 8 bytes, so are the entry keys. Hash
  6072. * indices will be properly aligned (assuming pointers are at least 4 bytes).
  6073. * Finally, flags don't need additional alignment. This layout provides
  6074. * compact allocations without padding (even on platforms with alignment
  6075. * requirements) at the cost of a bit slower lookups.
  6076. *
  6077. * Objects with few keys don't have a hash index; keys are looked up linearly,
  6078. * which is cache efficient because the keys are consecutive. Larger objects
  6079. * have a hash index part which contains integer indexes to the entries part.
  6080. *
  6081. * A single allocation reduces memory allocation overhead but requires more
  6082. * work when any part needs to be resized. A sliced allocation for entries
  6083. * makes linear key matching faster on most platforms (more locality) and
  6084. * skimps on flags size (which would be followed by 3 bytes of padding in
  6085. * most architectures if entries were placed in a struct).
  6086. *
  6087. * 'props' also contains internal properties distinguished with a non-BMP
  6088. * prefix. Often used properties should be placed early in 'props' whenever
  6089. * possible to make accessing them as fast a possible.
  6090. */
  6091. #if defined(DUK_USE_HEAPPTR16)
  6092. /* Located in duk_heaphdr h_extra16. Subclasses of duk_hobject (like
  6093. * duk_hcompfunc) are not free to use h_extra16 for this reason.
  6094. */
  6095. #else
  6096. duk_uint8_t *props;
  6097. #endif
  6098. /* prototype: the only internal property lifted outside 'e' as it is so central */
  6099. #if defined(DUK_USE_HEAPPTR16)
  6100. duk_uint16_t prototype16;
  6101. #else
  6102. duk_hobject *prototype;
  6103. #endif
  6104. #if defined(DUK_USE_OBJSIZES16)
  6105. duk_uint16_t e_size16;
  6106. duk_uint16_t e_next16;
  6107. duk_uint16_t a_size16;
  6108. #if defined(DUK_USE_HOBJECT_HASH_PART)
  6109. duk_uint16_t h_size16;
  6110. #endif
  6111. #else
  6112. duk_uint32_t e_size; /* entry part size */
  6113. duk_uint32_t e_next; /* index for next new key ([0,e_next[ are gc reachable) */
  6114. duk_uint32_t a_size; /* array part size (entirely gc reachable) */
  6115. #if defined(DUK_USE_HOBJECT_HASH_PART)
  6116. duk_uint32_t h_size; /* hash part size or 0 if unused */
  6117. #endif
  6118. #endif
  6119. };
  6120. /*
  6121. * Exposed data
  6122. */
  6123. #if !defined(DUK_SINGLE_FILE)
  6124. DUK_INTERNAL_DECL duk_uint8_t duk_class_number_to_stridx[32];
  6125. #endif /* !DUK_SINGLE_FILE */
  6126. /*
  6127. * Prototypes
  6128. */
  6129. /* alloc and init */
  6130. DUK_INTERNAL_DECL duk_hobject *duk_hobject_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags);
  6131. DUK_INTERNAL_DECL duk_hobject *duk_hobject_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6132. DUK_INTERNAL_DECL duk_harray *duk_harray_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6133. DUK_INTERNAL_DECL duk_hcompfunc *duk_hcompfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6134. DUK_INTERNAL_DECL duk_hnatfunc *duk_hnatfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6135. DUK_INTERNAL_DECL duk_hboundfunc *duk_hboundfunc_alloc(duk_heap *heap, duk_uint_t hobject_flags);
  6136. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  6137. DUK_INTERNAL_DECL duk_hbufobj *duk_hbufobj_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6138. #endif
  6139. DUK_INTERNAL_DECL duk_hthread *duk_hthread_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags);
  6140. DUK_INTERNAL_DECL duk_hthread *duk_hthread_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6141. DUK_INTERNAL_DECL duk_hdecenv *duk_hdecenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6142. DUK_INTERNAL_DECL duk_hobjenv *duk_hobjenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6143. DUK_INTERNAL_DECL duk_hproxy *duk_hproxy_alloc(duk_hthread *thr, duk_uint_t hobject_flags);
  6144. /* resize */
  6145. DUK_INTERNAL_DECL void duk_hobject_realloc_props(duk_hthread *thr,
  6146. duk_hobject *obj,
  6147. duk_uint32_t new_e_size,
  6148. duk_uint32_t new_a_size,
  6149. duk_uint32_t new_h_size,
  6150. duk_bool_t abandon_array);
  6151. DUK_INTERNAL_DECL void duk_hobject_resize_entrypart(duk_hthread *thr,
  6152. duk_hobject *obj,
  6153. duk_uint32_t new_e_size);
  6154. #if 0 /*unused*/
  6155. DUK_INTERNAL_DECL void duk_hobject_resize_arraypart(duk_hthread *thr,
  6156. duk_hobject *obj,
  6157. duk_uint32_t new_a_size);
  6158. #endif
  6159. /* low-level property functions */
  6160. DUK_INTERNAL_DECL duk_bool_t duk_hobject_find_existing_entry(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_int_t *e_idx, duk_int_t *h_idx);
  6161. DUK_INTERNAL_DECL duk_tval *duk_hobject_find_existing_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_hstring *key);
  6162. DUK_INTERNAL_DECL duk_tval *duk_hobject_find_existing_entry_tval_ptr_and_attrs(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_uint_t *out_attrs);
  6163. DUK_INTERNAL_DECL duk_tval *duk_hobject_find_existing_array_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_uarridx_t i);
  6164. DUK_INTERNAL_DECL duk_bool_t duk_hobject_get_own_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags);
  6165. /* XXX: when optimizing for guaranteed property slots, use a guaranteed
  6166. * slot for internal value; this call can then access it directly.
  6167. */
  6168. #define duk_hobject_get_internal_value_tval_ptr(heap,obj) \
  6169. duk_hobject_find_existing_entry_tval_ptr((heap), (obj), DUK_HEAP_STRING_INT_VALUE((heap)))
  6170. /* core property functions */
  6171. DUK_INTERNAL_DECL duk_bool_t duk_hobject_getprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key);
  6172. DUK_INTERNAL_DECL duk_bool_t duk_hobject_putprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_tval *tv_val, duk_bool_t throw_flag);
  6173. DUK_INTERNAL_DECL duk_bool_t duk_hobject_delprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_bool_t throw_flag);
  6174. DUK_INTERNAL_DECL duk_bool_t duk_hobject_hasprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key);
  6175. /* internal property functions */
  6176. #define DUK_DELPROP_FLAG_THROW (1U << 0)
  6177. #define DUK_DELPROP_FLAG_FORCE (1U << 1)
  6178. DUK_INTERNAL_DECL duk_bool_t duk_hobject_delprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags);
  6179. DUK_INTERNAL_DECL duk_bool_t duk_hobject_hasprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key);
  6180. DUK_INTERNAL_DECL void duk_hobject_define_property_internal(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags);
  6181. DUK_INTERNAL_DECL void duk_hobject_define_property_internal_arridx(duk_hthread *thr, duk_hobject *obj, duk_uarridx_t arr_idx, duk_small_uint_t flags);
  6182. DUK_INTERNAL_DECL duk_size_t duk_hobject_get_length(duk_hthread *thr, duk_hobject *obj);
  6183. #if defined(DUK_USE_HEAPPTR16)
  6184. DUK_INTERNAL_DECL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_heap *heap, duk_hobject *obj);
  6185. #else
  6186. DUK_INTERNAL_DECL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_hobject *obj);
  6187. #endif
  6188. /* helpers for defineProperty() and defineProperties() */
  6189. DUK_INTERNAL_DECL void duk_hobject_prepare_property_descriptor(duk_hthread *thr,
  6190. duk_idx_t idx_in,
  6191. duk_uint_t *out_defprop_flags,
  6192. duk_idx_t *out_idx_value,
  6193. duk_hobject **out_getter,
  6194. duk_hobject **out_setter);
  6195. DUK_INTERNAL_DECL duk_bool_t duk_hobject_define_property_helper(duk_hthread *thr,
  6196. duk_uint_t defprop_flags,
  6197. duk_hobject *obj,
  6198. duk_hstring *key,
  6199. duk_idx_t idx_value,
  6200. duk_hobject *get,
  6201. duk_hobject *set,
  6202. duk_bool_t throw_flag);
  6203. /* Object built-in methods */
  6204. DUK_INTERNAL_DECL void duk_hobject_object_get_own_property_descriptor(duk_hthread *thr, duk_idx_t obj_idx);
  6205. DUK_INTERNAL_DECL void duk_hobject_object_seal_freeze_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_freeze);
  6206. DUK_INTERNAL_DECL duk_bool_t duk_hobject_object_is_sealed_frozen_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_frozen);
  6207. DUK_INTERNAL_DECL duk_bool_t duk_hobject_object_ownprop_helper(duk_hthread *thr, duk_small_uint_t required_desc_flags);
  6208. /* internal properties */
  6209. DUK_INTERNAL_DECL duk_bool_t duk_hobject_get_internal_value(duk_heap *heap, duk_hobject *obj, duk_tval *tv);
  6210. DUK_INTERNAL_DECL duk_hstring *duk_hobject_get_internal_value_string(duk_heap *heap, duk_hobject *obj);
  6211. /* hobject management functions */
  6212. DUK_INTERNAL_DECL void duk_hobject_compact_props(duk_hthread *thr, duk_hobject *obj);
  6213. /* ES2015 proxy */
  6214. #if defined(DUK_USE_ES6_PROXY)
  6215. DUK_INTERNAL_DECL duk_bool_t duk_hobject_proxy_check(duk_hobject *obj, duk_hobject **out_target, duk_hobject **out_handler);
  6216. DUK_INTERNAL_DECL duk_hobject *duk_hobject_resolve_proxy_target(duk_hobject *obj);
  6217. #endif
  6218. /* enumeration */
  6219. DUK_INTERNAL_DECL void duk_hobject_enumerator_create(duk_hthread *thr, duk_small_uint_t enum_flags);
  6220. DUK_INTERNAL_DECL duk_ret_t duk_hobject_get_enumerated_keys(duk_hthread *thr, duk_small_uint_t enum_flags);
  6221. DUK_INTERNAL_DECL duk_bool_t duk_hobject_enumerator_next(duk_hthread *thr, duk_bool_t get_value);
  6222. /* macros */
  6223. DUK_INTERNAL_DECL void duk_hobject_set_prototype_updref(duk_hthread *thr, duk_hobject *h, duk_hobject *p);
  6224. /* pc2line */
  6225. #if defined(DUK_USE_PC2LINE)
  6226. DUK_INTERNAL_DECL void duk_hobject_pc2line_pack(duk_hthread *thr, duk_compiler_instr *instrs, duk_uint_fast32_t length);
  6227. DUK_INTERNAL_DECL duk_uint_fast32_t duk_hobject_pc2line_query(duk_hthread *thr, duk_idx_t idx_func, duk_uint_fast32_t pc);
  6228. #endif
  6229. /* misc */
  6230. DUK_INTERNAL_DECL duk_bool_t duk_hobject_prototype_chain_contains(duk_hthread *thr, duk_hobject *h, duk_hobject *p, duk_bool_t ignore_loop);
  6231. #if !defined(DUK_USE_OBJECT_BUILTIN)
  6232. /* These declarations are needed when related built-in is disabled and
  6233. * genbuiltins.py won't automatically emit the declerations.
  6234. */
  6235. DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_string(duk_hthread *thr);
  6236. DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype(duk_hthread *thr);
  6237. #endif
  6238. #endif /* DUK_HOBJECT_H_INCLUDED */
  6239. /* #include duk_hcompfunc.h */
  6240. #line 1 "duk_hcompfunc.h"
  6241. /*
  6242. * Heap compiled function (Ecmascript function) representation.
  6243. *
  6244. * There is a single data buffer containing the Ecmascript function's
  6245. * bytecode, constants, and inner functions.
  6246. */
  6247. #if !defined(DUK_HCOMPFUNC_H_INCLUDED)
  6248. #define DUK_HCOMPFUNC_H_INCLUDED
  6249. /*
  6250. * Field accessor macros
  6251. */
  6252. /* XXX: casts could be improved, especially for GET/SET DATA */
  6253. #if defined(DUK_USE_HEAPPTR16)
  6254. #define DUK_HCOMPFUNC_GET_DATA(heap,h) \
  6255. ((duk_hbuffer_fixed *) (void *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->data16))
  6256. #define DUK_HCOMPFUNC_SET_DATA(heap,h,v) do { \
  6257. (h)->data16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  6258. } while (0)
  6259. #define DUK_HCOMPFUNC_GET_FUNCS(heap,h) \
  6260. ((duk_hobject **) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->funcs16)))
  6261. #define DUK_HCOMPFUNC_SET_FUNCS(heap,h,v) do { \
  6262. (h)->funcs16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  6263. } while (0)
  6264. #define DUK_HCOMPFUNC_GET_BYTECODE(heap,h) \
  6265. ((duk_instr_t *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->bytecode16)))
  6266. #define DUK_HCOMPFUNC_SET_BYTECODE(heap,h,v) do { \
  6267. (h)->bytecode16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  6268. } while (0)
  6269. #define DUK_HCOMPFUNC_GET_LEXENV(heap,h) \
  6270. ((duk_hobject *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->lex_env16)))
  6271. #define DUK_HCOMPFUNC_SET_LEXENV(heap,h,v) do { \
  6272. (h)->lex_env16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  6273. } while (0)
  6274. #define DUK_HCOMPFUNC_GET_VARENV(heap,h) \
  6275. ((duk_hobject *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->var_env16)))
  6276. #define DUK_HCOMPFUNC_SET_VARENV(heap,h,v) do { \
  6277. (h)->var_env16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  6278. } while (0)
  6279. #else
  6280. #define DUK_HCOMPFUNC_GET_DATA(heap,h) ((duk_hbuffer_fixed *) (void *) (h)->data)
  6281. #define DUK_HCOMPFUNC_SET_DATA(heap,h,v) do { \
  6282. (h)->data = (duk_hbuffer *) (v); \
  6283. } while (0)
  6284. #define DUK_HCOMPFUNC_GET_FUNCS(heap,h) ((h)->funcs)
  6285. #define DUK_HCOMPFUNC_SET_FUNCS(heap,h,v) do { \
  6286. (h)->funcs = (v); \
  6287. } while (0)
  6288. #define DUK_HCOMPFUNC_GET_BYTECODE(heap,h) ((h)->bytecode)
  6289. #define DUK_HCOMPFUNC_SET_BYTECODE(heap,h,v) do { \
  6290. (h)->bytecode = (v); \
  6291. } while (0)
  6292. #define DUK_HCOMPFUNC_GET_LEXENV(heap,h) ((h)->lex_env)
  6293. #define DUK_HCOMPFUNC_SET_LEXENV(heap,h,v) do { \
  6294. (h)->lex_env = (v); \
  6295. } while (0)
  6296. #define DUK_HCOMPFUNC_GET_VARENV(heap,h) ((h)->var_env)
  6297. #define DUK_HCOMPFUNC_SET_VARENV(heap,h,v) do { \
  6298. (h)->var_env = (v); \
  6299. } while (0)
  6300. #endif
  6301. /*
  6302. * Accessor macros for function specific data areas
  6303. */
  6304. /* Note: assumes 'data' is always a fixed buffer */
  6305. #define DUK_HCOMPFUNC_GET_BUFFER_BASE(heap,h) \
  6306. DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), DUK_HCOMPFUNC_GET_DATA((heap), (h)))
  6307. #define DUK_HCOMPFUNC_GET_CONSTS_BASE(heap,h) \
  6308. ((duk_tval *) (void *) DUK_HCOMPFUNC_GET_BUFFER_BASE((heap), (h)))
  6309. #define DUK_HCOMPFUNC_GET_FUNCS_BASE(heap,h) \
  6310. DUK_HCOMPFUNC_GET_FUNCS((heap), (h))
  6311. #define DUK_HCOMPFUNC_GET_CODE_BASE(heap,h) \
  6312. DUK_HCOMPFUNC_GET_BYTECODE((heap), (h))
  6313. #define DUK_HCOMPFUNC_GET_CONSTS_END(heap,h) \
  6314. ((duk_tval *) (void *) DUK_HCOMPFUNC_GET_FUNCS((heap), (h)))
  6315. #define DUK_HCOMPFUNC_GET_FUNCS_END(heap,h) \
  6316. ((duk_hobject **) (void *) DUK_HCOMPFUNC_GET_BYTECODE((heap), (h)))
  6317. /* XXX: double evaluation of DUK_HCOMPFUNC_GET_DATA() */
  6318. #define DUK_HCOMPFUNC_GET_CODE_END(heap,h) \
  6319. ((duk_instr_t *) (void *) (DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), DUK_HCOMPFUNC_GET_DATA((heap), (h))) + \
  6320. DUK_HBUFFER_GET_SIZE((duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA((heap), h))))
  6321. #define DUK_HCOMPFUNC_GET_CONSTS_SIZE(heap,h) \
  6322. ( \
  6323. (duk_size_t) \
  6324. ( \
  6325. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CONSTS_END((heap), (h))) - \
  6326. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CONSTS_BASE((heap), (h))) \
  6327. ) \
  6328. )
  6329. #define DUK_HCOMPFUNC_GET_FUNCS_SIZE(heap,h) \
  6330. ( \
  6331. (duk_size_t) \
  6332. ( \
  6333. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_FUNCS_END((heap), (h))) - \
  6334. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_FUNCS_BASE((heap), (h))) \
  6335. ) \
  6336. )
  6337. #define DUK_HCOMPFUNC_GET_CODE_SIZE(heap,h) \
  6338. ( \
  6339. (duk_size_t) \
  6340. ( \
  6341. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CODE_END((heap),(h))) - \
  6342. ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CODE_BASE((heap),(h))) \
  6343. ) \
  6344. )
  6345. #define DUK_HCOMPFUNC_GET_CONSTS_COUNT(heap,h) \
  6346. ((duk_size_t) (DUK_HCOMPFUNC_GET_CONSTS_SIZE((heap), (h)) / sizeof(duk_tval)))
  6347. #define DUK_HCOMPFUNC_GET_FUNCS_COUNT(heap,h) \
  6348. ((duk_size_t) (DUK_HCOMPFUNC_GET_FUNCS_SIZE((heap), (h)) / sizeof(duk_hobject *)))
  6349. #define DUK_HCOMPFUNC_GET_CODE_COUNT(heap,h) \
  6350. ((duk_size_t) (DUK_HCOMPFUNC_GET_CODE_SIZE((heap), (h)) / sizeof(duk_instr_t)))
  6351. /*
  6352. * Validity assert
  6353. */
  6354. #define DUK_ASSERT_HCOMPFUNC_VALID(h) do { \
  6355. DUK_ASSERT((h) != NULL); \
  6356. } while (0)
  6357. /*
  6358. * Main struct
  6359. */
  6360. struct duk_hcompfunc {
  6361. /* shared object part */
  6362. duk_hobject obj;
  6363. /*
  6364. * Pointers to function data area for faster access. Function
  6365. * data is a buffer shared between all closures of the same
  6366. * "template" function. The data buffer is always fixed (non-
  6367. * dynamic, hence stable), with a layout as follows:
  6368. *
  6369. * constants (duk_tval)
  6370. * inner functions (duk_hobject *)
  6371. * bytecode (duk_instr_t)
  6372. *
  6373. * Note: bytecode end address can be computed from 'data' buffer
  6374. * size. It is not strictly necessary functionally, assuming
  6375. * bytecode never jumps outside its allocated area. However,
  6376. * it's a safety/robustness feature for avoiding the chance of
  6377. * executing random data as bytecode due to a compiler error.
  6378. *
  6379. * Note: values in the data buffer must be incref'd (they will
  6380. * be decref'd on release) for every compiledfunction referring
  6381. * to the 'data' element.
  6382. */
  6383. /* Data area, fixed allocation, stable data ptrs. */
  6384. #if defined(DUK_USE_HEAPPTR16)
  6385. duk_uint16_t data16;
  6386. #else
  6387. duk_hbuffer *data;
  6388. #endif
  6389. /* No need for constants pointer (= same as data).
  6390. *
  6391. * When using 16-bit packing alignment to 4 is nice. 'funcs' will be
  6392. * 4-byte aligned because 'constants' are duk_tvals. For now the
  6393. * inner function pointers are not compressed, so that 'bytecode' will
  6394. * also be 4-byte aligned.
  6395. */
  6396. #if defined(DUK_USE_HEAPPTR16)
  6397. duk_uint16_t funcs16;
  6398. duk_uint16_t bytecode16;
  6399. #else
  6400. duk_hobject **funcs;
  6401. duk_instr_t *bytecode;
  6402. #endif
  6403. /* Lexenv: lexical environment of closure, NULL for templates.
  6404. * Varenv: variable environment of closure, NULL for templates.
  6405. */
  6406. #if defined(DUK_USE_HEAPPTR16)
  6407. duk_uint16_t lex_env16;
  6408. duk_uint16_t var_env16;
  6409. #else
  6410. duk_hobject *lex_env;
  6411. duk_hobject *var_env;
  6412. #endif
  6413. /*
  6414. * 'nregs' registers are allocated on function entry, at most 'nargs'
  6415. * are initialized to arguments, and the rest to undefined. Arguments
  6416. * above 'nregs' are not mapped to registers. All registers in the
  6417. * active stack range must be initialized because they are GC reachable.
  6418. * 'nargs' is needed so that if the function is given more than 'nargs'
  6419. * arguments, the additional arguments do not 'clobber' registers
  6420. * beyond 'nregs' which must be consistently initialized to undefined.
  6421. *
  6422. * Usually there is no need to know which registers are mapped to
  6423. * local variables. Registers may be allocated to variable in any
  6424. * way (even including gaps). However, a register-variable mapping
  6425. * must be the same for the duration of the function execution and
  6426. * the register cannot be used for anything else.
  6427. *
  6428. * When looking up variables by name, the '_Varmap' map is used.
  6429. * When an activation closes, registers mapped to arguments are
  6430. * copied into the environment record based on the same map. The
  6431. * reverse map (from register to variable) is not currently needed
  6432. * at run time, except for debugging, so it is not maintained.
  6433. */
  6434. duk_uint16_t nregs; /* regs to allocate */
  6435. duk_uint16_t nargs; /* number of arguments allocated to regs */
  6436. /*
  6437. * Additional control information is placed into the object itself
  6438. * as internal properties to avoid unnecessary fields for the
  6439. * majority of functions. The compiler tries to omit internal
  6440. * control fields when possible.
  6441. *
  6442. * Function templates:
  6443. *
  6444. * {
  6445. * name: "func", // declaration, named function expressions
  6446. * fileName: <debug info for creating nice errors>
  6447. * _Varmap: { "arg1": 0, "arg2": 1, "varname": 2 },
  6448. * _Formals: [ "arg1", "arg2" ],
  6449. * _Source: "function func(arg1, arg2) { ... }",
  6450. * _Pc2line: <debug info for pc-to-line mapping>,
  6451. * }
  6452. *
  6453. * Function instances:
  6454. *
  6455. * {
  6456. * length: 2,
  6457. * prototype: { constructor: <func> },
  6458. * caller: <thrower>,
  6459. * arguments: <thrower>,
  6460. * name: "func", // declaration, named function expressions
  6461. * fileName: <debug info for creating nice errors>
  6462. * _Varmap: { "arg1": 0, "arg2": 1, "varname": 2 },
  6463. * _Formals: [ "arg1", "arg2" ],
  6464. * _Source: "function func(arg1, arg2) { ... }",
  6465. * _Pc2line: <debug info for pc-to-line mapping>,
  6466. * }
  6467. *
  6468. * More detailed description of these properties can be found
  6469. * in the documentation.
  6470. */
  6471. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  6472. /* Line number range for function. Needed during debugging to
  6473. * determine active breakpoints.
  6474. */
  6475. duk_uint32_t start_line;
  6476. duk_uint32_t end_line;
  6477. #endif
  6478. };
  6479. #endif /* DUK_HCOMPFUNC_H_INCLUDED */
  6480. /* #include duk_hnatfunc.h */
  6481. #line 1 "duk_hnatfunc.h"
  6482. /*
  6483. * Heap native function representation.
  6484. */
  6485. #if !defined(DUK_HNATFUNC_H_INCLUDED)
  6486. #define DUK_HNATFUNC_H_INCLUDED
  6487. #define DUK_HNATFUNC_NARGS_VARARGS ((duk_int16_t) -1)
  6488. #define DUK_HNATFUNC_NARGS_MAX ((duk_int16_t) 0x7fff)
  6489. struct duk_hnatfunc {
  6490. /* shared object part */
  6491. duk_hobject obj;
  6492. duk_c_function func;
  6493. duk_int16_t nargs;
  6494. duk_int16_t magic;
  6495. /* The 'magic' field allows an opaque 16-bit field to be accessed by the
  6496. * Duktape/C function. This allows, for instance, the same native function
  6497. * to be used for a set of very similar functions, with the 'magic' field
  6498. * providing the necessary non-argument flags / values to guide the behavior
  6499. * of the native function. The value is signed on purpose: it is easier to
  6500. * convert a signed value to unsigned (simply AND with 0xffff) than vice
  6501. * versa.
  6502. *
  6503. * Note: cannot place nargs/magic into the heaphdr flags, because
  6504. * duk_hobject takes almost all flags already.
  6505. */
  6506. };
  6507. #endif /* DUK_HNATFUNC_H_INCLUDED */
  6508. /* #include duk_hboundfunc.h */
  6509. #line 1 "duk_hboundfunc.h"
  6510. /*
  6511. * Bound function representation.
  6512. */
  6513. #if !defined(DUK_HBOUNDFUNC_H_INCLUDED)
  6514. #define DUK_HBOUNDFUNC_H_INCLUDED
  6515. /* Artificial limit for args length. Ensures arithmetic won't overflow
  6516. * 32 bits when combining bound functions.
  6517. */
  6518. #define DUK_HBOUNDFUNC_MAX_ARGS 0x20000000UL
  6519. #define DUK_ASSERT_HBOUNDFUNC_VALID(h) do { \
  6520. DUK_ASSERT((h) != NULL); \
  6521. DUK_ASSERT(DUK_HOBJECT_IS_BOUNDFUNC((duk_hobject *) (h))); \
  6522. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(&(h)->target) || \
  6523. (DUK_TVAL_IS_OBJECT(&(h)->target) && \
  6524. DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(&(h)->target)))); \
  6525. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(&(h)->this_binding)); \
  6526. DUK_ASSERT((h)->nargs == 0 || (h)->args != NULL); \
  6527. } while (0)
  6528. struct duk_hboundfunc {
  6529. /* Shared object part. */
  6530. duk_hobject obj;
  6531. /* Final target function, stored as duk_tval so that lightfunc can be
  6532. * represented too.
  6533. */
  6534. duk_tval target;
  6535. /* This binding. */
  6536. duk_tval this_binding;
  6537. /* Arguments to prepend. */
  6538. duk_tval *args; /* Separate allocation. */
  6539. duk_idx_t nargs;
  6540. };
  6541. #endif /* DUK_HBOUNDFUNC_H_INCLUDED */
  6542. /* #include duk_hbufobj.h */
  6543. #line 1 "duk_hbufobj.h"
  6544. /*
  6545. * Heap Buffer object representation. Used for all Buffer variants.
  6546. */
  6547. #if !defined(DUK_HBUFOBJ_H_INCLUDED)
  6548. #define DUK_HBUFOBJ_H_INCLUDED
  6549. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  6550. /* All element accessors are host endian now (driven by TypedArray spec). */
  6551. #define DUK_HBUFOBJ_ELEM_UINT8 0
  6552. #define DUK_HBUFOBJ_ELEM_UINT8CLAMPED 1
  6553. #define DUK_HBUFOBJ_ELEM_INT8 2
  6554. #define DUK_HBUFOBJ_ELEM_UINT16 3
  6555. #define DUK_HBUFOBJ_ELEM_INT16 4
  6556. #define DUK_HBUFOBJ_ELEM_UINT32 5
  6557. #define DUK_HBUFOBJ_ELEM_INT32 6
  6558. #define DUK_HBUFOBJ_ELEM_FLOAT32 7
  6559. #define DUK_HBUFOBJ_ELEM_FLOAT64 8
  6560. #define DUK_HBUFOBJ_ELEM_MAX 8
  6561. #define DUK_ASSERT_HBUFOBJ_VALID(h) do { \
  6562. DUK_ASSERT((h) != NULL); \
  6563. DUK_ASSERT((h)->shift <= 3); \
  6564. DUK_ASSERT((h)->elem_type <= DUK_HBUFOBJ_ELEM_MAX); \
  6565. DUK_ASSERT(((h)->shift == 0 && (h)->elem_type == DUK_HBUFOBJ_ELEM_UINT8) || \
  6566. ((h)->shift == 0 && (h)->elem_type == DUK_HBUFOBJ_ELEM_UINT8CLAMPED) || \
  6567. ((h)->shift == 0 && (h)->elem_type == DUK_HBUFOBJ_ELEM_INT8) || \
  6568. ((h)->shift == 1 && (h)->elem_type == DUK_HBUFOBJ_ELEM_UINT16) || \
  6569. ((h)->shift == 1 && (h)->elem_type == DUK_HBUFOBJ_ELEM_INT16) || \
  6570. ((h)->shift == 2 && (h)->elem_type == DUK_HBUFOBJ_ELEM_UINT32) || \
  6571. ((h)->shift == 2 && (h)->elem_type == DUK_HBUFOBJ_ELEM_INT32) || \
  6572. ((h)->shift == 2 && (h)->elem_type == DUK_HBUFOBJ_ELEM_FLOAT32) || \
  6573. ((h)->shift == 3 && (h)->elem_type == DUK_HBUFOBJ_ELEM_FLOAT64)); \
  6574. DUK_ASSERT((h)->is_typedarray == 0 || (h)->is_typedarray == 1); \
  6575. DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) (h))); \
  6576. if ((h)->buf == NULL) { \
  6577. DUK_ASSERT((h)->offset == 0); \
  6578. DUK_ASSERT((h)->length == 0); \
  6579. } else { \
  6580. /* No assertions for offset or length; in particular, \
  6581. * it's OK for length to be longer than underlying \
  6582. * buffer. Just ensure they don't wrap when added. \
  6583. */ \
  6584. DUK_ASSERT((h)->offset + (h)->length >= (h)->offset); \
  6585. } \
  6586. } while (0)
  6587. /* Get the current data pointer (caller must ensure buf != NULL) as a
  6588. * duk_uint8_t ptr.
  6589. */
  6590. #define DUK_HBUFOBJ_GET_SLICE_BASE(heap,h) \
  6591. (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \
  6592. (((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR((heap), (h)->buf)) + (h)->offset))
  6593. /* True if slice is full, i.e. offset is zero and length covers the entire
  6594. * buffer. This status may change independently of the duk_hbufobj if
  6595. * the underlying buffer is dynamic and changes without the hbufobj
  6596. * being changed.
  6597. */
  6598. #define DUK_HBUFOBJ_FULL_SLICE(h) \
  6599. (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \
  6600. ((h)->offset == 0 && (h)->length == DUK_HBUFFER_GET_SIZE((h)->buf)))
  6601. /* Validate that the whole slice [0,length[ is contained in the underlying
  6602. * buffer. Caller must ensure 'buf' != NULL.
  6603. */
  6604. #define DUK_HBUFOBJ_VALID_SLICE(h) \
  6605. (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \
  6606. ((h)->offset + (h)->length <= DUK_HBUFFER_GET_SIZE((h)->buf)))
  6607. /* Validate byte read/write for virtual 'offset', i.e. check that the
  6608. * offset, taking into account h->offset, is within the underlying
  6609. * buffer size. This is a safety check which is needed to ensure
  6610. * that even a misconfigured duk_hbufobj never causes memory unsafe
  6611. * behavior (e.g. if an underlying dynamic buffer changes after being
  6612. * setup). Caller must ensure 'buf' != NULL.
  6613. */
  6614. #define DUK_HBUFOBJ_VALID_BYTEOFFSET_INCL(h,off) \
  6615. (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \
  6616. ((h)->offset + (off) < DUK_HBUFFER_GET_SIZE((h)->buf)))
  6617. #define DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h,off) \
  6618. (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \
  6619. ((h)->offset + (off) <= DUK_HBUFFER_GET_SIZE((h)->buf)))
  6620. /* Clamp an input byte length (already assumed to be within the nominal
  6621. * duk_hbufobj 'length') to the current dynamic buffer limits to yield
  6622. * a byte length limit that's safe for memory accesses. This value can
  6623. * be invalidated by any side effect because it may trigger a user
  6624. * callback that resizes the underlying buffer.
  6625. */
  6626. #define DUK_HBUFOBJ_CLAMP_BYTELENGTH(h,len) \
  6627. (DUK_ASSERT_EXPR((h) != NULL), \
  6628. duk_hbufobj_clamp_bytelength((h), (len)))
  6629. /* Typed arrays have virtual indices, ArrayBuffer and DataView do not. */
  6630. #define DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h) ((h)->is_typedarray)
  6631. struct duk_hbufobj {
  6632. /* Shared object part. */
  6633. duk_hobject obj;
  6634. /* Underlying buffer (refcounted), may be NULL. */
  6635. duk_hbuffer *buf;
  6636. /* .buffer reference to an ArrayBuffer, may be NULL. */
  6637. duk_hobject *buf_prop;
  6638. /* Slice and accessor information.
  6639. *
  6640. * Because the underlying buffer may be dynamic, these may be
  6641. * invalidated by the buffer being modified so that both offset
  6642. * and length should be validated before every access. Behavior
  6643. * when the underlying buffer has changed doesn't need to be clean:
  6644. * virtual 'length' doesn't need to be affected, reads can return
  6645. * zero/NaN, and writes can be ignored.
  6646. *
  6647. * Note that a data pointer cannot be precomputed because 'buf' may
  6648. * be dynamic and its pointer unstable.
  6649. */
  6650. duk_uint_t offset; /* byte offset to buf */
  6651. duk_uint_t length; /* byte index limit for element access, exclusive */
  6652. duk_uint8_t shift; /* element size shift:
  6653. * 0 = u8/i8
  6654. * 1 = u16/i16
  6655. * 2 = u32/i32/float
  6656. * 3 = double
  6657. */
  6658. duk_uint8_t elem_type; /* element type */
  6659. duk_uint8_t is_typedarray;
  6660. };
  6661. DUK_INTERNAL_DECL duk_uint_t duk_hbufobj_clamp_bytelength(duk_hbufobj *h_bufobj, duk_uint_t len);
  6662. DUK_INTERNAL_DECL void duk_hbufobj_push_uint8array_from_plain(duk_hthread *thr, duk_hbuffer *h_buf);
  6663. DUK_INTERNAL_DECL void duk_hbufobj_push_validated_read(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size);
  6664. DUK_INTERNAL_DECL void duk_hbufobj_validated_write(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size);
  6665. DUK_INTERNAL_DECL void duk_hbufobj_promote_plain(duk_hthread *thr, duk_idx_t idx);
  6666. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  6667. #endif /* DUK_HBUFOBJ_H_INCLUDED */
  6668. /* #include duk_hthread.h */
  6669. #line 1 "duk_hthread.h"
  6670. /*
  6671. * Heap thread object representation.
  6672. *
  6673. * duk_hthread is also the 'context' for public API functions via a
  6674. * different typedef. Most API calls operate on the topmost frame
  6675. * of the value stack only.
  6676. */
  6677. #if !defined(DUK_HTHREAD_H_INCLUDED)
  6678. #define DUK_HTHREAD_H_INCLUDED
  6679. /*
  6680. * Stack constants
  6681. */
  6682. /* Initial valstack size, roughly 0.7kiB. */
  6683. #define DUK_VALSTACK_INITIAL_SIZE 96U
  6684. /* Internal extra elements assumed on function entry, always added to
  6685. * user-defined 'extra' for e.g. the duk_check_stack() call.
  6686. */
  6687. #define DUK_VALSTACK_INTERNAL_EXTRA 32U
  6688. /* Number of elements guaranteed to be user accessible (in addition to call
  6689. * arguments) on Duktape/C function entry. This is the major public API
  6690. * commitment.
  6691. */
  6692. #define DUK_VALSTACK_API_ENTRY_MINIMUM DUK_API_ENTRY_STACK
  6693. /*
  6694. * Activation defines
  6695. */
  6696. #define DUK_ACT_FLAG_STRICT (1U << 0) /* function executes in strict mode */
  6697. #define DUK_ACT_FLAG_TAILCALLED (1U << 1) /* activation has tail called one or more times */
  6698. #define DUK_ACT_FLAG_CONSTRUCT (1U << 2) /* function executes as a constructor (called via "new") */
  6699. #define DUK_ACT_FLAG_PREVENT_YIELD (1U << 3) /* activation prevents yield (native call or "new") */
  6700. #define DUK_ACT_FLAG_DIRECT_EVAL (1U << 4) /* activation is a direct eval call */
  6701. #define DUK_ACT_FLAG_CONSTRUCT_PROXY (1U << 5) /* activation is for Proxy 'construct' call, special return value handling */
  6702. #define DUK_ACT_FLAG_BREAKPOINT_ACTIVE (1U << 6) /* activation has active breakpoint(s) */
  6703. #define DUK_ACT_GET_FUNC(act) ((act)->func)
  6704. /*
  6705. * Flags for __FILE__ / __LINE__ registered into tracedata
  6706. */
  6707. #define DUK_TB_FLAG_NOBLAME_FILELINE (1U << 0) /* don't report __FILE__ / __LINE__ as fileName/lineNumber */
  6708. /*
  6709. * Catcher defines
  6710. */
  6711. /* XXX: remove catcher type entirely */
  6712. /* flags field: LLLLLLFT, L = label (24 bits), F = flags (4 bits), T = type (4 bits) */
  6713. #define DUK_CAT_TYPE_MASK 0x0000000fUL
  6714. #define DUK_CAT_TYPE_BITS 4
  6715. #define DUK_CAT_LABEL_MASK 0xffffff00UL
  6716. #define DUK_CAT_LABEL_BITS 24
  6717. #define DUK_CAT_LABEL_SHIFT 8
  6718. #define DUK_CAT_FLAG_CATCH_ENABLED (1U << 4) /* catch part will catch */
  6719. #define DUK_CAT_FLAG_FINALLY_ENABLED (1U << 5) /* finally part will catch */
  6720. #define DUK_CAT_FLAG_CATCH_BINDING_ENABLED (1U << 6) /* request to create catch binding */
  6721. #define DUK_CAT_FLAG_LEXENV_ACTIVE (1U << 7) /* catch or with binding is currently active */
  6722. #define DUK_CAT_TYPE_UNKNOWN 0
  6723. #define DUK_CAT_TYPE_TCF 1
  6724. #define DUK_CAT_TYPE_LABEL 2
  6725. #define DUK_CAT_GET_TYPE(c) ((c)->flags & DUK_CAT_TYPE_MASK)
  6726. #define DUK_CAT_GET_LABEL(c) (((c)->flags & DUK_CAT_LABEL_MASK) >> DUK_CAT_LABEL_SHIFT)
  6727. #define DUK_CAT_HAS_CATCH_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_CATCH_ENABLED)
  6728. #define DUK_CAT_HAS_FINALLY_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_FINALLY_ENABLED)
  6729. #define DUK_CAT_HAS_CATCH_BINDING_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_CATCH_BINDING_ENABLED)
  6730. #define DUK_CAT_HAS_LEXENV_ACTIVE(c) ((c)->flags & DUK_CAT_FLAG_LEXENV_ACTIVE)
  6731. #define DUK_CAT_SET_CATCH_ENABLED(c) do { \
  6732. (c)->flags |= DUK_CAT_FLAG_CATCH_ENABLED; \
  6733. } while (0)
  6734. #define DUK_CAT_SET_FINALLY_ENABLED(c) do { \
  6735. (c)->flags |= DUK_CAT_FLAG_FINALLY_ENABLED; \
  6736. } while (0)
  6737. #define DUK_CAT_SET_CATCH_BINDING_ENABLED(c) do { \
  6738. (c)->flags |= DUK_CAT_FLAG_CATCH_BINDING_ENABLED; \
  6739. } while (0)
  6740. #define DUK_CAT_SET_LEXENV_ACTIVE(c) do { \
  6741. (c)->flags |= DUK_CAT_FLAG_LEXENV_ACTIVE; \
  6742. } while (0)
  6743. #define DUK_CAT_CLEAR_CATCH_ENABLED(c) do { \
  6744. (c)->flags &= ~DUK_CAT_FLAG_CATCH_ENABLED; \
  6745. } while (0)
  6746. #define DUK_CAT_CLEAR_FINALLY_ENABLED(c) do { \
  6747. (c)->flags &= ~DUK_CAT_FLAG_FINALLY_ENABLED; \
  6748. } while (0)
  6749. #define DUK_CAT_CLEAR_CATCH_BINDING_ENABLED(c) do { \
  6750. (c)->flags &= ~DUK_CAT_FLAG_CATCH_BINDING_ENABLED; \
  6751. } while (0)
  6752. #define DUK_CAT_CLEAR_LEXENV_ACTIVE(c) do { \
  6753. (c)->flags &= ~DUK_CAT_FLAG_LEXENV_ACTIVE; \
  6754. } while (0)
  6755. /*
  6756. * Thread defines
  6757. */
  6758. #if defined(DUK_USE_ROM_STRINGS)
  6759. #define DUK_HTHREAD_GET_STRING(thr,idx) \
  6760. ((duk_hstring *) DUK_LOSE_CONST(duk_rom_strings_stridx[(idx)]))
  6761. #else /* DUK_USE_ROM_STRINGS */
  6762. #if defined(DUK_USE_HEAPPTR16)
  6763. #define DUK_HTHREAD_GET_STRING(thr,idx) \
  6764. ((duk_hstring *) DUK_USE_HEAPPTR_DEC16((thr)->heap->heap_udata, (thr)->strs16[(idx)]))
  6765. #else
  6766. #define DUK_HTHREAD_GET_STRING(thr,idx) \
  6767. ((thr)->strs[(idx)])
  6768. #endif
  6769. #endif /* DUK_USE_ROM_STRINGS */
  6770. /* values for the state field */
  6771. #define DUK_HTHREAD_STATE_INACTIVE 1 /* thread not currently running */
  6772. #define DUK_HTHREAD_STATE_RUNNING 2 /* thread currently running (only one at a time) */
  6773. #define DUK_HTHREAD_STATE_RESUMED 3 /* thread resumed another thread (active but not running) */
  6774. #define DUK_HTHREAD_STATE_YIELDED 4 /* thread has yielded */
  6775. #define DUK_HTHREAD_STATE_TERMINATED 5 /* thread has terminated */
  6776. /* Executor interrupt default interval when nothing else requires a
  6777. * smaller value. The default interval must be small enough to allow
  6778. * for reasonable execution timeout checking but large enough to keep
  6779. * impact on execution performance low.
  6780. */
  6781. #if defined(DUK_USE_INTERRUPT_COUNTER)
  6782. #define DUK_HTHREAD_INTCTR_DEFAULT (256L * 1024L)
  6783. #endif
  6784. /*
  6785. * Assert context is valid: non-NULL pointer, fields look sane.
  6786. *
  6787. * This is used by public API call entrypoints to catch invalid 'ctx' pointers
  6788. * as early as possible; invalid 'ctx' pointers cause very odd and difficult to
  6789. * diagnose behavior so it's worth checking even when the check is not 100%.
  6790. */
  6791. /* Assertions for internals. */
  6792. #define DUK_ASSERT_HTHREAD_VALID(thr) do { \
  6793. DUK_ASSERT((thr) != NULL); \
  6794. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) (thr)) == DUK_HTYPE_OBJECT); \
  6795. DUK_ASSERT(DUK_HOBJECT_IS_THREAD((duk_hobject *) (thr))); \
  6796. DUK_ASSERT((thr)->unused1 == 0); \
  6797. DUK_ASSERT((thr)->unused2 == 0); \
  6798. } while (0)
  6799. /* Assertions for public API calls; a bit stronger. */
  6800. #define DUK_ASSERT_CTX_VALID(thr) do { \
  6801. DUK_ASSERT((thr) != NULL); \
  6802. DUK_ASSERT_HTHREAD_VALID((thr)); \
  6803. DUK_ASSERT((thr)->valstack != NULL); \
  6804. DUK_ASSERT((thr)->valstack_bottom != NULL); \
  6805. DUK_ASSERT((thr)->valstack_top != NULL); \
  6806. DUK_ASSERT((thr)->valstack_end != NULL); \
  6807. DUK_ASSERT((thr)->valstack_alloc_end != NULL); \
  6808. DUK_ASSERT((thr)->valstack_alloc_end >= (thr)->valstack); \
  6809. DUK_ASSERT((thr)->valstack_end >= (thr)->valstack); \
  6810. DUK_ASSERT((thr)->valstack_top >= (thr)->valstack); \
  6811. DUK_ASSERT((thr)->valstack_top >= (thr)->valstack_bottom); \
  6812. DUK_ASSERT((thr)->valstack_end >= (thr)->valstack_top); \
  6813. DUK_ASSERT((thr)->valstack_alloc_end >= (thr)->valstack_end); \
  6814. } while (0)
  6815. /* Assertions for API call entry specifically. Checks 'ctx' but also may
  6816. * check internal state (e.g. not in a debugger transport callback).
  6817. */
  6818. #define DUK_ASSERT_API_ENTRY(thr) do { \
  6819. DUK_ASSERT_CTX_VALID((thr)); \
  6820. DUK_ASSERT((thr)->heap != NULL); \
  6821. DUK_ASSERT((thr)->heap->dbg_calling_transport == 0); \
  6822. } while (0)
  6823. /*
  6824. * Assertion helpers.
  6825. */
  6826. #define DUK_ASSERT_STRIDX_VALID(val) \
  6827. DUK_ASSERT((duk_uint_t) (val) < DUK_HEAP_NUM_STRINGS)
  6828. #define DUK_ASSERT_BIDX_VALID(val) \
  6829. DUK_ASSERT((duk_uint_t) (val) < DUK_NUM_BUILTINS)
  6830. /*
  6831. * Misc
  6832. */
  6833. /* Fast access to 'this' binding. Assumes there's a call in progress. */
  6834. #define DUK_HTHREAD_THIS_PTR(thr) \
  6835. (DUK_ASSERT_EXPR((thr) != NULL), \
  6836. DUK_ASSERT_EXPR((thr)->valstack_bottom > (thr)->valstack), \
  6837. (thr)->valstack_bottom - 1)
  6838. /*
  6839. * Struct defines
  6840. */
  6841. /* Fields are ordered for alignment/packing. */
  6842. struct duk_activation {
  6843. duk_tval tv_func; /* borrowed: full duk_tval for function being executed; for lightfuncs */
  6844. duk_hobject *func; /* borrowed: function being executed; for bound function calls, this is the final, real function, NULL for lightfuncs */
  6845. duk_activation *parent; /* previous (parent) activation (or NULL if none) */
  6846. duk_hobject *var_env; /* current variable environment (may be NULL if delayed) */
  6847. duk_hobject *lex_env; /* current lexical environment (may be NULL if delayed) */
  6848. duk_catcher *cat; /* current catcher (or NULL) */
  6849. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  6850. /* Previous value of 'func' caller, restored when unwound. Only in use
  6851. * when 'func' is non-strict.
  6852. */
  6853. duk_hobject *prev_caller;
  6854. #endif
  6855. duk_instr_t *curr_pc; /* next instruction to execute (points to 'func' bytecode, stable pointer), NULL for native calls */
  6856. /* bottom_byteoff and retval_byteoff are only used for book-keeping
  6857. * of Ecmascript-initiated calls, to allow returning to an Ecmascript
  6858. * function properly.
  6859. */
  6860. /* Bottom of valstack for this activation, used to reset
  6861. * valstack_bottom on return; offset is absolute. There's
  6862. * no need to track 'top' because native call handling deals
  6863. * with that using locals, and for Ecmascript returns 'nregs'
  6864. * indicates the necessary top.
  6865. */
  6866. duk_size_t bottom_byteoff;
  6867. /* Return value when returning to this activation (points to caller
  6868. * reg, not callee reg); offset is absolute (only set if activation is
  6869. * not topmost).
  6870. *
  6871. * Note: bottom_byteoff is always set, while retval_byteoff is only
  6872. * applicable for activations below the topmost one. Currently
  6873. * retval_byteoff for the topmost activation is considered garbage
  6874. * (and it not initialized on entry or cleared on return; may contain
  6875. * previous or garbage values).
  6876. */
  6877. duk_size_t retval_byteoff;
  6878. /* Current 'this' binding is the value just below bottom.
  6879. * Previously, 'this' binding was handled with an index to the
  6880. * (calling) valstack. This works for everything except tail
  6881. * calls, which must not "accumulate" valstack temps.
  6882. */
  6883. /* Value stack reserve (valstack_end) byte offset to be restored
  6884. * when returning to this activation. Only used by the bytecode
  6885. * executor.
  6886. */
  6887. duk_size_t reserve_byteoff;
  6888. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  6889. duk_uint32_t prev_line; /* needed for stepping */
  6890. #endif
  6891. duk_small_uint_t flags;
  6892. };
  6893. struct duk_catcher {
  6894. duk_catcher *parent; /* previous (parent) catcher (or NULL if none) */
  6895. duk_hstring *h_varname; /* borrowed reference to catch variable name (or NULL if none) */
  6896. /* (reference is valid as long activation exists) */
  6897. duk_instr_t *pc_base; /* resume execution from pc_base or pc_base+1 (points to 'func' bytecode, stable pointer) */
  6898. duk_size_t idx_base; /* idx_base and idx_base+1 get completion value and type */
  6899. duk_uint32_t flags; /* type and control flags, label number */
  6900. /* XXX: could pack 'flags' and 'idx_base' to same value in practice,
  6901. * on 32-bit targets this would make duk_catcher 16 bytes.
  6902. */
  6903. };
  6904. struct duk_hthread {
  6905. /* Shared object part */
  6906. duk_hobject obj;
  6907. /* Pointer to bytecode executor's 'curr_pc' variable. Used to copy
  6908. * the current PC back into the topmost activation when activation
  6909. * state is about to change (or "syncing" is otherwise needed). This
  6910. * is rather awkward but important for performance, see execution.rst.
  6911. */
  6912. duk_instr_t **ptr_curr_pc;
  6913. /* Backpointers. */
  6914. duk_heap *heap;
  6915. /* Current strictness flag: affects API calls. */
  6916. duk_uint8_t strict;
  6917. /* Thread state. */
  6918. duk_uint8_t state;
  6919. duk_uint8_t unused1;
  6920. duk_uint8_t unused2;
  6921. /* XXX: Valstack and callstack are currently assumed to have non-NULL
  6922. * pointers. Relaxing this would not lead to big benefits (except
  6923. * perhaps for terminated threads).
  6924. */
  6925. /* Value stack: these are expressed as pointers for faster stack
  6926. * manipulation. [valstack,valstack_top[ is GC-reachable,
  6927. * [valstack_top,valstack_alloc_end[ is not GC-reachable but kept
  6928. * initialized as 'undefined'. [valstack,valstack_end[ is the
  6929. * guaranteed/reserved space and the valstack cannot be resized to
  6930. * a smaller size. [valstack_end,valstack_alloc_end[ is currently
  6931. * allocated slack that can be used to grow the current guaranteed
  6932. * space but may be shrunk away without notice.
  6933. *
  6934. *
  6935. * <----------------------- guaranteed --->
  6936. * <---- slack --->
  6937. * <--- frame --->
  6938. * .-------------+=============+----------+--------------.
  6939. * |xxxxxxxxxxxxx|yyyyyyyyyyyyy|uuuuuuuuuu|uuuuuuuuuuuuuu|
  6940. * `-------------+=============+----------+--------------'
  6941. *
  6942. * ^ ^ ^ ^ ^
  6943. * | | | | |
  6944. * valstack bottom top end alloc_end
  6945. *
  6946. * xxx = arbitrary values, below current frame
  6947. * yyy = arbitrary values, inside current frame
  6948. * uuu = outside active value stack, initialized to 'undefined'
  6949. */
  6950. duk_tval *valstack; /* start of valstack allocation */
  6951. duk_tval *valstack_end; /* end of valstack reservation/guarantee (exclusive) */
  6952. duk_tval *valstack_alloc_end; /* end of valstack allocation */
  6953. duk_tval *valstack_bottom; /* bottom of current frame */
  6954. duk_tval *valstack_top; /* top of current frame (exclusive) */
  6955. /* Call stack, represented as a linked list starting from the current
  6956. * activation (or NULL if nothing is active).
  6957. */
  6958. duk_activation *callstack_curr; /* current activation (or NULL if none) */
  6959. duk_size_t callstack_top; /* number of activation records in callstack (0 if none) */
  6960. duk_size_t callstack_preventcount; /* number of activation records in callstack preventing a yield */
  6961. /* Yield/resume book-keeping. */
  6962. duk_hthread *resumer; /* who resumed us (if any) */
  6963. /* Current compiler state (if any), used for augmenting SyntaxErrors. */
  6964. duk_compiler_ctx *compile_ctx;
  6965. #if defined(DUK_USE_INTERRUPT_COUNTER)
  6966. /* Interrupt counter for triggering a slow path check for execution
  6967. * timeout, debugger interaction such as breakpoints, etc. The value
  6968. * is valid for the current running thread, and both the init and
  6969. * counter values are copied whenever a thread switch occurs. It's
  6970. * important for the counter to be conveniently accessible for the
  6971. * bytecode executor inner loop for performance reasons.
  6972. */
  6973. duk_int_t interrupt_counter; /* countdown state */
  6974. duk_int_t interrupt_init; /* start value for current countdown */
  6975. #endif
  6976. /* Builtin-objects; may or may not be shared with other threads,
  6977. * threads existing in different "compartments" will have different
  6978. * built-ins. Must be stored on a per-thread basis because there
  6979. * is no intermediate structure for a thread group / compartment.
  6980. * This takes quite a lot of space, currently 43x4 = 172 bytes on
  6981. * 32-bit platforms.
  6982. *
  6983. * In some cases the builtins array could be ROM based, but it's
  6984. * sometimes edited (e.g. for sandboxing) so it's better to keep
  6985. * this array in RAM.
  6986. */
  6987. duk_hobject *builtins[DUK_NUM_BUILTINS];
  6988. /* Convenience copies from heap/vm for faster access. */
  6989. #if defined(DUK_USE_ROM_STRINGS)
  6990. /* No field needed when strings are in ROM. */
  6991. #else
  6992. #if defined(DUK_USE_HEAPPTR16)
  6993. duk_uint16_t *strs16;
  6994. #else
  6995. duk_hstring **strs;
  6996. #endif
  6997. #endif
  6998. };
  6999. /*
  7000. * Prototypes
  7001. */
  7002. DUK_INTERNAL_DECL void duk_hthread_copy_builtin_objects(duk_hthread *thr_from, duk_hthread *thr_to);
  7003. DUK_INTERNAL_DECL void duk_hthread_create_builtin_objects(duk_hthread *thr);
  7004. DUK_INTERNAL_DECL duk_bool_t duk_hthread_init_stacks(duk_heap *heap, duk_hthread *thr);
  7005. DUK_INTERNAL_DECL void duk_hthread_terminate(duk_hthread *thr);
  7006. DUK_INTERNAL_DECL duk_activation *duk_hthread_activation_alloc(duk_hthread *thr);
  7007. DUK_INTERNAL_DECL void duk_hthread_activation_free(duk_hthread *thr, duk_activation *act);
  7008. DUK_INTERNAL_DECL void duk_hthread_activation_unwind_norz(duk_hthread *thr);
  7009. DUK_INTERNAL_DECL void duk_hthread_activation_unwind_reuse_norz(duk_hthread *thr);
  7010. DUK_INTERNAL_DECL duk_activation *duk_hthread_get_activation_for_level(duk_hthread *thr, duk_int_t level);
  7011. DUK_INTERNAL_DECL duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr);
  7012. DUK_INTERNAL_DECL void duk_hthread_catcher_free(duk_hthread *thr, duk_catcher *cat);
  7013. DUK_INTERNAL_DECL void duk_hthread_catcher_unwind_norz(duk_hthread *thr, duk_activation *act);
  7014. DUK_INTERNAL_DECL void duk_hthread_catcher_unwind_nolexenv_norz(duk_hthread *thr, duk_activation *act);
  7015. #if defined(DUK_USE_FINALIZER_TORTURE)
  7016. DUK_INTERNAL_DECL void duk_hthread_valstack_torture_realloc(duk_hthread *thr);
  7017. #endif
  7018. DUK_INTERNAL_DECL void *duk_hthread_get_valstack_ptr(duk_heap *heap, void *ud); /* indirect allocs */
  7019. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  7020. DUK_INTERNAL_DECL duk_uint_fast32_t duk_hthread_get_act_curr_pc(duk_hthread *thr, duk_activation *act);
  7021. #endif
  7022. DUK_INTERNAL_DECL duk_uint_fast32_t duk_hthread_get_act_prev_pc(duk_hthread *thr, duk_activation *act);
  7023. DUK_INTERNAL_DECL void duk_hthread_sync_currpc(duk_hthread *thr);
  7024. DUK_INTERNAL_DECL void duk_hthread_sync_and_null_currpc(duk_hthread *thr);
  7025. #endif /* DUK_HTHREAD_H_INCLUDED */
  7026. /* #include duk_harray.h */
  7027. #line 1 "duk_harray.h"
  7028. /*
  7029. * Array object representation, used for actual Array instances.
  7030. *
  7031. * All objects with the exotic array behavior (which must coincide with having
  7032. * internal class array) MUST be duk_harrays. No other object can be a
  7033. * duk_harray. However, duk_harrays may not always have an array part.
  7034. */
  7035. #if !defined(DUK_HARRAY_H_INCLUDED)
  7036. #define DUK_HARRAY_H_INCLUDED
  7037. #define DUK_ASSERT_HARRAY_VALID(h) do { \
  7038. DUK_ASSERT((h) != NULL); \
  7039. DUK_ASSERT(DUK_HOBJECT_IS_ARRAY((duk_hobject *) (h))); \
  7040. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY((duk_hobject *) (h))); \
  7041. } while (0)
  7042. #define DUK_HARRAY_LENGTH_WRITABLE(h) (!(h)->length_nonwritable)
  7043. #define DUK_HARRAY_LENGTH_NONWRITABLE(h) ((h)->length_nonwritable)
  7044. #define DUK_HARRAY_SET_LENGTH_WRITABLE(h) do { (h)->length_nonwritable = 0; } while (0)
  7045. #define DUK_HARRAY_SET_LENGTH_NONWRITABLE(h) do { (h)->length_nonwritable = 1; } while (0)
  7046. struct duk_harray {
  7047. /* Shared object part. */
  7048. duk_hobject obj;
  7049. /* Array .length.
  7050. *
  7051. * At present Array .length may be smaller, equal, or even larger
  7052. * than the allocated underlying array part. Fast path code must
  7053. * always take this into account carefully.
  7054. */
  7055. duk_uint32_t length;
  7056. /* Array .length property attributes. The property is always
  7057. * non-enumerable and non-configurable. It's initially writable
  7058. * but per Object.defineProperty() rules it can be made non-writable
  7059. * even if it is non-configurable. Thus we need to track the
  7060. * writability explicitly.
  7061. *
  7062. * XXX: this field to be eliminated and moved into duk_hobject
  7063. * flags field to save space.
  7064. */
  7065. duk_bool_t length_nonwritable;
  7066. };
  7067. #endif /* DUK_HARRAY_H_INCLUDED */
  7068. /* #include duk_henv.h */
  7069. #line 1 "duk_henv.h"
  7070. /*
  7071. * Environment object representation.
  7072. */
  7073. #if !defined(DUK_HENV_H_INCLUDED)
  7074. #define DUK_HENV_H_INCLUDED
  7075. #define DUK_ASSERT_HDECENV_VALID(h) do { \
  7076. DUK_ASSERT((h) != NULL); \
  7077. DUK_ASSERT(DUK_HOBJECT_IS_DECENV((duk_hobject *) (h))); \
  7078. DUK_ASSERT((h)->thread == NULL || (h)->varmap != NULL); \
  7079. } while (0)
  7080. #define DUK_ASSERT_HOBJENV_VALID(h) do { \
  7081. DUK_ASSERT((h) != NULL); \
  7082. DUK_ASSERT(DUK_HOBJECT_IS_OBJENV((duk_hobject *) (h))); \
  7083. DUK_ASSERT((h)->target != NULL); \
  7084. DUK_ASSERT((h)->has_this == 0 || (h)->has_this == 1); \
  7085. } while (0)
  7086. struct duk_hdecenv {
  7087. /* Shared object part. */
  7088. duk_hobject obj;
  7089. /* These control variables provide enough information to access live
  7090. * variables for a closure that is still open. If thread == NULL,
  7091. * the record is closed and the identifiers are in the property table.
  7092. */
  7093. duk_hthread *thread;
  7094. duk_hobject *varmap;
  7095. duk_size_t regbase_byteoff;
  7096. };
  7097. struct duk_hobjenv {
  7098. /* Shared object part. */
  7099. duk_hobject obj;
  7100. /* Target object and 'this' binding for object binding. */
  7101. duk_hobject *target;
  7102. /* The 'target' object is used as a this binding in only some object
  7103. * environments. For example, the global environment does not provide
  7104. * a this binding, but a with statement does.
  7105. */
  7106. duk_bool_t has_this;
  7107. };
  7108. #endif /* DUK_HENV_H_INCLUDED */
  7109. /* #include duk_hbuffer.h */
  7110. #line 1 "duk_hbuffer.h"
  7111. /*
  7112. * Heap buffer representation.
  7113. *
  7114. * Heap allocated user data buffer which is either:
  7115. *
  7116. * 1. A fixed size buffer (data follows header statically)
  7117. * 2. A dynamic size buffer (data pointer follows header)
  7118. *
  7119. * The data pointer for a variable size buffer of zero size may be NULL.
  7120. */
  7121. #if !defined(DUK_HBUFFER_H_INCLUDED)
  7122. #define DUK_HBUFFER_H_INCLUDED
  7123. /*
  7124. * Flags
  7125. *
  7126. * Fixed buffer: 0
  7127. * Dynamic buffer: DUK_HBUFFER_FLAG_DYNAMIC
  7128. * External buffer: DUK_HBUFFER_FLAG_DYNAMIC | DUK_HBUFFER_FLAG_EXTERNAL
  7129. */
  7130. #define DUK_HBUFFER_FLAG_DYNAMIC DUK_HEAPHDR_USER_FLAG(0) /* buffer is behind a pointer, dynamic or external */
  7131. #define DUK_HBUFFER_FLAG_EXTERNAL DUK_HEAPHDR_USER_FLAG(1) /* buffer pointer is to an externally allocated buffer */
  7132. #define DUK_HBUFFER_HAS_DYNAMIC(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC)
  7133. #define DUK_HBUFFER_HAS_EXTERNAL(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL)
  7134. #define DUK_HBUFFER_SET_DYNAMIC(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC)
  7135. #define DUK_HBUFFER_SET_EXTERNAL(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL)
  7136. #define DUK_HBUFFER_CLEAR_DYNAMIC(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC)
  7137. #define DUK_HBUFFER_CLEAR_EXTERNAL(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL)
  7138. /*
  7139. * Misc defines
  7140. */
  7141. /* Impose a maximum buffer length for now. Restricted artificially to
  7142. * ensure resize computations or adding a heap header length won't
  7143. * overflow size_t and that a signed duk_int_t can hold a buffer
  7144. * length. The limit should be synchronized with DUK_HSTRING_MAX_BYTELEN.
  7145. */
  7146. #if defined(DUK_USE_BUFLEN16)
  7147. #define DUK_HBUFFER_MAX_BYTELEN (0x0000ffffUL)
  7148. #else
  7149. /* Intentionally not 0x7fffffffUL; at least JSON code expects that
  7150. * 2*len + 2 fits in 32 bits.
  7151. */
  7152. #define DUK_HBUFFER_MAX_BYTELEN (0x7ffffffeUL)
  7153. #endif
  7154. /*
  7155. * Field access
  7156. */
  7157. #if defined(DUK_USE_BUFLEN16)
  7158. /* size stored in duk_heaphdr unused flag bits */
  7159. #define DUK_HBUFFER_GET_SIZE(x) ((x)->hdr.h_flags >> 16)
  7160. #define DUK_HBUFFER_SET_SIZE(x,v) do { \
  7161. duk_size_t duk__v; \
  7162. duk__v = (v); \
  7163. DUK_ASSERT(duk__v <= 0xffffUL); \
  7164. (x)->hdr.h_flags = ((x)->hdr.h_flags & 0x0000ffffUL) | (((duk_uint32_t) duk__v) << 16); \
  7165. } while (0)
  7166. #define DUK_HBUFFER_ADD_SIZE(x,dv) do { \
  7167. (x)->hdr.h_flags += ((dv) << 16); \
  7168. } while (0)
  7169. #define DUK_HBUFFER_SUB_SIZE(x,dv) do { \
  7170. (x)->hdr.h_flags -= ((dv) << 16); \
  7171. } while (0)
  7172. #else
  7173. #define DUK_HBUFFER_GET_SIZE(x) (((duk_hbuffer *) (x))->size)
  7174. #define DUK_HBUFFER_SET_SIZE(x,v) do { \
  7175. ((duk_hbuffer *) (x))->size = (v); \
  7176. } while (0)
  7177. #define DUK_HBUFFER_ADD_SIZE(x,dv) do { \
  7178. (x)->size += (dv); \
  7179. } while (0)
  7180. #define DUK_HBUFFER_SUB_SIZE(x,dv) do { \
  7181. (x)->size -= (dv); \
  7182. } while (0)
  7183. #endif
  7184. #define DUK_HBUFFER_FIXED_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x))
  7185. #define DUK_HBUFFER_FIXED_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x))
  7186. #define DUK_HBUFFER_DYNAMIC_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x))
  7187. #define DUK_HBUFFER_DYNAMIC_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x), (v))
  7188. #define DUK_HBUFFER_DYNAMIC_ADD_SIZE(x,dv) DUK_HBUFFER_ADD_SIZE((duk_hbuffer *) (x), (dv))
  7189. #define DUK_HBUFFER_DYNAMIC_SUB_SIZE(x,dv) DUK_HBUFFER_SUB_SIZE((duk_hbuffer *) (x), (dv))
  7190. #define DUK_HBUFFER_EXTERNAL_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x))
  7191. #define DUK_HBUFFER_EXTERNAL_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x), (v))
  7192. #define DUK_HBUFFER_FIXED_GET_DATA_PTR(heap,x) ((duk_uint8_t *) (((duk_hbuffer_fixed *) (x)) + 1))
  7193. #if defined(DUK_USE_HEAPPTR16)
  7194. #define DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap,x) \
  7195. ((void *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, ((duk_heaphdr *) (x))->h_extra16))
  7196. #define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap,x,v) do { \
  7197. ((duk_heaphdr *) (x))->h_extra16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \
  7198. } while (0)
  7199. #define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(heap,x) do { \
  7200. ((duk_heaphdr *) (x))->h_extra16 = 0; /* assume 0 <=> NULL */ \
  7201. } while (0)
  7202. #else
  7203. #define DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap,x) ((x)->curr_alloc)
  7204. #define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap,x,v) do { \
  7205. (x)->curr_alloc = (void *) (v); \
  7206. } while (0)
  7207. #define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(heap,x) do { \
  7208. (x)->curr_alloc = (void *) NULL; \
  7209. } while (0)
  7210. #endif
  7211. /* No pointer compression because pointer is potentially outside of
  7212. * Duktape heap.
  7213. */
  7214. #if defined(DUK_USE_HEAPPTR16)
  7215. #define DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap,x) \
  7216. ((void *) (x)->curr_alloc)
  7217. #define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap,x,v) do { \
  7218. (x)->curr_alloc = (void *) (v); \
  7219. } while (0)
  7220. #define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR_NULL(heap,x) do { \
  7221. (x)->curr_alloc = (void *) NULL; \
  7222. } while (0)
  7223. #else
  7224. #define DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap,x) \
  7225. ((void *) (x)->curr_alloc)
  7226. #define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap,x,v) do { \
  7227. (x)->curr_alloc = (void *) (v); \
  7228. } while (0)
  7229. #define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR_NULL(heap,x) do { \
  7230. (x)->curr_alloc = (void *) NULL; \
  7231. } while (0)
  7232. #endif
  7233. /* Get a pointer to the current buffer contents (matching current allocation
  7234. * size). May be NULL for zero size dynamic/external buffer.
  7235. */
  7236. #if defined(DUK_USE_HEAPPTR16)
  7237. #define DUK_HBUFFER_GET_DATA_PTR(heap,x) ( \
  7238. DUK_HBUFFER_HAS_DYNAMIC((x)) ? \
  7239. ( \
  7240. DUK_HBUFFER_HAS_EXTERNAL((x)) ? \
  7241. DUK_HBUFFER_EXTERNAL_GET_DATA_PTR((heap), (duk_hbuffer_external *) (x)) : \
  7242. DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((heap), (duk_hbuffer_dynamic *) (x)) \
  7243. ) : \
  7244. DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), (duk_hbuffer_fixed *) (x)) \
  7245. )
  7246. #else
  7247. /* Without heap pointer compression duk_hbuffer_dynamic and duk_hbuffer_external
  7248. * have the same layout so checking for fixed vs. dynamic (or external) is enough.
  7249. */
  7250. #define DUK_HBUFFER_GET_DATA_PTR(heap,x) ( \
  7251. DUK_HBUFFER_HAS_DYNAMIC((x)) ? \
  7252. DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((heap), (duk_hbuffer_dynamic *) (x)) : \
  7253. DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), (duk_hbuffer_fixed *) (x)) \
  7254. )
  7255. #endif
  7256. /*
  7257. * Structs
  7258. */
  7259. /* Shared prefix for all buffer types. */
  7260. struct duk_hbuffer {
  7261. duk_heaphdr hdr;
  7262. /* It's not strictly necessary to track the current size, but
  7263. * it is useful for writing robust native code.
  7264. */
  7265. /* Current size. */
  7266. #if defined(DUK_USE_BUFLEN16)
  7267. /* Stored in duk_heaphdr unused flags. */
  7268. #else
  7269. duk_size_t size;
  7270. #endif
  7271. /*
  7272. * Data following the header depends on the DUK_HBUFFER_FLAG_DYNAMIC
  7273. * flag.
  7274. *
  7275. * If the flag is clear (the buffer is a fixed size one), the buffer
  7276. * data follows the header directly, consisting of 'size' bytes.
  7277. *
  7278. * If the flag is set, the actual buffer is allocated separately, and
  7279. * a few control fields follow the header. Specifically:
  7280. *
  7281. * - a "void *" pointing to the current allocation
  7282. * - a duk_size_t indicating the full allocated size (always >= 'size')
  7283. *
  7284. * If DUK_HBUFFER_FLAG_EXTERNAL is set, the buffer has been allocated
  7285. * by user code, so that Duktape won't be able to resize it and won't
  7286. * free it. This allows buffers to point to e.g. an externally
  7287. * allocated structure such as a frame buffer.
  7288. *
  7289. * Unlike strings, no terminator byte (NUL) is guaranteed after the
  7290. * data. This would be convenient, but would pad aligned user buffers
  7291. * unnecessarily upwards in size. For instance, if user code requested
  7292. * a 64-byte dynamic buffer, 65 bytes would actually be allocated which
  7293. * would then potentially round upwards to perhaps 68 or 72 bytes.
  7294. */
  7295. };
  7296. /* Fixed buffer; data follows struct, with proper alignment guaranteed by
  7297. * struct size.
  7298. */
  7299. #if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_MSVC_PRAGMA)
  7300. #pragma pack(push, 8)
  7301. #endif
  7302. struct duk_hbuffer_fixed {
  7303. /* A union is used here as a portable struct size / alignment trick:
  7304. * by adding a 32-bit or a 64-bit (unused) union member, the size of
  7305. * the struct is effectively forced to be a multiple of 4 or 8 bytes
  7306. * (respectively) without increasing the size of the struct unless
  7307. * necessary.
  7308. */
  7309. union {
  7310. struct {
  7311. duk_heaphdr hdr;
  7312. #if defined(DUK_USE_BUFLEN16)
  7313. /* Stored in duk_heaphdr unused flags. */
  7314. #else
  7315. duk_size_t size;
  7316. #endif
  7317. } s;
  7318. #if (DUK_USE_ALIGN_BY == 4)
  7319. duk_uint32_t dummy_for_align4;
  7320. #elif (DUK_USE_ALIGN_BY == 8)
  7321. duk_double_t dummy_for_align8;
  7322. #elif (DUK_USE_ALIGN_BY == 1)
  7323. /* no extra padding */
  7324. #else
  7325. #error invalid DUK_USE_ALIGN_BY
  7326. #endif
  7327. } u;
  7328. /*
  7329. * Data follows the struct header. The struct size is padded by the
  7330. * compiler based on the struct members. This guarantees that the
  7331. * buffer data will be aligned-by-4 but not necessarily aligned-by-8.
  7332. *
  7333. * On platforms where alignment does not matter, the struct padding
  7334. * could be removed (if there is any). On platforms where alignment
  7335. * by 8 is required, the struct size must be forced to be a multiple
  7336. * of 8 by some means. Without it, some user code may break, and also
  7337. * Duktape itself breaks (e.g. the compiler stores duk_tvals in a
  7338. * dynamic buffer).
  7339. */
  7340. }
  7341. #if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_GCC_ATTR)
  7342. __attribute__ ((aligned (8)))
  7343. #elif (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_CLANG_ATTR)
  7344. __attribute__ ((aligned (8)))
  7345. #endif
  7346. ;
  7347. #if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_MSVC_PRAGMA)
  7348. #pragma pack(pop)
  7349. #endif
  7350. /* Dynamic buffer with 'curr_alloc' pointing to a dynamic area allocated using
  7351. * heap allocation primitives. Also used for external buffers when low memory
  7352. * options are not used.
  7353. */
  7354. struct duk_hbuffer_dynamic {
  7355. duk_heaphdr hdr;
  7356. #if defined(DUK_USE_BUFLEN16)
  7357. /* Stored in duk_heaphdr unused flags. */
  7358. #else
  7359. duk_size_t size;
  7360. #endif
  7361. #if defined(DUK_USE_HEAPPTR16)
  7362. /* Stored in duk_heaphdr h_extra16. */
  7363. #else
  7364. void *curr_alloc; /* may be NULL if alloc_size == 0 */
  7365. #endif
  7366. /*
  7367. * Allocation size for 'curr_alloc' is alloc_size. There is no
  7368. * automatic NUL terminator for buffers (see above for rationale).
  7369. *
  7370. * 'curr_alloc' is explicitly allocated with heap allocation
  7371. * primitives and will thus always have alignment suitable for
  7372. * e.g. duk_tval and an IEEE double.
  7373. */
  7374. };
  7375. /* External buffer with 'curr_alloc' managed by user code and pointing to an
  7376. * arbitrary address. When heap pointer compression is not used, this struct
  7377. * has the same layout as duk_hbuffer_dynamic.
  7378. */
  7379. struct duk_hbuffer_external {
  7380. duk_heaphdr hdr;
  7381. #if defined(DUK_USE_BUFLEN16)
  7382. /* Stored in duk_heaphdr unused flags. */
  7383. #else
  7384. duk_size_t size;
  7385. #endif
  7386. /* Cannot be compressed as a heap pointer because may point to
  7387. * an arbitrary address.
  7388. */
  7389. void *curr_alloc; /* may be NULL if alloc_size == 0 */
  7390. };
  7391. /*
  7392. * Prototypes
  7393. */
  7394. DUK_INTERNAL_DECL duk_hbuffer *duk_hbuffer_alloc(duk_heap *heap, duk_size_t size, duk_small_uint_t flags, void **out_bufdata);
  7395. DUK_INTERNAL_DECL void *duk_hbuffer_get_dynalloc_ptr(duk_heap *heap, void *ud); /* indirect allocs */
  7396. /* dynamic buffer ops */
  7397. DUK_INTERNAL_DECL void duk_hbuffer_resize(duk_hthread *thr, duk_hbuffer_dynamic *buf, duk_size_t new_size);
  7398. DUK_INTERNAL_DECL void duk_hbuffer_reset(duk_hthread *thr, duk_hbuffer_dynamic *buf);
  7399. #endif /* DUK_HBUFFER_H_INCLUDED */
  7400. /* #include duk_hproxy.h */
  7401. #line 1 "duk_hproxy.h"
  7402. /*
  7403. * Proxy object representation.
  7404. */
  7405. #if !defined(DUK_HPROXY_H_INCLUDED)
  7406. #define DUK_HPROXY_H_INCLUDED
  7407. #define DUK_ASSERT_HPROXY_VALID(h) do { \
  7408. DUK_ASSERT((h) != NULL); \
  7409. DUK_ASSERT((h)->target != NULL); \
  7410. DUK_ASSERT((h)->handler != NULL); \
  7411. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ((duk_hobject *) (h))); \
  7412. } while (0)
  7413. struct duk_hproxy {
  7414. /* Shared object part. */
  7415. duk_hobject obj;
  7416. /* Proxy target object. */
  7417. duk_hobject *target;
  7418. /* Proxy handlers (traps). */
  7419. duk_hobject *handler;
  7420. };
  7421. #endif /* DUK_HPROXY_H_INCLUDED */
  7422. /* #include duk_heap.h */
  7423. #line 1 "duk_heap.h"
  7424. /*
  7425. * Heap structure.
  7426. *
  7427. * Heap contains allocated heap objects, interned strings, and built-in
  7428. * strings for one or more threads.
  7429. */
  7430. #if !defined(DUK_HEAP_H_INCLUDED)
  7431. #define DUK_HEAP_H_INCLUDED
  7432. /* alloc function typedefs in duktape.h */
  7433. /*
  7434. * Heap flags
  7435. */
  7436. #define DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED (1U << 0) /* mark-and-sweep marking reached a recursion limit and must use multi-pass marking */
  7437. #define DUK_HEAP_FLAG_INTERRUPT_RUNNING (1U << 1) /* executor interrupt running (used to avoid nested interrupts) */
  7438. #define DUK_HEAP_FLAG_FINALIZER_NORESCUE (1U << 2) /* heap destruction ongoing, finalizer rescue no longer possible */
  7439. #define DUK_HEAP_FLAG_DEBUGGER_PAUSED (1U << 3) /* debugger is paused: talk with debug client until step/resume */
  7440. #define DUK__HEAP_HAS_FLAGS(heap,bits) ((heap)->flags & (bits))
  7441. #define DUK__HEAP_SET_FLAGS(heap,bits) do { \
  7442. (heap)->flags |= (bits); \
  7443. } while (0)
  7444. #define DUK__HEAP_CLEAR_FLAGS(heap,bits) do { \
  7445. (heap)->flags &= ~(bits); \
  7446. } while (0)
  7447. #define DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED)
  7448. #define DUK_HEAP_HAS_INTERRUPT_RUNNING(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING)
  7449. #define DUK_HEAP_HAS_FINALIZER_NORESCUE(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE)
  7450. #define DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED)
  7451. #define DUK_HEAP_SET_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED)
  7452. #define DUK_HEAP_SET_INTERRUPT_RUNNING(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING)
  7453. #define DUK_HEAP_SET_FINALIZER_NORESCUE(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE)
  7454. #define DUK_HEAP_SET_DEBUGGER_PAUSED(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED)
  7455. #define DUK_HEAP_CLEAR_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED)
  7456. #define DUK_HEAP_CLEAR_INTERRUPT_RUNNING(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING)
  7457. #define DUK_HEAP_CLEAR_FINALIZER_NORESCUE(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE)
  7458. #define DUK_HEAP_CLEAR_DEBUGGER_PAUSED(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED)
  7459. /*
  7460. * Longjmp types, also double as identifying continuation type for a rethrow (in 'finally')
  7461. */
  7462. #define DUK_LJ_TYPE_UNKNOWN 0 /* unused */
  7463. #define DUK_LJ_TYPE_THROW 1 /* value1 -> error object */
  7464. #define DUK_LJ_TYPE_YIELD 2 /* value1 -> yield value, iserror -> error / normal */
  7465. #define DUK_LJ_TYPE_RESUME 3 /* value1 -> resume value, value2 -> resumee thread, iserror -> error/normal */
  7466. #define DUK_LJ_TYPE_BREAK 4 /* value1 -> label number, pseudo-type to indicate a break continuation (for ENDFIN) */
  7467. #define DUK_LJ_TYPE_CONTINUE 5 /* value1 -> label number, pseudo-type to indicate a continue continuation (for ENDFIN) */
  7468. #define DUK_LJ_TYPE_RETURN 6 /* value1 -> return value, pseudo-type to indicate a return continuation (for ENDFIN) */
  7469. #define DUK_LJ_TYPE_NORMAL 7 /* no value, pseudo-type to indicate a normal continuation (for ENDFIN) */
  7470. /*
  7471. * Mark-and-sweep flags
  7472. *
  7473. * These are separate from heap level flags now but could be merged.
  7474. * The heap structure only contains a 'base mark-and-sweep flags'
  7475. * field and the GC caller can impose further flags.
  7476. */
  7477. /* Emergency mark-and-sweep: try extra hard, even at the cost of
  7478. * performance.
  7479. */
  7480. #define DUK_MS_FLAG_EMERGENCY (1U << 0)
  7481. /* Voluntary mark-and-sweep: triggered periodically. */
  7482. #define DUK_MS_FLAG_VOLUNTARY (1U << 1)
  7483. /* Postpone rescue decisions for reachable objects with FINALIZED set.
  7484. * Used during finalize_list processing to avoid incorrect rescue
  7485. * decisions due to finalize_list being a reachability root.
  7486. */
  7487. #define DUK_MS_FLAG_POSTPONE_RESCUE (1U << 2)
  7488. /* Don't compact objects; needed during object property table resize
  7489. * to prevent a recursive resize. It would suffice to protect only the
  7490. * current object being resized, but this is not yet implemented.
  7491. */
  7492. #define DUK_MS_FLAG_NO_OBJECT_COMPACTION (1U << 3)
  7493. /*
  7494. * Thread switching
  7495. *
  7496. * To switch heap->curr_thread, use the macro below so that interrupt counters
  7497. * get updated correctly. The macro allows a NULL target thread because that
  7498. * happens e.g. in call handling.
  7499. */
  7500. #if defined(DUK_USE_INTERRUPT_COUNTER)
  7501. #define DUK_HEAP_SWITCH_THREAD(heap,newthr) duk_heap_switch_thread((heap), (newthr))
  7502. #else
  7503. #define DUK_HEAP_SWITCH_THREAD(heap,newthr) do { \
  7504. (heap)->curr_thread = (newthr); \
  7505. } while (0)
  7506. #endif
  7507. /*
  7508. * Stats
  7509. */
  7510. #if defined(DUK_USE_DEBUG)
  7511. #define DUK_STATS_INC(heap,fieldname) do { \
  7512. (heap)->fieldname += 1; \
  7513. } while (0)
  7514. #else
  7515. #define DUK_STATS_INC(heap,fieldname) do {} while (0)
  7516. #endif
  7517. /*
  7518. * Other heap related defines
  7519. */
  7520. /* Mark-and-sweep interval is relative to combined count of objects and
  7521. * strings kept in the heap during the latest mark-and-sweep pass.
  7522. * Fixed point .8 multiplier and .0 adder. Trigger count (interval) is
  7523. * decreased by each (re)allocation attempt (regardless of size), and each
  7524. * refzero processed object.
  7525. *
  7526. * 'SKIP' indicates how many (re)allocations to wait until a retry if
  7527. * GC is skipped because there is no thread do it with yet (happens
  7528. * only during init phases).
  7529. */
  7530. #if defined(DUK_USE_REFERENCE_COUNTING)
  7531. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT 12800L /* 50x heap size */
  7532. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD 1024L
  7533. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_SKIP 256L
  7534. #else
  7535. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT 256L /* 1x heap size */
  7536. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD 1024L
  7537. #define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_SKIP 256L
  7538. #endif
  7539. /* GC torture. */
  7540. #if defined(DUK_USE_GC_TORTURE)
  7541. #define DUK_GC_TORTURE(heap) do { duk_heap_mark_and_sweep((heap), 0); } while (0)
  7542. #else
  7543. #define DUK_GC_TORTURE(heap) do { } while (0)
  7544. #endif
  7545. /* Stringcache is used for speeding up char-offset-to-byte-offset
  7546. * translations for non-ASCII strings.
  7547. */
  7548. #define DUK_HEAP_STRCACHE_SIZE 4
  7549. #define DUK_HEAP_STRINGCACHE_NOCACHE_LIMIT 16 /* strings up to the this length are not cached */
  7550. /* Some list management macros. */
  7551. #define DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap,hdr) duk_heap_insert_into_heap_allocated((heap), (hdr))
  7552. #if defined(DUK_USE_REFERENCE_COUNTING)
  7553. #define DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap,hdr) duk_heap_remove_from_heap_allocated((heap), (hdr))
  7554. #endif
  7555. #if defined(DUK_USE_FINALIZER_SUPPORT)
  7556. #define DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap,hdr) duk_heap_insert_into_finalize_list((heap), (hdr))
  7557. #define DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(heap,hdr) duk_heap_remove_from_finalize_list((heap), (hdr))
  7558. #endif
  7559. /*
  7560. * Built-in strings
  7561. */
  7562. /* heap string indices are autogenerated in duk_strings.h */
  7563. #if defined(DUK_USE_ROM_STRINGS)
  7564. #define DUK_HEAP_GET_STRING(heap,idx) \
  7565. ((duk_hstring *) DUK_LOSE_CONST(duk_rom_strings_stridx[(idx)]))
  7566. #else /* DUK_USE_ROM_STRINGS */
  7567. #if defined(DUK_USE_HEAPPTR16)
  7568. #define DUK_HEAP_GET_STRING(heap,idx) \
  7569. ((duk_hstring *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (heap)->strs16[(idx)]))
  7570. #else
  7571. #define DUK_HEAP_GET_STRING(heap,idx) \
  7572. ((heap)->strs[(idx)])
  7573. #endif
  7574. #endif /* DUK_USE_ROM_STRINGS */
  7575. /*
  7576. * Raw memory calls: relative to heap, but no GC interaction
  7577. */
  7578. #define DUK_ALLOC_RAW(heap,size) \
  7579. ((heap)->alloc_func((heap)->heap_udata, (size)))
  7580. #define DUK_REALLOC_RAW(heap,ptr,newsize) \
  7581. ((heap)->realloc_func((heap)->heap_udata, (void *) (ptr), (newsize)))
  7582. #define DUK_FREE_RAW(heap,ptr) \
  7583. ((heap)->free_func((heap)->heap_udata, (void *) (ptr)))
  7584. /*
  7585. * Memory calls: relative to heap, GC interaction, but no error throwing.
  7586. *
  7587. * XXX: Currently a mark-and-sweep triggered by memory allocation will run
  7588. * using the heap->heap_thread. This thread is also used for running
  7589. * mark-and-sweep finalization; this is not ideal because it breaks the
  7590. * isolation between multiple global environments.
  7591. *
  7592. * Notes:
  7593. *
  7594. * - DUK_FREE() is required to ignore NULL and any other possible return
  7595. * value of a zero-sized alloc/realloc (same as ANSI C free()).
  7596. *
  7597. * - There is no DUK_REALLOC_ZEROED because we don't assume to know the
  7598. * old size. Caller must zero the reallocated memory.
  7599. *
  7600. * - DUK_REALLOC_INDIRECT() must be used when a mark-and-sweep triggered
  7601. * by an allocation failure might invalidate the original 'ptr', thus
  7602. * causing a realloc retry to use an invalid pointer. Example: we're
  7603. * reallocating the value stack and a finalizer resizes the same value
  7604. * stack during mark-and-sweep. The indirect variant requests for the
  7605. * current location of the pointer being reallocated using a callback
  7606. * right before every realloc attempt; this circuitous approach is used
  7607. * to avoid strict aliasing issues in a more straightforward indirect
  7608. * pointer (void **) approach. Note: the pointer in the storage
  7609. * location is read but is NOT updated; the caller must do that.
  7610. */
  7611. /* callback for indirect reallocs, request for current pointer */
  7612. typedef void *(*duk_mem_getptr)(duk_heap *heap, void *ud);
  7613. #define DUK_ALLOC(heap,size) duk_heap_mem_alloc((heap), (size))
  7614. #define DUK_ALLOC_ZEROED(heap,size) duk_heap_mem_alloc_zeroed((heap), (size))
  7615. #define DUK_REALLOC(heap,ptr,newsize) duk_heap_mem_realloc((heap), (ptr), (newsize))
  7616. #define DUK_REALLOC_INDIRECT(heap,cb,ud,newsize) duk_heap_mem_realloc_indirect((heap), (cb), (ud), (newsize))
  7617. #define DUK_FREE(heap,ptr) duk_heap_mem_free((heap), (ptr))
  7618. /*
  7619. * Checked allocation, relative to a thread
  7620. *
  7621. * DUK_FREE_CHECKED() doesn't actually throw, but accepts a 'thr' argument
  7622. * for convenience.
  7623. */
  7624. #define DUK_ALLOC_CHECKED(thr,size) duk_heap_mem_alloc_checked((thr), (size))
  7625. #define DUK_ALLOC_CHECKED_ZEROED(thr,size) duk_heap_mem_alloc_checked_zeroed((thr), (size))
  7626. #define DUK_FREE_CHECKED(thr,ptr) duk_heap_mem_free((thr)->heap, (ptr))
  7627. /*
  7628. * Memory constants
  7629. */
  7630. #define DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT 10 /* Retry allocation after mark-and-sweep for this
  7631. * many times. A single mark-and-sweep round is
  7632. * not guaranteed to free all unreferenced memory
  7633. * because of finalization (in fact, ANY number of
  7634. * rounds is strictly not enough).
  7635. */
  7636. #define DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT 3 /* Starting from this round, use emergency mode
  7637. * for mark-and-sweep.
  7638. */
  7639. /*
  7640. * Debugger support
  7641. */
  7642. /* Maximum number of breakpoints. Only breakpoints that are set are
  7643. * consulted so increasing this has no performance impact.
  7644. */
  7645. #define DUK_HEAP_MAX_BREAKPOINTS 16
  7646. /* Opcode interval for a Date-based status/peek rate limit check. Only
  7647. * relevant when debugger is attached. Requesting a timestamp may be a
  7648. * slow operation on some platforms so this shouldn't be too low. On the
  7649. * other hand a high value makes Duktape react to a pause request slowly.
  7650. */
  7651. #define DUK_HEAP_DBG_RATELIMIT_OPCODES 4000
  7652. /* Milliseconds between status notify and transport peeks. */
  7653. #define DUK_HEAP_DBG_RATELIMIT_MILLISECS 200
  7654. /* Debugger pause flags. */
  7655. #define DUK_PAUSE_FLAG_ONE_OPCODE (1U << 0) /* pause when a single opcode has been executed */
  7656. #define DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE (1U << 1) /* one opcode pause actually active; artifact of current implementation */
  7657. #define DUK_PAUSE_FLAG_LINE_CHANGE (1U << 2) /* pause when current line number changes */
  7658. #define DUK_PAUSE_FLAG_FUNC_ENTRY (1U << 3) /* pause when entering a function */
  7659. #define DUK_PAUSE_FLAG_FUNC_EXIT (1U << 4) /* pause when exiting current function */
  7660. #define DUK_PAUSE_FLAG_CAUGHT_ERROR (1U << 5) /* pause when about to throw an error that is caught */
  7661. #define DUK_PAUSE_FLAG_UNCAUGHT_ERROR (1U << 6) /* pause when about to throw an error that won't be caught */
  7662. struct duk_breakpoint {
  7663. duk_hstring *filename;
  7664. duk_uint32_t line;
  7665. };
  7666. /*
  7667. * String cache should ideally be at duk_hthread level, but that would
  7668. * cause string finalization to slow down relative to the number of
  7669. * threads; string finalization must check the string cache for "weak"
  7670. * references to the string being finalized to avoid dead pointers.
  7671. *
  7672. * Thus, string caches are now at the heap level now.
  7673. */
  7674. struct duk_strcache {
  7675. duk_hstring *h;
  7676. duk_uint32_t bidx;
  7677. duk_uint32_t cidx;
  7678. };
  7679. /*
  7680. * Longjmp state, contains the information needed to perform a longjmp.
  7681. * Longjmp related values are written to value1, value2, and iserror.
  7682. */
  7683. struct duk_ljstate {
  7684. duk_jmpbuf *jmpbuf_ptr; /* current setjmp() catchpoint */
  7685. duk_small_uint_t type; /* longjmp type */
  7686. duk_bool_t iserror; /* isError flag for yield */
  7687. duk_tval value1; /* 1st related value (type specific) */
  7688. duk_tval value2; /* 2nd related value (type specific) */
  7689. };
  7690. #define DUK_ASSERT_LJSTATE_UNSET(heap) do { \
  7691. DUK_ASSERT(heap != NULL); \
  7692. DUK_ASSERT(heap->lj.type == DUK_LJ_TYPE_UNKNOWN); \
  7693. DUK_ASSERT(heap->lj.iserror == 0); \
  7694. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&heap->lj.value1)); \
  7695. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&heap->lj.value2)); \
  7696. } while (0)
  7697. #define DUK_ASSERT_LJSTATE_SET(heap) do { \
  7698. DUK_ASSERT(heap != NULL); \
  7699. DUK_ASSERT(heap->lj.type != DUK_LJ_TYPE_UNKNOWN); \
  7700. } while (0)
  7701. /*
  7702. * Main heap structure
  7703. */
  7704. struct duk_heap {
  7705. duk_small_uint_t flags;
  7706. /* Allocator functions. */
  7707. duk_alloc_function alloc_func;
  7708. duk_realloc_function realloc_func;
  7709. duk_free_function free_func;
  7710. /* Heap udata, used for allocator functions but also for other heap
  7711. * level callbacks like fatal function, pointer compression, etc.
  7712. */
  7713. void *heap_udata;
  7714. /* Fatal error handling, called e.g. when a longjmp() is needed but
  7715. * lj.jmpbuf_ptr is NULL. fatal_func must never return; it's not
  7716. * declared as "noreturn" because doing that for typedefs is a bit
  7717. * challenging portability-wise.
  7718. */
  7719. duk_fatal_function fatal_func;
  7720. /* Main list of allocated heap objects. Objects are either here,
  7721. * in finalize_list waiting for processing, or in refzero_list
  7722. * temporarily while a DECREF refzero cascade finishes.
  7723. */
  7724. duk_heaphdr *heap_allocated;
  7725. /* Temporary work list for freeing a cascade of objects when a DECREF
  7726. * (or DECREF_NORZ) encounters a zero refcount. Using a work list
  7727. * allows fixed C stack size when refcounts go to zero for a chain of
  7728. * objects. Outside of DECREF this is always a NULL because DECREF is
  7729. * processed without side effects (only memory free calls).
  7730. */
  7731. #if defined(DUK_USE_REFERENCE_COUNTING)
  7732. duk_heaphdr *refzero_list;
  7733. #endif
  7734. #if defined(DUK_USE_FINALIZER_SUPPORT)
  7735. /* Work list for objects to be finalized. */
  7736. duk_heaphdr *finalize_list;
  7737. #if defined(DUK_USE_ASSERTIONS)
  7738. /* Object whose finalizer is executing right now (no nesting). */
  7739. duk_heaphdr *currently_finalizing;
  7740. #endif
  7741. #endif
  7742. /* Freelist for duk_activations and duk_catchers. */
  7743. #if defined(DUK_USE_CACHE_ACTIVATION)
  7744. duk_activation *activation_free;
  7745. #endif
  7746. #if defined(DUK_USE_CACHE_CATCHER)
  7747. duk_catcher *catcher_free;
  7748. #endif
  7749. /* Voluntary mark-and-sweep trigger counter. Intentionally signed
  7750. * because we continue decreasing the value when voluntary GC cannot
  7751. * run.
  7752. */
  7753. #if defined(DUK_USE_VOLUNTARY_GC)
  7754. duk_int_t ms_trigger_counter;
  7755. #endif
  7756. /* Mark-and-sweep recursion control: too deep recursion causes
  7757. * multi-pass processing to avoid growing C stack without bound.
  7758. */
  7759. duk_uint_t ms_recursion_depth;
  7760. /* Mark-and-sweep flags automatically active (used for critical sections). */
  7761. duk_small_uint_t ms_base_flags;
  7762. /* Mark-and-sweep running flag. Prevents re-entry, and also causes
  7763. * refzero events to be ignored (= objects won't be queued to refzero_list).
  7764. */
  7765. duk_uint_t ms_running;
  7766. /* Mark-and-sweep prevent count, stacking. Used to avoid M&S side
  7767. * effects (besides finalizers which are controlled separately) such
  7768. * as compacting the string table or object property tables. This
  7769. * is also bumped when ms_running is set to prevent recursive re-entry.
  7770. * Can also be bumped when mark-and-sweep is not running.
  7771. */
  7772. duk_uint_t ms_prevent_count;
  7773. /* Finalizer processing prevent count, stacking. Bumped when finalizers
  7774. * are processed to prevent recursive finalizer processing (first call site
  7775. * processing finalizers handles all finalizers until the list is empty).
  7776. * Can also be bumped explicitly to prevent finalizer execution.
  7777. */
  7778. duk_uint_t pf_prevent_count;
  7779. /* When processing finalize_list, don't actually run finalizers but
  7780. * queue finalizable objects back to heap_allocated as is. This is
  7781. * used during heap destruction to deal with finalizers that keep
  7782. * on creating more finalizable garbage.
  7783. */
  7784. duk_uint_t pf_skip_finalizers;
  7785. #if defined(DUK_USE_ASSERTIONS)
  7786. /* Set when we're in a critical path where an error throw would cause
  7787. * e.g. sandboxing/protected call violations or state corruption. This
  7788. * is just used for asserts.
  7789. */
  7790. duk_bool_t error_not_allowed;
  7791. #endif
  7792. #if defined(DUK_USE_ASSERTIONS)
  7793. /* Set when heap is still being initialized, helps with writing
  7794. * some assertions.
  7795. */
  7796. duk_bool_t heap_initializing;
  7797. #endif
  7798. /* Marker for detecting internal "double faults", errors thrown when
  7799. * we're trying to create an error object, see duk_error_throw.c.
  7800. */
  7801. duk_bool_t creating_error;
  7802. /* Marker for indicating we're calling a user error augmentation
  7803. * (errCreate/errThrow) function. Errors created/thrown during
  7804. * such a call are not augmented.
  7805. */
  7806. #if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE)
  7807. duk_bool_t augmenting_error;
  7808. #endif
  7809. /* Longjmp state. */
  7810. duk_ljstate lj;
  7811. /* Heap thread, used internally and for finalization. */
  7812. duk_hthread *heap_thread;
  7813. /* Current running thread. */
  7814. duk_hthread *curr_thread;
  7815. /* Heap level "stash" object (e.g., various reachability roots). */
  7816. duk_hobject *heap_object;
  7817. /* duk_handle_call / duk_handle_safe_call recursion depth limiting */
  7818. duk_int_t call_recursion_depth;
  7819. duk_int_t call_recursion_limit;
  7820. /* Mix-in value for computing string hashes; should be reasonably unpredictable. */
  7821. duk_uint32_t hash_seed;
  7822. /* Random number state for duk_util_tinyrandom.c. */
  7823. #if !defined(DUK_USE_GET_RANDOM_DOUBLE)
  7824. #if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS)
  7825. duk_uint32_t rnd_state; /* State for Shamir's three-op algorithm */
  7826. #else
  7827. duk_uint64_t rnd_state[2]; /* State for xoroshiro128+ */
  7828. #endif
  7829. #endif
  7830. /* Counter for unique local symbol creation. */
  7831. /* XXX: When 64-bit types are available, it would be more efficient to
  7832. * use a duk_uint64_t at least for incrementing but maybe also for
  7833. * string formatting in the Symbol constructor.
  7834. */
  7835. duk_uint32_t sym_counter[2];
  7836. /* For manual debugging: instruction count based on executor and
  7837. * interrupt counter book-keeping. Inspect debug logs to see how
  7838. * they match up.
  7839. */
  7840. #if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG)
  7841. duk_int_t inst_count_exec;
  7842. duk_int_t inst_count_interrupt;
  7843. #endif
  7844. /* Debugger state. */
  7845. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  7846. /* Callbacks and udata; dbg_read_cb != NULL is used to indicate attached state. */
  7847. duk_debug_read_function dbg_read_cb; /* required, NULL implies detached */
  7848. duk_debug_write_function dbg_write_cb; /* required */
  7849. duk_debug_peek_function dbg_peek_cb;
  7850. duk_debug_read_flush_function dbg_read_flush_cb;
  7851. duk_debug_write_flush_function dbg_write_flush_cb;
  7852. duk_debug_request_function dbg_request_cb;
  7853. duk_debug_detached_function dbg_detached_cb;
  7854. void *dbg_udata;
  7855. /* The following are only relevant when debugger is attached. */
  7856. duk_bool_t dbg_processing; /* currently processing messages or breakpoints: don't enter message processing recursively (e.g. no breakpoints when processing debugger eval) */
  7857. duk_bool_t dbg_state_dirty; /* resend state next time executor is about to run */
  7858. duk_bool_t dbg_force_restart; /* force executor restart to recheck breakpoints; used to handle function returns (see GH-303) */
  7859. duk_bool_t dbg_detaching; /* debugger detaching; used to avoid calling detach handler recursively */
  7860. duk_small_uint_t dbg_pause_flags; /* flags for automatic pause behavior */
  7861. duk_activation *dbg_pause_act; /* activation related to pause behavior (pause on line change, function entry/exit) */
  7862. duk_uint32_t dbg_pause_startline; /* starting line number for line change related pause behavior */
  7863. duk_breakpoint dbg_breakpoints[DUK_HEAP_MAX_BREAKPOINTS]; /* breakpoints: [0,breakpoint_count[ gc reachable */
  7864. duk_small_uint_t dbg_breakpoint_count;
  7865. duk_breakpoint *dbg_breakpoints_active[DUK_HEAP_MAX_BREAKPOINTS + 1]; /* currently active breakpoints: NULL term, borrowed pointers */
  7866. /* XXX: make active breakpoints actual copies instead of pointers? */
  7867. /* These are for rate limiting Status notifications and transport peeking. */
  7868. duk_uint_t dbg_exec_counter; /* cumulative opcode execution count (overflows are OK) */
  7869. duk_uint_t dbg_last_counter; /* value of dbg_exec_counter when we last did a Date-based check */
  7870. duk_double_t dbg_last_time; /* time when status/peek was last done (Date-based rate limit) */
  7871. /* Used to support single-byte stream lookahead. */
  7872. duk_bool_t dbg_have_next_byte;
  7873. duk_uint8_t dbg_next_byte;
  7874. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  7875. #if defined(DUK_USE_ASSERTIONS)
  7876. duk_bool_t dbg_calling_transport; /* transport call in progress, calling into Duktape forbidden */
  7877. #endif
  7878. /* String intern table (weak refs). */
  7879. #if defined(DUK_USE_STRTAB_PTRCOMP)
  7880. duk_uint16_t *strtable16;
  7881. #else
  7882. duk_hstring **strtable;
  7883. #endif
  7884. duk_uint32_t st_mask; /* mask for lookup, st_size - 1 */
  7885. duk_uint32_t st_size; /* stringtable size */
  7886. #if (DUK_USE_STRTAB_MINSIZE != DUK_USE_STRTAB_MAXSIZE)
  7887. duk_uint32_t st_count; /* string count for resize load factor checks */
  7888. #endif
  7889. duk_bool_t st_resizing; /* string table is being resized; avoid recursive resize */
  7890. /* String access cache (codepoint offset -> byte offset) for fast string
  7891. * character looping; 'weak' reference which needs special handling in GC.
  7892. */
  7893. duk_strcache strcache[DUK_HEAP_STRCACHE_SIZE];
  7894. /* Built-in strings. */
  7895. #if defined(DUK_USE_ROM_STRINGS)
  7896. /* No field needed when strings are in ROM. */
  7897. #else
  7898. #if defined(DUK_USE_HEAPPTR16)
  7899. duk_uint16_t strs16[DUK_HEAP_NUM_STRINGS];
  7900. #else
  7901. duk_hstring *strs[DUK_HEAP_NUM_STRINGS];
  7902. #endif
  7903. #endif
  7904. /* Stats. */
  7905. #if defined(DUK_USE_DEBUG)
  7906. duk_int_t stats_exec_opcodes;
  7907. duk_int_t stats_exec_interrupt;
  7908. duk_int_t stats_exec_throw;
  7909. duk_int_t stats_call_all;
  7910. duk_int_t stats_call_tailcall;
  7911. duk_int_t stats_call_ecmatoecma;
  7912. duk_int_t stats_safecall_all;
  7913. duk_int_t stats_safecall_nothrow;
  7914. duk_int_t stats_safecall_throw;
  7915. duk_int_t stats_ms_try_count;
  7916. duk_int_t stats_ms_skip_count;
  7917. duk_int_t stats_ms_emergency_count;
  7918. duk_int_t stats_strtab_intern_hit;
  7919. duk_int_t stats_strtab_intern_miss;
  7920. duk_int_t stats_strtab_resize_check;
  7921. duk_int_t stats_strtab_resize_grow;
  7922. duk_int_t stats_strtab_resize_shrink;
  7923. duk_int_t stats_object_realloc_props;
  7924. duk_int_t stats_object_abandon_array;
  7925. duk_int_t stats_getownpropdesc_count;
  7926. duk_int_t stats_getownpropdesc_hit;
  7927. duk_int_t stats_getownpropdesc_miss;
  7928. duk_int_t stats_getpropdesc_count;
  7929. duk_int_t stats_getpropdesc_hit;
  7930. duk_int_t stats_getpropdesc_miss;
  7931. duk_int_t stats_getprop_all;
  7932. duk_int_t stats_getprop_arrayidx;
  7933. duk_int_t stats_getprop_bufobjidx;
  7934. duk_int_t stats_getprop_bufferidx;
  7935. duk_int_t stats_getprop_bufferlen;
  7936. duk_int_t stats_getprop_stringidx;
  7937. duk_int_t stats_getprop_stringlen;
  7938. duk_int_t stats_getprop_proxy;
  7939. duk_int_t stats_getprop_arguments;
  7940. duk_int_t stats_putprop_all;
  7941. duk_int_t stats_putprop_arrayidx;
  7942. duk_int_t stats_putprop_bufobjidx;
  7943. duk_int_t stats_putprop_bufferidx;
  7944. duk_int_t stats_putprop_proxy;
  7945. duk_int_t stats_getvar_all;
  7946. duk_int_t stats_putvar_all;
  7947. #endif
  7948. };
  7949. /*
  7950. * Prototypes
  7951. */
  7952. DUK_INTERNAL_DECL
  7953. duk_heap *duk_heap_alloc(duk_alloc_function alloc_func,
  7954. duk_realloc_function realloc_func,
  7955. duk_free_function free_func,
  7956. void *heap_udata,
  7957. duk_fatal_function fatal_func);
  7958. DUK_INTERNAL_DECL void duk_heap_free(duk_heap *heap);
  7959. DUK_INTERNAL_DECL void duk_free_hobject(duk_heap *heap, duk_hobject *h);
  7960. DUK_INTERNAL_DECL void duk_free_hbuffer(duk_heap *heap, duk_hbuffer *h);
  7961. DUK_INTERNAL_DECL void duk_free_hstring(duk_heap *heap, duk_hstring *h);
  7962. DUK_INTERNAL_DECL void duk_heap_free_heaphdr_raw(duk_heap *heap, duk_heaphdr *hdr);
  7963. DUK_INTERNAL_DECL void duk_heap_insert_into_heap_allocated(duk_heap *heap, duk_heaphdr *hdr);
  7964. #if defined(DUK_USE_REFERENCE_COUNTING)
  7965. DUK_INTERNAL_DECL void duk_heap_remove_from_heap_allocated(duk_heap *heap, duk_heaphdr *hdr);
  7966. #endif
  7967. #if defined(DUK_USE_FINALIZER_SUPPORT)
  7968. DUK_INTERNAL_DECL void duk_heap_insert_into_finalize_list(duk_heap *heap, duk_heaphdr *hdr);
  7969. DUK_INTERNAL_DECL void duk_heap_remove_from_finalize_list(duk_heap *heap, duk_heaphdr *hdr);
  7970. #endif
  7971. #if defined(DUK_USE_ASSERTIONS)
  7972. DUK_INTERNAL_DECL duk_bool_t duk_heap_in_heap_allocated(duk_heap *heap, duk_heaphdr *ptr);
  7973. #endif
  7974. #if defined(DUK_USE_INTERRUPT_COUNTER)
  7975. DUK_INTERNAL_DECL void duk_heap_switch_thread(duk_heap *heap, duk_hthread *new_thr);
  7976. #endif
  7977. DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen);
  7978. DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t len);
  7979. DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_u32(duk_heap *heap, duk_uint32_t val);
  7980. DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_u32_checked(duk_hthread *thr, duk_uint32_t val);
  7981. #if defined(DUK_USE_REFERENCE_COUNTING)
  7982. DUK_INTERNAL_DECL void duk_heap_strtable_unlink(duk_heap *heap, duk_hstring *h);
  7983. #endif
  7984. DUK_INTERNAL_DECL void duk_heap_strtable_unlink_prev(duk_heap *heap, duk_hstring *h, duk_hstring *prev);
  7985. DUK_INTERNAL_DECL void duk_heap_strtable_force_resize(duk_heap *heap);
  7986. DUK_INTERNAL void duk_heap_strtable_free(duk_heap *heap);
  7987. #if defined(DUK_USE_DEBUG)
  7988. DUK_INTERNAL void duk_heap_strtable_dump(duk_heap *heap);
  7989. #endif
  7990. DUK_INTERNAL_DECL void duk_heap_strcache_string_remove(duk_heap *heap, duk_hstring *h);
  7991. DUK_INTERNAL_DECL duk_uint_fast32_t duk_heap_strcache_offset_char2byte(duk_hthread *thr, duk_hstring *h, duk_uint_fast32_t char_offset);
  7992. #if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS)
  7993. DUK_INTERNAL_DECL void *duk_default_alloc_function(void *udata, duk_size_t size);
  7994. DUK_INTERNAL_DECL void *duk_default_realloc_function(void *udata, void *ptr, duk_size_t newsize);
  7995. DUK_INTERNAL_DECL void duk_default_free_function(void *udata, void *ptr);
  7996. #endif
  7997. DUK_INTERNAL_DECL void *duk_heap_mem_alloc(duk_heap *heap, duk_size_t size);
  7998. DUK_INTERNAL_DECL void *duk_heap_mem_alloc_zeroed(duk_heap *heap, duk_size_t size);
  7999. DUK_INTERNAL_DECL void *duk_heap_mem_alloc_checked(duk_hthread *thr, duk_size_t size);
  8000. DUK_INTERNAL_DECL void *duk_heap_mem_alloc_checked_zeroed(duk_hthread *thr, duk_size_t size);
  8001. DUK_INTERNAL_DECL void *duk_heap_mem_realloc(duk_heap *heap, void *ptr, duk_size_t newsize);
  8002. DUK_INTERNAL_DECL void *duk_heap_mem_realloc_indirect(duk_heap *heap, duk_mem_getptr cb, void *ud, duk_size_t newsize);
  8003. DUK_INTERNAL_DECL void duk_heap_mem_free(duk_heap *heap, void *ptr);
  8004. DUK_INTERNAL_DECL void duk_heap_free_freelists(duk_heap *heap);
  8005. #if defined(DUK_USE_FINALIZER_SUPPORT)
  8006. DUK_INTERNAL_DECL void duk_heap_run_finalizer(duk_heap *heap, duk_hobject *obj);
  8007. DUK_INTERNAL_DECL void duk_heap_process_finalize_list(duk_heap *heap);
  8008. #endif /* DUK_USE_FINALIZER_SUPPORT */
  8009. DUK_INTERNAL_DECL void duk_heap_mark_and_sweep(duk_heap *heap, duk_small_uint_t flags);
  8010. DUK_INTERNAL_DECL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len);
  8011. #endif /* DUK_HEAP_H_INCLUDED */
  8012. /* #include duk_debugger.h */
  8013. #line 1 "duk_debugger.h"
  8014. #if !defined(DUK_DEBUGGER_H_INCLUDED)
  8015. #define DUK_DEBUGGER_H_INCLUDED
  8016. /* Debugger protocol version is defined in the public API header. */
  8017. /* Initial bytes for markers. */
  8018. #define DUK_DBG_IB_EOM 0x00
  8019. #define DUK_DBG_IB_REQUEST 0x01
  8020. #define DUK_DBG_IB_REPLY 0x02
  8021. #define DUK_DBG_IB_ERROR 0x03
  8022. #define DUK_DBG_IB_NOTIFY 0x04
  8023. /* Other initial bytes. */
  8024. #define DUK_DBG_IB_INT4 0x10
  8025. #define DUK_DBG_IB_STR4 0x11
  8026. #define DUK_DBG_IB_STR2 0x12
  8027. #define DUK_DBG_IB_BUF4 0x13
  8028. #define DUK_DBG_IB_BUF2 0x14
  8029. #define DUK_DBG_IB_UNUSED 0x15
  8030. #define DUK_DBG_IB_UNDEFINED 0x16
  8031. #define DUK_DBG_IB_NULL 0x17
  8032. #define DUK_DBG_IB_TRUE 0x18
  8033. #define DUK_DBG_IB_FALSE 0x19
  8034. #define DUK_DBG_IB_NUMBER 0x1a
  8035. #define DUK_DBG_IB_OBJECT 0x1b
  8036. #define DUK_DBG_IB_POINTER 0x1c
  8037. #define DUK_DBG_IB_LIGHTFUNC 0x1d
  8038. #define DUK_DBG_IB_HEAPPTR 0x1e
  8039. /* The short string/integer initial bytes starting from 0x60 don't have
  8040. * defines now.
  8041. */
  8042. /* Error codes. */
  8043. #define DUK_DBG_ERR_UNKNOWN 0x00
  8044. #define DUK_DBG_ERR_UNSUPPORTED 0x01
  8045. #define DUK_DBG_ERR_TOOMANY 0x02
  8046. #define DUK_DBG_ERR_NOTFOUND 0x03
  8047. #define DUK_DBG_ERR_APPLICATION 0x04
  8048. /* Commands and notifys initiated by Duktape. */
  8049. #define DUK_DBG_CMD_STATUS 0x01
  8050. #define DUK_DBG_CMD_UNUSED_2 0x02 /* Duktape 1.x: print notify */
  8051. #define DUK_DBG_CMD_UNUSED_3 0x03 /* Duktape 1.x: alert notify */
  8052. #define DUK_DBG_CMD_UNUSED_4 0x04 /* Duktape 1.x: log notify */
  8053. #define DUK_DBG_CMD_THROW 0x05
  8054. #define DUK_DBG_CMD_DETACHING 0x06
  8055. #define DUK_DBG_CMD_APPNOTIFY 0x07
  8056. /* Commands initiated by debug client. */
  8057. #define DUK_DBG_CMD_BASICINFO 0x10
  8058. #define DUK_DBG_CMD_TRIGGERSTATUS 0x11
  8059. #define DUK_DBG_CMD_PAUSE 0x12
  8060. #define DUK_DBG_CMD_RESUME 0x13
  8061. #define DUK_DBG_CMD_STEPINTO 0x14
  8062. #define DUK_DBG_CMD_STEPOVER 0x15
  8063. #define DUK_DBG_CMD_STEPOUT 0x16
  8064. #define DUK_DBG_CMD_LISTBREAK 0x17
  8065. #define DUK_DBG_CMD_ADDBREAK 0x18
  8066. #define DUK_DBG_CMD_DELBREAK 0x19
  8067. #define DUK_DBG_CMD_GETVAR 0x1a
  8068. #define DUK_DBG_CMD_PUTVAR 0x1b
  8069. #define DUK_DBG_CMD_GETCALLSTACK 0x1c
  8070. #define DUK_DBG_CMD_GETLOCALS 0x1d
  8071. #define DUK_DBG_CMD_EVAL 0x1e
  8072. #define DUK_DBG_CMD_DETACH 0x1f
  8073. #define DUK_DBG_CMD_DUMPHEAP 0x20
  8074. #define DUK_DBG_CMD_GETBYTECODE 0x21
  8075. #define DUK_DBG_CMD_APPREQUEST 0x22
  8076. #define DUK_DBG_CMD_GETHEAPOBJINFO 0x23
  8077. #define DUK_DBG_CMD_GETOBJPROPDESC 0x24
  8078. #define DUK_DBG_CMD_GETOBJPROPDESCRANGE 0x25
  8079. /* The low 8 bits map directly to duk_hobject.h DUK_PROPDESC_FLAG_xxx.
  8080. * The remaining flags are specific to the debugger.
  8081. */
  8082. #define DUK_DBG_PROPFLAG_SYMBOL (1U << 8)
  8083. #define DUK_DBG_PROPFLAG_HIDDEN (1U << 9)
  8084. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  8085. DUK_INTERNAL_DECL void duk_debug_do_detach(duk_heap *heap);
  8086. DUK_INTERNAL_DECL duk_bool_t duk_debug_read_peek(duk_hthread *thr);
  8087. DUK_INTERNAL_DECL void duk_debug_write_flush(duk_hthread *thr);
  8088. DUK_INTERNAL_DECL void duk_debug_skip_bytes(duk_hthread *thr, duk_size_t length);
  8089. DUK_INTERNAL_DECL void duk_debug_skip_byte(duk_hthread *thr);
  8090. DUK_INTERNAL_DECL void duk_debug_read_bytes(duk_hthread *thr, duk_uint8_t *data, duk_size_t length);
  8091. DUK_INTERNAL_DECL duk_uint8_t duk_debug_read_byte(duk_hthread *thr);
  8092. DUK_INTERNAL_DECL duk_int32_t duk_debug_read_int(duk_hthread *thr);
  8093. DUK_INTERNAL_DECL duk_hstring *duk_debug_read_hstring(duk_hthread *thr);
  8094. /* XXX: exposed duk_debug_read_pointer */
  8095. /* XXX: exposed duk_debug_read_buffer */
  8096. /* XXX: exposed duk_debug_read_hbuffer */
  8097. #if 0
  8098. DUK_INTERNAL_DECL duk_heaphdr *duk_debug_read_heapptr(duk_hthread *thr);
  8099. #endif
  8100. #if defined(DUK_USE_DEBUGGER_INSPECT)
  8101. DUK_INTERNAL_DECL duk_heaphdr *duk_debug_read_any_ptr(duk_hthread *thr);
  8102. #endif
  8103. DUK_INTERNAL_DECL duk_tval *duk_debug_read_tval(duk_hthread *thr);
  8104. DUK_INTERNAL_DECL void duk_debug_write_bytes(duk_hthread *thr, const duk_uint8_t *data, duk_size_t length);
  8105. DUK_INTERNAL_DECL void duk_debug_write_byte(duk_hthread *thr, duk_uint8_t x);
  8106. DUK_INTERNAL_DECL void duk_debug_write_unused(duk_hthread *thr);
  8107. DUK_INTERNAL_DECL void duk_debug_write_undefined(duk_hthread *thr);
  8108. #if defined(DUK_USE_DEBUGGER_INSPECT)
  8109. DUK_INTERNAL_DECL void duk_debug_write_null(duk_hthread *thr);
  8110. #endif
  8111. DUK_INTERNAL_DECL void duk_debug_write_boolean(duk_hthread *thr, duk_uint_t val);
  8112. DUK_INTERNAL_DECL void duk_debug_write_int(duk_hthread *thr, duk_int32_t x);
  8113. DUK_INTERNAL_DECL void duk_debug_write_uint(duk_hthread *thr, duk_uint32_t x);
  8114. DUK_INTERNAL_DECL void duk_debug_write_string(duk_hthread *thr, const char *data, duk_size_t length);
  8115. DUK_INTERNAL_DECL void duk_debug_write_cstring(duk_hthread *thr, const char *data);
  8116. DUK_INTERNAL_DECL void duk_debug_write_hstring(duk_hthread *thr, duk_hstring *h);
  8117. DUK_INTERNAL_DECL void duk_debug_write_buffer(duk_hthread *thr, const char *data, duk_size_t length);
  8118. DUK_INTERNAL_DECL void duk_debug_write_hbuffer(duk_hthread *thr, duk_hbuffer *h);
  8119. DUK_INTERNAL_DECL void duk_debug_write_pointer(duk_hthread *thr, void *ptr);
  8120. #if defined(DUK_USE_DEBUGGER_DUMPHEAP) || defined(DUK_USE_DEBUGGER_INSPECT)
  8121. DUK_INTERNAL_DECL void duk_debug_write_heapptr(duk_hthread *thr, duk_heaphdr *h);
  8122. #endif
  8123. DUK_INTERNAL_DECL void duk_debug_write_hobject(duk_hthread *thr, duk_hobject *obj);
  8124. DUK_INTERNAL_DECL void duk_debug_write_tval(duk_hthread *thr, duk_tval *tv);
  8125. #if 0 /* unused */
  8126. DUK_INTERNAL_DECL void duk_debug_write_request(duk_hthread *thr, duk_small_uint_t command);
  8127. #endif
  8128. DUK_INTERNAL_DECL void duk_debug_write_reply(duk_hthread *thr);
  8129. DUK_INTERNAL_DECL void duk_debug_write_error_eom(duk_hthread *thr, duk_small_uint_t err_code, const char *msg);
  8130. DUK_INTERNAL_DECL void duk_debug_write_notify(duk_hthread *thr, duk_small_uint_t command);
  8131. DUK_INTERNAL_DECL void duk_debug_write_eom(duk_hthread *thr);
  8132. DUK_INTERNAL_DECL duk_uint_fast32_t duk_debug_curr_line(duk_hthread *thr);
  8133. DUK_INTERNAL_DECL void duk_debug_send_status(duk_hthread *thr);
  8134. #if defined(DUK_USE_DEBUGGER_THROW_NOTIFY)
  8135. DUK_INTERNAL_DECL void duk_debug_send_throw(duk_hthread *thr, duk_bool_t fatal);
  8136. #endif
  8137. DUK_INTERNAL_DECL void duk_debug_halt_execution(duk_hthread *thr, duk_bool_t use_prev_pc);
  8138. DUK_INTERNAL_DECL duk_bool_t duk_debug_process_messages(duk_hthread *thr, duk_bool_t no_block);
  8139. DUK_INTERNAL_DECL duk_small_int_t duk_debug_add_breakpoint(duk_hthread *thr, duk_hstring *filename, duk_uint32_t line);
  8140. DUK_INTERNAL_DECL duk_bool_t duk_debug_remove_breakpoint(duk_hthread *thr, duk_small_uint_t breakpoint_index);
  8141. DUK_INTERNAL_DECL duk_bool_t duk_debug_is_attached(duk_heap *heap);
  8142. DUK_INTERNAL_DECL duk_bool_t duk_debug_is_paused(duk_heap *heap);
  8143. DUK_INTERNAL_DECL void duk_debug_set_paused(duk_heap *heap);
  8144. DUK_INTERNAL_DECL void duk_debug_clear_paused(duk_heap *heap);
  8145. DUK_INTERNAL_DECL void duk_debug_clear_pause_state(duk_heap *heap);
  8146. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  8147. #endif /* DUK_DEBUGGER_H_INCLUDED */
  8148. /* #include duk_debug.h */
  8149. #line 1 "duk_debug.h"
  8150. /*
  8151. * Debugging macros, DUK_DPRINT() and its variants in particular.
  8152. *
  8153. * DUK_DPRINT() allows formatted debug prints, and supports standard
  8154. * and Duktape specific formatters. See duk_debug_vsnprintf.c for details.
  8155. *
  8156. * DUK_D(x), DUK_DD(x), and DUK_DDD(x) are used together with log macros
  8157. * for technical reasons. They are concretely used to hide 'x' from the
  8158. * compiler when the corresponding log level is disabled. This allows
  8159. * clean builds on non-C99 compilers, at the cost of more verbose code.
  8160. * Examples:
  8161. *
  8162. * DUK_D(DUK_DPRINT("foo"));
  8163. * DUK_DD(DUK_DDPRINT("foo"));
  8164. * DUK_DDD(DUK_DDDPRINT("foo"));
  8165. *
  8166. * This approach is preferable to the old "double parentheses" hack because
  8167. * double parentheses make the C99 solution worse: __FILE__ and __LINE__ can
  8168. * no longer be added transparently without going through globals, which
  8169. * works poorly with threading.
  8170. */
  8171. #if !defined(DUK_DEBUG_H_INCLUDED)
  8172. #define DUK_DEBUG_H_INCLUDED
  8173. #if defined(DUK_USE_DEBUG)
  8174. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0)
  8175. #define DUK_D(x) x
  8176. #else
  8177. #define DUK_D(x) do { } while (0) /* omit */
  8178. #endif
  8179. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1)
  8180. #define DUK_DD(x) x
  8181. #else
  8182. #define DUK_DD(x) do { } while (0) /* omit */
  8183. #endif
  8184. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  8185. #define DUK_DDD(x) x
  8186. #else
  8187. #define DUK_DDD(x) do { } while (0) /* omit */
  8188. #endif
  8189. /*
  8190. * Exposed debug macros: debugging enabled
  8191. */
  8192. #if defined(DUK_USE_VARIADIC_MACROS)
  8193. /* Note: combining __FILE__, __LINE__, and __func__ into fmt would be
  8194. * possible compile time, but waste some space with shared function names.
  8195. */
  8196. #define DUK__DEBUG_LOG(lev,...) duk_debug_log((duk_int_t) (lev), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, DUK_FUNC_MACRO, __VA_ARGS__);
  8197. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0)
  8198. #define DUK_DPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DEBUG, __VA_ARGS__)
  8199. #else
  8200. #define DUK_DPRINT(...)
  8201. #endif
  8202. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1)
  8203. #define DUK_DDPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DDEBUG, __VA_ARGS__)
  8204. #else
  8205. #define DUK_DDPRINT(...)
  8206. #endif
  8207. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  8208. #define DUK_DDDPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DDDEBUG, __VA_ARGS__)
  8209. #else
  8210. #define DUK_DDDPRINT(...)
  8211. #endif
  8212. #else /* DUK_USE_VARIADIC_MACROS */
  8213. #define DUK__DEBUG_STASH(lev) \
  8214. (void) DUK_SNPRINTF(duk_debug_file_stash, DUK_DEBUG_STASH_SIZE, "%s", (const char *) DUK_FILE_MACRO), \
  8215. (void) (duk_debug_file_stash[DUK_DEBUG_STASH_SIZE - 1] = (char) 0), \
  8216. (void) (duk_debug_line_stash = (duk_int_t) DUK_LINE_MACRO), \
  8217. (void) DUK_SNPRINTF(duk_debug_func_stash, DUK_DEBUG_STASH_SIZE, "%s", (const char *) DUK_FUNC_MACRO), \
  8218. (void) (duk_debug_func_stash[DUK_DEBUG_STASH_SIZE - 1] = (char) 0), \
  8219. (void) (duk_debug_level_stash = (lev))
  8220. /* Without variadic macros resort to comma expression trickery to handle debug
  8221. * prints. This generates a lot of harmless warnings. These hacks are not
  8222. * needed normally because DUK_D() and friends will hide the entire debug log
  8223. * statement from the compiler.
  8224. */
  8225. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0)
  8226. #define DUK_DPRINT DUK__DEBUG_STASH(DUK_LEVEL_DEBUG), (void) duk_debug_log /* args go here in parens */
  8227. #else
  8228. #define DUK_DPRINT 0 && /* args go here as a comma expression in parens */
  8229. #endif
  8230. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1)
  8231. #define DUK_DDPRINT DUK__DEBUG_STASH(DUK_LEVEL_DDEBUG), (void) duk_debug_log /* args go here in parens */
  8232. #else
  8233. #define DUK_DDPRINT 0 && /* args */
  8234. #endif
  8235. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  8236. #define DUK_DDDPRINT DUK__DEBUG_STASH(DUK_LEVEL_DDDEBUG), (void) duk_debug_log /* args go here in parens */
  8237. #else
  8238. #define DUK_DDDPRINT 0 && /* args */
  8239. #endif
  8240. #endif /* DUK_USE_VARIADIC_MACROS */
  8241. #else /* DUK_USE_DEBUG */
  8242. /*
  8243. * Exposed debug macros: debugging disabled
  8244. */
  8245. #define DUK_D(x) do { } while (0) /* omit */
  8246. #define DUK_DD(x) do { } while (0) /* omit */
  8247. #define DUK_DDD(x) do { } while (0) /* omit */
  8248. #if defined(DUK_USE_VARIADIC_MACROS)
  8249. #define DUK_DPRINT(...)
  8250. #define DUK_DDPRINT(...)
  8251. #define DUK_DDDPRINT(...)
  8252. #else /* DUK_USE_VARIADIC_MACROS */
  8253. #define DUK_DPRINT 0 && /* args go here as a comma expression in parens */
  8254. #define DUK_DDPRINT 0 && /* args */
  8255. #define DUK_DDDPRINT 0 && /* args */
  8256. #endif /* DUK_USE_VARIADIC_MACROS */
  8257. #endif /* DUK_USE_DEBUG */
  8258. /*
  8259. * Structs
  8260. */
  8261. #if defined(DUK_USE_DEBUG)
  8262. struct duk_fixedbuffer {
  8263. duk_uint8_t *buffer;
  8264. duk_size_t length;
  8265. duk_size_t offset;
  8266. duk_bool_t truncated;
  8267. };
  8268. #endif
  8269. /*
  8270. * Prototypes
  8271. */
  8272. #if defined(DUK_USE_DEBUG)
  8273. DUK_INTERNAL_DECL duk_int_t duk_debug_vsnprintf(char *str, duk_size_t size, const char *format, va_list ap);
  8274. #if 0 /*unused*/
  8275. DUK_INTERNAL_DECL duk_int_t duk_debug_snprintf(char *str, duk_size_t size, const char *format, ...);
  8276. #endif
  8277. DUK_INTERNAL_DECL void duk_debug_format_funcptr(char *buf, duk_size_t buf_size, duk_uint8_t *fptr, duk_size_t fptr_size);
  8278. #if defined(DUK_USE_VARIADIC_MACROS)
  8279. DUK_INTERNAL_DECL void duk_debug_log(duk_int_t level, const char *file, duk_int_t line, const char *func, const char *fmt, ...);
  8280. #else /* DUK_USE_VARIADIC_MACROS */
  8281. /* parameter passing, not thread safe */
  8282. #define DUK_DEBUG_STASH_SIZE 128
  8283. #if !defined(DUK_SINGLE_FILE)
  8284. DUK_INTERNAL_DECL char duk_debug_file_stash[DUK_DEBUG_STASH_SIZE];
  8285. DUK_INTERNAL_DECL duk_int_t duk_debug_line_stash;
  8286. DUK_INTERNAL_DECL char duk_debug_func_stash[DUK_DEBUG_STASH_SIZE];
  8287. DUK_INTERNAL_DECL duk_int_t duk_debug_level_stash;
  8288. #endif
  8289. DUK_INTERNAL_DECL void duk_debug_log(const char *fmt, ...);
  8290. #endif /* DUK_USE_VARIADIC_MACROS */
  8291. DUK_INTERNAL_DECL void duk_fb_put_bytes(duk_fixedbuffer *fb, const duk_uint8_t *buffer, duk_size_t length);
  8292. DUK_INTERNAL_DECL void duk_fb_put_byte(duk_fixedbuffer *fb, duk_uint8_t x);
  8293. DUK_INTERNAL_DECL void duk_fb_put_cstring(duk_fixedbuffer *fb, const char *x);
  8294. DUK_INTERNAL_DECL void duk_fb_sprintf(duk_fixedbuffer *fb, const char *fmt, ...);
  8295. DUK_INTERNAL_DECL void duk_fb_put_funcptr(duk_fixedbuffer *fb, duk_uint8_t *fptr, duk_size_t fptr_size);
  8296. DUK_INTERNAL_DECL duk_bool_t duk_fb_is_full(duk_fixedbuffer *fb);
  8297. #endif /* DUK_USE_DEBUG */
  8298. #endif /* DUK_DEBUG_H_INCLUDED */
  8299. /* #include duk_error.h */
  8300. #line 1 "duk_error.h"
  8301. /*
  8302. * Error handling macros, assertion macro, error codes.
  8303. *
  8304. * There are three types of 'errors':
  8305. *
  8306. * 1. Ordinary errors relative to a thread, cause a longjmp, catchable.
  8307. * 2. Fatal errors relative to a heap, cause fatal handler to be called.
  8308. * 3. Fatal errors without context, cause the default (not heap specific)
  8309. * fatal handler to be called.
  8310. *
  8311. * Fatal errors without context are used by debug code such as assertions.
  8312. * By providing a fatal error handler for a Duktape heap, user code can
  8313. * avoid fatal errors without context in non-debug builds.
  8314. */
  8315. #if !defined(DUK_ERROR_H_INCLUDED)
  8316. #define DUK_ERROR_H_INCLUDED
  8317. /*
  8318. * Error codes: defined in duktape.h
  8319. *
  8320. * Error codes are used as a shorthand to throw exceptions from inside
  8321. * the implementation. The appropriate Ecmascript object is constructed
  8322. * based on the code. Ecmascript code throws objects directly. The error
  8323. * codes are defined in the public API header because they are also used
  8324. * by calling code.
  8325. */
  8326. /*
  8327. * Normal error
  8328. *
  8329. * Normal error is thrown with a longjmp() through the current setjmp()
  8330. * catchpoint record in the duk_heap. The 'curr_thread' of the duk_heap
  8331. * identifies the throwing thread.
  8332. *
  8333. * Error formatting is usually unnecessary. The error macros provide a
  8334. * zero argument version (no formatting) and separate macros for small
  8335. * argument counts. Variadic macros are not used to avoid portability
  8336. * issues and avoid the need for stash-based workarounds when they're not
  8337. * available. Vararg calls are avoided for non-formatted error calls
  8338. * because vararg call sites are larger than normal, and there are a lot
  8339. * of call sites with no formatting.
  8340. *
  8341. * Note that special formatting provided by debug macros is NOT available.
  8342. *
  8343. * The _RAW variants allow the caller to specify file and line. This makes
  8344. * it easier to write checked calls which want to use the call site of the
  8345. * checked function, not the error macro call inside the checked function.
  8346. */
  8347. #if defined(DUK_USE_VERBOSE_ERRORS)
  8348. /* Because there are quite many call sites, pack error code (require at most
  8349. * 8-bit) into a single argument.
  8350. */
  8351. #define DUK_ERROR(thr,err,msg) do { \
  8352. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \
  8353. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8354. duk_err_handle_error((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (msg)); \
  8355. } while (0)
  8356. #define DUK_ERROR_RAW(thr,file,line,err,msg) do { \
  8357. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \
  8358. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8359. duk_err_handle_error((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (msg)); \
  8360. } while (0)
  8361. #define DUK_ERROR_FMT1(thr,err,fmt,arg1) do { \
  8362. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \
  8363. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8364. duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1)); \
  8365. } while (0)
  8366. #define DUK_ERROR_RAW_FMT1(thr,file,line,err,fmt,arg1) do { \
  8367. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \
  8368. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8369. duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1)); \
  8370. } while (0)
  8371. #define DUK_ERROR_FMT2(thr,err,fmt,arg1,arg2) do { \
  8372. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \
  8373. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8374. duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2)); \
  8375. } while (0)
  8376. #define DUK_ERROR_RAW_FMT2(thr,file,line,err,fmt,arg1,arg2) do { \
  8377. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \
  8378. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8379. duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2)); \
  8380. } while (0)
  8381. #define DUK_ERROR_FMT3(thr,err,fmt,arg1,arg2,arg3) do { \
  8382. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \
  8383. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8384. duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3)); \
  8385. } while (0)
  8386. #define DUK_ERROR_RAW_FMT3(thr,file,line,err,fmt,arg1,arg2,arg3) do { \
  8387. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \
  8388. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8389. duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3)); \
  8390. } while (0)
  8391. #define DUK_ERROR_FMT4(thr,err,fmt,arg1,arg2,arg3,arg4) do { \
  8392. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \
  8393. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8394. duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3), (arg4)); \
  8395. } while (0)
  8396. #define DUK_ERROR_RAW_FMT4(thr,file,line,err,fmt,arg1,arg2,arg3,arg4) do { \
  8397. duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \
  8398. DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \
  8399. duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3), (arg4)); \
  8400. } while (0)
  8401. #else /* DUK_USE_VERBOSE_ERRORS */
  8402. #define DUK_ERROR(thr,err,msg) duk_err_handle_error((thr), (err))
  8403. #define DUK_ERROR_RAW(thr,file,line,err,msg) duk_err_handle_error((thr), (err))
  8404. #define DUK_ERROR_FMT1(thr,err,fmt,arg1) DUK_ERROR((thr),(err),(fmt))
  8405. #define DUK_ERROR_RAW_FMT1(thr,file,line,err,fmt,arg1) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt))
  8406. #define DUK_ERROR_FMT2(thr,err,fmt,arg1,arg2) DUK_ERROR((thr),(err),(fmt))
  8407. #define DUK_ERROR_RAW_FMT2(thr,file,line,err,fmt,arg1,arg2) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt))
  8408. #define DUK_ERROR_FMT3(thr,err,fmt,arg1,arg2,arg3) DUK_ERROR((thr),(err),(fmt))
  8409. #define DUK_ERROR_RAW_FMT3(thr,file,line,err,fmt,arg1,arg2,arg3) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt))
  8410. #define DUK_ERROR_FMT4(thr,err,fmt,arg1,arg2,arg3,arg4) DUK_ERROR((thr),(err),(fmt))
  8411. #define DUK_ERROR_RAW_FMT4(thr,file,line,err,fmt,arg1,arg2,arg3,arg4) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt))
  8412. #endif /* DUK_USE_VERBOSE_ERRORS */
  8413. /*
  8414. * Fatal error without context
  8415. *
  8416. * The macro is an expression to make it compatible with DUK_ASSERT_EXPR().
  8417. */
  8418. #define DUK_FATAL_WITHOUT_CONTEXT(msg) \
  8419. duk_default_fatal_handler(NULL, (msg))
  8420. /*
  8421. * Error throwing helpers
  8422. *
  8423. * The goal is to provide verbose and configurable error messages. Call
  8424. * sites should be clean in source code and compile to a small footprint.
  8425. * Small footprint is also useful for performance because small cold paths
  8426. * reduce code cache pressure. Adding macros here only makes sense if there
  8427. * are enough call sites to get concrete benefits.
  8428. *
  8429. * DUK_ERROR_xxx() macros are generic and can be used anywhere.
  8430. *
  8431. * DUK_DCERROR_xxx() macros can only be used in Duktape/C functions where
  8432. * the "return DUK_RET_xxx;" shorthand is available for low memory targets.
  8433. * The DUK_DCERROR_xxx() macros always either throw or perform a
  8434. * 'return DUK_RET_xxx' from the calling function.
  8435. */
  8436. #if defined(DUK_USE_VERBOSE_ERRORS)
  8437. /* Verbose errors with key/value summaries (non-paranoid) or without key/value
  8438. * summaries (paranoid, for some security sensitive environments), the paranoid
  8439. * vs. non-paranoid distinction affects only a few specific errors.
  8440. */
  8441. #if defined(DUK_USE_PARANOID_ERRORS)
  8442. #define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \
  8443. duk_err_require_type_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx), (expectname)); \
  8444. } while (0)
  8445. #else /* DUK_USE_PARANOID_ERRORS */
  8446. #define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \
  8447. duk_err_require_type_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx), (expectname)); \
  8448. } while (0)
  8449. #endif /* DUK_USE_PARANOID_ERRORS */
  8450. #define DUK_ERROR_INTERNAL(thr) do { \
  8451. duk_err_error_internal((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8452. } while (0)
  8453. #define DUK_DCERROR_INTERNAL(thr) do { \
  8454. DUK_ERROR_INTERNAL((thr)); \
  8455. return 0; \
  8456. } while (0)
  8457. #define DUK_ERROR_ALLOC_FAILED(thr) do { \
  8458. duk_err_error_alloc_failed((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8459. } while (0)
  8460. #define DUK_ERROR_UNSUPPORTED(thr) do { \
  8461. DUK_ERROR((thr), DUK_ERR_ERROR, DUK_STR_UNSUPPORTED); \
  8462. } while (0)
  8463. #define DUK_ERROR_ERROR(thr,msg) do { \
  8464. duk_err_error((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (msg)); \
  8465. } while (0)
  8466. #define DUK_ERROR_RANGE_INDEX(thr,idx) do { \
  8467. duk_err_range_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx)); \
  8468. } while (0)
  8469. #define DUK_ERROR_RANGE_PUSH_BEYOND(thr) do { \
  8470. duk_err_range_push_beyond((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8471. } while (0)
  8472. #define DUK_ERROR_RANGE_INVALID_ARGS(thr) do { \
  8473. DUK_ERROR_RANGE((thr), DUK_STR_INVALID_ARGS); \
  8474. } while (0)
  8475. #define DUK_DCERROR_RANGE_INVALID_ARGS(thr) do { \
  8476. DUK_ERROR_RANGE_INVALID_ARGS((thr)); \
  8477. return 0; \
  8478. } while (0)
  8479. #define DUK_ERROR_RANGE_INVALID_COUNT(thr) do { \
  8480. DUK_ERROR_RANGE((thr), DUK_STR_INVALID_COUNT); \
  8481. } while (0)
  8482. #define DUK_DCERROR_RANGE_INVALID_COUNT(thr) do { \
  8483. DUK_ERROR_RANGE_INVALID_COUNT((thr)); \
  8484. return 0; \
  8485. } while (0)
  8486. #define DUK_ERROR_RANGE_INVALID_LENGTH(thr) do { \
  8487. DUK_ERROR_RANGE((thr), DUK_STR_INVALID_LENGTH); \
  8488. } while (0)
  8489. #define DUK_DCERROR_RANGE_INVALID_LENGTH(thr) do { \
  8490. DUK_ERROR_RANGE_INVALID_LENGTH((thr)); \
  8491. return 0; \
  8492. } while (0)
  8493. #define DUK_ERROR_RANGE(thr,msg) do { \
  8494. duk_err_range((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (msg)); \
  8495. } while (0)
  8496. #define DUK_ERROR_EVAL(thr,msg) do { \
  8497. DUK_ERROR((thr), DUK_ERR_EVAL_ERROR, (msg)); \
  8498. } while (0)
  8499. #define DUK_ERROR_REFERENCE(thr,msg) do { \
  8500. DUK_ERROR((thr), DUK_ERR_REFERENCE_ERROR, (msg)); \
  8501. } while (0)
  8502. #define DUK_ERROR_SYNTAX(thr,msg) do { \
  8503. DUK_ERROR((thr), DUK_ERR_SYNTAX_ERROR, (msg)); \
  8504. } while (0)
  8505. #define DUK_ERROR_TYPE_INVALID_ARGS(thr) do { \
  8506. duk_err_type_invalid_args((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8507. } while (0)
  8508. #define DUK_DCERROR_TYPE_INVALID_ARGS(thr) do { \
  8509. DUK_ERROR_TYPE_INVALID_ARGS((thr)); \
  8510. return 0; \
  8511. } while (0)
  8512. #define DUK_ERROR_TYPE_INVALID_STATE(thr) do { \
  8513. duk_err_type_invalid_state((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8514. } while (0)
  8515. #define DUK_DCERROR_TYPE_INVALID_STATE(thr) do { \
  8516. DUK_ERROR_TYPE_INVALID_STATE((thr)); \
  8517. return 0; \
  8518. } while (0)
  8519. #define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \
  8520. duk_err_type_invalid_trap_result((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \
  8521. } while (0)
  8522. #define DUK_DCERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \
  8523. DUK_ERROR_TYPE((thr), DUK_STR_INVALID_TRAP_RESULT); \
  8524. } while (0)
  8525. #define DUK_ERROR_TYPE(thr,msg) do { \
  8526. DUK_ERROR((thr), DUK_ERR_TYPE_ERROR, (msg)); \
  8527. } while (0)
  8528. #define DUK_ERROR_URI(thr,msg) do { \
  8529. DUK_ERROR((thr), DUK_ERR_URI_ERROR, (msg)); \
  8530. } while (0)
  8531. #else /* DUK_USE_VERBOSE_ERRORS */
  8532. /* Non-verbose errors for low memory targets: no file, line, or message. */
  8533. #define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \
  8534. duk_err_type((thr)); \
  8535. } while (0)
  8536. #define DUK_ERROR_INTERNAL(thr) do { \
  8537. duk_err_error((thr)); \
  8538. } while (0)
  8539. #define DUK_DCERROR_INTERNAL(thr) do { \
  8540. DUK_UNREF((thr)); \
  8541. return DUK_RET_ERROR; \
  8542. } while (0)
  8543. #define DUK_ERROR_ALLOC_FAILED(thr) do { \
  8544. duk_err_error((thr)); \
  8545. } while (0)
  8546. #define DUK_ERROR_UNSUPPORTED(thr) do { \
  8547. duk_err_error((thr)); \
  8548. } while (0)
  8549. #define DUK_ERROR_ERROR(thr,msg) do { \
  8550. duk_err_error((thr)); \
  8551. } while (0)
  8552. #define DUK_ERROR_RANGE_INDEX(thr,idx) do { \
  8553. duk_err_range((thr)); \
  8554. } while (0)
  8555. #define DUK_ERROR_RANGE_PUSH_BEYOND(thr) do { \
  8556. duk_err_range((thr)); \
  8557. } while (0)
  8558. #define DUK_ERROR_RANGE_INVALID_ARGS(thr) do { \
  8559. duk_err_range((thr)); \
  8560. } while (0)
  8561. #define DUK_DCERROR_RANGE_INVALID_ARGS(thr) do { \
  8562. DUK_UNREF((thr)); \
  8563. return DUK_RET_RANGE_ERROR; \
  8564. } while (0)
  8565. #define DUK_ERROR_RANGE_INVALID_COUNT(thr) do { \
  8566. duk_err_range((thr)); \
  8567. } while (0)
  8568. #define DUK_DCERROR_RANGE_INVALID_COUNT(thr) do { \
  8569. DUK_UNREF((thr)); \
  8570. return DUK_RET_RANGE_ERROR; \
  8571. } while (0)
  8572. #define DUK_ERROR_RANGE_INVALID_LENGTH(thr) do { \
  8573. duk_err_range((thr)); \
  8574. } while (0)
  8575. #define DUK_DCERROR_RANGE_INVALID_LENGTH(thr) do { \
  8576. DUK_UNREF((thr)); \
  8577. return DUK_RET_RANGE_ERROR; \
  8578. } while (0)
  8579. #define DUK_ERROR_RANGE(thr,msg) do { \
  8580. duk_err_range((thr)); \
  8581. } while (0)
  8582. #define DUK_ERROR_EVAL(thr,msg) do { \
  8583. duk_err_eval((thr)); \
  8584. } while (0)
  8585. #define DUK_ERROR_REFERENCE(thr,msg) do { \
  8586. duk_err_reference((thr)); \
  8587. } while (0)
  8588. #define DUK_ERROR_SYNTAX(thr,msg) do { \
  8589. duk_err_syntax((thr)); \
  8590. } while (0)
  8591. #define DUK_ERROR_TYPE_INVALID_ARGS(thr) do { \
  8592. duk_err_type((thr)); \
  8593. } while (0)
  8594. #define DUK_DCERROR_TYPE_INVALID_ARGS(thr) do { \
  8595. DUK_UNREF((thr)); \
  8596. return DUK_RET_TYPE_ERROR; \
  8597. } while (0)
  8598. #define DUK_ERROR_TYPE_INVALID_STATE(thr) do { \
  8599. duk_err_type((thr)); \
  8600. } while (0)
  8601. #define DUK_DCERROR_TYPE_INVALID_STATE(thr) do { \
  8602. duk_err_type((thr)); \
  8603. } while (0)
  8604. #define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \
  8605. duk_err_type((thr)); \
  8606. } while (0)
  8607. #define DUK_DCERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \
  8608. DUK_UNREF((thr)); \
  8609. return DUK_RET_TYPE_ERROR; \
  8610. } while (0)
  8611. #define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \
  8612. duk_err_type((thr)); \
  8613. } while (0)
  8614. #define DUK_ERROR_TYPE(thr,msg) do { \
  8615. duk_err_type((thr)); \
  8616. } while (0)
  8617. #define DUK_ERROR_URI(thr,msg) do { \
  8618. duk_err_uri((thr)); \
  8619. } while (0)
  8620. #endif /* DUK_USE_VERBOSE_ERRORS */
  8621. /*
  8622. * Assert macro: failure causes a fatal error.
  8623. *
  8624. * NOTE: since the assert macro doesn't take a heap/context argument, there's
  8625. * no way to look up a heap/context specific fatal error handler which may have
  8626. * been given by the application. Instead, assertion failures always use the
  8627. * internal default fatal error handler; it can be replaced via duk_config.h
  8628. * and then applies to all Duktape heaps.
  8629. */
  8630. #if defined(DUK_USE_ASSERTIONS)
  8631. /* The message should be a compile time constant without formatting (less risk);
  8632. * we don't care about assertion text size because they're not used in production
  8633. * builds.
  8634. */
  8635. #define DUK_ASSERT(x) do { \
  8636. if (!(x)) { \
  8637. DUK_FATAL_WITHOUT_CONTEXT("assertion failed: " #x \
  8638. " (" DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO) ")"); \
  8639. } \
  8640. } while (0)
  8641. /* Assertion compatible inside a comma expression, evaluates to void. */
  8642. #define DUK_ASSERT_EXPR(x) \
  8643. ((void) ((x) ? 0 : (DUK_FATAL_WITHOUT_CONTEXT("assertion failed: " #x \
  8644. " (" DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO) ")"), 0)))
  8645. #else /* DUK_USE_ASSERTIONS */
  8646. #define DUK_ASSERT(x) do { /* assertion omitted */ } while (0)
  8647. #define DUK_ASSERT_EXPR(x) ((void) 0)
  8648. #endif /* DUK_USE_ASSERTIONS */
  8649. /* this variant is used when an assert would generate a compile warning by
  8650. * being always true (e.g. >= 0 comparison for an unsigned value
  8651. */
  8652. #define DUK_ASSERT_DISABLE(x) do { /* assertion disabled */ } while (0)
  8653. /*
  8654. * Assertion helpers
  8655. */
  8656. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING)
  8657. #define DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(h) do { \
  8658. DUK_ASSERT((h) == NULL || DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) (h)) > 0); \
  8659. } while (0)
  8660. #define DUK_ASSERT_REFCOUNT_NONZERO_TVAL(tv) do { \
  8661. if ((tv) != NULL && DUK_TVAL_IS_HEAP_ALLOCATED((tv))) { \
  8662. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(DUK_TVAL_GET_HEAPHDR((tv))) > 0); \
  8663. } \
  8664. } while (0)
  8665. #else
  8666. #define DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(h) /* no refcount check */
  8667. #define DUK_ASSERT_REFCOUNT_NONZERO_TVAL(tv) /* no refcount check */
  8668. #endif
  8669. #define DUK_ASSERT_TOP(ctx,n) DUK_ASSERT((duk_idx_t) duk_get_top((ctx)) == (duk_idx_t) (n))
  8670. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_PACKED_TVAL)
  8671. #define DUK_ASSERT_DOUBLE_IS_NORMALIZED(dval) do { \
  8672. duk_double_union duk__assert_tmp_du; \
  8673. duk__assert_tmp_du.d = (dval); \
  8674. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&duk__assert_tmp_du)); \
  8675. } while (0)
  8676. #else
  8677. #define DUK_ASSERT_DOUBLE_IS_NORMALIZED(dval) /* nop */
  8678. #endif
  8679. #define DUK_ASSERT_VS_SPACE(thr) \
  8680. DUK_ASSERT(thr->valstack_top < thr->valstack_end)
  8681. /*
  8682. * Helper to initialize a memory area (e.g. struct) with garbage when
  8683. * assertions enabled.
  8684. */
  8685. #if defined(DUK_USE_ASSERTIONS)
  8686. #define DUK_ASSERT_SET_GARBAGE(ptr,size) do { \
  8687. DUK_MEMSET((void *) (ptr), 0x5a, size); \
  8688. } while (0)
  8689. #else
  8690. #define DUK_ASSERT_SET_GARBAGE(ptr,size) do {} while (0)
  8691. #endif
  8692. /*
  8693. * Helper for valstack space
  8694. *
  8695. * Caller of DUK_ASSERT_VALSTACK_SPACE() estimates the number of free stack entries
  8696. * required for its own use, and any child calls which are not (a) Duktape API calls
  8697. * or (b) Duktape calls which involve extending the valstack (e.g. getter call).
  8698. */
  8699. #define DUK_VALSTACK_ASSERT_EXTRA 5 /* this is added to checks to allow for Duktape
  8700. * API calls in addition to function's own use
  8701. */
  8702. #if defined(DUK_USE_ASSERTIONS)
  8703. #define DUK_ASSERT_VALSTACK_SPACE(thr,n) do { \
  8704. DUK_ASSERT((thr) != NULL); \
  8705. DUK_ASSERT((thr)->valstack_end - (thr)->valstack_top >= (n) + DUK_VALSTACK_ASSERT_EXTRA); \
  8706. } while (0)
  8707. #else
  8708. #define DUK_ASSERT_VALSTACK_SPACE(thr,n) /* no valstack space check */
  8709. #endif
  8710. /*
  8711. * Prototypes
  8712. */
  8713. #if defined(DUK_USE_VERBOSE_ERRORS)
  8714. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *msg));
  8715. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error_fmt(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *fmt, ...));
  8716. #else /* DUK_USE_VERBOSE_ERRORS */
  8717. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error(duk_hthread *thr, duk_errcode_t code));
  8718. #endif /* DUK_USE_VERBOSE_ERRORS */
  8719. #if defined(DUK_USE_VERBOSE_ERRORS)
  8720. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code, const char *msg, const char *filename, duk_int_t line));
  8721. #else
  8722. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code));
  8723. #endif
  8724. DUK_NORETURN(DUK_INTERNAL_DECL void duk_error_throw_from_negative_rc(duk_hthread *thr, duk_ret_t rc));
  8725. #define DUK_AUGMENT_FLAG_NOBLAME_FILELINE (1U << 0) /* if set, don't blame C file/line for .fileName and .lineNumber */
  8726. #define DUK_AUGMENT_FLAG_SKIP_ONE (1U << 1) /* if set, skip topmost activation in traceback construction */
  8727. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  8728. DUK_INTERNAL_DECL void duk_err_augment_error_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *filename, duk_int_t line, duk_small_uint_t flags);
  8729. #endif
  8730. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  8731. DUK_INTERNAL_DECL void duk_err_augment_error_throw(duk_hthread *thr);
  8732. #endif
  8733. #if defined(DUK_USE_VERBOSE_ERRORS)
  8734. #if defined(DUK_USE_PARANOID_ERRORS)
  8735. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name));
  8736. #else
  8737. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name));
  8738. #endif
  8739. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error_internal(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8740. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error_alloc_failed(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8741. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message));
  8742. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx));
  8743. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range_push_beyond(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8744. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message));
  8745. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_args(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8746. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_state(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8747. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_trap_result(duk_hthread *thr, const char *filename, duk_int_t linenumber));
  8748. #else /* DUK_VERBOSE_ERRORS */
  8749. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error(duk_hthread *thr));
  8750. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range(duk_hthread *thr));
  8751. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_eval(duk_hthread *thr));
  8752. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_reference(duk_hthread *thr));
  8753. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_syntax(duk_hthread *thr));
  8754. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type(duk_hthread *thr));
  8755. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_uri(duk_hthread *thr));
  8756. #endif /* DUK_VERBOSE_ERRORS */
  8757. DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_longjmp(duk_hthread *thr));
  8758. DUK_NORETURN(DUK_INTERNAL_DECL void duk_default_fatal_handler(void *udata, const char *msg));
  8759. DUK_INTERNAL_DECL void duk_err_setup_ljstate1(duk_hthread *thr, duk_small_uint_t lj_type, duk_tval *tv_val);
  8760. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  8761. DUK_INTERNAL_DECL void duk_err_check_debugger_integration(duk_hthread *thr);
  8762. #endif
  8763. DUK_INTERNAL_DECL duk_hobject *duk_error_prototype_from_code(duk_hthread *thr, duk_errcode_t err_code);
  8764. #endif /* DUK_ERROR_H_INCLUDED */
  8765. /* #include duk_unicode.h */
  8766. #line 1 "duk_unicode.h"
  8767. /*
  8768. * Unicode helpers
  8769. */
  8770. #if !defined(DUK_UNICODE_H_INCLUDED)
  8771. #define DUK_UNICODE_H_INCLUDED
  8772. /*
  8773. * UTF-8 / XUTF-8 / CESU-8 constants
  8774. */
  8775. #define DUK_UNICODE_MAX_XUTF8_LENGTH 7 /* up to 36 bit codepoints */
  8776. #define DUK_UNICODE_MAX_XUTF8_BMP_LENGTH 3 /* all codepoints up to U+FFFF */
  8777. #define DUK_UNICODE_MAX_CESU8_LENGTH 6 /* all codepoints up to U+10FFFF */
  8778. #define DUK_UNICODE_MAX_CESU8_BMP_LENGTH 3 /* all codepoints up to U+FFFF */
  8779. /*
  8780. * Useful Unicode codepoints
  8781. *
  8782. * Integer constants must be signed to avoid unexpected coercions
  8783. * in comparisons.
  8784. */
  8785. #define DUK_UNICODE_CP_ZWNJ 0x200cL /* zero-width non-joiner */
  8786. #define DUK_UNICODE_CP_ZWJ 0x200dL /* zero-width joiner */
  8787. #define DUK_UNICODE_CP_REPLACEMENT_CHARACTER 0xfffdL /* http://en.wikipedia.org/wiki/Replacement_character#Replacement_character */
  8788. /*
  8789. * ASCII character constants
  8790. *
  8791. * C character literals like 'x' have a platform specific value and do
  8792. * not match ASCII (UTF-8) values on e.g. EBCDIC platforms. So, use
  8793. * these (admittedly awkward) constants instead. These constants must
  8794. * also have signed values to avoid unexpected coercions in comparisons.
  8795. *
  8796. * http://en.wikipedia.org/wiki/ASCII
  8797. */
  8798. #define DUK_ASC_NUL 0x00
  8799. #define DUK_ASC_SOH 0x01
  8800. #define DUK_ASC_STX 0x02
  8801. #define DUK_ASC_ETX 0x03
  8802. #define DUK_ASC_EOT 0x04
  8803. #define DUK_ASC_ENQ 0x05
  8804. #define DUK_ASC_ACK 0x06
  8805. #define DUK_ASC_BEL 0x07
  8806. #define DUK_ASC_BS 0x08
  8807. #define DUK_ASC_HT 0x09
  8808. #define DUK_ASC_LF 0x0a
  8809. #define DUK_ASC_VT 0x0b
  8810. #define DUK_ASC_FF 0x0c
  8811. #define DUK_ASC_CR 0x0d
  8812. #define DUK_ASC_SO 0x0e
  8813. #define DUK_ASC_SI 0x0f
  8814. #define DUK_ASC_DLE 0x10
  8815. #define DUK_ASC_DC1 0x11
  8816. #define DUK_ASC_DC2 0x12
  8817. #define DUK_ASC_DC3 0x13
  8818. #define DUK_ASC_DC4 0x14
  8819. #define DUK_ASC_NAK 0x15
  8820. #define DUK_ASC_SYN 0x16
  8821. #define DUK_ASC_ETB 0x17
  8822. #define DUK_ASC_CAN 0x18
  8823. #define DUK_ASC_EM 0x19
  8824. #define DUK_ASC_SUB 0x1a
  8825. #define DUK_ASC_ESC 0x1b
  8826. #define DUK_ASC_FS 0x1c
  8827. #define DUK_ASC_GS 0x1d
  8828. #define DUK_ASC_RS 0x1e
  8829. #define DUK_ASC_US 0x1f
  8830. #define DUK_ASC_SPACE 0x20
  8831. #define DUK_ASC_EXCLAMATION 0x21
  8832. #define DUK_ASC_DOUBLEQUOTE 0x22
  8833. #define DUK_ASC_HASH 0x23
  8834. #define DUK_ASC_DOLLAR 0x24
  8835. #define DUK_ASC_PERCENT 0x25
  8836. #define DUK_ASC_AMP 0x26
  8837. #define DUK_ASC_SINGLEQUOTE 0x27
  8838. #define DUK_ASC_LPAREN 0x28
  8839. #define DUK_ASC_RPAREN 0x29
  8840. #define DUK_ASC_STAR 0x2a
  8841. #define DUK_ASC_PLUS 0x2b
  8842. #define DUK_ASC_COMMA 0x2c
  8843. #define DUK_ASC_MINUS 0x2d
  8844. #define DUK_ASC_PERIOD 0x2e
  8845. #define DUK_ASC_SLASH 0x2f
  8846. #define DUK_ASC_0 0x30
  8847. #define DUK_ASC_1 0x31
  8848. #define DUK_ASC_2 0x32
  8849. #define DUK_ASC_3 0x33
  8850. #define DUK_ASC_4 0x34
  8851. #define DUK_ASC_5 0x35
  8852. #define DUK_ASC_6 0x36
  8853. #define DUK_ASC_7 0x37
  8854. #define DUK_ASC_8 0x38
  8855. #define DUK_ASC_9 0x39
  8856. #define DUK_ASC_COLON 0x3a
  8857. #define DUK_ASC_SEMICOLON 0x3b
  8858. #define DUK_ASC_LANGLE 0x3c
  8859. #define DUK_ASC_EQUALS 0x3d
  8860. #define DUK_ASC_RANGLE 0x3e
  8861. #define DUK_ASC_QUESTION 0x3f
  8862. #define DUK_ASC_ATSIGN 0x40
  8863. #define DUK_ASC_UC_A 0x41
  8864. #define DUK_ASC_UC_B 0x42
  8865. #define DUK_ASC_UC_C 0x43
  8866. #define DUK_ASC_UC_D 0x44
  8867. #define DUK_ASC_UC_E 0x45
  8868. #define DUK_ASC_UC_F 0x46
  8869. #define DUK_ASC_UC_G 0x47
  8870. #define DUK_ASC_UC_H 0x48
  8871. #define DUK_ASC_UC_I 0x49
  8872. #define DUK_ASC_UC_J 0x4a
  8873. #define DUK_ASC_UC_K 0x4b
  8874. #define DUK_ASC_UC_L 0x4c
  8875. #define DUK_ASC_UC_M 0x4d
  8876. #define DUK_ASC_UC_N 0x4e
  8877. #define DUK_ASC_UC_O 0x4f
  8878. #define DUK_ASC_UC_P 0x50
  8879. #define DUK_ASC_UC_Q 0x51
  8880. #define DUK_ASC_UC_R 0x52
  8881. #define DUK_ASC_UC_S 0x53
  8882. #define DUK_ASC_UC_T 0x54
  8883. #define DUK_ASC_UC_U 0x55
  8884. #define DUK_ASC_UC_V 0x56
  8885. #define DUK_ASC_UC_W 0x57
  8886. #define DUK_ASC_UC_X 0x58
  8887. #define DUK_ASC_UC_Y 0x59
  8888. #define DUK_ASC_UC_Z 0x5a
  8889. #define DUK_ASC_LBRACKET 0x5b
  8890. #define DUK_ASC_BACKSLASH 0x5c
  8891. #define DUK_ASC_RBRACKET 0x5d
  8892. #define DUK_ASC_CARET 0x5e
  8893. #define DUK_ASC_UNDERSCORE 0x5f
  8894. #define DUK_ASC_GRAVE 0x60
  8895. #define DUK_ASC_LC_A 0x61
  8896. #define DUK_ASC_LC_B 0x62
  8897. #define DUK_ASC_LC_C 0x63
  8898. #define DUK_ASC_LC_D 0x64
  8899. #define DUK_ASC_LC_E 0x65
  8900. #define DUK_ASC_LC_F 0x66
  8901. #define DUK_ASC_LC_G 0x67
  8902. #define DUK_ASC_LC_H 0x68
  8903. #define DUK_ASC_LC_I 0x69
  8904. #define DUK_ASC_LC_J 0x6a
  8905. #define DUK_ASC_LC_K 0x6b
  8906. #define DUK_ASC_LC_L 0x6c
  8907. #define DUK_ASC_LC_M 0x6d
  8908. #define DUK_ASC_LC_N 0x6e
  8909. #define DUK_ASC_LC_O 0x6f
  8910. #define DUK_ASC_LC_P 0x70
  8911. #define DUK_ASC_LC_Q 0x71
  8912. #define DUK_ASC_LC_R 0x72
  8913. #define DUK_ASC_LC_S 0x73
  8914. #define DUK_ASC_LC_T 0x74
  8915. #define DUK_ASC_LC_U 0x75
  8916. #define DUK_ASC_LC_V 0x76
  8917. #define DUK_ASC_LC_W 0x77
  8918. #define DUK_ASC_LC_X 0x78
  8919. #define DUK_ASC_LC_Y 0x79
  8920. #define DUK_ASC_LC_Z 0x7a
  8921. #define DUK_ASC_LCURLY 0x7b
  8922. #define DUK_ASC_PIPE 0x7c
  8923. #define DUK_ASC_RCURLY 0x7d
  8924. #define DUK_ASC_TILDE 0x7e
  8925. #define DUK_ASC_DEL 0x7f
  8926. /*
  8927. * Miscellaneous
  8928. */
  8929. /* Uppercase A is 0x41, lowercase a is 0x61; OR 0x20 to convert uppercase
  8930. * to lowercase.
  8931. */
  8932. #define DUK_LOWERCASE_CHAR_ASCII(x) ((x) | 0x20)
  8933. /*
  8934. * Unicode tables
  8935. */
  8936. #if defined(DUK_USE_SOURCE_NONBMP)
  8937. /*
  8938. * Automatically generated by extract_chars.py, do not edit!
  8939. */
  8940. extern const duk_uint8_t duk_unicode_ids_noa[1036];
  8941. #else
  8942. /*
  8943. * Automatically generated by extract_chars.py, do not edit!
  8944. */
  8945. extern const duk_uint8_t duk_unicode_ids_noabmp[625];
  8946. #endif
  8947. #if defined(DUK_USE_SOURCE_NONBMP)
  8948. /*
  8949. * Automatically generated by extract_chars.py, do not edit!
  8950. */
  8951. extern const duk_uint8_t duk_unicode_ids_m_let_noa[42];
  8952. #else
  8953. /*
  8954. * Automatically generated by extract_chars.py, do not edit!
  8955. */
  8956. extern const duk_uint8_t duk_unicode_ids_m_let_noabmp[24];
  8957. #endif
  8958. #if defined(DUK_USE_SOURCE_NONBMP)
  8959. /*
  8960. * Automatically generated by extract_chars.py, do not edit!
  8961. */
  8962. extern const duk_uint8_t duk_unicode_idp_m_ids_noa[530];
  8963. #else
  8964. /*
  8965. * Automatically generated by extract_chars.py, do not edit!
  8966. */
  8967. extern const duk_uint8_t duk_unicode_idp_m_ids_noabmp[357];
  8968. #endif
  8969. /*
  8970. * Automatically generated by extract_caseconv.py, do not edit!
  8971. */
  8972. extern const duk_uint8_t duk_unicode_caseconv_uc[1386];
  8973. extern const duk_uint8_t duk_unicode_caseconv_lc[680];
  8974. #if defined(DUK_USE_REGEXP_CANON_WORKAROUND)
  8975. /*
  8976. * Automatically generated by extract_caseconv.py, do not edit!
  8977. */
  8978. extern const duk_uint16_t duk_unicode_re_canon_lookup[65536];
  8979. #endif
  8980. #if defined(DUK_USE_REGEXP_CANON_BITMAP)
  8981. /*
  8982. * Automatically generated by extract_caseconv.py, do not edit!
  8983. */
  8984. #define DUK_CANON_BITMAP_BLKSIZE 32
  8985. #define DUK_CANON_BITMAP_BLKSHIFT 5
  8986. #define DUK_CANON_BITMAP_BLKMASK 31
  8987. extern const duk_uint8_t duk_unicode_re_canon_bitmap[256];
  8988. #endif
  8989. /*
  8990. * Extern
  8991. */
  8992. /* duk_unicode_support.c */
  8993. #if !defined(DUK_SINGLE_FILE)
  8994. DUK_INTERNAL_DECL const duk_uint8_t duk_unicode_xutf8_markers[7];
  8995. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_digit[2];
  8996. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_white[22];
  8997. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_wordchar[8];
  8998. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_digit[4];
  8999. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_white[24];
  9000. DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_wordchar[10];
  9001. DUK_INTERNAL_DECL const duk_int8_t duk_is_idchar_tab[128];
  9002. #endif /* !DUK_SINGLE_FILE */
  9003. /*
  9004. * Prototypes
  9005. */
  9006. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_get_xutf8_length(duk_ucodepoint_t cp);
  9007. #if defined(DUK_USE_ASSERTIONS)
  9008. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_get_cesu8_length(duk_ucodepoint_t cp);
  9009. #endif
  9010. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_encode_xutf8(duk_ucodepoint_t cp, duk_uint8_t *out);
  9011. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_encode_cesu8(duk_ucodepoint_t cp, duk_uint8_t *out);
  9012. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_decode_xutf8(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_ucodepoint_t *out_cp);
  9013. DUK_INTERNAL_DECL duk_ucodepoint_t duk_unicode_decode_xutf8_checked(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end);
  9014. DUK_INTERNAL_DECL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen);
  9015. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_whitespace(duk_codepoint_t cp);
  9016. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_line_terminator(duk_codepoint_t cp);
  9017. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_identifier_start(duk_codepoint_t cp);
  9018. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_identifier_part(duk_codepoint_t cp);
  9019. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_letter(duk_codepoint_t cp);
  9020. DUK_INTERNAL_DECL void duk_unicode_case_convert_string(duk_hthread *thr, duk_bool_t uppercase);
  9021. #if defined(DUK_USE_REGEXP_SUPPORT)
  9022. DUK_INTERNAL_DECL duk_codepoint_t duk_unicode_re_canonicalize_char(duk_hthread *thr, duk_codepoint_t cp);
  9023. DUK_INTERNAL_DECL duk_small_int_t duk_unicode_re_is_wordchar(duk_codepoint_t cp);
  9024. #endif
  9025. #endif /* DUK_UNICODE_H_INCLUDED */
  9026. /* #include duk_json.h */
  9027. #line 1 "duk_json.h"
  9028. /*
  9029. * Defines for JSON, especially duk_bi_json.c.
  9030. */
  9031. #if !defined(DUK_JSON_H_INCLUDED)
  9032. #define DUK_JSON_H_INCLUDED
  9033. /* Encoding/decoding flags */
  9034. #define DUK_JSON_FLAG_ASCII_ONLY (1U << 0) /* escape any non-ASCII characters */
  9035. #define DUK_JSON_FLAG_AVOID_KEY_QUOTES (1U << 1) /* avoid key quotes when key is an ASCII Identifier */
  9036. #define DUK_JSON_FLAG_EXT_CUSTOM (1U << 2) /* extended types: custom encoding */
  9037. #define DUK_JSON_FLAG_EXT_COMPATIBLE (1U << 3) /* extended types: compatible encoding */
  9038. /* How much stack to require on entry to object/array encode */
  9039. #define DUK_JSON_ENC_REQSTACK 32
  9040. /* How much stack to require on entry to object/array decode */
  9041. #define DUK_JSON_DEC_REQSTACK 32
  9042. /* How large a loop detection stack to use */
  9043. #define DUK_JSON_ENC_LOOPARRAY 64
  9044. /* Encoding state. Heap object references are all borrowed. */
  9045. typedef struct {
  9046. duk_hthread *thr;
  9047. duk_bufwriter_ctx bw; /* output bufwriter */
  9048. duk_hobject *h_replacer; /* replacer function */
  9049. duk_hstring *h_gap; /* gap (if empty string, NULL) */
  9050. duk_idx_t idx_proplist; /* explicit PropertyList */
  9051. duk_idx_t idx_loop; /* valstack index of loop detection object */
  9052. duk_small_uint_t flags;
  9053. duk_small_uint_t flag_ascii_only;
  9054. duk_small_uint_t flag_avoid_key_quotes;
  9055. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  9056. duk_small_uint_t flag_ext_custom;
  9057. duk_small_uint_t flag_ext_compatible;
  9058. duk_small_uint_t flag_ext_custom_or_compatible;
  9059. #endif
  9060. duk_uint_t recursion_depth;
  9061. duk_uint_t recursion_limit;
  9062. duk_uint_t mask_for_undefined; /* type bit mask: types which certainly produce 'undefined' */
  9063. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  9064. duk_small_uint_t stridx_custom_undefined;
  9065. duk_small_uint_t stridx_custom_nan;
  9066. duk_small_uint_t stridx_custom_neginf;
  9067. duk_small_uint_t stridx_custom_posinf;
  9068. duk_small_uint_t stridx_custom_function;
  9069. #endif
  9070. duk_hobject *visiting[DUK_JSON_ENC_LOOPARRAY]; /* indexed by recursion_depth */
  9071. } duk_json_enc_ctx;
  9072. typedef struct {
  9073. duk_hthread *thr;
  9074. const duk_uint8_t *p;
  9075. const duk_uint8_t *p_start;
  9076. const duk_uint8_t *p_end;
  9077. duk_idx_t idx_reviver;
  9078. duk_small_uint_t flags;
  9079. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  9080. duk_small_uint_t flag_ext_custom;
  9081. duk_small_uint_t flag_ext_compatible;
  9082. duk_small_uint_t flag_ext_custom_or_compatible;
  9083. #endif
  9084. duk_int_t recursion_depth;
  9085. duk_int_t recursion_limit;
  9086. } duk_json_dec_ctx;
  9087. #endif /* DUK_JSON_H_INCLUDED */
  9088. /* #include duk_js.h */
  9089. #line 1 "duk_js.h"
  9090. /*
  9091. * Ecmascript execution, support primitives.
  9092. */
  9093. #if !defined(DUK_JS_H_INCLUDED)
  9094. #define DUK_JS_H_INCLUDED
  9095. /* Flags for call handling. Lowest flags must match bytecode DUK_BC_CALL_FLAG_xxx 1:1. */
  9096. #define DUK_CALL_FLAG_TAILCALL (1U << 0) /* setup for a tail call */
  9097. #define DUK_CALL_FLAG_CONSTRUCT (1U << 1) /* constructor call (i.e. called as 'new Foo()') */
  9098. #define DUK_CALL_FLAG_CALLED_AS_EVAL (1U << 2) /* call was made using the identifier 'eval' */
  9099. #define DUK_CALL_FLAG_ALLOW_ECMATOECMA (1U << 3) /* ecma-to-ecma call with executor reuse is possible */
  9100. #define DUK_CALL_FLAG_DIRECT_EVAL (1U << 4) /* call is a direct eval call */
  9101. #define DUK_CALL_FLAG_CONSTRUCT_PROXY (1U << 5) /* handled via 'construct' proxy trap, check return value invariant(s) */
  9102. #define DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED (1U << 6) /* prototype of 'default instance' updated, temporary flag in call handling */
  9103. /* Flags for duk_js_equals_helper(). */
  9104. #define DUK_EQUALS_FLAG_SAMEVALUE (1U << 0) /* use SameValue instead of non-strict equality */
  9105. #define DUK_EQUALS_FLAG_STRICT (1U << 1) /* use strict equality instead of non-strict equality */
  9106. /* Flags for duk_js_compare_helper(). */
  9107. #define DUK_COMPARE_FLAG_NEGATE (1U << 0) /* negate result */
  9108. #define DUK_COMPARE_FLAG_EVAL_LEFT_FIRST (1U << 1) /* eval left argument first */
  9109. /* conversions, coercions, comparison, etc */
  9110. DUK_INTERNAL_DECL duk_bool_t duk_js_toboolean(duk_tval *tv);
  9111. DUK_INTERNAL_DECL duk_double_t duk_js_tonumber(duk_hthread *thr, duk_tval *tv);
  9112. DUK_INTERNAL_DECL duk_double_t duk_js_tointeger_number(duk_double_t x);
  9113. DUK_INTERNAL_DECL duk_double_t duk_js_tointeger(duk_hthread *thr, duk_tval *tv);
  9114. DUK_INTERNAL_DECL duk_uint32_t duk_js_touint32(duk_hthread *thr, duk_tval *tv);
  9115. DUK_INTERNAL_DECL duk_int32_t duk_js_toint32(duk_hthread *thr, duk_tval *tv);
  9116. DUK_INTERNAL_DECL duk_uint16_t duk_js_touint16(duk_hthread *thr, duk_tval *tv);
  9117. DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_string(const duk_uint8_t *str, duk_uint32_t blen);
  9118. #if !defined(DUK_USE_HSTRING_ARRIDX)
  9119. DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_hstring_fast_known(duk_hstring *h);
  9120. DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_hstring_fast(duk_hstring *h);
  9121. #endif
  9122. DUK_INTERNAL_DECL duk_bool_t duk_js_equals_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags);
  9123. DUK_INTERNAL_DECL duk_small_int_t duk_js_data_compare(const duk_uint8_t *buf1, const duk_uint8_t *buf2, duk_size_t len1, duk_size_t len2);
  9124. DUK_INTERNAL_DECL duk_small_int_t duk_js_string_compare(duk_hstring *h1, duk_hstring *h2);
  9125. #if 0 /* unused */
  9126. DUK_INTERNAL_DECL duk_small_int_t duk_js_buffer_compare(duk_heap *heap, duk_hbuffer *h1, duk_hbuffer *h2);
  9127. #endif
  9128. DUK_INTERNAL_DECL duk_bool_t duk_js_compare_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags);
  9129. DUK_INTERNAL_DECL duk_bool_t duk_js_instanceof(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y);
  9130. DUK_INTERNAL_DECL duk_bool_t duk_js_in(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y);
  9131. DUK_INTERNAL_DECL duk_small_uint_t duk_js_typeof_stridx(duk_tval *tv_x);
  9132. /* arithmetic */
  9133. DUK_INTERNAL_DECL double duk_js_arith_pow(double x, double y);
  9134. DUK_INTERNAL_DECL double duk_js_arith_mod(double x, double y);
  9135. #define duk_js_equals(thr,tv_x,tv_y) \
  9136. duk_js_equals_helper((thr), (tv_x), (tv_y), 0)
  9137. #define duk_js_strict_equals(tv_x,tv_y) \
  9138. duk_js_equals_helper(NULL, (tv_x), (tv_y), DUK_EQUALS_FLAG_STRICT)
  9139. #define duk_js_samevalue(tv_x,tv_y) \
  9140. duk_js_equals_helper(NULL, (tv_x), (tv_y), DUK_EQUALS_FLAG_SAMEVALUE)
  9141. /* E5 Sections 11.8.1, 11.8.5; x < y */
  9142. #define duk_js_lessthan(thr,tv_x,tv_y) \
  9143. duk_js_compare_helper((thr), (tv_x), (tv_Y), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST)
  9144. /* E5 Sections 11.8.2, 11.8.5; x > y --> y < x */
  9145. #define duk_js_greaterthan(thr,tv_x,tv_y) \
  9146. duk_js_compare_helper((thr), (tv_y), (tv_x), 0)
  9147. /* E5 Sections 11.8.3, 11.8.5; x <= y --> not (x > y) --> not (y < x) */
  9148. #define duk_js_lessthanorequal(thr,tv_x,tv_y) \
  9149. duk_js_compare_helper((thr), (tv_y), (tv_x), DUK_COMPARE_FLAG_NEGATE)
  9150. /* E5 Sections 11.8.4, 11.8.5; x >= y --> not (x < y) */
  9151. #define duk_js_greaterthanorequal(thr,tv_x,tv_y) \
  9152. duk_js_compare_helper((thr), (tv_x), (tv_y), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST | DUK_COMPARE_FLAG_NEGATE)
  9153. /* identifiers and environment handling */
  9154. #if 0 /*unused*/
  9155. DUK_INTERNAL duk_bool_t duk_js_hasvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name);
  9156. #endif
  9157. DUK_INTERNAL_DECL duk_bool_t duk_js_getvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name, duk_bool_t throw_flag);
  9158. DUK_INTERNAL_DECL duk_bool_t duk_js_getvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_bool_t throw_flag);
  9159. DUK_INTERNAL_DECL void duk_js_putvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name, duk_tval *val, duk_bool_t strict);
  9160. DUK_INTERNAL_DECL void duk_js_putvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_tval *val, duk_bool_t strict);
  9161. #if 0 /*unused*/
  9162. DUK_INTERNAL_DECL duk_bool_t duk_js_delvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name);
  9163. #endif
  9164. DUK_INTERNAL_DECL duk_bool_t duk_js_delvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name);
  9165. DUK_INTERNAL_DECL duk_bool_t duk_js_declvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_tval *val, duk_small_uint_t prop_flags, duk_bool_t is_func_decl);
  9166. DUK_INTERNAL_DECL void duk_js_init_activation_environment_records_delayed(duk_hthread *thr, duk_activation *act);
  9167. DUK_INTERNAL_DECL void duk_js_close_environment_record(duk_hthread *thr, duk_hobject *env);
  9168. DUK_INTERNAL_DECL duk_hobject *duk_create_activation_environment_record(duk_hthread *thr, duk_hobject *func, duk_size_t bottom_byteoff);
  9169. DUK_INTERNAL_DECL void duk_js_push_closure(duk_hthread *thr,
  9170. duk_hcompfunc *fun_temp,
  9171. duk_hobject *outer_var_env,
  9172. duk_hobject *outer_lex_env,
  9173. duk_bool_t add_auto_proto);
  9174. /* call handling */
  9175. DUK_INTERNAL_DECL duk_int_t duk_handle_call_unprotected(duk_hthread *thr, duk_idx_t idx_func, duk_small_uint_t call_flags);
  9176. DUK_INTERNAL_DECL duk_int_t duk_handle_call_unprotected_nargs(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags);
  9177. DUK_INTERNAL_DECL duk_int_t duk_handle_safe_call(duk_hthread *thr, duk_safe_call_function func, void *udata, duk_idx_t num_stack_args, duk_idx_t num_stack_res);
  9178. DUK_INTERNAL_DECL void duk_call_construct_postprocess(duk_hthread *thr, duk_small_uint_t proxy_invariant);
  9179. #if defined(DUK_USE_VERBOSE_ERRORS)
  9180. DUK_INTERNAL_DECL void duk_call_setup_propcall_error(duk_hthread *thr, duk_tval *tv_targ, duk_tval *tv_base, duk_tval *tv_key);
  9181. #endif
  9182. /* bytecode execution */
  9183. DUK_INTERNAL_DECL void duk_js_execute_bytecode(duk_hthread *exec_thr);
  9184. #endif /* DUK_JS_H_INCLUDED */
  9185. /* #include duk_numconv.h */
  9186. #line 1 "duk_numconv.h"
  9187. /*
  9188. * Number-to-string conversion. The semantics of these is very tightly
  9189. * bound with the Ecmascript semantics required for call sites.
  9190. */
  9191. #if !defined(DUK_NUMCONV_H_INCLUDED)
  9192. #define DUK_NUMCONV_H_INCLUDED
  9193. /* Output a specified number of digits instead of using the shortest
  9194. * form. Used for toPrecision() and toFixed().
  9195. */
  9196. #define DUK_N2S_FLAG_FIXED_FORMAT (1U << 0)
  9197. /* Force exponential format. Used for toExponential(). */
  9198. #define DUK_N2S_FLAG_FORCE_EXP (1U << 1)
  9199. /* If number would need zero padding (for whole number part), use
  9200. * exponential format instead. E.g. if input number is 12300, 3
  9201. * digits are generated ("123"), output "1.23e+4" instead of "12300".
  9202. * Used for toPrecision().
  9203. */
  9204. #define DUK_N2S_FLAG_NO_ZERO_PAD (1U << 2)
  9205. /* Digit count indicates number of fractions (i.e. an absolute
  9206. * digit index instead of a relative one). Used together with
  9207. * DUK_N2S_FLAG_FIXED_FORMAT for toFixed().
  9208. */
  9209. #define DUK_N2S_FLAG_FRACTION_DIGITS (1U << 3)
  9210. /*
  9211. * String-to-number conversion
  9212. */
  9213. /* Maximum exponent value when parsing numbers. This is not strictly
  9214. * compliant as there should be no upper limit, but as we parse the
  9215. * exponent without a bigint, impose some limit.
  9216. */
  9217. #define DUK_S2N_MAX_EXPONENT 1000000000
  9218. /* Trim white space (= allow leading and trailing whitespace) */
  9219. #define DUK_S2N_FLAG_TRIM_WHITE (1U << 0)
  9220. /* Allow exponent */
  9221. #define DUK_S2N_FLAG_ALLOW_EXP (1U << 1)
  9222. /* Allow trailing garbage (e.g. treat "123foo" as "123) */
  9223. #define DUK_S2N_FLAG_ALLOW_GARBAGE (1U << 2)
  9224. /* Allow leading plus sign */
  9225. #define DUK_S2N_FLAG_ALLOW_PLUS (1U << 3)
  9226. /* Allow leading minus sign */
  9227. #define DUK_S2N_FLAG_ALLOW_MINUS (1U << 4)
  9228. /* Allow 'Infinity' */
  9229. #define DUK_S2N_FLAG_ALLOW_INF (1U << 5)
  9230. /* Allow fraction part */
  9231. #define DUK_S2N_FLAG_ALLOW_FRAC (1U << 6)
  9232. /* Allow naked fraction (e.g. ".123") */
  9233. #define DUK_S2N_FLAG_ALLOW_NAKED_FRAC (1U << 7)
  9234. /* Allow empty fraction (e.g. "123.") */
  9235. #define DUK_S2N_FLAG_ALLOW_EMPTY_FRAC (1U << 8)
  9236. /* Allow empty string to be interpreted as 0 */
  9237. #define DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO (1U << 9)
  9238. /* Allow leading zeroes (e.g. "0123" -> "123") */
  9239. #define DUK_S2N_FLAG_ALLOW_LEADING_ZERO (1U << 10)
  9240. /* Allow automatic detection of hex base ("0x" or "0X" prefix),
  9241. * overrides radix argument and forces integer mode.
  9242. */
  9243. #define DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT (1U << 11)
  9244. /* Allow automatic detection of legacy octal base ("0n"),
  9245. * overrides radix argument and forces integer mode.
  9246. */
  9247. #define DUK_S2N_FLAG_ALLOW_AUTO_LEGACY_OCT_INT (1U << 12)
  9248. /* Allow automatic detection of ES2015 octal base ("0o123"),
  9249. * overrides radix argument and forces integer mode.
  9250. */
  9251. #define DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT (1U << 13)
  9252. /* Allow automatic detection of ES2015 binary base ("0b10001"),
  9253. * overrides radix argument and forces integer mode.
  9254. */
  9255. #define DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT (1U << 14)
  9256. /*
  9257. * Prototypes
  9258. */
  9259. DUK_INTERNAL_DECL void duk_numconv_stringify(duk_hthread *thr, duk_small_int_t radix, duk_small_int_t digits, duk_small_uint_t flags);
  9260. DUK_INTERNAL_DECL void duk_numconv_parse(duk_hthread *thr, duk_small_int_t radix, duk_small_uint_t flags);
  9261. #endif /* DUK_NUMCONV_H_INCLUDED */
  9262. /* #include duk_bi_protos.h */
  9263. #line 1 "duk_bi_protos.h"
  9264. /*
  9265. * Prototypes for built-in functions not automatically covered by the
  9266. * header declarations emitted by genbuiltins.py.
  9267. */
  9268. #if !defined(DUK_BUILTIN_PROTOS_H_INCLUDED)
  9269. #define DUK_BUILTIN_PROTOS_H_INCLUDED
  9270. /* Buffer size needed for ISO 8601 formatting.
  9271. * Accurate value is 32 + 1 for NUL termination:
  9272. * >>> len('+123456-01-23T12:34:56.123+12:34')
  9273. * 32
  9274. * Include additional space to be safe.
  9275. */
  9276. #define DUK_BI_DATE_ISO8601_BUFSIZE 40
  9277. /* Helpers exposed for internal use */
  9278. DUK_INTERNAL_DECL void duk_bi_date_timeval_to_parts(duk_double_t d, duk_int_t *parts, duk_double_t *dparts, duk_small_uint_t flags);
  9279. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_timeval_from_dparts(duk_double_t *dparts, duk_small_uint_t flags);
  9280. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_is_leap_year(duk_int_t year);
  9281. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_timeval_in_valid_range(duk_double_t x);
  9282. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_year_in_valid_range(duk_double_t year);
  9283. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_timeval_in_leeway_range(duk_double_t x);
  9284. /* Built-in providers */
  9285. #if defined(DUK_USE_DATE_NOW_GETTIMEOFDAY)
  9286. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_gettimeofday(void);
  9287. #endif
  9288. #if defined(DUK_USE_DATE_NOW_TIME)
  9289. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_time(void);
  9290. #endif
  9291. #if defined(DUK_USE_DATE_NOW_WINDOWS)
  9292. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_windows(void);
  9293. #endif
  9294. #if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS)
  9295. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_windows_subms(void);
  9296. #endif
  9297. #if defined(DUK_USE_DATE_TZO_GMTIME_R) || defined(DUK_USE_DATE_TZO_GMTIME_S) || defined(DUK_USE_DATE_TZO_GMTIME)
  9298. DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_gmtime(duk_double_t d);
  9299. #endif
  9300. #if defined(DUK_USE_DATE_TZO_WINDOWS)
  9301. DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_windows(duk_double_t d);
  9302. #endif
  9303. #if defined(DUK_USE_DATE_TZO_WINDOWS_NO_DST)
  9304. DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_windows_no_dst(duk_double_t d);
  9305. #endif
  9306. #if defined(DUK_USE_DATE_PRS_STRPTIME)
  9307. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_parse_string_strptime(duk_hthread *thr, const char *str);
  9308. #endif
  9309. #if defined(DUK_USE_DATE_PRS_GETDATE)
  9310. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_parse_string_getdate(duk_hthread *thr, const char *str);
  9311. #endif
  9312. #if defined(DUK_USE_DATE_FMT_STRFTIME)
  9313. DUK_INTERNAL_DECL duk_bool_t duk_bi_date_format_parts_strftime(duk_hthread *thr, duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags);
  9314. #endif
  9315. #if defined(DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME)
  9316. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_monotonic_time_clock_gettime(void);
  9317. #endif
  9318. #if defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC)
  9319. DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_monotonic_time_windows_qpc(void);
  9320. #endif
  9321. DUK_INTERNAL_DECL
  9322. void duk_bi_json_parse_helper(duk_hthread *thr,
  9323. duk_idx_t idx_value,
  9324. duk_idx_t idx_reviver,
  9325. duk_small_uint_t flags);
  9326. DUK_INTERNAL_DECL
  9327. void duk_bi_json_stringify_helper(duk_hthread *thr,
  9328. duk_idx_t idx_value,
  9329. duk_idx_t idx_replacer,
  9330. duk_idx_t idx_space,
  9331. duk_small_uint_t flags);
  9332. DUK_INTERNAL_DECL duk_ret_t duk_textdecoder_decode_utf8_nodejs(duk_hthread *thr);
  9333. #if defined(DUK_USE_ES6_PROXY)
  9334. DUK_INTERNAL_DECL void duk_proxy_ownkeys_postprocess(duk_hthread *thr, duk_hobject *h_proxy_target, duk_uint_t flags);
  9335. #endif
  9336. #endif /* DUK_BUILTIN_PROTOS_H_INCLUDED */
  9337. /* #include duk_selftest.h */
  9338. #line 1 "duk_selftest.h"
  9339. /*
  9340. * Selftest code
  9341. */
  9342. #if !defined(DUK_SELFTEST_H_INCLUDED)
  9343. #define DUK_SELFTEST_H_INCLUDED
  9344. #if defined(DUK_USE_SELF_TESTS)
  9345. DUK_INTERNAL_DECL duk_uint_t duk_selftest_run_tests(duk_alloc_function alloc_func,
  9346. duk_realloc_function realloc_func,
  9347. duk_free_function free_func,
  9348. void *udata);
  9349. #endif
  9350. #endif /* DUK_SELFTEST_H_INCLUDED */
  9351. #line 82 "duk_internal.h"
  9352. #endif /* DUK_INTERNAL_H_INCLUDED */
  9353. #line 10 "duk_replacements.c"
  9354. #if defined(DUK_USE_COMPUTED_NAN)
  9355. DUK_INTERNAL double duk_computed_nan;
  9356. #endif
  9357. #if defined(DUK_USE_COMPUTED_INFINITY)
  9358. DUK_INTERNAL double duk_computed_infinity;
  9359. #endif
  9360. #if defined(DUK_USE_REPL_FPCLASSIFY)
  9361. DUK_INTERNAL int duk_repl_fpclassify(double x) {
  9362. duk_double_union u;
  9363. duk_uint_fast16_t expt;
  9364. duk_small_int_t mzero;
  9365. u.d = x;
  9366. expt = (duk_uint_fast16_t) (u.us[DUK_DBL_IDX_US0] & 0x7ff0UL);
  9367. if (expt > 0x0000UL && expt < 0x7ff0UL) {
  9368. /* expt values [0x001,0x7fe] = normal */
  9369. return DUK_FP_NORMAL;
  9370. }
  9371. mzero = (u.ui[DUK_DBL_IDX_UI1] == 0 && (u.ui[DUK_DBL_IDX_UI0] & 0x000fffffUL) == 0);
  9372. if (expt == 0x0000UL) {
  9373. /* expt 0x000 is zero/subnormal */
  9374. if (mzero) {
  9375. return DUK_FP_ZERO;
  9376. } else {
  9377. return DUK_FP_SUBNORMAL;
  9378. }
  9379. } else {
  9380. /* expt 0xfff is infinite/nan */
  9381. if (mzero) {
  9382. return DUK_FP_INFINITE;
  9383. } else {
  9384. return DUK_FP_NAN;
  9385. }
  9386. }
  9387. }
  9388. #endif
  9389. #if defined(DUK_USE_REPL_SIGNBIT)
  9390. DUK_INTERNAL int duk_repl_signbit(double x) {
  9391. duk_double_union u;
  9392. u.d = x;
  9393. return (int) (u.uc[DUK_DBL_IDX_UC0] & 0x80UL);
  9394. }
  9395. #endif
  9396. #if defined(DUK_USE_REPL_ISFINITE)
  9397. DUK_INTERNAL int duk_repl_isfinite(double x) {
  9398. int c = DUK_FPCLASSIFY(x);
  9399. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) {
  9400. return 0;
  9401. } else {
  9402. return 1;
  9403. }
  9404. }
  9405. #endif
  9406. #if defined(DUK_USE_REPL_ISNAN)
  9407. DUK_INTERNAL int duk_repl_isnan(double x) {
  9408. int c = DUK_FPCLASSIFY(x);
  9409. return (c == DUK_FP_NAN);
  9410. }
  9411. #endif
  9412. #if defined(DUK_USE_REPL_ISINF)
  9413. DUK_INTERNAL int duk_repl_isinf(double x) {
  9414. int c = DUK_FPCLASSIFY(x);
  9415. return (c == DUK_FP_INFINITE);
  9416. }
  9417. #endif
  9418. #line 1 "duk_debug_macros.c"
  9419. /*
  9420. * Debugging macro calls.
  9421. */
  9422. /* #include duk_internal.h -> already included */
  9423. #if defined(DUK_USE_DEBUG)
  9424. /*
  9425. * Debugging enabled
  9426. */
  9427. #include <stdio.h>
  9428. #include <stdlib.h>
  9429. #include <stdarg.h>
  9430. #if !defined(DUK_USE_DEBUG_WRITE)
  9431. #error debugging enabled (DUK_USE_DEBUG) but DUK_USE_DEBUG_WRITE not defined
  9432. #endif
  9433. #define DUK__DEBUG_BUFSIZE DUK_USE_DEBUG_BUFSIZE
  9434. #if defined(DUK_USE_VARIADIC_MACROS)
  9435. DUK_INTERNAL void duk_debug_log(duk_int_t level, const char *file, duk_int_t line, const char *func, const char *fmt, ...) {
  9436. va_list ap;
  9437. long arg_level;
  9438. const char *arg_file;
  9439. long arg_line;
  9440. const char *arg_func;
  9441. const char *arg_msg;
  9442. char buf[DUK__DEBUG_BUFSIZE];
  9443. va_start(ap, fmt);
  9444. DUK_MEMZERO((void *) buf, (size_t) DUK__DEBUG_BUFSIZE);
  9445. duk_debug_vsnprintf(buf, DUK__DEBUG_BUFSIZE - 1, fmt, ap);
  9446. arg_level = (long) level;
  9447. arg_file = (const char *) file;
  9448. arg_line = (long) line;
  9449. arg_func = (const char *) func;
  9450. arg_msg = (const char *) buf;
  9451. DUK_USE_DEBUG_WRITE(arg_level, arg_file, arg_line, arg_func, arg_msg);
  9452. va_end(ap);
  9453. }
  9454. #else /* DUK_USE_VARIADIC_MACROS */
  9455. DUK_INTERNAL char duk_debug_file_stash[DUK_DEBUG_STASH_SIZE];
  9456. DUK_INTERNAL duk_int_t duk_debug_line_stash;
  9457. DUK_INTERNAL char duk_debug_func_stash[DUK_DEBUG_STASH_SIZE];
  9458. DUK_INTERNAL duk_int_t duk_debug_level_stash;
  9459. DUK_INTERNAL void duk_debug_log(const char *fmt, ...) {
  9460. va_list ap;
  9461. long arg_level;
  9462. const char *arg_file;
  9463. long arg_line;
  9464. const char *arg_func;
  9465. const char *arg_msg;
  9466. char buf[DUK__DEBUG_BUFSIZE];
  9467. va_start(ap, fmt);
  9468. DUK_MEMZERO((void *) buf, (size_t) DUK__DEBUG_BUFSIZE);
  9469. duk_debug_vsnprintf(buf, DUK__DEBUG_BUFSIZE - 1, fmt, ap);
  9470. arg_level = (long) duk_debug_level_stash;
  9471. arg_file = (const char *) duk_debug_file_stash;
  9472. arg_line = (long) duk_debug_line_stash;
  9473. arg_func = (const char *) duk_debug_func_stash;
  9474. arg_msg = (const char *) buf;
  9475. DUK_USE_DEBUG_WRITE(arg_level, arg_file, arg_line, arg_func, arg_msg);
  9476. va_end(ap);
  9477. }
  9478. #endif /* DUK_USE_VARIADIC_MACROS */
  9479. #else /* DUK_USE_DEBUG */
  9480. /*
  9481. * Debugging disabled
  9482. */
  9483. #endif /* DUK_USE_DEBUG */
  9484. /* automatic undefs */
  9485. #undef DUK__DEBUG_BUFSIZE
  9486. #line 1 "duk_builtins.c"
  9487. /*
  9488. * Automatically generated by genbuiltins.py, do not edit!
  9489. */
  9490. /* #include duk_internal.h -> already included */
  9491. #if defined(DUK_USE_ASSERTIONS)
  9492. #define DUK__REFCINIT(refc) 0 /*h_assert_refcount*/, (refc) /*actual*/
  9493. #else
  9494. #define DUK__REFCINIT(refc) (refc) /*actual*/
  9495. #endif
  9496. #if defined(DUK_USE_ROM_STRINGS)
  9497. #error ROM support not enabled, rerun configure.py with --rom-support
  9498. #else /* DUK_USE_ROM_STRINGS */
  9499. DUK_INTERNAL const duk_uint8_t duk_strings_data[892] = {
  9500. 79,40,209,144,168,105,6,78,54,139,89,185,44,48,46,90,120,8,154,140,35,103,
  9501. 35,113,193,73,5,52,112,180,104,166,135,52,188,4,98,12,27,146,156,80,211,31,
  9502. 129,115,150,64,52,220,109,24,18,68,156,24,38,67,114,36,55,9,119,151,132,
  9503. 140,93,18,113,128,153,201,212,201,205,2,248,8,196,24,224,104,82,146,40,224,
  9504. 193,48,114,168,37,147,196,54,123,28,4,98,12,43,148,67,103,177,192,70,32,
  9505. 196,121,68,54,123,28,18,192,199,144,124,4,98,12,43,136,108,244,117,184,8,
  9506. 196,24,95,40,134,207,71,91,128,140,65,133,113,13,158,158,151,1,24,131,11,
  9507. 229,16,217,233,233,112,17,136,48,206,21,110,4,244,244,184,8,196,24,103,10,
  9508. 183,2,122,218,156,4,98,12,24,203,112,64,179,113,193,79,8,218,155,131,32,
  9509. 184,70,212,220,13,10,82,68,252,123,144,217,146,38,228,207,18,0,100,37,64,
  9510. 178,212,11,161,17,104,162,96,10,200,193,57,165,65,169,16,5,100,81,27,70,18,
  9511. 32,10,200,68,185,13,116,221,197,184,64,89,57,41,197,13,49,234,5,208,156,
  9512. 113,87,55,118,147,20,187,56,161,166,92,221,212,73,210,236,226,134,153,115,
  9513. 119,76,201,203,179,138,26,99,73,212,136,136,164,25,174,137,56,32,72,137,
  9514. 101,23,52,45,13,34,86,9,79,136,104,201,114,149,96,52,138,134,140,151,75,
  9515. 226,233,186,120,121,22,39,54,83,141,5,55,68,236,36,164,3,16,225,115,150,64,
  9516. 52,205,163,2,72,154,83,138,26,99,75,12,11,150,103,5,36,20,211,70,140,133,
  9517. 67,72,49,241,160,227,81,196,52,168,106,39,132,252,183,136,105,80,212,79,2,
  9518. 249,110,128,126,88,95,133,109,237,237,237,151,235,127,46,249,119,203,190,
  9519. 186,206,33,181,2,208,61,190,12,19,34,65,19,81,132,108,228,97,1,107,33,12,
  9520. 32,45,100,137,64,247,175,9,19,155,41,198,130,155,134,69,146,100,227,226,
  9521. 231,146,51,192,204,73,140,224,145,221,102,241,68,196,157,34,79,143,139,166,
  9522. 233,225,228,227,138,157,173,167,197,211,118,214,210,38,238,74,113,67,76,
  9523. 105,187,169,147,154,73,225,228,32,193,48,25,100,105,166,113,200,147,44,166,
  9524. 1,40,79,18,150,134,147,141,163,2,72,171,115,147,136,4,65,130,96,35,64,194,
  9525. 32,168,89,56,208,48,135,123,144,217,146,39,220,228,193,19,18,101,220,227,
  9526. 73,121,167,115,129,196,200,39,12,136,220,225,93,22,1,114,62,231,42,8,176,
  9527. 15,62,231,36,234,68,68,70,231,30,45,37,161,164,38,231,24,7,159,115,149,4,
  9528. 72,218,171,115,133,67,64,180,100,145,54,231,42,5,208,135,19,152,244,44,133,
  9529. 67,95,73,164,145,143,5,18,2,100,65,35,30,76,241,117,134,70,212,103,37,204,
  9530. 16,72,154,218,130,77,196,145,63,127,123,106,141,25,11,189,243,169,198,132,
  9531. 251,235,119,247,182,154,6,239,124,234,113,161,62,250,221,253,237,164,52,
  9532. 187,223,58,156,104,79,190,187,127,123,105,168,105,119,190,117,56,208,159,
  9533. 125,118,254,246,209,104,209,111,124,234,113,161,62,250,205,253,162,209,162,
  9534. 249,212,227,66,125,244,161,137,0,162,8,18,33,68,9,136,232,19,155,52,54,132,
  9535. 64,200,26,24,196,137,198,66,130,139,153,134,69,146,100,16,220,66,46,68,57,
  9536. 80,208,45,120,25,93,20,22,141,20,208,230,137,5,18,26,164,54,83,3,68,71,20,
  9537. 109,37,141,18,78,145,105,165,100,76,71,36,206,137,22,103,139,172,57,199,6,
  9538. 158,30,71,20,117,4,74,39,54,83,37,92,129,150,199,66,200,75,34,103,40,150,9,
  9539. 72,132,109,24,98,93,238,140,206,75,204,141,28,140,134,61,209,153,101,71,
  9540. 146,36,109,22,178,78,52,33,74,5,200,138,67,30,178,48,141,156,146,134,204,
  9541. 145,40,4,65,172,147,59,192,37,0,196,59,226,138,130,100,75,226,233,144,83,
  9542. 32,204,250,5,104,17,165,48,77,2,46,16,69,140,
  9543. };
  9544. #endif /* DUK_USE_ROM_STRINGS */
  9545. #if defined(DUK_USE_ROM_OBJECTS)
  9546. #error ROM support not enabled, rerun configure.py with --rom-support
  9547. #else /* DUK_USE_ROM_OBJECTS */
  9548. /* native functions: 176 */
  9549. DUK_INTERNAL const duk_c_function duk_bi_native_functions[176] = {
  9550. NULL,
  9551. duk_bi_array_constructor,
  9552. duk_bi_array_constructor_is_array,
  9553. duk_bi_array_prototype_concat,
  9554. duk_bi_array_prototype_indexof_shared,
  9555. duk_bi_array_prototype_iter_shared,
  9556. duk_bi_array_prototype_join_shared,
  9557. duk_bi_array_prototype_pop,
  9558. duk_bi_array_prototype_push,
  9559. duk_bi_array_prototype_reduce_shared,
  9560. duk_bi_array_prototype_reverse,
  9561. duk_bi_array_prototype_shift,
  9562. duk_bi_array_prototype_slice,
  9563. duk_bi_array_prototype_sort,
  9564. duk_bi_array_prototype_splice,
  9565. duk_bi_array_prototype_to_string,
  9566. duk_bi_array_prototype_unshift,
  9567. duk_bi_arraybuffer_constructor,
  9568. duk_bi_arraybuffer_isview,
  9569. duk_bi_boolean_constructor,
  9570. duk_bi_boolean_prototype_tostring_shared,
  9571. duk_bi_buffer_compare_shared,
  9572. duk_bi_buffer_readfield,
  9573. duk_bi_buffer_slice_shared,
  9574. duk_bi_buffer_writefield,
  9575. duk_bi_dataview_constructor,
  9576. duk_bi_date_constructor,
  9577. duk_bi_date_constructor_now,
  9578. duk_bi_date_constructor_parse,
  9579. duk_bi_date_constructor_utc,
  9580. duk_bi_date_prototype_get_shared,
  9581. duk_bi_date_prototype_get_timezone_offset,
  9582. duk_bi_date_prototype_set_shared,
  9583. duk_bi_date_prototype_set_time,
  9584. duk_bi_date_prototype_to_json,
  9585. duk_bi_date_prototype_tostring_shared,
  9586. duk_bi_date_prototype_value_of,
  9587. duk_bi_duktape_object_act,
  9588. duk_bi_duktape_object_compact,
  9589. duk_bi_duktape_object_dec,
  9590. duk_bi_duktape_object_enc,
  9591. duk_bi_duktape_object_fin,
  9592. duk_bi_duktape_object_gc,
  9593. duk_bi_duktape_object_info,
  9594. duk_bi_error_constructor_shared,
  9595. duk_bi_error_prototype_filename_getter,
  9596. duk_bi_error_prototype_filename_setter,
  9597. duk_bi_error_prototype_linenumber_getter,
  9598. duk_bi_error_prototype_linenumber_setter,
  9599. duk_bi_error_prototype_stack_getter,
  9600. duk_bi_error_prototype_stack_setter,
  9601. duk_bi_error_prototype_to_string,
  9602. duk_bi_function_constructor,
  9603. duk_bi_function_prototype,
  9604. duk_bi_function_prototype_apply,
  9605. duk_bi_function_prototype_bind,
  9606. duk_bi_function_prototype_call,
  9607. duk_bi_function_prototype_to_string,
  9608. duk_bi_global_object_decode_uri,
  9609. duk_bi_global_object_decode_uri_component,
  9610. duk_bi_global_object_encode_uri,
  9611. duk_bi_global_object_encode_uri_component,
  9612. duk_bi_global_object_escape,
  9613. duk_bi_global_object_eval,
  9614. duk_bi_global_object_is_finite,
  9615. duk_bi_global_object_is_nan,
  9616. duk_bi_global_object_parse_float,
  9617. duk_bi_global_object_parse_int,
  9618. duk_bi_global_object_unescape,
  9619. duk_bi_json_object_parse,
  9620. duk_bi_json_object_stringify,
  9621. duk_bi_math_object_clz32,
  9622. duk_bi_math_object_hypot,
  9623. duk_bi_math_object_imul,
  9624. duk_bi_math_object_max,
  9625. duk_bi_math_object_min,
  9626. duk_bi_math_object_onearg_shared,
  9627. duk_bi_math_object_random,
  9628. duk_bi_math_object_sign,
  9629. duk_bi_math_object_twoarg_shared,
  9630. duk_bi_native_function_length,
  9631. duk_bi_native_function_name,
  9632. duk_bi_nodejs_buffer_byte_length,
  9633. duk_bi_nodejs_buffer_concat,
  9634. duk_bi_nodejs_buffer_constructor,
  9635. duk_bi_nodejs_buffer_copy,
  9636. duk_bi_nodejs_buffer_fill,
  9637. duk_bi_nodejs_buffer_is_buffer,
  9638. duk_bi_nodejs_buffer_is_encoding,
  9639. duk_bi_nodejs_buffer_tojson,
  9640. duk_bi_nodejs_buffer_tostring,
  9641. duk_bi_nodejs_buffer_write,
  9642. duk_bi_number_constructor,
  9643. duk_bi_number_prototype_to_exponential,
  9644. duk_bi_number_prototype_to_fixed,
  9645. duk_bi_number_prototype_to_locale_string,
  9646. duk_bi_number_prototype_to_precision,
  9647. duk_bi_number_prototype_to_string,
  9648. duk_bi_number_prototype_value_of,
  9649. duk_bi_object_constructor,
  9650. duk_bi_object_constructor_assign,
  9651. duk_bi_object_constructor_create,
  9652. duk_bi_object_constructor_define_properties,
  9653. duk_bi_object_constructor_define_property,
  9654. duk_bi_object_constructor_get_own_property_descriptor,
  9655. duk_bi_object_constructor_is,
  9656. duk_bi_object_constructor_is_extensible,
  9657. duk_bi_object_constructor_is_sealed_frozen_shared,
  9658. duk_bi_object_constructor_keys_shared,
  9659. duk_bi_object_constructor_prevent_extensions,
  9660. duk_bi_object_constructor_seal_freeze_shared,
  9661. duk_bi_object_getprototype_shared,
  9662. duk_bi_object_prototype_defineaccessor,
  9663. duk_bi_object_prototype_has_own_property,
  9664. duk_bi_object_prototype_is_prototype_of,
  9665. duk_bi_object_prototype_lookupaccessor,
  9666. duk_bi_object_prototype_property_is_enumerable,
  9667. duk_bi_object_prototype_to_locale_string,
  9668. duk_bi_object_prototype_to_string,
  9669. duk_bi_object_prototype_value_of,
  9670. duk_bi_object_setprototype_shared,
  9671. duk_bi_performance_now,
  9672. duk_bi_pointer_constructor,
  9673. duk_bi_pointer_prototype_tostring_shared,
  9674. duk_bi_proxy_constructor,
  9675. duk_bi_reflect_apply,
  9676. duk_bi_reflect_construct,
  9677. duk_bi_reflect_object_delete_property,
  9678. duk_bi_reflect_object_get,
  9679. duk_bi_reflect_object_has,
  9680. duk_bi_reflect_object_set,
  9681. duk_bi_regexp_constructor,
  9682. duk_bi_regexp_prototype_exec,
  9683. duk_bi_regexp_prototype_flags,
  9684. duk_bi_regexp_prototype_shared_getter,
  9685. duk_bi_regexp_prototype_test,
  9686. duk_bi_regexp_prototype_tostring,
  9687. duk_bi_string_constructor,
  9688. duk_bi_string_constructor_from_char_code,
  9689. duk_bi_string_constructor_from_code_point,
  9690. duk_bi_string_prototype_caseconv_shared,
  9691. duk_bi_string_prototype_char_at,
  9692. duk_bi_string_prototype_char_code_at,
  9693. duk_bi_string_prototype_concat,
  9694. duk_bi_string_prototype_includes,
  9695. duk_bi_string_prototype_indexof_shared,
  9696. duk_bi_string_prototype_locale_compare,
  9697. duk_bi_string_prototype_match,
  9698. duk_bi_string_prototype_repeat,
  9699. duk_bi_string_prototype_replace,
  9700. duk_bi_string_prototype_search,
  9701. duk_bi_string_prototype_slice,
  9702. duk_bi_string_prototype_split,
  9703. duk_bi_string_prototype_startswith_endswith,
  9704. duk_bi_string_prototype_substr,
  9705. duk_bi_string_prototype_substring,
  9706. duk_bi_string_prototype_to_string,
  9707. duk_bi_string_prototype_trim,
  9708. duk_bi_textdecoder_constructor,
  9709. duk_bi_textdecoder_prototype_decode,
  9710. duk_bi_textdecoder_prototype_shared_getter,
  9711. duk_bi_textencoder_constructor,
  9712. duk_bi_textencoder_prototype_encode,
  9713. duk_bi_textencoder_prototype_encoding_getter,
  9714. duk_bi_thread_constructor,
  9715. duk_bi_thread_current,
  9716. duk_bi_thread_resume,
  9717. duk_bi_thread_yield,
  9718. duk_bi_type_error_thrower,
  9719. duk_bi_typedarray_buffer_getter,
  9720. duk_bi_typedarray_bytelength_getter,
  9721. duk_bi_typedarray_byteoffset_getter,
  9722. duk_bi_typedarray_constructor,
  9723. duk_bi_typedarray_set,
  9724. duk_bi_uint8array_allocplain,
  9725. duk_bi_uint8array_plainof,
  9726. };
  9727. #if defined(DUK_USE_DOUBLE_LE)
  9728. DUK_INTERNAL const duk_uint8_t duk_builtins_data[3972] = {
  9729. 144,148,105,223,160,68,52,228,62,12,104,200,165,132,52,167,194,138,105,242,
  9730. 252,57,28,211,57,18,64,52,238,62,44,138,111,171,241,164,19,87,125,30,33,
  9731. 167,16,145,159,8,211,136,9,225,42,5,240,145,139,163,163,8,211,136,10,228,
  9732. 64,211,19,132,140,93,29,56,70,156,64,119,34,66,146,36,104,137,194,70,46,
  9733. 142,172,35,78,32,47,146,195,102,11,240,145,139,163,175,8,211,136,9,228,240,
  9734. 242,112,145,139,163,179,8,211,136,8,237,34,130,118,49,116,118,225,26,48,0,
  9735. 1,80,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132,
  9736. 33,8,66,34,33,154,112,0,1,73,247,35,79,91,237,198,174,192,47,31,23,95,17,
  9737. 13,51,19,35,93,68,216,209,128,0,10,192,174,79,15,32,248,8,196,24,8,107,192,
  9738. 0,5,98,118,27,94,0,0,43,19,227,94,0,0,43,20,46,215,128,0,10,197,28,198,188,
  9739. 0,0,86,41,100,53,224,0,2,177,79,85,175,0,0,21,138,154,45,120,0,0,172,85,
  9740. 217,107,192,0,5,98,182,243,86,193,106,52,127,66,249,50,94,124,35,68,225,
  9741. 146,49,13,31,170,23,201,146,243,224,200,39,12,145,136,67,134,11,49,0,0,0,0,
  9742. 0,0,3,225,255,51,0,0,0,0,0,0,3,193,255,47,18,1,172,19,120,71,10,25,196,136,
  9743. 113,162,156,136,199,42,57,204,144,115,132,240,149,2,248,72,197,209,58,2,
  9744. 185,16,52,196,225,35,23,68,233,14,228,72,82,68,141,17,56,72,197,209,58,130,
  9745. 249,44,54,96,191,9,24,186,39,88,79,39,135,147,132,140,93,19,176,35,180,138,
  9746. 9,216,197,209,59,82,79,31,40,242,1,248,58,42,96,121,14,232,94,62,46,190,15,
  9747. 38,31,145,33,86,65,76,242,150,143,69,48,242,179,79,45,56,243,51,207,53,64,
  9748. 243,116,79,57,72,243,180,207,61,80,243,245,79,65,88,244,34,249,50,94,124,
  9749. 35,68,225,146,39,163,23,201,146,243,224,200,39,12,145,61,40,183,146,37,116,
  9750. 88,6,136,158,244,241,174,230,202,80,135,130,50,39,16,217,231,208,20,240,70,
  9751. 68,225,86,224,79,60,64,84,75,141,7,27,157,32,66,37,194,161,168,153,51,132,
  9752. 9,25,4,225,147,180,138,50,196,18,25,4,225,147,180,138,5,215,49,238,105,27,
  9753. 60,185,2,72,209,56,100,237,34,140,193,4,136,209,56,100,237,34,129,117,204,
  9754. 123,154,70,207,50,64,98,72,64,121,51,68,8,163,73,33,1,228,208,16,0,65,112,
  9755. 152,56,196,159,31,23,77,211,195,201,199,23,150,73,169,234,34,24,49,39,199,
  9756. 89,188,124,92,242,70,120,224,201,33,69,15,155,163,196,64,153,137,62,58,205,
  9757. 227,226,231,146,51,199,26,6,18,92,130,64,192,148,144,102,240,23,129,133,18,
  9758. 2,100,224,160,56,100,42,26,78,62,46,121,35,60,112,216,32,50,21,13,39,31,23,
  9759. 60,145,154,9,46,18,1,36,64,47,148,64,98,196,132,201,57,68,132,95,18,84,141,
  9760. 159,9,121,145,178,67,155,46,73,2,17,46,72,128,89,7,199,32,66,37,194,197,
  9761. 217,35,120,228,131,17,46,18,243,35,100,128,172,156,98,2,40,152,151,32,130,
  9762. 166,36,248,235,55,143,139,158,72,207,28,150,24,23,46,92,130,80,72,151,21,0,
  9763. 100,213,103,229,245,8,186,190,144,24,78,136,24,94,152,3,142,9,113,214,111,
  9764. 31,23,60,145,158,57,164,13,68,184,248,186,110,158,30,78,56,188,226,10,62,
  9765. 46,121,35,60,113,18,225,27,70,18,32,10,201,208,32,134,214,208,200,84,52,
  9766. 156,49,39,50,71,107,107,152,129,13,173,161,144,168,105,57,34,78,100,142,
  9767. 214,215,49,16,134,214,210,220,229,81,252,49,39,50,71,107,107,158,65,13,173,
  9768. 165,185,202,163,249,34,78,100,142,214,215,60,146,12,16,28,128,62,175,42,6,
  9769. 143,36,136,16,64,90,242,135,192,129,67,71,147,62,65,5,215,231,214,6,215,62,
  9770. 180,8,49,1,3,162,92,4,98,12,41,14,67,40,106,229,1,132,130,8,24,78,104,129,
  9771. 54,62,96,224,144,13,238,124,32,2,62,146,60,51,224,120,146,164,140,137,20,0,
  9772. 178,58,11,56,192,5,146,208,34,71,64,36,157,25,200,32,52,158,180,8,146,87,
  9773. 129,232,217,29,5,156,179,224,116,52,100,191,28,87,62,130,214,9,79,136,104,
  9774. 201,126,56,174,127,0,31,255,225,73,82,71,16,13,1,36,230,18,1,164,14,87,71,
  9775. 132,0,143,0,210,131,96,31,0,211,6,42,23,50,70,1,167,13,18,14,130,36,67,232,
  9776. 46,36,29,4,78,69,6,60,226,31,192,7,255,252,24,192,163,11,23,51,130,56,35,
  9777. 193,56,100,243,31,6,150,46,103,4,225,147,143,114,27,63,57,241,200,169,194,
  9778. 133,42,166,175,240,6,23,240,0,97,28,17,224,39,233,32,80,142,8,240,78,25,56,
  9779. 9,250,136,22,39,12,156,123,144,217,240,19,245,18,6,19,154,32,79,214,124,14,
  9780. 134,140,151,227,139,237,52,11,88,37,62,33,163,37,248,226,251,77,32,213,184,
  9781. 64,89,56,39,49,224,137,61,196,5,96,38,35,251,200,15,18,61,96,17,62,40,6,
  9782. 145,1,17,31,228,64,89,45,2,39,205,0,178,122,209,63,162,2,101,64,202,113,67,
  9783. 77,247,64,92,221,197,186,196,143,4,9,19,208,1,25,187,139,112,128,178,113,
  9784. 110,177,35,193,2,68,244,0,46,110,229,30,242,71,130,4,137,232,4,35,55,113,
  9785. 110,16,22,78,81,239,36,120,32,72,158,128,64,147,138,25,249,0,52,72,242,2,
  9786. 127,2,5,74,96,140,229,203,34,103,250,154,4,17,163,151,44,137,159,234,105,4,
  9787. 33,162,93,6,73,123,13,1,165,64,202,113,251,33,6,64,14,71,78,20,101,213,207,
  9788. 4,194,207,2,12,162,0,158,176,23,218,168,23,66,64,255,255,255,255,255,255,
  9789. 239,127,19,214,33,187,85,2,232,72,0,32,0,0,0,0,0,0,25,136,0,0,0,0,0,0,31,
  9790. 15,228,122,247,73,19,69,73,180,134,149,13,68,241,0,0,0,0,0,0,3,193,252,143,
  9791. 90,67,2,104,169,54,144,210,161,168,158,32,0,0,0,0,0,0,120,127,142,73,78,20,
  9792. 0,0,0,0,0,0,0,0,8,58,189,233,24,77,217,24,93,240,1,230,238,21,23,32,247,68,
  9793. 13,155,184,75,189,205,35,102,128,47,114,64,185,187,143,137,4,137,33,205,
  9794. 222,17,6,96,48,87,130,50,37,114,1,246,147,21,143,224,54,186,213,128,114,90,
  9795. 112,164,0,0,0,0,0,0,124,63,226,117,119,128,25,55,112,96,153,57,41,197,13,
  9796. 53,224,65,147,119,38,134,19,146,156,80,211,94,5,194,94,6,37,55,113,110,16,
  9797. 22,78,12,19,39,37,56,161,166,188,14,74,110,226,220,32,44,156,154,24,78,74,
  9798. 113,67,77,120,32,97,175,4,28,61,224,133,172,186,70,22,248,1,204,73,242,104,
  9799. 97,47,128,44,196,159,11,69,175,152,32,35,100,33,142,49,39,218,76,69,237,22,
  9800. 190,96,128,141,144,136,32,196,159,24,230,204,246,66,40,179,18,125,164,196,
  9801. 206,185,179,61,144,140,28,196,159,6,9,146,200,71,20,98,79,180,152,135,208,
  9802. 76,150,66,64,99,18,124,24,49,100,36,137,49,39,218,76,67,232,49,100,37,8,49,
  9803. 39,195,186,145,149,144,150,44,196,159,105,49,31,174,164,101,100,38,10,49,
  9804. 39,198,33,180,153,37,100,38,141,49,39,218,76,76,234,27,73,146,86,66,112,
  9805. 163,18,124,145,4,230,142,86,66,120,211,18,125,164,197,46,144,78,104,229,
  9806. 100,40,15,49,39,198,33,107,68,136,39,52,114,178,20,73,24,147,237,38,38,117,
  9807. 11,90,36,65,57,163,149,144,164,68,196,159,38,134,19,46,105,56,226,150,68,
  9808. 157,160,3,200,147,228,208,194,92,32,124,137,62,49,11,90,36,65,57,163,149,
  9809. 178,166,74,68,159,105,49,51,168,90,209,34,9,205,28,173,149,65,82,36,249,34,
  9810. 9,205,28,173,175,170,54,68,159,105,49,75,164,19,154,57,91,95,88,84,137,62,
  9811. 49,13,164,201,43,111,235,141,145,39,218,76,76,234,27,73,146,86,223,216,17,
  9812. 34,79,135,117,35,43,115,236,139,145,39,218,76,71,235,169,25,91,159,104,60,
  9813. 137,62,12,19,37,178,182,42,68,159,105,49,15,160,153,45,149,193,18,36,248,
  9814. 199,54,103,182,190,232,185,18,125,164,196,206,185,179,61,181,247,133,200,
  9815. 147,225,104,181,243,4,4,109,191,190,58,68,159,105,49,23,180,90,249,130,2,
  9816. 54,223,224,67,152,147,230,8,8,217,12,16,121,18,124,193,1,27,101,131,131,56,
  9817. 7,38,193,198,72,0,0,0,0,0,0,0,0,198,231,240,134,39,63,136,151,95,63,136,49,
  9818. 89,252,66,98,243,248,133,96,132,185,5,224,32,36,201,41,248,200,213,249,0,
  9819. 131,64,7,39,192,218,148,124,137,74,216,231,198,227,141,182,124,78,40,217,
  9820. 231,197,227,4,213,227,192,159,72,10,5,21,218,138,120,74,129,124,36,98,232,
  9821. 228,74,81,62,160,20,10,107,181,21,114,32,105,137,194,70,46,142,68,165,19,
  9822. 235,1,64,170,187,81,119,34,66,146,36,104,137,194,70,46,142,68,165,19,236,1,
  9823. 64,174,187,81,95,37,134,204,23,225,35,23,71,34,82,137,246,128,160,89,93,
  9824. 168,167,147,195,201,194,70,46,142,68,165,19,238,1,64,182,187,81,71,105,20,
  9825. 19,177,139,163,145,41,68,16,7,6,15,82,70,72,115,96,0,0,0,0,0,93,105,160,91,
  9826. 60,149,195,200,194,8,134,149,216,114,1,128,83,192,144,8,194,195,16,12,168,
  9827. 110,20,120,12,141,22,16,120,12,100,22,12,120,28,78,99,192,41,224,136,115,
  9828. 36,14,100,197,213,245,193,48,189,112,40,2,237,96,175,131,117,2,178,112,145,
  9829. 139,163,145,131,114,70,46,142,218,27,182,72,197,209,219,56,26,53,161,166,
  9830. 28,1,204,178,10,14,38,78,44,141,52,207,31,0,0,21,64,129,100,180,8,148,145,
  9831. 92,203,176,160,226,100,226,200,211,76,241,240,0,1,84,2,131,137,147,142,41,
  9832. 100,73,199,192,0,5,88,6,13,10,82,70,62,0,0,42,66,88,115,18,124,67,103,177,
  9833. 69,49,130,12,73,242,136,108,246,40,165,177,6,36,248,134,207,71,90,138,99,
  9834. 68,152,147,229,16,217,232,235,81,75,130,12,73,241,13,158,158,149,20,199,9,
  9835. 49,39,202,33,179,211,210,162,151,69,24,147,225,86,224,79,79,74,138,94,20,
  9836. 98,79,133,91,129,61,109,74,41,124,60,137,62,33,179,216,166,216,193,18,36,
  9837. 249,68,54,123,20,218,216,137,18,124,67,103,163,173,77,177,162,100,73,242,
  9838. 136,108,244,117,169,181,193,18,36,248,134,207,79,74,155,99,132,200,147,229,
  9839. 16,217,233,233,83,107,162,164,73,240,171,112,39,167,165,77,175,10,145,39,
  9840. 194,173,192,158,182,165,54,191,153,51,72,71,161,196,201,45,167,146,59,68,
  9841. 89,24,70,206,0,0,0,0,0,0,7,129,249,153,51,104,71,161,196,201,45,167,146,59,
  9842. 68,89,24,70,206,0,0,0,0,0,0,7,129,249,153,51,136,71,161,196,201,45,167,146,
  9843. 59,68,89,24,70,206,0,0,0,0,0,0,7,129,249,153,51,168,71,161,196,201,45,167,
  9844. 146,59,68,89,24,70,206,0,0,0,0,0,0,0,2,1,153,51,200,71,161,196,201,45,167,
  9845. 146,59,68,89,24,70,206,0,0,0,0,0,0,0,2,1,153,51,232,71,161,196,201,45,167,
  9846. 146,59,68,89,24,70,206,0,0,0,0,0,0,0,130,1,153,52,8,71,161,196,201,45,167,
  9847. 146,59,68,89,24,70,206,0,0,0,0,0,0,0,130,1,153,52,40,71,161,196,201,45,167,
  9848. 146,59,68,89,24,70,206,0,0,0,0,0,0,0,130,1,153,52,72,71,161,196,201,45,167,
  9849. 146,59,68,89,24,70,206,0,0,0,0,0,0,1,2,1,135,52,102,32,76,72,1,246,136,235,
  9850. 103,177,69,1,17,32,7,196,54,123,20,82,88,200,144,3,237,17,214,207,71,91,
  9851. 171,37,20,65,145,32,7,218,35,173,158,142,183,66,74,41,16,92,72,1,241,13,
  9852. 158,142,183,86,74,41,48,92,72,1,241,13,158,142,183,66,74,41,80,100,72,1,
  9853. 246,136,235,103,167,165,213,146,138,40,200,144,3,237,17,214,207,79,75,161,
  9854. 37,20,138,46,36,0,248,134,207,79,75,171,37,20,154,46,36,0,248,134,207,79,
  9855. 75,161,37,20,170,46,36,0,248,85,184,19,234,201,69,24,92,72,1,240,171,112,
  9856. 39,208,146,138,70,25,18,0,124,27,168,21,147,171,37,20,113,145,32,7,193,186,
  9857. 129,89,58,18,81,72,226,162,64,15,180,71,91,62,172,148,90,0,168,144,3,237,
  9858. 17,214,207,161,37,22,144,38,36,0,248,134,207,171,37,22,160,38,36,0,248,134,
  9859. 207,161,37,22,176,42,209,68,201,218,35,173,158,197,54,4,218,40,153,56,134,
  9860. 207,98,155,75,27,104,162,100,237,17,214,207,71,91,171,37,54,65,182,138,38,
  9861. 78,209,29,108,244,117,186,18,83,104,131,45,20,76,156,67,103,163,173,213,
  9862. 146,155,76,25,104,162,100,226,27,61,29,110,132,148,218,160,219,69,19,39,
  9863. 104,142,182,122,122,93,89,41,178,141,180,81,50,118,136,235,103,167,165,208,
  9864. 146,155,69,25,104,162,100,226,27,61,61,46,172,148,218,104,203,69,19,39,16,
  9865. 217,233,233,116,36,166,213,70,90,40,153,56,85,184,19,234,201,77,152,101,
  9866. 162,137,147,133,91,129,62,132,148,218,48,219,69,19,39,6,234,5,100,234,201,
  9867. 77,156,109,162,137,147,131,117,2,178,116,36,166,209,197,218,40,153,59,68,
  9868. 117,179,234,201,78,32,11,180,81,50,118,136,235,103,208,146,156,72,21,104,
  9869. 162,100,226,27,62,172,148,226,128,171,69,19,39,16,217,244,36,167,22,53,123,
  9870. 102,53,155,80,2,21,11,94,201,128,196,133,0,185,80,32,56,156,199,130,36,160,
  9871. 72,16,78,126,54,48,5,146,208,34,82,72,1,109,20,76,155,120,28,34,1,225,32,
  9872. 52,171,138,69,133,95,130,160,4,234,219,163,161,0,89,86,214,238,197,172,9,0,
  9873. 31,86,221,40,29,231,63,95,200,69,220,199,225,122,183,27,72,144,63,160,138,
  9874. 217,81,197,125,207,195,117,110,54,142,129,32,7,114,147,10,189,229,237,159,
  9875. 130,235,209,0,96,181,17,83,236,132,37,0,63,101,8,207,71,107,74,6,105,219,
  9876. 251,52,245,7,49,248,94,202,17,158,148,12,211,183,246,105,234,15,99,242,159,
  9877. 129,228,176,192,185,127,46,155,185,41,197,13,55,38,3,127,255,20,138,160,
  9878. 192,25,106,8,8,1,58,90,130,64,128,146,27,168,37,8,9,129,186,130,96,160,152,
  9879. 27,165,171,64,32,131,25,234,10,64,65,17,11,212,19,133,18,243,167,165,163,
  9880. 32,24,157,45,65,64,6,75,191,80,80,66,149,110,116,117,5,8,41,240,247,79,72,
  9881. 188,8,134,81,122,84,1,173,198,212,20,48,139,113,180,181,5,36,42,220,109,29,
  9882. 13,65,74,6,192,95,76,188,6,196,55,78,188,6,247,91,86,136,26,32,104,220,205,
  9883. 72,1,98,234,52,122,130,136,18,72,51,117,68,3,146,27,168,40,161,37,8,207,80,
  9884. 81,129,204,13,212,20,112,179,141,26,45,65,75,112,20,43,193,25,19,66,128,
  9885. 153,78,40,105,144,92,104,152,131,124,27,253,128,0,10,116,3,68,146,163,9,
  9886. 128,0,10,102,3,138,145,137,27,60,0,0,82,129,7,2,4,16,7,2,70,143,178,203,
  9887. 164,237,35,14,25,10,134,147,143,139,158,72,207,28,54,77,47,109,13,55,113,
  9888. 120,96,196,159,29,102,241,241,115,201,25,227,131,36,133,20,62,110,143,17,
  9889. 16,113,137,62,62,46,155,167,135,147,142,47,44,151,79,221,64,98,37,194,94,
  9890. 100,108,144,21,147,140,73,168,228,19,17,124,73,82,54,124,37,230,70,201,14,
  9891. 108,185,36,155,14,243,243,83,212,69,131,132,4,12,137,114,168,37,166,145,7,
  9892. 10,4,28,200,14,12,40,56,153,56,178,52,211,60,124,0,0,85,0,160,226,100,227,
  9893. 138,89,18,113,240,0,1,86,1,131,66,148,145,143,128,0,10,144,93,134,0,0,43,
  9894. 80,17,42,4,17,136,49,73,19,49,134,16,143,67,137,146,91,79,36,118,136,178,
  9895. 48,141,156,0,0,0,0,0,0,15,3,243,49,135,16,143,67,137,146,91,79,36,118,136,
  9896. 178,48,141,156,0,0,0,0,0,0,15,3,245,20,5,173,194,227,214,4,55,0,0,21,196,7,
  9897. 122,192,134,241,197,192,0,5,121,25,140,64,132,122,28,76,146,218,121,35,180,
  9898. 69,145,132,108,224,0,0,0,0,0,0,120,31,153,140,72,132,122,28,76,146,218,121,
  9899. 35,180,69,145,132,108,224,0,0,0,0,0,0,0,32,25,140,80,132,122,28,76,146,218,
  9900. 121,35,180,69,145,132,108,224,0,0,0,0,0,0,0,32,25,140,88,132,122,28,76,146,
  9901. 218,121,35,180,69,145,132,108,224,0,0,0,0,0,0,8,32,25,140,96,132,122,28,76,
  9902. 146,218,121,35,180,69,145,132,108,224,0,0,0,0,0,0,8,32,25,140,104,132,122,
  9903. 28,76,146,218,121,35,180,69,145,132,108,224,0,0,0,0,0,0,8,32,25,140,112,
  9904. 132,122,28,76,146,218,121,35,180,69,145,132,108,224,0,0,0,0,0,0,16,32,16,
  9905. 113,225,0,48,156,209,2,122,244,5,34,92,35,68,225,161,166,218,16,33,18,224,
  9906. 104,82,146,59,50,5,7,19,39,22,70,154,103,215,32,28,78,99,193,18,80,70,131,
  9907. 165,1,205,34,8,35,68,225,161,166,239,255,4,12,70,137,195,39,248,73,7,78,3,
  9908. 154,102,16,70,137,195,67,77,223,248,1,74,9,129,125,255,130,9,65,154,232,
  9909. 147,161,115,59,255,5,64,195,32,156,50,126,197,14,2,3,107,173,213,0,
  9910. };
  9911. #elif defined(DUK_USE_DOUBLE_BE)
  9912. DUK_INTERNAL const duk_uint8_t duk_builtins_data[3972] = {
  9913. 144,148,105,223,160,68,52,228,62,12,104,200,165,132,52,167,194,138,105,242,
  9914. 252,57,28,211,57,18,64,52,238,62,44,138,111,171,241,164,19,87,125,30,33,
  9915. 167,16,145,159,8,211,136,9,225,42,5,240,145,139,163,163,8,211,136,10,228,
  9916. 64,211,19,132,140,93,29,56,70,156,64,119,34,66,146,36,104,137,194,70,46,
  9917. 142,172,35,78,32,47,146,195,102,11,240,145,139,163,175,8,211,136,9,228,240,
  9918. 242,112,145,139,163,179,8,211,136,8,237,34,130,118,49,116,118,225,26,48,0,
  9919. 1,80,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132,
  9920. 33,8,66,34,33,154,112,0,1,73,247,35,79,91,237,198,174,192,47,31,23,95,17,
  9921. 13,51,19,35,93,68,216,209,128,0,10,192,174,79,15,32,248,8,196,24,8,107,192,
  9922. 0,5,98,118,27,94,0,0,43,19,227,94,0,0,43,20,46,215,128,0,10,197,28,198,188,
  9923. 0,0,86,41,100,53,224,0,2,177,79,85,175,0,0,21,138,154,45,120,0,0,172,85,
  9924. 217,107,192,0,5,98,182,243,86,193,106,52,127,66,249,50,94,124,35,68,225,
  9925. 146,49,13,31,170,23,201,146,243,224,200,39,12,145,136,67,134,11,49,1,255,
  9926. 224,0,0,0,0,0,3,51,1,255,192,0,0,0,0,0,3,47,18,1,172,19,120,71,10,25,196,
  9927. 136,113,162,156,136,199,42,57,204,144,115,132,240,149,2,248,72,197,209,58,
  9928. 2,185,16,52,196,225,35,23,68,233,14,228,72,82,68,141,17,56,72,197,209,58,
  9929. 130,249,44,54,96,191,9,24,186,39,88,79,39,135,147,132,140,93,19,176,35,180,
  9930. 138,9,216,197,209,59,82,79,31,40,242,1,248,58,42,96,121,14,232,94,62,46,
  9931. 190,15,38,31,145,33,86,65,76,242,150,143,69,48,242,179,79,45,56,243,51,207,
  9932. 53,64,243,116,79,57,72,243,180,207,61,80,243,245,79,65,88,244,34,249,50,94,
  9933. 124,35,68,225,146,39,163,23,201,146,243,224,200,39,12,145,61,40,183,146,37,
  9934. 116,88,6,136,158,244,241,174,230,202,80,135,130,50,39,16,217,231,208,20,
  9935. 240,70,68,225,86,224,79,60,64,84,75,141,7,27,157,32,66,37,194,161,168,153,
  9936. 51,132,9,25,4,225,147,180,138,50,196,18,25,4,225,147,180,138,5,215,49,238,
  9937. 105,27,60,185,2,72,209,56,100,237,34,140,193,4,136,209,56,100,237,34,129,
  9938. 117,204,123,154,70,207,50,64,98,72,64,121,51,68,8,163,73,33,1,228,208,16,0,
  9939. 65,112,152,56,196,159,31,23,77,211,195,201,199,23,150,73,169,234,34,24,49,
  9940. 39,199,89,188,124,92,242,70,120,224,201,33,69,15,155,163,196,64,153,137,62,
  9941. 58,205,227,226,231,146,51,199,26,6,18,92,130,64,192,148,144,102,240,23,129,
  9942. 133,18,2,100,224,160,56,100,42,26,78,62,46,121,35,60,112,216,32,50,21,13,
  9943. 39,31,23,60,145,154,9,46,18,1,36,64,47,148,64,98,196,132,201,57,68,132,95,
  9944. 18,84,141,159,9,121,145,178,67,155,46,73,2,17,46,72,128,89,7,199,32,66,37,
  9945. 194,197,217,35,120,228,131,17,46,18,243,35,100,128,172,156,98,2,40,152,151,
  9946. 32,130,166,36,248,235,55,143,139,158,72,207,28,150,24,23,46,92,130,80,72,
  9947. 151,21,0,100,213,103,229,245,8,186,190,144,24,78,136,24,94,152,3,142,9,113,
  9948. 214,111,31,23,60,145,158,57,164,13,68,184,248,186,110,158,30,78,56,188,226,
  9949. 10,62,46,121,35,60,113,18,225,27,70,18,32,10,201,208,32,134,214,208,200,84,
  9950. 52,156,49,39,50,71,107,107,152,129,13,173,161,144,168,105,57,34,78,100,142,
  9951. 214,215,49,16,134,214,210,220,229,81,252,49,39,50,71,107,107,158,65,13,173,
  9952. 165,185,202,163,249,34,78,100,142,214,215,60,146,12,16,28,128,62,175,42,6,
  9953. 143,36,136,16,64,90,242,135,192,129,67,71,147,62,65,5,215,231,214,6,215,62,
  9954. 180,8,49,1,3,162,92,4,98,12,41,14,67,40,106,229,1,132,130,8,24,78,104,129,
  9955. 54,62,96,224,144,13,238,124,32,2,62,146,60,51,224,120,146,164,140,137,20,0,
  9956. 178,58,11,56,192,5,146,208,34,71,64,36,157,25,200,32,52,158,180,8,146,87,
  9957. 129,232,217,29,5,156,179,224,116,52,100,191,28,87,62,130,214,9,79,136,104,
  9958. 201,126,56,174,127,0,31,255,225,73,82,71,16,13,1,36,230,18,1,164,14,87,71,
  9959. 132,0,143,0,210,131,96,31,0,211,6,42,23,50,70,1,167,13,18,14,130,36,67,232,
  9960. 46,36,29,4,78,69,6,60,226,31,192,7,255,252,24,192,163,11,23,51,130,56,35,
  9961. 193,56,100,243,31,6,150,46,103,4,225,147,143,114,27,63,57,241,200,169,194,
  9962. 133,42,166,175,240,6,23,240,0,97,28,17,224,39,233,32,80,142,8,240,78,25,56,
  9963. 9,250,136,22,39,12,156,123,144,217,240,19,245,18,6,19,154,32,79,214,124,14,
  9964. 134,140,151,227,139,237,52,11,88,37,62,33,163,37,248,226,251,77,32,213,184,
  9965. 64,89,56,39,49,224,137,61,196,5,96,38,35,251,200,15,18,61,96,17,62,40,6,
  9966. 145,1,17,31,228,64,89,45,2,39,205,0,178,122,209,63,162,2,101,64,202,113,67,
  9967. 77,247,64,92,221,197,186,196,143,4,9,19,208,1,25,187,139,112,128,178,113,
  9968. 110,177,35,193,2,68,244,0,46,110,229,30,242,71,130,4,137,232,4,35,55,113,
  9969. 110,16,22,78,81,239,36,120,32,72,158,128,64,147,138,25,249,0,52,72,242,2,
  9970. 127,2,5,74,96,140,229,203,34,103,250,154,4,17,163,151,44,137,159,234,105,4,
  9971. 33,162,93,6,73,123,13,1,165,64,202,113,251,33,6,64,14,71,78,20,101,213,207,
  9972. 4,194,207,2,12,162,0,158,176,23,218,168,23,66,64,127,239,255,255,255,255,
  9973. 255,255,19,214,33,187,85,2,232,72,0,0,0,0,0,0,0,0,57,136,15,255,0,0,0,0,0,
  9974. 0,4,122,247,73,19,69,73,180,134,149,13,68,241,1,255,192,0,0,0,0,0,0,143,90,
  9975. 67,2,104,169,54,144,210,161,168,158,32,127,248,0,0,0,0,0,0,14,73,78,20,0,0,
  9976. 0,0,0,0,0,0,8,58,189,233,24,77,217,24,93,240,1,230,238,21,23,32,247,68,13,
  9977. 155,184,75,189,205,35,102,128,47,114,64,185,187,143,137,4,137,33,205,222,
  9978. 17,6,96,48,87,130,50,37,114,1,246,147,21,143,224,54,186,213,128,114,90,112,
  9979. 164,63,252,0,0,0,0,0,0,98,117,119,128,25,55,112,96,153,57,41,197,13,53,224,
  9980. 65,147,119,38,134,19,146,156,80,211,94,5,194,94,6,37,55,113,110,16,22,78,
  9981. 12,19,39,37,56,161,166,188,14,74,110,226,220,32,44,156,154,24,78,74,113,67,
  9982. 77,120,32,97,175,4,28,61,224,133,172,186,70,22,248,1,204,73,242,104,97,47,
  9983. 128,44,196,159,11,69,175,152,32,35,100,33,142,49,39,218,76,69,237,22,190,
  9984. 96,128,141,144,136,32,196,159,24,230,204,246,66,40,179,18,125,164,196,206,
  9985. 185,179,61,144,140,28,196,159,6,9,146,200,71,20,98,79,180,152,135,208,76,
  9986. 150,66,64,99,18,124,24,49,100,36,137,49,39,218,76,67,232,49,100,37,8,49,39,
  9987. 195,186,145,149,144,150,44,196,159,105,49,31,174,164,101,100,38,10,49,39,
  9988. 198,33,180,153,37,100,38,141,49,39,218,76,76,234,27,73,146,86,66,112,163,
  9989. 18,124,145,4,230,142,86,66,120,211,18,125,164,197,46,144,78,104,229,100,40,
  9990. 15,49,39,198,33,107,68,136,39,52,114,178,20,73,24,147,237,38,38,117,11,90,
  9991. 36,65,57,163,149,144,164,68,196,159,38,134,19,46,105,56,226,150,68,157,160,
  9992. 3,200,147,228,208,194,92,32,124,137,62,49,11,90,36,65,57,163,149,178,166,
  9993. 74,68,159,105,49,51,168,90,209,34,9,205,28,173,149,65,82,36,249,34,9,205,
  9994. 28,173,175,170,54,68,159,105,49,75,164,19,154,57,91,95,88,84,137,62,49,13,
  9995. 164,201,43,111,235,141,145,39,218,76,76,234,27,73,146,86,223,216,17,34,79,
  9996. 135,117,35,43,115,236,139,145,39,218,76,71,235,169,25,91,159,104,60,137,62,
  9997. 12,19,37,178,182,42,68,159,105,49,15,160,153,45,149,193,18,36,248,199,54,
  9998. 103,182,190,232,185,18,125,164,196,206,185,179,61,181,247,133,200,147,225,
  9999. 104,181,243,4,4,109,191,190,58,68,159,105,49,23,180,90,249,130,2,54,223,
  10000. 224,67,152,147,230,8,8,217,12,16,121,18,124,193,1,27,101,131,131,56,7,38,
  10001. 193,198,72,0,0,0,0,0,0,0,0,198,231,240,134,39,63,136,151,95,63,136,49,89,
  10002. 252,66,98,243,248,133,96,132,185,5,224,32,36,201,41,248,200,213,249,0,131,
  10003. 64,7,39,192,218,148,124,137,74,216,231,198,227,141,182,124,78,40,217,231,
  10004. 197,227,4,213,227,192,159,72,10,5,21,218,138,120,74,129,124,36,98,232,228,
  10005. 74,81,62,160,20,10,107,181,21,114,32,105,137,194,70,46,142,68,165,19,235,1,
  10006. 64,170,187,81,119,34,66,146,36,104,137,194,70,46,142,68,165,19,236,1,64,
  10007. 174,187,81,95,37,134,204,23,225,35,23,71,34,82,137,246,128,160,89,93,168,
  10008. 167,147,195,201,194,70,46,142,68,165,19,238,1,64,182,187,81,71,105,20,19,
  10009. 177,139,163,145,41,68,16,7,6,15,82,70,72,115,96,32,105,221,0,0,0,0,0,91,60,
  10010. 149,195,200,194,8,134,149,216,114,1,128,83,192,144,8,194,195,16,12,168,110,
  10011. 20,120,12,141,22,16,120,12,100,22,12,120,28,78,99,192,41,224,136,115,36,14,
  10012. 100,197,213,245,193,48,189,112,40,2,237,96,175,131,117,2,178,112,145,139,
  10013. 163,145,131,114,70,46,142,218,27,182,72,197,209,219,56,26,53,161,166,28,1,
  10014. 204,178,10,14,38,78,44,141,52,207,31,0,0,21,64,129,100,180,8,148,145,92,
  10015. 203,176,160,226,100,226,200,211,76,241,240,0,1,84,2,131,137,147,142,41,100,
  10016. 73,199,192,0,5,88,6,13,10,82,70,62,0,0,42,66,88,115,18,124,67,103,177,69,
  10017. 49,130,12,73,242,136,108,246,40,165,177,6,36,248,134,207,71,90,138,99,68,
  10018. 152,147,229,16,217,232,235,81,75,130,12,73,241,13,158,158,149,20,199,9,49,
  10019. 39,202,33,179,211,210,162,151,69,24,147,225,86,224,79,79,74,138,94,20,98,
  10020. 79,133,91,129,61,109,74,41,124,60,137,62,33,179,216,166,216,193,18,36,249,
  10021. 68,54,123,20,218,216,137,18,124,67,103,163,173,77,177,162,100,73,242,136,
  10022. 108,244,117,169,181,193,18,36,248,134,207,79,74,155,99,132,200,147,229,16,
  10023. 217,233,233,83,107,162,164,73,240,171,112,39,167,165,77,175,10,145,39,194,
  10024. 173,192,158,182,165,54,191,153,51,72,71,161,196,201,45,167,146,59,68,89,24,
  10025. 70,206,1,255,128,0,0,0,0,0,1,153,51,104,71,161,196,201,45,167,146,59,68,89,
  10026. 24,70,206,1,255,128,0,0,0,0,0,1,153,51,136,71,161,196,201,45,167,146,59,68,
  10027. 89,24,70,206,1,255,128,0,0,0,0,0,1,153,51,168,71,161,196,201,45,167,146,59,
  10028. 68,89,24,70,206,2,0,0,0,0,0,0,0,1,153,51,200,71,161,196,201,45,167,146,59,
  10029. 68,89,24,70,206,2,0,0,0,0,0,0,0,1,153,51,232,71,161,196,201,45,167,146,59,
  10030. 68,89,24,70,206,2,0,128,0,0,0,0,0,1,153,52,8,71,161,196,201,45,167,146,59,
  10031. 68,89,24,70,206,2,0,128,0,0,0,0,0,1,153,52,40,71,161,196,201,45,167,146,59,
  10032. 68,89,24,70,206,2,0,128,0,0,0,0,0,1,153,52,72,71,161,196,201,45,167,146,59,
  10033. 68,89,24,70,206,2,1,0,0,0,0,0,0,1,135,52,102,32,76,72,1,246,136,235,103,
  10034. 177,69,1,17,32,7,196,54,123,20,82,88,200,144,3,237,17,214,207,71,91,171,37,
  10035. 20,65,145,32,7,218,35,173,158,142,183,66,74,41,16,92,72,1,241,13,158,142,
  10036. 183,86,74,41,48,92,72,1,241,13,158,142,183,66,74,41,80,100,72,1,246,136,
  10037. 235,103,167,165,213,146,138,40,200,144,3,237,17,214,207,79,75,161,37,20,
  10038. 138,46,36,0,248,134,207,79,75,171,37,20,154,46,36,0,248,134,207,79,75,161,
  10039. 37,20,170,46,36,0,248,85,184,19,234,201,69,24,92,72,1,240,171,112,39,208,
  10040. 146,138,70,25,18,0,124,27,168,21,147,171,37,20,113,145,32,7,193,186,129,89,
  10041. 58,18,81,72,226,162,64,15,180,71,91,62,172,148,90,0,168,144,3,237,17,214,
  10042. 207,161,37,22,144,38,36,0,248,134,207,171,37,22,160,38,36,0,248,134,207,
  10043. 161,37,22,176,42,209,68,201,218,35,173,158,197,54,4,218,40,153,56,134,207,
  10044. 98,155,75,27,104,162,100,237,17,214,207,71,91,171,37,54,65,182,138,38,78,
  10045. 209,29,108,244,117,186,18,83,104,131,45,20,76,156,67,103,163,173,213,146,
  10046. 155,76,25,104,162,100,226,27,61,29,110,132,148,218,160,219,69,19,39,104,
  10047. 142,182,122,122,93,89,41,178,141,180,81,50,118,136,235,103,167,165,208,146,
  10048. 155,69,25,104,162,100,226,27,61,61,46,172,148,218,104,203,69,19,39,16,217,
  10049. 233,233,116,36,166,213,70,90,40,153,56,85,184,19,234,201,77,152,101,162,
  10050. 137,147,133,91,129,62,132,148,218,48,219,69,19,39,6,234,5,100,234,201,77,
  10051. 156,109,162,137,147,131,117,2,178,116,36,166,209,197,218,40,153,59,68,117,
  10052. 179,234,201,78,32,11,180,81,50,118,136,235,103,208,146,156,72,21,104,162,
  10053. 100,226,27,62,172,148,226,128,171,69,19,39,16,217,244,36,167,22,53,123,102,
  10054. 53,155,80,2,21,11,94,201,128,196,133,0,185,80,32,56,156,199,130,36,160,72,
  10055. 16,78,126,54,48,5,146,208,34,82,72,1,109,20,76,155,120,28,34,1,225,32,32,2,
  10056. 223,133,69,138,43,180,132,234,219,163,161,1,0,9,174,198,238,213,84,88,31,
  10057. 86,221,40,7,252,197,200,95,223,71,61,225,122,183,27,72,144,15,253,197,81,
  10058. 217,74,224,191,131,117,110,54,142,129,32,31,237,229,189,138,147,114,135,2,
  10059. 235,209,1,0,36,135,237,81,16,180,96,63,101,8,207,71,107,74,1,255,53,4,243,
  10060. 51,249,222,104,94,202,17,158,148,3,255,106,9,230,103,243,188,210,159,129,
  10061. 228,176,192,185,127,46,155,185,41,197,13,55,38,3,127,255,20,138,160,192,25,
  10062. 106,8,8,1,58,90,130,64,128,146,27,168,37,8,9,129,186,130,96,160,152,27,165,
  10063. 171,64,32,131,25,234,10,64,65,17,11,212,19,133,18,243,167,165,163,32,24,
  10064. 157,45,65,64,6,75,191,80,80,66,149,110,116,117,5,8,41,240,247,79,72,188,8,
  10065. 134,81,122,84,1,173,198,212,20,48,139,113,180,181,5,36,42,220,109,29,13,65,
  10066. 74,6,192,95,76,188,6,196,55,78,188,6,247,91,86,136,26,32,104,220,205,72,1,
  10067. 98,234,52,122,130,136,18,72,51,117,68,3,146,27,168,40,161,37,8,207,80,81,
  10068. 129,204,13,212,20,112,179,141,26,45,65,75,112,20,43,193,25,19,66,128,153,
  10069. 78,40,105,144,92,104,152,131,124,27,253,128,0,10,116,3,68,146,163,9,128,0,
  10070. 10,102,3,138,145,137,27,60,0,0,82,129,7,2,4,16,7,2,70,143,178,203,164,237,
  10071. 35,14,25,10,134,147,143,139,158,72,207,28,54,77,47,109,13,55,113,120,96,
  10072. 196,159,29,102,241,241,115,201,25,227,131,36,133,20,62,110,143,17,16,113,
  10073. 137,62,62,46,155,167,135,147,142,47,44,151,79,221,64,98,37,194,94,100,108,
  10074. 144,21,147,140,73,168,228,19,17,124,73,82,54,124,37,230,70,201,14,108,185,
  10075. 36,155,14,243,243,83,212,69,131,132,4,12,137,114,168,37,166,145,7,10,4,28,
  10076. 200,14,12,40,56,153,56,178,52,211,60,124,0,0,85,0,160,226,100,227,138,89,
  10077. 18,113,240,0,1,86,1,131,66,148,145,143,128,0,10,144,93,134,0,0,43,80,17,42,
  10078. 4,17,136,49,73,19,49,134,16,143,67,137,146,91,79,36,118,136,178,48,141,156,
  10079. 3,255,0,0,0,0,0,0,3,49,135,16,143,67,137,146,91,79,36,118,136,178,48,141,
  10080. 156,3,255,0,0,0,0,0,0,5,20,5,173,194,227,214,4,55,0,0,21,196,7,122,192,134,
  10081. 241,197,192,0,5,121,25,140,64,132,122,28,76,146,218,121,35,180,69,145,132,
  10082. 108,224,31,248,0,0,0,0,0,0,25,140,72,132,122,28,76,146,218,121,35,180,69,
  10083. 145,132,108,224,32,0,0,0,0,0,0,0,25,140,80,132,122,28,76,146,218,121,35,
  10084. 180,69,145,132,108,224,32,0,0,0,0,0,0,0,25,140,88,132,122,28,76,146,218,
  10085. 121,35,180,69,145,132,108,224,32,8,0,0,0,0,0,0,25,140,96,132,122,28,76,146,
  10086. 218,121,35,180,69,145,132,108,224,32,8,0,0,0,0,0,0,25,140,104,132,122,28,
  10087. 76,146,218,121,35,180,69,145,132,108,224,32,8,0,0,0,0,0,0,25,140,112,132,
  10088. 122,28,76,146,218,121,35,180,69,145,132,108,224,32,16,0,0,0,0,0,0,16,113,
  10089. 225,0,48,156,209,2,122,244,5,34,92,35,68,225,161,166,218,16,33,18,224,104,
  10090. 82,146,59,50,5,7,19,39,22,70,154,103,215,32,28,78,99,193,18,80,70,131,165,
  10091. 1,205,34,8,35,68,225,161,166,239,255,4,12,70,137,195,39,248,73,7,78,3,154,
  10092. 102,16,70,137,195,67,77,223,248,1,74,9,129,125,255,130,9,65,154,232,147,
  10093. 161,115,59,255,5,64,195,32,156,50,126,197,14,2,3,107,173,213,0,
  10094. };
  10095. #elif defined(DUK_USE_DOUBLE_ME)
  10096. DUK_INTERNAL const duk_uint8_t duk_builtins_data[3972] = {
  10097. 144,148,105,223,160,68,52,228,62,12,104,200,165,132,52,167,194,138,105,242,
  10098. 252,57,28,211,57,18,64,52,238,62,44,138,111,171,241,164,19,87,125,30,33,
  10099. 167,16,145,159,8,211,136,9,225,42,5,240,145,139,163,163,8,211,136,10,228,
  10100. 64,211,19,132,140,93,29,56,70,156,64,119,34,66,146,36,104,137,194,70,46,
  10101. 142,172,35,78,32,47,146,195,102,11,240,145,139,163,175,8,211,136,9,228,240,
  10102. 242,112,145,139,163,179,8,211,136,8,237,34,130,118,49,116,118,225,26,48,0,
  10103. 1,80,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132,
  10104. 33,8,66,34,33,154,112,0,1,73,247,35,79,91,237,198,174,192,47,31,23,95,17,
  10105. 13,51,19,35,93,68,216,209,128,0,10,192,174,79,15,32,248,8,196,24,8,107,192,
  10106. 0,5,98,118,27,94,0,0,43,19,227,94,0,0,43,20,46,215,128,0,10,197,28,198,188,
  10107. 0,0,86,41,100,53,224,0,2,177,79,85,175,0,0,21,138,154,45,120,0,0,172,85,
  10108. 217,107,192,0,5,98,182,243,86,193,106,52,127,66,249,50,94,124,35,68,225,
  10109. 146,49,13,31,170,23,201,146,243,224,200,39,12,145,136,67,134,11,49,0,0,3,
  10110. 225,252,0,0,0,3,51,0,0,3,193,252,0,0,0,3,47,18,1,172,19,120,71,10,25,196,
  10111. 136,113,162,156,136,199,42,57,204,144,115,132,240,149,2,248,72,197,209,58,
  10112. 2,185,16,52,196,225,35,23,68,233,14,228,72,82,68,141,17,56,72,197,209,58,
  10113. 130,249,44,54,96,191,9,24,186,39,88,79,39,135,147,132,140,93,19,176,35,180,
  10114. 138,9,216,197,209,59,82,79,31,40,242,1,248,58,42,96,121,14,232,94,62,46,
  10115. 190,15,38,31,145,33,86,65,76,242,150,143,69,48,242,179,79,45,56,243,51,207,
  10116. 53,64,243,116,79,57,72,243,180,207,61,80,243,245,79,65,88,244,34,249,50,94,
  10117. 124,35,68,225,146,39,163,23,201,146,243,224,200,39,12,145,61,40,183,146,37,
  10118. 116,88,6,136,158,244,241,174,230,202,80,135,130,50,39,16,217,231,208,20,
  10119. 240,70,68,225,86,224,79,60,64,84,75,141,7,27,157,32,66,37,194,161,168,153,
  10120. 51,132,9,25,4,225,147,180,138,50,196,18,25,4,225,147,180,138,5,215,49,238,
  10121. 105,27,60,185,2,72,209,56,100,237,34,140,193,4,136,209,56,100,237,34,129,
  10122. 117,204,123,154,70,207,50,64,98,72,64,121,51,68,8,163,73,33,1,228,208,16,0,
  10123. 65,112,152,56,196,159,31,23,77,211,195,201,199,23,150,73,169,234,34,24,49,
  10124. 39,199,89,188,124,92,242,70,120,224,201,33,69,15,155,163,196,64,153,137,62,
  10125. 58,205,227,226,231,146,51,199,26,6,18,92,130,64,192,148,144,102,240,23,129,
  10126. 133,18,2,100,224,160,56,100,42,26,78,62,46,121,35,60,112,216,32,50,21,13,
  10127. 39,31,23,60,145,154,9,46,18,1,36,64,47,148,64,98,196,132,201,57,68,132,95,
  10128. 18,84,141,159,9,121,145,178,67,155,46,73,2,17,46,72,128,89,7,199,32,66,37,
  10129. 194,197,217,35,120,228,131,17,46,18,243,35,100,128,172,156,98,2,40,152,151,
  10130. 32,130,166,36,248,235,55,143,139,158,72,207,28,150,24,23,46,92,130,80,72,
  10131. 151,21,0,100,213,103,229,245,8,186,190,144,24,78,136,24,94,152,3,142,9,113,
  10132. 214,111,31,23,60,145,158,57,164,13,68,184,248,186,110,158,30,78,56,188,226,
  10133. 10,62,46,121,35,60,113,18,225,27,70,18,32,10,201,208,32,134,214,208,200,84,
  10134. 52,156,49,39,50,71,107,107,152,129,13,173,161,144,168,105,57,34,78,100,142,
  10135. 214,215,49,16,134,214,210,220,229,81,252,49,39,50,71,107,107,158,65,13,173,
  10136. 165,185,202,163,249,34,78,100,142,214,215,60,146,12,16,28,128,62,175,42,6,
  10137. 143,36,136,16,64,90,242,135,192,129,67,71,147,62,65,5,215,231,214,6,215,62,
  10138. 180,8,49,1,3,162,92,4,98,12,41,14,67,40,106,229,1,132,130,8,24,78,104,129,
  10139. 54,62,96,224,144,13,238,124,32,2,62,146,60,51,224,120,146,164,140,137,20,0,
  10140. 178,58,11,56,192,5,146,208,34,71,64,36,157,25,200,32,52,158,180,8,146,87,
  10141. 129,232,217,29,5,156,179,224,116,52,100,191,28,87,62,130,214,9,79,136,104,
  10142. 201,126,56,174,127,0,31,255,225,73,82,71,16,13,1,36,230,18,1,164,14,87,71,
  10143. 132,0,143,0,210,131,96,31,0,211,6,42,23,50,70,1,167,13,18,14,130,36,67,232,
  10144. 46,36,29,4,78,69,6,60,226,31,192,7,255,252,24,192,163,11,23,51,130,56,35,
  10145. 193,56,100,243,31,6,150,46,103,4,225,147,143,114,27,63,57,241,200,169,194,
  10146. 133,42,166,175,240,6,23,240,0,97,28,17,224,39,233,32,80,142,8,240,78,25,56,
  10147. 9,250,136,22,39,12,156,123,144,217,240,19,245,18,6,19,154,32,79,214,124,14,
  10148. 134,140,151,227,139,237,52,11,88,37,62,33,163,37,248,226,251,77,32,213,184,
  10149. 64,89,56,39,49,224,137,61,196,5,96,38,35,251,200,15,18,61,96,17,62,40,6,
  10150. 145,1,17,31,228,64,89,45,2,39,205,0,178,122,209,63,162,2,101,64,202,113,67,
  10151. 77,247,64,92,221,197,186,196,143,4,9,19,208,1,25,187,139,112,128,178,113,
  10152. 110,177,35,193,2,68,244,0,46,110,229,30,242,71,130,4,137,232,4,35,55,113,
  10153. 110,16,22,78,81,239,36,120,32,72,158,128,64,147,138,25,249,0,52,72,242,2,
  10154. 127,2,5,74,96,140,229,203,34,103,250,154,4,17,163,151,44,137,159,234,105,4,
  10155. 33,162,93,6,73,123,13,1,165,64,202,113,251,33,6,64,14,71,78,20,101,213,207,
  10156. 4,194,207,2,12,162,0,158,176,23,218,168,23,66,64,255,255,239,127,255,255,
  10157. 255,255,19,214,33,187,85,2,232,72,0,0,0,0,0,32,0,0,25,136,0,0,31,15,224,0,
  10158. 0,0,4,122,247,73,19,69,73,180,134,149,13,68,241,0,0,3,193,252,0,0,0,0,143,
  10159. 90,67,2,104,169,54,144,210,161,168,158,32,0,0,120,127,128,0,0,0,14,73,78,
  10160. 20,0,0,0,0,0,0,0,0,8,58,189,233,24,77,217,24,93,240,1,230,238,21,23,32,247,
  10161. 68,13,155,184,75,189,205,35,102,128,47,114,64,185,187,143,137,4,137,33,205,
  10162. 222,17,6,96,48,87,130,50,37,114,1,246,147,21,143,224,54,186,213,128,114,90,
  10163. 112,164,0,0,124,63,128,0,0,0,98,117,119,128,25,55,112,96,153,57,41,197,13,
  10164. 53,224,65,147,119,38,134,19,146,156,80,211,94,5,194,94,6,37,55,113,110,16,
  10165. 22,78,12,19,39,37,56,161,166,188,14,74,110,226,220,32,44,156,154,24,78,74,
  10166. 113,67,77,120,32,97,175,4,28,61,224,133,172,186,70,22,248,1,204,73,242,104,
  10167. 97,47,128,44,196,159,11,69,175,152,32,35,100,33,142,49,39,218,76,69,237,22,
  10168. 190,96,128,141,144,136,32,196,159,24,230,204,246,66,40,179,18,125,164,196,
  10169. 206,185,179,61,144,140,28,196,159,6,9,146,200,71,20,98,79,180,152,135,208,
  10170. 76,150,66,64,99,18,124,24,49,100,36,137,49,39,218,76,67,232,49,100,37,8,49,
  10171. 39,195,186,145,149,144,150,44,196,159,105,49,31,174,164,101,100,38,10,49,
  10172. 39,198,33,180,153,37,100,38,141,49,39,218,76,76,234,27,73,146,86,66,112,
  10173. 163,18,124,145,4,230,142,86,66,120,211,18,125,164,197,46,144,78,104,229,
  10174. 100,40,15,49,39,198,33,107,68,136,39,52,114,178,20,73,24,147,237,38,38,117,
  10175. 11,90,36,65,57,163,149,144,164,68,196,159,38,134,19,46,105,56,226,150,68,
  10176. 157,160,3,200,147,228,208,194,92,32,124,137,62,49,11,90,36,65,57,163,149,
  10177. 178,166,74,68,159,105,49,51,168,90,209,34,9,205,28,173,149,65,82,36,249,34,
  10178. 9,205,28,173,175,170,54,68,159,105,49,75,164,19,154,57,91,95,88,84,137,62,
  10179. 49,13,164,201,43,111,235,141,145,39,218,76,76,234,27,73,146,86,223,216,17,
  10180. 34,79,135,117,35,43,115,236,139,145,39,218,76,71,235,169,25,91,159,104,60,
  10181. 137,62,12,19,37,178,182,42,68,159,105,49,15,160,153,45,149,193,18,36,248,
  10182. 199,54,103,182,190,232,185,18,125,164,196,206,185,179,61,181,247,133,200,
  10183. 147,225,104,181,243,4,4,109,191,190,58,68,159,105,49,23,180,90,249,130,2,
  10184. 54,223,224,67,152,147,230,8,8,217,12,16,121,18,124,193,1,27,101,131,131,56,
  10185. 7,38,193,198,72,0,0,0,0,0,0,0,0,198,231,240,134,39,63,136,151,95,63,136,49,
  10186. 89,252,66,98,243,248,133,96,132,185,5,224,32,36,201,41,248,200,213,249,0,
  10187. 131,64,7,39,192,218,148,124,137,74,216,231,198,227,141,182,124,78,40,217,
  10188. 231,197,227,4,213,227,192,159,72,10,5,21,218,138,120,74,129,124,36,98,232,
  10189. 228,74,81,62,160,20,10,107,181,21,114,32,105,137,194,70,46,142,68,165,19,
  10190. 235,1,64,170,187,81,119,34,66,146,36,104,137,194,70,46,142,68,165,19,236,1,
  10191. 64,174,187,81,95,37,134,204,23,225,35,23,71,34,82,137,246,128,160,89,93,
  10192. 168,167,147,195,201,194,70,46,142,68,165,19,238,1,64,182,187,81,71,105,20,
  10193. 19,177,139,163,145,41,68,16,7,6,15,82,70,72,115,96,0,93,105,160,0,0,0,0,91,
  10194. 60,149,195,200,194,8,134,149,216,114,1,128,83,192,144,8,194,195,16,12,168,
  10195. 110,20,120,12,141,22,16,120,12,100,22,12,120,28,78,99,192,41,224,136,115,
  10196. 36,14,100,197,213,245,193,48,189,112,40,2,237,96,175,131,117,2,178,112,145,
  10197. 139,163,145,131,114,70,46,142,218,27,182,72,197,209,219,56,26,53,161,166,
  10198. 28,1,204,178,10,14,38,78,44,141,52,207,31,0,0,21,64,129,100,180,8,148,145,
  10199. 92,203,176,160,226,100,226,200,211,76,241,240,0,1,84,2,131,137,147,142,41,
  10200. 100,73,199,192,0,5,88,6,13,10,82,70,62,0,0,42,66,88,115,18,124,67,103,177,
  10201. 69,49,130,12,73,242,136,108,246,40,165,177,6,36,248,134,207,71,90,138,99,
  10202. 68,152,147,229,16,217,232,235,81,75,130,12,73,241,13,158,158,149,20,199,9,
  10203. 49,39,202,33,179,211,210,162,151,69,24,147,225,86,224,79,79,74,138,94,20,
  10204. 98,79,133,91,129,61,109,74,41,124,60,137,62,33,179,216,166,216,193,18,36,
  10205. 249,68,54,123,20,218,216,137,18,124,67,103,163,173,77,177,162,100,73,242,
  10206. 136,108,244,117,169,181,193,18,36,248,134,207,79,74,155,99,132,200,147,229,
  10207. 16,217,233,233,83,107,162,164,73,240,171,112,39,167,165,77,175,10,145,39,
  10208. 194,173,192,158,182,165,54,191,153,51,72,71,161,196,201,45,167,146,59,68,
  10209. 89,24,70,206,0,0,7,129,248,0,0,0,1,153,51,104,71,161,196,201,45,167,146,59,
  10210. 68,89,24,70,206,0,0,7,129,248,0,0,0,1,153,51,136,71,161,196,201,45,167,146,
  10211. 59,68,89,24,70,206,0,0,7,129,248,0,0,0,1,153,51,168,71,161,196,201,45,167,
  10212. 146,59,68,89,24,70,206,0,0,0,2,0,0,0,0,1,153,51,200,71,161,196,201,45,167,
  10213. 146,59,68,89,24,70,206,0,0,0,2,0,0,0,0,1,153,51,232,71,161,196,201,45,167,
  10214. 146,59,68,89,24,70,206,0,0,0,130,0,0,0,0,1,153,52,8,71,161,196,201,45,167,
  10215. 146,59,68,89,24,70,206,0,0,0,130,0,0,0,0,1,153,52,40,71,161,196,201,45,167,
  10216. 146,59,68,89,24,70,206,0,0,0,130,0,0,0,0,1,153,52,72,71,161,196,201,45,167,
  10217. 146,59,68,89,24,70,206,0,0,1,2,0,0,0,0,1,135,52,102,32,76,72,1,246,136,235,
  10218. 103,177,69,1,17,32,7,196,54,123,20,82,88,200,144,3,237,17,214,207,71,91,
  10219. 171,37,20,65,145,32,7,218,35,173,158,142,183,66,74,41,16,92,72,1,241,13,
  10220. 158,142,183,86,74,41,48,92,72,1,241,13,158,142,183,66,74,41,80,100,72,1,
  10221. 246,136,235,103,167,165,213,146,138,40,200,144,3,237,17,214,207,79,75,161,
  10222. 37,20,138,46,36,0,248,134,207,79,75,171,37,20,154,46,36,0,248,134,207,79,
  10223. 75,161,37,20,170,46,36,0,248,85,184,19,234,201,69,24,92,72,1,240,171,112,
  10224. 39,208,146,138,70,25,18,0,124,27,168,21,147,171,37,20,113,145,32,7,193,186,
  10225. 129,89,58,18,81,72,226,162,64,15,180,71,91,62,172,148,90,0,168,144,3,237,
  10226. 17,214,207,161,37,22,144,38,36,0,248,134,207,171,37,22,160,38,36,0,248,134,
  10227. 207,161,37,22,176,42,209,68,201,218,35,173,158,197,54,4,218,40,153,56,134,
  10228. 207,98,155,75,27,104,162,100,237,17,214,207,71,91,171,37,54,65,182,138,38,
  10229. 78,209,29,108,244,117,186,18,83,104,131,45,20,76,156,67,103,163,173,213,
  10230. 146,155,76,25,104,162,100,226,27,61,29,110,132,148,218,160,219,69,19,39,
  10231. 104,142,182,122,122,93,89,41,178,141,180,81,50,118,136,235,103,167,165,208,
  10232. 146,155,69,25,104,162,100,226,27,61,61,46,172,148,218,104,203,69,19,39,16,
  10233. 217,233,233,116,36,166,213,70,90,40,153,56,85,184,19,234,201,77,152,101,
  10234. 162,137,147,133,91,129,62,132,148,218,48,219,69,19,39,6,234,5,100,234,201,
  10235. 77,156,109,162,137,147,131,117,2,178,116,36,166,209,197,218,40,153,59,68,
  10236. 117,179,234,201,78,32,11,180,81,50,118,136,235,103,208,146,156,72,21,104,
  10237. 162,100,226,27,62,172,148,226,128,171,69,19,39,16,217,244,36,167,22,53,123,
  10238. 102,53,155,80,2,21,11,94,201,128,196,133,0,185,80,32,56,156,199,130,36,160,
  10239. 72,16,78,126,54,48,5,146,208,34,82,72,1,109,20,76,155,120,28,34,1,225,32,5,
  10240. 95,130,160,52,171,138,69,132,234,219,163,161,2,197,172,9,0,89,86,214,236,
  10241. 31,86,221,40,8,69,220,199,253,231,63,95,193,122,183,27,72,144,17,197,125,
  10242. 207,255,160,138,217,67,117,110,54,142,129,32,61,229,237,159,135,114,147,10,
  10243. 130,235,209,3,236,132,37,0,96,181,17,80,63,101,8,207,71,107,74,4,245,7,49,
  10244. 254,105,219,251,48,94,202,17,158,148,9,234,15,99,252,211,183,246,98,159,
  10245. 129,228,176,192,185,127,46,155,185,41,197,13,55,38,3,127,255,20,138,160,
  10246. 192,25,106,8,8,1,58,90,130,64,128,146,27,168,37,8,9,129,186,130,96,160,152,
  10247. 27,165,171,64,32,131,25,234,10,64,65,17,11,212,19,133,18,243,167,165,163,
  10248. 32,24,157,45,65,64,6,75,191,80,80,66,149,110,116,117,5,8,41,240,247,79,72,
  10249. 188,8,134,81,122,84,1,173,198,212,20,48,139,113,180,181,5,36,42,220,109,29,
  10250. 13,65,74,6,192,95,76,188,6,196,55,78,188,6,247,91,86,136,26,32,104,220,205,
  10251. 72,1,98,234,52,122,130,136,18,72,51,117,68,3,146,27,168,40,161,37,8,207,80,
  10252. 81,129,204,13,212,20,112,179,141,26,45,65,75,112,20,43,193,25,19,66,128,
  10253. 153,78,40,105,144,92,104,152,131,124,27,253,128,0,10,116,3,68,146,163,9,
  10254. 128,0,10,102,3,138,145,137,27,60,0,0,82,129,7,2,4,16,7,2,70,143,178,203,
  10255. 164,237,35,14,25,10,134,147,143,139,158,72,207,28,54,77,47,109,13,55,113,
  10256. 120,96,196,159,29,102,241,241,115,201,25,227,131,36,133,20,62,110,143,17,
  10257. 16,113,137,62,62,46,155,167,135,147,142,47,44,151,79,221,64,98,37,194,94,
  10258. 100,108,144,21,147,140,73,168,228,19,17,124,73,82,54,124,37,230,70,201,14,
  10259. 108,185,36,155,14,243,243,83,212,69,131,132,4,12,137,114,168,37,166,145,7,
  10260. 10,4,28,200,14,12,40,56,153,56,178,52,211,60,124,0,0,85,0,160,226,100,227,
  10261. 138,89,18,113,240,0,1,86,1,131,66,148,145,143,128,0,10,144,93,134,0,0,43,
  10262. 80,17,42,4,17,136,49,73,19,49,134,16,143,67,137,146,91,79,36,118,136,178,
  10263. 48,141,156,0,0,15,3,240,0,0,0,3,49,135,16,143,67,137,146,91,79,36,118,136,
  10264. 178,48,141,156,0,0,15,3,240,0,0,0,5,20,5,173,194,227,214,4,55,0,0,21,196,7,
  10265. 122,192,134,241,197,192,0,5,121,25,140,64,132,122,28,76,146,218,121,35,180,
  10266. 69,145,132,108,224,0,0,120,31,128,0,0,0,25,140,72,132,122,28,76,146,218,
  10267. 121,35,180,69,145,132,108,224,0,0,0,32,0,0,0,0,25,140,80,132,122,28,76,146,
  10268. 218,121,35,180,69,145,132,108,224,0,0,0,32,0,0,0,0,25,140,88,132,122,28,76,
  10269. 146,218,121,35,180,69,145,132,108,224,0,0,8,32,0,0,0,0,25,140,96,132,122,
  10270. 28,76,146,218,121,35,180,69,145,132,108,224,0,0,8,32,0,0,0,0,25,140,104,
  10271. 132,122,28,76,146,218,121,35,180,69,145,132,108,224,0,0,8,32,0,0,0,0,25,
  10272. 140,112,132,122,28,76,146,218,121,35,180,69,145,132,108,224,0,0,16,32,0,0,
  10273. 0,0,16,113,225,0,48,156,209,2,122,244,5,34,92,35,68,225,161,166,218,16,33,
  10274. 18,224,104,82,146,59,50,5,7,19,39,22,70,154,103,215,32,28,78,99,193,18,80,
  10275. 70,131,165,1,205,34,8,35,68,225,161,166,239,255,4,12,70,137,195,39,248,73,
  10276. 7,78,3,154,102,16,70,137,195,67,77,223,248,1,74,9,129,125,255,130,9,65,154,
  10277. 232,147,161,115,59,255,5,64,195,32,156,50,126,197,14,2,3,107,173,213,0,
  10278. };
  10279. #else
  10280. #error invalid endianness defines
  10281. #endif
  10282. #endif /* DUK_USE_ROM_OBJECTS */
  10283. /* automatic undefs */
  10284. #undef DUK__REFCINIT
  10285. #line 1 "duk_error_macros.c"
  10286. /*
  10287. * Error and fatal handling.
  10288. */
  10289. /* #include duk_internal.h -> already included */
  10290. #define DUK__ERRFMT_BUFSIZE 256 /* size for formatting buffers */
  10291. #if defined(DUK_USE_VERBOSE_ERRORS)
  10292. DUK_INTERNAL DUK_COLD void duk_err_handle_error_fmt(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *fmt, ...) {
  10293. va_list ap;
  10294. char msg[DUK__ERRFMT_BUFSIZE];
  10295. va_start(ap, fmt);
  10296. (void) DUK_VSNPRINTF(msg, sizeof(msg), fmt, ap);
  10297. msg[sizeof(msg) - 1] = (char) 0;
  10298. duk_err_create_and_throw(thr, (duk_errcode_t) (line_and_code >> 24), msg, filename, (duk_int_t) (line_and_code & 0x00ffffffL));
  10299. va_end(ap); /* dead code, but ensures portability (see Linux man page notes) */
  10300. }
  10301. DUK_INTERNAL DUK_COLD void duk_err_handle_error(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *msg) {
  10302. duk_err_create_and_throw(thr, (duk_errcode_t) (line_and_code >> 24), msg, filename, (duk_int_t) (line_and_code & 0x00ffffffL));
  10303. }
  10304. #else /* DUK_USE_VERBOSE_ERRORS */
  10305. DUK_INTERNAL DUK_COLD void duk_err_handle_error(duk_hthread *thr, duk_errcode_t code) {
  10306. duk_err_create_and_throw(thr, code);
  10307. }
  10308. #endif /* DUK_USE_VERBOSE_ERRORS */
  10309. /*
  10310. * Error throwing helpers
  10311. */
  10312. #if defined(DUK_USE_VERBOSE_ERRORS)
  10313. #if defined(DUK_USE_PARANOID_ERRORS)
  10314. DUK_INTERNAL DUK_COLD void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name) {
  10315. DUK_ERROR_RAW_FMT3(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, "%s required, found %s (stack index %ld)",
  10316. expect_name, duk_get_type_name(thr, idx), (long) idx);
  10317. }
  10318. #else
  10319. DUK_INTERNAL DUK_COLD void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name) {
  10320. DUK_ERROR_RAW_FMT3(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, "%s required, found %s (stack index %ld)",
  10321. expect_name, duk_push_string_readable(thr, idx), (long) idx);
  10322. }
  10323. #endif
  10324. DUK_INTERNAL DUK_COLD void duk_err_error_internal(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10325. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, DUK_STR_INTERNAL_ERROR);
  10326. }
  10327. DUK_INTERNAL DUK_COLD void duk_err_error_alloc_failed(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10328. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, DUK_STR_ALLOC_FAILED);
  10329. }
  10330. DUK_INTERNAL DUK_COLD void duk_err_error(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message) {
  10331. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, message);
  10332. }
  10333. DUK_INTERNAL DUK_COLD void duk_err_range(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message) {
  10334. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, message);
  10335. }
  10336. DUK_INTERNAL DUK_COLD void duk_err_range_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx) {
  10337. DUK_ERROR_RAW_FMT1(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, "invalid stack index %ld", (long) (idx));
  10338. }
  10339. DUK_INTERNAL DUK_COLD void duk_err_range_push_beyond(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10340. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, DUK_STR_PUSH_BEYOND_ALLOC_STACK);
  10341. }
  10342. DUK_INTERNAL DUK_COLD void duk_err_type_invalid_args(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10343. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_ARGS);
  10344. }
  10345. DUK_INTERNAL DUK_COLD void duk_err_type_invalid_state(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10346. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_STATE);
  10347. }
  10348. DUK_INTERNAL DUK_COLD void duk_err_type_invalid_trap_result(duk_hthread *thr, const char *filename, duk_int_t linenumber) {
  10349. DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_TRAP_RESULT);
  10350. }
  10351. #else
  10352. /* The file/line arguments are NULL and 0, they're ignored by DUK_ERROR_RAW()
  10353. * when non-verbose errors are used.
  10354. */
  10355. DUK_NORETURN(DUK_LOCAL_DECL void duk__err_shared(duk_hthread *thr, duk_errcode_t code));
  10356. DUK_LOCAL void duk__err_shared(duk_hthread *thr, duk_errcode_t code) {
  10357. DUK_ERROR_RAW(thr, NULL, 0, code, NULL);
  10358. }
  10359. DUK_INTERNAL DUK_COLD void duk_err_error(duk_hthread *thr) {
  10360. duk__err_shared(thr, DUK_ERR_ERROR);
  10361. }
  10362. DUK_INTERNAL DUK_COLD void duk_err_range(duk_hthread *thr) {
  10363. duk__err_shared(thr, DUK_ERR_RANGE_ERROR);
  10364. }
  10365. DUK_INTERNAL DUK_COLD void duk_err_eval(duk_hthread *thr) {
  10366. duk__err_shared(thr, DUK_ERR_EVAL_ERROR);
  10367. }
  10368. DUK_INTERNAL DUK_COLD void duk_err_reference(duk_hthread *thr) {
  10369. duk__err_shared(thr, DUK_ERR_REFERENCE_ERROR);
  10370. }
  10371. DUK_INTERNAL DUK_COLD void duk_err_syntax(duk_hthread *thr) {
  10372. duk__err_shared(thr, DUK_ERR_SYNTAX_ERROR);
  10373. }
  10374. DUK_INTERNAL DUK_COLD void duk_err_type(duk_hthread *thr) {
  10375. duk__err_shared(thr, DUK_ERR_TYPE_ERROR);
  10376. }
  10377. DUK_INTERNAL DUK_COLD void duk_err_uri(duk_hthread *thr) {
  10378. duk__err_shared(thr, DUK_ERR_URI_ERROR);
  10379. }
  10380. #endif
  10381. /*
  10382. * Default fatal error handler
  10383. */
  10384. DUK_INTERNAL DUK_COLD void duk_default_fatal_handler(void *udata, const char *msg) {
  10385. DUK_UNREF(udata);
  10386. DUK_UNREF(msg);
  10387. #if defined(DUK_USE_FATAL_HANDLER)
  10388. /* duk_config.h provided a custom default fatal handler. */
  10389. DUK_D(DUK_DPRINT("custom default fatal error handler called: %s", msg ? msg : "NULL"));
  10390. DUK_USE_FATAL_HANDLER(udata, msg);
  10391. #else
  10392. /* Default behavior is to abort() on error. There's no printout
  10393. * which makes this awkward, so it's always recommended to use an
  10394. * explicit fatal error handler.
  10395. *
  10396. * ====================================================================
  10397. * NOTE: If you are seeing this, you are most likely dealing with an
  10398. * uncaught error. You should provide a fatal error handler in Duktape
  10399. * heap creation, and should consider using a protected call as your
  10400. * first call into an empty Duktape context to properly handle errors.
  10401. * See:
  10402. * - http://duktape.org/guide.html#error-handling
  10403. * - http://wiki.duktape.org/HowtoFatalErrors.html
  10404. * - http://duktape.org/api.html#taglist-protected
  10405. * ====================================================================
  10406. */
  10407. DUK_D(DUK_DPRINT("built-in default fatal error handler called: %s", msg ? msg : "NULL"));
  10408. DUK_ABORT();
  10409. #endif
  10410. DUK_D(DUK_DPRINT("fatal error handler returned, enter forever loop"));
  10411. for (;;) {
  10412. /* Loop forever to ensure we don't return. */
  10413. }
  10414. }
  10415. /* automatic undefs */
  10416. #undef DUK__ERRFMT_BUFSIZE
  10417. #line 1 "duk_unicode_support.c"
  10418. /*
  10419. * Various Unicode help functions for character classification predicates,
  10420. * case conversion, decoding, etc.
  10421. */
  10422. /* #include duk_internal.h -> already included */
  10423. /*
  10424. * Fast path tables
  10425. */
  10426. #if defined(DUK_USE_IDCHAR_FASTPATH)
  10427. DUK_INTERNAL const duk_int8_t duk_is_idchar_tab[128] = {
  10428. /* 0: not IdentifierStart or IdentifierPart
  10429. * 1: IdentifierStart and IdentifierPart
  10430. * -1: IdentifierPart only
  10431. */
  10432. 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x00...0x0f */
  10433. 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x10...0x1f */
  10434. 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x20...0x2f */
  10435. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, /* 0x30...0x3f */
  10436. 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x40...0x4f */
  10437. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, /* 0x50...0x5f */
  10438. 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x60...0x6f */
  10439. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 /* 0x70...0x7f */
  10440. };
  10441. #endif
  10442. /*
  10443. * XUTF-8 and CESU-8 encoding/decoding
  10444. */
  10445. DUK_INTERNAL duk_small_int_t duk_unicode_get_xutf8_length(duk_ucodepoint_t cp) {
  10446. duk_uint_fast32_t x = (duk_uint_fast32_t) cp;
  10447. if (x < 0x80UL) {
  10448. /* 7 bits */
  10449. return 1;
  10450. } else if (x < 0x800UL) {
  10451. /* 11 bits */
  10452. return 2;
  10453. } else if (x < 0x10000UL) {
  10454. /* 16 bits */
  10455. return 3;
  10456. } else if (x < 0x200000UL) {
  10457. /* 21 bits */
  10458. return 4;
  10459. } else if (x < 0x4000000UL) {
  10460. /* 26 bits */
  10461. return 5;
  10462. } else if (x < (duk_ucodepoint_t) 0x80000000UL) {
  10463. /* 31 bits */
  10464. return 6;
  10465. } else {
  10466. /* 36 bits */
  10467. return 7;
  10468. }
  10469. }
  10470. #if defined(DUK_USE_ASSERTIONS)
  10471. DUK_INTERNAL duk_small_int_t duk_unicode_get_cesu8_length(duk_ucodepoint_t cp) {
  10472. duk_uint_fast32_t x = (duk_uint_fast32_t) cp;
  10473. if (x < 0x80UL) {
  10474. /* 7 bits */
  10475. return 1;
  10476. } else if (x < 0x800UL) {
  10477. /* 11 bits */
  10478. return 2;
  10479. } else if (x < 0x10000UL) {
  10480. /* 16 bits */
  10481. return 3;
  10482. } else {
  10483. /* Encoded as surrogate pair, each encoding to 3 bytes for
  10484. * 6 bytes total. Codepoints above U+10FFFF encode as 6 bytes
  10485. * too, see duk_unicode_encode_cesu8().
  10486. */
  10487. return 3 + 3;
  10488. }
  10489. }
  10490. #endif /* DUK_USE_ASSERTIONS */
  10491. DUK_INTERNAL const duk_uint8_t duk_unicode_xutf8_markers[7] = {
  10492. 0x00, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc, 0xfe
  10493. };
  10494. /* Encode to extended UTF-8; 'out' must have space for at least
  10495. * DUK_UNICODE_MAX_XUTF8_LENGTH bytes. Allows encoding of any
  10496. * 32-bit (unsigned) codepoint.
  10497. */
  10498. DUK_INTERNAL duk_small_int_t duk_unicode_encode_xutf8(duk_ucodepoint_t cp, duk_uint8_t *out) {
  10499. duk_uint_fast32_t x = (duk_uint_fast32_t) cp;
  10500. duk_small_int_t len;
  10501. duk_uint8_t marker;
  10502. duk_small_int_t i;
  10503. len = duk_unicode_get_xutf8_length(cp);
  10504. DUK_ASSERT(len > 0);
  10505. marker = duk_unicode_xutf8_markers[len - 1]; /* 64-bit OK because always >= 0 */
  10506. i = len;
  10507. DUK_ASSERT(i > 0);
  10508. do {
  10509. i--;
  10510. if (i > 0) {
  10511. out[i] = (duk_uint8_t) (0x80 + (x & 0x3f));
  10512. x >>= 6;
  10513. } else {
  10514. /* Note: masking of 'x' is not necessary because of
  10515. * range check and shifting -> no bits overlapping
  10516. * the marker should be set.
  10517. */
  10518. out[0] = (duk_uint8_t) (marker + x);
  10519. }
  10520. } while (i > 0);
  10521. return len;
  10522. }
  10523. /* Encode to CESU-8; 'out' must have space for at least
  10524. * DUK_UNICODE_MAX_CESU8_LENGTH bytes; codepoints above U+10FFFF
  10525. * will encode to garbage but won't overwrite the output buffer.
  10526. */
  10527. DUK_INTERNAL duk_small_int_t duk_unicode_encode_cesu8(duk_ucodepoint_t cp, duk_uint8_t *out) {
  10528. duk_uint_fast32_t x = (duk_uint_fast32_t) cp;
  10529. duk_small_int_t len;
  10530. if (x < 0x80UL) {
  10531. out[0] = (duk_uint8_t) x;
  10532. len = 1;
  10533. } else if (x < 0x800UL) {
  10534. out[0] = (duk_uint8_t) (0xc0 + ((x >> 6) & 0x1f));
  10535. out[1] = (duk_uint8_t) (0x80 + (x & 0x3f));
  10536. len = 2;
  10537. } else if (x < 0x10000UL) {
  10538. /* surrogate pairs get encoded here */
  10539. out[0] = (duk_uint8_t) (0xe0 + ((x >> 12) & 0x0f));
  10540. out[1] = (duk_uint8_t) (0x80 + ((x >> 6) & 0x3f));
  10541. out[2] = (duk_uint8_t) (0x80 + (x & 0x3f));
  10542. len = 3;
  10543. } else {
  10544. /*
  10545. * Unicode codepoints above U+FFFF are encoded as surrogate
  10546. * pairs here. This ensures that all CESU-8 codepoints are
  10547. * 16-bit values as expected in Ecmascript. The surrogate
  10548. * pairs always get a 3-byte encoding (each) in CESU-8.
  10549. * See: http://en.wikipedia.org/wiki/Surrogate_pair
  10550. *
  10551. * 20-bit codepoint, 10 bits (A and B) per surrogate pair:
  10552. *
  10553. * x = 0b00000000 0000AAAA AAAAAABB BBBBBBBB
  10554. * sp1 = 0b110110AA AAAAAAAA (0xd800 + ((x >> 10) & 0x3ff))
  10555. * sp2 = 0b110111BB BBBBBBBB (0xdc00 + (x & 0x3ff))
  10556. *
  10557. * Encoded into CESU-8:
  10558. *
  10559. * sp1 -> 0b11101101 (0xe0 + ((sp1 >> 12) & 0x0f))
  10560. * -> 0b1010AAAA (0x80 + ((sp1 >> 6) & 0x3f))
  10561. * -> 0b10AAAAAA (0x80 + (sp1 & 0x3f))
  10562. * sp2 -> 0b11101101 (0xe0 + ((sp2 >> 12) & 0x0f))
  10563. * -> 0b1011BBBB (0x80 + ((sp2 >> 6) & 0x3f))
  10564. * -> 0b10BBBBBB (0x80 + (sp2 & 0x3f))
  10565. *
  10566. * Note that 0x10000 must be subtracted first. The code below
  10567. * avoids the sp1, sp2 temporaries which saves around 20 bytes
  10568. * of code.
  10569. */
  10570. x -= 0x10000UL;
  10571. out[0] = (duk_uint8_t) (0xed);
  10572. out[1] = (duk_uint8_t) (0xa0 + ((x >> 16) & 0x0f));
  10573. out[2] = (duk_uint8_t) (0x80 + ((x >> 10) & 0x3f));
  10574. out[3] = (duk_uint8_t) (0xed);
  10575. out[4] = (duk_uint8_t) (0xb0 + ((x >> 6) & 0x0f));
  10576. out[5] = (duk_uint8_t) (0x80 + (x & 0x3f));
  10577. len = 6;
  10578. }
  10579. return len;
  10580. }
  10581. /* Decode helper. Return zero on error. */
  10582. DUK_INTERNAL duk_small_int_t duk_unicode_decode_xutf8(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_ucodepoint_t *out_cp) {
  10583. const duk_uint8_t *p;
  10584. duk_uint32_t res;
  10585. duk_uint_fast8_t ch;
  10586. duk_small_int_t n;
  10587. DUK_UNREF(thr);
  10588. p = *ptr;
  10589. if (p < ptr_start || p >= ptr_end) {
  10590. goto fail;
  10591. }
  10592. /*
  10593. * UTF-8 decoder which accepts longer than standard byte sequences.
  10594. * This allows full 32-bit code points to be used.
  10595. */
  10596. ch = (duk_uint_fast8_t) (*p++);
  10597. if (ch < 0x80) {
  10598. /* 0xxx xxxx [7 bits] */
  10599. res = (duk_uint32_t) (ch & 0x7f);
  10600. n = 0;
  10601. } else if (ch < 0xc0) {
  10602. /* 10xx xxxx -> invalid */
  10603. goto fail;
  10604. } else if (ch < 0xe0) {
  10605. /* 110x xxxx 10xx xxxx [11 bits] */
  10606. res = (duk_uint32_t) (ch & 0x1f);
  10607. n = 1;
  10608. } else if (ch < 0xf0) {
  10609. /* 1110 xxxx 10xx xxxx 10xx xxxx [16 bits] */
  10610. res = (duk_uint32_t) (ch & 0x0f);
  10611. n = 2;
  10612. } else if (ch < 0xf8) {
  10613. /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx [21 bits] */
  10614. res = (duk_uint32_t) (ch & 0x07);
  10615. n = 3;
  10616. } else if (ch < 0xfc) {
  10617. /* 1111 10xx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [26 bits] */
  10618. res = (duk_uint32_t) (ch & 0x03);
  10619. n = 4;
  10620. } else if (ch < 0xfe) {
  10621. /* 1111 110x 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [31 bits] */
  10622. res = (duk_uint32_t) (ch & 0x01);
  10623. n = 5;
  10624. } else if (ch < 0xff) {
  10625. /* 1111 1110 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [36 bits] */
  10626. res = (duk_uint32_t) (0);
  10627. n = 6;
  10628. } else {
  10629. /* 8-byte format could be:
  10630. * 1111 1111 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [41 bits]
  10631. *
  10632. * However, this format would not have a zero bit following the
  10633. * leading one bits and would not allow 0xFF to be used as an
  10634. * "invalid xutf-8" marker for internal keys. Further, 8-byte
  10635. * encodings (up to 41 bit code points) are not currently needed.
  10636. */
  10637. goto fail;
  10638. }
  10639. DUK_ASSERT(p >= ptr_start); /* verified at beginning */
  10640. if (p + n > ptr_end) {
  10641. /* check pointer at end */
  10642. goto fail;
  10643. }
  10644. while (n > 0) {
  10645. DUK_ASSERT(p >= ptr_start && p < ptr_end);
  10646. ch = (duk_uint_fast8_t) (*p++);
  10647. #if 0
  10648. if (ch & 0xc0 != 0x80) {
  10649. /* not a continuation byte */
  10650. p--;
  10651. *ptr = p;
  10652. *out_cp = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  10653. return 1;
  10654. }
  10655. #endif
  10656. res = (res << 6) + (duk_uint32_t) (ch & 0x3f);
  10657. n--;
  10658. }
  10659. *ptr = p;
  10660. *out_cp = res;
  10661. return 1;
  10662. fail:
  10663. return 0;
  10664. }
  10665. /* used by e.g. duk_regexp_executor.c, string built-ins */
  10666. DUK_INTERNAL duk_ucodepoint_t duk_unicode_decode_xutf8_checked(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end) {
  10667. duk_ucodepoint_t cp;
  10668. if (duk_unicode_decode_xutf8(thr, ptr, ptr_start, ptr_end, &cp)) {
  10669. return cp;
  10670. }
  10671. DUK_ERROR_INTERNAL(thr);
  10672. DUK_UNREACHABLE();
  10673. return 0;
  10674. }
  10675. /* Compute (extended) utf-8 length without codepoint encoding validation,
  10676. * used for string interning.
  10677. *
  10678. * NOTE: This algorithm is performance critical, more so than string hashing
  10679. * in some cases. It is needed when interning a string and needs to scan
  10680. * every byte of the string with no skipping. Having an ASCII fast path
  10681. * is useful if possible in the algorithm. The current algorithms were
  10682. * chosen from several variants, based on x64 gcc -O2 testing. See:
  10683. * https://github.com/svaarala/duktape/pull/422
  10684. *
  10685. * NOTE: must match tools/dukutil.py:duk_unicode_unvalidated_utf8_length().
  10686. */
  10687. #if defined(DUK_USE_PREFER_SIZE)
  10688. /* Small variant; roughly 150 bytes smaller than the fast variant. */
  10689. DUK_INTERNAL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen) {
  10690. const duk_uint8_t *p;
  10691. const duk_uint8_t *p_end;
  10692. duk_size_t ncont;
  10693. duk_size_t clen;
  10694. p = data;
  10695. p_end = data + blen;
  10696. ncont = 0;
  10697. while (p != p_end) {
  10698. duk_uint8_t x;
  10699. x = *p++;
  10700. if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) {
  10701. ncont++;
  10702. }
  10703. }
  10704. DUK_ASSERT(ncont <= blen);
  10705. clen = blen - ncont;
  10706. DUK_ASSERT(clen <= blen);
  10707. return clen;
  10708. }
  10709. #else /* DUK_USE_PREFER_SIZE */
  10710. /* This seems like a good overall approach. Fast path for ASCII in 4 byte
  10711. * blocks.
  10712. */
  10713. DUK_INTERNAL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen) {
  10714. const duk_uint8_t *p;
  10715. const duk_uint8_t *p_end;
  10716. const duk_uint32_t *p32_end;
  10717. const duk_uint32_t *p32;
  10718. duk_size_t ncont;
  10719. duk_size_t clen;
  10720. ncont = 0; /* number of continuation (non-initial) bytes in [0x80,0xbf] */
  10721. p = data;
  10722. p_end = data + blen;
  10723. if (blen < 16) {
  10724. goto skip_fastpath;
  10725. }
  10726. /* Align 'p' to 4; the input data may have arbitrary alignment.
  10727. * End of string check not needed because blen >= 16.
  10728. */
  10729. while (((duk_size_t) (const void *) p) & 0x03U) {
  10730. duk_uint8_t x;
  10731. x = *p++;
  10732. if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) {
  10733. ncont++;
  10734. }
  10735. }
  10736. /* Full, aligned 4-byte reads. */
  10737. p32_end = (const duk_uint32_t *) (const void *) (p + ((duk_size_t) (p_end - p) & (duk_size_t) (~0x03)));
  10738. p32 = (const duk_uint32_t *) (const void *) p;
  10739. while (p32 != (const duk_uint32_t *) p32_end) {
  10740. duk_uint32_t x;
  10741. x = *p32++;
  10742. if (DUK_LIKELY((x & 0x80808080UL) == 0)) {
  10743. ; /* ASCII fast path */
  10744. } else {
  10745. /* Flip highest bit of each byte which changes
  10746. * the bit pattern 10xxxxxx into 00xxxxxx which
  10747. * allows an easy bit mask test.
  10748. */
  10749. x ^= 0x80808080UL;
  10750. if (DUK_UNLIKELY(!(x & 0xc0000000UL))) {
  10751. ncont++;
  10752. }
  10753. if (DUK_UNLIKELY(!(x & 0x00c00000UL))) {
  10754. ncont++;
  10755. }
  10756. if (DUK_UNLIKELY(!(x & 0x0000c000UL))) {
  10757. ncont++;
  10758. }
  10759. if (DUK_UNLIKELY(!(x & 0x000000c0UL))) {
  10760. ncont++;
  10761. }
  10762. }
  10763. }
  10764. p = (const duk_uint8_t *) p32;
  10765. /* Fall through to handle the rest. */
  10766. skip_fastpath:
  10767. while (p != p_end) {
  10768. duk_uint8_t x;
  10769. x = *p++;
  10770. if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) {
  10771. ncont++;
  10772. }
  10773. }
  10774. DUK_ASSERT(ncont <= blen);
  10775. clen = blen - ncont;
  10776. DUK_ASSERT(clen <= blen);
  10777. return clen;
  10778. }
  10779. #endif /* DUK_USE_PREFER_SIZE */
  10780. /*
  10781. * Unicode range matcher
  10782. *
  10783. * Matches a codepoint against a packed bitstream of character ranges.
  10784. * Used for slow path Unicode matching.
  10785. */
  10786. /* Must match tools/extract_chars.py, generate_match_table3(). */
  10787. DUK_LOCAL duk_uint32_t duk__uni_decode_value(duk_bitdecoder_ctx *bd_ctx) {
  10788. duk_uint32_t t;
  10789. t = (duk_uint32_t) duk_bd_decode(bd_ctx, 4);
  10790. if (t <= 0x0eU) {
  10791. return t;
  10792. }
  10793. t = (duk_uint32_t) duk_bd_decode(bd_ctx, 8);
  10794. if (t <= 0xfdU) {
  10795. return t + 0x0f;
  10796. }
  10797. if (t == 0xfeU) {
  10798. t = (duk_uint32_t) duk_bd_decode(bd_ctx, 12);
  10799. return t + 0x0fU + 0xfeU;
  10800. } else {
  10801. t = (duk_uint32_t) duk_bd_decode(bd_ctx, 24);
  10802. return t + 0x0fU + 0xfeU + 0x1000UL;
  10803. }
  10804. }
  10805. DUK_LOCAL duk_small_int_t duk__uni_range_match(const duk_uint8_t *unitab, duk_size_t unilen, duk_codepoint_t cp) {
  10806. duk_bitdecoder_ctx bd_ctx;
  10807. duk_codepoint_t prev_re;
  10808. DUK_MEMZERO(&bd_ctx, sizeof(bd_ctx));
  10809. bd_ctx.data = (const duk_uint8_t *) unitab;
  10810. bd_ctx.length = (duk_size_t) unilen;
  10811. prev_re = 0;
  10812. for (;;) {
  10813. duk_codepoint_t r1, r2;
  10814. r1 = (duk_codepoint_t) duk__uni_decode_value(&bd_ctx);
  10815. if (r1 == 0) {
  10816. break;
  10817. }
  10818. r2 = (duk_codepoint_t) duk__uni_decode_value(&bd_ctx);
  10819. r1 = prev_re + r1;
  10820. r2 = r1 + r2;
  10821. prev_re = r2;
  10822. /* [r1,r2] is the range */
  10823. DUK_DDD(DUK_DDDPRINT("duk__uni_range_match: cp=%06lx range=[0x%06lx,0x%06lx]",
  10824. (unsigned long) cp, (unsigned long) r1, (unsigned long) r2));
  10825. if (cp >= r1 && cp <= r2) {
  10826. return 1;
  10827. }
  10828. }
  10829. return 0;
  10830. }
  10831. /*
  10832. * "WhiteSpace" production check.
  10833. */
  10834. DUK_INTERNAL duk_small_int_t duk_unicode_is_whitespace(duk_codepoint_t cp) {
  10835. /*
  10836. * E5 Section 7.2 specifies six characters specifically as
  10837. * white space:
  10838. *
  10839. * 0009;<control>;Cc;0;S;;;;;N;CHARACTER TABULATION;;;;
  10840. * 000B;<control>;Cc;0;S;;;;;N;LINE TABULATION;;;;
  10841. * 000C;<control>;Cc;0;WS;;;;;N;FORM FEED (FF);;;;
  10842. * 0020;SPACE;Zs;0;WS;;;;;N;;;;;
  10843. * 00A0;NO-BREAK SPACE;Zs;0;CS;<noBreak> 0020;;;;N;NON-BREAKING SPACE;;;;
  10844. * FEFF;ZERO WIDTH NO-BREAK SPACE;Cf;0;BN;;;;;N;BYTE ORDER MARK;;;;
  10845. *
  10846. * It also specifies any Unicode category 'Zs' characters as white
  10847. * space. These can be extracted with the "tools/extract_chars.py" script.
  10848. * Current result:
  10849. *
  10850. * RAW OUTPUT:
  10851. * ===========
  10852. * 0020;SPACE;Zs;0;WS;;;;;N;;;;;
  10853. * 00A0;NO-BREAK SPACE;Zs;0;CS;<noBreak> 0020;;;;N;NON-BREAKING SPACE;;;;
  10854. * 1680;OGHAM SPACE MARK;Zs;0;WS;;;;;N;;;;;
  10855. * 180E;MONGOLIAN VOWEL SEPARATOR;Zs;0;WS;;;;;N;;;;;
  10856. * 2000;EN QUAD;Zs;0;WS;2002;;;;N;;;;;
  10857. * 2001;EM QUAD;Zs;0;WS;2003;;;;N;;;;;
  10858. * 2002;EN SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10859. * 2003;EM SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10860. * 2004;THREE-PER-EM SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10861. * 2005;FOUR-PER-EM SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10862. * 2006;SIX-PER-EM SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10863. * 2007;FIGURE SPACE;Zs;0;WS;<noBreak> 0020;;;;N;;;;;
  10864. * 2008;PUNCTUATION SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10865. * 2009;THIN SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10866. * 200A;HAIR SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10867. * 202F;NARROW NO-BREAK SPACE;Zs;0;CS;<noBreak> 0020;;;;N;;;;;
  10868. * 205F;MEDIUM MATHEMATICAL SPACE;Zs;0;WS;<compat> 0020;;;;N;;;;;
  10869. * 3000;IDEOGRAPHIC SPACE;Zs;0;WS;<wide> 0020;;;;N;;;;;
  10870. *
  10871. * RANGES:
  10872. * =======
  10873. * 0x0020
  10874. * 0x00a0
  10875. * 0x1680
  10876. * 0x180e
  10877. * 0x2000 ... 0x200a
  10878. * 0x202f
  10879. * 0x205f
  10880. * 0x3000
  10881. *
  10882. * A manual decoder (below) is probably most compact for this.
  10883. */
  10884. duk_uint_fast8_t lo;
  10885. duk_uint_fast32_t hi;
  10886. /* cp == -1 (EOF) never matches and causes return value 0 */
  10887. lo = (duk_uint_fast8_t) (cp & 0xff);
  10888. hi = (duk_uint_fast32_t) (cp >> 8); /* does not fit into an uchar */
  10889. if (hi == 0x0000UL) {
  10890. if (lo == 0x09U || lo == 0x0bU || lo == 0x0cU ||
  10891. lo == 0x20U || lo == 0xa0U) {
  10892. return 1;
  10893. }
  10894. } else if (hi == 0x0020UL) {
  10895. if (lo <= 0x0aU || lo == 0x2fU || lo == 0x5fU) {
  10896. return 1;
  10897. }
  10898. } else if (cp == 0x1680L || cp == 0x180eL || cp == 0x3000L ||
  10899. cp == 0xfeffL) {
  10900. return 1;
  10901. }
  10902. return 0;
  10903. }
  10904. /*
  10905. * "LineTerminator" production check.
  10906. */
  10907. DUK_INTERNAL duk_small_int_t duk_unicode_is_line_terminator(duk_codepoint_t cp) {
  10908. /*
  10909. * E5 Section 7.3
  10910. *
  10911. * A LineTerminatorSequence essentially merges <CR> <LF> sequences
  10912. * into a single line terminator. This must be handled by the caller.
  10913. */
  10914. if (cp == 0x000aL || cp == 0x000dL || cp == 0x2028L ||
  10915. cp == 0x2029L) {
  10916. return 1;
  10917. }
  10918. return 0;
  10919. }
  10920. /*
  10921. * "IdentifierStart" production check.
  10922. */
  10923. DUK_INTERNAL duk_small_int_t duk_unicode_is_identifier_start(duk_codepoint_t cp) {
  10924. /*
  10925. * E5 Section 7.6:
  10926. *
  10927. * IdentifierStart:
  10928. * UnicodeLetter
  10929. * $
  10930. * _
  10931. * \ UnicodeEscapeSequence
  10932. *
  10933. * IdentifierStart production has one multi-character production:
  10934. *
  10935. * \ UnicodeEscapeSequence
  10936. *
  10937. * The '\' character is -not- matched by this function. Rather, the caller
  10938. * should decode the escape and then call this function to check whether the
  10939. * decoded character is acceptable (see discussion in E5 Section 7.6).
  10940. *
  10941. * The "UnicodeLetter" alternative of the production allows letters
  10942. * from various Unicode categories. These can be extracted with the
  10943. * "tools/extract_chars.py" script.
  10944. *
  10945. * Because the result has hundreds of Unicode codepoint ranges, matching
  10946. * for any values >= 0x80 are done using a very slow range-by-range scan
  10947. * and a packed range format.
  10948. *
  10949. * The ASCII portion (codepoints 0x00 ... 0x7f) is fast-pathed below because
  10950. * it matters the most. The ASCII related ranges of IdentifierStart are:
  10951. *
  10952. * 0x0041 ... 0x005a ['A' ... 'Z']
  10953. * 0x0061 ... 0x007a ['a' ... 'z']
  10954. * 0x0024 ['$']
  10955. * 0x005f ['_']
  10956. */
  10957. /* ASCII (and EOF) fast path -- quick accept and reject */
  10958. if (cp <= 0x7fL) {
  10959. #if defined(DUK_USE_IDCHAR_FASTPATH)
  10960. return (cp >= 0) && (duk_is_idchar_tab[cp] > 0);
  10961. #else
  10962. if ((cp >= 'a' && cp <= 'z') ||
  10963. (cp >= 'A' && cp <= 'Z') ||
  10964. cp == '_' || cp == '$') {
  10965. return 1;
  10966. }
  10967. return 0;
  10968. #endif
  10969. }
  10970. /* Non-ASCII slow path (range-by-range linear comparison), very slow */
  10971. #if defined(DUK_USE_SOURCE_NONBMP)
  10972. if (duk__uni_range_match(duk_unicode_ids_noa,
  10973. (duk_size_t) sizeof(duk_unicode_ids_noa),
  10974. (duk_codepoint_t) cp)) {
  10975. return 1;
  10976. }
  10977. return 0;
  10978. #else
  10979. if (cp < 0x10000L) {
  10980. if (duk__uni_range_match(duk_unicode_ids_noabmp,
  10981. sizeof(duk_unicode_ids_noabmp),
  10982. (duk_codepoint_t) cp)) {
  10983. return 1;
  10984. }
  10985. return 0;
  10986. } else {
  10987. /* without explicit non-BMP support, assume non-BMP characters
  10988. * are always accepted as identifier characters.
  10989. */
  10990. return 1;
  10991. }
  10992. #endif
  10993. }
  10994. /*
  10995. * "IdentifierPart" production check.
  10996. */
  10997. DUK_INTERNAL duk_small_int_t duk_unicode_is_identifier_part(duk_codepoint_t cp) {
  10998. /*
  10999. * E5 Section 7.6:
  11000. *
  11001. * IdentifierPart:
  11002. * IdentifierStart
  11003. * UnicodeCombiningMark
  11004. * UnicodeDigit
  11005. * UnicodeConnectorPunctuation
  11006. * <ZWNJ> [U+200C]
  11007. * <ZWJ> [U+200D]
  11008. *
  11009. * IdentifierPart production has one multi-character production
  11010. * as part of its IdentifierStart alternative. The '\' character
  11011. * of an escape sequence is not matched here, see discussion in
  11012. * duk_unicode_is_identifier_start().
  11013. *
  11014. * To match non-ASCII characters (codepoints >= 0x80), a very slow
  11015. * linear range-by-range scan is used. The codepoint is first compared
  11016. * to the IdentifierStart ranges, and if it doesn't match, then to a
  11017. * set consisting of code points in IdentifierPart but not in
  11018. * IdentifierStart. This is done to keep the unicode range data small,
  11019. * at the expense of speed.
  11020. *
  11021. * The ASCII fast path consists of:
  11022. *
  11023. * 0x0030 ... 0x0039 ['0' ... '9', UnicodeDigit]
  11024. * 0x0041 ... 0x005a ['A' ... 'Z', IdentifierStart]
  11025. * 0x0061 ... 0x007a ['a' ... 'z', IdentifierStart]
  11026. * 0x0024 ['$', IdentifierStart]
  11027. * 0x005f ['_', IdentifierStart and
  11028. * UnicodeConnectorPunctuation]
  11029. *
  11030. * UnicodeCombiningMark has no code points <= 0x7f.
  11031. *
  11032. * The matching code reuses the "identifier start" tables, and then
  11033. * consults a separate range set for characters in "identifier part"
  11034. * but not in "identifier start". These can be extracted with the
  11035. * "tools/extract_chars.py" script.
  11036. *
  11037. * UnicodeCombiningMark -> categories Mn, Mc
  11038. * UnicodeDigit -> categories Nd
  11039. * UnicodeConnectorPunctuation -> categories Pc
  11040. */
  11041. /* ASCII (and EOF) fast path -- quick accept and reject */
  11042. if (cp <= 0x7fL) {
  11043. #if defined(DUK_USE_IDCHAR_FASTPATH)
  11044. return (cp >= 0) && (duk_is_idchar_tab[cp] != 0);
  11045. #else
  11046. if ((cp >= 'a' && cp <= 'z') ||
  11047. (cp >= 'A' && cp <= 'Z') ||
  11048. (cp >= '0' && cp <= '9') ||
  11049. cp == '_' || cp == '$') {
  11050. return 1;
  11051. }
  11052. return 0;
  11053. #endif
  11054. }
  11055. /* Non-ASCII slow path (range-by-range linear comparison), very slow */
  11056. #if defined(DUK_USE_SOURCE_NONBMP)
  11057. if (duk__uni_range_match(duk_unicode_ids_noa,
  11058. sizeof(duk_unicode_ids_noa),
  11059. (duk_codepoint_t) cp) ||
  11060. duk__uni_range_match(duk_unicode_idp_m_ids_noa,
  11061. sizeof(duk_unicode_idp_m_ids_noa),
  11062. (duk_codepoint_t) cp)) {
  11063. return 1;
  11064. }
  11065. return 0;
  11066. #else
  11067. if (cp < 0x10000L) {
  11068. if (duk__uni_range_match(duk_unicode_ids_noabmp,
  11069. sizeof(duk_unicode_ids_noabmp),
  11070. (duk_codepoint_t) cp) ||
  11071. duk__uni_range_match(duk_unicode_idp_m_ids_noabmp,
  11072. sizeof(duk_unicode_idp_m_ids_noabmp),
  11073. (duk_codepoint_t) cp)) {
  11074. return 1;
  11075. }
  11076. return 0;
  11077. } else {
  11078. /* without explicit non-BMP support, assume non-BMP characters
  11079. * are always accepted as identifier characters.
  11080. */
  11081. return 1;
  11082. }
  11083. #endif
  11084. }
  11085. /*
  11086. * Unicode letter check.
  11087. */
  11088. DUK_INTERNAL duk_small_int_t duk_unicode_is_letter(duk_codepoint_t cp) {
  11089. /*
  11090. * Unicode letter is now taken to be the categories:
  11091. *
  11092. * Lu, Ll, Lt, Lm, Lo
  11093. *
  11094. * (Not sure if this is exactly correct.)
  11095. *
  11096. * The ASCII fast path consists of:
  11097. *
  11098. * 0x0041 ... 0x005a ['A' ... 'Z']
  11099. * 0x0061 ... 0x007a ['a' ... 'z']
  11100. */
  11101. /* ASCII (and EOF) fast path -- quick accept and reject */
  11102. if (cp <= 0x7fL) {
  11103. if ((cp >= 'a' && cp <= 'z') ||
  11104. (cp >= 'A' && cp <= 'Z')) {
  11105. return 1;
  11106. }
  11107. return 0;
  11108. }
  11109. /* Non-ASCII slow path (range-by-range linear comparison), very slow */
  11110. #if defined(DUK_USE_SOURCE_NONBMP)
  11111. if (duk__uni_range_match(duk_unicode_ids_noa,
  11112. sizeof(duk_unicode_ids_noa),
  11113. (duk_codepoint_t) cp) &&
  11114. !duk__uni_range_match(duk_unicode_ids_m_let_noa,
  11115. sizeof(duk_unicode_ids_m_let_noa),
  11116. (duk_codepoint_t) cp)) {
  11117. return 1;
  11118. }
  11119. return 0;
  11120. #else
  11121. if (cp < 0x10000L) {
  11122. if (duk__uni_range_match(duk_unicode_ids_noabmp,
  11123. sizeof(duk_unicode_ids_noabmp),
  11124. (duk_codepoint_t) cp) &&
  11125. !duk__uni_range_match(duk_unicode_ids_m_let_noabmp,
  11126. sizeof(duk_unicode_ids_m_let_noabmp),
  11127. (duk_codepoint_t) cp)) {
  11128. return 1;
  11129. }
  11130. return 0;
  11131. } else {
  11132. /* without explicit non-BMP support, assume non-BMP characters
  11133. * are always accepted as letters.
  11134. */
  11135. return 1;
  11136. }
  11137. #endif
  11138. }
  11139. /*
  11140. * Complex case conversion helper which decodes a bit-packed conversion
  11141. * control stream generated by tools/extract_caseconv.py. The conversion
  11142. * is very slow because it runs through the conversion data in a linear
  11143. * fashion to save space (which is why ASCII characters have a special
  11144. * fast path before arriving here).
  11145. *
  11146. * The particular bit counts etc have been determined experimentally to
  11147. * be small but still sufficient, and must match the Python script
  11148. * (tools/extract_caseconv.py).
  11149. *
  11150. * The return value is the case converted codepoint or -1 if the conversion
  11151. * results in multiple characters (this is useful for regexp Canonicalization
  11152. * operation). If 'buf' is not NULL, the result codepoint(s) are also
  11153. * appended to the hbuffer.
  11154. *
  11155. * Context and locale specific rules must be checked before consulting
  11156. * this function.
  11157. */
  11158. DUK_LOCAL
  11159. duk_codepoint_t duk__slow_case_conversion(duk_hthread *thr,
  11160. duk_bufwriter_ctx *bw,
  11161. duk_codepoint_t cp,
  11162. duk_bitdecoder_ctx *bd_ctx) {
  11163. duk_small_int_t skip = 0;
  11164. duk_small_int_t n;
  11165. duk_small_int_t t;
  11166. duk_small_int_t count;
  11167. duk_codepoint_t tmp_cp;
  11168. duk_codepoint_t start_i;
  11169. duk_codepoint_t start_o;
  11170. DUK_ASSERT(bd_ctx != NULL);
  11171. DUK_UNREF(thr);
  11172. DUK_DDD(DUK_DDDPRINT("slow case conversion for codepoint: %ld", (long) cp));
  11173. /* range conversion with a "skip" */
  11174. DUK_DDD(DUK_DDDPRINT("checking ranges"));
  11175. for (;;) {
  11176. skip++;
  11177. n = (duk_small_int_t) duk_bd_decode(bd_ctx, 6);
  11178. if (n == 0x3f) {
  11179. /* end marker */
  11180. break;
  11181. }
  11182. DUK_DDD(DUK_DDDPRINT("skip=%ld, n=%ld", (long) skip, (long) n));
  11183. while (n--) {
  11184. start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11185. start_o = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11186. count = (duk_small_int_t) duk_bd_decode(bd_ctx, 7);
  11187. DUK_DDD(DUK_DDDPRINT("range: start_i=%ld, start_o=%ld, count=%ld, skip=%ld",
  11188. (long) start_i, (long) start_o, (long) count, (long) skip));
  11189. if (cp >= start_i) {
  11190. tmp_cp = cp - start_i; /* always >= 0 */
  11191. if (tmp_cp < (duk_codepoint_t) count * (duk_codepoint_t) skip &&
  11192. (tmp_cp % (duk_codepoint_t) skip) == 0) {
  11193. DUK_DDD(DUK_DDDPRINT("range matches input codepoint"));
  11194. cp = start_o + tmp_cp;
  11195. goto single;
  11196. }
  11197. }
  11198. }
  11199. }
  11200. /* 1:1 conversion */
  11201. n = (duk_small_int_t) duk_bd_decode(bd_ctx, 7);
  11202. DUK_DDD(DUK_DDDPRINT("checking 1:1 conversions (count %ld)", (long) n));
  11203. while (n--) {
  11204. start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11205. start_o = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11206. DUK_DDD(DUK_DDDPRINT("1:1 conversion %ld -> %ld", (long) start_i, (long) start_o));
  11207. if (cp == start_i) {
  11208. DUK_DDD(DUK_DDDPRINT("1:1 matches input codepoint"));
  11209. cp = start_o;
  11210. goto single;
  11211. }
  11212. }
  11213. /* complex, multicharacter conversion */
  11214. n = (duk_small_int_t) duk_bd_decode(bd_ctx, 7);
  11215. DUK_DDD(DUK_DDDPRINT("checking 1:n conversions (count %ld)", (long) n));
  11216. while (n--) {
  11217. start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11218. t = (duk_small_int_t) duk_bd_decode(bd_ctx, 2);
  11219. DUK_DDD(DUK_DDDPRINT("1:n conversion %ld -> %ld chars", (long) start_i, (long) t));
  11220. if (cp == start_i) {
  11221. DUK_DDD(DUK_DDDPRINT("1:n matches input codepoint"));
  11222. if (bw != NULL) {
  11223. while (t--) {
  11224. tmp_cp = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16);
  11225. DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) tmp_cp);
  11226. }
  11227. }
  11228. return -1;
  11229. } else {
  11230. while (t--) {
  11231. (void) duk_bd_decode(bd_ctx, 16);
  11232. }
  11233. }
  11234. }
  11235. /* default: no change */
  11236. DUK_DDD(DUK_DDDPRINT("no rule matches, output is same as input"));
  11237. /* fall through */
  11238. single:
  11239. if (bw != NULL) {
  11240. DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) cp);
  11241. }
  11242. return cp;
  11243. }
  11244. /*
  11245. * Case conversion helper, with context/local sensitivity.
  11246. * For proper case conversion, one needs to know the character
  11247. * and the preceding and following characters, as well as
  11248. * locale/language.
  11249. */
  11250. /* XXX: add 'language' argument when locale/language sensitive rule
  11251. * support added.
  11252. */
  11253. DUK_LOCAL
  11254. duk_codepoint_t duk__case_transform_helper(duk_hthread *thr,
  11255. duk_bufwriter_ctx *bw,
  11256. duk_codepoint_t cp,
  11257. duk_codepoint_t prev,
  11258. duk_codepoint_t next,
  11259. duk_bool_t uppercase) {
  11260. duk_bitdecoder_ctx bd_ctx;
  11261. /* fast path for ASCII */
  11262. if (cp < 0x80L) {
  11263. /* XXX: there are language sensitive rules for the ASCII range.
  11264. * If/when language/locale support is implemented, they need to
  11265. * be implemented here for the fast path. There are no context
  11266. * sensitive rules for ASCII range.
  11267. */
  11268. if (uppercase) {
  11269. if (cp >= 'a' && cp <= 'z') {
  11270. cp = cp - 'a' + 'A';
  11271. }
  11272. } else {
  11273. if (cp >= 'A' && cp <= 'Z') {
  11274. cp = cp - 'A' + 'a';
  11275. }
  11276. }
  11277. if (bw != NULL) {
  11278. DUK_BW_WRITE_RAW_U8(thr, bw, (duk_uint8_t) cp);
  11279. }
  11280. return cp;
  11281. }
  11282. /* context and locale specific rules which cannot currently be represented
  11283. * in the caseconv bitstream: hardcoded rules in C
  11284. */
  11285. if (uppercase) {
  11286. /* XXX: turkish / azeri */
  11287. } else {
  11288. /*
  11289. * Final sigma context specific rule. This is a rather tricky
  11290. * rule and this handling is probably not 100% correct now.
  11291. * The rule is not locale/language specific so it is supported.
  11292. */
  11293. if (cp == 0x03a3L && /* U+03A3 = GREEK CAPITAL LETTER SIGMA */
  11294. duk_unicode_is_letter(prev) && /* prev exists and is not a letter */
  11295. !duk_unicode_is_letter(next)) { /* next does not exist or next is not a letter */
  11296. /* Capital sigma occurred at "end of word", lowercase to
  11297. * U+03C2 = GREEK SMALL LETTER FINAL SIGMA. Otherwise
  11298. * fall through and let the normal rules lowercase it to
  11299. * U+03C3 = GREEK SMALL LETTER SIGMA.
  11300. */
  11301. cp = 0x03c2L;
  11302. goto singlechar;
  11303. }
  11304. /* XXX: lithuanian not implemented */
  11305. /* XXX: lithuanian, explicit dot rules */
  11306. /* XXX: turkish / azeri, lowercase rules */
  11307. }
  11308. /* 1:1 or special conversions, but not locale/context specific: script generated rules */
  11309. DUK_MEMZERO(&bd_ctx, sizeof(bd_ctx));
  11310. if (uppercase) {
  11311. bd_ctx.data = (const duk_uint8_t *) duk_unicode_caseconv_uc;
  11312. bd_ctx.length = (duk_size_t) sizeof(duk_unicode_caseconv_uc);
  11313. } else {
  11314. bd_ctx.data = (const duk_uint8_t *) duk_unicode_caseconv_lc;
  11315. bd_ctx.length = (duk_size_t) sizeof(duk_unicode_caseconv_lc);
  11316. }
  11317. return duk__slow_case_conversion(thr, bw, cp, &bd_ctx);
  11318. singlechar:
  11319. if (bw != NULL) {
  11320. DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) cp);
  11321. }
  11322. return cp;
  11323. /* unused now, not needed until Turkish/Azeri */
  11324. #if 0
  11325. nochar:
  11326. return -1;
  11327. #endif
  11328. }
  11329. /*
  11330. * Replace valstack top with case converted version.
  11331. */
  11332. DUK_INTERNAL void duk_unicode_case_convert_string(duk_hthread *thr, duk_bool_t uppercase) {
  11333. duk_hstring *h_input;
  11334. duk_bufwriter_ctx bw_alloc;
  11335. duk_bufwriter_ctx *bw;
  11336. const duk_uint8_t *p, *p_start, *p_end;
  11337. duk_codepoint_t prev, curr, next;
  11338. h_input = duk_require_hstring(thr, -1); /* Accept symbols. */
  11339. DUK_ASSERT(h_input != NULL);
  11340. bw = &bw_alloc;
  11341. DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input));
  11342. /* [ ... input buffer ] */
  11343. p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  11344. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  11345. p = p_start;
  11346. prev = -1; DUK_UNREF(prev);
  11347. curr = -1;
  11348. next = -1;
  11349. for (;;) {
  11350. prev = curr;
  11351. curr = next;
  11352. next = -1;
  11353. if (p < p_end) {
  11354. next = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end);
  11355. } else {
  11356. /* end of input and last char has been processed */
  11357. if (curr < 0) {
  11358. break;
  11359. }
  11360. }
  11361. /* on first round, skip */
  11362. if (curr >= 0) {
  11363. /* XXX: could add a fast path to process chunks of input codepoints,
  11364. * but relative benefit would be quite small.
  11365. */
  11366. /* Ensure space for maximum multi-character result; estimate is overkill. */
  11367. DUK_BW_ENSURE(thr, bw, 8 * DUK_UNICODE_MAX_XUTF8_LENGTH);
  11368. duk__case_transform_helper(thr,
  11369. bw,
  11370. (duk_codepoint_t) curr,
  11371. prev,
  11372. next,
  11373. uppercase);
  11374. }
  11375. }
  11376. DUK_BW_COMPACT(thr, bw);
  11377. (void) duk_buffer_to_string(thr, -1); /* Safe, output is encoded. */
  11378. /* invalidates h_buf pointer */
  11379. duk_remove_m2(thr);
  11380. }
  11381. #if defined(DUK_USE_REGEXP_SUPPORT)
  11382. /*
  11383. * Canonicalize() abstract operation needed for canonicalization of individual
  11384. * codepoints during regexp compilation and execution, see E5 Section 15.10.2.8.
  11385. * Note that codepoints are canonicalized one character at a time, so no context
  11386. * specific rules can apply. Locale specific rules can apply, though.
  11387. */
  11388. DUK_INTERNAL duk_codepoint_t duk_unicode_re_canonicalize_char(duk_hthread *thr, duk_codepoint_t cp) {
  11389. #if defined(DUK_USE_REGEXP_CANON_WORKAROUND)
  11390. /* Fast canonicalization lookup at the cost of 128kB footprint. */
  11391. DUK_ASSERT(cp >= 0);
  11392. DUK_UNREF(thr);
  11393. if (DUK_LIKELY(cp < 0x10000L)) {
  11394. return (duk_codepoint_t) duk_unicode_re_canon_lookup[cp];
  11395. }
  11396. return cp;
  11397. #else /* DUK_USE_REGEXP_CANON_WORKAROUND */
  11398. duk_codepoint_t y;
  11399. y = duk__case_transform_helper(thr,
  11400. NULL, /* NULL is allowed, no output */
  11401. cp, /* curr char */
  11402. -1, /* prev char */
  11403. -1, /* next char */
  11404. 1); /* uppercase */
  11405. if ((y < 0) || (cp >= 0x80 && y < 0x80)) {
  11406. /* multiple codepoint conversion or non-ASCII mapped to ASCII
  11407. * --> leave as is.
  11408. */
  11409. return cp;
  11410. }
  11411. return y;
  11412. #endif /* DUK_USE_REGEXP_CANON_WORKAROUND */
  11413. }
  11414. /*
  11415. * E5 Section 15.10.2.6 "IsWordChar" abstract operation. Assume
  11416. * x < 0 for characters read outside the string.
  11417. */
  11418. DUK_INTERNAL duk_small_int_t duk_unicode_re_is_wordchar(duk_codepoint_t x) {
  11419. /*
  11420. * Note: the description in E5 Section 15.10.2.6 has a typo, it
  11421. * contains 'A' twice and lacks 'a'; the intent is [0-9a-zA-Z_].
  11422. */
  11423. if ((x >= '0' && x <= '9') ||
  11424. (x >= 'a' && x <= 'z') ||
  11425. (x >= 'A' && x <= 'Z') ||
  11426. (x == '_')) {
  11427. return 1;
  11428. }
  11429. return 0;
  11430. }
  11431. /*
  11432. * Regexp range tables
  11433. */
  11434. /* exposed because lexer needs these too */
  11435. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_digit[2] = {
  11436. (duk_uint16_t) 0x0030UL, (duk_uint16_t) 0x0039UL,
  11437. };
  11438. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_white[22] = {
  11439. (duk_uint16_t) 0x0009UL, (duk_uint16_t) 0x000DUL,
  11440. (duk_uint16_t) 0x0020UL, (duk_uint16_t) 0x0020UL,
  11441. (duk_uint16_t) 0x00A0UL, (duk_uint16_t) 0x00A0UL,
  11442. (duk_uint16_t) 0x1680UL, (duk_uint16_t) 0x1680UL,
  11443. (duk_uint16_t) 0x180EUL, (duk_uint16_t) 0x180EUL,
  11444. (duk_uint16_t) 0x2000UL, (duk_uint16_t) 0x200AUL,
  11445. (duk_uint16_t) 0x2028UL, (duk_uint16_t) 0x2029UL,
  11446. (duk_uint16_t) 0x202FUL, (duk_uint16_t) 0x202FUL,
  11447. (duk_uint16_t) 0x205FUL, (duk_uint16_t) 0x205FUL,
  11448. (duk_uint16_t) 0x3000UL, (duk_uint16_t) 0x3000UL,
  11449. (duk_uint16_t) 0xFEFFUL, (duk_uint16_t) 0xFEFFUL,
  11450. };
  11451. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_wordchar[8] = {
  11452. (duk_uint16_t) 0x0030UL, (duk_uint16_t) 0x0039UL,
  11453. (duk_uint16_t) 0x0041UL, (duk_uint16_t) 0x005AUL,
  11454. (duk_uint16_t) 0x005FUL, (duk_uint16_t) 0x005FUL,
  11455. (duk_uint16_t) 0x0061UL, (duk_uint16_t) 0x007AUL,
  11456. };
  11457. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_digit[4] = {
  11458. (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x002FUL,
  11459. (duk_uint16_t) 0x003AUL, (duk_uint16_t) 0xFFFFUL,
  11460. };
  11461. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_white[24] = {
  11462. (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x0008UL,
  11463. (duk_uint16_t) 0x000EUL, (duk_uint16_t) 0x001FUL,
  11464. (duk_uint16_t) 0x0021UL, (duk_uint16_t) 0x009FUL,
  11465. (duk_uint16_t) 0x00A1UL, (duk_uint16_t) 0x167FUL,
  11466. (duk_uint16_t) 0x1681UL, (duk_uint16_t) 0x180DUL,
  11467. (duk_uint16_t) 0x180FUL, (duk_uint16_t) 0x1FFFUL,
  11468. (duk_uint16_t) 0x200BUL, (duk_uint16_t) 0x2027UL,
  11469. (duk_uint16_t) 0x202AUL, (duk_uint16_t) 0x202EUL,
  11470. (duk_uint16_t) 0x2030UL, (duk_uint16_t) 0x205EUL,
  11471. (duk_uint16_t) 0x2060UL, (duk_uint16_t) 0x2FFFUL,
  11472. (duk_uint16_t) 0x3001UL, (duk_uint16_t) 0xFEFEUL,
  11473. (duk_uint16_t) 0xFF00UL, (duk_uint16_t) 0xFFFFUL,
  11474. };
  11475. DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_wordchar[10] = {
  11476. (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x002FUL,
  11477. (duk_uint16_t) 0x003AUL, (duk_uint16_t) 0x0040UL,
  11478. (duk_uint16_t) 0x005BUL, (duk_uint16_t) 0x005EUL,
  11479. (duk_uint16_t) 0x0060UL, (duk_uint16_t) 0x0060UL,
  11480. (duk_uint16_t) 0x007BUL, (duk_uint16_t) 0xFFFFUL,
  11481. };
  11482. #endif /* DUK_USE_REGEXP_SUPPORT */
  11483. #line 1 "duk_util_misc.c"
  11484. /*
  11485. * Misc util stuff
  11486. */
  11487. /* #include duk_internal.h -> already included */
  11488. /*
  11489. * Lowercase digits for radix values 2 to 36. Also doubles as lowercase
  11490. * hex nybble table.
  11491. */
  11492. DUK_INTERNAL const duk_uint8_t duk_lc_digits[36] = {
  11493. DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3,
  11494. DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7,
  11495. DUK_ASC_8, DUK_ASC_9, DUK_ASC_LC_A, DUK_ASC_LC_B,
  11496. DUK_ASC_LC_C, DUK_ASC_LC_D, DUK_ASC_LC_E, DUK_ASC_LC_F,
  11497. DUK_ASC_LC_G, DUK_ASC_LC_H, DUK_ASC_LC_I, DUK_ASC_LC_J,
  11498. DUK_ASC_LC_K, DUK_ASC_LC_L, DUK_ASC_LC_M, DUK_ASC_LC_N,
  11499. DUK_ASC_LC_O, DUK_ASC_LC_P, DUK_ASC_LC_Q, DUK_ASC_LC_R,
  11500. DUK_ASC_LC_S, DUK_ASC_LC_T, DUK_ASC_LC_U, DUK_ASC_LC_V,
  11501. DUK_ASC_LC_W, DUK_ASC_LC_X, DUK_ASC_LC_Y, DUK_ASC_LC_Z
  11502. };
  11503. DUK_INTERNAL const duk_uint8_t duk_uc_nybbles[16] = {
  11504. DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3,
  11505. DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7,
  11506. DUK_ASC_8, DUK_ASC_9, DUK_ASC_UC_A, DUK_ASC_UC_B,
  11507. DUK_ASC_UC_C, DUK_ASC_UC_D, DUK_ASC_UC_E, DUK_ASC_UC_F
  11508. };
  11509. /*
  11510. * Table for hex decoding ASCII hex digits
  11511. */
  11512. DUK_INTERNAL const duk_int8_t duk_hex_dectab[256] = {
  11513. /* -1 if invalid */
  11514. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x00-0x0f */
  11515. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x10-0x1f */
  11516. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x20-0x2f */
  11517. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -1, -1, -1, -1, -1, -1, /* 0x30-0x3f */
  11518. -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x40-0x4f */
  11519. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x50-0x5f */
  11520. -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x60-0x6f */
  11521. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x70-0x7f */
  11522. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x80-0x8f */
  11523. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x90-0x9f */
  11524. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xa0-0xaf */
  11525. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xb0-0xbf */
  11526. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xc0-0xcf */
  11527. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xd0-0xdf */
  11528. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xe0-0xef */
  11529. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 0xf0-0xff */
  11530. };
  11531. #if defined(DUK_USE_HEX_FASTPATH)
  11532. /* Preshifted << 4. Must use 16-bit entry to allow negative value signaling. */
  11533. DUK_INTERNAL const duk_int16_t duk_hex_dectab_shift4[256] = {
  11534. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x00-0x0f */
  11535. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x10-0x1f */
  11536. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x20-0x2f */
  11537. 0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x60, 0x70, 0x80, 0x90, -1, -1, -1, -1, -1, -1, /* 0x30-0x3f */
  11538. -1, 0xa0, 0xb0, 0xc0, 0xd0, 0xe0, 0xf0, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x40-0x4f */
  11539. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x50-0x5f */
  11540. -1, 0xa0, 0xb0, 0xc0, 0xd0, 0xe0, 0xf0, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x60-0x6f */
  11541. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x70-0x7f */
  11542. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x80-0x8f */
  11543. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x90-0x9f */
  11544. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xa0-0xaf */
  11545. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xb0-0xbf */
  11546. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xc0-0xcf */
  11547. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xd0-0xdf */
  11548. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xe0-0xef */
  11549. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 0xf0-0xff */
  11550. };
  11551. #endif
  11552. /*
  11553. * Table for hex encoding bytes
  11554. */
  11555. #if defined(DUK_USE_HEX_FASTPATH)
  11556. /* Lookup to encode one byte directly into 2 characters:
  11557. *
  11558. * def genhextab(bswap):
  11559. * for i in xrange(256):
  11560. * t = chr(i).encode('hex')
  11561. * if bswap:
  11562. * t = t[1] + t[0]
  11563. * print('0x' + t.encode('hex') + 'U')
  11564. * print('big endian'); genhextab(False)
  11565. * print('little endian'); genhextab(True)
  11566. */
  11567. DUK_INTERNAL const duk_uint16_t duk_hex_enctab[256] = {
  11568. #if defined(DUK_USE_INTEGER_BE)
  11569. 0x3030U, 0x3031U, 0x3032U, 0x3033U, 0x3034U, 0x3035U, 0x3036U, 0x3037U,
  11570. 0x3038U, 0x3039U, 0x3061U, 0x3062U, 0x3063U, 0x3064U, 0x3065U, 0x3066U,
  11571. 0x3130U, 0x3131U, 0x3132U, 0x3133U, 0x3134U, 0x3135U, 0x3136U, 0x3137U,
  11572. 0x3138U, 0x3139U, 0x3161U, 0x3162U, 0x3163U, 0x3164U, 0x3165U, 0x3166U,
  11573. 0x3230U, 0x3231U, 0x3232U, 0x3233U, 0x3234U, 0x3235U, 0x3236U, 0x3237U,
  11574. 0x3238U, 0x3239U, 0x3261U, 0x3262U, 0x3263U, 0x3264U, 0x3265U, 0x3266U,
  11575. 0x3330U, 0x3331U, 0x3332U, 0x3333U, 0x3334U, 0x3335U, 0x3336U, 0x3337U,
  11576. 0x3338U, 0x3339U, 0x3361U, 0x3362U, 0x3363U, 0x3364U, 0x3365U, 0x3366U,
  11577. 0x3430U, 0x3431U, 0x3432U, 0x3433U, 0x3434U, 0x3435U, 0x3436U, 0x3437U,
  11578. 0x3438U, 0x3439U, 0x3461U, 0x3462U, 0x3463U, 0x3464U, 0x3465U, 0x3466U,
  11579. 0x3530U, 0x3531U, 0x3532U, 0x3533U, 0x3534U, 0x3535U, 0x3536U, 0x3537U,
  11580. 0x3538U, 0x3539U, 0x3561U, 0x3562U, 0x3563U, 0x3564U, 0x3565U, 0x3566U,
  11581. 0x3630U, 0x3631U, 0x3632U, 0x3633U, 0x3634U, 0x3635U, 0x3636U, 0x3637U,
  11582. 0x3638U, 0x3639U, 0x3661U, 0x3662U, 0x3663U, 0x3664U, 0x3665U, 0x3666U,
  11583. 0x3730U, 0x3731U, 0x3732U, 0x3733U, 0x3734U, 0x3735U, 0x3736U, 0x3737U,
  11584. 0x3738U, 0x3739U, 0x3761U, 0x3762U, 0x3763U, 0x3764U, 0x3765U, 0x3766U,
  11585. 0x3830U, 0x3831U, 0x3832U, 0x3833U, 0x3834U, 0x3835U, 0x3836U, 0x3837U,
  11586. 0x3838U, 0x3839U, 0x3861U, 0x3862U, 0x3863U, 0x3864U, 0x3865U, 0x3866U,
  11587. 0x3930U, 0x3931U, 0x3932U, 0x3933U, 0x3934U, 0x3935U, 0x3936U, 0x3937U,
  11588. 0x3938U, 0x3939U, 0x3961U, 0x3962U, 0x3963U, 0x3964U, 0x3965U, 0x3966U,
  11589. 0x6130U, 0x6131U, 0x6132U, 0x6133U, 0x6134U, 0x6135U, 0x6136U, 0x6137U,
  11590. 0x6138U, 0x6139U, 0x6161U, 0x6162U, 0x6163U, 0x6164U, 0x6165U, 0x6166U,
  11591. 0x6230U, 0x6231U, 0x6232U, 0x6233U, 0x6234U, 0x6235U, 0x6236U, 0x6237U,
  11592. 0x6238U, 0x6239U, 0x6261U, 0x6262U, 0x6263U, 0x6264U, 0x6265U, 0x6266U,
  11593. 0x6330U, 0x6331U, 0x6332U, 0x6333U, 0x6334U, 0x6335U, 0x6336U, 0x6337U,
  11594. 0x6338U, 0x6339U, 0x6361U, 0x6362U, 0x6363U, 0x6364U, 0x6365U, 0x6366U,
  11595. 0x6430U, 0x6431U, 0x6432U, 0x6433U, 0x6434U, 0x6435U, 0x6436U, 0x6437U,
  11596. 0x6438U, 0x6439U, 0x6461U, 0x6462U, 0x6463U, 0x6464U, 0x6465U, 0x6466U,
  11597. 0x6530U, 0x6531U, 0x6532U, 0x6533U, 0x6534U, 0x6535U, 0x6536U, 0x6537U,
  11598. 0x6538U, 0x6539U, 0x6561U, 0x6562U, 0x6563U, 0x6564U, 0x6565U, 0x6566U,
  11599. 0x6630U, 0x6631U, 0x6632U, 0x6633U, 0x6634U, 0x6635U, 0x6636U, 0x6637U,
  11600. 0x6638U, 0x6639U, 0x6661U, 0x6662U, 0x6663U, 0x6664U, 0x6665U, 0x6666U
  11601. #else /* DUK_USE_INTEGER_BE */
  11602. 0x3030U, 0x3130U, 0x3230U, 0x3330U, 0x3430U, 0x3530U, 0x3630U, 0x3730U,
  11603. 0x3830U, 0x3930U, 0x6130U, 0x6230U, 0x6330U, 0x6430U, 0x6530U, 0x6630U,
  11604. 0x3031U, 0x3131U, 0x3231U, 0x3331U, 0x3431U, 0x3531U, 0x3631U, 0x3731U,
  11605. 0x3831U, 0x3931U, 0x6131U, 0x6231U, 0x6331U, 0x6431U, 0x6531U, 0x6631U,
  11606. 0x3032U, 0x3132U, 0x3232U, 0x3332U, 0x3432U, 0x3532U, 0x3632U, 0x3732U,
  11607. 0x3832U, 0x3932U, 0x6132U, 0x6232U, 0x6332U, 0x6432U, 0x6532U, 0x6632U,
  11608. 0x3033U, 0x3133U, 0x3233U, 0x3333U, 0x3433U, 0x3533U, 0x3633U, 0x3733U,
  11609. 0x3833U, 0x3933U, 0x6133U, 0x6233U, 0x6333U, 0x6433U, 0x6533U, 0x6633U,
  11610. 0x3034U, 0x3134U, 0x3234U, 0x3334U, 0x3434U, 0x3534U, 0x3634U, 0x3734U,
  11611. 0x3834U, 0x3934U, 0x6134U, 0x6234U, 0x6334U, 0x6434U, 0x6534U, 0x6634U,
  11612. 0x3035U, 0x3135U, 0x3235U, 0x3335U, 0x3435U, 0x3535U, 0x3635U, 0x3735U,
  11613. 0x3835U, 0x3935U, 0x6135U, 0x6235U, 0x6335U, 0x6435U, 0x6535U, 0x6635U,
  11614. 0x3036U, 0x3136U, 0x3236U, 0x3336U, 0x3436U, 0x3536U, 0x3636U, 0x3736U,
  11615. 0x3836U, 0x3936U, 0x6136U, 0x6236U, 0x6336U, 0x6436U, 0x6536U, 0x6636U,
  11616. 0x3037U, 0x3137U, 0x3237U, 0x3337U, 0x3437U, 0x3537U, 0x3637U, 0x3737U,
  11617. 0x3837U, 0x3937U, 0x6137U, 0x6237U, 0x6337U, 0x6437U, 0x6537U, 0x6637U,
  11618. 0x3038U, 0x3138U, 0x3238U, 0x3338U, 0x3438U, 0x3538U, 0x3638U, 0x3738U,
  11619. 0x3838U, 0x3938U, 0x6138U, 0x6238U, 0x6338U, 0x6438U, 0x6538U, 0x6638U,
  11620. 0x3039U, 0x3139U, 0x3239U, 0x3339U, 0x3439U, 0x3539U, 0x3639U, 0x3739U,
  11621. 0x3839U, 0x3939U, 0x6139U, 0x6239U, 0x6339U, 0x6439U, 0x6539U, 0x6639U,
  11622. 0x3061U, 0x3161U, 0x3261U, 0x3361U, 0x3461U, 0x3561U, 0x3661U, 0x3761U,
  11623. 0x3861U, 0x3961U, 0x6161U, 0x6261U, 0x6361U, 0x6461U, 0x6561U, 0x6661U,
  11624. 0x3062U, 0x3162U, 0x3262U, 0x3362U, 0x3462U, 0x3562U, 0x3662U, 0x3762U,
  11625. 0x3862U, 0x3962U, 0x6162U, 0x6262U, 0x6362U, 0x6462U, 0x6562U, 0x6662U,
  11626. 0x3063U, 0x3163U, 0x3263U, 0x3363U, 0x3463U, 0x3563U, 0x3663U, 0x3763U,
  11627. 0x3863U, 0x3963U, 0x6163U, 0x6263U, 0x6363U, 0x6463U, 0x6563U, 0x6663U,
  11628. 0x3064U, 0x3164U, 0x3264U, 0x3364U, 0x3464U, 0x3564U, 0x3664U, 0x3764U,
  11629. 0x3864U, 0x3964U, 0x6164U, 0x6264U, 0x6364U, 0x6464U, 0x6564U, 0x6664U,
  11630. 0x3065U, 0x3165U, 0x3265U, 0x3365U, 0x3465U, 0x3565U, 0x3665U, 0x3765U,
  11631. 0x3865U, 0x3965U, 0x6165U, 0x6265U, 0x6365U, 0x6465U, 0x6565U, 0x6665U,
  11632. 0x3066U, 0x3166U, 0x3266U, 0x3366U, 0x3466U, 0x3566U, 0x3666U, 0x3766U,
  11633. 0x3866U, 0x3966U, 0x6166U, 0x6266U, 0x6366U, 0x6466U, 0x6566U, 0x6666U
  11634. #endif /* DUK_USE_INTEGER_BE */
  11635. };
  11636. #endif /* DUK_USE_HEX_FASTPATH */
  11637. /*
  11638. * Table for base-64 encoding
  11639. */
  11640. #if defined(DUK_USE_BASE64_FASTPATH)
  11641. DUK_INTERNAL const duk_uint8_t duk_base64_enctab[64] = {
  11642. 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, /* A...P */
  11643. 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, /* Q...f */
  11644. 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, /* g...v */
  11645. 0x77, 0x78, 0x79, 0x7a, 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x2b, 0x2f /* w.../ */
  11646. };
  11647. #endif /* DUK_USE_BASE64_FASTPATH */
  11648. /*
  11649. * Table for base-64 decoding
  11650. */
  11651. #if defined(DUK_USE_BASE64_FASTPATH)
  11652. DUK_INTERNAL const duk_int8_t duk_base64_dectab[256] = {
  11653. /* -1 = error, -2 = allowed whitespace, -3 = padding ('='), 0...63 decoded bytes */
  11654. -1, -1, -1, -1, -1, -1, -1, -1, -1, -2, -2, -1, -1, -2, -1, -1, /* 0x00...0x0f */
  11655. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x10...0x1f */
  11656. -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 62, -1, -1, -1, 63, /* 0x20...0x2f */
  11657. 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -3, -1, -1, /* 0x30...0x3f */
  11658. -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, /* 0x40...0x4f */
  11659. 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1, /* 0x50...0x5f */
  11660. -1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, /* 0x60...0x6f */
  11661. 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, -1, -1, -1, -1, /* 0x70...0x7f */
  11662. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x80...0x8f */
  11663. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x90...0x9f */
  11664. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xa0...0xaf */
  11665. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xb0...0xbf */
  11666. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xc0...0xcf */
  11667. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xd0...0xdf */
  11668. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xe0...0xef */
  11669. -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 0xf0...0xff */
  11670. };
  11671. #endif /* DUK_USE_BASE64_FASTPATH */
  11672. /*
  11673. * Arbitrary byteswap for potentially unaligned values
  11674. *
  11675. * Used to byteswap pointers e.g. in debugger code.
  11676. */
  11677. #if defined(DUK_USE_DEBUGGER_SUPPORT) /* For now only needed by the debugger. */
  11678. DUK_INTERNAL void duk_byteswap_bytes(duk_uint8_t *p, duk_small_uint_t len) {
  11679. duk_uint8_t tmp;
  11680. duk_uint8_t *q = p + len - 1;
  11681. while (p - q < 0) {
  11682. tmp = *p;
  11683. *p = *q;
  11684. *q = tmp;
  11685. p++;
  11686. q--;
  11687. }
  11688. }
  11689. #endif
  11690. /*
  11691. * Miscellaneous coercion / clamping helpers.
  11692. */
  11693. /* Check whether a duk_double_t is a whole number in the 32-bit range (reject
  11694. * negative zero), and if so, return a duk_int32_t.
  11695. * For compiler use: don't allow negative zero as it will cause trouble with
  11696. * LDINT+LDINTX, positive zero is OK.
  11697. */
  11698. DUK_INTERNAL duk_bool_t duk_is_whole_get_int32_nonegzero(duk_double_t x, duk_int32_t *ival) {
  11699. duk_int32_t t;
  11700. t = (duk_int32_t) x;
  11701. if (!((duk_double_t) t == x)) {
  11702. return 0;
  11703. }
  11704. if (t == 0) {
  11705. duk_double_union du;
  11706. du.d = x;
  11707. if (DUK_DBLUNION_HAS_SIGNBIT(&du)) {
  11708. return 0;
  11709. }
  11710. }
  11711. *ival = t;
  11712. return 1;
  11713. }
  11714. /* Check whether a duk_double_t is a whole number in the 32-bit range, and if
  11715. * so, return a duk_int32_t.
  11716. */
  11717. DUK_INTERNAL duk_bool_t duk_is_whole_get_int32(duk_double_t x, duk_int32_t *ival) {
  11718. duk_int32_t t;
  11719. t = (duk_int32_t) x;
  11720. if (!((duk_double_t) t == x)) {
  11721. return 0;
  11722. }
  11723. *ival = t;
  11724. return 1;
  11725. }
  11726. /*
  11727. * IEEE double checks
  11728. */
  11729. DUK_INTERNAL duk_bool_t duk_double_is_anyinf(duk_double_t x) {
  11730. duk_double_union du;
  11731. du.d = x;
  11732. return DUK_DBLUNION_IS_ANYINF(&du);
  11733. }
  11734. DUK_INTERNAL duk_bool_t duk_double_is_posinf(duk_double_t x) {
  11735. duk_double_union du;
  11736. du.d = x;
  11737. return DUK_DBLUNION_IS_POSINF(&du);
  11738. }
  11739. DUK_INTERNAL duk_bool_t duk_double_is_neginf(duk_double_t x) {
  11740. duk_double_union du;
  11741. du.d = x;
  11742. return DUK_DBLUNION_IS_NEGINF(&du);
  11743. }
  11744. DUK_INTERNAL duk_bool_t duk_double_is_nan(duk_double_t x) {
  11745. duk_double_union du;
  11746. du.d = x;
  11747. /* Assumes we're dealing with a Duktape internal NaN which is
  11748. * NaN normalized if duk_tval requires it.
  11749. */
  11750. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  11751. return DUK_DBLUNION_IS_NAN(&du);
  11752. }
  11753. DUK_INTERNAL duk_bool_t duk_double_is_nan_or_zero(duk_double_t x) {
  11754. duk_double_union du;
  11755. du.d = x;
  11756. /* Assumes we're dealing with a Duktape internal NaN which is
  11757. * NaN normalized if duk_tval requires it.
  11758. */
  11759. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  11760. return DUK_DBLUNION_IS_NAN(&du) || DUK_DBLUNION_IS_ANYZERO(&du);
  11761. }
  11762. DUK_INTERNAL duk_bool_t duk_double_is_nan_or_inf(duk_double_t x) {
  11763. duk_double_union du;
  11764. du.d = x;
  11765. /* If exponent is 0x7FF the argument is either a NaN or an
  11766. * infinity. We don't need to check any other fields.
  11767. */
  11768. #if defined(DUK_USE_64BIT_OPS)
  11769. #if defined(DUK_USE_DOUBLE_ME)
  11770. return (du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000)) == DUK_U64_CONSTANT(0x000000007ff00000);
  11771. #else
  11772. return (du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000)) == DUK_U64_CONSTANT(0x7ff0000000000000);
  11773. #endif
  11774. #else
  11775. return (du.ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL) == 0x7ff00000UL;
  11776. #endif
  11777. }
  11778. DUK_INTERNAL duk_bool_t duk_double_is_nan_zero_inf(duk_double_t x) {
  11779. duk_double_union du;
  11780. #if defined(DUK_USE_64BIT_OPS)
  11781. duk_uint64_t t;
  11782. #else
  11783. duk_uint32_t t;
  11784. #endif
  11785. du.d = x;
  11786. #if defined(DUK_USE_64BIT_OPS)
  11787. #if defined(DUK_USE_DOUBLE_ME)
  11788. t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000);
  11789. if (t == DUK_U64_CONSTANT(0x0000000000000000)) {
  11790. t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x0000000080000000);
  11791. return t == 0;
  11792. }
  11793. if (t == DUK_U64_CONSTANT(0x000000007ff00000)) {
  11794. return 1;
  11795. }
  11796. #else
  11797. t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000);
  11798. if (t == DUK_U64_CONSTANT(0x0000000000000000)) {
  11799. t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x8000000000000000);
  11800. return t == 0;
  11801. }
  11802. if (t == DUK_U64_CONSTANT(0x7ff0000000000000)) {
  11803. return 1;
  11804. }
  11805. #endif
  11806. #else
  11807. t = du.ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL;
  11808. if (t == 0x00000000UL) {
  11809. return DUK_DBLUNION_IS_ANYZERO(&du);
  11810. }
  11811. if (t == 0x7ff00000UL) {
  11812. return 1;
  11813. }
  11814. #endif
  11815. return 0;
  11816. }
  11817. DUK_INTERNAL duk_small_uint_t duk_double_signbit(duk_double_t x) {
  11818. duk_double_union du;
  11819. du.d = x;
  11820. return (duk_small_uint_t) DUK_DBLUNION_GET_SIGNBIT(&du);
  11821. }
  11822. DUK_INTERNAL duk_double_t duk_double_trunc_towards_zero(duk_double_t x) {
  11823. /* XXX: optimize */
  11824. duk_small_uint_t s = duk_double_signbit(x);
  11825. x = DUK_FLOOR(DUK_FABS(x)); /* truncate towards zero */
  11826. if (s) {
  11827. x = -x;
  11828. }
  11829. return x;
  11830. }
  11831. DUK_INTERNAL duk_bool_t duk_double_same_sign(duk_double_t x, duk_double_t y) {
  11832. duk_double_union du1;
  11833. duk_double_union du2;
  11834. du1.d = x;
  11835. du2.d = y;
  11836. return (((du1.ui[DUK_DBL_IDX_UI0] ^ du2.ui[DUK_DBL_IDX_UI0]) & 0x80000000UL) == 0);
  11837. }
  11838. DUK_INTERNAL duk_double_t duk_double_fmin(duk_double_t x, duk_double_t y) {
  11839. /* Doesn't replicate fmin() behavior exactly: for fmin() if one
  11840. * argument is a NaN, the other argument should be returned.
  11841. * Duktape doesn't rely on this behavior so the replacement can
  11842. * be simplified.
  11843. */
  11844. return (x < y ? x : y);
  11845. }
  11846. DUK_INTERNAL duk_double_t duk_double_fmax(duk_double_t x, duk_double_t y) {
  11847. /* Doesn't replicate fmax() behavior exactly: for fmax() if one
  11848. * argument is a NaN, the other argument should be returned.
  11849. * Duktape doesn't rely on this behavior so the replacement can
  11850. * be simplified.
  11851. */
  11852. return (x > y ? x : y);
  11853. }
  11854. #line 1 "duk_hobject_class.c"
  11855. /*
  11856. * Hobject Ecmascript [[Class]].
  11857. */
  11858. /* #include duk_internal.h -> already included */
  11859. #if (DUK_STRIDX_UC_ARGUMENTS > 255)
  11860. #error constant too large
  11861. #endif
  11862. #if (DUK_STRIDX_ARRAY > 255)
  11863. #error constant too large
  11864. #endif
  11865. #if (DUK_STRIDX_UC_BOOLEAN > 255)
  11866. #error constant too large
  11867. #endif
  11868. #if (DUK_STRIDX_DATE > 255)
  11869. #error constant too large
  11870. #endif
  11871. #if (DUK_STRIDX_UC_ERROR > 255)
  11872. #error constant too large
  11873. #endif
  11874. #if (DUK_STRIDX_UC_FUNCTION > 255)
  11875. #error constant too large
  11876. #endif
  11877. #if (DUK_STRIDX_JSON > 255)
  11878. #error constant too large
  11879. #endif
  11880. #if (DUK_STRIDX_MATH > 255)
  11881. #error constant too large
  11882. #endif
  11883. #if (DUK_STRIDX_UC_NUMBER > 255)
  11884. #error constant too large
  11885. #endif
  11886. #if (DUK_STRIDX_UC_OBJECT > 255)
  11887. #error constant too large
  11888. #endif
  11889. #if (DUK_STRIDX_REG_EXP > 255)
  11890. #error constant too large
  11891. #endif
  11892. #if (DUK_STRIDX_UC_STRING > 255)
  11893. #error constant too large
  11894. #endif
  11895. #if (DUK_STRIDX_GLOBAL > 255)
  11896. #error constant too large
  11897. #endif
  11898. #if (DUK_STRIDX_OBJ_ENV > 255)
  11899. #error constant too large
  11900. #endif
  11901. #if (DUK_STRIDX_DEC_ENV > 255)
  11902. #error constant too large
  11903. #endif
  11904. #if (DUK_STRIDX_UC_POINTER > 255)
  11905. #error constant too large
  11906. #endif
  11907. #if (DUK_STRIDX_UC_THREAD > 255)
  11908. #error constant too large
  11909. #endif
  11910. #if (DUK_STRIDX_ARRAY_BUFFER > 255)
  11911. #error constant too large
  11912. #endif
  11913. #if (DUK_STRIDX_DATA_VIEW > 255)
  11914. #error constant too large
  11915. #endif
  11916. #if (DUK_STRIDX_INT8_ARRAY > 255)
  11917. #error constant too large
  11918. #endif
  11919. #if (DUK_STRIDX_UINT8_ARRAY > 255)
  11920. #error constant too large
  11921. #endif
  11922. #if (DUK_STRIDX_UINT8_CLAMPED_ARRAY > 255)
  11923. #error constant too large
  11924. #endif
  11925. #if (DUK_STRIDX_INT16_ARRAY > 255)
  11926. #error constant too large
  11927. #endif
  11928. #if (DUK_STRIDX_UINT16_ARRAY > 255)
  11929. #error constant too large
  11930. #endif
  11931. #if (DUK_STRIDX_INT32_ARRAY > 255)
  11932. #error constant too large
  11933. #endif
  11934. #if (DUK_STRIDX_UINT32_ARRAY > 255)
  11935. #error constant too large
  11936. #endif
  11937. #if (DUK_STRIDX_FLOAT32_ARRAY > 255)
  11938. #error constant too large
  11939. #endif
  11940. #if (DUK_STRIDX_FLOAT64_ARRAY > 255)
  11941. #error constant too large
  11942. #endif
  11943. #if (DUK_STRIDX_EMPTY_STRING > 255)
  11944. #error constant too large
  11945. #endif
  11946. /* Note: assumes that these string indexes are 8-bit, genstrings.py must ensure that */
  11947. DUK_INTERNAL duk_uint8_t duk_class_number_to_stridx[32] = {
  11948. DUK_STRIDX_EMPTY_STRING, /* NONE, intentionally empty */
  11949. DUK_STRIDX_UC_OBJECT,
  11950. DUK_STRIDX_ARRAY,
  11951. DUK_STRIDX_UC_FUNCTION,
  11952. DUK_STRIDX_UC_ARGUMENTS,
  11953. DUK_STRIDX_UC_BOOLEAN,
  11954. DUK_STRIDX_DATE,
  11955. DUK_STRIDX_UC_ERROR,
  11956. DUK_STRIDX_JSON,
  11957. DUK_STRIDX_MATH,
  11958. DUK_STRIDX_UC_NUMBER,
  11959. DUK_STRIDX_REG_EXP,
  11960. DUK_STRIDX_UC_STRING,
  11961. DUK_STRIDX_GLOBAL,
  11962. DUK_STRIDX_UC_SYMBOL,
  11963. DUK_STRIDX_OBJ_ENV,
  11964. DUK_STRIDX_DEC_ENV,
  11965. DUK_STRIDX_UC_POINTER,
  11966. DUK_STRIDX_UC_THREAD,
  11967. DUK_STRIDX_ARRAY_BUFFER,
  11968. DUK_STRIDX_DATA_VIEW,
  11969. DUK_STRIDX_INT8_ARRAY,
  11970. DUK_STRIDX_UINT8_ARRAY,
  11971. DUK_STRIDX_UINT8_CLAMPED_ARRAY,
  11972. DUK_STRIDX_INT16_ARRAY,
  11973. DUK_STRIDX_UINT16_ARRAY,
  11974. DUK_STRIDX_INT32_ARRAY,
  11975. DUK_STRIDX_UINT32_ARRAY,
  11976. DUK_STRIDX_FLOAT32_ARRAY,
  11977. DUK_STRIDX_FLOAT64_ARRAY,
  11978. DUK_STRIDX_EMPTY_STRING, /* UNUSED, intentionally empty */
  11979. DUK_STRIDX_EMPTY_STRING, /* UNUSED, intentionally empty */
  11980. };
  11981. #line 1 "duk_alloc_default.c"
  11982. /*
  11983. * Default allocation functions.
  11984. *
  11985. * Assumes behavior such as malloc allowing zero size, yielding
  11986. * a NULL or a unique pointer which is a no-op for free.
  11987. */
  11988. /* #include duk_internal.h -> already included */
  11989. #if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS)
  11990. DUK_INTERNAL void *duk_default_alloc_function(void *udata, duk_size_t size) {
  11991. void *res;
  11992. DUK_UNREF(udata);
  11993. res = DUK_ANSI_MALLOC(size);
  11994. DUK_DDD(DUK_DDDPRINT("default alloc function: %lu -> %p",
  11995. (unsigned long) size, (void *) res));
  11996. return res;
  11997. }
  11998. DUK_INTERNAL void *duk_default_realloc_function(void *udata, void *ptr, duk_size_t newsize) {
  11999. void *res;
  12000. DUK_UNREF(udata);
  12001. res = DUK_ANSI_REALLOC(ptr, newsize);
  12002. DUK_DDD(DUK_DDDPRINT("default realloc function: %p %lu -> %p",
  12003. (void *) ptr, (unsigned long) newsize, (void *) res));
  12004. return res;
  12005. }
  12006. DUK_INTERNAL void duk_default_free_function(void *udata, void *ptr) {
  12007. DUK_DDD(DUK_DDDPRINT("default free function: %p", (void *) ptr));
  12008. DUK_UNREF(udata);
  12009. DUK_ANSI_FREE(ptr);
  12010. }
  12011. #endif /* DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS */
  12012. #line 1 "duk_api_buffer.c"
  12013. /*
  12014. * Buffer
  12015. */
  12016. /* #include duk_internal.h -> already included */
  12017. DUK_EXTERNAL void *duk_resize_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t new_size) {
  12018. duk_hbuffer_dynamic *h;
  12019. DUK_ASSERT_API_ENTRY(thr);
  12020. h = (duk_hbuffer_dynamic *) duk_require_hbuffer(thr, idx);
  12021. DUK_ASSERT(h != NULL);
  12022. if (!(DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h))) {
  12023. DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE);
  12024. }
  12025. /* maximum size check is handled by callee */
  12026. duk_hbuffer_resize(thr, h, new_size);
  12027. return DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h);
  12028. }
  12029. DUK_EXTERNAL void *duk_steal_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) {
  12030. duk_hbuffer_dynamic *h;
  12031. void *ptr;
  12032. duk_size_t sz;
  12033. DUK_ASSERT_API_ENTRY(thr);
  12034. h = (duk_hbuffer_dynamic *) duk_require_hbuffer(thr, idx);
  12035. DUK_ASSERT(h != NULL);
  12036. if (!(DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h))) {
  12037. DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE);
  12038. }
  12039. /* Forget the previous allocation, setting size to 0 and alloc to
  12040. * NULL. Caller is responsible for freeing the previous allocation.
  12041. * Getting the allocation and clearing it is done in the same API
  12042. * call to avoid any chance of a realloc.
  12043. */
  12044. ptr = DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h);
  12045. sz = DUK_HBUFFER_DYNAMIC_GET_SIZE(h);
  12046. if (out_size) {
  12047. *out_size = sz;
  12048. }
  12049. DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(thr->heap, h);
  12050. DUK_HBUFFER_DYNAMIC_SET_SIZE(h, 0);
  12051. return ptr;
  12052. }
  12053. DUK_EXTERNAL void duk_config_buffer(duk_hthread *thr, duk_idx_t idx, void *ptr, duk_size_t len) {
  12054. duk_hbuffer_external *h;
  12055. DUK_ASSERT_API_ENTRY(thr);
  12056. h = (duk_hbuffer_external *) duk_require_hbuffer(thr, idx);
  12057. DUK_ASSERT(h != NULL);
  12058. if (!DUK_HBUFFER_HAS_EXTERNAL(h)) {
  12059. DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE);
  12060. }
  12061. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(h));
  12062. DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(thr->heap, h, ptr);
  12063. DUK_HBUFFER_EXTERNAL_SET_SIZE(h, len);
  12064. }
  12065. #line 1 "duk_api_bytecode.c"
  12066. /*
  12067. * Bytecode dump/load
  12068. *
  12069. * The bytecode load primitive is more important performance-wise than the
  12070. * dump primitive.
  12071. *
  12072. * Unlike most Duktape API calls, bytecode dump/load is not guaranteed to be
  12073. * memory safe for invalid arguments - caller beware! There's little point
  12074. * in trying to achieve memory safety unless bytecode instructions are also
  12075. * validated which is not easy to do with indirect register references etc.
  12076. */
  12077. /* #include duk_internal.h -> already included */
  12078. #if defined(DUK_USE_BYTECODE_DUMP_SUPPORT)
  12079. #define DUK__SER_MARKER 0xbf
  12080. #define DUK__SER_STRING 0x00
  12081. #define DUK__SER_NUMBER 0x01
  12082. #define DUK__BYTECODE_INITIAL_ALLOC 256
  12083. #define DUK__NO_FORMALS 0xffffffffUL
  12084. /*
  12085. * Dump/load helpers, xxx_raw() helpers do no buffer checks
  12086. */
  12087. DUK_LOCAL duk_uint8_t *duk__load_string_raw(duk_hthread *thr, duk_uint8_t *p) {
  12088. duk_uint32_t len;
  12089. len = DUK_RAW_READ_U32_BE(p);
  12090. duk_push_lstring(thr, (const char *) p, len);
  12091. p += len;
  12092. return p;
  12093. }
  12094. DUK_LOCAL duk_uint8_t *duk__load_buffer_raw(duk_hthread *thr, duk_uint8_t *p) {
  12095. duk_uint32_t len;
  12096. duk_uint8_t *buf;
  12097. len = DUK_RAW_READ_U32_BE(p);
  12098. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) len);
  12099. DUK_ASSERT(buf != NULL);
  12100. DUK_MEMCPY((void *) buf, (const void *) p, (size_t) len);
  12101. p += len;
  12102. return p;
  12103. }
  12104. DUK_LOCAL duk_uint8_t *duk__dump_hstring_raw(duk_uint8_t *p, duk_hstring *h) {
  12105. duk_size_t len;
  12106. duk_uint32_t tmp32;
  12107. DUK_ASSERT(h != NULL);
  12108. len = DUK_HSTRING_GET_BYTELEN(h);
  12109. DUK_ASSERT(len <= 0xffffffffUL); /* string limits */
  12110. tmp32 = (duk_uint32_t) len;
  12111. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12112. DUK_MEMCPY((void *) p,
  12113. (const void *) DUK_HSTRING_GET_DATA(h),
  12114. len);
  12115. p += len;
  12116. return p;
  12117. }
  12118. DUK_LOCAL duk_uint8_t *duk__dump_hbuffer_raw(duk_hthread *thr, duk_uint8_t *p, duk_hbuffer *h) {
  12119. duk_size_t len;
  12120. duk_uint32_t tmp32;
  12121. DUK_ASSERT(thr != NULL);
  12122. DUK_ASSERT(h != NULL);
  12123. DUK_UNREF(thr);
  12124. len = DUK_HBUFFER_GET_SIZE(h);
  12125. DUK_ASSERT(len <= 0xffffffffUL); /* buffer limits */
  12126. tmp32 = (duk_uint32_t) len;
  12127. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12128. DUK_MEMCPY((void *) p,
  12129. (const void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h),
  12130. len);
  12131. p += len;
  12132. return p;
  12133. }
  12134. DUK_LOCAL duk_uint8_t *duk__dump_string_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx) {
  12135. duk_hstring *h_str;
  12136. duk_tval *tv;
  12137. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) func, DUK_HTHREAD_GET_STRING(thr, stridx));
  12138. if (tv != NULL && DUK_TVAL_IS_STRING(tv)) {
  12139. h_str = DUK_TVAL_GET_STRING(tv);
  12140. DUK_ASSERT(h_str != NULL);
  12141. } else {
  12142. h_str = DUK_HTHREAD_STRING_EMPTY_STRING(thr);
  12143. DUK_ASSERT(h_str != NULL);
  12144. }
  12145. DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */
  12146. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(h_str), p);
  12147. p = duk__dump_hstring_raw(p, h_str);
  12148. return p;
  12149. }
  12150. DUK_LOCAL duk_uint8_t *duk__dump_buffer_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx) {
  12151. duk_tval *tv;
  12152. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) func, DUK_HTHREAD_GET_STRING(thr, stridx));
  12153. if (tv != NULL && DUK_TVAL_IS_BUFFER(tv)) {
  12154. duk_hbuffer *h_buf;
  12155. h_buf = DUK_TVAL_GET_BUFFER(tv);
  12156. DUK_ASSERT(h_buf != NULL);
  12157. DUK_ASSERT(DUK_HBUFFER_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */
  12158. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HBUFFER_GET_SIZE(h_buf), p);
  12159. p = duk__dump_hbuffer_raw(thr, p, h_buf);
  12160. } else {
  12161. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p);
  12162. DUK_RAW_WRITE_U32_BE(p, 0);
  12163. }
  12164. return p;
  12165. }
  12166. DUK_LOCAL duk_uint8_t *duk__dump_uint32_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx, duk_uint32_t def_value) {
  12167. duk_tval *tv;
  12168. duk_uint32_t val;
  12169. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) func, DUK_HTHREAD_GET_STRING(thr, stridx));
  12170. if (tv != NULL && DUK_TVAL_IS_NUMBER(tv)) {
  12171. val = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv);
  12172. } else {
  12173. val = def_value;
  12174. }
  12175. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p);
  12176. DUK_RAW_WRITE_U32_BE(p, val);
  12177. return p;
  12178. }
  12179. DUK_LOCAL duk_uint8_t *duk__dump_varmap(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func) {
  12180. duk_tval *tv;
  12181. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) func, DUK_HTHREAD_STRING_INT_VARMAP(thr));
  12182. if (tv != NULL && DUK_TVAL_IS_OBJECT(tv)) {
  12183. duk_hobject *h;
  12184. duk_uint_fast32_t i;
  12185. h = DUK_TVAL_GET_OBJECT(tv);
  12186. DUK_ASSERT(h != NULL);
  12187. /* We know _Varmap only has own properties so walk property
  12188. * table directly. We also know _Varmap is dense and all
  12189. * values are numbers; assert for these. GC and finalizers
  12190. * shouldn't affect _Varmap so side effects should be fine.
  12191. */
  12192. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) {
  12193. duk_hstring *key;
  12194. duk_tval *tv_val;
  12195. duk_uint32_t val;
  12196. key = DUK_HOBJECT_E_GET_KEY(thr->heap, h, i);
  12197. DUK_ASSERT(key != NULL); /* _Varmap is dense */
  12198. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, h, i));
  12199. tv_val = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, h, i);
  12200. DUK_ASSERT(tv_val != NULL);
  12201. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_val)); /* known to be number; in fact an integer */
  12202. #if defined(DUK_USE_FASTINT)
  12203. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv_val));
  12204. DUK_ASSERT(DUK_TVAL_GET_FASTINT(tv_val) == (duk_int64_t) DUK_TVAL_GET_FASTINT_U32(tv_val)); /* known to be 32-bit */
  12205. val = DUK_TVAL_GET_FASTINT_U32(tv_val);
  12206. #else
  12207. val = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv_val);
  12208. #endif
  12209. DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */
  12210. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(key) + 4U, p);
  12211. p = duk__dump_hstring_raw(p, key);
  12212. DUK_RAW_WRITE_U32_BE(p, val);
  12213. }
  12214. }
  12215. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p);
  12216. DUK_RAW_WRITE_U32_BE(p, 0); /* end of _Varmap */
  12217. return p;
  12218. }
  12219. DUK_LOCAL duk_uint8_t *duk__dump_formals(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func) {
  12220. duk_tval *tv;
  12221. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) func, DUK_HTHREAD_STRING_INT_FORMALS(thr));
  12222. if (tv != NULL && DUK_TVAL_IS_OBJECT(tv)) {
  12223. duk_harray *h;
  12224. duk_uint32_t i;
  12225. /* Here we rely on _Formals being a dense array containing
  12226. * strings. This should be the case unless _Formals has been
  12227. * tweaked by the application (which we don't support right
  12228. * now).
  12229. */
  12230. h = (duk_harray *) DUK_TVAL_GET_OBJECT(tv);
  12231. DUK_ASSERT(h != NULL);
  12232. DUK_ASSERT(DUK_HOBJECT_IS_ARRAY((duk_hobject *) h));
  12233. DUK_ASSERT(h->length <= DUK_HOBJECT_GET_ASIZE((duk_hobject *) h));
  12234. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p);
  12235. DUK_ASSERT(h->length != DUK__NO_FORMALS); /* limits */
  12236. DUK_RAW_WRITE_U32_BE(p, h->length);
  12237. for (i = 0; i < h->length; i++) {
  12238. duk_tval *tv_val;
  12239. duk_hstring *varname;
  12240. tv_val = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, (duk_hobject *) h, i);
  12241. DUK_ASSERT(tv_val != NULL);
  12242. DUK_ASSERT(DUK_TVAL_IS_STRING(tv_val));
  12243. varname = DUK_TVAL_GET_STRING(tv_val);
  12244. DUK_ASSERT(varname != NULL);
  12245. DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(varname) >= 1);
  12246. DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */
  12247. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(varname), p);
  12248. p = duk__dump_hstring_raw(p, varname);
  12249. }
  12250. } else {
  12251. DUK_DD(DUK_DDPRINT("dumping function without _Formals, emit marker to indicate missing _Formals"));
  12252. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p);
  12253. DUK_RAW_WRITE_U32_BE(p, DUK__NO_FORMALS); /* marker: no formals */
  12254. }
  12255. return p;
  12256. }
  12257. static duk_uint8_t *duk__dump_func(duk_hthread *thr, duk_hcompfunc *func, duk_bufwriter_ctx *bw_ctx, duk_uint8_t *p) {
  12258. duk_tval *tv, *tv_end;
  12259. duk_instr_t *ins, *ins_end;
  12260. duk_hobject **fn, **fn_end;
  12261. duk_hstring *h_str;
  12262. duk_uint32_t count_instr;
  12263. duk_uint32_t tmp32;
  12264. duk_uint16_t tmp16;
  12265. duk_double_t d;
  12266. DUK_DD(DUK_DDPRINT("dumping function %p to %p: "
  12267. "consts=[%p,%p[ (%ld bytes, %ld items), "
  12268. "funcs=[%p,%p[ (%ld bytes, %ld items), "
  12269. "code=[%p,%p[ (%ld bytes, %ld items)",
  12270. (void *) func,
  12271. (void *) p,
  12272. (void *) DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, func),
  12273. (void *) DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, func),
  12274. (long) DUK_HCOMPFUNC_GET_CONSTS_SIZE(thr->heap, func),
  12275. (long) DUK_HCOMPFUNC_GET_CONSTS_COUNT(thr->heap, func),
  12276. (void *) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, func),
  12277. (void *) DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, func),
  12278. (long) DUK_HCOMPFUNC_GET_FUNCS_SIZE(thr->heap, func),
  12279. (long) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, func),
  12280. (void *) DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, func),
  12281. (void *) DUK_HCOMPFUNC_GET_CODE_END(thr->heap, func),
  12282. (long) DUK_HCOMPFUNC_GET_CODE_SIZE(thr->heap, func),
  12283. (long) DUK_HCOMPFUNC_GET_CODE_COUNT(thr->heap, func)));
  12284. DUK_ASSERT(DUK_USE_ESBC_MAX_BYTES <= 0x7fffffffUL); /* ensures no overflow */
  12285. count_instr = (duk_uint32_t) DUK_HCOMPFUNC_GET_CODE_COUNT(thr->heap, func);
  12286. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 3U * 4U + 2U * 2U + 3U * 4U + count_instr * 4U, p);
  12287. /* Fixed header info. */
  12288. tmp32 = count_instr;
  12289. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12290. tmp32 = (duk_uint32_t) DUK_HCOMPFUNC_GET_CONSTS_COUNT(thr->heap, func);
  12291. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12292. tmp32 = (duk_uint32_t) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, func);
  12293. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12294. tmp16 = func->nregs;
  12295. DUK_RAW_WRITE_U16_BE(p, tmp16);
  12296. tmp16 = func->nargs;
  12297. DUK_RAW_WRITE_U16_BE(p, tmp16);
  12298. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  12299. tmp32 = func->start_line;
  12300. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12301. tmp32 = func->end_line;
  12302. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12303. #else
  12304. DUK_RAW_WRITE_U32_BE(p, 0);
  12305. DUK_RAW_WRITE_U32_BE(p, 0);
  12306. #endif
  12307. tmp32 = DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) func); /* masks flags, only duk_hobject flags */
  12308. tmp32 &= ~(DUK_HOBJECT_FLAG_HAVE_FINALIZER); /* finalizer flag is lost */
  12309. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12310. /* Bytecode instructions: endian conversion needed unless
  12311. * platform is big endian.
  12312. */
  12313. ins = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, func);
  12314. ins_end = DUK_HCOMPFUNC_GET_CODE_END(thr->heap, func);
  12315. DUK_ASSERT((duk_size_t) (ins_end - ins) == (duk_size_t) count_instr);
  12316. #if defined(DUK_USE_INTEGER_BE)
  12317. DUK_MEMCPY((void *) p, (const void *) ins, (size_t) (ins_end - ins));
  12318. p += (size_t) (ins_end - ins);
  12319. #else
  12320. while (ins != ins_end) {
  12321. tmp32 = (duk_uint32_t) (*ins);
  12322. DUK_RAW_WRITE_U32_BE(p, tmp32);
  12323. ins++;
  12324. }
  12325. #endif
  12326. /* Constants: variable size encoding. */
  12327. tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, func);
  12328. tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, func);
  12329. while (tv != tv_end) {
  12330. /* constants are strings or numbers now */
  12331. DUK_ASSERT(DUK_TVAL_IS_STRING(tv) ||
  12332. DUK_TVAL_IS_NUMBER(tv));
  12333. if (DUK_TVAL_IS_STRING(tv)) {
  12334. h_str = DUK_TVAL_GET_STRING(tv);
  12335. DUK_ASSERT(h_str != NULL);
  12336. DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */
  12337. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 1U + 4U + DUK_HSTRING_GET_BYTELEN(h_str), p),
  12338. *p++ = DUK__SER_STRING;
  12339. p = duk__dump_hstring_raw(p, h_str);
  12340. } else {
  12341. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  12342. p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 1U + 8U, p);
  12343. *p++ = DUK__SER_NUMBER;
  12344. d = DUK_TVAL_GET_NUMBER(tv);
  12345. DUK_RAW_WRITE_DOUBLE_BE(p, d);
  12346. }
  12347. tv++;
  12348. }
  12349. /* Inner functions recursively. */
  12350. fn = (duk_hobject **) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, func);
  12351. fn_end = (duk_hobject **) DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, func);
  12352. while (fn != fn_end) {
  12353. /* XXX: This causes recursion up to inner function depth
  12354. * which is normally not an issue, e.g. mark-and-sweep uses
  12355. * a recursion limiter to avoid C stack issues. Avoiding
  12356. * this would mean some sort of a work list or just refusing
  12357. * to serialize deep functions.
  12358. */
  12359. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(*fn));
  12360. p = duk__dump_func(thr, (duk_hcompfunc *) *fn, bw_ctx, p);
  12361. fn++;
  12362. }
  12363. /* Lexenv and varenv are not dumped. */
  12364. /* Object extra properties.
  12365. *
  12366. * There are some difference between function templates and functions.
  12367. * For example, function templates don't have .length and nargs is
  12368. * normally used to instantiate the functions.
  12369. */
  12370. p = duk__dump_uint32_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_LENGTH, (duk_uint32_t) func->nargs);
  12371. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  12372. p = duk__dump_string_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_NAME);
  12373. #endif
  12374. #if defined(DUK_USE_FUNC_FILENAME_PROPERTY)
  12375. p = duk__dump_string_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_FILE_NAME);
  12376. #endif
  12377. #if defined(DUK_USE_PC2LINE)
  12378. p = duk__dump_buffer_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_INT_PC2LINE);
  12379. #endif
  12380. p = duk__dump_varmap(thr, p, bw_ctx, (duk_hobject *) func);
  12381. p = duk__dump_formals(thr, p, bw_ctx, (duk_hobject *) func);
  12382. DUK_DD(DUK_DDPRINT("serialized function %p -> final pointer %p", (void *) func, (void *) p));
  12383. return p;
  12384. }
  12385. /* Load a function from bytecode. The function object returned here must
  12386. * match what is created by duk_js_push_closure() with respect to its flags,
  12387. * properties, etc.
  12388. *
  12389. * NOTE: there are intentionally no input buffer length / bound checks.
  12390. * Adding them would be easy but wouldn't ensure memory safety as untrusted
  12391. * or broken bytecode is unsafe during execution unless the opcodes themselves
  12392. * are validated (which is quite complex, especially for indirect opcodes).
  12393. */
  12394. #define DUK__ASSERT_LEFT(n) do { \
  12395. DUK_ASSERT((duk_size_t) (p_end - p) >= (duk_size_t) (n)); \
  12396. } while (0)
  12397. static duk_uint8_t *duk__load_func(duk_hthread *thr, duk_uint8_t *p, duk_uint8_t *p_end) {
  12398. duk_hcompfunc *h_fun;
  12399. duk_hbuffer *h_data;
  12400. duk_size_t data_size;
  12401. duk_uint32_t count_instr, count_const, count_funcs;
  12402. duk_uint32_t n;
  12403. duk_uint32_t tmp32;
  12404. duk_small_uint_t const_type;
  12405. duk_uint8_t *fun_data;
  12406. duk_uint8_t *q;
  12407. duk_idx_t idx_base;
  12408. duk_tval *tv1;
  12409. duk_uarridx_t arr_idx;
  12410. duk_uarridx_t arr_limit;
  12411. duk_hobject *func_env;
  12412. duk_bool_t need_pop;
  12413. /* XXX: There's some overlap with duk_js_closure() here, but
  12414. * seems difficult to share code. Ensure that the final function
  12415. * looks the same as created by duk_js_closure().
  12416. */
  12417. DUK_ASSERT(thr != NULL);
  12418. DUK_DD(DUK_DDPRINT("loading function, p=%p, p_end=%p", (void *) p, (void *) p_end));
  12419. DUK__ASSERT_LEFT(3 * 4);
  12420. count_instr = DUK_RAW_READ_U32_BE(p);
  12421. count_const = DUK_RAW_READ_U32_BE(p);
  12422. count_funcs = DUK_RAW_READ_U32_BE(p);
  12423. data_size = sizeof(duk_tval) * count_const +
  12424. sizeof(duk_hobject *) * count_funcs +
  12425. sizeof(duk_instr_t) * count_instr;
  12426. DUK_DD(DUK_DDPRINT("instr=%ld, const=%ld, funcs=%ld, data_size=%ld",
  12427. (long) count_instr, (long) count_const,
  12428. (long) count_const, (long) data_size));
  12429. /* Value stack is used to ensure reachability of constants and
  12430. * inner functions being loaded. Require enough space to handle
  12431. * large functions correctly.
  12432. */
  12433. duk_require_stack(thr, (duk_idx_t) (2 + count_const + count_funcs));
  12434. idx_base = duk_get_top(thr);
  12435. /* Push function object, init flags etc. This must match
  12436. * duk_js_push_closure() quite carefully.
  12437. */
  12438. h_fun = duk_push_hcompfunc(thr);
  12439. DUK_ASSERT(h_fun != NULL);
  12440. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) h_fun));
  12441. DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, h_fun) == NULL);
  12442. DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, h_fun) == NULL);
  12443. DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, h_fun) == NULL);
  12444. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_fun) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  12445. h_fun->nregs = DUK_RAW_READ_U16_BE(p);
  12446. h_fun->nargs = DUK_RAW_READ_U16_BE(p);
  12447. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  12448. h_fun->start_line = DUK_RAW_READ_U32_BE(p);
  12449. h_fun->end_line = DUK_RAW_READ_U32_BE(p);
  12450. #else
  12451. p += 8; /* skip line info */
  12452. #endif
  12453. /* duk_hcompfunc flags; quite version specific */
  12454. tmp32 = DUK_RAW_READ_U32_BE(p);
  12455. DUK_HEAPHDR_SET_FLAGS((duk_heaphdr *) h_fun, tmp32); /* masks flags to only change duk_hobject flags */
  12456. /* standard prototype (no need to set here, already set) */
  12457. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_fun) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  12458. #if 0
  12459. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, &h_fun->obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  12460. #endif
  12461. /* assert just a few critical flags */
  12462. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h_fun) == DUK_HTYPE_OBJECT);
  12463. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&h_fun->obj));
  12464. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(&h_fun->obj));
  12465. DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(&h_fun->obj));
  12466. DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(&h_fun->obj));
  12467. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(&h_fun->obj));
  12468. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(&h_fun->obj));
  12469. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(&h_fun->obj));
  12470. /* Create function 'data' buffer but don't attach it yet. */
  12471. fun_data = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, data_size);
  12472. DUK_ASSERT(fun_data != NULL);
  12473. /* Load bytecode instructions. */
  12474. DUK_ASSERT(sizeof(duk_instr_t) == 4);
  12475. DUK__ASSERT_LEFT(count_instr * sizeof(duk_instr_t));
  12476. #if defined(DUK_USE_INTEGER_BE)
  12477. q = fun_data + sizeof(duk_tval) * count_const + sizeof(duk_hobject *) * count_funcs;
  12478. DUK_MEMCPY((void *) q,
  12479. (const void *) p,
  12480. sizeof(duk_instr_t) * count_instr);
  12481. p += sizeof(duk_instr_t) * count_instr;
  12482. #else
  12483. q = fun_data + sizeof(duk_tval) * count_const + sizeof(duk_hobject *) * count_funcs;
  12484. for (n = count_instr; n > 0; n--) {
  12485. *((duk_instr_t *) (void *) q) = DUK_RAW_READ_U32_BE(p);
  12486. q += sizeof(duk_instr_t);
  12487. }
  12488. #endif
  12489. /* Load constants onto value stack but don't yet copy to buffer. */
  12490. for (n = count_const; n > 0; n--) {
  12491. DUK__ASSERT_LEFT(1);
  12492. const_type = DUK_RAW_READ_U8(p);
  12493. switch (const_type) {
  12494. case DUK__SER_STRING: {
  12495. p = duk__load_string_raw(thr, p);
  12496. break;
  12497. }
  12498. case DUK__SER_NUMBER: {
  12499. /* Important to do a fastint check so that constants are
  12500. * properly read back as fastints.
  12501. */
  12502. duk_tval tv_tmp;
  12503. duk_double_t val;
  12504. DUK__ASSERT_LEFT(8);
  12505. val = DUK_RAW_READ_DOUBLE_BE(p);
  12506. DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(&tv_tmp, val);
  12507. duk_push_tval(thr, &tv_tmp);
  12508. break;
  12509. }
  12510. default: {
  12511. goto format_error;
  12512. }
  12513. }
  12514. }
  12515. /* Load inner functions to value stack, but don't yet copy to buffer. */
  12516. for (n = count_funcs; n > 0; n--) {
  12517. p = duk__load_func(thr, p, p_end);
  12518. if (p == NULL) {
  12519. goto format_error;
  12520. }
  12521. }
  12522. /* With constants and inner functions on value stack, we can now
  12523. * atomically finish the function 'data' buffer, bump refcounts,
  12524. * etc.
  12525. *
  12526. * Here we take advantage of the value stack being just a duk_tval
  12527. * array: we can just memcpy() the constants as long as we incref
  12528. * them afterwards.
  12529. */
  12530. h_data = (duk_hbuffer *) duk_known_hbuffer(thr, idx_base + 1);
  12531. DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC(h_data));
  12532. DUK_HCOMPFUNC_SET_DATA(thr->heap, h_fun, h_data);
  12533. DUK_HBUFFER_INCREF(thr, h_data);
  12534. tv1 = duk_get_tval(thr, idx_base + 2); /* may be NULL if no constants or inner funcs */
  12535. DUK_ASSERT((count_const == 0 && count_funcs == 0) || tv1 != NULL);
  12536. q = fun_data;
  12537. if (count_const > 0) {
  12538. /* Explicit zero size check to avoid NULL 'tv1'. */
  12539. DUK_MEMCPY((void *) q, (const void *) tv1, sizeof(duk_tval) * count_const);
  12540. for (n = count_const; n > 0; n--) {
  12541. DUK_TVAL_INCREF_FAST(thr, (duk_tval *) (void *) q); /* no side effects */
  12542. q += sizeof(duk_tval);
  12543. }
  12544. tv1 += count_const;
  12545. }
  12546. DUK_HCOMPFUNC_SET_FUNCS(thr->heap, h_fun, (duk_hobject **) (void *) q);
  12547. for (n = count_funcs; n > 0; n--) {
  12548. duk_hobject *h_obj;
  12549. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv1));
  12550. h_obj = DUK_TVAL_GET_OBJECT(tv1);
  12551. DUK_ASSERT(h_obj != NULL);
  12552. tv1++;
  12553. DUK_HOBJECT_INCREF(thr, h_obj);
  12554. *((duk_hobject **) (void *) q) = h_obj;
  12555. q += sizeof(duk_hobject *);
  12556. }
  12557. DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, h_fun, (duk_instr_t *) (void *) q);
  12558. /* The function object is now reachable and refcounts are fine,
  12559. * so we can pop off all the temporaries.
  12560. */
  12561. DUK_DDD(DUK_DDDPRINT("function is reachable, reset top; func: %!iT", duk_get_tval(thr, idx_base)));
  12562. duk_set_top(thr, idx_base + 1);
  12563. /* Setup function properties. */
  12564. tmp32 = DUK_RAW_READ_U32_BE(p);
  12565. duk_push_u32(thr, tmp32);
  12566. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C);
  12567. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  12568. p = duk__load_string_raw(thr, p); /* -> [ func funcname ] */
  12569. func_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  12570. DUK_ASSERT(func_env != NULL);
  12571. need_pop = 0;
  12572. if (DUK_HOBJECT_HAS_NAMEBINDING((duk_hobject *) h_fun)) {
  12573. /* Original function instance/template had NAMEBINDING.
  12574. * Must create a lexical environment on loading to allow
  12575. * recursive functions like 'function foo() { foo(); }'.
  12576. */
  12577. duk_hdecenv *new_env;
  12578. new_env = duk_hdecenv_alloc(thr,
  12579. DUK_HOBJECT_FLAG_EXTENSIBLE |
  12580. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV));
  12581. DUK_ASSERT(new_env != NULL);
  12582. DUK_ASSERT(new_env->thread == NULL); /* Closed. */
  12583. DUK_ASSERT(new_env->varmap == NULL);
  12584. DUK_ASSERT(new_env->regbase_byteoff == 0);
  12585. DUK_ASSERT_HDECENV_VALID(new_env);
  12586. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL);
  12587. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, func_env);
  12588. DUK_HOBJECT_INCREF(thr, func_env);
  12589. func_env = (duk_hobject *) new_env;
  12590. duk_push_hobject(thr, (duk_hobject *) new_env);
  12591. duk_dup_m2(thr); /* -> [ func funcname env funcname ] */
  12592. duk_dup(thr, idx_base); /* -> [ func funcname env funcname func ] */
  12593. duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_NONE); /* -> [ func funcname env ] */
  12594. need_pop = 1; /* Need to pop env, but -after- updating h_fun and increfs. */
  12595. }
  12596. DUK_ASSERT(func_env != NULL);
  12597. DUK_HCOMPFUNC_SET_LEXENV(thr->heap, h_fun, func_env);
  12598. DUK_HCOMPFUNC_SET_VARENV(thr->heap, h_fun, func_env);
  12599. DUK_HOBJECT_INCREF(thr, func_env);
  12600. DUK_HOBJECT_INCREF(thr, func_env);
  12601. if (need_pop) {
  12602. duk_pop(thr);
  12603. }
  12604. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C);
  12605. #endif /* DUK_USE_FUNC_NAME_PROPERTY */
  12606. #if defined(DUK_USE_FUNC_FILENAME_PROPERTY)
  12607. p = duk__load_string_raw(thr, p);
  12608. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C);
  12609. #endif /* DUK_USE_FUNC_FILENAME_PROPERTY */
  12610. if (DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) h_fun)) {
  12611. /* Restore empty external .prototype only for constructable
  12612. * functions.
  12613. */
  12614. duk_push_object(thr);
  12615. duk_dup_m2(thr);
  12616. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC); /* func.prototype.constructor = func */
  12617. duk_compact_m1(thr);
  12618. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_W);
  12619. }
  12620. #if defined(DUK_USE_PC2LINE)
  12621. p = duk__load_buffer_raw(thr, p);
  12622. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_PC2LINE, DUK_PROPDESC_FLAGS_WC);
  12623. #endif /* DUK_USE_PC2LINE */
  12624. duk_push_object(thr); /* _Varmap */
  12625. for (;;) {
  12626. /* XXX: awkward */
  12627. p = duk__load_string_raw(thr, p);
  12628. if (duk_get_length(thr, -1) == 0) {
  12629. duk_pop(thr);
  12630. break;
  12631. }
  12632. tmp32 = DUK_RAW_READ_U32_BE(p);
  12633. duk_push_u32(thr, tmp32);
  12634. duk_put_prop(thr, -3);
  12635. }
  12636. duk_compact_m1(thr);
  12637. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VARMAP, DUK_PROPDESC_FLAGS_NONE);
  12638. /* _Formals may have been missing in the original function, which is
  12639. * handled using a marker length.
  12640. */
  12641. arr_limit = DUK_RAW_READ_U32_BE(p);
  12642. if (arr_limit != DUK__NO_FORMALS) {
  12643. duk_push_array(thr); /* _Formals */
  12644. for (arr_idx = 0; arr_idx < arr_limit; arr_idx++) {
  12645. p = duk__load_string_raw(thr, p);
  12646. duk_put_prop_index(thr, -2, arr_idx);
  12647. }
  12648. duk_compact_m1(thr);
  12649. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_FORMALS, DUK_PROPDESC_FLAGS_NONE);
  12650. } else {
  12651. DUK_DD(DUK_DDPRINT("no _Formals in dumped function"));
  12652. }
  12653. /* Return with final function pushed on stack top. */
  12654. DUK_DD(DUK_DDPRINT("final loaded function: %!iT", duk_get_tval(thr, -1)));
  12655. DUK_ASSERT_TOP(thr, idx_base + 1);
  12656. return p;
  12657. format_error:
  12658. return NULL;
  12659. }
  12660. DUK_EXTERNAL void duk_dump_function(duk_hthread *thr) {
  12661. duk_hcompfunc *func;
  12662. duk_bufwriter_ctx bw_ctx_alloc;
  12663. duk_bufwriter_ctx *bw_ctx = &bw_ctx_alloc;
  12664. duk_uint8_t *p;
  12665. DUK_ASSERT_API_ENTRY(thr);
  12666. /* Bound functions don't have all properties so we'd either need to
  12667. * lookup the non-bound target function or reject bound functions.
  12668. * For now, bound functions are rejected with TypeError.
  12669. */
  12670. func = duk_require_hcompfunc(thr, -1);
  12671. DUK_ASSERT(func != NULL);
  12672. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&func->obj));
  12673. /* Estimating the result size beforehand would be costly, so
  12674. * start with a reasonable size and extend as needed.
  12675. */
  12676. DUK_BW_INIT_PUSHBUF(thr, bw_ctx, DUK__BYTECODE_INITIAL_ALLOC);
  12677. p = DUK_BW_GET_PTR(thr, bw_ctx);
  12678. *p++ = DUK__SER_MARKER;
  12679. p = duk__dump_func(thr, func, bw_ctx, p);
  12680. DUK_BW_SET_PTR(thr, bw_ctx, p);
  12681. DUK_BW_COMPACT(thr, bw_ctx);
  12682. DUK_DD(DUK_DDPRINT("serialized result: %!T", duk_get_tval(thr, -1)));
  12683. duk_remove_m2(thr); /* [ ... func buf ] -> [ ... buf ] */
  12684. }
  12685. DUK_EXTERNAL void duk_load_function(duk_hthread *thr) {
  12686. duk_uint8_t *p_buf, *p, *p_end;
  12687. duk_size_t sz;
  12688. DUK_ASSERT_API_ENTRY(thr);
  12689. p_buf = (duk_uint8_t *) duk_require_buffer(thr, -1, &sz);
  12690. DUK_ASSERT(p_buf != NULL);
  12691. /* The caller is responsible for being sure that bytecode being loaded
  12692. * is valid and trusted. Invalid bytecode can cause memory unsafe
  12693. * behavior directly during loading or later during bytecode execution
  12694. * (instruction validation would be quite complex to implement).
  12695. *
  12696. * This signature check is the only sanity check for detecting
  12697. * accidental invalid inputs. The initial byte ensures no ordinary
  12698. * string or Symbol will be accepted by accident.
  12699. */
  12700. p = p_buf;
  12701. p_end = p_buf + sz;
  12702. if (sz < 1 || p[0] != DUK__SER_MARKER) {
  12703. goto format_error;
  12704. }
  12705. p++;
  12706. p = duk__load_func(thr, p, p_end);
  12707. if (p == NULL) {
  12708. goto format_error;
  12709. }
  12710. duk_remove_m2(thr); /* [ ... buf func ] -> [ ... func ] */
  12711. return;
  12712. format_error:
  12713. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BYTECODE);
  12714. }
  12715. #else /* DUK_USE_BYTECODE_DUMP_SUPPORT */
  12716. DUK_EXTERNAL void duk_dump_function(duk_hthread *thr) {
  12717. DUK_ASSERT_API_ENTRY(thr);
  12718. DUK_ERROR_UNSUPPORTED(thr);
  12719. }
  12720. DUK_EXTERNAL void duk_load_function(duk_hthread *thr) {
  12721. DUK_ASSERT_API_ENTRY(thr);
  12722. DUK_ERROR_UNSUPPORTED(thr);
  12723. }
  12724. #endif /* DUK_USE_BYTECODE_DUMP_SUPPORT */
  12725. /* automatic undefs */
  12726. #undef DUK__ASSERT_LEFT
  12727. #undef DUK__BYTECODE_INITIAL_ALLOC
  12728. #undef DUK__NO_FORMALS
  12729. #undef DUK__SER_MARKER
  12730. #undef DUK__SER_NUMBER
  12731. #undef DUK__SER_STRING
  12732. #line 1 "duk_api_call.c"
  12733. /*
  12734. * Calls.
  12735. *
  12736. * Protected variants should avoid ever throwing an error. Must be careful
  12737. * to catch errors related to value stack manipulation and property lookup,
  12738. * not just the call itself.
  12739. *
  12740. * The only exception is when arguments are insane, e.g. nargs/nrets are out
  12741. * of bounds; in such cases an error is thrown for two reasons. First, we
  12742. * can't always respect the value stack input/output guarantees in such cases
  12743. * so the caller would end up with the value stack in an unexpected state.
  12744. * Second, an attempt to create an error might itself fail (although this
  12745. * could be avoided by pushing a preallocated object/string or a primitive
  12746. * value).
  12747. */
  12748. /* #include duk_internal.h -> already included */
  12749. /*
  12750. * Helpers
  12751. */
  12752. struct duk__pcall_prop_args {
  12753. duk_idx_t obj_idx;
  12754. duk_idx_t nargs;
  12755. duk_small_uint_t call_flags;
  12756. };
  12757. typedef struct duk__pcall_prop_args duk__pcall_prop_args;
  12758. struct duk__pcall_method_args {
  12759. duk_idx_t nargs;
  12760. duk_small_uint_t call_flags;
  12761. };
  12762. typedef struct duk__pcall_method_args duk__pcall_method_args;
  12763. struct duk__pcall_args {
  12764. duk_idx_t nargs;
  12765. duk_small_uint_t call_flags;
  12766. };
  12767. typedef struct duk__pcall_args duk__pcall_args;
  12768. /* Compute and validate idx_func for a certain 'nargs' and 'other'
  12769. * parameter count (1 or 2, depending on whether 'this' binding is
  12770. * present).
  12771. */
  12772. DUK_LOCAL duk_idx_t duk__call_get_idx_func(duk_hthread *thr, duk_idx_t nargs, duk_idx_t other) {
  12773. duk_idx_t idx_func;
  12774. /* XXX: byte arithmetic? */
  12775. DUK_ASSERT(other >= 0);
  12776. idx_func = duk_get_top(thr) - nargs - other;
  12777. if (DUK_UNLIKELY((idx_func | nargs) < 0)) { /* idx_func < 0 || nargs < 0; OR sign bits */
  12778. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12779. /* unreachable */
  12780. }
  12781. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12782. return idx_func;
  12783. }
  12784. /* Compute idx_func, assume index will be valid. This is a valid assumption
  12785. * for protected calls: nargs < 0 is checked explicitly and duk_safe_call()
  12786. * validates the argument count.
  12787. */
  12788. DUK_LOCAL duk_idx_t duk__call_get_idx_func_unvalidated(duk_hthread *thr, duk_idx_t nargs, duk_idx_t other) {
  12789. duk_idx_t idx_func;
  12790. /* XXX: byte arithmetic? */
  12791. DUK_ASSERT(nargs >= 0);
  12792. DUK_ASSERT(other >= 0);
  12793. idx_func = duk_get_top(thr) - nargs - other;
  12794. DUK_ASSERT(idx_func >= 0);
  12795. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12796. return idx_func;
  12797. }
  12798. /* Prepare value stack for a method call through an object property.
  12799. * May currently throw an error e.g. when getting the property.
  12800. */
  12801. DUK_LOCAL void duk__call_prop_prep_stack(duk_hthread *thr, duk_idx_t normalized_obj_idx, duk_idx_t nargs) {
  12802. DUK_ASSERT_CTX_VALID(thr);
  12803. DUK_ASSERT(nargs >= 0);
  12804. DUK_DDD(DUK_DDDPRINT("duk__call_prop_prep_stack, normalized_obj_idx=%ld, nargs=%ld, stacktop=%ld",
  12805. (long) normalized_obj_idx, (long) nargs, (long) duk_get_top(thr)));
  12806. /* [... key arg1 ... argN] */
  12807. /* duplicate key */
  12808. duk_dup(thr, -nargs - 1); /* Note: -nargs alone would fail for nargs == 0, this is OK */
  12809. (void) duk_get_prop(thr, normalized_obj_idx);
  12810. DUK_DDD(DUK_DDDPRINT("func: %!T", (duk_tval *) duk_get_tval(thr, -1)));
  12811. #if defined(DUK_USE_VERBOSE_ERRORS)
  12812. if (DUK_UNLIKELY(!duk_is_callable(thr, -1))) {
  12813. duk_tval *tv_targ;
  12814. duk_tval *tv_base;
  12815. duk_tval *tv_key;
  12816. tv_targ = DUK_GET_TVAL_NEGIDX(thr, -1);
  12817. tv_base = DUK_GET_TVAL_POSIDX(thr, normalized_obj_idx);
  12818. tv_key = DUK_GET_TVAL_NEGIDX(thr, -nargs - 2);
  12819. DUK_ASSERT(tv_targ >= thr->valstack_bottom && tv_targ < thr->valstack_top);
  12820. DUK_ASSERT(tv_base >= thr->valstack_bottom && tv_base < thr->valstack_top);
  12821. DUK_ASSERT(tv_key >= thr->valstack_bottom && tv_key < thr->valstack_top);
  12822. duk_call_setup_propcall_error(thr, tv_targ, tv_base, tv_key);
  12823. }
  12824. #endif
  12825. /* [... key arg1 ... argN func] */
  12826. duk_replace(thr, -nargs - 2);
  12827. /* [... func arg1 ... argN] */
  12828. duk_dup(thr, normalized_obj_idx);
  12829. duk_insert(thr, -nargs - 1);
  12830. /* [... func this arg1 ... argN] */
  12831. }
  12832. DUK_EXTERNAL void duk_call(duk_hthread *thr, duk_idx_t nargs) {
  12833. duk_small_uint_t call_flags;
  12834. duk_idx_t idx_func;
  12835. DUK_ASSERT_API_ENTRY(thr);
  12836. idx_func = duk__call_get_idx_func(thr, nargs, 1);
  12837. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12838. duk_insert_undefined(thr, idx_func + 1);
  12839. call_flags = 0; /* not protected, respect reclimit, not constructor */
  12840. duk_handle_call_unprotected(thr, idx_func, call_flags);
  12841. }
  12842. DUK_EXTERNAL void duk_call_method(duk_hthread *thr, duk_idx_t nargs) {
  12843. duk_small_uint_t call_flags;
  12844. duk_idx_t idx_func;
  12845. DUK_ASSERT_API_ENTRY(thr);
  12846. idx_func = duk__call_get_idx_func(thr, nargs, 2);
  12847. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12848. call_flags = 0; /* not protected, respect reclimit, not constructor */
  12849. duk_handle_call_unprotected(thr, idx_func, call_flags);
  12850. }
  12851. DUK_EXTERNAL void duk_call_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t nargs) {
  12852. /*
  12853. * XXX: if duk_handle_call() took values through indices, this could be
  12854. * made much more sensible. However, duk_handle_call() needs to fudge
  12855. * the 'this' and 'func' values to handle bound functions, which is now
  12856. * done "in-place", so this is not a trivial change.
  12857. */
  12858. DUK_ASSERT_API_ENTRY(thr);
  12859. obj_idx = duk_require_normalize_index(thr, obj_idx); /* make absolute */
  12860. if (DUK_UNLIKELY(nargs < 0)) {
  12861. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12862. }
  12863. duk__call_prop_prep_stack(thr, obj_idx, nargs);
  12864. duk_call_method(thr, nargs);
  12865. }
  12866. DUK_LOCAL duk_ret_t duk__pcall_raw(duk_hthread *thr, void *udata) {
  12867. duk__pcall_args *args;
  12868. duk_idx_t idx_func;
  12869. duk_int_t ret;
  12870. DUK_ASSERT_CTX_VALID(thr);
  12871. DUK_ASSERT(udata != NULL);
  12872. args = (duk__pcall_args *) udata;
  12873. idx_func = duk__call_get_idx_func_unvalidated(thr, args->nargs, 1);
  12874. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12875. duk_insert_undefined(thr, idx_func + 1);
  12876. ret = duk_handle_call_unprotected(thr, idx_func, args->call_flags);
  12877. DUK_ASSERT(ret == 0);
  12878. DUK_UNREF(ret);
  12879. return 1;
  12880. }
  12881. DUK_EXTERNAL duk_int_t duk_pcall(duk_hthread *thr, duk_idx_t nargs) {
  12882. duk__pcall_args args;
  12883. DUK_ASSERT_API_ENTRY(thr);
  12884. args.nargs = nargs;
  12885. if (DUK_UNLIKELY(nargs < 0)) {
  12886. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12887. return DUK_EXEC_ERROR; /* unreachable */
  12888. }
  12889. args.call_flags = 0;
  12890. return duk_safe_call(thr, duk__pcall_raw, (void *) &args /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/);
  12891. }
  12892. DUK_LOCAL duk_ret_t duk__pcall_method_raw(duk_hthread *thr, void *udata) {
  12893. duk__pcall_method_args *args;
  12894. duk_idx_t idx_func;
  12895. duk_int_t ret;
  12896. DUK_ASSERT_CTX_VALID(thr);
  12897. DUK_ASSERT(udata != NULL);
  12898. args = (duk__pcall_method_args *) udata;
  12899. idx_func = duk__call_get_idx_func_unvalidated(thr, args->nargs, 2);
  12900. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12901. ret = duk_handle_call_unprotected(thr, idx_func, args->call_flags);
  12902. DUK_ASSERT(ret == 0);
  12903. DUK_UNREF(ret);
  12904. return 1;
  12905. }
  12906. DUK_INTERNAL duk_int_t duk_pcall_method_flags(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags) {
  12907. duk__pcall_method_args args;
  12908. DUK_ASSERT_API_ENTRY(thr);
  12909. args.nargs = nargs;
  12910. if (DUK_UNLIKELY(nargs < 0)) {
  12911. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12912. return DUK_EXEC_ERROR; /* unreachable */
  12913. }
  12914. args.call_flags = call_flags;
  12915. return duk_safe_call(thr, duk__pcall_method_raw, (void *) &args /*udata*/, nargs + 2 /*nargs*/, 1 /*nrets*/);
  12916. }
  12917. DUK_EXTERNAL duk_int_t duk_pcall_method(duk_hthread *thr, duk_idx_t nargs) {
  12918. DUK_ASSERT_API_ENTRY(thr);
  12919. return duk_pcall_method_flags(thr, nargs, 0);
  12920. }
  12921. DUK_LOCAL duk_ret_t duk__pcall_prop_raw(duk_hthread *thr, void *udata) {
  12922. duk__pcall_prop_args *args;
  12923. duk_idx_t obj_idx;
  12924. duk_int_t ret;
  12925. DUK_ASSERT_CTX_VALID(thr);
  12926. DUK_ASSERT(udata != NULL);
  12927. args = (duk__pcall_prop_args *) udata;
  12928. obj_idx = duk_require_normalize_index(thr, args->obj_idx); /* make absolute */
  12929. duk__call_prop_prep_stack(thr, obj_idx, args->nargs);
  12930. ret = duk_handle_call_unprotected_nargs(thr, args->nargs, args->call_flags);
  12931. DUK_ASSERT(ret == 0);
  12932. DUK_UNREF(ret);
  12933. return 1;
  12934. }
  12935. DUK_EXTERNAL duk_int_t duk_pcall_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t nargs) {
  12936. duk__pcall_prop_args args;
  12937. DUK_ASSERT_API_ENTRY(thr);
  12938. args.obj_idx = obj_idx;
  12939. args.nargs = nargs;
  12940. if (DUK_UNLIKELY(nargs < 0)) {
  12941. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12942. return DUK_EXEC_ERROR; /* unreachable */
  12943. }
  12944. args.call_flags = 0;
  12945. return duk_safe_call(thr, duk__pcall_prop_raw, (void *) &args /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/);
  12946. }
  12947. DUK_EXTERNAL duk_int_t duk_safe_call(duk_hthread *thr, duk_safe_call_function func, void *udata, duk_idx_t nargs, duk_idx_t nrets) {
  12948. duk_int_t rc;
  12949. DUK_ASSERT_API_ENTRY(thr);
  12950. /* nargs condition; fail if: top - bottom < nargs
  12951. * <=> top < bottom + nargs
  12952. * nrets condition; fail if: end - (top - nargs) < nrets
  12953. * <=> end - top + nargs < nrets
  12954. * <=> end + nargs < top + nrets
  12955. */
  12956. /* XXX: check for any reserve? */
  12957. if (DUK_UNLIKELY((nargs | nrets) < 0 || /* nargs < 0 || nrets < 0; OR sign bits */
  12958. thr->valstack_top < thr->valstack_bottom + nargs || /* nargs too large compared to top */
  12959. thr->valstack_end + nargs < thr->valstack_top + nrets)) { /* nrets too large compared to reserve */
  12960. DUK_D(DUK_DPRINT("not enough stack reserve for safe call or invalid arguments: "
  12961. "nargs=%ld < 0 (?), nrets=%ld < 0 (?), top=%ld < bottom=%ld + nargs=%ld (?), "
  12962. "end=%ld + nargs=%ld < top=%ld + nrets=%ld (?)",
  12963. (long) nargs,
  12964. (long) nrets,
  12965. (long) (thr->valstack_top - thr->valstack),
  12966. (long) (thr->valstack_bottom - thr->valstack),
  12967. (long) nargs,
  12968. (long) (thr->valstack_end - thr->valstack),
  12969. (long) nargs,
  12970. (long) (thr->valstack_top - thr->valstack),
  12971. (long) nrets));
  12972. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  12973. return DUK_EXEC_ERROR; /* unreachable */
  12974. }
  12975. rc = duk_handle_safe_call(thr, /* thread */
  12976. func, /* func */
  12977. udata, /* udata */
  12978. nargs, /* num_stack_args */
  12979. nrets); /* num_stack_res */
  12980. return rc;
  12981. }
  12982. DUK_EXTERNAL void duk_new(duk_hthread *thr, duk_idx_t nargs) {
  12983. duk_idx_t idx_func;
  12984. DUK_ASSERT_API_ENTRY(thr);
  12985. idx_func = duk__call_get_idx_func(thr, nargs, 1);
  12986. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  12987. duk_push_object(thr); /* default instance; internal proto updated by call handling */
  12988. duk_insert(thr, idx_func + 1);
  12989. duk_handle_call_unprotected(thr, idx_func, DUK_CALL_FLAG_CONSTRUCT);
  12990. }
  12991. DUK_LOCAL duk_ret_t duk__pnew_helper(duk_hthread *thr, void *udata) {
  12992. duk_idx_t nargs;
  12993. DUK_ASSERT(udata != NULL);
  12994. nargs = *((duk_idx_t *) udata);
  12995. duk_new(thr, nargs);
  12996. return 1;
  12997. }
  12998. DUK_EXTERNAL duk_int_t duk_pnew(duk_hthread *thr, duk_idx_t nargs) {
  12999. duk_int_t rc;
  13000. DUK_ASSERT_API_ENTRY(thr);
  13001. /* For now, just use duk_safe_call() to wrap duk_new(). We can't
  13002. * simply use a protected duk_handle_call() because pushing the
  13003. * default instance might throw.
  13004. */
  13005. if (DUK_UNLIKELY(nargs < 0)) {
  13006. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  13007. return DUK_EXEC_ERROR; /* unreachable */
  13008. }
  13009. rc = duk_safe_call(thr, duk__pnew_helper, (void *) &nargs /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/);
  13010. return rc;
  13011. }
  13012. DUK_EXTERNAL duk_bool_t duk_is_constructor_call(duk_hthread *thr) {
  13013. duk_activation *act;
  13014. DUK_ASSERT_API_ENTRY(thr);
  13015. act = thr->callstack_curr;
  13016. if (act != NULL) {
  13017. return ((act->flags & DUK_ACT_FLAG_CONSTRUCT) != 0 ? 1 : 0);
  13018. }
  13019. return 0;
  13020. }
  13021. /* XXX: Make this obsolete by adding a function flag for rejecting a
  13022. * non-constructor call automatically?
  13023. */
  13024. DUK_INTERNAL void duk_require_constructor_call(duk_hthread *thr) {
  13025. DUK_ASSERT_API_ENTRY(thr);
  13026. if (!duk_is_constructor_call(thr)) {
  13027. DUK_ERROR_TYPE(thr, DUK_STR_CONSTRUCT_ONLY);
  13028. }
  13029. }
  13030. DUK_EXTERNAL duk_bool_t duk_is_strict_call(duk_hthread *thr) {
  13031. duk_activation *act;
  13032. /* For user code this could just return 1 (strict) always
  13033. * because all Duktape/C functions are considered strict,
  13034. * and strict is also the default when nothing is running.
  13035. * However, Duktape may call this function internally when
  13036. * the current activation is an Ecmascript function, so
  13037. * this cannot be replaced by a 'return 1' without fixing
  13038. * the internal call sites.
  13039. */
  13040. DUK_ASSERT_API_ENTRY(thr);
  13041. act = thr->callstack_curr;
  13042. if (act != NULL) {
  13043. return ((act->flags & DUK_ACT_FLAG_STRICT) != 0 ? 1 : 0);
  13044. } else {
  13045. /* Strict by default. */
  13046. return 1;
  13047. }
  13048. }
  13049. /*
  13050. * Duktape/C function magic
  13051. */
  13052. DUK_EXTERNAL duk_int_t duk_get_current_magic(duk_hthread *thr) {
  13053. duk_activation *act;
  13054. duk_hobject *func;
  13055. DUK_ASSERT_API_ENTRY(thr);
  13056. act = thr->callstack_curr;
  13057. if (act) {
  13058. func = DUK_ACT_GET_FUNC(act);
  13059. if (!func) {
  13060. duk_tval *tv = &act->tv_func;
  13061. duk_small_uint_t lf_flags;
  13062. lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv);
  13063. return (duk_int_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags);
  13064. }
  13065. DUK_ASSERT(func != NULL);
  13066. if (DUK_HOBJECT_IS_NATFUNC(func)) {
  13067. duk_hnatfunc *nf = (duk_hnatfunc *) func;
  13068. return (duk_int_t) nf->magic;
  13069. }
  13070. }
  13071. return 0;
  13072. }
  13073. DUK_EXTERNAL duk_int_t duk_get_magic(duk_hthread *thr, duk_idx_t idx) {
  13074. duk_tval *tv;
  13075. duk_hobject *h;
  13076. DUK_ASSERT_API_ENTRY(thr);
  13077. tv = duk_require_tval(thr, idx);
  13078. if (DUK_TVAL_IS_OBJECT(tv)) {
  13079. h = DUK_TVAL_GET_OBJECT(tv);
  13080. DUK_ASSERT(h != NULL);
  13081. if (!DUK_HOBJECT_HAS_NATFUNC(h)) {
  13082. goto type_error;
  13083. }
  13084. return (duk_int_t) ((duk_hnatfunc *) h)->magic;
  13085. } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  13086. duk_small_uint_t lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv);
  13087. return (duk_int_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags);
  13088. }
  13089. /* fall through */
  13090. type_error:
  13091. DUK_ERROR_TYPE(thr, DUK_STR_UNEXPECTED_TYPE);
  13092. return 0;
  13093. }
  13094. DUK_EXTERNAL void duk_set_magic(duk_hthread *thr, duk_idx_t idx, duk_int_t magic) {
  13095. duk_hnatfunc *nf;
  13096. DUK_ASSERT_API_ENTRY(thr);
  13097. nf = duk_require_hnatfunc(thr, idx);
  13098. DUK_ASSERT(nf != NULL);
  13099. nf->magic = (duk_int16_t) magic;
  13100. }
  13101. /*
  13102. * Misc helpers
  13103. */
  13104. /* Resolve a bound function on value stack top to a non-bound target
  13105. * (leave other values as is).
  13106. */
  13107. DUK_INTERNAL void duk_resolve_nonbound_function(duk_hthread *thr) {
  13108. duk_tval *tv;
  13109. DUK_ASSERT_HTHREAD_VALID(thr);
  13110. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  13111. if (DUK_TVAL_IS_OBJECT(tv)) {
  13112. duk_hobject *h;
  13113. h = DUK_TVAL_GET_OBJECT(tv);
  13114. DUK_ASSERT(h != NULL);
  13115. if (DUK_HOBJECT_HAS_BOUNDFUNC(h)) {
  13116. duk_push_tval(thr, &((duk_hboundfunc *) h)->target);
  13117. duk_replace(thr, -2);
  13118. #if 0
  13119. DUK_TVAL_SET_TVAL(tv, &((duk_hboundfunc *) h)->target);
  13120. DUK_TVAL_INCREF(thr, tv);
  13121. DUK_HOBJECT_DECREF_NORZ(thr, h);
  13122. #endif
  13123. /* Rely on Function.prototype.bind() on never creating a bound
  13124. * function whose target is not proper. This is now safe
  13125. * because the target is not even an internal property but a
  13126. * struct member.
  13127. */
  13128. DUK_ASSERT(duk_is_lightfunc(thr, -1) || duk_is_callable(thr, -1));
  13129. }
  13130. }
  13131. /* Lightfuncs cannot be bound but are always callable and
  13132. * constructable.
  13133. */
  13134. }
  13135. #line 1 "duk_api_codec.c"
  13136. /*
  13137. * Encoding and decoding basic formats: hex, base64.
  13138. *
  13139. * These are in-place operations which may allow an optimized implementation.
  13140. *
  13141. * Base-64: https://tools.ietf.org/html/rfc4648#section-4
  13142. */
  13143. /* #include duk_internal.h -> already included */
  13144. /* Shared handling for encode/decode argument. Fast path handling for
  13145. * buffer and string values because they're the most common. In particular,
  13146. * avoid creating a temporary string or buffer when possible.
  13147. */
  13148. DUK_LOCAL const duk_uint8_t *duk__prep_codec_arg(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  13149. void *ptr;
  13150. duk_bool_t isbuffer;
  13151. DUK_ASSERT(duk_is_valid_index(thr, idx)); /* checked by caller */
  13152. /* XXX: with def_ptr set to a stack related pointer, isbuffer could
  13153. * be removed from the helper?
  13154. */
  13155. ptr = duk_get_buffer_data_raw(thr, idx, out_len, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/, &isbuffer);
  13156. if (isbuffer) {
  13157. DUK_ASSERT(*out_len == 0 || ptr != NULL);
  13158. return (const duk_uint8_t *) ptr;
  13159. }
  13160. return (const duk_uint8_t *) duk_to_lstring(thr, idx, out_len);
  13161. }
  13162. #if defined(DUK_USE_BASE64_FASTPATH)
  13163. DUK_LOCAL void duk__base64_encode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst) {
  13164. duk_uint_t t;
  13165. duk_size_t n_full, n_full3, n_final;
  13166. const duk_uint8_t *src_end_fast;
  13167. n_full = srclen / 3; /* full 3-byte -> 4-char conversions */
  13168. n_full3 = n_full * 3;
  13169. n_final = srclen - n_full3;
  13170. DUK_ASSERT_DISABLE(n_final >= 0);
  13171. DUK_ASSERT(n_final <= 2);
  13172. src_end_fast = src + n_full3;
  13173. while (DUK_UNLIKELY(src != src_end_fast)) {
  13174. t = (duk_uint_t) (*src++);
  13175. t = (t << 8) + (duk_uint_t) (*src++);
  13176. t = (t << 8) + (duk_uint_t) (*src++);
  13177. *dst++ = duk_base64_enctab[t >> 18];
  13178. *dst++ = duk_base64_enctab[(t >> 12) & 0x3f];
  13179. *dst++ = duk_base64_enctab[(t >> 6) & 0x3f];
  13180. *dst++ = duk_base64_enctab[t & 0x3f];
  13181. #if 0 /* Tested: not faster on x64 */
  13182. /* aaaaaabb bbbbcccc ccdddddd */
  13183. dst[0] = duk_base64_enctab[(src[0] >> 2) & 0x3f];
  13184. dst[1] = duk_base64_enctab[((src[0] << 4) & 0x30) | ((src[1] >> 4) & 0x0f)];
  13185. dst[2] = duk_base64_enctab[((src[1] << 2) & 0x3f) | ((src[2] >> 6) & 0x03)];
  13186. dst[3] = duk_base64_enctab[src[2] & 0x3f];
  13187. src += 3; dst += 4;
  13188. #endif
  13189. }
  13190. switch (n_final) {
  13191. /* case 0: nop */
  13192. case 1: {
  13193. /* XX== */
  13194. t = (duk_uint_t) (*src++);
  13195. *dst++ = duk_base64_enctab[t >> 2]; /* XXXXXX-- */
  13196. *dst++ = duk_base64_enctab[(t << 4) & 0x3f]; /* ------XX */
  13197. *dst++ = DUK_ASC_EQUALS;
  13198. *dst++ = DUK_ASC_EQUALS;
  13199. break;
  13200. }
  13201. case 2: {
  13202. /* XXX= */
  13203. t = (duk_uint_t) (*src++);
  13204. t = (t << 8) + (duk_uint_t) (*src++);
  13205. *dst++ = duk_base64_enctab[t >> 10]; /* XXXXXX-- -------- */
  13206. *dst++ = duk_base64_enctab[(t >> 4) & 0x3f]; /* ------XX XXXX---- */
  13207. *dst++ = duk_base64_enctab[(t << 2) & 0x3f]; /* -------- ----XXXX */
  13208. *dst++ = DUK_ASC_EQUALS;
  13209. break;
  13210. }
  13211. }
  13212. }
  13213. #else /* DUK_USE_BASE64_FASTPATH */
  13214. DUK_LOCAL void duk__base64_encode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst) {
  13215. duk_small_uint_t i, snip;
  13216. duk_uint_t t;
  13217. duk_uint_fast8_t x, y;
  13218. const duk_uint8_t *src_end;
  13219. src_end = src + srclen;
  13220. while (src < src_end) {
  13221. /* read 3 bytes into 't', padded by zero */
  13222. snip = 4;
  13223. t = 0;
  13224. for (i = 0; i < 3; i++) {
  13225. t = t << 8;
  13226. if (src >= src_end) {
  13227. snip--;
  13228. } else {
  13229. t += (duk_uint_t) (*src++);
  13230. }
  13231. }
  13232. /*
  13233. * Missing bytes snip base64 example
  13234. * 0 4 XXXX
  13235. * 1 3 XXX=
  13236. * 2 2 XX==
  13237. */
  13238. DUK_ASSERT(snip >= 2 && snip <= 4);
  13239. for (i = 0; i < 4; i++) {
  13240. x = (duk_uint_fast8_t) ((t >> 18) & 0x3f);
  13241. t = t << 6;
  13242. /* A straightforward 64-byte lookup would be faster
  13243. * and cleaner, but this is shorter.
  13244. */
  13245. if (i >= snip) {
  13246. y = '=';
  13247. } else if (x <= 25) {
  13248. y = x + 'A';
  13249. } else if (x <= 51) {
  13250. y = x - 26 + 'a';
  13251. } else if (x <= 61) {
  13252. y = x - 52 + '0';
  13253. } else if (x == 62) {
  13254. y = '+';
  13255. } else {
  13256. y = '/';
  13257. }
  13258. *dst++ = (duk_uint8_t) y;
  13259. }
  13260. }
  13261. }
  13262. #endif /* DUK_USE_BASE64_FASTPATH */
  13263. #if defined(DUK_USE_BASE64_FASTPATH)
  13264. DUK_LOCAL duk_bool_t duk__base64_decode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst, duk_uint8_t **out_dst_final) {
  13265. duk_int_t x;
  13266. duk_int_t t;
  13267. duk_small_uint_t n_equal;
  13268. duk_small_uint_t n_chars;
  13269. const duk_uint8_t *src_end;
  13270. const duk_uint8_t *src_end_safe;
  13271. src_end = src + srclen;
  13272. src_end_safe = src_end - 4; /* if 'src < src_end_safe', safe to read 4 bytes */
  13273. /* Innermost fast path processes 4 valid base-64 characters at a time
  13274. * but bails out on whitespace, padding chars ('=') and invalid chars.
  13275. * Once the slow path segment has been processed, we return to the
  13276. * inner fast path again. This handles e.g. base64 with newlines
  13277. * reasonably well because the majority of a line is in the fast path.
  13278. */
  13279. for (;;) {
  13280. /* Fast path, handle units with just actual encoding characters. */
  13281. while (src <= src_end_safe) {
  13282. /* The lookup byte is intentionally sign extended to (at least)
  13283. * 32 bits and then ORed. This ensures that is at least 1 byte
  13284. * is negative, the highest bit of 't' will be set at the end
  13285. * and we don't need to check every byte.
  13286. */
  13287. DUK_DDD(DUK_DDDPRINT("fast loop: src=%p, src_end_safe=%p, src_end=%p",
  13288. (const void *) src, (const void *) src_end_safe, (const void *) src_end));
  13289. t = (duk_int_t) duk_base64_dectab[*src++];
  13290. t = (t << 6) | (duk_int_t) duk_base64_dectab[*src++];
  13291. t = (t << 6) | (duk_int_t) duk_base64_dectab[*src++];
  13292. t = (t << 6) | (duk_int_t) duk_base64_dectab[*src++];
  13293. if (DUK_UNLIKELY(t < 0)) {
  13294. DUK_DDD(DUK_DDDPRINT("fast loop unit was not clean, process one slow path unit"));
  13295. src -= 4;
  13296. break;
  13297. }
  13298. DUK_ASSERT(t <= 0xffffffL);
  13299. DUK_ASSERT((t >> 24) == 0);
  13300. *dst++ = (duk_uint8_t) (t >> 16);
  13301. *dst++ = (duk_uint8_t) ((t >> 8) & 0xff);
  13302. *dst++ = (duk_uint8_t) (t & 0xff);
  13303. }
  13304. /* Handle one slow path unit (or finish if we're done). */
  13305. n_equal = 0;
  13306. n_chars = 0;
  13307. t = 0;
  13308. for (;;) {
  13309. DUK_DDD(DUK_DDDPRINT("slow loop: src=%p, src_end=%p, n_chars=%ld, n_equal=%ld, t=%ld",
  13310. (const void *) src, (const void *) src_end, (long) n_chars, (long) n_equal, (long) t));
  13311. if (DUK_UNLIKELY(src >= src_end)) {
  13312. goto done; /* two level break */
  13313. }
  13314. x = duk_base64_dectab[*src++];
  13315. if (DUK_UNLIKELY(x < 0)) {
  13316. if (x == -2) {
  13317. continue; /* allowed ascii whitespace */
  13318. } else if (x == -3) {
  13319. n_equal++;
  13320. t <<= 6;
  13321. } else {
  13322. DUK_ASSERT(x == -1);
  13323. goto decode_error;
  13324. }
  13325. } else {
  13326. DUK_ASSERT(x >= 0 && x <= 63);
  13327. if (n_equal > 0) {
  13328. /* Don't allow actual chars after equal sign. */
  13329. goto decode_error;
  13330. }
  13331. t = (t << 6) + x;
  13332. }
  13333. if (DUK_UNLIKELY(n_chars == 3)) {
  13334. /* Emit 3 bytes and backtrack if there was padding. There's
  13335. * always space for the whole 3 bytes so no check needed.
  13336. */
  13337. DUK_ASSERT(t <= 0xffffffL);
  13338. DUK_ASSERT((t >> 24) == 0);
  13339. *dst++ = (duk_uint8_t) (t >> 16);
  13340. *dst++ = (duk_uint8_t) ((t >> 8) & 0xff);
  13341. *dst++ = (duk_uint8_t) (t & 0xff);
  13342. if (DUK_UNLIKELY(n_equal > 0)) {
  13343. DUK_ASSERT(n_equal <= 4);
  13344. /* There may be whitespace between the equal signs. */
  13345. if (n_equal == 1) {
  13346. /* XXX= */
  13347. dst -= 1;
  13348. } else if (n_equal == 2) {
  13349. /* XX== */
  13350. dst -= 2;
  13351. } else {
  13352. goto decode_error; /* invalid padding */
  13353. }
  13354. /* Continue parsing after padding, allows concatenated,
  13355. * padded base64.
  13356. */
  13357. }
  13358. break; /* back to fast loop */
  13359. } else {
  13360. n_chars++;
  13361. }
  13362. }
  13363. }
  13364. done:
  13365. DUK_DDD(DUK_DDDPRINT("done; src=%p, src_end=%p, n_chars=%ld",
  13366. (const void *) src, (const void *) src_end, (long) n_chars));
  13367. DUK_ASSERT(src == src_end);
  13368. if (n_chars != 0) {
  13369. /* Here we'd have the option of decoding unpadded base64
  13370. * (e.g. "xxxxyy" instead of "xxxxyy==". Currently not
  13371. * accepted.
  13372. */
  13373. goto decode_error;
  13374. }
  13375. *out_dst_final = dst;
  13376. return 1;
  13377. decode_error:
  13378. return 0;
  13379. }
  13380. #else /* DUK_USE_BASE64_FASTPATH */
  13381. DUK_LOCAL duk_bool_t duk__base64_decode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst, duk_uint8_t **out_dst_final) {
  13382. duk_uint_t t;
  13383. duk_uint_fast8_t x, y;
  13384. duk_small_uint_t group_idx;
  13385. duk_small_uint_t n_equal;
  13386. const duk_uint8_t *src_end;
  13387. src_end = src + srclen;
  13388. t = 0;
  13389. group_idx = 0;
  13390. n_equal = 0;
  13391. while (src < src_end) {
  13392. x = *src++;
  13393. if (x >= 'A' && x <= 'Z') {
  13394. y = x - 'A' + 0;
  13395. } else if (x >= 'a' && x <= 'z') {
  13396. y = x - 'a' + 26;
  13397. } else if (x >= '0' && x <= '9') {
  13398. y = x - '0' + 52;
  13399. } else if (x == '+') {
  13400. y = 62;
  13401. } else if (x == '/') {
  13402. y = 63;
  13403. } else if (x == '=') {
  13404. /* We don't check the zero padding bytes here right now
  13405. * (that they're actually zero). This seems to be common
  13406. * behavior for base-64 decoders.
  13407. */
  13408. n_equal++;
  13409. t <<= 6; /* shift in zeroes */
  13410. goto skip_add;
  13411. } else if (x == 0x09 || x == 0x0a || x == 0x0d || x == 0x20) {
  13412. /* allow basic ASCII whitespace */
  13413. continue;
  13414. } else {
  13415. goto decode_error;
  13416. }
  13417. if (n_equal > 0) {
  13418. /* Don't allow mixed padding and actual chars. */
  13419. goto decode_error;
  13420. }
  13421. t = (t << 6) + y;
  13422. skip_add:
  13423. if (group_idx == 3) {
  13424. /* output 3 bytes from 't' */
  13425. *dst++ = (duk_uint8_t) ((t >> 16) & 0xff);
  13426. *dst++ = (duk_uint8_t) ((t >> 8) & 0xff);
  13427. *dst++ = (duk_uint8_t) (t & 0xff);
  13428. if (DUK_UNLIKELY(n_equal > 0)) {
  13429. /* Backtrack. */
  13430. DUK_ASSERT(n_equal <= 4);
  13431. if (n_equal == 1) {
  13432. dst -= 1;
  13433. } else if (n_equal == 2) {
  13434. dst -= 2;
  13435. } else {
  13436. goto decode_error; /* invalid padding */
  13437. }
  13438. /* Here we can choose either to end parsing and ignore
  13439. * whatever follows, or to continue parsing in case
  13440. * multiple (possibly padded) base64 strings have been
  13441. * concatenated. Currently, keep on parsing.
  13442. */
  13443. n_equal = 0;
  13444. }
  13445. t = 0;
  13446. group_idx = 0;
  13447. } else {
  13448. group_idx++;
  13449. }
  13450. }
  13451. if (group_idx != 0) {
  13452. /* Here we'd have the option of decoding unpadded base64
  13453. * (e.g. "xxxxyy" instead of "xxxxyy==". Currently not
  13454. * accepted.
  13455. */
  13456. goto decode_error;
  13457. }
  13458. *out_dst_final = dst;
  13459. return 1;
  13460. decode_error:
  13461. return 0;
  13462. }
  13463. #endif /* DUK_USE_BASE64_FASTPATH */
  13464. DUK_EXTERNAL const char *duk_base64_encode(duk_hthread *thr, duk_idx_t idx) {
  13465. const duk_uint8_t *src;
  13466. duk_size_t srclen;
  13467. duk_size_t dstlen;
  13468. duk_uint8_t *dst;
  13469. const char *ret;
  13470. DUK_ASSERT_API_ENTRY(thr);
  13471. /* XXX: optimize for string inputs: no need to coerce to a buffer
  13472. * which makes a copy of the input.
  13473. */
  13474. idx = duk_require_normalize_index(thr, idx);
  13475. src = duk__prep_codec_arg(thr, idx, &srclen);
  13476. /* Note: for srclen=0, src may be NULL */
  13477. /* Computation must not wrap; this limit works for 32-bit size_t:
  13478. * >>> srclen = 3221225469
  13479. * >>> '%x' % ((srclen + 2) / 3 * 4)
  13480. * 'fffffffc'
  13481. */
  13482. if (srclen > 3221225469UL) {
  13483. goto type_error;
  13484. }
  13485. dstlen = (srclen + 2) / 3 * 4;
  13486. dst = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, dstlen);
  13487. duk__base64_encode_helper((const duk_uint8_t *) src, srclen, dst);
  13488. ret = duk_buffer_to_string(thr, -1); /* Safe, result is ASCII. */
  13489. duk_replace(thr, idx);
  13490. return ret;
  13491. type_error:
  13492. DUK_ERROR_TYPE(thr, DUK_STR_BASE64_ENCODE_FAILED);
  13493. return NULL; /* never here */
  13494. }
  13495. DUK_EXTERNAL void duk_base64_decode(duk_hthread *thr, duk_idx_t idx) {
  13496. const duk_uint8_t *src;
  13497. duk_size_t srclen;
  13498. duk_size_t dstlen;
  13499. duk_uint8_t *dst;
  13500. duk_uint8_t *dst_final;
  13501. duk_bool_t retval;
  13502. DUK_ASSERT_API_ENTRY(thr);
  13503. /* XXX: optimize for buffer inputs: no need to coerce to a string
  13504. * which causes an unnecessary interning.
  13505. */
  13506. idx = duk_require_normalize_index(thr, idx);
  13507. src = duk__prep_codec_arg(thr, idx, &srclen);
  13508. /* Computation must not wrap, only srclen + 3 is at risk of
  13509. * wrapping because after that the number gets smaller.
  13510. * This limit works for 32-bit size_t:
  13511. * 0x100000000 - 3 - 1 = 4294967292
  13512. */
  13513. if (srclen > 4294967292UL) {
  13514. goto type_error;
  13515. }
  13516. dstlen = (srclen + 3) / 4 * 3; /* upper limit, assuming no whitespace etc */
  13517. dst = (duk_uint8_t *) duk_push_dynamic_buffer(thr, dstlen);
  13518. /* Note: for dstlen=0, dst may be NULL */
  13519. retval = duk__base64_decode_helper((const duk_uint8_t *) src, srclen, dst, &dst_final);
  13520. if (!retval) {
  13521. goto type_error;
  13522. }
  13523. /* XXX: convert to fixed buffer? */
  13524. (void) duk_resize_buffer(thr, -1, (duk_size_t) (dst_final - dst));
  13525. duk_replace(thr, idx);
  13526. return;
  13527. type_error:
  13528. DUK_ERROR_TYPE(thr, DUK_STR_BASE64_DECODE_FAILED);
  13529. }
  13530. DUK_EXTERNAL const char *duk_hex_encode(duk_hthread *thr, duk_idx_t idx) {
  13531. const duk_uint8_t *inp;
  13532. duk_size_t len;
  13533. duk_size_t i;
  13534. duk_uint8_t *buf;
  13535. const char *ret;
  13536. #if defined(DUK_USE_HEX_FASTPATH)
  13537. duk_size_t len_safe;
  13538. duk_uint16_t *p16;
  13539. #endif
  13540. DUK_ASSERT_API_ENTRY(thr);
  13541. idx = duk_require_normalize_index(thr, idx);
  13542. inp = duk__prep_codec_arg(thr, idx, &len);
  13543. DUK_ASSERT(inp != NULL || len == 0);
  13544. /* Fixed buffer, no zeroing because we'll fill all the data. */
  13545. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len * 2);
  13546. DUK_ASSERT(buf != NULL);
  13547. #if defined(DUK_USE_HEX_FASTPATH)
  13548. DUK_ASSERT((((duk_size_t) buf) & 0x01U) == 0); /* pointer is aligned, guaranteed for fixed buffer */
  13549. p16 = (duk_uint16_t *) (void *) buf;
  13550. len_safe = len & ~0x03U;
  13551. for (i = 0; i < len_safe; i += 4) {
  13552. p16[0] = duk_hex_enctab[inp[i]];
  13553. p16[1] = duk_hex_enctab[inp[i + 1]];
  13554. p16[2] = duk_hex_enctab[inp[i + 2]];
  13555. p16[3] = duk_hex_enctab[inp[i + 3]];
  13556. p16 += 4;
  13557. }
  13558. for (; i < len; i++) {
  13559. *p16++ = duk_hex_enctab[inp[i]];
  13560. }
  13561. #else /* DUK_USE_HEX_FASTPATH */
  13562. for (i = 0; i < len; i++) {
  13563. duk_small_uint_t t;
  13564. t = (duk_small_uint_t) inp[i];
  13565. buf[i*2 + 0] = duk_lc_digits[t >> 4];
  13566. buf[i*2 + 1] = duk_lc_digits[t & 0x0f];
  13567. }
  13568. #endif /* DUK_USE_HEX_FASTPATH */
  13569. /* XXX: Using a string return value forces a string intern which is
  13570. * not always necessary. As a rough performance measure, hex encode
  13571. * time for tests/perf/test-hex-encode.js dropped from ~35s to ~15s
  13572. * without string coercion. Change to returning a buffer and let the
  13573. * caller coerce to string if necessary?
  13574. */
  13575. ret = duk_buffer_to_string(thr, -1); /* Safe, result is ASCII. */
  13576. duk_replace(thr, idx);
  13577. return ret;
  13578. }
  13579. DUK_EXTERNAL void duk_hex_decode(duk_hthread *thr, duk_idx_t idx) {
  13580. const duk_uint8_t *inp;
  13581. duk_size_t len;
  13582. duk_size_t i;
  13583. duk_int_t t;
  13584. duk_uint8_t *buf;
  13585. #if defined(DUK_USE_HEX_FASTPATH)
  13586. duk_int_t chk;
  13587. duk_uint8_t *p;
  13588. duk_size_t len_safe;
  13589. #endif
  13590. DUK_ASSERT_API_ENTRY(thr);
  13591. idx = duk_require_normalize_index(thr, idx);
  13592. inp = duk__prep_codec_arg(thr, idx, &len);
  13593. DUK_ASSERT(inp != NULL || len == 0);
  13594. if (len & 0x01) {
  13595. goto type_error;
  13596. }
  13597. /* Fixed buffer, no zeroing because we'll fill all the data. */
  13598. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len / 2);
  13599. DUK_ASSERT(buf != NULL);
  13600. #if defined(DUK_USE_HEX_FASTPATH)
  13601. p = buf;
  13602. len_safe = len & ~0x07U;
  13603. for (i = 0; i < len_safe; i += 8) {
  13604. t = ((duk_int_t) duk_hex_dectab_shift4[inp[i]]) |
  13605. ((duk_int_t) duk_hex_dectab[inp[i + 1]]);
  13606. chk = t;
  13607. p[0] = (duk_uint8_t) t;
  13608. t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 2]]) |
  13609. ((duk_int_t) duk_hex_dectab[inp[i + 3]]);
  13610. chk |= t;
  13611. p[1] = (duk_uint8_t) t;
  13612. t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 4]]) |
  13613. ((duk_int_t) duk_hex_dectab[inp[i + 5]]);
  13614. chk |= t;
  13615. p[2] = (duk_uint8_t) t;
  13616. t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 6]]) |
  13617. ((duk_int_t) duk_hex_dectab[inp[i + 7]]);
  13618. chk |= t;
  13619. p[3] = (duk_uint8_t) t;
  13620. p += 4;
  13621. /* Check if any lookup above had a negative result. */
  13622. if (DUK_UNLIKELY(chk < 0)) {
  13623. goto type_error;
  13624. }
  13625. }
  13626. for (; i < len; i += 2) {
  13627. t = (((duk_int_t) duk_hex_dectab[inp[i]]) << 4) |
  13628. ((duk_int_t) duk_hex_dectab[inp[i + 1]]);
  13629. if (DUK_UNLIKELY(t < 0)) {
  13630. goto type_error;
  13631. }
  13632. *p++ = (duk_uint8_t) t;
  13633. }
  13634. #else /* DUK_USE_HEX_FASTPATH */
  13635. for (i = 0; i < len; i += 2) {
  13636. /* For invalid characters the value -1 gets extended to
  13637. * at least 16 bits. If either nybble is invalid, the
  13638. * resulting 't' will be < 0.
  13639. */
  13640. t = (((duk_int_t) duk_hex_dectab[inp[i]]) << 4) |
  13641. ((duk_int_t) duk_hex_dectab[inp[i + 1]]);
  13642. if (DUK_UNLIKELY(t < 0)) {
  13643. goto type_error;
  13644. }
  13645. buf[i >> 1] = (duk_uint8_t) t;
  13646. }
  13647. #endif /* DUK_USE_HEX_FASTPATH */
  13648. duk_replace(thr, idx);
  13649. return;
  13650. type_error:
  13651. DUK_ERROR_TYPE(thr, DUK_STR_HEX_DECODE_FAILED);
  13652. }
  13653. #if defined(DUK_USE_JSON_SUPPORT)
  13654. DUK_EXTERNAL const char *duk_json_encode(duk_hthread *thr, duk_idx_t idx) {
  13655. #if defined(DUK_USE_ASSERTIONS)
  13656. duk_idx_t top_at_entry;
  13657. #endif
  13658. const char *ret;
  13659. DUK_ASSERT_API_ENTRY(thr);
  13660. #if defined(DUK_USE_ASSERTIONS)
  13661. top_at_entry = duk_get_top(thr);
  13662. #endif
  13663. idx = duk_require_normalize_index(thr, idx);
  13664. duk_bi_json_stringify_helper(thr,
  13665. idx /*idx_value*/,
  13666. DUK_INVALID_INDEX /*idx_replacer*/,
  13667. DUK_INVALID_INDEX /*idx_space*/,
  13668. 0 /*flags*/);
  13669. DUK_ASSERT(duk_is_string(thr, -1));
  13670. duk_replace(thr, idx);
  13671. ret = duk_get_string(thr, idx);
  13672. DUK_ASSERT(duk_get_top(thr) == top_at_entry);
  13673. return ret;
  13674. }
  13675. DUK_EXTERNAL void duk_json_decode(duk_hthread *thr, duk_idx_t idx) {
  13676. #if defined(DUK_USE_ASSERTIONS)
  13677. duk_idx_t top_at_entry;
  13678. #endif
  13679. DUK_ASSERT_API_ENTRY(thr);
  13680. #if defined(DUK_USE_ASSERTIONS)
  13681. top_at_entry = duk_get_top(thr);
  13682. #endif
  13683. idx = duk_require_normalize_index(thr, idx);
  13684. duk_bi_json_parse_helper(thr,
  13685. idx /*idx_value*/,
  13686. DUK_INVALID_INDEX /*idx_reviver*/,
  13687. 0 /*flags*/);
  13688. duk_replace(thr, idx);
  13689. DUK_ASSERT(duk_get_top(thr) == top_at_entry);
  13690. }
  13691. #else /* DUK_USE_JSON_SUPPORT */
  13692. DUK_EXTERNAL const char *duk_json_encode(duk_hthread *thr, duk_idx_t idx) {
  13693. DUK_ASSERT_API_ENTRY(thr);
  13694. DUK_UNREF(idx);
  13695. DUK_ERROR_UNSUPPORTED(thr);
  13696. }
  13697. DUK_EXTERNAL void duk_json_decode(duk_hthread *thr, duk_idx_t idx) {
  13698. DUK_ASSERT_API_ENTRY(thr);
  13699. DUK_UNREF(idx);
  13700. DUK_ERROR_UNSUPPORTED(thr);
  13701. }
  13702. #endif /* DUK_USE_JSON_SUPPORT */
  13703. #line 1 "duk_api_compile.c"
  13704. /*
  13705. * Compilation and evaluation
  13706. */
  13707. /* #include duk_internal.h -> already included */
  13708. typedef struct duk__compile_raw_args duk__compile_raw_args;
  13709. struct duk__compile_raw_args {
  13710. duk_size_t src_length; /* should be first on 64-bit platforms */
  13711. const duk_uint8_t *src_buffer;
  13712. duk_uint_t flags;
  13713. };
  13714. /* Eval is just a wrapper now. */
  13715. DUK_EXTERNAL duk_int_t duk_eval_raw(duk_hthread *thr, const char *src_buffer, duk_size_t src_length, duk_uint_t flags) {
  13716. duk_int_t rc;
  13717. DUK_ASSERT_API_ENTRY(thr);
  13718. /* Note: strictness is *not* inherited from the current Duktape/C.
  13719. * This would be confusing because the current strictness state
  13720. * depends on whether we're running inside a Duktape/C activation
  13721. * (= strict mode) or outside of any activation (= non-strict mode).
  13722. * See tests/api/test-eval-strictness.c for more discussion.
  13723. */
  13724. /* [ ... source? filename? ] (depends on flags) */
  13725. rc = duk_compile_raw(thr, src_buffer, src_length, flags | DUK_COMPILE_EVAL); /* may be safe, or non-safe depending on flags */
  13726. /* [ ... closure/error ] */
  13727. if (rc != DUK_EXEC_SUCCESS) {
  13728. rc = DUK_EXEC_ERROR;
  13729. goto got_rc;
  13730. }
  13731. duk_push_global_object(thr); /* explicit 'this' binding, see GH-164 */
  13732. if (flags & DUK_COMPILE_SAFE) {
  13733. rc = duk_pcall_method(thr, 0);
  13734. } else {
  13735. duk_call_method(thr, 0);
  13736. rc = DUK_EXEC_SUCCESS;
  13737. }
  13738. /* [ ... result/error ] */
  13739. got_rc:
  13740. if (flags & DUK_COMPILE_NORESULT) {
  13741. duk_pop(thr);
  13742. }
  13743. return rc;
  13744. }
  13745. /* Helper which can be called both directly and with duk_safe_call(). */
  13746. DUK_LOCAL duk_ret_t duk__do_compile(duk_hthread *thr, void *udata) {
  13747. duk__compile_raw_args *comp_args;
  13748. duk_uint_t flags;
  13749. duk_hcompfunc *h_templ;
  13750. DUK_ASSERT_CTX_VALID(thr);
  13751. DUK_ASSERT(udata != NULL);
  13752. /* Note: strictness is not inherited from the current Duktape/C
  13753. * context. Otherwise it would not be possible to compile
  13754. * non-strict code inside a Duktape/C activation (which is
  13755. * always strict now). See tests/api/test-eval-strictness.c
  13756. * for discussion.
  13757. */
  13758. /* [ ... source? filename? ] (depends on flags) */
  13759. comp_args = (duk__compile_raw_args *) udata;
  13760. flags = comp_args->flags;
  13761. if (flags & DUK_COMPILE_NOFILENAME) {
  13762. /* Automatic filename: 'eval' or 'input'. */
  13763. duk_push_hstring_stridx(thr, (flags & DUK_COMPILE_EVAL) ? DUK_STRIDX_EVAL : DUK_STRIDX_INPUT);
  13764. }
  13765. /* [ ... source? filename ] */
  13766. if (!comp_args->src_buffer) {
  13767. duk_hstring *h_sourcecode;
  13768. h_sourcecode = duk_get_hstring(thr, -2);
  13769. if ((flags & DUK_COMPILE_NOSOURCE) || /* args incorrect */
  13770. (h_sourcecode == NULL)) { /* e.g. duk_push_string_file_raw() pushed undefined */
  13771. DUK_ERROR_TYPE(thr, DUK_STR_NO_SOURCECODE);
  13772. }
  13773. DUK_ASSERT(h_sourcecode != NULL);
  13774. comp_args->src_buffer = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_sourcecode);
  13775. comp_args->src_length = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sourcecode);
  13776. }
  13777. DUK_ASSERT(comp_args->src_buffer != NULL);
  13778. if (flags & DUK_COMPILE_FUNCTION) {
  13779. flags |= DUK_COMPILE_EVAL | DUK_COMPILE_FUNCEXPR;
  13780. }
  13781. /* [ ... source? filename ] */
  13782. duk_js_compile(thr, comp_args->src_buffer, comp_args->src_length, flags);
  13783. /* [ ... source? func_template ] */
  13784. if (flags & DUK_COMPILE_NOSOURCE) {
  13785. ;
  13786. } else {
  13787. duk_remove_m2(thr);
  13788. }
  13789. /* [ ... func_template ] */
  13790. h_templ = (duk_hcompfunc *) duk_known_hobject(thr, -1);
  13791. duk_js_push_closure(thr,
  13792. h_templ,
  13793. thr->builtins[DUK_BIDX_GLOBAL_ENV],
  13794. thr->builtins[DUK_BIDX_GLOBAL_ENV],
  13795. 1 /*add_auto_proto*/);
  13796. duk_remove_m2(thr); /* -> [ ... closure ] */
  13797. /* [ ... closure ] */
  13798. return 1;
  13799. }
  13800. DUK_EXTERNAL duk_int_t duk_compile_raw(duk_hthread *thr, const char *src_buffer, duk_size_t src_length, duk_uint_t flags) {
  13801. duk__compile_raw_args comp_args_alloc;
  13802. duk__compile_raw_args *comp_args = &comp_args_alloc;
  13803. DUK_ASSERT_API_ENTRY(thr);
  13804. if ((flags & DUK_COMPILE_STRLEN) && (src_buffer != NULL)) {
  13805. /* String length is computed here to avoid multiple evaluation
  13806. * of a macro argument in the calling side.
  13807. */
  13808. src_length = DUK_STRLEN(src_buffer);
  13809. }
  13810. comp_args->src_buffer = (const duk_uint8_t *) src_buffer;
  13811. comp_args->src_length = src_length;
  13812. comp_args->flags = flags;
  13813. /* [ ... source? filename? ] (depends on flags) */
  13814. if (flags & DUK_COMPILE_SAFE) {
  13815. duk_int_t rc;
  13816. duk_int_t nargs;
  13817. duk_int_t nrets = 1;
  13818. /* Arguments can be: [ source? filename? &comp_args] so that
  13819. * nargs is 1 to 3. Call site encodes the correct nargs count
  13820. * directly into flags.
  13821. */
  13822. nargs = flags & 0x07;
  13823. DUK_ASSERT(nargs == ((flags & DUK_COMPILE_NOSOURCE) ? 0 : 1) +
  13824. ((flags & DUK_COMPILE_NOFILENAME) ? 0 : 1));
  13825. rc = duk_safe_call(thr, duk__do_compile, (void *) comp_args, nargs, nrets);
  13826. /* [ ... closure ] */
  13827. return rc;
  13828. }
  13829. (void) duk__do_compile(thr, (void *) comp_args);
  13830. /* [ ... closure ] */
  13831. return DUK_EXEC_SUCCESS;
  13832. }
  13833. #line 1 "duk_api_debug.c"
  13834. /*
  13835. * Debugging related API calls
  13836. */
  13837. /* #include duk_internal.h -> already included */
  13838. #if defined(DUK_USE_JSON_SUPPORT)
  13839. DUK_EXTERNAL void duk_push_context_dump(duk_hthread *thr) {
  13840. duk_idx_t idx;
  13841. duk_idx_t top;
  13842. DUK_ASSERT_API_ENTRY(thr);
  13843. /* We don't duk_require_stack() here now, but rely on the caller having
  13844. * enough space.
  13845. */
  13846. top = duk_get_top(thr);
  13847. duk_push_array(thr);
  13848. for (idx = 0; idx < top; idx++) {
  13849. duk_dup(thr, idx);
  13850. duk_put_prop_index(thr, -2, (duk_uarridx_t) idx);
  13851. }
  13852. /* XXX: conversion errors should not propagate outwards.
  13853. * Perhaps values need to be coerced individually?
  13854. */
  13855. duk_bi_json_stringify_helper(thr,
  13856. duk_get_top_index(thr), /*idx_value*/
  13857. DUK_INVALID_INDEX, /*idx_replacer*/
  13858. DUK_INVALID_INDEX, /*idx_space*/
  13859. DUK_JSON_FLAG_EXT_CUSTOM |
  13860. DUK_JSON_FLAG_ASCII_ONLY |
  13861. DUK_JSON_FLAG_AVOID_KEY_QUOTES /*flags*/);
  13862. duk_push_sprintf(thr, "ctx: top=%ld, stack=%s", (long) top, (const char *) duk_safe_to_string(thr, -1));
  13863. duk_replace(thr, -3); /* [ ... arr jsonx(arr) res ] -> [ ... res jsonx(arr) ] */
  13864. duk_pop(thr);
  13865. DUK_ASSERT(duk_is_string(thr, -1));
  13866. }
  13867. #else /* DUK_USE_JSON_SUPPORT */
  13868. DUK_EXTERNAL void duk_push_context_dump(duk_hthread *thr) {
  13869. DUK_ASSERT_API_ENTRY(thr);
  13870. DUK_ERROR_UNSUPPORTED(thr);
  13871. }
  13872. #endif /* DUK_USE_JSON_SUPPORT */
  13873. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  13874. DUK_EXTERNAL void duk_debugger_attach(duk_hthread *thr,
  13875. duk_debug_read_function read_cb,
  13876. duk_debug_write_function write_cb,
  13877. duk_debug_peek_function peek_cb,
  13878. duk_debug_read_flush_function read_flush_cb,
  13879. duk_debug_write_flush_function write_flush_cb,
  13880. duk_debug_request_function request_cb,
  13881. duk_debug_detached_function detached_cb,
  13882. void *udata) {
  13883. duk_heap *heap;
  13884. const char *str;
  13885. duk_size_t len;
  13886. /* XXX: should there be an error or an automatic detach if
  13887. * already attached?
  13888. */
  13889. DUK_D(DUK_DPRINT("application called duk_debugger_attach()"));
  13890. DUK_ASSERT_API_ENTRY(thr);
  13891. DUK_ASSERT(read_cb != NULL);
  13892. DUK_ASSERT(write_cb != NULL);
  13893. /* Other callbacks are optional. */
  13894. heap = thr->heap;
  13895. heap->dbg_read_cb = read_cb;
  13896. heap->dbg_write_cb = write_cb;
  13897. heap->dbg_peek_cb = peek_cb;
  13898. heap->dbg_read_flush_cb = read_flush_cb;
  13899. heap->dbg_write_flush_cb = write_flush_cb;
  13900. heap->dbg_request_cb = request_cb;
  13901. heap->dbg_detached_cb = detached_cb;
  13902. heap->dbg_udata = udata;
  13903. heap->dbg_have_next_byte = 0;
  13904. /* Start in paused state. */
  13905. heap->dbg_processing = 0;
  13906. heap->dbg_state_dirty = 0;
  13907. heap->dbg_force_restart = 0;
  13908. heap->dbg_pause_flags = 0;
  13909. heap->dbg_pause_act = NULL;
  13910. heap->dbg_pause_startline = 0;
  13911. heap->dbg_exec_counter = 0;
  13912. heap->dbg_last_counter = 0;
  13913. heap->dbg_last_time = 0.0;
  13914. duk_debug_set_paused(heap); /* XXX: overlap with fields above */
  13915. /* Send version identification and flush right afterwards. Note that
  13916. * we must write raw, unframed bytes here.
  13917. */
  13918. duk_push_sprintf(thr, "%ld %ld %s %s\n",
  13919. (long) DUK_DEBUG_PROTOCOL_VERSION,
  13920. (long) DUK_VERSION,
  13921. (const char *) DUK_GIT_DESCRIBE,
  13922. (const char *) DUK_USE_TARGET_INFO);
  13923. str = duk_get_lstring(thr, -1, &len);
  13924. DUK_ASSERT(str != NULL);
  13925. duk_debug_write_bytes(thr, (const duk_uint8_t *) str, len);
  13926. duk_debug_write_flush(thr);
  13927. duk_pop(thr);
  13928. }
  13929. DUK_EXTERNAL void duk_debugger_detach(duk_hthread *thr) {
  13930. DUK_D(DUK_DPRINT("application called duk_debugger_detach()"));
  13931. DUK_ASSERT_API_ENTRY(thr);
  13932. DUK_ASSERT(thr->heap != NULL);
  13933. /* Can be called multiple times with no harm. */
  13934. duk_debug_do_detach(thr->heap);
  13935. }
  13936. DUK_EXTERNAL void duk_debugger_cooperate(duk_hthread *thr) {
  13937. duk_bool_t processed_messages;
  13938. DUK_ASSERT_API_ENTRY(thr);
  13939. DUK_ASSERT(thr->heap != NULL);
  13940. if (!duk_debug_is_attached(thr->heap)) {
  13941. return;
  13942. }
  13943. if (thr->callstack_curr != NULL || thr->heap->dbg_processing) {
  13944. /* Calling duk_debugger_cooperate() while Duktape is being
  13945. * called into is not supported. This is not a 100% check
  13946. * but prevents any damage in most cases.
  13947. */
  13948. return;
  13949. }
  13950. processed_messages = duk_debug_process_messages(thr, 1 /*no_block*/);
  13951. DUK_UNREF(processed_messages);
  13952. }
  13953. DUK_EXTERNAL duk_bool_t duk_debugger_notify(duk_hthread *thr, duk_idx_t nvalues) {
  13954. duk_idx_t top;
  13955. duk_idx_t idx;
  13956. duk_bool_t ret = 0;
  13957. DUK_ASSERT_API_ENTRY(thr);
  13958. DUK_ASSERT(thr->heap != NULL);
  13959. DUK_D(DUK_DPRINT("application called duk_debugger_notify() with nvalues=%ld", (long) nvalues));
  13960. top = duk_get_top(thr);
  13961. if (top < nvalues) {
  13962. DUK_ERROR_RANGE(thr, "not enough stack values for notify");
  13963. return ret; /* unreachable */
  13964. }
  13965. if (duk_debug_is_attached(thr->heap)) {
  13966. duk_debug_write_notify(thr, DUK_DBG_CMD_APPNOTIFY);
  13967. for (idx = top - nvalues; idx < top; idx++) {
  13968. duk_tval *tv = DUK_GET_TVAL_POSIDX(thr, idx);
  13969. duk_debug_write_tval(thr, tv);
  13970. }
  13971. duk_debug_write_eom(thr);
  13972. /* Return non-zero (true) if we have a good reason to believe
  13973. * the notify was delivered; if we're still attached at least
  13974. * a transport error was not indicated by the transport write
  13975. * callback. This is not a 100% guarantee of course.
  13976. */
  13977. if (duk_debug_is_attached(thr->heap)) {
  13978. ret = 1;
  13979. }
  13980. }
  13981. duk_pop_n(thr, nvalues);
  13982. return ret;
  13983. }
  13984. DUK_EXTERNAL void duk_debugger_pause(duk_hthread *thr) {
  13985. DUK_ASSERT_API_ENTRY(thr);
  13986. DUK_ASSERT(thr->heap != NULL);
  13987. DUK_D(DUK_DPRINT("application called duk_debugger_pause()"));
  13988. /* Treat like a debugger statement: ignore when not attached. */
  13989. if (duk_debug_is_attached(thr->heap)) {
  13990. if (duk_debug_is_paused(thr->heap)) {
  13991. DUK_D(DUK_DPRINT("duk_debugger_pause() called when already paused; ignoring"));
  13992. } else {
  13993. duk_debug_set_paused(thr->heap);
  13994. /* Pause on the next opcode executed. This is always safe to do even
  13995. * inside the debugger message loop: the interrupt counter will be reset
  13996. * to its proper value when the message loop exits.
  13997. */
  13998. thr->interrupt_init = 1;
  13999. thr->interrupt_counter = 0;
  14000. }
  14001. }
  14002. }
  14003. #else /* DUK_USE_DEBUGGER_SUPPORT */
  14004. DUK_EXTERNAL void duk_debugger_attach(duk_hthread *thr,
  14005. duk_debug_read_function read_cb,
  14006. duk_debug_write_function write_cb,
  14007. duk_debug_peek_function peek_cb,
  14008. duk_debug_read_flush_function read_flush_cb,
  14009. duk_debug_write_flush_function write_flush_cb,
  14010. duk_debug_request_function request_cb,
  14011. duk_debug_detached_function detached_cb,
  14012. void *udata) {
  14013. DUK_ASSERT_API_ENTRY(thr);
  14014. DUK_UNREF(read_cb);
  14015. DUK_UNREF(write_cb);
  14016. DUK_UNREF(peek_cb);
  14017. DUK_UNREF(read_flush_cb);
  14018. DUK_UNREF(write_flush_cb);
  14019. DUK_UNREF(request_cb);
  14020. DUK_UNREF(detached_cb);
  14021. DUK_UNREF(udata);
  14022. DUK_ERROR_TYPE(thr, "no debugger support");
  14023. }
  14024. DUK_EXTERNAL void duk_debugger_detach(duk_hthread *thr) {
  14025. DUK_ASSERT_API_ENTRY(thr);
  14026. DUK_ERROR_TYPE(thr, "no debugger support");
  14027. }
  14028. DUK_EXTERNAL void duk_debugger_cooperate(duk_hthread *thr) {
  14029. /* nop */
  14030. DUK_ASSERT_API_ENTRY(thr);
  14031. DUK_UNREF(thr);
  14032. }
  14033. DUK_EXTERNAL duk_bool_t duk_debugger_notify(duk_hthread *thr, duk_idx_t nvalues) {
  14034. duk_idx_t top;
  14035. DUK_ASSERT_API_ENTRY(thr);
  14036. top = duk_get_top(thr);
  14037. if (top < nvalues) {
  14038. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  14039. return 0; /* unreachable */
  14040. }
  14041. /* No debugger support, just pop values. */
  14042. duk_pop_n(thr, nvalues);
  14043. return 0;
  14044. }
  14045. DUK_EXTERNAL void duk_debugger_pause(duk_hthread *thr) {
  14046. /* Treat like debugger statement: nop */
  14047. DUK_ASSERT_API_ENTRY(thr);
  14048. DUK_UNREF(thr);
  14049. }
  14050. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  14051. #line 1 "duk_api_heap.c"
  14052. /*
  14053. * Heap creation and destruction
  14054. */
  14055. /* #include duk_internal.h -> already included */
  14056. typedef struct duk_internal_thread_state duk_internal_thread_state;
  14057. struct duk_internal_thread_state {
  14058. duk_ljstate lj;
  14059. duk_bool_t creating_error;
  14060. duk_hthread *curr_thread;
  14061. duk_int_t call_recursion_depth;
  14062. };
  14063. DUK_EXTERNAL duk_hthread *duk_create_heap(duk_alloc_function alloc_func,
  14064. duk_realloc_function realloc_func,
  14065. duk_free_function free_func,
  14066. void *heap_udata,
  14067. duk_fatal_function fatal_handler) {
  14068. duk_heap *heap = NULL;
  14069. duk_hthread *thr;
  14070. /* Assume that either all memory funcs are NULL or non-NULL, mixed
  14071. * cases will now be unsafe.
  14072. */
  14073. /* XXX: just assert non-NULL values here and make caller arguments
  14074. * do the defaulting to the default implementations (smaller code)?
  14075. */
  14076. if (!alloc_func) {
  14077. DUK_ASSERT(realloc_func == NULL);
  14078. DUK_ASSERT(free_func == NULL);
  14079. #if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS)
  14080. alloc_func = duk_default_alloc_function;
  14081. realloc_func = duk_default_realloc_function;
  14082. free_func = duk_default_free_function;
  14083. #else
  14084. DUK_D(DUK_DPRINT("no allocation functions given and no default providers"));
  14085. return NULL;
  14086. #endif
  14087. } else {
  14088. DUK_ASSERT(realloc_func != NULL);
  14089. DUK_ASSERT(free_func != NULL);
  14090. }
  14091. if (!fatal_handler) {
  14092. fatal_handler = duk_default_fatal_handler;
  14093. }
  14094. DUK_ASSERT(alloc_func != NULL);
  14095. DUK_ASSERT(realloc_func != NULL);
  14096. DUK_ASSERT(free_func != NULL);
  14097. DUK_ASSERT(fatal_handler != NULL);
  14098. heap = duk_heap_alloc(alloc_func, realloc_func, free_func, heap_udata, fatal_handler);
  14099. if (!heap) {
  14100. return NULL;
  14101. }
  14102. thr = heap->heap_thread;
  14103. DUK_ASSERT(thr != NULL);
  14104. DUK_ASSERT(thr->heap != NULL);
  14105. return thr;
  14106. }
  14107. DUK_EXTERNAL void duk_destroy_heap(duk_hthread *thr) {
  14108. duk_heap *heap;
  14109. if (!thr) {
  14110. return;
  14111. }
  14112. DUK_ASSERT_API_ENTRY(thr);
  14113. heap = thr->heap;
  14114. DUK_ASSERT(heap != NULL);
  14115. duk_heap_free(heap);
  14116. }
  14117. DUK_EXTERNAL void duk_suspend(duk_hthread *thr, duk_thread_state *state) {
  14118. duk_internal_thread_state *snapshot = (duk_internal_thread_state *) (void *) state;
  14119. duk_heap *heap;
  14120. duk_ljstate *lj;
  14121. DUK_ASSERT_API_ENTRY(thr);
  14122. DUK_ASSERT(thr->heap != NULL);
  14123. DUK_ASSERT(state != NULL); /* unvalidated */
  14124. /* Currently not supported when called from within a finalizer.
  14125. * If that is done, the finalizer will remain running indefinitely,
  14126. * preventing other finalizers from executing. The assert is a bit
  14127. * wider, checking that it would be OK to run pending finalizers.
  14128. */
  14129. DUK_ASSERT(thr->heap->pf_prevent_count == 0);
  14130. /* Currently not supported to duk_suspend() from an errCreate()
  14131. * call.
  14132. */
  14133. DUK_ASSERT(thr->heap->creating_error == 0);
  14134. heap = thr->heap;
  14135. lj = &heap->lj;
  14136. duk_push_tval(thr, &lj->value1);
  14137. duk_push_tval(thr, &lj->value2);
  14138. /* XXX: creating_error == 0 is asserted above, so no need to store. */
  14139. DUK_MEMCPY((void *) &snapshot->lj, (const void *) lj, sizeof(duk_ljstate));
  14140. snapshot->creating_error = heap->creating_error;
  14141. snapshot->curr_thread = heap->curr_thread;
  14142. snapshot->call_recursion_depth = heap->call_recursion_depth;
  14143. lj->jmpbuf_ptr = NULL;
  14144. lj->type = DUK_LJ_TYPE_UNKNOWN;
  14145. DUK_TVAL_SET_UNDEFINED(&lj->value1);
  14146. DUK_TVAL_SET_UNDEFINED(&lj->value2);
  14147. heap->creating_error = 0;
  14148. heap->curr_thread = NULL;
  14149. heap->call_recursion_depth = 0;
  14150. }
  14151. DUK_EXTERNAL void duk_resume(duk_hthread *thr, const duk_thread_state *state) {
  14152. const duk_internal_thread_state *snapshot = (const duk_internal_thread_state *) (const void *) state;
  14153. duk_heap *heap;
  14154. DUK_ASSERT_API_ENTRY(thr);
  14155. DUK_ASSERT(thr->heap != NULL);
  14156. DUK_ASSERT(state != NULL); /* unvalidated */
  14157. /* Shouldn't be necessary if duk_suspend() is called before
  14158. * duk_resume(), but assert in case API sequence is incorrect.
  14159. */
  14160. DUK_ASSERT(thr->heap->pf_prevent_count == 0);
  14161. DUK_ASSERT(thr->heap->creating_error == 0);
  14162. heap = thr->heap;
  14163. DUK_MEMCPY((void *) &heap->lj, (const void *) &snapshot->lj, sizeof(duk_ljstate));
  14164. heap->creating_error = snapshot->creating_error;
  14165. heap->curr_thread = snapshot->curr_thread;
  14166. heap->call_recursion_depth = snapshot->call_recursion_depth;
  14167. duk_pop_2(thr);
  14168. }
  14169. /* XXX: better place for this */
  14170. DUK_EXTERNAL void duk_set_global_object(duk_hthread *thr) {
  14171. duk_hobject *h_glob;
  14172. duk_hobject *h_prev_glob;
  14173. duk_hobjenv *h_env;
  14174. duk_hobject *h_prev_env;
  14175. DUK_ASSERT_API_ENTRY(thr);
  14176. DUK_D(DUK_DPRINT("replace global object with: %!T", duk_get_tval(thr, -1)));
  14177. h_glob = duk_require_hobject(thr, -1);
  14178. DUK_ASSERT(h_glob != NULL);
  14179. /*
  14180. * Replace global object.
  14181. */
  14182. h_prev_glob = thr->builtins[DUK_BIDX_GLOBAL];
  14183. DUK_UNREF(h_prev_glob);
  14184. thr->builtins[DUK_BIDX_GLOBAL] = h_glob;
  14185. DUK_HOBJECT_INCREF(thr, h_glob);
  14186. DUK_HOBJECT_DECREF_ALLOWNULL(thr, h_prev_glob); /* side effects, in theory (referenced by global env) */
  14187. /*
  14188. * Replace lexical environment for global scope
  14189. *
  14190. * Create a new object environment for the global lexical scope.
  14191. * We can't just reset the _Target property of the current one,
  14192. * because the lexical scope is shared by other threads with the
  14193. * same (initial) built-ins.
  14194. */
  14195. h_env = duk_hobjenv_alloc(thr,
  14196. DUK_HOBJECT_FLAG_EXTENSIBLE |
  14197. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV));
  14198. DUK_ASSERT(h_env != NULL);
  14199. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_env) == NULL);
  14200. DUK_ASSERT(h_env->target == NULL);
  14201. DUK_ASSERT(h_glob != NULL);
  14202. h_env->target = h_glob;
  14203. DUK_HOBJECT_INCREF(thr, h_glob);
  14204. DUK_ASSERT(h_env->has_this == 0);
  14205. /* [ ... new_glob ] */
  14206. h_prev_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  14207. thr->builtins[DUK_BIDX_GLOBAL_ENV] = (duk_hobject *) h_env;
  14208. DUK_HOBJECT_INCREF(thr, (duk_hobject *) h_env);
  14209. DUK_HOBJECT_DECREF_ALLOWNULL(thr, h_prev_env); /* side effects */
  14210. DUK_UNREF(h_env); /* without refcounts */
  14211. DUK_UNREF(h_prev_env);
  14212. /* [ ... new_glob ] */
  14213. duk_pop(thr);
  14214. /* [ ... ] */
  14215. }
  14216. #line 1 "duk_api_inspect.c"
  14217. /*
  14218. * Inspection
  14219. */
  14220. /* #include duk_internal.h -> already included */
  14221. /* For footprint efficient multiple value setting: arrays are much better than
  14222. * varargs, format string with parsing is often better than string pointer arrays.
  14223. */
  14224. DUK_LOCAL void duk__inspect_multiple_uint(duk_hthread *thr, const char *fmt, duk_int_t *vals) {
  14225. duk_int_t val;
  14226. const char *p;
  14227. const char *p_curr;
  14228. duk_size_t len;
  14229. for (p = fmt;;) {
  14230. len = DUK_STRLEN(p);
  14231. p_curr = p;
  14232. p += len + 1;
  14233. if (len == 0) {
  14234. /* Double NUL (= empty key) terminates. */
  14235. break;
  14236. }
  14237. val = *vals++;
  14238. if (val >= 0) {
  14239. /* Negative values are markers to skip key. */
  14240. duk_push_string(thr, p_curr);
  14241. duk_push_int(thr, val);
  14242. duk_put_prop(thr, -3);
  14243. }
  14244. }
  14245. }
  14246. /* Raw helper to extract internal information / statistics about a value.
  14247. * The return value is an object with properties that are version specific.
  14248. * The properties must not expose anything that would lead to security
  14249. * issues (e.g. exposing compiled function 'data' buffer might be an issue).
  14250. * Currently only counts and sizes and such are given so there shouldn't
  14251. * be security implications.
  14252. */
  14253. #define DUK__IDX_TYPE 0
  14254. #define DUK__IDX_ITAG 1
  14255. #define DUK__IDX_REFC 2
  14256. #define DUK__IDX_HBYTES 3
  14257. #define DUK__IDX_CLASS 4
  14258. #define DUK__IDX_PBYTES 5
  14259. #define DUK__IDX_ESIZE 6
  14260. #define DUK__IDX_ENEXT 7
  14261. #define DUK__IDX_ASIZE 8
  14262. #define DUK__IDX_HSIZE 9
  14263. #define DUK__IDX_BCBYTES 10
  14264. #define DUK__IDX_DBYTES 11
  14265. #define DUK__IDX_TSTATE 12
  14266. #define DUK__IDX_VARIANT 13
  14267. DUK_EXTERNAL void duk_inspect_value(duk_hthread *thr, duk_idx_t idx) {
  14268. duk_tval *tv;
  14269. duk_heaphdr *h;
  14270. /* The temporary values should be in an array rather than individual
  14271. * variables which (in practice) ensures that the compiler won't map
  14272. * them to registers and emit a lot of unnecessary shuffling code.
  14273. */
  14274. duk_int_t vals[14];
  14275. DUK_ASSERT_API_ENTRY(thr);
  14276. /* Assume two's complement and set everything to -1. */
  14277. DUK_MEMSET((void *) &vals, (int) 0xff, sizeof(vals));
  14278. DUK_ASSERT(vals[DUK__IDX_TYPE] == -1); /* spot check one */
  14279. tv = duk_get_tval_or_unused(thr, idx);
  14280. h = (DUK_TVAL_IS_HEAP_ALLOCATED(tv) ? DUK_TVAL_GET_HEAPHDR(tv) : NULL);
  14281. vals[DUK__IDX_TYPE] = duk_get_type_tval(tv);
  14282. vals[DUK__IDX_ITAG] = (duk_int_t) DUK_TVAL_GET_TAG(tv);
  14283. duk_push_bare_object(thr); /* Invalidates 'tv'. */
  14284. tv = NULL;
  14285. if (h == NULL) {
  14286. goto finish;
  14287. }
  14288. duk_push_pointer(thr, (void *) h);
  14289. duk_put_prop_string(thr, -2, "hptr");
  14290. #if 0
  14291. /* Covers a lot of information, e.g. buffer and string variants. */
  14292. duk_push_uint(thr, (duk_uint_t) DUK_HEAPHDR_GET_FLAGS(h));
  14293. duk_put_prop_string(thr, -2, "hflags");
  14294. #endif
  14295. #if defined(DUK_USE_REFERENCE_COUNTING)
  14296. vals[DUK__IDX_REFC] = (duk_int_t) DUK_HEAPHDR_GET_REFCOUNT(h);
  14297. #endif
  14298. vals[DUK__IDX_VARIANT] = 0;
  14299. /* Heaphdr size and additional allocation size, followed by
  14300. * type specific stuff (with varying value count).
  14301. */
  14302. switch ((duk_small_int_t) DUK_HEAPHDR_GET_TYPE(h)) {
  14303. case DUK_HTYPE_STRING: {
  14304. duk_hstring *h_str = (duk_hstring *) h;
  14305. vals[DUK__IDX_HBYTES] = (duk_int_t) (sizeof(duk_hstring) + DUK_HSTRING_GET_BYTELEN(h_str) + 1);
  14306. #if defined(DUK_USE_HSTRING_EXTDATA)
  14307. if (DUK_HSTRING_HAS_EXTDATA(h_str)) {
  14308. vals[DUK__IDX_VARIANT] = 1;
  14309. }
  14310. #endif
  14311. break;
  14312. }
  14313. case DUK_HTYPE_OBJECT: {
  14314. duk_hobject *h_obj = (duk_hobject *) h;
  14315. /* XXX: variants here are maybe pointless; class is enough? */
  14316. if (DUK_HOBJECT_IS_ARRAY(h_obj)) {
  14317. vals[DUK__IDX_HBYTES] = sizeof(duk_harray);
  14318. } else if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) {
  14319. vals[DUK__IDX_HBYTES] = sizeof(duk_hcompfunc);
  14320. } else if (DUK_HOBJECT_IS_NATFUNC(h_obj)) {
  14321. vals[DUK__IDX_HBYTES] = sizeof(duk_hnatfunc);
  14322. } else if (DUK_HOBJECT_IS_THREAD(h_obj)) {
  14323. vals[DUK__IDX_HBYTES] = sizeof(duk_hthread);
  14324. vals[DUK__IDX_TSTATE] = ((duk_hthread *) h_obj)->state;
  14325. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  14326. } else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
  14327. vals[DUK__IDX_HBYTES] = sizeof(duk_hbufobj);
  14328. /* XXX: some size information */
  14329. #endif
  14330. } else {
  14331. vals[DUK__IDX_HBYTES] = (duk_small_uint_t) sizeof(duk_hobject);
  14332. }
  14333. vals[DUK__IDX_CLASS] = (duk_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h_obj);
  14334. vals[DUK__IDX_PBYTES] = (duk_int_t) DUK_HOBJECT_P_ALLOC_SIZE(h_obj),
  14335. vals[DUK__IDX_ESIZE] = (duk_int_t) DUK_HOBJECT_GET_ESIZE(h_obj);
  14336. vals[DUK__IDX_ENEXT] = (duk_int_t) DUK_HOBJECT_GET_ENEXT(h_obj);
  14337. vals[DUK__IDX_ASIZE] = (duk_int_t) DUK_HOBJECT_GET_ASIZE(h_obj);
  14338. vals[DUK__IDX_HSIZE] = (duk_int_t) DUK_HOBJECT_GET_HSIZE(h_obj);
  14339. /* Note: e_next indicates the number of gc-reachable entries
  14340. * in the entry part, and also indicates the index where the
  14341. * next new property would be inserted. It does *not* indicate
  14342. * the number of non-NULL keys present in the object. That
  14343. * value could be counted separately but requires a pass through
  14344. * the key list.
  14345. */
  14346. if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) {
  14347. duk_hbuffer *h_data = (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(thr->heap, (duk_hcompfunc *) h_obj);
  14348. vals[DUK__IDX_BCBYTES] = (duk_int_t) (h_data ? DUK_HBUFFER_GET_SIZE(h_data) : 0);
  14349. }
  14350. break;
  14351. }
  14352. case DUK_HTYPE_BUFFER: {
  14353. duk_hbuffer *h_buf = (duk_hbuffer *) h;
  14354. if (DUK_HBUFFER_HAS_DYNAMIC(h_buf)) {
  14355. if (DUK_HBUFFER_HAS_EXTERNAL(h_buf)) {
  14356. vals[DUK__IDX_VARIANT] = 2; /* buffer variant 2: external */
  14357. vals[DUK__IDX_HBYTES] = (duk_uint_t) (sizeof(duk_hbuffer_external));
  14358. } else {
  14359. /* When alloc_size == 0 the second allocation may not
  14360. * actually exist.
  14361. */
  14362. vals[DUK__IDX_VARIANT] = 1; /* buffer variant 1: dynamic */
  14363. vals[DUK__IDX_HBYTES] = (duk_uint_t) (sizeof(duk_hbuffer_dynamic));
  14364. }
  14365. vals[DUK__IDX_DBYTES] = (duk_int_t) (DUK_HBUFFER_GET_SIZE(h_buf));
  14366. } else {
  14367. DUK_ASSERT(vals[DUK__IDX_VARIANT] == 0); /* buffer variant 0: fixed */
  14368. vals[DUK__IDX_HBYTES] = (duk_int_t) (sizeof(duk_hbuffer_fixed) + DUK_HBUFFER_GET_SIZE(h_buf));
  14369. }
  14370. break;
  14371. }
  14372. }
  14373. finish:
  14374. duk__inspect_multiple_uint(thr,
  14375. "type" "\x00" "itag" "\x00" "refc" "\x00" "hbytes" "\x00" "class" "\x00"
  14376. "pbytes" "\x00" "esize" "\x00" "enext" "\x00" "asize" "\x00" "hsize" "\x00"
  14377. "bcbytes" "\x00" "dbytes" "\x00" "tstate" "\x00" "variant" "\x00" "\x00",
  14378. (duk_int_t *) &vals);
  14379. }
  14380. DUK_EXTERNAL void duk_inspect_callstack_entry(duk_hthread *thr, duk_int_t level) {
  14381. duk_activation *act;
  14382. duk_uint_fast32_t pc;
  14383. duk_uint_fast32_t line;
  14384. DUK_ASSERT_API_ENTRY(thr);
  14385. /* -1 = top callstack entry
  14386. * -2 = caller of level -1
  14387. * etc
  14388. */
  14389. act = duk_hthread_get_activation_for_level(thr, level);
  14390. if (act == NULL) {
  14391. duk_push_undefined(thr);
  14392. return;
  14393. }
  14394. duk_push_bare_object(thr);
  14395. /* Relevant PC is just before current one because PC is
  14396. * post-incremented. This should match what error augment
  14397. * code does.
  14398. */
  14399. pc = duk_hthread_get_act_prev_pc(thr, act);
  14400. duk_push_tval(thr, &act->tv_func);
  14401. duk_push_uint(thr, (duk_uint_t) pc);
  14402. duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_PC);
  14403. #if defined(DUK_USE_PC2LINE)
  14404. line = duk_hobject_pc2line_query(thr, -1, pc);
  14405. #else
  14406. line = 0;
  14407. #endif
  14408. duk_push_uint(thr, (duk_uint_t) line);
  14409. duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_LINE_NUMBER);
  14410. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_LC_FUNCTION);
  14411. /* Providing access to e.g. act->lex_env would be dangerous: these
  14412. * internal structures must never be accessible to the application.
  14413. * Duktape relies on them having consistent data, and this consistency
  14414. * is only asserted for, not checked for.
  14415. */
  14416. }
  14417. /* automatic undefs */
  14418. #undef DUK__IDX_ASIZE
  14419. #undef DUK__IDX_BCBYTES
  14420. #undef DUK__IDX_CLASS
  14421. #undef DUK__IDX_DBYTES
  14422. #undef DUK__IDX_ENEXT
  14423. #undef DUK__IDX_ESIZE
  14424. #undef DUK__IDX_HBYTES
  14425. #undef DUK__IDX_HSIZE
  14426. #undef DUK__IDX_ITAG
  14427. #undef DUK__IDX_PBYTES
  14428. #undef DUK__IDX_REFC
  14429. #undef DUK__IDX_TSTATE
  14430. #undef DUK__IDX_TYPE
  14431. #undef DUK__IDX_VARIANT
  14432. #line 1 "duk_api_memory.c"
  14433. /*
  14434. * Memory calls.
  14435. */
  14436. /* #include duk_internal.h -> already included */
  14437. DUK_EXTERNAL void *duk_alloc_raw(duk_hthread *thr, duk_size_t size) {
  14438. DUK_ASSERT_API_ENTRY(thr);
  14439. return DUK_ALLOC_RAW(thr->heap, size);
  14440. }
  14441. DUK_EXTERNAL void duk_free_raw(duk_hthread *thr, void *ptr) {
  14442. DUK_ASSERT_API_ENTRY(thr);
  14443. DUK_FREE_RAW(thr->heap, ptr);
  14444. }
  14445. DUK_EXTERNAL void *duk_realloc_raw(duk_hthread *thr, void *ptr, duk_size_t size) {
  14446. DUK_ASSERT_API_ENTRY(thr);
  14447. return DUK_REALLOC_RAW(thr->heap, ptr, size);
  14448. }
  14449. DUK_EXTERNAL void *duk_alloc(duk_hthread *thr, duk_size_t size) {
  14450. DUK_ASSERT_API_ENTRY(thr);
  14451. return DUK_ALLOC(thr->heap, size);
  14452. }
  14453. DUK_EXTERNAL void duk_free(duk_hthread *thr, void *ptr) {
  14454. DUK_ASSERT_API_ENTRY(thr);
  14455. DUK_FREE_CHECKED(thr, ptr);
  14456. }
  14457. DUK_EXTERNAL void *duk_realloc(duk_hthread *thr, void *ptr, duk_size_t size) {
  14458. DUK_ASSERT_API_ENTRY(thr);
  14459. /*
  14460. * Note: since this is an exposed API call, there should be
  14461. * no way a mark-and-sweep could have a side effect on the
  14462. * memory allocation behind 'ptr'; the pointer should never
  14463. * be something that Duktape wants to change.
  14464. *
  14465. * Thus, no need to use DUK_REALLOC_INDIRECT (and we don't
  14466. * have the storage location here anyway).
  14467. */
  14468. return DUK_REALLOC(thr->heap, ptr, size);
  14469. }
  14470. DUK_EXTERNAL void duk_get_memory_functions(duk_hthread *thr, duk_memory_functions *out_funcs) {
  14471. duk_heap *heap;
  14472. DUK_ASSERT_API_ENTRY(thr);
  14473. DUK_ASSERT(out_funcs != NULL);
  14474. DUK_ASSERT(thr != NULL);
  14475. DUK_ASSERT(thr->heap != NULL);
  14476. heap = thr->heap;
  14477. out_funcs->alloc_func = heap->alloc_func;
  14478. out_funcs->realloc_func = heap->realloc_func;
  14479. out_funcs->free_func = heap->free_func;
  14480. out_funcs->udata = heap->heap_udata;
  14481. }
  14482. DUK_EXTERNAL void duk_gc(duk_hthread *thr, duk_uint_t flags) {
  14483. duk_heap *heap;
  14484. duk_small_uint_t ms_flags;
  14485. DUK_ASSERT_API_ENTRY(thr);
  14486. heap = thr->heap;
  14487. DUK_ASSERT(heap != NULL);
  14488. DUK_D(DUK_DPRINT("mark-and-sweep requested by application"));
  14489. DUK_ASSERT(DUK_GC_COMPACT == DUK_MS_FLAG_EMERGENCY); /* Compact flag is 1:1 with emergency flag which forces compaction. */
  14490. ms_flags = (duk_small_uint_t) flags;
  14491. duk_heap_mark_and_sweep(heap, ms_flags);
  14492. }
  14493. #line 1 "duk_api_object.c"
  14494. /*
  14495. * Object handling: property access and other support functions.
  14496. */
  14497. /* #include duk_internal.h -> already included */
  14498. /*
  14499. * Property handling
  14500. *
  14501. * The API exposes only the most common property handling functions.
  14502. * The caller can invoke Ecmascript built-ins for full control (e.g.
  14503. * defineProperty, getOwnPropertyDescriptor).
  14504. */
  14505. DUK_EXTERNAL duk_bool_t duk_get_prop(duk_hthread *thr, duk_idx_t obj_idx) {
  14506. duk_tval *tv_obj;
  14507. duk_tval *tv_key;
  14508. duk_bool_t rc;
  14509. DUK_ASSERT_API_ENTRY(thr);
  14510. /* Note: copying tv_obj and tv_key to locals to shield against a valstack
  14511. * resize is not necessary for a property get right now.
  14512. */
  14513. tv_obj = duk_require_tval(thr, obj_idx);
  14514. tv_key = duk_require_tval(thr, -1);
  14515. rc = duk_hobject_getprop(thr, tv_obj, tv_key);
  14516. DUK_ASSERT(rc == 0 || rc == 1);
  14517. /* a value is left on stack regardless of rc */
  14518. duk_remove_m2(thr); /* remove key */
  14519. DUK_ASSERT(duk_is_undefined(thr, -1) || rc == 1);
  14520. return rc; /* 1 if property found, 0 otherwise */
  14521. }
  14522. DUK_EXTERNAL duk_bool_t duk_get_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) {
  14523. DUK_ASSERT_API_ENTRY(thr);
  14524. DUK_ASSERT(key != NULL);
  14525. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14526. duk_push_string(thr, key);
  14527. return duk_get_prop(thr, obj_idx);
  14528. }
  14529. DUK_EXTERNAL duk_bool_t duk_get_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) {
  14530. DUK_ASSERT_API_ENTRY(thr);
  14531. DUK_ASSERT(key != NULL);
  14532. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14533. duk_push_lstring(thr, key, key_len);
  14534. return duk_get_prop(thr, obj_idx);
  14535. }
  14536. DUK_EXTERNAL duk_bool_t duk_get_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) {
  14537. DUK_ASSERT_API_ENTRY(thr);
  14538. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14539. duk_push_uarridx(thr, arr_idx);
  14540. return duk_get_prop(thr, obj_idx);
  14541. }
  14542. DUK_EXTERNAL duk_bool_t duk_get_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) {
  14543. DUK_ASSERT_API_ENTRY(thr);
  14544. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14545. duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */
  14546. return duk_get_prop(thr, obj_idx);
  14547. }
  14548. DUK_INTERNAL duk_bool_t duk_get_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) {
  14549. DUK_ASSERT_API_ENTRY(thr);
  14550. DUK_ASSERT_STRIDX_VALID(stridx);
  14551. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14552. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  14553. return duk_get_prop(thr, obj_idx);
  14554. }
  14555. DUK_INTERNAL duk_bool_t duk_get_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) {
  14556. return duk_get_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16),
  14557. (duk_small_uint_t) (packed_args & 0xffffUL));
  14558. }
  14559. DUK_INTERNAL duk_bool_t duk_get_prop_stridx_boolean(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_bool_t *out_has_prop) {
  14560. duk_bool_t rc;
  14561. DUK_ASSERT_API_ENTRY(thr);
  14562. DUK_ASSERT_STRIDX_VALID(stridx);
  14563. rc = duk_get_prop_stridx(thr, obj_idx, stridx);
  14564. if (out_has_prop) {
  14565. *out_has_prop = rc;
  14566. }
  14567. rc = duk_to_boolean(thr, -1);
  14568. DUK_ASSERT(rc == 0 || rc == 1);
  14569. duk_pop(thr);
  14570. return rc;
  14571. }
  14572. DUK_LOCAL duk_bool_t duk__put_prop_shared(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t idx_key) {
  14573. duk_tval *tv_obj;
  14574. duk_tval *tv_key;
  14575. duk_tval *tv_val;
  14576. duk_bool_t throw_flag;
  14577. duk_bool_t rc;
  14578. /* Note: copying tv_obj and tv_key to locals to shield against a valstack
  14579. * resize is not necessary for a property put right now (putprop protects
  14580. * against it internally).
  14581. */
  14582. /* Key and value indices are either (-2, -1) or (-1, -2). Given idx_key,
  14583. * idx_val is always (idx_key ^ 0x01).
  14584. */
  14585. DUK_ASSERT((idx_key == -2 && (idx_key ^ 1) == -1) ||
  14586. (idx_key == -1 && (idx_key ^ 1) == -2));
  14587. /* XXX: Direct access; faster validation. */
  14588. tv_obj = duk_require_tval(thr, obj_idx);
  14589. tv_key = duk_require_tval(thr, idx_key);
  14590. tv_val = duk_require_tval(thr, idx_key ^ 1);
  14591. throw_flag = duk_is_strict_call(thr);
  14592. rc = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, throw_flag);
  14593. DUK_ASSERT(rc == 0 || rc == 1);
  14594. duk_pop_2(thr); /* remove key and value */
  14595. return rc; /* 1 if property found, 0 otherwise */
  14596. }
  14597. DUK_EXTERNAL duk_bool_t duk_put_prop(duk_hthread *thr, duk_idx_t obj_idx) {
  14598. DUK_ASSERT_API_ENTRY(thr);
  14599. return duk__put_prop_shared(thr, obj_idx, -2);
  14600. }
  14601. DUK_EXTERNAL duk_bool_t duk_put_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) {
  14602. DUK_ASSERT_API_ENTRY(thr);
  14603. DUK_ASSERT(key != NULL);
  14604. /* Careful here and with other duk_put_prop_xxx() helpers: the
  14605. * target object and the property value may be in the same value
  14606. * stack slot (unusual, but still conceptually clear).
  14607. */
  14608. obj_idx = duk_normalize_index(thr, obj_idx);
  14609. (void) duk_push_string(thr, key);
  14610. return duk__put_prop_shared(thr, obj_idx, -1);
  14611. }
  14612. DUK_EXTERNAL duk_bool_t duk_put_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) {
  14613. DUK_ASSERT_API_ENTRY(thr);
  14614. DUK_ASSERT(key != NULL);
  14615. obj_idx = duk_normalize_index(thr, obj_idx);
  14616. (void) duk_push_lstring(thr, key, key_len);
  14617. return duk__put_prop_shared(thr, obj_idx, -1);
  14618. }
  14619. DUK_EXTERNAL duk_bool_t duk_put_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) {
  14620. DUK_ASSERT_API_ENTRY(thr);
  14621. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14622. duk_push_uarridx(thr, arr_idx);
  14623. return duk__put_prop_shared(thr, obj_idx, -1);
  14624. }
  14625. DUK_EXTERNAL duk_bool_t duk_put_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) {
  14626. DUK_ASSERT_API_ENTRY(thr);
  14627. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14628. duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */
  14629. return duk__put_prop_shared(thr, obj_idx, -1);
  14630. }
  14631. DUK_INTERNAL duk_bool_t duk_put_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) {
  14632. DUK_ASSERT_API_ENTRY(thr);
  14633. DUK_ASSERT_STRIDX_VALID(stridx);
  14634. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14635. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  14636. return duk__put_prop_shared(thr, obj_idx, -1);
  14637. }
  14638. DUK_INTERNAL duk_bool_t duk_put_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) {
  14639. return duk_put_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16),
  14640. (duk_small_uint_t) (packed_args & 0xffffUL));
  14641. }
  14642. DUK_EXTERNAL duk_bool_t duk_del_prop(duk_hthread *thr, duk_idx_t obj_idx) {
  14643. duk_tval *tv_obj;
  14644. duk_tval *tv_key;
  14645. duk_bool_t throw_flag;
  14646. duk_bool_t rc;
  14647. DUK_ASSERT_API_ENTRY(thr);
  14648. /* Note: copying tv_obj and tv_key to locals to shield against a valstack
  14649. * resize is not necessary for a property delete right now.
  14650. */
  14651. tv_obj = duk_require_tval(thr, obj_idx);
  14652. tv_key = duk_require_tval(thr, -1);
  14653. throw_flag = duk_is_strict_call(thr);
  14654. rc = duk_hobject_delprop(thr, tv_obj, tv_key, throw_flag);
  14655. DUK_ASSERT(rc == 0 || rc == 1);
  14656. duk_pop(thr); /* remove key */
  14657. return rc;
  14658. }
  14659. DUK_EXTERNAL duk_bool_t duk_del_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) {
  14660. DUK_ASSERT_API_ENTRY(thr);
  14661. DUK_ASSERT(key != NULL);
  14662. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14663. duk_push_string(thr, key);
  14664. return duk_del_prop(thr, obj_idx);
  14665. }
  14666. DUK_EXTERNAL duk_bool_t duk_del_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) {
  14667. DUK_ASSERT_API_ENTRY(thr);
  14668. DUK_ASSERT(key != NULL);
  14669. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14670. duk_push_lstring(thr, key, key_len);
  14671. return duk_del_prop(thr, obj_idx);
  14672. }
  14673. DUK_EXTERNAL duk_bool_t duk_del_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) {
  14674. DUK_ASSERT_API_ENTRY(thr);
  14675. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14676. duk_push_uarridx(thr, arr_idx);
  14677. return duk_del_prop(thr, obj_idx);
  14678. }
  14679. DUK_EXTERNAL duk_bool_t duk_del_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) {
  14680. DUK_ASSERT_API_ENTRY(thr);
  14681. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14682. duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */
  14683. return duk_del_prop(thr, obj_idx);
  14684. }
  14685. DUK_INTERNAL duk_bool_t duk_del_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) {
  14686. DUK_ASSERT_API_ENTRY(thr);
  14687. DUK_ASSERT_STRIDX_VALID(stridx);
  14688. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14689. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  14690. return duk_del_prop(thr, obj_idx);
  14691. }
  14692. #if 0
  14693. DUK_INTERNAL duk_bool_t duk_del_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) {
  14694. return duk_del_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16),
  14695. (duk_small_uint_t) (packed_args & 0xffffUL));
  14696. }
  14697. #endif
  14698. DUK_EXTERNAL duk_bool_t duk_has_prop(duk_hthread *thr, duk_idx_t obj_idx) {
  14699. duk_tval *tv_obj;
  14700. duk_tval *tv_key;
  14701. duk_bool_t rc;
  14702. DUK_ASSERT_API_ENTRY(thr);
  14703. /* Note: copying tv_obj and tv_key to locals to shield against a valstack
  14704. * resize is not necessary for a property existence check right now.
  14705. */
  14706. tv_obj = duk_require_tval(thr, obj_idx);
  14707. tv_key = duk_require_tval(thr, -1);
  14708. rc = duk_hobject_hasprop(thr, tv_obj, tv_key);
  14709. DUK_ASSERT(rc == 0 || rc == 1);
  14710. duk_pop(thr); /* remove key */
  14711. return rc; /* 1 if property found, 0 otherwise */
  14712. }
  14713. DUK_EXTERNAL duk_bool_t duk_has_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) {
  14714. DUK_ASSERT_API_ENTRY(thr);
  14715. DUK_ASSERT(key != NULL);
  14716. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14717. duk_push_string(thr, key);
  14718. return duk_has_prop(thr, obj_idx);
  14719. }
  14720. DUK_EXTERNAL duk_bool_t duk_has_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) {
  14721. DUK_ASSERT_API_ENTRY(thr);
  14722. DUK_ASSERT(key != NULL);
  14723. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14724. duk_push_lstring(thr, key, key_len);
  14725. return duk_has_prop(thr, obj_idx);
  14726. }
  14727. DUK_EXTERNAL duk_bool_t duk_has_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) {
  14728. DUK_ASSERT_API_ENTRY(thr);
  14729. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14730. duk_push_uarridx(thr, arr_idx);
  14731. return duk_has_prop(thr, obj_idx);
  14732. }
  14733. DUK_EXTERNAL duk_bool_t duk_has_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) {
  14734. DUK_ASSERT_API_ENTRY(thr);
  14735. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14736. duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */
  14737. return duk_has_prop(thr, obj_idx);
  14738. }
  14739. DUK_INTERNAL duk_bool_t duk_has_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) {
  14740. DUK_ASSERT_API_ENTRY(thr);
  14741. DUK_ASSERT_STRIDX_VALID(stridx);
  14742. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14743. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  14744. return duk_has_prop(thr, obj_idx);
  14745. }
  14746. #if 0
  14747. DUK_INTERNAL duk_bool_t duk_has_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) {
  14748. return duk_has_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16),
  14749. (duk_small_uint_t) (packed_args & 0xffffUL));
  14750. }
  14751. #endif
  14752. /* Define own property without inheritance lookups and such. This differs from
  14753. * [[DefineOwnProperty]] because special behaviors (like Array 'length') are
  14754. * not invoked by this method. The caller must be careful to invoke any such
  14755. * behaviors if necessary.
  14756. */
  14757. DUK_INTERNAL void duk_xdef_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t desc_flags) {
  14758. duk_hobject *obj;
  14759. duk_hstring *key;
  14760. DUK_ASSERT_API_ENTRY(thr);
  14761. obj = duk_require_hobject(thr, obj_idx);
  14762. DUK_ASSERT(obj != NULL);
  14763. key = duk_to_property_key_hstring(thr, -2);
  14764. DUK_ASSERT(key != NULL);
  14765. DUK_ASSERT(duk_require_tval(thr, -1) != NULL);
  14766. duk_hobject_define_property_internal(thr, obj, key, desc_flags);
  14767. duk_pop(thr); /* pop key */
  14768. }
  14769. DUK_INTERNAL void duk_xdef_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx, duk_small_uint_t desc_flags) {
  14770. duk_hobject *obj;
  14771. DUK_ASSERT_API_ENTRY(thr);
  14772. obj = duk_require_hobject(thr, obj_idx);
  14773. DUK_ASSERT(obj != NULL);
  14774. duk_hobject_define_property_internal_arridx(thr, obj, arr_idx, desc_flags);
  14775. /* value popped by call */
  14776. }
  14777. DUK_INTERNAL void duk_xdef_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_uint_t desc_flags) {
  14778. duk_hobject *obj;
  14779. duk_hstring *key;
  14780. DUK_ASSERT_API_ENTRY(thr);
  14781. DUK_ASSERT_STRIDX_VALID(stridx);
  14782. obj = duk_require_hobject(thr, obj_idx);
  14783. DUK_ASSERT(obj != NULL);
  14784. key = DUK_HTHREAD_GET_STRING(thr, stridx);
  14785. DUK_ASSERT(key != NULL);
  14786. DUK_ASSERT(duk_require_tval(thr, -1) != NULL);
  14787. duk_hobject_define_property_internal(thr, obj, key, desc_flags);
  14788. /* value popped by call */
  14789. }
  14790. DUK_INTERNAL void duk_xdef_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) {
  14791. duk_xdef_prop_stridx(thr, (duk_idx_t) (duk_int8_t) (packed_args >> 24),
  14792. (duk_small_uint_t) (packed_args >> 8) & 0xffffUL,
  14793. (duk_small_uint_t) (packed_args & 0xffL));
  14794. }
  14795. #if 0 /*unused*/
  14796. DUK_INTERNAL void duk_xdef_prop_stridx_builtin(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_int_t builtin_idx, duk_small_uint_t desc_flags) {
  14797. duk_hobject *obj;
  14798. duk_hstring *key;
  14799. DUK_ASSERT_API_ENTRY(thr);
  14800. DUK_ASSERT_STRIDX_VALID(stridx);
  14801. DUK_ASSERT_BIDX_VALID(builtin_idx);
  14802. obj = duk_require_hobject(thr, obj_idx);
  14803. DUK_ASSERT(obj != NULL);
  14804. key = DUK_HTHREAD_GET_STRING(thr, stridx);
  14805. DUK_ASSERT(key != NULL);
  14806. duk_push_hobject(thr, thr->builtins[builtin_idx]);
  14807. duk_hobject_define_property_internal(thr, obj, key, desc_flags);
  14808. /* value popped by call */
  14809. }
  14810. #endif
  14811. /* This is a rare property helper; it sets the global thrower (E5 Section 13.2.3)
  14812. * setter/getter into an object property. This is needed by the 'arguments'
  14813. * object creation code, function instance creation code, and Function.prototype.bind().
  14814. */
  14815. DUK_INTERNAL void duk_xdef_prop_stridx_thrower(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) {
  14816. DUK_ASSERT_API_ENTRY(thr);
  14817. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14818. duk_push_hstring_stridx(thr, stridx);
  14819. duk_push_hobject_bidx(thr, DUK_BIDX_TYPE_ERROR_THROWER);
  14820. duk_dup_top(thr);
  14821. duk_def_prop(thr, obj_idx, DUK_DEFPROP_HAVE_SETTER | DUK_DEFPROP_HAVE_GETTER | DUK_DEFPROP_FORCE); /* attributes always 0 */
  14822. }
  14823. /* Object.getOwnPropertyDescriptor() equivalent C binding. */
  14824. DUK_EXTERNAL void duk_get_prop_desc(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t flags) {
  14825. DUK_ASSERT_API_ENTRY(thr);
  14826. DUK_UNREF(flags); /* no flags defined yet */
  14827. duk_hobject_object_get_own_property_descriptor(thr, obj_idx); /* [ ... key ] -> [ ... desc ] */
  14828. }
  14829. /* Object.defineProperty() equivalent C binding. */
  14830. DUK_EXTERNAL void duk_def_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t flags) {
  14831. duk_idx_t idx_base;
  14832. duk_hobject *obj;
  14833. duk_hstring *key;
  14834. duk_idx_t idx_value;
  14835. duk_hobject *get;
  14836. duk_hobject *set;
  14837. duk_uint_t is_data_desc;
  14838. duk_uint_t is_acc_desc;
  14839. DUK_ASSERT_API_ENTRY(thr);
  14840. obj = duk_require_hobject(thr, obj_idx);
  14841. is_data_desc = flags & (DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_HAVE_WRITABLE);
  14842. is_acc_desc = flags & (DUK_DEFPROP_HAVE_GETTER | DUK_DEFPROP_HAVE_SETTER);
  14843. if (is_data_desc && is_acc_desc) {
  14844. /* "Have" flags must not be conflicting so that they would
  14845. * apply to both a plain property and an accessor at the same
  14846. * time.
  14847. */
  14848. goto fail_invalid_desc;
  14849. }
  14850. idx_base = duk_get_top_index(thr);
  14851. if (flags & DUK_DEFPROP_HAVE_SETTER) {
  14852. duk_require_type_mask(thr, idx_base, DUK_TYPE_MASK_UNDEFINED |
  14853. DUK_TYPE_MASK_OBJECT |
  14854. DUK_TYPE_MASK_LIGHTFUNC);
  14855. set = duk_get_hobject_promote_lfunc(thr, idx_base);
  14856. if (set != NULL && !DUK_HOBJECT_IS_CALLABLE(set)) {
  14857. goto fail_not_callable;
  14858. }
  14859. idx_base--;
  14860. } else {
  14861. set = NULL;
  14862. }
  14863. if (flags & DUK_DEFPROP_HAVE_GETTER) {
  14864. duk_require_type_mask(thr, idx_base, DUK_TYPE_MASK_UNDEFINED |
  14865. DUK_TYPE_MASK_OBJECT |
  14866. DUK_TYPE_MASK_LIGHTFUNC);
  14867. get = duk_get_hobject_promote_lfunc(thr, idx_base);
  14868. if (get != NULL && !DUK_HOBJECT_IS_CALLABLE(get)) {
  14869. goto fail_not_callable;
  14870. }
  14871. idx_base--;
  14872. } else {
  14873. get = NULL;
  14874. }
  14875. if (flags & DUK_DEFPROP_HAVE_VALUE) {
  14876. idx_value = idx_base;
  14877. idx_base--;
  14878. } else {
  14879. idx_value = (duk_idx_t) -1;
  14880. }
  14881. key = duk_to_property_key_hstring(thr, idx_base);
  14882. DUK_ASSERT(key != NULL);
  14883. duk_require_valid_index(thr, idx_base);
  14884. duk_hobject_define_property_helper(thr,
  14885. flags /*defprop_flags*/,
  14886. obj,
  14887. key,
  14888. idx_value,
  14889. get,
  14890. set,
  14891. 1 /*throw_flag*/);
  14892. /* Clean up stack */
  14893. duk_set_top(thr, idx_base);
  14894. /* [ ... obj ... ] */
  14895. return;
  14896. fail_invalid_desc:
  14897. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_DESCRIPTOR);
  14898. return;
  14899. fail_not_callable:
  14900. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CALLABLE);
  14901. return;
  14902. }
  14903. /*
  14904. * Object related
  14905. *
  14906. * Note: seal() and freeze() are accessible through Ecmascript bindings,
  14907. * and are not exposed through the API.
  14908. */
  14909. DUK_EXTERNAL void duk_compact(duk_hthread *thr, duk_idx_t obj_idx) {
  14910. duk_hobject *obj;
  14911. DUK_ASSERT_API_ENTRY(thr);
  14912. obj = duk_get_hobject(thr, obj_idx);
  14913. if (obj) {
  14914. /* Note: this may fail, caller should protect the call if necessary */
  14915. duk_hobject_compact_props(thr, obj);
  14916. }
  14917. }
  14918. DUK_INTERNAL void duk_compact_m1(duk_hthread *thr) {
  14919. DUK_ASSERT_API_ENTRY(thr);
  14920. duk_compact(thr, -1);
  14921. }
  14922. /* XXX: the duk_hobject_enum.c stack APIs should be reworked */
  14923. DUK_EXTERNAL void duk_enum(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t enum_flags) {
  14924. DUK_ASSERT_API_ENTRY(thr);
  14925. duk_dup(thr, obj_idx);
  14926. duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  14927. duk_hobject_enumerator_create(thr, enum_flags); /* [target] -> [enum] */
  14928. }
  14929. DUK_EXTERNAL duk_bool_t duk_next(duk_hthread *thr, duk_idx_t enum_index, duk_bool_t get_value) {
  14930. DUK_ASSERT_API_ENTRY(thr);
  14931. duk_require_hobject(thr, enum_index);
  14932. duk_dup(thr, enum_index);
  14933. return duk_hobject_enumerator_next(thr, get_value);
  14934. }
  14935. DUK_INTERNAL void duk_seal_freeze_raw(duk_hthread *thr, duk_idx_t obj_idx, duk_bool_t is_freeze) {
  14936. duk_tval *tv;
  14937. duk_hobject *h;
  14938. DUK_ASSERT_API_ENTRY(thr);
  14939. tv = duk_require_tval(thr, obj_idx);
  14940. DUK_ASSERT(tv != NULL);
  14941. /* Seal/freeze are quite rare in practice so it'd be nice to get the
  14942. * correct behavior simply via automatic promotion (at the cost of some
  14943. * memory churn). However, the promoted objects don't behave the same,
  14944. * e.g. promoted lightfuncs are extensible.
  14945. */
  14946. switch (DUK_TVAL_GET_TAG(tv)) {
  14947. case DUK_TAG_BUFFER:
  14948. /* Plain buffer: already sealed, but not frozen (and can't be frozen
  14949. * because index properties can't be made non-writable.
  14950. */
  14951. if (is_freeze) {
  14952. goto fail_cannot_freeze;
  14953. }
  14954. break;
  14955. case DUK_TAG_LIGHTFUNC:
  14956. /* Lightfunc: already sealed and frozen, success. */
  14957. break;
  14958. case DUK_TAG_OBJECT:
  14959. h = DUK_TVAL_GET_OBJECT(tv);
  14960. DUK_ASSERT(h != NULL);
  14961. if (is_freeze && DUK_HOBJECT_IS_BUFOBJ(h)) {
  14962. /* Buffer objects cannot be frozen because there's no internal
  14963. * support for making virtual array indices non-writable.
  14964. */
  14965. DUK_DD(DUK_DDPRINT("cannot freeze a buffer object"));
  14966. goto fail_cannot_freeze;
  14967. }
  14968. duk_hobject_object_seal_freeze_helper(thr, h, is_freeze);
  14969. /* Sealed and frozen objects cannot gain any more properties,
  14970. * so this is a good time to compact them.
  14971. */
  14972. duk_hobject_compact_props(thr, h);
  14973. break;
  14974. default:
  14975. /* ES2015 Sections 19.1.2.5, 19.1.2.17 */
  14976. break;
  14977. }
  14978. return;
  14979. fail_cannot_freeze:
  14980. DUK_ERROR_TYPE_INVALID_ARGS(thr); /* XXX: proper error message */
  14981. }
  14982. DUK_EXTERNAL void duk_seal(duk_hthread *thr, duk_idx_t obj_idx) {
  14983. DUK_ASSERT_API_ENTRY(thr);
  14984. duk_seal_freeze_raw(thr, obj_idx, 0 /*is_freeze*/);
  14985. }
  14986. DUK_EXTERNAL void duk_freeze(duk_hthread *thr, duk_idx_t obj_idx) {
  14987. DUK_ASSERT_API_ENTRY(thr);
  14988. duk_seal_freeze_raw(thr, obj_idx, 1 /*is_freeze*/);
  14989. }
  14990. /*
  14991. * Helpers for writing multiple properties
  14992. */
  14993. DUK_EXTERNAL void duk_put_function_list(duk_hthread *thr, duk_idx_t obj_idx, const duk_function_list_entry *funcs) {
  14994. const duk_function_list_entry *ent = funcs;
  14995. DUK_ASSERT_API_ENTRY(thr);
  14996. obj_idx = duk_require_normalize_index(thr, obj_idx);
  14997. if (ent != NULL) {
  14998. while (ent->key != NULL) {
  14999. duk_push_c_function(thr, ent->value, ent->nargs);
  15000. duk_put_prop_string(thr, obj_idx, ent->key);
  15001. ent++;
  15002. }
  15003. }
  15004. }
  15005. DUK_EXTERNAL void duk_put_number_list(duk_hthread *thr, duk_idx_t obj_idx, const duk_number_list_entry *numbers) {
  15006. const duk_number_list_entry *ent = numbers;
  15007. duk_tval *tv;
  15008. DUK_ASSERT_API_ENTRY(thr);
  15009. obj_idx = duk_require_normalize_index(thr, obj_idx);
  15010. if (ent != NULL) {
  15011. while (ent->key != NULL) {
  15012. tv = thr->valstack_top++;
  15013. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); /* value stack init policy */
  15014. DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv, ent->value); /* no need for decref/incref */
  15015. duk_put_prop_string(thr, obj_idx, ent->key);
  15016. ent++;
  15017. }
  15018. }
  15019. }
  15020. /*
  15021. * Shortcut for accessing global object properties
  15022. */
  15023. DUK_EXTERNAL duk_bool_t duk_get_global_string(duk_hthread *thr, const char *key) {
  15024. duk_bool_t ret;
  15025. DUK_ASSERT_API_ENTRY(thr);
  15026. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  15027. /* XXX: direct implementation */
  15028. duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]);
  15029. ret = duk_get_prop_string(thr, -1, key);
  15030. duk_remove_m2(thr);
  15031. return ret;
  15032. }
  15033. DUK_EXTERNAL duk_bool_t duk_get_global_lstring(duk_hthread *thr, const char *key, duk_size_t key_len) {
  15034. duk_bool_t ret;
  15035. DUK_ASSERT_API_ENTRY(thr);
  15036. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  15037. /* XXX: direct implementation */
  15038. duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]);
  15039. ret = duk_get_prop_lstring(thr, -1, key, key_len);
  15040. duk_remove_m2(thr);
  15041. return ret;
  15042. }
  15043. DUK_EXTERNAL duk_bool_t duk_put_global_string(duk_hthread *thr, const char *key) {
  15044. duk_bool_t ret;
  15045. DUK_ASSERT_API_ENTRY(thr);
  15046. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  15047. /* XXX: direct implementation */
  15048. duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]);
  15049. duk_insert(thr, -2);
  15050. ret = duk_put_prop_string(thr, -2, key); /* [ ... global val ] -> [ ... global ] */
  15051. duk_pop(thr);
  15052. return ret;
  15053. }
  15054. DUK_EXTERNAL duk_bool_t duk_put_global_lstring(duk_hthread *thr, const char *key, duk_size_t key_len) {
  15055. duk_bool_t ret;
  15056. DUK_ASSERT_API_ENTRY(thr);
  15057. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  15058. /* XXX: direct implementation */
  15059. duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]);
  15060. duk_insert(thr, -2);
  15061. ret = duk_put_prop_lstring(thr, -2, key, key_len); /* [ ... global val ] -> [ ... global ] */
  15062. duk_pop(thr);
  15063. return ret;
  15064. }
  15065. /*
  15066. * Object prototype
  15067. */
  15068. DUK_EXTERNAL void duk_get_prototype(duk_hthread *thr, duk_idx_t idx) {
  15069. duk_hobject *obj;
  15070. duk_hobject *proto;
  15071. DUK_ASSERT_API_ENTRY(thr);
  15072. obj = duk_require_hobject(thr, idx);
  15073. DUK_ASSERT(obj != NULL);
  15074. /* XXX: shared helper for duk_push_hobject_or_undefined()? */
  15075. proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, obj);
  15076. if (proto) {
  15077. duk_push_hobject(thr, proto);
  15078. } else {
  15079. duk_push_undefined(thr);
  15080. }
  15081. }
  15082. DUK_EXTERNAL void duk_set_prototype(duk_hthread *thr, duk_idx_t idx) {
  15083. duk_hobject *obj;
  15084. duk_hobject *proto;
  15085. DUK_ASSERT_API_ENTRY(thr);
  15086. obj = duk_require_hobject(thr, idx);
  15087. DUK_ASSERT(obj != NULL);
  15088. duk_require_type_mask(thr, -1, DUK_TYPE_MASK_UNDEFINED |
  15089. DUK_TYPE_MASK_OBJECT);
  15090. proto = duk_get_hobject(thr, -1);
  15091. /* proto can also be NULL here (allowed explicitly) */
  15092. #if defined(DUK_USE_ROM_OBJECTS)
  15093. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  15094. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); /* XXX: "read only object"? */
  15095. return;
  15096. }
  15097. #endif
  15098. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, obj, proto);
  15099. duk_pop(thr);
  15100. }
  15101. /*
  15102. * Object finalizer
  15103. */
  15104. #if defined(DUK_USE_FINALIZER_SUPPORT)
  15105. /* XXX: these could be implemented as macros calling an internal function
  15106. * directly.
  15107. * XXX: same issue as with Duktape.fin: there's no way to delete the property
  15108. * now (just set it to undefined).
  15109. */
  15110. DUK_EXTERNAL void duk_get_finalizer(duk_hthread *thr, duk_idx_t idx) {
  15111. DUK_ASSERT_API_ENTRY(thr);
  15112. duk_get_prop_stridx(thr, idx, DUK_STRIDX_INT_FINALIZER);
  15113. }
  15114. DUK_EXTERNAL void duk_set_finalizer(duk_hthread *thr, duk_idx_t idx) {
  15115. duk_hobject *h;
  15116. duk_bool_t callable;
  15117. DUK_ASSERT_API_ENTRY(thr);
  15118. h = duk_require_hobject(thr, idx); /* Get before 'put' so that 'idx' is correct. */
  15119. callable = duk_is_callable(thr, -1);
  15120. duk_put_prop_stridx(thr, idx, DUK_STRIDX_INT_FINALIZER);
  15121. /* In addition to setting the finalizer property, keep a "have
  15122. * finalizer" flag in duk_hobject in sync so that refzero can do
  15123. * a very quick finalizer check by walking the prototype chain
  15124. * and checking the flag alone. (Note that this means that just
  15125. * setting _Finalizer on an object won't affect finalizer checks.)
  15126. *
  15127. * NOTE: if the argument is a Proxy object, this flag will be set
  15128. * on the Proxy, not the target. As a result, the target won't get
  15129. * a finalizer flag and the Proxy also won't be finalized as there's
  15130. * an explicit Proxy check in finalization now.
  15131. */
  15132. if (callable) {
  15133. DUK_HOBJECT_SET_HAVE_FINALIZER(h);
  15134. } else {
  15135. DUK_HOBJECT_CLEAR_HAVE_FINALIZER(h);
  15136. }
  15137. }
  15138. #else /* DUK_USE_FINALIZER_SUPPORT */
  15139. DUK_EXTERNAL void duk_get_finalizer(duk_hthread *thr, duk_idx_t idx) {
  15140. DUK_ASSERT_API_ENTRY(thr);
  15141. DUK_UNREF(idx);
  15142. DUK_ERROR_UNSUPPORTED(thr);
  15143. }
  15144. DUK_EXTERNAL void duk_set_finalizer(duk_hthread *thr, duk_idx_t idx) {
  15145. DUK_ASSERT_API_ENTRY(thr);
  15146. DUK_UNREF(idx);
  15147. DUK_ERROR_UNSUPPORTED(thr);
  15148. }
  15149. #endif /* DUK_USE_FINALIZER_SUPPORT */
  15150. #line 1 "duk_api_stack.c"
  15151. /*
  15152. * API calls related to general value stack manipulation: resizing the value
  15153. * stack, pushing and popping values, type checking and reading values,
  15154. * coercing values, etc.
  15155. *
  15156. * Also contains internal functions (such as duk_get_tval()), defined
  15157. * in duk_api_internal.h, with semantics similar to the public API.
  15158. */
  15159. /* XXX: repetition of stack pre-checks -> helper or macro or inline */
  15160. /* XXX: shared api error strings, and perhaps even throw code for rare cases? */
  15161. /* #include duk_internal.h -> already included */
  15162. /*
  15163. * Forward declarations
  15164. */
  15165. DUK_LOCAL_DECL duk_idx_t duk__push_c_function_raw(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_uint_t flags, duk_small_uint_t proto_bidx);
  15166. /*
  15167. * Global state for working around missing variadic macros
  15168. */
  15169. #if !defined(DUK_USE_VARIADIC_MACROS)
  15170. DUK_EXTERNAL const char *duk_api_global_filename = NULL;
  15171. DUK_EXTERNAL duk_int_t duk_api_global_line = 0;
  15172. #endif
  15173. /*
  15174. * Misc helpers
  15175. */
  15176. DUK_LOCAL const char * const duk__symbol_type_strings[4] = {
  15177. "hidden", "global", "local", "wellknown"
  15178. };
  15179. #if !defined(DUK_USE_PACKED_TVAL)
  15180. DUK_LOCAL const duk_uint_t duk__type_from_tag[] = {
  15181. DUK_TYPE_NUMBER,
  15182. DUK_TYPE_NUMBER, /* fastint */
  15183. DUK_TYPE_UNDEFINED,
  15184. DUK_TYPE_NULL,
  15185. DUK_TYPE_BOOLEAN,
  15186. DUK_TYPE_POINTER,
  15187. DUK_TYPE_LIGHTFUNC,
  15188. DUK_TYPE_NONE,
  15189. DUK_TYPE_STRING,
  15190. DUK_TYPE_OBJECT,
  15191. DUK_TYPE_BUFFER,
  15192. };
  15193. DUK_LOCAL const duk_uint_t duk__type_mask_from_tag[] = {
  15194. DUK_TYPE_MASK_NUMBER,
  15195. DUK_TYPE_MASK_NUMBER, /* fastint */
  15196. DUK_TYPE_MASK_UNDEFINED,
  15197. DUK_TYPE_MASK_NULL,
  15198. DUK_TYPE_MASK_BOOLEAN,
  15199. DUK_TYPE_MASK_POINTER,
  15200. DUK_TYPE_MASK_LIGHTFUNC,
  15201. DUK_TYPE_MASK_NONE,
  15202. DUK_TYPE_MASK_STRING,
  15203. DUK_TYPE_MASK_OBJECT,
  15204. DUK_TYPE_MASK_BUFFER,
  15205. };
  15206. #endif /* !DUK_USE_PACKED_TVAL */
  15207. /* Assert that there's room for one value. */
  15208. #define DUK__ASSERT_SPACE() do { \
  15209. DUK_ASSERT(!(thr->valstack_top >= thr->valstack_end)); \
  15210. } while (0)
  15211. /* Check that there's room to push one value. */
  15212. #if defined(DUK_USE_VALSTACK_UNSAFE)
  15213. /* Faster but value stack overruns are memory unsafe. */
  15214. #define DUK__CHECK_SPACE() DUK__ASSERT_SPACE()
  15215. #else
  15216. #define DUK__CHECK_SPACE() do { \
  15217. if (DUK_UNLIKELY(thr->valstack_top >= thr->valstack_end)) { \
  15218. DUK_ERROR_RANGE_PUSH_BEYOND(thr); \
  15219. } \
  15220. } while (0)
  15221. #endif
  15222. DUK_LOCAL duk_small_uint_t duk__get_symbol_type(duk_hstring *h) {
  15223. const duk_uint8_t *data;
  15224. duk_size_t len;
  15225. DUK_ASSERT(h != NULL);
  15226. DUK_ASSERT(DUK_HSTRING_HAS_SYMBOL(h));
  15227. DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(h) >= 1); /* always true, symbol prefix */
  15228. data = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  15229. len = DUK_HSTRING_GET_BYTELEN(h);
  15230. DUK_ASSERT(len >= 1);
  15231. /* XXX: differentiate between 0x82 and 0xff (hidden vs. internal?)? */
  15232. if (data[0] == 0xffU) {
  15233. return DUK_SYMBOL_TYPE_HIDDEN;
  15234. } else if (data[0] == 0x82U) {
  15235. return DUK_SYMBOL_TYPE_HIDDEN;
  15236. } else if (data[0] == 0x80U) {
  15237. return DUK_SYMBOL_TYPE_GLOBAL;
  15238. } else if (data[len - 1] != 0xffU) {
  15239. return DUK_SYMBOL_TYPE_LOCAL;
  15240. } else {
  15241. return DUK_SYMBOL_TYPE_WELLKNOWN;
  15242. }
  15243. }
  15244. DUK_LOCAL const char *duk__get_symbol_type_string(duk_hstring *h) {
  15245. duk_small_uint_t idx;
  15246. idx = duk__get_symbol_type(h);
  15247. DUK_ASSERT(idx < sizeof(duk__symbol_type_strings));
  15248. return duk__symbol_type_strings[idx];
  15249. }
  15250. DUK_LOCAL_DECL duk_heaphdr *duk__get_tagged_heaphdr_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t tag);
  15251. DUK_LOCAL duk_int_t duk__api_coerce_d2i(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value, duk_bool_t require) {
  15252. duk_tval *tv;
  15253. duk_small_int_t c;
  15254. duk_double_t d;
  15255. tv = duk_get_tval_or_unused(thr, idx);
  15256. DUK_ASSERT(tv != NULL);
  15257. /*
  15258. * Special cases like NaN and +/- Infinity are handled explicitly
  15259. * because a plain C coercion from double to int handles these cases
  15260. * in undesirable ways. For instance, NaN may coerce to INT_MIN
  15261. * (not zero), and INT_MAX + 1 may coerce to INT_MIN (not INT_MAX).
  15262. *
  15263. * This double-to-int coercion differs from ToInteger() because it
  15264. * has a finite range (ToInteger() allows e.g. +/- Infinity). It
  15265. * also differs from ToInt32() because the INT_MIN/INT_MAX clamping
  15266. * depends on the size of the int type on the platform. In particular,
  15267. * on platforms with a 64-bit int type, the full range is allowed.
  15268. */
  15269. #if defined(DUK_USE_FASTINT)
  15270. if (DUK_TVAL_IS_FASTINT(tv)) {
  15271. duk_int64_t t = DUK_TVAL_GET_FASTINT(tv);
  15272. #if (DUK_INT_MAX <= 0x7fffffffL)
  15273. /* Clamping only necessary for 32-bit ints. */
  15274. if (t < DUK_INT_MIN) {
  15275. t = DUK_INT_MIN;
  15276. } else if (t > DUK_INT_MAX) {
  15277. t = DUK_INT_MAX;
  15278. }
  15279. #endif
  15280. return (duk_int_t) t;
  15281. }
  15282. #endif
  15283. if (DUK_TVAL_IS_NUMBER(tv)) {
  15284. d = DUK_TVAL_GET_NUMBER(tv);
  15285. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  15286. if (c == DUK_FP_NAN) {
  15287. return 0;
  15288. } else if (d < (duk_double_t) DUK_INT_MIN) {
  15289. /* covers -Infinity */
  15290. return DUK_INT_MIN;
  15291. } else if (d > (duk_double_t) DUK_INT_MAX) {
  15292. /* covers +Infinity */
  15293. return DUK_INT_MAX;
  15294. } else {
  15295. /* coerce towards zero */
  15296. return (duk_int_t) d;
  15297. }
  15298. }
  15299. if (require) {
  15300. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER);
  15301. /* not reachable */
  15302. }
  15303. return def_value;
  15304. }
  15305. DUK_LOCAL duk_uint_t duk__api_coerce_d2ui(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value, duk_bool_t require) {
  15306. duk_tval *tv;
  15307. duk_small_int_t c;
  15308. duk_double_t d;
  15309. /* Same as above but for unsigned int range. */
  15310. tv = duk_get_tval_or_unused(thr, idx);
  15311. DUK_ASSERT(tv != NULL);
  15312. #if defined(DUK_USE_FASTINT)
  15313. if (DUK_TVAL_IS_FASTINT(tv)) {
  15314. duk_int64_t t = DUK_TVAL_GET_FASTINT(tv);
  15315. if (t < 0) {
  15316. t = 0;
  15317. }
  15318. #if (DUK_UINT_MAX <= 0xffffffffUL)
  15319. /* Clamping only necessary for 32-bit ints. */
  15320. else if (t > DUK_UINT_MAX) {
  15321. t = DUK_UINT_MAX;
  15322. }
  15323. #endif
  15324. return (duk_uint_t) t;
  15325. }
  15326. #endif
  15327. if (DUK_TVAL_IS_NUMBER(tv)) {
  15328. d = DUK_TVAL_GET_NUMBER(tv);
  15329. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  15330. if (c == DUK_FP_NAN) {
  15331. return 0;
  15332. } else if (d < 0.0) {
  15333. /* covers -Infinity */
  15334. return (duk_uint_t) 0;
  15335. } else if (d > (duk_double_t) DUK_UINT_MAX) {
  15336. /* covers +Infinity */
  15337. return (duk_uint_t) DUK_UINT_MAX;
  15338. } else {
  15339. /* coerce towards zero */
  15340. return (duk_uint_t) d;
  15341. }
  15342. }
  15343. if (require) {
  15344. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER);
  15345. /* not reachable */
  15346. }
  15347. return def_value;
  15348. }
  15349. /*
  15350. * Stack index validation/normalization and getting a stack duk_tval ptr.
  15351. *
  15352. * These are called by many API entrypoints so the implementations must be
  15353. * fast and "inlined".
  15354. *
  15355. * There's some repetition because of this; keep the functions in sync.
  15356. */
  15357. DUK_EXTERNAL duk_idx_t duk_normalize_index(duk_hthread *thr, duk_idx_t idx) {
  15358. duk_uidx_t vs_size;
  15359. duk_uidx_t uidx;
  15360. DUK_ASSERT_API_ENTRY(thr);
  15361. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15362. /* Care must be taken to avoid pointer wrapping in the index
  15363. * validation. For instance, on a 32-bit platform with 8-byte
  15364. * duk_tval the index 0x20000000UL would wrap the memory space
  15365. * once.
  15366. */
  15367. /* Assume value stack sizes (in elements) fits into duk_idx_t. */
  15368. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15369. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15370. DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */
  15371. if (idx < 0) {
  15372. uidx = vs_size + (duk_uidx_t) idx;
  15373. } else {
  15374. /* since index non-negative */
  15375. DUK_ASSERT(idx != DUK_INVALID_INDEX);
  15376. uidx = (duk_uidx_t) idx;
  15377. }
  15378. /* DUK_INVALID_INDEX won't be accepted as a valid index. */
  15379. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size);
  15380. if (DUK_LIKELY(uidx < vs_size)) {
  15381. return (duk_idx_t) uidx;
  15382. }
  15383. return DUK_INVALID_INDEX;
  15384. }
  15385. DUK_EXTERNAL duk_idx_t duk_require_normalize_index(duk_hthread *thr, duk_idx_t idx) {
  15386. duk_uidx_t vs_size;
  15387. duk_uidx_t uidx;
  15388. DUK_ASSERT_API_ENTRY(thr);
  15389. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15390. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15391. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15392. DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */
  15393. if (idx < 0) {
  15394. uidx = vs_size + (duk_uidx_t) idx;
  15395. } else {
  15396. DUK_ASSERT(idx != DUK_INVALID_INDEX);
  15397. uidx = (duk_uidx_t) idx;
  15398. }
  15399. /* DUK_INVALID_INDEX won't be accepted as a valid index. */
  15400. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size);
  15401. if (DUK_LIKELY(uidx < vs_size)) {
  15402. return (duk_idx_t) uidx;
  15403. }
  15404. DUK_ERROR_RANGE_INDEX(thr, idx);
  15405. return 0; /* unreachable */
  15406. }
  15407. DUK_INTERNAL duk_tval *duk_get_tval(duk_hthread *thr, duk_idx_t idx) {
  15408. duk_uidx_t vs_size;
  15409. duk_uidx_t uidx;
  15410. DUK_ASSERT_API_ENTRY(thr);
  15411. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15412. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15413. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15414. DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */
  15415. if (idx < 0) {
  15416. uidx = vs_size + (duk_uidx_t) idx;
  15417. } else {
  15418. DUK_ASSERT(idx != DUK_INVALID_INDEX);
  15419. uidx = (duk_uidx_t) idx;
  15420. }
  15421. /* DUK_INVALID_INDEX won't be accepted as a valid index. */
  15422. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size);
  15423. if (DUK_LIKELY(uidx < vs_size)) {
  15424. return thr->valstack_bottom + uidx;
  15425. }
  15426. return NULL;
  15427. }
  15428. /* Variant of duk_get_tval() which is guaranteed to return a valid duk_tval
  15429. * pointer. When duk_get_tval() would return NULL, this variant returns a
  15430. * pointer to a duk_tval with tag DUK_TAG_UNUSED. This allows the call site
  15431. * to avoid an unnecessary NULL check which sometimes leads to better code.
  15432. * The return duk_tval is read only (at least for the UNUSED value).
  15433. */
  15434. DUK_LOCAL const duk_tval_unused duk__const_tval_unused = DUK_TVAL_UNUSED_INITIALIZER();
  15435. DUK_INTERNAL duk_tval *duk_get_tval_or_unused(duk_hthread *thr, duk_idx_t idx) {
  15436. duk_tval *tv;
  15437. DUK_ASSERT_API_ENTRY(thr);
  15438. tv = duk_get_tval(thr, idx);
  15439. if (tv != NULL) {
  15440. return tv;
  15441. }
  15442. return (duk_tval *) DUK_LOSE_CONST(&duk__const_tval_unused);
  15443. }
  15444. DUK_INTERNAL duk_tval *duk_require_tval(duk_hthread *thr, duk_idx_t idx) {
  15445. duk_uidx_t vs_size;
  15446. duk_uidx_t uidx;
  15447. DUK_ASSERT_API_ENTRY(thr);
  15448. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15449. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15450. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15451. DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */
  15452. /* Use unsigned arithmetic to optimize comparison. */
  15453. if (idx < 0) {
  15454. uidx = vs_size + (duk_uidx_t) idx;
  15455. } else {
  15456. DUK_ASSERT(idx != DUK_INVALID_INDEX);
  15457. uidx = (duk_uidx_t) idx;
  15458. }
  15459. /* DUK_INVALID_INDEX won't be accepted as a valid index. */
  15460. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size);
  15461. if (DUK_LIKELY(uidx < vs_size)) {
  15462. return thr->valstack_bottom + uidx;
  15463. }
  15464. DUK_ERROR_RANGE_INDEX(thr, idx);
  15465. return NULL;
  15466. }
  15467. /* Non-critical. */
  15468. DUK_EXTERNAL duk_bool_t duk_is_valid_index(duk_hthread *thr, duk_idx_t idx) {
  15469. DUK_ASSERT_API_ENTRY(thr);
  15470. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15471. return (duk_normalize_index(thr, idx) >= 0);
  15472. }
  15473. /* Non-critical. */
  15474. DUK_EXTERNAL void duk_require_valid_index(duk_hthread *thr, duk_idx_t idx) {
  15475. DUK_ASSERT_API_ENTRY(thr);
  15476. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15477. if (DUK_UNLIKELY(duk_normalize_index(thr, idx) < 0)) {
  15478. DUK_ERROR_RANGE_INDEX(thr, idx);
  15479. return; /* unreachable */
  15480. }
  15481. }
  15482. /*
  15483. * Value stack top handling
  15484. */
  15485. DUK_EXTERNAL duk_idx_t duk_get_top(duk_hthread *thr) {
  15486. DUK_ASSERT_API_ENTRY(thr);
  15487. return (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  15488. }
  15489. /* Internal helper to get current top but to require a minimum top value
  15490. * (TypeError if not met).
  15491. */
  15492. DUK_INTERNAL duk_idx_t duk_get_top_require_min(duk_hthread *thr, duk_idx_t min_top) {
  15493. duk_idx_t ret;
  15494. DUK_ASSERT_API_ENTRY(thr);
  15495. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  15496. if (DUK_UNLIKELY(ret < min_top)) {
  15497. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  15498. }
  15499. return ret;
  15500. }
  15501. /* Set stack top within currently allocated range, but don't reallocate.
  15502. * This is performance critical especially for call handling, so whenever
  15503. * changing, profile and look at generated code.
  15504. */
  15505. DUK_EXTERNAL void duk_set_top(duk_hthread *thr, duk_idx_t idx) {
  15506. duk_uidx_t vs_size;
  15507. duk_uidx_t vs_limit;
  15508. duk_uidx_t uidx;
  15509. duk_tval *tv;
  15510. DUK_ASSERT_API_ENTRY(thr);
  15511. DUK_ASSERT(DUK_INVALID_INDEX < 0);
  15512. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15513. DUK_ASSERT(thr->valstack_end >= thr->valstack_bottom);
  15514. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15515. vs_limit = (duk_uidx_t) (thr->valstack_end - thr->valstack_bottom);
  15516. if (idx < 0) {
  15517. /* Negative indices are always within allocated stack but
  15518. * must not go below zero index.
  15519. */
  15520. uidx = vs_size + (duk_uidx_t) idx;
  15521. } else {
  15522. /* Positive index can be higher than valstack top but must
  15523. * not go above allocated stack (equality is OK).
  15524. */
  15525. uidx = (duk_uidx_t) idx;
  15526. }
  15527. /* DUK_INVALID_INDEX won't be accepted as a valid index. */
  15528. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size);
  15529. DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_limit);
  15530. #if defined(DUK_USE_VALSTACK_UNSAFE)
  15531. DUK_ASSERT(uidx <= vs_limit);
  15532. DUK_UNREF(vs_limit);
  15533. #else
  15534. if (DUK_UNLIKELY(uidx > vs_limit)) {
  15535. DUK_ERROR_RANGE_INDEX(thr, idx);
  15536. return; /* unreachable */
  15537. }
  15538. #endif
  15539. DUK_ASSERT(uidx <= vs_limit);
  15540. /* Handle change in value stack top. Respect value stack
  15541. * initialization policy: 'undefined' above top. Note that
  15542. * DECREF may cause a side effect that reallocates valstack,
  15543. * so must relookup after DECREF.
  15544. */
  15545. if (uidx >= vs_size) {
  15546. /* Stack size increases or stays the same. */
  15547. #if defined(DUK_USE_ASSERTIONS)
  15548. duk_uidx_t count;
  15549. count = uidx - vs_size;
  15550. while (count != 0) {
  15551. count--;
  15552. tv = thr->valstack_top + count;
  15553. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv));
  15554. }
  15555. #endif
  15556. thr->valstack_top = thr->valstack_bottom + uidx;
  15557. } else {
  15558. /* Stack size decreases. */
  15559. #if defined(DUK_USE_REFERENCE_COUNTING)
  15560. duk_uidx_t count;
  15561. duk_tval *tv_end;
  15562. count = vs_size - uidx;
  15563. DUK_ASSERT(count > 0);
  15564. tv = thr->valstack_top;
  15565. tv_end = tv - count;
  15566. DUK_ASSERT(tv > tv_end); /* Because count > 0. */
  15567. do {
  15568. tv--;
  15569. DUK_ASSERT(tv >= thr->valstack_bottom);
  15570. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv);
  15571. } while (tv != tv_end);
  15572. thr->valstack_top = tv_end;
  15573. DUK_REFZERO_CHECK_FAST(thr);
  15574. #else /* DUK_USE_REFERENCE_COUNTING */
  15575. duk_uidx_t count;
  15576. duk_tval *tv_end;
  15577. count = vs_size - uidx;
  15578. tv = thr->valstack_top;
  15579. tv_end = tv - count;
  15580. DUK_ASSERT(tv > tv_end);
  15581. do {
  15582. tv--;
  15583. DUK_TVAL_SET_UNDEFINED(tv);
  15584. } while (tv != tv_end);
  15585. thr->valstack_top = tv_end;
  15586. #endif /* DUK_USE_REFERENCE_COUNTING */
  15587. }
  15588. }
  15589. /* Internal variant with a non-negative index and no runtime size checks. */
  15590. #if defined(DUK_USE_PREFER_SIZE)
  15591. DUK_INTERNAL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx) {
  15592. DUK_ASSERT_API_ENTRY(thr);
  15593. duk_set_top(thr, idx);
  15594. }
  15595. #else /* DUK_USE_PREFER_SIZE */
  15596. DUK_INTERNAL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx) {
  15597. duk_uidx_t uidx;
  15598. duk_uidx_t vs_size;
  15599. duk_tval *tv;
  15600. DUK_ASSERT_API_ENTRY(thr);
  15601. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15602. DUK_ASSERT(thr->valstack_end >= thr->valstack_bottom);
  15603. DUK_ASSERT(idx >= 0);
  15604. DUK_ASSERT(idx <= (duk_idx_t) (thr->valstack_end - thr->valstack_bottom));
  15605. /* XXX: byte arithmetic */
  15606. uidx = (duk_uidx_t) idx;
  15607. vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom);
  15608. if (uidx >= vs_size) {
  15609. /* Stack size increases or stays the same. */
  15610. #if defined(DUK_USE_ASSERTIONS)
  15611. duk_uidx_t count;
  15612. count = uidx - vs_size;
  15613. while (count != 0) {
  15614. count--;
  15615. tv = thr->valstack_top + count;
  15616. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv));
  15617. }
  15618. #endif
  15619. thr->valstack_top = thr->valstack_bottom + uidx;
  15620. } else {
  15621. /* Stack size decreases. */
  15622. #if defined(DUK_USE_REFERENCE_COUNTING)
  15623. duk_uidx_t count;
  15624. duk_tval *tv_end;
  15625. count = vs_size - uidx;
  15626. DUK_ASSERT(count > 0);
  15627. tv = thr->valstack_top;
  15628. tv_end = tv - count;
  15629. DUK_ASSERT(tv > tv_end); /* Because count > 0. */
  15630. do {
  15631. tv--;
  15632. DUK_ASSERT(tv >= thr->valstack_bottom);
  15633. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv);
  15634. } while (tv != tv_end);
  15635. thr->valstack_top = tv_end;
  15636. DUK_REFZERO_CHECK_FAST(thr);
  15637. #else /* DUK_USE_REFERENCE_COUNTING */
  15638. duk_uidx_t count;
  15639. duk_tval *tv_end;
  15640. count = vs_size - uidx;
  15641. tv = thr->valstack_top;
  15642. tv_end = tv - count;
  15643. DUK_ASSERT(tv > tv_end);
  15644. do {
  15645. tv--;
  15646. DUK_TVAL_SET_UNDEFINED(tv);
  15647. } while (tv != tv_end);
  15648. thr->valstack_top = tv_end;
  15649. #endif /* DUK_USE_REFERENCE_COUNTING */
  15650. }
  15651. }
  15652. #endif /* DUK_USE_PREFER_SIZE */
  15653. /* Internal helper: set top to 'top', and set [idx_wipe_start,top[ to
  15654. * 'undefined' (doing nothing if idx_wipe_start == top). Indices are
  15655. * positive and within value stack reserve. This is used by call handling.
  15656. */
  15657. DUK_INTERNAL void duk_set_top_and_wipe(duk_hthread *thr, duk_idx_t top, duk_idx_t idx_wipe_start) {
  15658. DUK_ASSERT_API_ENTRY(thr);
  15659. DUK_ASSERT(top >= 0);
  15660. DUK_ASSERT(idx_wipe_start >= 0);
  15661. DUK_ASSERT(idx_wipe_start <= top);
  15662. DUK_ASSERT(thr->valstack_bottom + top <= thr->valstack_end);
  15663. DUK_ASSERT(thr->valstack_bottom + idx_wipe_start <= thr->valstack_end);
  15664. duk_set_top_unsafe(thr, idx_wipe_start);
  15665. duk_set_top_unsafe(thr, top);
  15666. }
  15667. DUK_EXTERNAL duk_idx_t duk_get_top_index(duk_hthread *thr) {
  15668. duk_idx_t ret;
  15669. DUK_ASSERT_API_ENTRY(thr);
  15670. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1;
  15671. if (DUK_UNLIKELY(ret < 0)) {
  15672. /* Return invalid index; if caller uses this without checking
  15673. * in another API call, the index won't map to a valid stack
  15674. * entry.
  15675. */
  15676. return DUK_INVALID_INDEX;
  15677. }
  15678. return ret;
  15679. }
  15680. /* Internal variant: call assumes there is at least one element on the value
  15681. * stack frame; this is only asserted for.
  15682. */
  15683. DUK_INTERNAL duk_idx_t duk_get_top_index_unsafe(duk_hthread *thr) {
  15684. duk_idx_t ret;
  15685. DUK_ASSERT_API_ENTRY(thr);
  15686. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1;
  15687. return ret;
  15688. }
  15689. DUK_EXTERNAL duk_idx_t duk_require_top_index(duk_hthread *thr) {
  15690. duk_idx_t ret;
  15691. DUK_ASSERT_API_ENTRY(thr);
  15692. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1;
  15693. if (DUK_UNLIKELY(ret < 0)) {
  15694. DUK_ERROR_RANGE_INDEX(thr, -1);
  15695. return 0; /* unreachable */
  15696. }
  15697. return ret;
  15698. }
  15699. /*
  15700. * Value stack resizing.
  15701. *
  15702. * This resizing happens above the current "top": the value stack can be
  15703. * grown or shrunk, but the "top" is not affected. The value stack cannot
  15704. * be resized to a size below the current reserve.
  15705. *
  15706. * The low level reallocation primitive must carefully recompute all value
  15707. * stack pointers, and must also work if ALL pointers are NULL. The resize
  15708. * is quite tricky because the valstack realloc may cause a mark-and-sweep,
  15709. * which may run finalizers. Running finalizers may resize the valstack
  15710. * recursively (the same value stack we're working on). So, after realloc
  15711. * returns, we know that the valstack bottom, top, and reserve should still
  15712. * be the same (there should not be live values above the "top"), but its
  15713. * underlying size, alloc_end, and base pointer may have changed.
  15714. *
  15715. * 'new_size' is known to be <= DUK_USE_VALSTACK_LIMIT, which ensures that
  15716. * size_t and pointer arithmetic won't wrap in duk__resize_valstack().
  15717. */
  15718. /* Low level valstack resize primitive, used for both grow and shrink. All
  15719. * adjustments for slack etc have already been done. Doesn't throw but does
  15720. * have allocation side effects.
  15721. */
  15722. DUK_LOCAL DUK_COLD DUK_NOINLINE duk_bool_t duk__resize_valstack(duk_hthread *thr, duk_size_t new_size) {
  15723. duk_tval *pre_valstack;
  15724. duk_tval *pre_bottom;
  15725. duk_tval *pre_top;
  15726. duk_tval *pre_end;
  15727. duk_tval *pre_alloc_end;
  15728. duk_ptrdiff_t ptr_diff;
  15729. duk_tval *new_valstack;
  15730. duk_size_t new_alloc_size;
  15731. duk_tval *tv_prev_alloc_end;
  15732. duk_tval *p;
  15733. DUK_ASSERT_HTHREAD_VALID(thr);
  15734. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  15735. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15736. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  15737. DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end);
  15738. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack) <= new_size); /* can't resize below 'top' */
  15739. DUK_ASSERT(new_size <= DUK_USE_VALSTACK_LIMIT); /* valstack limit caller has check, prevents wrapping */
  15740. DUK_ASSERT(new_size <= DUK_SIZE_MAX / sizeof(duk_tval)); /* specific assert for wrapping */
  15741. /* Pre-realloc pointer copies for asserts and debug logs. */
  15742. pre_valstack = thr->valstack;
  15743. pre_bottom = thr->valstack_bottom;
  15744. pre_top = thr->valstack_top;
  15745. pre_end = thr->valstack_end;
  15746. pre_alloc_end = thr->valstack_alloc_end;
  15747. DUK_UNREF(pre_valstack);
  15748. DUK_UNREF(pre_bottom);
  15749. DUK_UNREF(pre_top);
  15750. DUK_UNREF(pre_end);
  15751. DUK_UNREF(pre_alloc_end);
  15752. /* If finalizer torture enabled, force base pointer change every time
  15753. * when it would be allowed.
  15754. */
  15755. #if defined(DUK_USE_FINALIZER_TORTURE)
  15756. if (thr->heap->pf_prevent_count == 0) {
  15757. duk_hthread_valstack_torture_realloc(thr);
  15758. }
  15759. #endif
  15760. /* Allocate a new valstack using DUK_REALLOC_DIRECT() to deal with
  15761. * a side effect changing the base pointer.
  15762. */
  15763. new_alloc_size = sizeof(duk_tval) * new_size;
  15764. new_valstack = (duk_tval *) DUK_REALLOC_INDIRECT(thr->heap, duk_hthread_get_valstack_ptr, (void *) thr, new_alloc_size);
  15765. if (DUK_UNLIKELY(new_valstack == NULL)) {
  15766. /* Because new_size != 0, if condition doesn't need to be
  15767. * (new_valstack != NULL || new_size == 0).
  15768. */
  15769. DUK_ASSERT(new_size != 0);
  15770. DUK_D(DUK_DPRINT("failed to resize valstack to %lu entries (%lu bytes)",
  15771. (unsigned long) new_size, (unsigned long) new_alloc_size));
  15772. return 0;
  15773. }
  15774. /* Debug log any changes in pointer(s) by side effects. These don't
  15775. * necessarily imply any incorrect behavior, but should be rare in
  15776. * practice.
  15777. */
  15778. #if defined(DUK_USE_DEBUG)
  15779. if (thr->valstack != pre_valstack) {
  15780. DUK_D(DUK_DPRINT("valstack base pointer changed during valstack resize: %p -> %p",
  15781. (void *) pre_valstack, (void *) thr->valstack));
  15782. }
  15783. if (thr->valstack_bottom != pre_bottom) {
  15784. DUK_D(DUK_DPRINT("valstack bottom pointer changed during valstack resize: %p -> %p",
  15785. (void *) pre_bottom, (void *) thr->valstack_bottom));
  15786. }
  15787. if (thr->valstack_top != pre_top) {
  15788. DUK_D(DUK_DPRINT("valstack top pointer changed during valstack resize: %p -> %p",
  15789. (void *) pre_top, (void *) thr->valstack_top));
  15790. }
  15791. if (thr->valstack_end != pre_end) {
  15792. DUK_D(DUK_DPRINT("valstack end pointer changed during valstack resize: %p -> %p",
  15793. (void *) pre_end, (void *) thr->valstack_end));
  15794. }
  15795. if (thr->valstack_alloc_end != pre_alloc_end) {
  15796. DUK_D(DUK_DPRINT("valstack alloc_end pointer changed during valstack resize: %p -> %p",
  15797. (void *) pre_alloc_end, (void *) thr->valstack_alloc_end));
  15798. }
  15799. #endif
  15800. /* Assertions: offsets for bottom, top, and end (reserve) must not
  15801. * have changed even with side effects because they are always
  15802. * restored in unwind. For alloc_end there's no guarantee: it may
  15803. * have grown or shrunk (but remain above 'end').
  15804. */
  15805. DUK_ASSERT(thr->valstack_bottom - thr->valstack == pre_bottom - pre_valstack);
  15806. DUK_ASSERT(thr->valstack_top - thr->valstack == pre_top - pre_valstack);
  15807. DUK_ASSERT(thr->valstack_end - thr->valstack == pre_end - pre_valstack);
  15808. DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end);
  15809. /* Write new pointers. Most pointers can be handled as a pointer
  15810. * difference.
  15811. */
  15812. ptr_diff = (duk_ptrdiff_t) ((duk_uint8_t *) new_valstack - (duk_uint8_t *) thr->valstack);
  15813. tv_prev_alloc_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_alloc_end + ptr_diff);
  15814. thr->valstack = new_valstack;
  15815. thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + ptr_diff);
  15816. thr->valstack_top = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_top + ptr_diff);
  15817. thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_end + ptr_diff);
  15818. thr->valstack_alloc_end = (duk_tval *) (void *) ((duk_uint8_t *) new_valstack + new_alloc_size);
  15819. /* Assertions: pointer sanity after pointer updates. */
  15820. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  15821. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  15822. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  15823. DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end);
  15824. DUK_D(DUK_DPRINT("resized valstack %lu -> %lu elements (%lu -> %lu bytes): "
  15825. "base=%p -> %p, bottom=%p -> %p (%ld), top=%p -> %p (%ld), "
  15826. "end=%p -> %p (%ld), alloc_end=%p -> %p (%ld);"
  15827. " tv_prev_alloc_end=%p (-> %ld inits; <0 means shrink)",
  15828. (unsigned long) (pre_alloc_end - pre_valstack),
  15829. (unsigned long) new_size,
  15830. (unsigned long) ((duk_uint8_t *) pre_alloc_end - (duk_uint8_t *) pre_valstack),
  15831. (unsigned long) new_alloc_size,
  15832. (void *) pre_valstack, (void *) thr->valstack,
  15833. (void *) pre_bottom, (void *) thr->valstack_bottom, (long) (thr->valstack_bottom - thr->valstack),
  15834. (void *) pre_top, (void *) thr->valstack_top, (long) (thr->valstack_top - thr->valstack),
  15835. (void *) pre_end, (void *) thr->valstack_end, (long) (thr->valstack_end - thr->valstack),
  15836. (void *) pre_alloc_end, (void *) thr->valstack_alloc_end, (long) (thr->valstack_alloc_end - thr->valstack),
  15837. (void *) tv_prev_alloc_end, (long) (thr->valstack_alloc_end - tv_prev_alloc_end)));
  15838. /* If allocation grew, init any new slots to 'undefined'. */
  15839. p = tv_prev_alloc_end;
  15840. while (p < thr->valstack_alloc_end) {
  15841. /* Never executed if new size is smaller. */
  15842. DUK_TVAL_SET_UNDEFINED(p);
  15843. p++;
  15844. }
  15845. /* Assert for value stack initialization policy. */
  15846. #if defined(DUK_USE_ASSERTIONS)
  15847. p = thr->valstack_top;
  15848. while (p < thr->valstack_alloc_end) {
  15849. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(p));
  15850. p++;
  15851. }
  15852. #endif
  15853. return 1;
  15854. }
  15855. DUK_LOCAL DUK_COLD DUK_NOINLINE duk_bool_t duk__valstack_grow(duk_hthread *thr, duk_size_t min_bytes, duk_bool_t throw_on_error) {
  15856. duk_size_t min_size;
  15857. duk_size_t new_size;
  15858. DUK_ASSERT(min_bytes / sizeof(duk_tval) * sizeof(duk_tval) == min_bytes);
  15859. min_size = min_bytes / sizeof(duk_tval); /* from bytes to slots */
  15860. #if defined(DUK_USE_VALSTACK_GROW_SHIFT)
  15861. /* New size is minimum size plus a proportional slack, e.g. shift of
  15862. * 2 means a 25% slack.
  15863. */
  15864. new_size = min_size + (min_size >> DUK_USE_VALSTACK_GROW_SHIFT);
  15865. #else
  15866. /* New size is tight with no slack. This is sometimes preferred in
  15867. * low memory environments.
  15868. */
  15869. new_size = min_size;
  15870. #endif
  15871. if (DUK_UNLIKELY(new_size > DUK_USE_VALSTACK_LIMIT || new_size < min_size /*wrap*/)) {
  15872. /* Note: may be triggered even if minimal new_size would not reach the limit,
  15873. * plan limit accordingly.
  15874. */
  15875. if (throw_on_error) {
  15876. DUK_ERROR_RANGE(thr, DUK_STR_VALSTACK_LIMIT);
  15877. }
  15878. return 0;
  15879. }
  15880. if (duk__resize_valstack(thr, new_size) == 0) {
  15881. if (throw_on_error) {
  15882. DUK_ERROR_ALLOC_FAILED(thr);
  15883. }
  15884. return 0;
  15885. }
  15886. thr->valstack_end = thr->valstack + min_size;
  15887. DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end);
  15888. return 1;
  15889. }
  15890. /* Hot, inlined value stack grow check. Because value stack almost never
  15891. * grows, the actual resize call is in a NOINLINE helper.
  15892. */
  15893. DUK_INTERNAL DUK_INLINE void duk_valstack_grow_check_throw(duk_hthread *thr, duk_size_t min_bytes) {
  15894. duk_tval *tv;
  15895. tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + min_bytes);
  15896. if (DUK_LIKELY(thr->valstack_end >= tv)) {
  15897. return;
  15898. }
  15899. if (DUK_LIKELY(thr->valstack_alloc_end >= tv)) {
  15900. /* Values in [valstack_top,valstack_alloc_end[ are initialized
  15901. * to 'undefined' so we can just move the end pointer.
  15902. */
  15903. thr->valstack_end = tv;
  15904. return;
  15905. }
  15906. (void) duk__valstack_grow(thr, min_bytes, 1 /*throw_on_error*/);
  15907. }
  15908. /* Hot, inlined value stack grow check which doesn't throw. */
  15909. DUK_INTERNAL DUK_INLINE duk_bool_t duk_valstack_grow_check_nothrow(duk_hthread *thr, duk_size_t min_bytes) {
  15910. duk_tval *tv;
  15911. tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + min_bytes);
  15912. if (DUK_LIKELY(thr->valstack_end >= tv)) {
  15913. return 1;
  15914. }
  15915. if (DUK_LIKELY(thr->valstack_alloc_end >= tv)) {
  15916. thr->valstack_end = tv;
  15917. return 1;
  15918. }
  15919. return duk__valstack_grow(thr, min_bytes, 0 /*throw_on_error*/);
  15920. }
  15921. /* Value stack shrink check, called from mark-and-sweep. */
  15922. DUK_INTERNAL void duk_valstack_shrink_check_nothrow(duk_hthread *thr, duk_bool_t snug) {
  15923. duk_size_t alloc_bytes;
  15924. duk_size_t reserve_bytes;
  15925. duk_size_t shrink_bytes;
  15926. alloc_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_alloc_end - (duk_uint8_t *) thr->valstack);
  15927. reserve_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack);
  15928. DUK_ASSERT(alloc_bytes >= reserve_bytes);
  15929. /* We're free to shrink the value stack allocation down to
  15930. * reserve_bytes but not more. If 'snug' (emergency GC)
  15931. * shrink whatever we can. Otherwise only shrink if the new
  15932. * size would be considerably smaller.
  15933. */
  15934. #if defined(DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT)
  15935. if (snug) {
  15936. shrink_bytes = reserve_bytes;
  15937. } else {
  15938. duk_size_t proportion, slack;
  15939. /* Require that value stack shrinks by at least X% of its
  15940. * current size. For example, shift of 2 means at least
  15941. * 25%. The proportion is computed as bytes and may not
  15942. * be a multiple of sizeof(duk_tval); that's OK here.
  15943. */
  15944. proportion = alloc_bytes >> DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT;
  15945. if (alloc_bytes - reserve_bytes < proportion) {
  15946. /* Too little would be freed, do nothing. */
  15947. return;
  15948. }
  15949. /* Keep a slack after shrinking. The slack is again a
  15950. * proportion of the current size (the proportion should
  15951. * of course be smaller than the check proportion above).
  15952. */
  15953. #if defined(DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT)
  15954. DUK_ASSERT(DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT > DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT);
  15955. slack = alloc_bytes >> DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT;
  15956. #else
  15957. slack = 0;
  15958. #endif
  15959. shrink_bytes = reserve_bytes +
  15960. slack / sizeof(duk_tval) * sizeof(duk_tval); /* multiple of duk_tval */
  15961. }
  15962. #else /* DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT */
  15963. /* Always snug, useful in some low memory environments. */
  15964. DUK_UNREF(snug);
  15965. shrink_bytes = reserve_bytes;
  15966. #endif /* DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT */
  15967. DUK_D(DUK_DPRINT("valstack shrink check: alloc_bytes=%ld, reserve_bytes=%ld, shrink_bytes=%ld (unvalidated)",
  15968. (long) alloc_bytes, (long) reserve_bytes, (long) shrink_bytes));
  15969. DUK_ASSERT(shrink_bytes >= reserve_bytes);
  15970. if (shrink_bytes >= alloc_bytes) {
  15971. /* Skip if shrink target is same as current one (or higher,
  15972. * though that shouldn't happen in practice).
  15973. */
  15974. return;
  15975. }
  15976. DUK_ASSERT(shrink_bytes / sizeof(duk_tval) * sizeof(duk_tval) == shrink_bytes);
  15977. DUK_D(DUK_DPRINT("valstack shrink check: decided to shrink, snug: %ld", (long) snug));
  15978. duk__resize_valstack(thr, shrink_bytes / sizeof(duk_tval));
  15979. }
  15980. DUK_EXTERNAL duk_bool_t duk_check_stack(duk_hthread *thr, duk_idx_t extra) {
  15981. duk_size_t min_new_bytes;
  15982. DUK_ASSERT_API_ENTRY(thr);
  15983. DUK_ASSERT(thr != NULL);
  15984. if (DUK_UNLIKELY(extra < 0 || extra > DUK_USE_VALSTACK_LIMIT)) {
  15985. if (extra < 0) {
  15986. /* Clamping to zero makes the API more robust to calling code
  15987. * calculation errors.
  15988. */
  15989. extra = 0;
  15990. } else {
  15991. /* Cause grow check to fail without wrapping arithmetic. */
  15992. extra = DUK_USE_VALSTACK_LIMIT;
  15993. }
  15994. }
  15995. min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack) +
  15996. sizeof(duk_tval) * ((duk_size_t) extra + DUK_VALSTACK_INTERNAL_EXTRA);
  15997. return duk_valstack_grow_check_nothrow(thr, min_new_bytes);
  15998. }
  15999. DUK_EXTERNAL void duk_require_stack(duk_hthread *thr, duk_idx_t extra) {
  16000. duk_size_t min_new_bytes;
  16001. DUK_ASSERT_API_ENTRY(thr);
  16002. DUK_ASSERT(thr != NULL);
  16003. if (DUK_UNLIKELY(extra < 0 || extra > DUK_USE_VALSTACK_LIMIT)) {
  16004. if (extra < 0) {
  16005. /* Clamping to zero makes the API more robust to calling code
  16006. * calculation errors.
  16007. */
  16008. extra = 0;
  16009. } else {
  16010. /* Cause grow check to fail without wrapping arithmetic. */
  16011. extra = DUK_USE_VALSTACK_LIMIT;
  16012. }
  16013. }
  16014. min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack) +
  16015. sizeof(duk_tval) * ((duk_size_t) extra + DUK_VALSTACK_INTERNAL_EXTRA);
  16016. duk_valstack_grow_check_throw(thr, min_new_bytes);
  16017. }
  16018. DUK_EXTERNAL duk_bool_t duk_check_stack_top(duk_hthread *thr, duk_idx_t top) {
  16019. duk_size_t min_new_bytes;
  16020. DUK_ASSERT_API_ENTRY(thr);
  16021. if (DUK_UNLIKELY(top < 0 || top > DUK_USE_VALSTACK_LIMIT)) {
  16022. if (top < 0) {
  16023. /* Clamping to zero makes the API more robust to calling code
  16024. * calculation errors.
  16025. */
  16026. top = 0;
  16027. } else {
  16028. /* Cause grow check to fail without wrapping arithmetic. */
  16029. top = DUK_USE_VALSTACK_LIMIT;
  16030. }
  16031. }
  16032. DUK_ASSERT(top >= 0);
  16033. min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) +
  16034. sizeof(duk_tval) * ((duk_size_t) top + DUK_VALSTACK_INTERNAL_EXTRA);
  16035. return duk_valstack_grow_check_nothrow(thr, min_new_bytes);
  16036. }
  16037. DUK_EXTERNAL void duk_require_stack_top(duk_hthread *thr, duk_idx_t top) {
  16038. duk_size_t min_new_bytes;
  16039. DUK_ASSERT_API_ENTRY(thr);
  16040. if (DUK_UNLIKELY(top < 0 || top > DUK_USE_VALSTACK_LIMIT)) {
  16041. if (top < 0) {
  16042. /* Clamping to zero makes the API more robust to calling code
  16043. * calculation errors.
  16044. */
  16045. top = 0;
  16046. } else {
  16047. /* Cause grow check to fail without wrapping arithmetic. */
  16048. top = DUK_USE_VALSTACK_LIMIT;
  16049. }
  16050. }
  16051. DUK_ASSERT(top >= 0);
  16052. min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) +
  16053. sizeof(duk_tval) * ((duk_size_t) top + DUK_VALSTACK_INTERNAL_EXTRA);
  16054. duk_valstack_grow_check_throw(thr, min_new_bytes);
  16055. }
  16056. /*
  16057. * Basic stack manipulation: swap, dup, insert, replace, etc
  16058. */
  16059. DUK_EXTERNAL void duk_swap(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) {
  16060. duk_tval *tv1;
  16061. duk_tval *tv2;
  16062. duk_tval tv_tmp;
  16063. DUK_ASSERT_API_ENTRY(thr);
  16064. tv1 = duk_require_tval(thr, idx1);
  16065. DUK_ASSERT(tv1 != NULL);
  16066. tv2 = duk_require_tval(thr, idx2);
  16067. DUK_ASSERT(tv2 != NULL);
  16068. /* If tv1==tv2 this is a NOP, no check is needed */
  16069. DUK_TVAL_SET_TVAL(&tv_tmp, tv1);
  16070. DUK_TVAL_SET_TVAL(tv1, tv2);
  16071. DUK_TVAL_SET_TVAL(tv2, &tv_tmp);
  16072. }
  16073. DUK_EXTERNAL void duk_swap_top(duk_hthread *thr, duk_idx_t idx) {
  16074. DUK_ASSERT_API_ENTRY(thr);
  16075. duk_swap(thr, idx, -1);
  16076. }
  16077. DUK_EXTERNAL void duk_dup(duk_hthread *thr, duk_idx_t from_idx) {
  16078. duk_tval *tv_from;
  16079. duk_tval *tv_to;
  16080. DUK_ASSERT_API_ENTRY(thr);
  16081. DUK__CHECK_SPACE();
  16082. tv_from = duk_require_tval(thr, from_idx);
  16083. tv_to = thr->valstack_top++;
  16084. DUK_ASSERT(tv_from != NULL);
  16085. DUK_ASSERT(tv_to != NULL);
  16086. DUK_TVAL_SET_TVAL(tv_to, tv_from);
  16087. DUK_TVAL_INCREF(thr, tv_to); /* no side effects */
  16088. }
  16089. DUK_EXTERNAL void duk_dup_top(duk_hthread *thr) {
  16090. #if defined(DUK_USE_PREFER_SIZE)
  16091. duk_dup(thr, -1);
  16092. #else
  16093. duk_tval *tv_from;
  16094. duk_tval *tv_to;
  16095. DUK_ASSERT_API_ENTRY(thr);
  16096. DUK__CHECK_SPACE();
  16097. if (DUK_UNLIKELY(thr->valstack_top - thr->valstack_bottom <= 0)) {
  16098. DUK_ERROR_RANGE_INDEX(thr, -1);
  16099. return; /* unreachable */
  16100. }
  16101. tv_from = thr->valstack_top - 1;
  16102. tv_to = thr->valstack_top++;
  16103. DUK_ASSERT(tv_from != NULL);
  16104. DUK_ASSERT(tv_to != NULL);
  16105. DUK_TVAL_SET_TVAL(tv_to, tv_from);
  16106. DUK_TVAL_INCREF(thr, tv_to); /* no side effects */
  16107. #endif
  16108. }
  16109. DUK_INTERNAL void duk_dup_0(duk_hthread *thr) {
  16110. DUK_ASSERT_API_ENTRY(thr);
  16111. duk_dup(thr, 0);
  16112. }
  16113. DUK_INTERNAL void duk_dup_1(duk_hthread *thr) {
  16114. DUK_ASSERT_API_ENTRY(thr);
  16115. duk_dup(thr, 1);
  16116. }
  16117. DUK_INTERNAL void duk_dup_2(duk_hthread *thr) {
  16118. DUK_ASSERT_API_ENTRY(thr);
  16119. duk_dup(thr, 2);
  16120. }
  16121. DUK_INTERNAL void duk_dup_m2(duk_hthread *thr) {
  16122. DUK_ASSERT_API_ENTRY(thr);
  16123. duk_dup(thr, -2);
  16124. }
  16125. DUK_INTERNAL void duk_dup_m3(duk_hthread *thr) {
  16126. DUK_ASSERT_API_ENTRY(thr);
  16127. duk_dup(thr, -3);
  16128. }
  16129. DUK_INTERNAL void duk_dup_m4(duk_hthread *thr) {
  16130. DUK_ASSERT_API_ENTRY(thr);
  16131. duk_dup(thr, -4);
  16132. }
  16133. DUK_EXTERNAL void duk_insert(duk_hthread *thr, duk_idx_t to_idx) {
  16134. duk_tval *p;
  16135. duk_tval *q;
  16136. duk_tval tv_tmp;
  16137. duk_size_t nbytes;
  16138. DUK_ASSERT_API_ENTRY(thr);
  16139. p = duk_require_tval(thr, to_idx);
  16140. DUK_ASSERT(p != NULL);
  16141. q = duk_require_tval(thr, -1);
  16142. DUK_ASSERT(q != NULL);
  16143. DUK_ASSERT(q >= p);
  16144. /* nbytes
  16145. * <--------->
  16146. * [ ... | p | x | x | q ]
  16147. * => [ ... | q | p | x | x ]
  16148. */
  16149. nbytes = (duk_size_t) (((duk_uint8_t *) q) - ((duk_uint8_t *) p)); /* Note: 'q' is top-1 */
  16150. DUK_DDD(DUK_DDDPRINT("duk_insert: to_idx=%ld, p=%p, q=%p, nbytes=%lu",
  16151. (long) to_idx, (void *) p, (void *) q, (unsigned long) nbytes));
  16152. /* No net refcount changes. */
  16153. if (nbytes > 0) {
  16154. DUK_TVAL_SET_TVAL(&tv_tmp, q);
  16155. DUK_ASSERT(nbytes > 0);
  16156. DUK_MEMMOVE((void *) (p + 1), (const void *) p, (size_t) nbytes);
  16157. DUK_TVAL_SET_TVAL(p, &tv_tmp);
  16158. } else {
  16159. /* nop: insert top to top */
  16160. DUK_ASSERT(nbytes == 0);
  16161. DUK_ASSERT(p == q);
  16162. }
  16163. }
  16164. DUK_INTERNAL void duk_insert_undefined(duk_hthread *thr, duk_idx_t idx) {
  16165. DUK_ASSERT_API_ENTRY(thr);
  16166. DUK_ASSERT(idx >= 0); /* Doesn't support negative indices. */
  16167. duk_push_undefined(thr);
  16168. duk_insert(thr, idx);
  16169. }
  16170. DUK_INTERNAL void duk_insert_undefined_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) {
  16171. duk_tval *tv, *tv_end;
  16172. DUK_ASSERT_API_ENTRY(thr);
  16173. DUK_ASSERT(idx >= 0); /* Doesn't support negative indices or count. */
  16174. DUK_ASSERT(count >= 0);
  16175. tv = duk_reserve_gap(thr, idx, count);
  16176. tv_end = tv + count;
  16177. while (tv != tv_end) {
  16178. DUK_TVAL_SET_UNDEFINED(tv);
  16179. tv++;
  16180. }
  16181. }
  16182. DUK_EXTERNAL void duk_replace(duk_hthread *thr, duk_idx_t to_idx) {
  16183. duk_tval *tv1;
  16184. duk_tval *tv2;
  16185. duk_tval tv_tmp;
  16186. DUK_ASSERT_API_ENTRY(thr);
  16187. tv1 = duk_require_tval(thr, -1);
  16188. DUK_ASSERT(tv1 != NULL);
  16189. tv2 = duk_require_tval(thr, to_idx);
  16190. DUK_ASSERT(tv2 != NULL);
  16191. /* For tv1 == tv2, both pointing to stack top, the end result
  16192. * is same as duk_pop(thr).
  16193. */
  16194. DUK_TVAL_SET_TVAL(&tv_tmp, tv2);
  16195. DUK_TVAL_SET_TVAL(tv2, tv1);
  16196. DUK_TVAL_SET_UNDEFINED(tv1);
  16197. thr->valstack_top--;
  16198. DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */
  16199. }
  16200. DUK_EXTERNAL void duk_copy(duk_hthread *thr, duk_idx_t from_idx, duk_idx_t to_idx) {
  16201. duk_tval *tv1;
  16202. duk_tval *tv2;
  16203. DUK_ASSERT_API_ENTRY(thr);
  16204. tv1 = duk_require_tval(thr, from_idx);
  16205. DUK_ASSERT(tv1 != NULL);
  16206. tv2 = duk_require_tval(thr, to_idx);
  16207. DUK_ASSERT(tv2 != NULL);
  16208. /* For tv1 == tv2, this is a no-op (no explicit check needed). */
  16209. DUK_TVAL_SET_TVAL_UPDREF(thr, tv2, tv1); /* side effects */
  16210. }
  16211. DUK_EXTERNAL void duk_remove(duk_hthread *thr, duk_idx_t idx) {
  16212. duk_tval *p;
  16213. duk_tval *q;
  16214. #if defined(DUK_USE_REFERENCE_COUNTING)
  16215. duk_tval tv_tmp;
  16216. #endif
  16217. duk_size_t nbytes;
  16218. DUK_ASSERT_API_ENTRY(thr);
  16219. p = duk_require_tval(thr, idx);
  16220. DUK_ASSERT(p != NULL);
  16221. q = duk_require_tval(thr, -1);
  16222. DUK_ASSERT(q != NULL);
  16223. DUK_ASSERT(q >= p);
  16224. /* nbytes zero size case
  16225. * <--------->
  16226. * [ ... | p | x | x | q ] [ ... | p==q ]
  16227. * => [ ... | x | x | q ] [ ... ]
  16228. */
  16229. #if defined(DUK_USE_REFERENCE_COUNTING)
  16230. /* use a temp: decref only when valstack reachable values are correct */
  16231. DUK_TVAL_SET_TVAL(&tv_tmp, p);
  16232. #endif
  16233. nbytes = (duk_size_t) (((duk_uint8_t *) q) - ((duk_uint8_t *) p)); /* Note: 'q' is top-1 */
  16234. DUK_MEMMOVE((void *) p, (const void *) (p + 1), (size_t) nbytes); /* zero size not an issue: pointers are valid */
  16235. DUK_TVAL_SET_UNDEFINED(q);
  16236. thr->valstack_top--;
  16237. #if defined(DUK_USE_REFERENCE_COUNTING)
  16238. DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */
  16239. #endif
  16240. }
  16241. DUK_INTERNAL void duk_remove_unsafe(duk_hthread *thr, duk_idx_t idx) {
  16242. DUK_ASSERT_API_ENTRY(thr);
  16243. duk_remove(thr, idx); /* XXX: no optimization for now */
  16244. }
  16245. DUK_INTERNAL void duk_remove_m2(duk_hthread *thr) {
  16246. DUK_ASSERT_API_ENTRY(thr);
  16247. duk_remove(thr, -2);
  16248. }
  16249. DUK_INTERNAL void duk_remove_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) {
  16250. #if defined(DUK_USE_PREFER_SIZE)
  16251. /* XXX: maybe too slow even when preferring size? */
  16252. DUK_ASSERT_API_ENTRY(thr);
  16253. DUK_ASSERT(count >= 0);
  16254. DUK_ASSERT(idx >= 0);
  16255. while (count-- > 0) {
  16256. duk_remove(thr, idx);
  16257. }
  16258. #else /* DUK_USE_PREFER_SIZE */
  16259. duk_tval *tv_src;
  16260. duk_tval *tv_dst;
  16261. duk_tval *tv_newtop;
  16262. duk_tval *tv;
  16263. duk_size_t bytes;
  16264. DUK_ASSERT_API_ENTRY(thr);
  16265. DUK_ASSERT(count >= 0);
  16266. DUK_ASSERT(idx >= 0);
  16267. tv_dst = thr->valstack_bottom + idx;
  16268. DUK_ASSERT(tv_dst <= thr->valstack_top);
  16269. tv_src = tv_dst + count;
  16270. DUK_ASSERT(tv_src <= thr->valstack_top);
  16271. bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) tv_src);
  16272. for (tv = tv_dst; tv < tv_src; tv++) {
  16273. DUK_TVAL_DECREF_NORZ(thr, tv);
  16274. }
  16275. DUK_MEMMOVE((void *) tv_dst, (const void *) tv_src, bytes);
  16276. tv_newtop = thr->valstack_top - count;
  16277. for (tv = tv_newtop; tv < thr->valstack_top; tv++) {
  16278. DUK_TVAL_SET_UNDEFINED(tv);
  16279. }
  16280. thr->valstack_top = tv_newtop;
  16281. /* When not preferring size, only NORZ macros are used; caller
  16282. * is expected to DUK_REFZERO_CHECK().
  16283. */
  16284. #endif /* DUK_USE_PREFER_SIZE */
  16285. }
  16286. DUK_INTERNAL void duk_remove_n_unsafe(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) {
  16287. DUK_ASSERT_API_ENTRY(thr);
  16288. duk_remove_n(thr, idx, count); /* XXX: no optimization for now */
  16289. }
  16290. /*
  16291. * Stack slice primitives
  16292. */
  16293. DUK_EXTERNAL void duk_xcopymove_raw(duk_hthread *to_thr, duk_hthread *from_thr, duk_idx_t count, duk_bool_t is_copy) {
  16294. void *src;
  16295. duk_size_t nbytes;
  16296. duk_tval *p;
  16297. duk_tval *q;
  16298. /* XXX: several pointer comparison issues here */
  16299. DUK_ASSERT_API_ENTRY(to_thr);
  16300. DUK_ASSERT_CTX_VALID(to_thr);
  16301. DUK_ASSERT_CTX_VALID(from_thr);
  16302. DUK_ASSERT(to_thr->heap == from_thr->heap);
  16303. if (DUK_UNLIKELY(to_thr == from_thr)) {
  16304. DUK_ERROR_TYPE(to_thr, DUK_STR_INVALID_CONTEXT);
  16305. return;
  16306. }
  16307. if (DUK_UNLIKELY((duk_uidx_t) count > (duk_uidx_t) DUK_USE_VALSTACK_LIMIT)) {
  16308. /* Maximum value check ensures 'nbytes' won't wrap below.
  16309. * Also handles negative count.
  16310. */
  16311. DUK_ERROR_RANGE_INVALID_COUNT(to_thr);
  16312. return;
  16313. }
  16314. DUK_ASSERT(count >= 0);
  16315. nbytes = sizeof(duk_tval) * (duk_size_t) count;
  16316. if (DUK_UNLIKELY(nbytes == 0)) {
  16317. return;
  16318. }
  16319. DUK_ASSERT(to_thr->valstack_top <= to_thr->valstack_end);
  16320. if (DUK_UNLIKELY((duk_size_t) ((duk_uint8_t *) to_thr->valstack_end - (duk_uint8_t *) to_thr->valstack_top) < nbytes)) {
  16321. DUK_ERROR_RANGE_PUSH_BEYOND(to_thr);
  16322. }
  16323. src = (void *) ((duk_uint8_t *) from_thr->valstack_top - nbytes);
  16324. if (DUK_UNLIKELY(src < (void *) from_thr->valstack_bottom)) {
  16325. DUK_ERROR_RANGE_INVALID_COUNT(to_thr);
  16326. }
  16327. /* copy values (no overlap even if to_thr == from_thr; that's not
  16328. * allowed now anyway)
  16329. */
  16330. DUK_ASSERT(nbytes > 0);
  16331. DUK_MEMCPY((void *) to_thr->valstack_top, (const void *) src, (size_t) nbytes);
  16332. p = to_thr->valstack_top;
  16333. to_thr->valstack_top = (duk_tval *) (void *) (((duk_uint8_t *) p) + nbytes);
  16334. if (is_copy) {
  16335. /* Incref copies, keep originals. */
  16336. q = to_thr->valstack_top;
  16337. while (p < q) {
  16338. DUK_TVAL_INCREF(to_thr, p); /* no side effects */
  16339. p++;
  16340. }
  16341. } else {
  16342. /* No net refcount change. */
  16343. p = from_thr->valstack_top;
  16344. q = (duk_tval *) (void *) (((duk_uint8_t *) p) - nbytes);
  16345. from_thr->valstack_top = q;
  16346. while (p > q) {
  16347. p--;
  16348. DUK_TVAL_SET_UNDEFINED(p);
  16349. /* XXX: fast primitive to set a bunch of values to UNDEFINED */
  16350. }
  16351. }
  16352. }
  16353. /* Internal helper: reserve a gap of 'count' elements at 'idx_base' and return a
  16354. * pointer to the gap. Values in the gap are garbage and MUST be initialized by
  16355. * the caller before any side effects may occur. The caller must ensure there's
  16356. * enough stack reserve for 'count' values.
  16357. */
  16358. DUK_INTERNAL duk_tval *duk_reserve_gap(duk_hthread *thr, duk_idx_t idx_base, duk_idx_t count) {
  16359. duk_tval *tv_src;
  16360. duk_tval *tv_dst;
  16361. duk_size_t gap_bytes;
  16362. duk_size_t copy_bytes;
  16363. /* Caller is responsible for ensuring there's enough preallocated
  16364. * value stack.
  16365. */
  16366. DUK_ASSERT_API_ENTRY(thr);
  16367. DUK_ASSERT(count >= 0);
  16368. DUK_ASSERT((duk_size_t) (thr->valstack_end - thr->valstack_top) >= (duk_size_t) count);
  16369. tv_src = thr->valstack_bottom + idx_base;
  16370. gap_bytes = (duk_size_t) count * sizeof(duk_tval);
  16371. tv_dst = (duk_tval *) (void *) ((duk_uint8_t *) tv_src + gap_bytes);
  16372. copy_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) tv_src);
  16373. thr->valstack_top = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_top + gap_bytes);
  16374. DUK_MEMMOVE((void *) tv_dst, (const void *) tv_src, copy_bytes);
  16375. /* Values in the gap are left as garbage: caller must fill them in
  16376. * and INCREF them before any side effects.
  16377. */
  16378. return tv_src;
  16379. }
  16380. /*
  16381. * Get/opt/require
  16382. */
  16383. DUK_EXTERNAL void duk_require_undefined(duk_hthread *thr, duk_idx_t idx) {
  16384. duk_tval *tv;
  16385. DUK_ASSERT_API_ENTRY(thr);
  16386. tv = duk_get_tval_or_unused(thr, idx);
  16387. DUK_ASSERT(tv != NULL);
  16388. if (DUK_UNLIKELY(!DUK_TVAL_IS_UNDEFINED(tv))) {
  16389. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "undefined", DUK_STR_NOT_UNDEFINED);
  16390. }
  16391. }
  16392. DUK_EXTERNAL void duk_require_null(duk_hthread *thr, duk_idx_t idx) {
  16393. duk_tval *tv;
  16394. DUK_ASSERT_API_ENTRY(thr);
  16395. tv = duk_get_tval_or_unused(thr, idx);
  16396. DUK_ASSERT(tv != NULL);
  16397. if (DUK_UNLIKELY(!DUK_TVAL_IS_NULL(tv))) {
  16398. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "null", DUK_STR_NOT_NULL);
  16399. }
  16400. }
  16401. DUK_LOCAL DUK_ALWAYS_INLINE duk_bool_t duk__get_boolean_raw(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) {
  16402. duk_bool_t ret;
  16403. duk_tval *tv;
  16404. DUK_ASSERT_CTX_VALID(thr);
  16405. tv = duk_get_tval_or_unused(thr, idx);
  16406. DUK_ASSERT(tv != NULL);
  16407. if (DUK_TVAL_IS_BOOLEAN(tv)) {
  16408. ret = DUK_TVAL_GET_BOOLEAN(tv);
  16409. DUK_ASSERT(ret == 0 || ret == 1);
  16410. } else {
  16411. ret = def_value;
  16412. /* Not guaranteed to be 0 or 1. */
  16413. }
  16414. return ret;
  16415. }
  16416. DUK_EXTERNAL duk_bool_t duk_get_boolean(duk_hthread *thr, duk_idx_t idx) {
  16417. DUK_ASSERT_API_ENTRY(thr);
  16418. return duk__get_boolean_raw(thr, idx, 0); /* default: false */
  16419. }
  16420. DUK_EXTERNAL duk_bool_t duk_get_boolean_default(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) {
  16421. DUK_ASSERT_API_ENTRY(thr);
  16422. return duk__get_boolean_raw(thr, idx, def_value);
  16423. }
  16424. DUK_EXTERNAL duk_bool_t duk_require_boolean(duk_hthread *thr, duk_idx_t idx) {
  16425. duk_tval *tv;
  16426. duk_bool_t ret;
  16427. DUK_ASSERT_API_ENTRY(thr);
  16428. tv = duk_get_tval_or_unused(thr, idx);
  16429. DUK_ASSERT(tv != NULL);
  16430. if (DUK_LIKELY(DUK_TVAL_IS_BOOLEAN(tv))) {
  16431. ret = DUK_TVAL_GET_BOOLEAN(tv);
  16432. DUK_ASSERT(ret == 0 || ret == 1);
  16433. return ret;
  16434. } else {
  16435. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "boolean", DUK_STR_NOT_BOOLEAN);
  16436. }
  16437. }
  16438. DUK_EXTERNAL duk_bool_t duk_opt_boolean(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) {
  16439. DUK_ASSERT_API_ENTRY(thr);
  16440. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16441. return def_value;
  16442. }
  16443. return duk_require_boolean(thr, idx);
  16444. }
  16445. DUK_LOCAL DUK_ALWAYS_INLINE duk_double_t duk__get_number_raw(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) {
  16446. duk_double_union ret;
  16447. duk_tval *tv;
  16448. DUK_ASSERT_CTX_VALID(thr);
  16449. tv = duk_get_tval_or_unused(thr, idx);
  16450. DUK_ASSERT(tv != NULL);
  16451. #if defined(DUK_USE_FASTINT)
  16452. if (DUK_TVAL_IS_FASTINT(tv)) {
  16453. ret.d = (duk_double_t) DUK_TVAL_GET_FASTINT(tv); /* XXX: cast trick */
  16454. }
  16455. else
  16456. #endif
  16457. if (DUK_TVAL_IS_DOUBLE(tv)) {
  16458. /* When using packed duk_tval, number must be in NaN-normalized form
  16459. * for it to be a duk_tval, so no need to normalize. NOP for unpacked
  16460. * duk_tval.
  16461. */
  16462. ret.d = DUK_TVAL_GET_DOUBLE(tv);
  16463. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&ret));
  16464. } else {
  16465. ret.d = def_value;
  16466. /* Default value (including NaN) may not be normalized. */
  16467. }
  16468. return ret.d;
  16469. }
  16470. DUK_EXTERNAL duk_double_t duk_get_number(duk_hthread *thr, duk_idx_t idx) {
  16471. DUK_ASSERT_API_ENTRY(thr);
  16472. return duk__get_number_raw(thr, idx, DUK_DOUBLE_NAN); /* default: NaN */
  16473. }
  16474. DUK_EXTERNAL duk_double_t duk_get_number_default(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) {
  16475. DUK_ASSERT_API_ENTRY(thr);
  16476. return duk__get_number_raw(thr, idx, def_value);
  16477. }
  16478. DUK_EXTERNAL duk_double_t duk_require_number(duk_hthread *thr, duk_idx_t idx) {
  16479. duk_tval *tv;
  16480. duk_double_union ret;
  16481. DUK_ASSERT_API_ENTRY(thr);
  16482. tv = duk_get_tval_or_unused(thr, idx);
  16483. DUK_ASSERT(tv != NULL);
  16484. if (DUK_UNLIKELY(!DUK_TVAL_IS_NUMBER(tv))) {
  16485. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER);
  16486. }
  16487. ret.d = DUK_TVAL_GET_NUMBER(tv);
  16488. /* When using packed duk_tval, number must be in NaN-normalized form
  16489. * for it to be a duk_tval, so no need to normalize. NOP for unpacked
  16490. * duk_tval.
  16491. */
  16492. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&ret));
  16493. return ret.d;
  16494. }
  16495. DUK_EXTERNAL duk_double_t duk_opt_number(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) {
  16496. DUK_ASSERT_API_ENTRY(thr);
  16497. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16498. /* User provided default is not NaN normalized. */
  16499. return def_value;
  16500. }
  16501. return duk_require_number(thr, idx);
  16502. }
  16503. DUK_EXTERNAL duk_int_t duk_get_int(duk_hthread *thr, duk_idx_t idx) {
  16504. DUK_ASSERT_API_ENTRY(thr);
  16505. return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 0 /*require*/);
  16506. }
  16507. DUK_EXTERNAL duk_uint_t duk_get_uint(duk_hthread *thr, duk_idx_t idx) {
  16508. DUK_ASSERT_API_ENTRY(thr);
  16509. return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 0 /*require*/);
  16510. }
  16511. DUK_EXTERNAL duk_int_t duk_get_int_default(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value) {
  16512. DUK_ASSERT_API_ENTRY(thr);
  16513. return (duk_int_t) duk__api_coerce_d2i(thr, idx, def_value, 0 /*require*/);
  16514. }
  16515. DUK_EXTERNAL duk_uint_t duk_get_uint_default(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value) {
  16516. DUK_ASSERT_API_ENTRY(thr);
  16517. return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, def_value, 0 /*require*/);
  16518. }
  16519. DUK_EXTERNAL duk_int_t duk_require_int(duk_hthread *thr, duk_idx_t idx) {
  16520. DUK_ASSERT_API_ENTRY(thr);
  16521. return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 1 /*require*/);
  16522. }
  16523. DUK_EXTERNAL duk_uint_t duk_require_uint(duk_hthread *thr, duk_idx_t idx) {
  16524. DUK_ASSERT_API_ENTRY(thr);
  16525. return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 1 /*require*/);
  16526. }
  16527. DUK_EXTERNAL duk_int_t duk_opt_int(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value) {
  16528. DUK_ASSERT_API_ENTRY(thr);
  16529. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16530. return def_value;
  16531. }
  16532. return duk_require_int(thr, idx);
  16533. }
  16534. DUK_EXTERNAL duk_uint_t duk_opt_uint(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value) {
  16535. DUK_ASSERT_API_ENTRY(thr);
  16536. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16537. return def_value;
  16538. }
  16539. return duk_require_uint(thr, idx);
  16540. }
  16541. DUK_EXTERNAL const char *duk_get_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  16542. duk_hstring *h;
  16543. const char *ret;
  16544. duk_size_t len;
  16545. DUK_ASSERT_API_ENTRY(thr);
  16546. h = duk_get_hstring(thr, idx);
  16547. if (h != NULL) {
  16548. len = DUK_HSTRING_GET_BYTELEN(h);
  16549. ret = (const char *) DUK_HSTRING_GET_DATA(h);
  16550. } else {
  16551. len = 0;
  16552. ret = NULL;
  16553. }
  16554. if (out_len != NULL) {
  16555. *out_len = len;
  16556. }
  16557. return ret;
  16558. }
  16559. DUK_EXTERNAL const char *duk_require_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  16560. duk_hstring *h;
  16561. DUK_ASSERT_API_ENTRY(thr);
  16562. h = duk_require_hstring(thr, idx);
  16563. DUK_ASSERT(h != NULL);
  16564. if (out_len) {
  16565. *out_len = DUK_HSTRING_GET_BYTELEN(h);
  16566. }
  16567. return (const char *) DUK_HSTRING_GET_DATA(h);
  16568. }
  16569. DUK_INTERNAL const char *duk_require_lstring_notsymbol(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  16570. duk_hstring *h;
  16571. DUK_ASSERT_API_ENTRY(thr);
  16572. h = duk_require_hstring_notsymbol(thr, idx);
  16573. DUK_ASSERT(h != NULL);
  16574. if (out_len) {
  16575. *out_len = DUK_HSTRING_GET_BYTELEN(h);
  16576. }
  16577. return (const char *) DUK_HSTRING_GET_DATA(h);
  16578. }
  16579. DUK_EXTERNAL const char *duk_get_string(duk_hthread *thr, duk_idx_t idx) {
  16580. duk_hstring *h;
  16581. DUK_ASSERT_API_ENTRY(thr);
  16582. h = duk_get_hstring(thr, idx);
  16583. if (h != NULL) {
  16584. return (const char *) DUK_HSTRING_GET_DATA(h);
  16585. } else {
  16586. return NULL;
  16587. }
  16588. }
  16589. DUK_EXTERNAL const char *duk_opt_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len) {
  16590. DUK_ASSERT_API_ENTRY(thr);
  16591. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16592. if (out_len != NULL) {
  16593. *out_len = def_len;
  16594. }
  16595. return def_ptr;
  16596. }
  16597. return duk_require_lstring(thr, idx, out_len);
  16598. }
  16599. DUK_EXTERNAL const char *duk_opt_string(duk_hthread *thr, duk_idx_t idx, const char *def_ptr) {
  16600. DUK_ASSERT_API_ENTRY(thr);
  16601. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16602. return def_ptr;
  16603. }
  16604. return duk_require_string(thr, idx);
  16605. }
  16606. DUK_EXTERNAL const char *duk_get_lstring_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len) {
  16607. duk_hstring *h;
  16608. const char *ret;
  16609. duk_size_t len;
  16610. DUK_ASSERT_API_ENTRY(thr);
  16611. h = duk_get_hstring(thr, idx);
  16612. if (h != NULL) {
  16613. len = DUK_HSTRING_GET_BYTELEN(h);
  16614. ret = (const char *) DUK_HSTRING_GET_DATA(h);
  16615. } else {
  16616. len = def_len;
  16617. ret = def_ptr;
  16618. }
  16619. if (out_len != NULL) {
  16620. *out_len = len;
  16621. }
  16622. return ret;
  16623. }
  16624. DUK_EXTERNAL const char *duk_get_string_default(duk_hthread *thr, duk_idx_t idx, const char *def_value) {
  16625. duk_hstring *h;
  16626. DUK_ASSERT_API_ENTRY(thr);
  16627. h = duk_get_hstring(thr, idx);
  16628. if (h != NULL) {
  16629. return (const char *) DUK_HSTRING_GET_DATA(h);
  16630. } else {
  16631. return def_value;
  16632. }
  16633. }
  16634. DUK_INTERNAL const char *duk_get_string_notsymbol(duk_hthread *thr, duk_idx_t idx) {
  16635. duk_hstring *h;
  16636. DUK_ASSERT_API_ENTRY(thr);
  16637. h = duk_get_hstring_notsymbol(thr, idx);
  16638. if (h) {
  16639. return (const char *) DUK_HSTRING_GET_DATA(h);
  16640. } else {
  16641. return NULL;
  16642. }
  16643. }
  16644. DUK_EXTERNAL const char *duk_require_string(duk_hthread *thr, duk_idx_t idx) {
  16645. DUK_ASSERT_API_ENTRY(thr);
  16646. return duk_require_lstring(thr, idx, NULL);
  16647. }
  16648. DUK_INTERNAL const char *duk_require_string_notsymbol(duk_hthread *thr, duk_idx_t idx) {
  16649. duk_hstring *h;
  16650. DUK_ASSERT_API_ENTRY(thr);
  16651. h = duk_require_hstring_notsymbol(thr, idx);
  16652. DUK_ASSERT(h != NULL);
  16653. return (const char *) DUK_HSTRING_GET_DATA(h);
  16654. }
  16655. DUK_EXTERNAL void duk_require_object(duk_hthread *thr, duk_idx_t idx) {
  16656. duk_tval *tv;
  16657. DUK_ASSERT_API_ENTRY(thr);
  16658. tv = duk_get_tval_or_unused(thr, idx);
  16659. DUK_ASSERT(tv != NULL);
  16660. if (DUK_UNLIKELY(!DUK_TVAL_IS_OBJECT(tv))) {
  16661. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT);
  16662. }
  16663. }
  16664. DUK_LOCAL void *duk__get_pointer_raw(duk_hthread *thr, duk_idx_t idx, void *def_value) {
  16665. duk_tval *tv;
  16666. void *p;
  16667. DUK_ASSERT_CTX_VALID(thr);
  16668. tv = duk_get_tval_or_unused(thr, idx);
  16669. DUK_ASSERT(tv != NULL);
  16670. if (!DUK_TVAL_IS_POINTER(tv)) {
  16671. return def_value;
  16672. }
  16673. p = DUK_TVAL_GET_POINTER(tv); /* may be NULL */
  16674. return p;
  16675. }
  16676. DUK_EXTERNAL void *duk_get_pointer(duk_hthread *thr, duk_idx_t idx) {
  16677. DUK_ASSERT_API_ENTRY(thr);
  16678. return duk__get_pointer_raw(thr, idx, NULL /*def_value*/);
  16679. }
  16680. DUK_EXTERNAL void *duk_opt_pointer(duk_hthread *thr, duk_idx_t idx, void *def_value) {
  16681. DUK_ASSERT_API_ENTRY(thr);
  16682. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16683. return def_value;
  16684. }
  16685. return duk_require_pointer(thr, idx);
  16686. }
  16687. DUK_EXTERNAL void *duk_get_pointer_default(duk_hthread *thr, duk_idx_t idx, void *def_value) {
  16688. DUK_ASSERT_API_ENTRY(thr);
  16689. return duk__get_pointer_raw(thr, idx, def_value);
  16690. }
  16691. DUK_EXTERNAL void *duk_require_pointer(duk_hthread *thr, duk_idx_t idx) {
  16692. duk_tval *tv;
  16693. void *p;
  16694. DUK_ASSERT_API_ENTRY(thr);
  16695. /* Note: here we must be wary of the fact that a pointer may be
  16696. * valid and be a NULL.
  16697. */
  16698. tv = duk_get_tval_or_unused(thr, idx);
  16699. DUK_ASSERT(tv != NULL);
  16700. if (DUK_UNLIKELY(!DUK_TVAL_IS_POINTER(tv))) {
  16701. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "pointer", DUK_STR_NOT_POINTER);
  16702. }
  16703. p = DUK_TVAL_GET_POINTER(tv); /* may be NULL */
  16704. return p;
  16705. }
  16706. #if 0 /*unused*/
  16707. DUK_INTERNAL void *duk_get_voidptr(duk_hthread *thr, duk_idx_t idx) {
  16708. duk_tval *tv;
  16709. duk_heaphdr *h;
  16710. DUK_ASSERT_API_ENTRY(thr);
  16711. tv = duk_get_tval_or_unused(thr, idx);
  16712. DUK_ASSERT(tv != NULL);
  16713. if (!DUK_TVAL_IS_HEAP_ALLOCATED(tv)) {
  16714. return NULL;
  16715. }
  16716. h = DUK_TVAL_GET_HEAPHDR(tv);
  16717. DUK_ASSERT(h != NULL);
  16718. return (void *) h;
  16719. }
  16720. #endif
  16721. DUK_LOCAL void *duk__get_buffer_helper(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size, duk_bool_t throw_flag) {
  16722. duk_hbuffer *h;
  16723. void *ret;
  16724. duk_size_t len;
  16725. duk_tval *tv;
  16726. DUK_ASSERT_CTX_VALID(thr);
  16727. if (out_size != NULL) {
  16728. *out_size = 0;
  16729. }
  16730. tv = duk_get_tval_or_unused(thr, idx);
  16731. DUK_ASSERT(tv != NULL);
  16732. if (DUK_LIKELY(DUK_TVAL_IS_BUFFER(tv))) {
  16733. h = DUK_TVAL_GET_BUFFER(tv);
  16734. DUK_ASSERT(h != NULL);
  16735. len = DUK_HBUFFER_GET_SIZE(h);
  16736. ret = DUK_HBUFFER_GET_DATA_PTR(thr->heap, h);
  16737. } else {
  16738. if (throw_flag) {
  16739. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER);
  16740. }
  16741. len = def_size;
  16742. ret = def_ptr;
  16743. }
  16744. if (out_size != NULL) {
  16745. *out_size = len;
  16746. }
  16747. return ret;
  16748. }
  16749. DUK_EXTERNAL void *duk_get_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) {
  16750. DUK_ASSERT_API_ENTRY(thr);
  16751. return duk__get_buffer_helper(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/);
  16752. }
  16753. DUK_EXTERNAL void *duk_opt_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) {
  16754. DUK_ASSERT_API_ENTRY(thr);
  16755. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16756. if (out_size != NULL) {
  16757. *out_size = def_size;
  16758. }
  16759. return def_ptr;
  16760. }
  16761. return duk_require_buffer(thr, idx, out_size);
  16762. }
  16763. DUK_EXTERNAL void *duk_get_buffer_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len) {
  16764. DUK_ASSERT_API_ENTRY(thr);
  16765. return duk__get_buffer_helper(thr, idx, out_size, def_ptr, def_len, 0 /*throw_flag*/);
  16766. }
  16767. DUK_EXTERNAL void *duk_require_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) {
  16768. DUK_ASSERT_API_ENTRY(thr);
  16769. return duk__get_buffer_helper(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 1 /*throw_flag*/);
  16770. }
  16771. /* Get the active buffer data area for a plain buffer or a buffer object.
  16772. * Return NULL if the the value is not a buffer. Note that a buffer may
  16773. * have a NULL data pointer when its size is zero, the optional 'out_isbuffer'
  16774. * argument allows caller to detect this reliably.
  16775. */
  16776. DUK_INTERNAL void *duk_get_buffer_data_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size, duk_bool_t throw_flag, duk_bool_t *out_isbuffer) {
  16777. duk_tval *tv;
  16778. DUK_ASSERT_API_ENTRY(thr);
  16779. if (out_isbuffer != NULL) {
  16780. *out_isbuffer = 0;
  16781. }
  16782. if (out_size != NULL) {
  16783. *out_size = def_size;
  16784. }
  16785. tv = duk_get_tval_or_unused(thr, idx);
  16786. DUK_ASSERT(tv != NULL);
  16787. if (DUK_TVAL_IS_BUFFER(tv)) {
  16788. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  16789. DUK_ASSERT(h != NULL);
  16790. if (out_size != NULL) {
  16791. *out_size = DUK_HBUFFER_GET_SIZE(h);
  16792. }
  16793. if (out_isbuffer != NULL) {
  16794. *out_isbuffer = 1;
  16795. }
  16796. return (void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h); /* may be NULL (but only if size is 0) */
  16797. }
  16798. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  16799. else if (DUK_TVAL_IS_OBJECT(tv)) {
  16800. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  16801. DUK_ASSERT(h != NULL);
  16802. if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  16803. /* XXX: this is probably a useful shared helper: for a
  16804. * duk_hbufobj, get a validated buffer pointer/length.
  16805. */
  16806. duk_hbufobj *h_bufobj = (duk_hbufobj *) h;
  16807. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  16808. if (h_bufobj->buf != NULL &&
  16809. DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) {
  16810. duk_uint8_t *p;
  16811. p = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf);
  16812. if (out_size != NULL) {
  16813. *out_size = (duk_size_t) h_bufobj->length;
  16814. }
  16815. if (out_isbuffer != NULL) {
  16816. *out_isbuffer = 1;
  16817. }
  16818. return (void *) (p + h_bufobj->offset);
  16819. }
  16820. /* if slice not fully valid, treat as error */
  16821. }
  16822. }
  16823. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  16824. if (throw_flag) {
  16825. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER);
  16826. }
  16827. return def_ptr;
  16828. }
  16829. DUK_EXTERNAL void *duk_get_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) {
  16830. DUK_ASSERT_API_ENTRY(thr);
  16831. return duk_get_buffer_data_raw(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/, NULL);
  16832. }
  16833. DUK_EXTERNAL void *duk_get_buffer_data_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) {
  16834. DUK_ASSERT_API_ENTRY(thr);
  16835. return duk_get_buffer_data_raw(thr, idx, out_size, def_ptr, def_size, 0 /*throw_flag*/, NULL);
  16836. }
  16837. DUK_EXTERNAL void *duk_opt_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) {
  16838. DUK_ASSERT_API_ENTRY(thr);
  16839. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  16840. if (out_size != NULL) {
  16841. *out_size = def_size;
  16842. }
  16843. return def_ptr;
  16844. }
  16845. return duk_require_buffer_data(thr, idx, out_size);
  16846. }
  16847. DUK_EXTERNAL void *duk_require_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) {
  16848. DUK_ASSERT_API_ENTRY(thr);
  16849. return duk_get_buffer_data_raw(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 1 /*throw_flag*/, NULL);
  16850. }
  16851. /* Raw helper for getting a value from the stack, checking its tag.
  16852. * The tag cannot be a number because numbers don't have an internal
  16853. * tag in the packed representation.
  16854. */
  16855. DUK_LOCAL duk_heaphdr *duk__get_tagged_heaphdr_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t tag) {
  16856. duk_tval *tv;
  16857. duk_heaphdr *ret;
  16858. DUK_ASSERT_CTX_VALID(thr);
  16859. tv = duk_get_tval_or_unused(thr, idx);
  16860. DUK_ASSERT(tv != NULL);
  16861. if (DUK_TVAL_GET_TAG(tv) != tag) {
  16862. return (duk_heaphdr *) NULL;
  16863. }
  16864. ret = DUK_TVAL_GET_HEAPHDR(tv);
  16865. DUK_ASSERT(ret != NULL); /* tagged null pointers should never occur */
  16866. return ret;
  16867. }
  16868. DUK_INTERNAL duk_hstring *duk_get_hstring(duk_hthread *thr, duk_idx_t idx) {
  16869. DUK_ASSERT_API_ENTRY(thr);
  16870. return (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING);
  16871. }
  16872. DUK_INTERNAL duk_hstring *duk_get_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx) {
  16873. duk_hstring *h;
  16874. DUK_ASSERT_API_ENTRY(thr);
  16875. h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING);
  16876. if (DUK_UNLIKELY(h && DUK_HSTRING_HAS_SYMBOL(h))) {
  16877. return NULL;
  16878. }
  16879. return h;
  16880. }
  16881. DUK_INTERNAL duk_hstring *duk_require_hstring(duk_hthread *thr, duk_idx_t idx) {
  16882. duk_hstring *h;
  16883. DUK_ASSERT_API_ENTRY(thr);
  16884. h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING);
  16885. if (DUK_UNLIKELY(h == NULL)) {
  16886. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "string", DUK_STR_NOT_STRING);
  16887. }
  16888. return h;
  16889. }
  16890. DUK_INTERNAL duk_hstring *duk_require_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx) {
  16891. duk_hstring *h;
  16892. DUK_ASSERT_API_ENTRY(thr);
  16893. h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING);
  16894. if (DUK_UNLIKELY(h == NULL || DUK_HSTRING_HAS_SYMBOL(h))) {
  16895. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "string", DUK_STR_NOT_STRING);
  16896. }
  16897. return h;
  16898. }
  16899. DUK_INTERNAL duk_hobject *duk_get_hobject(duk_hthread *thr, duk_idx_t idx) {
  16900. DUK_ASSERT_API_ENTRY(thr);
  16901. return (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16902. }
  16903. DUK_INTERNAL duk_hobject *duk_require_hobject(duk_hthread *thr, duk_idx_t idx) {
  16904. duk_hobject *h;
  16905. DUK_ASSERT_API_ENTRY(thr);
  16906. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16907. if (DUK_UNLIKELY(h == NULL)) {
  16908. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT);
  16909. }
  16910. return h;
  16911. }
  16912. DUK_INTERNAL duk_hbuffer *duk_get_hbuffer(duk_hthread *thr, duk_idx_t idx) {
  16913. DUK_ASSERT_API_ENTRY(thr);
  16914. return (duk_hbuffer *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_BUFFER);
  16915. }
  16916. DUK_INTERNAL duk_hbuffer *duk_require_hbuffer(duk_hthread *thr, duk_idx_t idx) {
  16917. duk_hbuffer *h;
  16918. DUK_ASSERT_API_ENTRY(thr);
  16919. h = (duk_hbuffer *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_BUFFER);
  16920. if (DUK_UNLIKELY(h == NULL)) {
  16921. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER);
  16922. }
  16923. return h;
  16924. }
  16925. DUK_INTERNAL duk_hthread *duk_get_hthread(duk_hthread *thr, duk_idx_t idx) {
  16926. duk_hobject *h;
  16927. DUK_ASSERT_API_ENTRY(thr);
  16928. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16929. if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_THREAD(h))) {
  16930. h = NULL;
  16931. }
  16932. return (duk_hthread *) h;
  16933. }
  16934. DUK_INTERNAL duk_hthread *duk_require_hthread(duk_hthread *thr, duk_idx_t idx) {
  16935. duk_hobject *h;
  16936. DUK_ASSERT_API_ENTRY(thr);
  16937. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16938. if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_THREAD(h)))) {
  16939. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "thread", DUK_STR_NOT_THREAD);
  16940. }
  16941. return (duk_hthread *) h;
  16942. }
  16943. DUK_INTERNAL duk_hcompfunc *duk_get_hcompfunc(duk_hthread *thr, duk_idx_t idx) {
  16944. duk_hobject *h;
  16945. DUK_ASSERT_API_ENTRY(thr);
  16946. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16947. if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_COMPFUNC(h))) {
  16948. h = NULL;
  16949. }
  16950. return (duk_hcompfunc *) h;
  16951. }
  16952. DUK_INTERNAL duk_hcompfunc *duk_require_hcompfunc(duk_hthread *thr, duk_idx_t idx) {
  16953. duk_hobject *h;
  16954. DUK_ASSERT_API_ENTRY(thr);
  16955. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16956. if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_COMPFUNC(h)))) {
  16957. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "compiledfunction", DUK_STR_NOT_COMPFUNC);
  16958. }
  16959. return (duk_hcompfunc *) h;
  16960. }
  16961. DUK_INTERNAL duk_hnatfunc *duk_get_hnatfunc(duk_hthread *thr, duk_idx_t idx) {
  16962. duk_hobject *h;
  16963. DUK_ASSERT_API_ENTRY(thr);
  16964. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16965. if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_NATFUNC(h))) {
  16966. h = NULL;
  16967. }
  16968. return (duk_hnatfunc *) h;
  16969. }
  16970. DUK_INTERNAL duk_hnatfunc *duk_require_hnatfunc(duk_hthread *thr, duk_idx_t idx) {
  16971. duk_hobject *h;
  16972. DUK_ASSERT_API_ENTRY(thr);
  16973. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  16974. if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_NATFUNC(h)))) {
  16975. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "nativefunction", DUK_STR_NOT_NATFUNC);
  16976. }
  16977. return (duk_hnatfunc *) h;
  16978. }
  16979. DUK_EXTERNAL duk_c_function duk_get_c_function(duk_hthread *thr, duk_idx_t idx) {
  16980. duk_tval *tv;
  16981. duk_hobject *h;
  16982. duk_hnatfunc *f;
  16983. DUK_ASSERT_API_ENTRY(thr);
  16984. tv = duk_get_tval_or_unused(thr, idx);
  16985. DUK_ASSERT(tv != NULL);
  16986. if (DUK_UNLIKELY(!DUK_TVAL_IS_OBJECT(tv))) {
  16987. return NULL;
  16988. }
  16989. h = DUK_TVAL_GET_OBJECT(tv);
  16990. DUK_ASSERT(h != NULL);
  16991. if (DUK_UNLIKELY(!DUK_HOBJECT_IS_NATFUNC(h))) {
  16992. return NULL;
  16993. }
  16994. DUK_ASSERT(DUK_HOBJECT_HAS_NATFUNC(h));
  16995. f = (duk_hnatfunc *) h;
  16996. return f->func;
  16997. }
  16998. DUK_EXTERNAL duk_c_function duk_opt_c_function(duk_hthread *thr, duk_idx_t idx, duk_c_function def_value) {
  16999. DUK_ASSERT_API_ENTRY(thr);
  17000. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  17001. return def_value;
  17002. }
  17003. return duk_require_c_function(thr, idx);
  17004. }
  17005. DUK_EXTERNAL duk_c_function duk_get_c_function_default(duk_hthread *thr, duk_idx_t idx, duk_c_function def_value) {
  17006. duk_c_function ret;
  17007. DUK_ASSERT_API_ENTRY(thr);
  17008. ret = duk_get_c_function(thr, idx);
  17009. if (ret != NULL) {
  17010. return ret;
  17011. }
  17012. return def_value;
  17013. }
  17014. DUK_EXTERNAL duk_c_function duk_require_c_function(duk_hthread *thr, duk_idx_t idx) {
  17015. duk_c_function ret;
  17016. DUK_ASSERT_API_ENTRY(thr);
  17017. ret = duk_get_c_function(thr, idx);
  17018. if (DUK_UNLIKELY(!ret)) {
  17019. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "nativefunction", DUK_STR_NOT_NATFUNC);
  17020. }
  17021. return ret;
  17022. }
  17023. DUK_EXTERNAL void duk_require_function(duk_hthread *thr, duk_idx_t idx) {
  17024. DUK_ASSERT_API_ENTRY(thr);
  17025. if (DUK_UNLIKELY(!duk_is_function(thr, idx))) {
  17026. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "function", DUK_STR_NOT_FUNCTION);
  17027. }
  17028. }
  17029. DUK_INTERNAL void duk_require_constructable(duk_hthread *thr, duk_idx_t idx) {
  17030. duk_hobject *h;
  17031. DUK_ASSERT_API_ENTRY(thr);
  17032. h = duk_require_hobject_accept_mask(thr, idx, DUK_TYPE_MASK_LIGHTFUNC);
  17033. if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_HAS_CONSTRUCTABLE(h))) {
  17034. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "constructable", DUK_STR_NOT_CONSTRUCTABLE);
  17035. }
  17036. /* Lightfuncs (h == NULL) are constructable. */
  17037. }
  17038. DUK_EXTERNAL duk_hthread *duk_get_context(duk_hthread *thr, duk_idx_t idx) {
  17039. DUK_ASSERT_API_ENTRY(thr);
  17040. return duk_get_hthread(thr, idx);
  17041. }
  17042. DUK_EXTERNAL duk_hthread *duk_require_context(duk_hthread *thr, duk_idx_t idx) {
  17043. DUK_ASSERT_API_ENTRY(thr);
  17044. return duk_require_hthread(thr, idx);
  17045. }
  17046. DUK_EXTERNAL duk_hthread *duk_opt_context(duk_hthread *thr, duk_idx_t idx, duk_hthread *def_value) {
  17047. DUK_ASSERT_API_ENTRY(thr);
  17048. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  17049. return def_value;
  17050. }
  17051. return duk_require_context(thr, idx);
  17052. }
  17053. DUK_EXTERNAL duk_hthread *duk_get_context_default(duk_hthread *thr, duk_idx_t idx, duk_hthread *def_value) {
  17054. duk_hthread *ret;
  17055. DUK_ASSERT_API_ENTRY(thr);
  17056. ret = duk_get_context(thr, idx);
  17057. if (ret != NULL) {
  17058. return ret;
  17059. }
  17060. return def_value;
  17061. }
  17062. DUK_EXTERNAL void *duk_get_heapptr(duk_hthread *thr, duk_idx_t idx) {
  17063. duk_tval *tv;
  17064. void *ret;
  17065. DUK_ASSERT_API_ENTRY(thr);
  17066. tv = duk_get_tval_or_unused(thr, idx);
  17067. DUK_ASSERT(tv != NULL);
  17068. if (DUK_UNLIKELY(!DUK_TVAL_IS_HEAP_ALLOCATED(tv))) {
  17069. return (void *) NULL;
  17070. }
  17071. ret = (void *) DUK_TVAL_GET_HEAPHDR(tv);
  17072. DUK_ASSERT(ret != NULL);
  17073. return ret;
  17074. }
  17075. DUK_EXTERNAL void *duk_opt_heapptr(duk_hthread *thr, duk_idx_t idx, void *def_value) {
  17076. DUK_ASSERT_API_ENTRY(thr);
  17077. if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) {
  17078. return def_value;
  17079. }
  17080. return duk_require_heapptr(thr, idx);
  17081. }
  17082. DUK_EXTERNAL void *duk_get_heapptr_default(duk_hthread *thr, duk_idx_t idx, void *def_value) {
  17083. void *ret;
  17084. DUK_ASSERT_API_ENTRY(thr);
  17085. ret = duk_get_heapptr(thr, idx);
  17086. if (ret != NULL) {
  17087. return ret;
  17088. }
  17089. return def_value;
  17090. }
  17091. DUK_EXTERNAL void *duk_require_heapptr(duk_hthread *thr, duk_idx_t idx) {
  17092. duk_tval *tv;
  17093. void *ret;
  17094. DUK_ASSERT_API_ENTRY(thr);
  17095. tv = duk_get_tval_or_unused(thr, idx);
  17096. DUK_ASSERT(tv != NULL);
  17097. if (DUK_UNLIKELY(!DUK_TVAL_IS_HEAP_ALLOCATED(tv))) {
  17098. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "heapobject", DUK_STR_UNEXPECTED_TYPE);
  17099. }
  17100. ret = (void *) DUK_TVAL_GET_HEAPHDR(tv);
  17101. DUK_ASSERT(ret != NULL);
  17102. return ret;
  17103. }
  17104. /* Internal helper for getting/requiring a duk_hobject with possible promotion. */
  17105. DUK_LOCAL duk_hobject *duk__get_hobject_promote_mask_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) {
  17106. duk_uint_t val_mask;
  17107. duk_hobject *res;
  17108. DUK_ASSERT_CTX_VALID(thr);
  17109. res = duk_get_hobject(thr, idx); /* common case, not promoted */
  17110. if (DUK_LIKELY(res != NULL)) {
  17111. DUK_ASSERT(res != NULL);
  17112. return res;
  17113. }
  17114. val_mask = duk_get_type_mask(thr, idx);
  17115. if (val_mask & type_mask) {
  17116. if (type_mask & DUK_TYPE_MASK_PROMOTE) {
  17117. res = duk_to_hobject(thr, idx);
  17118. DUK_ASSERT(res != NULL);
  17119. return res;
  17120. } else {
  17121. return NULL; /* accept without promoting */
  17122. }
  17123. }
  17124. if (type_mask & DUK_TYPE_MASK_THROW) {
  17125. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT);
  17126. }
  17127. return NULL;
  17128. }
  17129. /* Get a duk_hobject * at 'idx'; if the value is not an object but matches the
  17130. * supplied 'type_mask', promote it to an object and return the duk_hobject *.
  17131. * This is useful for call sites which want an object but also accept a plain
  17132. * buffer and/or a lightfunc which gets automatically promoted to an object.
  17133. * Return value is NULL if value is neither an object nor a plain type allowed
  17134. * by the mask.
  17135. */
  17136. DUK_INTERNAL duk_hobject *duk_get_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) {
  17137. DUK_ASSERT_API_ENTRY(thr);
  17138. return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_PROMOTE);
  17139. }
  17140. /* Like duk_get_hobject_promote_mask() but throw a TypeError instead of
  17141. * returning a NULL.
  17142. */
  17143. DUK_INTERNAL duk_hobject *duk_require_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) {
  17144. DUK_ASSERT_API_ENTRY(thr);
  17145. return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_THROW | DUK_TYPE_MASK_PROMOTE);
  17146. }
  17147. /* Require a duk_hobject * at 'idx'; if the value is not an object but matches the
  17148. * supplied 'type_mask', return a NULL instead. Otherwise throw a TypeError.
  17149. */
  17150. DUK_INTERNAL duk_hobject *duk_require_hobject_accept_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) {
  17151. DUK_ASSERT_API_ENTRY(thr);
  17152. return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_THROW);
  17153. }
  17154. DUK_INTERNAL duk_hobject *duk_get_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum) {
  17155. duk_hobject *h;
  17156. DUK_ASSERT_API_ENTRY(thr);
  17157. DUK_ASSERT_DISABLE(classnum >= 0); /* unsigned */
  17158. DUK_ASSERT(classnum <= DUK_HOBJECT_CLASS_MAX);
  17159. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  17160. if (DUK_UNLIKELY(h != NULL && DUK_HOBJECT_GET_CLASS_NUMBER(h) != classnum)) {
  17161. h = NULL;
  17162. }
  17163. return h;
  17164. }
  17165. DUK_INTERNAL duk_hobject *duk_require_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum) {
  17166. duk_hobject *h;
  17167. DUK_ASSERT_API_ENTRY(thr);
  17168. DUK_ASSERT_DISABLE(classnum >= 0); /* unsigned */
  17169. DUK_ASSERT(classnum <= DUK_HOBJECT_CLASS_MAX);
  17170. h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT);
  17171. if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_GET_CLASS_NUMBER(h) == classnum))) {
  17172. duk_hstring *h_class;
  17173. h_class = DUK_HTHREAD_GET_STRING(thr, DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(classnum));
  17174. DUK_UNREF(h_class);
  17175. DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, (const char *) DUK_HSTRING_GET_DATA(h_class), DUK_STR_UNEXPECTED_TYPE);
  17176. }
  17177. return h;
  17178. }
  17179. DUK_EXTERNAL duk_size_t duk_get_length(duk_hthread *thr, duk_idx_t idx) {
  17180. duk_tval *tv;
  17181. DUK_ASSERT_API_ENTRY(thr);
  17182. tv = duk_get_tval_or_unused(thr, idx);
  17183. DUK_ASSERT(tv != NULL);
  17184. switch (DUK_TVAL_GET_TAG(tv)) {
  17185. case DUK_TAG_UNDEFINED:
  17186. case DUK_TAG_NULL:
  17187. case DUK_TAG_BOOLEAN:
  17188. case DUK_TAG_POINTER:
  17189. return 0;
  17190. #if defined(DUK_USE_PREFER_SIZE)
  17191. /* String and buffer have a virtual non-configurable .length property
  17192. * which is within size_t range so it can be looked up without specific
  17193. * type checks. Lightfuncs inherit from %NativeFunctionPrototype%
  17194. * which provides an inherited .length accessor; it could be overwritten
  17195. * to produce unexpected types or values, but just number convert and
  17196. * duk_size_t cast for now.
  17197. */
  17198. case DUK_TAG_STRING:
  17199. case DUK_TAG_BUFFER:
  17200. case DUK_TAG_LIGHTFUNC: {
  17201. duk_size_t ret;
  17202. duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH);
  17203. ret = (duk_size_t) duk_to_number_m1(thr);
  17204. duk_pop_unsafe(thr);
  17205. return ret;
  17206. }
  17207. #else /* DUK_USE_PREFER_SIZE */
  17208. case DUK_TAG_STRING: {
  17209. duk_hstring *h = DUK_TVAL_GET_STRING(tv);
  17210. DUK_ASSERT(h != NULL);
  17211. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  17212. return 0;
  17213. }
  17214. return (duk_size_t) DUK_HSTRING_GET_CHARLEN(h);
  17215. }
  17216. case DUK_TAG_BUFFER: {
  17217. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  17218. DUK_ASSERT(h != NULL);
  17219. return (duk_size_t) DUK_HBUFFER_GET_SIZE(h);
  17220. }
  17221. case DUK_TAG_LIGHTFUNC: {
  17222. /* We could look up the length from the lightfunc duk_tval,
  17223. * but since Duktape 2.2 lightfunc .length comes from
  17224. * %NativeFunctionPrototype% which can be overridden, so
  17225. * look up the property explicitly.
  17226. */
  17227. duk_size_t ret;
  17228. duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH);
  17229. ret = (duk_size_t) duk_to_number_m1(thr);
  17230. duk_pop_unsafe(thr);
  17231. return ret;
  17232. }
  17233. #endif /* DUK_USE_PREFER_SIZE */
  17234. case DUK_TAG_OBJECT: {
  17235. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  17236. DUK_ASSERT(h != NULL);
  17237. return (duk_size_t) duk_hobject_get_length(thr, h);
  17238. }
  17239. #if defined(DUK_USE_FASTINT)
  17240. case DUK_TAG_FASTINT:
  17241. #endif
  17242. default:
  17243. /* number or 'unused' */
  17244. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv) || DUK_TVAL_IS_UNUSED(tv));
  17245. return 0;
  17246. }
  17247. DUK_UNREACHABLE();
  17248. }
  17249. /*
  17250. * duk_known_xxx() helpers
  17251. *
  17252. * Used internally when we're 100% sure that a certain index is valid and
  17253. * contains an object of a certain type. For example, if we duk_push_object()
  17254. * we can then safely duk_known_hobject(thr, -1). These helpers just assert
  17255. * for the index and type, and if the assumptions are not valid, memory unsafe
  17256. * behavior happens.
  17257. */
  17258. DUK_LOCAL duk_heaphdr *duk__known_heaphdr(duk_hthread *thr, duk_idx_t idx) {
  17259. duk_tval *tv;
  17260. duk_heaphdr *h;
  17261. DUK_ASSERT_CTX_VALID(thr);
  17262. if (idx < 0) {
  17263. tv = thr->valstack_top + idx;
  17264. } else {
  17265. tv = thr->valstack_bottom + idx;
  17266. }
  17267. DUK_ASSERT(tv >= thr->valstack_bottom);
  17268. DUK_ASSERT(tv < thr->valstack_top);
  17269. h = DUK_TVAL_GET_HEAPHDR(tv);
  17270. DUK_ASSERT(h != NULL);
  17271. return h;
  17272. }
  17273. DUK_INTERNAL duk_hstring *duk_known_hstring(duk_hthread *thr, duk_idx_t idx) {
  17274. DUK_ASSERT_API_ENTRY(thr);
  17275. DUK_ASSERT(duk_get_hstring(thr, idx) != NULL);
  17276. return (duk_hstring *) duk__known_heaphdr(thr, idx);
  17277. }
  17278. DUK_INTERNAL duk_hobject *duk_known_hobject(duk_hthread *thr, duk_idx_t idx) {
  17279. DUK_ASSERT_API_ENTRY(thr);
  17280. DUK_ASSERT(duk_get_hobject(thr, idx) != NULL);
  17281. return (duk_hobject *) duk__known_heaphdr(thr, idx);
  17282. }
  17283. DUK_INTERNAL duk_hbuffer *duk_known_hbuffer(duk_hthread *thr, duk_idx_t idx) {
  17284. DUK_ASSERT_API_ENTRY(thr);
  17285. DUK_ASSERT(duk_get_hbuffer(thr, idx) != NULL);
  17286. return (duk_hbuffer *) duk__known_heaphdr(thr, idx);
  17287. }
  17288. DUK_INTERNAL duk_hcompfunc *duk_known_hcompfunc(duk_hthread *thr, duk_idx_t idx) {
  17289. DUK_ASSERT_API_ENTRY(thr);
  17290. DUK_ASSERT(duk_get_hcompfunc(thr, idx) != NULL);
  17291. return (duk_hcompfunc *) duk__known_heaphdr(thr, idx);
  17292. }
  17293. DUK_INTERNAL duk_hnatfunc *duk_known_hnatfunc(duk_hthread *thr, duk_idx_t idx) {
  17294. DUK_ASSERT_API_ENTRY(thr);
  17295. DUK_ASSERT(duk_get_hnatfunc(thr, idx) != NULL);
  17296. return (duk_hnatfunc *) duk__known_heaphdr(thr, idx);
  17297. }
  17298. DUK_EXTERNAL void duk_set_length(duk_hthread *thr, duk_idx_t idx, duk_size_t len) {
  17299. DUK_ASSERT_API_ENTRY(thr);
  17300. idx = duk_normalize_index(thr, idx);
  17301. duk_push_uint(thr, (duk_uint_t) len);
  17302. duk_put_prop_stridx(thr, idx, DUK_STRIDX_LENGTH);
  17303. }
  17304. /*
  17305. * Conversions and coercions
  17306. *
  17307. * The conversion/coercions are in-place operations on the value stack.
  17308. * Some operations are implemented here directly, while others call a
  17309. * helper in duk_js_ops.c after validating arguments.
  17310. */
  17311. /* E5 Section 8.12.8 */
  17312. DUK_LOCAL duk_bool_t duk__defaultvalue_coerce_attempt(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t func_stridx) {
  17313. if (duk_get_prop_stridx(thr, idx, func_stridx)) {
  17314. /* [ ... func ] */
  17315. if (duk_is_callable(thr, -1)) {
  17316. duk_dup(thr, idx); /* -> [ ... func this ] */
  17317. duk_call_method(thr, 0); /* -> [ ... retval ] */
  17318. if (duk_is_primitive(thr, -1)) {
  17319. duk_replace(thr, idx);
  17320. return 1;
  17321. }
  17322. /* [ ... retval ]; popped below */
  17323. }
  17324. }
  17325. duk_pop_unsafe(thr); /* [ ... func/retval ] -> [ ... ] */
  17326. return 0;
  17327. }
  17328. DUK_EXTERNAL void duk_to_undefined(duk_hthread *thr, duk_idx_t idx) {
  17329. duk_tval *tv;
  17330. DUK_ASSERT_API_ENTRY(thr);
  17331. tv = duk_require_tval(thr, idx);
  17332. DUK_ASSERT(tv != NULL);
  17333. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */
  17334. }
  17335. DUK_EXTERNAL void duk_to_null(duk_hthread *thr, duk_idx_t idx) {
  17336. duk_tval *tv;
  17337. DUK_ASSERT_API_ENTRY(thr);
  17338. tv = duk_require_tval(thr, idx);
  17339. DUK_ASSERT(tv != NULL);
  17340. DUK_TVAL_SET_NULL_UPDREF(thr, tv); /* side effects */
  17341. }
  17342. /* E5 Section 9.1 */
  17343. DUK_EXTERNAL void duk_to_primitive(duk_hthread *thr, duk_idx_t idx, duk_int_t hint) {
  17344. /* inline initializer for coercers[] is not allowed by old compilers like BCC */
  17345. duk_small_uint_t coercers[2];
  17346. duk_small_uint_t class_number;
  17347. DUK_ASSERT_API_ENTRY(thr);
  17348. DUK_ASSERT(hint == DUK_HINT_NONE || hint == DUK_HINT_NUMBER || hint == DUK_HINT_STRING);
  17349. idx = duk_require_normalize_index(thr, idx);
  17350. if (!duk_check_type_mask(thr, idx, DUK_TYPE_MASK_OBJECT |
  17351. DUK_TYPE_MASK_LIGHTFUNC |
  17352. DUK_TYPE_MASK_BUFFER)) {
  17353. /* Any other values stay as is. */
  17354. DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */
  17355. return;
  17356. }
  17357. class_number = duk_get_class_number(thr, idx);
  17358. /* XXX: Symbol objects normally coerce via the ES2015-revised ToPrimitive()
  17359. * algorithm which consults value[@@toPrimitive] and avoids calling
  17360. * .valueOf() and .toString(). Before that is implemented, special
  17361. * case Symbol objects to behave as if they had the default @@toPrimitive
  17362. * algorithm of E6 Section 19.4.3.4, i.e. return the plain symbol value
  17363. * with no further side effects.
  17364. */
  17365. if (class_number == DUK_HOBJECT_CLASS_SYMBOL) {
  17366. duk_hobject *h_obj;
  17367. duk_hstring *h_str;
  17368. /* XXX: pretty awkward, index based API for internal value access? */
  17369. h_obj = duk_known_hobject(thr, idx);
  17370. h_str = duk_hobject_get_internal_value_string(thr->heap, h_obj);
  17371. if (h_str) {
  17372. duk_push_hstring(thr, h_str);
  17373. duk_replace(thr, idx);
  17374. return;
  17375. }
  17376. }
  17377. /* Objects are coerced based on E5 specification.
  17378. * Lightfuncs are coerced because they behave like
  17379. * objects even if they're internally a primitive
  17380. * type. Same applies to plain buffers, which behave
  17381. * like ArrayBuffer objects since Duktape 2.x.
  17382. */
  17383. coercers[0] = DUK_STRIDX_VALUE_OF;
  17384. coercers[1] = DUK_STRIDX_TO_STRING;
  17385. if (hint == DUK_HINT_NONE) {
  17386. if (class_number == DUK_HOBJECT_CLASS_DATE) {
  17387. hint = DUK_HINT_STRING;
  17388. } else {
  17389. hint = DUK_HINT_NUMBER;
  17390. }
  17391. }
  17392. if (hint == DUK_HINT_STRING) {
  17393. coercers[0] = DUK_STRIDX_TO_STRING;
  17394. coercers[1] = DUK_STRIDX_VALUE_OF;
  17395. }
  17396. if (duk__defaultvalue_coerce_attempt(thr, idx, coercers[0])) {
  17397. DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */
  17398. return;
  17399. }
  17400. if (duk__defaultvalue_coerce_attempt(thr, idx, coercers[1])) {
  17401. DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */
  17402. return;
  17403. }
  17404. DUK_ERROR_TYPE(thr, DUK_STR_TOPRIMITIVE_FAILED);
  17405. }
  17406. /* E5 Section 9.2 */
  17407. DUK_EXTERNAL duk_bool_t duk_to_boolean(duk_hthread *thr, duk_idx_t idx) {
  17408. duk_tval *tv;
  17409. duk_bool_t val;
  17410. DUK_ASSERT_API_ENTRY(thr);
  17411. idx = duk_require_normalize_index(thr, idx);
  17412. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  17413. DUK_ASSERT(tv != NULL);
  17414. val = duk_js_toboolean(tv);
  17415. DUK_ASSERT(val == 0 || val == 1);
  17416. /* Note: no need to re-lookup tv, conversion is side effect free. */
  17417. DUK_ASSERT(tv != NULL);
  17418. DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv, val); /* side effects */
  17419. return val;
  17420. }
  17421. DUK_EXTERNAL duk_double_t duk_to_number(duk_hthread *thr, duk_idx_t idx) {
  17422. duk_tval *tv;
  17423. duk_double_t d;
  17424. DUK_ASSERT_API_ENTRY(thr);
  17425. /* XXX: No need to normalize; the whole operation could be inlined here to
  17426. * avoid 'tv' re-lookup.
  17427. */
  17428. idx = duk_require_normalize_index(thr, idx);
  17429. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  17430. DUK_ASSERT(tv != NULL);
  17431. d = duk_js_tonumber(thr, tv); /* XXX: fastint coercion? now result will always be a non-fastint */
  17432. /* ToNumber() may have side effects so must relookup 'tv'. */
  17433. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  17434. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, d); /* side effects */
  17435. return d;
  17436. }
  17437. DUK_INTERNAL duk_double_t duk_to_number_m1(duk_hthread *thr) {
  17438. DUK_ASSERT_API_ENTRY(thr);
  17439. return duk_to_number(thr, -1);
  17440. }
  17441. DUK_INTERNAL duk_double_t duk_to_number_m2(duk_hthread *thr) {
  17442. DUK_ASSERT_API_ENTRY(thr);
  17443. return duk_to_number(thr, -2);
  17444. }
  17445. DUK_INTERNAL duk_double_t duk_to_number_tval(duk_hthread *thr, duk_tval *tv) {
  17446. #if defined(DUK_USE_PREFER_SIZE)
  17447. duk_double_t res;
  17448. DUK_ASSERT_API_ENTRY(thr);
  17449. duk_push_tval(thr, tv);
  17450. res = duk_to_number_m1(thr);
  17451. duk_pop_unsafe(thr);
  17452. return res;
  17453. #else
  17454. duk_double_t res;
  17455. duk_tval *tv_dst;
  17456. DUK_ASSERT_API_ENTRY(thr);
  17457. DUK__ASSERT_SPACE();
  17458. tv_dst = thr->valstack_top++;
  17459. DUK_TVAL_SET_TVAL(tv_dst, tv);
  17460. DUK_TVAL_INCREF(thr, tv_dst); /* decref not necessary */
  17461. res = duk_to_number_m1(thr); /* invalidates tv_dst */
  17462. tv_dst = --thr->valstack_top;
  17463. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_dst));
  17464. DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv_dst)); /* plain number */
  17465. DUK_TVAL_SET_UNDEFINED(tv_dst); /* valstack init policy */
  17466. return res;
  17467. #endif
  17468. }
  17469. /* XXX: combine all the integer conversions: they share everything
  17470. * but the helper function for coercion.
  17471. */
  17472. typedef duk_double_t (*duk__toint_coercer)(duk_hthread *thr, duk_tval *tv);
  17473. DUK_LOCAL duk_double_t duk__to_int_uint_helper(duk_hthread *thr, duk_idx_t idx, duk__toint_coercer coerce_func) {
  17474. duk_tval *tv;
  17475. duk_double_t d;
  17476. DUK_ASSERT_CTX_VALID(thr);
  17477. tv = duk_require_tval(thr, idx);
  17478. DUK_ASSERT(tv != NULL);
  17479. #if defined(DUK_USE_FASTINT)
  17480. /* If argument is a fastint, guarantee that it remains one.
  17481. * There's no downgrade check for other cases.
  17482. */
  17483. if (DUK_TVAL_IS_FASTINT(tv)) {
  17484. /* XXX: Unnecessary conversion back and forth. */
  17485. return (duk_double_t) DUK_TVAL_GET_FASTINT(tv);
  17486. }
  17487. #endif
  17488. d = coerce_func(thr, tv);
  17489. /* XXX: fastint? */
  17490. /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */
  17491. tv = duk_require_tval(thr, idx);
  17492. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, d); /* side effects */
  17493. return d;
  17494. }
  17495. DUK_EXTERNAL duk_int_t duk_to_int(duk_hthread *thr, duk_idx_t idx) {
  17496. /* Value coercion (in stack): ToInteger(), E5 Section 9.4,
  17497. * API return value coercion: custom.
  17498. */
  17499. DUK_ASSERT_API_ENTRY(thr);
  17500. (void) duk__to_int_uint_helper(thr, idx, duk_js_tointeger);
  17501. return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 0 /*require*/);
  17502. }
  17503. DUK_EXTERNAL duk_uint_t duk_to_uint(duk_hthread *thr, duk_idx_t idx) {
  17504. /* Value coercion (in stack): ToInteger(), E5 Section 9.4,
  17505. * API return value coercion: custom.
  17506. */
  17507. DUK_ASSERT_API_ENTRY(thr);
  17508. (void) duk__to_int_uint_helper(thr, idx, duk_js_tointeger);
  17509. return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 0 /*require*/);
  17510. }
  17511. DUK_EXTERNAL duk_int32_t duk_to_int32(duk_hthread *thr, duk_idx_t idx) {
  17512. duk_tval *tv;
  17513. duk_int32_t ret;
  17514. DUK_ASSERT_API_ENTRY(thr);
  17515. tv = duk_require_tval(thr, idx);
  17516. DUK_ASSERT(tv != NULL);
  17517. ret = duk_js_toint32(thr, tv);
  17518. /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */
  17519. tv = duk_require_tval(thr, idx);
  17520. DUK_TVAL_SET_I32_UPDREF(thr, tv, ret); /* side effects */
  17521. return ret;
  17522. }
  17523. DUK_EXTERNAL duk_uint32_t duk_to_uint32(duk_hthread *thr, duk_idx_t idx) {
  17524. duk_tval *tv;
  17525. duk_uint32_t ret;
  17526. DUK_ASSERT_API_ENTRY(thr);
  17527. tv = duk_require_tval(thr, idx);
  17528. DUK_ASSERT(tv != NULL);
  17529. ret = duk_js_touint32(thr, tv);
  17530. /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */
  17531. tv = duk_require_tval(thr, idx);
  17532. DUK_TVAL_SET_U32_UPDREF(thr, tv, ret); /* side effects */
  17533. return ret;
  17534. }
  17535. DUK_EXTERNAL duk_uint16_t duk_to_uint16(duk_hthread *thr, duk_idx_t idx) {
  17536. duk_tval *tv;
  17537. duk_uint16_t ret;
  17538. DUK_ASSERT_API_ENTRY(thr);
  17539. tv = duk_require_tval(thr, idx);
  17540. DUK_ASSERT(tv != NULL);
  17541. ret = duk_js_touint16(thr, tv);
  17542. /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */
  17543. tv = duk_require_tval(thr, idx);
  17544. DUK_TVAL_SET_U32_UPDREF(thr, tv, ret); /* side effects */
  17545. return ret;
  17546. }
  17547. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  17548. /* Special coercion for Uint8ClampedArray. */
  17549. DUK_INTERNAL duk_uint8_t duk_to_uint8clamped(duk_hthread *thr, duk_idx_t idx) {
  17550. duk_double_t d;
  17551. duk_double_t t;
  17552. duk_uint8_t ret;
  17553. DUK_ASSERT_API_ENTRY(thr);
  17554. /* XXX: Simplify this algorithm, should be possible to come up with
  17555. * a shorter and faster algorithm by inspecting IEEE representation
  17556. * directly.
  17557. */
  17558. d = duk_to_number(thr, idx);
  17559. if (d <= 0.0) {
  17560. return 0;
  17561. } else if (d >= 255) {
  17562. return 255;
  17563. } else if (DUK_ISNAN(d)) {
  17564. /* Avoid NaN-to-integer coercion as it is compiler specific. */
  17565. return 0;
  17566. }
  17567. t = d - DUK_FLOOR(d);
  17568. if (t == 0.5) {
  17569. /* Exact halfway, round to even. */
  17570. ret = (duk_uint8_t) d;
  17571. ret = (ret + 1) & 0xfe; /* Example: d=3.5, t=0.5 -> ret = (3 + 1) & 0xfe = 4 & 0xfe = 4
  17572. * Example: d=4.5, t=0.5 -> ret = (4 + 1) & 0xfe = 5 & 0xfe = 4
  17573. */
  17574. } else {
  17575. /* Not halfway, round to nearest. */
  17576. ret = (duk_uint8_t) (d + 0.5);
  17577. }
  17578. return ret;
  17579. }
  17580. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  17581. DUK_EXTERNAL const char *duk_to_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  17582. DUK_ASSERT_API_ENTRY(thr);
  17583. (void) duk_to_string(thr, idx);
  17584. DUK_ASSERT(duk_is_string(thr, idx));
  17585. return duk_require_lstring(thr, idx, out_len);
  17586. }
  17587. DUK_LOCAL duk_ret_t duk__safe_to_string_raw(duk_hthread *thr, void *udata) {
  17588. DUK_ASSERT_CTX_VALID(thr);
  17589. DUK_UNREF(udata);
  17590. duk_to_string(thr, -1);
  17591. return 1;
  17592. }
  17593. DUK_EXTERNAL const char *duk_safe_to_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) {
  17594. DUK_ASSERT_API_ENTRY(thr);
  17595. idx = duk_require_normalize_index(thr, idx);
  17596. /* We intentionally ignore the duk_safe_call() return value and only
  17597. * check the output type. This way we don't also need to check that
  17598. * the returned value is indeed a string in the success case.
  17599. */
  17600. duk_dup(thr, idx);
  17601. (void) duk_safe_call(thr, duk__safe_to_string_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/);
  17602. if (!duk_is_string(thr, -1)) {
  17603. /* Error: try coercing error to string once. */
  17604. (void) duk_safe_call(thr, duk__safe_to_string_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/);
  17605. if (!duk_is_string(thr, -1)) {
  17606. /* Double error */
  17607. duk_pop_unsafe(thr);
  17608. duk_push_hstring_stridx(thr, DUK_STRIDX_UC_ERROR);
  17609. } else {
  17610. ;
  17611. }
  17612. } else {
  17613. /* String; may be a symbol, accepted. */
  17614. ;
  17615. }
  17616. DUK_ASSERT(duk_is_string(thr, -1));
  17617. duk_replace(thr, idx);
  17618. DUK_ASSERT(duk_get_string(thr, idx) != NULL);
  17619. return duk_get_lstring(thr, idx, out_len);
  17620. }
  17621. DUK_INTERNAL duk_hstring *duk_to_property_key_hstring(duk_hthread *thr, duk_idx_t idx) {
  17622. duk_hstring *h;
  17623. DUK_ASSERT_API_ENTRY(thr);
  17624. duk_to_primitive(thr, idx, DUK_HINT_STRING); /* needed for e.g. Symbol objects */
  17625. h = duk_get_hstring(thr, idx);
  17626. if (h == NULL) {
  17627. /* The "is string?" check may seem unnecessary, but as things
  17628. * are duk_to_hstring() invokes ToString() which fails for
  17629. * symbols. But since symbols are already strings for Duktape
  17630. * C API, we check for that before doing the coercion.
  17631. */
  17632. h = duk_to_hstring(thr, idx);
  17633. }
  17634. DUK_ASSERT(h != NULL);
  17635. return h;
  17636. }
  17637. #if defined(DUK_USE_DEBUGGER_SUPPORT) /* only needed by debugger for now */
  17638. DUK_INTERNAL duk_hstring *duk_safe_to_hstring(duk_hthread *thr, duk_idx_t idx) {
  17639. DUK_ASSERT_API_ENTRY(thr);
  17640. (void) duk_safe_to_string(thr, idx);
  17641. DUK_ASSERT(duk_is_string(thr, idx));
  17642. DUK_ASSERT(duk_get_hstring(thr, idx) != NULL);
  17643. return duk_known_hstring(thr, idx);
  17644. }
  17645. #endif
  17646. /* Push Object.prototype.toString() output for 'tv'. */
  17647. DUK_INTERNAL void duk_push_class_string_tval(duk_hthread *thr, duk_tval *tv) {
  17648. duk_small_uint_t stridx;
  17649. duk_hstring *h_strclass;
  17650. DUK_ASSERT_API_ENTRY(thr);
  17651. switch (DUK_TVAL_GET_TAG(tv)) {
  17652. case DUK_TAG_UNUSED: /* Treat like 'undefined', shouldn't happen. */
  17653. case DUK_TAG_UNDEFINED: {
  17654. stridx = DUK_STRIDX_UC_UNDEFINED;
  17655. break;
  17656. }
  17657. case DUK_TAG_NULL: {
  17658. stridx = DUK_STRIDX_UC_NULL;
  17659. break;
  17660. }
  17661. case DUK_TAG_BOOLEAN: {
  17662. stridx = DUK_STRIDX_UC_BOOLEAN;
  17663. break;
  17664. }
  17665. case DUK_TAG_POINTER: {
  17666. stridx = DUK_STRIDX_UC_POINTER;
  17667. break;
  17668. }
  17669. case DUK_TAG_LIGHTFUNC: {
  17670. stridx = DUK_STRIDX_UC_FUNCTION;
  17671. break;
  17672. }
  17673. case DUK_TAG_STRING: {
  17674. duk_hstring *h;
  17675. h = DUK_TVAL_GET_STRING(tv);
  17676. DUK_ASSERT(h != NULL);
  17677. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  17678. stridx = DUK_STRIDX_UC_SYMBOL;
  17679. } else {
  17680. stridx = DUK_STRIDX_UC_STRING;
  17681. }
  17682. break;
  17683. }
  17684. case DUK_TAG_OBJECT: {
  17685. duk_hobject *h;
  17686. duk_small_uint_t classnum;
  17687. h = DUK_TVAL_GET_OBJECT(tv);
  17688. DUK_ASSERT(h != NULL);
  17689. classnum = DUK_HOBJECT_GET_CLASS_NUMBER(h);
  17690. stridx = DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(classnum);
  17691. /* XXX: This is not entirely correct anymore; in ES2015 the
  17692. * default lookup should use @@toStringTag to come up with
  17693. * e.g. [object Symbol], [object Uint8Array], etc. See
  17694. * ES2015 Section 19.1.3.6. The downside of implementing that
  17695. * directly is that the @@toStringTag lookup may have side
  17696. * effects, so all call sites must be checked for that.
  17697. * Some may need a side-effect free lookup, e.g. avoiding
  17698. * getters which are not typical.
  17699. */
  17700. break;
  17701. }
  17702. case DUK_TAG_BUFFER: {
  17703. stridx = DUK_STRIDX_UINT8_ARRAY;
  17704. break;
  17705. }
  17706. #if defined(DUK_USE_FASTINT)
  17707. case DUK_TAG_FASTINT:
  17708. /* Fall through to generic number case. */
  17709. #endif
  17710. default: {
  17711. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); /* number (maybe fastint) */
  17712. stridx = DUK_STRIDX_UC_NUMBER;
  17713. break;
  17714. }
  17715. }
  17716. h_strclass = DUK_HTHREAD_GET_STRING(thr, stridx);
  17717. DUK_ASSERT(h_strclass != NULL);
  17718. duk_push_sprintf(thr, "[object %s]", (const char *) DUK_HSTRING_GET_DATA(h_strclass));
  17719. }
  17720. /* XXX: other variants like uint, u32 etc */
  17721. DUK_INTERNAL duk_int_t duk_to_int_clamped_raw(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval, duk_bool_t *out_clamped) {
  17722. duk_tval *tv;
  17723. duk_tval tv_tmp;
  17724. duk_double_t d, dmin, dmax;
  17725. duk_int_t res;
  17726. duk_bool_t clamped = 0;
  17727. DUK_ASSERT_API_ENTRY(thr);
  17728. tv = duk_require_tval(thr, idx);
  17729. DUK_ASSERT(tv != NULL);
  17730. d = duk_js_tointeger(thr, tv); /* E5 Section 9.4, ToInteger() */
  17731. dmin = (duk_double_t) minval;
  17732. dmax = (duk_double_t) maxval;
  17733. if (d < dmin) {
  17734. clamped = 1;
  17735. res = minval;
  17736. d = dmin;
  17737. } else if (d > dmax) {
  17738. clamped = 1;
  17739. res = maxval;
  17740. d = dmax;
  17741. } else {
  17742. res = (duk_int_t) d;
  17743. }
  17744. DUK_UNREF(d); /* SCANBUILD: with suitable dmin/dmax limits 'd' is unused */
  17745. /* 'd' and 'res' agree here */
  17746. /* Relookup in case duk_js_tointeger() ends up e.g. coercing an object. */
  17747. tv = duk_get_tval(thr, idx);
  17748. DUK_ASSERT(tv != NULL); /* not popped by side effect */
  17749. DUK_TVAL_SET_TVAL(&tv_tmp, tv);
  17750. #if defined(DUK_USE_FASTINT)
  17751. #if (DUK_INT_MAX <= 0x7fffffffL)
  17752. DUK_TVAL_SET_I32(tv, res);
  17753. #else
  17754. /* Clamping needed if duk_int_t is 64 bits. */
  17755. if (res >= DUK_FASTINT_MIN && res <= DUK_FASTINT_MAX) {
  17756. DUK_TVAL_SET_FASTINT(tv, res);
  17757. } else {
  17758. DUK_TVAL_SET_NUMBER(tv, d);
  17759. }
  17760. #endif
  17761. #else
  17762. DUK_TVAL_SET_NUMBER(tv, d); /* no need to incref */
  17763. #endif
  17764. DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */
  17765. if (out_clamped) {
  17766. *out_clamped = clamped;
  17767. } else {
  17768. /* coerced value is updated to value stack even when RangeError thrown */
  17769. if (clamped) {
  17770. DUK_ERROR_RANGE(thr, DUK_STR_NUMBER_OUTSIDE_RANGE);
  17771. }
  17772. }
  17773. return res;
  17774. }
  17775. DUK_INTERNAL duk_int_t duk_to_int_clamped(duk_hthread *thr, duk_idx_t idx, duk_idx_t minval, duk_idx_t maxval) {
  17776. duk_bool_t dummy;
  17777. DUK_ASSERT_API_ENTRY(thr);
  17778. return duk_to_int_clamped_raw(thr, idx, minval, maxval, &dummy);
  17779. }
  17780. DUK_INTERNAL duk_int_t duk_to_int_check_range(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval) {
  17781. DUK_ASSERT_API_ENTRY(thr);
  17782. return duk_to_int_clamped_raw(thr, idx, minval, maxval, NULL); /* out_clamped==NULL -> RangeError if outside range */
  17783. }
  17784. DUK_EXTERNAL const char *duk_to_string(duk_hthread *thr, duk_idx_t idx) {
  17785. duk_tval *tv;
  17786. DUK_ASSERT_API_ENTRY(thr);
  17787. idx = duk_require_normalize_index(thr, idx);
  17788. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  17789. DUK_ASSERT(tv != NULL);
  17790. switch (DUK_TVAL_GET_TAG(tv)) {
  17791. case DUK_TAG_UNDEFINED: {
  17792. duk_push_hstring_stridx(thr, DUK_STRIDX_LC_UNDEFINED);
  17793. break;
  17794. }
  17795. case DUK_TAG_NULL: {
  17796. duk_push_hstring_stridx(thr, DUK_STRIDX_LC_NULL);
  17797. break;
  17798. }
  17799. case DUK_TAG_BOOLEAN: {
  17800. if (DUK_TVAL_GET_BOOLEAN(tv)) {
  17801. duk_push_hstring_stridx(thr, DUK_STRIDX_TRUE);
  17802. } else {
  17803. duk_push_hstring_stridx(thr, DUK_STRIDX_FALSE);
  17804. }
  17805. break;
  17806. }
  17807. case DUK_TAG_STRING: {
  17808. /* Nop for actual strings, TypeError for Symbols.
  17809. * Because various internals rely on ToString() coercion of
  17810. * internal strings, -allow- (NOP) string coercion for hidden
  17811. * symbols.
  17812. */
  17813. #if 1
  17814. duk_hstring *h;
  17815. h = DUK_TVAL_GET_STRING(tv);
  17816. DUK_ASSERT(h != NULL);
  17817. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  17818. DUK_ERROR_TYPE(thr, DUK_STR_CANNOT_STRING_COERCE_SYMBOL);
  17819. } else {
  17820. goto skip_replace;
  17821. }
  17822. #else
  17823. goto skip_replace;
  17824. #endif
  17825. }
  17826. case DUK_TAG_BUFFER: /* Go through Uint8Array.prototype.toString() for coercion. */
  17827. case DUK_TAG_OBJECT: {
  17828. /* Plain buffers: go through ArrayBuffer.prototype.toString()
  17829. * for coercion.
  17830. *
  17831. * Symbol objects: duk_to_primitive() results in a plain symbol
  17832. * value, and duk_to_string() then causes a TypeError.
  17833. */
  17834. duk_to_primitive(thr, idx, DUK_HINT_STRING);
  17835. DUK_ASSERT(!duk_is_buffer(thr, idx)); /* ToPrimitive() must guarantee */
  17836. DUK_ASSERT(!duk_is_object(thr, idx));
  17837. return duk_to_string(thr, idx); /* Note: recursive call */
  17838. }
  17839. case DUK_TAG_POINTER: {
  17840. void *ptr = DUK_TVAL_GET_POINTER(tv);
  17841. if (ptr != NULL) {
  17842. duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) ptr);
  17843. } else {
  17844. /* Represent a null pointer as 'null' to be consistent with
  17845. * the JX format variant. Native '%p' format for a NULL
  17846. * pointer may be e.g. '(nil)'.
  17847. */
  17848. duk_push_hstring_stridx(thr, DUK_STRIDX_LC_NULL);
  17849. }
  17850. break;
  17851. }
  17852. case DUK_TAG_LIGHTFUNC: {
  17853. /* Should match Function.prototype.toString() */
  17854. duk_push_lightfunc_tostring(thr, tv);
  17855. break;
  17856. }
  17857. #if defined(DUK_USE_FASTINT)
  17858. case DUK_TAG_FASTINT:
  17859. #endif
  17860. default: {
  17861. /* number */
  17862. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  17863. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  17864. duk_push_tval(thr, tv);
  17865. duk_numconv_stringify(thr,
  17866. 10 /*radix*/,
  17867. 0 /*precision:shortest*/,
  17868. 0 /*force_exponential*/);
  17869. break;
  17870. }
  17871. }
  17872. duk_replace(thr, idx);
  17873. skip_replace:
  17874. DUK_ASSERT(duk_is_string(thr, idx));
  17875. return duk_require_string(thr, idx);
  17876. }
  17877. DUK_INTERNAL duk_hstring *duk_to_hstring(duk_hthread *thr, duk_idx_t idx) {
  17878. duk_hstring *ret;
  17879. DUK_ASSERT_API_ENTRY(thr);
  17880. duk_to_string(thr, idx);
  17881. ret = duk_get_hstring(thr, idx);
  17882. DUK_ASSERT(ret != NULL);
  17883. return ret;
  17884. }
  17885. DUK_INTERNAL duk_hstring *duk_to_hstring_m1(duk_hthread *thr) {
  17886. DUK_ASSERT_API_ENTRY(thr);
  17887. return duk_to_hstring(thr, -1);
  17888. }
  17889. DUK_INTERNAL duk_hstring *duk_to_hstring_acceptsymbol(duk_hthread *thr, duk_idx_t idx) {
  17890. duk_hstring *ret;
  17891. DUK_ASSERT_API_ENTRY(thr);
  17892. ret = duk_get_hstring(thr, idx);
  17893. if (DUK_UNLIKELY(ret && DUK_HSTRING_HAS_SYMBOL(ret))) {
  17894. return ret;
  17895. }
  17896. return duk_to_hstring(thr, idx);
  17897. }
  17898. /* Convert a plain buffer or any buffer object into a string, using the buffer
  17899. * bytes 1:1 in the internal string representation. For views the active byte
  17900. * slice (not element slice interpreted as an initializer) is used. This is
  17901. * necessary in Duktape 2.x because ToString(plainBuffer) no longer creates a
  17902. * string with the same bytes as in the buffer but rather (usually)
  17903. * '[object ArrayBuffer]'.
  17904. */
  17905. DUK_EXTERNAL const char *duk_buffer_to_string(duk_hthread *thr, duk_idx_t idx) {
  17906. void *ptr_src;
  17907. duk_size_t len;
  17908. const char *res;
  17909. DUK_ASSERT_API_ENTRY(thr);
  17910. idx = duk_require_normalize_index(thr, idx);
  17911. ptr_src = duk_require_buffer_data(thr, idx, &len);
  17912. DUK_ASSERT(ptr_src != NULL || len == 0);
  17913. res = duk_push_lstring(thr, (const char *) ptr_src, len);
  17914. duk_replace(thr, idx);
  17915. return res;
  17916. }
  17917. DUK_EXTERNAL void *duk_to_buffer_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, duk_uint_t mode) {
  17918. duk_hbuffer *h_buf;
  17919. const duk_uint8_t *src_data;
  17920. duk_size_t src_size;
  17921. duk_uint8_t *dst_data;
  17922. DUK_ASSERT_API_ENTRY(thr);
  17923. idx = duk_require_normalize_index(thr, idx);
  17924. h_buf = duk_get_hbuffer(thr, idx);
  17925. if (h_buf != NULL) {
  17926. /* Buffer is kept as is, with the fixed/dynamic nature of the
  17927. * buffer only changed if requested. An external buffer
  17928. * is converted into a non-external dynamic buffer in a
  17929. * duk_to_dynamic_buffer() call.
  17930. */
  17931. duk_uint_t tmp;
  17932. duk_uint8_t *tmp_ptr;
  17933. tmp_ptr = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_buf);
  17934. src_data = (const duk_uint8_t *) tmp_ptr;
  17935. src_size = DUK_HBUFFER_GET_SIZE(h_buf);
  17936. tmp = (DUK_HBUFFER_HAS_DYNAMIC(h_buf) ? DUK_BUF_MODE_DYNAMIC : DUK_BUF_MODE_FIXED);
  17937. if ((tmp == mode && !DUK_HBUFFER_HAS_EXTERNAL(h_buf)) ||
  17938. mode == DUK_BUF_MODE_DONTCARE) {
  17939. /* Note: src_data may be NULL if input is a zero-size
  17940. * dynamic buffer.
  17941. */
  17942. dst_data = tmp_ptr;
  17943. goto skip_copy;
  17944. }
  17945. } else {
  17946. /* Non-buffer value is first ToString() coerced, then converted
  17947. * to a buffer (fixed buffer is used unless a dynamic buffer is
  17948. * explicitly requested). Symbols are rejected with a TypeError.
  17949. * XXX: C API could maybe allow symbol-to-buffer coercion?
  17950. */
  17951. src_data = (const duk_uint8_t *) duk_to_lstring(thr, idx, &src_size);
  17952. }
  17953. dst_data = (duk_uint8_t *) duk_push_buffer(thr, src_size, (mode == DUK_BUF_MODE_DYNAMIC) /*dynamic*/);
  17954. if (DUK_LIKELY(src_size > 0)) {
  17955. /* When src_size == 0, src_data may be NULL (if source
  17956. * buffer is dynamic), and dst_data may be NULL (if
  17957. * target buffer is dynamic). Avoid zero-size memcpy()
  17958. * with an invalid pointer.
  17959. */
  17960. DUK_MEMCPY((void *) dst_data, (const void *) src_data, (size_t) src_size);
  17961. }
  17962. duk_replace(thr, idx);
  17963. skip_copy:
  17964. if (out_size) {
  17965. *out_size = src_size;
  17966. }
  17967. return dst_data;
  17968. }
  17969. DUK_EXTERNAL void *duk_to_pointer(duk_hthread *thr, duk_idx_t idx) {
  17970. duk_tval *tv;
  17971. void *res;
  17972. DUK_ASSERT_API_ENTRY(thr);
  17973. idx = duk_require_normalize_index(thr, idx);
  17974. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  17975. DUK_ASSERT(tv != NULL);
  17976. switch (DUK_TVAL_GET_TAG(tv)) {
  17977. case DUK_TAG_UNDEFINED:
  17978. case DUK_TAG_NULL:
  17979. case DUK_TAG_BOOLEAN:
  17980. res = NULL;
  17981. break;
  17982. case DUK_TAG_POINTER:
  17983. res = DUK_TVAL_GET_POINTER(tv);
  17984. break;
  17985. case DUK_TAG_STRING:
  17986. case DUK_TAG_OBJECT:
  17987. case DUK_TAG_BUFFER:
  17988. /* Heap allocated: return heap pointer which is NOT useful
  17989. * for the caller, except for debugging.
  17990. */
  17991. res = (void *) DUK_TVAL_GET_HEAPHDR(tv);
  17992. break;
  17993. case DUK_TAG_LIGHTFUNC:
  17994. /* Function pointers do not always cast correctly to void *
  17995. * (depends on memory and segmentation model for instance),
  17996. * so they coerce to NULL.
  17997. */
  17998. res = NULL;
  17999. break;
  18000. #if defined(DUK_USE_FASTINT)
  18001. case DUK_TAG_FASTINT:
  18002. #endif
  18003. default:
  18004. /* number */
  18005. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  18006. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  18007. res = NULL;
  18008. break;
  18009. }
  18010. duk_push_pointer(thr, res);
  18011. duk_replace(thr, idx);
  18012. return res;
  18013. }
  18014. DUK_LOCAL void duk__push_func_from_lightfunc(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags) {
  18015. duk_idx_t nargs;
  18016. duk_uint_t flags = 0; /* shared flags for a subset of types */
  18017. duk_small_uint_t lf_len;
  18018. duk_hnatfunc *nf;
  18019. nargs = (duk_idx_t) DUK_LFUNC_FLAGS_GET_NARGS(lf_flags);
  18020. if (nargs == DUK_LFUNC_NARGS_VARARGS) {
  18021. nargs = (duk_idx_t) DUK_VARARGS;
  18022. }
  18023. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18024. DUK_HOBJECT_FLAG_CONSTRUCTABLE |
  18025. DUK_HOBJECT_FLAG_CALLABLE |
  18026. DUK_HOBJECT_FLAG_FASTREFS |
  18027. DUK_HOBJECT_FLAG_NATFUNC |
  18028. DUK_HOBJECT_FLAG_NEWENV |
  18029. DUK_HOBJECT_FLAG_STRICT |
  18030. DUK_HOBJECT_FLAG_NOTAIL |
  18031. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION);
  18032. (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE);
  18033. lf_len = DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags);
  18034. if ((duk_idx_t) lf_len != nargs) {
  18035. /* Explicit length is only needed if it differs from 'nargs'. */
  18036. duk_push_int(thr, (duk_int_t) lf_len);
  18037. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_NONE);
  18038. }
  18039. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  18040. duk_push_lightfunc_name_raw(thr, func, lf_flags);
  18041. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C);
  18042. #endif
  18043. nf = duk_known_hnatfunc(thr, -1);
  18044. nf->magic = (duk_int16_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags);
  18045. }
  18046. DUK_EXTERNAL void duk_to_object(duk_hthread *thr, duk_idx_t idx) {
  18047. duk_tval *tv;
  18048. duk_uint_t flags = 0; /* shared flags for a subset of types */
  18049. duk_small_int_t proto = 0;
  18050. DUK_ASSERT_API_ENTRY(thr);
  18051. idx = duk_require_normalize_index(thr, idx);
  18052. tv = DUK_GET_TVAL_POSIDX(thr, idx);
  18053. DUK_ASSERT(tv != NULL);
  18054. switch (DUK_TVAL_GET_TAG(tv)) {
  18055. #if !defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  18056. case DUK_TAG_BUFFER: /* With no bufferobject support, don't object coerce. */
  18057. #endif
  18058. case DUK_TAG_UNDEFINED:
  18059. case DUK_TAG_NULL: {
  18060. DUK_ERROR_TYPE(thr, DUK_STR_NOT_OBJECT_COERCIBLE);
  18061. break;
  18062. }
  18063. case DUK_TAG_BOOLEAN: {
  18064. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18065. DUK_HOBJECT_FLAG_FASTREFS |
  18066. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_BOOLEAN);
  18067. proto = DUK_BIDX_BOOLEAN_PROTOTYPE;
  18068. goto create_object;
  18069. }
  18070. case DUK_TAG_STRING: {
  18071. duk_hstring *h;
  18072. h = DUK_TVAL_GET_STRING(tv);
  18073. DUK_ASSERT(h != NULL);
  18074. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  18075. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18076. DUK_HOBJECT_FLAG_FASTREFS |
  18077. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_SYMBOL);
  18078. proto = DUK_BIDX_SYMBOL_PROTOTYPE;
  18079. } else {
  18080. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18081. DUK_HOBJECT_FLAG_FASTREFS |
  18082. DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ |
  18083. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_STRING);
  18084. proto = DUK_BIDX_STRING_PROTOTYPE;
  18085. }
  18086. goto create_object;
  18087. }
  18088. case DUK_TAG_OBJECT: {
  18089. /* nop */
  18090. break;
  18091. }
  18092. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  18093. case DUK_TAG_BUFFER: {
  18094. /* A plain buffer object coerces to a full ArrayBuffer which
  18095. * is not fully transparent behavior (ToObject() should be a
  18096. * nop for an object). This behavior matches lightfuncs which
  18097. * also coerce to an equivalent Function object. There are
  18098. * also downsides to defining ToObject(plainBuffer) as a no-op;
  18099. * for example duk_to_hobject() could result in a NULL pointer.
  18100. */
  18101. duk_hbuffer *h_buf;
  18102. h_buf = DUK_TVAL_GET_BUFFER(tv);
  18103. DUK_ASSERT(h_buf != NULL);
  18104. duk_hbufobj_push_uint8array_from_plain(thr, h_buf);
  18105. goto replace_value;
  18106. }
  18107. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  18108. case DUK_TAG_POINTER: {
  18109. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18110. DUK_HOBJECT_FLAG_FASTREFS |
  18111. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_POINTER);
  18112. proto = DUK_BIDX_POINTER_PROTOTYPE;
  18113. goto create_object;
  18114. }
  18115. case DUK_TAG_LIGHTFUNC: {
  18116. /* Lightfunc coerces to a Function instance with concrete
  18117. * properties. Since 'length' is virtual for Duktape/C
  18118. * functions, don't need to define that. The result is made
  18119. * extensible to mimic what happens to strings in object
  18120. * coercion:
  18121. *
  18122. * > Object.isExtensible(Object('foo'))
  18123. * true
  18124. */
  18125. duk_small_uint_t lf_flags;
  18126. duk_c_function func;
  18127. DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags);
  18128. duk__push_func_from_lightfunc(thr, func, lf_flags);
  18129. goto replace_value;
  18130. }
  18131. #if defined(DUK_USE_FASTINT)
  18132. case DUK_TAG_FASTINT:
  18133. #endif
  18134. default: {
  18135. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  18136. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  18137. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18138. DUK_HOBJECT_FLAG_FASTREFS |
  18139. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_NUMBER);
  18140. proto = DUK_BIDX_NUMBER_PROTOTYPE;
  18141. goto create_object;
  18142. }
  18143. }
  18144. DUK_ASSERT(duk_is_object(thr, idx));
  18145. return;
  18146. create_object:
  18147. (void) duk_push_object_helper(thr, flags, proto);
  18148. /* Note: Boolean prototype's internal value property is not writable,
  18149. * but duk_xdef_prop_stridx() disregards the write protection. Boolean
  18150. * instances are immutable.
  18151. *
  18152. * String and buffer special behaviors are already enabled which is not
  18153. * ideal, but a write to the internal value is not affected by them.
  18154. */
  18155. duk_dup(thr, idx);
  18156. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE);
  18157. replace_value:
  18158. duk_replace(thr, idx);
  18159. DUK_ASSERT(duk_is_object(thr, idx));
  18160. }
  18161. DUK_INTERNAL duk_hobject *duk_to_hobject(duk_hthread *thr, duk_idx_t idx) {
  18162. duk_hobject *ret;
  18163. DUK_ASSERT_API_ENTRY(thr);
  18164. duk_to_object(thr, idx);
  18165. ret = duk_known_hobject(thr, idx);
  18166. return ret;
  18167. }
  18168. /*
  18169. * Type checking
  18170. */
  18171. DUK_LOCAL duk_bool_t duk__tag_check(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t tag) {
  18172. duk_tval *tv;
  18173. tv = duk_get_tval_or_unused(thr, idx);
  18174. DUK_ASSERT(tv != NULL);
  18175. return (DUK_TVAL_GET_TAG(tv) == tag);
  18176. }
  18177. DUK_LOCAL duk_bool_t duk__obj_flag_any_default_false(duk_hthread *thr, duk_idx_t idx, duk_uint_t flag_mask) {
  18178. duk_hobject *obj;
  18179. DUK_ASSERT_API_ENTRY(thr);
  18180. obj = duk_get_hobject(thr, idx);
  18181. if (obj) {
  18182. return (DUK_HEAPHDR_CHECK_FLAG_BITS((duk_heaphdr *) obj, flag_mask) ? 1 : 0);
  18183. }
  18184. return 0;
  18185. }
  18186. DUK_INTERNAL duk_int_t duk_get_type_tval(duk_tval *tv) {
  18187. DUK_ASSERT(tv != NULL);
  18188. #if defined(DUK_USE_PACKED_TVAL)
  18189. switch (DUK_TVAL_GET_TAG(tv)) {
  18190. case DUK_TAG_UNUSED:
  18191. return DUK_TYPE_NONE;
  18192. case DUK_TAG_UNDEFINED:
  18193. return DUK_TYPE_UNDEFINED;
  18194. case DUK_TAG_NULL:
  18195. return DUK_TYPE_NULL;
  18196. case DUK_TAG_BOOLEAN:
  18197. return DUK_TYPE_BOOLEAN;
  18198. case DUK_TAG_STRING:
  18199. return DUK_TYPE_STRING;
  18200. case DUK_TAG_OBJECT:
  18201. return DUK_TYPE_OBJECT;
  18202. case DUK_TAG_BUFFER:
  18203. return DUK_TYPE_BUFFER;
  18204. case DUK_TAG_POINTER:
  18205. return DUK_TYPE_POINTER;
  18206. case DUK_TAG_LIGHTFUNC:
  18207. return DUK_TYPE_LIGHTFUNC;
  18208. #if defined(DUK_USE_FASTINT)
  18209. case DUK_TAG_FASTINT:
  18210. #endif
  18211. default:
  18212. /* Note: number has no explicit tag (in 8-byte representation) */
  18213. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  18214. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  18215. return DUK_TYPE_NUMBER;
  18216. }
  18217. #else /* DUK_USE_PACKED_TVAL */
  18218. DUK_ASSERT(DUK_TVAL_IS_VALID_TAG(tv));
  18219. DUK_ASSERT(sizeof(duk__type_from_tag) / sizeof(duk_uint_t) == DUK_TAG_MAX - DUK_TAG_MIN + 1);
  18220. return (duk_int_t) duk__type_from_tag[DUK_TVAL_GET_TAG(tv) - DUK_TAG_MIN];
  18221. #endif /* DUK_USE_PACKED_TVAL */
  18222. }
  18223. DUK_EXTERNAL duk_int_t duk_get_type(duk_hthread *thr, duk_idx_t idx) {
  18224. duk_tval *tv;
  18225. DUK_ASSERT_API_ENTRY(thr);
  18226. tv = duk_get_tval_or_unused(thr, idx);
  18227. DUK_ASSERT(tv != NULL);
  18228. return duk_get_type_tval(tv);
  18229. }
  18230. #if defined(DUK_USE_VERBOSE_ERRORS) && defined(DUK_USE_PARANOID_ERRORS)
  18231. DUK_LOCAL const char * const duk__type_names[] = {
  18232. "none",
  18233. "undefined",
  18234. "null",
  18235. "boolean",
  18236. "number",
  18237. "string",
  18238. "object",
  18239. "buffer",
  18240. "pointer",
  18241. "lightfunc"
  18242. };
  18243. DUK_INTERNAL const char *duk_get_type_name(duk_hthread *thr, duk_idx_t idx) {
  18244. duk_int_t type_tag;
  18245. DUK_ASSERT_API_ENTRY(thr);
  18246. type_tag = duk_get_type(thr, idx);
  18247. DUK_ASSERT(type_tag >= DUK_TYPE_MIN && type_tag <= DUK_TYPE_MAX);
  18248. DUK_ASSERT(DUK_TYPE_MIN == 0 && sizeof(duk__type_names) / sizeof(const char *) == DUK_TYPE_MAX + 1);
  18249. return duk__type_names[type_tag];
  18250. }
  18251. #endif /* DUK_USE_VERBOSE_ERRORS && DUK_USE_PARANOID_ERRORS */
  18252. DUK_INTERNAL duk_small_uint_t duk_get_class_number(duk_hthread *thr, duk_idx_t idx) {
  18253. duk_tval *tv;
  18254. duk_hobject *obj;
  18255. DUK_ASSERT_API_ENTRY(thr);
  18256. tv = duk_get_tval_or_unused(thr, idx);
  18257. DUK_ASSERT(tv != NULL);
  18258. switch (DUK_TVAL_GET_TAG(tv)) {
  18259. case DUK_TAG_OBJECT:
  18260. obj = DUK_TVAL_GET_OBJECT(tv);
  18261. DUK_ASSERT(obj != NULL);
  18262. return DUK_HOBJECT_GET_CLASS_NUMBER(obj);
  18263. case DUK_TAG_BUFFER:
  18264. /* Buffers behave like Uint8Array objects. */
  18265. return DUK_HOBJECT_CLASS_UINT8ARRAY;
  18266. case DUK_TAG_LIGHTFUNC:
  18267. /* Lightfuncs behave like Function objects. */
  18268. return DUK_HOBJECT_CLASS_FUNCTION;
  18269. default:
  18270. /* Primitive or UNUSED, no class number. */
  18271. return DUK_HOBJECT_CLASS_NONE;
  18272. }
  18273. }
  18274. DUK_EXTERNAL duk_bool_t duk_check_type(duk_hthread *thr, duk_idx_t idx, duk_int_t type) {
  18275. DUK_ASSERT_API_ENTRY(thr);
  18276. return (duk_get_type(thr, idx) == type) ? 1 : 0;
  18277. }
  18278. DUK_INTERNAL duk_uint_t duk_get_type_mask_tval(duk_tval *tv) {
  18279. DUK_ASSERT(tv != NULL);
  18280. #if defined(DUK_USE_PACKED_TVAL)
  18281. switch (DUK_TVAL_GET_TAG(tv)) {
  18282. case DUK_TAG_UNUSED:
  18283. return DUK_TYPE_MASK_NONE;
  18284. case DUK_TAG_UNDEFINED:
  18285. return DUK_TYPE_MASK_UNDEFINED;
  18286. case DUK_TAG_NULL:
  18287. return DUK_TYPE_MASK_NULL;
  18288. case DUK_TAG_BOOLEAN:
  18289. return DUK_TYPE_MASK_BOOLEAN;
  18290. case DUK_TAG_STRING:
  18291. return DUK_TYPE_MASK_STRING;
  18292. case DUK_TAG_OBJECT:
  18293. return DUK_TYPE_MASK_OBJECT;
  18294. case DUK_TAG_BUFFER:
  18295. return DUK_TYPE_MASK_BUFFER;
  18296. case DUK_TAG_POINTER:
  18297. return DUK_TYPE_MASK_POINTER;
  18298. case DUK_TAG_LIGHTFUNC:
  18299. return DUK_TYPE_MASK_LIGHTFUNC;
  18300. #if defined(DUK_USE_FASTINT)
  18301. case DUK_TAG_FASTINT:
  18302. #endif
  18303. default:
  18304. /* Note: number has no explicit tag (in 8-byte representation) */
  18305. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  18306. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  18307. return DUK_TYPE_MASK_NUMBER;
  18308. }
  18309. #else /* DUK_USE_PACKED_TVAL */
  18310. DUK_ASSERT(DUK_TVAL_IS_VALID_TAG(tv));
  18311. DUK_ASSERT(sizeof(duk__type_mask_from_tag) / sizeof(duk_uint_t) == DUK_TAG_MAX - DUK_TAG_MIN + 1);
  18312. return duk__type_mask_from_tag[DUK_TVAL_GET_TAG(tv) - DUK_TAG_MIN];
  18313. #endif /* DUK_USE_PACKED_TVAL */
  18314. }
  18315. DUK_EXTERNAL duk_uint_t duk_get_type_mask(duk_hthread *thr, duk_idx_t idx) {
  18316. duk_tval *tv;
  18317. DUK_ASSERT_API_ENTRY(thr);
  18318. tv = duk_get_tval_or_unused(thr, idx);
  18319. DUK_ASSERT(tv != NULL);
  18320. return duk_get_type_mask_tval(tv);
  18321. }
  18322. DUK_EXTERNAL duk_bool_t duk_check_type_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t mask) {
  18323. DUK_ASSERT_API_ENTRY(thr);
  18324. if (DUK_LIKELY((duk_get_type_mask(thr, idx) & mask) != 0U)) {
  18325. return 1;
  18326. }
  18327. if (mask & DUK_TYPE_MASK_THROW) {
  18328. DUK_ERROR_TYPE(thr, DUK_STR_UNEXPECTED_TYPE);
  18329. DUK_UNREACHABLE();
  18330. }
  18331. return 0;
  18332. }
  18333. DUK_EXTERNAL duk_bool_t duk_is_undefined(duk_hthread *thr, duk_idx_t idx) {
  18334. DUK_ASSERT_API_ENTRY(thr);
  18335. return duk__tag_check(thr, idx, DUK_TAG_UNDEFINED);
  18336. }
  18337. DUK_EXTERNAL duk_bool_t duk_is_null(duk_hthread *thr, duk_idx_t idx) {
  18338. DUK_ASSERT_API_ENTRY(thr);
  18339. return duk__tag_check(thr, idx, DUK_TAG_NULL);
  18340. }
  18341. DUK_EXTERNAL duk_bool_t duk_is_boolean(duk_hthread *thr, duk_idx_t idx) {
  18342. DUK_ASSERT_API_ENTRY(thr);
  18343. return duk__tag_check(thr, idx, DUK_TAG_BOOLEAN);
  18344. }
  18345. DUK_EXTERNAL duk_bool_t duk_is_number(duk_hthread *thr, duk_idx_t idx) {
  18346. duk_tval *tv;
  18347. DUK_ASSERT_API_ENTRY(thr);
  18348. /*
  18349. * Number is special because it doesn't have a specific
  18350. * tag in the 8-byte representation.
  18351. */
  18352. /* XXX: shorter version for unpacked representation? */
  18353. tv = duk_get_tval_or_unused(thr, idx);
  18354. DUK_ASSERT(tv != NULL);
  18355. return DUK_TVAL_IS_NUMBER(tv);
  18356. }
  18357. DUK_EXTERNAL duk_bool_t duk_is_nan(duk_hthread *thr, duk_idx_t idx) {
  18358. /* XXX: This will now return false for non-numbers, even though they would
  18359. * coerce to NaN (as a general rule). In particular, duk_get_number()
  18360. * returns a NaN for non-numbers, so should this function also return
  18361. * true for non-numbers?
  18362. */
  18363. duk_tval *tv;
  18364. DUK_ASSERT_API_ENTRY(thr);
  18365. tv = duk_get_tval_or_unused(thr, idx);
  18366. DUK_ASSERT(tv != NULL);
  18367. /* XXX: for packed duk_tval an explicit "is number" check is unnecessary */
  18368. if (!DUK_TVAL_IS_NUMBER(tv)) {
  18369. return 0;
  18370. }
  18371. return (duk_bool_t) DUK_ISNAN(DUK_TVAL_GET_NUMBER(tv));
  18372. }
  18373. DUK_EXTERNAL duk_bool_t duk_is_string(duk_hthread *thr, duk_idx_t idx) {
  18374. DUK_ASSERT_API_ENTRY(thr);
  18375. return duk__tag_check(thr, idx, DUK_TAG_STRING);
  18376. }
  18377. DUK_INTERNAL duk_bool_t duk_is_string_notsymbol(duk_hthread *thr, duk_idx_t idx) {
  18378. DUK_ASSERT_API_ENTRY(thr);
  18379. return duk_get_hstring_notsymbol(thr, idx) != NULL;
  18380. }
  18381. DUK_EXTERNAL duk_bool_t duk_is_object(duk_hthread *thr, duk_idx_t idx) {
  18382. DUK_ASSERT_API_ENTRY(thr);
  18383. return duk__tag_check(thr, idx, DUK_TAG_OBJECT);
  18384. }
  18385. DUK_EXTERNAL duk_bool_t duk_is_buffer(duk_hthread *thr, duk_idx_t idx) {
  18386. DUK_ASSERT_API_ENTRY(thr);
  18387. return duk__tag_check(thr, idx, DUK_TAG_BUFFER);
  18388. }
  18389. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  18390. DUK_EXTERNAL duk_bool_t duk_is_buffer_data(duk_hthread *thr, duk_idx_t idx) {
  18391. duk_tval *tv;
  18392. DUK_ASSERT_API_ENTRY(thr);
  18393. tv = duk_get_tval_or_unused(thr, idx);
  18394. DUK_ASSERT(tv != NULL);
  18395. if (DUK_TVAL_IS_BUFFER(tv)) {
  18396. return 1;
  18397. } else if (DUK_TVAL_IS_OBJECT(tv)) {
  18398. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  18399. DUK_ASSERT(h != NULL);
  18400. if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  18401. return 1;
  18402. }
  18403. }
  18404. return 0;
  18405. }
  18406. #else /* DUK_USE_BUFFEROBJECT_SUPPORT */
  18407. DUK_EXTERNAL duk_bool_t duk_is_buffer_data(duk_hthread *thr, duk_idx_t idx) {
  18408. DUK_ASSERT_API_ENTRY(thr);
  18409. return duk_is_buffer(thr, idx);
  18410. }
  18411. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  18412. DUK_EXTERNAL duk_bool_t duk_is_pointer(duk_hthread *thr, duk_idx_t idx) {
  18413. DUK_ASSERT_API_ENTRY(thr);
  18414. return duk__tag_check(thr, idx, DUK_TAG_POINTER);
  18415. }
  18416. DUK_EXTERNAL duk_bool_t duk_is_lightfunc(duk_hthread *thr, duk_idx_t idx) {
  18417. DUK_ASSERT_API_ENTRY(thr);
  18418. return duk__tag_check(thr, idx, DUK_TAG_LIGHTFUNC);
  18419. }
  18420. DUK_EXTERNAL duk_bool_t duk_is_symbol(duk_hthread *thr, duk_idx_t idx) {
  18421. duk_hstring *h;
  18422. DUK_ASSERT_API_ENTRY(thr);
  18423. h = duk_get_hstring(thr, idx);
  18424. /* Use DUK_LIKELY() here because caller may be more likely to type
  18425. * check an expected symbol than not.
  18426. */
  18427. if (DUK_LIKELY(h != NULL && DUK_HSTRING_HAS_SYMBOL(h))) {
  18428. return 1;
  18429. }
  18430. return 0;
  18431. }
  18432. DUK_EXTERNAL duk_bool_t duk_is_array(duk_hthread *thr, duk_idx_t idx) {
  18433. duk_hobject *obj;
  18434. DUK_ASSERT_API_ENTRY(thr);
  18435. obj = duk_get_hobject(thr, idx);
  18436. if (obj) {
  18437. return (DUK_HOBJECT_GET_CLASS_NUMBER(obj) == DUK_HOBJECT_CLASS_ARRAY ? 1 : 0);
  18438. }
  18439. return 0;
  18440. }
  18441. DUK_EXTERNAL duk_bool_t duk_is_function(duk_hthread *thr, duk_idx_t idx) {
  18442. duk_tval *tv;
  18443. DUK_ASSERT_API_ENTRY(thr);
  18444. tv = duk_get_tval_or_unused(thr, idx);
  18445. if (DUK_TVAL_IS_OBJECT(tv)) {
  18446. duk_hobject *h;
  18447. h = DUK_TVAL_GET_OBJECT(tv);
  18448. DUK_ASSERT(h != NULL);
  18449. return DUK_HOBJECT_HAS_CALLABLE(h) ? 1 : 0;
  18450. }
  18451. if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  18452. return 1;
  18453. }
  18454. return 0;
  18455. }
  18456. DUK_INTERNAL duk_bool_t duk_is_callable_tval(duk_hthread *thr, duk_tval *tv) {
  18457. DUK_ASSERT_API_ENTRY(thr);
  18458. DUK_UNREF(thr);
  18459. if (DUK_TVAL_IS_OBJECT(tv)) {
  18460. duk_hobject *h;
  18461. h = DUK_TVAL_GET_OBJECT(tv);
  18462. DUK_ASSERT(h != NULL);
  18463. return DUK_HOBJECT_HAS_CALLABLE(h) ? 1 : 0;
  18464. }
  18465. if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  18466. return 1;
  18467. }
  18468. return 0;
  18469. }
  18470. DUK_EXTERNAL duk_bool_t duk_is_constructable(duk_hthread *thr, duk_idx_t idx) {
  18471. duk_tval *tv;
  18472. DUK_ASSERT_API_ENTRY(thr);
  18473. tv = duk_get_tval_or_unused(thr, idx);
  18474. if (DUK_TVAL_IS_OBJECT(tv)) {
  18475. duk_hobject *h;
  18476. h = DUK_TVAL_GET_OBJECT(tv);
  18477. DUK_ASSERT(h != NULL);
  18478. return DUK_HOBJECT_HAS_CONSTRUCTABLE(h) ? 1 : 0;
  18479. }
  18480. if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  18481. return 1;
  18482. }
  18483. return 0;
  18484. }
  18485. DUK_EXTERNAL duk_bool_t duk_is_c_function(duk_hthread *thr, duk_idx_t idx) {
  18486. DUK_ASSERT_API_ENTRY(thr);
  18487. return duk__obj_flag_any_default_false(thr,
  18488. idx,
  18489. DUK_HOBJECT_FLAG_NATFUNC);
  18490. }
  18491. DUK_EXTERNAL duk_bool_t duk_is_ecmascript_function(duk_hthread *thr, duk_idx_t idx) {
  18492. DUK_ASSERT_API_ENTRY(thr);
  18493. return duk__obj_flag_any_default_false(thr,
  18494. idx,
  18495. DUK_HOBJECT_FLAG_COMPFUNC);
  18496. }
  18497. DUK_EXTERNAL duk_bool_t duk_is_bound_function(duk_hthread *thr, duk_idx_t idx) {
  18498. DUK_ASSERT_API_ENTRY(thr);
  18499. return duk__obj_flag_any_default_false(thr,
  18500. idx,
  18501. DUK_HOBJECT_FLAG_BOUNDFUNC);
  18502. }
  18503. DUK_EXTERNAL duk_bool_t duk_is_thread(duk_hthread *thr, duk_idx_t idx) {
  18504. duk_hobject *obj;
  18505. DUK_ASSERT_API_ENTRY(thr);
  18506. obj = duk_get_hobject(thr, idx);
  18507. if (obj) {
  18508. return (DUK_HOBJECT_GET_CLASS_NUMBER(obj) == DUK_HOBJECT_CLASS_THREAD ? 1 : 0);
  18509. }
  18510. return 0;
  18511. }
  18512. DUK_EXTERNAL duk_bool_t duk_is_fixed_buffer(duk_hthread *thr, duk_idx_t idx) {
  18513. duk_tval *tv;
  18514. DUK_ASSERT_API_ENTRY(thr);
  18515. tv = duk_get_tval_or_unused(thr, idx);
  18516. DUK_ASSERT(tv != NULL);
  18517. if (DUK_TVAL_IS_BUFFER(tv)) {
  18518. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  18519. DUK_ASSERT(h != NULL);
  18520. return (DUK_HBUFFER_HAS_DYNAMIC(h) ? 0 : 1);
  18521. }
  18522. return 0;
  18523. }
  18524. DUK_EXTERNAL duk_bool_t duk_is_dynamic_buffer(duk_hthread *thr, duk_idx_t idx) {
  18525. duk_tval *tv;
  18526. DUK_ASSERT_API_ENTRY(thr);
  18527. tv = duk_get_tval_or_unused(thr, idx);
  18528. DUK_ASSERT(tv != NULL);
  18529. if (DUK_TVAL_IS_BUFFER(tv)) {
  18530. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  18531. DUK_ASSERT(h != NULL);
  18532. return (DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h) ? 1 : 0);
  18533. }
  18534. return 0;
  18535. }
  18536. DUK_EXTERNAL duk_bool_t duk_is_external_buffer(duk_hthread *thr, duk_idx_t idx) {
  18537. duk_tval *tv;
  18538. DUK_ASSERT_API_ENTRY(thr);
  18539. tv = duk_get_tval_or_unused(thr, idx);
  18540. DUK_ASSERT(tv != NULL);
  18541. if (DUK_TVAL_IS_BUFFER(tv)) {
  18542. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  18543. DUK_ASSERT(h != NULL);
  18544. return (DUK_HBUFFER_HAS_DYNAMIC(h) && DUK_HBUFFER_HAS_EXTERNAL(h) ? 1 : 0);
  18545. }
  18546. return 0;
  18547. }
  18548. DUK_EXTERNAL duk_errcode_t duk_get_error_code(duk_hthread *thr, duk_idx_t idx) {
  18549. duk_hobject *h;
  18550. duk_uint_t sanity;
  18551. DUK_ASSERT_API_ENTRY(thr);
  18552. h = duk_get_hobject(thr, idx);
  18553. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  18554. do {
  18555. if (!h) {
  18556. return DUK_ERR_NONE;
  18557. }
  18558. /* XXX: something more convenient? */
  18559. if (h == thr->builtins[DUK_BIDX_EVAL_ERROR_PROTOTYPE]) {
  18560. return DUK_ERR_EVAL_ERROR;
  18561. }
  18562. if (h == thr->builtins[DUK_BIDX_RANGE_ERROR_PROTOTYPE]) {
  18563. return DUK_ERR_RANGE_ERROR;
  18564. }
  18565. if (h == thr->builtins[DUK_BIDX_REFERENCE_ERROR_PROTOTYPE]) {
  18566. return DUK_ERR_REFERENCE_ERROR;
  18567. }
  18568. if (h == thr->builtins[DUK_BIDX_SYNTAX_ERROR_PROTOTYPE]) {
  18569. return DUK_ERR_SYNTAX_ERROR;
  18570. }
  18571. if (h == thr->builtins[DUK_BIDX_TYPE_ERROR_PROTOTYPE]) {
  18572. return DUK_ERR_TYPE_ERROR;
  18573. }
  18574. if (h == thr->builtins[DUK_BIDX_URI_ERROR_PROTOTYPE]) {
  18575. return DUK_ERR_URI_ERROR;
  18576. }
  18577. if (h == thr->builtins[DUK_BIDX_ERROR_PROTOTYPE]) {
  18578. return DUK_ERR_ERROR;
  18579. }
  18580. h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h);
  18581. } while (--sanity > 0);
  18582. return DUK_ERR_NONE;
  18583. }
  18584. /*
  18585. * Pushers
  18586. */
  18587. DUK_INTERNAL void duk_push_tval(duk_hthread *thr, duk_tval *tv) {
  18588. duk_tval *tv_slot;
  18589. DUK_ASSERT_API_ENTRY(thr);
  18590. DUK_ASSERT(tv != NULL);
  18591. DUK__CHECK_SPACE();
  18592. tv_slot = thr->valstack_top++;
  18593. DUK_TVAL_SET_TVAL(tv_slot, tv);
  18594. DUK_TVAL_INCREF(thr, tv); /* no side effects */
  18595. }
  18596. DUK_EXTERNAL void duk_push_undefined(duk_hthread *thr) {
  18597. DUK_ASSERT_API_ENTRY(thr);
  18598. DUK__CHECK_SPACE();
  18599. /* Because value stack init policy is 'undefined above top',
  18600. * we don't need to write, just assert.
  18601. */
  18602. thr->valstack_top++;
  18603. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1));
  18604. }
  18605. DUK_EXTERNAL void duk_push_null(duk_hthread *thr) {
  18606. duk_tval *tv_slot;
  18607. DUK_ASSERT_API_ENTRY(thr);
  18608. DUK__CHECK_SPACE();
  18609. tv_slot = thr->valstack_top++;
  18610. DUK_TVAL_SET_NULL(tv_slot);
  18611. }
  18612. DUK_EXTERNAL void duk_push_boolean(duk_hthread *thr, duk_bool_t val) {
  18613. duk_tval *tv_slot;
  18614. duk_small_int_t b;
  18615. DUK_ASSERT_API_ENTRY(thr);
  18616. DUK__CHECK_SPACE();
  18617. b = (val ? 1 : 0); /* ensure value is 1 or 0 (not other non-zero) */
  18618. tv_slot = thr->valstack_top++;
  18619. DUK_TVAL_SET_BOOLEAN(tv_slot, b);
  18620. }
  18621. DUK_EXTERNAL void duk_push_true(duk_hthread *thr) {
  18622. duk_tval *tv_slot;
  18623. DUK_ASSERT_API_ENTRY(thr);
  18624. DUK__CHECK_SPACE();
  18625. tv_slot = thr->valstack_top++;
  18626. DUK_TVAL_SET_BOOLEAN_TRUE(tv_slot);
  18627. }
  18628. DUK_EXTERNAL void duk_push_false(duk_hthread *thr) {
  18629. duk_tval *tv_slot;
  18630. DUK_ASSERT_API_ENTRY(thr);
  18631. DUK__CHECK_SPACE();
  18632. tv_slot = thr->valstack_top++;
  18633. DUK_TVAL_SET_BOOLEAN_FALSE(tv_slot);
  18634. }
  18635. /* normalize NaN which may not match our canonical internal NaN */
  18636. DUK_EXTERNAL void duk_push_number(duk_hthread *thr, duk_double_t val) {
  18637. duk_tval *tv_slot;
  18638. duk_double_union du;
  18639. DUK_ASSERT_API_ENTRY(thr);
  18640. DUK__CHECK_SPACE();
  18641. du.d = val;
  18642. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du);
  18643. tv_slot = thr->valstack_top++;
  18644. DUK_TVAL_SET_NUMBER(tv_slot, du.d);
  18645. }
  18646. DUK_EXTERNAL void duk_push_int(duk_hthread *thr, duk_int_t val) {
  18647. #if defined(DUK_USE_FASTINT)
  18648. duk_tval *tv_slot;
  18649. DUK_ASSERT_API_ENTRY(thr);
  18650. DUK__CHECK_SPACE();
  18651. tv_slot = thr->valstack_top++;
  18652. #if DUK_INT_MAX <= 0x7fffffffL
  18653. DUK_TVAL_SET_I32(tv_slot, (duk_int32_t) val);
  18654. #else
  18655. if (val >= DUK_FASTINT_MIN && val <= DUK_FASTINT_MAX) {
  18656. DUK_TVAL_SET_FASTINT(tv_slot, (duk_int64_t) val);
  18657. } else {
  18658. duk_double_t = (duk_double_t) val;
  18659. DUK_TVAL_SET_NUMBER(tv_slot, d);
  18660. }
  18661. #endif
  18662. #else /* DUK_USE_FASTINT */
  18663. duk_tval *tv_slot;
  18664. duk_double_t d;
  18665. DUK_ASSERT_API_ENTRY(thr);
  18666. DUK__CHECK_SPACE();
  18667. d = (duk_double_t) val;
  18668. tv_slot = thr->valstack_top++;
  18669. DUK_TVAL_SET_NUMBER(tv_slot, d);
  18670. #endif /* DUK_USE_FASTINT */
  18671. }
  18672. DUK_EXTERNAL void duk_push_uint(duk_hthread *thr, duk_uint_t val) {
  18673. #if defined(DUK_USE_FASTINT)
  18674. duk_tval *tv_slot;
  18675. DUK_ASSERT_API_ENTRY(thr);
  18676. DUK__CHECK_SPACE();
  18677. tv_slot = thr->valstack_top++;
  18678. #if DUK_UINT_MAX <= 0xffffffffUL
  18679. DUK_TVAL_SET_U32(tv_slot, (duk_uint32_t) val);
  18680. #else
  18681. if (val <= DUK_FASTINT_MAX) { /* val is unsigned so >= 0 */
  18682. /* XXX: take advantage of val being unsigned, no need to mask */
  18683. DUK_TVAL_SET_FASTINT(tv_slot, (duk_int64_t) val);
  18684. } else {
  18685. duk_double_t = (duk_double_t) val;
  18686. DUK_TVAL_SET_NUMBER(tv_slot, d);
  18687. }
  18688. #endif
  18689. #else /* DUK_USE_FASTINT */
  18690. duk_tval *tv_slot;
  18691. duk_double_t d;
  18692. DUK_ASSERT_API_ENTRY(thr);
  18693. DUK__CHECK_SPACE();
  18694. d = (duk_double_t) val;
  18695. tv_slot = thr->valstack_top++;
  18696. DUK_TVAL_SET_NUMBER(tv_slot, d);
  18697. #endif /* DUK_USE_FASTINT */
  18698. }
  18699. DUK_EXTERNAL void duk_push_nan(duk_hthread *thr) {
  18700. duk_tval *tv_slot;
  18701. duk_double_union du;
  18702. DUK_ASSERT_API_ENTRY(thr);
  18703. DUK__CHECK_SPACE();
  18704. DUK_DBLUNION_SET_NAN(&du);
  18705. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  18706. tv_slot = thr->valstack_top++;
  18707. DUK_TVAL_SET_NUMBER(tv_slot, du.d);
  18708. }
  18709. DUK_EXTERNAL const char *duk_push_lstring(duk_hthread *thr, const char *str, duk_size_t len) {
  18710. duk_hstring *h;
  18711. duk_tval *tv_slot;
  18712. DUK_ASSERT_API_ENTRY(thr);
  18713. /* check stack before interning (avoid hanging temp) */
  18714. DUK__CHECK_SPACE();
  18715. /* NULL with zero length represents an empty string; NULL with higher
  18716. * length is also now trated like an empty string although it is
  18717. * a bit dubious. This is unlike duk_push_string() which pushes a
  18718. * 'null' if the input string is a NULL.
  18719. */
  18720. if (!str) {
  18721. len = 0;
  18722. }
  18723. /* Check for maximum string length */
  18724. if (DUK_UNLIKELY(len > DUK_HSTRING_MAX_BYTELEN)) {
  18725. DUK_ERROR_RANGE(thr, DUK_STR_STRING_TOO_LONG);
  18726. }
  18727. h = duk_heap_strtable_intern_checked(thr, (const duk_uint8_t *) str, (duk_uint32_t) len);
  18728. DUK_ASSERT(h != NULL);
  18729. tv_slot = thr->valstack_top++;
  18730. DUK_TVAL_SET_STRING(tv_slot, h);
  18731. DUK_HSTRING_INCREF(thr, h); /* no side effects */
  18732. return (const char *) DUK_HSTRING_GET_DATA(h);
  18733. }
  18734. DUK_EXTERNAL const char *duk_push_string(duk_hthread *thr, const char *str) {
  18735. DUK_ASSERT_API_ENTRY(thr);
  18736. if (str) {
  18737. return duk_push_lstring(thr, str, DUK_STRLEN(str));
  18738. } else {
  18739. duk_push_null(thr);
  18740. return NULL;
  18741. }
  18742. }
  18743. DUK_EXTERNAL void duk_push_pointer(duk_hthread *thr, void *val) {
  18744. duk_tval *tv_slot;
  18745. DUK_ASSERT_API_ENTRY(thr);
  18746. DUK__CHECK_SPACE();
  18747. tv_slot = thr->valstack_top++;
  18748. DUK_TVAL_SET_POINTER(tv_slot, val);
  18749. }
  18750. DUK_INTERNAL duk_hstring *duk_push_uint_to_hstring(duk_hthread *thr, duk_uint_t i) {
  18751. duk_hstring *h_tmp;
  18752. DUK_ASSERT_API_ENTRY(thr);
  18753. /* XXX: this could be a direct DUK_SPRINTF to a buffer followed by duk_push_string() */
  18754. duk_push_uint(thr, (duk_uint_t) i);
  18755. h_tmp = duk_to_hstring_m1(thr);
  18756. DUK_ASSERT(h_tmp != NULL);
  18757. return h_tmp;
  18758. }
  18759. DUK_LOCAL void duk__push_this_helper(duk_hthread *thr, duk_small_uint_t check_object_coercible) {
  18760. duk_tval *tv_slot;
  18761. DUK__CHECK_SPACE();
  18762. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* because of valstack init policy */
  18763. tv_slot = thr->valstack_top++;
  18764. if (DUK_UNLIKELY(thr->callstack_curr == NULL)) {
  18765. if (check_object_coercible) {
  18766. goto type_error;
  18767. }
  18768. /* 'undefined' already on stack top */
  18769. } else {
  18770. duk_tval *tv;
  18771. /* 'this' binding is just before current activation's bottom */
  18772. DUK_ASSERT(thr->valstack_bottom > thr->valstack);
  18773. tv = thr->valstack_bottom - 1;
  18774. if (check_object_coercible &&
  18775. (DUK_TVAL_IS_UNDEFINED(tv) || DUK_TVAL_IS_NULL(tv))) {
  18776. /* XXX: better macro for DUK_TVAL_IS_UNDEFINED_OR_NULL(tv) */
  18777. goto type_error;
  18778. }
  18779. DUK_TVAL_SET_TVAL(tv_slot, tv);
  18780. DUK_TVAL_INCREF(thr, tv);
  18781. }
  18782. return;
  18783. type_error:
  18784. DUK_ERROR_TYPE(thr, DUK_STR_NOT_OBJECT_COERCIBLE);
  18785. }
  18786. DUK_EXTERNAL void duk_push_this(duk_hthread *thr) {
  18787. DUK_ASSERT_API_ENTRY(thr);
  18788. duk__push_this_helper(thr, 0 /*check_object_coercible*/);
  18789. }
  18790. DUK_INTERNAL void duk_push_this_check_object_coercible(duk_hthread *thr) {
  18791. DUK_ASSERT_API_ENTRY(thr);
  18792. duk__push_this_helper(thr, 1 /*check_object_coercible*/);
  18793. }
  18794. DUK_INTERNAL duk_hobject *duk_push_this_coercible_to_object(duk_hthread *thr) {
  18795. duk_hobject *h;
  18796. DUK_ASSERT_API_ENTRY(thr);
  18797. duk__push_this_helper(thr, 1 /*check_object_coercible*/);
  18798. h = duk_to_hobject(thr, -1);
  18799. DUK_ASSERT(h != NULL);
  18800. return h;
  18801. }
  18802. DUK_INTERNAL duk_hstring *duk_push_this_coercible_to_string(duk_hthread *thr) {
  18803. DUK_ASSERT_API_ENTRY(thr);
  18804. duk__push_this_helper(thr, 1 /*check_object_coercible*/);
  18805. return duk_to_hstring_m1(thr); /* This will reject all Symbol values; accepts Symbol objects. */
  18806. }
  18807. DUK_INTERNAL duk_tval *duk_get_borrowed_this_tval(duk_hthread *thr) {
  18808. DUK_ASSERT_API_ENTRY(thr);
  18809. DUK_ASSERT(thr->callstack_top > 0); /* caller required to know */
  18810. DUK_ASSERT(thr->callstack_curr != NULL); /* caller required to know */
  18811. DUK_ASSERT(thr->valstack_bottom > thr->valstack); /* consequence of above */
  18812. DUK_ASSERT(thr->valstack_bottom - 1 >= thr->valstack); /* 'this' binding exists */
  18813. return thr->valstack_bottom - 1;
  18814. }
  18815. DUK_EXTERNAL void duk_push_current_function(duk_hthread *thr) {
  18816. duk_activation *act;
  18817. DUK_ASSERT_API_ENTRY(thr);
  18818. act = thr->callstack_curr;
  18819. if (act != NULL) {
  18820. duk_push_tval(thr, &act->tv_func);
  18821. } else {
  18822. duk_push_undefined(thr);
  18823. }
  18824. }
  18825. DUK_EXTERNAL void duk_push_current_thread(duk_hthread *thr) {
  18826. DUK_ASSERT_API_ENTRY(thr);
  18827. if (thr->heap->curr_thread) {
  18828. duk_push_hobject(thr, (duk_hobject *) thr->heap->curr_thread);
  18829. } else {
  18830. duk_push_undefined(thr);
  18831. }
  18832. }
  18833. DUK_EXTERNAL void duk_push_global_object(duk_hthread *thr) {
  18834. DUK_ASSERT_API_ENTRY(thr);
  18835. duk_push_hobject_bidx(thr, DUK_BIDX_GLOBAL);
  18836. }
  18837. /* XXX: size optimize */
  18838. DUK_LOCAL void duk__push_stash(duk_hthread *thr) {
  18839. if (!duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE)) {
  18840. DUK_DDD(DUK_DDDPRINT("creating heap/global/thread stash on first use"));
  18841. duk_pop_unsafe(thr);
  18842. duk_push_bare_object(thr);
  18843. duk_dup_top(thr);
  18844. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_C); /* [ ... parent stash stash ] -> [ ... parent stash ] */
  18845. }
  18846. duk_remove_m2(thr);
  18847. }
  18848. DUK_EXTERNAL void duk_push_heap_stash(duk_hthread *thr) {
  18849. duk_heap *heap;
  18850. DUK_ASSERT_API_ENTRY(thr);
  18851. heap = thr->heap;
  18852. DUK_ASSERT(heap->heap_object != NULL);
  18853. duk_push_hobject(thr, heap->heap_object);
  18854. duk__push_stash(thr);
  18855. }
  18856. DUK_EXTERNAL void duk_push_global_stash(duk_hthread *thr) {
  18857. DUK_ASSERT_API_ENTRY(thr);
  18858. duk_push_global_object(thr);
  18859. duk__push_stash(thr);
  18860. }
  18861. DUK_EXTERNAL void duk_push_thread_stash(duk_hthread *thr, duk_hthread *target_thr) {
  18862. DUK_ASSERT_API_ENTRY(thr);
  18863. if (DUK_UNLIKELY(target_thr == NULL)) {
  18864. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  18865. return; /* not reached */
  18866. }
  18867. duk_push_hobject(thr, (duk_hobject *) target_thr);
  18868. duk__push_stash(thr);
  18869. }
  18870. /* XXX: duk_ssize_t would be useful here */
  18871. DUK_LOCAL duk_int_t duk__try_push_vsprintf(duk_hthread *thr, void *buf, duk_size_t sz, const char *fmt, va_list ap) {
  18872. duk_int_t len;
  18873. DUK_ASSERT_CTX_VALID(thr);
  18874. DUK_UNREF(thr);
  18875. /* NUL terminator handling doesn't matter here */
  18876. len = DUK_VSNPRINTF((char *) buf, sz, fmt, ap);
  18877. if (len < (duk_int_t) sz) {
  18878. /* Return value of 'sz' or more indicates output was (potentially)
  18879. * truncated.
  18880. */
  18881. return (duk_int_t) len;
  18882. }
  18883. return -1;
  18884. }
  18885. DUK_EXTERNAL const char *duk_push_vsprintf(duk_hthread *thr, const char *fmt, va_list ap) {
  18886. duk_uint8_t stack_buf[DUK_PUSH_SPRINTF_INITIAL_SIZE];
  18887. duk_size_t sz = DUK_PUSH_SPRINTF_INITIAL_SIZE;
  18888. duk_bool_t pushed_buf = 0;
  18889. void *buf;
  18890. duk_int_t len; /* XXX: duk_ssize_t */
  18891. const char *res;
  18892. DUK_ASSERT_API_ENTRY(thr);
  18893. /* special handling of fmt==NULL */
  18894. if (!fmt) {
  18895. duk_hstring *h_str;
  18896. duk_push_hstring_empty(thr);
  18897. h_str = duk_known_hstring(thr, -1);
  18898. return (const char *) DUK_HSTRING_GET_DATA(h_str);
  18899. }
  18900. /* initial estimate based on format string */
  18901. sz = DUK_STRLEN(fmt) + 16; /* format plus something to avoid just missing */
  18902. if (sz < DUK_PUSH_SPRINTF_INITIAL_SIZE) {
  18903. sz = DUK_PUSH_SPRINTF_INITIAL_SIZE;
  18904. }
  18905. DUK_ASSERT(sz > 0);
  18906. /* Try to make do with a stack buffer to avoid allocating a temporary buffer.
  18907. * This works 99% of the time which is quite nice.
  18908. */
  18909. for (;;) {
  18910. va_list ap_copy; /* copied so that 'ap' can be reused */
  18911. if (sz <= sizeof(stack_buf)) {
  18912. buf = stack_buf;
  18913. } else if (!pushed_buf) {
  18914. pushed_buf = 1;
  18915. buf = duk_push_dynamic_buffer(thr, sz);
  18916. } else {
  18917. buf = duk_resize_buffer(thr, -1, sz);
  18918. }
  18919. DUK_ASSERT(buf != NULL);
  18920. DUK_VA_COPY(ap_copy, ap);
  18921. len = duk__try_push_vsprintf(thr, buf, sz, fmt, ap_copy);
  18922. va_end(ap_copy);
  18923. if (len >= 0) {
  18924. break;
  18925. }
  18926. /* failed, resize and try again */
  18927. sz = sz * 2;
  18928. if (DUK_UNLIKELY(sz >= DUK_PUSH_SPRINTF_SANITY_LIMIT)) {
  18929. DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG);
  18930. }
  18931. }
  18932. /* Cannot use duk_buffer_to_string() on the buffer because it is
  18933. * usually larger than 'len'; 'buf' is also usually a stack buffer.
  18934. */
  18935. res = duk_push_lstring(thr, (const char *) buf, (duk_size_t) len); /* [ buf? res ] */
  18936. if (pushed_buf) {
  18937. duk_remove_m2(thr);
  18938. }
  18939. return res;
  18940. }
  18941. DUK_EXTERNAL const char *duk_push_sprintf(duk_hthread *thr, const char *fmt, ...) {
  18942. va_list ap;
  18943. const char *ret;
  18944. DUK_ASSERT_API_ENTRY(thr);
  18945. /* allow fmt==NULL */
  18946. va_start(ap, fmt);
  18947. ret = duk_push_vsprintf(thr, fmt, ap);
  18948. va_end(ap);
  18949. return ret;
  18950. }
  18951. DUK_INTERNAL duk_hobject *duk_push_object_helper(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx) {
  18952. duk_tval *tv_slot;
  18953. duk_hobject *h;
  18954. DUK_ASSERT_API_ENTRY(thr);
  18955. DUK_ASSERT(prototype_bidx == -1 ||
  18956. (prototype_bidx >= 0 && prototype_bidx < DUK_NUM_BUILTINS));
  18957. DUK__CHECK_SPACE();
  18958. h = duk_hobject_alloc(thr, hobject_flags_and_class);
  18959. DUK_ASSERT(h != NULL);
  18960. DUK_DDD(DUK_DDDPRINT("created object with flags: 0x%08lx", (unsigned long) h->hdr.h_flags));
  18961. tv_slot = thr->valstack_top;
  18962. DUK_TVAL_SET_OBJECT(tv_slot, h);
  18963. DUK_HOBJECT_INCREF(thr, h); /* no side effects */
  18964. thr->valstack_top++;
  18965. /* object is now reachable */
  18966. if (prototype_bidx >= 0) {
  18967. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, h, thr->builtins[prototype_bidx]);
  18968. } else {
  18969. DUK_ASSERT(prototype_bidx == -1);
  18970. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h) == NULL);
  18971. }
  18972. return h;
  18973. }
  18974. DUK_INTERNAL duk_hobject *duk_push_object_helper_proto(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_hobject *proto) {
  18975. duk_hobject *h;
  18976. DUK_ASSERT_API_ENTRY(thr);
  18977. h = duk_push_object_helper(thr, hobject_flags_and_class, -1);
  18978. DUK_ASSERT(h != NULL);
  18979. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, h, proto);
  18980. return h;
  18981. }
  18982. DUK_EXTERNAL duk_idx_t duk_push_object(duk_hthread *thr) {
  18983. DUK_ASSERT_API_ENTRY(thr);
  18984. (void) duk_push_object_helper(thr,
  18985. DUK_HOBJECT_FLAG_EXTENSIBLE |
  18986. DUK_HOBJECT_FLAG_FASTREFS |
  18987. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  18988. DUK_BIDX_OBJECT_PROTOTYPE);
  18989. return duk_get_top_index_unsafe(thr);
  18990. }
  18991. DUK_EXTERNAL duk_idx_t duk_push_array(duk_hthread *thr) {
  18992. duk_uint_t flags;
  18993. duk_harray *obj;
  18994. duk_idx_t ret;
  18995. duk_tval *tv_slot;
  18996. DUK_ASSERT_API_ENTRY(thr);
  18997. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  18998. DUK_HOBJECT_FLAG_FASTREFS |
  18999. DUK_HOBJECT_FLAG_ARRAY_PART |
  19000. DUK_HOBJECT_FLAG_EXOTIC_ARRAY |
  19001. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAY);
  19002. obj = duk_harray_alloc(thr, flags);
  19003. DUK_ASSERT(obj != NULL);
  19004. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[DUK_BIDX_ARRAY_PROTOTYPE]);
  19005. tv_slot = thr->valstack_top;
  19006. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19007. DUK_HOBJECT_INCREF(thr, obj); /* XXX: could preallocate with refcount = 1 */
  19008. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  19009. thr->valstack_top++;
  19010. DUK_ASSERT(obj->length == 0); /* Array .length starts at zero. */
  19011. return ret;
  19012. }
  19013. DUK_INTERNAL duk_harray *duk_push_harray(duk_hthread *thr) {
  19014. /* XXX: API call could do this directly, cast to void in API macro. */
  19015. duk_harray *a;
  19016. DUK_ASSERT_API_ENTRY(thr);
  19017. (void) duk_push_array(thr);
  19018. DUK_ASSERT(DUK_TVAL_IS_OBJECT(thr->valstack_top - 1));
  19019. a = (duk_harray *) DUK_TVAL_GET_OBJECT(thr->valstack_top - 1);
  19020. DUK_ASSERT(a != NULL);
  19021. return a;
  19022. }
  19023. /* Push a duk_harray with preallocated size (.length also set to match size).
  19024. * Caller may then populate array part of the duk_harray directly.
  19025. */
  19026. DUK_INTERNAL duk_harray *duk_push_harray_with_size(duk_hthread *thr, duk_uint32_t size) {
  19027. duk_harray *a;
  19028. DUK_ASSERT_API_ENTRY(thr);
  19029. a = duk_push_harray(thr);
  19030. duk_hobject_realloc_props(thr,
  19031. (duk_hobject *) a,
  19032. 0,
  19033. size,
  19034. 0,
  19035. 0);
  19036. a->length = size;
  19037. return a;
  19038. }
  19039. DUK_INTERNAL duk_tval *duk_push_harray_with_size_outptr(duk_hthread *thr, duk_uint32_t size) {
  19040. duk_harray *a;
  19041. DUK_ASSERT_API_ENTRY(thr);
  19042. a = duk_push_harray_with_size(thr, size);
  19043. DUK_ASSERT(a != NULL);
  19044. return DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) a);
  19045. }
  19046. DUK_EXTERNAL duk_idx_t duk_push_thread_raw(duk_hthread *thr, duk_uint_t flags) {
  19047. duk_hthread *obj;
  19048. duk_idx_t ret;
  19049. duk_tval *tv_slot;
  19050. DUK_ASSERT_API_ENTRY(thr);
  19051. DUK__CHECK_SPACE();
  19052. obj = duk_hthread_alloc(thr,
  19053. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19054. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_THREAD));
  19055. DUK_ASSERT(obj != NULL);
  19056. obj->state = DUK_HTHREAD_STATE_INACTIVE;
  19057. #if defined(DUK_USE_ROM_STRINGS)
  19058. /* Nothing to initialize, strs[] is in ROM. */
  19059. #else
  19060. #if defined(DUK_USE_HEAPPTR16)
  19061. obj->strs16 = thr->strs16;
  19062. #else
  19063. obj->strs = thr->strs;
  19064. #endif
  19065. #endif
  19066. DUK_DDD(DUK_DDDPRINT("created thread object with flags: 0x%08lx", (unsigned long) obj->obj.hdr.h_flags));
  19067. /* make the new thread reachable */
  19068. tv_slot = thr->valstack_top;
  19069. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19070. DUK_HTHREAD_INCREF(thr, obj);
  19071. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  19072. thr->valstack_top++;
  19073. /* important to do this *after* pushing, to make the thread reachable for gc */
  19074. if (DUK_UNLIKELY(!duk_hthread_init_stacks(thr->heap, obj))) {
  19075. DUK_ERROR_ALLOC_FAILED(thr);
  19076. }
  19077. /* initialize built-ins - either by copying or creating new ones */
  19078. if (flags & DUK_THREAD_NEW_GLOBAL_ENV) {
  19079. duk_hthread_create_builtin_objects(obj);
  19080. } else {
  19081. duk_hthread_copy_builtin_objects(thr, obj);
  19082. }
  19083. /* default prototype */
  19084. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, obj->builtins[DUK_BIDX_THREAD_PROTOTYPE]);
  19085. /* Initial stack size satisfies the stack slack constraints so there
  19086. * is no need to require stack here.
  19087. */
  19088. DUK_ASSERT(DUK_VALSTACK_INITIAL_SIZE >=
  19089. DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA);
  19090. return ret;
  19091. }
  19092. DUK_INTERNAL duk_hcompfunc *duk_push_hcompfunc(duk_hthread *thr) {
  19093. duk_hcompfunc *obj;
  19094. duk_tval *tv_slot;
  19095. DUK_ASSERT_API_ENTRY(thr);
  19096. DUK__CHECK_SPACE();
  19097. /* Template functions are not strictly constructable (they don't
  19098. * have a "prototype" property for instance), so leave the
  19099. * DUK_HOBJECT_FLAG_CONSRUCTABLE flag cleared here.
  19100. */
  19101. obj = duk_hcompfunc_alloc(thr,
  19102. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19103. DUK_HOBJECT_FLAG_CALLABLE |
  19104. DUK_HOBJECT_FLAG_COMPFUNC |
  19105. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION));
  19106. if (DUK_UNLIKELY(obj == NULL)) {
  19107. DUK_ERROR_ALLOC_FAILED(thr);
  19108. }
  19109. DUK_DDD(DUK_DDDPRINT("created compiled function object with flags: 0x%08lx", (unsigned long) obj->obj.hdr.h_flags));
  19110. tv_slot = thr->valstack_top;
  19111. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19112. DUK_HOBJECT_INCREF(thr, obj);
  19113. thr->valstack_top++;
  19114. /* default prototype */
  19115. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) obj) == NULL);
  19116. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  19117. return obj;
  19118. }
  19119. DUK_INTERNAL duk_hboundfunc *duk_push_hboundfunc(duk_hthread *thr) {
  19120. duk_hboundfunc *obj;
  19121. duk_tval *tv_slot;
  19122. DUK_ASSERT_API_ENTRY(thr);
  19123. DUK__CHECK_SPACE();
  19124. obj = duk_hboundfunc_alloc(thr->heap,
  19125. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19126. DUK_HOBJECT_FLAG_BOUNDFUNC |
  19127. DUK_HOBJECT_FLAG_CONSTRUCTABLE |
  19128. DUK_HOBJECT_FLAG_CALLABLE |
  19129. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION));
  19130. if (!obj) {
  19131. DUK_ERROR_ALLOC_FAILED(thr);
  19132. }
  19133. tv_slot = thr->valstack_top++;
  19134. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19135. DUK_HOBJECT_INCREF(thr, obj);
  19136. /* Prototype is left as NULL because the caller always sets it (and
  19137. * it depends on the target function).
  19138. */
  19139. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) obj) == NULL);
  19140. return obj;
  19141. }
  19142. DUK_LOCAL duk_idx_t duk__push_c_function_raw(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_uint_t flags, duk_small_uint_t proto_bidx) {
  19143. duk_hnatfunc *obj;
  19144. duk_idx_t ret;
  19145. duk_tval *tv_slot;
  19146. duk_int16_t func_nargs;
  19147. DUK_ASSERT_CTX_VALID(thr);
  19148. DUK__CHECK_SPACE();
  19149. if (DUK_UNLIKELY(func == NULL)) {
  19150. goto api_error;
  19151. }
  19152. if (nargs >= 0 && nargs < DUK_HNATFUNC_NARGS_MAX) {
  19153. func_nargs = (duk_int16_t) nargs;
  19154. } else if (nargs == DUK_VARARGS) {
  19155. func_nargs = DUK_HNATFUNC_NARGS_VARARGS;
  19156. } else {
  19157. goto api_error;
  19158. }
  19159. obj = duk_hnatfunc_alloc(thr, flags);
  19160. DUK_ASSERT(obj != NULL);
  19161. obj->func = func;
  19162. obj->nargs = func_nargs;
  19163. DUK_DDD(DUK_DDDPRINT("created native function object with flags: 0x%08lx, nargs=%ld",
  19164. (unsigned long) obj->obj.hdr.h_flags, (long) obj->nargs));
  19165. tv_slot = thr->valstack_top;
  19166. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19167. DUK_HOBJECT_INCREF(thr, obj);
  19168. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  19169. thr->valstack_top++;
  19170. DUK_ASSERT_BIDX_VALID(proto_bidx);
  19171. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[proto_bidx]);
  19172. return ret;
  19173. api_error:
  19174. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  19175. return 0; /* not reached */
  19176. }
  19177. DUK_EXTERNAL duk_idx_t duk_push_c_function(duk_hthread *thr, duk_c_function func, duk_int_t nargs) {
  19178. duk_uint_t flags;
  19179. DUK_ASSERT_API_ENTRY(thr);
  19180. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  19181. DUK_HOBJECT_FLAG_CONSTRUCTABLE |
  19182. DUK_HOBJECT_FLAG_CALLABLE |
  19183. DUK_HOBJECT_FLAG_FASTREFS |
  19184. DUK_HOBJECT_FLAG_NATFUNC |
  19185. DUK_HOBJECT_FLAG_NEWENV |
  19186. DUK_HOBJECT_FLAG_STRICT |
  19187. DUK_HOBJECT_FLAG_NOTAIL |
  19188. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION);
  19189. /* Default prototype is a Duktape specific %NativeFunctionPrototype%
  19190. * which provides .length and .name getters.
  19191. */
  19192. return duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE);
  19193. }
  19194. DUK_INTERNAL void duk_push_c_function_builtin(duk_hthread *thr, duk_c_function func, duk_int_t nargs) {
  19195. duk_uint_t flags;
  19196. DUK_ASSERT_API_ENTRY(thr);
  19197. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  19198. DUK_HOBJECT_FLAG_CONSTRUCTABLE |
  19199. DUK_HOBJECT_FLAG_CALLABLE |
  19200. DUK_HOBJECT_FLAG_FASTREFS |
  19201. DUK_HOBJECT_FLAG_NATFUNC |
  19202. DUK_HOBJECT_FLAG_NEWENV |
  19203. DUK_HOBJECT_FLAG_STRICT |
  19204. DUK_HOBJECT_FLAG_NOTAIL |
  19205. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION);
  19206. /* Must use Function.prototype for standard built-in functions. */
  19207. (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_FUNCTION_PROTOTYPE);
  19208. }
  19209. DUK_INTERNAL void duk_push_c_function_builtin_noconstruct(duk_hthread *thr, duk_c_function func, duk_int_t nargs) {
  19210. duk_uint_t flags;
  19211. DUK_ASSERT_API_ENTRY(thr);
  19212. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  19213. DUK_HOBJECT_FLAG_CALLABLE |
  19214. DUK_HOBJECT_FLAG_FASTREFS |
  19215. DUK_HOBJECT_FLAG_NATFUNC |
  19216. DUK_HOBJECT_FLAG_NEWENV |
  19217. DUK_HOBJECT_FLAG_STRICT |
  19218. DUK_HOBJECT_FLAG_NOTAIL |
  19219. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION);
  19220. /* Must use Function.prototype for standard built-in functions. */
  19221. (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_FUNCTION_PROTOTYPE);
  19222. }
  19223. DUK_EXTERNAL duk_idx_t duk_push_c_lightfunc(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_idx_t length, duk_int_t magic) {
  19224. duk_small_uint_t lf_flags;
  19225. duk_tval *tv_slot;
  19226. DUK_ASSERT_API_ENTRY(thr);
  19227. DUK__CHECK_SPACE();
  19228. if (nargs >= DUK_LFUNC_NARGS_MIN && nargs <= DUK_LFUNC_NARGS_MAX) {
  19229. /* as is */
  19230. } else if (nargs == DUK_VARARGS) {
  19231. nargs = DUK_LFUNC_NARGS_VARARGS;
  19232. } else {
  19233. goto api_error;
  19234. }
  19235. if (DUK_UNLIKELY(!(length >= DUK_LFUNC_LENGTH_MIN && length <= DUK_LFUNC_LENGTH_MAX))) {
  19236. goto api_error;
  19237. }
  19238. if (DUK_UNLIKELY(!(magic >= DUK_LFUNC_MAGIC_MIN && magic <= DUK_LFUNC_MAGIC_MAX))) {
  19239. goto api_error;
  19240. }
  19241. lf_flags = DUK_LFUNC_FLAGS_PACK((duk_small_int_t) magic, (duk_small_uint_t) length, (duk_small_uint_t) nargs);
  19242. tv_slot = thr->valstack_top++;
  19243. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_slot));
  19244. DUK_TVAL_SET_LIGHTFUNC(tv_slot, func, lf_flags);
  19245. DUK_ASSERT(tv_slot >= thr->valstack_bottom);
  19246. return (duk_idx_t) (tv_slot - thr->valstack_bottom);
  19247. api_error:
  19248. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  19249. return 0; /* not reached */
  19250. }
  19251. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  19252. DUK_INTERNAL duk_hbufobj *duk_push_bufobj_raw(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx) {
  19253. duk_hbufobj *obj;
  19254. duk_tval *tv_slot;
  19255. DUK_ASSERT_API_ENTRY(thr);
  19256. DUK_ASSERT(prototype_bidx >= 0);
  19257. DUK__CHECK_SPACE();
  19258. obj = duk_hbufobj_alloc(thr, hobject_flags_and_class);
  19259. DUK_ASSERT(obj != NULL);
  19260. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[prototype_bidx]);
  19261. DUK_ASSERT_HBUFOBJ_VALID(obj);
  19262. tv_slot = thr->valstack_top;
  19263. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj);
  19264. DUK_HOBJECT_INCREF(thr, obj);
  19265. thr->valstack_top++;
  19266. return obj;
  19267. }
  19268. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  19269. /* XXX: There's quite a bit of overlap with buffer creation handling in
  19270. * duk_bi_buffer.c. Look for overlap and refactor.
  19271. */
  19272. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  19273. #define DUK__PACK_ARGS(classnum,protobidx,elemtype,elemshift,istypedarray) \
  19274. (((classnum) << 24) | ((protobidx) << 16) | ((elemtype) << 8) | ((elemshift) << 4) | (istypedarray))
  19275. static const duk_uint32_t duk__bufobj_flags_lookup[] = {
  19276. /* Node.js Buffers are Uint8Array instances which inherit from Buffer.prototype. */
  19277. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_ARRAYBUFFER, DUK_BIDX_ARRAYBUFFER_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 0), /* DUK_BUFOBJ_ARRAYBUFFER */
  19278. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8ARRAY, DUK_BIDX_NODEJS_BUFFER_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 1), /* DUK_BUFOBJ_NODEJS_BUFFER */
  19279. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_DATAVIEW, DUK_BIDX_DATAVIEW_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 0), /* DUK_BUFOBJ_DATAVIEW */
  19280. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT8ARRAY, DUK_BIDX_INT8ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT8, 0, 1), /* DUK_BUFOBJ_INT8ARRAY */
  19281. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8ARRAY, DUK_BIDX_UINT8ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 1), /* DUK_BUFOBJ_UINT8ARRAY */
  19282. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY, DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8CLAMPED, 0, 1), /* DUK_BUFOBJ_UINT8CLAMPEDARRAY */
  19283. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT16ARRAY, DUK_BIDX_INT16ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT16, 1, 1), /* DUK_BUFOBJ_INT16ARRAY */
  19284. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT16ARRAY, DUK_BIDX_UINT16ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT16, 1, 1), /* DUK_BUFOBJ_UINT16ARRAY */
  19285. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT32ARRAY, DUK_BIDX_INT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT32, 2, 1), /* DUK_BUFOBJ_INT32ARRAY */
  19286. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT32ARRAY, DUK_BIDX_UINT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT32, 2, 1), /* DUK_BUFOBJ_UINT32ARRAY */
  19287. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_FLOAT32ARRAY, DUK_BIDX_FLOAT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_FLOAT32, 2, 1), /* DUK_BUFOBJ_FLOAT32ARRAY */
  19288. DUK__PACK_ARGS(DUK_HOBJECT_CLASS_FLOAT64ARRAY, DUK_BIDX_FLOAT64ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_FLOAT64, 3, 1) /* DUK_BUFOBJ_FLOAT64ARRAY */
  19289. };
  19290. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  19291. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  19292. DUK_EXTERNAL void duk_push_buffer_object(duk_hthread *thr, duk_idx_t idx_buffer, duk_size_t byte_offset, duk_size_t byte_length, duk_uint_t flags) {
  19293. duk_hbufobj *h_bufobj;
  19294. duk_hbuffer *h_val;
  19295. duk_hobject *h_arraybuf;
  19296. duk_uint32_t tmp;
  19297. duk_uint_t classnum;
  19298. duk_uint_t protobidx;
  19299. duk_uint_t lookupidx;
  19300. duk_uint_t uint_offset, uint_length, uint_added;
  19301. DUK_ASSERT_API_ENTRY(thr);
  19302. /* The underlying types for offset/length in duk_hbufobj is
  19303. * duk_uint_t; make sure argument values fit.
  19304. */
  19305. uint_offset = (duk_uint_t) byte_offset;
  19306. uint_length = (duk_uint_t) byte_length;
  19307. if (sizeof(duk_size_t) != sizeof(duk_uint_t)) {
  19308. if (DUK_UNLIKELY((duk_size_t) uint_offset != byte_offset || (duk_size_t) uint_length != byte_length)) {
  19309. goto range_error;
  19310. }
  19311. }
  19312. DUK_ASSERT_DISABLE(flags >= 0); /* flags is unsigned */
  19313. lookupidx = flags;
  19314. if (DUK_UNLIKELY(lookupidx >= sizeof(duk__bufobj_flags_lookup) / sizeof(duk_uint32_t))) {
  19315. goto arg_error;
  19316. }
  19317. tmp = duk__bufobj_flags_lookup[lookupidx];
  19318. classnum = tmp >> 24;
  19319. protobidx = (tmp >> 16) & 0xff;
  19320. h_arraybuf = duk_get_hobject(thr, idx_buffer);
  19321. if (h_arraybuf != NULL && /* argument is an object */
  19322. flags != DUK_BUFOBJ_ARRAYBUFFER && /* creating a view */
  19323. DUK_HOBJECT_GET_CLASS_NUMBER(h_arraybuf) == DUK_HOBJECT_CLASS_ARRAYBUFFER /* argument is ArrayBuffer */) {
  19324. duk_uint_t tmp_offset;
  19325. DUK_ASSERT_HBUFOBJ_VALID((duk_hbufobj *) h_arraybuf);
  19326. h_val = ((duk_hbufobj *) h_arraybuf)->buf;
  19327. if (DUK_UNLIKELY(h_val == NULL)) {
  19328. goto arg_error;
  19329. }
  19330. tmp_offset = uint_offset + ((duk_hbufobj *) h_arraybuf)->offset;
  19331. if (DUK_UNLIKELY(tmp_offset < uint_offset)) {
  19332. goto range_error;
  19333. }
  19334. uint_offset = tmp_offset;
  19335. /* Note intentional difference to new TypedArray(): we allow
  19336. * caller to create an uncovered typed array (which is memory
  19337. * safe); new TypedArray() rejects it.
  19338. */
  19339. } else {
  19340. /* Handle unexpected object arguments here too, for nice error
  19341. * messages.
  19342. */
  19343. h_arraybuf = NULL;
  19344. h_val = duk_require_hbuffer(thr, idx_buffer);
  19345. }
  19346. /* Wrap check for offset+length. */
  19347. uint_added = uint_offset + uint_length;
  19348. if (DUK_UNLIKELY(uint_added < uint_offset)) {
  19349. goto range_error;
  19350. }
  19351. DUK_ASSERT(uint_added >= uint_offset && uint_added >= uint_length);
  19352. DUK_ASSERT(h_val != NULL);
  19353. h_bufobj = duk_push_bufobj_raw(thr,
  19354. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19355. DUK_HOBJECT_FLAG_BUFOBJ |
  19356. DUK_HOBJECT_CLASS_AS_FLAGS(classnum),
  19357. (duk_small_int_t) protobidx);
  19358. DUK_ASSERT(h_bufobj != NULL);
  19359. h_bufobj->buf = h_val;
  19360. DUK_HBUFFER_INCREF(thr, h_val);
  19361. h_bufobj->buf_prop = h_arraybuf;
  19362. DUK_HOBJECT_INCREF_ALLOWNULL(thr, h_arraybuf);
  19363. h_bufobj->offset = uint_offset;
  19364. h_bufobj->length = uint_length;
  19365. h_bufobj->shift = (tmp >> 4) & 0x0f;
  19366. h_bufobj->elem_type = (tmp >> 8) & 0xff;
  19367. h_bufobj->is_typedarray = tmp & 0x0f;
  19368. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  19369. /* TypedArray views need an automatic ArrayBuffer which must be
  19370. * provided as .buffer property of the view. The ArrayBuffer is
  19371. * referenced via duk_hbufobj->buf_prop and an inherited .buffer
  19372. * accessor returns it. The ArrayBuffer is created lazily on first
  19373. * access if necessary so we don't need to do anything more here.
  19374. */
  19375. return;
  19376. range_error:
  19377. DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARGS);
  19378. return; /* not reached */
  19379. arg_error:
  19380. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_ARGS);
  19381. return; /* not reached */
  19382. }
  19383. #else /* DUK_USE_BUFFEROBJECT_SUPPORT */
  19384. DUK_EXTERNAL void duk_push_buffer_object(duk_hthread *thr, duk_idx_t idx_buffer, duk_size_t byte_offset, duk_size_t byte_length, duk_uint_t flags) {
  19385. DUK_ASSERT_API_ENTRY(thr);
  19386. DUK_UNREF(idx_buffer);
  19387. DUK_UNREF(byte_offset);
  19388. DUK_UNREF(byte_length);
  19389. DUK_UNREF(flags);
  19390. DUK_ERROR_UNSUPPORTED(thr);
  19391. }
  19392. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  19393. DUK_EXTERNAL duk_idx_t duk_push_error_object_va_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap) {
  19394. duk_hobject *proto;
  19395. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  19396. duk_small_uint_t augment_flags;
  19397. #endif
  19398. DUK_ASSERT_API_ENTRY(thr);
  19399. DUK_ASSERT(thr != NULL);
  19400. DUK_UNREF(filename);
  19401. DUK_UNREF(line);
  19402. /* Error code also packs a tracedata related flag. */
  19403. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  19404. augment_flags = 0;
  19405. if (err_code & DUK_ERRCODE_FLAG_NOBLAME_FILELINE) {
  19406. augment_flags = DUK_AUGMENT_FLAG_NOBLAME_FILELINE;
  19407. }
  19408. #endif
  19409. err_code = err_code & (~DUK_ERRCODE_FLAG_NOBLAME_FILELINE);
  19410. /* error gets its 'name' from the prototype */
  19411. proto = duk_error_prototype_from_code(thr, err_code);
  19412. (void) duk_push_object_helper_proto(thr,
  19413. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19414. DUK_HOBJECT_FLAG_FASTREFS |
  19415. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ERROR),
  19416. proto);
  19417. /* ... and its 'message' from an instance property */
  19418. if (fmt) {
  19419. duk_push_vsprintf(thr, fmt, ap);
  19420. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC);
  19421. } else {
  19422. /* If no explicit message given, put error code into message field
  19423. * (as a number). This is not fully in keeping with the Ecmascript
  19424. * error model because messages are supposed to be strings (Error
  19425. * constructors use ToString() on their argument). However, it's
  19426. * probably more useful than having a separate 'code' property.
  19427. */
  19428. duk_push_int(thr, err_code);
  19429. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC);
  19430. }
  19431. /* XXX: .code = err_code disabled, not sure if useful */
  19432. /* Creation time error augmentation */
  19433. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  19434. /* filename may be NULL in which case file/line is not recorded */
  19435. duk_err_augment_error_create(thr, thr, filename, line, augment_flags); /* may throw an error */
  19436. #endif
  19437. return duk_get_top_index_unsafe(thr);
  19438. }
  19439. DUK_EXTERNAL duk_idx_t duk_push_error_object_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...) {
  19440. va_list ap;
  19441. duk_idx_t ret;
  19442. DUK_ASSERT_API_ENTRY(thr);
  19443. va_start(ap, fmt);
  19444. ret = duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap);
  19445. va_end(ap);
  19446. return ret;
  19447. }
  19448. #if !defined(DUK_USE_VARIADIC_MACROS)
  19449. DUK_EXTERNAL duk_idx_t duk_push_error_object_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, ...) {
  19450. const char *filename = duk_api_global_filename;
  19451. duk_int_t line = duk_api_global_line;
  19452. va_list ap;
  19453. duk_idx_t ret;
  19454. DUK_ASSERT_API_ENTRY(thr);
  19455. duk_api_global_filename = NULL;
  19456. duk_api_global_line = 0;
  19457. va_start(ap, fmt);
  19458. ret = duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap);
  19459. va_end(ap);
  19460. return ret;
  19461. }
  19462. #endif /* DUK_USE_VARIADIC_MACROS */
  19463. DUK_EXTERNAL void *duk_push_buffer_raw(duk_hthread *thr, duk_size_t size, duk_small_uint_t flags) {
  19464. duk_tval *tv_slot;
  19465. duk_hbuffer *h;
  19466. void *buf_data;
  19467. DUK_ASSERT_API_ENTRY(thr);
  19468. DUK__CHECK_SPACE();
  19469. /* Check for maximum buffer length. */
  19470. if (DUK_UNLIKELY(size > DUK_HBUFFER_MAX_BYTELEN)) {
  19471. DUK_ERROR_RANGE(thr, DUK_STR_BUFFER_TOO_LONG);
  19472. }
  19473. h = duk_hbuffer_alloc(thr->heap, size, flags, &buf_data);
  19474. if (DUK_UNLIKELY(h == NULL)) {
  19475. DUK_ERROR_ALLOC_FAILED(thr);
  19476. }
  19477. tv_slot = thr->valstack_top;
  19478. DUK_TVAL_SET_BUFFER(tv_slot, h);
  19479. DUK_HBUFFER_INCREF(thr, h);
  19480. thr->valstack_top++;
  19481. return (void *) buf_data;
  19482. }
  19483. DUK_INTERNAL void *duk_push_fixed_buffer_nozero(duk_hthread *thr, duk_size_t len) {
  19484. DUK_ASSERT_API_ENTRY(thr);
  19485. return duk_push_buffer_raw(thr, len, DUK_BUF_FLAG_NOZERO);
  19486. }
  19487. DUK_INTERNAL void *duk_push_fixed_buffer_zero(duk_hthread *thr, duk_size_t len) {
  19488. void *ptr;
  19489. DUK_ASSERT_API_ENTRY(thr);
  19490. ptr = duk_push_buffer_raw(thr, len, 0);
  19491. #if !defined(DUK_USE_ZERO_BUFFER_DATA)
  19492. /* ES2015 requires zeroing even when DUK_USE_ZERO_BUFFER_DATA
  19493. * is not set.
  19494. */
  19495. DUK_MEMZERO((void *) ptr, (size_t) len);
  19496. #endif
  19497. return ptr;
  19498. }
  19499. #if defined(DUK_USE_ES6_PROXY)
  19500. DUK_EXTERNAL duk_idx_t duk_push_proxy(duk_hthread *thr, duk_uint_t proxy_flags) {
  19501. duk_hobject *h_target;
  19502. duk_hobject *h_handler;
  19503. duk_hproxy *h_proxy;
  19504. duk_tval *tv_slot;
  19505. duk_uint_t flags;
  19506. DUK_ASSERT_API_ENTRY(thr);
  19507. DUK_UNREF(proxy_flags);
  19508. /* DUK__CHECK_SPACE() unnecessary because the Proxy is written to
  19509. * value stack in-place.
  19510. */
  19511. #if 0
  19512. DUK__CHECK_SPACE();
  19513. #endif
  19514. /* Reject a proxy object as the target because it would need
  19515. * special handling in property lookups. (ES2015 has no such
  19516. * restriction.)
  19517. */
  19518. h_target = duk_require_hobject_promote_mask(thr, -2, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  19519. DUK_ASSERT(h_target != NULL);
  19520. if (DUK_HOBJECT_IS_PROXY(h_target)) {
  19521. goto fail_args;
  19522. }
  19523. /* Reject a proxy object as the handler because it would cause
  19524. * potentially unbounded recursion. (ES2015 has no such
  19525. * restriction.)
  19526. *
  19527. * There's little practical reason to use a lightfunc or a plain
  19528. * buffer as the handler table: one could only provide traps via
  19529. * their prototype objects (Function.prototype and ArrayBuffer.prototype).
  19530. * Even so, as lightfuncs and plain buffers mimic their object
  19531. * counterparts, they're promoted and accepted here.
  19532. */
  19533. h_handler = duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  19534. DUK_ASSERT(h_handler != NULL);
  19535. if (DUK_HOBJECT_IS_PROXY(h_handler)) {
  19536. goto fail_args;
  19537. }
  19538. /* XXX: Proxy object currently has no prototype, so ToPrimitive()
  19539. * coercion fails which is a bit confusing.
  19540. */
  19541. /* CALLABLE and CONSTRUCTABLE flags are copied from the (initial)
  19542. * target, see ES2015 Sections 9.5.15 and 9.5.13.
  19543. */
  19544. flags = DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h_target) &
  19545. (DUK_HOBJECT_FLAG_CALLABLE | DUK_HOBJECT_FLAG_CONSTRUCTABLE);
  19546. flags |= DUK_HOBJECT_FLAG_EXTENSIBLE |
  19547. DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ;
  19548. if (flags & DUK_HOBJECT_FLAG_CALLABLE) {
  19549. flags |= DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION) |
  19550. DUK_HOBJECT_FLAG_SPECIAL_CALL;
  19551. } else {
  19552. flags |= DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT);
  19553. }
  19554. h_proxy = duk_hproxy_alloc(thr, flags);
  19555. DUK_ASSERT(h_proxy != NULL);
  19556. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_proxy) == NULL);
  19557. /* Initialize Proxy target and handler references; avoid INCREF
  19558. * by stealing the value stack refcounts via direct value stack
  19559. * manipulation. INCREF is needed for the Proxy itself however.
  19560. */
  19561. DUK_ASSERT(h_target != NULL);
  19562. h_proxy->target = h_target;
  19563. DUK_ASSERT(h_handler != NULL);
  19564. h_proxy->handler = h_handler;
  19565. DUK_ASSERT_HPROXY_VALID(h_proxy);
  19566. DUK_ASSERT(duk_get_hobject(thr, -2) == h_target);
  19567. DUK_ASSERT(duk_get_hobject(thr, -1) == h_handler);
  19568. tv_slot = thr->valstack_top - 2;
  19569. DUK_ASSERT(tv_slot >= thr->valstack_bottom);
  19570. DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) h_proxy);
  19571. DUK_HOBJECT_INCREF(thr, (duk_hobject *) h_proxy);
  19572. tv_slot++;
  19573. DUK_TVAL_SET_UNDEFINED(tv_slot); /* [ ... target handler ] -> [ ... proxy undefined ] */
  19574. thr->valstack_top = tv_slot; /* -> [ ... proxy ] */
  19575. DUK_DD(DUK_DDPRINT("created Proxy: %!iT", duk_get_tval(thr, -1)));
  19576. return (duk_idx_t) (thr->valstack_top - thr->valstack_bottom - 1);
  19577. fail_args:
  19578. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  19579. }
  19580. #else /* DUK_USE_ES6_PROXY */
  19581. DUK_EXTERNAL duk_idx_t duk_push_proxy(duk_hthread *thr, duk_uint_t proxy_flags) {
  19582. DUK_ASSERT_API_ENTRY(thr);
  19583. DUK_UNREF(proxy_flags);
  19584. DUK_ERROR_UNSUPPORTED(thr);
  19585. }
  19586. #endif /* DUK_USE_ES6_PROXY */
  19587. #if defined(DUK_USE_ASSERTIONS)
  19588. DUK_LOCAL void duk__validate_push_heapptr(duk_hthread *thr, void *ptr) {
  19589. duk_heaphdr *h;
  19590. duk_heaphdr *curr;
  19591. duk_bool_t found = 0;
  19592. h = (duk_heaphdr *) ptr;
  19593. if (h == NULL) {
  19594. /* Allowed. */
  19595. return;
  19596. }
  19597. DUK_ASSERT(h != NULL);
  19598. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
  19599. /* One particular problem case is where an object has been
  19600. * queued for finalization but the finalizer hasn't yet been
  19601. * executed.
  19602. *
  19603. * Corner case: we're running in a finalizer for object X, and
  19604. * user code calls duk_push_heapptr() for X itself. In this
  19605. * case X will be in finalize_list, and we can detect the case
  19606. * by seeing that X's FINALIZED flag is set (which is done before
  19607. * the finalizer starts executing).
  19608. */
  19609. #if defined(DUK_USE_FINALIZER_SUPPORT)
  19610. for (curr = thr->heap->finalize_list;
  19611. curr != NULL;
  19612. curr = DUK_HEAPHDR_GET_NEXT(thr->heap, curr)) {
  19613. /* FINALIZABLE is set for all objects on finalize_list
  19614. * except for an object being finalized right now. So
  19615. * can't assert here.
  19616. */
  19617. #if 0
  19618. DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(curr));
  19619. #endif
  19620. if (curr == h) {
  19621. if (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h)) {
  19622. /* Object is currently being finalized. */
  19623. DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */
  19624. found = 1;
  19625. } else {
  19626. /* Not being finalized but on finalize_list,
  19627. * allowed since Duktape 2.1.
  19628. */
  19629. DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */
  19630. found = 1;
  19631. }
  19632. }
  19633. }
  19634. #endif /* DUK_USE_FINALIZER_SUPPORT */
  19635. #if defined(DUK_USE_REFERENCE_COUNTING)
  19636. /* Because refzero_list is now processed to completion inline with
  19637. * no side effects, it's always empty here.
  19638. */
  19639. DUK_ASSERT(thr->heap->refzero_list == NULL);
  19640. #endif
  19641. /* If not present in finalize_list (or refzero_list), it
  19642. * must be either in heap_allocated or the string table.
  19643. */
  19644. if (DUK_HEAPHDR_IS_STRING(h)) {
  19645. duk_uint32_t i;
  19646. duk_hstring *str;
  19647. duk_heap *heap = thr->heap;
  19648. DUK_ASSERT(found == 0);
  19649. for (i = 0; i < heap->st_size; i++) {
  19650. #if defined(DUK_USE_STRTAB_PTRCOMP)
  19651. str = DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, heap->strtable16[i]);
  19652. #else
  19653. str = heap->strtable[i];
  19654. #endif
  19655. while (str != NULL) {
  19656. if (str == (duk_hstring *) h) {
  19657. DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */
  19658. found = 1;
  19659. break;
  19660. }
  19661. str = str->hdr.h_next;
  19662. }
  19663. }
  19664. DUK_ASSERT(found != 0);
  19665. } else {
  19666. for (curr = thr->heap->heap_allocated;
  19667. curr != NULL;
  19668. curr = DUK_HEAPHDR_GET_NEXT(thr->heap, curr)) {
  19669. if (curr == h) {
  19670. DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */
  19671. found = 1;
  19672. }
  19673. }
  19674. DUK_ASSERT(found != 0);
  19675. }
  19676. }
  19677. #endif /* DUK_USE_ASSERTIONS */
  19678. DUK_EXTERNAL duk_idx_t duk_push_heapptr(duk_hthread *thr, void *ptr) {
  19679. duk_idx_t ret;
  19680. duk_tval *tv;
  19681. DUK_ASSERT_API_ENTRY(thr);
  19682. /* Reviving an object using a heap pointer is a dangerous API
  19683. * operation: if the application doesn't guarantee that the
  19684. * pointer target is always reachable, difficult-to-diagnose
  19685. * problems may ensue. Try to validate the 'ptr' argument to
  19686. * the extent possible.
  19687. */
  19688. #if defined(DUK_USE_ASSERTIONS)
  19689. duk__validate_push_heapptr(thr, ptr);
  19690. #endif
  19691. DUK__CHECK_SPACE();
  19692. ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  19693. tv = thr->valstack_top++;
  19694. if (ptr == NULL) {
  19695. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv));
  19696. return ret;
  19697. }
  19698. DUK_ASSERT_HEAPHDR_VALID((duk_heaphdr *) ptr);
  19699. /* If the argument is on finalize_list it has technically been
  19700. * unreachable before duk_push_heapptr() but it's still safe to
  19701. * push it. Starting from Duktape 2.1 allow application code to
  19702. * do so. There are two main cases:
  19703. *
  19704. * (1) The object is on the finalize_list and we're called by
  19705. * the finalizer for the object being finalized. In this
  19706. * case do nothing: finalize_list handling will deal with
  19707. * the object queueing. This is detected by the object not
  19708. * having a FINALIZABLE flag despite being on the finalize_list;
  19709. * the flag is cleared for the object being finalized only.
  19710. *
  19711. * (2) The object is on the finalize_list but is not currently
  19712. * being processed. In this case the object can be queued
  19713. * back to heap_allocated with a few flags cleared, in effect
  19714. * cancelling the finalizer.
  19715. */
  19716. if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) ptr))) {
  19717. duk_heaphdr *curr;
  19718. DUK_D(DUK_DPRINT("duk_push_heapptr() with a pointer on finalize_list, autorescue"));
  19719. curr = (duk_heaphdr *) ptr;
  19720. DUK_HEAPHDR_CLEAR_FINALIZABLE(curr);
  19721. /* Because FINALIZED is set prior to finalizer call, it will
  19722. * be set for the object being currently finalized, but not
  19723. * for other objects on finalize_list.
  19724. */
  19725. DUK_HEAPHDR_CLEAR_FINALIZED(curr);
  19726. /* Dequeue object from finalize_list and queue it back to
  19727. * heap_allocated.
  19728. */
  19729. #if defined(DUK_USE_REFERENCE_COUNTING)
  19730. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1); /* Preincremented on finalize_list insert. */
  19731. DUK_HEAPHDR_PREDEC_REFCOUNT(curr);
  19732. #endif
  19733. DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(thr->heap, curr);
  19734. DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(thr->heap, curr);
  19735. /* Continue with the rest. */
  19736. }
  19737. switch (DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) ptr)) {
  19738. case DUK_HTYPE_STRING:
  19739. DUK_TVAL_SET_STRING(tv, (duk_hstring *) ptr);
  19740. break;
  19741. case DUK_HTYPE_OBJECT:
  19742. DUK_TVAL_SET_OBJECT(tv, (duk_hobject *) ptr);
  19743. break;
  19744. default:
  19745. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) ptr) == DUK_HTYPE_BUFFER);
  19746. DUK_TVAL_SET_BUFFER(tv, (duk_hbuffer *) ptr);
  19747. break;
  19748. }
  19749. DUK_HEAPHDR_INCREF(thr, (duk_heaphdr *) ptr);
  19750. return ret;
  19751. }
  19752. /* Push object with no prototype, i.e. a "bare" object. */
  19753. DUK_EXTERNAL duk_idx_t duk_push_bare_object(duk_hthread *thr) {
  19754. DUK_ASSERT_API_ENTRY(thr);
  19755. (void) duk_push_object_helper(thr,
  19756. DUK_HOBJECT_FLAG_EXTENSIBLE |
  19757. DUK_HOBJECT_FLAG_FASTREFS |
  19758. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  19759. -1); /* no prototype */
  19760. return duk_get_top_index_unsafe(thr);
  19761. }
  19762. DUK_INTERNAL void duk_push_hstring(duk_hthread *thr, duk_hstring *h) {
  19763. duk_tval tv;
  19764. DUK_ASSERT_API_ENTRY(thr);
  19765. DUK_ASSERT(h != NULL);
  19766. DUK_TVAL_SET_STRING(&tv, h);
  19767. duk_push_tval(thr, &tv);
  19768. }
  19769. DUK_INTERNAL void duk_push_hstring_stridx(duk_hthread *thr, duk_small_uint_t stridx) {
  19770. DUK_ASSERT_API_ENTRY(thr);
  19771. DUK_ASSERT_STRIDX_VALID(stridx);
  19772. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  19773. }
  19774. DUK_INTERNAL void duk_push_hstring_empty(duk_hthread *thr) {
  19775. DUK_ASSERT_API_ENTRY(thr);
  19776. duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, DUK_STRIDX_EMPTY_STRING));
  19777. }
  19778. DUK_INTERNAL void duk_push_hobject(duk_hthread *thr, duk_hobject *h) {
  19779. duk_tval tv;
  19780. DUK_ASSERT_API_ENTRY(thr);
  19781. DUK_ASSERT(h != NULL);
  19782. DUK_TVAL_SET_OBJECT(&tv, h);
  19783. duk_push_tval(thr, &tv);
  19784. }
  19785. DUK_INTERNAL void duk_push_hbuffer(duk_hthread *thr, duk_hbuffer *h) {
  19786. duk_tval tv;
  19787. DUK_ASSERT_API_ENTRY(thr);
  19788. DUK_ASSERT(h != NULL);
  19789. DUK_TVAL_SET_BUFFER(&tv, h);
  19790. duk_push_tval(thr, &tv);
  19791. }
  19792. DUK_INTERNAL void duk_push_hobject_bidx(duk_hthread *thr, duk_small_int_t builtin_idx) {
  19793. DUK_ASSERT_API_ENTRY(thr);
  19794. DUK_ASSERT(builtin_idx >= 0 && builtin_idx < DUK_NUM_BUILTINS);
  19795. DUK_ASSERT(thr->builtins[builtin_idx] != NULL);
  19796. duk_push_hobject(thr, thr->builtins[builtin_idx]);
  19797. }
  19798. /*
  19799. * Poppers
  19800. */
  19801. DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_n_unsafe_raw(duk_hthread *thr, duk_idx_t count) {
  19802. duk_tval *tv;
  19803. #if defined(DUK_USE_REFERENCE_COUNTING)
  19804. duk_tval *tv_end;
  19805. #endif
  19806. DUK_ASSERT_CTX_VALID(thr);
  19807. DUK_ASSERT(count >= 0);
  19808. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) count);
  19809. #if defined(DUK_USE_REFERENCE_COUNTING)
  19810. tv = thr->valstack_top;
  19811. tv_end = tv - count;
  19812. while (tv != tv_end) {
  19813. tv--;
  19814. DUK_ASSERT(tv >= thr->valstack_bottom);
  19815. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv);
  19816. }
  19817. thr->valstack_top = tv;
  19818. DUK_REFZERO_CHECK_FAST(thr);
  19819. #else
  19820. tv = thr->valstack_top;
  19821. while (count > 0) {
  19822. count--;
  19823. tv--;
  19824. DUK_ASSERT(tv >= thr->valstack_bottom);
  19825. DUK_TVAL_SET_UNDEFINED(tv);
  19826. }
  19827. thr->valstack_top = tv;
  19828. #endif
  19829. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19830. }
  19831. DUK_EXTERNAL void duk_pop_n(duk_hthread *thr, duk_idx_t count) {
  19832. DUK_ASSERT_API_ENTRY(thr);
  19833. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19834. if (DUK_UNLIKELY((duk_uidx_t) (thr->valstack_top - thr->valstack_bottom) < (duk_uidx_t) count)) {
  19835. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  19836. return;
  19837. }
  19838. DUK_ASSERT(count >= 0);
  19839. duk__pop_n_unsafe_raw(thr, count);
  19840. }
  19841. #if defined(DUK_USE_PREFER_SIZE)
  19842. DUK_INTERNAL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count) {
  19843. DUK_ASSERT_API_ENTRY(thr);
  19844. duk_pop_n(thr, count);
  19845. }
  19846. #else /* DUK_USE_PREFER_SIZE */
  19847. DUK_INTERNAL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count) {
  19848. DUK_ASSERT_API_ENTRY(thr);
  19849. duk__pop_n_unsafe_raw(thr, count);
  19850. }
  19851. #endif /* DUK_USE_PREFER_SIZE */
  19852. /* Pop N elements without DECREF (in effect "stealing" any actual refcounts). */
  19853. #if defined(DUK_USE_REFERENCE_COUNTING)
  19854. DUK_INTERNAL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count) {
  19855. duk_tval *tv;
  19856. DUK_ASSERT_API_ENTRY(thr);
  19857. DUK_ASSERT(count >= 0);
  19858. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19859. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) count);
  19860. tv = thr->valstack_top;
  19861. while (count > 0) {
  19862. count--;
  19863. tv--;
  19864. DUK_ASSERT(tv >= thr->valstack_bottom);
  19865. DUK_TVAL_SET_UNDEFINED(tv);
  19866. }
  19867. thr->valstack_top = tv;
  19868. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19869. }
  19870. #else /* DUK_USE_REFERENCE_COUNTING */
  19871. DUK_INTERNAL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count) {
  19872. DUK_ASSERT_API_ENTRY(thr);
  19873. duk_pop_n_unsafe(thr, count);
  19874. }
  19875. #endif /* DUK_USE_REFERENCE_COUNTING */
  19876. /* Popping one element is called so often that when footprint is not an issue,
  19877. * compile a specialized function for it.
  19878. */
  19879. #if defined(DUK_USE_PREFER_SIZE)
  19880. DUK_EXTERNAL void duk_pop(duk_hthread *thr) {
  19881. DUK_ASSERT_API_ENTRY(thr);
  19882. duk_pop_n(thr, 1);
  19883. }
  19884. DUK_INTERNAL void duk_pop_unsafe(duk_hthread *thr) {
  19885. DUK_ASSERT_API_ENTRY(thr);
  19886. duk_pop_n_unsafe(thr, 1);
  19887. }
  19888. DUK_INTERNAL void duk_pop_nodecref_unsafe(duk_hthread *thr) {
  19889. DUK_ASSERT_API_ENTRY(thr);
  19890. duk_pop_n_nodecref_unsafe(thr, 1);
  19891. }
  19892. #else /* DUK_USE_PREFER_SIZE */
  19893. DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_unsafe_raw(duk_hthread *thr) {
  19894. duk_tval *tv;
  19895. DUK_ASSERT_CTX_VALID(thr);
  19896. DUK_ASSERT(thr->valstack_top != thr->valstack_bottom);
  19897. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19898. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1);
  19899. tv = --thr->valstack_top;
  19900. DUK_ASSERT(tv >= thr->valstack_bottom);
  19901. #if defined(DUK_USE_REFERENCE_COUNTING)
  19902. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */
  19903. #else
  19904. DUK_TVAL_SET_UNDEFINED(tv);
  19905. #endif
  19906. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19907. }
  19908. DUK_EXTERNAL void duk_pop(duk_hthread *thr) {
  19909. DUK_ASSERT_API_ENTRY(thr);
  19910. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19911. if (DUK_UNLIKELY(thr->valstack_top == thr->valstack_bottom)) {
  19912. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  19913. }
  19914. duk__pop_unsafe_raw(thr);
  19915. }
  19916. DUK_INTERNAL void duk_pop_unsafe(duk_hthread *thr) {
  19917. DUK_ASSERT_API_ENTRY(thr);
  19918. duk__pop_unsafe_raw(thr);
  19919. }
  19920. DUK_INTERNAL void duk_pop_nodecref_unsafe(duk_hthread *thr) {
  19921. duk_tval *tv;
  19922. DUK_ASSERT_API_ENTRY(thr);
  19923. DUK_ASSERT(thr->valstack_top != thr->valstack_bottom);
  19924. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19925. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1);
  19926. tv = --thr->valstack_top;
  19927. DUK_ASSERT(tv >= thr->valstack_bottom);
  19928. DUK_TVAL_SET_UNDEFINED(tv);
  19929. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19930. }
  19931. #endif /* !DUK_USE_PREFER_SIZE */
  19932. #if defined(DUK_USE_PREFER_SIZE)
  19933. DUK_INTERNAL void duk_pop_undefined(duk_hthread *thr) {
  19934. DUK_ASSERT_API_ENTRY(thr);
  19935. duk_pop_nodecref_unsafe(thr);
  19936. }
  19937. #else /* DUK_USE_PREFER_SIZE */
  19938. DUK_INTERNAL void duk_pop_undefined(duk_hthread *thr) {
  19939. DUK_ASSERT_API_ENTRY(thr);
  19940. DUK_ASSERT(thr->valstack_top != thr->valstack_bottom);
  19941. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19942. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1);
  19943. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1));
  19944. thr->valstack_top--;
  19945. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19946. }
  19947. #endif /* !DUK_USE_PREFER_SIZE */
  19948. #if defined(DUK_USE_PREFER_SIZE)
  19949. DUK_EXTERNAL void duk_pop_2(duk_hthread *thr) {
  19950. DUK_ASSERT_API_ENTRY(thr);
  19951. duk_pop_n(thr, 2);
  19952. }
  19953. DUK_INTERNAL void duk_pop_2_unsafe(duk_hthread *thr) {
  19954. DUK_ASSERT_API_ENTRY(thr);
  19955. duk_pop_n_unsafe(thr, 2);
  19956. }
  19957. DUK_INTERNAL void duk_pop_2_nodecref_unsafe(duk_hthread *thr) {
  19958. DUK_ASSERT_API_ENTRY(thr);
  19959. duk_pop_n_nodecref_unsafe(thr, 2);
  19960. }
  19961. #else
  19962. DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_2_unsafe_raw(duk_hthread *thr) {
  19963. duk_tval *tv;
  19964. DUK_ASSERT_CTX_VALID(thr);
  19965. DUK_ASSERT(thr->valstack_top != thr->valstack_bottom);
  19966. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19967. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 2);
  19968. tv = --thr->valstack_top;
  19969. DUK_ASSERT(tv >= thr->valstack_bottom);
  19970. #if defined(DUK_USE_REFERENCE_COUNTING)
  19971. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */
  19972. #else
  19973. DUK_TVAL_SET_UNDEFINED(tv);
  19974. #endif
  19975. tv = --thr->valstack_top;
  19976. DUK_ASSERT(tv >= thr->valstack_bottom);
  19977. #if defined(DUK_USE_REFERENCE_COUNTING)
  19978. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */
  19979. #else
  19980. DUK_TVAL_SET_UNDEFINED(tv);
  19981. #endif
  19982. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19983. }
  19984. DUK_EXTERNAL void duk_pop_2(duk_hthread *thr) {
  19985. DUK_ASSERT_API_ENTRY(thr);
  19986. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  19987. if (DUK_UNLIKELY(thr->valstack_top - 2 < thr->valstack_bottom)) {
  19988. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  19989. }
  19990. duk__pop_2_unsafe_raw(thr);
  19991. }
  19992. DUK_INTERNAL void duk_pop_2_unsafe(duk_hthread *thr) {
  19993. DUK_ASSERT_API_ENTRY(thr);
  19994. duk__pop_2_unsafe_raw(thr);
  19995. }
  19996. DUK_INTERNAL void duk_pop_2_nodecref_unsafe(duk_hthread *thr) {
  19997. DUK_ASSERT_API_ENTRY(thr);
  19998. DUK_ASSERT(thr->valstack_top != thr->valstack_bottom);
  19999. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  20000. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 2);
  20001. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1));
  20002. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 2));
  20003. thr->valstack_top -= 2;
  20004. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  20005. }
  20006. #endif /* !DUK_USE_PREFER_SIZE */
  20007. DUK_EXTERNAL void duk_pop_3(duk_hthread *thr) {
  20008. DUK_ASSERT_API_ENTRY(thr);
  20009. duk_pop_n(thr, 3);
  20010. }
  20011. DUK_INTERNAL void duk_pop_3_unsafe(duk_hthread *thr) {
  20012. DUK_ASSERT_API_ENTRY(thr);
  20013. duk_pop_n_unsafe(thr, 3);
  20014. }
  20015. DUK_INTERNAL void duk_pop_3_nodecref_unsafe(duk_hthread *thr) {
  20016. DUK_ASSERT_API_ENTRY(thr);
  20017. duk_pop_n_nodecref_unsafe(thr, 3);
  20018. }
  20019. /*
  20020. * Pack and unpack (pack value stack entries into an array and vice versa)
  20021. */
  20022. /* XXX: pack index range? array index offset? */
  20023. DUK_INTERNAL void duk_pack(duk_hthread *thr, duk_idx_t count) {
  20024. duk_tval *tv_src;
  20025. duk_tval *tv_dst;
  20026. duk_tval *tv_curr;
  20027. duk_tval *tv_limit;
  20028. duk_idx_t top;
  20029. DUK_ASSERT_API_ENTRY(thr);
  20030. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  20031. top = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  20032. DUK_ASSERT(top >= 0);
  20033. if (DUK_UNLIKELY((duk_uidx_t) count > (duk_uidx_t) top)) {
  20034. /* Also handles negative count. */
  20035. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  20036. return;
  20037. }
  20038. DUK_ASSERT(count >= 0);
  20039. /* Wrapping is controlled by the check above: value stack top can be
  20040. * at most DUK_USE_VALSTACK_LIMIT which is low enough so that
  20041. * multiplying with sizeof(duk_tval) won't wrap.
  20042. */
  20043. DUK_ASSERT(count >= 0 && count <= (duk_idx_t) DUK_USE_VALSTACK_LIMIT);
  20044. DUK_ASSERT((duk_size_t) count <= DUK_SIZE_MAX / sizeof(duk_tval)); /* no wrapping */
  20045. tv_dst = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) count); /* XXX: uninitialized would be OK */
  20046. DUK_ASSERT(count == 0 || tv_dst != NULL);
  20047. /* Copy value stack values directly to the array part without
  20048. * any refcount updates: net refcount changes are zero.
  20049. */
  20050. tv_src = thr->valstack_top - count - 1;
  20051. DUK_MEMCPY((void *) tv_dst, (const void *) tv_src, (size_t) count * sizeof(duk_tval));
  20052. /* Overwrite result array to final value stack location and wipe
  20053. * the rest; no refcount operations needed.
  20054. */
  20055. tv_dst = tv_src; /* when count == 0, same as tv_src (OK) */
  20056. tv_src = thr->valstack_top - 1;
  20057. DUK_TVAL_SET_TVAL(tv_dst, tv_src);
  20058. /* XXX: internal helper to wipe a value stack segment? */
  20059. tv_curr = tv_dst + 1;
  20060. tv_limit = thr->valstack_top;
  20061. while (tv_curr != tv_limit) {
  20062. /* Wipe policy: keep as 'undefined'. */
  20063. DUK_TVAL_SET_UNDEFINED(tv_curr);
  20064. tv_curr++;
  20065. }
  20066. thr->valstack_top = tv_dst + 1;
  20067. }
  20068. DUK_INTERNAL duk_idx_t duk_unpack_array_like(duk_hthread *thr, duk_idx_t idx) {
  20069. duk_tval *tv;
  20070. DUK_ASSERT_API_ENTRY(thr);
  20071. tv = duk_require_tval(thr, idx);
  20072. if (DUK_LIKELY(DUK_TVAL_IS_OBJECT(tv))) {
  20073. duk_hobject *h;
  20074. duk_uint32_t len;
  20075. duk_uint32_t i;
  20076. h = DUK_TVAL_GET_OBJECT(tv);
  20077. DUK_ASSERT(h != NULL);
  20078. DUK_UNREF(h);
  20079. #if defined(DUK_USE_ARRAY_FASTPATH) /* close enough */
  20080. if (DUK_LIKELY(DUK_HOBJECT_IS_ARRAY(h) &&
  20081. ((duk_harray *) h)->length <= DUK_HOBJECT_GET_ASIZE(h))) {
  20082. duk_harray *h_arr;
  20083. duk_tval *tv_src;
  20084. duk_tval *tv_dst;
  20085. h_arr = (duk_harray *) h;
  20086. len = h_arr->length;
  20087. if (DUK_UNLIKELY(len >= 0x80000000UL)) {
  20088. goto fail_over_2g;
  20089. }
  20090. duk_require_stack(thr, (duk_idx_t) len);
  20091. /* The potential allocation in duk_require_stack() may
  20092. * run a finalizer which modifies the argArray so that
  20093. * e.g. becomes sparse. So, we need to recheck that the
  20094. * array didn't change size and that there's still a
  20095. * valid backing array part.
  20096. *
  20097. * XXX: alternatively, could prevent finalizers for the
  20098. * duration.
  20099. */
  20100. if (DUK_UNLIKELY(len != h_arr->length ||
  20101. h_arr->length > DUK_HOBJECT_GET_ASIZE((duk_hobject *) h_arr))) {
  20102. goto skip_fast;
  20103. }
  20104. /* Main fast path: arguments array is almost always
  20105. * an actual array (though it might also be an arguments
  20106. * object).
  20107. */
  20108. DUK_DDD(DUK_DDDPRINT("fast path for %ld elements", (long) h_arr->length));
  20109. tv_src = DUK_HOBJECT_A_GET_BASE(thr->heap, h);
  20110. tv_dst = thr->valstack_top;
  20111. while (len-- > 0) {
  20112. DUK_ASSERT(tv_dst < thr->valstack_end);
  20113. if (DUK_UNLIKELY(DUK_TVAL_IS_UNUSED(tv_src))) {
  20114. /* Gaps are very unlikely. Skip over them,
  20115. * without an ancestor lookup (technically
  20116. * not compliant).
  20117. */
  20118. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_dst)); /* valstack policy */
  20119. } else {
  20120. DUK_TVAL_SET_TVAL(tv_dst, tv_src);
  20121. DUK_TVAL_INCREF(thr, tv_dst);
  20122. }
  20123. tv_src++;
  20124. tv_dst++;
  20125. }
  20126. DUK_ASSERT(tv_dst <= thr->valstack_end);
  20127. thr->valstack_top = tv_dst;
  20128. return (duk_idx_t) h_arr->length;
  20129. }
  20130. skip_fast:
  20131. #endif /* DUK_USE_ARRAY_FASTPATH */
  20132. /* Slow path: actual lookups. The initial 'length' lookup
  20133. * decides the output length, regardless of side effects that
  20134. * may resize or change the argArray while we read the
  20135. * indices.
  20136. */
  20137. idx = duk_normalize_index(thr, idx);
  20138. duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH);
  20139. len = duk_to_uint32(thr, -1); /* ToUint32() coercion required */
  20140. if (DUK_UNLIKELY(len >= 0x80000000UL)) {
  20141. goto fail_over_2g;
  20142. }
  20143. duk_pop_unsafe(thr);
  20144. DUK_DDD(DUK_DDDPRINT("slow path for %ld elements", (long) len));
  20145. duk_require_stack(thr, (duk_idx_t) len);
  20146. for (i = 0; i < len; i++) {
  20147. duk_get_prop_index(thr, idx, (duk_uarridx_t) i);
  20148. }
  20149. return (duk_idx_t) len;
  20150. } else if (DUK_TVAL_IS_UNDEFINED(tv) || DUK_TVAL_IS_NULL(tv)) {
  20151. return 0;
  20152. }
  20153. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  20154. return 0;
  20155. fail_over_2g:
  20156. DUK_ERROR_RANGE_INVALID_LENGTH(thr);
  20157. return 0;
  20158. }
  20159. /*
  20160. * Error throwing
  20161. */
  20162. DUK_EXTERNAL void duk_throw_raw(duk_hthread *thr) {
  20163. duk_tval *tv_val;
  20164. DUK_ASSERT_API_ENTRY(thr);
  20165. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  20166. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  20167. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  20168. if (DUK_UNLIKELY(thr->valstack_top == thr->valstack_bottom)) {
  20169. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  20170. }
  20171. /* Errors are augmented when they are created, not when they are
  20172. * thrown or re-thrown. The current error handler, however, runs
  20173. * just before an error is thrown.
  20174. */
  20175. /* Sync so that augmentation sees up-to-date activations, NULL
  20176. * thr->ptr_curr_pc so that it's not used if side effects occur
  20177. * in augmentation or longjmp handling.
  20178. */
  20179. duk_hthread_sync_and_null_currpc(thr);
  20180. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  20181. DUK_DDD(DUK_DDDPRINT("THROW ERROR (API): %!dT (before throw augment)", (duk_tval *) duk_get_tval(thr, -1)));
  20182. duk_err_augment_error_throw(thr);
  20183. #endif
  20184. DUK_DDD(DUK_DDDPRINT("THROW ERROR (API): %!dT (after throw augment)", (duk_tval *) duk_get_tval(thr, -1)));
  20185. tv_val = DUK_GET_TVAL_NEGIDX(thr, -1);
  20186. duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, tv_val);
  20187. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  20188. duk_err_check_debugger_integration(thr);
  20189. #endif
  20190. /* thr->heap->lj.jmpbuf_ptr is checked by duk_err_longjmp() so we don't
  20191. * need to check that here. If the value is NULL, a fatal error occurs
  20192. * because we can't return.
  20193. */
  20194. duk_err_longjmp(thr);
  20195. DUK_UNREACHABLE();
  20196. }
  20197. DUK_EXTERNAL void duk_fatal_raw(duk_hthread *thr, const char *err_msg) {
  20198. DUK_ASSERT_API_ENTRY(thr);
  20199. DUK_ASSERT(thr != NULL);
  20200. DUK_ASSERT(thr->heap != NULL);
  20201. DUK_ASSERT(thr->heap->fatal_func != NULL);
  20202. DUK_D(DUK_DPRINT("fatal error occurred: %s", err_msg ? err_msg : "NULL"));
  20203. /* fatal_func should be noreturn, but noreturn declarations on function
  20204. * pointers has a very spotty support apparently so it's not currently
  20205. * done.
  20206. */
  20207. thr->heap->fatal_func(thr->heap->heap_udata, err_msg);
  20208. /* If the fatal handler returns, all bets are off. It'd be nice to
  20209. * print something here but since we don't want to depend on stdio,
  20210. * there's no way to do so portably.
  20211. */
  20212. DUK_D(DUK_DPRINT("fatal error handler returned, all bets are off!"));
  20213. for (;;) {
  20214. /* loop forever, don't return (function marked noreturn) */
  20215. }
  20216. }
  20217. DUK_EXTERNAL void duk_error_va_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap) {
  20218. DUK_ASSERT_API_ENTRY(thr);
  20219. duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap);
  20220. (void) duk_throw(thr);
  20221. }
  20222. DUK_EXTERNAL void duk_error_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...) {
  20223. va_list ap;
  20224. DUK_ASSERT_API_ENTRY(thr);
  20225. va_start(ap, fmt);
  20226. duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap);
  20227. va_end(ap);
  20228. (void) duk_throw(thr);
  20229. }
  20230. #if !defined(DUK_USE_VARIADIC_MACROS)
  20231. DUK_NORETURN(DUK_LOCAL_DECL void duk__throw_error_from_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, va_list ap));
  20232. DUK_LOCAL void duk__throw_error_from_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, va_list ap) {
  20233. const char *filename;
  20234. duk_int_t line;
  20235. DUK_ASSERT_CTX_VALID(thr);
  20236. filename = duk_api_global_filename;
  20237. line = duk_api_global_line;
  20238. duk_api_global_filename = NULL;
  20239. duk_api_global_line = 0;
  20240. duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap);
  20241. (void) duk_throw(thr);
  20242. }
  20243. #define DUK__ERROR_STASH_SHARED(code) do { \
  20244. va_list ap; \
  20245. va_start(ap, fmt); \
  20246. duk__throw_error_from_stash(thr, (code), fmt, ap); \
  20247. va_end(ap); \
  20248. /* Never reached; if return 0 here, gcc/clang will complain. */ \
  20249. } while (0)
  20250. DUK_EXTERNAL duk_ret_t duk_error_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, ...) {
  20251. DUK_ASSERT_API_ENTRY(thr);
  20252. DUK__ERROR_STASH_SHARED(err_code);
  20253. }
  20254. DUK_EXTERNAL duk_ret_t duk_generic_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20255. DUK_ASSERT_API_ENTRY(thr);
  20256. DUK__ERROR_STASH_SHARED(DUK_ERR_ERROR);
  20257. }
  20258. DUK_EXTERNAL duk_ret_t duk_eval_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20259. DUK_ASSERT_API_ENTRY(thr);
  20260. DUK__ERROR_STASH_SHARED(DUK_ERR_EVAL_ERROR);
  20261. }
  20262. DUK_EXTERNAL duk_ret_t duk_range_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20263. DUK_ASSERT_API_ENTRY(thr);
  20264. DUK__ERROR_STASH_SHARED(DUK_ERR_RANGE_ERROR);
  20265. }
  20266. DUK_EXTERNAL duk_ret_t duk_reference_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20267. DUK_ASSERT_API_ENTRY(thr);
  20268. DUK__ERROR_STASH_SHARED(DUK_ERR_REFERENCE_ERROR);
  20269. }
  20270. DUK_EXTERNAL duk_ret_t duk_syntax_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20271. DUK_ASSERT_API_ENTRY(thr);
  20272. DUK__ERROR_STASH_SHARED(DUK_ERR_SYNTAX_ERROR);
  20273. }
  20274. DUK_EXTERNAL duk_ret_t duk_type_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20275. DUK_ASSERT_API_ENTRY(thr);
  20276. DUK__ERROR_STASH_SHARED(DUK_ERR_TYPE_ERROR);
  20277. }
  20278. DUK_EXTERNAL duk_ret_t duk_uri_error_stash(duk_hthread *thr, const char *fmt, ...) {
  20279. DUK_ASSERT_API_ENTRY(thr);
  20280. DUK__ERROR_STASH_SHARED(DUK_ERR_URI_ERROR);
  20281. }
  20282. #endif /* DUK_USE_VARIADIC_MACROS */
  20283. /*
  20284. * Comparison
  20285. */
  20286. DUK_EXTERNAL duk_bool_t duk_equals(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) {
  20287. duk_tval *tv1, *tv2;
  20288. DUK_ASSERT_API_ENTRY(thr);
  20289. tv1 = duk_get_tval(thr, idx1);
  20290. tv2 = duk_get_tval(thr, idx2);
  20291. if ((tv1 == NULL) || (tv2 == NULL)) {
  20292. return 0;
  20293. }
  20294. /* Coercion may be needed, the helper handles that by pushing the
  20295. * tagged values to the stack.
  20296. */
  20297. return duk_js_equals(thr, tv1, tv2);
  20298. }
  20299. DUK_EXTERNAL duk_bool_t duk_strict_equals(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) {
  20300. duk_tval *tv1, *tv2;
  20301. DUK_ASSERT_API_ENTRY(thr);
  20302. tv1 = duk_get_tval(thr, idx1);
  20303. tv2 = duk_get_tval(thr, idx2);
  20304. if ((tv1 == NULL) || (tv2 == NULL)) {
  20305. return 0;
  20306. }
  20307. /* No coercions or other side effects, so safe */
  20308. return duk_js_strict_equals(tv1, tv2);
  20309. }
  20310. DUK_EXTERNAL duk_bool_t duk_samevalue(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) {
  20311. duk_tval *tv1, *tv2;
  20312. DUK_ASSERT_API_ENTRY(thr);
  20313. tv1 = duk_get_tval(thr, idx1);
  20314. tv2 = duk_get_tval(thr, idx2);
  20315. if ((tv1 == NULL) || (tv2 == NULL)) {
  20316. return 0;
  20317. }
  20318. /* No coercions or other side effects, so safe */
  20319. return duk_js_samevalue(tv1, tv2);
  20320. }
  20321. /*
  20322. * instanceof
  20323. */
  20324. DUK_EXTERNAL duk_bool_t duk_instanceof(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) {
  20325. duk_tval *tv1, *tv2;
  20326. DUK_ASSERT_API_ENTRY(thr);
  20327. /* Index validation is strict, which differs from duk_equals().
  20328. * The strict behavior mimics how instanceof itself works, e.g.
  20329. * it is a TypeError if rval is not a -callable- object. It would
  20330. * be somewhat inconsistent if rval would be allowed to be
  20331. * non-existent without a TypeError.
  20332. */
  20333. tv1 = duk_require_tval(thr, idx1);
  20334. DUK_ASSERT(tv1 != NULL);
  20335. tv2 = duk_require_tval(thr, idx2);
  20336. DUK_ASSERT(tv2 != NULL);
  20337. return duk_js_instanceof(thr, tv1, tv2);
  20338. }
  20339. /*
  20340. * Lightfunc
  20341. */
  20342. DUK_INTERNAL void duk_push_lightfunc_name_raw(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags) {
  20343. /* Lightfunc name, includes Duktape/C native function pointer, which
  20344. * can often be used to locate the function from a symbol table.
  20345. * The name also includes the 16-bit duk_tval flags field because it
  20346. * includes the magic value. Because a single native function often
  20347. * provides different functionality depending on the magic value, it
  20348. * seems reasonably to include it in the name.
  20349. *
  20350. * On the other hand, a complicated name increases string table
  20351. * pressure in low memory environments (but only when function name
  20352. * is accessed).
  20353. */
  20354. DUK_ASSERT_API_ENTRY(thr);
  20355. duk_push_sprintf(thr, "light_");
  20356. duk_push_string_funcptr(thr, (duk_uint8_t *) &func, sizeof(func));
  20357. duk_push_sprintf(thr, "_%04x", (unsigned int) lf_flags);
  20358. duk_concat(thr, 3);
  20359. }
  20360. DUK_INTERNAL void duk_push_lightfunc_name(duk_hthread *thr, duk_tval *tv) {
  20361. duk_c_function func;
  20362. duk_small_uint_t lf_flags;
  20363. DUK_ASSERT_API_ENTRY(thr);
  20364. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv));
  20365. DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags);
  20366. duk_push_lightfunc_name_raw(thr, func, lf_flags);
  20367. }
  20368. DUK_INTERNAL void duk_push_lightfunc_tostring(duk_hthread *thr, duk_tval *tv) {
  20369. duk_c_function func;
  20370. duk_small_uint_t lf_flags;
  20371. DUK_ASSERT_API_ENTRY(thr);
  20372. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv));
  20373. DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags); /* read before 'tv' potentially invalidated */
  20374. duk_push_string(thr, "function ");
  20375. duk_push_lightfunc_name_raw(thr, func, lf_flags);
  20376. duk_push_string(thr, "() { [lightfunc code] }");
  20377. duk_concat(thr, 3);
  20378. }
  20379. /*
  20380. * Function pointers
  20381. *
  20382. * Printing function pointers is non-portable, so we do that by hex printing
  20383. * bytes from memory.
  20384. */
  20385. DUK_INTERNAL void duk_push_string_funcptr(duk_hthread *thr, duk_uint8_t *ptr, duk_size_t sz) {
  20386. duk_uint8_t buf[32 * 2];
  20387. duk_uint8_t *p, *q;
  20388. duk_small_uint_t i;
  20389. duk_small_uint_t t;
  20390. DUK_ASSERT_API_ENTRY(thr);
  20391. DUK_ASSERT(sz <= 32); /* sanity limit for function pointer size */
  20392. p = buf;
  20393. #if defined(DUK_USE_INTEGER_LE)
  20394. q = ptr + sz;
  20395. #else
  20396. q = ptr;
  20397. #endif
  20398. for (i = 0; i < sz; i++) {
  20399. #if defined(DUK_USE_INTEGER_LE)
  20400. t = *(--q);
  20401. #else
  20402. t = *(q++);
  20403. #endif
  20404. *p++ = duk_lc_digits[t >> 4];
  20405. *p++ = duk_lc_digits[t & 0x0f];
  20406. }
  20407. duk_push_lstring(thr, (const char *) buf, sz * 2);
  20408. }
  20409. /*
  20410. * Push readable string summarizing duk_tval. The operation is side effect
  20411. * free and will only throw from internal errors (e.g. out of memory).
  20412. * This is used by e.g. property access code to summarize a key/base safely,
  20413. * and is not intended to be fast (but small and safe).
  20414. */
  20415. /* String limits for summary strings. */
  20416. #define DUK__READABLE_SUMMARY_MAXCHARS 96 /* maximum supported by helper */
  20417. #define DUK__READABLE_STRING_MAXCHARS 32 /* for strings/symbols */
  20418. #define DUK__READABLE_ERRMSG_MAXCHARS 96 /* for error messages */
  20419. /* String sanitizer which escapes ASCII control characters and a few other
  20420. * ASCII characters, passes Unicode as is, and replaces invalid UTF-8 with
  20421. * question marks. No errors are thrown for any input string, except in out
  20422. * of memory situations.
  20423. */
  20424. DUK_LOCAL void duk__push_hstring_readable_unicode(duk_hthread *thr, duk_hstring *h_input, duk_small_uint_t maxchars) {
  20425. const duk_uint8_t *p, *p_start, *p_end;
  20426. duk_uint8_t buf[DUK_UNICODE_MAX_XUTF8_LENGTH * DUK__READABLE_SUMMARY_MAXCHARS +
  20427. 2 /*quotes*/ + 3 /*periods*/];
  20428. duk_uint8_t *q;
  20429. duk_ucodepoint_t cp;
  20430. duk_small_uint_t nchars;
  20431. DUK_ASSERT_CTX_VALID(thr);
  20432. DUK_ASSERT(h_input != NULL);
  20433. DUK_ASSERT(maxchars <= DUK__READABLE_SUMMARY_MAXCHARS);
  20434. p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  20435. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  20436. p = p_start;
  20437. q = buf;
  20438. nchars = 0;
  20439. *q++ = (duk_uint8_t) DUK_ASC_SINGLEQUOTE;
  20440. for (;;) {
  20441. if (p >= p_end) {
  20442. break;
  20443. }
  20444. if (nchars == maxchars) {
  20445. *q++ = (duk_uint8_t) DUK_ASC_PERIOD;
  20446. *q++ = (duk_uint8_t) DUK_ASC_PERIOD;
  20447. *q++ = (duk_uint8_t) DUK_ASC_PERIOD;
  20448. break;
  20449. }
  20450. if (duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp)) {
  20451. if (cp < 0x20 || cp == 0x7f || cp == DUK_ASC_SINGLEQUOTE || cp == DUK_ASC_BACKSLASH) {
  20452. DUK_ASSERT(DUK_UNICODE_MAX_XUTF8_LENGTH >= 4); /* estimate is valid */
  20453. DUK_ASSERT((cp >> 4) <= 0x0f);
  20454. *q++ = (duk_uint8_t) DUK_ASC_BACKSLASH;
  20455. *q++ = (duk_uint8_t) DUK_ASC_LC_X;
  20456. *q++ = (duk_uint8_t) duk_lc_digits[cp >> 4];
  20457. *q++ = (duk_uint8_t) duk_lc_digits[cp & 0x0f];
  20458. } else {
  20459. q += duk_unicode_encode_xutf8(cp, q);
  20460. }
  20461. } else {
  20462. p++; /* advance manually */
  20463. *q++ = (duk_uint8_t) DUK_ASC_QUESTION;
  20464. }
  20465. nchars++;
  20466. }
  20467. *q++ = (duk_uint8_t) DUK_ASC_SINGLEQUOTE;
  20468. duk_push_lstring(thr, (const char *) buf, (duk_size_t) (q - buf));
  20469. }
  20470. DUK_LOCAL const char *duk__push_string_tval_readable(duk_hthread *thr, duk_tval *tv, duk_bool_t error_aware) {
  20471. DUK_ASSERT_CTX_VALID(thr);
  20472. /* 'tv' may be NULL */
  20473. if (tv == NULL) {
  20474. duk_push_string(thr, "none");
  20475. } else {
  20476. switch (DUK_TVAL_GET_TAG(tv)) {
  20477. case DUK_TAG_STRING: {
  20478. duk_hstring *h = DUK_TVAL_GET_STRING(tv);
  20479. if (DUK_HSTRING_HAS_SYMBOL(h)) {
  20480. /* XXX: string summary produces question marks
  20481. * so this is not very ideal.
  20482. */
  20483. duk_push_string(thr, "[Symbol ");
  20484. duk_push_string(thr, duk__get_symbol_type_string(h));
  20485. duk_push_string(thr, " ");
  20486. duk__push_hstring_readable_unicode(thr, h, DUK__READABLE_STRING_MAXCHARS);
  20487. duk_push_string(thr, "]");
  20488. duk_concat(thr, 5);
  20489. break;
  20490. }
  20491. duk__push_hstring_readable_unicode(thr, h, DUK__READABLE_STRING_MAXCHARS);
  20492. break;
  20493. }
  20494. case DUK_TAG_OBJECT: {
  20495. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  20496. DUK_ASSERT(h != NULL);
  20497. if (error_aware &&
  20498. duk_hobject_prototype_chain_contains(thr, h, thr->builtins[DUK_BIDX_ERROR_PROTOTYPE], 1 /*ignore_loop*/)) {
  20499. /* Get error message in a side effect free way if
  20500. * possible; if not, summarize as a generic object.
  20501. * Error message currently gets quoted.
  20502. */
  20503. /* XXX: better internal getprop call; get without side effects
  20504. * but traverse inheritance chain.
  20505. */
  20506. duk_tval *tv_msg;
  20507. tv_msg = duk_hobject_find_existing_entry_tval_ptr(thr->heap, h, DUK_HTHREAD_STRING_MESSAGE(thr));
  20508. if (tv_msg != NULL && DUK_TVAL_IS_STRING(tv_msg)) {
  20509. /* It's critical to avoid recursion so
  20510. * only summarize a string .message.
  20511. */
  20512. duk__push_hstring_readable_unicode(thr, DUK_TVAL_GET_STRING(tv_msg), DUK__READABLE_ERRMSG_MAXCHARS);
  20513. break;
  20514. }
  20515. }
  20516. duk_push_class_string_tval(thr, tv);
  20517. break;
  20518. }
  20519. case DUK_TAG_BUFFER: {
  20520. /* While plain buffers mimic Uint8Arrays, they summarize differently.
  20521. * This is useful so that the summarized string accurately reflects the
  20522. * internal type which may matter for figuring out bugs etc.
  20523. */
  20524. /* XXX: Hex encoded, length limited buffer summary here? */
  20525. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv);
  20526. DUK_ASSERT(h != NULL);
  20527. duk_push_sprintf(thr, "[buffer:%ld]", (long) DUK_HBUFFER_GET_SIZE(h));
  20528. break;
  20529. }
  20530. case DUK_TAG_POINTER: {
  20531. /* Surround with parentheses like in JX, ensures NULL pointer
  20532. * is distinguishable from null value ("(null)" vs "null").
  20533. */
  20534. duk_push_tval(thr, tv);
  20535. duk_push_sprintf(thr, "(%s)", duk_to_string(thr, -1));
  20536. duk_remove_m2(thr);
  20537. break;
  20538. }
  20539. default: {
  20540. duk_push_tval(thr, tv);
  20541. break;
  20542. }
  20543. }
  20544. }
  20545. return duk_to_string(thr, -1);
  20546. }
  20547. DUK_INTERNAL const char *duk_push_string_tval_readable(duk_hthread *thr, duk_tval *tv) {
  20548. DUK_ASSERT_API_ENTRY(thr);
  20549. return duk__push_string_tval_readable(thr, tv, 0 /*error_aware*/);
  20550. }
  20551. DUK_INTERNAL const char *duk_push_string_readable(duk_hthread *thr, duk_idx_t idx) {
  20552. DUK_ASSERT_API_ENTRY(thr);
  20553. return duk_push_string_tval_readable(thr, duk_get_tval(thr, idx));
  20554. }
  20555. DUK_INTERNAL const char *duk_push_string_tval_readable_error(duk_hthread *thr, duk_tval *tv) {
  20556. DUK_ASSERT_API_ENTRY(thr);
  20557. return duk__push_string_tval_readable(thr, tv, 1 /*error_aware*/);
  20558. }
  20559. DUK_INTERNAL void duk_push_symbol_descriptive_string(duk_hthread *thr, duk_hstring *h) {
  20560. const duk_uint8_t *p;
  20561. const duk_uint8_t *p_end;
  20562. const duk_uint8_t *q;
  20563. DUK_ASSERT_API_ENTRY(thr);
  20564. /* .toString() */
  20565. duk_push_string(thr, "Symbol(");
  20566. p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  20567. p_end = p + DUK_HSTRING_GET_BYTELEN(h);
  20568. DUK_ASSERT(p[0] == 0xff || (p[0] & 0xc0) == 0x80);
  20569. p++;
  20570. for (q = p; q < p_end; q++) {
  20571. if (*q == 0xffU) {
  20572. /* Terminate either at end-of-string (but NUL MUST
  20573. * be accepted without terminating description) or
  20574. * 0xFF, which is used to mark start of unique trailer
  20575. * (and cannot occur in CESU-8 / extended UTF-8).
  20576. */
  20577. break;
  20578. }
  20579. }
  20580. duk_push_lstring(thr, (const char *) p, (duk_size_t) (q - p));
  20581. duk_push_string(thr, ")");
  20582. duk_concat(thr, 3);
  20583. }
  20584. /*
  20585. * Functions
  20586. */
  20587. #if 0 /* not used yet */
  20588. DUK_INTERNAL void duk_push_hnatfunc_name(duk_hthread *thr, duk_hnatfunc *h) {
  20589. duk_c_function func;
  20590. DUK_ASSERT_API_ENTRY(thr);
  20591. DUK_ASSERT(h != NULL);
  20592. DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h));
  20593. duk_push_sprintf(thr, "native_");
  20594. func = h->func;
  20595. duk_push_string_funcptr(thr, (duk_uint8_t *) &func, sizeof(func));
  20596. duk_push_sprintf(thr, "_%04x_%04x",
  20597. (unsigned int) (duk_uint16_t) h->nargs,
  20598. (unsigned int) (duk_uint16_t) h->magic);
  20599. duk_concat(thr, 3);
  20600. }
  20601. #endif
  20602. /*
  20603. * duk_tval slice copy
  20604. */
  20605. DUK_INTERNAL void duk_copy_tvals_incref(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_size_t count) {
  20606. duk_tval *tv;
  20607. DUK_ASSERT_API_ENTRY(thr);
  20608. DUK_UNREF(thr);
  20609. DUK_ASSERT(count * sizeof(duk_tval) >= count); /* no wrap */
  20610. DUK_MEMCPY((void *) tv_dst, (const void *) tv_src, count * sizeof(duk_tval));
  20611. tv = tv_dst;
  20612. while (count-- > 0) {
  20613. DUK_TVAL_INCREF(thr, tv);
  20614. tv++;
  20615. }
  20616. }
  20617. /* automatic undefs */
  20618. #undef DUK__ASSERT_SPACE
  20619. #undef DUK__CHECK_SPACE
  20620. #undef DUK__ERROR_STASH_SHARED
  20621. #undef DUK__PACK_ARGS
  20622. #undef DUK__READABLE_ERRMSG_MAXCHARS
  20623. #undef DUK__READABLE_STRING_MAXCHARS
  20624. #undef DUK__READABLE_SUMMARY_MAXCHARS
  20625. #line 1 "duk_api_string.c"
  20626. /*
  20627. * String manipulation
  20628. */
  20629. /* #include duk_internal.h -> already included */
  20630. DUK_LOCAL void duk__concat_and_join_helper(duk_hthread *thr, duk_idx_t count_in, duk_bool_t is_join) {
  20631. duk_uint_t count;
  20632. duk_uint_t i;
  20633. duk_size_t idx;
  20634. duk_size_t len;
  20635. duk_hstring *h;
  20636. duk_uint8_t *buf;
  20637. DUK_ASSERT_CTX_VALID(thr);
  20638. if (DUK_UNLIKELY(count_in <= 0)) {
  20639. if (count_in < 0) {
  20640. DUK_ERROR_RANGE_INVALID_COUNT(thr);
  20641. return;
  20642. }
  20643. DUK_ASSERT(count_in == 0);
  20644. duk_push_hstring_empty(thr);
  20645. return;
  20646. }
  20647. count = (duk_uint_t) count_in;
  20648. if (is_join) {
  20649. duk_size_t t1, t2, limit;
  20650. h = duk_to_hstring(thr, -((duk_idx_t) count) - 1);
  20651. DUK_ASSERT(h != NULL);
  20652. /* A bit tricky overflow test, see doc/code-issues.rst. */
  20653. t1 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h);
  20654. t2 = (duk_size_t) (count - 1);
  20655. limit = (duk_size_t) DUK_HSTRING_MAX_BYTELEN;
  20656. if (DUK_UNLIKELY(t2 != 0 && t1 > limit / t2)) {
  20657. /* Combined size of separators already overflows. */
  20658. goto error_overflow;
  20659. }
  20660. len = (duk_size_t) (t1 * t2);
  20661. } else {
  20662. len = (duk_size_t) 0;
  20663. }
  20664. for (i = count; i >= 1; i--) {
  20665. duk_size_t new_len;
  20666. h = duk_to_hstring(thr, -((duk_idx_t) i));
  20667. new_len = len + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h);
  20668. /* Impose a string maximum length, need to handle overflow
  20669. * correctly.
  20670. */
  20671. if (new_len < len || /* wrapped */
  20672. new_len > (duk_size_t) DUK_HSTRING_MAX_BYTELEN) {
  20673. goto error_overflow;
  20674. }
  20675. len = new_len;
  20676. }
  20677. DUK_DDD(DUK_DDDPRINT("join/concat %lu strings, total length %lu bytes",
  20678. (unsigned long) count, (unsigned long) len));
  20679. /* Use stack allocated buffer to ensure reachability in errors
  20680. * (e.g. intern error).
  20681. */
  20682. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len);
  20683. DUK_ASSERT(buf != NULL);
  20684. /* [ ... (sep) str1 str2 ... strN buf ] */
  20685. idx = 0;
  20686. for (i = count; i >= 1; i--) {
  20687. if (is_join && i != count) {
  20688. h = duk_require_hstring(thr, -((duk_idx_t) count) - 2); /* extra -1 for buffer */
  20689. DUK_MEMCPY(buf + idx, DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  20690. idx += DUK_HSTRING_GET_BYTELEN(h);
  20691. }
  20692. h = duk_require_hstring(thr, -((duk_idx_t) i) - 1); /* extra -1 for buffer */
  20693. DUK_MEMCPY(buf + idx, DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  20694. idx += DUK_HSTRING_GET_BYTELEN(h);
  20695. }
  20696. DUK_ASSERT(idx == len);
  20697. /* [ ... (sep) str1 str2 ... strN buf ] */
  20698. /* Get rid of the strings early to minimize memory use before intern. */
  20699. if (is_join) {
  20700. duk_replace(thr, -((duk_idx_t) count) - 2); /* overwrite sep */
  20701. duk_pop_n(thr, (duk_idx_t) count);
  20702. } else {
  20703. duk_replace(thr, -((duk_idx_t) count) - 1); /* overwrite str1 */
  20704. duk_pop_n(thr, (duk_idx_t) (count - 1));
  20705. }
  20706. /* [ ... buf ] */
  20707. (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */
  20708. /* [ ... res ] */
  20709. return;
  20710. error_overflow:
  20711. DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG);
  20712. }
  20713. DUK_EXTERNAL void duk_concat(duk_hthread *thr, duk_idx_t count) {
  20714. DUK_ASSERT_API_ENTRY(thr);
  20715. duk__concat_and_join_helper(thr, count, 0 /*is_join*/);
  20716. }
  20717. #if defined(DUK_USE_PREFER_SIZE)
  20718. DUK_INTERNAL void duk_concat_2(duk_hthread *thr) {
  20719. DUK_ASSERT_API_ENTRY(thr);
  20720. duk_concat(thr, 2);
  20721. }
  20722. #else /* DUK_USE_PREFER_SIZE */
  20723. DUK_INTERNAL void duk_concat_2(duk_hthread *thr) {
  20724. duk_hstring *h1;
  20725. duk_hstring *h2;
  20726. duk_uint8_t *buf;
  20727. duk_size_t len1;
  20728. duk_size_t len2;
  20729. duk_size_t len;
  20730. DUK_ASSERT_API_ENTRY(thr);
  20731. DUK_ASSERT(duk_get_top(thr) >= 2); /* Trusted caller. */
  20732. h1 = duk_to_hstring(thr, -2);
  20733. h2 = duk_to_hstring(thr, -1);
  20734. len1 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1);
  20735. len2 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2);
  20736. len = len1 + len2;
  20737. if (DUK_UNLIKELY(len < len1 || /* wrapped */
  20738. len > (duk_size_t) DUK_HSTRING_MAX_BYTELEN)) {
  20739. goto error_overflow;
  20740. }
  20741. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len);
  20742. DUK_ASSERT(buf != NULL);
  20743. DUK_MEMCPY((void *) buf, (const void *) DUK_HSTRING_GET_DATA(h1), (size_t) len1);
  20744. DUK_MEMCPY((void *) (buf + len1), (const void *) DUK_HSTRING_GET_DATA(h2), (size_t) len2);
  20745. (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */
  20746. /* [ ... str1 str2 buf ] */
  20747. duk_replace(thr, -3);
  20748. duk_pop_unsafe(thr);
  20749. return;
  20750. error_overflow:
  20751. DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG);
  20752. }
  20753. #endif /* DUK_USE_PREFER_SIZE */
  20754. DUK_EXTERNAL void duk_join(duk_hthread *thr, duk_idx_t count) {
  20755. DUK_ASSERT_API_ENTRY(thr);
  20756. duk__concat_and_join_helper(thr, count, 1 /*is_join*/);
  20757. }
  20758. /* XXX: could map/decode be unified with duk_unicode_support.c code?
  20759. * Case conversion needs also the character surroundings though.
  20760. */
  20761. DUK_EXTERNAL void duk_decode_string(duk_hthread *thr, duk_idx_t idx, duk_decode_char_function callback, void *udata) {
  20762. duk_hstring *h_input;
  20763. const duk_uint8_t *p, *p_start, *p_end;
  20764. duk_codepoint_t cp;
  20765. DUK_ASSERT_API_ENTRY(thr);
  20766. h_input = duk_require_hstring(thr, idx); /* Accept symbols. */
  20767. DUK_ASSERT(h_input != NULL);
  20768. p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  20769. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  20770. p = p_start;
  20771. for (;;) {
  20772. if (p >= p_end) {
  20773. break;
  20774. }
  20775. cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end);
  20776. callback(udata, cp);
  20777. }
  20778. }
  20779. DUK_EXTERNAL void duk_map_string(duk_hthread *thr, duk_idx_t idx, duk_map_char_function callback, void *udata) {
  20780. duk_hstring *h_input;
  20781. duk_bufwriter_ctx bw_alloc;
  20782. duk_bufwriter_ctx *bw;
  20783. const duk_uint8_t *p, *p_start, *p_end;
  20784. duk_codepoint_t cp;
  20785. DUK_ASSERT_API_ENTRY(thr);
  20786. idx = duk_normalize_index(thr, idx);
  20787. h_input = duk_require_hstring(thr, idx); /* Accept symbols. */
  20788. DUK_ASSERT(h_input != NULL);
  20789. bw = &bw_alloc;
  20790. DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input)); /* Reasonable output estimate. */
  20791. p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  20792. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  20793. p = p_start;
  20794. for (;;) {
  20795. /* XXX: could write output in chunks with fewer ensure calls,
  20796. * but relative benefit would be small here.
  20797. */
  20798. if (p >= p_end) {
  20799. break;
  20800. }
  20801. cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end);
  20802. cp = callback(udata, cp);
  20803. DUK_BW_WRITE_ENSURE_XUTF8(thr, bw, cp);
  20804. }
  20805. DUK_BW_COMPACT(thr, bw);
  20806. (void) duk_buffer_to_string(thr, -1); /* Safe, extended UTF-8 encoded. */
  20807. duk_replace(thr, idx);
  20808. }
  20809. DUK_EXTERNAL void duk_substring(duk_hthread *thr, duk_idx_t idx, duk_size_t start_offset, duk_size_t end_offset) {
  20810. duk_hstring *h;
  20811. duk_hstring *res;
  20812. duk_size_t start_byte_offset;
  20813. duk_size_t end_byte_offset;
  20814. duk_size_t charlen;
  20815. DUK_ASSERT_API_ENTRY(thr);
  20816. idx = duk_require_normalize_index(thr, idx); /* Accept symbols. */
  20817. h = duk_require_hstring(thr, idx);
  20818. DUK_ASSERT(h != NULL);
  20819. charlen = DUK_HSTRING_GET_CHARLEN(h);
  20820. if (end_offset >= charlen) {
  20821. end_offset = charlen;
  20822. }
  20823. if (start_offset > end_offset) {
  20824. start_offset = end_offset;
  20825. }
  20826. DUK_ASSERT_DISABLE(start_offset >= 0);
  20827. DUK_ASSERT(start_offset <= end_offset && start_offset <= DUK_HSTRING_GET_CHARLEN(h));
  20828. DUK_ASSERT_DISABLE(end_offset >= 0);
  20829. DUK_ASSERT(end_offset >= start_offset && end_offset <= DUK_HSTRING_GET_CHARLEN(h));
  20830. /* Guaranteed by string limits. */
  20831. DUK_ASSERT(start_offset <= DUK_UINT32_MAX);
  20832. DUK_ASSERT(end_offset <= DUK_UINT32_MAX);
  20833. start_byte_offset = (duk_size_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) start_offset);
  20834. end_byte_offset = (duk_size_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) end_offset);
  20835. DUK_ASSERT(end_byte_offset >= start_byte_offset);
  20836. DUK_ASSERT(end_byte_offset - start_byte_offset <= DUK_UINT32_MAX); /* Guaranteed by string limits. */
  20837. /* No size check is necessary. */
  20838. res = duk_heap_strtable_intern_checked(thr,
  20839. DUK_HSTRING_GET_DATA(h) + start_byte_offset,
  20840. (duk_uint32_t) (end_byte_offset - start_byte_offset));
  20841. duk_push_hstring(thr, res);
  20842. duk_replace(thr, idx);
  20843. }
  20844. /* XXX: this is quite clunky. Add Unicode helpers to scan backwards and
  20845. * forwards with a callback to process codepoints?
  20846. */
  20847. DUK_EXTERNAL void duk_trim(duk_hthread *thr, duk_idx_t idx) {
  20848. duk_hstring *h;
  20849. const duk_uint8_t *p, *p_start, *p_end, *p_tmp1, *p_tmp2; /* pointers for scanning */
  20850. const duk_uint8_t *q_start, *q_end; /* start (incl) and end (excl) of trimmed part */
  20851. duk_codepoint_t cp;
  20852. DUK_ASSERT_API_ENTRY(thr);
  20853. idx = duk_require_normalize_index(thr, idx); /* Accept symbols. */
  20854. h = duk_require_hstring(thr, idx);
  20855. DUK_ASSERT(h != NULL);
  20856. p_start = DUK_HSTRING_GET_DATA(h);
  20857. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h);
  20858. p = p_start;
  20859. while (p < p_end) {
  20860. p_tmp1 = p;
  20861. cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p_tmp1, p_start, p_end);
  20862. if (!(duk_unicode_is_whitespace(cp) || duk_unicode_is_line_terminator(cp))) {
  20863. break;
  20864. }
  20865. p = p_tmp1;
  20866. }
  20867. q_start = p;
  20868. if (p == p_end) {
  20869. /* Entire string is whitespace. */
  20870. q_end = p;
  20871. goto scan_done;
  20872. }
  20873. p = p_end;
  20874. while (p > p_start) {
  20875. p_tmp1 = p;
  20876. while (p > p_start) {
  20877. p--;
  20878. if (((*p) & 0xc0) != 0x80) {
  20879. break;
  20880. }
  20881. }
  20882. p_tmp2 = p;
  20883. cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p_tmp2, p_start, p_end);
  20884. if (!(duk_unicode_is_whitespace(cp) || duk_unicode_is_line_terminator(cp))) {
  20885. p = p_tmp1;
  20886. break;
  20887. }
  20888. }
  20889. q_end = p;
  20890. scan_done:
  20891. /* This may happen when forward and backward scanning disagree
  20892. * (possible for non-extended-UTF-8 strings).
  20893. */
  20894. if (q_end < q_start) {
  20895. q_end = q_start;
  20896. }
  20897. DUK_ASSERT(q_start >= p_start && q_start <= p_end);
  20898. DUK_ASSERT(q_end >= p_start && q_end <= p_end);
  20899. DUK_ASSERT(q_end >= q_start);
  20900. DUK_DDD(DUK_DDDPRINT("trim: p_start=%p, p_end=%p, q_start=%p, q_end=%p",
  20901. (const void *) p_start, (const void *) p_end,
  20902. (const void *) q_start, (const void *) q_end));
  20903. if (q_start == p_start && q_end == p_end) {
  20904. DUK_DDD(DUK_DDDPRINT("nothing was trimmed: avoid interning (hashing etc)"));
  20905. return;
  20906. }
  20907. duk_push_lstring(thr, (const char *) q_start, (duk_size_t) (q_end - q_start));
  20908. duk_replace(thr, idx);
  20909. }
  20910. DUK_EXTERNAL duk_codepoint_t duk_char_code_at(duk_hthread *thr, duk_idx_t idx, duk_size_t char_offset) {
  20911. duk_hstring *h;
  20912. duk_ucodepoint_t cp;
  20913. DUK_ASSERT_API_ENTRY(thr);
  20914. /* XXX: Share code with String.prototype.charCodeAt? Main difference
  20915. * is handling of clamped offsets.
  20916. */
  20917. h = duk_require_hstring(thr, idx); /* Accept symbols. */
  20918. DUK_ASSERT(h != NULL);
  20919. DUK_ASSERT_DISABLE(char_offset >= 0); /* Always true, arg is unsigned. */
  20920. if (char_offset >= DUK_HSTRING_GET_CHARLEN(h)) {
  20921. return 0;
  20922. }
  20923. DUK_ASSERT(char_offset <= DUK_UINT_MAX); /* Guaranteed by string limits. */
  20924. cp = duk_hstring_char_code_at_raw(thr, h, (duk_uint_t) char_offset, 0 /*surrogate_aware*/);
  20925. return (duk_codepoint_t) cp;
  20926. }
  20927. #line 1 "duk_api_time.c"
  20928. /*
  20929. * Date/time.
  20930. */
  20931. /* #include duk_internal.h -> already included */
  20932. DUK_INTERNAL duk_double_t duk_time_get_ecmascript_time(duk_hthread *thr) {
  20933. /* Ecmascript time, with millisecond fractions. Exposed via
  20934. * duk_get_now() for example.
  20935. */
  20936. DUK_UNREF(thr);
  20937. return (duk_double_t) DUK_USE_DATE_GET_NOW(thr);
  20938. }
  20939. DUK_INTERNAL duk_double_t duk_time_get_ecmascript_time_nofrac(duk_hthread *thr) {
  20940. /* Ecmascript time without millisecond fractions. Exposed via
  20941. * the Date built-in which doesn't allow fractions.
  20942. */
  20943. DUK_UNREF(thr);
  20944. return (duk_double_t) DUK_FLOOR(DUK_USE_DATE_GET_NOW(thr));
  20945. }
  20946. DUK_INTERNAL duk_double_t duk_time_get_monotonic_time(duk_hthread *thr) {
  20947. DUK_UNREF(thr);
  20948. #if defined(DUK_USE_GET_MONOTONIC_TIME)
  20949. return (duk_double_t) DUK_USE_GET_MONOTONIC_TIME(thr);
  20950. #else
  20951. return (duk_double_t) DUK_USE_DATE_GET_NOW(thr);
  20952. #endif
  20953. }
  20954. DUK_EXTERNAL duk_double_t duk_get_now(duk_hthread *thr) {
  20955. DUK_ASSERT_API_ENTRY(thr);
  20956. DUK_UNREF(thr);
  20957. /* This API intentionally allows millisecond fractions. */
  20958. return duk_time_get_ecmascript_time(thr);
  20959. }
  20960. #if 0 /* XXX: worth exposing? */
  20961. DUK_EXTERNAL duk_double_t duk_get_monotonic_time(duk_hthread *thr) {
  20962. DUK_ASSERT_API_ENTRY(thr);
  20963. DUK_UNREF(thr);
  20964. return duk_time_get_monotonic_time(thr);
  20965. }
  20966. #endif
  20967. DUK_EXTERNAL void duk_time_to_components(duk_hthread *thr, duk_double_t timeval, duk_time_components *comp) {
  20968. duk_int_t parts[DUK_DATE_IDX_NUM_PARTS];
  20969. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  20970. duk_uint_t flags;
  20971. DUK_ASSERT_API_ENTRY(thr);
  20972. DUK_ASSERT(comp != NULL); /* XXX: or check? */
  20973. DUK_UNREF(thr);
  20974. /* Convert as one-based, but change month to zero-based to match the
  20975. * Ecmascript Date built-in behavior 1:1.
  20976. */
  20977. flags = DUK_DATE_FLAG_ONEBASED | DUK_DATE_FLAG_NAN_TO_ZERO;
  20978. duk_bi_date_timeval_to_parts(timeval, parts, dparts, flags);
  20979. /* XXX: sub-millisecond accuracy for the API */
  20980. DUK_ASSERT(dparts[DUK_DATE_IDX_MONTH] >= 1.0 && dparts[DUK_DATE_IDX_MONTH] <= 12.0);
  20981. comp->year = dparts[DUK_DATE_IDX_YEAR];
  20982. comp->month = dparts[DUK_DATE_IDX_MONTH] - 1.0;
  20983. comp->day = dparts[DUK_DATE_IDX_DAY];
  20984. comp->hours = dparts[DUK_DATE_IDX_HOUR];
  20985. comp->minutes = dparts[DUK_DATE_IDX_MINUTE];
  20986. comp->seconds = dparts[DUK_DATE_IDX_SECOND];
  20987. comp->milliseconds = dparts[DUK_DATE_IDX_MILLISECOND];
  20988. comp->weekday = dparts[DUK_DATE_IDX_WEEKDAY];
  20989. }
  20990. DUK_EXTERNAL duk_double_t duk_components_to_time(duk_hthread *thr, duk_time_components *comp) {
  20991. duk_double_t d;
  20992. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  20993. duk_uint_t flags;
  20994. DUK_ASSERT_API_ENTRY(thr);
  20995. DUK_ASSERT(comp != NULL); /* XXX: or check? */
  20996. DUK_UNREF(thr);
  20997. /* Match Date constructor behavior (with UTC time). Month is given
  20998. * as zero-based. Day-of-month is given as one-based so normalize
  20999. * it to zero-based as the internal conversion helpers expects all
  21000. * components to be zero-based.
  21001. */
  21002. flags = 0;
  21003. /* XXX: expensive conversion; use array format in API instead, or unify
  21004. * time provider and time API to use same struct?
  21005. */
  21006. dparts[DUK_DATE_IDX_YEAR] = comp->year;
  21007. dparts[DUK_DATE_IDX_MONTH] = comp->month;
  21008. dparts[DUK_DATE_IDX_DAY] = comp->day - 1.0;
  21009. dparts[DUK_DATE_IDX_HOUR] = comp->hours;
  21010. dparts[DUK_DATE_IDX_MINUTE] = comp->minutes;
  21011. dparts[DUK_DATE_IDX_SECOND] = comp->seconds;
  21012. dparts[DUK_DATE_IDX_MILLISECOND] = comp->milliseconds;
  21013. dparts[DUK_DATE_IDX_WEEKDAY] = 0; /* ignored */
  21014. d = duk_bi_date_get_timeval_from_dparts(dparts, flags);
  21015. return d;
  21016. }
  21017. #line 1 "duk_bi_array.c"
  21018. /*
  21019. * Array built-ins
  21020. *
  21021. * Most Array built-ins are intentionally generic in Ecmascript, and are
  21022. * intended to work even when the 'this' binding is not an Array instance.
  21023. * This Ecmascript feature is also used by much real world code. For this
  21024. * reason the implementations here don't assume exotic Array behavior or
  21025. * e.g. presence of a .length property. However, some algorithms have a
  21026. * fast path for duk_harray backed actual Array instances, enabled when
  21027. * footprint is not a concern.
  21028. *
  21029. * XXX: the "Throw" flag should be set for (almost?) all [[Put]] and
  21030. * [[Delete]] operations, but it's currently false throughout. Go through
  21031. * all put/delete cases and check throw flag use. Need a new API primitive
  21032. * which allows throws flag to be specified.
  21033. *
  21034. * XXX: array lengths above 2G won't work reliably. There are many places
  21035. * where one needs a full signed 32-bit range ([-0xffffffff, 0xffffffff],
  21036. * i.e. -33- bits). Although array 'length' cannot be written to be outside
  21037. * the unsigned 32-bit range (E5.1 Section 15.4.5.1 throws a RangeError if so)
  21038. * some intermediate values may be above 0xffffffff and this may not be always
  21039. * correctly handled now (duk_uint32_t is not enough for all algorithms).
  21040. * For instance, push() can legitimately write entries beyond length 0xffffffff
  21041. * and cause a RangeError only at the end. To do this properly, the current
  21042. * push() implementation tracks the array index using a 'double' instead of a
  21043. * duk_uint32_t (which is somewhat awkward). See test-bi-array-push-maxlen.js.
  21044. *
  21045. * On using "put" vs. "def" prop
  21046. * =============================
  21047. *
  21048. * Code below must be careful to use the appropriate primitive as it matters
  21049. * for compliance. When using "put" there may be inherited properties in
  21050. * Array.prototype which cause side effects when values are written. When
  21051. * using "define" there are no such side effects, and many test262 test cases
  21052. * check for this (for real world code, such side effects are very rare).
  21053. * Both "put" and "define" are used in the E5.1 specification; as a rule,
  21054. * "put" is used when modifying an existing array (or a non-array 'this'
  21055. * binding) and "define" for setting values into a fresh result array.
  21056. */
  21057. /* #include duk_internal.h -> already included */
  21058. /* Perform an intermediate join when this many elements have been pushed
  21059. * on the value stack.
  21060. */
  21061. #define DUK__ARRAY_MID_JOIN_LIMIT 4096
  21062. #if defined(DUK_USE_ARRAY_BUILTIN)
  21063. /*
  21064. * Shared helpers.
  21065. */
  21066. /* Shared entry code for many Array built-ins: the 'this' binding is pushed
  21067. * on the value stack and object coerced, and the current .length is returned.
  21068. * Note that length is left on stack (it could be popped, but that's not
  21069. * usually necessary because call handling will clean it up automatically).
  21070. */
  21071. DUK_LOCAL duk_uint32_t duk__push_this_obj_len_u32(duk_hthread *thr) {
  21072. duk_uint32_t len;
  21073. /* XXX: push more directly? */
  21074. (void) duk_push_this_coercible_to_object(thr);
  21075. DUK_ASSERT_HOBJECT_VALID(duk_get_hobject(thr, -1));
  21076. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_LENGTH);
  21077. len = duk_to_uint32(thr, -1);
  21078. /* -> [ ... ToObject(this) ToUint32(length) ] */
  21079. return len;
  21080. }
  21081. DUK_LOCAL duk_uint32_t duk__push_this_obj_len_u32_limited(duk_hthread *thr) {
  21082. /* Range limited to [0, 0x7fffffff] range, i.e. range that can be
  21083. * represented with duk_int32_t. Use this when the method doesn't
  21084. * handle the full 32-bit unsigned range correctly.
  21085. */
  21086. duk_uint32_t ret = duk__push_this_obj_len_u32(thr);
  21087. if (DUK_UNLIKELY(ret >= 0x80000000UL)) {
  21088. DUK_ERROR_RANGE_INVALID_LENGTH(thr);
  21089. }
  21090. return ret;
  21091. }
  21092. #if defined(DUK_USE_ARRAY_FASTPATH)
  21093. /* Check if 'this' binding is an Array instance (duk_harray) which satisfies
  21094. * a few other guarantees for fast path operation. The fast path doesn't
  21095. * need to handle all operations, even for duk_harrays, but must handle a
  21096. * significant fraction to improve performance. Return a non-NULL duk_harray
  21097. * pointer when all fast path criteria are met, NULL otherwise.
  21098. */
  21099. DUK_LOCAL duk_harray *duk__arraypart_fastpath_this(duk_hthread *thr) {
  21100. duk_tval *tv;
  21101. duk_hobject *h;
  21102. duk_uint_t flags_mask, flags_bits, flags_value;
  21103. DUK_ASSERT(thr->valstack_bottom > thr->valstack); /* because call in progress */
  21104. tv = DUK_GET_THIS_TVAL_PTR(thr);
  21105. /* Fast path requires that 'this' is a duk_harray. Read only arrays
  21106. * (ROM backed) are also rejected for simplicity.
  21107. */
  21108. if (!DUK_TVAL_IS_OBJECT(tv)) {
  21109. DUK_DD(DUK_DDPRINT("reject array fast path: not an object"));
  21110. return NULL;
  21111. }
  21112. h = DUK_TVAL_GET_OBJECT(tv);
  21113. DUK_ASSERT(h != NULL);
  21114. flags_mask = DUK_HOBJECT_FLAG_ARRAY_PART | \
  21115. DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \
  21116. DUK_HEAPHDR_FLAG_READONLY;
  21117. flags_bits = DUK_HOBJECT_FLAG_ARRAY_PART | \
  21118. DUK_HOBJECT_FLAG_EXOTIC_ARRAY;
  21119. flags_value = DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) h);
  21120. if ((flags_value & flags_mask) != flags_bits) {
  21121. DUK_DD(DUK_DDPRINT("reject array fast path: object flag check failed"));
  21122. return NULL;
  21123. }
  21124. /* In some cases a duk_harray's 'length' may be larger than the
  21125. * current array part allocation. Avoid the fast path in these
  21126. * cases, so that all fast path code can safely assume that all
  21127. * items in the range [0,length[ are backed by the current array
  21128. * part allocation.
  21129. */
  21130. if (((duk_harray *) h)->length > DUK_HOBJECT_GET_ASIZE(h)) {
  21131. DUK_DD(DUK_DDPRINT("reject array fast path: length > array part size"));
  21132. return NULL;
  21133. }
  21134. /* Guarantees for fast path. */
  21135. DUK_ASSERT(h != NULL);
  21136. DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0 || DUK_HOBJECT_A_GET_BASE(thr->heap, h) != NULL);
  21137. DUK_ASSERT(((duk_harray *) h)->length <= DUK_HOBJECT_GET_ASIZE(h));
  21138. DUK_DD(DUK_DDPRINT("array fast path allowed for: %!O", (duk_heaphdr *) h));
  21139. return (duk_harray *) h;
  21140. }
  21141. #endif /* DUK_USE_ARRAY_FASTPATH */
  21142. /*
  21143. * Constructor
  21144. */
  21145. DUK_INTERNAL duk_ret_t duk_bi_array_constructor(duk_hthread *thr) {
  21146. duk_idx_t nargs;
  21147. duk_harray *a;
  21148. duk_double_t d;
  21149. duk_uint32_t len;
  21150. duk_uint32_t len_prealloc;
  21151. nargs = duk_get_top(thr);
  21152. if (nargs == 1 && duk_is_number(thr, 0)) {
  21153. /* XXX: expensive check (also shared elsewhere - so add a shared internal API call?) */
  21154. d = duk_get_number(thr, 0);
  21155. len = duk_to_uint32(thr, 0);
  21156. if (((duk_double_t) len) != d) {
  21157. DUK_DCERROR_RANGE_INVALID_LENGTH(thr);
  21158. }
  21159. /* For small lengths create a dense preallocated array.
  21160. * For large arrays preallocate an initial part.
  21161. */
  21162. len_prealloc = len < 64 ? len : 64;
  21163. a = duk_push_harray_with_size(thr, len_prealloc);
  21164. DUK_ASSERT(a != NULL);
  21165. a->length = len;
  21166. return 1;
  21167. }
  21168. duk_pack(thr, nargs);
  21169. return 1;
  21170. }
  21171. /*
  21172. * isArray()
  21173. */
  21174. DUK_INTERNAL duk_ret_t duk_bi_array_constructor_is_array(duk_hthread *thr) {
  21175. duk_hobject *h;
  21176. h = duk_get_hobject_with_class(thr, 0, DUK_HOBJECT_CLASS_ARRAY);
  21177. duk_push_boolean(thr, (h != NULL));
  21178. return 1;
  21179. }
  21180. /*
  21181. * toString()
  21182. */
  21183. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_to_string(duk_hthread *thr) {
  21184. (void) duk_push_this_coercible_to_object(thr);
  21185. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_JOIN);
  21186. /* [ ... this func ] */
  21187. if (!duk_is_callable(thr, -1)) {
  21188. /* Fall back to the initial (original) Object.toString(). We don't
  21189. * currently have pointers to the built-in functions, only the top
  21190. * level global objects (like "Array") so this is now done in a bit
  21191. * of a hacky manner. It would be cleaner to push the (original)
  21192. * function and use duk_call_method().
  21193. */
  21194. /* XXX: 'this' will be ToObject() coerced twice, which is incorrect
  21195. * but should have no visible side effects.
  21196. */
  21197. DUK_DDD(DUK_DDDPRINT("this.join is not callable, fall back to (original) Object.toString"));
  21198. duk_set_top(thr, 0);
  21199. return duk_bi_object_prototype_to_string(thr); /* has access to 'this' binding */
  21200. }
  21201. /* [ ... this func ] */
  21202. duk_insert(thr, -2);
  21203. /* [ ... func this ] */
  21204. DUK_DDD(DUK_DDDPRINT("calling: func=%!iT, this=%!iT",
  21205. (duk_tval *) duk_get_tval(thr, -2),
  21206. (duk_tval *) duk_get_tval(thr, -1)));
  21207. duk_call_method(thr, 0);
  21208. return 1;
  21209. }
  21210. /*
  21211. * concat()
  21212. */
  21213. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_concat(duk_hthread *thr) {
  21214. duk_idx_t i, n;
  21215. duk_uarridx_t idx, idx_last;
  21216. duk_uarridx_t j, len;
  21217. duk_hobject *h;
  21218. /* XXX: the insert here is a bit expensive if there are a lot of items.
  21219. * It could also be special cased in the outermost for loop quite easily
  21220. * (as the element is dup()'d anyway).
  21221. */
  21222. (void) duk_push_this_coercible_to_object(thr);
  21223. duk_insert(thr, 0);
  21224. n = duk_get_top(thr);
  21225. duk_push_array(thr); /* -> [ ToObject(this) item1 ... itemN arr ] */
  21226. /* NOTE: The Array special behaviors are NOT invoked by duk_xdef_prop_index()
  21227. * (which differs from the official algorithm). If no error is thrown, this
  21228. * doesn't matter as the length is updated at the end. However, if an error
  21229. * is thrown, the length will be unset. That shouldn't matter because the
  21230. * caller won't get a reference to the intermediate value.
  21231. */
  21232. idx = 0;
  21233. idx_last = 0;
  21234. for (i = 0; i < n; i++) {
  21235. DUK_ASSERT_TOP(thr, n + 1);
  21236. /* [ ToObject(this) item1 ... itemN arr ] */
  21237. duk_dup(thr, i);
  21238. h = duk_get_hobject_with_class(thr, -1, DUK_HOBJECT_CLASS_ARRAY);
  21239. if (!h) {
  21240. duk_xdef_prop_index_wec(thr, -2, idx++);
  21241. idx_last = idx;
  21242. continue;
  21243. }
  21244. /* [ ToObject(this) item1 ... itemN arr item(i) ] */
  21245. /* XXX: an array can have length higher than 32 bits; this is not handled
  21246. * correctly now.
  21247. */
  21248. len = (duk_uarridx_t) duk_get_length(thr, -1);
  21249. for (j = 0; j < len; j++) {
  21250. if (duk_get_prop_index(thr, -1, j)) {
  21251. /* [ ToObject(this) item1 ... itemN arr item(i) item(i)[j] ] */
  21252. duk_xdef_prop_index_wec(thr, -3, idx++);
  21253. idx_last = idx;
  21254. } else {
  21255. idx++;
  21256. duk_pop_undefined(thr);
  21257. #if defined(DUK_USE_NONSTD_ARRAY_CONCAT_TRAILER)
  21258. /* According to E5.1 Section 15.4.4.4 nonexistent trailing
  21259. * elements do not affect 'length' of the result. Test262
  21260. * and other engines disagree, so update idx_last here too.
  21261. */
  21262. idx_last = idx;
  21263. #else
  21264. /* Strict standard behavior, ignore trailing elements for
  21265. * result 'length'.
  21266. */
  21267. #endif
  21268. }
  21269. }
  21270. duk_pop_unsafe(thr);
  21271. }
  21272. /* The E5.1 Section 15.4.4.4 algorithm doesn't set the length explicitly
  21273. * in the end, but because we're operating with an internal value which
  21274. * is known to be an array, this should be equivalent.
  21275. */
  21276. duk_push_uarridx(thr, idx_last);
  21277. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W);
  21278. DUK_ASSERT_TOP(thr, n + 1);
  21279. return 1;
  21280. }
  21281. /*
  21282. * join(), toLocaleString()
  21283. *
  21284. * Note: checking valstack is necessary, but only in the per-element loop.
  21285. *
  21286. * Note: the trivial approach of pushing all the elements on the value stack
  21287. * and then calling duk_join() fails when the array contains a large number
  21288. * of elements. This problem can't be offloaded to duk_join() because the
  21289. * elements to join must be handled here and have special handling. Current
  21290. * approach is to do intermediate joins with very large number of elements.
  21291. * There is no fancy handling; the prefix gets re-joined multiple times.
  21292. */
  21293. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_join_shared(duk_hthread *thr) {
  21294. duk_uint32_t len, count;
  21295. duk_uint32_t idx;
  21296. duk_small_int_t to_locale_string = duk_get_current_magic(thr);
  21297. duk_idx_t valstack_required;
  21298. /* For join(), nargs is 1. For toLocaleString(), nargs is 0 and
  21299. * setting the top essentially pushes an undefined to the stack,
  21300. * thus defaulting to a comma separator.
  21301. */
  21302. duk_set_top(thr, 1);
  21303. if (duk_is_undefined(thr, 0)) {
  21304. duk_pop_undefined(thr);
  21305. duk_push_hstring_stridx(thr, DUK_STRIDX_COMMA);
  21306. } else {
  21307. duk_to_string(thr, 0);
  21308. }
  21309. len = duk__push_this_obj_len_u32(thr);
  21310. /* [ sep ToObject(this) len ] */
  21311. DUK_DDD(DUK_DDDPRINT("sep=%!T, this=%!T, len=%lu",
  21312. (duk_tval *) duk_get_tval(thr, 0),
  21313. (duk_tval *) duk_get_tval(thr, 1),
  21314. (unsigned long) len));
  21315. /* The extra (+4) is tight. */
  21316. valstack_required = (duk_idx_t) ((len >= DUK__ARRAY_MID_JOIN_LIMIT ?
  21317. DUK__ARRAY_MID_JOIN_LIMIT : len) + 4);
  21318. duk_require_stack(thr, valstack_required);
  21319. duk_dup_0(thr);
  21320. /* [ sep ToObject(this) len sep ] */
  21321. count = 0;
  21322. idx = 0;
  21323. for (;;) {
  21324. DUK_DDD(DUK_DDDPRINT("join idx=%ld", (long) idx));
  21325. if (count >= DUK__ARRAY_MID_JOIN_LIMIT || /* intermediate join to avoid valstack overflow */
  21326. idx >= len) { /* end of loop (careful with len==0) */
  21327. /* [ sep ToObject(this) len sep str0 ... str(count-1) ] */
  21328. DUK_DDD(DUK_DDDPRINT("mid/final join, count=%ld, idx=%ld, len=%ld",
  21329. (long) count, (long) idx, (long) len));
  21330. duk_join(thr, (duk_idx_t) count); /* -> [ sep ToObject(this) len str ] */
  21331. duk_dup_0(thr); /* -> [ sep ToObject(this) len str sep ] */
  21332. duk_insert(thr, -2); /* -> [ sep ToObject(this) len sep str ] */
  21333. count = 1;
  21334. }
  21335. if (idx >= len) {
  21336. /* if true, the stack already contains the final result */
  21337. break;
  21338. }
  21339. duk_get_prop_index(thr, 1, (duk_uarridx_t) idx);
  21340. if (duk_is_null_or_undefined(thr, -1)) {
  21341. duk_pop_nodecref_unsafe(thr);
  21342. duk_push_hstring_empty(thr);
  21343. } else {
  21344. if (to_locale_string) {
  21345. duk_to_object(thr, -1);
  21346. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_LOCALE_STRING);
  21347. duk_insert(thr, -2); /* -> [ ... toLocaleString ToObject(val) ] */
  21348. duk_call_method(thr, 0);
  21349. }
  21350. duk_to_string(thr, -1);
  21351. }
  21352. count++;
  21353. idx++;
  21354. }
  21355. /* [ sep ToObject(this) len sep result ] */
  21356. return 1;
  21357. }
  21358. /*
  21359. * pop(), push()
  21360. */
  21361. #if defined(DUK_USE_ARRAY_FASTPATH)
  21362. DUK_LOCAL duk_ret_t duk__array_pop_fastpath(duk_hthread *thr, duk_harray *h_arr) {
  21363. duk_tval *tv_arraypart;
  21364. duk_tval *tv_val;
  21365. duk_uint32_t len;
  21366. tv_arraypart = DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) h_arr);
  21367. len = h_arr->length;
  21368. if (len <= 0) {
  21369. /* nop, return undefined */
  21370. return 0;
  21371. }
  21372. len--;
  21373. h_arr->length = len;
  21374. /* Fast path doesn't check for an index property inherited from
  21375. * Array.prototype. This is quite often acceptable; if not,
  21376. * disable fast path.
  21377. */
  21378. DUK_ASSERT_VS_SPACE(thr);
  21379. tv_val = tv_arraypart + len;
  21380. if (DUK_TVAL_IS_UNUSED(tv_val)) {
  21381. /* No net refcount change. Value stack already has
  21382. * 'undefined' based on value stack init policy.
  21383. */
  21384. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top));
  21385. DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv_val));
  21386. } else {
  21387. /* No net refcount change. */
  21388. DUK_TVAL_SET_TVAL(thr->valstack_top, tv_val);
  21389. DUK_TVAL_SET_UNUSED(tv_val);
  21390. }
  21391. thr->valstack_top++;
  21392. /* XXX: there's no shrink check in the fast path now */
  21393. return 1;
  21394. }
  21395. #endif /* DUK_USE_ARRAY_FASTPATH */
  21396. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_pop(duk_hthread *thr) {
  21397. duk_uint32_t len;
  21398. duk_uint32_t idx;
  21399. #if defined(DUK_USE_ARRAY_FASTPATH)
  21400. duk_harray *h_arr;
  21401. #endif
  21402. DUK_ASSERT_TOP(thr, 0);
  21403. #if defined(DUK_USE_ARRAY_FASTPATH)
  21404. h_arr = duk__arraypart_fastpath_this(thr);
  21405. if (h_arr) {
  21406. return duk__array_pop_fastpath(thr, h_arr);
  21407. }
  21408. #endif
  21409. /* XXX: Merge fastpath check into a related call (push this, coerce length, etc)? */
  21410. len = duk__push_this_obj_len_u32(thr);
  21411. if (len == 0) {
  21412. duk_push_int(thr, 0);
  21413. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH);
  21414. return 0;
  21415. }
  21416. idx = len - 1;
  21417. duk_get_prop_index(thr, 0, (duk_uarridx_t) idx);
  21418. duk_del_prop_index(thr, 0, (duk_uarridx_t) idx);
  21419. duk_push_u32(thr, idx);
  21420. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH);
  21421. return 1;
  21422. }
  21423. #if defined(DUK_USE_ARRAY_FASTPATH)
  21424. DUK_LOCAL duk_ret_t duk__array_push_fastpath(duk_hthread *thr, duk_harray *h_arr) {
  21425. duk_tval *tv_arraypart;
  21426. duk_tval *tv_src;
  21427. duk_tval *tv_dst;
  21428. duk_uint32_t len;
  21429. duk_idx_t i, n;
  21430. len = h_arr->length;
  21431. tv_arraypart = DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) h_arr);
  21432. n = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom);
  21433. DUK_ASSERT(n >= 0);
  21434. DUK_ASSERT((duk_uint32_t) n <= DUK_UINT32_MAX);
  21435. if (DUK_UNLIKELY(len + (duk_uint32_t) n < len)) {
  21436. DUK_D(DUK_DPRINT("Array.prototype.push() would go beyond 32-bit length, throw"));
  21437. DUK_DCERROR_RANGE_INVALID_LENGTH(thr); /* != 0 return value returned as is by caller */
  21438. }
  21439. if (len + (duk_uint32_t) n > DUK_HOBJECT_GET_ASIZE((duk_hobject *) h_arr)) {
  21440. /* Array part would need to be extended. Rely on slow path
  21441. * for now.
  21442. *
  21443. * XXX: Rework hobject code a bit and add extend support.
  21444. */
  21445. return 0;
  21446. }
  21447. tv_src = thr->valstack_bottom;
  21448. tv_dst = tv_arraypart + len;
  21449. for (i = 0; i < n; i++) {
  21450. /* No net refcount change; reset value stack values to
  21451. * undefined to satisfy value stack init policy.
  21452. */
  21453. DUK_TVAL_SET_TVAL(tv_dst, tv_src);
  21454. DUK_TVAL_SET_UNDEFINED(tv_src);
  21455. tv_src++;
  21456. tv_dst++;
  21457. }
  21458. thr->valstack_top = thr->valstack_bottom;
  21459. len += (duk_uint32_t) n;
  21460. h_arr->length = len;
  21461. DUK_ASSERT((duk_uint_t) len == len);
  21462. duk_push_uint(thr, (duk_uint_t) len);
  21463. return 1;
  21464. }
  21465. #endif /* DUK_USE_ARRAY_FASTPATH */
  21466. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_push(duk_hthread *thr) {
  21467. /* Note: 'this' is not necessarily an Array object. The push()
  21468. * algorithm is supposed to work for other kinds of objects too,
  21469. * so the algorithm has e.g. an explicit update for the 'length'
  21470. * property which is normally "magical" in arrays.
  21471. */
  21472. duk_uint32_t len;
  21473. duk_idx_t i, n;
  21474. #if defined(DUK_USE_ARRAY_FASTPATH)
  21475. duk_harray *h_arr;
  21476. #endif
  21477. #if defined(DUK_USE_ARRAY_FASTPATH)
  21478. h_arr = duk__arraypart_fastpath_this(thr);
  21479. if (h_arr) {
  21480. duk_ret_t rc;
  21481. rc = duk__array_push_fastpath(thr, h_arr);
  21482. if (rc != 0) {
  21483. return rc;
  21484. }
  21485. DUK_DD(DUK_DDPRINT("array push() fast path exited, resize case"));
  21486. }
  21487. #endif
  21488. n = duk_get_top(thr);
  21489. len = duk__push_this_obj_len_u32(thr);
  21490. /* [ arg1 ... argN obj length ] */
  21491. /* Technically Array.prototype.push() can create an Array with length
  21492. * longer than 2^32-1, i.e. outside the 32-bit range. The final length
  21493. * is *not* wrapped to 32 bits in the specification.
  21494. *
  21495. * This implementation tracks length with a uint32 because it's much
  21496. * more practical.
  21497. *
  21498. * See: test-bi-array-push-maxlen.js.
  21499. */
  21500. if (len + (duk_uint32_t) n < len) {
  21501. DUK_D(DUK_DPRINT("Array.prototype.push() would go beyond 32-bit length, throw"));
  21502. DUK_DCERROR_RANGE_INVALID_LENGTH(thr);
  21503. }
  21504. for (i = 0; i < n; i++) {
  21505. duk_dup(thr, i);
  21506. duk_put_prop_index(thr, -3, (duk_uarridx_t) (len + (duk_uint32_t) i));
  21507. }
  21508. len += (duk_uint32_t) n;
  21509. duk_push_u32(thr, len);
  21510. duk_dup_top(thr);
  21511. duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH);
  21512. /* [ arg1 ... argN obj length new_length ] */
  21513. return 1;
  21514. }
  21515. /*
  21516. * sort()
  21517. *
  21518. * Currently qsort with random pivot. This is now really, really slow,
  21519. * because there is no fast path for array parts.
  21520. *
  21521. * Signed indices are used because qsort() leaves and degenerate cases
  21522. * may use a negative offset.
  21523. */
  21524. DUK_LOCAL duk_small_int_t duk__array_sort_compare(duk_hthread *thr, duk_int_t idx1, duk_int_t idx2) {
  21525. duk_bool_t have1, have2;
  21526. duk_bool_t undef1, undef2;
  21527. duk_small_int_t ret;
  21528. duk_idx_t idx_obj = 1; /* fixed offsets in valstack */
  21529. duk_idx_t idx_fn = 0;
  21530. duk_hstring *h1, *h2;
  21531. /* Fast exit if indices are identical. This is valid for a non-existent property,
  21532. * for an undefined value, and almost always for ToString() coerced comparison of
  21533. * arbitrary values (corner cases where this is not the case include e.g. a an
  21534. * object with varying ToString() coercion).
  21535. *
  21536. * The specification does not prohibit "caching" of values read from the array, so
  21537. * assuming equality for comparing an index with itself falls into the category of
  21538. * "caching".
  21539. *
  21540. * Also, compareFn may be inconsistent, so skipping a call to compareFn here may
  21541. * have an effect on the final result. The specification does not require any
  21542. * specific behavior for inconsistent compare functions, so again, this fast path
  21543. * is OK.
  21544. */
  21545. if (idx1 == idx2) {
  21546. DUK_DDD(DUK_DDDPRINT("duk__array_sort_compare: idx1=%ld, idx2=%ld -> indices identical, quick exit",
  21547. (long) idx1, (long) idx2));
  21548. return 0;
  21549. }
  21550. have1 = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) idx1);
  21551. have2 = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) idx2);
  21552. DUK_DDD(DUK_DDDPRINT("duk__array_sort_compare: idx1=%ld, idx2=%ld, have1=%ld, have2=%ld, val1=%!T, val2=%!T",
  21553. (long) idx1, (long) idx2, (long) have1, (long) have2,
  21554. (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1)));
  21555. if (have1) {
  21556. if (have2) {
  21557. ;
  21558. } else {
  21559. ret = -1;
  21560. goto pop_ret;
  21561. }
  21562. } else {
  21563. if (have2) {
  21564. ret = 1;
  21565. goto pop_ret;
  21566. } else {
  21567. ret = 0;
  21568. goto pop_ret;
  21569. }
  21570. }
  21571. undef1 = duk_is_undefined(thr, -2);
  21572. undef2 = duk_is_undefined(thr, -1);
  21573. if (undef1) {
  21574. if (undef2) {
  21575. ret = 0;
  21576. goto pop_ret;
  21577. } else {
  21578. ret = 1;
  21579. goto pop_ret;
  21580. }
  21581. } else {
  21582. if (undef2) {
  21583. ret = -1;
  21584. goto pop_ret;
  21585. } else {
  21586. ;
  21587. }
  21588. }
  21589. if (!duk_is_undefined(thr, idx_fn)) {
  21590. duk_double_t d;
  21591. /* No need to check callable; duk_call() will do that. */
  21592. duk_dup(thr, idx_fn); /* -> [ ... x y fn ] */
  21593. duk_insert(thr, -3); /* -> [ ... fn x y ] */
  21594. duk_call(thr, 2); /* -> [ ... res ] */
  21595. /* ES5 is a bit vague about what to do if the return value is
  21596. * not a number. ES2015 provides a concrete description:
  21597. * http://www.ecma-international.org/ecma-262/6.0/#sec-sortcompare.
  21598. */
  21599. d = duk_to_number_m1(thr);
  21600. if (d < 0.0) {
  21601. ret = -1;
  21602. } else if (d > 0.0) {
  21603. ret = 1;
  21604. } else {
  21605. /* Because NaN compares to false, NaN is handled here
  21606. * without an explicit check above.
  21607. */
  21608. ret = 0;
  21609. }
  21610. duk_pop_nodecref_unsafe(thr);
  21611. DUK_DDD(DUK_DDDPRINT("-> result %ld (from comparefn, after coercion)", (long) ret));
  21612. return ret;
  21613. }
  21614. /* string compare is the default (a bit oddly) */
  21615. /* XXX: any special handling for plain array; causes repeated coercion now? */
  21616. h1 = duk_to_hstring(thr, -2);
  21617. h2 = duk_to_hstring_m1(thr);
  21618. DUK_ASSERT(h1 != NULL);
  21619. DUK_ASSERT(h2 != NULL);
  21620. ret = duk_js_string_compare(h1, h2); /* retval is directly usable */
  21621. goto pop_ret;
  21622. pop_ret:
  21623. duk_pop_2_unsafe(thr);
  21624. DUK_DDD(DUK_DDDPRINT("-> result %ld", (long) ret));
  21625. return ret;
  21626. }
  21627. DUK_LOCAL void duk__array_sort_swap(duk_hthread *thr, duk_int_t l, duk_int_t r) {
  21628. duk_bool_t have_l, have_r;
  21629. duk_idx_t idx_obj = 1; /* fixed offset in valstack */
  21630. if (l == r) {
  21631. return;
  21632. }
  21633. /* swap elements; deal with non-existent elements correctly */
  21634. have_l = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) l);
  21635. have_r = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) r);
  21636. if (have_r) {
  21637. /* right exists, [[Put]] regardless whether or not left exists */
  21638. duk_put_prop_index(thr, idx_obj, (duk_uarridx_t) l);
  21639. } else {
  21640. duk_del_prop_index(thr, idx_obj, (duk_uarridx_t) l);
  21641. duk_pop_undefined(thr);
  21642. }
  21643. if (have_l) {
  21644. duk_put_prop_index(thr, idx_obj, (duk_uarridx_t) r);
  21645. } else {
  21646. duk_del_prop_index(thr, idx_obj, (duk_uarridx_t) r);
  21647. duk_pop_undefined(thr);
  21648. }
  21649. }
  21650. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  21651. /* Debug print which visualizes the qsort partitioning process. */
  21652. DUK_LOCAL void duk__debuglog_qsort_state(duk_hthread *thr, duk_int_t lo, duk_int_t hi, duk_int_t pivot) {
  21653. char buf[4096];
  21654. char *ptr = buf;
  21655. duk_int_t i, n;
  21656. n = (duk_int_t) duk_get_length(thr, 1);
  21657. if (n > 4000) {
  21658. n = 4000;
  21659. }
  21660. *ptr++ = '[';
  21661. for (i = 0; i < n; i++) {
  21662. if (i == pivot) {
  21663. *ptr++ = '|';
  21664. } else if (i == lo) {
  21665. *ptr++ = '<';
  21666. } else if (i == hi) {
  21667. *ptr++ = '>';
  21668. } else if (i >= lo && i <= hi) {
  21669. *ptr++ = '-';
  21670. } else {
  21671. *ptr++ = ' ';
  21672. }
  21673. }
  21674. *ptr++ = ']';
  21675. *ptr++ = '\0';
  21676. DUK_DDD(DUK_DDDPRINT("%s (lo=%ld, hi=%ld, pivot=%ld)",
  21677. (const char *) buf, (long) lo, (long) hi, (long) pivot));
  21678. }
  21679. #endif
  21680. DUK_LOCAL void duk__array_qsort(duk_hthread *thr, duk_int_t lo, duk_int_t hi) {
  21681. duk_int_t p, l, r;
  21682. /* The lo/hi indices may be crossed and hi < 0 is possible at entry. */
  21683. DUK_DDD(DUK_DDDPRINT("duk__array_qsort: lo=%ld, hi=%ld, obj=%!T",
  21684. (long) lo, (long) hi, (duk_tval *) duk_get_tval(thr, 1)));
  21685. DUK_ASSERT_TOP(thr, 3);
  21686. /* In some cases it may be that lo > hi, or hi < 0; these
  21687. * degenerate cases happen e.g. for empty arrays, and in
  21688. * recursion leaves.
  21689. */
  21690. /* trivial cases */
  21691. if (hi - lo < 1) {
  21692. DUK_DDD(DUK_DDDPRINT("degenerate case, return immediately"));
  21693. return;
  21694. }
  21695. DUK_ASSERT(hi > lo);
  21696. DUK_ASSERT(hi - lo + 1 >= 2);
  21697. /* randomized pivot selection */
  21698. p = lo + (duk_int_t) (DUK_UTIL_GET_RANDOM_DOUBLE(thr) * (duk_double_t) (hi - lo + 1));
  21699. DUK_ASSERT(p >= lo && p <= hi);
  21700. DUK_DDD(DUK_DDDPRINT("lo=%ld, hi=%ld, chose pivot p=%ld", (long) lo, (long) hi, (long) p));
  21701. /* move pivot out of the way */
  21702. duk__array_sort_swap(thr, p, lo);
  21703. p = lo;
  21704. DUK_DDD(DUK_DDDPRINT("pivot moved out of the way: %!T", (duk_tval *) duk_get_tval(thr, 1)));
  21705. l = lo + 1;
  21706. r = hi;
  21707. for (;;) {
  21708. /* find elements to swap */
  21709. for (;;) {
  21710. DUK_DDD(DUK_DDDPRINT("left scan: l=%ld, r=%ld, p=%ld",
  21711. (long) l, (long) r, (long) p));
  21712. if (l >= hi) {
  21713. break;
  21714. }
  21715. if (duk__array_sort_compare(thr, l, p) >= 0) { /* !(l < p) */
  21716. break;
  21717. }
  21718. l++;
  21719. }
  21720. for (;;) {
  21721. DUK_DDD(DUK_DDDPRINT("right scan: l=%ld, r=%ld, p=%ld",
  21722. (long) l, (long) r, (long) p));
  21723. if (r <= lo) {
  21724. break;
  21725. }
  21726. if (duk__array_sort_compare(thr, p, r) >= 0) { /* !(p < r) */
  21727. break;
  21728. }
  21729. r--;
  21730. }
  21731. if (l >= r) {
  21732. goto done;
  21733. }
  21734. DUK_ASSERT(l < r);
  21735. DUK_DDD(DUK_DDDPRINT("swap %ld and %ld", (long) l, (long) r));
  21736. duk__array_sort_swap(thr, l, r);
  21737. DUK_DDD(DUK_DDDPRINT("after swap: %!T", (duk_tval *) duk_get_tval(thr, 1)));
  21738. l++;
  21739. r--;
  21740. }
  21741. done:
  21742. /* Note that 'l' and 'r' may cross, i.e. r < l */
  21743. DUK_ASSERT(l >= lo && l <= hi);
  21744. DUK_ASSERT(r >= lo && r <= hi);
  21745. /* XXX: there's no explicit recursion bound here now. For the average
  21746. * qsort recursion depth O(log n) that's not really necessary: e.g. for
  21747. * 2**32 recursion depth would be about 32 which is OK. However, qsort
  21748. * worst case recursion depth is O(n) which may be a problem.
  21749. */
  21750. /* move pivot to its final place */
  21751. DUK_DDD(DUK_DDDPRINT("before final pivot swap: %!T", (duk_tval *) duk_get_tval(thr, 1)));
  21752. duk__array_sort_swap(thr, lo, r);
  21753. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  21754. duk__debuglog_qsort_state(thr, lo, hi, r);
  21755. #endif
  21756. DUK_DDD(DUK_DDDPRINT("recurse: pivot=%ld, obj=%!T", (long) r, (duk_tval *) duk_get_tval(thr, 1)));
  21757. duk__array_qsort(thr, lo, r - 1);
  21758. duk__array_qsort(thr, r + 1, hi);
  21759. }
  21760. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_sort(duk_hthread *thr) {
  21761. duk_uint32_t len;
  21762. /* XXX: len >= 0x80000000 won't work below because a signed type
  21763. * is needed by qsort.
  21764. */
  21765. len = duk__push_this_obj_len_u32_limited(thr);
  21766. /* stack[0] = compareFn
  21767. * stack[1] = ToObject(this)
  21768. * stack[2] = ToUint32(length)
  21769. */
  21770. if (len > 0) {
  21771. /* avoid degenerate cases, so that (len - 1) won't underflow */
  21772. duk__array_qsort(thr, (duk_int_t) 0, (duk_int_t) (len - 1));
  21773. }
  21774. DUK_ASSERT_TOP(thr, 3);
  21775. duk_pop_nodecref_unsafe(thr);
  21776. return 1; /* return ToObject(this) */
  21777. }
  21778. /*
  21779. * splice()
  21780. */
  21781. /* XXX: this compiles to over 500 bytes now, even without special handling
  21782. * for an array part. Uses signed ints so does not handle full array range correctly.
  21783. */
  21784. /* XXX: can shift() / unshift() use the same helper?
  21785. * shift() is (close to?) <--> splice(0, 1)
  21786. * unshift is (close to?) <--> splice(0, 0, [items])?
  21787. */
  21788. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_splice(duk_hthread *thr) {
  21789. duk_idx_t nargs;
  21790. duk_uint32_t len_u32;
  21791. duk_int_t len;
  21792. duk_bool_t have_delcount;
  21793. duk_int_t item_count;
  21794. duk_int_t act_start;
  21795. duk_int_t del_count;
  21796. duk_int_t i, n;
  21797. DUK_UNREF(have_delcount);
  21798. nargs = duk_get_top(thr);
  21799. if (nargs < 2) {
  21800. duk_set_top(thr, 2);
  21801. nargs = 2;
  21802. have_delcount = 0;
  21803. } else {
  21804. have_delcount = 1;
  21805. }
  21806. /* XXX: len >= 0x80000000 won't work below because we need to be
  21807. * able to represent -len.
  21808. */
  21809. len_u32 = duk__push_this_obj_len_u32_limited(thr);
  21810. len = (duk_int_t) len_u32;
  21811. DUK_ASSERT(len >= 0);
  21812. act_start = duk_to_int_clamped(thr, 0, -len, len);
  21813. if (act_start < 0) {
  21814. act_start = len + act_start;
  21815. }
  21816. DUK_ASSERT(act_start >= 0 && act_start <= len);
  21817. #if defined(DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT)
  21818. if (have_delcount) {
  21819. #endif
  21820. del_count = duk_to_int_clamped(thr, 1, 0, len - act_start);
  21821. #if defined(DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT)
  21822. } else {
  21823. /* E5.1 standard behavior when deleteCount is not given would be
  21824. * to treat it just like if 'undefined' was given, which coerces
  21825. * ultimately to 0. Real world behavior is to splice to the end
  21826. * of array, see test-bi-array-proto-splice-no-delcount.js.
  21827. */
  21828. del_count = len - act_start;
  21829. }
  21830. #endif
  21831. DUK_ASSERT(nargs >= 2);
  21832. item_count = (duk_int_t) (nargs - 2);
  21833. DUK_ASSERT(del_count >= 0 && del_count <= len - act_start);
  21834. DUK_ASSERT(del_count + act_start <= len);
  21835. /* For now, restrict result array into 32-bit length range. */
  21836. if (((duk_double_t) len) - ((duk_double_t) del_count) + ((duk_double_t) item_count) > (duk_double_t) DUK_UINT32_MAX) {
  21837. DUK_D(DUK_DPRINT("Array.prototype.splice() would go beyond 32-bit length, throw"));
  21838. DUK_DCERROR_RANGE_INVALID_LENGTH(thr);
  21839. }
  21840. duk_push_array(thr);
  21841. /* stack[0] = start
  21842. * stack[1] = deleteCount
  21843. * stack[2...nargs-1] = items
  21844. * stack[nargs] = ToObject(this) -3
  21845. * stack[nargs+1] = ToUint32(length) -2
  21846. * stack[nargs+2] = result array -1
  21847. */
  21848. DUK_ASSERT_TOP(thr, nargs + 3);
  21849. /* Step 9: copy elements-to-be-deleted into the result array */
  21850. for (i = 0; i < del_count; i++) {
  21851. if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (act_start + i))) {
  21852. duk_xdef_prop_index_wec(thr, -2, (duk_uarridx_t) i); /* throw flag irrelevant (false in std alg) */
  21853. } else {
  21854. duk_pop_undefined(thr);
  21855. }
  21856. }
  21857. duk_push_u32(thr, (duk_uint32_t) del_count);
  21858. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W);
  21859. /* Steps 12 and 13: reorganize elements to make room for itemCount elements */
  21860. if (item_count < del_count) {
  21861. /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 1
  21862. * -> [ A B F G H ] (conceptual intermediate step)
  21863. * -> [ A B . F G H ] (placeholder marked)
  21864. * [ A B C F G H ] (actual result at this point, C will be replaced)
  21865. */
  21866. DUK_ASSERT_TOP(thr, nargs + 3);
  21867. n = len - del_count;
  21868. for (i = act_start; i < n; i++) {
  21869. if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (i + del_count))) {
  21870. duk_put_prop_index(thr, -4, (duk_uarridx_t) (i + item_count));
  21871. } else {
  21872. duk_pop_undefined(thr);
  21873. duk_del_prop_index(thr, -3, (duk_uarridx_t) (i + item_count));
  21874. }
  21875. }
  21876. DUK_ASSERT_TOP(thr, nargs + 3);
  21877. /* loop iterator init and limit changed from standard algorithm */
  21878. n = len - del_count + item_count;
  21879. for (i = len - 1; i >= n; i--) {
  21880. duk_del_prop_index(thr, -3, (duk_uarridx_t) i);
  21881. }
  21882. DUK_ASSERT_TOP(thr, nargs + 3);
  21883. } else if (item_count > del_count) {
  21884. /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 4
  21885. * -> [ A B F G H ] (conceptual intermediate step)
  21886. * -> [ A B . . . . F G H ] (placeholder marked)
  21887. * [ A B C D E F F G H ] (actual result at this point)
  21888. */
  21889. DUK_ASSERT_TOP(thr, nargs + 3);
  21890. /* loop iterator init and limit changed from standard algorithm */
  21891. for (i = len - del_count - 1; i >= act_start; i--) {
  21892. if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (i + del_count))) {
  21893. duk_put_prop_index(thr, -4, (duk_uarridx_t) (i + item_count));
  21894. } else {
  21895. duk_pop_undefined(thr);
  21896. duk_del_prop_index(thr, -3, (duk_uarridx_t) (i + item_count));
  21897. }
  21898. }
  21899. DUK_ASSERT_TOP(thr, nargs + 3);
  21900. } else {
  21901. /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 3
  21902. * -> [ A B F G H ] (conceptual intermediate step)
  21903. * -> [ A B . . . F G H ] (placeholder marked)
  21904. * [ A B C D E F G H ] (actual result at this point)
  21905. */
  21906. }
  21907. DUK_ASSERT_TOP(thr, nargs + 3);
  21908. /* Step 15: insert itemCount elements into the hole made above */
  21909. for (i = 0; i < item_count; i++) {
  21910. duk_dup(thr, i + 2); /* args start at index 2 */
  21911. duk_put_prop_index(thr, -4, (duk_uarridx_t) (act_start + i));
  21912. }
  21913. /* Step 16: update length; note that the final length may be above 32 bit range
  21914. * (but we checked above that this isn't the case here)
  21915. */
  21916. duk_push_u32(thr, (duk_uint32_t) (len - del_count + item_count));
  21917. duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH);
  21918. /* result array is already at the top of stack */
  21919. DUK_ASSERT_TOP(thr, nargs + 3);
  21920. return 1;
  21921. }
  21922. /*
  21923. * reverse()
  21924. */
  21925. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_reverse(duk_hthread *thr) {
  21926. duk_uint32_t len;
  21927. duk_uint32_t middle;
  21928. duk_uint32_t lower, upper;
  21929. duk_bool_t have_lower, have_upper;
  21930. len = duk__push_this_obj_len_u32(thr);
  21931. middle = len / 2;
  21932. /* If len <= 1, middle will be 0 and for-loop bails out
  21933. * immediately (0 < 0 -> false).
  21934. */
  21935. for (lower = 0; lower < middle; lower++) {
  21936. DUK_ASSERT(len >= 2);
  21937. DUK_ASSERT_TOP(thr, 2);
  21938. DUK_ASSERT(len >= lower + 1);
  21939. upper = len - lower - 1;
  21940. have_lower = duk_get_prop_index(thr, -2, (duk_uarridx_t) lower);
  21941. have_upper = duk_get_prop_index(thr, -3, (duk_uarridx_t) upper);
  21942. /* [ ToObject(this) ToUint32(length) lowerValue upperValue ] */
  21943. if (have_upper) {
  21944. duk_put_prop_index(thr, -4, (duk_uarridx_t) lower);
  21945. } else {
  21946. duk_del_prop_index(thr, -4, (duk_uarridx_t) lower);
  21947. duk_pop_undefined(thr);
  21948. }
  21949. if (have_lower) {
  21950. duk_put_prop_index(thr, -3, (duk_uarridx_t) upper);
  21951. } else {
  21952. duk_del_prop_index(thr, -3, (duk_uarridx_t) upper);
  21953. duk_pop_undefined(thr);
  21954. }
  21955. DUK_ASSERT_TOP(thr, 2);
  21956. }
  21957. DUK_ASSERT_TOP(thr, 2);
  21958. duk_pop_unsafe(thr); /* -> [ ToObject(this) ] */
  21959. return 1;
  21960. }
  21961. /*
  21962. * slice()
  21963. */
  21964. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_slice(duk_hthread *thr) {
  21965. duk_uint32_t len_u32;
  21966. duk_int_t len;
  21967. duk_int_t start, end;
  21968. duk_int_t i;
  21969. duk_uarridx_t idx;
  21970. duk_uint32_t res_length = 0;
  21971. /* XXX: len >= 0x80000000 won't work below because we need to be
  21972. * able to represent -len.
  21973. */
  21974. len_u32 = duk__push_this_obj_len_u32_limited(thr);
  21975. len = (duk_int_t) len_u32;
  21976. DUK_ASSERT(len >= 0);
  21977. duk_push_array(thr);
  21978. /* stack[0] = start
  21979. * stack[1] = end
  21980. * stack[2] = ToObject(this)
  21981. * stack[3] = ToUint32(length)
  21982. * stack[4] = result array
  21983. */
  21984. start = duk_to_int_clamped(thr, 0, -len, len);
  21985. if (start < 0) {
  21986. start = len + start;
  21987. }
  21988. /* XXX: could duk_is_undefined() provide defaulting undefined to 'len'
  21989. * (the upper limit)?
  21990. */
  21991. if (duk_is_undefined(thr, 1)) {
  21992. end = len;
  21993. } else {
  21994. end = duk_to_int_clamped(thr, 1, -len, len);
  21995. if (end < 0) {
  21996. end = len + end;
  21997. }
  21998. }
  21999. DUK_ASSERT(start >= 0 && start <= len);
  22000. DUK_ASSERT(end >= 0 && end <= len);
  22001. idx = 0;
  22002. for (i = start; i < end; i++) {
  22003. DUK_ASSERT_TOP(thr, 5);
  22004. if (duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) {
  22005. duk_xdef_prop_index_wec(thr, 4, idx);
  22006. res_length = idx + 1;
  22007. } else {
  22008. duk_pop_undefined(thr);
  22009. }
  22010. idx++;
  22011. DUK_ASSERT_TOP(thr, 5);
  22012. }
  22013. duk_push_u32(thr, res_length);
  22014. duk_xdef_prop_stridx_short(thr, 4, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W);
  22015. DUK_ASSERT_TOP(thr, 5);
  22016. return 1;
  22017. }
  22018. /*
  22019. * shift()
  22020. */
  22021. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_shift(duk_hthread *thr) {
  22022. duk_uint32_t len;
  22023. duk_uint32_t i;
  22024. len = duk__push_this_obj_len_u32(thr);
  22025. if (len == 0) {
  22026. duk_push_int(thr, 0);
  22027. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH);
  22028. return 0;
  22029. }
  22030. duk_get_prop_index(thr, 0, 0);
  22031. /* stack[0] = object (this)
  22032. * stack[1] = ToUint32(length)
  22033. * stack[2] = elem at index 0 (retval)
  22034. */
  22035. for (i = 1; i < len; i++) {
  22036. DUK_ASSERT_TOP(thr, 3);
  22037. if (duk_get_prop_index(thr, 0, (duk_uarridx_t) i)) {
  22038. /* fromPresent = true */
  22039. duk_put_prop_index(thr, 0, (duk_uarridx_t) (i - 1));
  22040. } else {
  22041. /* fromPresent = false */
  22042. duk_del_prop_index(thr, 0, (duk_uarridx_t) (i - 1));
  22043. duk_pop_undefined(thr);
  22044. }
  22045. }
  22046. duk_del_prop_index(thr, 0, (duk_uarridx_t) (len - 1));
  22047. duk_push_u32(thr, (duk_uint32_t) (len - 1));
  22048. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH);
  22049. DUK_ASSERT_TOP(thr, 3);
  22050. return 1;
  22051. }
  22052. /*
  22053. * unshift()
  22054. */
  22055. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_unshift(duk_hthread *thr) {
  22056. duk_idx_t nargs;
  22057. duk_uint32_t len;
  22058. duk_uint32_t i;
  22059. nargs = duk_get_top(thr);
  22060. len = duk__push_this_obj_len_u32(thr);
  22061. /* stack[0...nargs-1] = unshift args (vararg)
  22062. * stack[nargs] = ToObject(this)
  22063. * stack[nargs+1] = ToUint32(length)
  22064. */
  22065. DUK_ASSERT_TOP(thr, nargs + 2);
  22066. /* Note: unshift() may operate on indices above unsigned 32-bit range
  22067. * and the final length may be >= 2**32. However, we restrict the
  22068. * final result to 32-bit range for practicality.
  22069. */
  22070. if (len + (duk_uint32_t) nargs < len) {
  22071. DUK_D(DUK_DPRINT("Array.prototype.unshift() would go beyond 32-bit length, throw"));
  22072. DUK_DCERROR_RANGE_INVALID_LENGTH(thr);
  22073. }
  22074. i = len;
  22075. while (i > 0) {
  22076. DUK_ASSERT_TOP(thr, nargs + 2);
  22077. i--;
  22078. /* k+argCount-1; note that may be above 32-bit range */
  22079. if (duk_get_prop_index(thr, -2, (duk_uarridx_t) i)) {
  22080. /* fromPresent = true */
  22081. /* [ ... ToObject(this) ToUint32(length) val ] */
  22082. duk_put_prop_index(thr, -3, (duk_uarridx_t) (i + (duk_uint32_t) nargs)); /* -> [ ... ToObject(this) ToUint32(length) ] */
  22083. } else {
  22084. /* fromPresent = false */
  22085. /* [ ... ToObject(this) ToUint32(length) val ] */
  22086. duk_pop_undefined(thr);
  22087. duk_del_prop_index(thr, -2, (duk_uarridx_t) (i + (duk_uint32_t) nargs)); /* -> [ ... ToObject(this) ToUint32(length) ] */
  22088. }
  22089. DUK_ASSERT_TOP(thr, nargs + 2);
  22090. }
  22091. for (i = 0; i < (duk_uint32_t) nargs; i++) {
  22092. DUK_ASSERT_TOP(thr, nargs + 2);
  22093. duk_dup(thr, (duk_idx_t) i); /* -> [ ... ToObject(this) ToUint32(length) arg[i] ] */
  22094. duk_put_prop_index(thr, -3, (duk_uarridx_t) i);
  22095. DUK_ASSERT_TOP(thr, nargs + 2);
  22096. }
  22097. DUK_ASSERT_TOP(thr, nargs + 2);
  22098. duk_push_u32(thr, len + (duk_uint32_t) nargs);
  22099. duk_dup_top(thr); /* -> [ ... ToObject(this) ToUint32(length) final_len final_len ] */
  22100. duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH);
  22101. return 1;
  22102. }
  22103. /*
  22104. * indexOf(), lastIndexOf()
  22105. */
  22106. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_indexof_shared(duk_hthread *thr) {
  22107. duk_idx_t nargs;
  22108. duk_int_t i, len;
  22109. duk_int_t from_idx;
  22110. duk_small_int_t idx_step = duk_get_current_magic(thr); /* idx_step is +1 for indexOf, -1 for lastIndexOf */
  22111. /* lastIndexOf() needs to be a vararg function because we must distinguish
  22112. * between an undefined fromIndex and a "not given" fromIndex; indexOf() is
  22113. * made vararg for symmetry although it doesn't strictly need to be.
  22114. */
  22115. nargs = duk_get_top(thr);
  22116. duk_set_top(thr, 2);
  22117. /* XXX: must be able to represent -len */
  22118. len = (duk_int_t) duk__push_this_obj_len_u32_limited(thr);
  22119. if (len == 0) {
  22120. goto not_found;
  22121. }
  22122. /* Index clamping is a bit tricky, we must ensure that we'll only iterate
  22123. * through elements that exist and that the specific requirements from E5.1
  22124. * Sections 15.4.4.14 and 15.4.4.15 are fulfilled; especially:
  22125. *
  22126. * - indexOf: clamp to [-len,len], negative handling -> [0,len],
  22127. * if clamped result is len, for-loop bails out immediately
  22128. *
  22129. * - lastIndexOf: clamp to [-len-1, len-1], negative handling -> [-1, len-1],
  22130. * if clamped result is -1, for-loop bails out immediately
  22131. *
  22132. * If fromIndex is not given, ToInteger(undefined) = 0, which is correct
  22133. * for indexOf() but incorrect for lastIndexOf(). Hence special handling,
  22134. * and why lastIndexOf() needs to be a vararg function.
  22135. */
  22136. if (nargs >= 2) {
  22137. /* indexOf: clamp fromIndex to [-len, len]
  22138. * (if fromIndex == len, for-loop terminates directly)
  22139. *
  22140. * lastIndexOf: clamp fromIndex to [-len - 1, len - 1]
  22141. * (if clamped to -len-1 -> fromIndex becomes -1, terminates for-loop directly)
  22142. */
  22143. from_idx = duk_to_int_clamped(thr,
  22144. 1,
  22145. (idx_step > 0 ? -len : -len - 1),
  22146. (idx_step > 0 ? len : len - 1));
  22147. if (from_idx < 0) {
  22148. /* for lastIndexOf, result may be -1 (mark immediate termination) */
  22149. from_idx = len + from_idx;
  22150. }
  22151. } else {
  22152. /* for indexOf, ToInteger(undefined) would be 0, i.e. correct, but
  22153. * handle both indexOf and lastIndexOf specially here.
  22154. */
  22155. if (idx_step > 0) {
  22156. from_idx = 0;
  22157. } else {
  22158. from_idx = len - 1;
  22159. }
  22160. }
  22161. /* stack[0] = searchElement
  22162. * stack[1] = fromIndex
  22163. * stack[2] = object
  22164. * stack[3] = length (not needed, but not popped above)
  22165. */
  22166. for (i = from_idx; i >= 0 && i < len; i += idx_step) {
  22167. DUK_ASSERT_TOP(thr, 4);
  22168. if (duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) {
  22169. DUK_ASSERT_TOP(thr, 5);
  22170. if (duk_strict_equals(thr, 0, 4)) {
  22171. duk_push_int(thr, i);
  22172. return 1;
  22173. }
  22174. }
  22175. duk_pop_unsafe(thr);
  22176. }
  22177. not_found:
  22178. duk_push_int(thr, -1);
  22179. return 1;
  22180. }
  22181. /*
  22182. * every(), some(), forEach(), map(), filter()
  22183. */
  22184. #define DUK__ITER_EVERY 0
  22185. #define DUK__ITER_SOME 1
  22186. #define DUK__ITER_FOREACH 2
  22187. #define DUK__ITER_MAP 3
  22188. #define DUK__ITER_FILTER 4
  22189. /* XXX: This helper is a bit awkward because the handling for the different iteration
  22190. * callers is quite different. This now compiles to a bit less than 500 bytes, so with
  22191. * 5 callers the net result is about 100 bytes / caller.
  22192. */
  22193. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_iter_shared(duk_hthread *thr) {
  22194. duk_uint32_t len;
  22195. duk_uint32_t i;
  22196. duk_uarridx_t k;
  22197. duk_bool_t bval;
  22198. duk_small_int_t iter_type = duk_get_current_magic(thr);
  22199. duk_uint32_t res_length = 0;
  22200. /* each call this helper serves has nargs==2 */
  22201. DUK_ASSERT_TOP(thr, 2);
  22202. len = duk__push_this_obj_len_u32(thr);
  22203. duk_require_callable(thr, 0);
  22204. /* if thisArg not supplied, behave as if undefined was supplied */
  22205. if (iter_type == DUK__ITER_MAP || iter_type == DUK__ITER_FILTER) {
  22206. duk_push_array(thr);
  22207. } else {
  22208. duk_push_undefined(thr);
  22209. }
  22210. /* stack[0] = callback
  22211. * stack[1] = thisArg
  22212. * stack[2] = object
  22213. * stack[3] = ToUint32(length) (unused, but avoid unnecessary pop)
  22214. * stack[4] = result array (or undefined)
  22215. */
  22216. k = 0; /* result index for filter() */
  22217. for (i = 0; i < len; i++) {
  22218. DUK_ASSERT_TOP(thr, 5);
  22219. if (!duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) {
  22220. #if defined(DUK_USE_NONSTD_ARRAY_MAP_TRAILER)
  22221. /* Real world behavior for map(): trailing non-existent
  22222. * elements don't invoke the user callback, but are still
  22223. * counted towards result 'length'.
  22224. */
  22225. if (iter_type == DUK__ITER_MAP) {
  22226. res_length = i + 1;
  22227. }
  22228. #else
  22229. /* Standard behavior for map(): trailing non-existent
  22230. * elements don't invoke the user callback and are not
  22231. * counted towards result 'length'.
  22232. */
  22233. #endif
  22234. duk_pop_undefined(thr);
  22235. continue;
  22236. }
  22237. /* The original value needs to be preserved for filter(), hence
  22238. * this funny order. We can't re-get the value because of side
  22239. * effects.
  22240. */
  22241. duk_dup_0(thr);
  22242. duk_dup_1(thr);
  22243. duk_dup_m3(thr);
  22244. duk_push_u32(thr, i);
  22245. duk_dup_2(thr); /* [ ... val callback thisArg val i obj ] */
  22246. duk_call_method(thr, 3); /* -> [ ... val retval ] */
  22247. switch (iter_type) {
  22248. case DUK__ITER_EVERY:
  22249. bval = duk_to_boolean(thr, -1);
  22250. if (!bval) {
  22251. /* stack top contains 'false' */
  22252. return 1;
  22253. }
  22254. break;
  22255. case DUK__ITER_SOME:
  22256. bval = duk_to_boolean(thr, -1);
  22257. if (bval) {
  22258. /* stack top contains 'true' */
  22259. return 1;
  22260. }
  22261. break;
  22262. case DUK__ITER_FOREACH:
  22263. /* nop */
  22264. break;
  22265. case DUK__ITER_MAP:
  22266. duk_dup_top(thr);
  22267. duk_xdef_prop_index_wec(thr, 4, (duk_uarridx_t) i); /* retval to result[i] */
  22268. res_length = i + 1;
  22269. break;
  22270. case DUK__ITER_FILTER:
  22271. bval = duk_to_boolean(thr, -1);
  22272. if (bval) {
  22273. duk_dup_m2(thr); /* orig value */
  22274. duk_xdef_prop_index_wec(thr, 4, (duk_uarridx_t) k);
  22275. k++;
  22276. res_length = k;
  22277. }
  22278. break;
  22279. default:
  22280. DUK_UNREACHABLE();
  22281. break;
  22282. }
  22283. duk_pop_2_unsafe(thr);
  22284. DUK_ASSERT_TOP(thr, 5);
  22285. }
  22286. switch (iter_type) {
  22287. case DUK__ITER_EVERY:
  22288. duk_push_true(thr);
  22289. break;
  22290. case DUK__ITER_SOME:
  22291. duk_push_false(thr);
  22292. break;
  22293. case DUK__ITER_FOREACH:
  22294. duk_push_undefined(thr);
  22295. break;
  22296. case DUK__ITER_MAP:
  22297. case DUK__ITER_FILTER:
  22298. DUK_ASSERT_TOP(thr, 5);
  22299. DUK_ASSERT(duk_is_array(thr, -1)); /* topmost element is the result array already */
  22300. duk_push_u32(thr, res_length);
  22301. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W);
  22302. break;
  22303. default:
  22304. DUK_UNREACHABLE();
  22305. break;
  22306. }
  22307. return 1;
  22308. }
  22309. /*
  22310. * reduce(), reduceRight()
  22311. */
  22312. DUK_INTERNAL duk_ret_t duk_bi_array_prototype_reduce_shared(duk_hthread *thr) {
  22313. duk_idx_t nargs;
  22314. duk_bool_t have_acc;
  22315. duk_uint32_t i, len;
  22316. duk_small_int_t idx_step = duk_get_current_magic(thr); /* idx_step is +1 for reduce, -1 for reduceRight */
  22317. /* We're a varargs function because we need to detect whether
  22318. * initialValue was given or not.
  22319. */
  22320. nargs = duk_get_top(thr);
  22321. DUK_DDD(DUK_DDDPRINT("nargs=%ld", (long) nargs));
  22322. duk_set_top(thr, 2);
  22323. len = duk__push_this_obj_len_u32(thr);
  22324. duk_require_callable(thr, 0);
  22325. /* stack[0] = callback fn
  22326. * stack[1] = initialValue
  22327. * stack[2] = object (coerced this)
  22328. * stack[3] = length (not needed, but not popped above)
  22329. * stack[4] = accumulator
  22330. */
  22331. have_acc = 0;
  22332. if (nargs >= 2) {
  22333. duk_dup_1(thr);
  22334. have_acc = 1;
  22335. }
  22336. DUK_DDD(DUK_DDDPRINT("have_acc=%ld, acc=%!T",
  22337. (long) have_acc, (duk_tval *) duk_get_tval(thr, 3)));
  22338. /* For len == 0, i is initialized to len - 1 which underflows.
  22339. * The condition (i < len) will then exit the for-loop on the
  22340. * first round which is correct. Similarly, loop termination
  22341. * happens by i underflowing.
  22342. */
  22343. for (i = (idx_step >= 0 ? 0 : len - 1);
  22344. i < len; /* i >= 0 would always be true */
  22345. i += (duk_uint32_t) idx_step) {
  22346. DUK_DDD(DUK_DDDPRINT("i=%ld, len=%ld, have_acc=%ld, top=%ld, acc=%!T",
  22347. (long) i, (long) len, (long) have_acc,
  22348. (long) duk_get_top(thr),
  22349. (duk_tval *) duk_get_tval(thr, 4)));
  22350. DUK_ASSERT((have_acc && duk_get_top(thr) == 5) ||
  22351. (!have_acc && duk_get_top(thr) == 4));
  22352. if (!duk_has_prop_index(thr, 2, (duk_uarridx_t) i)) {
  22353. continue;
  22354. }
  22355. if (!have_acc) {
  22356. DUK_ASSERT_TOP(thr, 4);
  22357. duk_get_prop_index(thr, 2, (duk_uarridx_t) i);
  22358. have_acc = 1;
  22359. DUK_ASSERT_TOP(thr, 5);
  22360. } else {
  22361. DUK_ASSERT_TOP(thr, 5);
  22362. duk_dup_0(thr);
  22363. duk_dup(thr, 4);
  22364. duk_get_prop_index(thr, 2, (duk_uarridx_t) i);
  22365. duk_push_u32(thr, i);
  22366. duk_dup_2(thr);
  22367. DUK_DDD(DUK_DDDPRINT("calling reduce function: func=%!T, prev=%!T, curr=%!T, idx=%!T, obj=%!T",
  22368. (duk_tval *) duk_get_tval(thr, -5), (duk_tval *) duk_get_tval(thr, -4),
  22369. (duk_tval *) duk_get_tval(thr, -3), (duk_tval *) duk_get_tval(thr, -2),
  22370. (duk_tval *) duk_get_tval(thr, -1)));
  22371. duk_call(thr, 4);
  22372. DUK_DDD(DUK_DDDPRINT("-> result: %!T", (duk_tval *) duk_get_tval(thr, -1)));
  22373. duk_replace(thr, 4);
  22374. DUK_ASSERT_TOP(thr, 5);
  22375. }
  22376. }
  22377. if (!have_acc) {
  22378. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  22379. }
  22380. DUK_ASSERT_TOP(thr, 5);
  22381. return 1;
  22382. }
  22383. #endif /* DUK_USE_ARRAY_BUILTIN */
  22384. /* automatic undefs */
  22385. #undef DUK__ARRAY_MID_JOIN_LIMIT
  22386. #undef DUK__ITER_EVERY
  22387. #undef DUK__ITER_FILTER
  22388. #undef DUK__ITER_FOREACH
  22389. #undef DUK__ITER_MAP
  22390. #undef DUK__ITER_SOME
  22391. #line 1 "duk_bi_boolean.c"
  22392. /*
  22393. * Boolean built-ins
  22394. */
  22395. /* #include duk_internal.h -> already included */
  22396. #if defined(DUK_USE_BOOLEAN_BUILTIN)
  22397. /* Shared helper to provide toString() and valueOf(). Checks 'this', gets
  22398. * the primitive value to stack top, and optionally coerces with ToString().
  22399. */
  22400. DUK_INTERNAL duk_ret_t duk_bi_boolean_prototype_tostring_shared(duk_hthread *thr) {
  22401. duk_tval *tv;
  22402. duk_hobject *h;
  22403. duk_small_int_t coerce_tostring = duk_get_current_magic(thr);
  22404. /* XXX: there is room to use a shared helper here, many built-ins
  22405. * check the 'this' type, and if it's an object, check its class,
  22406. * then get its internal value, etc.
  22407. */
  22408. duk_push_this(thr);
  22409. tv = duk_get_tval(thr, -1);
  22410. DUK_ASSERT(tv != NULL);
  22411. if (DUK_TVAL_IS_BOOLEAN(tv)) {
  22412. goto type_ok;
  22413. } else if (DUK_TVAL_IS_OBJECT(tv)) {
  22414. h = DUK_TVAL_GET_OBJECT(tv);
  22415. DUK_ASSERT(h != NULL);
  22416. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_BOOLEAN) {
  22417. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  22418. DUK_ASSERT(duk_is_boolean(thr, -1));
  22419. goto type_ok;
  22420. }
  22421. }
  22422. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  22423. /* never here */
  22424. type_ok:
  22425. if (coerce_tostring) {
  22426. duk_to_string(thr, -1);
  22427. }
  22428. return 1;
  22429. }
  22430. DUK_INTERNAL duk_ret_t duk_bi_boolean_constructor(duk_hthread *thr) {
  22431. duk_hobject *h_this;
  22432. duk_to_boolean(thr, 0);
  22433. if (duk_is_constructor_call(thr)) {
  22434. /* XXX: helper; rely on Boolean.prototype as being non-writable, non-configurable */
  22435. duk_push_this(thr);
  22436. h_this = duk_known_hobject(thr, -1);
  22437. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_this) == thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE]);
  22438. DUK_HOBJECT_SET_CLASS_NUMBER(h_this, DUK_HOBJECT_CLASS_BOOLEAN);
  22439. duk_dup_0(thr); /* -> [ val obj val ] */
  22440. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); /* XXX: proper flags? */
  22441. } /* unbalanced stack */
  22442. return 1;
  22443. }
  22444. #endif /* DUK_USE_BOOLEAN_BUILTIN */
  22445. #line 1 "duk_bi_buffer.c"
  22446. /*
  22447. * ES2015 TypedArray and Node.js Buffer built-ins
  22448. */
  22449. /* #include duk_internal.h -> already included */
  22450. /*
  22451. * Helpers for buffer handling, enabled with DUK_USE_BUFFEROBJECT_SUPPORT.
  22452. */
  22453. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  22454. /* Map class number (minus DUK_HOBJECT_CLASS_BUFOBJ_MIN) to a bidx for the
  22455. * default internal prototype.
  22456. */
  22457. static const duk_uint8_t duk__buffer_proto_from_classnum[] = {
  22458. DUK_BIDX_ARRAYBUFFER_PROTOTYPE,
  22459. DUK_BIDX_DATAVIEW_PROTOTYPE,
  22460. DUK_BIDX_INT8ARRAY_PROTOTYPE,
  22461. DUK_BIDX_UINT8ARRAY_PROTOTYPE,
  22462. DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE,
  22463. DUK_BIDX_INT16ARRAY_PROTOTYPE,
  22464. DUK_BIDX_UINT16ARRAY_PROTOTYPE,
  22465. DUK_BIDX_INT32ARRAY_PROTOTYPE,
  22466. DUK_BIDX_UINT32ARRAY_PROTOTYPE,
  22467. DUK_BIDX_FLOAT32ARRAY_PROTOTYPE,
  22468. DUK_BIDX_FLOAT64ARRAY_PROTOTYPE
  22469. };
  22470. /* Map DUK_HBUFOBJ_ELEM_xxx to duk_hobject class number.
  22471. * Sync with duk_hbufobj.h and duk_hobject.h.
  22472. */
  22473. static const duk_uint8_t duk__buffer_class_from_elemtype[9] = {
  22474. DUK_HOBJECT_CLASS_UINT8ARRAY,
  22475. DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY,
  22476. DUK_HOBJECT_CLASS_INT8ARRAY,
  22477. DUK_HOBJECT_CLASS_UINT16ARRAY,
  22478. DUK_HOBJECT_CLASS_INT16ARRAY,
  22479. DUK_HOBJECT_CLASS_UINT32ARRAY,
  22480. DUK_HOBJECT_CLASS_INT32ARRAY,
  22481. DUK_HOBJECT_CLASS_FLOAT32ARRAY,
  22482. DUK_HOBJECT_CLASS_FLOAT64ARRAY
  22483. };
  22484. /* Map DUK_HBUFOBJ_ELEM_xxx to prototype object built-in index.
  22485. * Sync with duk_hbufobj.h.
  22486. */
  22487. static const duk_uint8_t duk__buffer_proto_from_elemtype[9] = {
  22488. DUK_BIDX_UINT8ARRAY_PROTOTYPE,
  22489. DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE,
  22490. DUK_BIDX_INT8ARRAY_PROTOTYPE,
  22491. DUK_BIDX_UINT16ARRAY_PROTOTYPE,
  22492. DUK_BIDX_INT16ARRAY_PROTOTYPE,
  22493. DUK_BIDX_UINT32ARRAY_PROTOTYPE,
  22494. DUK_BIDX_INT32ARRAY_PROTOTYPE,
  22495. DUK_BIDX_FLOAT32ARRAY_PROTOTYPE,
  22496. DUK_BIDX_FLOAT64ARRAY_PROTOTYPE
  22497. };
  22498. /* Map DUK__FLD_xxx to byte size. */
  22499. static const duk_uint8_t duk__buffer_nbytes_from_fldtype[6] = {
  22500. 1, /* DUK__FLD_8BIT */
  22501. 2, /* DUK__FLD_16BIT */
  22502. 4, /* DUK__FLD_32BIT */
  22503. 4, /* DUK__FLD_FLOAT */
  22504. 8, /* DUK__FLD_DOUBLE */
  22505. 0 /* DUK__FLD_VARINT; not relevant here */
  22506. };
  22507. /* Bitfield for each DUK_HBUFOBJ_ELEM_xxx indicating which element types
  22508. * are compatible with a blind byte copy for the TypedArray set() method (also
  22509. * used for TypedArray constructor). Array index is target buffer elem type,
  22510. * bitfield indicates compatible source types. The types must have same byte
  22511. * size and they must be coercion compatible.
  22512. */
  22513. #if !defined(DUK_USE_PREFER_SIZE)
  22514. static duk_uint16_t duk__buffer_elemtype_copy_compatible[9] = {
  22515. /* xxx -> DUK_HBUFOBJ_ELEM_UINT8 */
  22516. (1U << DUK_HBUFOBJ_ELEM_UINT8) |
  22517. (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED) |
  22518. (1U << DUK_HBUFOBJ_ELEM_INT8),
  22519. /* xxx -> DUK_HBUFOBJ_ELEM_UINT8CLAMPED
  22520. * Note: INT8 is -not- copy compatible, e.g. -1 would coerce to 0x00.
  22521. */
  22522. (1U << DUK_HBUFOBJ_ELEM_UINT8) |
  22523. (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED),
  22524. /* xxx -> DUK_HBUFOBJ_ELEM_INT8 */
  22525. (1U << DUK_HBUFOBJ_ELEM_UINT8) |
  22526. (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED) |
  22527. (1U << DUK_HBUFOBJ_ELEM_INT8),
  22528. /* xxx -> DUK_HBUFOBJ_ELEM_UINT16 */
  22529. (1U << DUK_HBUFOBJ_ELEM_UINT16) |
  22530. (1U << DUK_HBUFOBJ_ELEM_INT16),
  22531. /* xxx -> DUK_HBUFOBJ_ELEM_INT16 */
  22532. (1U << DUK_HBUFOBJ_ELEM_UINT16) |
  22533. (1U << DUK_HBUFOBJ_ELEM_INT16),
  22534. /* xxx -> DUK_HBUFOBJ_ELEM_UINT32 */
  22535. (1U << DUK_HBUFOBJ_ELEM_UINT32) |
  22536. (1U << DUK_HBUFOBJ_ELEM_INT32),
  22537. /* xxx -> DUK_HBUFOBJ_ELEM_INT32 */
  22538. (1U << DUK_HBUFOBJ_ELEM_UINT32) |
  22539. (1U << DUK_HBUFOBJ_ELEM_INT32),
  22540. /* xxx -> DUK_HBUFOBJ_ELEM_FLOAT32 */
  22541. (1U << DUK_HBUFOBJ_ELEM_FLOAT32),
  22542. /* xxx -> DUK_HBUFOBJ_ELEM_FLOAT64 */
  22543. (1U << DUK_HBUFOBJ_ELEM_FLOAT64)
  22544. };
  22545. #endif /* !DUK_USE_PREFER_SIZE */
  22546. DUK_LOCAL duk_hbufobj *duk__hbufobj_promote_this(duk_hthread *thr) {
  22547. duk_tval *tv_dst;
  22548. duk_hbufobj *res;
  22549. duk_push_this(thr);
  22550. DUK_ASSERT(duk_is_buffer(thr, -1));
  22551. res = (duk_hbufobj *) duk_to_hobject(thr, -1);
  22552. DUK_ASSERT_HBUFOBJ_VALID(res);
  22553. DUK_DD(DUK_DDPRINT("promoted 'this' automatically to an ArrayBuffer: %!iT", duk_get_tval(thr, -1)));
  22554. tv_dst = duk_get_borrowed_this_tval(thr);
  22555. DUK_TVAL_SET_OBJECT_UPDREF(thr, tv_dst, (duk_hobject *) res);
  22556. duk_pop(thr);
  22557. return res;
  22558. }
  22559. #define DUK__BUFOBJ_FLAG_THROW (1 << 0)
  22560. #define DUK__BUFOBJ_FLAG_PROMOTE (1 << 1)
  22561. /* Shared helper. When DUK__BUFOBJ_FLAG_PROMOTE is given, the return value is
  22562. * always a duk_hbufobj *. Without the flag the return value can also be a
  22563. * plain buffer, and the caller must check for it using DUK_HEAPHDR_IS_BUFFER().
  22564. */
  22565. DUK_LOCAL duk_heaphdr *duk__getrequire_bufobj_this(duk_hthread *thr, duk_small_uint_t flags) {
  22566. duk_tval *tv;
  22567. duk_hbufobj *h_this;
  22568. DUK_ASSERT(thr != NULL);
  22569. tv = duk_get_borrowed_this_tval(thr);
  22570. DUK_ASSERT(tv != NULL);
  22571. if (DUK_TVAL_IS_OBJECT(tv)) {
  22572. h_this = (duk_hbufobj *) DUK_TVAL_GET_OBJECT(tv);
  22573. DUK_ASSERT(h_this != NULL);
  22574. if (DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) h_this)) {
  22575. DUK_ASSERT_HBUFOBJ_VALID(h_this);
  22576. return (duk_heaphdr *) h_this;
  22577. }
  22578. } else if (DUK_TVAL_IS_BUFFER(tv)) {
  22579. if (flags & DUK__BUFOBJ_FLAG_PROMOTE) {
  22580. /* Promote a plain buffer to a Uint8Array. This is very
  22581. * inefficient but allows plain buffer to be used wherever an
  22582. * Uint8Array is used with very small cost; hot path functions
  22583. * like index read/write calls should provide direct buffer
  22584. * support to avoid promotion.
  22585. */
  22586. /* XXX: make this conditional to a flag if call sites need it? */
  22587. h_this = duk__hbufobj_promote_this(thr);
  22588. DUK_ASSERT(h_this != NULL);
  22589. DUK_ASSERT_HBUFOBJ_VALID(h_this);
  22590. return (duk_heaphdr *) h_this;
  22591. } else {
  22592. /* XXX: ugly, share return pointer for duk_hbuffer. */
  22593. return (duk_heaphdr *) DUK_TVAL_GET_BUFFER(tv);
  22594. }
  22595. }
  22596. if (flags & DUK__BUFOBJ_FLAG_THROW) {
  22597. DUK_ERROR_TYPE(thr, DUK_STR_NOT_BUFFER);
  22598. }
  22599. return NULL;
  22600. }
  22601. /* Check that 'this' is a duk_hbufobj and return a pointer to it. */
  22602. DUK_LOCAL duk_hbufobj *duk__get_bufobj_this(duk_hthread *thr) {
  22603. return (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_PROMOTE);
  22604. }
  22605. /* Check that 'this' is a duk_hbufobj and return a pointer to it
  22606. * (NULL if not).
  22607. */
  22608. DUK_LOCAL duk_hbufobj *duk__require_bufobj_this(duk_hthread *thr) {
  22609. return (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW | DUK__BUFOBJ_FLAG_PROMOTE);
  22610. }
  22611. /* Check that value is a duk_hbufobj and return a pointer to it. */
  22612. DUK_LOCAL duk_hbufobj *duk__require_bufobj_value(duk_hthread *thr, duk_idx_t idx) {
  22613. duk_tval *tv;
  22614. duk_hbufobj *h_obj;
  22615. /* Don't accept relative indices now. */
  22616. DUK_ASSERT(idx >= 0);
  22617. tv = duk_require_tval(thr, idx);
  22618. DUK_ASSERT(tv != NULL);
  22619. if (DUK_TVAL_IS_OBJECT(tv)) {
  22620. h_obj = (duk_hbufobj *) DUK_TVAL_GET_OBJECT(tv);
  22621. DUK_ASSERT(h_obj != NULL);
  22622. if (DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) h_obj)) {
  22623. DUK_ASSERT_HBUFOBJ_VALID(h_obj);
  22624. return h_obj;
  22625. }
  22626. } else if (DUK_TVAL_IS_BUFFER(tv)) {
  22627. h_obj = (duk_hbufobj *) duk_to_hobject(thr, idx);
  22628. DUK_ASSERT(h_obj != NULL);
  22629. DUK_ASSERT_HBUFOBJ_VALID(h_obj);
  22630. return h_obj;
  22631. }
  22632. DUK_ERROR_TYPE(thr, DUK_STR_NOT_BUFFER);
  22633. return NULL; /* not reachable */
  22634. }
  22635. DUK_LOCAL void duk__set_bufobj_buffer(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_hbuffer *h_val) {
  22636. DUK_ASSERT(thr != NULL);
  22637. DUK_ASSERT(h_bufobj != NULL);
  22638. DUK_ASSERT(h_bufobj->buf == NULL); /* no need to decref */
  22639. DUK_ASSERT(h_val != NULL);
  22640. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  22641. DUK_UNREF(thr);
  22642. h_bufobj->buf = h_val;
  22643. DUK_HBUFFER_INCREF(thr, h_val);
  22644. h_bufobj->length = (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_val);
  22645. DUK_ASSERT(h_bufobj->shift == 0);
  22646. DUK_ASSERT(h_bufobj->elem_type == DUK_HBUFOBJ_ELEM_UINT8);
  22647. DUK_ASSERT(h_bufobj->is_typedarray == 0);
  22648. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  22649. }
  22650. /* Shared offset/length coercion helper. */
  22651. DUK_LOCAL void duk__resolve_offset_opt_length(duk_hthread *thr,
  22652. duk_hbufobj *h_bufarg,
  22653. duk_idx_t idx_offset,
  22654. duk_idx_t idx_length,
  22655. duk_uint_t *out_offset,
  22656. duk_uint_t *out_length,
  22657. duk_bool_t throw_flag) {
  22658. duk_int_t offset_signed;
  22659. duk_int_t length_signed;
  22660. duk_uint_t offset;
  22661. duk_uint_t length;
  22662. offset_signed = duk_to_int(thr, idx_offset);
  22663. if (offset_signed < 0) {
  22664. goto fail_range;
  22665. }
  22666. offset = (duk_uint_t) offset_signed;
  22667. if (offset > h_bufarg->length) {
  22668. goto fail_range;
  22669. }
  22670. DUK_ASSERT_DISABLE(offset >= 0); /* unsigned */
  22671. DUK_ASSERT(offset <= h_bufarg->length);
  22672. if (duk_is_undefined(thr, idx_length)) {
  22673. DUK_ASSERT(h_bufarg->length >= offset);
  22674. length = h_bufarg->length - offset; /* >= 0 */
  22675. } else {
  22676. length_signed = duk_to_int(thr, idx_length);
  22677. if (length_signed < 0) {
  22678. goto fail_range;
  22679. }
  22680. length = (duk_uint_t) length_signed;
  22681. DUK_ASSERT(h_bufarg->length >= offset);
  22682. if (length > h_bufarg->length - offset) {
  22683. /* Unlike for negative arguments, some call sites
  22684. * want length to be clamped if it's positive.
  22685. */
  22686. if (throw_flag) {
  22687. goto fail_range;
  22688. } else {
  22689. length = h_bufarg->length - offset;
  22690. }
  22691. }
  22692. }
  22693. DUK_ASSERT_DISABLE(length >= 0); /* unsigned */
  22694. DUK_ASSERT(offset + length <= h_bufarg->length);
  22695. *out_offset = offset;
  22696. *out_length = length;
  22697. return;
  22698. fail_range:
  22699. DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARGS);
  22700. }
  22701. /* Shared lenient buffer length clamping helper. No negative indices, no
  22702. * element/byte shifting.
  22703. */
  22704. DUK_LOCAL void duk__clamp_startend_nonegidx_noshift(duk_hthread *thr,
  22705. duk_int_t buffer_length,
  22706. duk_idx_t idx_start,
  22707. duk_idx_t idx_end,
  22708. duk_int_t *out_start_offset,
  22709. duk_int_t *out_end_offset) {
  22710. duk_int_t start_offset;
  22711. duk_int_t end_offset;
  22712. DUK_ASSERT(out_start_offset != NULL);
  22713. DUK_ASSERT(out_end_offset != NULL);
  22714. /* undefined coerces to zero which is correct */
  22715. start_offset = duk_to_int_clamped(thr, idx_start, 0, buffer_length);
  22716. if (duk_is_undefined(thr, idx_end)) {
  22717. end_offset = buffer_length;
  22718. } else {
  22719. end_offset = duk_to_int_clamped(thr, idx_end, start_offset, buffer_length);
  22720. }
  22721. DUK_ASSERT(start_offset >= 0);
  22722. DUK_ASSERT(start_offset <= buffer_length);
  22723. DUK_ASSERT(end_offset >= 0);
  22724. DUK_ASSERT(end_offset <= buffer_length);
  22725. DUK_ASSERT(start_offset <= end_offset);
  22726. *out_start_offset = start_offset;
  22727. *out_end_offset = end_offset;
  22728. }
  22729. /* Shared lenient buffer length clamping helper. Indices are treated as
  22730. * element indices (though output values are byte offsets) which only
  22731. * really matters for TypedArray views as other buffer object have a zero
  22732. * shift. Negative indices are counted from end of input slice; crossed
  22733. * indices are clamped to zero length; and final indices are clamped
  22734. * against input slice. Used for e.g. ArrayBuffer slice().
  22735. */
  22736. DUK_LOCAL void duk__clamp_startend_negidx_shifted(duk_hthread *thr,
  22737. duk_int_t buffer_length,
  22738. duk_uint8_t buffer_shift,
  22739. duk_idx_t idx_start,
  22740. duk_idx_t idx_end,
  22741. duk_int_t *out_start_offset,
  22742. duk_int_t *out_end_offset) {
  22743. duk_int_t start_offset;
  22744. duk_int_t end_offset;
  22745. DUK_ASSERT(out_start_offset != NULL);
  22746. DUK_ASSERT(out_end_offset != NULL);
  22747. buffer_length >>= buffer_shift; /* as (full) elements */
  22748. /* Resolve start/end offset as element indices first; arguments
  22749. * at idx_start/idx_end are element offsets. Working with element
  22750. * indices first also avoids potential for wrapping.
  22751. */
  22752. start_offset = duk_to_int(thr, idx_start);
  22753. if (start_offset < 0) {
  22754. start_offset = buffer_length + start_offset;
  22755. }
  22756. if (duk_is_undefined(thr, idx_end)) {
  22757. end_offset = buffer_length;
  22758. } else {
  22759. end_offset = duk_to_int(thr, idx_end);
  22760. if (end_offset < 0) {
  22761. end_offset = buffer_length + end_offset;
  22762. }
  22763. }
  22764. /* Note: start_offset/end_offset can still be < 0 here. */
  22765. if (start_offset < 0) {
  22766. start_offset = 0;
  22767. } else if (start_offset > buffer_length) {
  22768. start_offset = buffer_length;
  22769. }
  22770. if (end_offset < start_offset) {
  22771. end_offset = start_offset;
  22772. } else if (end_offset > buffer_length) {
  22773. end_offset = buffer_length;
  22774. }
  22775. DUK_ASSERT(start_offset >= 0);
  22776. DUK_ASSERT(start_offset <= buffer_length);
  22777. DUK_ASSERT(end_offset >= 0);
  22778. DUK_ASSERT(end_offset <= buffer_length);
  22779. DUK_ASSERT(start_offset <= end_offset);
  22780. /* Convert indices to byte offsets. */
  22781. start_offset <<= buffer_shift;
  22782. end_offset <<= buffer_shift;
  22783. *out_start_offset = start_offset;
  22784. *out_end_offset = end_offset;
  22785. }
  22786. DUK_INTERNAL void duk_hbufobj_promote_plain(duk_hthread *thr, duk_idx_t idx) {
  22787. if (duk_is_buffer(thr, idx)) {
  22788. duk_to_object(thr, idx);
  22789. }
  22790. }
  22791. DUK_INTERNAL void duk_hbufobj_push_uint8array_from_plain(duk_hthread *thr, duk_hbuffer *h_buf) {
  22792. /* Push Uint8Array which will share the same underlying buffer as
  22793. * the plain buffer argument. Also create an ArrayBuffer with the
  22794. * same backing for the result .buffer property.
  22795. */
  22796. duk_push_hbuffer(thr, h_buf);
  22797. duk_push_buffer_object(thr, -1, 0, (duk_size_t) DUK_HBUFFER_GET_SIZE(h_buf), DUK_BUFOBJ_UINT8ARRAY);
  22798. duk_remove_m2(thr);
  22799. #if 0
  22800. /* More verbose equivalent; maybe useful if e.g. .buffer is omitted. */
  22801. h_bufobj = duk_push_bufobj_raw(thr,
  22802. DUK_HOBJECT_FLAG_EXTENSIBLE |
  22803. DUK_HOBJECT_FLAG_BUFOBJ |
  22804. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_UINT8ARRAY),
  22805. DUK_BIDX_UINT8ARRAY_PROTOTYPE);
  22806. DUK_ASSERT(h_bufobj != NULL);
  22807. duk__set_bufobj_buffer(thr, h_bufobj, h_buf);
  22808. h_bufobj->is_typedarray = 1;
  22809. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  22810. h_arrbuf = duk_push_bufobj_raw(thr,
  22811. DUK_HOBJECT_FLAG_EXTENSIBLE |
  22812. DUK_HOBJECT_FLAG_BUFOBJ |
  22813. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER),
  22814. DUK_BIDX_ARRAYBUFFER_PROTOTYPE);
  22815. DUK_ASSERT(h_arrbuf != NULL);
  22816. duk__set_bufobj_buffer(thr, h_arrbuf, h_buf);
  22817. DUK_ASSERT(h_arrbuf->is_typedarray == 0);
  22818. DUK_ASSERT_HBUFOBJ_VALID(h_arrbuf);
  22819. DUK_ASSERT(h_bufobj->buf_prop == NULL);
  22820. h_bufobj->buf_prop = (duk_hobject *) h_arrbuf;
  22821. DUK_ASSERT(h_arrbuf != NULL);
  22822. DUK_HBUFOBJ_INCREF(thr, h_arrbuf);
  22823. duk_pop(thr);
  22824. #endif
  22825. }
  22826. /* Indexed read helper for buffer objects, also called from outside this file. */
  22827. DUK_INTERNAL void duk_hbufobj_push_validated_read(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size) {
  22828. duk_double_union du;
  22829. DUK_MEMCPY((void *) du.uc, (const void *) p, (size_t) elem_size);
  22830. switch (h_bufobj->elem_type) {
  22831. case DUK_HBUFOBJ_ELEM_UINT8:
  22832. case DUK_HBUFOBJ_ELEM_UINT8CLAMPED:
  22833. duk_push_uint(thr, (duk_uint_t) du.uc[0]);
  22834. break;
  22835. case DUK_HBUFOBJ_ELEM_INT8:
  22836. duk_push_int(thr, (duk_int_t) (duk_int8_t) du.uc[0]);
  22837. break;
  22838. case DUK_HBUFOBJ_ELEM_UINT16:
  22839. duk_push_uint(thr, (duk_uint_t) du.us[0]);
  22840. break;
  22841. case DUK_HBUFOBJ_ELEM_INT16:
  22842. duk_push_int(thr, (duk_int_t) (duk_int16_t) du.us[0]);
  22843. break;
  22844. case DUK_HBUFOBJ_ELEM_UINT32:
  22845. duk_push_uint(thr, (duk_uint_t) du.ui[0]);
  22846. break;
  22847. case DUK_HBUFOBJ_ELEM_INT32:
  22848. duk_push_int(thr, (duk_int_t) (duk_int32_t) du.ui[0]);
  22849. break;
  22850. case DUK_HBUFOBJ_ELEM_FLOAT32:
  22851. duk_push_number(thr, (duk_double_t) du.f[0]);
  22852. break;
  22853. case DUK_HBUFOBJ_ELEM_FLOAT64:
  22854. duk_push_number(thr, (duk_double_t) du.d);
  22855. break;
  22856. default:
  22857. DUK_UNREACHABLE();
  22858. }
  22859. }
  22860. /* Indexed write helper for buffer objects, also called from outside this file. */
  22861. DUK_INTERNAL void duk_hbufobj_validated_write(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size) {
  22862. duk_double_union du;
  22863. /* NOTE! Caller must ensure that any side effects from the
  22864. * coercions below are safe. If that cannot be guaranteed
  22865. * (which is normally the case), caller must coerce the
  22866. * argument using duk_to_number() before any pointer
  22867. * validations; the result of duk_to_number() always coerces
  22868. * without side effects here.
  22869. */
  22870. switch (h_bufobj->elem_type) {
  22871. case DUK_HBUFOBJ_ELEM_UINT8:
  22872. du.uc[0] = (duk_uint8_t) duk_to_uint32(thr, -1);
  22873. break;
  22874. case DUK_HBUFOBJ_ELEM_UINT8CLAMPED:
  22875. du.uc[0] = (duk_uint8_t) duk_to_uint8clamped(thr, -1);
  22876. break;
  22877. case DUK_HBUFOBJ_ELEM_INT8:
  22878. du.uc[0] = (duk_uint8_t) duk_to_int32(thr, -1);
  22879. break;
  22880. case DUK_HBUFOBJ_ELEM_UINT16:
  22881. du.us[0] = (duk_uint16_t) duk_to_uint32(thr, -1);
  22882. break;
  22883. case DUK_HBUFOBJ_ELEM_INT16:
  22884. du.us[0] = (duk_uint16_t) duk_to_int32(thr, -1);
  22885. break;
  22886. case DUK_HBUFOBJ_ELEM_UINT32:
  22887. du.ui[0] = (duk_uint32_t) duk_to_uint32(thr, -1);
  22888. break;
  22889. case DUK_HBUFOBJ_ELEM_INT32:
  22890. du.ui[0] = (duk_uint32_t) duk_to_int32(thr, -1);
  22891. break;
  22892. case DUK_HBUFOBJ_ELEM_FLOAT32:
  22893. du.f[0] = (duk_float_t) duk_to_number_m1(thr);
  22894. break;
  22895. case DUK_HBUFOBJ_ELEM_FLOAT64:
  22896. du.d = (duk_double_t) duk_to_number_m1(thr);
  22897. break;
  22898. default:
  22899. DUK_UNREACHABLE();
  22900. }
  22901. DUK_MEMCPY((void *) p, (const void *) du.uc, (size_t) elem_size);
  22902. }
  22903. /* Helper to create a fixed buffer from argument value at index 0.
  22904. * Node.js and allocPlain() compatible.
  22905. */
  22906. DUK_LOCAL duk_hbuffer *duk__hbufobj_fixed_from_argvalue(duk_hthread *thr) {
  22907. duk_int_t len;
  22908. duk_int_t i;
  22909. duk_size_t buf_size;
  22910. duk_uint8_t *buf;
  22911. switch (duk_get_type(thr, 0)) {
  22912. case DUK_TYPE_NUMBER: {
  22913. len = duk_to_int_clamped(thr, 0, 0, DUK_INT_MAX);
  22914. (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) len);
  22915. break;
  22916. }
  22917. case DUK_TYPE_BUFFER: { /* Treat like Uint8Array. */
  22918. goto slow_copy;
  22919. }
  22920. case DUK_TYPE_OBJECT: {
  22921. duk_hobject *h;
  22922. duk_hbufobj *h_bufobj;
  22923. /* For Node.js Buffers "Passing an ArrayBuffer returns a Buffer
  22924. * that shares allocated memory with the given ArrayBuffer."
  22925. * https://nodejs.org/api/buffer.html#buffer_buffer_from_buffer_alloc_and_buffer_allocunsafe
  22926. */
  22927. h = duk_known_hobject(thr, 0);
  22928. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAYBUFFER) {
  22929. DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ(h));
  22930. h_bufobj = (duk_hbufobj *) h;
  22931. if (DUK_UNLIKELY(h_bufobj->buf == NULL)) {
  22932. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  22933. }
  22934. if (DUK_UNLIKELY(h_bufobj->offset != 0 || h_bufobj->length != DUK_HBUFFER_GET_SIZE(h_bufobj->buf))) {
  22935. /* No support for ArrayBuffers with slice
  22936. * offset/length.
  22937. */
  22938. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  22939. }
  22940. duk_push_hbuffer(thr, h_bufobj->buf);
  22941. return h_bufobj->buf;
  22942. }
  22943. goto slow_copy;
  22944. }
  22945. case DUK_TYPE_STRING: {
  22946. /* ignore encoding for now */
  22947. duk_require_hstring_notsymbol(thr, 0);
  22948. duk_dup_0(thr);
  22949. (void) duk_to_buffer(thr, -1, &buf_size);
  22950. break;
  22951. }
  22952. default:
  22953. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  22954. }
  22955. done:
  22956. DUK_ASSERT(duk_is_buffer(thr, -1));
  22957. return duk_known_hbuffer(thr, -1);
  22958. slow_copy:
  22959. /* XXX: fast path for typed arrays and other buffer objects? */
  22960. (void) duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH);
  22961. len = duk_to_int_clamped(thr, -1, 0, DUK_INT_MAX);
  22962. duk_pop(thr);
  22963. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) len); /* no zeroing, all indices get initialized */
  22964. for (i = 0; i < len; i++) {
  22965. /* XXX: fast path for array or buffer arguments? */
  22966. duk_get_prop_index(thr, 0, (duk_uarridx_t) i);
  22967. buf[i] = (duk_uint8_t) (duk_to_uint32(thr, -1) & 0xffU);
  22968. duk_pop(thr);
  22969. }
  22970. goto done;
  22971. }
  22972. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  22973. /*
  22974. * Node.js Buffer constructor
  22975. *
  22976. * Node.js Buffers are just Uint8Arrays with internal prototype set to
  22977. * Buffer.prototype so they're handled otherwise the same as Uint8Array.
  22978. * However, the constructor arguments are very different so a separate
  22979. * constructor entry point is used.
  22980. */
  22981. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  22982. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_constructor(duk_hthread *thr) {
  22983. duk_hbuffer *h_buf;
  22984. h_buf = duk__hbufobj_fixed_from_argvalue(thr);
  22985. DUK_ASSERT(h_buf != NULL);
  22986. duk_push_buffer_object(thr,
  22987. -1,
  22988. 0,
  22989. DUK_HBUFFER_FIXED_GET_SIZE((duk_hbuffer_fixed *) h_buf),
  22990. DUK_BUFOBJ_UINT8ARRAY);
  22991. duk_push_hobject_bidx(thr, DUK_BIDX_NODEJS_BUFFER_PROTOTYPE);
  22992. duk_set_prototype(thr, -2);
  22993. /* XXX: a more direct implementation */
  22994. return 1;
  22995. }
  22996. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  22997. /*
  22998. * ArrayBuffer, DataView, and TypedArray constructors
  22999. */
  23000. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23001. DUK_INTERNAL duk_ret_t duk_bi_arraybuffer_constructor(duk_hthread *thr) {
  23002. duk_hbufobj *h_bufobj;
  23003. duk_hbuffer *h_val;
  23004. duk_int_t len;
  23005. DUK_ASSERT_CTX_VALID(thr);
  23006. duk_require_constructor_call(thr);
  23007. len = duk_to_int(thr, 0);
  23008. if (len < 0) {
  23009. goto fail_length;
  23010. }
  23011. (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) len);
  23012. h_val = (duk_hbuffer *) duk_known_hbuffer(thr, -1);
  23013. h_bufobj = duk_push_bufobj_raw(thr,
  23014. DUK_HOBJECT_FLAG_EXTENSIBLE |
  23015. DUK_HOBJECT_FLAG_BUFOBJ |
  23016. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER),
  23017. DUK_BIDX_ARRAYBUFFER_PROTOTYPE);
  23018. DUK_ASSERT(h_bufobj != NULL);
  23019. duk__set_bufobj_buffer(thr, h_bufobj, h_val);
  23020. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  23021. return 1;
  23022. fail_length:
  23023. DUK_DCERROR_RANGE_INVALID_LENGTH(thr);
  23024. }
  23025. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23026. /* Format of magic, bits:
  23027. * 0...1: elem size shift (0-3)
  23028. * 2...5: elem type (DUK_HBUFOBJ_ELEM_xxx)
  23029. *
  23030. * XXX: add prototype bidx explicitly to magic instead of using a mapping?
  23031. */
  23032. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23033. DUK_INTERNAL duk_ret_t duk_bi_typedarray_constructor(duk_hthread *thr) {
  23034. duk_tval *tv;
  23035. duk_hobject *h_obj;
  23036. duk_hbufobj *h_bufobj = NULL;
  23037. duk_hbufobj *h_bufarg = NULL;
  23038. duk_hbuffer *h_val;
  23039. duk_small_uint_t magic;
  23040. duk_small_uint_t shift;
  23041. duk_small_uint_t elem_type;
  23042. duk_small_uint_t elem_size;
  23043. duk_small_uint_t class_num;
  23044. duk_small_uint_t proto_bidx;
  23045. duk_uint_t align_mask;
  23046. duk_uint_t elem_length;
  23047. duk_int_t elem_length_signed;
  23048. duk_uint_t byte_length;
  23049. duk_small_uint_t copy_mode;
  23050. /* XXX: The same copy helpers could be shared with at least some
  23051. * buffer functions.
  23052. */
  23053. duk_require_constructor_call(thr);
  23054. /* We could fit built-in index into magic but that'd make the magic
  23055. * number dependent on built-in numbering (genbuiltins.py doesn't
  23056. * handle that yet). So map both class and prototype from the
  23057. * element type.
  23058. */
  23059. magic = (duk_small_uint_t) duk_get_current_magic(thr);
  23060. shift = magic & 0x03U; /* bits 0...1: shift */
  23061. elem_type = (magic >> 2) & 0x0fU; /* bits 2...5: type */
  23062. elem_size = 1U << shift;
  23063. align_mask = elem_size - 1;
  23064. DUK_ASSERT(elem_type < sizeof(duk__buffer_proto_from_elemtype) / sizeof(duk_uint8_t));
  23065. proto_bidx = duk__buffer_proto_from_elemtype[elem_type];
  23066. DUK_ASSERT(proto_bidx < DUK_NUM_BUILTINS);
  23067. DUK_ASSERT(elem_type < sizeof(duk__buffer_class_from_elemtype) / sizeof(duk_uint8_t));
  23068. class_num = duk__buffer_class_from_elemtype[elem_type];
  23069. DUK_DD(DUK_DDPRINT("typedarray constructor, magic=%d, shift=%d, elem_type=%d, "
  23070. "elem_size=%d, proto_bidx=%d, class_num=%d",
  23071. (int) magic, (int) shift, (int) elem_type, (int) elem_size,
  23072. (int) proto_bidx, (int) class_num));
  23073. /* Argument variants. When the argument is an ArrayBuffer a view to
  23074. * the same buffer is created; otherwise a new ArrayBuffer is always
  23075. * created.
  23076. */
  23077. /* XXX: initial iteration to treat a plain buffer like an ArrayBuffer:
  23078. * coerce to an ArrayBuffer object and use that as .buffer. The underlying
  23079. * buffer will be the same but result .buffer !== inputPlainBuffer.
  23080. */
  23081. duk_hbufobj_promote_plain(thr, 0);
  23082. tv = duk_get_tval(thr, 0);
  23083. DUK_ASSERT(tv != NULL); /* arg count */
  23084. if (DUK_TVAL_IS_OBJECT(tv)) {
  23085. h_obj = DUK_TVAL_GET_OBJECT(tv);
  23086. DUK_ASSERT(h_obj != NULL);
  23087. if (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_ARRAYBUFFER) {
  23088. /* ArrayBuffer: unlike any other argument variant, create
  23089. * a view into the existing buffer.
  23090. */
  23091. duk_int_t byte_offset_signed;
  23092. duk_uint_t byte_offset;
  23093. h_bufarg = (duk_hbufobj *) h_obj;
  23094. byte_offset_signed = duk_to_int(thr, 1);
  23095. if (byte_offset_signed < 0) {
  23096. goto fail_arguments;
  23097. }
  23098. byte_offset = (duk_uint_t) byte_offset_signed;
  23099. if (byte_offset > h_bufarg->length ||
  23100. (byte_offset & align_mask) != 0) {
  23101. /* Must be >= 0 and multiple of element size. */
  23102. goto fail_arguments;
  23103. }
  23104. if (duk_is_undefined(thr, 2)) {
  23105. DUK_ASSERT(h_bufarg->length >= byte_offset);
  23106. byte_length = h_bufarg->length - byte_offset;
  23107. if ((byte_length & align_mask) != 0) {
  23108. /* Must be element size multiple from
  23109. * start offset to end of buffer.
  23110. */
  23111. goto fail_arguments;
  23112. }
  23113. elem_length = (byte_length >> shift);
  23114. } else {
  23115. elem_length_signed = duk_to_int(thr, 2);
  23116. if (elem_length_signed < 0) {
  23117. goto fail_arguments;
  23118. }
  23119. elem_length = (duk_uint_t) elem_length_signed;
  23120. byte_length = elem_length << shift;
  23121. if ((byte_length >> shift) != elem_length) {
  23122. /* Byte length would overflow. */
  23123. /* XXX: easier check with less code? */
  23124. goto fail_arguments;
  23125. }
  23126. DUK_ASSERT(h_bufarg->length >= byte_offset);
  23127. if (byte_length > h_bufarg->length - byte_offset) {
  23128. /* Not enough data. */
  23129. goto fail_arguments;
  23130. }
  23131. }
  23132. DUK_UNREF(elem_length);
  23133. DUK_ASSERT_DISABLE(byte_offset >= 0);
  23134. DUK_ASSERT(byte_offset <= h_bufarg->length);
  23135. DUK_ASSERT_DISABLE(byte_length >= 0);
  23136. DUK_ASSERT(byte_offset + byte_length <= h_bufarg->length);
  23137. DUK_ASSERT((elem_length << shift) == byte_length);
  23138. h_bufobj = duk_push_bufobj_raw(thr,
  23139. DUK_HOBJECT_FLAG_EXTENSIBLE |
  23140. DUK_HOBJECT_FLAG_BUFOBJ |
  23141. DUK_HOBJECT_CLASS_AS_FLAGS(class_num),
  23142. (duk_small_int_t) proto_bidx);
  23143. h_val = h_bufarg->buf;
  23144. if (h_val == NULL) {
  23145. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23146. }
  23147. h_bufobj->buf = h_val;
  23148. DUK_HBUFFER_INCREF(thr, h_val);
  23149. h_bufobj->offset = h_bufarg->offset + byte_offset;
  23150. h_bufobj->length = byte_length;
  23151. h_bufobj->shift = (duk_uint8_t) shift;
  23152. h_bufobj->elem_type = (duk_uint8_t) elem_type;
  23153. h_bufobj->is_typedarray = 1;
  23154. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  23155. /* Set .buffer to the argument ArrayBuffer. */
  23156. DUK_ASSERT(h_bufobj->buf_prop == NULL);
  23157. h_bufobj->buf_prop = (duk_hobject *) h_bufarg;
  23158. DUK_ASSERT(h_bufarg != NULL);
  23159. DUK_HBUFOBJ_INCREF(thr, h_bufarg);
  23160. return 1;
  23161. } else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
  23162. /* TypedArray (or other non-ArrayBuffer duk_hbufobj).
  23163. * Conceptually same behavior as for an Array-like argument,
  23164. * with a few fast paths.
  23165. */
  23166. h_bufarg = (duk_hbufobj *) h_obj;
  23167. DUK_ASSERT_HBUFOBJ_VALID(h_bufarg);
  23168. elem_length_signed = (duk_int_t) (h_bufarg->length >> h_bufarg->shift);
  23169. if (h_bufarg->buf == NULL) {
  23170. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23171. }
  23172. /* Select copy mode. Must take into account element
  23173. * compatibility and validity of the underlying source
  23174. * buffer.
  23175. */
  23176. DUK_DDD(DUK_DDDPRINT("selecting copy mode for bufobj arg, "
  23177. "src byte_length=%ld, src shift=%d, "
  23178. "src/dst elem_length=%ld; "
  23179. "dst shift=%d -> dst byte_length=%ld",
  23180. (long) h_bufarg->length, (int) h_bufarg->shift,
  23181. (long) elem_length_signed, (int) shift,
  23182. (long) (elem_length_signed << shift)));
  23183. copy_mode = 2; /* default is explicit index read/write copy */
  23184. #if !defined(DUK_USE_PREFER_SIZE)
  23185. /* With a size optimized build copy_mode 2 is enough.
  23186. * Modes 0 and 1 are faster but conceptually the same.
  23187. */
  23188. DUK_ASSERT(elem_type < sizeof(duk__buffer_elemtype_copy_compatible) / sizeof(duk_uint16_t));
  23189. if (DUK_HBUFOBJ_VALID_SLICE(h_bufarg)) {
  23190. if ((duk__buffer_elemtype_copy_compatible[elem_type] & (1 << h_bufarg->elem_type)) != 0) {
  23191. DUK_DDD(DUK_DDDPRINT("source/target are copy compatible, memcpy"));
  23192. DUK_ASSERT(shift == h_bufarg->shift); /* byte sizes will match */
  23193. copy_mode = 0;
  23194. } else {
  23195. DUK_DDD(DUK_DDDPRINT("source/target not copy compatible but valid, fast copy"));
  23196. copy_mode = 1;
  23197. }
  23198. }
  23199. #endif /* !DUK_USE_PREFER_SIZE */
  23200. } else {
  23201. /* Array or Array-like */
  23202. elem_length_signed = (duk_int_t) duk_get_length(thr, 0);
  23203. copy_mode = 2;
  23204. }
  23205. } else {
  23206. /* Non-object argument is simply int coerced, matches
  23207. * V8 behavior (except for "null", which we coerce to
  23208. * 0 but V8 TypeErrors).
  23209. */
  23210. elem_length_signed = duk_to_int(thr, 0);
  23211. copy_mode = 3;
  23212. }
  23213. if (elem_length_signed < 0) {
  23214. goto fail_arguments;
  23215. }
  23216. elem_length = (duk_uint_t) elem_length_signed;
  23217. byte_length = (duk_uint_t) (elem_length << shift);
  23218. if ((byte_length >> shift) != elem_length) {
  23219. /* Byte length would overflow. */
  23220. /* XXX: easier check with less code? */
  23221. goto fail_arguments;
  23222. }
  23223. DUK_DDD(DUK_DDDPRINT("elem_length=%ld, byte_length=%ld",
  23224. (long) elem_length, (long) byte_length));
  23225. /* ArrayBuffer argument is handled specially above; the rest of the
  23226. * argument variants are handled by shared code below.
  23227. *
  23228. * ArrayBuffer in h_bufobj->buf_prop is intentionally left unset.
  23229. * It will be automatically created by the .buffer accessor on
  23230. * first access.
  23231. */
  23232. /* Push the resulting view object on top of a plain fixed buffer. */
  23233. (void) duk_push_fixed_buffer(thr, byte_length);
  23234. h_val = duk_known_hbuffer(thr, -1);
  23235. DUK_ASSERT(h_val != NULL);
  23236. h_bufobj = duk_push_bufobj_raw(thr,
  23237. DUK_HOBJECT_FLAG_EXTENSIBLE |
  23238. DUK_HOBJECT_FLAG_BUFOBJ |
  23239. DUK_HOBJECT_CLASS_AS_FLAGS(class_num),
  23240. (duk_small_int_t) proto_bidx);
  23241. h_bufobj->buf = h_val;
  23242. DUK_HBUFFER_INCREF(thr, h_val);
  23243. DUK_ASSERT(h_bufobj->offset == 0);
  23244. h_bufobj->length = byte_length;
  23245. h_bufobj->shift = (duk_uint8_t) shift;
  23246. h_bufobj->elem_type = (duk_uint8_t) elem_type;
  23247. h_bufobj->is_typedarray = 1;
  23248. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  23249. /* Copy values, the copy method depends on the arguments.
  23250. *
  23251. * Copy mode decision may depend on the validity of the underlying
  23252. * buffer of the source argument; there must be no harmful side effects
  23253. * from there to here for copy_mode to still be valid.
  23254. */
  23255. DUK_DDD(DUK_DDDPRINT("copy mode: %d", (int) copy_mode));
  23256. switch (copy_mode) {
  23257. /* Copy modes 0 and 1 can be omitted in size optimized build,
  23258. * copy mode 2 handles them (but more slowly).
  23259. */
  23260. #if !defined(DUK_USE_PREFER_SIZE)
  23261. case 0: {
  23262. /* Use byte copy. */
  23263. duk_uint8_t *p_src;
  23264. duk_uint8_t *p_dst;
  23265. DUK_ASSERT(h_bufobj != NULL);
  23266. DUK_ASSERT(h_bufobj->buf != NULL);
  23267. DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufobj));
  23268. DUK_ASSERT(h_bufarg != NULL);
  23269. DUK_ASSERT(h_bufarg->buf != NULL);
  23270. DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufarg));
  23271. p_dst = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj);
  23272. p_src = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg);
  23273. DUK_DDD(DUK_DDDPRINT("using memcpy: p_src=%p, p_dst=%p, byte_length=%ld",
  23274. (void *) p_src, (void *) p_dst, (long) byte_length));
  23275. DUK_MEMCPY((void *) p_dst, (const void *) p_src, (size_t) byte_length);
  23276. break;
  23277. }
  23278. case 1: {
  23279. /* Copy values through direct validated reads and writes. */
  23280. duk_small_uint_t src_elem_size;
  23281. duk_small_uint_t dst_elem_size;
  23282. duk_uint8_t *p_src;
  23283. duk_uint8_t *p_src_end;
  23284. duk_uint8_t *p_dst;
  23285. DUK_ASSERT(h_bufobj != NULL);
  23286. DUK_ASSERT(h_bufobj->buf != NULL);
  23287. DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufobj));
  23288. DUK_ASSERT(h_bufarg != NULL);
  23289. DUK_ASSERT(h_bufarg->buf != NULL);
  23290. DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufarg));
  23291. src_elem_size = (duk_small_uint_t) (1U << h_bufarg->shift);
  23292. dst_elem_size = elem_size;
  23293. p_src = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg);
  23294. p_dst = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj);
  23295. p_src_end = p_src + h_bufarg->length;
  23296. DUK_DDD(DUK_DDDPRINT("using fast copy: p_src=%p, p_src_end=%p, p_dst=%p, "
  23297. "src_elem_size=%d, dst_elem_size=%d",
  23298. (void *) p_src, (void *) p_src_end, (void *) p_dst,
  23299. (int) src_elem_size, (int) dst_elem_size));
  23300. while (p_src != p_src_end) {
  23301. DUK_DDD(DUK_DDDPRINT("fast path per element copy loop: "
  23302. "p_src=%p, p_src_end=%p, p_dst=%p",
  23303. (void *) p_src, (void *) p_src_end, (void *) p_dst));
  23304. /* A validated read() is always a number, so it's write coercion
  23305. * is always side effect free an won't invalidate pointers etc.
  23306. */
  23307. duk_hbufobj_push_validated_read(thr, h_bufarg, p_src, src_elem_size);
  23308. duk_hbufobj_validated_write(thr, h_bufobj, p_dst, dst_elem_size);
  23309. duk_pop(thr);
  23310. p_src += src_elem_size;
  23311. p_dst += dst_elem_size;
  23312. }
  23313. break;
  23314. }
  23315. #endif /* !DUK_USE_PREFER_SIZE */
  23316. case 2: {
  23317. /* Copy values by index reads and writes. Let virtual
  23318. * property handling take care of coercion.
  23319. */
  23320. duk_uint_t i;
  23321. DUK_DDD(DUK_DDDPRINT("using slow copy"));
  23322. for (i = 0; i < elem_length; i++) {
  23323. duk_get_prop_index(thr, 0, (duk_uarridx_t) i);
  23324. duk_put_prop_index(thr, -2, (duk_uarridx_t) i);
  23325. }
  23326. break;
  23327. }
  23328. default:
  23329. case 3: {
  23330. /* No copy, leave zero bytes in the buffer. There's no
  23331. * ambiguity with Float32/Float64 because zero bytes also
  23332. * represent 0.0.
  23333. */
  23334. DUK_DDD(DUK_DDDPRINT("using no copy"));
  23335. break;
  23336. }
  23337. }
  23338. return 1;
  23339. fail_arguments:
  23340. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  23341. }
  23342. #else /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23343. /* When bufferobject support is disabled, new Uint8Array() could still be
  23344. * supported to create a plain fixed buffer. Disabled for now.
  23345. */
  23346. #if 0
  23347. DUK_INTERNAL duk_ret_t duk_bi_typedarray_constructor(duk_hthread *thr) {
  23348. duk_int_t elem_length_signed;
  23349. duk_uint_t byte_length;
  23350. /* XXX: The same copy helpers could be shared with at least some
  23351. * buffer functions.
  23352. */
  23353. duk_require_constructor_call(thr);
  23354. elem_length_signed = duk_require_int(thr, 0);
  23355. if (elem_length_signed < 0) {
  23356. goto fail_arguments;
  23357. }
  23358. byte_length = (duk_uint_t) elem_length_signed;
  23359. (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) byte_length);
  23360. return 1;
  23361. fail_arguments:
  23362. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  23363. }
  23364. #endif /* 0 */
  23365. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23366. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23367. DUK_INTERNAL duk_ret_t duk_bi_dataview_constructor(duk_hthread *thr) {
  23368. duk_hbufobj *h_bufarg;
  23369. duk_hbufobj *h_bufobj;
  23370. duk_hbuffer *h_val;
  23371. duk_uint_t offset;
  23372. duk_uint_t length;
  23373. duk_require_constructor_call(thr);
  23374. h_bufarg = duk__require_bufobj_value(thr, 0);
  23375. DUK_ASSERT(h_bufarg != NULL);
  23376. if (DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_bufarg) != DUK_HOBJECT_CLASS_ARRAYBUFFER) {
  23377. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23378. }
  23379. duk__resolve_offset_opt_length(thr, h_bufarg, 1, 2, &offset, &length, 1 /*throw_flag*/);
  23380. DUK_ASSERT(offset <= h_bufarg->length);
  23381. DUK_ASSERT(offset + length <= h_bufarg->length);
  23382. h_bufobj = duk_push_bufobj_raw(thr,
  23383. DUK_HOBJECT_FLAG_EXTENSIBLE |
  23384. DUK_HOBJECT_FLAG_BUFOBJ |
  23385. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DATAVIEW),
  23386. DUK_BIDX_DATAVIEW_PROTOTYPE);
  23387. h_val = h_bufarg->buf;
  23388. if (h_val == NULL) {
  23389. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23390. }
  23391. h_bufobj->buf = h_val;
  23392. DUK_HBUFFER_INCREF(thr, h_val);
  23393. h_bufobj->offset = h_bufarg->offset + offset;
  23394. h_bufobj->length = length;
  23395. DUK_ASSERT(h_bufobj->shift == 0);
  23396. DUK_ASSERT(h_bufobj->elem_type == DUK_HBUFOBJ_ELEM_UINT8);
  23397. DUK_ASSERT(h_bufobj->is_typedarray == 0);
  23398. DUK_ASSERT(h_bufobj->buf_prop == NULL);
  23399. h_bufobj->buf_prop = (duk_hobject *) h_bufarg;
  23400. DUK_ASSERT(h_bufarg != NULL);
  23401. DUK_HBUFOBJ_INCREF(thr, h_bufarg);
  23402. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  23403. return 1;
  23404. }
  23405. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23406. /*
  23407. * ArrayBuffer.isView()
  23408. */
  23409. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23410. DUK_INTERNAL duk_ret_t duk_bi_arraybuffer_isview(duk_hthread *thr) {
  23411. duk_hobject *h_obj;
  23412. duk_bool_t ret = 0;
  23413. if (duk_is_buffer(thr, 0)) {
  23414. ret = 1;
  23415. } else {
  23416. h_obj = duk_get_hobject(thr, 0);
  23417. if (h_obj != NULL && DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
  23418. /* DataView needs special casing: ArrayBuffer.isView() is
  23419. * true, but ->is_typedarray is 0.
  23420. */
  23421. ret = ((duk_hbufobj *) h_obj)->is_typedarray ||
  23422. (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_DATAVIEW);
  23423. }
  23424. }
  23425. duk_push_boolean(thr, ret);
  23426. return 1;
  23427. }
  23428. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23429. /*
  23430. * Uint8Array.allocPlain()
  23431. */
  23432. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23433. DUK_INTERNAL duk_ret_t duk_bi_uint8array_allocplain(duk_hthread *thr) {
  23434. duk__hbufobj_fixed_from_argvalue(thr);
  23435. return 1;
  23436. }
  23437. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23438. /*
  23439. * Uint8Array.plainOf()
  23440. */
  23441. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23442. DUK_INTERNAL duk_ret_t duk_bi_uint8array_plainof(duk_hthread *thr) {
  23443. duk_hbufobj *h_bufobj;
  23444. #if !defined(DUK_USE_PREFER_SIZE)
  23445. /* Avoid churn if argument is already a plain buffer. */
  23446. if (duk_is_buffer(thr, 0)) {
  23447. return 1;
  23448. }
  23449. #endif
  23450. /* Promotes plain buffers to ArrayBuffers, so for a plain buffer
  23451. * argument we'll create a pointless temporary (but still work
  23452. * correctly).
  23453. */
  23454. h_bufobj = duk__require_bufobj_value(thr, 0);
  23455. if (h_bufobj->buf == NULL) {
  23456. duk_push_undefined(thr);
  23457. } else {
  23458. duk_push_hbuffer(thr, h_bufobj->buf);
  23459. }
  23460. return 1;
  23461. }
  23462. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23463. /*
  23464. * Node.js Buffer: toString([encoding], [start], [end])
  23465. */
  23466. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23467. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_tostring(duk_hthread *thr) {
  23468. duk_hbufobj *h_this;
  23469. duk_int_t start_offset, end_offset;
  23470. duk_uint8_t *buf_slice;
  23471. duk_size_t slice_length;
  23472. h_this = duk__get_bufobj_this(thr);
  23473. if (h_this == NULL) {
  23474. /* XXX: happens e.g. when evaluating: String(Buffer.prototype). */
  23475. duk_push_string(thr, "[object Object]");
  23476. return 1;
  23477. }
  23478. DUK_ASSERT_HBUFOBJ_VALID(h_this);
  23479. /* Ignore encoding for now. */
  23480. duk__clamp_startend_nonegidx_noshift(thr,
  23481. (duk_int_t) h_this->length,
  23482. 1 /*idx_start*/,
  23483. 2 /*idx_end*/,
  23484. &start_offset,
  23485. &end_offset);
  23486. slice_length = (duk_size_t) (end_offset - start_offset);
  23487. buf_slice = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, slice_length); /* all bytes initialized below */
  23488. DUK_ASSERT(buf_slice != NULL);
  23489. /* Neutered or uncovered, TypeError. */
  23490. if (h_this->buf == NULL ||
  23491. !DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, (duk_size_t) start_offset + slice_length)) {
  23492. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23493. }
  23494. /* XXX: ideally we wouldn't make a copy but a view into the buffer for the
  23495. * decoding process. Or the decoding helper could be changed to accept
  23496. * the slice info (a buffer pointer is NOT a good approach because guaranteeing
  23497. * its stability is difficult).
  23498. */
  23499. DUK_ASSERT(DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, (duk_size_t) start_offset + slice_length));
  23500. DUK_MEMCPY((void *) buf_slice,
  23501. (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + start_offset),
  23502. (size_t) slice_length);
  23503. /* Use the equivalent of: new TextEncoder().encode(this) to convert the
  23504. * string. Result will be valid UTF-8; non-CESU-8 inputs are currently
  23505. * interpreted loosely. Value stack convention is a bit odd for now.
  23506. */
  23507. duk_replace(thr, 0);
  23508. duk_set_top(thr, 1);
  23509. return duk_textdecoder_decode_utf8_nodejs(thr);
  23510. }
  23511. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23512. /*
  23513. * Node.js Buffer.prototype: toJSON()
  23514. */
  23515. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23516. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_tojson(duk_hthread *thr) {
  23517. duk_hbufobj *h_this;
  23518. duk_uint8_t *buf;
  23519. duk_uint_t i, n;
  23520. duk_tval *tv;
  23521. h_this = duk__require_bufobj_this(thr);
  23522. DUK_ASSERT(h_this != NULL);
  23523. if (h_this->buf == NULL || !DUK_HBUFOBJ_VALID_SLICE(h_this)) {
  23524. /* Serialize uncovered backing buffer as a null; doesn't
  23525. * really matter as long we're memory safe.
  23526. */
  23527. duk_push_null(thr);
  23528. return 1;
  23529. }
  23530. duk_push_object(thr);
  23531. duk_push_hstring_stridx(thr, DUK_STRIDX_UC_BUFFER);
  23532. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_TYPE);
  23533. /* XXX: uninitialized would be OK */
  23534. DUK_ASSERT_DISABLE((duk_size_t) h_this->length <= (duk_size_t) DUK_UINT32_MAX);
  23535. tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) h_this->length); /* XXX: needs revision with >4G buffers */
  23536. DUK_ASSERT(h_this->buf != NULL);
  23537. buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this);
  23538. for (i = 0, n = h_this->length; i < n; i++) {
  23539. DUK_TVAL_SET_U32(tv + i, (duk_uint32_t) buf[i]); /* no need for decref or incref */
  23540. }
  23541. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_DATA);
  23542. return 1;
  23543. }
  23544. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23545. /*
  23546. * Node.js Buffer.prototype.equals()
  23547. * Node.js Buffer.prototype.compare()
  23548. * Node.js Buffer.compare()
  23549. */
  23550. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23551. DUK_INTERNAL duk_ret_t duk_bi_buffer_compare_shared(duk_hthread *thr) {
  23552. duk_small_uint_t magic;
  23553. duk_hbufobj *h_bufarg1;
  23554. duk_hbufobj *h_bufarg2;
  23555. duk_small_int_t comp_res;
  23556. /* XXX: keep support for plain buffers and non-Node.js buffers? */
  23557. magic = (duk_small_uint_t) duk_get_current_magic(thr);
  23558. if (magic & 0x02U) {
  23559. /* Static call style. */
  23560. h_bufarg1 = duk__require_bufobj_value(thr, 0);
  23561. h_bufarg2 = duk__require_bufobj_value(thr, 1);
  23562. } else {
  23563. h_bufarg1 = duk__require_bufobj_this(thr);
  23564. h_bufarg2 = duk__require_bufobj_value(thr, 0);
  23565. }
  23566. DUK_ASSERT(h_bufarg1 != NULL);
  23567. DUK_ASSERT(h_bufarg2 != NULL);
  23568. /* We want to compare the slice/view areas of the arguments.
  23569. * If either slice/view is invalid (underlying buffer is shorter)
  23570. * ensure equals() is false, but otherwise the only thing that
  23571. * matters is to be memory safe.
  23572. */
  23573. if (DUK_HBUFOBJ_VALID_SLICE(h_bufarg1) &&
  23574. DUK_HBUFOBJ_VALID_SLICE(h_bufarg2)) {
  23575. comp_res = duk_js_data_compare((const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufarg1->buf) + h_bufarg1->offset,
  23576. (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufarg2->buf) + h_bufarg2->offset,
  23577. (duk_size_t) h_bufarg1->length,
  23578. (duk_size_t) h_bufarg2->length);
  23579. } else {
  23580. comp_res = -1; /* either nonzero value is ok */
  23581. }
  23582. if (magic & 0x01U) {
  23583. /* compare: similar to string comparison but for buffer data. */
  23584. duk_push_int(thr, comp_res);
  23585. } else {
  23586. /* equals */
  23587. duk_push_boolean(thr, (comp_res == 0));
  23588. }
  23589. return 1;
  23590. }
  23591. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23592. /*
  23593. * Node.js Buffer.prototype.fill()
  23594. */
  23595. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23596. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_fill(duk_hthread *thr) {
  23597. duk_hbufobj *h_this;
  23598. const duk_uint8_t *fill_str_ptr;
  23599. duk_size_t fill_str_len;
  23600. duk_uint8_t fill_value;
  23601. duk_int_t fill_offset;
  23602. duk_int_t fill_end;
  23603. duk_size_t fill_length;
  23604. duk_uint8_t *p;
  23605. h_this = duk__require_bufobj_this(thr);
  23606. DUK_ASSERT(h_this != NULL);
  23607. if (h_this->buf == NULL) {
  23608. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23609. }
  23610. /* [ value offset end ] */
  23611. if (duk_is_string_notsymbol(thr, 0)) {
  23612. fill_str_ptr = (const duk_uint8_t *) duk_get_lstring(thr, 0, &fill_str_len);
  23613. DUK_ASSERT(fill_str_ptr != NULL);
  23614. } else {
  23615. /* Symbols get ToNumber() coerced and cause TypeError. */
  23616. fill_value = (duk_uint8_t) duk_to_uint32(thr, 0);
  23617. fill_str_ptr = (const duk_uint8_t *) &fill_value;
  23618. fill_str_len = 1;
  23619. }
  23620. /* Fill offset handling is more lenient than in Node.js. */
  23621. duk__clamp_startend_nonegidx_noshift(thr,
  23622. (duk_int_t) h_this->length,
  23623. 1 /*idx_start*/,
  23624. 2 /*idx_end*/,
  23625. &fill_offset,
  23626. &fill_end);
  23627. DUK_DDD(DUK_DDDPRINT("fill: fill_value=%02x, fill_offset=%ld, fill_end=%ld, view length=%ld",
  23628. (unsigned int) fill_value, (long) fill_offset, (long) fill_end, (long) h_this->length));
  23629. DUK_ASSERT(fill_end - fill_offset >= 0);
  23630. DUK_ASSERT(h_this->buf != NULL);
  23631. p = (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + fill_offset);
  23632. fill_length = (duk_size_t) (fill_end - fill_offset);
  23633. if (fill_str_len == 1) {
  23634. /* Handle single character fills as memset() even when
  23635. * the fill data comes from a one-char argument.
  23636. */
  23637. DUK_MEMSET((void *) p, (int) fill_str_ptr[0], (size_t) fill_length);
  23638. } else if (fill_str_len > 1) {
  23639. duk_size_t i, n, t;
  23640. for (i = 0, n = (duk_size_t) (fill_end - fill_offset), t = 0; i < n; i++) {
  23641. p[i] = fill_str_ptr[t++];
  23642. if (t >= fill_str_len) {
  23643. t = 0;
  23644. }
  23645. }
  23646. } else {
  23647. DUK_DDD(DUK_DDDPRINT("zero size fill pattern, ignore silently"));
  23648. }
  23649. /* Return the Buffer to allow chaining: b.fill(0x11).fill(0x22, 3, 5).toString() */
  23650. duk_push_this(thr);
  23651. return 1;
  23652. }
  23653. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23654. /*
  23655. * Node.js Buffer.prototype.write(string, [offset], [length], [encoding])
  23656. */
  23657. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23658. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_write(duk_hthread *thr) {
  23659. duk_hbufobj *h_this;
  23660. duk_uint_t offset;
  23661. duk_uint_t length;
  23662. const duk_uint8_t *str_data;
  23663. duk_size_t str_len;
  23664. /* XXX: very inefficient support for plain buffers */
  23665. h_this = duk__require_bufobj_this(thr);
  23666. DUK_ASSERT(h_this != NULL);
  23667. /* Argument must be a string, e.g. a buffer is not allowed. */
  23668. str_data = (const duk_uint8_t *) duk_require_lstring_notsymbol(thr, 0, &str_len);
  23669. duk__resolve_offset_opt_length(thr, h_this, 1, 2, &offset, &length, 0 /*throw_flag*/);
  23670. DUK_ASSERT(offset <= h_this->length);
  23671. DUK_ASSERT(offset + length <= h_this->length);
  23672. /* XXX: encoding is ignored now. */
  23673. if (length > str_len) {
  23674. length = (duk_uint_t) str_len;
  23675. }
  23676. if (DUK_HBUFOBJ_VALID_SLICE(h_this)) {
  23677. /* Cannot overlap. */
  23678. DUK_MEMCPY((void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + offset),
  23679. (const void *) str_data,
  23680. (size_t) length);
  23681. } else {
  23682. DUK_DDD(DUK_DDDPRINT("write() target buffer is not covered, silent ignore"));
  23683. }
  23684. duk_push_uint(thr, length);
  23685. return 1;
  23686. }
  23687. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23688. /*
  23689. * Node.js Buffer.prototype.copy()
  23690. */
  23691. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23692. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_copy(duk_hthread *thr) {
  23693. duk_hbufobj *h_this;
  23694. duk_hbufobj *h_bufarg;
  23695. duk_int_t source_length;
  23696. duk_int_t target_length;
  23697. duk_int_t target_start, source_start, source_end;
  23698. duk_uint_t target_ustart, source_ustart, source_uend;
  23699. duk_uint_t copy_size = 0;
  23700. /* [ targetBuffer targetStart sourceStart sourceEnd ] */
  23701. h_this = duk__require_bufobj_this(thr);
  23702. h_bufarg = duk__require_bufobj_value(thr, 0);
  23703. DUK_ASSERT(h_this != NULL);
  23704. DUK_ASSERT(h_bufarg != NULL);
  23705. source_length = (duk_int_t) h_this->length;
  23706. target_length = (duk_int_t) h_bufarg->length;
  23707. target_start = duk_to_int(thr, 1);
  23708. source_start = duk_to_int(thr, 2);
  23709. if (duk_is_undefined(thr, 3)) {
  23710. source_end = source_length;
  23711. } else {
  23712. source_end = duk_to_int(thr, 3);
  23713. }
  23714. DUK_DDD(DUK_DDDPRINT("checking copy args: target_start=%ld, target_length=%ld, "
  23715. "source_start=%ld, source_end=%ld, source_length=%ld",
  23716. (long) target_start, (long) h_bufarg->length,
  23717. (long) source_start, (long) source_end, (long) source_length));
  23718. /* This behavior mostly mimics Node.js now. */
  23719. if (source_start < 0 || source_end < 0 || target_start < 0) {
  23720. /* Negative offsets cause a RangeError. */
  23721. goto fail_bounds;
  23722. }
  23723. source_ustart = (duk_uint_t) source_start;
  23724. source_uend = (duk_uint_t) source_end;
  23725. target_ustart = (duk_uint_t) target_start;
  23726. if (source_ustart >= source_uend || /* crossed offsets or zero size */
  23727. source_ustart >= (duk_uint_t) source_length || /* source out-of-bounds (but positive) */
  23728. target_ustart >= (duk_uint_t) target_length) { /* target out-of-bounds (but positive) */
  23729. goto silent_ignore;
  23730. }
  23731. if (source_uend >= (duk_uint_t) source_length) {
  23732. /* Source end clamped silently to available length. */
  23733. source_uend = (duk_uint_t) source_length;
  23734. }
  23735. copy_size = source_uend - source_ustart;
  23736. if (target_ustart + copy_size > (duk_uint_t) target_length) {
  23737. /* Clamp to target's end if too long.
  23738. *
  23739. * NOTE: there's no overflow possibility in the comparison;
  23740. * both target_ustart and copy_size are >= 0 and based on
  23741. * values in duk_int_t range. Adding them as duk_uint_t
  23742. * values is then guaranteed not to overflow.
  23743. */
  23744. DUK_ASSERT(target_ustart + copy_size >= target_ustart); /* no overflow */
  23745. DUK_ASSERT(target_ustart + copy_size >= copy_size); /* no overflow */
  23746. copy_size = (duk_uint_t) target_length - target_ustart;
  23747. }
  23748. DUK_DDD(DUK_DDDPRINT("making copy: target_ustart=%lu source_ustart=%lu copy_size=%lu",
  23749. (unsigned long) target_ustart, (unsigned long) source_ustart,
  23750. (unsigned long) copy_size));
  23751. DUK_ASSERT(copy_size >= 1);
  23752. DUK_ASSERT(source_ustart <= (duk_uint_t) source_length);
  23753. DUK_ASSERT(source_ustart + copy_size <= (duk_uint_t) source_length);
  23754. DUK_ASSERT(target_ustart <= (duk_uint_t) target_length);
  23755. DUK_ASSERT(target_ustart + copy_size <= (duk_uint_t) target_length);
  23756. /* Ensure copy is covered by underlying buffers. */
  23757. DUK_ASSERT(h_bufarg->buf != NULL); /* length check */
  23758. DUK_ASSERT(h_this->buf != NULL); /* length check */
  23759. if (DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufarg, target_ustart + copy_size) &&
  23760. DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, source_ustart + copy_size)) {
  23761. /* Must use memmove() because copy area may overlap (source and target
  23762. * buffer may be the same, or from different slices.
  23763. */
  23764. DUK_MEMMOVE((void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg) + target_ustart),
  23765. (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + source_ustart),
  23766. (size_t) copy_size);
  23767. } else {
  23768. DUK_DDD(DUK_DDDPRINT("buffer copy not covered by underlying buffer(s), ignoring"));
  23769. }
  23770. silent_ignore:
  23771. /* Return value is like write(), number of bytes written.
  23772. * The return value matters because of code like:
  23773. * "off += buf.copy(...)".
  23774. */
  23775. duk_push_uint(thr, copy_size);
  23776. return 1;
  23777. fail_bounds:
  23778. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  23779. }
  23780. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  23781. /*
  23782. * TypedArray.prototype.set()
  23783. *
  23784. * TypedArray set() is pretty interesting to implement because:
  23785. *
  23786. * - The source argument may be a plain array or a typedarray. If the
  23787. * source is a TypedArray, values are decoded and re-encoded into the
  23788. * target (not as a plain byte copy). This may happen even when the
  23789. * element byte size is the same, e.g. integer values may be re-encoded
  23790. * into floats.
  23791. *
  23792. * - Source and target may refer to the same underlying buffer, so that
  23793. * the set() operation may overlap. The specification requires that this
  23794. * must work as if a copy was made before the operation. Note that this
  23795. * is NOT a simple memmove() situation because the source and target
  23796. * byte sizes may be different -- e.g. a 4-byte source (Int8Array) may
  23797. * expand to a 16-byte target (Uint32Array) so that the target overlaps
  23798. * the source both from beginning and the end (unlike in typical memmove).
  23799. *
  23800. * - Even if 'buf' pointers of the source and target differ, there's no
  23801. * guarantee that their memory areas don't overlap. This may be the
  23802. * case with external buffers.
  23803. *
  23804. * Even so, it is nice to optimize for the common case:
  23805. *
  23806. * - Source and target separate buffers or non-overlapping.
  23807. *
  23808. * - Source and target have a compatible type so that a plain byte copy
  23809. * is possible. Note that while e.g. uint8 and int8 are compatible
  23810. * (coercion one way or another doesn't change the byte representation),
  23811. * e.g. int8 and uint8clamped are NOT compatible when writing int8
  23812. * values into uint8clamped typedarray (-1 would clamp to 0 for instance).
  23813. *
  23814. * See test-bi-typedarray-proto-set.js.
  23815. */
  23816. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  23817. DUK_INTERNAL duk_ret_t duk_bi_typedarray_set(duk_hthread *thr) {
  23818. duk_hbufobj *h_this;
  23819. duk_hobject *h_obj;
  23820. duk_uarridx_t i, n;
  23821. duk_int_t offset_signed;
  23822. duk_uint_t offset_elems;
  23823. duk_uint_t offset_bytes;
  23824. h_this = duk__require_bufobj_this(thr);
  23825. DUK_ASSERT(h_this != NULL);
  23826. DUK_ASSERT_HBUFOBJ_VALID(h_this);
  23827. if (h_this->buf == NULL) {
  23828. DUK_DDD(DUK_DDDPRINT("source neutered, skip copy"));
  23829. return 0;
  23830. }
  23831. duk_hbufobj_promote_plain(thr, 0);
  23832. h_obj = duk_require_hobject(thr, 0);
  23833. /* XXX: V8 throws a TypeError for negative values. Would it
  23834. * be more useful to interpret negative offsets here from the
  23835. * end of the buffer too?
  23836. */
  23837. offset_signed = duk_to_int(thr, 1);
  23838. if (offset_signed < 0) {
  23839. /* For some reason this is a TypeError (at least in V8). */
  23840. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  23841. }
  23842. offset_elems = (duk_uint_t) offset_signed;
  23843. offset_bytes = offset_elems << h_this->shift;
  23844. if ((offset_bytes >> h_this->shift) != offset_elems) {
  23845. /* Byte length would overflow. */
  23846. /* XXX: easier check with less code? */
  23847. goto fail_args;
  23848. }
  23849. if (offset_bytes > h_this->length) {
  23850. /* Equality may be OK but >length not. Checking
  23851. * this explicitly avoids some overflow cases
  23852. * below.
  23853. */
  23854. goto fail_args;
  23855. }
  23856. DUK_ASSERT(offset_bytes <= h_this->length);
  23857. /* Fast path: source is a TypedArray (or any bufobj). */
  23858. if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
  23859. duk_hbufobj *h_bufarg;
  23860. #if !defined(DUK_USE_PREFER_SIZE)
  23861. duk_uint16_t comp_mask;
  23862. #endif
  23863. duk_small_int_t no_overlap = 0;
  23864. duk_uint_t src_length;
  23865. duk_uint_t dst_length;
  23866. duk_uint_t dst_length_elems;
  23867. duk_uint8_t *p_src_base;
  23868. duk_uint8_t *p_src_end;
  23869. duk_uint8_t *p_src;
  23870. duk_uint8_t *p_dst_base;
  23871. duk_uint8_t *p_dst;
  23872. duk_small_uint_t src_elem_size;
  23873. duk_small_uint_t dst_elem_size;
  23874. h_bufarg = (duk_hbufobj *) h_obj;
  23875. DUK_ASSERT_HBUFOBJ_VALID(h_bufarg);
  23876. if (h_bufarg->buf == NULL) {
  23877. DUK_DDD(DUK_DDDPRINT("target neutered, skip copy"));
  23878. return 0;
  23879. }
  23880. /* Nominal size check. */
  23881. src_length = h_bufarg->length; /* bytes in source */
  23882. dst_length_elems = (src_length >> h_bufarg->shift); /* elems in source and dest */
  23883. dst_length = dst_length_elems << h_this->shift; /* bytes in dest */
  23884. if ((dst_length >> h_this->shift) != dst_length_elems) {
  23885. /* Byte length would overflow. */
  23886. /* XXX: easier check with less code? */
  23887. goto fail_args;
  23888. }
  23889. DUK_DDD(DUK_DDDPRINT("nominal size check: src_length=%ld, dst_length=%ld",
  23890. (long) src_length, (long) dst_length));
  23891. DUK_ASSERT(offset_bytes <= h_this->length);
  23892. if (dst_length > h_this->length - offset_bytes) {
  23893. /* Overflow not an issue because subtraction is used on the right
  23894. * side and guaranteed to be >= 0.
  23895. */
  23896. DUK_DDD(DUK_DDDPRINT("copy exceeds target buffer nominal length"));
  23897. goto fail_args;
  23898. }
  23899. if (!DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, offset_bytes + dst_length)) {
  23900. DUK_DDD(DUK_DDDPRINT("copy not covered by underlying target buffer, ignore"));
  23901. return 0;
  23902. }
  23903. p_src_base = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg);
  23904. p_dst_base = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + offset_bytes;
  23905. /* Check actual underlying buffers for validity and that they
  23906. * cover the copy. No side effects are allowed after the check
  23907. * so that the validity status doesn't change.
  23908. */
  23909. if (!DUK_HBUFOBJ_VALID_SLICE(h_this) ||
  23910. !DUK_HBUFOBJ_VALID_SLICE(h_bufarg)) {
  23911. /* The condition could be more narrow and check for the
  23912. * copy area only, but there's no need for fine grained
  23913. * behavior when the underlying buffer is misconfigured.
  23914. */
  23915. DUK_DDD(DUK_DDDPRINT("source and/or target not covered by underlying buffer, skip copy"));
  23916. return 0;
  23917. }
  23918. /* We want to do a straight memory copy if possible: this is
  23919. * an important operation because .set() is the TypedArray
  23920. * way to copy chunks of memory. However, because set()
  23921. * conceptually works in terms of elements, not all views are
  23922. * compatible with direct byte copying.
  23923. *
  23924. * If we do manage a direct copy, the "overlap issue" handled
  23925. * below can just be solved using memmove() because the source
  23926. * and destination element sizes are necessarily equal.
  23927. */
  23928. #if !defined(DUK_USE_PREFER_SIZE)
  23929. DUK_ASSERT(h_this->elem_type < sizeof(duk__buffer_elemtype_copy_compatible) / sizeof(duk_uint16_t));
  23930. comp_mask = duk__buffer_elemtype_copy_compatible[h_this->elem_type];
  23931. if (comp_mask & (1 << h_bufarg->elem_type)) {
  23932. DUK_ASSERT(src_length == dst_length);
  23933. DUK_DDD(DUK_DDDPRINT("fast path: able to use memmove() because views are compatible"));
  23934. DUK_MEMMOVE((void *) p_dst_base, (const void *) p_src_base, (size_t) dst_length);
  23935. return 0;
  23936. }
  23937. DUK_DDD(DUK_DDDPRINT("fast path: views are not compatible with a byte copy, copy by item"));
  23938. #endif /* !DUK_USE_PREFER_SIZE */
  23939. /* We want to avoid making a copy to process set() but that's
  23940. * not always possible: the source and the target may overlap
  23941. * and because element sizes are different, the overlap cannot
  23942. * always be handled with a memmove() or choosing the copy
  23943. * direction in a certain way. For example, if source type is
  23944. * uint8 and target type is uint32, the target area may exceed
  23945. * the source area from both ends!
  23946. *
  23947. * Note that because external buffers may point to the same
  23948. * memory areas, we must ultimately make this check using
  23949. * pointers.
  23950. *
  23951. * NOTE: careful with side effects: any side effect may cause
  23952. * a buffer resize (or external buffer pointer/length update)!
  23953. */
  23954. DUK_DDD(DUK_DDDPRINT("overlap check: p_src_base=%p, src_length=%ld, "
  23955. "p_dst_base=%p, dst_length=%ld",
  23956. (void *) p_src_base, (long) src_length,
  23957. (void *) p_dst_base, (long) dst_length));
  23958. if (p_src_base >= p_dst_base + dst_length || /* source starts after dest ends */
  23959. p_src_base + src_length <= p_dst_base) { /* source ends before dest starts */
  23960. no_overlap = 1;
  23961. }
  23962. if (!no_overlap) {
  23963. /* There's overlap: the desired end result is that
  23964. * conceptually a copy is made to avoid "trampling"
  23965. * of source data by destination writes. We make
  23966. * an actual temporary copy to handle this case.
  23967. */
  23968. duk_uint8_t *p_src_copy;
  23969. DUK_DDD(DUK_DDDPRINT("there is overlap, make a copy of the source"));
  23970. p_src_copy = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, src_length);
  23971. DUK_ASSERT(p_src_copy != NULL);
  23972. DUK_MEMCPY((void *) p_src_copy, (const void *) p_src_base, (size_t) src_length);
  23973. p_src_base = p_src_copy; /* use p_src_base from now on */
  23974. }
  23975. /* Value stack intentionally mixed size here. */
  23976. DUK_DDD(DUK_DDDPRINT("after overlap check: p_src_base=%p, src_length=%ld, "
  23977. "p_dst_base=%p, dst_length=%ld, valstack top=%ld",
  23978. (void *) p_src_base, (long) src_length,
  23979. (void *) p_dst_base, (long) dst_length,
  23980. (long) duk_get_top(thr)));
  23981. /* Ready to make the copy. We must proceed element by element
  23982. * and must avoid any side effects that might cause the buffer
  23983. * validity check above to become invalid.
  23984. *
  23985. * Although we work through the value stack here, only plain
  23986. * numbers are handled which should be side effect safe.
  23987. */
  23988. src_elem_size = (duk_small_uint_t) (1U << h_bufarg->shift);
  23989. dst_elem_size = (duk_small_uint_t) (1U << h_this->shift);
  23990. p_src = p_src_base;
  23991. p_dst = p_dst_base;
  23992. p_src_end = p_src_base + src_length;
  23993. while (p_src != p_src_end) {
  23994. DUK_DDD(DUK_DDDPRINT("fast path per element copy loop: "
  23995. "p_src=%p, p_src_end=%p, p_dst=%p",
  23996. (void *) p_src, (void *) p_src_end, (void *) p_dst));
  23997. /* A validated read() is always a number, so it's write coercion
  23998. * is always side effect free an won't invalidate pointers etc.
  23999. */
  24000. duk_hbufobj_push_validated_read(thr, h_bufarg, p_src, src_elem_size);
  24001. duk_hbufobj_validated_write(thr, h_this, p_dst, dst_elem_size);
  24002. duk_pop(thr);
  24003. p_src += src_elem_size;
  24004. p_dst += dst_elem_size;
  24005. }
  24006. return 0;
  24007. } else {
  24008. /* Slow path: quite slow, but we save space by using the property code
  24009. * to write coerce target values. We don't need to worry about overlap
  24010. * here because the source is not a TypedArray.
  24011. *
  24012. * We could use the bufobj write coercion helper but since the
  24013. * property read may have arbitrary side effects, full validity checks
  24014. * would be needed for every element anyway.
  24015. */
  24016. n = (duk_uarridx_t) duk_get_length(thr, 0);
  24017. DUK_ASSERT(offset_bytes <= h_this->length);
  24018. if ((n << h_this->shift) > h_this->length - offset_bytes) {
  24019. /* Overflow not an issue because subtraction is used on the right
  24020. * side and guaranteed to be >= 0.
  24021. */
  24022. DUK_DDD(DUK_DDDPRINT("copy exceeds target buffer nominal length"));
  24023. goto fail_args;
  24024. }
  24025. /* There's no need to check for buffer validity status for the
  24026. * target here: the property access code will do that for each
  24027. * element. Moreover, if we did check the validity here, side
  24028. * effects from reading the source argument might invalidate
  24029. * the results anyway.
  24030. */
  24031. DUK_ASSERT_TOP(thr, 2);
  24032. duk_push_this(thr);
  24033. for (i = 0; i < n; i++) {
  24034. duk_get_prop_index(thr, 0, i);
  24035. duk_put_prop_index(thr, 2, offset_elems + i);
  24036. }
  24037. }
  24038. return 0;
  24039. fail_args:
  24040. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  24041. }
  24042. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24043. /*
  24044. * Node.js Buffer.prototype.slice([start], [end])
  24045. * ArrayBuffer.prototype.slice(begin, [end])
  24046. * TypedArray.prototype.subarray(begin, [end])
  24047. *
  24048. * The API calls are almost identical; negative indices are counted from end
  24049. * of buffer, and final indices are clamped (allowing crossed indices). Main
  24050. * differences:
  24051. *
  24052. * - Copy/view behavior; Node.js .slice() and TypedArray .subarray() create
  24053. * views, ArrayBuffer .slice() creates a copy
  24054. *
  24055. * - Resulting object has a different class and prototype depending on the
  24056. * call (or 'this' argument)
  24057. *
  24058. * - TypedArray .subarray() arguments are element indices, not byte offsets
  24059. *
  24060. * - Plain buffer argument creates a plain buffer slice
  24061. */
  24062. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24063. DUK_LOCAL void duk__arraybuffer_plain_slice(duk_hthread *thr, duk_hbuffer *h_val) {
  24064. duk_int_t start_offset, end_offset;
  24065. duk_uint_t slice_length;
  24066. duk_uint8_t *p_copy;
  24067. duk_size_t copy_length;
  24068. duk__clamp_startend_negidx_shifted(thr,
  24069. (duk_int_t) DUK_HBUFFER_GET_SIZE(h_val),
  24070. 0 /*buffer_shift*/,
  24071. 0 /*idx_start*/,
  24072. 1 /*idx_end*/,
  24073. &start_offset,
  24074. &end_offset);
  24075. DUK_ASSERT(end_offset <= (duk_int_t) DUK_HBUFFER_GET_SIZE(h_val));
  24076. DUK_ASSERT(start_offset >= 0);
  24077. DUK_ASSERT(end_offset >= start_offset);
  24078. slice_length = (duk_uint_t) (end_offset - start_offset);
  24079. p_copy = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) slice_length);
  24080. DUK_ASSERT(p_copy != NULL);
  24081. copy_length = slice_length;
  24082. DUK_MEMCPY((void *) p_copy,
  24083. (const void *) ((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_val) + start_offset),
  24084. copy_length);
  24085. }
  24086. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24087. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24088. /* Shared helper for slice/subarray operation.
  24089. * Magic: 0x01=isView, 0x02=copy, 0x04=Node.js Buffer special handling.
  24090. */
  24091. DUK_INTERNAL duk_ret_t duk_bi_buffer_slice_shared(duk_hthread *thr) {
  24092. duk_small_int_t magic;
  24093. duk_small_uint_t res_class_num;
  24094. duk_small_int_t res_proto_bidx;
  24095. duk_hbufobj *h_this;
  24096. duk_hbufobj *h_bufobj;
  24097. duk_hbuffer *h_val;
  24098. duk_int_t start_offset, end_offset;
  24099. duk_uint_t slice_length;
  24100. duk_tval *tv;
  24101. /* [ start end ] */
  24102. magic = duk_get_current_magic(thr);
  24103. tv = duk_get_borrowed_this_tval(thr);
  24104. DUK_ASSERT(tv != NULL);
  24105. if (DUK_TVAL_IS_BUFFER(tv)) {
  24106. /* For plain buffers return a plain buffer slice. */
  24107. h_val = DUK_TVAL_GET_BUFFER(tv);
  24108. DUK_ASSERT(h_val != NULL);
  24109. if (magic & 0x02) {
  24110. /* Make copy: ArrayBuffer.prototype.slice() uses this. */
  24111. duk__arraybuffer_plain_slice(thr, h_val);
  24112. return 1;
  24113. } else {
  24114. /* View into existing buffer: cannot be done if the
  24115. * result is a plain buffer because there's no slice
  24116. * info. So return an ArrayBuffer instance; coerce
  24117. * the 'this' binding into an object and behave as if
  24118. * the original call was for an Object-coerced plain
  24119. * buffer (handled automatically by duk__require_bufobj_this()).
  24120. */
  24121. DUK_DDD(DUK_DDDPRINT("slice() doesn't handle view into plain buffer, coerce 'this' to ArrayBuffer object"));
  24122. /* fall through */
  24123. }
  24124. }
  24125. tv = NULL; /* No longer valid nor needed. */
  24126. h_this = duk__require_bufobj_this(thr);
  24127. /* Slice offsets are element (not byte) offsets, which only matters
  24128. * for TypedArray views, Node.js Buffer and ArrayBuffer have shift
  24129. * zero so byte and element offsets are the same. Negative indices
  24130. * are counted from end of slice, crossed indices are allowed (and
  24131. * result in zero length result), and final values are clamped
  24132. * against the current slice. There's intentionally no check
  24133. * against the underlying buffer here.
  24134. */
  24135. duk__clamp_startend_negidx_shifted(thr,
  24136. (duk_int_t) h_this->length,
  24137. (duk_uint8_t) h_this->shift,
  24138. 0 /*idx_start*/,
  24139. 1 /*idx_end*/,
  24140. &start_offset,
  24141. &end_offset);
  24142. DUK_ASSERT(end_offset >= start_offset);
  24143. DUK_ASSERT(start_offset >= 0);
  24144. DUK_ASSERT(end_offset >= 0);
  24145. slice_length = (duk_uint_t) (end_offset - start_offset);
  24146. /* The resulting buffer object gets the same class and prototype as
  24147. * the buffer in 'this', e.g. if the input is a Uint8Array the
  24148. * result is a Uint8Array; if the input is a Float32Array, the
  24149. * result is a Float32Array. The result internal prototype should
  24150. * be the default prototype for the class (e.g. initial value of
  24151. * Uint8Array.prototype), not copied from the argument (Duktape 1.x
  24152. * did that).
  24153. *
  24154. * Node.js Buffers have special handling: they're Uint8Arrays as far
  24155. * as the internal class is concerned, so the new Buffer should also
  24156. * be an Uint8Array but inherit from Buffer.prototype.
  24157. */
  24158. res_class_num = DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_this);
  24159. DUK_ASSERT(res_class_num >= DUK_HOBJECT_CLASS_BUFOBJ_MIN); /* type check guarantees */
  24160. DUK_ASSERT(res_class_num <= DUK_HOBJECT_CLASS_BUFOBJ_MAX);
  24161. res_proto_bidx = duk__buffer_proto_from_classnum[res_class_num - DUK_HOBJECT_CLASS_BUFOBJ_MIN];
  24162. if (magic & 0x04) {
  24163. res_proto_bidx = DUK_BIDX_NODEJS_BUFFER_PROTOTYPE;
  24164. }
  24165. h_bufobj = duk_push_bufobj_raw(thr,
  24166. DUK_HOBJECT_FLAG_EXTENSIBLE |
  24167. DUK_HOBJECT_FLAG_BUFOBJ |
  24168. DUK_HOBJECT_CLASS_AS_FLAGS(res_class_num),
  24169. res_proto_bidx);
  24170. DUK_ASSERT(h_bufobj != NULL);
  24171. DUK_ASSERT(h_bufobj->length == 0);
  24172. h_bufobj->shift = h_this->shift; /* inherit */
  24173. h_bufobj->elem_type = h_this->elem_type; /* inherit */
  24174. h_bufobj->is_typedarray = magic & 0x01;
  24175. DUK_ASSERT(h_bufobj->is_typedarray == 0 || h_bufobj->is_typedarray == 1);
  24176. h_val = h_this->buf;
  24177. if (h_val == NULL) {
  24178. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  24179. }
  24180. if (magic & 0x02) {
  24181. /* non-zero: make copy */
  24182. duk_uint8_t *p_copy;
  24183. duk_size_t copy_length;
  24184. p_copy = (duk_uint8_t *) duk_push_fixed_buffer_zero(thr, (duk_size_t) slice_length); /* must be zeroed, not all bytes always copied */
  24185. DUK_ASSERT(p_copy != NULL);
  24186. /* Copy slice, respecting underlying buffer limits; remainder
  24187. * is left as zero.
  24188. */
  24189. copy_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, slice_length);
  24190. DUK_MEMCPY((void *) p_copy,
  24191. (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + start_offset),
  24192. copy_length);
  24193. h_val = duk_known_hbuffer(thr, -1);
  24194. h_bufobj->buf = h_val;
  24195. DUK_HBUFFER_INCREF(thr, h_val);
  24196. h_bufobj->length = slice_length;
  24197. DUK_ASSERT(h_bufobj->offset == 0);
  24198. duk_pop(thr); /* reachable so pop OK */
  24199. } else {
  24200. h_bufobj->buf = h_val;
  24201. DUK_HBUFFER_INCREF(thr, h_val);
  24202. h_bufobj->length = slice_length;
  24203. h_bufobj->offset = h_this->offset + (duk_uint_t) start_offset;
  24204. /* Copy the .buffer property, needed for TypedArray.prototype.subarray().
  24205. *
  24206. * XXX: limit copy only for TypedArray classes specifically?
  24207. */
  24208. DUK_ASSERT(h_bufobj->buf_prop == NULL);
  24209. h_bufobj->buf_prop = h_this->buf_prop; /* may be NULL */
  24210. DUK_HOBJECT_INCREF_ALLOWNULL(thr, (duk_hobject *) h_bufobj->buf_prop);
  24211. }
  24212. /* unbalanced stack on purpose */
  24213. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  24214. return 1;
  24215. }
  24216. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24217. /*
  24218. * Node.js Buffer.isEncoding()
  24219. */
  24220. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24221. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_is_encoding(duk_hthread *thr) {
  24222. const char *encoding;
  24223. /* only accept lowercase 'utf8' now. */
  24224. encoding = duk_to_string(thr, 0);
  24225. DUK_ASSERT(duk_is_string(thr, 0)); /* guaranteed by duk_to_string() */
  24226. duk_push_boolean(thr, DUK_STRCMP(encoding, "utf8") == 0);
  24227. return 1;
  24228. }
  24229. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24230. /*
  24231. * Node.js Buffer.isBuffer()
  24232. */
  24233. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24234. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_is_buffer(duk_hthread *thr) {
  24235. duk_hobject *h;
  24236. duk_hobject *h_proto;
  24237. duk_bool_t ret = 0;
  24238. DUK_ASSERT(duk_get_top(thr) >= 1); /* nargs */
  24239. h = duk_get_hobject(thr, 0);
  24240. if (h != NULL) {
  24241. h_proto = thr->builtins[DUK_BIDX_NODEJS_BUFFER_PROTOTYPE];
  24242. DUK_ASSERT(h_proto != NULL);
  24243. h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h);
  24244. if (h != NULL) {
  24245. ret = duk_hobject_prototype_chain_contains(thr, h, h_proto, 0 /*ignore_loop*/);
  24246. }
  24247. }
  24248. duk_push_boolean(thr, ret);
  24249. return 1;
  24250. }
  24251. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24252. /*
  24253. * Node.js Buffer.byteLength()
  24254. */
  24255. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24256. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_byte_length(duk_hthread *thr) {
  24257. const char *str;
  24258. duk_size_t len;
  24259. /* At the moment Buffer(<str>) will just use the string bytes as
  24260. * is (ignoring encoding), so we return the string length here
  24261. * unconditionally.
  24262. */
  24263. /* XXX: to be revised; Old Node.js behavior just coerces any buffer
  24264. * values to string:
  24265. * $ node
  24266. * > Buffer.byteLength(new Uint32Array(10))
  24267. * 20
  24268. * > Buffer.byteLength(new Uint32Array(100))
  24269. * 20
  24270. * (The 20 comes from '[object Uint32Array]'.length
  24271. */
  24272. str = duk_to_lstring(thr, 0, &len);
  24273. DUK_UNREF(str);
  24274. duk_push_size_t(thr, len);
  24275. return 1;
  24276. }
  24277. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24278. /*
  24279. * Node.js Buffer.concat()
  24280. */
  24281. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24282. DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_concat(duk_hthread *thr) {
  24283. duk_hobject *h_arg;
  24284. duk_uint_t total_length;
  24285. duk_hbufobj *h_bufobj;
  24286. duk_hbufobj *h_bufres;
  24287. duk_hbuffer *h_val;
  24288. duk_uint_t i, n;
  24289. duk_uint8_t *p;
  24290. duk_size_t space_left;
  24291. duk_size_t copy_size;
  24292. /* Node.js accepts only actual Arrays. */
  24293. h_arg = duk_require_hobject(thr, 0);
  24294. if (DUK_HOBJECT_GET_CLASS_NUMBER(h_arg) != DUK_HOBJECT_CLASS_ARRAY) {
  24295. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  24296. }
  24297. /* Compute result length and validate argument buffers. */
  24298. n = (duk_uint_t) duk_get_length(thr, 0);
  24299. total_length = 0;
  24300. for (i = 0; i < n; i++) {
  24301. /* Neutered checks not necessary here: neutered buffers have
  24302. * zero 'length' so we'll effectively skip them.
  24303. */
  24304. DUK_ASSERT_TOP(thr, 2); /* [ array totalLength ] */
  24305. duk_get_prop_index(thr, 0, (duk_uarridx_t) i); /* -> [ array totalLength buf ] */
  24306. h_bufobj = duk__require_bufobj_value(thr, 2);
  24307. DUK_ASSERT(h_bufobj != NULL);
  24308. total_length += h_bufobj->length;
  24309. if (DUK_UNLIKELY(total_length < h_bufobj->length)) {
  24310. DUK_DCERROR_RANGE_INVALID_ARGS(thr); /* Wrapped. */
  24311. }
  24312. duk_pop(thr);
  24313. }
  24314. /* In Node.js v0.12.1 a 1-element array is special and won't create a
  24315. * copy, this was fixed later so an explicit check no longer needed.
  24316. */
  24317. /* User totalLength overrides a computed length, but we'll check
  24318. * every copy in the copy loop. Note that duk_to_int() can
  24319. * technically have arbitrary side effects so we need to recheck
  24320. * the buffers in the copy loop.
  24321. */
  24322. if (!duk_is_undefined(thr, 1) && n > 0) {
  24323. /* For n == 0, Node.js ignores totalLength argument and
  24324. * returns a zero length buffer.
  24325. */
  24326. duk_int_t total_length_signed;
  24327. total_length_signed = duk_to_int(thr, 1);
  24328. if (total_length_signed < 0) {
  24329. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  24330. }
  24331. total_length = (duk_uint_t) total_length_signed;
  24332. }
  24333. h_bufres = duk_push_bufobj_raw(thr,
  24334. DUK_HOBJECT_FLAG_EXTENSIBLE |
  24335. DUK_HOBJECT_FLAG_BUFOBJ |
  24336. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_UINT8ARRAY),
  24337. DUK_BIDX_NODEJS_BUFFER_PROTOTYPE);
  24338. DUK_ASSERT(h_bufres != NULL);
  24339. p = (duk_uint8_t *) duk_push_fixed_buffer_zero(thr, total_length); /* must be zeroed, all bytes not necessarily written over */
  24340. DUK_ASSERT(p != NULL);
  24341. space_left = (duk_size_t) total_length;
  24342. for (i = 0; i < n; i++) {
  24343. DUK_ASSERT_TOP(thr, 4); /* [ array totalLength bufres buf ] */
  24344. duk_get_prop_index(thr, 0, (duk_uarridx_t) i);
  24345. h_bufobj = duk__require_bufobj_value(thr, 4);
  24346. DUK_ASSERT(h_bufobj != NULL);
  24347. copy_size = h_bufobj->length;
  24348. if (copy_size > space_left) {
  24349. copy_size = space_left;
  24350. }
  24351. if (h_bufobj->buf != NULL &&
  24352. DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) {
  24353. DUK_MEMCPY((void *) p,
  24354. (const void *) DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj),
  24355. copy_size);
  24356. } else {
  24357. /* Just skip, leaving zeroes in the result. */
  24358. ;
  24359. }
  24360. p += copy_size;
  24361. space_left -= copy_size;
  24362. duk_pop(thr);
  24363. }
  24364. h_val = duk_known_hbuffer(thr, -1);
  24365. duk__set_bufobj_buffer(thr, h_bufres, h_val);
  24366. h_bufres->is_typedarray = 1;
  24367. DUK_ASSERT_HBUFOBJ_VALID(h_bufres);
  24368. duk_pop(thr); /* pop plain buffer, now reachable through h_bufres */
  24369. return 1; /* return h_bufres */
  24370. }
  24371. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24372. /*
  24373. * Shared readfield and writefield methods
  24374. *
  24375. * The readfield/writefield methods need support for endianness and field
  24376. * types. All offsets are byte based so no offset shifting is needed.
  24377. */
  24378. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24379. /* Format of magic, bits:
  24380. * 0...1: field type; 0=uint8, 1=uint16, 2=uint32, 3=float, 4=double, 5=unused, 6=unused, 7=unused
  24381. * 3: endianness: 0=little, 1=big
  24382. * 4: signed: 1=yes, 0=no
  24383. * 5: typedarray: 1=yes, 0=no
  24384. */
  24385. #define DUK__FLD_8BIT 0
  24386. #define DUK__FLD_16BIT 1
  24387. #define DUK__FLD_32BIT 2
  24388. #define DUK__FLD_FLOAT 3
  24389. #define DUK__FLD_DOUBLE 4
  24390. #define DUK__FLD_VARINT 5
  24391. #define DUK__FLD_BIGENDIAN (1 << 3)
  24392. #define DUK__FLD_SIGNED (1 << 4)
  24393. #define DUK__FLD_TYPEDARRAY (1 << 5)
  24394. /* XXX: split into separate functions for each field type? */
  24395. DUK_INTERNAL duk_ret_t duk_bi_buffer_readfield(duk_hthread *thr) {
  24396. duk_small_int_t magic = (duk_small_int_t) duk_get_current_magic(thr);
  24397. duk_small_int_t magic_ftype;
  24398. duk_small_int_t magic_bigendian;
  24399. duk_small_int_t magic_signed;
  24400. duk_small_int_t magic_typedarray;
  24401. duk_small_int_t endswap;
  24402. duk_hbufobj *h_this;
  24403. duk_bool_t no_assert;
  24404. duk_int_t offset_signed;
  24405. duk_uint_t offset;
  24406. duk_uint_t buffer_length;
  24407. duk_uint_t check_length;
  24408. duk_uint8_t *buf;
  24409. duk_double_union du;
  24410. magic_ftype = magic & 0x0007;
  24411. magic_bigendian = magic & 0x0008;
  24412. magic_signed = magic & 0x0010;
  24413. magic_typedarray = magic & 0x0020;
  24414. h_this = duk__require_bufobj_this(thr); /* XXX: very inefficient for plain buffers */
  24415. DUK_ASSERT(h_this != NULL);
  24416. buffer_length = h_this->length;
  24417. /* [ offset noAssert ], when ftype != DUK__FLD_VARINT */
  24418. /* [ offset fieldByteLength noAssert ], when ftype == DUK__FLD_VARINT */
  24419. /* [ offset littleEndian ], when DUK__FLD_TYPEDARRAY (regardless of ftype) */
  24420. /* Handle TypedArray vs. Node.js Buffer arg differences */
  24421. if (magic_typedarray) {
  24422. no_assert = 0;
  24423. #if defined(DUK_USE_INTEGER_LE)
  24424. endswap = !duk_to_boolean(thr, 1); /* 1=little endian */
  24425. #else
  24426. endswap = duk_to_boolean(thr, 1); /* 1=little endian */
  24427. #endif
  24428. } else {
  24429. no_assert = duk_to_boolean(thr, (magic_ftype == DUK__FLD_VARINT) ? 2 : 1);
  24430. #if defined(DUK_USE_INTEGER_LE)
  24431. endswap = magic_bigendian;
  24432. #else
  24433. endswap = !magic_bigendian;
  24434. #endif
  24435. }
  24436. /* Offset is coerced first to signed integer range and then to unsigned.
  24437. * This ensures we can add a small byte length (1-8) to the offset in
  24438. * bound checks and not wrap.
  24439. */
  24440. offset_signed = duk_to_int(thr, 0);
  24441. offset = (duk_uint_t) offset_signed;
  24442. if (offset_signed < 0) {
  24443. goto fail_bounds;
  24444. }
  24445. DUK_DDD(DUK_DDDPRINT("readfield, buffer_length=%ld, offset=%ld, no_assert=%d, "
  24446. "magic=%04x, magic_fieldtype=%d, magic_bigendian=%d, magic_signed=%d, "
  24447. "endswap=%d",
  24448. (long) buffer_length, (long) offset, (int) no_assert,
  24449. (unsigned int) magic, (int) magic_ftype, (int) (magic_bigendian >> 3),
  24450. (int) (magic_signed >> 4), (int) endswap));
  24451. /* Update 'buffer_length' to be the effective, safe limit which
  24452. * takes into account the underlying buffer. This value will be
  24453. * potentially invalidated by any side effect.
  24454. */
  24455. check_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, buffer_length);
  24456. DUK_DDD(DUK_DDDPRINT("buffer_length=%ld, check_length=%ld",
  24457. (long) buffer_length, (long) check_length));
  24458. if (h_this->buf) {
  24459. buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this);
  24460. } else {
  24461. /* Neutered. We could go into the switch-case safely with
  24462. * buf == NULL because check_length == 0. To avoid scanbuild
  24463. * warnings, fail directly instead.
  24464. */
  24465. DUK_ASSERT(check_length == 0);
  24466. goto fail_neutered;
  24467. }
  24468. DUK_ASSERT(buf != NULL);
  24469. switch (magic_ftype) {
  24470. case DUK__FLD_8BIT: {
  24471. duk_uint8_t tmp;
  24472. if (offset + 1U > check_length) {
  24473. goto fail_bounds;
  24474. }
  24475. tmp = buf[offset];
  24476. if (magic_signed) {
  24477. duk_push_int(thr, (duk_int_t) ((duk_int8_t) tmp));
  24478. } else {
  24479. duk_push_uint(thr, (duk_uint_t) tmp);
  24480. }
  24481. break;
  24482. }
  24483. case DUK__FLD_16BIT: {
  24484. duk_uint16_t tmp;
  24485. if (offset + 2U > check_length) {
  24486. goto fail_bounds;
  24487. }
  24488. DUK_MEMCPY((void *) du.uc, (const void *) (buf + offset), 2);
  24489. tmp = du.us[0];
  24490. if (endswap) {
  24491. tmp = DUK_BSWAP16(tmp);
  24492. }
  24493. if (magic_signed) {
  24494. duk_push_int(thr, (duk_int_t) ((duk_int16_t) tmp));
  24495. } else {
  24496. duk_push_uint(thr, (duk_uint_t) tmp);
  24497. }
  24498. break;
  24499. }
  24500. case DUK__FLD_32BIT: {
  24501. duk_uint32_t tmp;
  24502. if (offset + 4U > check_length) {
  24503. goto fail_bounds;
  24504. }
  24505. DUK_MEMCPY((void *) du.uc, (const void *) (buf + offset), 4);
  24506. tmp = du.ui[0];
  24507. if (endswap) {
  24508. tmp = DUK_BSWAP32(tmp);
  24509. }
  24510. if (magic_signed) {
  24511. duk_push_int(thr, (duk_int_t) ((duk_int32_t) tmp));
  24512. } else {
  24513. duk_push_uint(thr, (duk_uint_t) tmp);
  24514. }
  24515. break;
  24516. }
  24517. case DUK__FLD_FLOAT: {
  24518. duk_uint32_t tmp;
  24519. if (offset + 4U > check_length) {
  24520. goto fail_bounds;
  24521. }
  24522. DUK_MEMCPY((void *) du.uc, (const void *) (buf + offset), 4);
  24523. if (endswap) {
  24524. tmp = du.ui[0];
  24525. tmp = DUK_BSWAP32(tmp);
  24526. du.ui[0] = tmp;
  24527. }
  24528. duk_push_number(thr, (duk_double_t) du.f[0]);
  24529. break;
  24530. }
  24531. case DUK__FLD_DOUBLE: {
  24532. if (offset + 8U > check_length) {
  24533. goto fail_bounds;
  24534. }
  24535. DUK_MEMCPY((void *) du.uc, (const void *) (buf + offset), 8);
  24536. if (endswap) {
  24537. DUK_DBLUNION_BSWAP64(&du);
  24538. }
  24539. duk_push_number(thr, (duk_double_t) du.d);
  24540. break;
  24541. }
  24542. case DUK__FLD_VARINT: {
  24543. /* Node.js Buffer variable width integer field. We don't really
  24544. * care about speed here, so aim for shortest algorithm.
  24545. */
  24546. duk_int_t field_bytelen;
  24547. duk_int_t i, i_step, i_end;
  24548. #if defined(DUK_USE_64BIT_OPS)
  24549. duk_int64_t tmp;
  24550. duk_small_uint_t shift_tmp;
  24551. #else
  24552. duk_double_t tmp;
  24553. duk_small_int_t highbyte;
  24554. #endif
  24555. const duk_uint8_t *p;
  24556. field_bytelen = duk_get_int(thr, 1); /* avoid side effects! */
  24557. if (field_bytelen < 1 || field_bytelen > 6) {
  24558. goto fail_field_length;
  24559. }
  24560. if (offset + (duk_uint_t) field_bytelen > check_length) {
  24561. goto fail_bounds;
  24562. }
  24563. p = (const duk_uint8_t *) (buf + offset);
  24564. /* Slow gathering of value using either 64-bit arithmetic
  24565. * or IEEE doubles if 64-bit types not available. Handling
  24566. * of negative numbers is a bit non-obvious in both cases.
  24567. */
  24568. if (magic_bigendian) {
  24569. /* Gather in big endian */
  24570. i = 0;
  24571. i_step = 1;
  24572. i_end = field_bytelen; /* one i_step over */
  24573. } else {
  24574. /* Gather in little endian */
  24575. i = field_bytelen - 1;
  24576. i_step = -1;
  24577. i_end = -1; /* one i_step over */
  24578. }
  24579. #if defined(DUK_USE_64BIT_OPS)
  24580. tmp = 0;
  24581. do {
  24582. DUK_ASSERT(i >= 0 && i < field_bytelen);
  24583. tmp = (tmp << 8) + (duk_int64_t) p[i];
  24584. i += i_step;
  24585. } while (i != i_end);
  24586. if (magic_signed) {
  24587. /* Shift to sign extend. */
  24588. shift_tmp = (duk_small_uint_t) (64U - (duk_small_uint_t) field_bytelen * 8U);
  24589. tmp = (tmp << shift_tmp) >> shift_tmp;
  24590. }
  24591. duk_push_i64(thr, tmp);
  24592. #else
  24593. highbyte = p[i];
  24594. if (magic_signed && (highbyte & 0x80) != 0) {
  24595. /* 0xff => 255 - 256 = -1; 0x80 => 128 - 256 = -128 */
  24596. tmp = (duk_double_t) (highbyte - 256);
  24597. } else {
  24598. tmp = (duk_double_t) highbyte;
  24599. }
  24600. for (;;) {
  24601. i += i_step;
  24602. if (i == i_end) {
  24603. break;
  24604. }
  24605. DUK_ASSERT(i >= 0 && i < field_bytelen);
  24606. tmp = (tmp * 256.0) + (duk_double_t) p[i];
  24607. }
  24608. duk_push_number(thr, tmp);
  24609. #endif
  24610. break;
  24611. }
  24612. default: { /* should never happen but default here */
  24613. goto fail_bounds;
  24614. }
  24615. }
  24616. return 1;
  24617. fail_neutered:
  24618. fail_field_length:
  24619. fail_bounds:
  24620. if (no_assert) {
  24621. /* Node.js return value for noAssert out-of-bounds reads is
  24622. * usually (but not always) NaN. Return NaN consistently.
  24623. */
  24624. duk_push_nan(thr);
  24625. return 1;
  24626. }
  24627. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  24628. }
  24629. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24630. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24631. /* XXX: split into separate functions for each field type? */
  24632. DUK_INTERNAL duk_ret_t duk_bi_buffer_writefield(duk_hthread *thr) {
  24633. duk_small_int_t magic = (duk_small_int_t) duk_get_current_magic(thr);
  24634. duk_small_int_t magic_ftype;
  24635. duk_small_int_t magic_bigendian;
  24636. duk_small_int_t magic_signed;
  24637. duk_small_int_t magic_typedarray;
  24638. duk_small_int_t endswap;
  24639. duk_hbufobj *h_this;
  24640. duk_bool_t no_assert;
  24641. duk_int_t offset_signed;
  24642. duk_uint_t offset;
  24643. duk_uint_t buffer_length;
  24644. duk_uint_t check_length;
  24645. duk_uint8_t *buf;
  24646. duk_double_union du;
  24647. duk_int_t nbytes = 0;
  24648. magic_ftype = magic & 0x0007;
  24649. magic_bigendian = magic & 0x0008;
  24650. magic_signed = magic & 0x0010;
  24651. magic_typedarray = magic & 0x0020;
  24652. DUK_UNREF(magic_signed);
  24653. h_this = duk__require_bufobj_this(thr); /* XXX: very inefficient for plain buffers */
  24654. DUK_ASSERT(h_this != NULL);
  24655. buffer_length = h_this->length;
  24656. /* [ value offset noAssert ], when ftype != DUK__FLD_VARINT */
  24657. /* [ value offset fieldByteLength noAssert ], when ftype == DUK__FLD_VARINT */
  24658. /* [ offset value littleEndian ], when DUK__FLD_TYPEDARRAY (regardless of ftype) */
  24659. /* Handle TypedArray vs. Node.js Buffer arg differences */
  24660. if (magic_typedarray) {
  24661. no_assert = 0;
  24662. #if defined(DUK_USE_INTEGER_LE)
  24663. endswap = !duk_to_boolean(thr, 2); /* 1=little endian */
  24664. #else
  24665. endswap = duk_to_boolean(thr, 2); /* 1=little endian */
  24666. #endif
  24667. duk_swap(thr, 0, 1); /* offset/value order different from Node.js */
  24668. } else {
  24669. no_assert = duk_to_boolean(thr, (magic_ftype == DUK__FLD_VARINT) ? 3 : 2);
  24670. #if defined(DUK_USE_INTEGER_LE)
  24671. endswap = magic_bigendian;
  24672. #else
  24673. endswap = !magic_bigendian;
  24674. #endif
  24675. }
  24676. /* Offset is coerced first to signed integer range and then to unsigned.
  24677. * This ensures we can add a small byte length (1-8) to the offset in
  24678. * bound checks and not wrap.
  24679. */
  24680. offset_signed = duk_to_int(thr, 1);
  24681. offset = (duk_uint_t) offset_signed;
  24682. /* We need 'nbytes' even for a failed offset; return value must be
  24683. * (offset + nbytes) even when write fails due to invalid offset.
  24684. */
  24685. if (magic_ftype != DUK__FLD_VARINT) {
  24686. DUK_ASSERT(magic_ftype >= 0 && magic_ftype < (duk_small_int_t) (sizeof(duk__buffer_nbytes_from_fldtype) / sizeof(duk_uint8_t)));
  24687. nbytes = duk__buffer_nbytes_from_fldtype[magic_ftype];
  24688. } else {
  24689. nbytes = duk_get_int(thr, 2);
  24690. if (nbytes < 1 || nbytes > 6) {
  24691. goto fail_field_length;
  24692. }
  24693. }
  24694. DUK_ASSERT(nbytes >= 1 && nbytes <= 8);
  24695. /* Now we can check offset validity. */
  24696. if (offset_signed < 0) {
  24697. goto fail_bounds;
  24698. }
  24699. DUK_DDD(DUK_DDDPRINT("writefield, value=%!T, buffer_length=%ld, offset=%ld, no_assert=%d, "
  24700. "magic=%04x, magic_fieldtype=%d, magic_bigendian=%d, magic_signed=%d, "
  24701. "endswap=%d",
  24702. duk_get_tval(thr, 0), (long) buffer_length, (long) offset, (int) no_assert,
  24703. (unsigned int) magic, (int) magic_ftype, (int) (magic_bigendian >> 3),
  24704. (int) (magic_signed >> 4), (int) endswap));
  24705. /* Coerce value to a number before computing check_length, so that
  24706. * the field type specific coercion below can't have side effects
  24707. * that would invalidate check_length.
  24708. */
  24709. duk_to_number(thr, 0);
  24710. /* Update 'buffer_length' to be the effective, safe limit which
  24711. * takes into account the underlying buffer. This value will be
  24712. * potentially invalidated by any side effect.
  24713. */
  24714. check_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, buffer_length);
  24715. DUK_DDD(DUK_DDDPRINT("buffer_length=%ld, check_length=%ld",
  24716. (long) buffer_length, (long) check_length));
  24717. if (h_this->buf) {
  24718. buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this);
  24719. } else {
  24720. /* Neutered. We could go into the switch-case safely with
  24721. * buf == NULL because check_length == 0. To avoid scanbuild
  24722. * warnings, fail directly instead.
  24723. */
  24724. DUK_ASSERT(check_length == 0);
  24725. goto fail_neutered;
  24726. }
  24727. DUK_ASSERT(buf != NULL);
  24728. switch (magic_ftype) {
  24729. case DUK__FLD_8BIT: {
  24730. if (offset + 1U > check_length) {
  24731. goto fail_bounds;
  24732. }
  24733. /* sign doesn't matter when writing */
  24734. buf[offset] = (duk_uint8_t) duk_to_uint32(thr, 0);
  24735. break;
  24736. }
  24737. case DUK__FLD_16BIT: {
  24738. duk_uint16_t tmp;
  24739. if (offset + 2U > check_length) {
  24740. goto fail_bounds;
  24741. }
  24742. tmp = (duk_uint16_t) duk_to_uint32(thr, 0);
  24743. if (endswap) {
  24744. tmp = DUK_BSWAP16(tmp);
  24745. }
  24746. du.us[0] = tmp;
  24747. /* sign doesn't matter when writing */
  24748. DUK_MEMCPY((void *) (buf + offset), (const void *) du.uc, 2);
  24749. break;
  24750. }
  24751. case DUK__FLD_32BIT: {
  24752. duk_uint32_t tmp;
  24753. if (offset + 4U > check_length) {
  24754. goto fail_bounds;
  24755. }
  24756. tmp = (duk_uint32_t) duk_to_uint32(thr, 0);
  24757. if (endswap) {
  24758. tmp = DUK_BSWAP32(tmp);
  24759. }
  24760. du.ui[0] = tmp;
  24761. /* sign doesn't matter when writing */
  24762. DUK_MEMCPY((void *) (buf + offset), (const void *) du.uc, 4);
  24763. break;
  24764. }
  24765. case DUK__FLD_FLOAT: {
  24766. duk_uint32_t tmp;
  24767. if (offset + 4U > check_length) {
  24768. goto fail_bounds;
  24769. }
  24770. du.f[0] = (duk_float_t) duk_to_number(thr, 0);
  24771. if (endswap) {
  24772. tmp = du.ui[0];
  24773. tmp = DUK_BSWAP32(tmp);
  24774. du.ui[0] = tmp;
  24775. }
  24776. /* sign doesn't matter when writing */
  24777. DUK_MEMCPY((void *) (buf + offset), (const void *) du.uc, 4);
  24778. break;
  24779. }
  24780. case DUK__FLD_DOUBLE: {
  24781. if (offset + 8U > check_length) {
  24782. goto fail_bounds;
  24783. }
  24784. du.d = (duk_double_t) duk_to_number(thr, 0);
  24785. if (endswap) {
  24786. DUK_DBLUNION_BSWAP64(&du);
  24787. }
  24788. /* sign doesn't matter when writing */
  24789. DUK_MEMCPY((void *) (buf + offset), (const void *) du.uc, 8);
  24790. break;
  24791. }
  24792. case DUK__FLD_VARINT: {
  24793. /* Node.js Buffer variable width integer field. We don't really
  24794. * care about speed here, so aim for shortest algorithm.
  24795. */
  24796. duk_int_t field_bytelen;
  24797. duk_int_t i, i_step, i_end;
  24798. #if defined(DUK_USE_64BIT_OPS)
  24799. duk_int64_t tmp;
  24800. #else
  24801. duk_double_t tmp;
  24802. #endif
  24803. duk_uint8_t *p;
  24804. field_bytelen = (duk_int_t) nbytes;
  24805. if (offset + (duk_uint_t) field_bytelen > check_length) {
  24806. goto fail_bounds;
  24807. }
  24808. /* Slow writing of value using either 64-bit arithmetic
  24809. * or IEEE doubles if 64-bit types not available. There's
  24810. * no special sign handling when writing varints.
  24811. */
  24812. if (magic_bigendian) {
  24813. /* Write in big endian */
  24814. i = field_bytelen; /* one i_step added at top of loop */
  24815. i_step = -1;
  24816. i_end = 0;
  24817. } else {
  24818. /* Write in little endian */
  24819. i = -1; /* one i_step added at top of loop */
  24820. i_step = 1;
  24821. i_end = field_bytelen - 1;
  24822. }
  24823. /* XXX: The duk_to_number() cast followed by integer coercion
  24824. * is platform specific so NaN, +/- Infinity, and out-of-bounds
  24825. * values result in platform specific output now.
  24826. * See: test-bi-nodejs-buffer-proto-varint-special.js
  24827. */
  24828. #if defined(DUK_USE_64BIT_OPS)
  24829. tmp = (duk_int64_t) duk_to_number(thr, 0);
  24830. p = (duk_uint8_t *) (buf + offset);
  24831. do {
  24832. i += i_step;
  24833. DUK_ASSERT(i >= 0 && i < field_bytelen);
  24834. p[i] = (duk_uint8_t) (tmp & 0xff);
  24835. tmp = tmp >> 8; /* unnecessary shift for last byte */
  24836. } while (i != i_end);
  24837. #else
  24838. tmp = duk_to_number(thr, 0);
  24839. p = (duk_uint8_t *) (buf + offset);
  24840. do {
  24841. i += i_step;
  24842. tmp = DUK_FLOOR(tmp);
  24843. DUK_ASSERT(i >= 0 && i < field_bytelen);
  24844. p[i] = (duk_uint8_t) (DUK_FMOD(tmp, 256.0));
  24845. tmp = tmp / 256.0; /* unnecessary div for last byte */
  24846. } while (i != i_end);
  24847. #endif
  24848. break;
  24849. }
  24850. default: { /* should never happen but default here */
  24851. goto fail_bounds;
  24852. }
  24853. }
  24854. /* Node.js Buffer: return offset + #bytes written (i.e. next
  24855. * write offset).
  24856. */
  24857. if (magic_typedarray) {
  24858. /* For TypedArrays 'undefined' return value is specified
  24859. * by ES2015 (matches V8).
  24860. */
  24861. return 0;
  24862. }
  24863. duk_push_uint(thr, offset + (duk_uint_t) nbytes);
  24864. return 1;
  24865. fail_neutered:
  24866. fail_field_length:
  24867. fail_bounds:
  24868. if (no_assert) {
  24869. /* Node.js return value for failed writes is offset + #bytes
  24870. * that would have been written.
  24871. */
  24872. /* XXX: for negative input offsets, 'offset' will be a large
  24873. * positive value so the result here is confusing.
  24874. */
  24875. if (magic_typedarray) {
  24876. return 0;
  24877. }
  24878. duk_push_uint(thr, offset + (duk_uint_t) nbytes);
  24879. return 1;
  24880. }
  24881. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  24882. }
  24883. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24884. /*
  24885. * Accessors for .buffer, .byteLength, .byteOffset
  24886. */
  24887. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  24888. DUK_LOCAL duk_hbufobj *duk__autospawn_arraybuffer(duk_hthread *thr, duk_hbuffer *h_buf) {
  24889. duk_hbufobj *h_res;
  24890. h_res = duk_push_bufobj_raw(thr,
  24891. DUK_HOBJECT_FLAG_EXTENSIBLE |
  24892. DUK_HOBJECT_FLAG_BUFOBJ |
  24893. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER),
  24894. DUK_BIDX_ARRAYBUFFER_PROTOTYPE);
  24895. DUK_ASSERT(h_res != NULL);
  24896. DUK_UNREF(h_res);
  24897. duk__set_bufobj_buffer(thr, h_res, h_buf);
  24898. DUK_ASSERT_HBUFOBJ_VALID(h_res);
  24899. DUK_ASSERT(h_res->buf_prop == NULL);
  24900. return h_res;
  24901. }
  24902. DUK_INTERNAL duk_ret_t duk_bi_typedarray_buffer_getter(duk_hthread *thr) {
  24903. duk_hbufobj *h_bufobj;
  24904. h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/);
  24905. DUK_ASSERT(h_bufobj != NULL);
  24906. if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) {
  24907. DUK_DD(DUK_DDPRINT("autospawn ArrayBuffer for plain buffer"));
  24908. (void) duk__autospawn_arraybuffer(thr, (duk_hbuffer *) h_bufobj);
  24909. return 1;
  24910. } else {
  24911. if (h_bufobj->buf_prop == NULL &&
  24912. DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_bufobj) != DUK_HOBJECT_CLASS_ARRAYBUFFER &&
  24913. h_bufobj->buf != NULL) {
  24914. duk_hbufobj *h_arrbuf;
  24915. DUK_DD(DUK_DDPRINT("autospawn ArrayBuffer for typed array or DataView"));
  24916. h_arrbuf = duk__autospawn_arraybuffer(thr, h_bufobj->buf);
  24917. if (h_bufobj->buf_prop == NULL) {
  24918. /* Must recheck buf_prop, in case ArrayBuffer
  24919. * alloc had a side effect which already filled
  24920. * it!
  24921. */
  24922. /* Set ArrayBuffer's .byteOffset and .byteLength based
  24923. * on the view so that Arraybuffer[view.byteOffset]
  24924. * matches view[0].
  24925. */
  24926. h_arrbuf->offset = 0;
  24927. DUK_ASSERT(h_bufobj->offset + h_bufobj->length >= h_bufobj->offset); /* Wrap check on creation. */
  24928. h_arrbuf->length = h_bufobj->offset + h_bufobj->length;
  24929. DUK_ASSERT(h_arrbuf->buf_prop == NULL);
  24930. DUK_ASSERT(h_bufobj->buf_prop == NULL);
  24931. h_bufobj->buf_prop = (duk_hobject *) h_arrbuf;
  24932. DUK_HBUFOBJ_INCREF(thr, h_arrbuf); /* Now reachable and accounted for. */
  24933. }
  24934. /* Left on stack; pushed for the second time below (OK). */
  24935. }
  24936. if (h_bufobj->buf_prop) {
  24937. duk_push_hobject(thr, h_bufobj->buf_prop);
  24938. return 1;
  24939. }
  24940. }
  24941. return 0;
  24942. }
  24943. DUK_INTERNAL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_hthread *thr) {
  24944. duk_hbufobj *h_bufobj;
  24945. h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/);
  24946. DUK_ASSERT(h_bufobj != NULL);
  24947. if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) {
  24948. duk_push_uint(thr, 0);
  24949. } else {
  24950. /* If neutered must return 0; offset is zeroed during
  24951. * neutering.
  24952. */
  24953. duk_push_uint(thr, h_bufobj->offset);
  24954. }
  24955. return 1;
  24956. }
  24957. DUK_INTERNAL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_hthread *thr) {
  24958. duk_hbufobj *h_bufobj;
  24959. h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/);
  24960. DUK_ASSERT(h_bufobj != NULL);
  24961. if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) {
  24962. duk_hbuffer *h_buf;
  24963. h_buf = (duk_hbuffer *) h_bufobj;
  24964. DUK_ASSERT(DUK_HBUFFER_GET_SIZE(h_buf) <= DUK_UINT_MAX); /* Buffer limits. */
  24965. duk_push_uint(thr, (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_buf));
  24966. } else {
  24967. /* If neutered must return 0; length is zeroed during
  24968. * neutering.
  24969. */
  24970. duk_push_uint(thr, h_bufobj->length);
  24971. }
  24972. return 1;
  24973. }
  24974. #else /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24975. /* No .buffer getter without ArrayBuffer support. */
  24976. #if 0
  24977. DUK_INTERNAL duk_ret_t duk_bi_typedarray_buffer_getter(duk_hthread *thr) {
  24978. return 0;
  24979. }
  24980. #endif
  24981. DUK_INTERNAL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_hthread *thr) {
  24982. duk_push_uint(thr, 0);
  24983. return 1;
  24984. }
  24985. DUK_INTERNAL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_hthread *thr) {
  24986. duk_hbuffer *h_buf;
  24987. /* XXX: helper? */
  24988. duk_push_this(thr);
  24989. h_buf = duk_require_hbuffer(thr, -1);
  24990. duk_push_uint(thr, DUK_HBUFFER_GET_SIZE(h_buf));
  24991. return 1;
  24992. }
  24993. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  24994. /* automatic undefs */
  24995. #undef DUK__BUFOBJ_FLAG_PROMOTE
  24996. #undef DUK__BUFOBJ_FLAG_THROW
  24997. #undef DUK__FLD_16BIT
  24998. #undef DUK__FLD_32BIT
  24999. #undef DUK__FLD_8BIT
  25000. #undef DUK__FLD_BIGENDIAN
  25001. #undef DUK__FLD_DOUBLE
  25002. #undef DUK__FLD_FLOAT
  25003. #undef DUK__FLD_SIGNED
  25004. #undef DUK__FLD_TYPEDARRAY
  25005. #undef DUK__FLD_VARINT
  25006. #line 1 "duk_bi_date.c"
  25007. /*
  25008. * Date built-ins
  25009. *
  25010. * Unlike most built-ins, Date has some platform dependencies for getting
  25011. * UTC time, converting between UTC and local time, and parsing and
  25012. * formatting time values. These are all abstracted behind DUK_USE_xxx
  25013. * config options. There are built-in platform specific providers for
  25014. * POSIX and Windows, but external providers can also be used.
  25015. *
  25016. * See doc/datetime.rst.
  25017. *
  25018. */
  25019. /* #include duk_internal.h -> already included */
  25020. /* XXX: currently defines unnecessary symbols when DUK_USE_DATE_BUILTIN is disabled. */
  25021. /*
  25022. * Forward declarations
  25023. */
  25024. DUK_LOCAL_DECL duk_double_t duk__push_this_get_timeval_tzoffset(duk_hthread *thr, duk_small_uint_t flags, duk_int_t *out_tzoffset);
  25025. DUK_LOCAL_DECL duk_double_t duk__push_this_get_timeval(duk_hthread *thr, duk_small_uint_t flags);
  25026. DUK_LOCAL_DECL void duk__twodigit_year_fixup(duk_hthread *thr, duk_idx_t idx_val);
  25027. DUK_LOCAL_DECL duk_ret_t duk__set_this_timeval_from_dparts(duk_hthread *thr, duk_double_t *dparts, duk_small_uint_t flags);
  25028. /*
  25029. * Other file level defines
  25030. */
  25031. /* Debug macro to print all parts and dparts (used manually because of debug level). */
  25032. #define DUK__DPRINT_PARTS_AND_DPARTS(parts,dparts) do { \
  25033. DUK_D(DUK_DPRINT("parts: %ld %ld %ld %ld %ld %ld %ld %ld, dparts: %lf %lf %lf %lf %lf %lf %lf %lf", \
  25034. (long) (parts)[0], (long) (parts)[1], \
  25035. (long) (parts)[2], (long) (parts)[3], \
  25036. (long) (parts)[4], (long) (parts)[5], \
  25037. (long) (parts)[6], (long) (parts)[7], \
  25038. (double) (dparts)[0], (double) (dparts)[1], \
  25039. (double) (dparts)[2], (double) (dparts)[3], \
  25040. (double) (dparts)[4], (double) (dparts)[5], \
  25041. (double) (dparts)[6], (double) (dparts)[7])); \
  25042. } while (0)
  25043. #define DUK__DPRINT_PARTS(parts) do { \
  25044. DUK_D(DUK_DPRINT("parts: %ld %ld %ld %ld %ld %ld %ld %ld", \
  25045. (long) (parts)[0], (long) (parts)[1], \
  25046. (long) (parts)[2], (long) (parts)[3], \
  25047. (long) (parts)[4], (long) (parts)[5], \
  25048. (long) (parts)[6], (long) (parts)[7])); \
  25049. } while (0)
  25050. #define DUK__DPRINT_DPARTS(dparts) do { \
  25051. DUK_D(DUK_DPRINT("dparts: %lf %lf %lf %lf %lf %lf %lf %lf", \
  25052. (double) (dparts)[0], (double) (dparts)[1], \
  25053. (double) (dparts)[2], (double) (dparts)[3], \
  25054. (double) (dparts)[4], (double) (dparts)[5], \
  25055. (double) (dparts)[6], (double) (dparts)[7])); \
  25056. } while (0)
  25057. /* Equivalent year for DST calculations outside [1970,2038[ range, see
  25058. * E5 Section 15.9.1.8. Equivalent year has the same leap-year-ness and
  25059. * starts with the same weekday on Jan 1.
  25060. * https://bugzilla.mozilla.org/show_bug.cgi?id=351066
  25061. */
  25062. #define DUK__YEAR(x) ((duk_uint8_t) ((x) - 1970))
  25063. DUK_LOCAL duk_uint8_t duk__date_equivyear[14] = {
  25064. #if 1
  25065. /* This is based on V8 EquivalentYear() algorithm (see util/genequivyear.py):
  25066. * http://code.google.com/p/v8/source/browse/trunk/src/date.h#146
  25067. */
  25068. /* non-leap year: sunday, monday, ... */
  25069. DUK__YEAR(2023), DUK__YEAR(2035), DUK__YEAR(2019), DUK__YEAR(2031),
  25070. DUK__YEAR(2015), DUK__YEAR(2027), DUK__YEAR(2011),
  25071. /* leap year: sunday, monday, ... */
  25072. DUK__YEAR(2012), DUK__YEAR(2024), DUK__YEAR(2008), DUK__YEAR(2020),
  25073. DUK__YEAR(2032), DUK__YEAR(2016), DUK__YEAR(2028)
  25074. #endif
  25075. #if 0
  25076. /* This is based on Rhino EquivalentYear() algorithm:
  25077. * https://github.com/mozilla/rhino/blob/f99cc11d616f0cdda2c42bde72b3484df6182947/src/org/mozilla/javascript/NativeDate.java
  25078. */
  25079. /* non-leap year: sunday, monday, ... */
  25080. DUK__YEAR(1978), DUK__YEAR(1973), DUK__YEAR(1985), DUK__YEAR(1986),
  25081. DUK__YEAR(1981), DUK__YEAR(1971), DUK__YEAR(1977),
  25082. /* leap year: sunday, monday, ... */
  25083. DUK__YEAR(1984), DUK__YEAR(1996), DUK__YEAR(1980), DUK__YEAR(1992),
  25084. DUK__YEAR(1976), DUK__YEAR(1988), DUK__YEAR(1972)
  25085. #endif
  25086. };
  25087. /*
  25088. * ISO 8601 subset parser.
  25089. */
  25090. /* Parser part count. */
  25091. #define DUK__NUM_ISO8601_PARSER_PARTS 9
  25092. /* Parser part indices. */
  25093. #define DUK__PI_YEAR 0
  25094. #define DUK__PI_MONTH 1
  25095. #define DUK__PI_DAY 2
  25096. #define DUK__PI_HOUR 3
  25097. #define DUK__PI_MINUTE 4
  25098. #define DUK__PI_SECOND 5
  25099. #define DUK__PI_MILLISECOND 6
  25100. #define DUK__PI_TZHOUR 7
  25101. #define DUK__PI_TZMINUTE 8
  25102. /* Parser part masks. */
  25103. #define DUK__PM_YEAR (1 << DUK__PI_YEAR)
  25104. #define DUK__PM_MONTH (1 << DUK__PI_MONTH)
  25105. #define DUK__PM_DAY (1 << DUK__PI_DAY)
  25106. #define DUK__PM_HOUR (1 << DUK__PI_HOUR)
  25107. #define DUK__PM_MINUTE (1 << DUK__PI_MINUTE)
  25108. #define DUK__PM_SECOND (1 << DUK__PI_SECOND)
  25109. #define DUK__PM_MILLISECOND (1 << DUK__PI_MILLISECOND)
  25110. #define DUK__PM_TZHOUR (1 << DUK__PI_TZHOUR)
  25111. #define DUK__PM_TZMINUTE (1 << DUK__PI_TZMINUTE)
  25112. /* Parser separator indices. */
  25113. #define DUK__SI_PLUS 0
  25114. #define DUK__SI_MINUS 1
  25115. #define DUK__SI_T 2
  25116. #define DUK__SI_SPACE 3
  25117. #define DUK__SI_COLON 4
  25118. #define DUK__SI_PERIOD 5
  25119. #define DUK__SI_Z 6
  25120. #define DUK__SI_NUL 7
  25121. /* Parser separator masks. */
  25122. #define DUK__SM_PLUS (1 << DUK__SI_PLUS)
  25123. #define DUK__SM_MINUS (1 << DUK__SI_MINUS)
  25124. #define DUK__SM_T (1 << DUK__SI_T)
  25125. #define DUK__SM_SPACE (1 << DUK__SI_SPACE)
  25126. #define DUK__SM_COLON (1 << DUK__SI_COLON)
  25127. #define DUK__SM_PERIOD (1 << DUK__SI_PERIOD)
  25128. #define DUK__SM_Z (1 << DUK__SI_Z)
  25129. #define DUK__SM_NUL (1 << DUK__SI_NUL)
  25130. /* Rule control flags. */
  25131. #define DUK__CF_NEG (1 << 0) /* continue matching, set neg_tzoffset flag */
  25132. #define DUK__CF_ACCEPT (1 << 1) /* accept string */
  25133. #define DUK__CF_ACCEPT_NUL (1 << 2) /* accept string if next char is NUL (otherwise reject) */
  25134. #define DUK__PACK_RULE(partmask,sepmask,nextpart,flags) \
  25135. ((duk_uint32_t) (partmask) + \
  25136. (((duk_uint32_t) (sepmask)) << 9) + \
  25137. (((duk_uint32_t) (nextpart)) << 17) + \
  25138. (((duk_uint32_t) (flags)) << 21))
  25139. #define DUK__UNPACK_RULE(rule,var_nextidx,var_flags) do { \
  25140. (var_nextidx) = (duk_small_uint_t) (((rule) >> 17) & 0x0f); \
  25141. (var_flags) = (duk_small_uint_t) ((rule) >> 21); \
  25142. } while (0)
  25143. #define DUK__RULE_MASK_PART_SEP 0x1ffffUL
  25144. /* Matching separator index is used in the control table */
  25145. DUK_LOCAL const duk_uint8_t duk__parse_iso8601_seps[] = {
  25146. DUK_ASC_PLUS /*0*/, DUK_ASC_MINUS /*1*/, DUK_ASC_UC_T /*2*/, DUK_ASC_SPACE /*3*/,
  25147. DUK_ASC_COLON /*4*/, DUK_ASC_PERIOD /*5*/, DUK_ASC_UC_Z /*6*/, DUK_ASC_NUL /*7*/
  25148. };
  25149. /* Rule table: first matching rule is used to determine what to do next. */
  25150. DUK_LOCAL const duk_uint32_t duk__parse_iso8601_control[] = {
  25151. DUK__PACK_RULE(DUK__PM_YEAR, DUK__SM_MINUS, DUK__PI_MONTH, 0),
  25152. DUK__PACK_RULE(DUK__PM_MONTH, DUK__SM_MINUS, DUK__PI_DAY, 0),
  25153. DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY, DUK__SM_T | DUK__SM_SPACE, DUK__PI_HOUR, 0),
  25154. DUK__PACK_RULE(DUK__PM_HOUR, DUK__SM_COLON, DUK__PI_MINUTE, 0),
  25155. DUK__PACK_RULE(DUK__PM_MINUTE, DUK__SM_COLON, DUK__PI_SECOND, 0),
  25156. DUK__PACK_RULE(DUK__PM_SECOND, DUK__SM_PERIOD, DUK__PI_MILLISECOND, 0),
  25157. DUK__PACK_RULE(DUK__PM_TZHOUR, DUK__SM_COLON, DUK__PI_TZMINUTE, 0),
  25158. DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_PLUS, DUK__PI_TZHOUR, 0),
  25159. DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_MINUS, DUK__PI_TZHOUR, DUK__CF_NEG),
  25160. DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_Z, 0, DUK__CF_ACCEPT_NUL),
  25161. DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND | DUK__PM_TZHOUR /*Note2*/ | DUK__PM_TZMINUTE, DUK__SM_NUL, 0, DUK__CF_ACCEPT)
  25162. /* Note1: the specification doesn't require matching a time form with
  25163. * just hours ("HH"), but we accept it here, e.g. "2012-01-02T12Z".
  25164. *
  25165. * Note2: the specification doesn't require matching a timezone offset
  25166. * with just hours ("HH"), but accept it here, e.g. "2012-01-02T03:04:05+02"
  25167. */
  25168. };
  25169. DUK_LOCAL duk_bool_t duk__parse_string_iso8601_subset(duk_hthread *thr, const char *str) {
  25170. duk_int_t parts[DUK__NUM_ISO8601_PARSER_PARTS];
  25171. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  25172. duk_double_t d;
  25173. const duk_uint8_t *p;
  25174. duk_small_uint_t part_idx = 0;
  25175. duk_int_t accum = 0;
  25176. duk_small_uint_t ndigits = 0;
  25177. duk_bool_t neg_year = 0;
  25178. duk_bool_t neg_tzoffset = 0;
  25179. duk_uint_fast8_t ch;
  25180. duk_small_uint_t i;
  25181. /* During parsing, month and day are one-based; set defaults here. */
  25182. DUK_MEMZERO(parts, sizeof(parts));
  25183. DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] == 0); /* don't care value, year is mandatory */
  25184. parts[DUK_DATE_IDX_MONTH] = 1;
  25185. parts[DUK_DATE_IDX_DAY] = 1;
  25186. /* Special handling for year sign. */
  25187. p = (const duk_uint8_t *) str;
  25188. ch = p[0];
  25189. if (ch == DUK_ASC_PLUS) {
  25190. p++;
  25191. } else if (ch == DUK_ASC_MINUS) {
  25192. neg_year = 1;
  25193. p++;
  25194. }
  25195. for (;;) {
  25196. ch = *p++;
  25197. DUK_DDD(DUK_DDDPRINT("parsing, part_idx=%ld, char=%ld ('%c')",
  25198. (long) part_idx, (long) ch,
  25199. (int) ((ch >= 0x20 && ch <= 0x7e) ? ch : DUK_ASC_QUESTION)));
  25200. if (ch >= DUK_ASC_0 && ch <= DUK_ASC_9) {
  25201. if (ndigits >= 9) {
  25202. DUK_DDD(DUK_DDDPRINT("too many digits -> reject"));
  25203. goto reject;
  25204. }
  25205. if (part_idx == DUK__PI_MILLISECOND && ndigits >= 3) {
  25206. /* ignore millisecond fractions after 3 */
  25207. } else {
  25208. accum = accum * 10 + ((duk_int_t) ch) - ((duk_int_t) DUK_ASC_0) + 0x00;
  25209. ndigits++;
  25210. }
  25211. } else {
  25212. duk_uint_fast32_t match_val;
  25213. duk_small_uint_t sep_idx;
  25214. if (ndigits <= 0) {
  25215. goto reject;
  25216. }
  25217. if (part_idx == DUK__PI_MILLISECOND) {
  25218. /* complete the millisecond field */
  25219. while (ndigits < 3) {
  25220. accum *= 10;
  25221. ndigits++;
  25222. }
  25223. }
  25224. parts[part_idx] = accum;
  25225. DUK_DDD(DUK_DDDPRINT("wrote part %ld -> value %ld", (long) part_idx, (long) accum));
  25226. accum = 0;
  25227. ndigits = 0;
  25228. for (i = 0; i < (duk_small_uint_t) (sizeof(duk__parse_iso8601_seps) / sizeof(duk_uint8_t)); i++) {
  25229. if (duk__parse_iso8601_seps[i] == ch) {
  25230. break;
  25231. }
  25232. }
  25233. if (i == (duk_small_uint_t) (sizeof(duk__parse_iso8601_seps) / sizeof(duk_uint8_t))) {
  25234. DUK_DDD(DUK_DDDPRINT("separator character doesn't match -> reject"));
  25235. goto reject;
  25236. }
  25237. sep_idx = i;
  25238. match_val = (1UL << part_idx) + (1UL << (sep_idx + 9)); /* match against rule part/sep bits */
  25239. for (i = 0; i < (duk_small_uint_t) (sizeof(duk__parse_iso8601_control) / sizeof(duk_uint32_t)); i++) {
  25240. duk_uint_fast32_t rule = duk__parse_iso8601_control[i];
  25241. duk_small_uint_t nextpart;
  25242. duk_small_uint_t cflags;
  25243. DUK_DDD(DUK_DDDPRINT("part_idx=%ld, sep_idx=%ld, match_val=0x%08lx, considering rule=0x%08lx",
  25244. (long) part_idx, (long) sep_idx,
  25245. (unsigned long) match_val, (unsigned long) rule));
  25246. if ((rule & match_val) != match_val) {
  25247. continue;
  25248. }
  25249. DUK__UNPACK_RULE(rule, nextpart, cflags);
  25250. DUK_DDD(DUK_DDDPRINT("rule match -> part_idx=%ld, sep_idx=%ld, match_val=0x%08lx, "
  25251. "rule=0x%08lx -> nextpart=%ld, cflags=0x%02lx",
  25252. (long) part_idx, (long) sep_idx,
  25253. (unsigned long) match_val, (unsigned long) rule,
  25254. (long) nextpart, (unsigned long) cflags));
  25255. if (cflags & DUK__CF_NEG) {
  25256. neg_tzoffset = 1;
  25257. }
  25258. if (cflags & DUK__CF_ACCEPT) {
  25259. goto accept;
  25260. }
  25261. if (cflags & DUK__CF_ACCEPT_NUL) {
  25262. DUK_ASSERT(*(p - 1) != (char) 0);
  25263. if (*p == DUK_ASC_NUL) {
  25264. goto accept;
  25265. }
  25266. goto reject;
  25267. }
  25268. part_idx = nextpart;
  25269. break;
  25270. } /* rule match */
  25271. if (i == (duk_small_uint_t) (sizeof(duk__parse_iso8601_control) / sizeof(duk_uint32_t))) {
  25272. DUK_DDD(DUK_DDDPRINT("no rule matches -> reject"));
  25273. goto reject;
  25274. }
  25275. if (ch == 0) {
  25276. /* This shouldn't be necessary, but check just in case
  25277. * to avoid any chance of overruns.
  25278. */
  25279. DUK_DDD(DUK_DDDPRINT("NUL after rule matching (should not happen) -> reject"));
  25280. goto reject;
  25281. }
  25282. } /* if-digit-else-ctrl */
  25283. } /* char loop */
  25284. /* We should never exit the loop above. */
  25285. DUK_UNREACHABLE();
  25286. reject:
  25287. DUK_DDD(DUK_DDDPRINT("reject"));
  25288. return 0;
  25289. accept:
  25290. DUK_DDD(DUK_DDDPRINT("accept"));
  25291. /* Apply timezone offset to get the main parts in UTC */
  25292. if (neg_year) {
  25293. parts[DUK__PI_YEAR] = -parts[DUK__PI_YEAR];
  25294. }
  25295. if (neg_tzoffset) {
  25296. parts[DUK__PI_HOUR] += parts[DUK__PI_TZHOUR];
  25297. parts[DUK__PI_MINUTE] += parts[DUK__PI_TZMINUTE];
  25298. } else {
  25299. parts[DUK__PI_HOUR] -= parts[DUK__PI_TZHOUR];
  25300. parts[DUK__PI_MINUTE] -= parts[DUK__PI_TZMINUTE];
  25301. }
  25302. parts[DUK__PI_MONTH] -= 1; /* zero-based month */
  25303. parts[DUK__PI_DAY] -= 1; /* zero-based day */
  25304. /* Use double parts, they tolerate unnormalized time.
  25305. *
  25306. * Note: DUK_DATE_IDX_WEEKDAY is initialized with a bogus value (DUK__PI_TZHOUR)
  25307. * on purpose. It won't be actually used by duk_bi_date_get_timeval_from_dparts(),
  25308. * but will make the value initialized just in case, and avoid any
  25309. * potential for Valgrind issues.
  25310. */
  25311. for (i = 0; i < DUK_DATE_IDX_NUM_PARTS; i++) {
  25312. DUK_DDD(DUK_DDDPRINT("part[%ld] = %ld", (long) i, (long) parts[i]));
  25313. dparts[i] = parts[i];
  25314. }
  25315. d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/);
  25316. duk_push_number(thr, d);
  25317. return 1;
  25318. }
  25319. /*
  25320. * Date/time parsing helper.
  25321. *
  25322. * Parse a datetime string into a time value. We must first try to parse
  25323. * the input according to the standard format in E5.1 Section 15.9.1.15.
  25324. * If that fails, we can try to parse using custom parsing, which can
  25325. * either be platform neutral (custom code) or platform specific (using
  25326. * existing platform API calls).
  25327. *
  25328. * Note in particular that we must parse whatever toString(), toUTCString(),
  25329. * and toISOString() can produce; see E5.1 Section 15.9.4.2.
  25330. *
  25331. * Returns 1 to allow tail calling.
  25332. *
  25333. * There is much room for improvement here with respect to supporting
  25334. * alternative datetime formats. For instance, V8 parses '2012-01-01' as
  25335. * UTC and '2012/01/01' as local time.
  25336. */
  25337. DUK_LOCAL duk_ret_t duk__parse_string(duk_hthread *thr, const char *str) {
  25338. /* XXX: there is a small risk here: because the ISO 8601 parser is
  25339. * very loose, it may end up parsing some datetime values which
  25340. * would be better parsed with a platform specific parser.
  25341. */
  25342. DUK_ASSERT(str != NULL);
  25343. DUK_DDD(DUK_DDDPRINT("parse datetime from string '%s'", (const char *) str));
  25344. if (duk__parse_string_iso8601_subset(thr, str) != 0) {
  25345. return 1;
  25346. }
  25347. #if defined(DUK_USE_DATE_PARSE_STRING)
  25348. /* Contract, either:
  25349. * - Push value on stack and return 1
  25350. * - Don't push anything on stack and return 0
  25351. */
  25352. if (DUK_USE_DATE_PARSE_STRING(thr, str) != 0) {
  25353. return 1;
  25354. }
  25355. #else
  25356. /* No platform-specific parsing, this is not an error. */
  25357. #endif
  25358. duk_push_nan(thr);
  25359. return 1;
  25360. }
  25361. /*
  25362. * Calendar helpers
  25363. *
  25364. * Some helpers are used for getters and can operate on normalized values
  25365. * which can be represented with 32-bit signed integers. Other helpers are
  25366. * needed by setters and operate on un-normalized double values, must watch
  25367. * out for non-finite numbers etc.
  25368. */
  25369. DUK_LOCAL duk_uint8_t duk__days_in_month[12] = {
  25370. (duk_uint8_t) 31, (duk_uint8_t) 28, (duk_uint8_t) 31, (duk_uint8_t) 30,
  25371. (duk_uint8_t) 31, (duk_uint8_t) 30, (duk_uint8_t) 31, (duk_uint8_t) 31,
  25372. (duk_uint8_t) 30, (duk_uint8_t) 31, (duk_uint8_t) 30, (duk_uint8_t) 31
  25373. };
  25374. /* Maximum iteration count for computing UTC-to-local time offset when
  25375. * creating an Ecmascript time value from local parts.
  25376. */
  25377. #define DUK__LOCAL_TZOFFSET_MAXITER 4
  25378. /* Because 'day since epoch' can be negative and is used to compute weekday
  25379. * using a modulo operation, add this multiple of 7 to avoid negative values
  25380. * when year is below 1970 epoch. Ecmascript time values are restricted to
  25381. * +/- 100 million days from epoch, so this adder fits nicely into 32 bits.
  25382. * Round to a multiple of 7 (= floor(100000000 / 7) * 7) and add margin.
  25383. */
  25384. #define DUK__WEEKDAY_MOD_ADDER (20000000 * 7) /* 0x08583b00 */
  25385. DUK_INTERNAL duk_bool_t duk_bi_date_is_leap_year(duk_int_t year) {
  25386. if ((year % 4) != 0) {
  25387. return 0;
  25388. }
  25389. if ((year % 100) != 0) {
  25390. return 1;
  25391. }
  25392. if ((year % 400) != 0) {
  25393. return 0;
  25394. }
  25395. return 1;
  25396. }
  25397. DUK_INTERNAL duk_bool_t duk_bi_date_timeval_in_valid_range(duk_double_t x) {
  25398. return (x >= -DUK_DATE_MSEC_100M_DAYS && x <= DUK_DATE_MSEC_100M_DAYS);
  25399. }
  25400. DUK_INTERNAL duk_bool_t duk_bi_date_timeval_in_leeway_range(duk_double_t x) {
  25401. return (x >= -DUK_DATE_MSEC_100M_DAYS_LEEWAY && x <= DUK_DATE_MSEC_100M_DAYS_LEEWAY);
  25402. }
  25403. DUK_INTERNAL duk_bool_t duk_bi_date_year_in_valid_range(duk_double_t x) {
  25404. return (x >= DUK_DATE_MIN_ECMA_YEAR && x <= DUK_DATE_MAX_ECMA_YEAR);
  25405. }
  25406. DUK_LOCAL duk_double_t duk__timeclip(duk_double_t x) {
  25407. if (!DUK_ISFINITE(x)) {
  25408. return DUK_DOUBLE_NAN;
  25409. }
  25410. if (!duk_bi_date_timeval_in_valid_range(x)) {
  25411. return DUK_DOUBLE_NAN;
  25412. }
  25413. x = duk_js_tointeger_number(x);
  25414. /* Here we'd have the option to normalize -0 to +0. */
  25415. return x;
  25416. }
  25417. /* Integer division which floors also negative values correctly. */
  25418. DUK_LOCAL duk_int_t duk__div_floor(duk_int_t a, duk_int_t b) {
  25419. DUK_ASSERT(b > 0);
  25420. if (a >= 0) {
  25421. return a / b;
  25422. } else {
  25423. /* e.g. a = -4, b = 5 --> -4 - 5 + 1 / 5 --> -8 / 5 --> -1
  25424. * a = -5, b = 5 --> -5 - 5 + 1 / 5 --> -9 / 5 --> -1
  25425. * a = -6, b = 5 --> -6 - 5 + 1 / 5 --> -10 / 5 --> -2
  25426. */
  25427. return (a - b + 1) / b;
  25428. }
  25429. }
  25430. /* Compute day number of the first day of a given year. */
  25431. DUK_LOCAL duk_int_t duk__day_from_year(duk_int_t year) {
  25432. /* Note: in integer arithmetic, (x / 4) is same as floor(x / 4) for non-negative
  25433. * values, but is incorrect for negative ones.
  25434. */
  25435. return 365 * (year - 1970)
  25436. + duk__div_floor(year - 1969, 4)
  25437. - duk__div_floor(year - 1901, 100)
  25438. + duk__div_floor(year - 1601, 400);
  25439. }
  25440. /* Given a day number, determine year and day-within-year. */
  25441. DUK_LOCAL duk_int_t duk__year_from_day(duk_int_t day, duk_small_int_t *out_day_within_year) {
  25442. duk_int_t year;
  25443. duk_int_t diff_days;
  25444. /* estimate year upwards (towards positive infinity), then back down;
  25445. * two iterations should be enough
  25446. */
  25447. if (day >= 0) {
  25448. year = 1970 + day / 365;
  25449. } else {
  25450. year = 1970 + day / 366;
  25451. }
  25452. for (;;) {
  25453. diff_days = duk__day_from_year(year) - day;
  25454. DUK_DDD(DUK_DDDPRINT("year=%ld day=%ld, diff_days=%ld", (long) year, (long) day, (long) diff_days));
  25455. if (diff_days <= 0) {
  25456. DUK_ASSERT(-diff_days < 366); /* fits into duk_small_int_t */
  25457. *out_day_within_year = -diff_days;
  25458. DUK_DDD(DUK_DDDPRINT("--> year=%ld, day-within-year=%ld",
  25459. (long) year, (long) *out_day_within_year));
  25460. DUK_ASSERT(*out_day_within_year >= 0);
  25461. DUK_ASSERT(*out_day_within_year < (duk_bi_date_is_leap_year(year) ? 366 : 365));
  25462. return year;
  25463. }
  25464. /* Note: this is very tricky; we must never 'overshoot' the
  25465. * correction downwards.
  25466. */
  25467. year -= 1 + (diff_days - 1) / 366; /* conservative */
  25468. }
  25469. }
  25470. /* Given a (year, month, day-within-month) triple, compute day number.
  25471. * The input triple is un-normalized and may contain non-finite values.
  25472. */
  25473. DUK_LOCAL duk_double_t duk__make_day(duk_double_t year, duk_double_t month, duk_double_t day) {
  25474. duk_int_t day_num;
  25475. duk_bool_t is_leap;
  25476. duk_small_int_t i, n;
  25477. /* Assume that year, month, day are all coerced to whole numbers.
  25478. * They may also be NaN or infinity, in which case this function
  25479. * must return NaN or infinity to ensure time value becomes NaN.
  25480. * If 'day' is NaN, the final return will end up returning a NaN,
  25481. * so it doesn't need to be checked here.
  25482. */
  25483. if (!DUK_ISFINITE(year) || !DUK_ISFINITE(month)) {
  25484. return DUK_DOUBLE_NAN;
  25485. }
  25486. year += DUK_FLOOR(month / 12.0);
  25487. month = DUK_FMOD(month, 12.0);
  25488. if (month < 0.0) {
  25489. /* handle negative values */
  25490. month += 12.0;
  25491. }
  25492. /* The algorithm in E5.1 Section 15.9.1.12 normalizes month, but
  25493. * does not normalize the day-of-month (nor check whether or not
  25494. * it is finite) because it's not necessary for finding the day
  25495. * number which matches the (year,month) pair.
  25496. *
  25497. * We assume that duk__day_from_year() is exact here.
  25498. *
  25499. * Without an explicit infinity / NaN check in the beginning,
  25500. * day_num would be a bogus integer here.
  25501. *
  25502. * It's possible for 'year' to be out of integer range here.
  25503. * If so, we need to return NaN without integer overflow.
  25504. * This fixes test-bug-setyear-overflow.js.
  25505. */
  25506. if (!duk_bi_date_year_in_valid_range(year)) {
  25507. DUK_DD(DUK_DDPRINT("year not in ecmascript valid range, avoid integer overflow: %lf", (double) year));
  25508. return DUK_DOUBLE_NAN;
  25509. }
  25510. day_num = duk__day_from_year((duk_int_t) year);
  25511. is_leap = duk_bi_date_is_leap_year((duk_int_t) year);
  25512. n = (duk_small_int_t) month;
  25513. for (i = 0; i < n; i++) {
  25514. day_num += duk__days_in_month[i];
  25515. if (i == 1 && is_leap) {
  25516. day_num++;
  25517. }
  25518. }
  25519. /* If 'day' is NaN, returns NaN. */
  25520. return (duk_double_t) day_num + day;
  25521. }
  25522. /* Split time value into parts. The time value may contain fractions (it may
  25523. * come from duk_time_to_components() API call) which are truncated. Possible
  25524. * local time adjustment has already been applied when reading the time value.
  25525. */
  25526. DUK_INTERNAL void duk_bi_date_timeval_to_parts(duk_double_t d, duk_int_t *parts, duk_double_t *dparts, duk_small_uint_t flags) {
  25527. duk_double_t d1, d2;
  25528. duk_int_t t1, t2;
  25529. duk_int_t day_since_epoch;
  25530. duk_int_t year; /* does not fit into 16 bits */
  25531. duk_small_int_t day_in_year;
  25532. duk_small_int_t month;
  25533. duk_small_int_t day;
  25534. duk_small_int_t dim;
  25535. duk_int_t jan1_since_epoch;
  25536. duk_small_int_t jan1_weekday;
  25537. duk_int_t equiv_year;
  25538. duk_small_uint_t i;
  25539. duk_bool_t is_leap;
  25540. duk_small_int_t arridx;
  25541. DUK_ASSERT(DUK_ISFINITE(d)); /* caller checks */
  25542. d = DUK_FLOOR(d); /* remove fractions if present */
  25543. DUK_ASSERT(DUK_FLOOR(d) == d);
  25544. /* The timevalue must be in valid Ecmascript range, but since a local
  25545. * time offset can be applied, we need to allow a +/- 24h leeway to
  25546. * the value. In other words, although the UTC time is within the
  25547. * Ecmascript range, the local part values can be just outside of it.
  25548. */
  25549. DUK_UNREF(duk_bi_date_timeval_in_leeway_range);
  25550. DUK_ASSERT(duk_bi_date_timeval_in_leeway_range(d));
  25551. /* These computations are guaranteed to be exact for the valid
  25552. * E5 time value range, assuming milliseconds without fractions.
  25553. */
  25554. d1 = (duk_double_t) DUK_FMOD(d, (double) DUK_DATE_MSEC_DAY);
  25555. if (d1 < 0.0) {
  25556. /* deal with negative values */
  25557. d1 += (duk_double_t) DUK_DATE_MSEC_DAY;
  25558. }
  25559. d2 = DUK_FLOOR((double) (d / (duk_double_t) DUK_DATE_MSEC_DAY));
  25560. DUK_ASSERT(d2 * ((duk_double_t) DUK_DATE_MSEC_DAY) + d1 == d);
  25561. /* now expected to fit into a 32-bit integer */
  25562. t1 = (duk_int_t) d1;
  25563. t2 = (duk_int_t) d2;
  25564. day_since_epoch = t2;
  25565. DUK_ASSERT((duk_double_t) t1 == d1);
  25566. DUK_ASSERT((duk_double_t) t2 == d2);
  25567. /* t1 = milliseconds within day (fits 32 bit)
  25568. * t2 = day number from epoch (fits 32 bit, may be negative)
  25569. */
  25570. parts[DUK_DATE_IDX_MILLISECOND] = t1 % 1000; t1 /= 1000;
  25571. parts[DUK_DATE_IDX_SECOND] = t1 % 60; t1 /= 60;
  25572. parts[DUK_DATE_IDX_MINUTE] = t1 % 60; t1 /= 60;
  25573. parts[DUK_DATE_IDX_HOUR] = t1;
  25574. DUK_ASSERT(parts[DUK_DATE_IDX_MILLISECOND] >= 0 && parts[DUK_DATE_IDX_MILLISECOND] <= 999);
  25575. DUK_ASSERT(parts[DUK_DATE_IDX_SECOND] >= 0 && parts[DUK_DATE_IDX_SECOND] <= 59);
  25576. DUK_ASSERT(parts[DUK_DATE_IDX_MINUTE] >= 0 && parts[DUK_DATE_IDX_MINUTE] <= 59);
  25577. DUK_ASSERT(parts[DUK_DATE_IDX_HOUR] >= 0 && parts[DUK_DATE_IDX_HOUR] <= 23);
  25578. DUK_DDD(DUK_DDDPRINT("d=%lf, d1=%lf, d2=%lf, t1=%ld, t2=%ld, parts: hour=%ld min=%ld sec=%ld msec=%ld",
  25579. (double) d, (double) d1, (double) d2, (long) t1, (long) t2,
  25580. (long) parts[DUK_DATE_IDX_HOUR],
  25581. (long) parts[DUK_DATE_IDX_MINUTE],
  25582. (long) parts[DUK_DATE_IDX_SECOND],
  25583. (long) parts[DUK_DATE_IDX_MILLISECOND]));
  25584. /* This assert depends on the input parts representing time inside
  25585. * the Ecmascript range.
  25586. */
  25587. DUK_ASSERT(t2 + DUK__WEEKDAY_MOD_ADDER >= 0);
  25588. parts[DUK_DATE_IDX_WEEKDAY] = (t2 + 4 + DUK__WEEKDAY_MOD_ADDER) % 7; /* E5.1 Section 15.9.1.6 */
  25589. DUK_ASSERT(parts[DUK_DATE_IDX_WEEKDAY] >= 0 && parts[DUK_DATE_IDX_WEEKDAY] <= 6);
  25590. year = duk__year_from_day(t2, &day_in_year);
  25591. day = day_in_year;
  25592. is_leap = duk_bi_date_is_leap_year(year);
  25593. for (month = 0; month < 12; month++) {
  25594. dim = duk__days_in_month[month];
  25595. if (month == 1 && is_leap) {
  25596. dim++;
  25597. }
  25598. DUK_DDD(DUK_DDDPRINT("month=%ld, dim=%ld, day=%ld",
  25599. (long) month, (long) dim, (long) day));
  25600. if (day < dim) {
  25601. break;
  25602. }
  25603. day -= dim;
  25604. }
  25605. DUK_DDD(DUK_DDDPRINT("final month=%ld", (long) month));
  25606. DUK_ASSERT(month >= 0 && month <= 11);
  25607. DUK_ASSERT(day >= 0 && day <= 31);
  25608. /* Equivalent year mapping, used to avoid DST trouble when platform
  25609. * may fail to provide reasonable DST answers for dates outside the
  25610. * ordinary range (e.g. 1970-2038). An equivalent year has the same
  25611. * leap-year-ness as the original year and begins on the same weekday
  25612. * (Jan 1).
  25613. *
  25614. * The year 2038 is avoided because there seem to be problems with it
  25615. * on some platforms. The year 1970 is also avoided as there were
  25616. * practical problems with it; an equivalent year is used for it too,
  25617. * which breaks some DST computations for 1970 right now, see e.g.
  25618. * test-bi-date-tzoffset-brute-fi.js.
  25619. */
  25620. if ((flags & DUK_DATE_FLAG_EQUIVYEAR) && (year < 1971 || year > 2037)) {
  25621. DUK_ASSERT(is_leap == 0 || is_leap == 1);
  25622. jan1_since_epoch = day_since_epoch - day_in_year; /* day number for Jan 1 since epoch */
  25623. DUK_ASSERT(jan1_since_epoch + DUK__WEEKDAY_MOD_ADDER >= 0);
  25624. jan1_weekday = (jan1_since_epoch + 4 + DUK__WEEKDAY_MOD_ADDER) % 7; /* E5.1 Section 15.9.1.6 */
  25625. DUK_ASSERT(jan1_weekday >= 0 && jan1_weekday <= 6);
  25626. arridx = jan1_weekday;
  25627. if (is_leap) {
  25628. arridx += 7;
  25629. }
  25630. DUK_ASSERT(arridx >= 0 && arridx < (duk_small_int_t) (sizeof(duk__date_equivyear) / sizeof(duk_uint8_t)));
  25631. equiv_year = (duk_int_t) duk__date_equivyear[arridx] + 1970;
  25632. year = equiv_year;
  25633. DUK_DDD(DUK_DDDPRINT("equiv year mapping, year=%ld, day_in_year=%ld, day_since_epoch=%ld, "
  25634. "jan1_since_epoch=%ld, jan1_weekday=%ld -> equiv year %ld",
  25635. (long) year, (long) day_in_year, (long) day_since_epoch,
  25636. (long) jan1_since_epoch, (long) jan1_weekday, (long) equiv_year));
  25637. }
  25638. parts[DUK_DATE_IDX_YEAR] = year;
  25639. parts[DUK_DATE_IDX_MONTH] = month;
  25640. parts[DUK_DATE_IDX_DAY] = day;
  25641. if (flags & DUK_DATE_FLAG_ONEBASED) {
  25642. parts[DUK_DATE_IDX_MONTH]++; /* zero-based -> one-based */
  25643. parts[DUK_DATE_IDX_DAY]++; /* -""- */
  25644. }
  25645. if (dparts != NULL) {
  25646. for (i = 0; i < DUK_DATE_IDX_NUM_PARTS; i++) {
  25647. dparts[i] = (duk_double_t) parts[i];
  25648. }
  25649. }
  25650. }
  25651. /* Compute time value from (double) parts. The parts can be either UTC
  25652. * or local time; if local, they need to be (conceptually) converted into
  25653. * UTC time. The parts may represent valid or invalid time, and may be
  25654. * wildly out of range (but may cancel each other and still come out in
  25655. * the valid Date range).
  25656. */
  25657. DUK_INTERNAL duk_double_t duk_bi_date_get_timeval_from_dparts(duk_double_t *dparts, duk_small_uint_t flags) {
  25658. #if defined(DUK_USE_PARANOID_DATE_COMPUTATION)
  25659. /* See comments below on MakeTime why these are volatile. */
  25660. volatile duk_double_t tmp_time;
  25661. volatile duk_double_t tmp_day;
  25662. volatile duk_double_t d;
  25663. #else
  25664. duk_double_t tmp_time;
  25665. duk_double_t tmp_day;
  25666. duk_double_t d;
  25667. #endif
  25668. duk_small_uint_t i;
  25669. duk_int_t tzoff, tzoffprev1, tzoffprev2;
  25670. /* Expects 'this' at top of stack on entry. */
  25671. /* Coerce all finite parts with ToInteger(). ToInteger() must not
  25672. * be called for NaN/Infinity because it will convert e.g. NaN to
  25673. * zero. If ToInteger() has already been called, this has no side
  25674. * effects and is idempotent.
  25675. *
  25676. * Don't read dparts[DUK_DATE_IDX_WEEKDAY]; it will cause Valgrind
  25677. * issues if the value is uninitialized.
  25678. */
  25679. for (i = 0; i <= DUK_DATE_IDX_MILLISECOND; i++) {
  25680. /* SCANBUILD: scan-build complains here about assigned value
  25681. * being garbage or undefined. This is correct but operating
  25682. * on undefined values has no ill effect and is ignored by the
  25683. * caller in the case where this happens.
  25684. */
  25685. d = dparts[i];
  25686. if (DUK_ISFINITE(d)) {
  25687. dparts[i] = duk_js_tointeger_number(d);
  25688. }
  25689. }
  25690. /* Use explicit steps in computation to try to ensure that
  25691. * computation happens with intermediate results coerced to
  25692. * double values (instead of using something more accurate).
  25693. * E.g. E5.1 Section 15.9.1.11 requires use of IEEE 754
  25694. * rules (= Ecmascript '+' and '*' operators).
  25695. *
  25696. * Without 'volatile' even this approach fails on some platform
  25697. * and compiler combinations. For instance, gcc 4.8.1 on Ubuntu
  25698. * 64-bit, with -m32 and without -std=c99, test-bi-date-canceling.js
  25699. * would fail because of some optimizations when computing tmp_time
  25700. * (MakeTime below). Adding 'volatile' to tmp_time solved this
  25701. * particular problem (annoyingly, also adding debug prints or
  25702. * running the executable under valgrind hides it).
  25703. */
  25704. /* MakeTime */
  25705. tmp_time = 0.0;
  25706. tmp_time += dparts[DUK_DATE_IDX_HOUR] * ((duk_double_t) DUK_DATE_MSEC_HOUR);
  25707. tmp_time += dparts[DUK_DATE_IDX_MINUTE] * ((duk_double_t) DUK_DATE_MSEC_MINUTE);
  25708. tmp_time += dparts[DUK_DATE_IDX_SECOND] * ((duk_double_t) DUK_DATE_MSEC_SECOND);
  25709. tmp_time += dparts[DUK_DATE_IDX_MILLISECOND];
  25710. /* MakeDay */
  25711. tmp_day = duk__make_day(dparts[DUK_DATE_IDX_YEAR], dparts[DUK_DATE_IDX_MONTH], dparts[DUK_DATE_IDX_DAY]);
  25712. /* MakeDate */
  25713. d = tmp_day * ((duk_double_t) DUK_DATE_MSEC_DAY) + tmp_time;
  25714. DUK_DDD(DUK_DDDPRINT("time=%lf day=%lf --> timeval=%lf",
  25715. (double) tmp_time, (double) tmp_day, (double) d));
  25716. /* Optional UTC conversion. */
  25717. if (flags & DUK_DATE_FLAG_LOCALTIME) {
  25718. /* DUK_USE_DATE_GET_LOCAL_TZOFFSET() needs to be called with a
  25719. * time value computed from UTC parts. At this point we only
  25720. * have 'd' which is a time value computed from local parts, so
  25721. * it is off by the UTC-to-local time offset which we don't know
  25722. * yet. The current solution for computing the UTC-to-local
  25723. * time offset is to iterate a few times and detect a fixed
  25724. * point or a two-cycle loop (or a sanity iteration limit),
  25725. * see test-bi-date-local-parts.js and test-bi-date-tzoffset-basic-fi.js.
  25726. *
  25727. * E5.1 Section 15.9.1.9:
  25728. * UTC(t) = t - LocalTZA - DaylightSavingTA(t - LocalTZA)
  25729. *
  25730. * For NaN/inf, DUK_USE_DATE_GET_LOCAL_TZOFFSET() returns 0.
  25731. */
  25732. #if 0
  25733. /* Old solution: don't iterate, incorrect */
  25734. tzoff = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d);
  25735. DUK_DDD(DUK_DDDPRINT("tzoffset w/o iteration, tzoff=%ld", (long) tzoff));
  25736. d -= tzoff * 1000L;
  25737. DUK_UNREF(tzoffprev1);
  25738. DUK_UNREF(tzoffprev2);
  25739. #endif
  25740. /* Iteration solution */
  25741. tzoff = 0;
  25742. tzoffprev1 = 999999999L; /* invalid value which never matches */
  25743. for (i = 0; i < DUK__LOCAL_TZOFFSET_MAXITER; i++) {
  25744. tzoffprev2 = tzoffprev1;
  25745. tzoffprev1 = tzoff;
  25746. tzoff = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d - tzoff * 1000L);
  25747. DUK_DDD(DUK_DDDPRINT("tzoffset iteration, i=%d, tzoff=%ld, tzoffprev1=%ld tzoffprev2=%ld",
  25748. (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2));
  25749. if (tzoff == tzoffprev1) {
  25750. DUK_DDD(DUK_DDDPRINT("tzoffset iteration finished, i=%d, tzoff=%ld, tzoffprev1=%ld, tzoffprev2=%ld",
  25751. (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2));
  25752. break;
  25753. } else if (tzoff == tzoffprev2) {
  25754. /* Two value cycle, see e.g. test-bi-date-tzoffset-basic-fi.js.
  25755. * In these cases, favor a higher tzoffset to get a consistent
  25756. * result which is independent of iteration count. Not sure if
  25757. * this is a generically correct solution.
  25758. */
  25759. DUK_DDD(DUK_DDDPRINT("tzoffset iteration two-value cycle, i=%d, tzoff=%ld, tzoffprev1=%ld, tzoffprev2=%ld",
  25760. (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2));
  25761. if (tzoffprev1 > tzoff) {
  25762. tzoff = tzoffprev1;
  25763. }
  25764. break;
  25765. }
  25766. }
  25767. DUK_DDD(DUK_DDDPRINT("tzoffset iteration, tzoff=%ld", (long) tzoff));
  25768. d -= tzoff * 1000L;
  25769. }
  25770. /* TimeClip(), which also handles Infinity -> NaN conversion */
  25771. d = duk__timeclip(d);
  25772. return d;
  25773. }
  25774. /*
  25775. * API oriented helpers
  25776. */
  25777. /* Push 'this' binding, check that it is a Date object; then push the
  25778. * internal time value. At the end, stack is: [ ... this timeval ].
  25779. * Returns the time value. Local time adjustment is done if requested.
  25780. */
  25781. DUK_LOCAL duk_double_t duk__push_this_get_timeval_tzoffset(duk_hthread *thr, duk_small_uint_t flags, duk_int_t *out_tzoffset) {
  25782. duk_hobject *h;
  25783. duk_double_t d;
  25784. duk_int_t tzoffset = 0;
  25785. duk_push_this(thr);
  25786. h = duk_get_hobject(thr, -1); /* XXX: getter with class check, useful in built-ins */
  25787. if (h == NULL || DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_DATE) {
  25788. DUK_ERROR_TYPE(thr, "expected Date");
  25789. }
  25790. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  25791. d = duk_to_number_m1(thr);
  25792. duk_pop(thr);
  25793. if (DUK_ISNAN(d)) {
  25794. if (flags & DUK_DATE_FLAG_NAN_TO_ZERO) {
  25795. d = 0.0;
  25796. }
  25797. if (flags & DUK_DATE_FLAG_NAN_TO_RANGE_ERROR) {
  25798. DUK_ERROR_RANGE(thr, "Invalid Date");
  25799. }
  25800. }
  25801. /* if no NaN handling flag, may still be NaN here, but not Inf */
  25802. DUK_ASSERT(!DUK_ISINF(d));
  25803. if (flags & DUK_DATE_FLAG_LOCALTIME) {
  25804. /* Note: DST adjustment is determined using UTC time.
  25805. * If 'd' is NaN, tzoffset will be 0.
  25806. */
  25807. tzoffset = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d); /* seconds */
  25808. d += tzoffset * 1000L;
  25809. }
  25810. if (out_tzoffset) {
  25811. *out_tzoffset = tzoffset;
  25812. }
  25813. /* [ ... this ] */
  25814. return d;
  25815. }
  25816. DUK_LOCAL duk_double_t duk__push_this_get_timeval(duk_hthread *thr, duk_small_uint_t flags) {
  25817. return duk__push_this_get_timeval_tzoffset(thr, flags, NULL);
  25818. }
  25819. /* Set timeval to 'this' from dparts, push the new time value onto the
  25820. * value stack and return 1 (caller can then tail call us). Expects
  25821. * the value stack to contain 'this' on the stack top.
  25822. */
  25823. DUK_LOCAL duk_ret_t duk__set_this_timeval_from_dparts(duk_hthread *thr, duk_double_t *dparts, duk_small_uint_t flags) {
  25824. duk_double_t d;
  25825. /* [ ... this ] */
  25826. d = duk_bi_date_get_timeval_from_dparts(dparts, flags);
  25827. duk_push_number(thr, d); /* -> [ ... this timeval_new ] */
  25828. duk_dup_top(thr); /* -> [ ... this timeval_new timeval_new ] */
  25829. duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE);
  25830. /* stack top: new time value, return 1 to allow tail calls */
  25831. return 1;
  25832. }
  25833. /* 'out_buf' must be at least DUK_BI_DATE_ISO8601_BUFSIZE long. */
  25834. DUK_LOCAL void duk__format_parts_iso8601(duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags, duk_uint8_t *out_buf) {
  25835. char yearstr[8]; /* "-123456\0" */
  25836. char tzstr[8]; /* "+11:22\0" */
  25837. char sep = (flags & DUK_DATE_FLAG_SEP_T) ? DUK_ASC_UC_T : DUK_ASC_SPACE;
  25838. DUK_ASSERT(parts[DUK_DATE_IDX_MONTH] >= 1 && parts[DUK_DATE_IDX_MONTH] <= 12);
  25839. DUK_ASSERT(parts[DUK_DATE_IDX_DAY] >= 1 && parts[DUK_DATE_IDX_DAY] <= 31);
  25840. DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] >= -999999 && parts[DUK_DATE_IDX_YEAR] <= 999999);
  25841. /* Note: %06d for positive value, %07d for negative value to include
  25842. * sign and 6 digits.
  25843. */
  25844. DUK_SNPRINTF(yearstr,
  25845. sizeof(yearstr),
  25846. (parts[DUK_DATE_IDX_YEAR] >= 0 && parts[DUK_DATE_IDX_YEAR] <= 9999) ? "%04ld" :
  25847. ((parts[DUK_DATE_IDX_YEAR] >= 0) ? "+%06ld" : "%07ld"),
  25848. (long) parts[DUK_DATE_IDX_YEAR]);
  25849. yearstr[sizeof(yearstr) - 1] = (char) 0;
  25850. if (flags & DUK_DATE_FLAG_LOCALTIME) {
  25851. /* tzoffset seconds are dropped; 16 bits suffice for
  25852. * time offset in minutes
  25853. */
  25854. const char *fmt;
  25855. duk_small_int_t tmp, arg_hours, arg_minutes;
  25856. if (tzoffset >= 0) {
  25857. tmp = tzoffset;
  25858. fmt = "+%02d:%02d";
  25859. } else {
  25860. tmp = -tzoffset;
  25861. fmt = "-%02d:%02d";
  25862. }
  25863. tmp = tmp / 60;
  25864. arg_hours = tmp / 60;
  25865. arg_minutes = tmp % 60;
  25866. DUK_ASSERT(arg_hours <= 24); /* Even less is actually guaranteed for a valid tzoffset. */
  25867. arg_hours = arg_hours & 0x3f; /* For [0,24] this is a no-op, but fixes GCC 7 warning, see https://github.com/svaarala/duktape/issues/1602. */
  25868. DUK_SNPRINTF(tzstr, sizeof(tzstr), fmt, (int) arg_hours, (int) arg_minutes);
  25869. tzstr[sizeof(tzstr) - 1] = (char) 0;
  25870. } else {
  25871. tzstr[0] = DUK_ASC_UC_Z;
  25872. tzstr[1] = (char) 0;
  25873. }
  25874. /* Unlike year, the other parts fit into 16 bits so %d format
  25875. * is portable.
  25876. */
  25877. if ((flags & DUK_DATE_FLAG_TOSTRING_DATE) && (flags & DUK_DATE_FLAG_TOSTRING_TIME)) {
  25878. DUK_SPRINTF((char *) out_buf, "%s-%02d-%02d%c%02d:%02d:%02d.%03d%s",
  25879. (const char *) yearstr, (int) parts[DUK_DATE_IDX_MONTH], (int) parts[DUK_DATE_IDX_DAY], (int) sep,
  25880. (int) parts[DUK_DATE_IDX_HOUR], (int) parts[DUK_DATE_IDX_MINUTE],
  25881. (int) parts[DUK_DATE_IDX_SECOND], (int) parts[DUK_DATE_IDX_MILLISECOND], (const char *) tzstr);
  25882. } else if (flags & DUK_DATE_FLAG_TOSTRING_DATE) {
  25883. DUK_SPRINTF((char *) out_buf, "%s-%02d-%02d",
  25884. (const char *) yearstr, (int) parts[DUK_DATE_IDX_MONTH], (int) parts[DUK_DATE_IDX_DAY]);
  25885. } else {
  25886. DUK_ASSERT(flags & DUK_DATE_FLAG_TOSTRING_TIME);
  25887. DUK_SPRINTF((char *) out_buf, "%02d:%02d:%02d.%03d%s",
  25888. (int) parts[DUK_DATE_IDX_HOUR], (int) parts[DUK_DATE_IDX_MINUTE],
  25889. (int) parts[DUK_DATE_IDX_SECOND], (int) parts[DUK_DATE_IDX_MILLISECOND],
  25890. (const char *) tzstr);
  25891. }
  25892. }
  25893. /* Helper for string conversion calls: check 'this' binding, get the
  25894. * internal time value, and format date and/or time in a few formats.
  25895. * Return value allows tail calls.
  25896. */
  25897. DUK_LOCAL duk_ret_t duk__to_string_helper(duk_hthread *thr, duk_small_uint_t flags) {
  25898. duk_double_t d;
  25899. duk_int_t parts[DUK_DATE_IDX_NUM_PARTS];
  25900. duk_int_t tzoffset; /* seconds, doesn't fit into 16 bits */
  25901. duk_bool_t rc;
  25902. duk_uint8_t buf[DUK_BI_DATE_ISO8601_BUFSIZE];
  25903. DUK_UNREF(rc); /* unreferenced with some options */
  25904. d = duk__push_this_get_timeval_tzoffset(thr, flags, &tzoffset);
  25905. if (DUK_ISNAN(d)) {
  25906. duk_push_hstring_stridx(thr, DUK_STRIDX_INVALID_DATE);
  25907. return 1;
  25908. }
  25909. DUK_ASSERT(DUK_ISFINITE(d));
  25910. /* formatters always get one-based month/day-of-month */
  25911. duk_bi_date_timeval_to_parts(d, parts, NULL, DUK_DATE_FLAG_ONEBASED);
  25912. DUK_ASSERT(parts[DUK_DATE_IDX_MONTH] >= 1 && parts[DUK_DATE_IDX_MONTH] <= 12);
  25913. DUK_ASSERT(parts[DUK_DATE_IDX_DAY] >= 1 && parts[DUK_DATE_IDX_DAY] <= 31);
  25914. if (flags & DUK_DATE_FLAG_TOSTRING_LOCALE) {
  25915. /* try locale specific formatter; if it refuses to format the
  25916. * string, fall back to an ISO 8601 formatted value in local
  25917. * time.
  25918. */
  25919. #if defined(DUK_USE_DATE_FORMAT_STRING)
  25920. /* Contract, either:
  25921. * - Push string to value stack and return 1
  25922. * - Don't push anything and return 0
  25923. */
  25924. rc = DUK_USE_DATE_FORMAT_STRING(thr, parts, tzoffset, flags);
  25925. if (rc != 0) {
  25926. return 1;
  25927. }
  25928. #else
  25929. /* No locale specific formatter; this is OK, we fall back
  25930. * to ISO 8601.
  25931. */
  25932. #endif
  25933. }
  25934. /* Different calling convention than above used because the helper
  25935. * is shared.
  25936. */
  25937. duk__format_parts_iso8601(parts, tzoffset, flags, buf);
  25938. duk_push_string(thr, (const char *) buf);
  25939. return 1;
  25940. }
  25941. /* Helper for component getter calls: check 'this' binding, get the
  25942. * internal time value, split it into parts (either as UTC time or
  25943. * local time), push a specified component as a return value to the
  25944. * value stack and return 1 (caller can then tail call us).
  25945. */
  25946. DUK_LOCAL duk_ret_t duk__get_part_helper(duk_hthread *thr, duk_small_uint_t flags_and_idx) {
  25947. duk_double_t d;
  25948. duk_int_t parts[DUK_DATE_IDX_NUM_PARTS];
  25949. duk_small_uint_t idx_part = (duk_small_uint_t) (flags_and_idx >> DUK_DATE_FLAG_VALUE_SHIFT); /* unpack args */
  25950. DUK_ASSERT_DISABLE(idx_part >= 0); /* unsigned */
  25951. DUK_ASSERT(idx_part < DUK_DATE_IDX_NUM_PARTS);
  25952. d = duk__push_this_get_timeval(thr, flags_and_idx);
  25953. if (DUK_ISNAN(d)) {
  25954. duk_push_nan(thr);
  25955. return 1;
  25956. }
  25957. DUK_ASSERT(DUK_ISFINITE(d));
  25958. duk_bi_date_timeval_to_parts(d, parts, NULL, flags_and_idx); /* no need to mask idx portion */
  25959. /* Setter APIs detect special year numbers (0...99) and apply a +1900
  25960. * only in certain cases. The legacy getYear() getter applies -1900
  25961. * unconditionally.
  25962. */
  25963. duk_push_int(thr, (flags_and_idx & DUK_DATE_FLAG_SUB1900) ? parts[idx_part] - 1900 : parts[idx_part]);
  25964. return 1;
  25965. }
  25966. /* Helper for component setter calls: check 'this' binding, get the
  25967. * internal time value, split it into parts (either as UTC time or
  25968. * local time), modify one or more components as specified, recompute
  25969. * the time value, set it as the internal value. Finally, push the
  25970. * new time value as a return value to the value stack and return 1
  25971. * (caller can then tail call us).
  25972. */
  25973. DUK_LOCAL duk_ret_t duk__set_part_helper(duk_hthread *thr, duk_small_uint_t flags_and_maxnargs) {
  25974. duk_double_t d;
  25975. duk_int_t parts[DUK_DATE_IDX_NUM_PARTS];
  25976. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  25977. duk_idx_t nargs;
  25978. duk_small_uint_t maxnargs = (duk_small_uint_t) (flags_and_maxnargs >> DUK_DATE_FLAG_VALUE_SHIFT); /* unpack args */
  25979. duk_small_uint_t idx_first, idx;
  25980. duk_small_uint_t i;
  25981. nargs = duk_get_top(thr);
  25982. d = duk__push_this_get_timeval(thr, flags_and_maxnargs);
  25983. DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d));
  25984. if (DUK_ISFINITE(d)) {
  25985. duk_bi_date_timeval_to_parts(d, parts, dparts, flags_and_maxnargs);
  25986. } else {
  25987. /* NaN timevalue: we need to coerce the arguments, but
  25988. * the resulting internal timestamp needs to remain NaN.
  25989. * This works but is not pretty: parts and dparts will
  25990. * be partially uninitialized, but we only write to them.
  25991. */
  25992. }
  25993. /*
  25994. * Determining which datetime components to overwrite based on
  25995. * stack arguments is a bit complicated, but important to factor
  25996. * out from setters themselves for compactness.
  25997. *
  25998. * If DUK_DATE_FLAG_TIMESETTER, maxnargs indicates setter type:
  25999. *
  26000. * 1 -> millisecond
  26001. * 2 -> second, [millisecond]
  26002. * 3 -> minute, [second], [millisecond]
  26003. * 4 -> hour, [minute], [second], [millisecond]
  26004. *
  26005. * Else:
  26006. *
  26007. * 1 -> date
  26008. * 2 -> month, [date]
  26009. * 3 -> year, [month], [date]
  26010. *
  26011. * By comparing nargs and maxnargs (and flags) we know which
  26012. * components to override. We rely on part index ordering.
  26013. */
  26014. if (flags_and_maxnargs & DUK_DATE_FLAG_TIMESETTER) {
  26015. DUK_ASSERT(maxnargs >= 1 && maxnargs <= 4);
  26016. idx_first = DUK_DATE_IDX_MILLISECOND - (maxnargs - 1);
  26017. } else {
  26018. DUK_ASSERT(maxnargs >= 1 && maxnargs <= 3);
  26019. idx_first = DUK_DATE_IDX_DAY - (maxnargs - 1);
  26020. }
  26021. DUK_ASSERT_DISABLE(idx_first >= 0); /* unsigned */
  26022. DUK_ASSERT(idx_first < DUK_DATE_IDX_NUM_PARTS);
  26023. for (i = 0; i < maxnargs; i++) {
  26024. if ((duk_idx_t) i >= nargs) {
  26025. /* no argument given -> leave components untouched */
  26026. break;
  26027. }
  26028. idx = idx_first + i;
  26029. DUK_ASSERT_DISABLE(idx >= 0); /* unsigned */
  26030. DUK_ASSERT(idx < DUK_DATE_IDX_NUM_PARTS);
  26031. if (idx == DUK_DATE_IDX_YEAR && (flags_and_maxnargs & DUK_DATE_FLAG_YEAR_FIXUP)) {
  26032. duk__twodigit_year_fixup(thr, (duk_idx_t) i);
  26033. }
  26034. dparts[idx] = duk_to_number(thr, (duk_idx_t) i);
  26035. if (idx == DUK_DATE_IDX_DAY) {
  26036. /* Day-of-month is one-based in the API, but zero-based
  26037. * internally, so fix here. Note that month is zero-based
  26038. * both in the API and internally.
  26039. */
  26040. /* SCANBUILD: complains about use of uninitialized values.
  26041. * The complaint is correct, but operating in undefined
  26042. * values here is intentional in some cases and the caller
  26043. * ignores the results.
  26044. */
  26045. dparts[idx] -= 1.0;
  26046. }
  26047. }
  26048. /* Leaves new timevalue on stack top and returns 1, which is correct
  26049. * for part setters.
  26050. */
  26051. if (DUK_ISFINITE(d)) {
  26052. return duk__set_this_timeval_from_dparts(thr, dparts, flags_and_maxnargs);
  26053. } else {
  26054. /* Internal timevalue is already NaN, so don't touch it. */
  26055. duk_push_nan(thr);
  26056. return 1;
  26057. }
  26058. }
  26059. /* Apply ToNumber() to specified index; if ToInteger(val) in [0,99], add
  26060. * 1900 and replace value at idx_val.
  26061. */
  26062. DUK_LOCAL void duk__twodigit_year_fixup(duk_hthread *thr, duk_idx_t idx_val) {
  26063. duk_double_t d;
  26064. /* XXX: idx_val would fit into 16 bits, but using duk_small_uint_t
  26065. * might not generate better code due to casting.
  26066. */
  26067. /* E5 Sections 15.9.3.1, B.2.4, B.2.5 */
  26068. duk_to_number(thr, idx_val);
  26069. if (duk_is_nan(thr, idx_val)) {
  26070. return;
  26071. }
  26072. duk_dup(thr, idx_val);
  26073. duk_to_int(thr, -1);
  26074. d = duk_get_number(thr, -1); /* get as double to handle huge numbers correctly */
  26075. if (d >= 0.0 && d <= 99.0) {
  26076. d += 1900.0;
  26077. duk_push_number(thr, d);
  26078. duk_replace(thr, idx_val);
  26079. }
  26080. duk_pop(thr);
  26081. }
  26082. /* Set datetime parts from stack arguments, defaulting any missing values.
  26083. * Day-of-week is not set; it is not required when setting the time value.
  26084. */
  26085. DUK_LOCAL void duk__set_parts_from_args(duk_hthread *thr, duk_double_t *dparts, duk_idx_t nargs) {
  26086. duk_double_t d;
  26087. duk_small_uint_t i;
  26088. duk_small_uint_t idx;
  26089. /* Causes a ToNumber() coercion, but doesn't break coercion order since
  26090. * year is coerced first anyway.
  26091. */
  26092. duk__twodigit_year_fixup(thr, 0);
  26093. /* There are at most 7 args, but we use 8 here so that also
  26094. * DUK_DATE_IDX_WEEKDAY gets initialized (to zero) to avoid the potential
  26095. * for any Valgrind gripes later.
  26096. */
  26097. for (i = 0; i < 8; i++) {
  26098. /* Note: rely on index ordering */
  26099. idx = DUK_DATE_IDX_YEAR + i;
  26100. if ((duk_idx_t) i < nargs) {
  26101. d = duk_to_number(thr, (duk_idx_t) i);
  26102. if (idx == DUK_DATE_IDX_DAY) {
  26103. /* Convert day from one-based to zero-based (internal). This may
  26104. * cause the day part to be negative, which is OK.
  26105. */
  26106. d -= 1.0;
  26107. }
  26108. } else {
  26109. /* All components default to 0 except day-of-month which defaults
  26110. * to 1. However, because our internal day-of-month is zero-based,
  26111. * it also defaults to zero here.
  26112. */
  26113. d = 0.0;
  26114. }
  26115. dparts[idx] = d;
  26116. }
  26117. DUK_DDD(DUK_DDDPRINT("parts from args -> %lf %lf %lf %lf %lf %lf %lf %lf",
  26118. (double) dparts[0], (double) dparts[1],
  26119. (double) dparts[2], (double) dparts[3],
  26120. (double) dparts[4], (double) dparts[5],
  26121. (double) dparts[6], (double) dparts[7]));
  26122. }
  26123. /*
  26124. * Indirect magic value lookup for Date methods.
  26125. *
  26126. * Date methods don't put their control flags into the function magic value
  26127. * because they wouldn't fit into a LIGHTFUNC's magic field. Instead, the
  26128. * magic value is set to an index pointing to the array of control flags
  26129. * below.
  26130. *
  26131. * This must be kept in strict sync with genbuiltins.py!
  26132. */
  26133. static duk_uint16_t duk__date_magics[] = {
  26134. /* 0: toString */
  26135. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_LOCALTIME,
  26136. /* 1: toDateString */
  26137. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_LOCALTIME,
  26138. /* 2: toTimeString */
  26139. DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_LOCALTIME,
  26140. /* 3: toLocaleString */
  26141. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME,
  26142. /* 4: toLocaleDateString */
  26143. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME,
  26144. /* 5: toLocaleTimeString */
  26145. DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME,
  26146. /* 6: toUTCString */
  26147. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME,
  26148. /* 7: toISOString */
  26149. DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_NAN_TO_RANGE_ERROR + DUK_DATE_FLAG_SEP_T,
  26150. /* 8: getFullYear */
  26151. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT),
  26152. /* 9: getUTCFullYear */
  26153. 0 + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT),
  26154. /* 10: getMonth */
  26155. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MONTH << DUK_DATE_FLAG_VALUE_SHIFT),
  26156. /* 11: getUTCMonth */
  26157. 0 + (DUK_DATE_IDX_MONTH << DUK_DATE_FLAG_VALUE_SHIFT),
  26158. /* 12: getDate */
  26159. DUK_DATE_FLAG_ONEBASED + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_DAY << DUK_DATE_FLAG_VALUE_SHIFT),
  26160. /* 13: getUTCDate */
  26161. DUK_DATE_FLAG_ONEBASED + (DUK_DATE_IDX_DAY << DUK_DATE_FLAG_VALUE_SHIFT),
  26162. /* 14: getDay */
  26163. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_WEEKDAY << DUK_DATE_FLAG_VALUE_SHIFT),
  26164. /* 15: getUTCDay */
  26165. 0 + (DUK_DATE_IDX_WEEKDAY << DUK_DATE_FLAG_VALUE_SHIFT),
  26166. /* 16: getHours */
  26167. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_HOUR << DUK_DATE_FLAG_VALUE_SHIFT),
  26168. /* 17: getUTCHours */
  26169. 0 + (DUK_DATE_IDX_HOUR << DUK_DATE_FLAG_VALUE_SHIFT),
  26170. /* 18: getMinutes */
  26171. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MINUTE << DUK_DATE_FLAG_VALUE_SHIFT),
  26172. /* 19: getUTCMinutes */
  26173. 0 + (DUK_DATE_IDX_MINUTE << DUK_DATE_FLAG_VALUE_SHIFT),
  26174. /* 20: getSeconds */
  26175. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_SECOND << DUK_DATE_FLAG_VALUE_SHIFT),
  26176. /* 21: getUTCSeconds */
  26177. 0 + (DUK_DATE_IDX_SECOND << DUK_DATE_FLAG_VALUE_SHIFT),
  26178. /* 22: getMilliseconds */
  26179. DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MILLISECOND << DUK_DATE_FLAG_VALUE_SHIFT),
  26180. /* 23: getUTCMilliseconds */
  26181. 0 + (DUK_DATE_IDX_MILLISECOND << DUK_DATE_FLAG_VALUE_SHIFT),
  26182. /* 24: setMilliseconds */
  26183. DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (1 << DUK_DATE_FLAG_VALUE_SHIFT),
  26184. /* 25: setUTCMilliseconds */
  26185. DUK_DATE_FLAG_TIMESETTER + (1 << DUK_DATE_FLAG_VALUE_SHIFT),
  26186. /* 26: setSeconds */
  26187. DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (2 << DUK_DATE_FLAG_VALUE_SHIFT),
  26188. /* 27: setUTCSeconds */
  26189. DUK_DATE_FLAG_TIMESETTER + (2 << DUK_DATE_FLAG_VALUE_SHIFT),
  26190. /* 28: setMinutes */
  26191. DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (3 << DUK_DATE_FLAG_VALUE_SHIFT),
  26192. /* 29: setUTCMinutes */
  26193. DUK_DATE_FLAG_TIMESETTER + (3 << DUK_DATE_FLAG_VALUE_SHIFT),
  26194. /* 30: setHours */
  26195. DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (4 << DUK_DATE_FLAG_VALUE_SHIFT),
  26196. /* 31: setUTCHours */
  26197. DUK_DATE_FLAG_TIMESETTER + (4 << DUK_DATE_FLAG_VALUE_SHIFT),
  26198. /* 32: setDate */
  26199. DUK_DATE_FLAG_LOCALTIME + (1 << DUK_DATE_FLAG_VALUE_SHIFT),
  26200. /* 33: setUTCDate */
  26201. 0 + (1 << DUK_DATE_FLAG_VALUE_SHIFT),
  26202. /* 34: setMonth */
  26203. DUK_DATE_FLAG_LOCALTIME + (2 << DUK_DATE_FLAG_VALUE_SHIFT),
  26204. /* 35: setUTCMonth */
  26205. 0 + (2 << DUK_DATE_FLAG_VALUE_SHIFT),
  26206. /* 36: setFullYear */
  26207. DUK_DATE_FLAG_NAN_TO_ZERO + DUK_DATE_FLAG_LOCALTIME + (3 << DUK_DATE_FLAG_VALUE_SHIFT),
  26208. /* 37: setUTCFullYear */
  26209. DUK_DATE_FLAG_NAN_TO_ZERO + (3 << DUK_DATE_FLAG_VALUE_SHIFT),
  26210. /* 38: getYear */
  26211. DUK_DATE_FLAG_LOCALTIME + DUK_DATE_FLAG_SUB1900 + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT),
  26212. /* 39: setYear */
  26213. DUK_DATE_FLAG_NAN_TO_ZERO + DUK_DATE_FLAG_YEAR_FIXUP + (3 << DUK_DATE_FLAG_VALUE_SHIFT),
  26214. };
  26215. DUK_LOCAL duk_small_uint_t duk__date_get_indirect_magic(duk_hthread *thr) {
  26216. duk_small_uint_t magicidx = (duk_small_uint_t) duk_get_current_magic(thr);
  26217. DUK_ASSERT(magicidx < (duk_small_int_t) (sizeof(duk__date_magics) / sizeof(duk_uint16_t)));
  26218. return (duk_small_uint_t) duk__date_magics[magicidx];
  26219. }
  26220. #if defined(DUK_USE_DATE_BUILTIN)
  26221. /*
  26222. * Constructor calls
  26223. */
  26224. DUK_INTERNAL duk_ret_t duk_bi_date_constructor(duk_hthread *thr) {
  26225. duk_idx_t nargs = duk_get_top(thr);
  26226. duk_bool_t is_cons = duk_is_constructor_call(thr);
  26227. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  26228. duk_double_t d;
  26229. DUK_DDD(DUK_DDDPRINT("Date constructor, nargs=%ld, is_cons=%ld", (long) nargs, (long) is_cons));
  26230. (void) duk_push_object_helper(thr,
  26231. DUK_HOBJECT_FLAG_EXTENSIBLE |
  26232. DUK_HOBJECT_FLAG_FASTREFS |
  26233. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DATE),
  26234. DUK_BIDX_DATE_PROTOTYPE);
  26235. /* Unlike most built-ins, the internal [[PrimitiveValue]] of a Date
  26236. * is mutable.
  26237. */
  26238. if (nargs == 0 || !is_cons) {
  26239. d = duk__timeclip(duk_time_get_ecmascript_time_nofrac(thr));
  26240. duk_push_number(thr, d);
  26241. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W);
  26242. if (!is_cons) {
  26243. /* called as a normal function: return new Date().toString() */
  26244. duk_to_string(thr, -1);
  26245. }
  26246. return 1;
  26247. } else if (nargs == 1) {
  26248. const char *str;
  26249. duk_to_primitive(thr, 0, DUK_HINT_NONE);
  26250. str = duk_get_string_notsymbol(thr, 0);
  26251. if (str) {
  26252. duk__parse_string(thr, str);
  26253. duk_replace(thr, 0); /* may be NaN */
  26254. }
  26255. d = duk__timeclip(duk_to_number(thr, 0)); /* symbols fail here */
  26256. duk_push_number(thr, d);
  26257. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W);
  26258. return 1;
  26259. }
  26260. duk__set_parts_from_args(thr, dparts, nargs);
  26261. /* Parts are in local time, convert when setting. */
  26262. (void) duk__set_this_timeval_from_dparts(thr, dparts, DUK_DATE_FLAG_LOCALTIME /*flags*/); /* -> [ ... this timeval ] */
  26263. duk_pop(thr); /* -> [ ... this ] */
  26264. return 1;
  26265. }
  26266. DUK_INTERNAL duk_ret_t duk_bi_date_constructor_parse(duk_hthread *thr) {
  26267. return duk__parse_string(thr, duk_to_string(thr, 0));
  26268. }
  26269. DUK_INTERNAL duk_ret_t duk_bi_date_constructor_utc(duk_hthread *thr) {
  26270. duk_idx_t nargs = duk_get_top(thr);
  26271. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  26272. duk_double_t d;
  26273. /* Behavior for nargs < 2 is implementation dependent: currently we'll
  26274. * set a NaN time value (matching V8 behavior) in this case.
  26275. */
  26276. if (nargs < 2) {
  26277. duk_push_nan(thr);
  26278. } else {
  26279. duk__set_parts_from_args(thr, dparts, nargs);
  26280. d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/);
  26281. duk_push_number(thr, d);
  26282. }
  26283. return 1;
  26284. }
  26285. DUK_INTERNAL duk_ret_t duk_bi_date_constructor_now(duk_hthread *thr) {
  26286. duk_double_t d;
  26287. d = duk_time_get_ecmascript_time_nofrac(thr);
  26288. DUK_ASSERT(duk__timeclip(d) == d); /* TimeClip() should never be necessary */
  26289. duk_push_number(thr, d);
  26290. return 1;
  26291. }
  26292. /*
  26293. * String/JSON conversions
  26294. *
  26295. * Human readable conversions are now basically ISO 8601 with a space
  26296. * (instead of 'T') as the date/time separator. This is a good baseline
  26297. * and is platform independent.
  26298. *
  26299. * A shared native helper to provide many conversions. Magic value contains
  26300. * a set of flags. The helper provides:
  26301. *
  26302. * toString()
  26303. * toDateString()
  26304. * toTimeString()
  26305. * toLocaleString()
  26306. * toLocaleDateString()
  26307. * toLocaleTimeString()
  26308. * toUTCString()
  26309. * toISOString()
  26310. *
  26311. * Notes:
  26312. *
  26313. * - Date.prototype.toGMTString() and Date.prototype.toUTCString() are
  26314. * required to be the same Ecmascript function object (!), so it is
  26315. * omitted from here.
  26316. *
  26317. * - Date.prototype.toUTCString(): E5.1 specification does not require a
  26318. * specific format, but result should be human readable. The
  26319. * specification suggests using ISO 8601 format with a space (instead
  26320. * of 'T') separator if a more human readable format is not available.
  26321. *
  26322. * - Date.prototype.toISOString(): unlike other conversion functions,
  26323. * toISOString() requires a RangeError for invalid date values.
  26324. */
  26325. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_tostring_shared(duk_hthread *thr) {
  26326. duk_small_uint_t flags = duk__date_get_indirect_magic(thr);
  26327. return duk__to_string_helper(thr, flags);
  26328. }
  26329. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_value_of(duk_hthread *thr) {
  26330. /* This native function is also used for Date.prototype.getTime()
  26331. * as their behavior is identical.
  26332. */
  26333. duk_double_t d = duk__push_this_get_timeval(thr, 0 /*flags*/); /* -> [ this ] */
  26334. DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d));
  26335. duk_push_number(thr, d);
  26336. return 1;
  26337. }
  26338. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_to_json(duk_hthread *thr) {
  26339. /* Note: toJSON() is a generic function which works even if 'this'
  26340. * is not a Date. The sole argument is ignored.
  26341. */
  26342. duk_push_this(thr);
  26343. duk_to_object(thr, -1);
  26344. duk_dup_top(thr);
  26345. duk_to_primitive(thr, -1, DUK_HINT_NUMBER);
  26346. if (duk_is_number(thr, -1)) {
  26347. duk_double_t d = duk_get_number(thr, -1);
  26348. if (!DUK_ISFINITE(d)) {
  26349. duk_push_null(thr);
  26350. return 1;
  26351. }
  26352. }
  26353. duk_pop(thr);
  26354. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_ISO_STRING);
  26355. duk_dup_m2(thr); /* -> [ O toIsoString O ] */
  26356. duk_call_method(thr, 0);
  26357. return 1;
  26358. }
  26359. /*
  26360. * Getters.
  26361. *
  26362. * Implementing getters is quite easy. The internal time value is either
  26363. * NaN, or represents milliseconds (without fractions) from Jan 1, 1970.
  26364. * The internal time value can be converted to integer parts, and each
  26365. * part will be normalized and will fit into a 32-bit signed integer.
  26366. *
  26367. * A shared native helper to provide all getters. Magic value contains
  26368. * a set of flags and also packs the date component index argument. The
  26369. * helper provides:
  26370. *
  26371. * getFullYear()
  26372. * getUTCFullYear()
  26373. * getMonth()
  26374. * getUTCMonth()
  26375. * getDate()
  26376. * getUTCDate()
  26377. * getDay()
  26378. * getUTCDay()
  26379. * getHours()
  26380. * getUTCHours()
  26381. * getMinutes()
  26382. * getUTCMinutes()
  26383. * getSeconds()
  26384. * getUTCSeconds()
  26385. * getMilliseconds()
  26386. * getUTCMilliseconds()
  26387. * getYear()
  26388. *
  26389. * Notes:
  26390. *
  26391. * - Date.prototype.getDate(): 'date' means day-of-month, and is
  26392. * zero-based in internal calculations but public API expects it to
  26393. * be one-based.
  26394. *
  26395. * - Date.prototype.getTime() and Date.prototype.valueOf() have identical
  26396. * behavior. They have separate function objects, but share the same C
  26397. * function (duk_bi_date_prototype_value_of).
  26398. */
  26399. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_get_shared(duk_hthread *thr) {
  26400. duk_small_uint_t flags_and_idx = duk__date_get_indirect_magic(thr);
  26401. return duk__get_part_helper(thr, flags_and_idx);
  26402. }
  26403. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_get_timezone_offset(duk_hthread *thr) {
  26404. /*
  26405. * Return (t - LocalTime(t)) in minutes:
  26406. *
  26407. * t - LocalTime(t) = t - (t + LocalTZA + DaylightSavingTA(t))
  26408. * = -(LocalTZA + DaylightSavingTA(t))
  26409. *
  26410. * where DaylightSavingTA() is checked for time 't'.
  26411. *
  26412. * Note that the sign of the result is opposite to common usage,
  26413. * e.g. for EE(S)T which normally is +2h or +3h from UTC, this
  26414. * function returns -120 or -180.
  26415. *
  26416. */
  26417. duk_double_t d;
  26418. duk_int_t tzoffset;
  26419. /* Note: DST adjustment is determined using UTC time. */
  26420. d = duk__push_this_get_timeval(thr, 0 /*flags*/);
  26421. DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d));
  26422. if (DUK_ISNAN(d)) {
  26423. duk_push_nan(thr);
  26424. } else {
  26425. DUK_ASSERT(DUK_ISFINITE(d));
  26426. tzoffset = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d);
  26427. duk_push_int(thr, -tzoffset / 60);
  26428. }
  26429. return 1;
  26430. }
  26431. /*
  26432. * Setters.
  26433. *
  26434. * Setters are a bit more complicated than getters. Component setters
  26435. * break down the current time value into its (normalized) component
  26436. * parts, replace one or more components with -unnormalized- new values,
  26437. * and the components are then converted back into a time value. As an
  26438. * example of using unnormalized values:
  26439. *
  26440. * var d = new Date(1234567890);
  26441. *
  26442. * is equivalent to:
  26443. *
  26444. * var d = new Date(0);
  26445. * d.setUTCMilliseconds(1234567890);
  26446. *
  26447. * A shared native helper to provide almost all setters. Magic value
  26448. * contains a set of flags and also packs the "maxnargs" argument. The
  26449. * helper provides:
  26450. *
  26451. * setMilliseconds()
  26452. * setUTCMilliseconds()
  26453. * setSeconds()
  26454. * setUTCSeconds()
  26455. * setMinutes()
  26456. * setUTCMinutes()
  26457. * setHours()
  26458. * setUTCHours()
  26459. * setDate()
  26460. * setUTCDate()
  26461. * setMonth()
  26462. * setUTCMonth()
  26463. * setFullYear()
  26464. * setUTCFullYear()
  26465. * setYear()
  26466. *
  26467. * Notes:
  26468. *
  26469. * - Date.prototype.setYear() (Section B addition): special year check
  26470. * is omitted. NaN / Infinity will just flow through and ultimately
  26471. * result in a NaN internal time value.
  26472. *
  26473. * - Date.prototype.setYear() does not have optional arguments for
  26474. * setting month and day-in-month (like setFullYear()), but we indicate
  26475. * 'maxnargs' to be 3 to get the year written to the correct component
  26476. * index in duk__set_part_helper(). The function has nargs == 1, so only
  26477. * the year will be set regardless of actual argument count.
  26478. */
  26479. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_set_shared(duk_hthread *thr) {
  26480. duk_small_uint_t flags_and_maxnargs = duk__date_get_indirect_magic(thr);
  26481. return duk__set_part_helper(thr, flags_and_maxnargs);
  26482. }
  26483. DUK_INTERNAL duk_ret_t duk_bi_date_prototype_set_time(duk_hthread *thr) {
  26484. duk_double_t d;
  26485. (void) duk__push_this_get_timeval(thr, 0 /*flags*/); /* -> [ timeval this ] */
  26486. d = duk__timeclip(duk_to_number(thr, 0));
  26487. duk_push_number(thr, d);
  26488. duk_dup_top(thr);
  26489. duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE); /* -> [ timeval this timeval ] */
  26490. return 1;
  26491. }
  26492. #endif /* DUK_USE_DATE_BUILTIN */
  26493. /* automatic undefs */
  26494. #undef DUK__CF_ACCEPT
  26495. #undef DUK__CF_ACCEPT_NUL
  26496. #undef DUK__CF_NEG
  26497. #undef DUK__DPRINT_DPARTS
  26498. #undef DUK__DPRINT_PARTS
  26499. #undef DUK__DPRINT_PARTS_AND_DPARTS
  26500. #undef DUK__LOCAL_TZOFFSET_MAXITER
  26501. #undef DUK__NUM_ISO8601_PARSER_PARTS
  26502. #undef DUK__PACK_RULE
  26503. #undef DUK__PI_DAY
  26504. #undef DUK__PI_HOUR
  26505. #undef DUK__PI_MILLISECOND
  26506. #undef DUK__PI_MINUTE
  26507. #undef DUK__PI_MONTH
  26508. #undef DUK__PI_SECOND
  26509. #undef DUK__PI_TZHOUR
  26510. #undef DUK__PI_TZMINUTE
  26511. #undef DUK__PI_YEAR
  26512. #undef DUK__PM_DAY
  26513. #undef DUK__PM_HOUR
  26514. #undef DUK__PM_MILLISECOND
  26515. #undef DUK__PM_MINUTE
  26516. #undef DUK__PM_MONTH
  26517. #undef DUK__PM_SECOND
  26518. #undef DUK__PM_TZHOUR
  26519. #undef DUK__PM_TZMINUTE
  26520. #undef DUK__PM_YEAR
  26521. #undef DUK__RULE_MASK_PART_SEP
  26522. #undef DUK__SI_COLON
  26523. #undef DUK__SI_MINUS
  26524. #undef DUK__SI_NUL
  26525. #undef DUK__SI_PERIOD
  26526. #undef DUK__SI_PLUS
  26527. #undef DUK__SI_SPACE
  26528. #undef DUK__SI_T
  26529. #undef DUK__SI_Z
  26530. #undef DUK__SM_COLON
  26531. #undef DUK__SM_MINUS
  26532. #undef DUK__SM_NUL
  26533. #undef DUK__SM_PERIOD
  26534. #undef DUK__SM_PLUS
  26535. #undef DUK__SM_SPACE
  26536. #undef DUK__SM_T
  26537. #undef DUK__SM_Z
  26538. #undef DUK__UNPACK_RULE
  26539. #undef DUK__WEEKDAY_MOD_ADDER
  26540. #undef DUK__YEAR
  26541. #line 1 "duk_bi_date_unix.c"
  26542. /*
  26543. * Unix-like Date providers
  26544. *
  26545. * Generally useful Unix / POSIX / ANSI Date providers.
  26546. */
  26547. /* #include duk_internal.h -> already included */
  26548. /* The necessary #includes are in place in duk_config.h. */
  26549. /* Buffer sizes for some UNIX calls. Larger than strictly necessary
  26550. * to avoid Valgrind errors.
  26551. */
  26552. #define DUK__STRPTIME_BUF_SIZE 64
  26553. #define DUK__STRFTIME_BUF_SIZE 64
  26554. #if defined(DUK_USE_DATE_NOW_GETTIMEOFDAY)
  26555. /* Get current Ecmascript time (= UNIX/Posix time, but in milliseconds). */
  26556. DUK_INTERNAL duk_double_t duk_bi_date_get_now_gettimeofday(void) {
  26557. struct timeval tv;
  26558. duk_double_t d;
  26559. if (gettimeofday(&tv, NULL) != 0) {
  26560. DUK_D(DUK_DPRINT("gettimeofday() failed"));
  26561. return 0.0;
  26562. }
  26563. /* As of Duktape 2.2.0 allow fractions. */
  26564. d = ((duk_double_t) tv.tv_sec) * 1000.0 +
  26565. ((duk_double_t) tv.tv_usec) / 1000.0;
  26566. return d;
  26567. }
  26568. #endif /* DUK_USE_DATE_NOW_GETTIMEOFDAY */
  26569. #if defined(DUK_USE_DATE_NOW_TIME)
  26570. /* Not a very good provider: only full seconds are available. */
  26571. DUK_INTERNAL duk_double_t duk_bi_date_get_now_time(void) {
  26572. time_t t;
  26573. t = time(NULL);
  26574. if (t == (time_t) -1) {
  26575. DUK_D(DUK_DPRINT("time() failed"));
  26576. return 0.0;
  26577. }
  26578. return ((duk_double_t) t) * 1000.0;
  26579. }
  26580. #endif /* DUK_USE_DATE_NOW_TIME */
  26581. #if defined(DUK_USE_DATE_TZO_GMTIME) || defined(DUK_USE_DATE_TZO_GMTIME_R) || defined(DUK_USE_DATE_TZO_GMTIME_S)
  26582. /* Get local time offset (in seconds) for a certain (UTC) instant 'd'. */
  26583. DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_gmtime(duk_double_t d) {
  26584. time_t t, t1, t2;
  26585. duk_int_t parts[DUK_DATE_IDX_NUM_PARTS];
  26586. duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS];
  26587. struct tm tms[2];
  26588. #if defined(DUK_USE_DATE_TZO_GMTIME)
  26589. struct tm *tm_ptr;
  26590. #endif
  26591. /* For NaN/inf, the return value doesn't matter. */
  26592. if (!DUK_ISFINITE(d)) {
  26593. return 0;
  26594. }
  26595. /* If not within Ecmascript range, some integer time calculations
  26596. * won't work correctly (and some asserts will fail), so bail out
  26597. * if so. This fixes test-bug-date-insane-setyear.js. There is
  26598. * a +/- 24h leeway in this range check to avoid a test262 corner
  26599. * case documented in test-bug-date-timeval-edges.js.
  26600. */
  26601. if (!duk_bi_date_timeval_in_leeway_range(d)) {
  26602. DUK_DD(DUK_DDPRINT("timeval not within valid range, skip tzoffset computation to avoid integer overflows"));
  26603. return 0;
  26604. }
  26605. /*
  26606. * This is a bit tricky to implement portably. The result depends
  26607. * on the timestamp (specifically, DST depends on the timestamp).
  26608. * If e.g. UNIX APIs are used, they'll have portability issues with
  26609. * very small and very large years.
  26610. *
  26611. * Current approach:
  26612. *
  26613. * - Stay within portable UNIX limits by using equivalent year mapping.
  26614. * Avoid year 1970 and 2038 as some conversions start to fail, at
  26615. * least on some platforms. Avoiding 1970 means that there are
  26616. * currently DST discrepancies for 1970.
  26617. *
  26618. * - Create a UTC and local time breakdowns from 't'. Then create
  26619. * a time_t using gmtime() and localtime() and compute the time
  26620. * difference between the two.
  26621. *
  26622. * Equivalent year mapping (E5 Section 15.9.1.8):
  26623. *
  26624. * If the host environment provides functionality for determining
  26625. * daylight saving time, the implementation of ECMAScript is free
  26626. * to map the year in question to an equivalent year (same
  26627. * leap-year-ness and same starting week day for the year) for which
  26628. * the host environment provides daylight saving time information.
  26629. * The only restriction is that all equivalent years should produce
  26630. * the same result.
  26631. *
  26632. * This approach is quite reasonable but not entirely correct, e.g.
  26633. * the specification also states (E5 Section 15.9.1.8):
  26634. *
  26635. * The implementation of ECMAScript should not try to determine
  26636. * whether the exact time was subject to daylight saving time, but
  26637. * just whether daylight saving time would have been in effect if
  26638. * the _current daylight saving time algorithm_ had been used at the
  26639. * time. This avoids complications such as taking into account the
  26640. * years that the locale observed daylight saving time year round.
  26641. *
  26642. * Since we rely on the platform APIs for conversions between local
  26643. * time and UTC, we can't guarantee the above. Rather, if the platform
  26644. * has historical DST rules they will be applied. This seems to be the
  26645. * general preferred direction in Ecmascript standardization (or at least
  26646. * implementations) anyway, and even the equivalent year mapping should
  26647. * be disabled if the platform is known to handle DST properly for the
  26648. * full Ecmascript range.
  26649. *
  26650. * The following has useful discussion and links:
  26651. *
  26652. * https://bugzilla.mozilla.org/show_bug.cgi?id=351066
  26653. */
  26654. duk_bi_date_timeval_to_parts(d, parts, dparts, DUK_DATE_FLAG_EQUIVYEAR /*flags*/);
  26655. DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] >= 1970 && parts[DUK_DATE_IDX_YEAR] <= 2038);
  26656. d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/);
  26657. DUK_ASSERT(d >= 0 && d < 2147483648.0 * 1000.0); /* unsigned 31-bit range */
  26658. t = (time_t) (d / 1000.0);
  26659. DUK_DDD(DUK_DDDPRINT("timeval: %lf -> time_t %ld", (double) d, (long) t));
  26660. DUK_MEMZERO((void *) tms, sizeof(struct tm) * 2);
  26661. #if defined(DUK_USE_DATE_TZO_GMTIME_R)
  26662. (void) gmtime_r(&t, &tms[0]);
  26663. (void) localtime_r(&t, &tms[1]);
  26664. #elif defined(DUK_USE_DATE_TZO_GMTIME_S)
  26665. (void) gmtime_s(&t, &tms[0]);
  26666. (void) localtime_s(&t, &tms[1]);
  26667. #elif defined(DUK_USE_DATE_TZO_GMTIME)
  26668. tm_ptr = gmtime(&t);
  26669. DUK_MEMCPY((void *) &tms[0], tm_ptr, sizeof(struct tm));
  26670. tm_ptr = localtime(&t);
  26671. DUK_MEMCPY((void *) &tms[1], tm_ptr, sizeof(struct tm));
  26672. #else
  26673. #error internal error
  26674. #endif
  26675. DUK_DDD(DUK_DDDPRINT("gmtime result: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld,"
  26676. "wday:%ld,yday:%ld,isdst:%ld}",
  26677. (long) tms[0].tm_sec, (long) tms[0].tm_min, (long) tms[0].tm_hour,
  26678. (long) tms[0].tm_mday, (long) tms[0].tm_mon, (long) tms[0].tm_year,
  26679. (long) tms[0].tm_wday, (long) tms[0].tm_yday, (long) tms[0].tm_isdst));
  26680. DUK_DDD(DUK_DDDPRINT("localtime result: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld,"
  26681. "wday:%ld,yday:%ld,isdst:%ld}",
  26682. (long) tms[1].tm_sec, (long) tms[1].tm_min, (long) tms[1].tm_hour,
  26683. (long) tms[1].tm_mday, (long) tms[1].tm_mon, (long) tms[1].tm_year,
  26684. (long) tms[1].tm_wday, (long) tms[1].tm_yday, (long) tms[1].tm_isdst));
  26685. /* tm_isdst is both an input and an output to mktime(), use 0 to
  26686. * avoid DST handling in mktime():
  26687. * - https://github.com/svaarala/duktape/issues/406
  26688. * - http://stackoverflow.com/questions/8558919/mktime-and-tm-isdst
  26689. */
  26690. tms[0].tm_isdst = 0;
  26691. tms[1].tm_isdst = 0;
  26692. t1 = mktime(&tms[0]); /* UTC */
  26693. t2 = mktime(&tms[1]); /* local */
  26694. if (t1 == (time_t) -1 || t2 == (time_t) -1) {
  26695. /* This check used to be for (t < 0) but on some platforms
  26696. * time_t is unsigned and apparently the proper way to detect
  26697. * an mktime() error return is the cast above. See e.g.:
  26698. * http://pubs.opengroup.org/onlinepubs/009695299/functions/mktime.html
  26699. */
  26700. goto mktime_error;
  26701. }
  26702. DUK_DDD(DUK_DDDPRINT("t1=%ld (utc), t2=%ld (local)", (long) t1, (long) t2));
  26703. /* Compute final offset in seconds, positive if local time ahead of
  26704. * UTC (returned value is UTC-to-local offset).
  26705. *
  26706. * difftime() returns a double, so coercion to int generates quite
  26707. * a lot of code. Direct subtraction is not portable, however.
  26708. * XXX: allow direct subtraction on known platforms.
  26709. */
  26710. #if 0
  26711. return (duk_int_t) (t2 - t1);
  26712. #endif
  26713. return (duk_int_t) difftime(t2, t1);
  26714. mktime_error:
  26715. /* XXX: return something more useful, so that caller can throw? */
  26716. DUK_D(DUK_DPRINT("mktime() failed, d=%lf", (double) d));
  26717. return 0;
  26718. }
  26719. #endif /* DUK_USE_DATE_TZO_GMTIME */
  26720. #if defined(DUK_USE_DATE_PRS_STRPTIME)
  26721. DUK_INTERNAL duk_bool_t duk_bi_date_parse_string_strptime(duk_hthread *thr, const char *str) {
  26722. struct tm tm;
  26723. time_t t;
  26724. char buf[DUK__STRPTIME_BUF_SIZE];
  26725. /* Copy to buffer with slack to avoid Valgrind gripes from strptime. */
  26726. DUK_ASSERT(str != NULL);
  26727. DUK_MEMZERO(buf, sizeof(buf)); /* valgrind whine without this */
  26728. DUK_SNPRINTF(buf, sizeof(buf), "%s", (const char *) str);
  26729. buf[sizeof(buf) - 1] = (char) 0;
  26730. DUK_DDD(DUK_DDDPRINT("parsing: '%s'", (const char *) buf));
  26731. DUK_MEMZERO(&tm, sizeof(tm));
  26732. if (strptime((const char *) buf, "%c", &tm) != NULL) {
  26733. DUK_DDD(DUK_DDDPRINT("before mktime: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld,"
  26734. "wday:%ld,yday:%ld,isdst:%ld}",
  26735. (long) tm.tm_sec, (long) tm.tm_min, (long) tm.tm_hour,
  26736. (long) tm.tm_mday, (long) tm.tm_mon, (long) tm.tm_year,
  26737. (long) tm.tm_wday, (long) tm.tm_yday, (long) tm.tm_isdst));
  26738. tm.tm_isdst = -1; /* negative: dst info not available */
  26739. t = mktime(&tm);
  26740. DUK_DDD(DUK_DDDPRINT("mktime() -> %ld", (long) t));
  26741. if (t >= 0) {
  26742. duk_push_number(thr, ((duk_double_t) t) * 1000.0);
  26743. return 1;
  26744. }
  26745. }
  26746. return 0;
  26747. }
  26748. #endif /* DUK_USE_DATE_PRS_STRPTIME */
  26749. #if defined(DUK_USE_DATE_PRS_GETDATE)
  26750. DUK_INTERNAL duk_bool_t duk_bi_date_parse_string_getdate(duk_hthread *thr, const char *str) {
  26751. struct tm tm;
  26752. duk_small_int_t rc;
  26753. time_t t;
  26754. /* For this to work, DATEMSK must be set, so this is not very
  26755. * convenient for an embeddable interpreter.
  26756. */
  26757. DUK_MEMZERO(&tm, sizeof(struct tm));
  26758. rc = (duk_small_int_t) getdate_r(str, &tm);
  26759. DUK_DDD(DUK_DDDPRINT("getdate_r() -> %ld", (long) rc));
  26760. if (rc == 0) {
  26761. t = mktime(&tm);
  26762. DUK_DDD(DUK_DDDPRINT("mktime() -> %ld", (long) t));
  26763. if (t >= 0) {
  26764. duk_push_number(thr, (duk_double_t) t);
  26765. return 1;
  26766. }
  26767. }
  26768. return 0;
  26769. }
  26770. #endif /* DUK_USE_DATE_PRS_GETDATE */
  26771. #if defined(DUK_USE_DATE_FMT_STRFTIME)
  26772. DUK_INTERNAL duk_bool_t duk_bi_date_format_parts_strftime(duk_hthread *thr, duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags) {
  26773. char buf[DUK__STRFTIME_BUF_SIZE];
  26774. struct tm tm;
  26775. const char *fmt;
  26776. DUK_UNREF(tzoffset);
  26777. /* If the platform doesn't support the entire Ecmascript range, we need
  26778. * to return 0 so that the caller can fall back to the default formatter.
  26779. *
  26780. * For now, assume that if time_t is 8 bytes or more, the whole Ecmascript
  26781. * range is supported. For smaller time_t values (4 bytes in practice),
  26782. * assumes that the signed 32-bit range is supported.
  26783. *
  26784. * XXX: detect this more correctly per platform. The size of time_t is
  26785. * probably not an accurate guarantee of strftime() supporting or not
  26786. * supporting a large time range (the full Ecmascript range).
  26787. */
  26788. if (sizeof(time_t) < 8 &&
  26789. (parts[DUK_DATE_IDX_YEAR] < 1970 || parts[DUK_DATE_IDX_YEAR] > 2037)) {
  26790. /* be paranoid for 32-bit time values (even avoiding negative ones) */
  26791. return 0;
  26792. }
  26793. DUK_MEMZERO(&tm, sizeof(tm));
  26794. tm.tm_sec = parts[DUK_DATE_IDX_SECOND];
  26795. tm.tm_min = parts[DUK_DATE_IDX_MINUTE];
  26796. tm.tm_hour = parts[DUK_DATE_IDX_HOUR];
  26797. tm.tm_mday = parts[DUK_DATE_IDX_DAY]; /* already one-based */
  26798. tm.tm_mon = parts[DUK_DATE_IDX_MONTH] - 1; /* one-based -> zero-based */
  26799. tm.tm_year = parts[DUK_DATE_IDX_YEAR] - 1900;
  26800. tm.tm_wday = parts[DUK_DATE_IDX_WEEKDAY];
  26801. tm.tm_isdst = 0;
  26802. DUK_MEMZERO(buf, sizeof(buf));
  26803. if ((flags & DUK_DATE_FLAG_TOSTRING_DATE) && (flags & DUK_DATE_FLAG_TOSTRING_TIME)) {
  26804. fmt = "%c";
  26805. } else if (flags & DUK_DATE_FLAG_TOSTRING_DATE) {
  26806. fmt = "%x";
  26807. } else {
  26808. DUK_ASSERT(flags & DUK_DATE_FLAG_TOSTRING_TIME);
  26809. fmt = "%X";
  26810. }
  26811. (void) strftime(buf, sizeof(buf) - 1, fmt, &tm);
  26812. DUK_ASSERT(buf[sizeof(buf) - 1] == 0);
  26813. duk_push_string(thr, buf);
  26814. return 1;
  26815. }
  26816. #endif /* DUK_USE_DATE_FMT_STRFTIME */
  26817. #if defined(DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME)
  26818. DUK_INTERNAL duk_double_t duk_bi_date_get_monotonic_time_clock_gettime(void) {
  26819. struct timespec ts;
  26820. if (clock_gettime(CLOCK_MONOTONIC, &ts) == 0) {
  26821. return (duk_double_t) ts.tv_sec * 1000.0 + (duk_double_t) ts.tv_nsec / 1000000.0;
  26822. } else {
  26823. DUK_D(DUK_DPRINT("clock_gettime(CLOCK_MONOTONIC) failed"));
  26824. return 0.0;
  26825. }
  26826. }
  26827. #endif
  26828. /* automatic undefs */
  26829. #undef DUK__STRFTIME_BUF_SIZE
  26830. #undef DUK__STRPTIME_BUF_SIZE
  26831. #line 1 "duk_bi_date_windows.c"
  26832. /*
  26833. * Windows Date providers
  26834. *
  26835. * Platform specific links:
  26836. *
  26837. * - http://msdn.microsoft.com/en-us/library/windows/desktop/ms725473(v=vs.85).aspx
  26838. */
  26839. /* #include duk_internal.h -> already included */
  26840. /* The necessary #includes are in place in duk_config.h. */
  26841. #if defined(DUK_USE_DATE_NOW_WINDOWS) || defined(DUK_USE_DATE_TZO_WINDOWS)
  26842. /* Shared Windows helpers. */
  26843. DUK_LOCAL void duk__convert_systime_to_ularge(const SYSTEMTIME *st, ULARGE_INTEGER *res) {
  26844. FILETIME ft;
  26845. if (SystemTimeToFileTime(st, &ft) == 0) {
  26846. DUK_D(DUK_DPRINT("SystemTimeToFileTime() failed, returning 0"));
  26847. res->QuadPart = 0;
  26848. } else {
  26849. res->LowPart = ft.dwLowDateTime;
  26850. res->HighPart = ft.dwHighDateTime;
  26851. }
  26852. }
  26853. DUK_LOCAL void duk__convert_filetime_to_ularge(const FILETIME *ft, ULARGE_INTEGER *res) {
  26854. res->LowPart = ft->dwLowDateTime;
  26855. res->HighPart = ft->dwHighDateTime;
  26856. }
  26857. DUK_LOCAL void duk__set_systime_jan1970(SYSTEMTIME *st) {
  26858. DUK_MEMZERO((void *) st, sizeof(*st));
  26859. st->wYear = 1970;
  26860. st->wMonth = 1;
  26861. st->wDayOfWeek = 4; /* not sure whether or not needed; Thursday */
  26862. st->wDay = 1;
  26863. DUK_ASSERT(st->wHour == 0);
  26864. DUK_ASSERT(st->wMinute == 0);
  26865. DUK_ASSERT(st->wSecond == 0);
  26866. DUK_ASSERT(st->wMilliseconds == 0);
  26867. }
  26868. #endif /* defined(DUK_USE_DATE_NOW_WINDOWS) || defined(DUK_USE_DATE_TZO_WINDOWS) */
  26869. #if defined(DUK_USE_DATE_NOW_WINDOWS)
  26870. DUK_INTERNAL duk_double_t duk_bi_date_get_now_windows(void) {
  26871. /* Suggested step-by-step method from documentation of RtlTimeToSecondsSince1970:
  26872. * http://msdn.microsoft.com/en-us/library/windows/desktop/ms724928(v=vs.85).aspx
  26873. */
  26874. SYSTEMTIME st1, st2;
  26875. ULARGE_INTEGER tmp1, tmp2;
  26876. GetSystemTime(&st1);
  26877. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1);
  26878. duk__set_systime_jan1970(&st2);
  26879. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2);
  26880. /* Difference is in 100ns units, convert to milliseconds, keeping
  26881. * fractions since Duktape 2.2.0. This is only theoretical because
  26882. * SYSTEMTIME is limited to milliseconds.
  26883. */
  26884. return (duk_double_t) ((LONGLONG) tmp1.QuadPart - (LONGLONG) tmp2.QuadPart) / 10000.0;
  26885. }
  26886. #endif /* DUK_USE_DATE_NOW_WINDOWS */
  26887. #if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS)
  26888. DUK_INTERNAL duk_double_t duk_bi_date_get_now_windows_subms(void) {
  26889. /* Variant of the basic algorithm using GetSystemTimePreciseAsFileTime()
  26890. * for more accuracy.
  26891. */
  26892. FILETIME ft1;
  26893. SYSTEMTIME st2;
  26894. ULARGE_INTEGER tmp1, tmp2;
  26895. GetSystemTimePreciseAsFileTime(&ft1);
  26896. duk__convert_filetime_to_ularge((const FILETIME *) &ft1, &tmp1);
  26897. duk__set_systime_jan1970(&st2);
  26898. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2);
  26899. /* Difference is in 100ns units, convert to milliseconds, keeping
  26900. * fractions since Duktape 2.2.0.
  26901. */
  26902. return (duk_double_t) ((LONGLONG) tmp1.QuadPart - (LONGLONG) tmp2.QuadPart) / 10000.0;
  26903. }
  26904. #endif /* DUK_USE_DATE_NOW_WINDOWS */
  26905. #if defined(DUK_USE_DATE_TZO_WINDOWS)
  26906. DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_windows(duk_double_t d) {
  26907. SYSTEMTIME st1;
  26908. SYSTEMTIME st2;
  26909. SYSTEMTIME st3;
  26910. ULARGE_INTEGER tmp1;
  26911. ULARGE_INTEGER tmp2;
  26912. ULARGE_INTEGER tmp3;
  26913. FILETIME ft1;
  26914. /* XXX: handling of timestamps outside Windows supported range.
  26915. * How does Windows deal with dates before 1600? Does windows
  26916. * support all Ecmascript years (like -200000 and +200000)?
  26917. * Should equivalent year mapping be used here too? If so, use
  26918. * a shared helper (currently integrated into timeval-to-parts).
  26919. */
  26920. /* Use the approach described in "Remarks" of FileTimeToLocalFileTime:
  26921. * http://msdn.microsoft.com/en-us/library/windows/desktop/ms724277(v=vs.85).aspx
  26922. */
  26923. duk__set_systime_jan1970(&st1);
  26924. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1);
  26925. tmp2.QuadPart = (ULONGLONG) (d * 10000.0); /* millisec -> 100ns units since jan 1, 1970 */
  26926. tmp2.QuadPart += tmp1.QuadPart; /* input 'd' in Windows UTC, 100ns units */
  26927. ft1.dwLowDateTime = tmp2.LowPart;
  26928. ft1.dwHighDateTime = tmp2.HighPart;
  26929. FileTimeToSystemTime((const FILETIME *) &ft1, &st2);
  26930. if (SystemTimeToTzSpecificLocalTime((LPTIME_ZONE_INFORMATION) NULL, &st2, &st3) == 0) {
  26931. DUK_D(DUK_DPRINT("SystemTimeToTzSpecificLocalTime() failed, return tzoffset 0"));
  26932. return 0;
  26933. }
  26934. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st3, &tmp3);
  26935. /* Positive if local time ahead of UTC. */
  26936. return (duk_int_t) (((LONGLONG) tmp3.QuadPart - (LONGLONG) tmp2.QuadPart) / DUK_I64_CONSTANT(10000000)); /* seconds */
  26937. }
  26938. #endif /* DUK_USE_DATE_TZO_WINDOWS */
  26939. #if defined(DUK_USE_DATE_TZO_WINDOWS_NO_DST)
  26940. DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_windows_no_dst(duk_double_t d) {
  26941. SYSTEMTIME st1;
  26942. SYSTEMTIME st2;
  26943. FILETIME ft1;
  26944. FILETIME ft2;
  26945. ULARGE_INTEGER tmp1;
  26946. ULARGE_INTEGER tmp2;
  26947. /* Do a similar computation to duk_bi_date_get_local_tzoffset_windows
  26948. * but without accounting for daylight savings time. Use this on
  26949. * Windows platforms (like Durango) that don't support the
  26950. * SystemTimeToTzSpecificLocalTime() call.
  26951. */
  26952. /* current time not needed for this computation */
  26953. DUK_UNREF(d);
  26954. duk__set_systime_jan1970(&st1);
  26955. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1);
  26956. ft1.dwLowDateTime = tmp1.LowPart;
  26957. ft1.dwHighDateTime = tmp1.HighPart;
  26958. FileTimeToLocalFileTime((const FILETIME *) &ft1, &ft2);
  26959. FileTimeToSystemTime((const FILETIME *) &ft2, &st2);
  26960. duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2);
  26961. return (duk_int_t) (((LONGLONG) tmp2.QuadPart - (LONGLONG) tmp1.QuadPart) / DUK_I64_CONSTANT(10000000)); /* seconds */
  26962. }
  26963. #endif /* DUK_USE_DATE_TZO_WINDOWS_NO_DST */
  26964. #if defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC)
  26965. DUK_INTERNAL duk_double_t duk_bi_date_get_monotonic_time_windows_qpc(void) {
  26966. LARGE_INTEGER count, freq;
  26967. /* There are legacy issues with QueryPerformanceCounter():
  26968. * - Potential jumps: https://support.microsoft.com/en-us/help/274323/performance-counter-value-may-unexpectedly-leap-forward
  26969. * - Differences between cores (XP): https://msdn.microsoft.com/en-us/library/windows/desktop/dn553408(v=vs.85).aspx#qpc_support_in_windows_versions
  26970. *
  26971. * We avoid these by enabling QPC by default only for Vista or later.
  26972. */
  26973. if (QueryPerformanceCounter(&count) && QueryPerformanceFrequency(&freq)) {
  26974. /* XXX: QueryPerformanceFrequency() can be cached */
  26975. return (duk_double_t) count.QuadPart / (duk_double_t) freq.QuadPart * 1000.0;
  26976. } else {
  26977. /* MSDN: "On systems that run Windows XP or later, the function
  26978. * will always succeed and will thus never return zero."
  26979. * Provide minimal error path just in case user enables this
  26980. * feature in pre-XP Windows.
  26981. */
  26982. return 0.0;
  26983. }
  26984. }
  26985. #endif /* DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC */
  26986. #line 1 "duk_bi_duktape.c"
  26987. /*
  26988. * Duktape built-ins
  26989. *
  26990. * Size optimization note: it might seem that vararg multipurpose functions
  26991. * like fin(), enc(), and dec() are not very size optimal, but using a single
  26992. * user-visible Ecmascript function saves a lot of run-time footprint; each
  26993. * Function instance takes >100 bytes. Using a shared native helper and a
  26994. * 'magic' value won't save much if there are multiple Function instances
  26995. * anyway.
  26996. */
  26997. /* #include duk_internal.h -> already included */
  26998. #if defined(DUK_USE_DUKTAPE_BUILTIN)
  26999. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_info(duk_hthread *thr) {
  27000. duk_inspect_value(thr, -1);
  27001. return 1;
  27002. }
  27003. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_act(duk_hthread *thr) {
  27004. duk_int_t level;
  27005. level = duk_to_int(thr, 0);
  27006. duk_inspect_callstack_entry(thr, level);
  27007. return 1;
  27008. }
  27009. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_gc(duk_hthread *thr) {
  27010. duk_small_uint_t flags;
  27011. flags = (duk_small_uint_t) duk_get_uint(thr, 0);
  27012. duk_heap_mark_and_sweep(thr->heap, flags);
  27013. /* XXX: Not sure what the best return value would be in the API.
  27014. * Return true for now.
  27015. */
  27016. duk_push_true(thr);
  27017. return 1;
  27018. }
  27019. #if defined(DUK_USE_FINALIZER_SUPPORT)
  27020. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_fin(duk_hthread *thr) {
  27021. (void) duk_require_hobject(thr, 0);
  27022. if (duk_get_top(thr) >= 2) {
  27023. /* Set: currently a finalizer is disabled by setting it to
  27024. * undefined; this does not remove the property at the moment.
  27025. * The value could be type checked to be either a function
  27026. * or something else; if something else, the property could
  27027. * be deleted. Must use duk_set_finalizer() to keep
  27028. * DUK_HOBJECT_FLAG_HAVE_FINALIZER in sync.
  27029. */
  27030. duk_set_top(thr, 2);
  27031. duk_set_finalizer(thr, 0);
  27032. return 0;
  27033. } else {
  27034. /* Get. */
  27035. DUK_ASSERT(duk_get_top(thr) == 1);
  27036. duk_get_finalizer(thr, 0);
  27037. return 1;
  27038. }
  27039. }
  27040. #endif /* DUK_USE_FINALIZER_SUPPORT */
  27041. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_enc(duk_hthread *thr) {
  27042. duk_hstring *h_str;
  27043. /* Vararg function: must be careful to check/require arguments.
  27044. * The JSON helpers accept invalid indices and treat them like
  27045. * non-existent optional parameters.
  27046. */
  27047. h_str = duk_require_hstring(thr, 0); /* Could reject symbols, but no point: won't match comparisons. */
  27048. duk_require_valid_index(thr, 1);
  27049. if (h_str == DUK_HTHREAD_STRING_HEX(thr)) {
  27050. duk_set_top(thr, 2);
  27051. duk_hex_encode(thr, 1);
  27052. DUK_ASSERT_TOP(thr, 2);
  27053. } else if (h_str == DUK_HTHREAD_STRING_BASE64(thr)) {
  27054. duk_set_top(thr, 2);
  27055. duk_base64_encode(thr, 1);
  27056. DUK_ASSERT_TOP(thr, 2);
  27057. #if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JX)
  27058. } else if (h_str == DUK_HTHREAD_STRING_JX(thr)) {
  27059. duk_bi_json_stringify_helper(thr,
  27060. 1 /*idx_value*/,
  27061. 2 /*idx_replacer*/,
  27062. 3 /*idx_space*/,
  27063. DUK_JSON_FLAG_EXT_CUSTOM |
  27064. DUK_JSON_FLAG_ASCII_ONLY |
  27065. DUK_JSON_FLAG_AVOID_KEY_QUOTES /*flags*/);
  27066. #endif
  27067. #if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JC)
  27068. } else if (h_str == DUK_HTHREAD_STRING_JC(thr)) {
  27069. duk_bi_json_stringify_helper(thr,
  27070. 1 /*idx_value*/,
  27071. 2 /*idx_replacer*/,
  27072. 3 /*idx_space*/,
  27073. DUK_JSON_FLAG_EXT_COMPATIBLE |
  27074. DUK_JSON_FLAG_ASCII_ONLY /*flags*/);
  27075. #endif
  27076. } else {
  27077. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  27078. }
  27079. return 1;
  27080. }
  27081. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_dec(duk_hthread *thr) {
  27082. duk_hstring *h_str;
  27083. /* Vararg function: must be careful to check/require arguments.
  27084. * The JSON helpers accept invalid indices and treat them like
  27085. * non-existent optional parameters.
  27086. */
  27087. h_str = duk_require_hstring(thr, 0); /* Could reject symbols, but no point: won't match comparisons */
  27088. duk_require_valid_index(thr, 1);
  27089. if (h_str == DUK_HTHREAD_STRING_HEX(thr)) {
  27090. duk_set_top(thr, 2);
  27091. duk_hex_decode(thr, 1);
  27092. DUK_ASSERT_TOP(thr, 2);
  27093. } else if (h_str == DUK_HTHREAD_STRING_BASE64(thr)) {
  27094. duk_set_top(thr, 2);
  27095. duk_base64_decode(thr, 1);
  27096. DUK_ASSERT_TOP(thr, 2);
  27097. #if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JX)
  27098. } else if (h_str == DUK_HTHREAD_STRING_JX(thr)) {
  27099. duk_bi_json_parse_helper(thr,
  27100. 1 /*idx_value*/,
  27101. 2 /*idx_replacer*/,
  27102. DUK_JSON_FLAG_EXT_CUSTOM /*flags*/);
  27103. #endif
  27104. #if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JC)
  27105. } else if (h_str == DUK_HTHREAD_STRING_JC(thr)) {
  27106. duk_bi_json_parse_helper(thr,
  27107. 1 /*idx_value*/,
  27108. 2 /*idx_replacer*/,
  27109. DUK_JSON_FLAG_EXT_COMPATIBLE /*flags*/);
  27110. #endif
  27111. } else {
  27112. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  27113. }
  27114. return 1;
  27115. }
  27116. /*
  27117. * Compact an object
  27118. */
  27119. DUK_INTERNAL duk_ret_t duk_bi_duktape_object_compact(duk_hthread *thr) {
  27120. DUK_ASSERT_TOP(thr, 1);
  27121. duk_compact(thr, 0);
  27122. return 1; /* return the argument object */
  27123. }
  27124. #endif /* DUK_USE_DUKTAPE_BUILTIN */
  27125. #line 1 "duk_bi_encoding.c"
  27126. /*
  27127. * WHATWG Encoding API built-ins
  27128. *
  27129. * API specification: https://encoding.spec.whatwg.org/#api
  27130. * Web IDL: https://www.w3.org/TR/WebIDL/
  27131. */
  27132. /* #include duk_internal.h -> already included */
  27133. /*
  27134. * Data structures for encoding/decoding
  27135. */
  27136. typedef struct {
  27137. duk_uint8_t *out; /* where to write next byte(s) */
  27138. duk_codepoint_t lead; /* lead surrogate */
  27139. } duk__encode_context;
  27140. typedef struct {
  27141. /* UTF-8 decoding state */
  27142. duk_codepoint_t codepoint; /* built up incrementally */
  27143. duk_uint8_t upper; /* max value of next byte (decode error otherwise) */
  27144. duk_uint8_t lower; /* min value of next byte (ditto) */
  27145. duk_uint8_t needed; /* how many more bytes we need */
  27146. duk_uint8_t bom_handled; /* BOM seen or no longer expected */
  27147. /* Decoder configuration */
  27148. duk_uint8_t fatal;
  27149. duk_uint8_t ignore_bom;
  27150. } duk__decode_context;
  27151. /* The signed duk_codepoint_t type is used to signal a decoded codepoint
  27152. * (>= 0) or various other states using negative values.
  27153. */
  27154. #define DUK__CP_CONTINUE (-1) /* continue to next byte, no completed codepoint */
  27155. #define DUK__CP_ERROR (-2) /* decoding error */
  27156. #define DUK__CP_RETRY (-3) /* decoding error; retry last byte */
  27157. /*
  27158. * Raw helpers for encoding/decoding
  27159. */
  27160. /* Emit UTF-8 (= CESU-8) encoded U+FFFD (replacement char), i.e. ef bf bd. */
  27161. DUK_LOCAL duk_uint8_t *duk__utf8_emit_repl(duk_uint8_t *ptr) {
  27162. *ptr++ = 0xef;
  27163. *ptr++ = 0xbf;
  27164. *ptr++ = 0xbd;
  27165. return ptr;
  27166. }
  27167. DUK_LOCAL void duk__utf8_decode_init(duk__decode_context *dec_ctx) {
  27168. /* (Re)init the decoding state of 'dec_ctx' but leave decoder
  27169. * configuration fields untouched.
  27170. */
  27171. dec_ctx->codepoint = 0x0000L;
  27172. dec_ctx->upper = 0xbf;
  27173. dec_ctx->lower = 0x80;
  27174. dec_ctx->needed = 0;
  27175. dec_ctx->bom_handled = 0;
  27176. }
  27177. DUK_LOCAL duk_codepoint_t duk__utf8_decode_next(duk__decode_context *dec_ctx, duk_uint8_t x) {
  27178. /*
  27179. * UTF-8 algorithm based on the Encoding specification:
  27180. * https://encoding.spec.whatwg.org/#utf-8-decoder
  27181. *
  27182. * Two main states: decoding initial byte vs. decoding continuation
  27183. * bytes. Shortest length encoding is validated by restricting the
  27184. * allowed range of first continuation byte using 'lower' and 'upper'.
  27185. */
  27186. if (dec_ctx->needed == 0) {
  27187. /* process initial byte */
  27188. if (x <= 0x7f) {
  27189. /* U+0000-U+007F, 1 byte (ASCII) */
  27190. return (duk_codepoint_t) x;
  27191. } else if (x >= 0xc2 && x <= 0xdf) {
  27192. /* U+0080-U+07FF, 2 bytes */
  27193. dec_ctx->needed = 1;
  27194. dec_ctx->codepoint = x & 0x1f;
  27195. DUK_ASSERT(dec_ctx->lower == 0x80);
  27196. DUK_ASSERT(dec_ctx->upper == 0xbf);
  27197. return DUK__CP_CONTINUE;
  27198. } else if (x >= 0xe0 && x <= 0xef) {
  27199. /* U+0800-U+FFFF, 3 bytes */
  27200. if (x == 0xe0) {
  27201. dec_ctx->lower = 0xa0;
  27202. DUK_ASSERT(dec_ctx->upper == 0xbf);
  27203. } else if (x == 0xed) {
  27204. DUK_ASSERT(dec_ctx->lower == 0x80);
  27205. dec_ctx->upper = 0x9f;
  27206. }
  27207. dec_ctx->needed = 2;
  27208. dec_ctx->codepoint = x & 0x0f;
  27209. return DUK__CP_CONTINUE;
  27210. } else if (x >= 0xf0 && x <= 0xf4) {
  27211. /* U+010000-U+10FFFF, 4 bytes */
  27212. if (x == 0xf0) {
  27213. dec_ctx->lower = 0x90;
  27214. DUK_ASSERT(dec_ctx->upper == 0xbf);
  27215. } else if (x == 0xf4) {
  27216. DUK_ASSERT(dec_ctx->lower == 0x80);
  27217. dec_ctx->upper = 0x8f;
  27218. }
  27219. dec_ctx->needed = 3;
  27220. dec_ctx->codepoint = x & 0x07;
  27221. return DUK__CP_CONTINUE;
  27222. } else {
  27223. /* not a legal initial byte */
  27224. return DUK__CP_ERROR;
  27225. }
  27226. } else {
  27227. /* process continuation byte */
  27228. if (x >= dec_ctx->lower && x <= dec_ctx->upper) {
  27229. dec_ctx->lower = 0x80;
  27230. dec_ctx->upper = 0xbf;
  27231. dec_ctx->codepoint = (dec_ctx->codepoint << 6) | (x & 0x3f);
  27232. if (--dec_ctx->needed > 0) {
  27233. /* need more bytes */
  27234. return DUK__CP_CONTINUE;
  27235. } else {
  27236. /* got a codepoint */
  27237. duk_codepoint_t ret;
  27238. DUK_ASSERT(dec_ctx->codepoint <= 0x10ffffL); /* Decoding rules guarantee. */
  27239. ret = dec_ctx->codepoint;
  27240. dec_ctx->codepoint = 0x0000L;
  27241. dec_ctx->needed = 0;
  27242. return ret;
  27243. }
  27244. } else {
  27245. /* We just encountered an illegal UTF-8 continuation byte. This might
  27246. * be the initial byte of the next character; if we return a plain
  27247. * error status and the decoder is in replacement mode, the character
  27248. * will be masked. We still need to alert the caller to the error
  27249. * though.
  27250. */
  27251. dec_ctx->codepoint = 0x0000L;
  27252. dec_ctx->needed = 0;
  27253. dec_ctx->lower = 0x80;
  27254. dec_ctx->upper = 0xbf;
  27255. return DUK__CP_RETRY;
  27256. }
  27257. }
  27258. }
  27259. #if defined(DUK_USE_ENCODING_BUILTINS)
  27260. DUK_LOCAL void duk__utf8_encode_char(void *udata, duk_codepoint_t codepoint) {
  27261. duk__encode_context *enc_ctx;
  27262. DUK_ASSERT(codepoint >= 0);
  27263. enc_ctx = (duk__encode_context *) udata;
  27264. DUK_ASSERT(enc_ctx != NULL);
  27265. #if !defined(DUK_USE_PREFER_SIZE)
  27266. if (codepoint <= 0x7f && enc_ctx->lead == 0x0000L) {
  27267. /* Fast path for ASCII. */
  27268. *enc_ctx->out++ = (duk_uint8_t) codepoint;
  27269. return;
  27270. }
  27271. #endif
  27272. if (DUK_UNLIKELY(codepoint > 0x10ffffL)) {
  27273. /* cannot legally encode in UTF-8 */
  27274. codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  27275. } else if (codepoint >= 0xd800L && codepoint <= 0xdfffL) {
  27276. if (codepoint <= 0xdbffL) {
  27277. /* high surrogate */
  27278. duk_codepoint_t prev_lead = enc_ctx->lead;
  27279. enc_ctx->lead = codepoint;
  27280. if (prev_lead == 0x0000L) {
  27281. /* high surrogate, no output */
  27282. return;
  27283. } else {
  27284. /* consecutive high surrogates, consider first one unpaired */
  27285. codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  27286. }
  27287. } else {
  27288. /* low surrogate */
  27289. if (enc_ctx->lead != 0x0000L) {
  27290. codepoint = (duk_codepoint_t) (0x010000L + ((enc_ctx->lead - 0xd800L) << 10) + (codepoint - 0xdc00L));
  27291. enc_ctx->lead = 0x0000L;
  27292. } else {
  27293. /* unpaired low surrogate */
  27294. DUK_ASSERT(enc_ctx->lead == 0x0000L);
  27295. codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  27296. }
  27297. }
  27298. } else {
  27299. if (enc_ctx->lead != 0x0000L) {
  27300. /* unpaired high surrogate: emit replacement character and the input codepoint */
  27301. enc_ctx->lead = 0x0000L;
  27302. enc_ctx->out = duk__utf8_emit_repl(enc_ctx->out);
  27303. }
  27304. }
  27305. /* Codepoint may be original input, a decoded surrogate pair, or may
  27306. * have been replaced with U+FFFD.
  27307. */
  27308. enc_ctx->out += duk_unicode_encode_xutf8((duk_ucodepoint_t) codepoint, enc_ctx->out);
  27309. }
  27310. #endif /* DUK_USE_ENCODING_BUILTINS */
  27311. /* Shared helper for buffer-to-string using a TextDecoder() compatible UTF-8
  27312. * decoder.
  27313. */
  27314. DUK_LOCAL duk_ret_t duk__decode_helper(duk_hthread *thr, duk__decode_context *dec_ctx) {
  27315. const duk_uint8_t *input;
  27316. duk_size_t len = 0;
  27317. duk_size_t len_tmp;
  27318. duk_bool_t stream = 0;
  27319. duk_codepoint_t codepoint;
  27320. duk_uint8_t *output;
  27321. const duk_uint8_t *in;
  27322. duk_uint8_t *out;
  27323. DUK_ASSERT(dec_ctx != NULL);
  27324. /* Careful with input buffer pointer: any side effects involving
  27325. * code execution (e.g. getters, coercion calls, and finalizers)
  27326. * may cause a resize and invalidate a pointer we've read. This
  27327. * is why the pointer is actually looked up at the last minute.
  27328. * Argument validation must still happen first to match WHATWG
  27329. * required side effect order.
  27330. */
  27331. if (duk_is_undefined(thr, 0)) {
  27332. duk_push_fixed_buffer_nozero(thr, 0);
  27333. duk_replace(thr, 0);
  27334. }
  27335. (void) duk_require_buffer_data(thr, 0, &len); /* Need 'len', avoid pointer. */
  27336. if (duk_check_type_mask(thr, 1, DUK_TYPE_MASK_UNDEFINED |
  27337. DUK_TYPE_MASK_NULL |
  27338. DUK_TYPE_MASK_NONE)) {
  27339. /* Use defaults, treat missing value like undefined. */
  27340. } else {
  27341. duk_require_type_mask(thr, 1, DUK_TYPE_MASK_UNDEFINED |
  27342. DUK_TYPE_MASK_NULL |
  27343. DUK_TYPE_MASK_LIGHTFUNC |
  27344. DUK_TYPE_MASK_BUFFER |
  27345. DUK_TYPE_MASK_OBJECT);
  27346. if (duk_get_prop_string(thr, 1, "stream")) {
  27347. stream = duk_to_boolean(thr, -1);
  27348. }
  27349. }
  27350. /* Allowance is 3*len in the general case because all bytes may potentially
  27351. * become U+FFFD. If the first byte completes a non-BMP codepoint it will
  27352. * decode to a CESU-8 surrogate pair (6 bytes) so we allow 3 extra bytes to
  27353. * compensate: (1*3)+3 = 6. Non-BMP codepoints are safe otherwise because
  27354. * the 4->6 expansion is well under the 3x allowance.
  27355. *
  27356. * XXX: As with TextEncoder, need a better buffer allocation strategy here.
  27357. */
  27358. if (len >= (DUK_HBUFFER_MAX_BYTELEN / 3) - 3) {
  27359. DUK_ERROR_TYPE(thr, DUK_STR_RESULT_TOO_LONG);
  27360. }
  27361. output = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, 3 + (3 * len)); /* used parts will be always manually written over */
  27362. input = (const duk_uint8_t *) duk_get_buffer_data(thr, 0, &len_tmp);
  27363. DUK_ASSERT(input != NULL || len == 0);
  27364. if (DUK_UNLIKELY(len != len_tmp)) {
  27365. /* Very unlikely but possible: source buffer was resized by
  27366. * a side effect when fixed buffer was pushed. Output buffer
  27367. * may not be large enough to hold output, so just fail if
  27368. * length has changed.
  27369. */
  27370. DUK_D(DUK_DPRINT("input buffer resized by side effect, fail"));
  27371. goto fail_type;
  27372. }
  27373. /* From this point onwards it's critical that no side effect occur
  27374. * which may disturb 'input': finalizer execution, property accesses,
  27375. * active coercions, etc. Even an allocation related mark-and-sweep
  27376. * may affect the pointer because it may trigger a pending finalizer.
  27377. */
  27378. in = input;
  27379. out = output;
  27380. while (in < input + len) {
  27381. codepoint = duk__utf8_decode_next(dec_ctx, *in++);
  27382. if (codepoint < 0) {
  27383. if (codepoint == DUK__CP_CONTINUE) {
  27384. continue;
  27385. }
  27386. /* Decoding error with or without retry. */
  27387. DUK_ASSERT(codepoint == DUK__CP_ERROR || codepoint == DUK__CP_RETRY);
  27388. if (codepoint == DUK__CP_RETRY) {
  27389. --in; /* retry last byte */
  27390. }
  27391. /* replacement mode: replace with U+FFFD */
  27392. codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  27393. if (dec_ctx->fatal) {
  27394. /* fatal mode: throw a TypeError */
  27395. goto fail_type;
  27396. }
  27397. /* Continue with 'codepoint', Unicode replacement. */
  27398. }
  27399. DUK_ASSERT(codepoint >= 0x0000L && codepoint <= 0x10ffffL);
  27400. if (!dec_ctx->bom_handled) {
  27401. dec_ctx->bom_handled = 1;
  27402. if (codepoint == 0xfeffL && !dec_ctx->ignore_bom) {
  27403. continue;
  27404. }
  27405. }
  27406. out += duk_unicode_encode_cesu8((duk_ucodepoint_t) codepoint, out);
  27407. DUK_ASSERT(out <= output + (3 + (3 * len)));
  27408. }
  27409. if (!stream) {
  27410. if (dec_ctx->needed != 0) {
  27411. /* truncated sequence at end of buffer */
  27412. if (dec_ctx->fatal) {
  27413. goto fail_type;
  27414. } else {
  27415. out += duk_unicode_encode_cesu8(DUK_UNICODE_CP_REPLACEMENT_CHARACTER, out);
  27416. DUK_ASSERT(out <= output + (3 + (3 * len)));
  27417. }
  27418. }
  27419. duk__utf8_decode_init(dec_ctx); /* Initialize decoding state for potential reuse. */
  27420. }
  27421. /* Output buffer is fixed and thus stable even if there had been
  27422. * side effects (which there shouldn't be).
  27423. */
  27424. duk_push_lstring(thr, (const char *) output, (duk_size_t) (out - output));
  27425. return 1;
  27426. fail_type:
  27427. DUK_ERROR_TYPE(thr, DUK_STR_UTF8_DECODE_FAILED);
  27428. DUK_UNREACHABLE();
  27429. }
  27430. /*
  27431. * Built-in bindings
  27432. */
  27433. #if defined(DUK_USE_ENCODING_BUILTINS)
  27434. DUK_INTERNAL duk_ret_t duk_bi_textencoder_constructor(duk_hthread *thr) {
  27435. /* TextEncoder currently requires no persistent state, so the constructor
  27436. * does nothing on purpose.
  27437. */
  27438. duk_require_constructor_call(thr);
  27439. return 0;
  27440. }
  27441. DUK_INTERNAL duk_ret_t duk_bi_textencoder_prototype_encoding_getter(duk_hthread *thr) {
  27442. duk_push_string(thr, "utf-8");
  27443. return 1;
  27444. }
  27445. DUK_INTERNAL duk_ret_t duk_bi_textencoder_prototype_encode(duk_hthread *thr) {
  27446. duk__encode_context enc_ctx;
  27447. duk_size_t len;
  27448. duk_size_t final_len;
  27449. duk_uint8_t *output;
  27450. DUK_ASSERT_TOP(thr, 1);
  27451. if (duk_is_undefined(thr, 0)) {
  27452. len = 0;
  27453. } else {
  27454. duk_hstring *h_input;
  27455. h_input = duk_to_hstring(thr, 0);
  27456. DUK_ASSERT(h_input != NULL);
  27457. len = (duk_size_t) DUK_HSTRING_GET_CHARLEN(h_input);
  27458. if (len >= DUK_HBUFFER_MAX_BYTELEN / 3) {
  27459. DUK_ERROR_TYPE(thr, DUK_STR_RESULT_TOO_LONG);
  27460. }
  27461. }
  27462. /* Allowance is 3*len because all bytes can potentially be replaced with
  27463. * U+FFFD -- which rather inconveniently encodes to 3 bytes in UTF-8.
  27464. * Rely on dynamic buffer data pointer stability: no other code has
  27465. * access to the data pointer.
  27466. *
  27467. * XXX: The buffer allocation strategy used here is rather inefficient.
  27468. * Maybe switch to a chunk-based strategy, or preprocess the string to
  27469. * figure out the space needed ahead of time?
  27470. */
  27471. DUK_ASSERT(3 * len >= len);
  27472. output = (duk_uint8_t *) duk_push_dynamic_buffer(thr, 3 * len);
  27473. if (len > 0) {
  27474. DUK_ASSERT(duk_is_string(thr, 0)); /* True if len > 0. */
  27475. /* XXX: duk_decode_string() is used to process the input
  27476. * string. For standard Ecmascript strings, represented
  27477. * internally as CESU-8, this is fine. However, behavior
  27478. * beyond CESU-8 is not very strict: codepoints using an
  27479. * extended form of UTF-8 are also accepted, and invalid
  27480. * codepoint sequences (which are allowed in Duktape strings)
  27481. * are not handled as well as they could (e.g. invalid
  27482. * continuation bytes may mask following codepoints).
  27483. * This is how Ecmascript code would also see such strings.
  27484. * Maybe replace duk_decode_string() with an explicit strict
  27485. * CESU-8 decoder here?
  27486. */
  27487. enc_ctx.lead = 0x0000L;
  27488. enc_ctx.out = output;
  27489. duk_decode_string(thr, 0, duk__utf8_encode_char, (void *) &enc_ctx);
  27490. if (enc_ctx.lead != 0x0000L) {
  27491. /* unpaired high surrogate at end of string */
  27492. enc_ctx.out = duk__utf8_emit_repl(enc_ctx.out);
  27493. DUK_ASSERT(enc_ctx.out <= output + (3 * len));
  27494. }
  27495. /* The output buffer is usually very much oversized, so shrink it to
  27496. * actually needed size. Pointer stability assumed up to this point.
  27497. */
  27498. DUK_ASSERT_TOP(thr, 2);
  27499. DUK_ASSERT(output == (duk_uint8_t *) duk_get_buffer_data(thr, -1, NULL));
  27500. final_len = (duk_size_t) (enc_ctx.out - output);
  27501. duk_resize_buffer(thr, -1, final_len);
  27502. /* 'output' and 'enc_ctx.out' are potentially invalidated by the resize. */
  27503. } else {
  27504. final_len = 0;
  27505. }
  27506. /* Standard WHATWG output is a Uint8Array. Here the Uint8Array will
  27507. * be backed by a dynamic buffer which differs from e.g. Uint8Arrays
  27508. * created as 'new Uint8Array(N)'. Ecmascript code won't see the
  27509. * difference but C code will. When bufferobjects are not supported,
  27510. * returns a plain dynamic buffer.
  27511. */
  27512. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  27513. duk_push_buffer_object(thr, -1, 0, final_len, DUK_BUFOBJ_UINT8ARRAY);
  27514. #endif
  27515. return 1;
  27516. }
  27517. DUK_INTERNAL duk_ret_t duk_bi_textdecoder_constructor(duk_hthread *thr) {
  27518. duk__decode_context *dec_ctx;
  27519. duk_bool_t fatal = 0;
  27520. duk_bool_t ignore_bom = 0;
  27521. DUK_ASSERT_TOP(thr, 2);
  27522. duk_require_constructor_call(thr);
  27523. if (!duk_is_undefined(thr, 0)) {
  27524. /* XXX: For now ignore 'label' (encoding identifier). */
  27525. duk_to_string(thr, 0);
  27526. }
  27527. if (!duk_is_null_or_undefined(thr, 1)) {
  27528. if (duk_get_prop_string(thr, 1, "fatal")) {
  27529. fatal = duk_to_boolean(thr, -1);
  27530. }
  27531. if (duk_get_prop_string(thr, 1, "ignoreBOM")) {
  27532. ignore_bom = duk_to_boolean(thr, -1);
  27533. }
  27534. }
  27535. duk_push_this(thr);
  27536. /* The decode context is not assumed to be zeroed; all fields are
  27537. * initialized explicitly.
  27538. */
  27539. dec_ctx = (duk__decode_context *) duk_push_fixed_buffer(thr, sizeof(duk__decode_context));
  27540. dec_ctx->fatal = (duk_uint8_t) fatal;
  27541. dec_ctx->ignore_bom = (duk_uint8_t) ignore_bom;
  27542. duk__utf8_decode_init(dec_ctx); /* Initializes remaining fields. */
  27543. duk_put_prop_string(thr, -2, DUK_INTERNAL_SYMBOL("Context"));
  27544. return 0;
  27545. }
  27546. /* Get TextDecoder context from 'this'; leaves garbage on stack. */
  27547. DUK_LOCAL duk__decode_context *duk__get_textdecoder_context(duk_hthread *thr) {
  27548. duk__decode_context *dec_ctx;
  27549. duk_push_this(thr);
  27550. duk_get_prop_string(thr, -1, DUK_INTERNAL_SYMBOL("Context"));
  27551. dec_ctx = (duk__decode_context *) duk_require_buffer(thr, -1, NULL);
  27552. DUK_ASSERT(dec_ctx != NULL);
  27553. return dec_ctx;
  27554. }
  27555. DUK_INTERNAL duk_ret_t duk_bi_textdecoder_prototype_shared_getter(duk_hthread *thr) {
  27556. duk__decode_context *dec_ctx;
  27557. duk_int_t magic;
  27558. dec_ctx = duk__get_textdecoder_context(thr);
  27559. magic = duk_get_current_magic(thr);
  27560. switch (magic) {
  27561. case 0:
  27562. /* Encoding is now fixed, so _Context lookup is only needed to
  27563. * validate the 'this' binding (TypeError if not TextDecoder-like).
  27564. */
  27565. duk_push_string(thr, "utf-8");
  27566. break;
  27567. case 1:
  27568. duk_push_boolean(thr, dec_ctx->fatal);
  27569. break;
  27570. default:
  27571. duk_push_boolean(thr, dec_ctx->ignore_bom);
  27572. break;
  27573. }
  27574. return 1;
  27575. }
  27576. DUK_INTERNAL duk_ret_t duk_bi_textdecoder_prototype_decode(duk_hthread *thr) {
  27577. duk__decode_context *dec_ctx;
  27578. dec_ctx = duk__get_textdecoder_context(thr);
  27579. return duk__decode_helper(thr, dec_ctx);
  27580. }
  27581. #endif /* DUK_USE_ENCODING_BUILTINS */
  27582. /*
  27583. * Internal helper for Node.js Buffer
  27584. */
  27585. /* Internal helper used for Node.js Buffer .toString(). Value stack convention
  27586. * is currently odd: it mimics TextDecoder .decode() so that argument must be at
  27587. * index 0, and decode options (not present for Buffer) at index 1. Return value
  27588. * is a Duktape/C function return value.
  27589. */
  27590. DUK_INTERNAL duk_ret_t duk_textdecoder_decode_utf8_nodejs(duk_hthread *thr) {
  27591. duk__decode_context dec_ctx;
  27592. dec_ctx.fatal = 0; /* use replacement chars */
  27593. dec_ctx.ignore_bom = 1; /* ignore BOMs (matches Node.js Buffer .toString()) */
  27594. duk__utf8_decode_init(&dec_ctx);
  27595. return duk__decode_helper(thr, &dec_ctx);
  27596. }
  27597. /* automatic undefs */
  27598. #undef DUK__CP_CONTINUE
  27599. #undef DUK__CP_ERROR
  27600. #undef DUK__CP_RETRY
  27601. #line 1 "duk_bi_error.c"
  27602. /*
  27603. * Error built-ins
  27604. */
  27605. /* #include duk_internal.h -> already included */
  27606. DUK_INTERNAL duk_ret_t duk_bi_error_constructor_shared(duk_hthread *thr) {
  27607. /* Behavior for constructor and non-constructor call is
  27608. * the same except for augmenting the created error. When
  27609. * called as a constructor, the caller (duk_new()) will handle
  27610. * augmentation; when called as normal function, we need to do
  27611. * it here.
  27612. */
  27613. duk_small_int_t bidx_prototype = duk_get_current_magic(thr);
  27614. /* same for both error and each subclass like TypeError */
  27615. duk_uint_t flags_and_class = DUK_HOBJECT_FLAG_EXTENSIBLE |
  27616. DUK_HOBJECT_FLAG_FASTREFS |
  27617. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ERROR);
  27618. (void) duk_push_object_helper(thr, flags_and_class, bidx_prototype);
  27619. /* If message is undefined, the own property 'message' is not set at
  27620. * all to save property space. An empty message is inherited anyway.
  27621. */
  27622. if (!duk_is_undefined(thr, 0)) {
  27623. duk_to_string(thr, 0);
  27624. duk_dup_0(thr); /* [ message error message ] */
  27625. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC);
  27626. }
  27627. /* Augment the error if called as a normal function. __FILE__ and __LINE__
  27628. * are not desirable in this case.
  27629. */
  27630. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  27631. if (!duk_is_constructor_call(thr)) {
  27632. duk_err_augment_error_create(thr, thr, NULL, 0, DUK_AUGMENT_FLAG_NOBLAME_FILELINE);
  27633. }
  27634. #endif
  27635. return 1;
  27636. }
  27637. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_to_string(duk_hthread *thr) {
  27638. /* XXX: optimize with more direct internal access */
  27639. duk_push_this(thr);
  27640. (void) duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  27641. /* [ ... this ] */
  27642. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME);
  27643. if (duk_is_undefined(thr, -1)) {
  27644. duk_pop(thr);
  27645. duk_push_string(thr, "Error");
  27646. } else {
  27647. duk_to_string(thr, -1);
  27648. }
  27649. /* [ ... this name ] */
  27650. /* XXX: Are steps 6 and 7 in E5 Section 15.11.4.4 duplicated by
  27651. * accident or are they actually needed? The first ToString()
  27652. * could conceivably return 'undefined'.
  27653. */
  27654. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE);
  27655. if (duk_is_undefined(thr, -1)) {
  27656. duk_pop(thr);
  27657. duk_push_hstring_empty(thr);
  27658. } else {
  27659. duk_to_string(thr, -1);
  27660. }
  27661. /* [ ... this name message ] */
  27662. if (duk_get_length(thr, -2) == 0) {
  27663. /* name is empty -> return message */
  27664. return 1;
  27665. }
  27666. if (duk_get_length(thr, -1) == 0) {
  27667. /* message is empty -> return name */
  27668. duk_pop(thr);
  27669. return 1;
  27670. }
  27671. duk_push_string(thr, ": ");
  27672. duk_insert(thr, -2); /* ... name ': ' message */
  27673. duk_concat(thr, 3);
  27674. return 1;
  27675. }
  27676. #if defined(DUK_USE_TRACEBACKS)
  27677. /*
  27678. * Traceback handling
  27679. *
  27680. * The unified helper decodes the traceback and produces various requested
  27681. * outputs. It should be optimized for size, and may leave garbage on stack,
  27682. * only the topmost return value matters. For instance, traceback separator
  27683. * and decoded strings are pushed even when looking for filename only.
  27684. *
  27685. * NOTE: although _Tracedata is an internal property, user code can currently
  27686. * write to the array (or replace it with something other than an array).
  27687. * The code below must tolerate arbitrary _Tracedata. It can throw errors
  27688. * etc, but cannot cause a segfault or memory unsafe behavior.
  27689. */
  27690. /* constants arbitrary, chosen for small loads */
  27691. #define DUK__OUTPUT_TYPE_TRACEBACK (-1)
  27692. #define DUK__OUTPUT_TYPE_FILENAME 0
  27693. #define DUK__OUTPUT_TYPE_LINENUMBER 1
  27694. DUK_LOCAL duk_ret_t duk__error_getter_helper(duk_hthread *thr, duk_small_int_t output_type) {
  27695. duk_idx_t idx_td;
  27696. duk_small_int_t i; /* traceback depth fits into 16 bits */
  27697. duk_small_int_t t; /* stack type fits into 16 bits */
  27698. duk_small_int_t count_func = 0; /* traceback depth ensures fits into 16 bits */
  27699. const char *str_tailcall = " tailcall";
  27700. const char *str_strict = " strict";
  27701. const char *str_construct = " construct";
  27702. const char *str_prevyield = " preventsyield";
  27703. const char *str_directeval = " directeval";
  27704. const char *str_empty = "";
  27705. DUK_ASSERT_TOP(thr, 0); /* fixed arg count */
  27706. duk_push_this(thr);
  27707. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_TRACEDATA);
  27708. idx_td = duk_get_top_index(thr);
  27709. duk_push_hstring_stridx(thr, DUK_STRIDX_NEWLINE_4SPACE);
  27710. duk_push_this(thr);
  27711. /* [ ... this tracedata sep this ] */
  27712. /* XXX: skip null filename? */
  27713. if (duk_check_type(thr, idx_td, DUK_TYPE_OBJECT)) {
  27714. /* Current tracedata contains 2 entries per callstack entry. */
  27715. for (i = 0; ; i += 2) {
  27716. duk_int_t pc;
  27717. duk_uint_t line;
  27718. duk_uint_t flags;
  27719. duk_double_t d;
  27720. const char *funcname;
  27721. const char *filename;
  27722. duk_hobject *h_func;
  27723. duk_hstring *h_name;
  27724. duk_require_stack(thr, 5);
  27725. duk_get_prop_index(thr, idx_td, (duk_uarridx_t) i);
  27726. duk_get_prop_index(thr, idx_td, (duk_uarridx_t) (i + 1));
  27727. d = duk_to_number_m1(thr);
  27728. pc = (duk_int_t) DUK_FMOD(d, DUK_DOUBLE_2TO32);
  27729. flags = (duk_uint_t) DUK_FLOOR(d / DUK_DOUBLE_2TO32);
  27730. t = (duk_small_int_t) duk_get_type(thr, -2);
  27731. if (t == DUK_TYPE_OBJECT || t == DUK_TYPE_LIGHTFUNC) {
  27732. /*
  27733. * Ecmascript/native function call or lightfunc call
  27734. */
  27735. count_func++;
  27736. /* [ ... v1(func) v2(pc+flags) ] */
  27737. /* These may be systematically omitted by Duktape
  27738. * with certain config options, but allow user to
  27739. * set them on a case-by-case basis.
  27740. */
  27741. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME);
  27742. duk_get_prop_stridx_short(thr, -3, DUK_STRIDX_FILE_NAME);
  27743. #if defined(DUK_USE_PC2LINE)
  27744. line = (duk_uint_t) duk_hobject_pc2line_query(thr, -4, (duk_uint_fast32_t) pc);
  27745. #else
  27746. line = 0;
  27747. #endif
  27748. /* [ ... v1 v2 name filename ] */
  27749. /* When looking for .fileName/.lineNumber, blame first
  27750. * function which has a .fileName.
  27751. */
  27752. if (duk_is_string_notsymbol(thr, -1)) {
  27753. if (output_type == DUK__OUTPUT_TYPE_FILENAME) {
  27754. return 1;
  27755. } else if (output_type == DUK__OUTPUT_TYPE_LINENUMBER) {
  27756. duk_push_uint(thr, line);
  27757. return 1;
  27758. }
  27759. }
  27760. /* XXX: Change 'anon' handling here too, to use empty string for anonymous functions? */
  27761. /* XXX: Could be improved by coercing to a readable duk_tval (especially string escaping) */
  27762. h_name = duk_get_hstring_notsymbol(thr, -2); /* may be NULL */
  27763. funcname = (h_name == NULL || h_name == DUK_HTHREAD_STRING_EMPTY_STRING(thr)) ?
  27764. "[anon]" : (const char *) DUK_HSTRING_GET_DATA(h_name);
  27765. filename = duk_get_string_notsymbol(thr, -1);
  27766. filename = filename ? filename : "";
  27767. DUK_ASSERT(funcname != NULL);
  27768. DUK_ASSERT(filename != NULL);
  27769. h_func = duk_get_hobject(thr, -4); /* NULL for lightfunc */
  27770. if (h_func == NULL) {
  27771. duk_push_sprintf(thr, "at %s light%s%s%s%s%s",
  27772. (const char *) funcname,
  27773. (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty),
  27774. (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty),
  27775. (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty),
  27776. (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty),
  27777. (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty));
  27778. } else if (DUK_HOBJECT_HAS_NATFUNC(h_func)) {
  27779. duk_push_sprintf(thr, "at %s (%s) native%s%s%s%s%s",
  27780. (const char *) funcname,
  27781. (const char *) filename,
  27782. (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty),
  27783. (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty),
  27784. (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty),
  27785. (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty),
  27786. (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty));
  27787. } else {
  27788. duk_push_sprintf(thr, "at %s (%s:%lu)%s%s%s%s%s",
  27789. (const char *) funcname,
  27790. (const char *) filename,
  27791. (unsigned long) line,
  27792. (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty),
  27793. (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty),
  27794. (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty),
  27795. (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty),
  27796. (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty));
  27797. }
  27798. duk_replace(thr, -5); /* [ ... v1 v2 name filename str ] -> [ ... str v2 name filename ] */
  27799. duk_pop_3(thr); /* -> [ ... str ] */
  27800. } else if (t == DUK_TYPE_STRING) {
  27801. const char *str_file;
  27802. /*
  27803. * __FILE__ / __LINE__ entry, here 'pc' is line number directly.
  27804. * Sometimes __FILE__ / __LINE__ is reported as the source for
  27805. * the error (fileName, lineNumber), sometimes not.
  27806. */
  27807. /* [ ... v1(filename) v2(line+flags) ] */
  27808. /* When looking for .fileName/.lineNumber, blame compilation
  27809. * or C call site unless flagged not to do so.
  27810. */
  27811. if (!(flags & DUK_TB_FLAG_NOBLAME_FILELINE)) {
  27812. if (output_type == DUK__OUTPUT_TYPE_FILENAME) {
  27813. duk_pop(thr);
  27814. return 1;
  27815. } else if (output_type == DUK__OUTPUT_TYPE_LINENUMBER) {
  27816. duk_push_int(thr, pc);
  27817. return 1;
  27818. }
  27819. }
  27820. /* Tracedata is trusted but avoid any risk of using a NULL
  27821. * for %s format because it has undefined behavior. Symbols
  27822. * don't need to be explicitly rejected as they pose no memory
  27823. * safety issues.
  27824. */
  27825. str_file = (const char *) duk_get_string(thr, -2);
  27826. duk_push_sprintf(thr, "at [anon] (%s:%ld) internal",
  27827. (const char *) (str_file ? str_file : "null"), (long) pc);
  27828. duk_replace(thr, -3); /* [ ... v1 v2 str ] -> [ ... str v2 ] */
  27829. duk_pop(thr); /* -> [ ... str ] */
  27830. } else {
  27831. /* unknown, ignore */
  27832. duk_pop_2(thr);
  27833. break;
  27834. }
  27835. }
  27836. if (count_func >= DUK_USE_TRACEBACK_DEPTH) {
  27837. /* Possibly truncated; there is no explicit truncation
  27838. * marker so this is the best we can do.
  27839. */
  27840. duk_push_hstring_stridx(thr, DUK_STRIDX_BRACKETED_ELLIPSIS);
  27841. }
  27842. }
  27843. /* [ ... this tracedata sep this str1 ... strN ] */
  27844. if (output_type != DUK__OUTPUT_TYPE_TRACEBACK) {
  27845. return 0;
  27846. } else {
  27847. /* The 'this' after 'sep' will get ToString() coerced by
  27848. * duk_join() automatically. We don't want to do that
  27849. * coercion when providing .fileName or .lineNumber (GH-254).
  27850. */
  27851. duk_join(thr, duk_get_top(thr) - (idx_td + 2) /*count, not including sep*/);
  27852. return 1;
  27853. }
  27854. }
  27855. /* XXX: Output type could be encoded into native function 'magic' value to
  27856. * save space. For setters the stridx could be encoded into 'magic'.
  27857. */
  27858. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_getter(duk_hthread *thr) {
  27859. return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_TRACEBACK);
  27860. }
  27861. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_getter(duk_hthread *thr) {
  27862. return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_FILENAME);
  27863. }
  27864. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_hthread *thr) {
  27865. return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_LINENUMBER);
  27866. }
  27867. #else /* DUK_USE_TRACEBACKS */
  27868. /*
  27869. * Traceback handling when tracebacks disabled.
  27870. *
  27871. * The fileName / lineNumber stubs are now necessary because built-in
  27872. * data will include the accessor properties in Error.prototype. If those
  27873. * are removed for builds without tracebacks, these can also be removed.
  27874. * 'stack' should still be present and produce a ToString() equivalent:
  27875. * this is useful for user code which prints a stacktrace and expects to
  27876. * see something useful. A normal stacktrace also begins with a ToString()
  27877. * of the error so this makes sense.
  27878. */
  27879. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_getter(duk_hthread *thr) {
  27880. /* XXX: remove this native function and map 'stack' accessor
  27881. * to the toString() implementation directly.
  27882. */
  27883. return duk_bi_error_prototype_to_string(thr);
  27884. }
  27885. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_getter(duk_hthread *thr) {
  27886. DUK_UNREF(thr);
  27887. return 0;
  27888. }
  27889. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_hthread *thr) {
  27890. DUK_UNREF(thr);
  27891. return 0;
  27892. }
  27893. #endif /* DUK_USE_TRACEBACKS */
  27894. DUK_LOCAL duk_ret_t duk__error_setter_helper(duk_hthread *thr, duk_small_uint_t stridx_key) {
  27895. /* Attempt to write 'stack', 'fileName', 'lineNumber' works as if
  27896. * user code called Object.defineProperty() to create an overriding
  27897. * own property. This allows user code to overwrite .fileName etc
  27898. * intuitively as e.g. "err.fileName = 'dummy'" as one might expect.
  27899. * See https://github.com/svaarala/duktape/issues/387.
  27900. */
  27901. DUK_ASSERT_TOP(thr, 1); /* fixed arg count: value */
  27902. duk_push_this(thr);
  27903. duk_push_hstring_stridx(thr, stridx_key);
  27904. duk_dup_0(thr);
  27905. /* [ ... obj key value ] */
  27906. DUK_DD(DUK_DDPRINT("error setter: %!T %!T %!T",
  27907. duk_get_tval(thr, -3), duk_get_tval(thr, -2), duk_get_tval(thr, -1)));
  27908. duk_def_prop(thr, -3, DUK_DEFPROP_HAVE_VALUE |
  27909. DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_WRITABLE |
  27910. DUK_DEFPROP_HAVE_ENUMERABLE | /*not enumerable*/
  27911. DUK_DEFPROP_HAVE_CONFIGURABLE | DUK_DEFPROP_CONFIGURABLE);
  27912. return 0;
  27913. }
  27914. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_setter(duk_hthread *thr) {
  27915. return duk__error_setter_helper(thr, DUK_STRIDX_STACK);
  27916. }
  27917. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_setter(duk_hthread *thr) {
  27918. return duk__error_setter_helper(thr, DUK_STRIDX_FILE_NAME);
  27919. }
  27920. DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_setter(duk_hthread *thr) {
  27921. return duk__error_setter_helper(thr, DUK_STRIDX_LINE_NUMBER);
  27922. }
  27923. /* automatic undefs */
  27924. #undef DUK__OUTPUT_TYPE_FILENAME
  27925. #undef DUK__OUTPUT_TYPE_LINENUMBER
  27926. #undef DUK__OUTPUT_TYPE_TRACEBACK
  27927. #line 1 "duk_bi_function.c"
  27928. /*
  27929. * Function built-ins
  27930. */
  27931. /* #include duk_internal.h -> already included */
  27932. /* Needed even when Function built-in is disabled. */
  27933. DUK_INTERNAL duk_ret_t duk_bi_function_prototype(duk_hthread *thr) {
  27934. /* ignore arguments, return undefined (E5 Section 15.3.4) */
  27935. DUK_UNREF(thr);
  27936. return 0;
  27937. }
  27938. #if defined(DUK_USE_FUNCTION_BUILTIN)
  27939. DUK_INTERNAL duk_ret_t duk_bi_function_constructor(duk_hthread *thr) {
  27940. duk_hstring *h_sourcecode;
  27941. duk_idx_t nargs;
  27942. duk_idx_t i;
  27943. duk_small_uint_t comp_flags;
  27944. duk_hcompfunc *func;
  27945. duk_hobject *outer_lex_env;
  27946. duk_hobject *outer_var_env;
  27947. /* normal and constructor calls have identical semantics */
  27948. nargs = duk_get_top(thr);
  27949. for (i = 0; i < nargs; i++) {
  27950. duk_to_string(thr, i); /* Rejects Symbols during coercion. */
  27951. }
  27952. if (nargs == 0) {
  27953. duk_push_hstring_empty(thr);
  27954. duk_push_hstring_empty(thr);
  27955. } else if (nargs == 1) {
  27956. /* XXX: cover this with the generic >1 case? */
  27957. duk_push_hstring_empty(thr);
  27958. } else {
  27959. duk_insert(thr, 0); /* [ arg1 ... argN-1 body] -> [body arg1 ... argN-1] */
  27960. duk_push_string(thr, ",");
  27961. duk_insert(thr, 1);
  27962. duk_join(thr, nargs - 1);
  27963. }
  27964. /* [ body formals ], formals is comma separated list that needs to be parsed */
  27965. DUK_ASSERT_TOP(thr, 2);
  27966. /* XXX: this placeholder is not always correct, but use for now.
  27967. * It will fail in corner cases; see test-dev-func-cons-args.js.
  27968. */
  27969. duk_push_string(thr, "function(");
  27970. duk_dup_1(thr);
  27971. duk_push_string(thr, "){");
  27972. duk_dup_0(thr);
  27973. duk_push_string(thr, "}");
  27974. duk_concat(thr, 5);
  27975. /* [ body formals source ] */
  27976. DUK_ASSERT_TOP(thr, 3);
  27977. /* strictness is not inherited, intentional */
  27978. comp_flags = DUK_COMPILE_FUNCEXPR;
  27979. duk_push_hstring_stridx(thr, DUK_STRIDX_COMPILE); /* XXX: copy from caller? */ /* XXX: ignored now */
  27980. h_sourcecode = duk_require_hstring(thr, -2); /* no symbol check needed; -2 is concat'd code */
  27981. duk_js_compile(thr,
  27982. (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_sourcecode),
  27983. (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sourcecode),
  27984. comp_flags);
  27985. /* Force .name to 'anonymous' (ES2015). */
  27986. duk_push_string(thr, "anonymous");
  27987. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C);
  27988. func = (duk_hcompfunc *) duk_known_hobject(thr, -1);
  27989. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) func));
  27990. DUK_ASSERT(DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) func));
  27991. /* [ body formals source template ] */
  27992. /* only outer_lex_env matters, as functions always get a new
  27993. * variable declaration environment.
  27994. */
  27995. outer_lex_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  27996. outer_var_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  27997. duk_js_push_closure(thr, func, outer_var_env, outer_lex_env, 1 /*add_auto_proto*/);
  27998. /* [ body formals source template closure ] */
  27999. return 1;
  28000. }
  28001. #endif /* DUK_USE_FUNCTION_BUILTIN */
  28002. #if defined(DUK_USE_FUNCTION_BUILTIN)
  28003. DUK_INTERNAL duk_ret_t duk_bi_function_prototype_to_string(duk_hthread *thr) {
  28004. duk_tval *tv;
  28005. /*
  28006. * E5 Section 15.3.4.2 places few requirements on the output of
  28007. * this function: the result is implementation dependent, must
  28008. * follow FunctionDeclaration syntax (in particular, must have a
  28009. * name even for anonymous functions or functions with empty name).
  28010. * The output does NOT need to compile into anything useful.
  28011. *
  28012. * E6 Section 19.2.3.5 changes the requirements completely: the
  28013. * result must either eval() to a functionally equivalent object
  28014. * OR eval() to a SyntaxError.
  28015. *
  28016. * We opt for the SyntaxError approach for now, with a syntax that
  28017. * mimics V8's native function syntax:
  28018. *
  28019. * 'function cos() { [native code] }'
  28020. *
  28021. * but extended with [ecmascript code], [bound code], and
  28022. * [lightfunc code].
  28023. */
  28024. duk_push_this(thr);
  28025. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  28026. DUK_ASSERT(tv != NULL);
  28027. if (DUK_TVAL_IS_OBJECT(tv)) {
  28028. duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv);
  28029. const char *func_name;
  28030. /* Function name: missing/undefined is mapped to empty string,
  28031. * otherwise coerce to string. No handling for invalid identifier
  28032. * characters or e.g. '{' in the function name. This doesn't
  28033. * really matter as long as a SyntaxError results. Technically
  28034. * if the name contained a suitable prefix followed by '//' it
  28035. * might cause the result to parse without error.
  28036. */
  28037. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME);
  28038. if (duk_is_undefined(thr, -1)) {
  28039. func_name = "";
  28040. } else {
  28041. func_name = duk_to_string(thr, -1);
  28042. DUK_ASSERT(func_name != NULL);
  28043. }
  28044. if (DUK_HOBJECT_IS_COMPFUNC(obj)) {
  28045. duk_push_sprintf(thr, "function %s() { [ecmascript code] }", (const char *) func_name);
  28046. } else if (DUK_HOBJECT_IS_NATFUNC(obj)) {
  28047. duk_push_sprintf(thr, "function %s() { [native code] }", (const char *) func_name);
  28048. } else if (DUK_HOBJECT_IS_BOUNDFUNC(obj)) {
  28049. duk_push_sprintf(thr, "function %s() { [bound code] }", (const char *) func_name);
  28050. } else {
  28051. goto type_error;
  28052. }
  28053. } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  28054. duk_push_lightfunc_tostring(thr, tv);
  28055. } else {
  28056. goto type_error;
  28057. }
  28058. return 1;
  28059. type_error:
  28060. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  28061. }
  28062. #endif
  28063. /* Always present because the native function pointer is needed in call
  28064. * handling.
  28065. */
  28066. DUK_INTERNAL duk_ret_t duk_bi_function_prototype_call(duk_hthread *thr) {
  28067. /* .call() is dealt with in call handling by simulating its
  28068. * effects so this function is actually never called.
  28069. */
  28070. DUK_UNREF(thr);
  28071. return DUK_RET_TYPE_ERROR;
  28072. }
  28073. DUK_INTERNAL duk_ret_t duk_bi_function_prototype_apply(duk_hthread *thr) {
  28074. /* Like .call(), never actually called. */
  28075. DUK_UNREF(thr);
  28076. return DUK_RET_TYPE_ERROR;
  28077. }
  28078. DUK_INTERNAL duk_ret_t duk_bi_reflect_apply(duk_hthread *thr) {
  28079. /* Like .call(), never actually called. */
  28080. DUK_UNREF(thr);
  28081. return DUK_RET_TYPE_ERROR;
  28082. }
  28083. DUK_INTERNAL duk_ret_t duk_bi_reflect_construct(duk_hthread *thr) {
  28084. /* Like .call(), never actually called. */
  28085. DUK_UNREF(thr);
  28086. return DUK_RET_TYPE_ERROR;
  28087. }
  28088. #if defined(DUK_USE_FUNCTION_BUILTIN)
  28089. /* Create a bound function which points to a target function which may
  28090. * be bound or non-bound. If the target is bound, the argument lists
  28091. * and 'this' binding of the functions are merged and the resulting
  28092. * function points directly to the non-bound target.
  28093. */
  28094. DUK_INTERNAL duk_ret_t duk_bi_function_prototype_bind(duk_hthread *thr) {
  28095. duk_hboundfunc *h_bound;
  28096. duk_idx_t nargs; /* bound args, not counting 'this' binding */
  28097. duk_idx_t bound_nargs;
  28098. duk_int_t bound_len;
  28099. duk_tval *tv_prevbound;
  28100. duk_idx_t n_prevbound;
  28101. duk_tval *tv_res;
  28102. duk_tval *tv_tmp;
  28103. /* XXX: C API call, e.g. duk_push_bound_function(thr, target_idx, nargs); */
  28104. /* Vararg function, careful arg handling, e.g. thisArg may not
  28105. * be present.
  28106. */
  28107. nargs = duk_get_top(thr) - 1; /* actual args, not counting 'this' binding */
  28108. if (nargs < 0) {
  28109. nargs++;
  28110. duk_push_undefined(thr);
  28111. }
  28112. DUK_ASSERT(nargs >= 0);
  28113. /* Limit 'nargs' for bound functions to guarantee arithmetic
  28114. * below will never wrap.
  28115. */
  28116. if (nargs > (duk_idx_t) DUK_HBOUNDFUNC_MAX_ARGS) {
  28117. DUK_DCERROR_RANGE_INVALID_COUNT(thr);
  28118. }
  28119. duk_push_this(thr);
  28120. duk_require_callable(thr, -1);
  28121. /* [ thisArg arg1 ... argN func ] (thisArg+args == nargs+1 total) */
  28122. DUK_ASSERT_TOP(thr, nargs + 2);
  28123. /* Create bound function object. */
  28124. h_bound = duk_push_hboundfunc(thr);
  28125. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&h_bound->target));
  28126. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&h_bound->this_binding));
  28127. DUK_ASSERT(h_bound->args == NULL);
  28128. DUK_ASSERT(h_bound->nargs == 0);
  28129. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_bound) == NULL);
  28130. /* [ thisArg arg1 ... argN func boundFunc ] */
  28131. /* If the target is a bound function, argument lists must be
  28132. * merged. The 'this' binding closest to the target function
  28133. * wins because in call handling the 'this' gets replaced over
  28134. * and over again until we call the non-bound function.
  28135. */
  28136. tv_prevbound = NULL;
  28137. n_prevbound = 0;
  28138. tv_tmp = DUK_GET_TVAL_POSIDX(thr, 0);
  28139. DUK_TVAL_SET_TVAL(&h_bound->this_binding, tv_tmp);
  28140. tv_tmp = DUK_GET_TVAL_NEGIDX(thr, -2);
  28141. DUK_TVAL_SET_TVAL(&h_bound->target, tv_tmp);
  28142. if (DUK_TVAL_IS_OBJECT(tv_tmp)) {
  28143. duk_hobject *h_target;
  28144. duk_hobject *bound_proto;
  28145. h_target = DUK_TVAL_GET_OBJECT(tv_tmp);
  28146. DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(h_target));
  28147. /* Internal prototype must be copied from the target.
  28148. * For lightfuncs Function.prototype is used and is already
  28149. * in place.
  28150. */
  28151. bound_proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_target);
  28152. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) h_bound, bound_proto);
  28153. /* The 'strict' flag is copied to get the special [[Get]] of E5.1
  28154. * Section 15.3.5.4 to apply when a 'caller' value is a strict bound
  28155. * function. Not sure if this is correct, because the specification
  28156. * is a bit ambiguous on this point but it would make sense.
  28157. */
  28158. /* Strictness is inherited from target. */
  28159. if (DUK_HOBJECT_HAS_STRICT(h_target)) {
  28160. DUK_HOBJECT_SET_STRICT((duk_hobject *) h_bound);
  28161. }
  28162. if (DUK_HOBJECT_HAS_BOUNDFUNC(h_target)) {
  28163. duk_hboundfunc *h_boundtarget;
  28164. h_boundtarget = (duk_hboundfunc *) h_target;
  28165. /* The final function should always be non-bound, unless
  28166. * there's a bug in the internals. Assert for it.
  28167. */
  28168. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(&h_boundtarget->target) ||
  28169. (DUK_TVAL_IS_OBJECT(&h_boundtarget->target) &&
  28170. DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(&h_boundtarget->target)) &&
  28171. !DUK_HOBJECT_IS_BOUNDFUNC(DUK_TVAL_GET_OBJECT(&h_boundtarget->target))));
  28172. DUK_TVAL_SET_TVAL(&h_bound->target, &h_boundtarget->target);
  28173. DUK_TVAL_SET_TVAL(&h_bound->this_binding, &h_boundtarget->this_binding);
  28174. tv_prevbound = h_boundtarget->args;
  28175. n_prevbound = h_boundtarget->nargs;
  28176. }
  28177. } else {
  28178. /* Lightfuncs are always strict. */
  28179. duk_hobject *bound_proto;
  28180. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_tmp));
  28181. DUK_HOBJECT_SET_STRICT((duk_hobject *) h_bound);
  28182. bound_proto = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE];
  28183. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) h_bound, bound_proto);
  28184. }
  28185. DUK_TVAL_INCREF(thr, &h_bound->target); /* old values undefined, no decref needed */
  28186. DUK_TVAL_INCREF(thr, &h_bound->this_binding);
  28187. bound_nargs = n_prevbound + nargs;
  28188. if (bound_nargs > (duk_idx_t) DUK_HBOUNDFUNC_MAX_ARGS) {
  28189. DUK_DCERROR_RANGE_INVALID_COUNT(thr);
  28190. }
  28191. tv_res = (duk_tval *) DUK_ALLOC_CHECKED(thr, ((duk_size_t) bound_nargs) * sizeof(duk_tval));
  28192. DUK_ASSERT(tv_res != NULL);
  28193. DUK_ASSERT(h_bound->args == NULL);
  28194. DUK_ASSERT(h_bound->nargs == 0);
  28195. h_bound->args = tv_res;
  28196. h_bound->nargs = bound_nargs;
  28197. DUK_ASSERT(n_prevbound >= 0);
  28198. duk_copy_tvals_incref(thr, tv_res, tv_prevbound, (duk_size_t) n_prevbound);
  28199. DUK_ASSERT(nargs >= 0);
  28200. duk_copy_tvals_incref(thr, tv_res + n_prevbound, DUK_GET_TVAL_POSIDX(thr, 1), (duk_size_t) nargs);
  28201. /* [ thisArg arg1 ... argN func boundFunc ] */
  28202. /* Bound function 'length' property is interesting.
  28203. * For lightfuncs, simply read the virtual property.
  28204. */
  28205. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH);
  28206. bound_len = duk_get_int(thr, -1); /* ES2015: no coercion */
  28207. if (bound_len < nargs) {
  28208. bound_len = 0;
  28209. } else {
  28210. bound_len -= nargs;
  28211. }
  28212. if (sizeof(duk_int_t) > 4 && bound_len > (duk_int_t) DUK_UINT32_MAX) {
  28213. bound_len = (duk_int_t) DUK_UINT32_MAX;
  28214. }
  28215. duk_pop(thr);
  28216. DUK_ASSERT(bound_len >= 0);
  28217. tv_tmp = thr->valstack_top++;
  28218. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_tmp));
  28219. DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv_tmp));
  28220. DUK_TVAL_SET_U32(tv_tmp, (duk_uint32_t) bound_len); /* in-place update, fastint */
  28221. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C); /* attrs in E6 Section 9.2.4 */
  28222. /* XXX: could these be virtual? */
  28223. /* Caller and arguments must use the same thrower, [[ThrowTypeError]]. */
  28224. duk_xdef_prop_stridx_thrower(thr, -1, DUK_STRIDX_CALLER);
  28225. duk_xdef_prop_stridx_thrower(thr, -1, DUK_STRIDX_LC_ARGUMENTS);
  28226. /* Function name and fileName (non-standard). */
  28227. duk_push_string(thr, "bound "); /* ES2015 19.2.3.2. */
  28228. duk_get_prop_stridx(thr, -3, DUK_STRIDX_NAME);
  28229. if (!duk_is_string_notsymbol(thr, -1)) {
  28230. /* ES2015 has requirement to check that .name of target is a string
  28231. * (also must check for Symbol); if not, targetName should be the
  28232. * empty string. ES2015 19.2.3.2.
  28233. */
  28234. duk_pop(thr);
  28235. duk_push_hstring_empty(thr);
  28236. }
  28237. duk_concat(thr, 2);
  28238. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C);
  28239. #if defined(DUK_USE_FUNC_FILENAME_PROPERTY)
  28240. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME);
  28241. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C);
  28242. #endif
  28243. DUK_DDD(DUK_DDDPRINT("created bound function: %!iT", (duk_tval *) duk_get_tval(thr, -1)));
  28244. return 1;
  28245. }
  28246. #endif /* DUK_USE_FUNCTION_BUILTIN */
  28247. /* %NativeFunctionPrototype% .length getter. */
  28248. DUK_INTERNAL duk_ret_t duk_bi_native_function_length(duk_hthread *thr) {
  28249. duk_tval *tv;
  28250. duk_hnatfunc *h;
  28251. duk_int16_t func_nargs;
  28252. tv = duk_get_borrowed_this_tval(thr);
  28253. DUK_ASSERT(tv != NULL);
  28254. if (DUK_TVAL_IS_OBJECT(tv)) {
  28255. h = (duk_hnatfunc *) DUK_TVAL_GET_OBJECT(tv);
  28256. DUK_ASSERT(h != NULL);
  28257. if (!DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h)) {
  28258. goto fail_type;
  28259. }
  28260. func_nargs = h->nargs;
  28261. duk_push_int(thr, func_nargs == DUK_HNATFUNC_NARGS_VARARGS ? 0 : func_nargs);
  28262. } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  28263. duk_small_uint_t lf_flags;
  28264. duk_small_uint_t lf_len;
  28265. lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv);
  28266. lf_len = DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags);
  28267. duk_push_uint(thr, lf_len);
  28268. } else {
  28269. goto fail_type;
  28270. }
  28271. return 1;
  28272. fail_type:
  28273. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  28274. }
  28275. /* %NativeFunctionPrototype% .name getter. */
  28276. DUK_INTERNAL duk_ret_t duk_bi_native_function_name(duk_hthread *thr) {
  28277. duk_tval *tv;
  28278. duk_hnatfunc *h;
  28279. tv = duk_get_borrowed_this_tval(thr);
  28280. DUK_ASSERT(tv != NULL);
  28281. if (DUK_TVAL_IS_OBJECT(tv)) {
  28282. h = (duk_hnatfunc *) DUK_TVAL_GET_OBJECT(tv);
  28283. DUK_ASSERT(h != NULL);
  28284. if (!DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h)) {
  28285. goto fail_type;
  28286. }
  28287. #if 0
  28288. duk_push_hnatfunc_name(thr, h);
  28289. #endif
  28290. duk_push_hstring_empty(thr);
  28291. } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) {
  28292. duk_push_lightfunc_name(thr, tv);
  28293. } else {
  28294. goto fail_type;
  28295. }
  28296. return 1;
  28297. fail_type:
  28298. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  28299. }
  28300. #line 1 "duk_bi_global.c"
  28301. /*
  28302. * Global object built-ins
  28303. */
  28304. /* #include duk_internal.h -> already included */
  28305. /*
  28306. * Encoding/decoding helpers
  28307. */
  28308. /* XXX: Could add fast path (for each transform callback) with direct byte
  28309. * lookups (no shifting) and no explicit check for x < 0x80 before table
  28310. * lookup.
  28311. */
  28312. /* Macros for creating and checking bitmasks for character encoding.
  28313. * Bit number is a bit counterintuitive, but minimizes code size.
  28314. */
  28315. #define DUK__MKBITS(a,b,c,d,e,f,g,h) ((duk_uint8_t) ( \
  28316. ((a) << 0) | ((b) << 1) | ((c) << 2) | ((d) << 3) | \
  28317. ((e) << 4) | ((f) << 5) | ((g) << 6) | ((h) << 7) \
  28318. ))
  28319. #define DUK__CHECK_BITMASK(table,cp) ((table)[(cp) >> 3] & (1 << ((cp) & 0x07)))
  28320. /* E5.1 Section 15.1.3.3: uriReserved + uriUnescaped + '#' */
  28321. DUK_LOCAL const duk_uint8_t duk__encode_uriunescaped_table[16] = {
  28322. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */
  28323. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */
  28324. DUK__MKBITS(0, 1, 0, 1, 1, 0, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x20-0x2f */
  28325. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 0, 1, 0, 1), /* 0x30-0x3f */
  28326. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */
  28327. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */
  28328. DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */
  28329. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 1, 0), /* 0x70-0x7f */
  28330. };
  28331. /* E5.1 Section 15.1.3.4: uriUnescaped */
  28332. DUK_LOCAL const duk_uint8_t duk__encode_uricomponent_unescaped_table[16] = {
  28333. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */
  28334. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */
  28335. DUK__MKBITS(0, 1, 0, 0, 0, 0, 0, 1), DUK__MKBITS(1, 1, 1, 0, 0, 1, 1, 0), /* 0x20-0x2f */
  28336. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */
  28337. DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */
  28338. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */
  28339. DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */
  28340. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 1, 0), /* 0x70-0x7f */
  28341. };
  28342. /* E5.1 Section 15.1.3.1: uriReserved + '#' */
  28343. DUK_LOCAL const duk_uint8_t duk__decode_uri_reserved_table[16] = {
  28344. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */
  28345. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */
  28346. DUK__MKBITS(0, 0, 0, 1, 1, 0, 1, 0), DUK__MKBITS(0, 0, 0, 1, 1, 0, 0, 1), /* 0x20-0x2f */
  28347. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 1, 1, 0, 1, 0, 1), /* 0x30-0x3f */
  28348. DUK__MKBITS(1, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x40-0x4f */
  28349. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x50-0x5f */
  28350. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x60-0x6f */
  28351. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x70-0x7f */
  28352. };
  28353. /* E5.1 Section 15.1.3.2: empty */
  28354. DUK_LOCAL const duk_uint8_t duk__decode_uri_component_reserved_table[16] = {
  28355. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */
  28356. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */
  28357. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x20-0x2f */
  28358. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */
  28359. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x40-0x4f */
  28360. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x50-0x5f */
  28361. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x60-0x6f */
  28362. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x70-0x7f */
  28363. };
  28364. #if defined(DUK_USE_SECTION_B)
  28365. /* E5.1 Section B.2.2, step 7. */
  28366. DUK_LOCAL const duk_uint8_t duk__escape_unescaped_table[16] = {
  28367. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */
  28368. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */
  28369. DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 1, 1, 0, 1, 1, 1), /* 0x20-0x2f */
  28370. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */
  28371. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */
  28372. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */
  28373. DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */
  28374. DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 0) /* 0x70-0x7f */
  28375. };
  28376. #endif /* DUK_USE_SECTION_B */
  28377. typedef struct {
  28378. duk_hthread *thr;
  28379. duk_hstring *h_str;
  28380. duk_bufwriter_ctx bw;
  28381. const duk_uint8_t *p;
  28382. const duk_uint8_t *p_start;
  28383. const duk_uint8_t *p_end;
  28384. } duk__transform_context;
  28385. typedef void (*duk__transform_callback)(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp);
  28386. /* XXX: refactor and share with other code */
  28387. DUK_LOCAL duk_small_int_t duk__decode_hex_escape(const duk_uint8_t *p, duk_small_int_t n) {
  28388. duk_small_int_t ch;
  28389. duk_small_int_t t = 0;
  28390. while (n > 0) {
  28391. t = t * 16;
  28392. ch = (duk_small_int_t) duk_hex_dectab[*p++];
  28393. if (DUK_LIKELY(ch >= 0)) {
  28394. t += ch;
  28395. } else {
  28396. return -1;
  28397. }
  28398. n--;
  28399. }
  28400. return t;
  28401. }
  28402. DUK_LOCAL int duk__transform_helper(duk_hthread *thr, duk__transform_callback callback, const void *udata) {
  28403. duk__transform_context tfm_ctx_alloc;
  28404. duk__transform_context *tfm_ctx = &tfm_ctx_alloc;
  28405. duk_codepoint_t cp;
  28406. tfm_ctx->thr = thr;
  28407. tfm_ctx->h_str = duk_to_hstring(thr, 0);
  28408. DUK_ASSERT(tfm_ctx->h_str != NULL);
  28409. DUK_BW_INIT_PUSHBUF(thr, &tfm_ctx->bw, DUK_HSTRING_GET_BYTELEN(tfm_ctx->h_str)); /* initial size guess */
  28410. tfm_ctx->p_start = DUK_HSTRING_GET_DATA(tfm_ctx->h_str);
  28411. tfm_ctx->p_end = tfm_ctx->p_start + DUK_HSTRING_GET_BYTELEN(tfm_ctx->h_str);
  28412. tfm_ctx->p = tfm_ctx->p_start;
  28413. while (tfm_ctx->p < tfm_ctx->p_end) {
  28414. cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &tfm_ctx->p, tfm_ctx->p_start, tfm_ctx->p_end);
  28415. callback(tfm_ctx, udata, cp);
  28416. }
  28417. DUK_BW_COMPACT(thr, &tfm_ctx->bw);
  28418. (void) duk_buffer_to_string(thr, -1); /* Safe if transform is safe. */
  28419. return 1;
  28420. }
  28421. DUK_LOCAL void duk__transform_callback_encode_uri(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) {
  28422. duk_uint8_t xutf8_buf[DUK_UNICODE_MAX_XUTF8_LENGTH];
  28423. duk_small_int_t len;
  28424. duk_codepoint_t cp1, cp2;
  28425. duk_small_int_t i, t;
  28426. const duk_uint8_t *unescaped_table = (const duk_uint8_t *) udata;
  28427. /* UTF-8 encoded bytes escaped as %xx%xx%xx... -> 3 * nbytes.
  28428. * Codepoint range is restricted so this is a slightly too large
  28429. * but doesn't matter.
  28430. */
  28431. DUK_BW_ENSURE(tfm_ctx->thr, &tfm_ctx->bw, 3 * DUK_UNICODE_MAX_XUTF8_LENGTH);
  28432. if (cp < 0) {
  28433. goto uri_error;
  28434. } else if ((cp < 0x80L) && DUK__CHECK_BITMASK(unescaped_table, cp)) {
  28435. DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) cp);
  28436. return;
  28437. } else if (cp >= 0xdc00L && cp <= 0xdfffL) {
  28438. goto uri_error;
  28439. } else if (cp >= 0xd800L && cp <= 0xdbffL) {
  28440. /* Needs lookahead */
  28441. if (duk_unicode_decode_xutf8(tfm_ctx->thr, &tfm_ctx->p, tfm_ctx->p_start, tfm_ctx->p_end, (duk_ucodepoint_t *) &cp2) == 0) {
  28442. goto uri_error;
  28443. }
  28444. if (!(cp2 >= 0xdc00L && cp2 <= 0xdfffL)) {
  28445. goto uri_error;
  28446. }
  28447. cp1 = cp;
  28448. cp = (duk_codepoint_t) (((cp1 - 0xd800L) << 10) + (cp2 - 0xdc00L) + 0x10000L);
  28449. } else if (cp > 0x10ffffL) {
  28450. /* Although we can allow non-BMP characters (they'll decode
  28451. * back into surrogate pairs), we don't allow extended UTF-8
  28452. * characters; they would encode to URIs which won't decode
  28453. * back because of strict UTF-8 checks in URI decoding.
  28454. * (However, we could just as well allow them here.)
  28455. */
  28456. goto uri_error;
  28457. } else {
  28458. /* Non-BMP characters within valid UTF-8 range: encode as is.
  28459. * They'll decode back into surrogate pairs if the escaped
  28460. * output is decoded.
  28461. */
  28462. ;
  28463. }
  28464. len = duk_unicode_encode_xutf8((duk_ucodepoint_t) cp, xutf8_buf);
  28465. for (i = 0; i < len; i++) {
  28466. t = (duk_small_int_t) xutf8_buf[i];
  28467. DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr,
  28468. &tfm_ctx->bw,
  28469. DUK_ASC_PERCENT,
  28470. (duk_uint8_t) duk_uc_nybbles[t >> 4],
  28471. (duk_uint8_t) duk_uc_nybbles[t & 0x0f]);
  28472. }
  28473. return;
  28474. uri_error:
  28475. DUK_ERROR_URI(tfm_ctx->thr, DUK_STR_INVALID_INPUT);
  28476. }
  28477. DUK_LOCAL void duk__transform_callback_decode_uri(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) {
  28478. const duk_uint8_t *reserved_table = (const duk_uint8_t *) udata;
  28479. duk_small_uint_t utf8_blen;
  28480. duk_codepoint_t min_cp;
  28481. duk_small_int_t t; /* must be signed */
  28482. duk_small_uint_t i;
  28483. /* Maximum write size: XUTF8 path writes max DUK_UNICODE_MAX_XUTF8_LENGTH,
  28484. * percent escape path writes max two times CESU-8 encoded BMP length.
  28485. */
  28486. DUK_BW_ENSURE(tfm_ctx->thr,
  28487. &tfm_ctx->bw,
  28488. (DUK_UNICODE_MAX_XUTF8_LENGTH >= 2 * DUK_UNICODE_MAX_CESU8_BMP_LENGTH ?
  28489. DUK_UNICODE_MAX_XUTF8_LENGTH : DUK_UNICODE_MAX_CESU8_BMP_LENGTH));
  28490. if (cp == (duk_codepoint_t) '%') {
  28491. const duk_uint8_t *p = tfm_ctx->p;
  28492. duk_size_t left = (duk_size_t) (tfm_ctx->p_end - p); /* bytes left */
  28493. DUK_DDD(DUK_DDDPRINT("percent encoding, left=%ld", (long) left));
  28494. if (left < 2) {
  28495. goto uri_error;
  28496. }
  28497. t = duk__decode_hex_escape(p, 2);
  28498. DUK_DDD(DUK_DDDPRINT("first byte: %ld", (long) t));
  28499. if (t < 0) {
  28500. goto uri_error;
  28501. }
  28502. if (t < 0x80) {
  28503. if (DUK__CHECK_BITMASK(reserved_table, t)) {
  28504. /* decode '%xx' to '%xx' if decoded char in reserved set */
  28505. DUK_ASSERT(tfm_ctx->p - 1 >= tfm_ctx->p_start);
  28506. DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr,
  28507. &tfm_ctx->bw,
  28508. DUK_ASC_PERCENT,
  28509. p[0],
  28510. p[1]);
  28511. } else {
  28512. DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) t);
  28513. }
  28514. tfm_ctx->p += 2;
  28515. return;
  28516. }
  28517. /* Decode UTF-8 codepoint from a sequence of hex escapes. The
  28518. * first byte of the sequence has been decoded to 't'.
  28519. *
  28520. * Note that UTF-8 validation must be strict according to the
  28521. * specification: E5.1 Section 15.1.3, decode algorithm step
  28522. * 4.d.vii.8. URIError from non-shortest encodings is also
  28523. * specifically noted in the spec.
  28524. */
  28525. DUK_ASSERT(t >= 0x80);
  28526. if (t < 0xc0) {
  28527. /* continuation byte */
  28528. goto uri_error;
  28529. } else if (t < 0xe0) {
  28530. /* 110x xxxx; 2 bytes */
  28531. utf8_blen = 2;
  28532. min_cp = 0x80L;
  28533. cp = t & 0x1f;
  28534. } else if (t < 0xf0) {
  28535. /* 1110 xxxx; 3 bytes */
  28536. utf8_blen = 3;
  28537. min_cp = 0x800L;
  28538. cp = t & 0x0f;
  28539. } else if (t < 0xf8) {
  28540. /* 1111 0xxx; 4 bytes */
  28541. utf8_blen = 4;
  28542. min_cp = 0x10000L;
  28543. cp = t & 0x07;
  28544. } else {
  28545. /* extended utf-8 not allowed for URIs */
  28546. goto uri_error;
  28547. }
  28548. if (left < utf8_blen * 3 - 1) {
  28549. /* '%xx%xx...%xx', p points to char after first '%' */
  28550. goto uri_error;
  28551. }
  28552. p += 3;
  28553. for (i = 1; i < utf8_blen; i++) {
  28554. /* p points to digit part ('%xy', p points to 'x') */
  28555. t = duk__decode_hex_escape(p, 2);
  28556. DUK_DDD(DUK_DDDPRINT("i=%ld utf8_blen=%ld cp=%ld t=0x%02lx",
  28557. (long) i, (long) utf8_blen, (long) cp, (unsigned long) t));
  28558. if (t < 0) {
  28559. goto uri_error;
  28560. }
  28561. if ((t & 0xc0) != 0x80) {
  28562. goto uri_error;
  28563. }
  28564. cp = (cp << 6) + (t & 0x3f);
  28565. p += 3;
  28566. }
  28567. p--; /* p overshoots */
  28568. tfm_ctx->p = p;
  28569. DUK_DDD(DUK_DDDPRINT("final cp=%ld, min_cp=%ld", (long) cp, (long) min_cp));
  28570. if (cp < min_cp || cp > 0x10ffffL || (cp >= 0xd800L && cp <= 0xdfffL)) {
  28571. goto uri_error;
  28572. }
  28573. /* The E5.1 algorithm checks whether or not a decoded codepoint
  28574. * is below 0x80 and perhaps may be in the "reserved" set.
  28575. * This seems pointless because the single byte UTF-8 case is
  28576. * handled separately, and non-shortest encodings are rejected.
  28577. * So, 'cp' cannot be below 0x80 here, and thus cannot be in
  28578. * the reserved set.
  28579. */
  28580. /* utf-8 validation ensures these */
  28581. DUK_ASSERT(cp >= 0x80L && cp <= 0x10ffffL);
  28582. if (cp >= 0x10000L) {
  28583. cp -= 0x10000L;
  28584. DUK_ASSERT(cp < 0x100000L);
  28585. DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, ((cp >> 10) + 0xd800L));
  28586. DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, ((cp & 0x03ffL) + 0xdc00L));
  28587. } else {
  28588. DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp);
  28589. }
  28590. } else {
  28591. DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp);
  28592. }
  28593. return;
  28594. uri_error:
  28595. DUK_ERROR_URI(tfm_ctx->thr, DUK_STR_INVALID_INPUT);
  28596. }
  28597. #if defined(DUK_USE_SECTION_B)
  28598. DUK_LOCAL void duk__transform_callback_escape(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) {
  28599. DUK_UNREF(udata);
  28600. DUK_BW_ENSURE(tfm_ctx->thr, &tfm_ctx->bw, 6);
  28601. if (cp < 0) {
  28602. goto esc_error;
  28603. } else if ((cp < 0x80L) && DUK__CHECK_BITMASK(duk__escape_unescaped_table, cp)) {
  28604. DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) cp);
  28605. } else if (cp < 0x100L) {
  28606. DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr,
  28607. &tfm_ctx->bw,
  28608. (duk_uint8_t) DUK_ASC_PERCENT,
  28609. (duk_uint8_t) duk_uc_nybbles[cp >> 4],
  28610. (duk_uint8_t) duk_uc_nybbles[cp & 0x0f]);
  28611. } else if (cp < 0x10000L) {
  28612. DUK_BW_WRITE_RAW_U8_6(tfm_ctx->thr,
  28613. &tfm_ctx->bw,
  28614. (duk_uint8_t) DUK_ASC_PERCENT,
  28615. (duk_uint8_t) DUK_ASC_LC_U,
  28616. (duk_uint8_t) duk_uc_nybbles[cp >> 12],
  28617. (duk_uint8_t) duk_uc_nybbles[(cp >> 8) & 0x0f],
  28618. (duk_uint8_t) duk_uc_nybbles[(cp >> 4) & 0x0f],
  28619. (duk_uint8_t) duk_uc_nybbles[cp & 0x0f]);
  28620. } else {
  28621. /* Characters outside BMP cannot be escape()'d. We could
  28622. * encode them as surrogate pairs (for codepoints inside
  28623. * valid UTF-8 range, but not extended UTF-8). Because
  28624. * escape() and unescape() are legacy functions, we don't.
  28625. */
  28626. goto esc_error;
  28627. }
  28628. return;
  28629. esc_error:
  28630. DUK_ERROR_TYPE(tfm_ctx->thr, DUK_STR_INVALID_INPUT);
  28631. }
  28632. DUK_LOCAL void duk__transform_callback_unescape(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) {
  28633. duk_small_int_t t;
  28634. DUK_UNREF(udata);
  28635. if (cp == (duk_codepoint_t) '%') {
  28636. const duk_uint8_t *p = tfm_ctx->p;
  28637. duk_size_t left = (duk_size_t) (tfm_ctx->p_end - p); /* bytes left */
  28638. if (left >= 5 && p[0] == 'u' &&
  28639. ((t = duk__decode_hex_escape(p + 1, 4)) >= 0)) {
  28640. cp = (duk_codepoint_t) t;
  28641. tfm_ctx->p += 5;
  28642. } else if (left >= 2 &&
  28643. ((t = duk__decode_hex_escape(p, 2)) >= 0)) {
  28644. cp = (duk_codepoint_t) t;
  28645. tfm_ctx->p += 2;
  28646. }
  28647. }
  28648. DUK_BW_WRITE_ENSURE_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp);
  28649. }
  28650. #endif /* DUK_USE_SECTION_B */
  28651. /*
  28652. * Eval
  28653. *
  28654. * Eval needs to handle both a "direct eval" and an "indirect eval".
  28655. * Direct eval handling needs access to the caller's activation so that its
  28656. * lexical environment can be accessed. A direct eval is only possible from
  28657. * Ecmascript code; an indirect eval call is possible also from C code.
  28658. * When an indirect eval call is made from C code, there may not be a
  28659. * calling activation at all which needs careful handling.
  28660. */
  28661. DUK_INTERNAL duk_ret_t duk_bi_global_object_eval(duk_hthread *thr) {
  28662. duk_hstring *h;
  28663. duk_activation *act_caller;
  28664. duk_activation *act_eval;
  28665. duk_hcompfunc *func;
  28666. duk_hobject *outer_lex_env;
  28667. duk_hobject *outer_var_env;
  28668. duk_bool_t this_to_global = 1;
  28669. duk_small_uint_t comp_flags;
  28670. duk_int_t level = -2;
  28671. duk_small_uint_t call_flags;
  28672. DUK_ASSERT(duk_get_top(thr) == 1 || duk_get_top(thr) == 2); /* 2 when called by debugger */
  28673. DUK_ASSERT(thr->callstack_top >= 1); /* at least this function exists */
  28674. DUK_ASSERT(thr->callstack_curr != NULL);
  28675. DUK_ASSERT((thr->callstack_curr->flags & DUK_ACT_FLAG_DIRECT_EVAL) == 0 || /* indirect eval */
  28676. (thr->callstack_top >= 2)); /* if direct eval, calling activation must exist */
  28677. /*
  28678. * callstack_top - 1 --> this function
  28679. * callstack_top - 2 --> caller (may not exist)
  28680. *
  28681. * If called directly from C, callstack_top might be 1. If calling
  28682. * activation doesn't exist, call must be indirect.
  28683. */
  28684. h = duk_get_hstring_notsymbol(thr, 0);
  28685. if (!h) {
  28686. /* Symbol must be returned as is, like any non-string values. */
  28687. return 1; /* return arg as-is */
  28688. }
  28689. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  28690. /* NOTE: level is used only by the debugger and should never be present
  28691. * for an Ecmascript eval().
  28692. */
  28693. DUK_ASSERT(level == -2); /* by default, use caller's environment */
  28694. if (duk_get_top(thr) >= 2 && duk_is_number(thr, 1)) {
  28695. level = duk_get_int(thr, 1);
  28696. }
  28697. DUK_ASSERT(level <= -2); /* This is guaranteed by debugger code. */
  28698. #endif
  28699. /* [ source ] */
  28700. comp_flags = DUK_COMPILE_EVAL;
  28701. act_eval = thr->callstack_curr; /* this function */
  28702. DUK_ASSERT(act_eval != NULL);
  28703. act_caller = duk_hthread_get_activation_for_level(thr, level);
  28704. if (act_caller != NULL) {
  28705. /* Have a calling activation, check for direct eval (otherwise
  28706. * assume indirect eval.
  28707. */
  28708. if ((act_caller->flags & DUK_ACT_FLAG_STRICT) &&
  28709. (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL)) {
  28710. /* Only direct eval inherits strictness from calling code
  28711. * (E5.1 Section 10.1.1).
  28712. */
  28713. comp_flags |= DUK_COMPILE_STRICT;
  28714. }
  28715. } else {
  28716. DUK_ASSERT((act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) == 0);
  28717. }
  28718. duk_push_hstring_stridx(thr, DUK_STRIDX_INPUT); /* XXX: copy from caller? */
  28719. duk_js_compile(thr,
  28720. (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h),
  28721. (duk_size_t) DUK_HSTRING_GET_BYTELEN(h),
  28722. comp_flags);
  28723. func = (duk_hcompfunc *) duk_known_hobject(thr, -1);
  28724. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) func));
  28725. /* [ source template ] */
  28726. /* E5 Section 10.4.2 */
  28727. if (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) {
  28728. DUK_ASSERT(thr->callstack_top >= 2);
  28729. DUK_ASSERT(act_caller != NULL);
  28730. if (act_caller->lex_env == NULL) {
  28731. DUK_ASSERT(act_caller->var_env == NULL);
  28732. DUK_DDD(DUK_DDDPRINT("delayed environment initialization"));
  28733. /* this may have side effects, so re-lookup act */
  28734. duk_js_init_activation_environment_records_delayed(thr, act_caller);
  28735. }
  28736. DUK_ASSERT(act_caller->lex_env != NULL);
  28737. DUK_ASSERT(act_caller->var_env != NULL);
  28738. this_to_global = 0;
  28739. if (DUK_HOBJECT_HAS_STRICT((duk_hobject *) func)) {
  28740. duk_hdecenv *new_env;
  28741. duk_hobject *act_lex_env;
  28742. DUK_DDD(DUK_DDDPRINT("direct eval call to a strict function -> "
  28743. "var_env and lex_env to a fresh env, "
  28744. "this_binding to caller's this_binding"));
  28745. act_lex_env = act_caller->lex_env;
  28746. new_env = duk_hdecenv_alloc(thr,
  28747. DUK_HOBJECT_FLAG_EXTENSIBLE |
  28748. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV));
  28749. DUK_ASSERT(new_env != NULL);
  28750. duk_push_hobject(thr, (duk_hobject *) new_env);
  28751. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL);
  28752. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, act_lex_env);
  28753. DUK_HOBJECT_INCREF_ALLOWNULL(thr, act_lex_env);
  28754. DUK_DDD(DUK_DDDPRINT("new_env allocated: %!iO", (duk_heaphdr *) new_env));
  28755. outer_lex_env = (duk_hobject *) new_env;
  28756. outer_var_env = (duk_hobject *) new_env;
  28757. duk_insert(thr, 0); /* stash to bottom of value stack to keep new_env reachable for duration of eval */
  28758. /* compiler's responsibility */
  28759. DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV((duk_hobject *) func));
  28760. } else {
  28761. DUK_DDD(DUK_DDDPRINT("direct eval call to a non-strict function -> "
  28762. "var_env and lex_env to caller's envs, "
  28763. "this_binding to caller's this_binding"));
  28764. outer_lex_env = act_caller->lex_env;
  28765. outer_var_env = act_caller->var_env;
  28766. /* compiler's responsibility */
  28767. DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV((duk_hobject *) func));
  28768. }
  28769. } else {
  28770. DUK_DDD(DUK_DDDPRINT("indirect eval call -> var_env and lex_env to "
  28771. "global object, this_binding to global object"));
  28772. this_to_global = 1;
  28773. outer_lex_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  28774. outer_var_env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  28775. }
  28776. /* Eval code doesn't need an automatic .prototype object. */
  28777. duk_js_push_closure(thr, func, outer_var_env, outer_lex_env, 0 /*add_auto_proto*/);
  28778. /* [ env? source template closure ] */
  28779. if (this_to_global) {
  28780. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  28781. duk_push_hobject_bidx(thr, DUK_BIDX_GLOBAL);
  28782. } else {
  28783. duk_tval *tv;
  28784. DUK_ASSERT(thr->callstack_top >= 2);
  28785. DUK_ASSERT(act_caller != NULL);
  28786. tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act_caller->bottom_byteoff - sizeof(duk_tval)); /* this is just beneath bottom */
  28787. DUK_ASSERT(tv >= thr->valstack);
  28788. duk_push_tval(thr, tv);
  28789. }
  28790. DUK_DDD(DUK_DDDPRINT("eval -> lex_env=%!iO, var_env=%!iO, this_binding=%!T",
  28791. (duk_heaphdr *) outer_lex_env,
  28792. (duk_heaphdr *) outer_var_env,
  28793. duk_get_tval(thr, -1)));
  28794. /* [ env? source template closure this ] */
  28795. call_flags = 0;
  28796. if (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) {
  28797. /* Set DIRECT_EVAL flag for the call; it's not strictly
  28798. * needed for the 'inner' eval call (the eval body) but
  28799. * current new.target implementation expects to find it
  28800. * so it can traverse direct eval chains up to the real
  28801. * calling function.
  28802. */
  28803. call_flags |= DUK_CALL_FLAG_DIRECT_EVAL;
  28804. }
  28805. duk_handle_call_unprotected_nargs(thr, 0, call_flags);
  28806. /* [ env? source template result ] */
  28807. return 1;
  28808. }
  28809. /*
  28810. * Parsing of ints and floats
  28811. */
  28812. #if defined(DUK_USE_GLOBAL_BUILTIN)
  28813. DUK_INTERNAL duk_ret_t duk_bi_global_object_parse_int(duk_hthread *thr) {
  28814. duk_int32_t radix;
  28815. duk_small_uint_t s2n_flags;
  28816. DUK_ASSERT_TOP(thr, 2);
  28817. duk_to_string(thr, 0); /* Reject symbols. */
  28818. radix = duk_to_int32(thr, 1);
  28819. /* While parseInt() recognizes 0xdeadbeef, it doesn't recognize
  28820. * ES2015 0o123 or 0b10001.
  28821. */
  28822. s2n_flags = DUK_S2N_FLAG_TRIM_WHITE |
  28823. DUK_S2N_FLAG_ALLOW_GARBAGE |
  28824. DUK_S2N_FLAG_ALLOW_PLUS |
  28825. DUK_S2N_FLAG_ALLOW_MINUS |
  28826. DUK_S2N_FLAG_ALLOW_LEADING_ZERO |
  28827. DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT;
  28828. /* Specification stripPrefix maps to DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT.
  28829. *
  28830. * Don't autodetect octals (from leading zeroes), require user code to
  28831. * provide an explicit radix 8 for parsing octal. See write-up from Mozilla:
  28832. * https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/parseInt#ECMAScript_5_Removes_Octal_Interpretation
  28833. */
  28834. if (radix != 0) {
  28835. if (radix < 2 || radix > 36) {
  28836. goto ret_nan;
  28837. }
  28838. if (radix != 16) {
  28839. s2n_flags &= ~DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT;
  28840. }
  28841. } else {
  28842. radix = 10;
  28843. }
  28844. duk_dup_0(thr);
  28845. duk_numconv_parse(thr, (duk_small_int_t) radix, s2n_flags);
  28846. return 1;
  28847. ret_nan:
  28848. duk_push_nan(thr);
  28849. return 1;
  28850. }
  28851. #endif /* DUK_USE_GLOBAL_BUILTIN */
  28852. #if defined(DUK_USE_GLOBAL_BUILTIN)
  28853. DUK_INTERNAL duk_ret_t duk_bi_global_object_parse_float(duk_hthread *thr) {
  28854. duk_small_uint_t s2n_flags;
  28855. DUK_ASSERT_TOP(thr, 1);
  28856. duk_to_string(thr, 0); /* Reject symbols. */
  28857. /* XXX: check flags */
  28858. s2n_flags = DUK_S2N_FLAG_TRIM_WHITE |
  28859. DUK_S2N_FLAG_ALLOW_EXP |
  28860. DUK_S2N_FLAG_ALLOW_GARBAGE |
  28861. DUK_S2N_FLAG_ALLOW_PLUS |
  28862. DUK_S2N_FLAG_ALLOW_MINUS |
  28863. DUK_S2N_FLAG_ALLOW_INF |
  28864. DUK_S2N_FLAG_ALLOW_FRAC |
  28865. DUK_S2N_FLAG_ALLOW_NAKED_FRAC |
  28866. DUK_S2N_FLAG_ALLOW_EMPTY_FRAC |
  28867. DUK_S2N_FLAG_ALLOW_LEADING_ZERO;
  28868. duk_numconv_parse(thr, 10 /*radix*/, s2n_flags);
  28869. return 1;
  28870. }
  28871. #endif /* DUK_USE_GLOBAL_BUILTIN */
  28872. /*
  28873. * Number checkers
  28874. */
  28875. #if defined(DUK_USE_GLOBAL_BUILTIN)
  28876. DUK_INTERNAL duk_ret_t duk_bi_global_object_is_nan(duk_hthread *thr) {
  28877. duk_double_t d = duk_to_number(thr, 0);
  28878. duk_push_boolean(thr, (duk_bool_t) DUK_ISNAN(d));
  28879. return 1;
  28880. }
  28881. #endif /* DUK_USE_GLOBAL_BUILTIN */
  28882. #if defined(DUK_USE_GLOBAL_BUILTIN)
  28883. DUK_INTERNAL duk_ret_t duk_bi_global_object_is_finite(duk_hthread *thr) {
  28884. duk_double_t d = duk_to_number(thr, 0);
  28885. duk_push_boolean(thr, (duk_bool_t) DUK_ISFINITE(d));
  28886. return 1;
  28887. }
  28888. #endif /* DUK_USE_GLOBAL_BUILTIN */
  28889. /*
  28890. * URI handling
  28891. */
  28892. #if defined(DUK_USE_GLOBAL_BUILTIN)
  28893. DUK_INTERNAL duk_ret_t duk_bi_global_object_decode_uri(duk_hthread *thr) {
  28894. return duk__transform_helper(thr, duk__transform_callback_decode_uri, (const void *) duk__decode_uri_reserved_table);
  28895. }
  28896. DUK_INTERNAL duk_ret_t duk_bi_global_object_decode_uri_component(duk_hthread *thr) {
  28897. return duk__transform_helper(thr, duk__transform_callback_decode_uri, (const void *) duk__decode_uri_component_reserved_table);
  28898. }
  28899. DUK_INTERNAL duk_ret_t duk_bi_global_object_encode_uri(duk_hthread *thr) {
  28900. return duk__transform_helper(thr, duk__transform_callback_encode_uri, (const void *) duk__encode_uriunescaped_table);
  28901. }
  28902. DUK_INTERNAL duk_ret_t duk_bi_global_object_encode_uri_component(duk_hthread *thr) {
  28903. return duk__transform_helper(thr, duk__transform_callback_encode_uri, (const void *) duk__encode_uricomponent_unescaped_table);
  28904. }
  28905. #if defined(DUK_USE_SECTION_B)
  28906. DUK_INTERNAL duk_ret_t duk_bi_global_object_escape(duk_hthread *thr) {
  28907. return duk__transform_helper(thr, duk__transform_callback_escape, (const void *) NULL);
  28908. }
  28909. DUK_INTERNAL duk_ret_t duk_bi_global_object_unescape(duk_hthread *thr) {
  28910. return duk__transform_helper(thr, duk__transform_callback_unescape, (const void *) NULL);
  28911. }
  28912. #endif /* DUK_USE_SECTION_B */
  28913. #endif /* DUK_USE_GLOBAL_BUILTIN */
  28914. /* automatic undefs */
  28915. #undef DUK__CHECK_BITMASK
  28916. #undef DUK__MKBITS
  28917. #line 1 "duk_bi_json.c"
  28918. /*
  28919. * JSON built-ins.
  28920. *
  28921. * See doc/json.rst.
  28922. *
  28923. * Codepoints are handled as duk_uint_fast32_t to ensure that the full
  28924. * unsigned 32-bit range is supported. This matters to e.g. JX.
  28925. *
  28926. * Input parsing doesn't do an explicit end-of-input check at all. This is
  28927. * safe: input string data is always NUL-terminated (0x00) and valid JSON
  28928. * inputs never contain plain NUL characters, so that as long as syntax checks
  28929. * are correct, we'll never read past the NUL. This approach reduces code size
  28930. * and improves parsing performance, but it's critical that syntax checks are
  28931. * indeed correct!
  28932. */
  28933. /* #include duk_internal.h -> already included */
  28934. #if defined(DUK_USE_JSON_SUPPORT)
  28935. /*
  28936. * Local defines and forward declarations.
  28937. */
  28938. #define DUK__JSON_DECSTR_BUFSIZE 128
  28939. #define DUK__JSON_DECSTR_CHUNKSIZE 64
  28940. #define DUK__JSON_ENCSTR_CHUNKSIZE 64
  28941. #define DUK__JSON_STRINGIFY_BUFSIZE 128
  28942. #define DUK__JSON_MAX_ESC_LEN 10 /* '\Udeadbeef' */
  28943. DUK_LOCAL_DECL void duk__dec_syntax_error(duk_json_dec_ctx *js_ctx);
  28944. DUK_LOCAL_DECL void duk__dec_eat_white(duk_json_dec_ctx *js_ctx);
  28945. #if defined(DUK_USE_JX)
  28946. DUK_LOCAL_DECL duk_uint8_t duk__dec_peek(duk_json_dec_ctx *js_ctx);
  28947. #endif
  28948. DUK_LOCAL_DECL duk_uint8_t duk__dec_get(duk_json_dec_ctx *js_ctx);
  28949. DUK_LOCAL_DECL duk_uint8_t duk__dec_get_nonwhite(duk_json_dec_ctx *js_ctx);
  28950. DUK_LOCAL_DECL duk_uint_fast32_t duk__dec_decode_hex_escape(duk_json_dec_ctx *js_ctx, duk_small_uint_t n);
  28951. DUK_LOCAL_DECL void duk__dec_req_stridx(duk_json_dec_ctx *js_ctx, duk_small_uint_t stridx);
  28952. DUK_LOCAL_DECL void duk__dec_string(duk_json_dec_ctx *js_ctx);
  28953. #if defined(DUK_USE_JX)
  28954. DUK_LOCAL_DECL void duk__dec_plain_string(duk_json_dec_ctx *js_ctx);
  28955. DUK_LOCAL_DECL void duk__dec_pointer(duk_json_dec_ctx *js_ctx);
  28956. DUK_LOCAL_DECL void duk__dec_buffer(duk_json_dec_ctx *js_ctx);
  28957. #endif
  28958. DUK_LOCAL_DECL void duk__dec_number(duk_json_dec_ctx *js_ctx);
  28959. DUK_LOCAL_DECL void duk__dec_objarr_entry(duk_json_dec_ctx *js_ctx);
  28960. DUK_LOCAL_DECL void duk__dec_objarr_exit(duk_json_dec_ctx *js_ctx);
  28961. DUK_LOCAL_DECL void duk__dec_object(duk_json_dec_ctx *js_ctx);
  28962. DUK_LOCAL_DECL void duk__dec_array(duk_json_dec_ctx *js_ctx);
  28963. DUK_LOCAL_DECL void duk__dec_value(duk_json_dec_ctx *js_ctx);
  28964. DUK_LOCAL_DECL void duk__dec_reviver_walk(duk_json_dec_ctx *js_ctx);
  28965. DUK_LOCAL_DECL void duk__emit_1(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch);
  28966. DUK_LOCAL_DECL void duk__emit_2(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch1, duk_uint_fast8_t ch2);
  28967. DUK_LOCAL_DECL void duk__unemit_1(duk_json_enc_ctx *js_ctx);
  28968. DUK_LOCAL_DECL void duk__emit_hstring(duk_json_enc_ctx *js_ctx, duk_hstring *h);
  28969. #if defined(DUK_USE_FASTINT)
  28970. DUK_LOCAL_DECL void duk__emit_cstring(duk_json_enc_ctx *js_ctx, const char *p);
  28971. #endif
  28972. DUK_LOCAL_DECL void duk__emit_stridx(duk_json_enc_ctx *js_ctx, duk_small_uint_t stridx);
  28973. DUK_LOCAL_DECL duk_uint8_t *duk__emit_esc_auto_fast(duk_json_enc_ctx *js_ctx, duk_uint_fast32_t cp, duk_uint8_t *q);
  28974. DUK_LOCAL_DECL void duk__enc_key_autoquote(duk_json_enc_ctx *js_ctx, duk_hstring *k);
  28975. DUK_LOCAL_DECL void duk__enc_quote_string(duk_json_enc_ctx *js_ctx, duk_hstring *h_str);
  28976. DUK_LOCAL_DECL void duk__enc_objarr_entry(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top);
  28977. DUK_LOCAL_DECL void duk__enc_objarr_exit(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top);
  28978. DUK_LOCAL_DECL void duk__enc_object(duk_json_enc_ctx *js_ctx);
  28979. DUK_LOCAL_DECL void duk__enc_array(duk_json_enc_ctx *js_ctx);
  28980. DUK_LOCAL_DECL duk_bool_t duk__enc_value(duk_json_enc_ctx *js_ctx, duk_idx_t idx_holder);
  28981. DUK_LOCAL_DECL duk_bool_t duk__enc_allow_into_proplist(duk_tval *tv);
  28982. DUK_LOCAL_DECL void duk__enc_double(duk_json_enc_ctx *js_ctx);
  28983. #if defined(DUK_USE_FASTINT)
  28984. DUK_LOCAL_DECL void duk__enc_fastint_tval(duk_json_enc_ctx *js_ctx, duk_tval *tv);
  28985. #endif
  28986. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  28987. DUK_LOCAL_DECL void duk__enc_buffer_jx_jc(duk_json_enc_ctx *js_ctx, duk_hbuffer *h);
  28988. DUK_LOCAL_DECL void duk__enc_pointer(duk_json_enc_ctx *js_ctx, void *ptr);
  28989. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  28990. DUK_LOCAL_DECL void duk__enc_bufobj(duk_json_enc_ctx *js_ctx, duk_hbufobj *h_bufobj);
  28991. #endif
  28992. #endif
  28993. #if defined(DUK_USE_JSON_STRINGIFY_FASTPATH)
  28994. DUK_LOCAL_DECL void duk__enc_buffer_json_fastpath(duk_json_enc_ctx *js_ctx, duk_hbuffer *h);
  28995. #endif
  28996. DUK_LOCAL_DECL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth);
  28997. /*
  28998. * Helper tables
  28999. */
  29000. #if defined(DUK_USE_JSON_QUOTESTRING_FASTPATH)
  29001. DUK_LOCAL const duk_uint8_t duk__json_quotestr_lookup[256] = {
  29002. /* 0x00 ... 0x7f: as is
  29003. * 0x80: escape generically
  29004. * 0x81: slow path
  29005. * 0xa0 ... 0xff: backslash + one char
  29006. */
  29007. 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0xe2, 0xf4, 0xee, 0x80, 0xe6, 0xf2, 0x80, 0x80,
  29008. 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80,
  29009. 0x20, 0x21, 0xa2, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
  29010. 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
  29011. 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
  29012. 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0xdc, 0x5d, 0x5e, 0x5f,
  29013. 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
  29014. 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x81,
  29015. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29016. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29017. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29018. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29019. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29020. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29021. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  29022. 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81
  29023. };
  29024. #else /* DUK_USE_JSON_QUOTESTRING_FASTPATH */
  29025. DUK_LOCAL const duk_uint8_t duk__json_quotestr_esc[14] = {
  29026. DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL,
  29027. DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL,
  29028. DUK_ASC_LC_B, DUK_ASC_LC_T, DUK_ASC_LC_N, DUK_ASC_NUL,
  29029. DUK_ASC_LC_F, DUK_ASC_LC_R
  29030. };
  29031. #endif /* DUK_USE_JSON_QUOTESTRING_FASTPATH */
  29032. #if defined(DUK_USE_JSON_DECSTRING_FASTPATH)
  29033. DUK_LOCAL const duk_uint8_t duk__json_decstr_lookup[256] = {
  29034. /* 0x00: slow path
  29035. * other: as is
  29036. */
  29037. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29038. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29039. 0x20, 0x21, 0x00, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
  29040. 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
  29041. 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
  29042. 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0x00, 0x5d, 0x5e, 0x5f,
  29043. 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
  29044. 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
  29045. 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
  29046. 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
  29047. 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
  29048. 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
  29049. 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf,
  29050. 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, 0xd7, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
  29051. 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
  29052. 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff
  29053. };
  29054. #endif /* DUK_USE_JSON_DECSTRING_FASTPATH */
  29055. #if defined(DUK_USE_JSON_EATWHITE_FASTPATH)
  29056. DUK_LOCAL const duk_uint8_t duk__json_eatwhite_lookup[256] = {
  29057. /* 0x00: finish (non-white)
  29058. * 0x01: continue
  29059. */
  29060. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00,
  29061. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29062. 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29063. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29064. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29065. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29066. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29067. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29068. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29069. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29070. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29071. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29072. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29073. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29074. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29075. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
  29076. };
  29077. #endif /* DUK_USE_JSON_EATWHITE_FASTPATH */
  29078. #if defined(DUK_USE_JSON_DECNUMBER_FASTPATH)
  29079. DUK_LOCAL const duk_uint8_t duk__json_decnumber_lookup[256] = {
  29080. /* 0x00: finish (not part of number)
  29081. * 0x01: continue
  29082. */
  29083. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29084. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29085. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x01, 0x01, 0x00,
  29086. 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29087. 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29088. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29089. 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29090. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29091. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29092. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29093. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29094. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29095. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29096. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29097. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  29098. 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
  29099. };
  29100. #endif /* DUK_USE_JSON_DECNUMBER_FASTPATH */
  29101. /*
  29102. * Parsing implementation.
  29103. *
  29104. * JSON lexer is now separate from duk_lexer.c because there are numerous
  29105. * small differences making it difficult to share the lexer.
  29106. *
  29107. * The parser here works with raw bytes directly; this works because all
  29108. * JSON delimiters are ASCII characters. Invalid xUTF-8 encoded values
  29109. * inside strings will be passed on without normalization; this is not a
  29110. * compliance concern because compliant inputs will always be valid
  29111. * CESU-8 encodings.
  29112. */
  29113. DUK_LOCAL void duk__dec_syntax_error(duk_json_dec_ctx *js_ctx) {
  29114. /* Shared handler to minimize parser size. Cause will be
  29115. * hidden, unfortunately, but we'll have an offset which
  29116. * is often quite enough.
  29117. */
  29118. DUK_ERROR_FMT1(js_ctx->thr, DUK_ERR_SYNTAX_ERROR, DUK_STR_FMT_INVALID_JSON,
  29119. (long) (js_ctx->p - js_ctx->p_start));
  29120. }
  29121. DUK_LOCAL void duk__dec_eat_white(duk_json_dec_ctx *js_ctx) {
  29122. const duk_uint8_t *p;
  29123. duk_uint8_t t;
  29124. p = js_ctx->p;
  29125. for (;;) {
  29126. DUK_ASSERT(p <= js_ctx->p_end);
  29127. t = *p;
  29128. #if defined(DUK_USE_JSON_EATWHITE_FASTPATH)
  29129. /* This fast path is pretty marginal in practice.
  29130. * XXX: candidate for removal.
  29131. */
  29132. DUK_ASSERT(duk__json_eatwhite_lookup[0x00] == 0x00); /* end-of-input breaks */
  29133. if (duk__json_eatwhite_lookup[t] == 0) {
  29134. break;
  29135. }
  29136. #else /* DUK_USE_JSON_EATWHITE_FASTPATH */
  29137. if (!(t == 0x20 || t == 0x0a || t == 0x0d || t == 0x09)) {
  29138. /* NUL also comes here. Comparison order matters, 0x20
  29139. * is most common whitespace.
  29140. */
  29141. break;
  29142. }
  29143. #endif /* DUK_USE_JSON_EATWHITE_FASTPATH */
  29144. p++;
  29145. }
  29146. js_ctx->p = p;
  29147. }
  29148. #if defined(DUK_USE_JX)
  29149. DUK_LOCAL duk_uint8_t duk__dec_peek(duk_json_dec_ctx *js_ctx) {
  29150. DUK_ASSERT(js_ctx->p <= js_ctx->p_end);
  29151. return *js_ctx->p;
  29152. }
  29153. #endif
  29154. DUK_LOCAL duk_uint8_t duk__dec_get(duk_json_dec_ctx *js_ctx) {
  29155. DUK_ASSERT(js_ctx->p <= js_ctx->p_end);
  29156. return *js_ctx->p++;
  29157. }
  29158. DUK_LOCAL duk_uint8_t duk__dec_get_nonwhite(duk_json_dec_ctx *js_ctx) {
  29159. duk__dec_eat_white(js_ctx);
  29160. return duk__dec_get(js_ctx);
  29161. }
  29162. /* For JX, expressing the whole unsigned 32-bit range matters. */
  29163. DUK_LOCAL duk_uint_fast32_t duk__dec_decode_hex_escape(duk_json_dec_ctx *js_ctx, duk_small_uint_t n) {
  29164. duk_small_uint_t i;
  29165. duk_uint_fast32_t res = 0;
  29166. duk_uint8_t x;
  29167. duk_small_int_t t;
  29168. for (i = 0; i < n; i++) {
  29169. /* XXX: share helper from lexer; duk_lexer.c / hexval(). */
  29170. x = duk__dec_get(js_ctx);
  29171. DUK_DDD(DUK_DDDPRINT("decode_hex_escape: i=%ld, n=%ld, res=%ld, x=%ld",
  29172. (long) i, (long) n, (long) res, (long) x));
  29173. /* x == 0x00 (EOF) causes syntax_error */
  29174. DUK_ASSERT(duk_hex_dectab[0] == -1);
  29175. t = duk_hex_dectab[x & 0xff];
  29176. if (DUK_LIKELY(t >= 0)) {
  29177. res = (res * 16) + (duk_uint_fast32_t) t;
  29178. } else {
  29179. /* catches EOF and invalid digits */
  29180. goto syntax_error;
  29181. }
  29182. }
  29183. DUK_DDD(DUK_DDDPRINT("final hex decoded value: %ld", (long) res));
  29184. return res;
  29185. syntax_error:
  29186. duk__dec_syntax_error(js_ctx);
  29187. DUK_UNREACHABLE();
  29188. return 0;
  29189. }
  29190. DUK_LOCAL void duk__dec_req_stridx(duk_json_dec_ctx *js_ctx, duk_small_uint_t stridx) {
  29191. duk_hstring *h;
  29192. const duk_uint8_t *p;
  29193. duk_uint8_t x, y;
  29194. /* First character has already been eaten and checked by the caller.
  29195. * We can scan until a NUL in stridx string because no built-in strings
  29196. * have internal NULs.
  29197. */
  29198. DUK_ASSERT_STRIDX_VALID(stridx);
  29199. h = DUK_HTHREAD_GET_STRING(js_ctx->thr, stridx);
  29200. DUK_ASSERT(h != NULL);
  29201. p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h) + 1;
  29202. DUK_ASSERT(*(js_ctx->p - 1) == *(p - 1)); /* first character has been matched */
  29203. for (;;) {
  29204. x = *p;
  29205. if (x == 0) {
  29206. break;
  29207. }
  29208. y = duk__dec_get(js_ctx);
  29209. if (x != y) {
  29210. /* Catches EOF of JSON input. */
  29211. goto syntax_error;
  29212. }
  29213. p++;
  29214. }
  29215. return;
  29216. syntax_error:
  29217. duk__dec_syntax_error(js_ctx);
  29218. DUK_UNREACHABLE();
  29219. }
  29220. DUK_LOCAL duk_small_int_t duk__dec_string_escape(duk_json_dec_ctx *js_ctx, duk_uint8_t **ext_p) {
  29221. duk_uint_fast32_t cp;
  29222. /* EOF (-1) will be cast to an unsigned value first
  29223. * and then re-cast for the switch. In any case, it
  29224. * will match the default case (syntax error).
  29225. */
  29226. cp = (duk_uint_fast32_t) duk__dec_get(js_ctx);
  29227. switch (cp) {
  29228. case DUK_ASC_BACKSLASH: break;
  29229. case DUK_ASC_DOUBLEQUOTE: break;
  29230. case DUK_ASC_SLASH: break;
  29231. case DUK_ASC_LC_T: cp = 0x09; break;
  29232. case DUK_ASC_LC_N: cp = 0x0a; break;
  29233. case DUK_ASC_LC_R: cp = 0x0d; break;
  29234. case DUK_ASC_LC_F: cp = 0x0c; break;
  29235. case DUK_ASC_LC_B: cp = 0x08; break;
  29236. case DUK_ASC_LC_U: {
  29237. cp = duk__dec_decode_hex_escape(js_ctx, 4);
  29238. break;
  29239. }
  29240. #if defined(DUK_USE_JX)
  29241. case DUK_ASC_UC_U: {
  29242. if (js_ctx->flag_ext_custom) {
  29243. cp = duk__dec_decode_hex_escape(js_ctx, 8);
  29244. } else {
  29245. return 1; /* syntax error */
  29246. }
  29247. break;
  29248. }
  29249. case DUK_ASC_LC_X: {
  29250. if (js_ctx->flag_ext_custom) {
  29251. cp = duk__dec_decode_hex_escape(js_ctx, 2);
  29252. } else {
  29253. return 1; /* syntax error */
  29254. }
  29255. break;
  29256. }
  29257. #endif /* DUK_USE_JX */
  29258. default:
  29259. /* catches EOF (0x00) */
  29260. return 1; /* syntax error */
  29261. }
  29262. DUK_RAW_WRITE_XUTF8(*ext_p, cp);
  29263. return 0;
  29264. }
  29265. DUK_LOCAL void duk__dec_string(duk_json_dec_ctx *js_ctx) {
  29266. duk_hthread *thr = js_ctx->thr;
  29267. duk_bufwriter_ctx bw_alloc;
  29268. duk_bufwriter_ctx *bw;
  29269. duk_uint8_t *q;
  29270. /* '"' was eaten by caller */
  29271. /* Note that we currently parse -bytes-, not codepoints.
  29272. * All non-ASCII extended UTF-8 will encode to bytes >= 0x80,
  29273. * so they'll simply pass through (valid UTF-8 or not).
  29274. */
  29275. bw = &bw_alloc;
  29276. DUK_BW_INIT_PUSHBUF(js_ctx->thr, bw, DUK__JSON_DECSTR_BUFSIZE);
  29277. q = DUK_BW_GET_PTR(js_ctx->thr, bw);
  29278. #if defined(DUK_USE_JSON_DECSTRING_FASTPATH)
  29279. for (;;) {
  29280. duk_small_uint_t safe;
  29281. duk_uint8_t b, x;
  29282. const duk_uint8_t *p;
  29283. /* Select a safe loop count where no output checks are
  29284. * needed assuming we won't encounter escapes. Input
  29285. * bound checks are not necessary as a NUL (guaranteed)
  29286. * will cause a SyntaxError before we read out of bounds.
  29287. */
  29288. safe = DUK__JSON_DECSTR_CHUNKSIZE;
  29289. /* Ensure space for 1:1 output plus one escape. */
  29290. q = DUK_BW_ENSURE_RAW(js_ctx->thr, bw, safe + DUK_UNICODE_MAX_XUTF8_LENGTH, q);
  29291. p = js_ctx->p; /* temp copy, write back for next loop */
  29292. for (;;) {
  29293. if (safe == 0) {
  29294. js_ctx->p = p;
  29295. break;
  29296. }
  29297. safe--;
  29298. /* End of input (NUL) goes through slow path and causes SyntaxError. */
  29299. DUK_ASSERT(duk__json_decstr_lookup[0] == 0x00);
  29300. b = *p++;
  29301. x = (duk_small_int_t) duk__json_decstr_lookup[b];
  29302. if (DUK_LIKELY(x != 0)) {
  29303. /* Fast path, decode as is. */
  29304. *q++ = b;
  29305. } else if (b == DUK_ASC_DOUBLEQUOTE) {
  29306. js_ctx->p = p;
  29307. goto found_quote;
  29308. } else if (b == DUK_ASC_BACKSLASH) {
  29309. /* We've ensured space for one escaped input; then
  29310. * bail out and recheck (this makes escape handling
  29311. * quite slow but it's uncommon).
  29312. */
  29313. js_ctx->p = p;
  29314. if (duk__dec_string_escape(js_ctx, &q) != 0) {
  29315. goto syntax_error;
  29316. }
  29317. break;
  29318. } else {
  29319. js_ctx->p = p;
  29320. goto syntax_error;
  29321. }
  29322. }
  29323. }
  29324. found_quote:
  29325. #else /* DUK_USE_JSON_DECSTRING_FASTPATH */
  29326. for (;;) {
  29327. duk_uint8_t x;
  29328. q = DUK_BW_ENSURE_RAW(js_ctx->thr, bw, DUK_UNICODE_MAX_XUTF8_LENGTH, q);
  29329. x = duk__dec_get(js_ctx);
  29330. if (x == DUK_ASC_DOUBLEQUOTE) {
  29331. break;
  29332. } else if (x == DUK_ASC_BACKSLASH) {
  29333. if (duk__dec_string_escape(js_ctx, &q) != 0) {
  29334. goto syntax_error;
  29335. }
  29336. } else if (x < 0x20) {
  29337. /* catches EOF (NUL) */
  29338. goto syntax_error;
  29339. } else {
  29340. *q++ = (duk_uint8_t) x;
  29341. }
  29342. }
  29343. #endif /* DUK_USE_JSON_DECSTRING_FASTPATH */
  29344. DUK_BW_SETPTR_AND_COMPACT(js_ctx->thr, bw, q);
  29345. (void) duk_buffer_to_string(thr, -1); /* Safe if input string is safe. */
  29346. /* [ ... str ] */
  29347. return;
  29348. syntax_error:
  29349. duk__dec_syntax_error(js_ctx);
  29350. DUK_UNREACHABLE();
  29351. }
  29352. #if defined(DUK_USE_JX)
  29353. /* Decode a plain string consisting entirely of identifier characters.
  29354. * Used to parse plain keys (e.g. "foo: 123").
  29355. */
  29356. DUK_LOCAL void duk__dec_plain_string(duk_json_dec_ctx *js_ctx) {
  29357. duk_hthread *thr = js_ctx->thr;
  29358. const duk_uint8_t *p;
  29359. duk_small_int_t x;
  29360. /* Caller has already eaten the first char so backtrack one byte. */
  29361. js_ctx->p--; /* safe */
  29362. p = js_ctx->p;
  29363. /* Here again we parse bytes, and non-ASCII UTF-8 will cause end of
  29364. * parsing (which is correct except if there are non-shortest encodings).
  29365. * There is also no need to check explicitly for end of input buffer as
  29366. * the input is NUL padded and NUL will exit the parsing loop.
  29367. *
  29368. * Because no unescaping takes place, we can just scan to the end of the
  29369. * plain string and intern from the input buffer.
  29370. */
  29371. for (;;) {
  29372. x = *p;
  29373. /* There is no need to check the first character specially here
  29374. * (i.e. reject digits): the caller only accepts valid initial
  29375. * characters and won't call us if the first character is a digit.
  29376. * This also ensures that the plain string won't be empty.
  29377. */
  29378. if (!duk_unicode_is_identifier_part((duk_codepoint_t) x)) {
  29379. break;
  29380. }
  29381. p++;
  29382. }
  29383. duk_push_lstring(thr, (const char *) js_ctx->p, (duk_size_t) (p - js_ctx->p));
  29384. js_ctx->p = p;
  29385. /* [ ... str ] */
  29386. }
  29387. #endif /* DUK_USE_JX */
  29388. #if defined(DUK_USE_JX)
  29389. DUK_LOCAL void duk__dec_pointer(duk_json_dec_ctx *js_ctx) {
  29390. duk_hthread *thr = js_ctx->thr;
  29391. const duk_uint8_t *p;
  29392. duk_small_int_t x;
  29393. void *voidptr;
  29394. /* Caller has already eaten the first character ('(') which we don't need. */
  29395. p = js_ctx->p;
  29396. for (;;) {
  29397. x = *p;
  29398. /* Assume that the native representation never contains a closing
  29399. * parenthesis.
  29400. */
  29401. if (x == DUK_ASC_RPAREN) {
  29402. break;
  29403. } else if (x <= 0) {
  29404. /* NUL term or -1 (EOF), NUL check would suffice */
  29405. goto syntax_error;
  29406. }
  29407. p++;
  29408. }
  29409. /* There is no need to NUL delimit the sscanf() call: trailing garbage is
  29410. * ignored and there is always a NUL terminator which will force an error
  29411. * if no error is encountered before it. It's possible that the scan
  29412. * would scan further than between [js_ctx->p,p[ though and we'd advance
  29413. * by less than the scanned value.
  29414. *
  29415. * Because pointers are platform specific, a failure to scan a pointer
  29416. * results in a null pointer which is a better placeholder than a missing
  29417. * value or an error.
  29418. */
  29419. voidptr = NULL;
  29420. (void) DUK_SSCANF((const char *) js_ctx->p, DUK_STR_FMT_PTR, &voidptr);
  29421. duk_push_pointer(thr, voidptr);
  29422. js_ctx->p = p + 1; /* skip ')' */
  29423. /* [ ... ptr ] */
  29424. return;
  29425. syntax_error:
  29426. duk__dec_syntax_error(js_ctx);
  29427. DUK_UNREACHABLE();
  29428. }
  29429. #endif /* DUK_USE_JX */
  29430. #if defined(DUK_USE_JX)
  29431. DUK_LOCAL void duk__dec_buffer(duk_json_dec_ctx *js_ctx) {
  29432. duk_hthread *thr = js_ctx->thr;
  29433. const duk_uint8_t *p;
  29434. duk_uint8_t *buf;
  29435. duk_size_t src_len;
  29436. duk_small_int_t x;
  29437. /* Caller has already eaten the first character ('|') which we don't need. */
  29438. p = js_ctx->p;
  29439. /* XXX: Would be nice to share the fast path loop from duk_hex_decode()
  29440. * and avoid creating a temporary buffer. However, there are some
  29441. * differences which prevent trivial sharing:
  29442. *
  29443. * - Pipe char detection
  29444. * - EOF detection
  29445. * - Unknown length of input and output
  29446. *
  29447. * The best approach here would be a bufwriter and a reasonaly sized
  29448. * safe inner loop (e.g. 64 output bytes at a time).
  29449. */
  29450. for (;;) {
  29451. x = *p;
  29452. /* This loop intentionally does not ensure characters are valid
  29453. * ([0-9a-fA-F]) because the hex decode call below will do that.
  29454. */
  29455. if (x == DUK_ASC_PIPE) {
  29456. break;
  29457. } else if (x <= 0) {
  29458. /* NUL term or -1 (EOF), NUL check would suffice */
  29459. goto syntax_error;
  29460. }
  29461. p++;
  29462. }
  29463. /* XXX: this is not very nice; unnecessary copy is made. */
  29464. src_len = (duk_size_t) (p - js_ctx->p);
  29465. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, src_len);
  29466. DUK_ASSERT(buf != NULL);
  29467. DUK_MEMCPY((void *) buf, (const void *) js_ctx->p, src_len);
  29468. duk_hex_decode(thr, -1);
  29469. js_ctx->p = p + 1; /* skip '|' */
  29470. /* [ ... buf ] */
  29471. return;
  29472. syntax_error:
  29473. duk__dec_syntax_error(js_ctx);
  29474. DUK_UNREACHABLE();
  29475. }
  29476. #endif /* DUK_USE_JX */
  29477. /* Parse a number, other than NaN or +/- Infinity */
  29478. DUK_LOCAL void duk__dec_number(duk_json_dec_ctx *js_ctx) {
  29479. duk_hthread *thr = js_ctx->thr;
  29480. const duk_uint8_t *p_start;
  29481. const duk_uint8_t *p;
  29482. duk_uint8_t x;
  29483. duk_small_uint_t s2n_flags;
  29484. DUK_DDD(DUK_DDDPRINT("parse_number"));
  29485. p_start = js_ctx->p;
  29486. /* First pass parse is very lenient (e.g. allows '1.2.3') and extracts a
  29487. * string for strict number parsing.
  29488. */
  29489. p = js_ctx->p;
  29490. for (;;) {
  29491. x = *p;
  29492. DUK_DDD(DUK_DDDPRINT("parse_number: p_start=%p, p=%p, p_end=%p, x=%ld",
  29493. (const void *) p_start, (const void *) p,
  29494. (const void *) js_ctx->p_end, (long) x));
  29495. #if defined(DUK_USE_JSON_DECNUMBER_FASTPATH)
  29496. /* This fast path is pretty marginal in practice.
  29497. * XXX: candidate for removal.
  29498. */
  29499. DUK_ASSERT(duk__json_decnumber_lookup[0x00] == 0x00); /* end-of-input breaks */
  29500. if (duk__json_decnumber_lookup[x] == 0) {
  29501. break;
  29502. }
  29503. #else /* DUK_USE_JSON_DECNUMBER_FASTPATH */
  29504. if (!((x >= DUK_ASC_0 && x <= DUK_ASC_9) ||
  29505. (x == DUK_ASC_PERIOD || x == DUK_ASC_LC_E ||
  29506. x == DUK_ASC_UC_E || x == DUK_ASC_MINUS || x == DUK_ASC_PLUS))) {
  29507. /* Plus sign must be accepted for positive exponents
  29508. * (e.g. '1.5e+2'). This clause catches NULs.
  29509. */
  29510. break;
  29511. }
  29512. #endif /* DUK_USE_JSON_DECNUMBER_FASTPATH */
  29513. p++; /* safe, because matched (NUL causes a break) */
  29514. }
  29515. js_ctx->p = p;
  29516. DUK_ASSERT(js_ctx->p > p_start);
  29517. duk_push_lstring(thr, (const char *) p_start, (duk_size_t) (p - p_start));
  29518. s2n_flags = DUK_S2N_FLAG_ALLOW_EXP |
  29519. DUK_S2N_FLAG_ALLOW_MINUS | /* but don't allow leading plus */
  29520. DUK_S2N_FLAG_ALLOW_FRAC;
  29521. DUK_DDD(DUK_DDDPRINT("parse_number: string before parsing: %!T",
  29522. (duk_tval *) duk_get_tval(thr, -1)));
  29523. duk_numconv_parse(thr, 10 /*radix*/, s2n_flags);
  29524. if (duk_is_nan(thr, -1)) {
  29525. duk__dec_syntax_error(js_ctx);
  29526. }
  29527. DUK_ASSERT(duk_is_number(thr, -1));
  29528. DUK_DDD(DUK_DDDPRINT("parse_number: final number: %!T",
  29529. (duk_tval *) duk_get_tval(thr, -1)));
  29530. /* [ ... num ] */
  29531. }
  29532. DUK_LOCAL void duk__dec_objarr_entry(duk_json_dec_ctx *js_ctx) {
  29533. duk_hthread *thr = js_ctx->thr;
  29534. duk_require_stack(thr, DUK_JSON_DEC_REQSTACK);
  29535. /* c recursion check */
  29536. DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */
  29537. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  29538. if (js_ctx->recursion_depth >= js_ctx->recursion_limit) {
  29539. DUK_ERROR_RANGE(thr, DUK_STR_JSONDEC_RECLIMIT);
  29540. }
  29541. js_ctx->recursion_depth++;
  29542. }
  29543. DUK_LOCAL void duk__dec_objarr_exit(duk_json_dec_ctx *js_ctx) {
  29544. /* c recursion check */
  29545. DUK_ASSERT(js_ctx->recursion_depth > 0);
  29546. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  29547. js_ctx->recursion_depth--;
  29548. }
  29549. DUK_LOCAL void duk__dec_object(duk_json_dec_ctx *js_ctx) {
  29550. duk_hthread *thr = js_ctx->thr;
  29551. duk_int_t key_count; /* XXX: a "first" flag would suffice */
  29552. duk_uint8_t x;
  29553. DUK_DDD(DUK_DDDPRINT("parse_object"));
  29554. duk__dec_objarr_entry(js_ctx);
  29555. duk_push_object(thr);
  29556. /* Initial '{' has been checked and eaten by caller. */
  29557. key_count = 0;
  29558. for (;;) {
  29559. x = duk__dec_get_nonwhite(js_ctx);
  29560. DUK_DDD(DUK_DDDPRINT("parse_object: obj=%!T, x=%ld, key_count=%ld",
  29561. (duk_tval *) duk_get_tval(thr, -1),
  29562. (long) x, (long) key_count));
  29563. /* handle comma and closing brace */
  29564. if (x == DUK_ASC_COMMA && key_count > 0) {
  29565. /* accept comma, expect new value */
  29566. x = duk__dec_get_nonwhite(js_ctx);
  29567. } else if (x == DUK_ASC_RCURLY) {
  29568. /* eat closing brace */
  29569. break;
  29570. } else if (key_count == 0) {
  29571. /* accept anything, expect first value (EOF will be
  29572. * caught by key parsing below.
  29573. */
  29574. ;
  29575. } else {
  29576. /* catches EOF (NUL) and initial comma */
  29577. goto syntax_error;
  29578. }
  29579. /* parse key and value */
  29580. if (x == DUK_ASC_DOUBLEQUOTE) {
  29581. duk__dec_string(js_ctx);
  29582. #if defined(DUK_USE_JX)
  29583. } else if (js_ctx->flag_ext_custom &&
  29584. duk_unicode_is_identifier_start((duk_codepoint_t) x)) {
  29585. duk__dec_plain_string(js_ctx);
  29586. #endif
  29587. } else {
  29588. goto syntax_error;
  29589. }
  29590. /* [ ... obj key ] */
  29591. x = duk__dec_get_nonwhite(js_ctx);
  29592. if (x != DUK_ASC_COLON) {
  29593. goto syntax_error;
  29594. }
  29595. duk__dec_value(js_ctx);
  29596. /* [ ... obj key val ] */
  29597. duk_xdef_prop_wec(thr, -3);
  29598. /* [ ... obj ] */
  29599. key_count++;
  29600. }
  29601. /* [ ... obj ] */
  29602. DUK_DDD(DUK_DDDPRINT("parse_object: final object is %!T",
  29603. (duk_tval *) duk_get_tval(thr, -1)));
  29604. duk__dec_objarr_exit(js_ctx);
  29605. return;
  29606. syntax_error:
  29607. duk__dec_syntax_error(js_ctx);
  29608. DUK_UNREACHABLE();
  29609. }
  29610. DUK_LOCAL void duk__dec_array(duk_json_dec_ctx *js_ctx) {
  29611. duk_hthread *thr = js_ctx->thr;
  29612. duk_uarridx_t arr_idx;
  29613. duk_uint8_t x;
  29614. DUK_DDD(DUK_DDDPRINT("parse_array"));
  29615. duk__dec_objarr_entry(js_ctx);
  29616. duk_push_array(thr);
  29617. /* Initial '[' has been checked and eaten by caller. */
  29618. arr_idx = 0;
  29619. for (;;) {
  29620. x = duk__dec_get_nonwhite(js_ctx);
  29621. DUK_DDD(DUK_DDDPRINT("parse_array: arr=%!T, x=%ld, arr_idx=%ld",
  29622. (duk_tval *) duk_get_tval(thr, -1),
  29623. (long) x, (long) arr_idx));
  29624. /* handle comma and closing bracket */
  29625. if ((x == DUK_ASC_COMMA) && (arr_idx != 0)) {
  29626. /* accept comma, expect new value */
  29627. ;
  29628. } else if (x == DUK_ASC_RBRACKET) {
  29629. /* eat closing bracket */
  29630. break;
  29631. } else if (arr_idx == 0) {
  29632. /* accept anything, expect first value (EOF will be
  29633. * caught by duk__dec_value() below.
  29634. */
  29635. js_ctx->p--; /* backtrack (safe) */
  29636. } else {
  29637. /* catches EOF (NUL) and initial comma */
  29638. goto syntax_error;
  29639. }
  29640. /* parse value */
  29641. duk__dec_value(js_ctx);
  29642. /* [ ... arr val ] */
  29643. duk_xdef_prop_index_wec(thr, -2, arr_idx);
  29644. arr_idx++;
  29645. }
  29646. /* Must set 'length' explicitly when using duk_xdef_prop_xxx() to
  29647. * set the values.
  29648. */
  29649. duk_set_length(thr, -1, arr_idx);
  29650. /* [ ... arr ] */
  29651. DUK_DDD(DUK_DDDPRINT("parse_array: final array is %!T",
  29652. (duk_tval *) duk_get_tval(thr, -1)));
  29653. duk__dec_objarr_exit(js_ctx);
  29654. return;
  29655. syntax_error:
  29656. duk__dec_syntax_error(js_ctx);
  29657. DUK_UNREACHABLE();
  29658. }
  29659. DUK_LOCAL void duk__dec_value(duk_json_dec_ctx *js_ctx) {
  29660. duk_hthread *thr = js_ctx->thr;
  29661. duk_uint8_t x;
  29662. x = duk__dec_get_nonwhite(js_ctx);
  29663. DUK_DDD(DUK_DDDPRINT("parse_value: initial x=%ld", (long) x));
  29664. /* Note: duk__dec_req_stridx() backtracks one char */
  29665. if (x == DUK_ASC_DOUBLEQUOTE) {
  29666. duk__dec_string(js_ctx);
  29667. } else if ((x >= DUK_ASC_0 && x <= DUK_ASC_9) || (x == DUK_ASC_MINUS)) {
  29668. #if defined(DUK_USE_JX)
  29669. if (js_ctx->flag_ext_custom && x == DUK_ASC_MINUS && duk__dec_peek(js_ctx) == DUK_ASC_UC_I) {
  29670. duk__dec_req_stridx(js_ctx, DUK_STRIDX_MINUS_INFINITY); /* "-Infinity", '-' has been eaten */
  29671. duk_push_number(thr, -DUK_DOUBLE_INFINITY);
  29672. } else {
  29673. #else
  29674. { /* unconditional block */
  29675. #endif
  29676. /* We already ate 'x', so backup one byte. */
  29677. js_ctx->p--; /* safe */
  29678. duk__dec_number(js_ctx);
  29679. }
  29680. } else if (x == DUK_ASC_LC_T) {
  29681. duk__dec_req_stridx(js_ctx, DUK_STRIDX_TRUE);
  29682. duk_push_true(thr);
  29683. } else if (x == DUK_ASC_LC_F) {
  29684. duk__dec_req_stridx(js_ctx, DUK_STRIDX_FALSE);
  29685. duk_push_false(thr);
  29686. } else if (x == DUK_ASC_LC_N) {
  29687. duk__dec_req_stridx(js_ctx, DUK_STRIDX_LC_NULL);
  29688. duk_push_null(thr);
  29689. #if defined(DUK_USE_JX)
  29690. } else if (js_ctx->flag_ext_custom && x == DUK_ASC_LC_U) {
  29691. duk__dec_req_stridx(js_ctx, DUK_STRIDX_LC_UNDEFINED);
  29692. duk_push_undefined(thr);
  29693. } else if (js_ctx->flag_ext_custom && x == DUK_ASC_UC_N) {
  29694. duk__dec_req_stridx(js_ctx, DUK_STRIDX_NAN);
  29695. duk_push_nan(thr);
  29696. } else if (js_ctx->flag_ext_custom && x == DUK_ASC_UC_I) {
  29697. duk__dec_req_stridx(js_ctx, DUK_STRIDX_INFINITY);
  29698. duk_push_number(thr, DUK_DOUBLE_INFINITY);
  29699. } else if (js_ctx->flag_ext_custom && x == DUK_ASC_LPAREN) {
  29700. duk__dec_pointer(js_ctx);
  29701. } else if (js_ctx->flag_ext_custom && x == DUK_ASC_PIPE) {
  29702. duk__dec_buffer(js_ctx);
  29703. #endif
  29704. } else if (x == DUK_ASC_LCURLY) {
  29705. duk__dec_object(js_ctx);
  29706. } else if (x == DUK_ASC_LBRACKET) {
  29707. duk__dec_array(js_ctx);
  29708. } else {
  29709. /* catches EOF (NUL) */
  29710. goto syntax_error;
  29711. }
  29712. duk__dec_eat_white(js_ctx);
  29713. /* [ ... val ] */
  29714. return;
  29715. syntax_error:
  29716. duk__dec_syntax_error(js_ctx);
  29717. DUK_UNREACHABLE();
  29718. }
  29719. /* Recursive value reviver, implements the Walk() algorithm. No C recursion
  29720. * check is done here because the initial parsing step will already ensure
  29721. * there is a reasonable limit on C recursion depth and hence object depth.
  29722. */
  29723. DUK_LOCAL void duk__dec_reviver_walk(duk_json_dec_ctx *js_ctx) {
  29724. duk_hthread *thr = js_ctx->thr;
  29725. duk_hobject *h;
  29726. duk_uarridx_t i, arr_len;
  29727. DUK_DDD(DUK_DDDPRINT("walk: top=%ld, holder=%!T, name=%!T",
  29728. (long) duk_get_top(thr),
  29729. (duk_tval *) duk_get_tval(thr, -2),
  29730. (duk_tval *) duk_get_tval(thr, -1)));
  29731. duk_dup_top(thr);
  29732. duk_get_prop(thr, -3); /* -> [ ... holder name val ] */
  29733. h = duk_get_hobject(thr, -1);
  29734. if (h != NULL) {
  29735. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAY) {
  29736. arr_len = (duk_uarridx_t) duk_get_length(thr, -1);
  29737. for (i = 0; i < arr_len; i++) {
  29738. /* [ ... holder name val ] */
  29739. DUK_DDD(DUK_DDDPRINT("walk: array, top=%ld, i=%ld, arr_len=%ld, holder=%!T, name=%!T, val=%!T",
  29740. (long) duk_get_top(thr), (long) i, (long) arr_len,
  29741. (duk_tval *) duk_get_tval(thr, -3), (duk_tval *) duk_get_tval(thr, -2),
  29742. (duk_tval *) duk_get_tval(thr, -1)));
  29743. duk_dup_top(thr);
  29744. (void) duk_push_uint_to_hstring(thr, (duk_uint_t) i); /* -> [ ... holder name val val ToString(i) ] */
  29745. duk__dec_reviver_walk(js_ctx); /* -> [ ... holder name val new_elem ] */
  29746. if (duk_is_undefined(thr, -1)) {
  29747. duk_pop(thr);
  29748. duk_del_prop_index(thr, -1, i);
  29749. } else {
  29750. /* XXX: duk_xdef_prop_index_wec() would be more appropriate
  29751. * here but it currently makes some assumptions that might
  29752. * not hold (e.g. that previous property is not an accessor).
  29753. */
  29754. duk_put_prop_index(thr, -2, i);
  29755. }
  29756. }
  29757. } else {
  29758. /* [ ... holder name val ] */
  29759. duk_enum(thr, -1, DUK_ENUM_OWN_PROPERTIES_ONLY /*flags*/);
  29760. while (duk_next(thr, -1 /*enum_index*/, 0 /*get_value*/)) {
  29761. DUK_DDD(DUK_DDDPRINT("walk: object, top=%ld, holder=%!T, name=%!T, val=%!T, enum=%!iT, obj_key=%!T",
  29762. (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, -5),
  29763. (duk_tval *) duk_get_tval(thr, -4), (duk_tval *) duk_get_tval(thr, -3),
  29764. (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1)));
  29765. /* [ ... holder name val enum obj_key ] */
  29766. duk_dup_m3(thr);
  29767. duk_dup_m2(thr);
  29768. /* [ ... holder name val enum obj_key val obj_key ] */
  29769. duk__dec_reviver_walk(js_ctx);
  29770. /* [ ... holder name val enum obj_key new_elem ] */
  29771. if (duk_is_undefined(thr, -1)) {
  29772. duk_pop(thr);
  29773. duk_del_prop(thr, -3);
  29774. } else {
  29775. /* XXX: duk_xdef_prop_index_wec() would be more appropriate
  29776. * here but it currently makes some assumptions that might
  29777. * not hold (e.g. that previous property is not an accessor).
  29778. *
  29779. * Using duk_put_prop() works incorrectly with '__proto__'
  29780. * if the own property with that name has been deleted. This
  29781. * does not happen normally, but a clever reviver can trigger
  29782. * that, see complex reviver case in: test-bug-json-parse-__proto__.js.
  29783. */
  29784. duk_put_prop(thr, -4);
  29785. }
  29786. }
  29787. duk_pop(thr); /* pop enum */
  29788. }
  29789. }
  29790. /* [ ... holder name val ] */
  29791. duk_dup(thr, js_ctx->idx_reviver);
  29792. duk_insert(thr, -4); /* -> [ ... reviver holder name val ] */
  29793. duk_call_method(thr, 2); /* -> [ ... res ] */
  29794. DUK_DDD(DUK_DDDPRINT("walk: top=%ld, result=%!T",
  29795. (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, -1)));
  29796. }
  29797. /*
  29798. * Stringify implementation.
  29799. */
  29800. #define DUK__EMIT_1(js_ctx,ch) duk__emit_1((js_ctx), (duk_uint_fast8_t) (ch))
  29801. #define DUK__EMIT_2(js_ctx,ch1,ch2) duk__emit_2((js_ctx), (duk_uint_fast8_t) (ch1), (duk_uint_fast8_t) (ch2))
  29802. #define DUK__EMIT_HSTR(js_ctx,h) duk__emit_hstring((js_ctx), (h))
  29803. #if defined(DUK_USE_FASTINT) || defined(DUK_USE_JX) || defined(DUK_USE_JC)
  29804. #define DUK__EMIT_CSTR(js_ctx,p) duk__emit_cstring((js_ctx), (p))
  29805. #endif
  29806. #define DUK__EMIT_STRIDX(js_ctx,i) duk__emit_stridx((js_ctx), (i))
  29807. #define DUK__UNEMIT_1(js_ctx) duk__unemit_1((js_ctx))
  29808. DUK_LOCAL void duk__emit_1(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch) {
  29809. DUK_BW_WRITE_ENSURE_U8(js_ctx->thr, &js_ctx->bw, ch);
  29810. }
  29811. DUK_LOCAL void duk__emit_2(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch1, duk_uint_fast8_t ch2) {
  29812. DUK_BW_WRITE_ENSURE_U8_2(js_ctx->thr, &js_ctx->bw, ch1, ch2);
  29813. }
  29814. DUK_LOCAL void duk__emit_hstring(duk_json_enc_ctx *js_ctx, duk_hstring *h) {
  29815. DUK_BW_WRITE_ENSURE_HSTRING(js_ctx->thr, &js_ctx->bw, h);
  29816. }
  29817. #if defined(DUK_USE_FASTINT) || defined(DUK_USE_JX) || defined(DUK_USE_JC)
  29818. DUK_LOCAL void duk__emit_cstring(duk_json_enc_ctx *js_ctx, const char *str) {
  29819. DUK_BW_WRITE_ENSURE_CSTRING(js_ctx->thr, &js_ctx->bw, str);
  29820. }
  29821. #endif
  29822. DUK_LOCAL void duk__emit_stridx(duk_json_enc_ctx *js_ctx, duk_small_uint_t stridx) {
  29823. duk_hstring *h;
  29824. DUK_ASSERT_STRIDX_VALID(stridx);
  29825. h = DUK_HTHREAD_GET_STRING(js_ctx->thr, stridx);
  29826. DUK_ASSERT(h != NULL);
  29827. DUK_BW_WRITE_ENSURE_HSTRING(js_ctx->thr, &js_ctx->bw, h);
  29828. }
  29829. DUK_LOCAL void duk__unemit_1(duk_json_enc_ctx *js_ctx) {
  29830. DUK_ASSERT(DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw) >= 1);
  29831. DUK_BW_ADD_PTR(js_ctx->thr, &js_ctx->bw, -1);
  29832. }
  29833. #define DUK__MKESC(nybbles,esc1,esc2) \
  29834. (((duk_uint_fast32_t) (nybbles)) << 16) | \
  29835. (((duk_uint_fast32_t) (esc1)) << 8) | \
  29836. ((duk_uint_fast32_t) (esc2))
  29837. DUK_LOCAL duk_uint8_t *duk__emit_esc_auto_fast(duk_json_enc_ctx *js_ctx, duk_uint_fast32_t cp, duk_uint8_t *q) {
  29838. duk_uint_fast32_t tmp;
  29839. duk_small_uint_t dig;
  29840. DUK_UNREF(js_ctx);
  29841. /* Caller ensures space for at least DUK__JSON_MAX_ESC_LEN. */
  29842. /* Select appropriate escape format automatically, and set 'tmp' to a
  29843. * value encoding both the escape format character and the nybble count:
  29844. *
  29845. * (nybble_count << 16) | (escape_char1) | (escape_char2)
  29846. */
  29847. #if defined(DUK_USE_JX)
  29848. if (DUK_LIKELY(cp < 0x100UL)) {
  29849. if (DUK_UNLIKELY(js_ctx->flag_ext_custom != 0U)) {
  29850. tmp = DUK__MKESC(2, DUK_ASC_BACKSLASH, DUK_ASC_LC_X);
  29851. } else {
  29852. tmp = DUK__MKESC(4, DUK_ASC_BACKSLASH, DUK_ASC_LC_U);
  29853. }
  29854. } else
  29855. #endif
  29856. if (DUK_LIKELY(cp < 0x10000UL)) {
  29857. tmp = DUK__MKESC(4, DUK_ASC_BACKSLASH, DUK_ASC_LC_U);
  29858. } else {
  29859. #if defined(DUK_USE_JX)
  29860. if (DUK_LIKELY(js_ctx->flag_ext_custom != 0U)) {
  29861. tmp = DUK__MKESC(8, DUK_ASC_BACKSLASH, DUK_ASC_UC_U);
  29862. } else
  29863. #endif
  29864. {
  29865. /* In compatible mode and standard JSON mode, output
  29866. * something useful for non-BMP characters. This won't
  29867. * roundtrip but will still be more or less readable and
  29868. * more useful than an error.
  29869. */
  29870. tmp = DUK__MKESC(8, DUK_ASC_UC_U, DUK_ASC_PLUS);
  29871. }
  29872. }
  29873. *q++ = (duk_uint8_t) ((tmp >> 8) & 0xff);
  29874. *q++ = (duk_uint8_t) (tmp & 0xff);
  29875. tmp = tmp >> 16;
  29876. while (tmp > 0) {
  29877. tmp--;
  29878. dig = (duk_small_uint_t) ((cp >> (4 * tmp)) & 0x0f);
  29879. *q++ = duk_lc_digits[dig];
  29880. }
  29881. return q;
  29882. }
  29883. DUK_LOCAL void duk__enc_key_autoquote(duk_json_enc_ctx *js_ctx, duk_hstring *k) {
  29884. const duk_int8_t *p, *p_start, *p_end; /* Note: intentionally signed. */
  29885. duk_size_t k_len;
  29886. duk_codepoint_t cp;
  29887. DUK_ASSERT(k != NULL);
  29888. /* Accept ASCII strings which conform to identifier requirements
  29889. * as being emitted without key quotes. Since we only accept ASCII
  29890. * there's no need for actual decoding: 'p' is intentionally signed
  29891. * so that bytes >= 0x80 extend to negative values and are rejected
  29892. * as invalid identifier codepoints.
  29893. */
  29894. if (js_ctx->flag_avoid_key_quotes) {
  29895. k_len = DUK_HSTRING_GET_BYTELEN(k);
  29896. p_start = (const duk_int8_t *) DUK_HSTRING_GET_DATA(k);
  29897. p_end = p_start + k_len;
  29898. p = p_start;
  29899. if (p == p_end) {
  29900. /* Zero length string is not accepted without quotes */
  29901. goto quote_normally;
  29902. }
  29903. cp = (duk_codepoint_t) (*p++);
  29904. if (DUK_UNLIKELY(!duk_unicode_is_identifier_start(cp))) {
  29905. goto quote_normally;
  29906. }
  29907. while (p < p_end) {
  29908. cp = (duk_codepoint_t) (*p++);
  29909. if (DUK_UNLIKELY(!duk_unicode_is_identifier_part(cp))) {
  29910. goto quote_normally;
  29911. }
  29912. }
  29913. /* This seems faster than emitting bytes one at a time and
  29914. * then potentially rewinding.
  29915. */
  29916. DUK__EMIT_HSTR(js_ctx, k);
  29917. return;
  29918. }
  29919. quote_normally:
  29920. duk__enc_quote_string(js_ctx, k);
  29921. }
  29922. /* The Quote(value) operation: quote a string.
  29923. *
  29924. * Stack policy: [ ] -> [ ].
  29925. */
  29926. DUK_LOCAL void duk__enc_quote_string(duk_json_enc_ctx *js_ctx, duk_hstring *h_str) {
  29927. duk_hthread *thr = js_ctx->thr;
  29928. const duk_uint8_t *p, *p_start, *p_end, *p_now, *p_tmp;
  29929. duk_uint8_t *q;
  29930. duk_ucodepoint_t cp; /* typed for duk_unicode_decode_xutf8() */
  29931. DUK_DDD(DUK_DDDPRINT("duk__enc_quote_string: h_str=%!O", (duk_heaphdr *) h_str));
  29932. DUK_ASSERT(h_str != NULL);
  29933. p_start = DUK_HSTRING_GET_DATA(h_str);
  29934. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_str);
  29935. p = p_start;
  29936. DUK__EMIT_1(js_ctx, DUK_ASC_DOUBLEQUOTE);
  29937. /* Encode string in small chunks, estimating the maximum expansion so that
  29938. * there's no need to ensure space while processing the chunk.
  29939. */
  29940. while (p < p_end) {
  29941. duk_size_t left, now, space;
  29942. left = (duk_size_t) (p_end - p);
  29943. now = (left > DUK__JSON_ENCSTR_CHUNKSIZE ?
  29944. DUK__JSON_ENCSTR_CHUNKSIZE : left);
  29945. /* Maximum expansion per input byte is 6:
  29946. * - invalid UTF-8 byte causes "\uXXXX" to be emitted (6/1 = 6).
  29947. * - 2-byte UTF-8 encodes as "\uXXXX" (6/2 = 3).
  29948. * - 4-byte UTF-8 encodes as "\Uxxxxxxxx" (10/4 = 2.5).
  29949. */
  29950. space = now * 6;
  29951. q = DUK_BW_ENSURE_GETPTR(thr, &js_ctx->bw, space);
  29952. p_now = p + now;
  29953. while (p < p_now) {
  29954. #if defined(DUK_USE_JSON_QUOTESTRING_FASTPATH)
  29955. duk_uint8_t b;
  29956. b = duk__json_quotestr_lookup[*p++];
  29957. if (DUK_LIKELY(b < 0x80)) {
  29958. /* Most input bytes go through here. */
  29959. *q++ = b;
  29960. } else if (b >= 0xa0) {
  29961. *q++ = DUK_ASC_BACKSLASH;
  29962. *q++ = (duk_uint8_t) (b - 0x80);
  29963. } else if (b == 0x80) {
  29964. cp = (duk_ucodepoint_t) (*(p - 1));
  29965. q = duk__emit_esc_auto_fast(js_ctx, cp, q);
  29966. } else if (b == 0x7f && js_ctx->flag_ascii_only) {
  29967. /* 0x7F is special */
  29968. DUK_ASSERT(b == 0x81);
  29969. cp = (duk_ucodepoint_t) 0x7f;
  29970. q = duk__emit_esc_auto_fast(js_ctx, cp, q);
  29971. } else {
  29972. DUK_ASSERT(b == 0x81);
  29973. p--;
  29974. /* slow path is shared */
  29975. #else /* DUK_USE_JSON_QUOTESTRING_FASTPATH */
  29976. cp = *p;
  29977. if (DUK_LIKELY(cp <= 0x7f)) {
  29978. /* ascii fast path: avoid decoding utf-8 */
  29979. p++;
  29980. if (cp == 0x22 || cp == 0x5c) {
  29981. /* double quote or backslash */
  29982. *q++ = DUK_ASC_BACKSLASH;
  29983. *q++ = (duk_uint8_t) cp;
  29984. } else if (cp < 0x20) {
  29985. duk_uint_fast8_t esc_char;
  29986. /* This approach is a bit shorter than a straight
  29987. * if-else-ladder and also a bit faster.
  29988. */
  29989. if (cp < (sizeof(duk__json_quotestr_esc) / sizeof(duk_uint8_t)) &&
  29990. (esc_char = duk__json_quotestr_esc[cp]) != 0) {
  29991. *q++ = DUK_ASC_BACKSLASH;
  29992. *q++ = (duk_uint8_t) esc_char;
  29993. } else {
  29994. q = duk__emit_esc_auto_fast(js_ctx, cp, q);
  29995. }
  29996. } else if (cp == 0x7f && js_ctx->flag_ascii_only) {
  29997. q = duk__emit_esc_auto_fast(js_ctx, cp, q);
  29998. } else {
  29999. /* any other printable -> as is */
  30000. *q++ = (duk_uint8_t) cp;
  30001. }
  30002. } else {
  30003. /* slow path is shared */
  30004. #endif /* DUK_USE_JSON_QUOTESTRING_FASTPATH */
  30005. /* slow path decode */
  30006. /* If XUTF-8 decoding fails, treat the offending byte as a codepoint directly
  30007. * and go forward one byte. This is of course very lossy, but allows some kind
  30008. * of output to be produced even for internal strings which don't conform to
  30009. * XUTF-8. All standard Ecmascript strings are always CESU-8, so this behavior
  30010. * does not violate the Ecmascript specification. The behavior is applied to
  30011. * all modes, including Ecmascript standard JSON. Because the current XUTF-8
  30012. * decoding is not very strict, this behavior only really affects initial bytes
  30013. * and truncated codepoints.
  30014. *
  30015. * Another alternative would be to scan forwards to start of next codepoint
  30016. * (or end of input) and emit just one replacement codepoint.
  30017. */
  30018. p_tmp = p;
  30019. if (!duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp)) {
  30020. /* Decode failed. */
  30021. cp = *p_tmp;
  30022. p = p_tmp + 1;
  30023. }
  30024. #if defined(DUK_USE_NONSTD_JSON_ESC_U2028_U2029)
  30025. if (js_ctx->flag_ascii_only || cp == 0x2028 || cp == 0x2029) {
  30026. #else
  30027. if (js_ctx->flag_ascii_only) {
  30028. #endif
  30029. q = duk__emit_esc_auto_fast(js_ctx, cp, q);
  30030. } else {
  30031. /* as is */
  30032. DUK_RAW_WRITE_XUTF8(q, cp);
  30033. }
  30034. }
  30035. }
  30036. DUK_BW_SET_PTR(thr, &js_ctx->bw, q);
  30037. }
  30038. DUK__EMIT_1(js_ctx, DUK_ASC_DOUBLEQUOTE);
  30039. }
  30040. /* Encode a double (checked by caller) from stack top. Stack top may be
  30041. * replaced by serialized string but is not popped (caller does that).
  30042. */
  30043. DUK_LOCAL void duk__enc_double(duk_json_enc_ctx *js_ctx) {
  30044. duk_hthread *thr;
  30045. duk_tval *tv;
  30046. duk_double_t d;
  30047. duk_small_int_t c;
  30048. duk_small_int_t s;
  30049. duk_small_uint_t stridx;
  30050. duk_small_uint_t n2s_flags;
  30051. duk_hstring *h_str;
  30052. DUK_ASSERT(js_ctx != NULL);
  30053. thr = js_ctx->thr;
  30054. DUK_ASSERT(thr != NULL);
  30055. /* Caller must ensure 'tv' is indeed a double and not a fastint! */
  30056. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  30057. DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv));
  30058. d = DUK_TVAL_GET_DOUBLE(tv);
  30059. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  30060. s = (duk_small_int_t) DUK_SIGNBIT(d);
  30061. DUK_UNREF(s);
  30062. if (DUK_LIKELY(!(c == DUK_FP_INFINITE || c == DUK_FP_NAN))) {
  30063. DUK_ASSERT(DUK_ISFINITE(d));
  30064. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30065. /* Negative zero needs special handling in JX/JC because
  30066. * it would otherwise serialize to '0', not '-0'.
  30067. */
  30068. if (DUK_UNLIKELY(c == DUK_FP_ZERO && s != 0 &&
  30069. (js_ctx->flag_ext_custom_or_compatible))) {
  30070. duk_push_hstring_stridx(thr, DUK_STRIDX_MINUS_ZERO); /* '-0' */
  30071. } else
  30072. #endif /* DUK_USE_JX || DUK_USE_JC */
  30073. {
  30074. n2s_flags = 0;
  30075. /* [ ... number ] -> [ ... string ] */
  30076. duk_numconv_stringify(thr, 10 /*radix*/, 0 /*digits*/, n2s_flags);
  30077. }
  30078. h_str = duk_known_hstring(thr, -1);
  30079. DUK__EMIT_HSTR(js_ctx, h_str);
  30080. return;
  30081. }
  30082. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30083. if (!(js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM |
  30084. DUK_JSON_FLAG_EXT_COMPATIBLE))) {
  30085. stridx = DUK_STRIDX_LC_NULL;
  30086. } else if (c == DUK_FP_NAN) {
  30087. stridx = js_ctx->stridx_custom_nan;
  30088. } else if (s == 0) {
  30089. stridx = js_ctx->stridx_custom_posinf;
  30090. } else {
  30091. stridx = js_ctx->stridx_custom_neginf;
  30092. }
  30093. #else
  30094. stridx = DUK_STRIDX_LC_NULL;
  30095. #endif
  30096. DUK__EMIT_STRIDX(js_ctx, stridx);
  30097. }
  30098. #if defined(DUK_USE_FASTINT)
  30099. /* Encode a fastint from duk_tval ptr, no value stack effects. */
  30100. DUK_LOCAL void duk__enc_fastint_tval(duk_json_enc_ctx *js_ctx, duk_tval *tv) {
  30101. duk_int64_t v;
  30102. /* Fastint range is signed 48-bit so longest value is -2^47 = -140737488355328
  30103. * (16 chars long), longest signed 64-bit value is -2^63 = -9223372036854775808
  30104. * (20 chars long). Alloc space for 64-bit range to be safe.
  30105. */
  30106. duk_uint8_t buf[20 + 1];
  30107. /* Caller must ensure 'tv' is indeed a fastint! */
  30108. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv));
  30109. v = DUK_TVAL_GET_FASTINT(tv);
  30110. /* XXX: There are no format strings in duk_config.h yet, could add
  30111. * one for formatting duk_int64_t. For now, assumes "%lld" and that
  30112. * "long long" type exists. Could also rely on C99 directly but that
  30113. * won't work for older MSVC.
  30114. */
  30115. DUK_SPRINTF((char *) buf, "%lld", (long long) v);
  30116. DUK__EMIT_CSTR(js_ctx, (const char *) buf);
  30117. }
  30118. #endif
  30119. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30120. #if defined(DUK_USE_HEX_FASTPATH)
  30121. DUK_LOCAL duk_uint8_t *duk__enc_buffer_data_hex(const duk_uint8_t *src, duk_size_t src_len, duk_uint8_t *dst) {
  30122. duk_uint8_t *q;
  30123. duk_uint16_t *q16;
  30124. duk_small_uint_t x;
  30125. duk_size_t i, len_safe;
  30126. #if !defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE)
  30127. duk_bool_t shift_dst;
  30128. #endif
  30129. /* Unlike in duk_hex_encode() 'dst' is not necessarily aligned by 2.
  30130. * For platforms where unaligned accesses are not allowed, shift 'dst'
  30131. * ahead by 1 byte to get alignment and then DUK_MEMMOVE() the result
  30132. * in place. The faster encoding loop makes up the difference.
  30133. * There's always space for one extra byte because a terminator always
  30134. * follows the hex data and that's been accounted for by the caller.
  30135. */
  30136. #if defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE)
  30137. q16 = (duk_uint16_t *) (void *) dst;
  30138. #else
  30139. shift_dst = (duk_bool_t) (((duk_size_t) dst) & 0x01U);
  30140. if (shift_dst) {
  30141. DUK_DD(DUK_DDPRINT("unaligned accesses not possible, dst not aligned -> step to dst + 1"));
  30142. q16 = (duk_uint16_t *) (void *) (dst + 1);
  30143. } else {
  30144. DUK_DD(DUK_DDPRINT("unaligned accesses not possible, dst is aligned"));
  30145. q16 = (duk_uint16_t *) (void *) dst;
  30146. }
  30147. DUK_ASSERT((((duk_size_t) q16) & 0x01U) == 0);
  30148. #endif
  30149. len_safe = src_len & ~0x03U;
  30150. for (i = 0; i < len_safe; i += 4) {
  30151. q16[0] = duk_hex_enctab[src[i]];
  30152. q16[1] = duk_hex_enctab[src[i + 1]];
  30153. q16[2] = duk_hex_enctab[src[i + 2]];
  30154. q16[3] = duk_hex_enctab[src[i + 3]];
  30155. q16 += 4;
  30156. }
  30157. q = (duk_uint8_t *) q16;
  30158. #if !defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE)
  30159. if (shift_dst) {
  30160. q--;
  30161. DUK_MEMMOVE((void *) dst, (const void *) (dst + 1), 2 * len_safe);
  30162. DUK_ASSERT(dst + 2 * len_safe == q);
  30163. }
  30164. #endif
  30165. for (; i < src_len; i++) {
  30166. x = src[i];
  30167. *q++ = duk_lc_digits[x >> 4];
  30168. *q++ = duk_lc_digits[x & 0x0f];
  30169. }
  30170. return q;
  30171. }
  30172. #else /* DUK_USE_HEX_FASTPATH */
  30173. DUK_LOCAL duk_uint8_t *duk__enc_buffer_data_hex(const duk_uint8_t *src, duk_size_t src_len, duk_uint8_t *dst) {
  30174. const duk_uint8_t *p;
  30175. const duk_uint8_t *p_end;
  30176. duk_uint8_t *q;
  30177. duk_small_uint_t x;
  30178. p = src;
  30179. p_end = src + src_len;
  30180. q = dst;
  30181. while (p != p_end) {
  30182. x = *p++;
  30183. *q++ = duk_lc_digits[x >> 4];
  30184. *q++ = duk_lc_digits[x & 0x0f];
  30185. }
  30186. return q;
  30187. }
  30188. #endif /* DUK_USE_HEX_FASTPATH */
  30189. DUK_LOCAL void duk__enc_buffer_data(duk_json_enc_ctx *js_ctx, duk_uint8_t *buf_data, duk_size_t buf_len) {
  30190. duk_hthread *thr;
  30191. duk_uint8_t *q;
  30192. duk_size_t space;
  30193. thr = js_ctx->thr;
  30194. DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); /* caller checks */
  30195. DUK_ASSERT(js_ctx->flag_ext_custom_or_compatible);
  30196. /* Buffer values are encoded in (lowercase) hex to make the
  30197. * binary data readable. Base64 or similar would be more
  30198. * compact but less readable, and the point of JX/JC
  30199. * variants is to be as useful to a programmer as possible.
  30200. */
  30201. /* The #if defined() clutter here needs to handle the three
  30202. * cases: (1) JX+JC, (2) JX only, (3) JC only.
  30203. */
  30204. /* Note: space must cater for both JX and JC. */
  30205. space = 9 + buf_len * 2 + 2;
  30206. DUK_ASSERT(DUK_HBUFFER_MAX_BYTELEN <= 0x7ffffffeUL);
  30207. DUK_ASSERT((space - 2) / 2 >= buf_len); /* overflow not possible, buffer limits */
  30208. q = DUK_BW_ENSURE_GETPTR(thr, &js_ctx->bw, space);
  30209. #if defined(DUK_USE_JX) && defined(DUK_USE_JC)
  30210. if (js_ctx->flag_ext_custom)
  30211. #endif
  30212. #if defined(DUK_USE_JX)
  30213. {
  30214. *q++ = DUK_ASC_PIPE;
  30215. q = duk__enc_buffer_data_hex(buf_data, buf_len, q);
  30216. *q++ = DUK_ASC_PIPE;
  30217. }
  30218. #endif
  30219. #if defined(DUK_USE_JX) && defined(DUK_USE_JC)
  30220. else
  30221. #endif
  30222. #if defined(DUK_USE_JC)
  30223. {
  30224. DUK_ASSERT(js_ctx->flag_ext_compatible);
  30225. DUK_MEMCPY((void *) q, (const void *) "{\"_buf\":\"", 9); /* len: 9 */
  30226. q += 9;
  30227. q = duk__enc_buffer_data_hex(buf_data, buf_len, q);
  30228. *q++ = DUK_ASC_DOUBLEQUOTE;
  30229. *q++ = DUK_ASC_RCURLY;
  30230. }
  30231. #endif
  30232. DUK_BW_SET_PTR(thr, &js_ctx->bw, q);
  30233. }
  30234. DUK_LOCAL void duk__enc_buffer_jx_jc(duk_json_enc_ctx *js_ctx, duk_hbuffer *h) {
  30235. duk__enc_buffer_data(js_ctx,
  30236. (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(js_ctx->thr->heap, h),
  30237. (duk_size_t) DUK_HBUFFER_GET_SIZE(h));
  30238. }
  30239. #endif /* DUK_USE_JX || DUK_USE_JC */
  30240. #if defined(DUK_USE_JSON_STRINGIFY_FASTPATH)
  30241. DUK_LOCAL void duk__enc_buffer_json_fastpath(duk_json_enc_ctx *js_ctx, duk_hbuffer *h) {
  30242. duk_size_t i, n;
  30243. const duk_uint8_t *buf;
  30244. duk_uint8_t *q;
  30245. n = DUK_HBUFFER_GET_SIZE(h);
  30246. if (n == 0) {
  30247. DUK__EMIT_2(js_ctx, DUK_ASC_LCURLY, DUK_ASC_RCURLY);
  30248. return;
  30249. }
  30250. DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY);
  30251. /* Maximum encoded length with 32-bit index: 1 + 10 + 2 + 3 + 1 + 1 = 18,
  30252. * with 64-bit index: 1 + 20 + 2 + 3 + 1 + 1 = 28. 32 has some slack.
  30253. *
  30254. * Note that because the output buffer is reallocated from time to time,
  30255. * side effects (such as finalizers) affecting the buffer 'h' must be
  30256. * disabled. This is the case in the JSON.stringify() fast path.
  30257. */
  30258. buf = (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(js_ctx->thr->heap, h);
  30259. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30260. for (i = 0; i < n; i++) {
  30261. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth + 1);
  30262. q = DUK_BW_ENSURE_GETPTR(js_ctx->thr, &js_ctx->bw, 32);
  30263. q += DUK_SPRINTF((char *) q, "\"%lu\": %u,", (unsigned long) i, (unsigned int) buf[i]);
  30264. DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, q);
  30265. }
  30266. } else {
  30267. q = DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw);
  30268. for (i = 0; i < n; i++) {
  30269. q = DUK_BW_ENSURE_RAW(js_ctx->thr, &js_ctx->bw, 32, q);
  30270. q += DUK_SPRINTF((char *) q, "\"%lu\":%u,", (unsigned long) i, (unsigned int) buf[i]);
  30271. }
  30272. DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, q);
  30273. }
  30274. DUK__UNEMIT_1(js_ctx); /* eat trailing comma */
  30275. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30276. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth);
  30277. }
  30278. DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY);
  30279. }
  30280. #endif /* DUK_USE_JSON_STRINGIFY_FASTPATH */
  30281. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30282. DUK_LOCAL void duk__enc_pointer(duk_json_enc_ctx *js_ctx, void *ptr) {
  30283. char buf[64]; /* XXX: how to figure correct size? */
  30284. const char *fmt;
  30285. DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); /* caller checks */
  30286. DUK_ASSERT(js_ctx->flag_ext_custom_or_compatible);
  30287. DUK_MEMZERO(buf, sizeof(buf));
  30288. /* The #if defined() clutter here needs to handle the three
  30289. * cases: (1) JX+JC, (2) JX only, (3) JC only.
  30290. */
  30291. #if defined(DUK_USE_JX) && defined(DUK_USE_JC)
  30292. if (js_ctx->flag_ext_custom)
  30293. #endif
  30294. #if defined(DUK_USE_JX)
  30295. {
  30296. fmt = ptr ? "(%p)" : "(null)";
  30297. }
  30298. #endif
  30299. #if defined(DUK_USE_JX) && defined(DUK_USE_JC)
  30300. else
  30301. #endif
  30302. #if defined(DUK_USE_JC)
  30303. {
  30304. DUK_ASSERT(js_ctx->flag_ext_compatible);
  30305. fmt = ptr ? "{\"_ptr\":\"%p\"}" : "{\"_ptr\":\"null\"}";
  30306. }
  30307. #endif
  30308. /* When ptr == NULL, the format argument is unused. */
  30309. DUK_SNPRINTF(buf, sizeof(buf) - 1, fmt, ptr); /* must not truncate */
  30310. DUK__EMIT_CSTR(js_ctx, buf);
  30311. }
  30312. #endif /* DUK_USE_JX || DUK_USE_JC */
  30313. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  30314. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30315. DUK_LOCAL void duk__enc_bufobj(duk_json_enc_ctx *js_ctx, duk_hbufobj *h_bufobj) {
  30316. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  30317. if (h_bufobj->buf == NULL || !DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) {
  30318. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  30319. } else {
  30320. /* Handle both full and partial slice (as long as covered). */
  30321. duk__enc_buffer_data(js_ctx,
  30322. (duk_uint8_t *) DUK_HBUFOBJ_GET_SLICE_BASE(js_ctx->thr->heap, h_bufobj),
  30323. (duk_size_t) h_bufobj->length);
  30324. }
  30325. }
  30326. #endif /* DUK_USE_JX || DUK_USE_JC */
  30327. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  30328. /* Indent helper. Calling code relies on js_ctx->recursion_depth also being
  30329. * directly related to indent depth.
  30330. */
  30331. #if defined(DUK_USE_PREFER_SIZE)
  30332. DUK_LOCAL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth) {
  30333. DUK_ASSERT(js_ctx->h_gap != NULL);
  30334. DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) > 0); /* caller guarantees */
  30335. DUK__EMIT_1(js_ctx, 0x0a);
  30336. while (depth-- > 0) {
  30337. DUK__EMIT_HSTR(js_ctx, js_ctx->h_gap);
  30338. }
  30339. }
  30340. #else /* DUK_USE_PREFER_SIZE */
  30341. DUK_LOCAL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth) {
  30342. const duk_uint8_t *gap_data;
  30343. duk_size_t gap_len;
  30344. duk_size_t avail_bytes; /* bytes of indent available for copying */
  30345. duk_size_t need_bytes; /* bytes of indent still needed */
  30346. duk_uint8_t *p_start;
  30347. duk_uint8_t *p;
  30348. DUK_ASSERT(js_ctx->h_gap != NULL);
  30349. DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) > 0); /* caller guarantees */
  30350. DUK__EMIT_1(js_ctx, 0x0a);
  30351. if (DUK_UNLIKELY(depth == 0)) {
  30352. return;
  30353. }
  30354. /* To handle deeper indents efficiently, make use of copies we've
  30355. * already emitted. In effect we can emit a sequence of 1, 2, 4,
  30356. * 8, etc copies, and then finish the last run. Byte counters
  30357. * avoid multiply with gap_len on every loop.
  30358. */
  30359. gap_data = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(js_ctx->h_gap);
  30360. gap_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap);
  30361. DUK_ASSERT(gap_len > 0);
  30362. need_bytes = gap_len * depth;
  30363. p = DUK_BW_ENSURE_GETPTR(js_ctx->thr, &js_ctx->bw, need_bytes);
  30364. p_start = p;
  30365. DUK_MEMCPY((void *) p, (const void *) gap_data, (size_t) gap_len);
  30366. p += gap_len;
  30367. avail_bytes = gap_len;
  30368. DUK_ASSERT(need_bytes >= gap_len);
  30369. need_bytes -= gap_len;
  30370. while (need_bytes >= avail_bytes) {
  30371. DUK_MEMCPY((void *) p, (const void *) p_start, (size_t) avail_bytes);
  30372. p += avail_bytes;
  30373. need_bytes -= avail_bytes;
  30374. avail_bytes <<= 1;
  30375. }
  30376. DUK_ASSERT(need_bytes < avail_bytes); /* need_bytes may be zero */
  30377. DUK_MEMCPY((void *) p, (const void *) p_start, (size_t) need_bytes);
  30378. p += need_bytes;
  30379. /*avail_bytes += need_bytes*/
  30380. DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, p);
  30381. }
  30382. #endif /* DUK_USE_PREFER_SIZE */
  30383. /* Shared entry handling for object/array serialization. */
  30384. DUK_LOCAL void duk__enc_objarr_entry(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top) {
  30385. duk_hthread *thr = js_ctx->thr;
  30386. duk_hobject *h_target;
  30387. duk_uint_fast32_t i, n;
  30388. *entry_top = duk_get_top(thr);
  30389. duk_require_stack(thr, DUK_JSON_ENC_REQSTACK);
  30390. /* Loop check using a hybrid approach: a fixed-size visited[] array
  30391. * with overflow in a loop check object.
  30392. */
  30393. h_target = duk_known_hobject(thr, -1); /* object or array */
  30394. n = js_ctx->recursion_depth;
  30395. if (DUK_UNLIKELY(n > DUK_JSON_ENC_LOOPARRAY)) {
  30396. n = DUK_JSON_ENC_LOOPARRAY;
  30397. }
  30398. for (i = 0; i < n; i++) {
  30399. if (DUK_UNLIKELY(js_ctx->visiting[i] == h_target)) {
  30400. DUK_DD(DUK_DDPRINT("slow path loop detect"));
  30401. DUK_ERROR_TYPE(thr, DUK_STR_CYCLIC_INPUT);
  30402. }
  30403. }
  30404. if (js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY) {
  30405. js_ctx->visiting[js_ctx->recursion_depth] = h_target;
  30406. } else {
  30407. duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) h_target);
  30408. duk_dup_top(thr); /* -> [ ... voidp voidp ] */
  30409. if (duk_has_prop(thr, js_ctx->idx_loop)) {
  30410. DUK_ERROR_TYPE(thr, DUK_STR_CYCLIC_INPUT);
  30411. }
  30412. duk_push_true(thr); /* -> [ ... voidp true ] */
  30413. duk_put_prop(thr, js_ctx->idx_loop); /* -> [ ... ] */
  30414. }
  30415. /* C recursion check. */
  30416. DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */
  30417. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  30418. if (js_ctx->recursion_depth >= js_ctx->recursion_limit) {
  30419. DUK_ERROR_RANGE(thr, DUK_STR_JSONENC_RECLIMIT);
  30420. }
  30421. js_ctx->recursion_depth++;
  30422. DUK_DDD(DUK_DDDPRINT("shared entry finished: top=%ld, loop=%!T",
  30423. (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop)));
  30424. }
  30425. /* Shared exit handling for object/array serialization. */
  30426. DUK_LOCAL void duk__enc_objarr_exit(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top) {
  30427. duk_hthread *thr = js_ctx->thr;
  30428. duk_hobject *h_target;
  30429. /* C recursion check. */
  30430. DUK_ASSERT(js_ctx->recursion_depth > 0);
  30431. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  30432. js_ctx->recursion_depth--;
  30433. /* Loop check. */
  30434. h_target = duk_known_hobject(thr, *entry_top - 1); /* original target at entry_top - 1 */
  30435. if (js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY) {
  30436. /* Previous entry was inside visited[], nothing to do. */
  30437. } else {
  30438. duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) h_target);
  30439. duk_del_prop(thr, js_ctx->idx_loop); /* -> [ ... ] */
  30440. }
  30441. /* Restore stack top after unbalanced code paths. */
  30442. duk_set_top(thr, *entry_top);
  30443. DUK_DDD(DUK_DDDPRINT("shared entry finished: top=%ld, loop=%!T",
  30444. (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop)));
  30445. }
  30446. /* The JO(value) operation: encode object.
  30447. *
  30448. * Stack policy: [ object ] -> [ object ].
  30449. */
  30450. DUK_LOCAL void duk__enc_object(duk_json_enc_ctx *js_ctx) {
  30451. duk_hthread *thr = js_ctx->thr;
  30452. duk_hstring *h_key;
  30453. duk_idx_t entry_top;
  30454. duk_idx_t idx_obj;
  30455. duk_idx_t idx_keys;
  30456. duk_bool_t emitted;
  30457. duk_uarridx_t arr_len, i;
  30458. duk_size_t prev_size;
  30459. DUK_DDD(DUK_DDDPRINT("duk__enc_object: obj=%!T", (duk_tval *) duk_get_tval(thr, -1)));
  30460. duk__enc_objarr_entry(js_ctx, &entry_top);
  30461. idx_obj = entry_top - 1;
  30462. if (js_ctx->idx_proplist >= 0) {
  30463. idx_keys = js_ctx->idx_proplist;
  30464. } else {
  30465. /* XXX: would be nice to enumerate an object at specified index */
  30466. duk_dup(thr, idx_obj);
  30467. (void) duk_hobject_get_enumerated_keys(thr, DUK_ENUM_OWN_PROPERTIES_ONLY /*flags*/); /* [ ... target ] -> [ ... target keys ] */
  30468. idx_keys = duk_require_normalize_index(thr, -1);
  30469. /* leave stack unbalanced on purpose */
  30470. }
  30471. DUK_DDD(DUK_DDDPRINT("idx_keys=%ld, h_keys=%!T",
  30472. (long) idx_keys, (duk_tval *) duk_get_tval(thr, idx_keys)));
  30473. /* Steps 8-10 have been merged to avoid a "partial" variable. */
  30474. DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY);
  30475. /* XXX: keys is an internal object with all keys to be processed
  30476. * in its (gapless) array part. Because nobody can touch the keys
  30477. * object, we could iterate its array part directly (keeping in mind
  30478. * that it can be reallocated).
  30479. */
  30480. arr_len = (duk_uarridx_t) duk_get_length(thr, idx_keys);
  30481. emitted = 0;
  30482. for (i = 0; i < arr_len; i++) {
  30483. duk_get_prop_index(thr, idx_keys, i); /* -> [ ... key ] */
  30484. DUK_DDD(DUK_DDDPRINT("object property loop: holder=%!T, key=%!T",
  30485. (duk_tval *) duk_get_tval(thr, idx_obj),
  30486. (duk_tval *) duk_get_tval(thr, -1)));
  30487. h_key = duk_known_hstring(thr, -1);
  30488. DUK_ASSERT(h_key != NULL);
  30489. DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(h_key)); /* proplist filtering; enum options */
  30490. prev_size = DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw);
  30491. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30492. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth);
  30493. duk__enc_key_autoquote(js_ctx, h_key);
  30494. DUK__EMIT_2(js_ctx, DUK_ASC_COLON, DUK_ASC_SPACE);
  30495. } else {
  30496. duk__enc_key_autoquote(js_ctx, h_key);
  30497. DUK__EMIT_1(js_ctx, DUK_ASC_COLON);
  30498. }
  30499. /* [ ... key ] */
  30500. if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_obj) == 0)) {
  30501. /* Value would yield 'undefined', so skip key altogether.
  30502. * Side effects have already happened.
  30503. */
  30504. DUK_BW_SET_SIZE(js_ctx->thr, &js_ctx->bw, prev_size);
  30505. } else {
  30506. DUK__EMIT_1(js_ctx, DUK_ASC_COMMA);
  30507. emitted = 1;
  30508. }
  30509. /* [ ... ] */
  30510. }
  30511. if (emitted) {
  30512. DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA);
  30513. DUK__UNEMIT_1(js_ctx); /* eat trailing comma */
  30514. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30515. DUK_ASSERT(js_ctx->recursion_depth >= 1);
  30516. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U);
  30517. }
  30518. }
  30519. DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY);
  30520. duk__enc_objarr_exit(js_ctx, &entry_top);
  30521. DUK_ASSERT_TOP(thr, entry_top);
  30522. }
  30523. /* The JA(value) operation: encode array.
  30524. *
  30525. * Stack policy: [ array ] -> [ array ].
  30526. */
  30527. DUK_LOCAL void duk__enc_array(duk_json_enc_ctx *js_ctx) {
  30528. duk_hthread *thr = js_ctx->thr;
  30529. duk_idx_t entry_top;
  30530. duk_idx_t idx_arr;
  30531. duk_bool_t emitted;
  30532. duk_uarridx_t i, arr_len;
  30533. DUK_DDD(DUK_DDDPRINT("duk__enc_array: array=%!T",
  30534. (duk_tval *) duk_get_tval(thr, -1)));
  30535. duk__enc_objarr_entry(js_ctx, &entry_top);
  30536. idx_arr = entry_top - 1;
  30537. /* Steps 8-10 have been merged to avoid a "partial" variable. */
  30538. DUK__EMIT_1(js_ctx, DUK_ASC_LBRACKET);
  30539. arr_len = (duk_uarridx_t) duk_get_length(thr, idx_arr);
  30540. emitted = 0;
  30541. for (i = 0; i < arr_len; i++) {
  30542. DUK_DDD(DUK_DDDPRINT("array entry loop: array=%!T, index=%ld, arr_len=%ld",
  30543. (duk_tval *) duk_get_tval(thr, idx_arr),
  30544. (long) i, (long) arr_len));
  30545. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30546. DUK_ASSERT(js_ctx->recursion_depth >= 1);
  30547. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth);
  30548. }
  30549. (void) duk_push_uint_to_hstring(thr, (duk_uint_t) i); /* -> [ ... key ] */
  30550. /* [ ... key ] */
  30551. if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_arr) == 0)) {
  30552. /* Value would normally be omitted, replace with 'null'. */
  30553. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  30554. } else {
  30555. ;
  30556. }
  30557. /* [ ... ] */
  30558. DUK__EMIT_1(js_ctx, DUK_ASC_COMMA);
  30559. emitted = 1;
  30560. }
  30561. if (emitted) {
  30562. DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA);
  30563. DUK__UNEMIT_1(js_ctx); /* eat trailing comma */
  30564. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  30565. DUK_ASSERT(js_ctx->recursion_depth >= 1);
  30566. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U);
  30567. }
  30568. }
  30569. DUK__EMIT_1(js_ctx, DUK_ASC_RBRACKET);
  30570. duk__enc_objarr_exit(js_ctx, &entry_top);
  30571. DUK_ASSERT_TOP(thr, entry_top);
  30572. }
  30573. /* The Str(key, holder) operation.
  30574. *
  30575. * Stack policy: [ ... key ] -> [ ... ]
  30576. */
  30577. DUK_LOCAL duk_bool_t duk__enc_value(duk_json_enc_ctx *js_ctx, duk_idx_t idx_holder) {
  30578. duk_hthread *thr = js_ctx->thr;
  30579. duk_tval *tv;
  30580. duk_tval *tv_holder;
  30581. duk_tval *tv_key;
  30582. duk_small_int_t c;
  30583. DUK_DDD(DUK_DDDPRINT("duk__enc_value: idx_holder=%ld, holder=%!T, key=%!T",
  30584. (long) idx_holder, (duk_tval *) duk_get_tval(thr, idx_holder),
  30585. (duk_tval *) duk_get_tval(thr, -1)));
  30586. tv_holder = DUK_GET_TVAL_POSIDX(thr, idx_holder);
  30587. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv_holder));
  30588. tv_key = DUK_GET_TVAL_NEGIDX(thr, -1);
  30589. DUK_ASSERT(DUK_TVAL_IS_STRING(tv_key));
  30590. DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(DUK_TVAL_GET_STRING(tv_key))); /* Caller responsible. */
  30591. (void) duk_hobject_getprop(thr, tv_holder, tv_key);
  30592. /* -> [ ... key val ] */
  30593. DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1)));
  30594. /* Standard JSON checks for .toJSON() only for actual objects; for
  30595. * example, setting Number.prototype.toJSON and then serializing a
  30596. * number won't invoke the .toJSON() method. However, lightfuncs and
  30597. * plain buffers mimic objects so we check for their .toJSON() method.
  30598. */
  30599. if (duk_check_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT |
  30600. DUK_TYPE_MASK_LIGHTFUNC |
  30601. DUK_TYPE_MASK_BUFFER)) {
  30602. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_JSON);
  30603. if (duk_is_callable(thr, -1)) { /* toJSON() can also be a lightfunc */
  30604. DUK_DDD(DUK_DDDPRINT("value is object, has callable toJSON() -> call it"));
  30605. /* XXX: duk_dup_unvalidated(thr, -2) etc. */
  30606. duk_dup_m2(thr); /* -> [ ... key val toJSON val ] */
  30607. duk_dup_m4(thr); /* -> [ ... key val toJSON val key ] */
  30608. duk_call_method(thr, 1); /* -> [ ... key val val' ] */
  30609. duk_remove_m2(thr); /* -> [ ... key val' ] */
  30610. } else {
  30611. duk_pop(thr); /* -> [ ... key val ] */
  30612. }
  30613. }
  30614. /* [ ... key val ] */
  30615. DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1)));
  30616. if (js_ctx->h_replacer) {
  30617. /* XXX: Here a "slice copy" would be useful. */
  30618. DUK_DDD(DUK_DDDPRINT("replacer is set, call replacer"));
  30619. duk_push_hobject(thr, js_ctx->h_replacer); /* -> [ ... key val replacer ] */
  30620. duk_dup(thr, idx_holder); /* -> [ ... key val replacer holder ] */
  30621. duk_dup_m4(thr); /* -> [ ... key val replacer holder key ] */
  30622. duk_dup_m4(thr); /* -> [ ... key val replacer holder key val ] */
  30623. duk_call_method(thr, 2); /* -> [ ... key val val' ] */
  30624. duk_remove_m2(thr); /* -> [ ... key val' ] */
  30625. }
  30626. /* [ ... key val ] */
  30627. DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1)));
  30628. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  30629. if (DUK_TVAL_IS_OBJECT(tv)) {
  30630. duk_hobject *h;
  30631. h = DUK_TVAL_GET_OBJECT(tv);
  30632. DUK_ASSERT(h != NULL);
  30633. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  30634. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30635. if (DUK_HOBJECT_IS_BUFOBJ(h) &&
  30636. js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE)) {
  30637. /* With JX/JC a bufferobject gets serialized specially. */
  30638. duk_hbufobj *h_bufobj;
  30639. h_bufobj = (duk_hbufobj *) h;
  30640. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  30641. duk__enc_bufobj(js_ctx, h_bufobj);
  30642. goto pop2_emitted;
  30643. }
  30644. /* Otherwise bufferobjects get serialized as normal objects. */
  30645. #endif /* JX || JC */
  30646. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  30647. c = (duk_small_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h);
  30648. switch (c) {
  30649. case DUK_HOBJECT_CLASS_NUMBER: {
  30650. DUK_DDD(DUK_DDDPRINT("value is a Number object -> coerce with ToNumber()"));
  30651. duk_to_number_m1(thr);
  30652. /* The coercion potentially invokes user .valueOf() and .toString()
  30653. * but can't result in a function value because ToPrimitive() would
  30654. * reject such a result: test-dev-json-stringify-coercion-1.js.
  30655. */
  30656. DUK_ASSERT(!duk_is_callable(thr, -1));
  30657. break;
  30658. }
  30659. case DUK_HOBJECT_CLASS_STRING: {
  30660. DUK_DDD(DUK_DDDPRINT("value is a String object -> coerce with ToString()"));
  30661. duk_to_string(thr, -1);
  30662. /* Same coercion behavior as for Number. */
  30663. DUK_ASSERT(!duk_is_callable(thr, -1));
  30664. break;
  30665. }
  30666. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30667. case DUK_HOBJECT_CLASS_POINTER:
  30668. #endif
  30669. case DUK_HOBJECT_CLASS_BOOLEAN: {
  30670. DUK_DDD(DUK_DDDPRINT("value is a Boolean/Buffer/Pointer object -> get internal value"));
  30671. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  30672. duk_remove_m2(thr);
  30673. break;
  30674. }
  30675. default: {
  30676. /* Normal object which doesn't get automatically coerced to a
  30677. * primitive value. Functions are checked for specially. The
  30678. * primitive value coercions for Number, String, Pointer, and
  30679. * Boolean can't result in functions so suffices to check here.
  30680. * Symbol objects are handled like plain objects (their primitive
  30681. * value is NOT looked up like for e.g. String objects).
  30682. */
  30683. DUK_ASSERT(h != NULL);
  30684. if (DUK_HOBJECT_IS_CALLABLE(h)) {
  30685. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30686. if (js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM |
  30687. DUK_JSON_FLAG_EXT_COMPATIBLE)) {
  30688. /* We only get here when doing non-standard JSON encoding */
  30689. DUK_DDD(DUK_DDDPRINT("-> function allowed, serialize to custom format"));
  30690. DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible);
  30691. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function);
  30692. goto pop2_emitted;
  30693. } else {
  30694. DUK_DDD(DUK_DDDPRINT("-> will result in undefined (function)"));
  30695. goto pop2_undef;
  30696. }
  30697. #else /* DUK_USE_JX || DUK_USE_JC */
  30698. DUK_DDD(DUK_DDDPRINT("-> will result in undefined (function)"));
  30699. goto pop2_undef;
  30700. #endif /* DUK_USE_JX || DUK_USE_JC */
  30701. }
  30702. }
  30703. } /* end switch */
  30704. }
  30705. /* [ ... key val ] */
  30706. DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1)));
  30707. if (duk_check_type_mask(thr, -1, js_ctx->mask_for_undefined)) {
  30708. /* will result in undefined */
  30709. DUK_DDD(DUK_DDDPRINT("-> will result in undefined (type mask check)"));
  30710. goto pop2_undef;
  30711. }
  30712. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  30713. switch (DUK_TVAL_GET_TAG(tv)) {
  30714. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30715. /* When JX/JC not in use, the type mask above will avoid this case if needed. */
  30716. case DUK_TAG_UNDEFINED: {
  30717. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined);
  30718. break;
  30719. }
  30720. #endif
  30721. case DUK_TAG_NULL: {
  30722. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  30723. break;
  30724. }
  30725. case DUK_TAG_BOOLEAN: {
  30726. DUK__EMIT_STRIDX(js_ctx, DUK_TVAL_GET_BOOLEAN(tv) ?
  30727. DUK_STRIDX_TRUE : DUK_STRIDX_FALSE);
  30728. break;
  30729. }
  30730. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30731. /* When JX/JC not in use, the type mask above will avoid this case if needed. */
  30732. case DUK_TAG_POINTER: {
  30733. duk__enc_pointer(js_ctx, DUK_TVAL_GET_POINTER(tv));
  30734. break;
  30735. }
  30736. #endif /* DUK_USE_JX || DUK_USE_JC */
  30737. case DUK_TAG_STRING: {
  30738. duk_hstring *h = DUK_TVAL_GET_STRING(tv);
  30739. DUK_ASSERT(h != NULL);
  30740. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  30741. goto pop2_undef;
  30742. }
  30743. duk__enc_quote_string(js_ctx, h);
  30744. break;
  30745. }
  30746. case DUK_TAG_OBJECT: {
  30747. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  30748. DUK_ASSERT(h != NULL);
  30749. /* Function values are handled completely above (including
  30750. * coercion results):
  30751. */
  30752. DUK_ASSERT(!DUK_HOBJECT_IS_CALLABLE(h));
  30753. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAY) {
  30754. duk__enc_array(js_ctx);
  30755. } else {
  30756. duk__enc_object(js_ctx);
  30757. }
  30758. break;
  30759. }
  30760. /* Because plain buffers mimics Uint8Array, they have enumerable
  30761. * index properties [0,byteLength[. Because JSON only serializes
  30762. * enumerable own properties, no properties can be serialized for
  30763. * plain buffers (all virtual properties are non-enumerable). However,
  30764. * there may be a .toJSON() method which was already handled above.
  30765. */
  30766. case DUK_TAG_BUFFER: {
  30767. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30768. if (js_ctx->flag_ext_custom_or_compatible) {
  30769. duk__enc_buffer_jx_jc(js_ctx, DUK_TVAL_GET_BUFFER(tv));
  30770. break;
  30771. }
  30772. #endif
  30773. /* Could implement a fastpath, but the fast path would need
  30774. * to handle realloc side effects correctly.
  30775. */
  30776. duk_to_object(thr, -1);
  30777. duk__enc_object(js_ctx);
  30778. break;
  30779. }
  30780. case DUK_TAG_LIGHTFUNC: {
  30781. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30782. /* We only get here when doing non-standard JSON encoding */
  30783. DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible);
  30784. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function);
  30785. #else
  30786. /* Standard JSON omits functions */
  30787. DUK_UNREACHABLE();
  30788. #endif
  30789. break;
  30790. }
  30791. #if defined(DUK_USE_FASTINT)
  30792. case DUK_TAG_FASTINT:
  30793. /* Number serialization has a significant impact relative to
  30794. * other fast path code, so careful fast path for fastints.
  30795. */
  30796. duk__enc_fastint_tval(js_ctx, tv);
  30797. break;
  30798. #endif
  30799. default: {
  30800. /* number */
  30801. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  30802. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  30803. /* XXX: A fast path for usual integers would be useful when
  30804. * fastint support is not enabled.
  30805. */
  30806. duk__enc_double(js_ctx);
  30807. break;
  30808. }
  30809. }
  30810. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30811. pop2_emitted:
  30812. #endif
  30813. duk_pop_2(thr); /* [ ... key val ] -> [ ... ] */
  30814. return 1; /* emitted */
  30815. pop2_undef:
  30816. duk_pop_2(thr); /* [ ... key val ] -> [ ... ] */
  30817. return 0; /* not emitted */
  30818. }
  30819. /* E5 Section 15.12.3, main algorithm, step 4.b.ii steps 1-4. */
  30820. DUK_LOCAL duk_bool_t duk__enc_allow_into_proplist(duk_tval *tv) {
  30821. duk_small_int_t c;
  30822. /* XXX: some kind of external internal type checker?
  30823. * - type mask; symbol flag; class mask
  30824. */
  30825. DUK_ASSERT(tv != NULL);
  30826. if (DUK_TVAL_IS_STRING(tv)) {
  30827. duk_hstring *h;
  30828. h = DUK_TVAL_GET_STRING(tv);
  30829. DUK_ASSERT(h != NULL);
  30830. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  30831. return 0;
  30832. }
  30833. return 1;
  30834. } else if (DUK_TVAL_IS_NUMBER(tv)) {
  30835. return 1;
  30836. } else if (DUK_TVAL_IS_OBJECT(tv)) {
  30837. duk_hobject *h;
  30838. h = DUK_TVAL_GET_OBJECT(tv);
  30839. DUK_ASSERT(h != NULL);
  30840. c = (duk_small_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h);
  30841. if (c == DUK_HOBJECT_CLASS_STRING || c == DUK_HOBJECT_CLASS_NUMBER) {
  30842. return 1;
  30843. }
  30844. }
  30845. return 0;
  30846. }
  30847. /*
  30848. * JSON.stringify() fast path
  30849. *
  30850. * Otherwise supports full JSON, JX, and JC features, but bails out on any
  30851. * possible side effect which might change the value being serialized. The
  30852. * fast path can take advantage of the fact that the value being serialized
  30853. * is unchanged so that we can walk directly through property tables etc.
  30854. */
  30855. #if defined(DUK_USE_JSON_STRINGIFY_FASTPATH)
  30856. DUK_LOCAL duk_bool_t duk__json_stringify_fast_value(duk_json_enc_ctx *js_ctx, duk_tval *tv) {
  30857. duk_uint_fast32_t i, n;
  30858. DUK_DDD(DUK_DDDPRINT("stringify fast: %!T", tv));
  30859. DUK_ASSERT(js_ctx != NULL);
  30860. DUK_ASSERT(js_ctx->thr != NULL);
  30861. #if 0 /* disabled for now */
  30862. restart_match:
  30863. #endif
  30864. DUK_ASSERT(tv != NULL);
  30865. switch (DUK_TVAL_GET_TAG(tv)) {
  30866. case DUK_TAG_UNDEFINED: {
  30867. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30868. if (js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible) {
  30869. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined);
  30870. break;
  30871. } else {
  30872. goto emit_undefined;
  30873. }
  30874. #else
  30875. goto emit_undefined;
  30876. #endif
  30877. }
  30878. case DUK_TAG_NULL: {
  30879. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  30880. break;
  30881. }
  30882. case DUK_TAG_BOOLEAN: {
  30883. DUK__EMIT_STRIDX(js_ctx, DUK_TVAL_GET_BOOLEAN(tv) ?
  30884. DUK_STRIDX_TRUE : DUK_STRIDX_FALSE);
  30885. break;
  30886. }
  30887. case DUK_TAG_STRING: {
  30888. duk_hstring *h;
  30889. h = DUK_TVAL_GET_STRING(tv);
  30890. DUK_ASSERT(h != NULL);
  30891. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  30892. goto emit_undefined;
  30893. }
  30894. duk__enc_quote_string(js_ctx, h);
  30895. break;
  30896. }
  30897. case DUK_TAG_OBJECT: {
  30898. duk_hobject *obj;
  30899. duk_tval *tv_val;
  30900. duk_bool_t emitted = 0;
  30901. duk_uint32_t c_bit, c_all, c_array, c_unbox, c_undef,
  30902. c_func, c_bufobj, c_object, c_abort;
  30903. /* For objects JSON.stringify() only looks for own, enumerable
  30904. * properties which is nice for the fast path here.
  30905. *
  30906. * For arrays JSON.stringify() uses [[Get]] so it will actually
  30907. * inherit properties during serialization! This fast path
  30908. * supports gappy arrays as long as there's no actual inherited
  30909. * property (which might be a getter etc).
  30910. *
  30911. * Since recursion only happens for objects, we can have both
  30912. * recursion and loop checks here. We use a simple, depth-limited
  30913. * loop check in the fast path because the object-based tracking
  30914. * is very slow (when tested, it accounted for 50% of fast path
  30915. * execution time for input data with a lot of small objects!).
  30916. */
  30917. /* XXX: for real world code, could just ignore array inheritance
  30918. * and only look at array own properties.
  30919. */
  30920. /* We rely on a few object flag / class number relationships here,
  30921. * assert for them.
  30922. */
  30923. obj = DUK_TVAL_GET_OBJECT(tv);
  30924. DUK_ASSERT(obj != NULL);
  30925. DUK_ASSERT_HOBJECT_VALID(obj);
  30926. /* Once recursion depth is increased, exit path must decrease
  30927. * it (though it's OK to abort the fast path).
  30928. */
  30929. DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */
  30930. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  30931. if (js_ctx->recursion_depth >= js_ctx->recursion_limit) {
  30932. DUK_DD(DUK_DDPRINT("fast path recursion limit"));
  30933. DUK_ERROR_RANGE(js_ctx->thr, DUK_STR_JSONDEC_RECLIMIT);
  30934. }
  30935. for (i = 0, n = (duk_uint_fast32_t) js_ctx->recursion_depth; i < n; i++) {
  30936. if (DUK_UNLIKELY(js_ctx->visiting[i] == obj)) {
  30937. DUK_DD(DUK_DDPRINT("fast path loop detect"));
  30938. DUK_ERROR_TYPE(js_ctx->thr, DUK_STR_CYCLIC_INPUT);
  30939. }
  30940. }
  30941. /* Guaranteed by recursion_limit setup so we don't have to
  30942. * check twice.
  30943. */
  30944. DUK_ASSERT(js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY);
  30945. js_ctx->visiting[js_ctx->recursion_depth] = obj;
  30946. js_ctx->recursion_depth++;
  30947. /* If object has a .toJSON() property, we can't be certain
  30948. * that it wouldn't mutate any value arbitrarily, so bail
  30949. * out of the fast path.
  30950. *
  30951. * If an object is a Proxy we also can't avoid side effects
  30952. * so abandon.
  30953. */
  30954. /* XXX: non-callable .toJSON() doesn't need to cause an abort
  30955. * but does at the moment, probably not worth fixing.
  30956. */
  30957. if (duk_hobject_hasprop_raw(js_ctx->thr, obj, DUK_HTHREAD_STRING_TO_JSON(js_ctx->thr)) ||
  30958. DUK_HOBJECT_IS_PROXY(obj)) {
  30959. DUK_DD(DUK_DDPRINT("object has a .toJSON property or object is a Proxy, abort fast path"));
  30960. goto abort_fastpath;
  30961. }
  30962. /* We could use a switch-case for the class number but it turns out
  30963. * a small if-else ladder on class masks is better. The if-ladder
  30964. * should be in order of relevancy.
  30965. */
  30966. /* XXX: move masks to js_ctx? they don't change during one
  30967. * fast path invocation.
  30968. */
  30969. DUK_ASSERT(DUK_HOBJECT_CLASS_MAX <= 31);
  30970. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  30971. if (js_ctx->flag_ext_custom_or_compatible) {
  30972. c_all = DUK_HOBJECT_CMASK_ALL;
  30973. c_array = DUK_HOBJECT_CMASK_ARRAY;
  30974. c_unbox = DUK_HOBJECT_CMASK_NUMBER |
  30975. DUK_HOBJECT_CMASK_STRING |
  30976. DUK_HOBJECT_CMASK_BOOLEAN |
  30977. DUK_HOBJECT_CMASK_POINTER; /* Symbols are not unboxed. */
  30978. c_func = DUK_HOBJECT_CMASK_FUNCTION;
  30979. c_bufobj = DUK_HOBJECT_CMASK_ALL_BUFOBJS;
  30980. c_undef = 0;
  30981. c_abort = 0;
  30982. c_object = c_all & ~(c_array | c_unbox | c_func | c_bufobj | c_undef | c_abort);
  30983. }
  30984. else
  30985. #endif
  30986. {
  30987. c_all = DUK_HOBJECT_CMASK_ALL;
  30988. c_array = DUK_HOBJECT_CMASK_ARRAY;
  30989. c_unbox = DUK_HOBJECT_CMASK_NUMBER |
  30990. DUK_HOBJECT_CMASK_STRING |
  30991. DUK_HOBJECT_CMASK_BOOLEAN; /* Symbols are not unboxed. */
  30992. c_func = 0;
  30993. c_bufobj = 0;
  30994. c_undef = DUK_HOBJECT_CMASK_FUNCTION |
  30995. DUK_HOBJECT_CMASK_POINTER;
  30996. /* As the fast path doesn't currently properly support
  30997. * duk_hbufobj virtual properties, abort fast path if
  30998. * we encounter them in plain JSON mode.
  30999. */
  31000. c_abort = DUK_HOBJECT_CMASK_ALL_BUFOBJS;
  31001. c_object = c_all & ~(c_array | c_unbox | c_func | c_bufobj | c_undef | c_abort);
  31002. }
  31003. c_bit = (duk_uint32_t) DUK_HOBJECT_GET_CLASS_MASK(obj);
  31004. if (c_bit & c_object) {
  31005. /* All other object types. */
  31006. DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY);
  31007. /* A non-Array object should not have an array part in practice.
  31008. * But since it is supported internally (and perhaps used at some
  31009. * point), check and abandon if that's the case.
  31010. */
  31011. if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  31012. DUK_DD(DUK_DDPRINT("non-Array object has array part, abort fast path"));
  31013. goto abort_fastpath;
  31014. }
  31015. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(obj); i++) {
  31016. duk_hstring *k;
  31017. duk_size_t prev_size;
  31018. k = DUK_HOBJECT_E_GET_KEY(js_ctx->thr->heap, obj, i);
  31019. if (!k) {
  31020. continue;
  31021. }
  31022. if (DUK_HSTRING_HAS_ARRIDX(k)) {
  31023. /* If an object has array index keys we would need
  31024. * to sort them into the ES2015 enumeration order to
  31025. * be consistent with the slow path. Abort the fast
  31026. * path and handle in the slow path for now.
  31027. */
  31028. DUK_DD(DUK_DDPRINT("property key is an array index, abort fast path"));
  31029. goto abort_fastpath;
  31030. }
  31031. if (!DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(js_ctx->thr->heap, obj, i)) {
  31032. continue;
  31033. }
  31034. if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(js_ctx->thr->heap, obj, i)) {
  31035. /* Getter might have arbitrary side effects,
  31036. * so bail out.
  31037. */
  31038. DUK_DD(DUK_DDPRINT("property is an accessor, abort fast path"));
  31039. goto abort_fastpath;
  31040. }
  31041. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(k))) {
  31042. continue;
  31043. }
  31044. tv_val = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(js_ctx->thr->heap, obj, i);
  31045. prev_size = DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw);
  31046. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  31047. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth);
  31048. duk__enc_key_autoquote(js_ctx, k);
  31049. DUK__EMIT_2(js_ctx, DUK_ASC_COLON, DUK_ASC_SPACE);
  31050. } else {
  31051. duk__enc_key_autoquote(js_ctx, k);
  31052. DUK__EMIT_1(js_ctx, DUK_ASC_COLON);
  31053. }
  31054. if (duk__json_stringify_fast_value(js_ctx, tv_val) == 0) {
  31055. DUK_DD(DUK_DDPRINT("prop value not supported, rewind key and colon"));
  31056. DUK_BW_SET_SIZE(js_ctx->thr, &js_ctx->bw, prev_size);
  31057. } else {
  31058. DUK__EMIT_1(js_ctx, DUK_ASC_COMMA);
  31059. emitted = 1;
  31060. }
  31061. }
  31062. /* If any non-Array value had enumerable virtual own
  31063. * properties, they should be serialized here (actually,
  31064. * before the explicit properties). Standard types don't.
  31065. */
  31066. if (emitted) {
  31067. DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA);
  31068. DUK__UNEMIT_1(js_ctx); /* eat trailing comma */
  31069. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  31070. DUK_ASSERT(js_ctx->recursion_depth >= 1);
  31071. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U);
  31072. }
  31073. }
  31074. DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY);
  31075. } else if (c_bit & c_array) {
  31076. duk_uint_fast32_t arr_len;
  31077. duk_uint_fast32_t asize;
  31078. DUK__EMIT_1(js_ctx, DUK_ASC_LBRACKET);
  31079. /* Assume arrays are dense in the fast path. */
  31080. if (!DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  31081. DUK_DD(DUK_DDPRINT("Array object is sparse, abort fast path"));
  31082. goto abort_fastpath;
  31083. }
  31084. arr_len = (duk_uint_fast32_t) ((duk_harray *) obj)->length;
  31085. asize = (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(obj);
  31086. /* Array part may be larger than 'length'; if so, iterate
  31087. * only up to array 'length'. Array part may also be smaller
  31088. * than 'length' in some cases.
  31089. */
  31090. for (i = 0; i < arr_len; i++) {
  31091. duk_tval *tv_arrval;
  31092. duk_hstring *h_tmp;
  31093. duk_bool_t has_inherited;
  31094. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  31095. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth);
  31096. }
  31097. if (DUK_LIKELY(i < asize)) {
  31098. tv_arrval = DUK_HOBJECT_A_GET_VALUE_PTR(js_ctx->thr->heap, obj, i);
  31099. if (DUK_LIKELY(!DUK_TVAL_IS_UNUSED(tv_arrval))) {
  31100. /* Expected case: element is present. */
  31101. if (duk__json_stringify_fast_value(js_ctx, tv_arrval) == 0) {
  31102. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  31103. }
  31104. goto elem_done;
  31105. }
  31106. }
  31107. /* Gap in array; check for inherited property,
  31108. * bail out if one exists. This should be enough
  31109. * to support gappy arrays for all practical code.
  31110. */
  31111. h_tmp = duk_push_uint_to_hstring(js_ctx->thr, (duk_uint_t) i);
  31112. has_inherited = duk_hobject_hasprop_raw(js_ctx->thr, obj, h_tmp);
  31113. duk_pop(js_ctx->thr);
  31114. if (has_inherited) {
  31115. DUK_D(DUK_DPRINT("gap in array, conflicting inherited property, abort fast path"));
  31116. goto abort_fastpath;
  31117. }
  31118. /* Ordinary gap, undefined encodes to 'null' in
  31119. * standard JSON, but JX/JC use their form for
  31120. * undefined to better preserve the typing.
  31121. */
  31122. DUK_D(DUK_DPRINT("gap in array, no conflicting inherited property, remain on fast path"));
  31123. #if defined(DUK_USE_JX)
  31124. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined);
  31125. #else
  31126. DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL);
  31127. #endif
  31128. /* fall through */
  31129. elem_done:
  31130. DUK__EMIT_1(js_ctx, DUK_ASC_COMMA);
  31131. emitted = 1;
  31132. }
  31133. if (emitted) {
  31134. DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA);
  31135. DUK__UNEMIT_1(js_ctx); /* eat trailing comma */
  31136. if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) {
  31137. DUK_ASSERT(js_ctx->recursion_depth >= 1);
  31138. duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U);
  31139. }
  31140. }
  31141. DUK__EMIT_1(js_ctx, DUK_ASC_RBRACKET);
  31142. } else if (c_bit & c_unbox) {
  31143. /* Certain boxed types are required to go through
  31144. * automatic unboxing. Rely on internal value being
  31145. * sane (to avoid infinite recursion).
  31146. */
  31147. DUK_ASSERT((c_bit & DUK_HOBJECT_CMASK_SYMBOL) == 0); /* Symbols are not unboxed. */
  31148. #if 1
  31149. /* The code below is incorrect if .toString() or .valueOf() have
  31150. * have been overridden. The correct approach would be to look up
  31151. * the method(s) and if they resolve to the built-in function we
  31152. * can safely bypass it and look up the internal value directly.
  31153. * Unimplemented for now, abort fast path for boxed values.
  31154. */
  31155. goto abort_fastpath;
  31156. #else /* disabled */
  31157. /* Disabled until fixed, see above. */
  31158. duk_tval *tv_internal;
  31159. DUK_DD(DUK_DDPRINT("auto unboxing in fast path"));
  31160. tv_internal = duk_hobject_get_internal_value_tval_ptr(js_ctx->thr->heap, obj);
  31161. DUK_ASSERT(tv_internal != NULL);
  31162. DUK_ASSERT(DUK_TVAL_IS_STRING(tv_internal) ||
  31163. DUK_TVAL_IS_NUMBER(tv_internal) ||
  31164. DUK_TVAL_IS_BOOLEAN(tv_internal) ||
  31165. DUK_TVAL_IS_POINTER(tv_internal));
  31166. tv = tv_internal;
  31167. DUK_ASSERT(js_ctx->recursion_depth > 0);
  31168. js_ctx->recursion_depth--; /* required to keep recursion depth correct */
  31169. goto restart_match;
  31170. #endif /* disabled */
  31171. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31172. } else if (c_bit & c_func) {
  31173. DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function);
  31174. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  31175. } else if (c_bit & c_bufobj) {
  31176. duk__enc_bufobj(js_ctx, (duk_hbufobj *) obj);
  31177. #endif
  31178. #endif
  31179. } else if (c_bit & c_abort) {
  31180. DUK_DD(DUK_DDPRINT("abort fast path for unsupported type"));
  31181. goto abort_fastpath;
  31182. } else {
  31183. DUK_ASSERT((c_bit & c_undef) != 0);
  31184. /* Must decrease recursion depth before returning. */
  31185. DUK_ASSERT(js_ctx->recursion_depth > 0);
  31186. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  31187. js_ctx->recursion_depth--;
  31188. goto emit_undefined;
  31189. }
  31190. DUK_ASSERT(js_ctx->recursion_depth > 0);
  31191. DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit);
  31192. js_ctx->recursion_depth--;
  31193. break;
  31194. }
  31195. case DUK_TAG_BUFFER: {
  31196. /* Plain buffers are treated like Uint8Arrays: they have
  31197. * enumerable indices. Other virtual properties are not
  31198. * enumerable, and inherited properties are not serialized.
  31199. * However, there can be a replacer (not relevant here) or
  31200. * a .toJSON() method (which we need to check for explicitly).
  31201. */
  31202. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  31203. if (duk_hobject_hasprop_raw(js_ctx->thr,
  31204. js_ctx->thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE],
  31205. DUK_HTHREAD_STRING_TO_JSON(js_ctx->thr))) {
  31206. DUK_DD(DUK_DDPRINT("value is a plain buffer and there's an inherited .toJSON, abort fast path"));
  31207. goto abort_fastpath;
  31208. }
  31209. #endif
  31210. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31211. if (js_ctx->flag_ext_custom_or_compatible) {
  31212. duk__enc_buffer_jx_jc(js_ctx, DUK_TVAL_GET_BUFFER(tv));
  31213. break;
  31214. }
  31215. #endif
  31216. /* Plain buffers mimic Uint8Arrays, and have enumerable index
  31217. * properties.
  31218. */
  31219. duk__enc_buffer_json_fastpath(js_ctx, DUK_TVAL_GET_BUFFER(tv));
  31220. break;
  31221. }
  31222. case DUK_TAG_POINTER: {
  31223. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31224. if (js_ctx->flag_ext_custom_or_compatible) {
  31225. duk__enc_pointer(js_ctx, DUK_TVAL_GET_POINTER(tv));
  31226. break;
  31227. } else {
  31228. goto emit_undefined;
  31229. }
  31230. #else
  31231. goto emit_undefined;
  31232. #endif
  31233. }
  31234. case DUK_TAG_LIGHTFUNC: {
  31235. /* A lightfunc might also inherit a .toJSON() so just bail out. */
  31236. /* XXX: Could just lookup .toJSON() and continue in fast path,
  31237. * as it would almost never be defined.
  31238. */
  31239. DUK_DD(DUK_DDPRINT("value is a lightfunc, abort fast path"));
  31240. goto abort_fastpath;
  31241. }
  31242. #if defined(DUK_USE_FASTINT)
  31243. case DUK_TAG_FASTINT: {
  31244. /* Number serialization has a significant impact relative to
  31245. * other fast path code, so careful fast path for fastints.
  31246. */
  31247. duk__enc_fastint_tval(js_ctx, tv);
  31248. break;
  31249. }
  31250. #endif
  31251. default: {
  31252. /* XXX: A fast path for usual integers would be useful when
  31253. * fastint support is not enabled.
  31254. */
  31255. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  31256. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  31257. /* XXX: Stack discipline is annoying, could be changed in numconv. */
  31258. duk_push_tval(js_ctx->thr, tv);
  31259. duk__enc_double(js_ctx);
  31260. duk_pop(js_ctx->thr);
  31261. #if 0
  31262. /* Could also rely on native sprintf(), but it will handle
  31263. * values like NaN, Infinity, -0, exponent notation etc in
  31264. * a JSON-incompatible way.
  31265. */
  31266. duk_double_t d;
  31267. char buf[64];
  31268. DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv));
  31269. d = DUK_TVAL_GET_DOUBLE(tv);
  31270. DUK_SPRINTF(buf, "%lg", d);
  31271. DUK__EMIT_CSTR(js_ctx, buf);
  31272. #endif
  31273. }
  31274. }
  31275. return 1; /* not undefined */
  31276. emit_undefined:
  31277. return 0; /* value was undefined/unsupported */
  31278. abort_fastpath:
  31279. /* Error message doesn't matter: the error is ignored anyway. */
  31280. DUK_DD(DUK_DDPRINT("aborting fast path"));
  31281. DUK_ERROR_INTERNAL(js_ctx->thr);
  31282. return 0; /* unreachable */
  31283. }
  31284. DUK_LOCAL duk_ret_t duk__json_stringify_fast(duk_hthread *thr, void *udata) {
  31285. duk_json_enc_ctx *js_ctx;
  31286. duk_tval *tv;
  31287. DUK_ASSERT(thr != NULL);
  31288. DUK_ASSERT(udata != NULL);
  31289. js_ctx = (duk_json_enc_ctx *) udata;
  31290. DUK_ASSERT(js_ctx != NULL);
  31291. tv = DUK_GET_TVAL_NEGIDX(thr, -1);
  31292. if (duk__json_stringify_fast_value(js_ctx, tv) == 0) {
  31293. DUK_DD(DUK_DDPRINT("top level value not supported, fail fast path"));
  31294. DUK_DCERROR_TYPE_INVALID_ARGS(thr); /* Error message is ignored, so doesn't matter. */
  31295. }
  31296. return 0;
  31297. }
  31298. #endif /* DUK_USE_JSON_STRINGIFY_FASTPATH */
  31299. /*
  31300. * Top level wrappers
  31301. */
  31302. DUK_INTERNAL
  31303. void duk_bi_json_parse_helper(duk_hthread *thr,
  31304. duk_idx_t idx_value,
  31305. duk_idx_t idx_reviver,
  31306. duk_small_uint_t flags) {
  31307. duk_json_dec_ctx js_ctx_alloc;
  31308. duk_json_dec_ctx *js_ctx = &js_ctx_alloc;
  31309. duk_hstring *h_text;
  31310. #if defined(DUK_USE_ASSERTIONS)
  31311. duk_idx_t entry_top = duk_get_top(thr);
  31312. #endif
  31313. /* negative top-relative indices not allowed now */
  31314. DUK_ASSERT(idx_value == DUK_INVALID_INDEX || idx_value >= 0);
  31315. DUK_ASSERT(idx_reviver == DUK_INVALID_INDEX || idx_reviver >= 0);
  31316. DUK_DDD(DUK_DDDPRINT("JSON parse start: text=%!T, reviver=%!T, flags=0x%08lx, stack_top=%ld",
  31317. (duk_tval *) duk_get_tval(thr, idx_value),
  31318. (duk_tval *) duk_get_tval(thr, idx_reviver),
  31319. (unsigned long) flags,
  31320. (long) duk_get_top(thr)));
  31321. DUK_MEMZERO(&js_ctx_alloc, sizeof(js_ctx_alloc));
  31322. js_ctx->thr = thr;
  31323. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  31324. /* nothing now */
  31325. #endif
  31326. js_ctx->recursion_limit = DUK_USE_JSON_DEC_RECLIMIT;
  31327. DUK_ASSERT(js_ctx->recursion_depth == 0);
  31328. /* Flag handling currently assumes that flags are consistent. This is OK
  31329. * because the call sites are now strictly controlled.
  31330. */
  31331. js_ctx->flags = flags;
  31332. #if defined(DUK_USE_JX)
  31333. js_ctx->flag_ext_custom = flags & DUK_JSON_FLAG_EXT_CUSTOM;
  31334. #endif
  31335. #if defined(DUK_USE_JC)
  31336. js_ctx->flag_ext_compatible = flags & DUK_JSON_FLAG_EXT_COMPATIBLE;
  31337. #endif
  31338. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31339. js_ctx->flag_ext_custom_or_compatible = flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE);
  31340. #endif
  31341. h_text = duk_to_hstring(thr, idx_value); /* coerce in-place; rejects Symbols */
  31342. DUK_ASSERT(h_text != NULL);
  31343. /* JSON parsing code is allowed to read [p_start,p_end]: p_end is
  31344. * valid and points to the string NUL terminator (which is always
  31345. * guaranteed for duk_hstrings.
  31346. */
  31347. js_ctx->p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_text);
  31348. js_ctx->p = js_ctx->p_start;
  31349. js_ctx->p_end = ((const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_text)) +
  31350. DUK_HSTRING_GET_BYTELEN(h_text);
  31351. DUK_ASSERT(*(js_ctx->p_end) == 0x00);
  31352. duk__dec_value(js_ctx); /* -> [ ... value ] */
  31353. /* Trailing whitespace has been eaten by duk__dec_value(), so if
  31354. * we're not at end of input here, it's a SyntaxError.
  31355. */
  31356. if (js_ctx->p != js_ctx->p_end) {
  31357. duk__dec_syntax_error(js_ctx);
  31358. }
  31359. if (duk_is_callable(thr, idx_reviver)) {
  31360. DUK_DDD(DUK_DDDPRINT("applying reviver: %!T",
  31361. (duk_tval *) duk_get_tval(thr, idx_reviver)));
  31362. js_ctx->idx_reviver = idx_reviver;
  31363. duk_push_object(thr);
  31364. duk_dup_m2(thr); /* -> [ ... val root val ] */
  31365. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_EMPTY_STRING); /* default attrs ok */
  31366. duk_push_hstring_stridx(thr, DUK_STRIDX_EMPTY_STRING); /* -> [ ... val root "" ] */
  31367. DUK_DDD(DUK_DDDPRINT("start reviver walk, root=%!T, name=%!T",
  31368. (duk_tval *) duk_get_tval(thr, -2),
  31369. (duk_tval *) duk_get_tval(thr, -1)));
  31370. duk__dec_reviver_walk(js_ctx); /* [ ... val root "" ] -> [ ... val val' ] */
  31371. duk_remove_m2(thr); /* -> [ ... val' ] */
  31372. } else {
  31373. DUK_DDD(DUK_DDDPRINT("reviver does not exist or is not callable: %!T",
  31374. (duk_tval *) duk_get_tval(thr, idx_reviver)));
  31375. }
  31376. /* Final result is at stack top. */
  31377. DUK_DDD(DUK_DDDPRINT("JSON parse end: text=%!T, reviver=%!T, flags=0x%08lx, result=%!T, stack_top=%ld",
  31378. (duk_tval *) duk_get_tval(thr, idx_value),
  31379. (duk_tval *) duk_get_tval(thr, idx_reviver),
  31380. (unsigned long) flags,
  31381. (duk_tval *) duk_get_tval(thr, -1),
  31382. (long) duk_get_top(thr)));
  31383. DUK_ASSERT(duk_get_top(thr) == entry_top + 1);
  31384. }
  31385. DUK_INTERNAL
  31386. void duk_bi_json_stringify_helper(duk_hthread *thr,
  31387. duk_idx_t idx_value,
  31388. duk_idx_t idx_replacer,
  31389. duk_idx_t idx_space,
  31390. duk_small_uint_t flags) {
  31391. duk_json_enc_ctx js_ctx_alloc;
  31392. duk_json_enc_ctx *js_ctx = &js_ctx_alloc;
  31393. duk_hobject *h;
  31394. duk_idx_t idx_holder;
  31395. duk_idx_t entry_top;
  31396. /* negative top-relative indices not allowed now */
  31397. DUK_ASSERT(idx_value == DUK_INVALID_INDEX || idx_value >= 0);
  31398. DUK_ASSERT(idx_replacer == DUK_INVALID_INDEX || idx_replacer >= 0);
  31399. DUK_ASSERT(idx_space == DUK_INVALID_INDEX || idx_space >= 0);
  31400. DUK_DDD(DUK_DDDPRINT("JSON stringify start: value=%!T, replacer=%!T, space=%!T, flags=0x%08lx, stack_top=%ld",
  31401. (duk_tval *) duk_get_tval(thr, idx_value),
  31402. (duk_tval *) duk_get_tval(thr, idx_replacer),
  31403. (duk_tval *) duk_get_tval(thr, idx_space),
  31404. (unsigned long) flags,
  31405. (long) duk_get_top(thr)));
  31406. entry_top = duk_get_top(thr);
  31407. /*
  31408. * Context init
  31409. */
  31410. DUK_MEMZERO(&js_ctx_alloc, sizeof(js_ctx_alloc));
  31411. js_ctx->thr = thr;
  31412. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  31413. js_ctx->h_replacer = NULL;
  31414. js_ctx->h_gap = NULL;
  31415. #endif
  31416. js_ctx->idx_proplist = -1;
  31417. /* Flag handling currently assumes that flags are consistent. This is OK
  31418. * because the call sites are now strictly controlled.
  31419. */
  31420. js_ctx->flags = flags;
  31421. js_ctx->flag_ascii_only = flags & DUK_JSON_FLAG_ASCII_ONLY;
  31422. js_ctx->flag_avoid_key_quotes = flags & DUK_JSON_FLAG_AVOID_KEY_QUOTES;
  31423. #if defined(DUK_USE_JX)
  31424. js_ctx->flag_ext_custom = flags & DUK_JSON_FLAG_EXT_CUSTOM;
  31425. #endif
  31426. #if defined(DUK_USE_JC)
  31427. js_ctx->flag_ext_compatible = flags & DUK_JSON_FLAG_EXT_COMPATIBLE;
  31428. #endif
  31429. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31430. js_ctx->flag_ext_custom_or_compatible = flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE);
  31431. #endif
  31432. /* The #if defined() clutter here handles the JX/JC enable/disable
  31433. * combinations properly.
  31434. */
  31435. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31436. js_ctx->stridx_custom_undefined = DUK_STRIDX_LC_NULL; /* standard JSON; array gaps */
  31437. #if defined(DUK_USE_JX)
  31438. if (flags & DUK_JSON_FLAG_EXT_CUSTOM) {
  31439. js_ctx->stridx_custom_undefined = DUK_STRIDX_LC_UNDEFINED;
  31440. js_ctx->stridx_custom_nan = DUK_STRIDX_NAN;
  31441. js_ctx->stridx_custom_neginf = DUK_STRIDX_MINUS_INFINITY;
  31442. js_ctx->stridx_custom_posinf = DUK_STRIDX_INFINITY;
  31443. js_ctx->stridx_custom_function =
  31444. (flags & DUK_JSON_FLAG_AVOID_KEY_QUOTES) ?
  31445. DUK_STRIDX_JSON_EXT_FUNCTION2 :
  31446. DUK_STRIDX_JSON_EXT_FUNCTION1;
  31447. }
  31448. #endif /* DUK_USE_JX */
  31449. #if defined(DUK_USE_JX) && defined(DUK_USE_JC)
  31450. else
  31451. #endif /* DUK_USE_JX && DUK_USE_JC */
  31452. #if defined(DUK_USE_JC)
  31453. if (js_ctx->flags & DUK_JSON_FLAG_EXT_COMPATIBLE) {
  31454. js_ctx->stridx_custom_undefined = DUK_STRIDX_JSON_EXT_UNDEFINED;
  31455. js_ctx->stridx_custom_nan = DUK_STRIDX_JSON_EXT_NAN;
  31456. js_ctx->stridx_custom_neginf = DUK_STRIDX_JSON_EXT_NEGINF;
  31457. js_ctx->stridx_custom_posinf = DUK_STRIDX_JSON_EXT_POSINF;
  31458. js_ctx->stridx_custom_function = DUK_STRIDX_JSON_EXT_FUNCTION1;
  31459. }
  31460. #endif /* DUK_USE_JC */
  31461. #endif /* DUK_USE_JX || DUK_USE_JC */
  31462. #if defined(DUK_USE_JX) || defined(DUK_USE_JC)
  31463. if (js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM |
  31464. DUK_JSON_FLAG_EXT_COMPATIBLE)) {
  31465. DUK_ASSERT(js_ctx->mask_for_undefined == 0); /* already zero */
  31466. }
  31467. else
  31468. #endif /* DUK_USE_JX || DUK_USE_JC */
  31469. {
  31470. /* Plain buffer is treated like ArrayBuffer and serialized.
  31471. * Lightfuncs are treated like objects, but JSON explicitly
  31472. * skips serializing Function objects so we can just reject
  31473. * lightfuncs here.
  31474. */
  31475. js_ctx->mask_for_undefined = DUK_TYPE_MASK_UNDEFINED |
  31476. DUK_TYPE_MASK_POINTER |
  31477. DUK_TYPE_MASK_LIGHTFUNC;
  31478. }
  31479. DUK_BW_INIT_PUSHBUF(thr, &js_ctx->bw, DUK__JSON_STRINGIFY_BUFSIZE);
  31480. js_ctx->idx_loop = duk_push_bare_object(thr);
  31481. DUK_ASSERT(js_ctx->idx_loop >= 0);
  31482. /* [ ... buf loop ] */
  31483. /*
  31484. * Process replacer/proplist (2nd argument to JSON.stringify)
  31485. */
  31486. h = duk_get_hobject(thr, idx_replacer);
  31487. if (h != NULL) {
  31488. if (DUK_HOBJECT_IS_CALLABLE(h)) {
  31489. js_ctx->h_replacer = h;
  31490. } else if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAY) {
  31491. /* Here the specification requires correct array index enumeration
  31492. * which is a bit tricky for sparse arrays (it is handled by the
  31493. * enum setup code). We now enumerate ancestors too, although the
  31494. * specification is not very clear on whether that is required.
  31495. */
  31496. duk_uarridx_t plist_idx = 0;
  31497. duk_small_uint_t enum_flags;
  31498. js_ctx->idx_proplist = duk_push_array(thr); /* XXX: array internal? */
  31499. enum_flags = DUK_ENUM_ARRAY_INDICES_ONLY |
  31500. DUK_ENUM_SORT_ARRAY_INDICES; /* expensive flag */
  31501. duk_enum(thr, idx_replacer, enum_flags);
  31502. while (duk_next(thr, -1 /*enum_index*/, 1 /*get_value*/)) {
  31503. /* [ ... proplist enum_obj key val ] */
  31504. if (duk__enc_allow_into_proplist(duk_get_tval(thr, -1))) {
  31505. /* XXX: duplicates should be eliminated here */
  31506. DUK_DDD(DUK_DDDPRINT("proplist enum: key=%!T, val=%!T --> accept",
  31507. (duk_tval *) duk_get_tval(thr, -2),
  31508. (duk_tval *) duk_get_tval(thr, -1)));
  31509. duk_to_string(thr, -1); /* extra coercion of strings is OK */
  31510. duk_put_prop_index(thr, -4, plist_idx); /* -> [ ... proplist enum_obj key ] */
  31511. plist_idx++;
  31512. duk_pop(thr);
  31513. } else {
  31514. DUK_DDD(DUK_DDDPRINT("proplist enum: key=%!T, val=%!T --> reject",
  31515. (duk_tval *) duk_get_tval(thr, -2),
  31516. (duk_tval *) duk_get_tval(thr, -1)));
  31517. duk_pop_2(thr);
  31518. }
  31519. }
  31520. duk_pop(thr); /* pop enum */
  31521. /* [ ... proplist ] */
  31522. }
  31523. }
  31524. /* [ ... buf loop (proplist) ] */
  31525. /*
  31526. * Process space (3rd argument to JSON.stringify)
  31527. */
  31528. h = duk_get_hobject(thr, idx_space);
  31529. if (h != NULL) {
  31530. duk_small_uint_t c = DUK_HOBJECT_GET_CLASS_NUMBER(h);
  31531. if (c == DUK_HOBJECT_CLASS_NUMBER) {
  31532. duk_to_number(thr, idx_space);
  31533. } else if (c == DUK_HOBJECT_CLASS_STRING) {
  31534. duk_to_string(thr, idx_space);
  31535. }
  31536. }
  31537. if (duk_is_number(thr, idx_space)) {
  31538. duk_small_int_t nspace;
  31539. /* spaces[] must be static to allow initializer with old compilers like BCC */
  31540. static const char spaces[10] = {
  31541. DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE,
  31542. DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE,
  31543. DUK_ASC_SPACE, DUK_ASC_SPACE
  31544. }; /* XXX: helper */
  31545. /* ToInteger() coercion; NaN -> 0, infinities are clamped to 0 and 10 */
  31546. nspace = (duk_small_int_t) duk_to_int_clamped(thr, idx_space, 0 /*minval*/, 10 /*maxval*/);
  31547. DUK_ASSERT(nspace >= 0 && nspace <= 10);
  31548. duk_push_lstring(thr, spaces, (duk_size_t) nspace);
  31549. js_ctx->h_gap = duk_known_hstring(thr, -1);
  31550. DUK_ASSERT(js_ctx->h_gap != NULL);
  31551. } else if (duk_is_string_notsymbol(thr, idx_space)) {
  31552. duk_dup(thr, idx_space);
  31553. duk_substring(thr, -1, 0, 10); /* clamp to 10 chars */
  31554. js_ctx->h_gap = duk_known_hstring(thr, -1);
  31555. } else {
  31556. /* nop */
  31557. }
  31558. if (js_ctx->h_gap != NULL) {
  31559. /* If gap is empty, behave as if not given at all. Check
  31560. * against byte length because character length is more
  31561. * expensive.
  31562. */
  31563. if (DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) == 0) {
  31564. js_ctx->h_gap = NULL;
  31565. }
  31566. }
  31567. /* [ ... buf loop (proplist) (gap) ] */
  31568. /*
  31569. * Fast path: assume no mutation, iterate object property tables
  31570. * directly; bail out if that assumption doesn't hold.
  31571. */
  31572. #if defined(DUK_USE_JSON_STRINGIFY_FASTPATH)
  31573. if (js_ctx->h_replacer == NULL && /* replacer is a mutation risk */
  31574. js_ctx->idx_proplist == -1) { /* proplist is very rare */
  31575. duk_int_t pcall_rc;
  31576. duk_small_uint_t prev_ms_base_flags;
  31577. DUK_DD(DUK_DDPRINT("try JSON.stringify() fast path"));
  31578. /* Use recursion_limit to ensure we don't overwrite js_ctx->visiting[]
  31579. * array so we don't need two counter checks in the fast path. The
  31580. * slow path has a much larger recursion limit which we'll use if
  31581. * necessary.
  31582. */
  31583. DUK_ASSERT(DUK_USE_JSON_ENC_RECLIMIT >= DUK_JSON_ENC_LOOPARRAY);
  31584. js_ctx->recursion_limit = DUK_JSON_ENC_LOOPARRAY;
  31585. DUK_ASSERT(js_ctx->recursion_depth == 0);
  31586. /* Execute the fast path in a protected call. If any error is thrown,
  31587. * fall back to the slow path. This includes e.g. recursion limit
  31588. * because the fast path has a smaller recursion limit (and simpler,
  31589. * limited loop detection).
  31590. */
  31591. duk_dup(thr, idx_value);
  31592. /* Must prevent finalizers which may have arbitrary side effects. */
  31593. prev_ms_base_flags = thr->heap->ms_base_flags;
  31594. thr->heap->ms_base_flags |=
  31595. DUK_MS_FLAG_NO_OBJECT_COMPACTION; /* Avoid attempt to compact any objects. */
  31596. thr->heap->pf_prevent_count++; /* Prevent finalizers. */
  31597. DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */
  31598. pcall_rc = duk_safe_call(thr, duk__json_stringify_fast, (void *) js_ctx /*udata*/, 1 /*nargs*/, 0 /*nret*/);
  31599. DUK_ASSERT(thr->heap->pf_prevent_count > 0);
  31600. thr->heap->pf_prevent_count--;
  31601. thr->heap->ms_base_flags = prev_ms_base_flags;
  31602. if (pcall_rc == DUK_EXEC_SUCCESS) {
  31603. DUK_DD(DUK_DDPRINT("fast path successful"));
  31604. DUK_BW_PUSH_AS_STRING(thr, &js_ctx->bw);
  31605. goto replace_finished;
  31606. }
  31607. /* We come here for actual aborts (like encountering .toJSON())
  31608. * but also for recursion/loop errors. Bufwriter size can be
  31609. * kept because we'll probably need at least as much as we've
  31610. * allocated so far.
  31611. */
  31612. DUK_D(DUK_DPRINT("fast path failed, serialize using slow path instead"));
  31613. DUK_BW_RESET_SIZE(thr, &js_ctx->bw);
  31614. js_ctx->recursion_depth = 0;
  31615. }
  31616. #endif
  31617. /*
  31618. * Create wrapper object and serialize
  31619. */
  31620. idx_holder = duk_push_object(thr);
  31621. duk_dup(thr, idx_value);
  31622. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_EMPTY_STRING);
  31623. DUK_DDD(DUK_DDDPRINT("before: flags=0x%08lx, loop=%!T, replacer=%!O, "
  31624. "proplist=%!T, gap=%!O, holder=%!T",
  31625. (unsigned long) js_ctx->flags,
  31626. (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop),
  31627. (duk_heaphdr *) js_ctx->h_replacer,
  31628. (duk_tval *) (js_ctx->idx_proplist >= 0 ? duk_get_tval(thr, js_ctx->idx_proplist) : NULL),
  31629. (duk_heaphdr *) js_ctx->h_gap,
  31630. (duk_tval *) duk_get_tval(thr, -1)));
  31631. /* serialize the wrapper with empty string key */
  31632. duk_push_hstring_empty(thr);
  31633. /* [ ... buf loop (proplist) (gap) holder "" ] */
  31634. js_ctx->recursion_limit = DUK_USE_JSON_ENC_RECLIMIT;
  31635. DUK_ASSERT(js_ctx->recursion_depth == 0);
  31636. if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_holder) == 0)) { /* [ ... holder key ] -> [ ... holder ] */
  31637. /* Result is undefined. */
  31638. duk_push_undefined(thr);
  31639. } else {
  31640. /* Convert buffer to result string. */
  31641. DUK_BW_PUSH_AS_STRING(thr, &js_ctx->bw);
  31642. }
  31643. DUK_DDD(DUK_DDDPRINT("after: flags=0x%08lx, loop=%!T, replacer=%!O, "
  31644. "proplist=%!T, gap=%!O, holder=%!T",
  31645. (unsigned long) js_ctx->flags,
  31646. (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop),
  31647. (duk_heaphdr *) js_ctx->h_replacer,
  31648. (duk_tval *) (js_ctx->idx_proplist >= 0 ? duk_get_tval(thr, js_ctx->idx_proplist) : NULL),
  31649. (duk_heaphdr *) js_ctx->h_gap,
  31650. (duk_tval *) duk_get_tval(thr, idx_holder)));
  31651. /* The stack has a variable shape here, so force it to the
  31652. * desired one explicitly.
  31653. */
  31654. #if defined(DUK_USE_JSON_STRINGIFY_FASTPATH)
  31655. replace_finished:
  31656. #endif
  31657. duk_replace(thr, entry_top);
  31658. duk_set_top(thr, entry_top + 1);
  31659. DUK_DDD(DUK_DDDPRINT("JSON stringify end: value=%!T, replacer=%!T, space=%!T, "
  31660. "flags=0x%08lx, result=%!T, stack_top=%ld",
  31661. (duk_tval *) duk_get_tval(thr, idx_value),
  31662. (duk_tval *) duk_get_tval(thr, idx_replacer),
  31663. (duk_tval *) duk_get_tval(thr, idx_space),
  31664. (unsigned long) flags,
  31665. (duk_tval *) duk_get_tval(thr, -1),
  31666. (long) duk_get_top(thr)));
  31667. DUK_ASSERT(duk_get_top(thr) == entry_top + 1);
  31668. }
  31669. #if defined(DUK_USE_JSON_BUILTIN)
  31670. /*
  31671. * Entry points
  31672. */
  31673. DUK_INTERNAL duk_ret_t duk_bi_json_object_parse(duk_hthread *thr) {
  31674. duk_bi_json_parse_helper(thr,
  31675. 0 /*idx_value*/,
  31676. 1 /*idx_replacer*/,
  31677. 0 /*flags*/);
  31678. return 1;
  31679. }
  31680. DUK_INTERNAL duk_ret_t duk_bi_json_object_stringify(duk_hthread *thr) {
  31681. duk_bi_json_stringify_helper(thr,
  31682. 0 /*idx_value*/,
  31683. 1 /*idx_replacer*/,
  31684. 2 /*idx_space*/,
  31685. 0 /*flags*/);
  31686. return 1;
  31687. }
  31688. #endif /* DUK_USE_JSON_BUILTIN */
  31689. #endif /* DUK_USE_JSON_SUPPORT */
  31690. /* automatic undefs */
  31691. #undef DUK__EMIT_1
  31692. #undef DUK__EMIT_2
  31693. #undef DUK__EMIT_CSTR
  31694. #undef DUK__EMIT_HSTR
  31695. #undef DUK__EMIT_STRIDX
  31696. #undef DUK__JSON_DECSTR_BUFSIZE
  31697. #undef DUK__JSON_DECSTR_CHUNKSIZE
  31698. #undef DUK__JSON_ENCSTR_CHUNKSIZE
  31699. #undef DUK__JSON_MAX_ESC_LEN
  31700. #undef DUK__JSON_STRINGIFY_BUFSIZE
  31701. #undef DUK__MKESC
  31702. #undef DUK__UNEMIT_1
  31703. #line 1 "duk_bi_math.c"
  31704. /*
  31705. * Math built-ins
  31706. */
  31707. /* #include duk_internal.h -> already included */
  31708. #if defined(DUK_USE_MATH_BUILTIN)
  31709. /*
  31710. * Use static helpers which can work with math.h functions matching
  31711. * the following signatures. This is not portable if any of these math
  31712. * functions is actually a macro.
  31713. *
  31714. * Typing here is intentionally 'double' wherever values interact with
  31715. * the standard library APIs.
  31716. */
  31717. typedef double (*duk__one_arg_func)(double);
  31718. typedef double (*duk__two_arg_func)(double, double);
  31719. DUK_LOCAL duk_ret_t duk__math_minmax(duk_hthread *thr, duk_double_t initial, duk__two_arg_func min_max) {
  31720. duk_idx_t n = duk_get_top(thr);
  31721. duk_idx_t i;
  31722. duk_double_t res = initial;
  31723. duk_double_t t;
  31724. /*
  31725. * Note: fmax() does not match the E5 semantics. E5 requires
  31726. * that if -any- input to Math.max() is a NaN, the result is a
  31727. * NaN. fmax() will return a NaN only if -both- inputs are NaN.
  31728. * Same applies to fmin().
  31729. *
  31730. * Note: every input value must be coerced with ToNumber(), even
  31731. * if we know the result will be a NaN anyway: ToNumber() may have
  31732. * side effects for which even order of evaluation matters.
  31733. */
  31734. for (i = 0; i < n; i++) {
  31735. t = duk_to_number(thr, i);
  31736. if (DUK_FPCLASSIFY(t) == DUK_FP_NAN || DUK_FPCLASSIFY(res) == DUK_FP_NAN) {
  31737. /* Note: not normalized, but duk_push_number() will normalize */
  31738. res = (duk_double_t) DUK_DOUBLE_NAN;
  31739. } else {
  31740. res = (duk_double_t) min_max(res, (double) t);
  31741. }
  31742. }
  31743. duk_push_number(thr, res);
  31744. return 1;
  31745. }
  31746. DUK_LOCAL double duk__fmin_fixed(double x, double y) {
  31747. /* fmin() with args -0 and +0 is not guaranteed to return
  31748. * -0 as Ecmascript requires.
  31749. */
  31750. if (x == 0 && y == 0) {
  31751. duk_double_union du1, du2;
  31752. du1.d = x;
  31753. du2.d = y;
  31754. /* Already checked to be zero so these must hold, and allow us
  31755. * to check for "x is -0 or y is -0" by ORing the high parts
  31756. * for comparison.
  31757. */
  31758. DUK_ASSERT(du1.ui[DUK_DBL_IDX_UI0] == 0 || du1.ui[DUK_DBL_IDX_UI0] == 0x80000000UL);
  31759. DUK_ASSERT(du2.ui[DUK_DBL_IDX_UI0] == 0 || du2.ui[DUK_DBL_IDX_UI0] == 0x80000000UL);
  31760. /* XXX: what's the safest way of creating a negative zero? */
  31761. if ((du1.ui[DUK_DBL_IDX_UI0] | du2.ui[DUK_DBL_IDX_UI0]) != 0) {
  31762. /* Enter here if either x or y (or both) is -0. */
  31763. return -0.0;
  31764. } else {
  31765. return +0.0;
  31766. }
  31767. }
  31768. return duk_double_fmin(x, y);
  31769. }
  31770. DUK_LOCAL double duk__fmax_fixed(double x, double y) {
  31771. /* fmax() with args -0 and +0 is not guaranteed to return
  31772. * +0 as Ecmascript requires.
  31773. */
  31774. if (x == 0 && y == 0) {
  31775. if (DUK_SIGNBIT(x) == 0 || DUK_SIGNBIT(y) == 0) {
  31776. return +0.0;
  31777. } else {
  31778. return -0.0;
  31779. }
  31780. }
  31781. return duk_double_fmax(x, y);
  31782. }
  31783. #if defined(DUK_USE_ES6)
  31784. DUK_LOCAL double duk__cbrt(double x) {
  31785. /* cbrt() is C99. To avoid hassling embedders with the need to provide a
  31786. * cube root function, we can get by with pow(). The result is not
  31787. * identical, but that's OK: ES2015 says it's implementation-dependent.
  31788. */
  31789. #if defined(DUK_CBRT)
  31790. /* cbrt() matches ES2015 requirements. */
  31791. return DUK_CBRT(x);
  31792. #else
  31793. duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x);
  31794. /* pow() does not, however. */
  31795. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE || c == DUK_FP_ZERO) {
  31796. return x;
  31797. }
  31798. if (DUK_SIGNBIT(x)) {
  31799. return -DUK_POW(-x, 1.0 / 3.0);
  31800. } else {
  31801. return DUK_POW(x, 1.0 / 3.0);
  31802. }
  31803. #endif
  31804. }
  31805. DUK_LOCAL double duk__log2(double x) {
  31806. #if defined(DUK_LOG2)
  31807. return DUK_LOG2(x);
  31808. #else
  31809. return DUK_LOG(x) * DUK_DOUBLE_LOG2E;
  31810. #endif
  31811. }
  31812. DUK_LOCAL double duk__log10(double x) {
  31813. #if defined(DUK_LOG10)
  31814. return DUK_LOG10(x);
  31815. #else
  31816. return DUK_LOG(x) * DUK_DOUBLE_LOG10E;
  31817. #endif
  31818. }
  31819. DUK_LOCAL double duk__trunc(double x) {
  31820. #if defined(DUK_TRUNC)
  31821. return DUK_TRUNC(x);
  31822. #else
  31823. /* Handles -0 correctly: -0.0 matches 'x >= 0.0' but floor()
  31824. * is required to return -0 when the argument is -0.
  31825. */
  31826. return x >= 0.0 ? DUK_FLOOR(x) : DUK_CEIL(x);
  31827. #endif
  31828. }
  31829. #endif /* DUK_USE_ES6 */
  31830. DUK_LOCAL double duk__round_fixed(double x) {
  31831. /* Numbers half-way between integers must be rounded towards +Infinity,
  31832. * e.g. -3.5 must be rounded to -3 (not -4). When rounded to zero, zero
  31833. * sign must be set appropriately. E5.1 Section 15.8.2.15.
  31834. *
  31835. * Note that ANSI C round() is "round to nearest integer, away from zero",
  31836. * which is incorrect for negative values. Here we make do with floor().
  31837. */
  31838. duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x);
  31839. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE || c == DUK_FP_ZERO) {
  31840. return x;
  31841. }
  31842. /*
  31843. * x is finite and non-zero
  31844. *
  31845. * -1.6 -> floor(-1.1) -> -2
  31846. * -1.5 -> floor(-1.0) -> -1 (towards +Inf)
  31847. * -1.4 -> floor(-0.9) -> -1
  31848. * -0.5 -> -0.0 (special case)
  31849. * -0.1 -> -0.0 (special case)
  31850. * +0.1 -> +0.0 (special case)
  31851. * +0.5 -> floor(+1.0) -> 1 (towards +Inf)
  31852. * +1.4 -> floor(+1.9) -> 1
  31853. * +1.5 -> floor(+2.0) -> 2 (towards +Inf)
  31854. * +1.6 -> floor(+2.1) -> 2
  31855. */
  31856. if (x >= -0.5 && x < 0.5) {
  31857. /* +0.5 is handled by floor, this is on purpose */
  31858. if (x < 0.0) {
  31859. return -0.0;
  31860. } else {
  31861. return +0.0;
  31862. }
  31863. }
  31864. return DUK_FLOOR(x + 0.5);
  31865. }
  31866. /* Wrappers for calling standard math library methods. These may be required
  31867. * on platforms where one or more of the math built-ins are defined as macros
  31868. * or inline functions and are thus not suitable to be used as function pointers.
  31869. */
  31870. #if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS)
  31871. DUK_LOCAL double duk__fabs(double x) {
  31872. return DUK_FABS(x);
  31873. }
  31874. DUK_LOCAL double duk__acos(double x) {
  31875. return DUK_ACOS(x);
  31876. }
  31877. DUK_LOCAL double duk__asin(double x) {
  31878. return DUK_ASIN(x);
  31879. }
  31880. DUK_LOCAL double duk__atan(double x) {
  31881. return DUK_ATAN(x);
  31882. }
  31883. DUK_LOCAL double duk__ceil(double x) {
  31884. return DUK_CEIL(x);
  31885. }
  31886. DUK_LOCAL double duk__cos(double x) {
  31887. return DUK_COS(x);
  31888. }
  31889. DUK_LOCAL double duk__exp(double x) {
  31890. return DUK_EXP(x);
  31891. }
  31892. DUK_LOCAL double duk__floor(double x) {
  31893. return DUK_FLOOR(x);
  31894. }
  31895. DUK_LOCAL double duk__log(double x) {
  31896. return DUK_LOG(x);
  31897. }
  31898. DUK_LOCAL double duk__sin(double x) {
  31899. return DUK_SIN(x);
  31900. }
  31901. DUK_LOCAL double duk__sqrt(double x) {
  31902. return DUK_SQRT(x);
  31903. }
  31904. DUK_LOCAL double duk__tan(double x) {
  31905. return DUK_TAN(x);
  31906. }
  31907. DUK_LOCAL double duk__atan2_fixed(double x, double y) {
  31908. #if defined(DUK_USE_ATAN2_WORKAROUNDS)
  31909. /* Specific fixes to common atan2() implementation issues:
  31910. * - test-bug-mingw-math-issues.js
  31911. */
  31912. if (DUK_ISINF(x) && DUK_ISINF(y)) {
  31913. if (DUK_SIGNBIT(x)) {
  31914. if (DUK_SIGNBIT(y)) {
  31915. return -2.356194490192345;
  31916. } else {
  31917. return -0.7853981633974483;
  31918. }
  31919. } else {
  31920. if (DUK_SIGNBIT(y)) {
  31921. return 2.356194490192345;
  31922. } else {
  31923. return 0.7853981633974483;
  31924. }
  31925. }
  31926. }
  31927. #else
  31928. /* Some ISO C assumptions. */
  31929. DUK_ASSERT(DUK_ATAN2(DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY) == 0.7853981633974483);
  31930. DUK_ASSERT(DUK_ATAN2(-DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY) == -0.7853981633974483);
  31931. DUK_ASSERT(DUK_ATAN2(DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY) == 2.356194490192345);
  31932. DUK_ASSERT(DUK_ATAN2(-DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY) == -2.356194490192345);
  31933. #endif
  31934. return DUK_ATAN2(x, y);
  31935. }
  31936. #endif /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */
  31937. /* order must match constants in genbuiltins.py */
  31938. DUK_LOCAL const duk__one_arg_func duk__one_arg_funcs[] = {
  31939. #if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS)
  31940. duk__fabs,
  31941. duk__acos,
  31942. duk__asin,
  31943. duk__atan,
  31944. duk__ceil,
  31945. duk__cos,
  31946. duk__exp,
  31947. duk__floor,
  31948. duk__log,
  31949. duk__round_fixed,
  31950. duk__sin,
  31951. duk__sqrt,
  31952. duk__tan,
  31953. #if defined(DUK_USE_ES6)
  31954. duk__cbrt,
  31955. duk__log2,
  31956. duk__log10,
  31957. duk__trunc
  31958. #endif
  31959. #else /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */
  31960. DUK_FABS,
  31961. DUK_ACOS,
  31962. DUK_ASIN,
  31963. DUK_ATAN,
  31964. DUK_CEIL,
  31965. DUK_COS,
  31966. DUK_EXP,
  31967. DUK_FLOOR,
  31968. DUK_LOG,
  31969. duk__round_fixed,
  31970. DUK_SIN,
  31971. DUK_SQRT,
  31972. DUK_TAN,
  31973. #if defined(DUK_USE_ES6)
  31974. duk__cbrt,
  31975. duk__log2,
  31976. duk__log10,
  31977. duk__trunc
  31978. #endif
  31979. #endif /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */
  31980. };
  31981. /* order must match constants in genbuiltins.py */
  31982. DUK_LOCAL const duk__two_arg_func duk__two_arg_funcs[] = {
  31983. #if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS)
  31984. duk__atan2_fixed,
  31985. duk_js_arith_pow
  31986. #else
  31987. duk__atan2_fixed,
  31988. duk_js_arith_pow
  31989. #endif
  31990. };
  31991. DUK_INTERNAL duk_ret_t duk_bi_math_object_onearg_shared(duk_hthread *thr) {
  31992. duk_small_int_t fun_idx = duk_get_current_magic(thr);
  31993. duk__one_arg_func fun;
  31994. duk_double_t arg1;
  31995. DUK_ASSERT(fun_idx >= 0);
  31996. DUK_ASSERT(fun_idx < (duk_small_int_t) (sizeof(duk__one_arg_funcs) / sizeof(duk__one_arg_func)));
  31997. arg1 = duk_to_number(thr, 0);
  31998. fun = duk__one_arg_funcs[fun_idx];
  31999. duk_push_number(thr, (duk_double_t) fun((double) arg1));
  32000. return 1;
  32001. }
  32002. DUK_INTERNAL duk_ret_t duk_bi_math_object_twoarg_shared(duk_hthread *thr) {
  32003. duk_small_int_t fun_idx = duk_get_current_magic(thr);
  32004. duk__two_arg_func fun;
  32005. duk_double_t arg1;
  32006. duk_double_t arg2;
  32007. DUK_ASSERT(fun_idx >= 0);
  32008. DUK_ASSERT(fun_idx < (duk_small_int_t) (sizeof(duk__two_arg_funcs) / sizeof(duk__two_arg_func)));
  32009. arg1 = duk_to_number(thr, 0); /* explicit ordered evaluation to match coercion semantics */
  32010. arg2 = duk_to_number(thr, 1);
  32011. fun = duk__two_arg_funcs[fun_idx];
  32012. duk_push_number(thr, (duk_double_t) fun((double) arg1, (double) arg2));
  32013. return 1;
  32014. }
  32015. DUK_INTERNAL duk_ret_t duk_bi_math_object_max(duk_hthread *thr) {
  32016. return duk__math_minmax(thr, -DUK_DOUBLE_INFINITY, duk__fmax_fixed);
  32017. }
  32018. DUK_INTERNAL duk_ret_t duk_bi_math_object_min(duk_hthread *thr) {
  32019. return duk__math_minmax(thr, DUK_DOUBLE_INFINITY, duk__fmin_fixed);
  32020. }
  32021. DUK_INTERNAL duk_ret_t duk_bi_math_object_random(duk_hthread *thr) {
  32022. duk_push_number(thr, (duk_double_t) DUK_UTIL_GET_RANDOM_DOUBLE(thr));
  32023. return 1;
  32024. }
  32025. #if defined(DUK_USE_ES6)
  32026. DUK_INTERNAL duk_ret_t duk_bi_math_object_hypot(duk_hthread *thr) {
  32027. /*
  32028. * E6 Section 20.2.2.18: Math.hypot
  32029. *
  32030. * - If no arguments are passed, the result is +0.
  32031. * - If any argument is +inf, the result is +inf.
  32032. * - If any argument is -inf, the result is +inf.
  32033. * - If no argument is +inf or -inf, and any argument is NaN, the result is
  32034. * NaN.
  32035. * - If all arguments are either +0 or -0, the result is +0.
  32036. */
  32037. duk_idx_t nargs;
  32038. duk_idx_t i;
  32039. duk_bool_t found_nan;
  32040. duk_double_t max;
  32041. duk_double_t sum, summand;
  32042. duk_double_t comp, prelim;
  32043. duk_double_t t;
  32044. nargs = duk_get_top(thr);
  32045. /* Find the highest value. Also ToNumber() coerces. */
  32046. max = 0.0;
  32047. found_nan = 0;
  32048. for (i = 0; i < nargs; i++) {
  32049. t = DUK_FABS(duk_to_number(thr, i));
  32050. if (DUK_FPCLASSIFY(t) == DUK_FP_NAN) {
  32051. found_nan = 1;
  32052. } else {
  32053. max = duk_double_fmax(max, t);
  32054. }
  32055. }
  32056. /* Early return cases. */
  32057. if (max == DUK_DOUBLE_INFINITY) {
  32058. duk_push_number(thr, DUK_DOUBLE_INFINITY);
  32059. return 1;
  32060. } else if (found_nan) {
  32061. duk_push_number(thr, DUK_DOUBLE_NAN);
  32062. return 1;
  32063. } else if (max == 0.0) {
  32064. duk_push_number(thr, 0.0);
  32065. /* Otherwise we'd divide by zero. */
  32066. return 1;
  32067. }
  32068. /* Use Kahan summation and normalize to the highest value to minimize
  32069. * floating point rounding error and avoid overflow.
  32070. *
  32071. * https://en.wikipedia.org/wiki/Kahan_summation_algorithm
  32072. */
  32073. sum = 0.0;
  32074. comp = 0.0;
  32075. for (i = 0; i < nargs; i++) {
  32076. t = DUK_FABS(duk_get_number(thr, i)) / max;
  32077. summand = (t * t) - comp;
  32078. prelim = sum + summand;
  32079. comp = (prelim - sum) - summand;
  32080. sum = prelim;
  32081. }
  32082. duk_push_number(thr, (duk_double_t) DUK_SQRT(sum) * max);
  32083. return 1;
  32084. }
  32085. #endif /* DUK_USE_ES6 */
  32086. #if defined(DUK_USE_ES6)
  32087. DUK_INTERNAL duk_ret_t duk_bi_math_object_sign(duk_hthread *thr) {
  32088. duk_double_t d;
  32089. d = duk_to_number(thr, 0);
  32090. if (duk_double_is_nan(d)) {
  32091. DUK_ASSERT(duk_is_nan(thr, -1));
  32092. return 1; /* NaN input -> return NaN */
  32093. }
  32094. if (d == 0.0) {
  32095. /* Zero sign kept, i.e. -0 -> -0, +0 -> +0. */
  32096. return 1;
  32097. }
  32098. duk_push_int(thr, (d > 0.0 ? 1 : -1));
  32099. return 1;
  32100. }
  32101. #endif /* DUK_USE_ES6 */
  32102. #if defined(DUK_USE_ES6)
  32103. DUK_INTERNAL duk_ret_t duk_bi_math_object_clz32(duk_hthread *thr) {
  32104. duk_uint32_t x;
  32105. duk_small_uint_t i;
  32106. #if defined(DUK_USE_PREFER_SIZE)
  32107. duk_uint32_t mask;
  32108. x = duk_to_uint32(thr, 0);
  32109. for (i = 0, mask = 0x80000000UL; mask != 0; mask >>= 1) {
  32110. if (x & mask) {
  32111. break;
  32112. }
  32113. i++;
  32114. }
  32115. DUK_ASSERT(i <= 32);
  32116. duk_push_uint(thr, i);
  32117. return 1;
  32118. #else /* DUK_USE_PREFER_SIZE */
  32119. i = 0;
  32120. x = duk_to_uint32(thr, 0);
  32121. if (x & 0xffff0000UL) {
  32122. x >>= 16;
  32123. } else {
  32124. i += 16;
  32125. }
  32126. if (x & 0x0000ff00UL) {
  32127. x >>= 8;
  32128. } else {
  32129. i += 8;
  32130. }
  32131. if (x & 0x000000f0UL) {
  32132. x >>= 4;
  32133. } else {
  32134. i += 4;
  32135. }
  32136. if (x & 0x0000000cUL) {
  32137. x >>= 2;
  32138. } else {
  32139. i += 2;
  32140. }
  32141. if (x & 0x00000002UL) {
  32142. x >>= 1;
  32143. } else {
  32144. i += 1;
  32145. }
  32146. if (x & 0x00000001UL) {
  32147. ;
  32148. } else {
  32149. i += 1;
  32150. }
  32151. DUK_ASSERT(i <= 32);
  32152. duk_push_uint(thr, i);
  32153. return 1;
  32154. #endif /* DUK_USE_PREFER_SIZE */
  32155. }
  32156. #endif /* DUK_USE_ES6 */
  32157. #if defined(DUK_USE_ES6)
  32158. DUK_INTERNAL duk_ret_t duk_bi_math_object_imul(duk_hthread *thr) {
  32159. duk_uint32_t x, y, z;
  32160. x = duk_to_uint32(thr, 0);
  32161. y = duk_to_uint32(thr, 1);
  32162. z = x * y;
  32163. /* While arguments are ToUint32() coerced and the multiplication
  32164. * is unsigned as such, the final result is curiously interpreted
  32165. * as a signed 32-bit value.
  32166. */
  32167. duk_push_i32(thr, (duk_int32_t) z);
  32168. return 1;
  32169. }
  32170. #endif /* DUK_USE_ES6 */
  32171. #endif /* DUK_USE_MATH_BUILTIN */
  32172. #line 1 "duk_bi_number.c"
  32173. /*
  32174. * Number built-ins
  32175. */
  32176. /* #include duk_internal.h -> already included */
  32177. #if defined(DUK_USE_NUMBER_BUILTIN)
  32178. DUK_LOCAL duk_double_t duk__push_this_number_plain(duk_hthread *thr) {
  32179. duk_hobject *h;
  32180. /* Number built-in accepts a plain number or a Number object (whose
  32181. * internal value is operated on). Other types cause TypeError.
  32182. */
  32183. duk_push_this(thr);
  32184. if (duk_is_number(thr, -1)) {
  32185. DUK_DDD(DUK_DDDPRINT("plain number value: %!T", (duk_tval *) duk_get_tval(thr, -1)));
  32186. goto done;
  32187. }
  32188. h = duk_get_hobject(thr, -1);
  32189. if (!h ||
  32190. (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_NUMBER)) {
  32191. DUK_DDD(DUK_DDDPRINT("unacceptable this value: %!T", (duk_tval *) duk_get_tval(thr, -1)));
  32192. DUK_ERROR_TYPE(thr, "number expected");
  32193. }
  32194. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  32195. DUK_ASSERT(duk_is_number(thr, -1));
  32196. DUK_DDD(DUK_DDDPRINT("number object: %!T, internal value: %!T",
  32197. (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1)));
  32198. duk_remove_m2(thr);
  32199. done:
  32200. return duk_get_number(thr, -1);
  32201. }
  32202. DUK_INTERNAL duk_ret_t duk_bi_number_constructor(duk_hthread *thr) {
  32203. duk_idx_t nargs;
  32204. duk_hobject *h_this;
  32205. /*
  32206. * The Number constructor uses ToNumber(arg) for number coercion
  32207. * (coercing an undefined argument to NaN). However, if the
  32208. * argument is not given at all, +0 must be used instead. To do
  32209. * this, a vararg function is used.
  32210. */
  32211. nargs = duk_get_top(thr);
  32212. if (nargs == 0) {
  32213. duk_push_int(thr, 0);
  32214. }
  32215. duk_to_number(thr, 0);
  32216. duk_set_top(thr, 1);
  32217. DUK_ASSERT_TOP(thr, 1);
  32218. if (!duk_is_constructor_call(thr)) {
  32219. return 1;
  32220. }
  32221. /*
  32222. * E5 Section 15.7.2.1 requires that the constructed object
  32223. * must have the original Number.prototype as its internal
  32224. * prototype. However, since Number.prototype is non-writable
  32225. * and non-configurable, this doesn't have to be enforced here:
  32226. * The default object (bound to 'this') is OK, though we have
  32227. * to change its class.
  32228. *
  32229. * Internal value set to ToNumber(arg) or +0; if no arg given,
  32230. * ToNumber(undefined) = NaN, so special treatment is needed
  32231. * (above). String internal value is immutable.
  32232. */
  32233. /* XXX: helper */
  32234. duk_push_this(thr);
  32235. h_this = duk_known_hobject(thr, -1);
  32236. DUK_HOBJECT_SET_CLASS_NUMBER(h_this, DUK_HOBJECT_CLASS_NUMBER);
  32237. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_this) == thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE]);
  32238. DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_this) == DUK_HOBJECT_CLASS_NUMBER);
  32239. DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h_this));
  32240. duk_dup_0(thr); /* -> [ val obj val ] */
  32241. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE);
  32242. return 0; /* no return value -> don't replace created value */
  32243. }
  32244. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_value_of(duk_hthread *thr) {
  32245. (void) duk__push_this_number_plain(thr);
  32246. return 1;
  32247. }
  32248. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_string(duk_hthread *thr) {
  32249. duk_small_int_t radix;
  32250. duk_small_uint_t n2s_flags;
  32251. (void) duk__push_this_number_plain(thr);
  32252. if (duk_is_undefined(thr, 0)) {
  32253. radix = 10;
  32254. } else {
  32255. radix = (duk_small_int_t) duk_to_int_check_range(thr, 0, 2, 36);
  32256. }
  32257. DUK_DDD(DUK_DDDPRINT("radix=%ld", (long) radix));
  32258. n2s_flags = 0;
  32259. duk_numconv_stringify(thr,
  32260. radix /*radix*/,
  32261. 0 /*digits*/,
  32262. n2s_flags /*flags*/);
  32263. return 1;
  32264. }
  32265. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_locale_string(duk_hthread *thr) {
  32266. /* XXX: just use toString() for now; permitted although not recommended.
  32267. * nargs==1, so radix is passed to toString().
  32268. */
  32269. return duk_bi_number_prototype_to_string(thr);
  32270. }
  32271. /*
  32272. * toFixed(), toExponential(), toPrecision()
  32273. */
  32274. /* XXX: shared helper for toFixed(), toExponential(), toPrecision()? */
  32275. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_fixed(duk_hthread *thr) {
  32276. duk_small_int_t frac_digits;
  32277. duk_double_t d;
  32278. duk_small_int_t c;
  32279. duk_small_uint_t n2s_flags;
  32280. frac_digits = (duk_small_int_t) duk_to_int_check_range(thr, 0, 0, 20);
  32281. d = duk__push_this_number_plain(thr);
  32282. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  32283. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) {
  32284. goto use_to_string;
  32285. }
  32286. if (d >= 1.0e21 || d <= -1.0e21) {
  32287. goto use_to_string;
  32288. }
  32289. n2s_flags = DUK_N2S_FLAG_FIXED_FORMAT |
  32290. DUK_N2S_FLAG_FRACTION_DIGITS;
  32291. duk_numconv_stringify(thr,
  32292. 10 /*radix*/,
  32293. frac_digits /*digits*/,
  32294. n2s_flags /*flags*/);
  32295. return 1;
  32296. use_to_string:
  32297. DUK_ASSERT_TOP(thr, 2);
  32298. duk_to_string(thr, -1);
  32299. return 1;
  32300. }
  32301. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_exponential(duk_hthread *thr) {
  32302. duk_bool_t frac_undefined;
  32303. duk_small_int_t frac_digits;
  32304. duk_double_t d;
  32305. duk_small_int_t c;
  32306. duk_small_uint_t n2s_flags;
  32307. d = duk__push_this_number_plain(thr);
  32308. frac_undefined = duk_is_undefined(thr, 0);
  32309. duk_to_int(thr, 0); /* for side effects */
  32310. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  32311. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) {
  32312. goto use_to_string;
  32313. }
  32314. frac_digits = (duk_small_int_t) duk_to_int_check_range(thr, 0, 0, 20);
  32315. n2s_flags = DUK_N2S_FLAG_FORCE_EXP |
  32316. (frac_undefined ? 0 : DUK_N2S_FLAG_FIXED_FORMAT);
  32317. duk_numconv_stringify(thr,
  32318. 10 /*radix*/,
  32319. frac_digits + 1 /*leading digit + fractions*/,
  32320. n2s_flags /*flags*/);
  32321. return 1;
  32322. use_to_string:
  32323. DUK_ASSERT_TOP(thr, 2);
  32324. duk_to_string(thr, -1);
  32325. return 1;
  32326. }
  32327. DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_precision(duk_hthread *thr) {
  32328. /* The specification has quite awkward order of coercion and
  32329. * checks for toPrecision(). The operations below are a bit
  32330. * reordered, within constraints of observable side effects.
  32331. */
  32332. duk_double_t d;
  32333. duk_small_int_t prec;
  32334. duk_small_int_t c;
  32335. duk_small_uint_t n2s_flags;
  32336. DUK_ASSERT_TOP(thr, 1);
  32337. d = duk__push_this_number_plain(thr);
  32338. if (duk_is_undefined(thr, 0)) {
  32339. goto use_to_string;
  32340. }
  32341. DUK_ASSERT_TOP(thr, 2);
  32342. duk_to_int(thr, 0); /* for side effects */
  32343. c = (duk_small_int_t) DUK_FPCLASSIFY(d);
  32344. if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) {
  32345. goto use_to_string;
  32346. }
  32347. prec = (duk_small_int_t) duk_to_int_check_range(thr, 0, 1, 21);
  32348. n2s_flags = DUK_N2S_FLAG_FIXED_FORMAT |
  32349. DUK_N2S_FLAG_NO_ZERO_PAD;
  32350. duk_numconv_stringify(thr,
  32351. 10 /*radix*/,
  32352. prec /*digits*/,
  32353. n2s_flags /*flags*/);
  32354. return 1;
  32355. use_to_string:
  32356. /* Used when precision is undefined; also used for NaN (-> "NaN"),
  32357. * and +/- infinity (-> "Infinity", "-Infinity").
  32358. */
  32359. DUK_ASSERT_TOP(thr, 2);
  32360. duk_to_string(thr, -1);
  32361. return 1;
  32362. }
  32363. #endif /* DUK_USE_NUMBER_BUILTIN */
  32364. #line 1 "duk_bi_object.c"
  32365. /*
  32366. * Object built-ins
  32367. */
  32368. /* #include duk_internal.h -> already included */
  32369. /* Needed even when Object built-in disabled. */
  32370. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_to_string(duk_hthread *thr) {
  32371. duk_tval *tv;
  32372. tv = DUK_HTHREAD_THIS_PTR(thr);
  32373. /* XXX: This is not entirely correct anymore; in ES2015 the
  32374. * default lookup should use @@toStringTag to come up with
  32375. * e.g. [object Symbol].
  32376. */
  32377. duk_push_class_string_tval(thr, tv);
  32378. return 1;
  32379. }
  32380. #if defined(DUK_USE_OBJECT_BUILTIN)
  32381. DUK_INTERNAL duk_ret_t duk_bi_object_constructor(duk_hthread *thr) {
  32382. duk_uint_t arg_mask;
  32383. arg_mask = duk_get_type_mask(thr, 0);
  32384. if (!duk_is_constructor_call(thr) && /* not a constructor call */
  32385. ((arg_mask & (DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_UNDEFINED)) == 0)) { /* and argument not null or undefined */
  32386. duk_to_object(thr, 0);
  32387. return 1;
  32388. }
  32389. /* Pointer and buffer primitive values are treated like other
  32390. * primitives values which have a fully fledged object counterpart:
  32391. * promote to an object value. Lightfuncs and plain buffers are
  32392. * coerced with ToObject() even they could also be returned as is.
  32393. */
  32394. if (arg_mask & (DUK_TYPE_MASK_OBJECT |
  32395. DUK_TYPE_MASK_STRING |
  32396. DUK_TYPE_MASK_BOOLEAN |
  32397. DUK_TYPE_MASK_NUMBER |
  32398. DUK_TYPE_MASK_POINTER |
  32399. DUK_TYPE_MASK_BUFFER |
  32400. DUK_TYPE_MASK_LIGHTFUNC)) {
  32401. /* For DUK_TYPE_OBJECT the coercion is a no-op and could
  32402. * be checked for explicitly, but Object(obj) calls are
  32403. * not very common so opt for minimal footprint.
  32404. */
  32405. duk_to_object(thr, 0);
  32406. return 1;
  32407. }
  32408. (void) duk_push_object_helper(thr,
  32409. DUK_HOBJECT_FLAG_EXTENSIBLE |
  32410. DUK_HOBJECT_FLAG_FASTREFS |
  32411. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  32412. DUK_BIDX_OBJECT_PROTOTYPE);
  32413. return 1;
  32414. }
  32415. #endif /* DUK_USE_OBJECT_BUILTIN */
  32416. #if defined(DUK_USE_OBJECT_BUILTIN) && defined(DUK_USE_ES6)
  32417. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_assign(duk_hthread *thr) {
  32418. duk_idx_t nargs;
  32419. duk_int_t idx;
  32420. nargs = duk_get_top_require_min(thr, 1 /*min_top*/);
  32421. duk_to_object(thr, 0);
  32422. for (idx = 1; idx < nargs; idx++) {
  32423. /* E7 19.1.2.1 (step 4a) */
  32424. if (duk_is_null_or_undefined(thr, idx)) {
  32425. continue;
  32426. }
  32427. /* duk_enum() respects ES2015+ [[OwnPropertyKeys]] ordering, which is
  32428. * convenient here.
  32429. */
  32430. duk_to_object(thr, idx);
  32431. duk_enum(thr, idx, DUK_ENUM_OWN_PROPERTIES_ONLY);
  32432. while (duk_next(thr, -1, 1 /*get_value*/)) {
  32433. /* [ target ... enum key value ] */
  32434. duk_put_prop(thr, 0);
  32435. /* [ target ... enum ] */
  32436. }
  32437. /* Could pop enumerator, but unnecessary because of duk_set_top()
  32438. * below.
  32439. */
  32440. }
  32441. duk_set_top(thr, 1);
  32442. return 1;
  32443. }
  32444. #endif
  32445. #if defined(DUK_USE_OBJECT_BUILTIN) && defined(DUK_USE_ES6)
  32446. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is(duk_hthread *thr) {
  32447. DUK_ASSERT_TOP(thr, 2);
  32448. duk_push_boolean(thr, duk_samevalue(thr, 0, 1));
  32449. return 1;
  32450. }
  32451. #endif
  32452. #if defined(DUK_USE_OBJECT_BUILTIN)
  32453. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_create(duk_hthread *thr) {
  32454. duk_hobject *proto;
  32455. DUK_ASSERT_TOP(thr, 2);
  32456. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  32457. duk_hbufobj_promote_plain(thr, 0);
  32458. #endif
  32459. proto = duk_require_hobject_accept_mask(thr, 0, DUK_TYPE_MASK_NULL);
  32460. DUK_ASSERT(proto != NULL || duk_is_null(thr, 0));
  32461. (void) duk_push_object_helper_proto(thr,
  32462. DUK_HOBJECT_FLAG_EXTENSIBLE |
  32463. DUK_HOBJECT_FLAG_FASTREFS |
  32464. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  32465. proto);
  32466. if (!duk_is_undefined(thr, 1)) {
  32467. /* [ O Properties obj ] */
  32468. duk_replace(thr, 0);
  32469. /* [ obj Properties ] */
  32470. /* Just call the "original" Object.defineProperties() to
  32471. * finish up.
  32472. */
  32473. return duk_bi_object_constructor_define_properties(thr);
  32474. }
  32475. /* [ O Properties obj ] */
  32476. return 1;
  32477. }
  32478. #endif /* DUK_USE_OBJECT_BUILTIN */
  32479. #if defined(DUK_USE_OBJECT_BUILTIN)
  32480. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_define_properties(duk_hthread *thr) {
  32481. duk_small_uint_t pass;
  32482. duk_uint_t defprop_flags;
  32483. duk_hobject *obj;
  32484. duk_idx_t idx_value;
  32485. duk_hobject *get;
  32486. duk_hobject *set;
  32487. /* Lightfunc and plain buffer handling by ToObject() coercion. */
  32488. obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  32489. DUK_ASSERT(obj != NULL);
  32490. duk_to_object(thr, 1); /* properties object */
  32491. DUK_DDD(DUK_DDDPRINT("target=%!iT, properties=%!iT",
  32492. (duk_tval *) duk_get_tval(thr, 0),
  32493. (duk_tval *) duk_get_tval(thr, 1)));
  32494. /*
  32495. * Two pass approach to processing the property descriptors.
  32496. * On first pass validate and normalize all descriptors before
  32497. * any changes are made to the target object. On second pass
  32498. * make the actual modifications to the target object.
  32499. *
  32500. * Right now we'll just use the same normalize/validate helper
  32501. * on both passes, ignoring its outputs on the first pass.
  32502. */
  32503. for (pass = 0; pass < 2; pass++) {
  32504. duk_set_top(thr, 2); /* -> [ hobject props ] */
  32505. duk_enum(thr, 1, DUK_ENUM_OWN_PROPERTIES_ONLY | DUK_ENUM_INCLUDE_SYMBOLS /*enum_flags*/);
  32506. for (;;) {
  32507. duk_hstring *key;
  32508. /* [ hobject props enum(props) ] */
  32509. duk_set_top(thr, 3);
  32510. if (!duk_next(thr, 2, 1 /*get_value*/)) {
  32511. break;
  32512. }
  32513. DUK_DDD(DUK_DDDPRINT("-> key=%!iT, desc=%!iT",
  32514. (duk_tval *) duk_get_tval(thr, -2),
  32515. (duk_tval *) duk_get_tval(thr, -1)));
  32516. /* [ hobject props enum(props) key desc ] */
  32517. duk_hobject_prepare_property_descriptor(thr,
  32518. 4 /*idx_desc*/,
  32519. &defprop_flags,
  32520. &idx_value,
  32521. &get,
  32522. &set);
  32523. /* [ hobject props enum(props) key desc [multiple values] ] */
  32524. if (pass == 0) {
  32525. continue;
  32526. }
  32527. /* This allows symbols on purpose. */
  32528. key = duk_known_hstring(thr, 3);
  32529. DUK_ASSERT(key != NULL);
  32530. duk_hobject_define_property_helper(thr,
  32531. defprop_flags,
  32532. obj,
  32533. key,
  32534. idx_value,
  32535. get,
  32536. set,
  32537. 1 /*throw_flag*/);
  32538. }
  32539. }
  32540. /*
  32541. * Return target object
  32542. */
  32543. duk_dup_0(thr);
  32544. return 1;
  32545. }
  32546. #endif /* DUK_USE_OBJECT_BUILTIN */
  32547. #if defined(DUK_USE_OBJECT_BUILTIN)
  32548. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_seal_freeze_shared(duk_hthread *thr) {
  32549. DUK_ASSERT_TOP(thr, 1);
  32550. duk_seal_freeze_raw(thr, 0, (duk_bool_t) duk_get_current_magic(thr) /*is_freeze*/);
  32551. return 1;
  32552. }
  32553. #endif /* DUK_USE_OBJECT_BUILTIN */
  32554. #if defined(DUK_USE_OBJECT_BUILTIN)
  32555. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is_sealed_frozen_shared(duk_hthread *thr) {
  32556. duk_hobject *h;
  32557. duk_bool_t is_frozen;
  32558. duk_uint_t mask;
  32559. is_frozen = (duk_bool_t) duk_get_current_magic(thr);
  32560. mask = duk_get_type_mask(thr, 0);
  32561. if (mask & (DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER)) {
  32562. DUK_ASSERT(is_frozen == 0 || is_frozen == 1);
  32563. duk_push_boolean(thr, (mask & DUK_TYPE_MASK_LIGHTFUNC) ?
  32564. 1 : /* lightfunc always frozen and sealed */
  32565. (is_frozen ^ 1)); /* buffer sealed but not frozen (index props writable) */
  32566. } else {
  32567. /* ES2015 Sections 19.1.2.12, 19.1.2.13: anything other than an object
  32568. * is considered to be already sealed and frozen.
  32569. */
  32570. h = duk_get_hobject(thr, 0);
  32571. duk_push_boolean(thr, (h == NULL) ||
  32572. duk_hobject_object_is_sealed_frozen_helper(thr, h, is_frozen /*is_frozen*/));
  32573. }
  32574. return 1;
  32575. }
  32576. #endif /* DUK_USE_OBJECT_BUILTIN */
  32577. #if defined(DUK_USE_OBJECT_BUILTIN)
  32578. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_to_locale_string(duk_hthread *thr) {
  32579. DUK_ASSERT_TOP(thr, 0);
  32580. (void) duk_push_this_coercible_to_object(thr);
  32581. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_TO_STRING);
  32582. #if 0 /* This is mentioned explicitly in the E5.1 spec, but duk_call_method() checks for it in practice. */
  32583. duk_require_callable(thr, 1);
  32584. #endif
  32585. duk_dup_0(thr); /* -> [ O toString O ] */
  32586. duk_call_method(thr, 0); /* XXX: call method tail call? */
  32587. return 1;
  32588. }
  32589. #endif /* DUK_USE_OBJECT_BUILTIN */
  32590. #if defined(DUK_USE_OBJECT_BUILTIN)
  32591. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_value_of(duk_hthread *thr) {
  32592. /* For lightfuncs and plain buffers, returns Object() coerced. */
  32593. (void) duk_push_this_coercible_to_object(thr);
  32594. return 1;
  32595. }
  32596. #endif /* DUK_USE_OBJECT_BUILTIN */
  32597. #if defined(DUK_USE_OBJECT_BUILTIN)
  32598. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_is_prototype_of(duk_hthread *thr) {
  32599. duk_hobject *h_v;
  32600. duk_hobject *h_obj;
  32601. DUK_ASSERT_TOP(thr, 1);
  32602. h_v = duk_get_hobject(thr, 0);
  32603. if (!h_v) {
  32604. duk_push_false(thr); /* XXX: tail call: return duk_push_false(thr) */
  32605. return 1;
  32606. }
  32607. h_obj = duk_push_this_coercible_to_object(thr);
  32608. DUK_ASSERT(h_obj != NULL);
  32609. /* E5.1 Section 15.2.4.6, step 3.a, lookup proto once before compare.
  32610. * Prototype loops should cause an error to be thrown.
  32611. */
  32612. duk_push_boolean(thr, duk_hobject_prototype_chain_contains(thr, DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_v), h_obj, 0 /*ignore_loop*/));
  32613. return 1;
  32614. }
  32615. #endif /* DUK_USE_OBJECT_BUILTIN */
  32616. #if defined(DUK_USE_OBJECT_BUILTIN)
  32617. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_has_own_property(duk_hthread *thr) {
  32618. return (duk_ret_t) duk_hobject_object_ownprop_helper(thr, 0 /*required_desc_flags*/);
  32619. }
  32620. #endif /* DUK_USE_OBJECT_BUILTIN */
  32621. #if defined(DUK_USE_OBJECT_BUILTIN)
  32622. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_property_is_enumerable(duk_hthread *thr) {
  32623. return (duk_ret_t) duk_hobject_object_ownprop_helper(thr, DUK_PROPDESC_FLAG_ENUMERABLE /*required_desc_flags*/);
  32624. }
  32625. #endif /* DUK_USE_OBJECT_BUILTIN */
  32626. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32627. /* Shared helper to implement Object.getPrototypeOf,
  32628. * Object.prototype.__proto__ getter, and Reflect.getPrototypeOf.
  32629. *
  32630. * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-get-object.prototype.__proto__
  32631. */
  32632. DUK_INTERNAL duk_ret_t duk_bi_object_getprototype_shared(duk_hthread *thr) {
  32633. /*
  32634. * magic = 0: __proto__ getter
  32635. * magic = 1: Object.getPrototypeOf()
  32636. * magic = 2: Reflect.getPrototypeOf()
  32637. */
  32638. duk_hobject *h;
  32639. duk_hobject *proto;
  32640. duk_tval *tv;
  32641. duk_int_t magic;
  32642. magic = duk_get_current_magic(thr);
  32643. if (magic == 0) {
  32644. DUK_ASSERT_TOP(thr, 0);
  32645. duk_push_this_coercible_to_object(thr);
  32646. }
  32647. DUK_ASSERT(duk_get_top(thr) >= 1);
  32648. if (magic < 2) {
  32649. /* ES2015 Section 19.1.2.9, step 1 */
  32650. duk_to_object(thr, 0);
  32651. }
  32652. tv = DUK_GET_TVAL_POSIDX(thr, 0);
  32653. switch (DUK_TVAL_GET_TAG(tv)) {
  32654. case DUK_TAG_BUFFER:
  32655. proto = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  32656. break;
  32657. case DUK_TAG_LIGHTFUNC:
  32658. proto = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE];
  32659. break;
  32660. case DUK_TAG_OBJECT:
  32661. h = DUK_TVAL_GET_OBJECT(tv);
  32662. proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h);
  32663. break;
  32664. default:
  32665. /* This implicitly handles CheckObjectCoercible() caused
  32666. * TypeError.
  32667. */
  32668. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  32669. }
  32670. if (proto != NULL) {
  32671. duk_push_hobject(thr, proto);
  32672. } else {
  32673. duk_push_null(thr);
  32674. }
  32675. return 1;
  32676. }
  32677. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32678. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32679. /* Shared helper to implement ES2015 Object.setPrototypeOf,
  32680. * Object.prototype.__proto__ setter, and Reflect.setPrototypeOf.
  32681. *
  32682. * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-get-object.prototype.__proto__
  32683. * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-object.setprototypeof
  32684. */
  32685. DUK_INTERNAL duk_ret_t duk_bi_object_setprototype_shared(duk_hthread *thr) {
  32686. /*
  32687. * magic = 0: __proto__ setter
  32688. * magic = 1: Object.setPrototypeOf()
  32689. * magic = 2: Reflect.setPrototypeOf()
  32690. */
  32691. duk_hobject *h_obj;
  32692. duk_hobject *h_new_proto;
  32693. duk_hobject *h_curr;
  32694. duk_ret_t ret_success = 1; /* retval for success path */
  32695. duk_uint_t mask;
  32696. duk_int_t magic;
  32697. /* Preliminaries for __proto__ and setPrototypeOf (E6 19.1.2.18 steps 1-4). */
  32698. magic = duk_get_current_magic(thr);
  32699. if (magic == 0) {
  32700. duk_push_this_check_object_coercible(thr);
  32701. duk_insert(thr, 0);
  32702. if (!duk_check_type_mask(thr, 1, DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_OBJECT)) {
  32703. return 0;
  32704. }
  32705. /* __proto__ setter returns 'undefined' on success unlike the
  32706. * setPrototypeOf() call which returns the target object.
  32707. */
  32708. ret_success = 0;
  32709. } else {
  32710. if (magic == 1) {
  32711. duk_require_object_coercible(thr, 0);
  32712. } else {
  32713. duk_require_hobject_accept_mask(thr, 0,
  32714. DUK_TYPE_MASK_LIGHTFUNC |
  32715. DUK_TYPE_MASK_BUFFER);
  32716. }
  32717. duk_require_type_mask(thr, 1, DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_OBJECT);
  32718. }
  32719. h_new_proto = duk_get_hobject(thr, 1);
  32720. /* h_new_proto may be NULL */
  32721. mask = duk_get_type_mask(thr, 0);
  32722. if (mask & (DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER)) {
  32723. duk_hobject *curr_proto;
  32724. curr_proto = thr->builtins[(mask & DUK_TYPE_MASK_LIGHTFUNC) ?
  32725. DUK_BIDX_FUNCTION_PROTOTYPE :
  32726. DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  32727. if (h_new_proto == curr_proto) {
  32728. goto skip;
  32729. }
  32730. goto fail_nonextensible;
  32731. }
  32732. h_obj = duk_get_hobject(thr, 0);
  32733. if (h_obj == NULL) {
  32734. goto skip;
  32735. }
  32736. DUK_ASSERT(h_obj != NULL);
  32737. /* [[SetPrototypeOf]] standard behavior, E6 9.1.2. */
  32738. /* TODO: implement Proxy object support here */
  32739. if (h_new_proto == DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_obj)) {
  32740. goto skip;
  32741. }
  32742. if (!DUK_HOBJECT_HAS_EXTENSIBLE(h_obj)) {
  32743. goto fail_nonextensible;
  32744. }
  32745. for (h_curr = h_new_proto; h_curr != NULL; h_curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_curr)) {
  32746. /* Loop prevention. */
  32747. if (h_curr == h_obj) {
  32748. goto fail_loop;
  32749. }
  32750. }
  32751. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h_obj, h_new_proto);
  32752. /* fall thru */
  32753. skip:
  32754. duk_set_top(thr, 1);
  32755. if (magic == 2) {
  32756. duk_push_true(thr);
  32757. }
  32758. return ret_success;
  32759. fail_nonextensible:
  32760. fail_loop:
  32761. if (magic != 2) {
  32762. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  32763. } else {
  32764. duk_push_false(thr);
  32765. return 1;
  32766. }
  32767. }
  32768. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32769. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32770. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_define_property(duk_hthread *thr) {
  32771. /*
  32772. * magic = 0: Object.defineProperty()
  32773. * magic = 1: Reflect.defineProperty()
  32774. */
  32775. duk_hobject *obj;
  32776. duk_hstring *key;
  32777. duk_hobject *get;
  32778. duk_hobject *set;
  32779. duk_idx_t idx_value;
  32780. duk_uint_t defprop_flags;
  32781. duk_small_uint_t magic;
  32782. duk_bool_t throw_flag;
  32783. duk_bool_t ret;
  32784. DUK_ASSERT(thr != NULL);
  32785. DUK_DDD(DUK_DDDPRINT("Object.defineProperty(): ctx=%p obj=%!T key=%!T desc=%!T",
  32786. (void *) thr,
  32787. (duk_tval *) duk_get_tval(thr, 0),
  32788. (duk_tval *) duk_get_tval(thr, 1),
  32789. (duk_tval *) duk_get_tval(thr, 2)));
  32790. /* [ obj key desc ] */
  32791. magic = (duk_small_uint_t) duk_get_current_magic(thr);
  32792. /* Lightfuncs are currently supported by coercing to a temporary
  32793. * Function object; changes will be allowed (the coerced value is
  32794. * extensible) but will be lost. Same for plain buffers.
  32795. */
  32796. obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  32797. DUK_ASSERT(obj != NULL);
  32798. key = duk_to_property_key_hstring(thr, 1);
  32799. (void) duk_require_hobject(thr, 2);
  32800. DUK_ASSERT(obj != NULL);
  32801. DUK_ASSERT(key != NULL);
  32802. DUK_ASSERT(duk_get_hobject(thr, 2) != NULL);
  32803. /*
  32804. * Validate and convert argument property descriptor (an Ecmascript
  32805. * object) into a set of defprop_flags and possibly property value,
  32806. * getter, and/or setter values on the value stack.
  32807. *
  32808. * Lightfunc set/get values are coerced to full Functions.
  32809. */
  32810. duk_hobject_prepare_property_descriptor(thr,
  32811. 2 /*idx_desc*/,
  32812. &defprop_flags,
  32813. &idx_value,
  32814. &get,
  32815. &set);
  32816. /*
  32817. * Use Object.defineProperty() helper for the actual operation.
  32818. */
  32819. DUK_ASSERT(magic == 0U || magic == 1U);
  32820. throw_flag = magic ^ 1U;
  32821. ret = duk_hobject_define_property_helper(thr,
  32822. defprop_flags,
  32823. obj,
  32824. key,
  32825. idx_value,
  32826. get,
  32827. set,
  32828. throw_flag);
  32829. /* Ignore the normalize/validate helper outputs on the value stack,
  32830. * they're popped automatically.
  32831. */
  32832. if (magic == 0U) {
  32833. /* Object.defineProperty(): return target object. */
  32834. duk_push_hobject(thr, obj);
  32835. } else {
  32836. /* Reflect.defineProperty(): return success/fail. */
  32837. duk_push_boolean(thr, ret);
  32838. }
  32839. return 1;
  32840. }
  32841. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32842. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32843. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_get_own_property_descriptor(duk_hthread *thr) {
  32844. DUK_ASSERT_TOP(thr, 2);
  32845. /* ES2015 Section 19.1.2.6, step 1 */
  32846. if (duk_get_current_magic(thr) == 0) {
  32847. duk_to_object(thr, 0);
  32848. }
  32849. /* [ obj key ] */
  32850. duk_hobject_object_get_own_property_descriptor(thr, -2);
  32851. return 1;
  32852. }
  32853. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32854. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32855. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is_extensible(duk_hthread *thr) {
  32856. /*
  32857. * magic = 0: Object.isExtensible()
  32858. * magic = 1: Reflect.isExtensible()
  32859. */
  32860. duk_hobject *h;
  32861. if (duk_get_current_magic(thr) == 0) {
  32862. h = duk_get_hobject(thr, 0);
  32863. } else {
  32864. /* Reflect.isExtensible(): throw if non-object, but we accept lightfuncs
  32865. * and plain buffers here because they pretend to be objects.
  32866. */
  32867. h = duk_require_hobject_accept_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  32868. }
  32869. duk_push_boolean(thr, (h != NULL) && DUK_HOBJECT_HAS_EXTENSIBLE(h));
  32870. return 1;
  32871. }
  32872. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32873. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32874. /* Shared helper for various key/symbol listings, magic:
  32875. * 0=Object.keys()
  32876. * 1=Object.getOwnPropertyNames(),
  32877. * 2=Object.getOwnPropertySymbols(),
  32878. * 3=Reflect.ownKeys()
  32879. */
  32880. DUK_LOCAL const duk_small_uint_t duk__object_keys_enum_flags[4] = {
  32881. /* Object.keys() */
  32882. DUK_ENUM_OWN_PROPERTIES_ONLY |
  32883. DUK_ENUM_NO_PROXY_BEHAVIOR,
  32884. /* Object.getOwnPropertyNames() */
  32885. DUK_ENUM_INCLUDE_NONENUMERABLE |
  32886. DUK_ENUM_OWN_PROPERTIES_ONLY |
  32887. DUK_ENUM_NO_PROXY_BEHAVIOR,
  32888. /* Object.getOwnPropertySymbols() */
  32889. DUK_ENUM_INCLUDE_SYMBOLS |
  32890. DUK_ENUM_OWN_PROPERTIES_ONLY |
  32891. DUK_ENUM_EXCLUDE_STRINGS |
  32892. DUK_ENUM_INCLUDE_NONENUMERABLE |
  32893. DUK_ENUM_NO_PROXY_BEHAVIOR,
  32894. /* Reflect.ownKeys() */
  32895. DUK_ENUM_INCLUDE_SYMBOLS |
  32896. DUK_ENUM_OWN_PROPERTIES_ONLY |
  32897. DUK_ENUM_INCLUDE_NONENUMERABLE |
  32898. DUK_ENUM_NO_PROXY_BEHAVIOR
  32899. };
  32900. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_keys_shared(duk_hthread *thr) {
  32901. duk_hobject *obj;
  32902. #if defined(DUK_USE_ES6_PROXY)
  32903. duk_hobject *h_proxy_target;
  32904. duk_hobject *h_proxy_handler;
  32905. duk_hobject *h_trap_result;
  32906. #endif
  32907. duk_small_uint_t enum_flags;
  32908. duk_int_t magic;
  32909. DUK_ASSERT_TOP(thr, 1);
  32910. magic = duk_get_current_magic(thr);
  32911. if (magic == 3) {
  32912. /* ES2015 Section 26.1.11 requires a TypeError for non-objects. Lightfuncs
  32913. * and plain buffers pretend to be objects, so accept those too.
  32914. */
  32915. obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  32916. } else {
  32917. /* ES2015: ToObject coerce. */
  32918. obj = duk_to_hobject(thr, 0);
  32919. }
  32920. DUK_ASSERT(obj != NULL);
  32921. DUK_UNREF(obj);
  32922. /* XXX: proxy chains */
  32923. #if defined(DUK_USE_ES6_PROXY)
  32924. /* XXX: better sharing of code between proxy target call sites */
  32925. if (DUK_LIKELY(!duk_hobject_proxy_check(obj,
  32926. &h_proxy_target,
  32927. &h_proxy_handler))) {
  32928. goto skip_proxy;
  32929. }
  32930. duk_push_hobject(thr, h_proxy_handler);
  32931. if (!duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_OWN_KEYS)) {
  32932. /* Careful with reachability here: don't pop 'obj' before pushing
  32933. * proxy target.
  32934. */
  32935. DUK_DDD(DUK_DDDPRINT("no ownKeys trap, get keys of target instead"));
  32936. duk_pop_2(thr);
  32937. duk_push_hobject(thr, h_proxy_target);
  32938. duk_replace(thr, 0);
  32939. DUK_ASSERT_TOP(thr, 1);
  32940. goto skip_proxy;
  32941. }
  32942. /* [ obj handler trap ] */
  32943. duk_insert(thr, -2);
  32944. duk_push_hobject(thr, h_proxy_target); /* -> [ obj trap handler target ] */
  32945. duk_call_method(thr, 1 /*nargs*/); /* -> [ obj trap_result ] */
  32946. h_trap_result = duk_require_hobject(thr, -1);
  32947. DUK_UNREF(h_trap_result);
  32948. magic = duk_get_current_magic(thr);
  32949. DUK_ASSERT(magic >= 0 && magic < (duk_int_t) (sizeof(duk__object_keys_enum_flags) / sizeof(duk_small_uint_t)));
  32950. enum_flags = duk__object_keys_enum_flags[magic];
  32951. duk_proxy_ownkeys_postprocess(thr, h_proxy_target, enum_flags);
  32952. return 1;
  32953. skip_proxy:
  32954. #endif /* DUK_USE_ES6_PROXY */
  32955. DUK_ASSERT_TOP(thr, 1);
  32956. magic = duk_get_current_magic(thr);
  32957. DUK_ASSERT(magic >= 0 && magic < (duk_int_t) (sizeof(duk__object_keys_enum_flags) / sizeof(duk_small_uint_t)));
  32958. enum_flags = duk__object_keys_enum_flags[magic];
  32959. return duk_hobject_get_enumerated_keys(thr, enum_flags);
  32960. }
  32961. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  32962. #if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN)
  32963. DUK_INTERNAL duk_ret_t duk_bi_object_constructor_prevent_extensions(duk_hthread *thr) {
  32964. /*
  32965. * magic = 0: Object.preventExtensions()
  32966. * magic = 1: Reflect.preventExtensions()
  32967. */
  32968. duk_hobject *h;
  32969. duk_uint_t mask;
  32970. duk_int_t magic;
  32971. magic = duk_get_current_magic(thr);
  32972. /* Silent success for lightfuncs and plain buffers always. */
  32973. mask = DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER;
  32974. /* Object.preventExtensions() silent success for non-object. */
  32975. if (magic == 0) {
  32976. mask |= DUK_TYPE_MASK_UNDEFINED |
  32977. DUK_TYPE_MASK_NULL |
  32978. DUK_TYPE_MASK_BOOLEAN |
  32979. DUK_TYPE_MASK_NUMBER |
  32980. DUK_TYPE_MASK_STRING |
  32981. DUK_TYPE_MASK_POINTER;
  32982. }
  32983. if (duk_check_type_mask(thr, 0, mask)) {
  32984. /* Not an object, already non-extensible so always success. */
  32985. goto done;
  32986. }
  32987. h = duk_require_hobject(thr, 0);
  32988. DUK_ASSERT(h != NULL);
  32989. DUK_HOBJECT_CLEAR_EXTENSIBLE(h);
  32990. /* A non-extensible object cannot gain any more properties,
  32991. * so this is a good time to compact.
  32992. */
  32993. duk_hobject_compact_props(thr, h);
  32994. done:
  32995. if (magic == 1) {
  32996. duk_push_true(thr);
  32997. }
  32998. return 1;
  32999. }
  33000. #endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */
  33001. /*
  33002. * __defineGetter__, __defineSetter__, __lookupGetter__, __lookupSetter__
  33003. */
  33004. #if defined(DUK_USE_ES8)
  33005. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_defineaccessor(duk_hthread *thr) {
  33006. duk_push_this(thr);
  33007. duk_insert(thr, 0);
  33008. duk_to_object(thr, 0);
  33009. duk_require_callable(thr, 2);
  33010. /* [ ToObject(this) key getter/setter ] */
  33011. /* ToPropertyKey() coercion is not needed, duk_def_prop() does it. */
  33012. duk_def_prop(thr, 0, DUK_DEFPROP_SET_ENUMERABLE |
  33013. DUK_DEFPROP_SET_CONFIGURABLE |
  33014. (duk_get_current_magic(thr) ? DUK_DEFPROP_HAVE_SETTER : DUK_DEFPROP_HAVE_GETTER));
  33015. return 0;
  33016. }
  33017. DUK_INTERNAL duk_ret_t duk_bi_object_prototype_lookupaccessor(duk_hthread *thr) {
  33018. duk_uint_t sanity;
  33019. duk_push_this(thr);
  33020. duk_to_object(thr, -1);
  33021. /* XXX: Prototype walk (with sanity) should be a core property
  33022. * operation, could add a flag to e.g. duk_get_prop_desc().
  33023. */
  33024. /* ToPropertyKey() coercion is not needed, duk_get_prop_desc() does it. */
  33025. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  33026. while (!duk_is_undefined(thr, -1)) {
  33027. /* [ key obj ] */
  33028. duk_dup(thr, 0);
  33029. duk_get_prop_desc(thr, 1, 0 /*flags*/);
  33030. if (!duk_is_undefined(thr, -1)) {
  33031. duk_get_prop_stridx(thr, -1, (duk_get_current_magic(thr) != 0 ? DUK_STRIDX_SET : DUK_STRIDX_GET));
  33032. return 1;
  33033. }
  33034. duk_pop(thr);
  33035. if (DUK_UNLIKELY(sanity-- == 0)) {
  33036. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  33037. }
  33038. duk_get_prototype(thr, -1);
  33039. duk_remove(thr, -2);
  33040. }
  33041. return 1;
  33042. }
  33043. #endif /* DUK_USE_ES8 */
  33044. #line 1 "duk_bi_performance.c"
  33045. /*
  33046. * High resolution time API (performance.now() et al)
  33047. *
  33048. * API specification: https://encoding.spec.whatwg.org/#ap://www.w3.org/TR/hr-time/
  33049. */
  33050. /* #include duk_internal.h -> already included */
  33051. #if defined(DUK_USE_PERFORMANCE_BUILTIN)
  33052. DUK_INTERNAL duk_ret_t duk_bi_performance_now(duk_hthread *thr) {
  33053. /* From API spec:
  33054. * The DOMHighResTimeStamp type is used to store a time value in
  33055. * milliseconds, measured relative from the time origin, global
  33056. * monotonic clock, or a time value that represents a duration
  33057. * between two DOMHighResTimeStamp's.
  33058. */
  33059. duk_push_number(thr, duk_time_get_monotonic_time(thr));
  33060. return 1;
  33061. }
  33062. #if 0 /* Missing until semantics decided. */
  33063. DUK_INTERNAL duk_ret_t duk_bi_performance_timeorigin_getter(duk_hthread *thr) {
  33064. /* No decision yet how to handle timeOrigins, e.g. should one be
  33065. * initialized per heap, or per global object set. See
  33066. * https://www.w3.org/TR/hr-time/#time-origin.
  33067. */
  33068. duk_push_uint(thr, 0);
  33069. return 1;
  33070. }
  33071. #endif /* 0 */
  33072. #endif /* DUK_USE_PERFORMANCE_BUILTIN */
  33073. #line 1 "duk_bi_pointer.c"
  33074. /*
  33075. * Pointer built-ins
  33076. */
  33077. /* #include duk_internal.h -> already included */
  33078. /*
  33079. * Constructor
  33080. */
  33081. DUK_INTERNAL duk_ret_t duk_bi_pointer_constructor(duk_hthread *thr) {
  33082. /* XXX: this behavior is quite useless now; it would be nice to be able
  33083. * to create pointer values from e.g. numbers or strings. Numbers are
  33084. * problematic on 64-bit platforms though. Hex encoded strings?
  33085. */
  33086. if (duk_get_top(thr) == 0) {
  33087. duk_push_pointer(thr, NULL);
  33088. } else {
  33089. duk_to_pointer(thr, 0);
  33090. }
  33091. DUK_ASSERT(duk_is_pointer(thr, 0));
  33092. duk_set_top(thr, 1);
  33093. if (duk_is_constructor_call(thr)) {
  33094. (void) duk_push_object_helper(thr,
  33095. DUK_HOBJECT_FLAG_EXTENSIBLE |
  33096. DUK_HOBJECT_FLAG_FASTREFS |
  33097. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_POINTER),
  33098. DUK_BIDX_POINTER_PROTOTYPE);
  33099. /* Pointer object internal value is immutable */
  33100. duk_dup_0(thr);
  33101. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE);
  33102. }
  33103. /* Note: unbalanced stack on purpose */
  33104. return 1;
  33105. }
  33106. /*
  33107. * toString(), valueOf()
  33108. */
  33109. DUK_INTERNAL duk_ret_t duk_bi_pointer_prototype_tostring_shared(duk_hthread *thr) {
  33110. duk_tval *tv;
  33111. duk_small_int_t to_string = duk_get_current_magic(thr);
  33112. duk_push_this(thr);
  33113. tv = duk_require_tval(thr, -1);
  33114. DUK_ASSERT(tv != NULL);
  33115. if (DUK_TVAL_IS_POINTER(tv)) {
  33116. /* nop */
  33117. } else if (DUK_TVAL_IS_OBJECT(tv)) {
  33118. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  33119. DUK_ASSERT(h != NULL);
  33120. /* Must be a "pointer object", i.e. class "Pointer" */
  33121. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_POINTER) {
  33122. goto type_error;
  33123. }
  33124. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  33125. } else {
  33126. goto type_error;
  33127. }
  33128. if (to_string) {
  33129. duk_to_string(thr, -1);
  33130. }
  33131. return 1;
  33132. type_error:
  33133. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  33134. }
  33135. #line 1 "duk_bi_promise.c"
  33136. /*
  33137. * Promise built-in
  33138. */
  33139. /* #include duk_internal.h -> already included */
  33140. #if defined(DUK_USE_PROMISE_BUILTIN)
  33141. DUK_INTERNAL duk_ret_t duk_bi_promise_constructor(duk_hthread *thr) {
  33142. DUK_ERROR_TYPE(thr, "unimplemented");
  33143. return 0;
  33144. }
  33145. DUK_INTERNAL duk_ret_t duk_bi_promise_all(duk_hthread *thr) {
  33146. DUK_ERROR_TYPE(thr, "unimplemented");
  33147. return 0;
  33148. }
  33149. DUK_INTERNAL duk_ret_t duk_bi_promise_race(duk_hthread *thr) {
  33150. DUK_ERROR_TYPE(thr, "unimplemented");
  33151. return 0;
  33152. }
  33153. DUK_INTERNAL duk_ret_t duk_bi_promise_reject(duk_hthread *thr) {
  33154. DUK_ERROR_TYPE(thr, "unimplemented");
  33155. return 0;
  33156. }
  33157. DUK_INTERNAL duk_ret_t duk_bi_promise_resolve(duk_hthread *thr) {
  33158. DUK_ERROR_TYPE(thr, "unimplemented");
  33159. return 0;
  33160. }
  33161. DUK_INTERNAL duk_ret_t duk_bi_promise_catch(duk_hthread *thr) {
  33162. DUK_ERROR_TYPE(thr, "unimplemented");
  33163. return 0;
  33164. }
  33165. DUK_INTERNAL duk_ret_t duk_bi_promise_then(duk_hthread *thr) {
  33166. DUK_ERROR_TYPE(thr, "unimplemented");
  33167. return 0;
  33168. }
  33169. #endif /* DUK_USE_PROMISE_BUILTIN */
  33170. #line 1 "duk_bi_proxy.c"
  33171. /*
  33172. * Proxy built-in (ES2015)
  33173. */
  33174. /* #include duk_internal.h -> already included */
  33175. #if defined(DUK_USE_ES6_PROXY)
  33176. /* Post-process a Proxy ownKeys() result at stack top. Push a cleaned up
  33177. * array of valid result keys (strings or symbols). TypeError for invalid
  33178. * values. Flags are shared with duk_enum().
  33179. */
  33180. DUK_INTERNAL void duk_proxy_ownkeys_postprocess(duk_hthread *thr, duk_hobject *h_proxy_target, duk_uint_t flags) {
  33181. duk_uarridx_t i, len, idx;
  33182. duk_propdesc desc;
  33183. DUK_ASSERT_CTX_VALID(thr);
  33184. DUK_ASSERT(h_proxy_target != NULL);
  33185. len = (duk_uarridx_t) duk_get_length(thr, -1);
  33186. idx = 0;
  33187. duk_push_array(thr);
  33188. /* XXX: preallocated dense array, fill in directly */
  33189. for (i = 0; i < len; i++) {
  33190. duk_hstring *h;
  33191. /* [ obj trap_result res_arr ] */
  33192. (void) duk_get_prop_index(thr, -2, i);
  33193. h = duk_get_hstring(thr, -1);
  33194. if (h == NULL) {
  33195. DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr);
  33196. }
  33197. if (!(flags & DUK_ENUM_INCLUDE_NONENUMERABLE)) {
  33198. /* No support for 'getOwnPropertyDescriptor' trap yet,
  33199. * so check enumerability always from target object
  33200. * descriptor.
  33201. */
  33202. if (duk_hobject_get_own_propdesc(thr, h_proxy_target, duk_known_hstring(thr, -1), &desc, 0 /*flags*/)) {
  33203. if ((desc.flags & DUK_PROPDESC_FLAG_ENUMERABLE) == 0) {
  33204. DUK_DDD(DUK_DDDPRINT("ignore non-enumerable property: %!T", duk_get_tval(thr, -1)));
  33205. goto skip_key;
  33206. }
  33207. } else {
  33208. DUK_DDD(DUK_DDDPRINT("ignore non-existent property: %!T", duk_get_tval(thr, -1)));
  33209. goto skip_key;
  33210. }
  33211. }
  33212. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  33213. if (!(flags & DUK_ENUM_INCLUDE_SYMBOLS)) {
  33214. DUK_DDD(DUK_DDDPRINT("ignore symbol property: %!T", duk_get_tval(thr, -1)));
  33215. goto skip_key;
  33216. }
  33217. if (DUK_HSTRING_HAS_HIDDEN(h) && !(flags & DUK_ENUM_INCLUDE_HIDDEN)) {
  33218. DUK_DDD(DUK_DDDPRINT("ignore hidden symbol property: %!T", duk_get_tval(thr, -1)));
  33219. goto skip_key;
  33220. }
  33221. } else {
  33222. if (flags & DUK_ENUM_EXCLUDE_STRINGS) {
  33223. DUK_DDD(DUK_DDDPRINT("ignore string property: %!T", duk_get_tval(thr, -1)));
  33224. goto skip_key;
  33225. }
  33226. }
  33227. /* [ obj trap_result res_arr propname ] */
  33228. duk_put_prop_index(thr, -2, idx++);
  33229. continue;
  33230. skip_key:
  33231. duk_pop(thr);
  33232. continue;
  33233. }
  33234. /* XXX: Missing trap result validation for non-configurable target keys
  33235. * (must be present), for non-extensible target all target keys must be
  33236. * present and no extra keys can be present.
  33237. * http://www.ecma-international.org/ecma-262/6.0/#sec-proxy-object-internal-methods-and-internal-slots-ownpropertykeys
  33238. */
  33239. /* XXX: The key enumerability check should trigger the "getOwnPropertyDescriptor"
  33240. * trap which has not yet been implemented. In the absence of such a trap,
  33241. * the enumerability should be checked from the target object; this is
  33242. * handled above.
  33243. */
  33244. }
  33245. #endif /* DUK_USE_ES6_PROXY */
  33246. #if defined(DUK_USE_ES6_PROXY)
  33247. DUK_INTERNAL duk_ret_t duk_bi_proxy_constructor(duk_hthread *thr) {
  33248. DUK_ASSERT_TOP(thr, 2); /* [ target handler ] */
  33249. duk_require_constructor_call(thr);
  33250. duk_push_proxy(thr, 0 /*flags*/); /* [ target handler ] -> [ proxy ] */
  33251. return 1; /* replacement */
  33252. }
  33253. #endif /* DUK_USE_ES6_PROXY */
  33254. #line 1 "duk_bi_reflect.c"
  33255. /*
  33256. * 'Reflect' built-in (ES2016 Section 26.1)
  33257. * http://www.ecma-international.org/ecma-262/7.0/#sec-reflect-object
  33258. *
  33259. * Many Reflect built-in functions are provided by shared helpers in
  33260. * duk_bi_object.c or duk_bi_function.c.
  33261. */
  33262. /* #include duk_internal.h -> already included */
  33263. #if defined(DUK_USE_REFLECT_BUILTIN)
  33264. DUK_INTERNAL duk_ret_t duk_bi_reflect_object_delete_property(duk_hthread *thr) {
  33265. duk_tval *tv_obj;
  33266. duk_tval *tv_key;
  33267. duk_bool_t ret;
  33268. DUK_ASSERT_TOP(thr, 2);
  33269. (void) duk_require_hobject(thr, 0);
  33270. (void) duk_to_string(thr, 1);
  33271. /* [ target key ] */
  33272. DUK_ASSERT(thr != NULL);
  33273. tv_obj = DUK_GET_TVAL_POSIDX(thr, 0);
  33274. tv_key = DUK_GET_TVAL_POSIDX(thr, 1);
  33275. ret = duk_hobject_delprop(thr, tv_obj, tv_key, 0 /*throw_flag*/);
  33276. duk_push_boolean(thr, ret);
  33277. return 1;
  33278. }
  33279. DUK_INTERNAL duk_ret_t duk_bi_reflect_object_get(duk_hthread *thr) {
  33280. duk_tval *tv_obj;
  33281. duk_tval *tv_key;
  33282. duk_idx_t nargs;
  33283. DUK_ASSERT(thr != NULL);
  33284. nargs = duk_get_top_require_min(thr, 2 /*min_top*/);
  33285. (void) duk_require_hobject(thr, 0);
  33286. (void) duk_to_string(thr, 1);
  33287. if (nargs >= 3 && !duk_strict_equals(thr, 0, 2)) {
  33288. /* XXX: [[Get]] receiver currently unsupported */
  33289. DUK_ERROR_UNSUPPORTED(thr);
  33290. }
  33291. /* [ target key receiver? ...? ] */
  33292. tv_obj = DUK_GET_TVAL_POSIDX(thr, 0);
  33293. tv_key = DUK_GET_TVAL_POSIDX(thr, 1);
  33294. (void) duk_hobject_getprop(thr, tv_obj, tv_key); /* This could also be a duk_get_prop(). */
  33295. return 1;
  33296. }
  33297. DUK_INTERNAL duk_ret_t duk_bi_reflect_object_has(duk_hthread *thr) {
  33298. duk_tval *tv_obj;
  33299. duk_tval *tv_key;
  33300. duk_bool_t ret;
  33301. DUK_ASSERT(thr != NULL);
  33302. DUK_ASSERT_TOP(thr, 2);
  33303. (void) duk_require_hobject(thr, 0);
  33304. (void) duk_to_string(thr, 1);
  33305. /* [ target key ] */
  33306. tv_obj = DUK_GET_TVAL_POSIDX(thr, 0);
  33307. tv_key = DUK_GET_TVAL_POSIDX(thr, 1);
  33308. ret = duk_hobject_hasprop(thr, tv_obj, tv_key);
  33309. duk_push_boolean(thr, ret);
  33310. return 1;
  33311. }
  33312. DUK_INTERNAL duk_ret_t duk_bi_reflect_object_set(duk_hthread *thr) {
  33313. duk_tval *tv_obj;
  33314. duk_tval *tv_key;
  33315. duk_tval *tv_val;
  33316. duk_idx_t nargs;
  33317. duk_bool_t ret;
  33318. DUK_ASSERT(thr != NULL);
  33319. nargs = duk_get_top_require_min(thr, 3 /*min_top*/);
  33320. (void) duk_require_hobject(thr, 0);
  33321. (void) duk_to_string(thr, 1);
  33322. if (nargs >= 4 && !duk_strict_equals(thr, 0, 3)) {
  33323. /* XXX: [[Set]] receiver currently unsupported */
  33324. DUK_ERROR_UNSUPPORTED(thr);
  33325. }
  33326. /* [ target key value receiver? ...? ] */
  33327. tv_obj = DUK_GET_TVAL_POSIDX(thr, 0);
  33328. tv_key = DUK_GET_TVAL_POSIDX(thr, 1);
  33329. tv_val = DUK_GET_TVAL_POSIDX(thr, 2);
  33330. ret = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, 0 /*throw_flag*/);
  33331. duk_push_boolean(thr, ret);
  33332. return 1;
  33333. }
  33334. #endif /* DUK_USE_REFLECT_BUILTIN */
  33335. #line 1 "duk_bi_regexp.c"
  33336. /*
  33337. * RegExp built-ins
  33338. */
  33339. /* #include duk_internal.h -> already included */
  33340. #if defined(DUK_USE_REGEXP_SUPPORT)
  33341. DUK_LOCAL void duk__get_this_regexp(duk_hthread *thr) {
  33342. duk_hobject *h;
  33343. duk_push_this(thr);
  33344. h = duk_require_hobject_with_class(thr, -1, DUK_HOBJECT_CLASS_REGEXP);
  33345. DUK_ASSERT(h != NULL);
  33346. DUK_UNREF(h);
  33347. duk_insert(thr, 0); /* prepend regexp to valstack 0 index */
  33348. }
  33349. /* XXX: much to improve (code size) */
  33350. DUK_INTERNAL duk_ret_t duk_bi_regexp_constructor(duk_hthread *thr) {
  33351. duk_hobject *h_pattern;
  33352. DUK_ASSERT_TOP(thr, 2);
  33353. h_pattern = duk_get_hobject(thr, 0);
  33354. if (!duk_is_constructor_call(thr) &&
  33355. h_pattern != NULL &&
  33356. DUK_HOBJECT_GET_CLASS_NUMBER(h_pattern) == DUK_HOBJECT_CLASS_REGEXP &&
  33357. duk_is_undefined(thr, 1)) {
  33358. /* Called as a function, pattern has [[Class]] "RegExp" and
  33359. * flags is undefined -> return object as is.
  33360. */
  33361. /* XXX: ES2015 has a NewTarget SameValue() check which is not
  33362. * yet implemented.
  33363. */
  33364. duk_dup_0(thr);
  33365. return 1;
  33366. }
  33367. /* Else functionality is identical for function call and constructor
  33368. * call.
  33369. */
  33370. if (h_pattern != NULL &&
  33371. DUK_HOBJECT_GET_CLASS_NUMBER(h_pattern) == DUK_HOBJECT_CLASS_REGEXP) {
  33372. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_SOURCE);
  33373. if (duk_is_undefined(thr, 1)) {
  33374. /* In ES5 one would need to read the flags individually;
  33375. * in ES2015 just read .flags.
  33376. */
  33377. duk_get_prop_stridx(thr, 0, DUK_STRIDX_FLAGS);
  33378. } else {
  33379. /* In ES2015 allowed; overrides argument RegExp flags. */
  33380. duk_dup_1(thr);
  33381. }
  33382. } else {
  33383. if (duk_is_undefined(thr, 0)) {
  33384. duk_push_hstring_empty(thr);
  33385. } else {
  33386. duk_dup_0(thr);
  33387. duk_to_string(thr, -1); /* Rejects Symbols. */
  33388. }
  33389. if (duk_is_undefined(thr, 1)) {
  33390. duk_push_hstring_empty(thr);
  33391. } else {
  33392. duk_dup_1(thr);
  33393. duk_to_string(thr, -1); /* Rejects Symbols. */
  33394. }
  33395. /* [ ... pattern flags ] */
  33396. }
  33397. DUK_DDD(DUK_DDDPRINT("RegExp constructor/function call, pattern=%!T, flags=%!T",
  33398. (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1)));
  33399. /* [ ... pattern flags ] (both uncoerced) */
  33400. duk_to_string(thr, -2);
  33401. duk_to_string(thr, -1);
  33402. duk_regexp_compile(thr);
  33403. /* [ ... bytecode escaped_source ] */
  33404. duk_regexp_create_instance(thr);
  33405. /* [ ... RegExp ] */
  33406. return 1;
  33407. }
  33408. DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_exec(duk_hthread *thr) {
  33409. duk__get_this_regexp(thr);
  33410. /* [ regexp input ] */
  33411. duk_regexp_match(thr);
  33412. /* [ result ] */
  33413. return 1;
  33414. }
  33415. DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_test(duk_hthread *thr) {
  33416. duk__get_this_regexp(thr);
  33417. /* [ regexp input ] */
  33418. /* result object is created and discarded; wasteful but saves code space */
  33419. duk_regexp_match(thr);
  33420. /* [ result ] */
  33421. duk_push_boolean(thr, (duk_is_null(thr, -1) ? 0 : 1));
  33422. return 1;
  33423. }
  33424. DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_tostring(duk_hthread *thr) {
  33425. /* This must be generic in ES2015 and later. */
  33426. DUK_ASSERT_TOP(thr, 0);
  33427. duk_push_this(thr);
  33428. duk_push_string(thr, "/");
  33429. duk_get_prop_stridx(thr, 0, DUK_STRIDX_SOURCE);
  33430. duk_dup_m2(thr); /* another "/" */
  33431. duk_get_prop_stridx(thr, 0, DUK_STRIDX_FLAGS);
  33432. duk_concat(thr, 4);
  33433. return 1;
  33434. }
  33435. DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_flags(duk_hthread *thr) {
  33436. /* .flags is ES2015 but present even when ES2015 bindings are
  33437. * disabled because the constructor relies on it.
  33438. */
  33439. duk_uint8_t buf[8]; /* enough for all flags + NUL */
  33440. duk_uint8_t *p = buf;
  33441. /* .flags is generic and works on any object. */
  33442. duk_push_this(thr);
  33443. (void) duk_require_hobject(thr, -1);
  33444. if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL)) {
  33445. *p++ = DUK_ASC_LC_G;
  33446. }
  33447. if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_IGNORE_CASE, NULL)) {
  33448. *p++ = DUK_ASC_LC_I;
  33449. }
  33450. if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_MULTILINE, NULL)) {
  33451. *p++ = DUK_ASC_LC_M;
  33452. }
  33453. /* .unicode: to be added */
  33454. /* .sticky: to be added */
  33455. *p++ = DUK_ASC_NUL;
  33456. DUK_ASSERT((duk_size_t) (p - buf) <= sizeof(buf));
  33457. duk_push_string(thr, (const char *) buf);
  33458. return 1;
  33459. }
  33460. /* Shared helper for providing .source, .global, .multiline, etc getters. */
  33461. DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_shared_getter(duk_hthread *thr) {
  33462. duk_hstring *h_bc;
  33463. duk_small_uint_t re_flags;
  33464. duk_hobject *h;
  33465. duk_int_t magic;
  33466. DUK_ASSERT_TOP(thr, 0);
  33467. duk_push_this(thr);
  33468. h = duk_require_hobject(thr, -1);
  33469. magic = duk_get_current_magic(thr);
  33470. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_REGEXP) {
  33471. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_INT_SOURCE);
  33472. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_INT_BYTECODE);
  33473. h_bc = duk_require_hstring(thr, -1);
  33474. re_flags = (duk_small_uint_t) DUK_HSTRING_GET_DATA(h_bc)[0]; /* Safe even if h_bc length is 0 (= NUL) */
  33475. duk_pop(thr);
  33476. } else if (h == thr->builtins[DUK_BIDX_REGEXP_PROTOTYPE]) {
  33477. /* In ES2015 and ES2016 a TypeError would be thrown here.
  33478. * However, this had real world issues so ES2017 draft
  33479. * allows RegExp.prototype specifically, returning '(?:)'
  33480. * for .source and undefined for all flags.
  33481. */
  33482. if (magic != 16 /* .source */) {
  33483. return 0;
  33484. }
  33485. duk_push_string(thr, "(?:)"); /* .source handled by switch-case */
  33486. re_flags = 0;
  33487. } else {
  33488. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  33489. }
  33490. /* [ regexp source ] */
  33491. switch (magic) {
  33492. case 0: { /* global */
  33493. duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_GLOBAL));
  33494. break;
  33495. }
  33496. case 1: { /* ignoreCase */
  33497. duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_IGNORE_CASE));
  33498. break;
  33499. }
  33500. case 2: { /* multiline */
  33501. duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_MULTILINE));
  33502. break;
  33503. }
  33504. #if 0
  33505. /* Don't provide until implemented to avoid interfering with feature
  33506. * detection in user code.
  33507. */
  33508. case 3: /* sticky */
  33509. case 4: { /* unicode */
  33510. duk_push_false(thr);
  33511. break;
  33512. }
  33513. #endif
  33514. default: { /* source */
  33515. /* leave 'source' on top */
  33516. break;
  33517. }
  33518. }
  33519. return 1;
  33520. }
  33521. #endif /* DUK_USE_REGEXP_SUPPORT */
  33522. #line 1 "duk_bi_string.c"
  33523. /*
  33524. * String built-ins
  33525. *
  33526. * Most String built-ins must only accept strings (or String objects).
  33527. * Symbols, represented internally as strings, must be generally rejected.
  33528. * The duk_push_this_coercible_to_string() helper does this automatically.
  33529. */
  33530. /* XXX: There are several limitations in the current implementation for
  33531. * strings with >= 0x80000000UL characters. In some cases one would need
  33532. * to be able to represent the range [-0xffffffff,0xffffffff] and so on.
  33533. * Generally character and byte length are assumed to fit into signed 32
  33534. * bits (< 0x80000000UL). Places with issues are not marked explicitly
  33535. * below in all cases, look for signed type usage (duk_int_t etc) for
  33536. * offsets/lengths.
  33537. */
  33538. /* #include duk_internal.h -> already included */
  33539. #if defined(DUK_USE_STRING_BUILTIN)
  33540. /*
  33541. * Helpers
  33542. */
  33543. DUK_LOCAL duk_hstring *duk__str_tostring_notregexp(duk_hthread *thr, duk_idx_t idx) {
  33544. duk_hstring *h;
  33545. if (duk_get_class_number(thr, idx) == DUK_HOBJECT_CLASS_REGEXP) {
  33546. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  33547. }
  33548. h = duk_to_hstring(thr, idx);
  33549. DUK_ASSERT(h != NULL);
  33550. return h;
  33551. }
  33552. DUK_LOCAL duk_int_t duk__str_search_shared(duk_hthread *thr, duk_hstring *h_this, duk_hstring *h_search, duk_int_t start_cpos, duk_bool_t backwards) {
  33553. duk_int_t cpos;
  33554. duk_int_t bpos;
  33555. const duk_uint8_t *p_start, *p_end, *p;
  33556. const duk_uint8_t *q_start;
  33557. duk_int_t q_blen;
  33558. duk_uint8_t firstbyte;
  33559. duk_uint8_t t;
  33560. cpos = start_cpos;
  33561. /* Empty searchstring always matches; cpos must be clamped here.
  33562. * (If q_blen were < 0 due to clamped coercion, it would also be
  33563. * caught here.)
  33564. */
  33565. q_start = DUK_HSTRING_GET_DATA(h_search);
  33566. q_blen = (duk_int_t) DUK_HSTRING_GET_BYTELEN(h_search);
  33567. if (q_blen <= 0) {
  33568. return cpos;
  33569. }
  33570. DUK_ASSERT(q_blen > 0);
  33571. bpos = (duk_int_t) duk_heap_strcache_offset_char2byte(thr, h_this, (duk_uint32_t) cpos);
  33572. p_start = DUK_HSTRING_GET_DATA(h_this);
  33573. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_this);
  33574. p = p_start + bpos;
  33575. /* This loop is optimized for size. For speed, there should be
  33576. * two separate loops, and we should ensure that memcmp() can be
  33577. * used without an extra "will searchstring fit" check. Doing
  33578. * the preconditioning for 'p' and 'p_end' is easy but cpos
  33579. * must be updated if 'p' is wound back (backward scanning).
  33580. */
  33581. firstbyte = q_start[0]; /* leading byte of match string */
  33582. while (p <= p_end && p >= p_start) {
  33583. t = *p;
  33584. /* For Ecmascript strings, this check can only match for
  33585. * initial UTF-8 bytes (not continuation bytes). For other
  33586. * strings all bets are off.
  33587. */
  33588. if ((t == firstbyte) && ((duk_size_t) (p_end - p) >= (duk_size_t) q_blen)) {
  33589. DUK_ASSERT(q_blen > 0); /* no issues with memcmp() zero size, even if broken */
  33590. if (DUK_MEMCMP((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) {
  33591. return cpos;
  33592. }
  33593. }
  33594. /* track cpos while scanning */
  33595. if (backwards) {
  33596. /* when going backwards, we decrement cpos 'early';
  33597. * 'p' may point to a continuation byte of the char
  33598. * at offset 'cpos', but that's OK because we'll
  33599. * backtrack all the way to the initial byte.
  33600. */
  33601. if ((t & 0xc0) != 0x80) {
  33602. cpos--;
  33603. }
  33604. p--;
  33605. } else {
  33606. if ((t & 0xc0) != 0x80) {
  33607. cpos++;
  33608. }
  33609. p++;
  33610. }
  33611. }
  33612. /* Not found. Empty string case is handled specially above. */
  33613. return -1;
  33614. }
  33615. /*
  33616. * Constructor
  33617. */
  33618. DUK_INTERNAL duk_ret_t duk_bi_string_constructor(duk_hthread *thr) {
  33619. duk_hstring *h;
  33620. duk_uint_t flags;
  33621. /* String constructor needs to distinguish between an argument not given at all
  33622. * vs. given as 'undefined'. We're a vararg function to handle this properly.
  33623. */
  33624. /* XXX: copy current activation flags to thr, including current magic,
  33625. * is_constructor_call etc. This takes a few bytes in duk_hthread but
  33626. * makes call sites smaller (there are >30 is_constructor_call and get
  33627. * current magic call sites.
  33628. */
  33629. if (duk_get_top(thr) == 0) {
  33630. duk_push_hstring_empty(thr);
  33631. } else {
  33632. h = duk_to_hstring_acceptsymbol(thr, 0);
  33633. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h) && !duk_is_constructor_call(thr))) {
  33634. duk_push_symbol_descriptive_string(thr, h);
  33635. duk_replace(thr, 0);
  33636. }
  33637. }
  33638. duk_to_string(thr, 0); /* catches symbol argument for constructor call */
  33639. DUK_ASSERT(duk_is_string(thr, 0));
  33640. duk_set_top(thr, 1); /* Top may be 1 or larger. */
  33641. if (duk_is_constructor_call(thr)) {
  33642. /* String object internal value is immutable */
  33643. flags = DUK_HOBJECT_FLAG_EXTENSIBLE |
  33644. DUK_HOBJECT_FLAG_FASTREFS |
  33645. DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ |
  33646. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_STRING);
  33647. duk_push_object_helper(thr, flags, DUK_BIDX_STRING_PROTOTYPE);
  33648. duk_dup_0(thr);
  33649. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE);
  33650. }
  33651. /* Note: unbalanced stack on purpose */
  33652. return 1;
  33653. }
  33654. DUK_LOCAL duk_ret_t duk__construct_from_codepoints(duk_hthread *thr, duk_bool_t nonbmp) {
  33655. duk_bufwriter_ctx bw_alloc;
  33656. duk_bufwriter_ctx *bw;
  33657. duk_idx_t i, n;
  33658. duk_ucodepoint_t cp;
  33659. /* XXX: It would be nice to build the string directly but ToUint16()
  33660. * coercion is needed so a generic helper would not be very
  33661. * helpful (perhaps coerce the value stack first here and then
  33662. * build a string from a duk_tval number sequence in one go?).
  33663. */
  33664. n = duk_get_top(thr);
  33665. bw = &bw_alloc;
  33666. DUK_BW_INIT_PUSHBUF(thr, bw, (duk_size_t) n); /* initial estimate for ASCII only codepoints */
  33667. for (i = 0; i < n; i++) {
  33668. /* XXX: could improve bufwriter handling to write multiple codepoints
  33669. * with one ensure call but the relative benefit would be quite small.
  33670. */
  33671. if (nonbmp) {
  33672. /* ES2015 requires that (1) SameValue(cp, ToInteger(cp)) and
  33673. * (2) cp >= 0 and cp <= 0x10ffff. This check does not
  33674. * implement the steps exactly but the outcome should be
  33675. * the same.
  33676. */
  33677. duk_int32_t i32 = 0;
  33678. if (!duk_is_whole_get_int32(duk_to_number(thr, i), &i32) ||
  33679. i32 < 0 || i32 > 0x10ffffL) {
  33680. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  33681. }
  33682. DUK_ASSERT(i32 >= 0 && i32 <= 0x10ffffL);
  33683. cp = (duk_ucodepoint_t) i32;
  33684. DUK_BW_WRITE_ENSURE_CESU8(thr, bw, cp);
  33685. } else {
  33686. #if defined(DUK_USE_NONSTD_STRING_FROMCHARCODE_32BIT)
  33687. /* ToUint16() coercion is mandatory in the E5.1 specification, but
  33688. * this non-compliant behavior makes more sense because we support
  33689. * non-BMP codepoints. Don't use CESU-8 because that'd create
  33690. * surrogate pairs.
  33691. */
  33692. cp = (duk_ucodepoint_t) duk_to_uint32(thr, i);
  33693. DUK_BW_WRITE_ENSURE_XUTF8(thr, bw, cp);
  33694. #else
  33695. cp = (duk_ucodepoint_t) duk_to_uint16(thr, i);
  33696. DUK_ASSERT(cp >= 0 && cp <= 0x10ffffL);
  33697. DUK_BW_WRITE_ENSURE_CESU8(thr, bw, cp);
  33698. #endif
  33699. }
  33700. }
  33701. DUK_BW_COMPACT(thr, bw);
  33702. (void) duk_buffer_to_string(thr, -1); /* Safe, extended UTF-8 or CESU-8 encoded. */
  33703. return 1;
  33704. }
  33705. DUK_INTERNAL duk_ret_t duk_bi_string_constructor_from_char_code(duk_hthread *thr) {
  33706. return duk__construct_from_codepoints(thr, 0 /*nonbmp*/);
  33707. }
  33708. #if defined(DUK_USE_ES6)
  33709. DUK_INTERNAL duk_ret_t duk_bi_string_constructor_from_code_point(duk_hthread *thr) {
  33710. return duk__construct_from_codepoints(thr, 1 /*nonbmp*/);
  33711. }
  33712. #endif
  33713. /*
  33714. * toString(), valueOf()
  33715. */
  33716. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_to_string(duk_hthread *thr) {
  33717. duk_tval *tv;
  33718. duk_push_this(thr);
  33719. tv = duk_require_tval(thr, -1);
  33720. DUK_ASSERT(tv != NULL);
  33721. if (DUK_TVAL_IS_STRING(tv)) {
  33722. /* return as is */
  33723. } else if (DUK_TVAL_IS_OBJECT(tv)) {
  33724. duk_hobject *h = DUK_TVAL_GET_OBJECT(tv);
  33725. DUK_ASSERT(h != NULL);
  33726. /* Must be a "string object", i.e. class "String" */
  33727. if (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_STRING) {
  33728. goto type_error;
  33729. }
  33730. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE);
  33731. DUK_ASSERT(duk_is_string(thr, -1));
  33732. } else {
  33733. goto type_error;
  33734. }
  33735. (void) duk_require_hstring_notsymbol(thr, -1); /* Reject symbols (and wrapped symbols). */
  33736. return 1;
  33737. type_error:
  33738. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  33739. }
  33740. /*
  33741. * Character and charcode access
  33742. */
  33743. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_char_at(duk_hthread *thr) {
  33744. duk_int_t pos;
  33745. /* XXX: faster implementation */
  33746. (void) duk_push_this_coercible_to_string(thr);
  33747. pos = duk_to_int(thr, 0);
  33748. duk_substring(thr, -1, (duk_size_t) pos, (duk_size_t) (pos + 1));
  33749. return 1;
  33750. }
  33751. /* Magic: 0=charCodeAt, 1=codePointAt */
  33752. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_char_code_at(duk_hthread *thr) {
  33753. duk_int_t pos;
  33754. duk_hstring *h;
  33755. duk_bool_t clamped;
  33756. duk_uint32_t cp;
  33757. duk_int_t magic;
  33758. /* XXX: faster implementation */
  33759. DUK_DDD(DUK_DDDPRINT("arg=%!T", (duk_tval *) duk_get_tval(thr, 0)));
  33760. h = duk_push_this_coercible_to_string(thr);
  33761. DUK_ASSERT(h != NULL);
  33762. pos = duk_to_int_clamped_raw(thr,
  33763. 0 /*index*/,
  33764. 0 /*min(incl)*/,
  33765. (duk_int_t) DUK_HSTRING_GET_CHARLEN(h) - 1 /*max(incl)*/,
  33766. &clamped /*out_clamped*/);
  33767. #if defined(DUK_USE_ES6)
  33768. magic = duk_get_current_magic(thr);
  33769. #else
  33770. DUK_ASSERT(duk_get_current_magic(thr) == 0);
  33771. magic = 0;
  33772. #endif
  33773. if (clamped) {
  33774. /* For out-of-bounds indices .charCodeAt() returns NaN and
  33775. * .codePointAt() returns undefined.
  33776. */
  33777. if (magic != 0) {
  33778. return 0;
  33779. }
  33780. duk_push_nan(thr);
  33781. } else {
  33782. DUK_ASSERT(pos >= 0);
  33783. cp = (duk_uint32_t) duk_hstring_char_code_at_raw(thr, h, (duk_uint_t) pos, (duk_bool_t) magic /*surrogate_aware*/);
  33784. duk_push_u32(thr, cp);
  33785. }
  33786. return 1;
  33787. }
  33788. /*
  33789. * substring(), substr(), slice()
  33790. */
  33791. /* XXX: any chance of merging these three similar but still slightly
  33792. * different algorithms so that footprint would be reduced?
  33793. */
  33794. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_substring(duk_hthread *thr) {
  33795. duk_hstring *h;
  33796. duk_int_t start_pos, end_pos;
  33797. duk_int_t len;
  33798. h = duk_push_this_coercible_to_string(thr);
  33799. DUK_ASSERT(h != NULL);
  33800. len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h);
  33801. /* [ start end str ] */
  33802. start_pos = duk_to_int_clamped(thr, 0, 0, len);
  33803. if (duk_is_undefined(thr, 1)) {
  33804. end_pos = len;
  33805. } else {
  33806. end_pos = duk_to_int_clamped(thr, 1, 0, len);
  33807. }
  33808. DUK_ASSERT(start_pos >= 0 && start_pos <= len);
  33809. DUK_ASSERT(end_pos >= 0 && end_pos <= len);
  33810. if (start_pos > end_pos) {
  33811. duk_int_t tmp = start_pos;
  33812. start_pos = end_pos;
  33813. end_pos = tmp;
  33814. }
  33815. DUK_ASSERT(end_pos >= start_pos);
  33816. duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos);
  33817. return 1;
  33818. }
  33819. #if defined(DUK_USE_SECTION_B)
  33820. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_substr(duk_hthread *thr) {
  33821. duk_hstring *h;
  33822. duk_int_t start_pos, end_pos;
  33823. duk_int_t len;
  33824. /* Unlike non-obsolete String calls, substr() algorithm in E5.1
  33825. * specification will happily coerce undefined and null to strings
  33826. * ("undefined" and "null").
  33827. */
  33828. duk_push_this(thr);
  33829. h = duk_to_hstring_m1(thr); /* Reject Symbols. */
  33830. DUK_ASSERT(h != NULL);
  33831. len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h);
  33832. /* [ start length str ] */
  33833. /* The implementation for computing of start_pos and end_pos differs
  33834. * from the standard algorithm, but is intended to result in the exactly
  33835. * same behavior. This is not always obvious.
  33836. */
  33837. /* combines steps 2 and 5; -len ensures max() not needed for step 5 */
  33838. start_pos = duk_to_int_clamped(thr, 0, -len, len);
  33839. if (start_pos < 0) {
  33840. start_pos = len + start_pos;
  33841. }
  33842. DUK_ASSERT(start_pos >= 0 && start_pos <= len);
  33843. /* combines steps 3, 6; step 7 is not needed */
  33844. if (duk_is_undefined(thr, 1)) {
  33845. end_pos = len;
  33846. } else {
  33847. DUK_ASSERT(start_pos <= len);
  33848. end_pos = start_pos + duk_to_int_clamped(thr, 1, 0, len - start_pos);
  33849. }
  33850. DUK_ASSERT(start_pos >= 0 && start_pos <= len);
  33851. DUK_ASSERT(end_pos >= 0 && end_pos <= len);
  33852. DUK_ASSERT(end_pos >= start_pos);
  33853. duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos);
  33854. return 1;
  33855. }
  33856. #endif /* DUK_USE_SECTION_B */
  33857. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_slice(duk_hthread *thr) {
  33858. duk_hstring *h;
  33859. duk_int_t start_pos, end_pos;
  33860. duk_int_t len;
  33861. h = duk_push_this_coercible_to_string(thr);
  33862. DUK_ASSERT(h != NULL);
  33863. len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h);
  33864. /* [ start end str ] */
  33865. start_pos = duk_to_int_clamped(thr, 0, -len, len);
  33866. if (start_pos < 0) {
  33867. start_pos = len + start_pos;
  33868. }
  33869. if (duk_is_undefined(thr, 1)) {
  33870. end_pos = len;
  33871. } else {
  33872. end_pos = duk_to_int_clamped(thr, 1, -len, len);
  33873. if (end_pos < 0) {
  33874. end_pos = len + end_pos;
  33875. }
  33876. }
  33877. DUK_ASSERT(start_pos >= 0 && start_pos <= len);
  33878. DUK_ASSERT(end_pos >= 0 && end_pos <= len);
  33879. if (end_pos < start_pos) {
  33880. end_pos = start_pos;
  33881. }
  33882. DUK_ASSERT(end_pos >= start_pos);
  33883. duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos);
  33884. return 1;
  33885. }
  33886. /*
  33887. * Case conversion
  33888. */
  33889. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_caseconv_shared(duk_hthread *thr) {
  33890. duk_small_int_t uppercase = duk_get_current_magic(thr);
  33891. (void) duk_push_this_coercible_to_string(thr);
  33892. duk_unicode_case_convert_string(thr, (duk_bool_t) uppercase);
  33893. return 1;
  33894. }
  33895. /*
  33896. * indexOf() and lastIndexOf()
  33897. */
  33898. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_indexof_shared(duk_hthread *thr) {
  33899. duk_hstring *h_this;
  33900. duk_hstring *h_search;
  33901. duk_int_t clen_this;
  33902. duk_int_t cpos;
  33903. duk_small_uint_t is_lastindexof = (duk_small_uint_t) duk_get_current_magic(thr); /* 0=indexOf, 1=lastIndexOf */
  33904. h_this = duk_push_this_coercible_to_string(thr);
  33905. DUK_ASSERT(h_this != NULL);
  33906. clen_this = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h_this);
  33907. h_search = duk_to_hstring(thr, 0);
  33908. DUK_ASSERT(h_search != NULL);
  33909. duk_to_number(thr, 1);
  33910. if (duk_is_nan(thr, 1) && is_lastindexof) {
  33911. /* indexOf: NaN should cause pos to be zero.
  33912. * lastIndexOf: NaN should cause pos to be +Infinity
  33913. * (and later be clamped to len).
  33914. */
  33915. cpos = clen_this;
  33916. } else {
  33917. cpos = duk_to_int_clamped(thr, 1, 0, clen_this);
  33918. }
  33919. cpos = duk__str_search_shared(thr, h_this, h_search, cpos, is_lastindexof /*backwards*/);
  33920. duk_push_int(thr, cpos);
  33921. return 1;
  33922. }
  33923. /*
  33924. * replace()
  33925. */
  33926. /* XXX: the current implementation works but is quite clunky; it compiles
  33927. * to almost 1,4kB of x86 code so it needs to be simplified (better approach,
  33928. * shared helpers, etc). Some ideas for refactoring:
  33929. *
  33930. * - a primitive to convert a string into a regexp matcher (reduces matching
  33931. * code at the cost of making matching much slower)
  33932. * - use replace() as a basic helper for match() and split(), which are both
  33933. * much simpler
  33934. * - API call to get_prop and to_boolean
  33935. */
  33936. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_replace(duk_hthread *thr) {
  33937. duk_hstring *h_input;
  33938. duk_hstring *h_match;
  33939. duk_hstring *h_search;
  33940. duk_hobject *h_re;
  33941. duk_bufwriter_ctx bw_alloc;
  33942. duk_bufwriter_ctx *bw;
  33943. #if defined(DUK_USE_REGEXP_SUPPORT)
  33944. duk_bool_t is_regexp;
  33945. duk_bool_t is_global;
  33946. #endif
  33947. duk_bool_t is_repl_func;
  33948. duk_uint32_t match_start_coff, match_start_boff;
  33949. #if defined(DUK_USE_REGEXP_SUPPORT)
  33950. duk_int_t match_caps;
  33951. #endif
  33952. duk_uint32_t prev_match_end_boff;
  33953. const duk_uint8_t *r_start, *r_end, *r; /* repl string scan */
  33954. duk_size_t tmp_sz;
  33955. DUK_ASSERT_TOP(thr, 2);
  33956. h_input = duk_push_this_coercible_to_string(thr);
  33957. DUK_ASSERT(h_input != NULL);
  33958. bw = &bw_alloc;
  33959. DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input)); /* input size is good output starting point */
  33960. DUK_ASSERT_TOP(thr, 4);
  33961. /* stack[0] = search value
  33962. * stack[1] = replace value
  33963. * stack[2] = input string
  33964. * stack[3] = result buffer
  33965. */
  33966. h_re = duk_get_hobject_with_class(thr, 0, DUK_HOBJECT_CLASS_REGEXP);
  33967. if (h_re) {
  33968. #if defined(DUK_USE_REGEXP_SUPPORT)
  33969. is_regexp = 1;
  33970. is_global = duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL);
  33971. if (is_global) {
  33972. /* start match from beginning */
  33973. duk_push_int(thr, 0);
  33974. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  33975. }
  33976. #else /* DUK_USE_REGEXP_SUPPORT */
  33977. DUK_DCERROR_UNSUPPORTED(thr);
  33978. #endif /* DUK_USE_REGEXP_SUPPORT */
  33979. } else {
  33980. duk_to_string(thr, 0); /* rejects symbols */
  33981. #if defined(DUK_USE_REGEXP_SUPPORT)
  33982. is_regexp = 0;
  33983. is_global = 0;
  33984. #endif
  33985. }
  33986. if (duk_is_function(thr, 1)) {
  33987. is_repl_func = 1;
  33988. r_start = NULL;
  33989. r_end = NULL;
  33990. } else {
  33991. duk_hstring *h_repl;
  33992. is_repl_func = 0;
  33993. h_repl = duk_to_hstring(thr, 1); /* reject symbols */
  33994. DUK_ASSERT(h_repl != NULL);
  33995. r_start = DUK_HSTRING_GET_DATA(h_repl);
  33996. r_end = r_start + DUK_HSTRING_GET_BYTELEN(h_repl);
  33997. }
  33998. prev_match_end_boff = 0;
  33999. for (;;) {
  34000. /*
  34001. * If matching with a regexp:
  34002. * - non-global RegExp: lastIndex not touched on a match, zeroed
  34003. * on a non-match
  34004. * - global RegExp: on match, lastIndex will be updated by regexp
  34005. * executor to point to next char after the matching part (so that
  34006. * characters in the matching part are not matched again)
  34007. *
  34008. * If matching with a string:
  34009. * - always non-global match, find first occurrence
  34010. *
  34011. * We need:
  34012. * - The character offset of start-of-match for the replacer function
  34013. * - The byte offsets for start-of-match and end-of-match to implement
  34014. * the replacement values $&, $`, and $', and to copy non-matching
  34015. * input string portions (including header and trailer) verbatim.
  34016. *
  34017. * NOTE: the E5.1 specification is a bit vague how the RegExp should
  34018. * behave in the replacement process; e.g. is matching done first for
  34019. * all matches (in the global RegExp case) before any replacer calls
  34020. * are made? See: test-bi-string-proto-replace.js for discussion.
  34021. */
  34022. DUK_ASSERT_TOP(thr, 4);
  34023. #if defined(DUK_USE_REGEXP_SUPPORT)
  34024. if (is_regexp) {
  34025. duk_dup_0(thr);
  34026. duk_dup_2(thr);
  34027. duk_regexp_match(thr); /* [ ... regexp input ] -> [ res_obj ] */
  34028. if (!duk_is_object(thr, -1)) {
  34029. duk_pop(thr);
  34030. break;
  34031. }
  34032. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX);
  34033. DUK_ASSERT(duk_is_number(thr, -1));
  34034. match_start_coff = duk_get_uint(thr, -1);
  34035. duk_pop(thr);
  34036. duk_get_prop_index(thr, -1, 0);
  34037. DUK_ASSERT(duk_is_string(thr, -1));
  34038. h_match = duk_known_hstring(thr, -1);
  34039. duk_pop(thr); /* h_match is borrowed, remains reachable through match_obj */
  34040. if (DUK_HSTRING_GET_BYTELEN(h_match) == 0) {
  34041. /* This should be equivalent to match() algorithm step 8.f.iii.2:
  34042. * detect an empty match and allow it, but don't allow it twice.
  34043. */
  34044. duk_uint32_t last_index;
  34045. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34046. last_index = (duk_uint32_t) duk_get_uint(thr, -1);
  34047. DUK_DDD(DUK_DDDPRINT("empty match, bump lastIndex: %ld -> %ld",
  34048. (long) last_index, (long) (last_index + 1)));
  34049. duk_pop(thr);
  34050. duk_push_uint(thr, (duk_uint_t) (last_index + 1));
  34051. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34052. }
  34053. DUK_ASSERT(duk_get_length(thr, -1) <= DUK_INT_MAX); /* string limits */
  34054. match_caps = (duk_int_t) duk_get_length(thr, -1);
  34055. } else {
  34056. #else /* DUK_USE_REGEXP_SUPPORT */
  34057. { /* unconditionally */
  34058. #endif /* DUK_USE_REGEXP_SUPPORT */
  34059. const duk_uint8_t *p_start, *p_end, *p; /* input string scan */
  34060. const duk_uint8_t *q_start; /* match string */
  34061. duk_size_t q_blen;
  34062. #if defined(DUK_USE_REGEXP_SUPPORT)
  34063. DUK_ASSERT(!is_global); /* single match always */
  34064. #endif
  34065. p_start = DUK_HSTRING_GET_DATA(h_input);
  34066. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  34067. p = p_start;
  34068. h_search = duk_known_hstring(thr, 0);
  34069. q_start = DUK_HSTRING_GET_DATA(h_search);
  34070. q_blen = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_search);
  34071. p_end -= q_blen; /* ensure full memcmp() fits in while */
  34072. match_start_coff = 0;
  34073. while (p <= p_end) {
  34074. DUK_ASSERT(p + q_blen <= DUK_HSTRING_GET_DATA(h_input) + DUK_HSTRING_GET_BYTELEN(h_input));
  34075. if (DUK_MEMCMP((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) {
  34076. duk_dup_0(thr);
  34077. h_match = duk_known_hstring(thr, -1);
  34078. #if defined(DUK_USE_REGEXP_SUPPORT)
  34079. match_caps = 0;
  34080. #endif
  34081. goto found;
  34082. }
  34083. /* track utf-8 non-continuation bytes */
  34084. if ((p[0] & 0xc0) != 0x80) {
  34085. match_start_coff++;
  34086. }
  34087. p++;
  34088. }
  34089. /* not found */
  34090. break;
  34091. }
  34092. found:
  34093. /* stack[0] = search value
  34094. * stack[1] = replace value
  34095. * stack[2] = input string
  34096. * stack[3] = result buffer
  34097. * stack[4] = regexp match OR match string
  34098. */
  34099. match_start_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_start_coff);
  34100. tmp_sz = (duk_size_t) (match_start_boff - prev_match_end_boff);
  34101. DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff, tmp_sz);
  34102. prev_match_end_boff = match_start_boff + DUK_HSTRING_GET_BYTELEN(h_match);
  34103. if (is_repl_func) {
  34104. duk_idx_t idx_args;
  34105. duk_hstring *h_repl;
  34106. /* regexp res_obj is at index 4 */
  34107. duk_dup_1(thr);
  34108. idx_args = duk_get_top(thr);
  34109. #if defined(DUK_USE_REGEXP_SUPPORT)
  34110. if (is_regexp) {
  34111. duk_int_t idx;
  34112. duk_require_stack(thr, match_caps + 2);
  34113. for (idx = 0; idx < match_caps; idx++) {
  34114. /* match followed by capture(s) */
  34115. duk_get_prop_index(thr, 4, (duk_uarridx_t) idx);
  34116. }
  34117. } else {
  34118. #else /* DUK_USE_REGEXP_SUPPORT */
  34119. { /* unconditionally */
  34120. #endif /* DUK_USE_REGEXP_SUPPORT */
  34121. /* match == search string, by definition */
  34122. duk_dup_0(thr);
  34123. }
  34124. duk_push_uint(thr, (duk_uint_t) match_start_coff);
  34125. duk_dup_2(thr);
  34126. /* [ ... replacer match [captures] match_char_offset input ] */
  34127. duk_call(thr, duk_get_top(thr) - idx_args);
  34128. h_repl = duk_to_hstring_m1(thr); /* -> [ ... repl_value ] */
  34129. DUK_ASSERT(h_repl != NULL);
  34130. DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_repl);
  34131. duk_pop(thr); /* repl_value */
  34132. } else {
  34133. r = r_start;
  34134. while (r < r_end) {
  34135. duk_int_t ch1;
  34136. duk_int_t ch2;
  34137. #if defined(DUK_USE_REGEXP_SUPPORT)
  34138. duk_int_t ch3;
  34139. #endif
  34140. duk_size_t left;
  34141. ch1 = *r++;
  34142. if (ch1 != DUK_ASC_DOLLAR) {
  34143. goto repl_write;
  34144. }
  34145. DUK_ASSERT(r <= r_end);
  34146. left = (duk_size_t) (r_end - r);
  34147. if (left <= 0) {
  34148. goto repl_write;
  34149. }
  34150. ch2 = r[0];
  34151. switch (ch2) {
  34152. case DUK_ASC_DOLLAR: {
  34153. ch1 = (1 << 8) + DUK_ASC_DOLLAR;
  34154. goto repl_write;
  34155. }
  34156. case DUK_ASC_AMP: {
  34157. DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_match);
  34158. r++;
  34159. continue;
  34160. }
  34161. case DUK_ASC_GRAVE: {
  34162. tmp_sz = (duk_size_t) match_start_boff;
  34163. DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input), tmp_sz);
  34164. r++;
  34165. continue;
  34166. }
  34167. case DUK_ASC_SINGLEQUOTE: {
  34168. duk_uint32_t match_end_boff;
  34169. /* Use match charlen instead of bytelen, just in case the input and
  34170. * match codepoint encodings would have different lengths.
  34171. */
  34172. /* XXX: charlen computed here, and also in char2byte helper. */
  34173. match_end_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr,
  34174. h_input,
  34175. match_start_coff + (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h_match));
  34176. tmp_sz = (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - match_end_boff);
  34177. DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + match_end_boff, tmp_sz);
  34178. r++;
  34179. continue;
  34180. }
  34181. default: {
  34182. #if defined(DUK_USE_REGEXP_SUPPORT)
  34183. duk_int_t capnum, captmp, capadv;
  34184. /* XXX: optional check, match_caps is zero if no regexp,
  34185. * so dollar will be interpreted literally anyway.
  34186. */
  34187. if (!is_regexp) {
  34188. goto repl_write;
  34189. }
  34190. if (!(ch2 >= DUK_ASC_0 && ch2 <= DUK_ASC_9)) {
  34191. goto repl_write;
  34192. }
  34193. capnum = ch2 - DUK_ASC_0;
  34194. capadv = 1;
  34195. if (left >= 2) {
  34196. ch3 = r[1];
  34197. if (ch3 >= DUK_ASC_0 && ch3 <= DUK_ASC_9) {
  34198. captmp = capnum * 10 + (ch3 - DUK_ASC_0);
  34199. if (captmp < match_caps) {
  34200. capnum = captmp;
  34201. capadv = 2;
  34202. }
  34203. }
  34204. }
  34205. if (capnum > 0 && capnum < match_caps) {
  34206. DUK_ASSERT(is_regexp != 0); /* match_caps == 0 without regexps */
  34207. /* regexp res_obj is at offset 4 */
  34208. duk_get_prop_index(thr, 4, (duk_uarridx_t) capnum);
  34209. if (duk_is_string(thr, -1)) {
  34210. duk_hstring *h_tmp_str;
  34211. h_tmp_str = duk_known_hstring(thr, -1);
  34212. DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_tmp_str);
  34213. } else {
  34214. /* undefined -> skip (replaced with empty) */
  34215. }
  34216. duk_pop(thr);
  34217. r += capadv;
  34218. continue;
  34219. } else {
  34220. goto repl_write;
  34221. }
  34222. #else /* DUK_USE_REGEXP_SUPPORT */
  34223. goto repl_write; /* unconditionally */
  34224. #endif /* DUK_USE_REGEXP_SUPPORT */
  34225. } /* default case */
  34226. } /* switch (ch2) */
  34227. repl_write:
  34228. /* ch1 = (r_increment << 8) + byte */
  34229. DUK_BW_WRITE_ENSURE_U8(thr, bw, (duk_uint8_t) (ch1 & 0xff));
  34230. r += ch1 >> 8;
  34231. } /* while repl */
  34232. } /* if (is_repl_func) */
  34233. duk_pop(thr); /* pop regexp res_obj or match string */
  34234. #if defined(DUK_USE_REGEXP_SUPPORT)
  34235. if (!is_global) {
  34236. #else
  34237. { /* unconditionally; is_global==0 */
  34238. #endif
  34239. break;
  34240. }
  34241. }
  34242. /* trailer */
  34243. tmp_sz = (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - prev_match_end_boff);
  34244. DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff, tmp_sz);
  34245. DUK_ASSERT_TOP(thr, 4);
  34246. DUK_BW_COMPACT(thr, bw);
  34247. (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */
  34248. return 1;
  34249. }
  34250. /*
  34251. * split()
  34252. */
  34253. /* XXX: very messy now, but works; clean up, remove unused variables (nomimally
  34254. * used so compiler doesn't complain).
  34255. */
  34256. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_split(duk_hthread *thr) {
  34257. duk_hstring *h_input;
  34258. duk_hstring *h_sep;
  34259. duk_uint32_t limit;
  34260. duk_uint32_t arr_idx;
  34261. #if defined(DUK_USE_REGEXP_SUPPORT)
  34262. duk_bool_t is_regexp;
  34263. #endif
  34264. duk_bool_t matched; /* set to 1 if any match exists (needed for empty input special case) */
  34265. duk_uint32_t prev_match_end_coff, prev_match_end_boff;
  34266. duk_uint32_t match_start_boff, match_start_coff;
  34267. duk_uint32_t match_end_boff, match_end_coff;
  34268. h_input = duk_push_this_coercible_to_string(thr);
  34269. DUK_ASSERT(h_input != NULL);
  34270. duk_push_array(thr);
  34271. if (duk_is_undefined(thr, 1)) {
  34272. limit = 0xffffffffUL;
  34273. } else {
  34274. limit = duk_to_uint32(thr, 1);
  34275. }
  34276. if (limit == 0) {
  34277. return 1;
  34278. }
  34279. /* If the separator is a RegExp, make a "clone" of it. The specification
  34280. * algorithm calls [[Match]] directly for specific indices; we emulate this
  34281. * by tweaking lastIndex and using a "force global" variant of duk_regexp_match()
  34282. * which will use global-style matching even when the RegExp itself is non-global.
  34283. */
  34284. if (duk_is_undefined(thr, 0)) {
  34285. /* The spec algorithm first does "R = ToString(separator)" before checking
  34286. * whether separator is undefined. Since this is side effect free, we can
  34287. * skip the ToString() here.
  34288. */
  34289. duk_dup_2(thr);
  34290. duk_put_prop_index(thr, 3, 0);
  34291. return 1;
  34292. } else if (duk_get_hobject_with_class(thr, 0, DUK_HOBJECT_CLASS_REGEXP) != NULL) {
  34293. #if defined(DUK_USE_REGEXP_SUPPORT)
  34294. duk_push_hobject_bidx(thr, DUK_BIDX_REGEXP_CONSTRUCTOR);
  34295. duk_dup_0(thr);
  34296. duk_new(thr, 1); /* [ ... RegExp val ] -> [ ... res ] */
  34297. duk_replace(thr, 0);
  34298. /* lastIndex is initialized to zero by new RegExp() */
  34299. is_regexp = 1;
  34300. #else
  34301. DUK_DCERROR_UNSUPPORTED(thr);
  34302. #endif
  34303. } else {
  34304. duk_to_string(thr, 0);
  34305. #if defined(DUK_USE_REGEXP_SUPPORT)
  34306. is_regexp = 0;
  34307. #endif
  34308. }
  34309. /* stack[0] = separator (string or regexp)
  34310. * stack[1] = limit
  34311. * stack[2] = input string
  34312. * stack[3] = result array
  34313. */
  34314. prev_match_end_boff = 0;
  34315. prev_match_end_coff = 0;
  34316. arr_idx = 0;
  34317. matched = 0;
  34318. for (;;) {
  34319. /*
  34320. * The specification uses RegExp [[Match]] to attempt match at specific
  34321. * offsets. We don't have such a primitive, so we use an actual RegExp
  34322. * and tweak lastIndex. Since the RegExp may be non-global, we use a
  34323. * special variant which forces global-like behavior for matching.
  34324. */
  34325. DUK_ASSERT_TOP(thr, 4);
  34326. #if defined(DUK_USE_REGEXP_SUPPORT)
  34327. if (is_regexp) {
  34328. duk_dup_0(thr);
  34329. duk_dup_2(thr);
  34330. duk_regexp_match_force_global(thr); /* [ ... regexp input ] -> [ res_obj ] */
  34331. if (!duk_is_object(thr, -1)) {
  34332. duk_pop(thr);
  34333. break;
  34334. }
  34335. matched = 1;
  34336. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX);
  34337. DUK_ASSERT(duk_is_number(thr, -1));
  34338. match_start_coff = duk_get_uint(thr, -1);
  34339. match_start_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_start_coff);
  34340. duk_pop(thr);
  34341. if (match_start_coff == DUK_HSTRING_GET_CHARLEN(h_input)) {
  34342. /* don't allow an empty match at the end of the string */
  34343. duk_pop(thr);
  34344. break;
  34345. }
  34346. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34347. DUK_ASSERT(duk_is_number(thr, -1));
  34348. match_end_coff = duk_get_uint(thr, -1);
  34349. match_end_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_end_coff);
  34350. duk_pop(thr);
  34351. /* empty match -> bump and continue */
  34352. if (prev_match_end_boff == match_end_boff) {
  34353. duk_push_uint(thr, (duk_uint_t) (match_end_coff + 1));
  34354. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34355. duk_pop(thr);
  34356. continue;
  34357. }
  34358. } else {
  34359. #else /* DUK_USE_REGEXP_SUPPORT */
  34360. { /* unconditionally */
  34361. #endif /* DUK_USE_REGEXP_SUPPORT */
  34362. const duk_uint8_t *p_start, *p_end, *p; /* input string scan */
  34363. const duk_uint8_t *q_start; /* match string */
  34364. duk_size_t q_blen, q_clen;
  34365. p_start = DUK_HSTRING_GET_DATA(h_input);
  34366. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input);
  34367. p = p_start + prev_match_end_boff;
  34368. h_sep = duk_known_hstring(thr, 0); /* symbol already rejected above */
  34369. q_start = DUK_HSTRING_GET_DATA(h_sep);
  34370. q_blen = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sep);
  34371. q_clen = (duk_size_t) DUK_HSTRING_GET_CHARLEN(h_sep);
  34372. p_end -= q_blen; /* ensure full memcmp() fits in while */
  34373. match_start_coff = prev_match_end_coff;
  34374. if (q_blen == 0) {
  34375. /* Handle empty separator case: it will always match, and always
  34376. * triggers the check in step 13.c.iii initially. Note that we
  34377. * must skip to either end of string or start of first codepoint,
  34378. * skipping over any continuation bytes!
  34379. *
  34380. * Don't allow an empty string to match at the end of the input.
  34381. */
  34382. matched = 1; /* empty separator can always match */
  34383. match_start_coff++;
  34384. p++;
  34385. while (p < p_end) {
  34386. if ((p[0] & 0xc0) != 0x80) {
  34387. goto found;
  34388. }
  34389. p++;
  34390. }
  34391. goto not_found;
  34392. }
  34393. DUK_ASSERT(q_blen > 0 && q_clen > 0);
  34394. while (p <= p_end) {
  34395. DUK_ASSERT(p + q_blen <= DUK_HSTRING_GET_DATA(h_input) + DUK_HSTRING_GET_BYTELEN(h_input));
  34396. DUK_ASSERT(q_blen > 0); /* no issues with empty memcmp() */
  34397. if (DUK_MEMCMP((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) {
  34398. /* never an empty match, so step 13.c.iii can't be triggered */
  34399. goto found;
  34400. }
  34401. /* track utf-8 non-continuation bytes */
  34402. if ((p[0] & 0xc0) != 0x80) {
  34403. match_start_coff++;
  34404. }
  34405. p++;
  34406. }
  34407. not_found:
  34408. /* not found */
  34409. break;
  34410. found:
  34411. matched = 1;
  34412. match_start_boff = (duk_uint32_t) (p - p_start);
  34413. match_end_coff = (duk_uint32_t) (match_start_coff + q_clen); /* constrained by string length */
  34414. match_end_boff = (duk_uint32_t) (match_start_boff + q_blen); /* ditto */
  34415. /* empty match (may happen with empty separator) -> bump and continue */
  34416. if (prev_match_end_boff == match_end_boff) {
  34417. prev_match_end_boff++;
  34418. prev_match_end_coff++;
  34419. continue;
  34420. }
  34421. } /* if (is_regexp) */
  34422. /* stack[0] = separator (string or regexp)
  34423. * stack[1] = limit
  34424. * stack[2] = input string
  34425. * stack[3] = result array
  34426. * stack[4] = regexp res_obj (if is_regexp)
  34427. */
  34428. DUK_DDD(DUK_DDDPRINT("split; match_start b=%ld,c=%ld, match_end b=%ld,c=%ld, prev_end b=%ld,c=%ld",
  34429. (long) match_start_boff, (long) match_start_coff,
  34430. (long) match_end_boff, (long) match_end_coff,
  34431. (long) prev_match_end_boff, (long) prev_match_end_coff));
  34432. duk_push_lstring(thr,
  34433. (const char *) (DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff),
  34434. (duk_size_t) (match_start_boff - prev_match_end_boff));
  34435. duk_put_prop_index(thr, 3, arr_idx);
  34436. arr_idx++;
  34437. if (arr_idx >= limit) {
  34438. goto hit_limit;
  34439. }
  34440. #if defined(DUK_USE_REGEXP_SUPPORT)
  34441. if (is_regexp) {
  34442. duk_size_t i, len;
  34443. len = duk_get_length(thr, 4);
  34444. for (i = 1; i < len; i++) {
  34445. DUK_ASSERT(i <= DUK_UARRIDX_MAX); /* cannot have >4G captures */
  34446. duk_get_prop_index(thr, 4, (duk_uarridx_t) i);
  34447. duk_put_prop_index(thr, 3, arr_idx);
  34448. arr_idx++;
  34449. if (arr_idx >= limit) {
  34450. goto hit_limit;
  34451. }
  34452. }
  34453. duk_pop(thr);
  34454. /* lastIndex already set up for next match */
  34455. } else {
  34456. #else /* DUK_USE_REGEXP_SUPPORT */
  34457. { /* unconditionally */
  34458. #endif /* DUK_USE_REGEXP_SUPPORT */
  34459. /* no action */
  34460. }
  34461. prev_match_end_boff = match_end_boff;
  34462. prev_match_end_coff = match_end_coff;
  34463. continue;
  34464. } /* for */
  34465. /* Combined step 11 (empty string special case) and 14-15. */
  34466. DUK_DDD(DUK_DDDPRINT("split trailer; prev_end b=%ld,c=%ld",
  34467. (long) prev_match_end_boff, (long) prev_match_end_coff));
  34468. if (DUK_HSTRING_GET_BYTELEN(h_input) > 0 || !matched) {
  34469. /* Add trailer if:
  34470. * a) non-empty input
  34471. * b) empty input and no (zero size) match found (step 11)
  34472. */
  34473. duk_push_lstring(thr,
  34474. (const char *) DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff,
  34475. (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - prev_match_end_boff));
  34476. duk_put_prop_index(thr, 3, arr_idx);
  34477. /* No arr_idx update or limit check */
  34478. }
  34479. return 1;
  34480. hit_limit:
  34481. #if defined(DUK_USE_REGEXP_SUPPORT)
  34482. if (is_regexp) {
  34483. duk_pop(thr);
  34484. }
  34485. #endif
  34486. return 1;
  34487. }
  34488. /*
  34489. * Various
  34490. */
  34491. #if defined(DUK_USE_REGEXP_SUPPORT)
  34492. DUK_LOCAL void duk__to_regexp_helper(duk_hthread *thr, duk_idx_t idx, duk_bool_t force_new) {
  34493. duk_hobject *h;
  34494. /* Shared helper for match() steps 3-4, search() steps 3-4. */
  34495. DUK_ASSERT(idx >= 0);
  34496. if (force_new) {
  34497. goto do_new;
  34498. }
  34499. h = duk_get_hobject_with_class(thr, idx, DUK_HOBJECT_CLASS_REGEXP);
  34500. if (!h) {
  34501. goto do_new;
  34502. }
  34503. return;
  34504. do_new:
  34505. duk_push_hobject_bidx(thr, DUK_BIDX_REGEXP_CONSTRUCTOR);
  34506. duk_dup(thr, idx);
  34507. duk_new(thr, 1); /* [ ... RegExp val ] -> [ ... res ] */
  34508. duk_replace(thr, idx);
  34509. }
  34510. #endif /* DUK_USE_REGEXP_SUPPORT */
  34511. #if defined(DUK_USE_REGEXP_SUPPORT)
  34512. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_search(duk_hthread *thr) {
  34513. /* Easiest way to implement the search required by the specification
  34514. * is to do a RegExp test() with lastIndex forced to zero. To avoid
  34515. * side effects on the argument, "clone" the RegExp if a RegExp was
  34516. * given as input.
  34517. *
  34518. * The global flag of the RegExp should be ignored; setting lastIndex
  34519. * to zero (which happens when "cloning" the RegExp) should have an
  34520. * equivalent effect.
  34521. */
  34522. DUK_ASSERT_TOP(thr, 1);
  34523. (void) duk_push_this_coercible_to_string(thr); /* at index 1 */
  34524. duk__to_regexp_helper(thr, 0 /*index*/, 1 /*force_new*/);
  34525. /* stack[0] = regexp
  34526. * stack[1] = string
  34527. */
  34528. /* Avoid using RegExp.prototype methods, as they're writable and
  34529. * configurable and may have been changed.
  34530. */
  34531. duk_dup_0(thr);
  34532. duk_dup_1(thr); /* [ ... re_obj input ] */
  34533. duk_regexp_match(thr); /* -> [ ... res_obj ] */
  34534. if (!duk_is_object(thr, -1)) {
  34535. duk_push_int(thr, -1);
  34536. return 1;
  34537. }
  34538. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX);
  34539. DUK_ASSERT(duk_is_number(thr, -1));
  34540. return 1;
  34541. }
  34542. #endif /* DUK_USE_REGEXP_SUPPORT */
  34543. #if defined(DUK_USE_REGEXP_SUPPORT)
  34544. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_match(duk_hthread *thr) {
  34545. duk_bool_t global;
  34546. duk_int_t prev_last_index;
  34547. duk_int_t this_index;
  34548. duk_int_t arr_idx;
  34549. DUK_ASSERT_TOP(thr, 1);
  34550. (void) duk_push_this_coercible_to_string(thr);
  34551. duk__to_regexp_helper(thr, 0 /*index*/, 0 /*force_new*/);
  34552. global = duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL);
  34553. DUK_ASSERT_TOP(thr, 2);
  34554. /* stack[0] = regexp
  34555. * stack[1] = string
  34556. */
  34557. if (!global) {
  34558. duk_regexp_match(thr); /* -> [ res_obj ] */
  34559. return 1; /* return 'res_obj' */
  34560. }
  34561. /* Global case is more complex. */
  34562. /* [ regexp string ] */
  34563. duk_push_int(thr, 0);
  34564. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34565. duk_push_array(thr);
  34566. /* [ regexp string res_arr ] */
  34567. prev_last_index = 0;
  34568. arr_idx = 0;
  34569. for (;;) {
  34570. DUK_ASSERT_TOP(thr, 3);
  34571. duk_dup_0(thr);
  34572. duk_dup_1(thr);
  34573. duk_regexp_match(thr); /* -> [ ... regexp string ] -> [ ... res_obj ] */
  34574. if (!duk_is_object(thr, -1)) {
  34575. duk_pop(thr);
  34576. break;
  34577. }
  34578. duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34579. DUK_ASSERT(duk_is_number(thr, -1));
  34580. this_index = duk_get_int(thr, -1);
  34581. duk_pop(thr);
  34582. if (this_index == prev_last_index) {
  34583. this_index++;
  34584. duk_push_int(thr, this_index);
  34585. duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX);
  34586. }
  34587. prev_last_index = this_index;
  34588. duk_get_prop_index(thr, -1, 0); /* match string */
  34589. duk_put_prop_index(thr, 2, (duk_uarridx_t) arr_idx);
  34590. arr_idx++;
  34591. duk_pop(thr); /* res_obj */
  34592. }
  34593. if (arr_idx == 0) {
  34594. duk_push_null(thr);
  34595. }
  34596. return 1; /* return 'res_arr' or 'null' */
  34597. }
  34598. #endif /* DUK_USE_REGEXP_SUPPORT */
  34599. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_concat(duk_hthread *thr) {
  34600. /* duk_concat() coerces arguments with ToString() in correct order */
  34601. (void) duk_push_this_coercible_to_string(thr);
  34602. duk_insert(thr, 0); /* this is relatively expensive */
  34603. duk_concat(thr, duk_get_top(thr));
  34604. return 1;
  34605. }
  34606. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_trim(duk_hthread *thr) {
  34607. DUK_ASSERT_TOP(thr, 0);
  34608. (void) duk_push_this_coercible_to_string(thr);
  34609. duk_trim(thr, 0);
  34610. DUK_ASSERT_TOP(thr, 1);
  34611. return 1;
  34612. }
  34613. #if defined(DUK_USE_ES6)
  34614. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_repeat(duk_hthread *thr) {
  34615. duk_hstring *h_input;
  34616. duk_size_t input_blen;
  34617. duk_size_t result_len;
  34618. duk_int_t count_signed;
  34619. duk_uint_t count;
  34620. const duk_uint8_t *src;
  34621. duk_uint8_t *buf;
  34622. duk_uint8_t *p;
  34623. duk_double_t d;
  34624. #if !defined(DUK_USE_PREFER_SIZE)
  34625. duk_size_t copy_size;
  34626. duk_uint8_t *p_end;
  34627. #endif
  34628. DUK_ASSERT_TOP(thr, 1);
  34629. h_input = duk_push_this_coercible_to_string(thr);
  34630. DUK_ASSERT(h_input != NULL);
  34631. input_blen = DUK_HSTRING_GET_BYTELEN(h_input);
  34632. /* Count is ToNumber() coerced; +Infinity must be always rejected
  34633. * (even if input string is zero length), as well as negative values
  34634. * and -Infinity. -Infinity doesn't require an explicit check
  34635. * because duk_get_int() clamps it to DUK_INT_MIN which gets rejected
  34636. * as a negative value (regardless of input string length).
  34637. */
  34638. d = duk_to_number(thr, 0);
  34639. if (duk_double_is_posinf(d)) {
  34640. goto fail_range;
  34641. }
  34642. count_signed = duk_get_int(thr, 0);
  34643. if (count_signed < 0) {
  34644. goto fail_range;
  34645. }
  34646. count = (duk_uint_t) count_signed;
  34647. /* Overflow check for result length. */
  34648. result_len = count * input_blen;
  34649. if (count != 0 && result_len / count != input_blen) {
  34650. goto fail_range;
  34651. }
  34652. /* Temporary fixed buffer, later converted to string. */
  34653. buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, result_len);
  34654. src = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  34655. #if defined(DUK_USE_PREFER_SIZE)
  34656. p = buf;
  34657. while (count-- > 0) {
  34658. DUK_MEMCPY((void *) p, (const void *) src, input_blen); /* copy size may be zero */
  34659. p += input_blen;
  34660. }
  34661. #else /* DUK_USE_PREFER_SIZE */
  34662. /* Take advantage of already copied pieces to speed up the process
  34663. * especially for small repeated strings.
  34664. */
  34665. p = buf;
  34666. p_end = p + result_len;
  34667. copy_size = input_blen;
  34668. for (;;) {
  34669. duk_size_t remain = (duk_size_t) (p_end - p);
  34670. DUK_DDD(DUK_DDDPRINT("remain=%ld, copy_size=%ld, input_blen=%ld, result_len=%ld",
  34671. (long) remain, (long) copy_size, (long) input_blen,
  34672. (long) result_len));
  34673. if (remain <= copy_size) {
  34674. /* If result_len is zero, this case is taken and does
  34675. * a zero size copy.
  34676. */
  34677. DUK_MEMCPY((void *) p, (const void *) src, remain);
  34678. break;
  34679. } else {
  34680. DUK_MEMCPY((void *) p, (const void *) src, copy_size);
  34681. p += copy_size;
  34682. }
  34683. src = (const duk_uint8_t *) buf; /* Use buf as source for larger copies. */
  34684. copy_size = (duk_size_t) (p - buf);
  34685. }
  34686. #endif /* DUK_USE_PREFER_SIZE */
  34687. /* XXX: It would be useful to be able to create a duk_hstring with
  34688. * a certain byte size whose data area wasn't initialized and which
  34689. * wasn't in the string table yet. This would allow a string to be
  34690. * constructed directly without a buffer temporary and when it was
  34691. * finished, it could be injected into the string table. Currently
  34692. * this isn't possible because duk_hstrings are only tracked by the
  34693. * intern table (they are not in heap_allocated).
  34694. */
  34695. duk_buffer_to_string(thr, -1); /* Safe if input is safe. */
  34696. return 1;
  34697. fail_range:
  34698. DUK_DCERROR_RANGE_INVALID_ARGS(thr);
  34699. }
  34700. #endif /* DUK_USE_ES6 */
  34701. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_locale_compare(duk_hthread *thr) {
  34702. duk_hstring *h1;
  34703. duk_hstring *h2;
  34704. duk_size_t h1_len, h2_len, prefix_len;
  34705. duk_small_int_t ret = 0;
  34706. duk_small_int_t rc;
  34707. /* The current implementation of localeCompare() is simply a codepoint
  34708. * by codepoint comparison, implemented with a simple string compare
  34709. * because UTF-8 should preserve codepoint ordering (assuming valid
  34710. * shortest UTF-8 encoding).
  34711. *
  34712. * The specification requires that the return value must be related
  34713. * to the sort order: e.g. negative means that 'this' comes before
  34714. * 'that' in sort order. We assume an ascending sort order.
  34715. */
  34716. /* XXX: could share code with duk_js_ops.c, duk_js_compare_helper */
  34717. h1 = duk_push_this_coercible_to_string(thr);
  34718. DUK_ASSERT(h1 != NULL);
  34719. h2 = duk_to_hstring(thr, 0);
  34720. DUK_ASSERT(h2 != NULL);
  34721. h1_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1);
  34722. h2_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2);
  34723. prefix_len = (h1_len <= h2_len ? h1_len : h2_len);
  34724. /* Zero size compare not an issue with DUK_MEMCMP. */
  34725. rc = (duk_small_int_t) DUK_MEMCMP((const void *) DUK_HSTRING_GET_DATA(h1),
  34726. (const void *) DUK_HSTRING_GET_DATA(h2),
  34727. (size_t) prefix_len);
  34728. if (rc < 0) {
  34729. ret = -1;
  34730. goto done;
  34731. } else if (rc > 0) {
  34732. ret = 1;
  34733. goto done;
  34734. }
  34735. /* prefix matches, lengths matter now */
  34736. if (h1_len > h2_len) {
  34737. ret = 1;
  34738. goto done;
  34739. } else if (h1_len == h2_len) {
  34740. DUK_ASSERT(ret == 0);
  34741. goto done;
  34742. }
  34743. ret = -1;
  34744. goto done;
  34745. done:
  34746. duk_push_int(thr, (duk_int_t) ret);
  34747. return 1;
  34748. }
  34749. #if defined(DUK_USE_ES6)
  34750. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_startswith_endswith(duk_hthread *thr) {
  34751. duk_int_t magic;
  34752. duk_hstring *h;
  34753. duk_hstring *h_search;
  34754. duk_size_t blen_search;
  34755. const duk_uint8_t *p_cmp_start;
  34756. duk_bool_t result;
  34757. h = duk_push_this_coercible_to_string(thr);
  34758. DUK_ASSERT(h != NULL);
  34759. h_search = duk__str_tostring_notregexp(thr, 0);
  34760. DUK_ASSERT(h_search != NULL);
  34761. magic = duk_get_current_magic(thr);
  34762. p_cmp_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  34763. blen_search = DUK_HSTRING_GET_BYTELEN(h_search);
  34764. if (duk_is_undefined(thr, 1)) {
  34765. if (magic) {
  34766. p_cmp_start += DUK_HSTRING_GET_BYTELEN(h) - blen_search;
  34767. } else {
  34768. /* p_cmp_start already OK */
  34769. }
  34770. } else {
  34771. duk_int_t len;
  34772. duk_int_t pos;
  34773. DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= DUK_INT_MAX);
  34774. len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h);
  34775. pos = duk_to_int_clamped(thr, 1, 0, len);
  34776. DUK_ASSERT(pos >= 0 && pos <= len);
  34777. if (magic) {
  34778. p_cmp_start -= blen_search; /* Conceptually subtracted last, but do already here. */
  34779. }
  34780. DUK_ASSERT(pos >= 0 && pos <= len);
  34781. p_cmp_start += duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) pos);
  34782. }
  34783. /* The main comparison can be done using a memcmp() rather than
  34784. * doing codepoint comparisons: for CESU-8 strings there is a
  34785. * canonical representation for every codepoint. But we do need
  34786. * to deal with the char/byte offset translation to find the
  34787. * comparison range.
  34788. */
  34789. result = 0;
  34790. if (p_cmp_start >= DUK_HSTRING_GET_DATA(h) &&
  34791. (duk_size_t) (p_cmp_start - (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h)) + blen_search <= DUK_HSTRING_GET_BYTELEN(h)) {
  34792. if (DUK_MEMCMP((const void *) p_cmp_start,
  34793. (const void *) DUK_HSTRING_GET_DATA(h_search),
  34794. (size_t) blen_search) == 0) {
  34795. result = 1;
  34796. }
  34797. }
  34798. duk_push_boolean(thr, result);
  34799. return 1;
  34800. }
  34801. #endif /* DUK_USE_ES6 */
  34802. #if defined(DUK_USE_ES6)
  34803. DUK_INTERNAL duk_ret_t duk_bi_string_prototype_includes(duk_hthread *thr) {
  34804. duk_hstring *h;
  34805. duk_hstring *h_search;
  34806. duk_int_t len;
  34807. duk_int_t pos;
  34808. h = duk_push_this_coercible_to_string(thr);
  34809. DUK_ASSERT(h != NULL);
  34810. h_search = duk__str_tostring_notregexp(thr, 0);
  34811. DUK_ASSERT(h_search != NULL);
  34812. len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h);
  34813. pos = duk_to_int_clamped(thr, 1, 0, len);
  34814. DUK_ASSERT(pos >= 0 && pos <= len);
  34815. pos = duk__str_search_shared(thr, h, h_search, pos, 0 /*backwards*/);
  34816. duk_push_boolean(thr, pos >= 0);
  34817. return 1;
  34818. }
  34819. #endif /* DUK_USE_ES6 */
  34820. #endif /* DUK_USE_STRING_BUILTIN */
  34821. #line 1 "duk_bi_symbol.c"
  34822. /*
  34823. * Symbol built-in
  34824. */
  34825. /* #include duk_internal.h -> already included */
  34826. #if defined(DUK_USE_SYMBOL_BUILTIN)
  34827. /*
  34828. * Constructor
  34829. */
  34830. DUK_INTERNAL duk_ret_t duk_bi_symbol_constructor_shared(duk_hthread *thr) {
  34831. const duk_uint8_t *desc;
  34832. duk_size_t len;
  34833. duk_uint8_t *buf;
  34834. duk_uint8_t *p;
  34835. duk_int_t magic;
  34836. magic = duk_get_current_magic(thr);
  34837. if (duk_is_undefined(thr, 0) && (magic == 0)) {
  34838. /* Symbol() accepts undefined and empty string, but they are
  34839. * treated differently.
  34840. */
  34841. desc = NULL;
  34842. len = 0;
  34843. } else {
  34844. /* Symbol.for() coerces undefined to 'undefined' */
  34845. desc = (const duk_uint8_t *) duk_to_lstring(thr, 0, &len);
  34846. }
  34847. /* Maximum symbol data length:
  34848. * +1 initial byte (0x80 or 0x81)
  34849. * +len description
  34850. * +1 0xff after description, before unique suffix
  34851. * +17 autogenerated unique suffix: 'ffffffff-ffffffff' is longest
  34852. * +1 0xff after unique suffix for symbols with undefined description
  34853. */
  34854. buf = (duk_uint8_t *) duk_push_fixed_buffer(thr, 1 + len + 1 + 17 + 1);
  34855. p = buf + 1;
  34856. DUK_ASSERT(desc != NULL || len == 0); /* may be NULL if len is 0 */
  34857. DUK_MEMCPY((void *) p, (const void *) desc, len);
  34858. p += len;
  34859. if (magic == 0) {
  34860. /* Symbol(): create unique symbol. Use two 32-bit values
  34861. * to avoid dependency on 64-bit types and 64-bit integer
  34862. * formatting (at least for now).
  34863. */
  34864. if (++thr->heap->sym_counter[0] == 0) {
  34865. thr->heap->sym_counter[1]++;
  34866. }
  34867. p += DUK_SPRINTF((char *) p, "\xFF" "%lx-%lx",
  34868. (unsigned long) thr->heap->sym_counter[1],
  34869. (unsigned long) thr->heap->sym_counter[0]);
  34870. if (desc == NULL) {
  34871. /* Special case for 'undefined' description, trailing
  34872. * 0xff distinguishes from empty string description,
  34873. * but needs minimal special case handling elsewhere.
  34874. */
  34875. *p++ = 0xff;
  34876. }
  34877. buf[0] = 0x81;
  34878. } else {
  34879. /* Symbol.for(): create a global symbol */
  34880. buf[0] = 0x80;
  34881. }
  34882. duk_push_lstring(thr, (const char *) buf, (duk_size_t) (p - buf));
  34883. DUK_DDD(DUK_DDDPRINT("created symbol: %!T", duk_get_tval(thr, -1)));
  34884. return 1;
  34885. }
  34886. DUK_LOCAL duk_hstring *duk__auto_unbox_symbol(duk_hthread *thr, duk_tval *tv_arg) {
  34887. duk_tval *tv;
  34888. duk_tval tv_val;
  34889. duk_hobject *h_obj;
  34890. duk_hstring *h_str;
  34891. DUK_ASSERT(tv_arg != NULL);
  34892. /* XXX: add internal helper: duk_auto_unbox_tval(thr, tv, mask); */
  34893. /* XXX: add internal helper: duk_auto_unbox(thr, tv, idx); */
  34894. tv = tv_arg;
  34895. if (DUK_TVAL_IS_OBJECT(tv)) {
  34896. h_obj = DUK_TVAL_GET_OBJECT(tv);
  34897. DUK_ASSERT(h_obj != NULL);
  34898. if (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_SYMBOL) {
  34899. if (!duk_hobject_get_internal_value(thr->heap, h_obj, &tv_val)) {
  34900. return NULL;
  34901. }
  34902. tv = &tv_val;
  34903. } else {
  34904. return NULL;
  34905. }
  34906. }
  34907. if (!DUK_TVAL_IS_STRING(tv)) {
  34908. return NULL;
  34909. }
  34910. h_str = DUK_TVAL_GET_STRING(tv);
  34911. DUK_ASSERT(h_str != NULL);
  34912. /* Here symbol is more expected than not. */
  34913. if (DUK_UNLIKELY(!DUK_HSTRING_HAS_SYMBOL(h_str))) {
  34914. return NULL;
  34915. }
  34916. return h_str;
  34917. }
  34918. DUK_INTERNAL duk_ret_t duk_bi_symbol_tostring_shared(duk_hthread *thr) {
  34919. duk_hstring *h_str;
  34920. h_str = duk__auto_unbox_symbol(thr, DUK_HTHREAD_THIS_PTR(thr));
  34921. if (h_str == NULL) {
  34922. return DUK_RET_TYPE_ERROR;
  34923. }
  34924. if (duk_get_current_magic(thr) == 0) {
  34925. /* .toString() */
  34926. duk_push_symbol_descriptive_string(thr, h_str);
  34927. } else {
  34928. /* .valueOf() */
  34929. duk_push_hstring(thr, h_str);
  34930. }
  34931. return 1;
  34932. }
  34933. DUK_INTERNAL duk_ret_t duk_bi_symbol_key_for(duk_hthread *thr) {
  34934. duk_hstring *h;
  34935. const duk_uint8_t *p;
  34936. /* Argument must be a symbol but not checked here. The initial byte
  34937. * check will catch non-symbol strings.
  34938. */
  34939. h = duk_require_hstring(thr, 0);
  34940. DUK_ASSERT(h != NULL);
  34941. p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  34942. DUK_ASSERT(p != NULL);
  34943. /* Even for zero length strings there's at least one NUL byte so
  34944. * we can safely check the initial byte.
  34945. */
  34946. if (p[0] == 0x80) {
  34947. /* Global symbol, return its key (bytes just after the initial byte). */
  34948. duk_push_lstring(thr, (const char *) (p + 1), (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h) - 1));
  34949. return 1;
  34950. } else if (p[0] == 0x81 || p[0] == 0x82 || p[0] == 0xff) {
  34951. /* Local symbol or hidden symbol, return undefined. */
  34952. return 0;
  34953. }
  34954. /* Covers normal strings and unknown initial bytes. */
  34955. return DUK_RET_TYPE_ERROR;
  34956. }
  34957. DUK_INTERNAL duk_ret_t duk_bi_symbol_toprimitive(duk_hthread *thr) {
  34958. duk_hstring *h_str;
  34959. h_str = duk__auto_unbox_symbol(thr, DUK_HTHREAD_THIS_PTR(thr));
  34960. if (h_str == NULL) {
  34961. return DUK_RET_TYPE_ERROR;
  34962. }
  34963. duk_push_hstring(thr, h_str);
  34964. return 1;
  34965. }
  34966. #endif /* DUK_USE_SYMBOL_BUILTIN */
  34967. #line 1 "duk_bi_thread.c"
  34968. /*
  34969. * Thread builtins
  34970. */
  34971. /* #include duk_internal.h -> already included */
  34972. /*
  34973. * Constructor
  34974. */
  34975. #if defined(DUK_USE_COROUTINE_SUPPORT)
  34976. DUK_INTERNAL duk_ret_t duk_bi_thread_constructor(duk_hthread *thr) {
  34977. duk_hthread *new_thr;
  34978. duk_hobject *func;
  34979. /* Check that the argument is callable; this is not 100% because we
  34980. * don't allow native functions to be a thread's initial function.
  34981. * Resume will reject such functions in any case.
  34982. */
  34983. /* XXX: need a duk_require_func_promote_lfunc() */
  34984. func = duk_require_hobject_promote_lfunc(thr, 0);
  34985. DUK_ASSERT(func != NULL);
  34986. duk_require_callable(thr, 0);
  34987. duk_push_thread(thr);
  34988. new_thr = (duk_hthread *) duk_known_hobject(thr, -1);
  34989. new_thr->state = DUK_HTHREAD_STATE_INACTIVE;
  34990. /* push initial function call to new thread stack; this is
  34991. * picked up by resume().
  34992. */
  34993. duk_push_hobject(new_thr, func);
  34994. return 1; /* return thread */
  34995. }
  34996. #endif
  34997. /*
  34998. * Resume a thread.
  34999. *
  35000. * The thread must be in resumable state, either (a) new thread which hasn't
  35001. * yet started, or (b) a thread which has previously yielded. This method
  35002. * must be called from an Ecmascript function.
  35003. *
  35004. * Args:
  35005. * - thread
  35006. * - value
  35007. * - isError (defaults to false)
  35008. *
  35009. * Note: yield and resume handling is currently asymmetric.
  35010. */
  35011. #if defined(DUK_USE_COROUTINE_SUPPORT)
  35012. DUK_INTERNAL duk_ret_t duk_bi_thread_resume(duk_hthread *ctx) {
  35013. duk_hthread *thr = (duk_hthread *) ctx;
  35014. duk_hthread *thr_resume;
  35015. duk_hobject *caller_func;
  35016. duk_small_uint_t is_error;
  35017. DUK_DDD(DUK_DDDPRINT("Duktape.Thread.resume(): thread=%!T, value=%!T, is_error=%!T",
  35018. (duk_tval *) duk_get_tval(thr, 0),
  35019. (duk_tval *) duk_get_tval(thr, 1),
  35020. (duk_tval *) duk_get_tval(thr, 2)));
  35021. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING);
  35022. DUK_ASSERT(thr->heap->curr_thread == thr);
  35023. thr_resume = duk_require_hthread(thr, 0);
  35024. is_error = (duk_small_uint_t) duk_to_boolean(thr, 2);
  35025. duk_set_top(thr, 2);
  35026. /* [ thread value ] */
  35027. /*
  35028. * Thread state and calling context checks
  35029. */
  35030. if (thr->callstack_top < 2) {
  35031. DUK_DD(DUK_DDPRINT("resume state invalid: callstack should contain at least 2 entries (caller and Duktape.Thread.resume)"));
  35032. goto state_error;
  35033. }
  35034. DUK_ASSERT(thr->callstack_curr != NULL);
  35035. DUK_ASSERT(thr->callstack_curr->parent != NULL);
  35036. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); /* us */
  35037. DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  35038. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL); /* caller */
  35039. caller_func = DUK_ACT_GET_FUNC(thr->callstack_curr->parent);
  35040. if (!DUK_HOBJECT_IS_COMPFUNC(caller_func)) {
  35041. DUK_DD(DUK_DDPRINT("resume state invalid: caller must be Ecmascript code"));
  35042. goto state_error;
  35043. }
  35044. /* Note: there is no requirement that: 'thr->callstack_preventcount == 1'
  35045. * like for yield.
  35046. */
  35047. if (thr_resume->state != DUK_HTHREAD_STATE_INACTIVE &&
  35048. thr_resume->state != DUK_HTHREAD_STATE_YIELDED) {
  35049. DUK_DD(DUK_DDPRINT("resume state invalid: target thread must be INACTIVE or YIELDED"));
  35050. goto state_error;
  35051. }
  35052. DUK_ASSERT(thr_resume->state == DUK_HTHREAD_STATE_INACTIVE ||
  35053. thr_resume->state == DUK_HTHREAD_STATE_YIELDED);
  35054. /* Further state-dependent pre-checks */
  35055. if (thr_resume->state == DUK_HTHREAD_STATE_YIELDED) {
  35056. /* no pre-checks now, assume a previous yield() has left things in
  35057. * tip-top shape (longjmp handler will assert for these).
  35058. */
  35059. } else {
  35060. duk_hobject *h_fun;
  35061. DUK_ASSERT(thr_resume->state == DUK_HTHREAD_STATE_INACTIVE);
  35062. /* The initial function must be an Ecmascript function (but
  35063. * can be bound). We must make sure of that before we longjmp
  35064. * because an error in the RESUME handler call processing will
  35065. * not be handled very cleanly.
  35066. */
  35067. if ((thr_resume->callstack_top != 0) ||
  35068. (thr_resume->valstack_top - thr_resume->valstack != 1)) {
  35069. goto state_error;
  35070. }
  35071. duk_push_tval(thr, DUK_GET_TVAL_NEGIDX(thr_resume, -1));
  35072. duk_resolve_nonbound_function(thr);
  35073. h_fun = duk_require_hobject(thr, -1); /* reject lightfuncs on purpose */
  35074. if (!DUK_HOBJECT_IS_CALLABLE(h_fun) || !DUK_HOBJECT_IS_COMPFUNC(h_fun)) {
  35075. goto state_error;
  35076. }
  35077. duk_pop(thr);
  35078. }
  35079. /*
  35080. * The error object has been augmented with a traceback and other
  35081. * info from its creation point -- usually another thread. The
  35082. * error handler is called here right before throwing, but it also
  35083. * runs in the resumer's thread. It might be nice to get a traceback
  35084. * from the resumee but this is not the case now.
  35085. */
  35086. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  35087. if (is_error) {
  35088. DUK_ASSERT_TOP(thr, 2); /* value (error) is at stack top */
  35089. duk_err_augment_error_throw(thr); /* in resumer's context */
  35090. }
  35091. #endif
  35092. #if defined(DUK_USE_DEBUG)
  35093. if (is_error) {
  35094. DUK_DDD(DUK_DDDPRINT("RESUME ERROR: thread=%!T, value=%!T",
  35095. (duk_tval *) duk_get_tval(thr, 0),
  35096. (duk_tval *) duk_get_tval(thr, 1)));
  35097. } else if (thr_resume->state == DUK_HTHREAD_STATE_YIELDED) {
  35098. DUK_DDD(DUK_DDDPRINT("RESUME NORMAL: thread=%!T, value=%!T",
  35099. (duk_tval *) duk_get_tval(thr, 0),
  35100. (duk_tval *) duk_get_tval(thr, 1)));
  35101. } else {
  35102. DUK_DDD(DUK_DDDPRINT("RESUME INITIAL: thread=%!T, value=%!T",
  35103. (duk_tval *) duk_get_tval(thr, 0),
  35104. (duk_tval *) duk_get_tval(thr, 1)));
  35105. }
  35106. #endif
  35107. thr->heap->lj.type = DUK_LJ_TYPE_RESUME;
  35108. /* lj value2: thread */
  35109. DUK_ASSERT(thr->valstack_bottom < thr->valstack_top);
  35110. DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value2, &thr->valstack_bottom[0]); /* side effects */
  35111. /* lj value1: value */
  35112. DUK_ASSERT(thr->valstack_bottom + 1 < thr->valstack_top);
  35113. DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value1, &thr->valstack_bottom[1]); /* side effects */
  35114. DUK_TVAL_CHKFAST_INPLACE_SLOW(&thr->heap->lj.value1);
  35115. thr->heap->lj.iserror = is_error;
  35116. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* call is from executor, so we know we have a jmpbuf */
  35117. duk_err_longjmp(thr); /* execution resumes in bytecode executor */
  35118. DUK_UNREACHABLE();
  35119. /* Never here, fall through to error (from compiler point of view). */
  35120. state_error:
  35121. DUK_DCERROR_TYPE_INVALID_STATE(thr);
  35122. }
  35123. #endif
  35124. /*
  35125. * Yield the current thread.
  35126. *
  35127. * The thread must be in yieldable state: it must have a resumer, and there
  35128. * must not be any yield-preventing calls (native calls and constructor calls,
  35129. * currently) in the thread's call stack (otherwise a resume would not be
  35130. * possible later). This method must be called from an Ecmascript function.
  35131. *
  35132. * Args:
  35133. * - value
  35134. * - isError (defaults to false)
  35135. *
  35136. * Note: yield and resume handling is currently asymmetric.
  35137. */
  35138. #if defined(DUK_USE_COROUTINE_SUPPORT)
  35139. DUK_INTERNAL duk_ret_t duk_bi_thread_yield(duk_hthread *thr) {
  35140. duk_hobject *caller_func;
  35141. duk_small_uint_t is_error;
  35142. DUK_DDD(DUK_DDDPRINT("Duktape.Thread.yield(): value=%!T, is_error=%!T",
  35143. (duk_tval *) duk_get_tval(thr, 0),
  35144. (duk_tval *) duk_get_tval(thr, 1)));
  35145. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING);
  35146. DUK_ASSERT(thr->heap->curr_thread == thr);
  35147. is_error = (duk_small_uint_t) duk_to_boolean(thr, 1);
  35148. duk_set_top(thr, 1);
  35149. /* [ value ] */
  35150. /*
  35151. * Thread state and calling context checks
  35152. */
  35153. if (!thr->resumer) {
  35154. DUK_DD(DUK_DDPRINT("yield state invalid: current thread must have a resumer"));
  35155. goto state_error;
  35156. }
  35157. DUK_ASSERT(thr->resumer->state == DUK_HTHREAD_STATE_RESUMED);
  35158. if (thr->callstack_top < 2) {
  35159. DUK_DD(DUK_DDPRINT("yield state invalid: callstack should contain at least 2 entries (caller and Duktape.Thread.yield)"));
  35160. goto state_error;
  35161. }
  35162. DUK_ASSERT(thr->callstack_curr != NULL);
  35163. DUK_ASSERT(thr->callstack_curr->parent != NULL);
  35164. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); /* us */
  35165. DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  35166. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL); /* caller */
  35167. caller_func = DUK_ACT_GET_FUNC(thr->callstack_curr->parent);
  35168. if (!DUK_HOBJECT_IS_COMPFUNC(caller_func)) {
  35169. DUK_DD(DUK_DDPRINT("yield state invalid: caller must be Ecmascript code"));
  35170. goto state_error;
  35171. }
  35172. DUK_ASSERT(thr->callstack_preventcount >= 1); /* should never be zero, because we (Duktape.Thread.yield) are on the stack */
  35173. if (thr->callstack_preventcount != 1) {
  35174. /* Note: the only yield-preventing call is Duktape.Thread.yield(), hence check for 1, not 0 */
  35175. DUK_DD(DUK_DDPRINT("yield state invalid: there must be no yield-preventing calls in current thread callstack (preventcount is %ld)",
  35176. (long) thr->callstack_preventcount));
  35177. goto state_error;
  35178. }
  35179. /*
  35180. * The error object has been augmented with a traceback and other
  35181. * info from its creation point -- usually the current thread.
  35182. * The error handler, however, is called right before throwing
  35183. * and runs in the yielder's thread.
  35184. */
  35185. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  35186. if (is_error) {
  35187. DUK_ASSERT_TOP(thr, 1); /* value (error) is at stack top */
  35188. duk_err_augment_error_throw(thr); /* in yielder's context */
  35189. }
  35190. #endif
  35191. #if defined(DUK_USE_DEBUG)
  35192. if (is_error) {
  35193. DUK_DDD(DUK_DDDPRINT("YIELD ERROR: value=%!T",
  35194. (duk_tval *) duk_get_tval(thr, 0)));
  35195. } else {
  35196. DUK_DDD(DUK_DDDPRINT("YIELD NORMAL: value=%!T",
  35197. (duk_tval *) duk_get_tval(thr, 0)));
  35198. }
  35199. #endif
  35200. /*
  35201. * Process yield
  35202. *
  35203. * After longjmp(), processing continues in bytecode executor longjmp
  35204. * handler, which will e.g. update thr->resumer to NULL.
  35205. */
  35206. thr->heap->lj.type = DUK_LJ_TYPE_YIELD;
  35207. /* lj value1: value */
  35208. DUK_ASSERT(thr->valstack_bottom < thr->valstack_top);
  35209. DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value1, &thr->valstack_bottom[0]); /* side effects */
  35210. DUK_TVAL_CHKFAST_INPLACE_SLOW(&thr->heap->lj.value1);
  35211. thr->heap->lj.iserror = is_error;
  35212. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* call is from executor, so we know we have a jmpbuf */
  35213. duk_err_longjmp(thr); /* execution resumes in bytecode executor */
  35214. DUK_UNREACHABLE();
  35215. /* Never here, fall through to error (from compiler point of view). */
  35216. state_error:
  35217. DUK_DCERROR_TYPE_INVALID_STATE(thr);
  35218. }
  35219. #endif
  35220. #if defined(DUK_USE_COROUTINE_SUPPORT)
  35221. DUK_INTERNAL duk_ret_t duk_bi_thread_current(duk_hthread *thr) {
  35222. duk_push_current_thread(thr);
  35223. return 1;
  35224. }
  35225. #endif
  35226. #line 1 "duk_bi_thrower.c"
  35227. /*
  35228. * Type error thrower, E5 Section 13.2.3.
  35229. */
  35230. /* #include duk_internal.h -> already included */
  35231. DUK_INTERNAL duk_ret_t duk_bi_type_error_thrower(duk_hthread *thr) {
  35232. DUK_DCERROR_TYPE_INVALID_ARGS(thr);
  35233. }
  35234. #line 1 "duk_debug_fixedbuffer.c"
  35235. /*
  35236. * Fixed buffer helper useful for debugging, requires no allocation
  35237. * which is critical for debugging.
  35238. */
  35239. /* #include duk_internal.h -> already included */
  35240. #if defined(DUK_USE_DEBUG)
  35241. DUK_INTERNAL void duk_fb_put_bytes(duk_fixedbuffer *fb, const duk_uint8_t *buffer, duk_size_t length) {
  35242. duk_size_t avail;
  35243. duk_size_t copylen;
  35244. avail = (fb->offset >= fb->length ? (duk_size_t) 0 : (duk_size_t) (fb->length - fb->offset));
  35245. if (length > avail) {
  35246. copylen = avail;
  35247. fb->truncated = 1;
  35248. } else {
  35249. copylen = length;
  35250. }
  35251. DUK_MEMCPY(fb->buffer + fb->offset, buffer, copylen);
  35252. fb->offset += copylen;
  35253. }
  35254. DUK_INTERNAL void duk_fb_put_byte(duk_fixedbuffer *fb, duk_uint8_t x) {
  35255. duk_fb_put_bytes(fb, (const duk_uint8_t *) &x, 1);
  35256. }
  35257. DUK_INTERNAL void duk_fb_put_cstring(duk_fixedbuffer *fb, const char *x) {
  35258. duk_fb_put_bytes(fb, (const duk_uint8_t *) x, (duk_size_t) DUK_STRLEN(x));
  35259. }
  35260. DUK_INTERNAL void duk_fb_sprintf(duk_fixedbuffer *fb, const char *fmt, ...) {
  35261. duk_size_t avail;
  35262. va_list ap;
  35263. va_start(ap, fmt);
  35264. avail = (fb->offset >= fb->length ? (duk_size_t) 0 : (duk_size_t) (fb->length - fb->offset));
  35265. if (avail > 0) {
  35266. duk_int_t res = (duk_int_t) DUK_VSNPRINTF((char *) (fb->buffer + fb->offset), avail, fmt, ap);
  35267. if (res < 0) {
  35268. /* error */
  35269. } else if ((duk_size_t) res >= avail) {
  35270. /* (maybe) truncated */
  35271. fb->offset += avail;
  35272. if ((duk_size_t) res > avail) {
  35273. /* actual chars dropped (not just NUL term) */
  35274. fb->truncated = 1;
  35275. }
  35276. } else {
  35277. /* normal */
  35278. fb->offset += (duk_size_t) res;
  35279. }
  35280. }
  35281. va_end(ap);
  35282. }
  35283. DUK_INTERNAL void duk_fb_put_funcptr(duk_fixedbuffer *fb, duk_uint8_t *fptr, duk_size_t fptr_size) {
  35284. char buf[64+1];
  35285. duk_debug_format_funcptr(buf, sizeof(buf), fptr, fptr_size);
  35286. buf[sizeof(buf) - 1] = (char) 0;
  35287. duk_fb_put_cstring(fb, buf);
  35288. }
  35289. DUK_INTERNAL duk_bool_t duk_fb_is_full(duk_fixedbuffer *fb) {
  35290. return (fb->offset >= fb->length);
  35291. }
  35292. #endif /* DUK_USE_DEBUG */
  35293. #line 1 "duk_debug_vsnprintf.c"
  35294. /*
  35295. * Custom formatter for debug printing, allowing Duktape specific data
  35296. * structures (such as tagged values and heap objects) to be printed with
  35297. * a nice format string. Because debug printing should not affect execution
  35298. * state, formatting here must be independent of execution (see implications
  35299. * below) and must not allocate memory.
  35300. *
  35301. * Custom format tags begin with a '%!' to safely distinguish them from
  35302. * standard format tags. The following conversions are supported:
  35303. *
  35304. * %!T tagged value (duk_tval *)
  35305. * %!O heap object (duk_heaphdr *)
  35306. * %!I decoded bytecode instruction
  35307. * %!C bytecode instruction opcode name (arg is long)
  35308. *
  35309. * Everything is serialized in a JSON-like manner. The default depth is one
  35310. * level, internal prototype is not followed, and internal properties are not
  35311. * serialized. The following modifiers change this behavior:
  35312. *
  35313. * @ print pointers
  35314. * # print binary representations (where applicable)
  35315. * d deep traversal of own properties (not prototype)
  35316. * p follow prototype chain (useless without 'd')
  35317. * i include internal properties (other than prototype)
  35318. * x hexdump buffers
  35319. * h heavy formatting
  35320. *
  35321. * For instance, the following serializes objects recursively, but does not
  35322. * follow the prototype chain nor print internal properties: "%!dO".
  35323. *
  35324. * Notes:
  35325. *
  35326. * * Standard snprintf return value semantics seem to vary. This
  35327. * implementation returns the number of bytes it actually wrote
  35328. * (excluding the null terminator). If retval == buffer size,
  35329. * output was truncated (except for corner cases).
  35330. *
  35331. * * Output format is intentionally different from Ecmascript
  35332. * formatting requirements, as formatting here serves debugging
  35333. * of internals.
  35334. *
  35335. * * Depth checking (and updating) is done in each type printer
  35336. * separately, to allow them to call each other freely.
  35337. *
  35338. * * Some pathological structures might take ages to print (e.g.
  35339. * self recursion with 100 properties pointing to the object
  35340. * itself). To guard against these, each printer also checks
  35341. * whether the output buffer is full; if so, early exit.
  35342. *
  35343. * * Reference loops are detected using a loop stack.
  35344. */
  35345. /* #include duk_internal.h -> already included */
  35346. #if defined(DUK_USE_DEBUG)
  35347. /* #include stdio.h -> already included */
  35348. /* #include stdarg.h -> already included */
  35349. #include <string.h>
  35350. /* list of conversion specifiers that terminate a format tag;
  35351. * this is unfortunately guesswork.
  35352. */
  35353. #define DUK__ALLOWED_STANDARD_SPECIFIERS "diouxXeEfFgGaAcsCSpnm"
  35354. /* maximum length of standard format tag that we support */
  35355. #define DUK__MAX_FORMAT_TAG_LENGTH 32
  35356. /* heapobj recursion depth when deep printing is selected */
  35357. #define DUK__DEEP_DEPTH_LIMIT 8
  35358. /* maximum recursion depth for loop detection stacks */
  35359. #define DUK__LOOP_STACK_DEPTH 256
  35360. /* must match bytecode defines now; build autogenerate? */
  35361. DUK_LOCAL const char * const duk__bc_optab[256] = {
  35362. "LDREG", "STREG", "JUMP", "LDCONST", "LDINT", "LDINTX", "LDTHIS", "LDUNDEF",
  35363. "LDNULL", "LDTRUE", "LDFALSE", "GETVAR", "BNOT", "LNOT", "UNM", "UNP",
  35364. "EQ_RR", "EQ_CR", "EQ_RC", "EQ_CC", "NEQ_RR", "NEQ_CR", "NEQ_RC", "NEQ_CC",
  35365. "SEQ_RR", "SEQ_CR", "SEQ_RC", "SEQ_CC", "SNEQ_RR", "SNEQ_CR", "SNEQ_RC", "SNEQ_CC",
  35366. "GT_RR", "GT_CR", "GT_RC", "GT_CC", "GE_RR", "GE_CR", "GE_RC", "GE_CC",
  35367. "LT_RR", "LT_CR", "LT_RC", "LT_CC", "LE_RR", "LE_CR", "LE_RC", "LE_CC",
  35368. "IFTRUE_R", "IFTRUE_C", "IFFALSE_R", "IFFALSE_C", "ADD_RR", "ADD_CR", "ADD_RC", "ADD_CC",
  35369. "SUB_RR", "SUB_CR", "SUB_RC", "SUB_CC", "MUL_RR", "MUL_CR", "MUL_RC", "MUL_CC",
  35370. "DIV_RR", "DIV_CR", "DIV_RC", "DIV_CC", "MOD_RR", "MOD_CR", "MOD_RC", "MOD_CC",
  35371. "EXP_RR", "EXP_CR", "EXP_RC", "EXP_CC", "BAND_RR", "BAND_CR", "BAND_RC", "BAND_CC",
  35372. "BOR_RR", "BOR_CR", "BOR_RC", "BOR_CC", "BXOR_RR", "BXOR_CR", "BXOR_RC", "BXOR_CC",
  35373. "BASL_RR", "BASL_CR", "BASL_RC", "BASL_CC", "BLSR_RR", "BLSR_CR", "BLSR_RC", "BLSR_CC",
  35374. "BASR_RR", "BASR_CR", "BASR_RC", "BASR_CC", "INSTOF_RR", "INSTOF_CR", "INSTOF_RC", "INSTOF_CC",
  35375. "IN_RR", "IN_CR", "IN_RC", "IN_CC", "GETPROP_RR", "GETPROP_CR", "GETPROP_RC", "GETPROP_CC",
  35376. "PUTPROP_RR", "PUTPROP_CR", "PUTPROP_RC", "PUTPROP_CC", "DELPROP_RR", "DELPROP_CR", "DELPROP_RC", "DELPROP_CC",
  35377. "PREINCR", "PREDECR", "POSTINCR", "POSTDECR", "PREINCV", "PREDECV", "POSTINCV", "POSTDECV",
  35378. "PREINCP_RR", "PREINCP_CR", "PREINCP_RC", "PREINCP_CC", "PREDECP_RR", "PREDECP_CR", "PREDECP_RC", "PREDECP_CC",
  35379. "POSTINCP_RR", "POSTINCP_CR", "POSTINCP_RC", "POSTINCP_CC", "POSTDECP_RR", "POSTDECP_CR", "POSTDECP_RC", "POSTDECP_CC",
  35380. "DECLVAR_RR", "DECLVAR_CR", "DECLVAR_RC", "DECLVAR_CC", "REGEXP_RR", "REGEXP_RC", "REGEXP_CR", "REGEXP_CC",
  35381. "CLOSURE", "TYPEOF", "TYPEOFID", "PUTVAR", "DELVAR", "RETREG", "RETUNDEF", "RETCONST",
  35382. "RETCONSTN", "LABEL", "ENDLABEL", "BREAK", "CONTINUE", "TRYCATCH", "ENDTRY", "ENDCATCH",
  35383. "ENDFIN", "THROW", "INVLHS", "CSREG", "CSVAR_RR", "CSVAR_CR", "CSVAR_RC", "CSVAR_CC",
  35384. "CALL0", "CALL1", "CALL2", "CALL3", "CALL4", "CALL5", "CALL6", "CALL7",
  35385. "CALL8", "CALL9", "CALL10", "CALL11", "CALL12", "CALL13", "CALL14", "CALL15",
  35386. "NEWOBJ", "NEWARR", "MPUTOBJ", "MPUTOBJI", "INITSET", "INITGET", "MPUTARR", "MPUTARRI",
  35387. "SETALEN", "INITENUM", "NEXTENUM", "NEWTARGET", "DEBUGGER", "NOP", "INVALID", "UNUSED207",
  35388. "GETPROPC_RR", "GETPROPC_CR", "GETPROPC_RC", "GETPROPC_CC", "UNUSED212", "UNUSED213", "UNUSED214", "UNUSED215",
  35389. "UNUSED216", "UNUSED217", "UNUSED218", "UNUSED219", "UNUSED220", "UNUSED221", "UNUSED222", "UNUSED223",
  35390. "UNUSED224", "UNUSED225", "UNUSED226", "UNUSED227", "UNUSED228", "UNUSED229", "UNUSED230", "UNUSED231",
  35391. "UNUSED232", "UNUSED233", "UNUSED234", "UNUSED235", "UNUSED236", "UNUSED237", "UNUSED238", "UNUSED239",
  35392. "UNUSED240", "UNUSED241", "UNUSED242", "UNUSED243", "UNUSED244", "UNUSED245", "UNUSED246", "UNUSED247",
  35393. "UNUSED248", "UNUSED249", "UNUSED250", "UNUSED251", "UNUSED252", "UNUSED253", "UNUSED254", "UNUSED255"
  35394. };
  35395. typedef struct duk__dprint_state duk__dprint_state;
  35396. struct duk__dprint_state {
  35397. duk_fixedbuffer *fb;
  35398. /* loop_stack_index could be perhaps be replaced by 'depth', but it's nice
  35399. * to not couple these two mechanisms unnecessarily.
  35400. */
  35401. duk_hobject *loop_stack[DUK__LOOP_STACK_DEPTH];
  35402. duk_int_t loop_stack_index;
  35403. duk_int_t loop_stack_limit;
  35404. duk_int_t depth;
  35405. duk_int_t depth_limit;
  35406. duk_bool_t pointer;
  35407. duk_bool_t heavy;
  35408. duk_bool_t binary;
  35409. duk_bool_t follow_proto;
  35410. duk_bool_t internal;
  35411. duk_bool_t hexdump;
  35412. };
  35413. /* helpers */
  35414. DUK_LOCAL_DECL void duk__print_hstring(duk__dprint_state *st, duk_hstring *k, duk_bool_t quotes);
  35415. DUK_LOCAL_DECL void duk__print_hobject(duk__dprint_state *st, duk_hobject *h);
  35416. DUK_LOCAL_DECL void duk__print_hbuffer(duk__dprint_state *st, duk_hbuffer *h);
  35417. DUK_LOCAL_DECL void duk__print_tval(duk__dprint_state *st, duk_tval *tv);
  35418. DUK_LOCAL_DECL void duk__print_instr(duk__dprint_state *st, duk_instr_t ins);
  35419. DUK_LOCAL_DECL void duk__print_heaphdr(duk__dprint_state *st, duk_heaphdr *h);
  35420. DUK_LOCAL_DECL void duk__print_shared_heaphdr(duk__dprint_state *st, duk_heaphdr *h);
  35421. DUK_LOCAL_DECL void duk__print_shared_heaphdr_string(duk__dprint_state *st, duk_heaphdr_string *h);
  35422. DUK_LOCAL void duk__print_shared_heaphdr(duk__dprint_state *st, duk_heaphdr *h) {
  35423. duk_fixedbuffer *fb = st->fb;
  35424. if (st->heavy) {
  35425. duk_fb_sprintf(fb, "(%p)", (void *) h);
  35426. }
  35427. if (!h) {
  35428. return;
  35429. }
  35430. if (st->binary) {
  35431. duk_size_t i;
  35432. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET);
  35433. for (i = 0; i < (duk_size_t) sizeof(*h); i++) {
  35434. duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)h)[i]);
  35435. }
  35436. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET);
  35437. }
  35438. #if defined(DUK_USE_REFERENCE_COUNTING) /* currently implicitly also DUK_USE_DOUBLE_LINKED_HEAP */
  35439. if (st->heavy) {
  35440. duk_fb_sprintf(fb, "[h_next=%p,h_prev=%p,h_refcount=%lu,h_flags=%08lx,type=%ld,"
  35441. "reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]",
  35442. (void *) DUK_HEAPHDR_GET_NEXT(NULL, h),
  35443. (void *) DUK_HEAPHDR_GET_PREV(NULL, h),
  35444. (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(h),
  35445. (unsigned long) DUK_HEAPHDR_GET_FLAGS(h),
  35446. (long) DUK_HEAPHDR_GET_TYPE(h),
  35447. (long) (DUK_HEAPHDR_HAS_REACHABLE(h) ? 1 : 0),
  35448. (long) (DUK_HEAPHDR_HAS_TEMPROOT(h) ? 1 : 0),
  35449. (long) (DUK_HEAPHDR_HAS_FINALIZABLE(h) ? 1 : 0),
  35450. (long) (DUK_HEAPHDR_HAS_FINALIZED(h) ? 1 : 0));
  35451. }
  35452. #else
  35453. if (st->heavy) {
  35454. duk_fb_sprintf(fb, "[h_next=%p,h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]",
  35455. (void *) DUK_HEAPHDR_GET_NEXT(NULL, h),
  35456. (unsigned long) DUK_HEAPHDR_GET_FLAGS(h),
  35457. (long) DUK_HEAPHDR_GET_TYPE(h),
  35458. (long) (DUK_HEAPHDR_HAS_REACHABLE(h) ? 1 : 0),
  35459. (long) (DUK_HEAPHDR_HAS_TEMPROOT(h) ? 1 : 0),
  35460. (long) (DUK_HEAPHDR_HAS_FINALIZABLE(h) ? 1 : 0),
  35461. (long) (DUK_HEAPHDR_HAS_FINALIZED(h) ? 1 : 0));
  35462. }
  35463. #endif
  35464. }
  35465. DUK_LOCAL void duk__print_shared_heaphdr_string(duk__dprint_state *st, duk_heaphdr_string *h) {
  35466. duk_fixedbuffer *fb = st->fb;
  35467. if (st->heavy) {
  35468. duk_fb_sprintf(fb, "(%p)", (void *) h);
  35469. }
  35470. if (!h) {
  35471. return;
  35472. }
  35473. if (st->binary) {
  35474. duk_size_t i;
  35475. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET);
  35476. for (i = 0; i < (duk_size_t) sizeof(*h); i++) {
  35477. duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)h)[i]);
  35478. }
  35479. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET);
  35480. }
  35481. #if defined(DUK_USE_REFERENCE_COUNTING)
  35482. if (st->heavy) {
  35483. duk_fb_sprintf(fb, "[h_refcount=%lu,h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]",
  35484. (unsigned long) DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h),
  35485. (unsigned long) DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h),
  35486. (long) DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h),
  35487. (long) (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h) ? 1 : 0),
  35488. (long) (DUK_HEAPHDR_HAS_TEMPROOT((duk_heaphdr *) h) ? 1 : 0),
  35489. (long) (DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) h) ? 1 : 0),
  35490. (long) (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h) ? 1 : 0));
  35491. }
  35492. #else
  35493. if (st->heavy) {
  35494. duk_fb_sprintf(fb, "[h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]",
  35495. (unsigned long) DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h),
  35496. (long) DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h),
  35497. (long) (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h) ? 1 : 0),
  35498. (long) (DUK_HEAPHDR_HAS_TEMPROOT((duk_heaphdr *) h) ? 1 : 0),
  35499. (long) (DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) h) ? 1 : 0),
  35500. (long) (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h) ? 1 : 0));
  35501. }
  35502. #endif
  35503. }
  35504. DUK_LOCAL void duk__print_hstring(duk__dprint_state *st, duk_hstring *h, duk_bool_t quotes) {
  35505. duk_fixedbuffer *fb = st->fb;
  35506. const duk_uint8_t *p;
  35507. const duk_uint8_t *p_end;
  35508. /* terminal type: no depth check */
  35509. if (duk_fb_is_full(fb)) {
  35510. return;
  35511. }
  35512. duk__print_shared_heaphdr_string(st, &h->hdr);
  35513. if (!h) {
  35514. duk_fb_put_cstring(fb, "NULL");
  35515. return;
  35516. }
  35517. p = DUK_HSTRING_GET_DATA(h);
  35518. p_end = p + DUK_HSTRING_GET_BYTELEN(h);
  35519. if (p_end > p && p[0] == DUK_ASC_UNDERSCORE) {
  35520. /* If property key begins with underscore, encode it with
  35521. * forced quotes (e.g. "_Foo") to distinguish it from encoded
  35522. * internal properties (e.g. \x82Bar -> _Bar).
  35523. */
  35524. quotes = 1;
  35525. }
  35526. if (quotes) {
  35527. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_DOUBLEQUOTE);
  35528. }
  35529. while (p < p_end) {
  35530. duk_uint8_t ch = *p++;
  35531. /* two special escapes: '\' and '"', other printables as is */
  35532. if (ch == '\\') {
  35533. duk_fb_sprintf(fb, "\\\\");
  35534. } else if (ch == '"') {
  35535. duk_fb_sprintf(fb, "\\\"");
  35536. } else if (ch >= 0x20 && ch <= 0x7e) {
  35537. duk_fb_put_byte(fb, ch);
  35538. } else if (ch == 0x82 && !quotes) {
  35539. /* encode \x82Bar as _Bar if no quotes are
  35540. * applied, this is for readable internal keys.
  35541. */
  35542. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_UNDERSCORE);
  35543. } else {
  35544. duk_fb_sprintf(fb, "\\x%02lx", (unsigned long) ch);
  35545. }
  35546. }
  35547. if (quotes) {
  35548. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_DOUBLEQUOTE);
  35549. }
  35550. #if defined(DUK_USE_REFERENCE_COUNTING)
  35551. /* XXX: limit to quoted strings only, to save keys from being cluttered? */
  35552. duk_fb_sprintf(fb, "/%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(&h->hdr));
  35553. #endif
  35554. }
  35555. #define DUK__COMMA() do { \
  35556. if (first) { \
  35557. first = 0; \
  35558. } else { \
  35559. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COMMA); \
  35560. } \
  35561. } while (0)
  35562. DUK_LOCAL void duk__print_hobject(duk__dprint_state *st, duk_hobject *h) {
  35563. duk_fixedbuffer *fb = st->fb;
  35564. duk_uint_fast32_t i;
  35565. duk_tval *tv;
  35566. duk_hstring *key;
  35567. duk_bool_t first = 1;
  35568. const char *brace1 = "{";
  35569. const char *brace2 = "}";
  35570. duk_bool_t pushed_loopstack = 0;
  35571. if (duk_fb_is_full(fb)) {
  35572. return;
  35573. }
  35574. duk__print_shared_heaphdr(st, &h->hdr);
  35575. if (h && DUK_HOBJECT_HAS_ARRAY_PART(h)) {
  35576. brace1 = "[";
  35577. brace2 = "]";
  35578. }
  35579. if (!h) {
  35580. duk_fb_put_cstring(fb, "NULL");
  35581. goto finished;
  35582. }
  35583. if (st->depth >= st->depth_limit) {
  35584. const char *subtype = "generic";
  35585. if (DUK_HOBJECT_IS_COMPFUNC(h)) {
  35586. subtype = "compfunc";
  35587. } else if (DUK_HOBJECT_IS_NATFUNC(h)) {
  35588. subtype = "natfunc";
  35589. } else if (DUK_HOBJECT_IS_THREAD(h)) {
  35590. subtype = "thread";
  35591. } else if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  35592. subtype = "bufobj";
  35593. } else if (DUK_HOBJECT_IS_ARRAY(h)) {
  35594. subtype = "array";
  35595. }
  35596. duk_fb_sprintf(fb, "%sobject/%s %p%s", (const char *) brace1, subtype, (void *) h, (const char *) brace2);
  35597. return;
  35598. }
  35599. for (i = 0; i < (duk_uint_fast32_t) st->loop_stack_index; i++) {
  35600. if (st->loop_stack[i] == h) {
  35601. duk_fb_sprintf(fb, "%sLOOP:%p%s", (const char *) brace1, (void *) h, (const char *) brace2);
  35602. return;
  35603. }
  35604. }
  35605. /* after this, return paths should 'goto finished' for decrement */
  35606. st->depth++;
  35607. if (st->loop_stack_index >= st->loop_stack_limit) {
  35608. duk_fb_sprintf(fb, "%sOUT-OF-LOOP-STACK%s", (const char *) brace1, (const char *) brace2);
  35609. goto finished;
  35610. }
  35611. st->loop_stack[st->loop_stack_index++] = h;
  35612. pushed_loopstack = 1;
  35613. /*
  35614. * Notation: double underscore used for internal properties which are not
  35615. * stored in the property allocation (e.g. '__valstack').
  35616. */
  35617. duk_fb_put_cstring(fb, brace1);
  35618. if (DUK_HOBJECT_GET_PROPS(NULL, h)) {
  35619. duk_uint32_t a_limit;
  35620. a_limit = DUK_HOBJECT_GET_ASIZE(h);
  35621. if (st->internal) {
  35622. /* dump all allocated entries, unused entries print as 'unused',
  35623. * note that these may extend beyond current 'length' and look
  35624. * a bit funny.
  35625. */
  35626. } else {
  35627. /* leave out trailing 'unused' elements */
  35628. while (a_limit > 0) {
  35629. tv = DUK_HOBJECT_A_GET_VALUE_PTR(NULL, h, a_limit - 1);
  35630. if (!DUK_TVAL_IS_UNUSED(tv)) {
  35631. break;
  35632. }
  35633. a_limit--;
  35634. }
  35635. }
  35636. for (i = 0; i < a_limit; i++) {
  35637. tv = DUK_HOBJECT_A_GET_VALUE_PTR(NULL, h, i);
  35638. DUK__COMMA();
  35639. duk__print_tval(st, tv);
  35640. }
  35641. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(h); i++) {
  35642. key = DUK_HOBJECT_E_GET_KEY(NULL, h, i);
  35643. if (!key) {
  35644. continue;
  35645. }
  35646. if (!st->internal && DUK_HSTRING_HAS_HIDDEN(key)) {
  35647. continue;
  35648. }
  35649. DUK__COMMA();
  35650. duk__print_hstring(st, key, 0);
  35651. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COLON);
  35652. if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(NULL, h, i)) {
  35653. duk_fb_sprintf(fb, "[get:%p,set:%p]",
  35654. (void *) DUK_HOBJECT_E_GET_VALUE(NULL, h, i).a.get,
  35655. (void *) DUK_HOBJECT_E_GET_VALUE(NULL, h, i).a.set);
  35656. } else {
  35657. tv = &DUK_HOBJECT_E_GET_VALUE(NULL, h, i).v;
  35658. duk__print_tval(st, tv);
  35659. }
  35660. if (st->heavy) {
  35661. duk_fb_sprintf(fb, "<%02lx>", (unsigned long) DUK_HOBJECT_E_GET_FLAGS(NULL, h, i));
  35662. }
  35663. }
  35664. }
  35665. if (st->internal) {
  35666. if (DUK_HOBJECT_IS_ARRAY(h)) {
  35667. DUK__COMMA(); duk_fb_sprintf(fb, "__array:true");
  35668. }
  35669. if (DUK_HOBJECT_HAS_EXTENSIBLE(h)) {
  35670. DUK__COMMA(); duk_fb_sprintf(fb, "__extensible:true");
  35671. }
  35672. if (DUK_HOBJECT_HAS_CONSTRUCTABLE(h)) {
  35673. DUK__COMMA(); duk_fb_sprintf(fb, "__constructable:true");
  35674. }
  35675. if (DUK_HOBJECT_HAS_BOUNDFUNC(h)) {
  35676. DUK__COMMA(); duk_fb_sprintf(fb, "__boundfunc:true");
  35677. }
  35678. if (DUK_HOBJECT_HAS_COMPFUNC(h)) {
  35679. DUK__COMMA(); duk_fb_sprintf(fb, "__compfunc:true");
  35680. }
  35681. if (DUK_HOBJECT_HAS_NATFUNC(h)) {
  35682. DUK__COMMA(); duk_fb_sprintf(fb, "__natfunc:true");
  35683. }
  35684. if (DUK_HOBJECT_HAS_BUFOBJ(h)) {
  35685. DUK__COMMA(); duk_fb_sprintf(fb, "__bufobj:true");
  35686. }
  35687. if (DUK_HOBJECT_IS_THREAD(h)) {
  35688. DUK__COMMA(); duk_fb_sprintf(fb, "__thread:true");
  35689. }
  35690. if (DUK_HOBJECT_HAS_ARRAY_PART(h)) {
  35691. DUK__COMMA(); duk_fb_sprintf(fb, "__array_part:true");
  35692. }
  35693. if (DUK_HOBJECT_HAS_STRICT(h)) {
  35694. DUK__COMMA(); duk_fb_sprintf(fb, "__strict:true");
  35695. }
  35696. if (DUK_HOBJECT_HAS_NOTAIL(h)) {
  35697. DUK__COMMA(); duk_fb_sprintf(fb, "__notail:true");
  35698. }
  35699. if (DUK_HOBJECT_HAS_NEWENV(h)) {
  35700. DUK__COMMA(); duk_fb_sprintf(fb, "__newenv:true");
  35701. }
  35702. if (DUK_HOBJECT_HAS_NAMEBINDING(h)) {
  35703. DUK__COMMA(); duk_fb_sprintf(fb, "__namebinding:true");
  35704. }
  35705. if (DUK_HOBJECT_HAS_CREATEARGS(h)) {
  35706. DUK__COMMA(); duk_fb_sprintf(fb, "__createargs:true");
  35707. }
  35708. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(h)) {
  35709. DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_array:true");
  35710. }
  35711. if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(h)) {
  35712. DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_stringobj:true");
  35713. }
  35714. if (DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h)) {
  35715. DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_arguments:true");
  35716. }
  35717. if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  35718. DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_bufobj:true");
  35719. }
  35720. if (DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h)) {
  35721. DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_proxyobj:true");
  35722. }
  35723. }
  35724. if (st->internal && DUK_HOBJECT_IS_ARRAY(h)) {
  35725. duk_harray *a = (duk_harray *) h;
  35726. DUK__COMMA(); duk_fb_sprintf(fb, "__length:%ld", (long) a->length);
  35727. DUK__COMMA(); duk_fb_sprintf(fb, "__length_nonwritable:%ld", (long) a->length_nonwritable);
  35728. } else if (st->internal && DUK_HOBJECT_IS_COMPFUNC(h)) {
  35729. duk_hcompfunc *f = (duk_hcompfunc *) h;
  35730. DUK__COMMA(); duk_fb_put_cstring(fb, "__data:");
  35731. duk__print_hbuffer(st, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(NULL, f));
  35732. DUK__COMMA(); duk_fb_put_cstring(fb, "__lexenv:"); duk__print_hobject(st, DUK_HCOMPFUNC_GET_LEXENV(NULL, f));
  35733. DUK__COMMA(); duk_fb_put_cstring(fb, "__varenv:"); duk__print_hobject(st, DUK_HCOMPFUNC_GET_VARENV(NULL, f));
  35734. DUK__COMMA(); duk_fb_sprintf(fb, "__nregs:%ld", (long) f->nregs);
  35735. DUK__COMMA(); duk_fb_sprintf(fb, "__nargs:%ld", (long) f->nargs);
  35736. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  35737. DUK__COMMA(); duk_fb_sprintf(fb, "__start_line:%ld", (long) f->start_line);
  35738. DUK__COMMA(); duk_fb_sprintf(fb, "__end_line:%ld", (long) f->end_line);
  35739. #endif
  35740. DUK__COMMA(); duk_fb_put_cstring(fb, "__data:");
  35741. duk__print_hbuffer(st, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(NULL, f));
  35742. } else if (st->internal && DUK_HOBJECT_IS_NATFUNC(h)) {
  35743. duk_hnatfunc *f = (duk_hnatfunc *) h;
  35744. DUK__COMMA(); duk_fb_sprintf(fb, "__func:");
  35745. duk_fb_put_funcptr(fb, (duk_uint8_t *) &f->func, sizeof(f->func));
  35746. DUK__COMMA(); duk_fb_sprintf(fb, "__nargs:%ld", (long) f->nargs);
  35747. DUK__COMMA(); duk_fb_sprintf(fb, "__magic:%ld", (long) f->magic);
  35748. } else if (st->internal && DUK_HOBJECT_IS_DECENV(h)) {
  35749. duk_hdecenv *e = (duk_hdecenv *) h;
  35750. DUK__COMMA(); duk_fb_sprintf(fb, "__thread:"); duk__print_hobject(st, (duk_hobject *) e->thread);
  35751. DUK__COMMA(); duk_fb_sprintf(fb, "__varmap:"); duk__print_hobject(st, (duk_hobject *) e->varmap);
  35752. DUK__COMMA(); duk_fb_sprintf(fb, "__regbase_byteoff:%ld", (long) e->regbase_byteoff);
  35753. } else if (st->internal && DUK_HOBJECT_IS_OBJENV(h)) {
  35754. duk_hobjenv *e = (duk_hobjenv *) h;
  35755. DUK__COMMA(); duk_fb_sprintf(fb, "__target:"); duk__print_hobject(st, (duk_hobject *) e->target);
  35756. DUK__COMMA(); duk_fb_sprintf(fb, "__has_this:%ld", (long) e->has_this);
  35757. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  35758. } else if (st->internal && DUK_HOBJECT_IS_BUFOBJ(h)) {
  35759. duk_hbufobj *b = (duk_hbufobj *) h;
  35760. DUK__COMMA(); duk_fb_sprintf(fb, "__buf:");
  35761. duk__print_hbuffer(st, (duk_hbuffer *) b->buf);
  35762. DUK__COMMA(); duk_fb_sprintf(fb, "__buf_prop:");
  35763. duk__print_hobject(st, (duk_hobject *) b->buf_prop);
  35764. DUK__COMMA(); duk_fb_sprintf(fb, "__offset:%ld", (long) b->offset);
  35765. DUK__COMMA(); duk_fb_sprintf(fb, "__length:%ld", (long) b->length);
  35766. DUK__COMMA(); duk_fb_sprintf(fb, "__shift:%ld", (long) b->shift);
  35767. DUK__COMMA(); duk_fb_sprintf(fb, "__elemtype:%ld", (long) b->elem_type);
  35768. #endif
  35769. } else if (st->internal && DUK_HOBJECT_IS_PROXY(h)) {
  35770. duk_hproxy *p = (duk_hproxy *) h;
  35771. DUK__COMMA(); duk_fb_sprintf(fb, "__target:");
  35772. duk__print_hobject(st, p->target);
  35773. DUK__COMMA(); duk_fb_sprintf(fb, "__handler:");
  35774. duk__print_hobject(st, p->handler);
  35775. } else if (st->internal && DUK_HOBJECT_IS_THREAD(h)) {
  35776. duk_hthread *t = (duk_hthread *) h;
  35777. DUK__COMMA(); duk_fb_sprintf(fb, "__ptr_curr_pc:%p", (void *) t->ptr_curr_pc);
  35778. DUK__COMMA(); duk_fb_sprintf(fb, "__heap:%p", (void *) t->heap);
  35779. DUK__COMMA(); duk_fb_sprintf(fb, "__strict:%ld", (long) t->strict);
  35780. DUK__COMMA(); duk_fb_sprintf(fb, "__state:%ld", (long) t->state);
  35781. DUK__COMMA(); duk_fb_sprintf(fb, "__unused1:%ld", (long) t->unused1);
  35782. DUK__COMMA(); duk_fb_sprintf(fb, "__unused2:%ld", (long) t->unused2);
  35783. DUK__COMMA(); duk_fb_sprintf(fb, "__valstack:%p", (void *) t->valstack);
  35784. DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_end:%p/%ld", (void *) t->valstack_end, (long) (t->valstack_end - t->valstack));
  35785. DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_alloc_end:%p/%ld", (void *) t->valstack_alloc_end, (long) (t->valstack_alloc_end - t->valstack));
  35786. DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_bottom:%p/%ld", (void *) t->valstack_bottom, (long) (t->valstack_bottom - t->valstack));
  35787. DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_top:%p/%ld", (void *) t->valstack_top, (long) (t->valstack_top - t->valstack));
  35788. DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_curr:%p", (void *) t->callstack_curr);
  35789. DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_top:%ld", (long) t->callstack_top);
  35790. DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_preventcount:%ld", (long) t->callstack_preventcount);
  35791. DUK__COMMA(); duk_fb_sprintf(fb, "__resumer:"); duk__print_hobject(st, (duk_hobject *) t->resumer);
  35792. DUK__COMMA(); duk_fb_sprintf(fb, "__compile_ctx:%p", (void *) t->compile_ctx);
  35793. #if defined(DUK_USE_INTERRUPT_COUNTER)
  35794. DUK__COMMA(); duk_fb_sprintf(fb, "__interrupt_counter:%ld", (long) t->interrupt_counter);
  35795. DUK__COMMA(); duk_fb_sprintf(fb, "__interrupt_init:%ld", (long) t->interrupt_init);
  35796. #endif
  35797. /* XXX: print built-ins array? */
  35798. }
  35799. #if defined(DUK_USE_REFERENCE_COUNTING)
  35800. if (st->internal) {
  35801. DUK__COMMA(); duk_fb_sprintf(fb, "__refcount:%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h));
  35802. }
  35803. #endif
  35804. if (st->internal) {
  35805. DUK__COMMA(); duk_fb_sprintf(fb, "__class:%ld", (long) DUK_HOBJECT_GET_CLASS_NUMBER(h));
  35806. }
  35807. DUK__COMMA(); duk_fb_sprintf(fb, "__heapptr:%p", (void *) h); /* own pointer */
  35808. /* prototype should be last, for readability */
  35809. if (DUK_HOBJECT_GET_PROTOTYPE(NULL, h)) {
  35810. if (st->follow_proto) {
  35811. DUK__COMMA(); duk_fb_put_cstring(fb, "__prototype:"); duk__print_hobject(st, DUK_HOBJECT_GET_PROTOTYPE(NULL, h));
  35812. } else {
  35813. DUK__COMMA(); duk_fb_sprintf(fb, "__prototype:%p", (void *) DUK_HOBJECT_GET_PROTOTYPE(NULL, h));
  35814. }
  35815. }
  35816. duk_fb_put_cstring(fb, brace2);
  35817. #if defined(DUK_USE_HOBJECT_HASH_PART)
  35818. if (st->heavy && DUK_HOBJECT_GET_HSIZE(h) > 0) {
  35819. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LANGLE);
  35820. for (i = 0; i < DUK_HOBJECT_GET_HSIZE(h); i++) {
  35821. duk_uint_t h_idx = DUK_HOBJECT_H_GET_INDEX(NULL, h, i);
  35822. if (i > 0) {
  35823. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COMMA);
  35824. }
  35825. if (h_idx == DUK_HOBJECT_HASHIDX_UNUSED) {
  35826. duk_fb_sprintf(fb, "u");
  35827. } else if (h_idx == DUK_HOBJECT_HASHIDX_DELETED) {
  35828. duk_fb_sprintf(fb, "d");
  35829. } else {
  35830. duk_fb_sprintf(fb, "%ld", (long) h_idx);
  35831. }
  35832. }
  35833. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RANGLE);
  35834. }
  35835. #endif
  35836. finished:
  35837. st->depth--;
  35838. if (pushed_loopstack) {
  35839. st->loop_stack_index--;
  35840. st->loop_stack[st->loop_stack_index] = NULL;
  35841. }
  35842. }
  35843. DUK_LOCAL void duk__print_hbuffer(duk__dprint_state *st, duk_hbuffer *h) {
  35844. duk_fixedbuffer *fb = st->fb;
  35845. duk_size_t i, n;
  35846. duk_uint8_t *p;
  35847. if (duk_fb_is_full(fb)) {
  35848. return;
  35849. }
  35850. /* terminal type: no depth check */
  35851. if (!h) {
  35852. duk_fb_put_cstring(fb, "NULL");
  35853. return;
  35854. }
  35855. if (DUK_HBUFFER_HAS_DYNAMIC(h)) {
  35856. if (DUK_HBUFFER_HAS_EXTERNAL(h)) {
  35857. duk_hbuffer_external *g = (duk_hbuffer_external *) h;
  35858. duk_fb_sprintf(fb, "buffer:external:%p:%ld",
  35859. (void *) DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(NULL, g),
  35860. (long) DUK_HBUFFER_EXTERNAL_GET_SIZE(g));
  35861. } else {
  35862. duk_hbuffer_dynamic *g = (duk_hbuffer_dynamic *) h;
  35863. duk_fb_sprintf(fb, "buffer:dynamic:%p:%ld",
  35864. (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(NULL, g),
  35865. (long) DUK_HBUFFER_DYNAMIC_GET_SIZE(g));
  35866. }
  35867. } else {
  35868. duk_fb_sprintf(fb, "buffer:fixed:%ld", (long) DUK_HBUFFER_GET_SIZE(h));
  35869. }
  35870. #if defined(DUK_USE_REFERENCE_COUNTING)
  35871. duk_fb_sprintf(fb, "/%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(&h->hdr));
  35872. #endif
  35873. if (st->hexdump) {
  35874. duk_fb_sprintf(fb, "=[");
  35875. n = DUK_HBUFFER_GET_SIZE(h);
  35876. p = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(NULL, h);
  35877. for (i = 0; i < n; i++) {
  35878. duk_fb_sprintf(fb, "%02lx", (unsigned long) p[i]);
  35879. }
  35880. duk_fb_sprintf(fb, "]");
  35881. }
  35882. }
  35883. DUK_LOCAL void duk__print_heaphdr(duk__dprint_state *st, duk_heaphdr *h) {
  35884. duk_fixedbuffer *fb = st->fb;
  35885. if (duk_fb_is_full(fb)) {
  35886. return;
  35887. }
  35888. if (!h) {
  35889. duk_fb_put_cstring(fb, "NULL");
  35890. return;
  35891. }
  35892. switch (DUK_HEAPHDR_GET_TYPE(h)) {
  35893. case DUK_HTYPE_STRING:
  35894. duk__print_hstring(st, (duk_hstring *) h, 1);
  35895. break;
  35896. case DUK_HTYPE_OBJECT:
  35897. duk__print_hobject(st, (duk_hobject *) h);
  35898. break;
  35899. case DUK_HTYPE_BUFFER:
  35900. duk__print_hbuffer(st, (duk_hbuffer *) h);
  35901. break;
  35902. default:
  35903. duk_fb_sprintf(fb, "[unknown htype %ld]", (long) DUK_HEAPHDR_GET_TYPE(h));
  35904. break;
  35905. }
  35906. }
  35907. DUK_LOCAL void duk__print_tval(duk__dprint_state *st, duk_tval *tv) {
  35908. duk_fixedbuffer *fb = st->fb;
  35909. if (duk_fb_is_full(fb)) {
  35910. return;
  35911. }
  35912. /* depth check is done when printing an actual type */
  35913. if (st->heavy) {
  35914. duk_fb_sprintf(fb, "(%p)", (void *) tv);
  35915. }
  35916. if (!tv) {
  35917. duk_fb_put_cstring(fb, "NULL");
  35918. return;
  35919. }
  35920. if (st->binary) {
  35921. duk_size_t i;
  35922. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET);
  35923. for (i = 0; i < (duk_size_t) sizeof(*tv); i++) {
  35924. duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)tv)[i]);
  35925. }
  35926. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET);
  35927. }
  35928. if (st->heavy) {
  35929. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LANGLE);
  35930. }
  35931. switch (DUK_TVAL_GET_TAG(tv)) {
  35932. case DUK_TAG_UNDEFINED: {
  35933. duk_fb_put_cstring(fb, "undefined");
  35934. break;
  35935. }
  35936. case DUK_TAG_UNUSED: {
  35937. duk_fb_put_cstring(fb, "unused");
  35938. break;
  35939. }
  35940. case DUK_TAG_NULL: {
  35941. duk_fb_put_cstring(fb, "null");
  35942. break;
  35943. }
  35944. case DUK_TAG_BOOLEAN: {
  35945. duk_fb_put_cstring(fb, DUK_TVAL_GET_BOOLEAN(tv) ? "true" : "false");
  35946. break;
  35947. }
  35948. case DUK_TAG_STRING: {
  35949. /* Note: string is a terminal heap object, so no depth check here */
  35950. duk__print_hstring(st, DUK_TVAL_GET_STRING(tv), 1);
  35951. break;
  35952. }
  35953. case DUK_TAG_OBJECT: {
  35954. duk__print_hobject(st, DUK_TVAL_GET_OBJECT(tv));
  35955. break;
  35956. }
  35957. case DUK_TAG_BUFFER: {
  35958. duk__print_hbuffer(st, DUK_TVAL_GET_BUFFER(tv));
  35959. break;
  35960. }
  35961. case DUK_TAG_POINTER: {
  35962. duk_fb_sprintf(fb, "pointer:%p", (void *) DUK_TVAL_GET_POINTER(tv));
  35963. break;
  35964. }
  35965. case DUK_TAG_LIGHTFUNC: {
  35966. duk_c_function func;
  35967. duk_small_uint_t lf_flags;
  35968. DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags);
  35969. duk_fb_sprintf(fb, "lightfunc:");
  35970. duk_fb_put_funcptr(fb, (duk_uint8_t *) &func, sizeof(func));
  35971. duk_fb_sprintf(fb, ":%04lx", (long) lf_flags);
  35972. break;
  35973. }
  35974. #if defined(DUK_USE_FASTINT)
  35975. case DUK_TAG_FASTINT:
  35976. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  35977. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  35978. duk_fb_sprintf(fb, "%.18g_F", (double) DUK_TVAL_GET_NUMBER(tv));
  35979. break;
  35980. #endif
  35981. default: {
  35982. /* IEEE double is approximately 16 decimal digits; print a couple extra */
  35983. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  35984. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  35985. duk_fb_sprintf(fb, "%.18g", (double) DUK_TVAL_GET_NUMBER(tv));
  35986. break;
  35987. }
  35988. }
  35989. if (st->heavy) {
  35990. duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RANGLE);
  35991. }
  35992. }
  35993. DUK_LOCAL void duk__print_instr(duk__dprint_state *st, duk_instr_t ins) {
  35994. duk_fixedbuffer *fb = st->fb;
  35995. duk_small_int_t op;
  35996. const char *op_name;
  35997. op = (duk_small_int_t) DUK_DEC_OP(ins);
  35998. op_name = duk__bc_optab[op];
  35999. /* XXX: option to fix opcode length so it lines up nicely */
  36000. if (op == DUK_OP_JUMP) {
  36001. duk_int_t diff1 = (duk_int_t) (DUK_DEC_ABC(ins) - DUK_BC_JUMP_BIAS); /* from next pc */
  36002. duk_int_t diff2 = diff1 + 1; /* from curr pc */
  36003. duk_fb_sprintf(fb, "%s %ld (to pc%c%ld)",
  36004. (const char *) op_name, (long) diff1,
  36005. (int) (diff2 >= 0 ? '+' : '-'), /* char format: use int */
  36006. (long) (diff2 >= 0 ? diff2 : -diff2));
  36007. } else {
  36008. duk_fb_sprintf(fb, "%s %ld, %ld, %ld",
  36009. (const char *) op_name, (long) DUK_DEC_A(ins),
  36010. (long) DUK_DEC_B(ins), (long) DUK_DEC_C(ins));
  36011. }
  36012. }
  36013. DUK_LOCAL void duk__print_opcode(duk__dprint_state *st, duk_small_int_t opcode) {
  36014. duk_fixedbuffer *fb = st->fb;
  36015. if (opcode < DUK_BC_OP_MIN || opcode > DUK_BC_OP_MAX) {
  36016. duk_fb_sprintf(fb, "?(%ld)", (long) opcode);
  36017. } else {
  36018. duk_fb_sprintf(fb, "%s", (const char *) duk__bc_optab[opcode]);
  36019. }
  36020. }
  36021. DUK_INTERNAL duk_int_t duk_debug_vsnprintf(char *str, duk_size_t size, const char *format, va_list ap) {
  36022. duk_fixedbuffer fb;
  36023. const char *p = format;
  36024. const char *p_end = p + DUK_STRLEN(format);
  36025. duk_int_t retval;
  36026. DUK_MEMZERO(&fb, sizeof(fb));
  36027. fb.buffer = (duk_uint8_t *) str;
  36028. fb.length = size;
  36029. fb.offset = 0;
  36030. fb.truncated = 0;
  36031. while (p < p_end) {
  36032. char ch = *p++;
  36033. const char *p_begfmt = NULL;
  36034. duk_bool_t got_exclamation = 0;
  36035. duk_bool_t got_long = 0; /* %lf, %ld etc */
  36036. duk__dprint_state st;
  36037. if (ch != DUK_ASC_PERCENT) {
  36038. duk_fb_put_byte(&fb, (duk_uint8_t) ch);
  36039. continue;
  36040. }
  36041. /*
  36042. * Format tag parsing. Since we don't understand all the
  36043. * possible format tags allowed, we just scan for a terminating
  36044. * specifier and keep track of relevant modifiers that we do
  36045. * understand. See man 3 printf.
  36046. */
  36047. DUK_MEMZERO(&st, sizeof(st));
  36048. st.fb = &fb;
  36049. st.depth = 0;
  36050. st.depth_limit = 1;
  36051. st.loop_stack_index = 0;
  36052. st.loop_stack_limit = DUK__LOOP_STACK_DEPTH;
  36053. p_begfmt = p - 1;
  36054. while (p < p_end) {
  36055. ch = *p++;
  36056. if (ch == DUK_ASC_STAR) {
  36057. /* unsupported: would consume multiple args */
  36058. goto format_error;
  36059. } else if (ch == DUK_ASC_PERCENT) {
  36060. duk_fb_put_byte(&fb, (duk_uint8_t) DUK_ASC_PERCENT);
  36061. break;
  36062. } else if (ch == DUK_ASC_EXCLAMATION) {
  36063. got_exclamation = 1;
  36064. } else if (!got_exclamation && ch == DUK_ASC_LC_L) {
  36065. got_long = 1;
  36066. } else if (got_exclamation && ch == DUK_ASC_LC_D) {
  36067. st.depth_limit = DUK__DEEP_DEPTH_LIMIT;
  36068. } else if (got_exclamation && ch == DUK_ASC_LC_P) {
  36069. st.follow_proto = 1;
  36070. } else if (got_exclamation && ch == DUK_ASC_LC_I) {
  36071. st.internal = 1;
  36072. } else if (got_exclamation && ch == DUK_ASC_LC_X) {
  36073. st.hexdump = 1;
  36074. } else if (got_exclamation && ch == DUK_ASC_LC_H) {
  36075. st.heavy = 1;
  36076. } else if (got_exclamation && ch == DUK_ASC_ATSIGN) {
  36077. st.pointer = 1;
  36078. } else if (got_exclamation && ch == DUK_ASC_HASH) {
  36079. st.binary = 1;
  36080. } else if (got_exclamation && ch == DUK_ASC_UC_T) {
  36081. duk_tval *t = va_arg(ap, duk_tval *);
  36082. if (st.pointer && !st.heavy) {
  36083. duk_fb_sprintf(&fb, "(%p)", (void *) t);
  36084. }
  36085. duk__print_tval(&st, t);
  36086. break;
  36087. } else if (got_exclamation && ch == DUK_ASC_UC_O) {
  36088. duk_heaphdr *t = va_arg(ap, duk_heaphdr *);
  36089. if (st.pointer && !st.heavy) {
  36090. duk_fb_sprintf(&fb, "(%p)", (void *) t);
  36091. }
  36092. duk__print_heaphdr(&st, t);
  36093. break;
  36094. } else if (got_exclamation && ch == DUK_ASC_UC_I) {
  36095. duk_instr_t t = va_arg(ap, duk_instr_t);
  36096. duk__print_instr(&st, t);
  36097. break;
  36098. } else if (got_exclamation && ch == DUK_ASC_UC_C) {
  36099. long t = va_arg(ap, long);
  36100. duk__print_opcode(&st, (duk_small_int_t) t);
  36101. break;
  36102. } else if (!got_exclamation && strchr(DUK__ALLOWED_STANDARD_SPECIFIERS, (int) ch)) {
  36103. char fmtbuf[DUK__MAX_FORMAT_TAG_LENGTH];
  36104. duk_size_t fmtlen;
  36105. DUK_ASSERT(p >= p_begfmt);
  36106. fmtlen = (duk_size_t) (p - p_begfmt);
  36107. if (fmtlen >= sizeof(fmtbuf)) {
  36108. /* format is too large, abort */
  36109. goto format_error;
  36110. }
  36111. DUK_MEMZERO(fmtbuf, sizeof(fmtbuf));
  36112. DUK_MEMCPY(fmtbuf, p_begfmt, fmtlen);
  36113. /* assume exactly 1 arg, which is why '*' is forbidden; arg size still
  36114. * depends on type though.
  36115. */
  36116. if (ch == DUK_ASC_LC_F || ch == DUK_ASC_LC_G || ch == DUK_ASC_LC_E) {
  36117. /* %f and %lf both consume a 'long' */
  36118. double arg = va_arg(ap, double);
  36119. duk_fb_sprintf(&fb, fmtbuf, arg);
  36120. } else if (ch == DUK_ASC_LC_D && got_long) {
  36121. /* %ld */
  36122. long arg = va_arg(ap, long);
  36123. duk_fb_sprintf(&fb, fmtbuf, arg);
  36124. } else if (ch == DUK_ASC_LC_D) {
  36125. /* %d; only 16 bits are guaranteed */
  36126. int arg = va_arg(ap, int);
  36127. duk_fb_sprintf(&fb, fmtbuf, arg);
  36128. } else if (ch == DUK_ASC_LC_U && got_long) {
  36129. /* %lu */
  36130. unsigned long arg = va_arg(ap, unsigned long);
  36131. duk_fb_sprintf(&fb, fmtbuf, arg);
  36132. } else if (ch == DUK_ASC_LC_U) {
  36133. /* %u; only 16 bits are guaranteed */
  36134. unsigned int arg = va_arg(ap, unsigned int);
  36135. duk_fb_sprintf(&fb, fmtbuf, arg);
  36136. } else if (ch == DUK_ASC_LC_X && got_long) {
  36137. /* %lx */
  36138. unsigned long arg = va_arg(ap, unsigned long);
  36139. duk_fb_sprintf(&fb, fmtbuf, arg);
  36140. } else if (ch == DUK_ASC_LC_X) {
  36141. /* %x; only 16 bits are guaranteed */
  36142. unsigned int arg = va_arg(ap, unsigned int);
  36143. duk_fb_sprintf(&fb, fmtbuf, arg);
  36144. } else if (ch == DUK_ASC_LC_S) {
  36145. /* %s */
  36146. const char *arg = va_arg(ap, const char *);
  36147. if (arg == NULL) {
  36148. /* '%s' and NULL is not portable, so special case
  36149. * it for debug printing.
  36150. */
  36151. duk_fb_sprintf(&fb, "NULL");
  36152. } else {
  36153. duk_fb_sprintf(&fb, fmtbuf, arg);
  36154. }
  36155. } else if (ch == DUK_ASC_LC_P) {
  36156. /* %p */
  36157. void *arg = va_arg(ap, void *);
  36158. if (arg == NULL) {
  36159. /* '%p' and NULL is portable, but special case it
  36160. * anyway to get a standard NULL marker in logs.
  36161. */
  36162. duk_fb_sprintf(&fb, "NULL");
  36163. } else {
  36164. duk_fb_sprintf(&fb, fmtbuf, arg);
  36165. }
  36166. } else if (ch == DUK_ASC_LC_C) {
  36167. /* '%c', passed concretely as int */
  36168. int arg = va_arg(ap, int);
  36169. duk_fb_sprintf(&fb, fmtbuf, arg);
  36170. } else {
  36171. /* Should not happen. */
  36172. duk_fb_sprintf(&fb, "INVALID-FORMAT(%s)", (const char *) fmtbuf);
  36173. }
  36174. break;
  36175. } else {
  36176. /* ignore */
  36177. }
  36178. }
  36179. }
  36180. goto done;
  36181. format_error:
  36182. duk_fb_put_cstring(&fb, "FMTERR");
  36183. /* fall through */
  36184. done:
  36185. retval = (duk_int_t) fb.offset;
  36186. duk_fb_put_byte(&fb, (duk_uint8_t) 0);
  36187. /* return total chars written excluding terminator */
  36188. return retval;
  36189. }
  36190. #if 0 /*unused*/
  36191. DUK_INTERNAL duk_int_t duk_debug_snprintf(char *str, duk_size_t size, const char *format, ...) {
  36192. duk_int_t retval;
  36193. va_list ap;
  36194. va_start(ap, format);
  36195. retval = duk_debug_vsnprintf(str, size, format, ap);
  36196. va_end(ap);
  36197. return retval;
  36198. }
  36199. #endif
  36200. /* Formatting function pointers is tricky: there is no standard pointer for
  36201. * function pointers and the size of a function pointer may depend on the
  36202. * specific pointer type. This helper formats a function pointer based on
  36203. * its memory layout to get something useful on most platforms.
  36204. */
  36205. DUK_INTERNAL void duk_debug_format_funcptr(char *buf, duk_size_t buf_size, duk_uint8_t *fptr, duk_size_t fptr_size) {
  36206. duk_size_t i;
  36207. duk_uint8_t *p = (duk_uint8_t *) buf;
  36208. duk_uint8_t *p_end = (duk_uint8_t *) (buf + buf_size - 1);
  36209. DUK_MEMZERO(buf, buf_size);
  36210. for (i = 0; i < fptr_size; i++) {
  36211. duk_int_t left = (duk_int_t) (p_end - p);
  36212. duk_uint8_t ch;
  36213. if (left <= 0) {
  36214. break;
  36215. }
  36216. /* Quite approximate but should be useful for little and big endian. */
  36217. #if defined(DUK_USE_INTEGER_BE)
  36218. ch = fptr[i];
  36219. #else
  36220. ch = fptr[fptr_size - 1 - i];
  36221. #endif
  36222. p += DUK_SNPRINTF((char *) p, (duk_size_t) left, "%02lx", (unsigned long) ch);
  36223. }
  36224. }
  36225. #endif /* DUK_USE_DEBUG */
  36226. /* automatic undefs */
  36227. #undef DUK__ALLOWED_STANDARD_SPECIFIERS
  36228. #undef DUK__COMMA
  36229. #undef DUK__DEEP_DEPTH_LIMIT
  36230. #undef DUK__LOOP_STACK_DEPTH
  36231. #undef DUK__MAX_FORMAT_TAG_LENGTH
  36232. #line 1 "duk_debugger.c"
  36233. /*
  36234. * Duktape debugger
  36235. */
  36236. /* #include duk_internal.h -> already included */
  36237. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  36238. /*
  36239. * Assert helpers
  36240. */
  36241. #if defined(DUK_USE_ASSERTIONS)
  36242. #define DUK__DBG_TPORT_ENTER() do { \
  36243. DUK_ASSERT(heap->dbg_calling_transport == 0); \
  36244. heap->dbg_calling_transport = 1; \
  36245. } while (0)
  36246. #define DUK__DBG_TPORT_EXIT() do { \
  36247. DUK_ASSERT(heap->dbg_calling_transport == 1); \
  36248. heap->dbg_calling_transport = 0; \
  36249. } while (0)
  36250. #else
  36251. #define DUK__DBG_TPORT_ENTER() do {} while (0)
  36252. #define DUK__DBG_TPORT_EXIT() do {} while (0)
  36253. #endif
  36254. /*
  36255. * Helper structs
  36256. */
  36257. typedef union {
  36258. void *p;
  36259. duk_uint_t b[1];
  36260. /* Use b[] to access the size of the union, which is strictly not
  36261. * correct. Can't use fixed size unless there's feature detection
  36262. * for pointer byte size.
  36263. */
  36264. } duk__ptr_union;
  36265. /*
  36266. * Detach handling
  36267. */
  36268. #define DUK__SET_CONN_BROKEN(thr,reason) do { \
  36269. /* For now shared handler is fine. */ \
  36270. duk__debug_do_detach1((thr)->heap, (reason)); \
  36271. } while (0)
  36272. DUK_LOCAL void duk__debug_do_detach1(duk_heap *heap, duk_int_t reason) {
  36273. /* Can be called multiple times with no harm. Mark the transport
  36274. * bad (dbg_read_cb == NULL) and clear state except for the detached
  36275. * callback and the udata field. The detached callback is delayed
  36276. * to the message loop so that it can be called between messages;
  36277. * this avoids corner cases related to immediate debugger reattach
  36278. * inside the detached callback.
  36279. */
  36280. if (heap->dbg_detaching) {
  36281. DUK_D(DUK_DPRINT("debugger already detaching, ignore detach1"));
  36282. return;
  36283. }
  36284. DUK_D(DUK_DPRINT("debugger transport detaching, marking transport broken"));
  36285. heap->dbg_detaching = 1; /* prevent multiple in-progress detaches */
  36286. if (heap->dbg_write_cb != NULL) {
  36287. duk_hthread *thr;
  36288. thr = heap->heap_thread;
  36289. DUK_ASSERT(thr != NULL);
  36290. duk_debug_write_notify(thr, DUK_DBG_CMD_DETACHING);
  36291. duk_debug_write_int(thr, reason);
  36292. duk_debug_write_eom(thr);
  36293. }
  36294. heap->dbg_read_cb = NULL;
  36295. heap->dbg_write_cb = NULL;
  36296. heap->dbg_peek_cb = NULL;
  36297. heap->dbg_read_flush_cb = NULL;
  36298. heap->dbg_write_flush_cb = NULL;
  36299. heap->dbg_request_cb = NULL;
  36300. /* heap->dbg_detached_cb: keep */
  36301. /* heap->dbg_udata: keep */
  36302. /* heap->dbg_processing: keep on purpose to avoid debugger re-entry in detaching state */
  36303. heap->dbg_state_dirty = 0;
  36304. heap->dbg_force_restart = 0;
  36305. heap->dbg_pause_flags = 0;
  36306. heap->dbg_pause_act = NULL;
  36307. heap->dbg_pause_startline = 0;
  36308. heap->dbg_have_next_byte = 0;
  36309. duk_debug_clear_paused(heap); /* XXX: some overlap with field inits above */
  36310. heap->dbg_state_dirty = 0; /* XXX: clear_paused sets dirty; rework? */
  36311. /* Ensure there are no stale active breakpoint pointers.
  36312. * Breakpoint list is currently kept - we could empty it
  36313. * here but we'd need to handle refcounts correctly, and
  36314. * we'd need a 'thr' reference for that.
  36315. *
  36316. * XXX: clear breakpoint on either attach or detach?
  36317. */
  36318. heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL;
  36319. }
  36320. DUK_LOCAL void duk__debug_do_detach2(duk_heap *heap) {
  36321. duk_debug_detached_function detached_cb;
  36322. void *detached_udata;
  36323. duk_hthread *thr;
  36324. thr = heap->heap_thread;
  36325. if (thr == NULL) {
  36326. DUK_ASSERT(heap->dbg_detached_cb == NULL);
  36327. return;
  36328. }
  36329. /* Safe to call multiple times. */
  36330. detached_cb = heap->dbg_detached_cb;
  36331. detached_udata = heap->dbg_udata;
  36332. heap->dbg_detached_cb = NULL;
  36333. heap->dbg_udata = NULL;
  36334. if (detached_cb) {
  36335. /* Careful here: state must be wiped before the call
  36336. * so that we can cleanly handle a re-attach from
  36337. * inside the callback.
  36338. */
  36339. DUK_D(DUK_DPRINT("detached during message loop, delayed call to detached_cb"));
  36340. detached_cb(thr, detached_udata);
  36341. }
  36342. heap->dbg_detaching = 0;
  36343. }
  36344. DUK_INTERNAL void duk_debug_do_detach(duk_heap *heap) {
  36345. duk__debug_do_detach1(heap, 0);
  36346. duk__debug_do_detach2(heap);
  36347. }
  36348. /* Called on a read/write error: NULL all callbacks except the detached
  36349. * callback so that we never accidentally call them after a read/write
  36350. * error has been indicated. This is especially important for the transport
  36351. * I/O callbacks to fulfill guaranteed callback semantics.
  36352. */
  36353. DUK_LOCAL void duk__debug_null_most_callbacks(duk_hthread *thr) {
  36354. duk_heap *heap;
  36355. DUK_ASSERT(thr != NULL);
  36356. heap = thr->heap;
  36357. DUK_D(DUK_DPRINT("transport read/write error, NULL all callbacks expected detached"));
  36358. heap->dbg_read_cb = NULL;
  36359. heap->dbg_write_cb = NULL; /* this is especially critical to avoid another write call in detach1() */
  36360. heap->dbg_peek_cb = NULL;
  36361. heap->dbg_read_flush_cb = NULL;
  36362. heap->dbg_write_flush_cb = NULL;
  36363. heap->dbg_request_cb = NULL;
  36364. /* keep heap->dbg_detached_cb */
  36365. }
  36366. /*
  36367. * Pause handling
  36368. */
  36369. DUK_LOCAL void duk__debug_set_pause_state(duk_hthread *thr, duk_heap *heap, duk_small_uint_t pause_flags) {
  36370. duk_uint_fast32_t line;
  36371. line = duk_debug_curr_line(thr);
  36372. if (line == 0) {
  36373. /* No line info for current function. */
  36374. duk_small_uint_t updated_flags;
  36375. updated_flags = pause_flags & ~(DUK_PAUSE_FLAG_LINE_CHANGE);
  36376. DUK_D(DUK_DPRINT("no line info for current activation, disable line-based pause flags: 0x%08lx -> 0x%08lx",
  36377. (long) pause_flags, (long) updated_flags));
  36378. pause_flags = updated_flags;
  36379. }
  36380. heap->dbg_pause_flags = pause_flags;
  36381. heap->dbg_pause_act = thr->callstack_curr;
  36382. heap->dbg_pause_startline = (duk_uint32_t) line;
  36383. heap->dbg_state_dirty = 1;
  36384. DUK_D(DUK_DPRINT("set state for automatic pause triggers, flags=0x%08lx, act=%p, startline=%ld",
  36385. (long) heap->dbg_pause_flags, (void *) heap->dbg_pause_act,
  36386. (long) heap->dbg_pause_startline));
  36387. }
  36388. /*
  36389. * Debug connection peek and flush primitives
  36390. */
  36391. DUK_INTERNAL duk_bool_t duk_debug_read_peek(duk_hthread *thr) {
  36392. duk_heap *heap;
  36393. duk_bool_t ret;
  36394. DUK_ASSERT(thr != NULL);
  36395. heap = thr->heap;
  36396. DUK_ASSERT(heap != NULL);
  36397. if (heap->dbg_read_cb == NULL) {
  36398. DUK_D(DUK_DPRINT("attempt to peek in detached state, return zero (= no data)"));
  36399. return 0;
  36400. }
  36401. if (heap->dbg_peek_cb == NULL) {
  36402. DUK_DD(DUK_DDPRINT("no peek callback, return zero (= no data)"));
  36403. return 0;
  36404. }
  36405. DUK__DBG_TPORT_ENTER();
  36406. ret = (duk_bool_t) (heap->dbg_peek_cb(heap->dbg_udata) > 0);
  36407. DUK__DBG_TPORT_EXIT();
  36408. return ret;
  36409. }
  36410. DUK_INTERNAL void duk_debug_read_flush(duk_hthread *thr) {
  36411. duk_heap *heap;
  36412. DUK_ASSERT(thr != NULL);
  36413. heap = thr->heap;
  36414. DUK_ASSERT(heap != NULL);
  36415. if (heap->dbg_read_cb == NULL) {
  36416. DUK_D(DUK_DPRINT("attempt to read flush in detached state, ignore"));
  36417. return;
  36418. }
  36419. if (heap->dbg_read_flush_cb == NULL) {
  36420. DUK_DD(DUK_DDPRINT("no read flush callback, ignore"));
  36421. return;
  36422. }
  36423. DUK__DBG_TPORT_ENTER();
  36424. heap->dbg_read_flush_cb(heap->dbg_udata);
  36425. DUK__DBG_TPORT_EXIT();
  36426. }
  36427. DUK_INTERNAL void duk_debug_write_flush(duk_hthread *thr) {
  36428. duk_heap *heap;
  36429. DUK_ASSERT(thr != NULL);
  36430. heap = thr->heap;
  36431. DUK_ASSERT(heap != NULL);
  36432. if (heap->dbg_read_cb == NULL) {
  36433. DUK_D(DUK_DPRINT("attempt to write flush in detached state, ignore"));
  36434. return;
  36435. }
  36436. if (heap->dbg_write_flush_cb == NULL) {
  36437. DUK_DD(DUK_DDPRINT("no write flush callback, ignore"));
  36438. return;
  36439. }
  36440. DUK__DBG_TPORT_ENTER();
  36441. heap->dbg_write_flush_cb(heap->dbg_udata);
  36442. DUK__DBG_TPORT_EXIT();
  36443. }
  36444. /*
  36445. * Debug connection skip primitives
  36446. */
  36447. /* Skip fully. */
  36448. DUK_INTERNAL void duk_debug_skip_bytes(duk_hthread *thr, duk_size_t length) {
  36449. duk_uint8_t dummy[64];
  36450. duk_size_t now;
  36451. DUK_ASSERT(thr != NULL);
  36452. while (length > 0) {
  36453. now = (length > sizeof(dummy) ? sizeof(dummy) : length);
  36454. duk_debug_read_bytes(thr, dummy, now);
  36455. length -= now;
  36456. }
  36457. }
  36458. DUK_INTERNAL void duk_debug_skip_byte(duk_hthread *thr) {
  36459. DUK_ASSERT(thr != NULL);
  36460. (void) duk_debug_read_byte(thr);
  36461. }
  36462. /*
  36463. * Debug connection read primitives
  36464. */
  36465. /* Peek ahead in the stream one byte. */
  36466. DUK_INTERNAL uint8_t duk_debug_peek_byte(duk_hthread *thr) {
  36467. /* It is important not to call this if the last byte read was an EOM.
  36468. * Reading ahead in this scenario would cause unnecessary blocking if
  36469. * another message is not available.
  36470. */
  36471. duk_uint8_t x;
  36472. x = duk_debug_read_byte(thr);
  36473. thr->heap->dbg_have_next_byte = 1;
  36474. thr->heap->dbg_next_byte = x;
  36475. return x;
  36476. }
  36477. /* Read fully. */
  36478. DUK_INTERNAL void duk_debug_read_bytes(duk_hthread *thr, duk_uint8_t *data, duk_size_t length) {
  36479. duk_heap *heap;
  36480. duk_uint8_t *p;
  36481. duk_size_t left;
  36482. duk_size_t got;
  36483. DUK_ASSERT(thr != NULL);
  36484. heap = thr->heap;
  36485. DUK_ASSERT(heap != NULL);
  36486. if (heap->dbg_read_cb == NULL) {
  36487. DUK_D(DUK_DPRINT("attempt to read %ld bytes in detached state, return zero data", (long) length));
  36488. goto fail;
  36489. }
  36490. /* NOTE: length may be zero */
  36491. p = data;
  36492. if (length >= 1 && heap->dbg_have_next_byte) {
  36493. heap->dbg_have_next_byte = 0;
  36494. *p++ = heap->dbg_next_byte;
  36495. }
  36496. for (;;) {
  36497. left = (duk_size_t) ((data + length) - p);
  36498. if (left == 0) {
  36499. break;
  36500. }
  36501. DUK_ASSERT(heap->dbg_read_cb != NULL);
  36502. DUK_ASSERT(left >= 1);
  36503. #if defined(DUK_USE_DEBUGGER_TRANSPORT_TORTURE)
  36504. left = 1;
  36505. #endif
  36506. DUK__DBG_TPORT_ENTER();
  36507. got = heap->dbg_read_cb(heap->dbg_udata, (char *) p, left);
  36508. DUK__DBG_TPORT_EXIT();
  36509. if (got == 0 || got > left) {
  36510. DUK_D(DUK_DPRINT("connection error during read, return zero data"));
  36511. duk__debug_null_most_callbacks(thr); /* avoid calling write callback in detach1() */
  36512. DUK__SET_CONN_BROKEN(thr, 1);
  36513. goto fail;
  36514. }
  36515. p += got;
  36516. }
  36517. return;
  36518. fail:
  36519. DUK_MEMZERO((void *) data, (size_t) length);
  36520. }
  36521. DUK_INTERNAL duk_uint8_t duk_debug_read_byte(duk_hthread *thr) {
  36522. duk_uint8_t x;
  36523. x = 0; /* just in case callback is broken and won't write 'x' */
  36524. duk_debug_read_bytes(thr, &x, 1);
  36525. return x;
  36526. }
  36527. DUK_LOCAL duk_uint32_t duk__debug_read_uint32_raw(duk_hthread *thr) {
  36528. duk_uint8_t buf[4];
  36529. DUK_ASSERT(thr != NULL);
  36530. duk_debug_read_bytes(thr, buf, 4);
  36531. return ((duk_uint32_t) buf[0] << 24) |
  36532. ((duk_uint32_t) buf[1] << 16) |
  36533. ((duk_uint32_t) buf[2] << 8) |
  36534. (duk_uint32_t) buf[3];
  36535. }
  36536. DUK_LOCAL duk_int32_t duk__debug_read_int32_raw(duk_hthread *thr) {
  36537. return (duk_int32_t) duk__debug_read_uint32_raw(thr);
  36538. }
  36539. DUK_LOCAL duk_uint16_t duk__debug_read_uint16_raw(duk_hthread *thr) {
  36540. duk_uint8_t buf[2];
  36541. DUK_ASSERT(thr != NULL);
  36542. duk_debug_read_bytes(thr, buf, 2);
  36543. return ((duk_uint16_t) buf[0] << 8) |
  36544. (duk_uint16_t) buf[1];
  36545. }
  36546. DUK_INTERNAL duk_int32_t duk_debug_read_int(duk_hthread *thr) {
  36547. duk_small_uint_t x;
  36548. duk_small_uint_t t;
  36549. DUK_ASSERT(thr != NULL);
  36550. x = duk_debug_read_byte(thr);
  36551. if (x >= 0xc0) {
  36552. t = duk_debug_read_byte(thr);
  36553. return (duk_int32_t) (((x - 0xc0) << 8) + t);
  36554. } else if (x >= 0x80) {
  36555. return (duk_int32_t) (x - 0x80);
  36556. } else if (x == DUK_DBG_IB_INT4) {
  36557. return (duk_int32_t) duk__debug_read_uint32_raw(thr);
  36558. }
  36559. DUK_D(DUK_DPRINT("debug connection error: failed to decode int"));
  36560. DUK__SET_CONN_BROKEN(thr, 1);
  36561. return 0;
  36562. }
  36563. DUK_LOCAL duk_hstring *duk__debug_read_hstring_raw(duk_hthread *thr, duk_uint32_t len) {
  36564. duk_uint8_t buf[31];
  36565. duk_uint8_t *p;
  36566. if (len <= sizeof(buf)) {
  36567. duk_debug_read_bytes(thr, buf, (duk_size_t) len);
  36568. duk_push_lstring(thr, (const char *) buf, (duk_size_t) len);
  36569. } else {
  36570. p = (duk_uint8_t *) duk_push_fixed_buffer(thr, (duk_size_t) len); /* zero for paranoia */
  36571. DUK_ASSERT(p != NULL);
  36572. duk_debug_read_bytes(thr, p, (duk_size_t) len);
  36573. (void) duk_buffer_to_string(thr, -1); /* Safety relies on debug client, which is OK. */
  36574. }
  36575. return duk_require_hstring(thr, -1);
  36576. }
  36577. DUK_INTERNAL duk_hstring *duk_debug_read_hstring(duk_hthread *thr) {
  36578. duk_small_uint_t x;
  36579. duk_uint32_t len;
  36580. DUK_ASSERT(thr != NULL);
  36581. x = duk_debug_read_byte(thr);
  36582. if (x >= 0x60 && x <= 0x7f) {
  36583. /* For short strings, use a fixed temp buffer. */
  36584. len = (duk_uint32_t) (x - 0x60);
  36585. } else if (x == DUK_DBG_IB_STR2) {
  36586. len = (duk_uint32_t) duk__debug_read_uint16_raw(thr);
  36587. } else if (x == DUK_DBG_IB_STR4) {
  36588. len = (duk_uint32_t) duk__debug_read_uint32_raw(thr);
  36589. } else {
  36590. goto fail;
  36591. }
  36592. return duk__debug_read_hstring_raw(thr, len);
  36593. fail:
  36594. DUK_D(DUK_DPRINT("debug connection error: failed to decode int"));
  36595. DUK__SET_CONN_BROKEN(thr, 1);
  36596. duk_push_hstring_empty(thr); /* always push some string */
  36597. return duk_require_hstring(thr, -1);
  36598. }
  36599. DUK_LOCAL duk_hbuffer *duk__debug_read_hbuffer_raw(duk_hthread *thr, duk_uint32_t len) {
  36600. duk_uint8_t *p;
  36601. p = (duk_uint8_t *) duk_push_fixed_buffer(thr, (duk_size_t) len); /* zero for paranoia */
  36602. DUK_ASSERT(p != NULL);
  36603. duk_debug_read_bytes(thr, p, (duk_size_t) len);
  36604. return duk_require_hbuffer(thr, -1);
  36605. }
  36606. DUK_LOCAL void *duk__debug_read_pointer_raw(duk_hthread *thr) {
  36607. duk_small_uint_t x;
  36608. duk__ptr_union pu;
  36609. DUK_ASSERT(thr != NULL);
  36610. x = duk_debug_read_byte(thr);
  36611. if (x != sizeof(pu)) {
  36612. goto fail;
  36613. }
  36614. duk_debug_read_bytes(thr, (duk_uint8_t *) &pu.p, sizeof(pu));
  36615. #if defined(DUK_USE_INTEGER_LE)
  36616. duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu));
  36617. #endif
  36618. return (void *) pu.p;
  36619. fail:
  36620. DUK_D(DUK_DPRINT("debug connection error: failed to decode pointer"));
  36621. DUK__SET_CONN_BROKEN(thr, 1);
  36622. return (void *) NULL;
  36623. }
  36624. DUK_LOCAL duk_double_t duk__debug_read_double_raw(duk_hthread *thr) {
  36625. duk_double_union du;
  36626. DUK_ASSERT(sizeof(du.uc) == 8);
  36627. duk_debug_read_bytes(thr, (duk_uint8_t *) du.uc, sizeof(du.uc));
  36628. DUK_DBLUNION_DOUBLE_NTOH(&du);
  36629. return du.d;
  36630. }
  36631. #if 0
  36632. DUK_INTERNAL duk_heaphdr *duk_debug_read_heapptr(duk_hthread *thr) {
  36633. duk_small_uint_t x;
  36634. DUK_ASSERT(thr != NULL);
  36635. x = duk_debug_read_byte(thr);
  36636. if (x != DUK_DBG_IB_HEAPPTR) {
  36637. goto fail;
  36638. }
  36639. return (duk_heaphdr *) duk__debug_read_pointer_raw(thr);
  36640. fail:
  36641. DUK_D(DUK_DPRINT("debug connection error: failed to decode heapptr"));
  36642. DUK__SET_CONN_BROKEN(thr, 1);
  36643. return NULL;
  36644. }
  36645. #endif
  36646. DUK_INTERNAL duk_heaphdr *duk_debug_read_any_ptr(duk_hthread *thr) {
  36647. duk_small_uint_t x;
  36648. DUK_ASSERT(thr != NULL);
  36649. x = duk_debug_read_byte(thr);
  36650. switch (x) {
  36651. case DUK_DBG_IB_OBJECT:
  36652. case DUK_DBG_IB_POINTER:
  36653. case DUK_DBG_IB_HEAPPTR:
  36654. /* Accept any pointer-like value; for 'object' dvalue, read
  36655. * and ignore the class number.
  36656. */
  36657. if (x == DUK_DBG_IB_OBJECT) {
  36658. duk_debug_skip_byte(thr);
  36659. }
  36660. break;
  36661. default:
  36662. goto fail;
  36663. }
  36664. return (duk_heaphdr *) duk__debug_read_pointer_raw(thr);
  36665. fail:
  36666. DUK_D(DUK_DPRINT("debug connection error: failed to decode any pointer (object, pointer, heapptr)"));
  36667. DUK__SET_CONN_BROKEN(thr, 1);
  36668. return NULL;
  36669. }
  36670. DUK_INTERNAL duk_tval *duk_debug_read_tval(duk_hthread *thr) {
  36671. duk_uint8_t x;
  36672. duk_uint_t t;
  36673. duk_uint32_t len;
  36674. DUK_ASSERT(thr != NULL);
  36675. x = duk_debug_read_byte(thr);
  36676. if (x >= 0xc0) {
  36677. t = (duk_uint_t) (x - 0xc0);
  36678. t = (t << 8) + duk_debug_read_byte(thr);
  36679. duk_push_uint(thr, (duk_uint_t) t);
  36680. goto return_ptr;
  36681. }
  36682. if (x >= 0x80) {
  36683. duk_push_uint(thr, (duk_uint_t) (x - 0x80));
  36684. goto return_ptr;
  36685. }
  36686. if (x >= 0x60) {
  36687. len = (duk_uint32_t) (x - 0x60);
  36688. duk__debug_read_hstring_raw(thr, len);
  36689. goto return_ptr;
  36690. }
  36691. switch (x) {
  36692. case DUK_DBG_IB_INT4: {
  36693. duk_int32_t i = duk__debug_read_int32_raw(thr);
  36694. duk_push_i32(thr, i);
  36695. break;
  36696. }
  36697. case DUK_DBG_IB_STR4: {
  36698. len = duk__debug_read_uint32_raw(thr);
  36699. duk__debug_read_hstring_raw(thr, len);
  36700. break;
  36701. }
  36702. case DUK_DBG_IB_STR2: {
  36703. len = duk__debug_read_uint16_raw(thr);
  36704. duk__debug_read_hstring_raw(thr, len);
  36705. break;
  36706. }
  36707. case DUK_DBG_IB_BUF4: {
  36708. len = duk__debug_read_uint32_raw(thr);
  36709. duk__debug_read_hbuffer_raw(thr, len);
  36710. break;
  36711. }
  36712. case DUK_DBG_IB_BUF2: {
  36713. len = duk__debug_read_uint16_raw(thr);
  36714. duk__debug_read_hbuffer_raw(thr, len);
  36715. break;
  36716. }
  36717. case DUK_DBG_IB_UNDEFINED: {
  36718. duk_push_undefined(thr);
  36719. break;
  36720. }
  36721. case DUK_DBG_IB_NULL: {
  36722. duk_push_null(thr);
  36723. break;
  36724. }
  36725. case DUK_DBG_IB_TRUE: {
  36726. duk_push_true(thr);
  36727. break;
  36728. }
  36729. case DUK_DBG_IB_FALSE: {
  36730. duk_push_false(thr);
  36731. break;
  36732. }
  36733. case DUK_DBG_IB_NUMBER: {
  36734. duk_double_t d;
  36735. d = duk__debug_read_double_raw(thr);
  36736. duk_push_number(thr, d);
  36737. break;
  36738. }
  36739. case DUK_DBG_IB_OBJECT: {
  36740. duk_heaphdr *h;
  36741. duk_debug_skip_byte(thr);
  36742. h = (duk_heaphdr *) duk__debug_read_pointer_raw(thr);
  36743. duk_push_heapptr(thr, (void *) h);
  36744. break;
  36745. }
  36746. case DUK_DBG_IB_POINTER: {
  36747. void *ptr;
  36748. ptr = duk__debug_read_pointer_raw(thr);
  36749. duk_push_pointer(thr, ptr);
  36750. break;
  36751. }
  36752. case DUK_DBG_IB_LIGHTFUNC: {
  36753. /* XXX: Not needed for now, so not implemented. Note that
  36754. * function pointers may have different size/layout than
  36755. * a void pointer.
  36756. */
  36757. DUK_D(DUK_DPRINT("reading lightfunc values unimplemented"));
  36758. goto fail;
  36759. }
  36760. case DUK_DBG_IB_HEAPPTR: {
  36761. duk_heaphdr *h;
  36762. h = (duk_heaphdr *) duk__debug_read_pointer_raw(thr);
  36763. duk_push_heapptr(thr, (void *) h);
  36764. break;
  36765. }
  36766. case DUK_DBG_IB_UNUSED: /* unused: not accepted in inbound messages */
  36767. default:
  36768. goto fail;
  36769. }
  36770. return_ptr:
  36771. return DUK_GET_TVAL_NEGIDX(thr, -1);
  36772. fail:
  36773. DUK_D(DUK_DPRINT("debug connection error: failed to decode tval"));
  36774. DUK__SET_CONN_BROKEN(thr, 1);
  36775. return NULL;
  36776. }
  36777. /*
  36778. * Debug connection write primitives
  36779. */
  36780. /* Write fully. */
  36781. DUK_INTERNAL void duk_debug_write_bytes(duk_hthread *thr, const duk_uint8_t *data, duk_size_t length) {
  36782. duk_heap *heap;
  36783. const duk_uint8_t *p;
  36784. duk_size_t left;
  36785. duk_size_t got;
  36786. DUK_ASSERT(thr != NULL);
  36787. DUK_ASSERT(length == 0 || data != NULL);
  36788. heap = thr->heap;
  36789. DUK_ASSERT(heap != NULL);
  36790. if (heap->dbg_write_cb == NULL) {
  36791. DUK_D(DUK_DPRINT("attempt to write %ld bytes in detached state, ignore", (long) length));
  36792. return;
  36793. }
  36794. if (length == 0) {
  36795. /* Avoid doing an actual write callback with length == 0,
  36796. * because that's reserved for a write flush.
  36797. */
  36798. return;
  36799. }
  36800. DUK_ASSERT(data != NULL);
  36801. p = data;
  36802. for (;;) {
  36803. left = (duk_size_t) ((data + length) - p);
  36804. if (left == 0) {
  36805. break;
  36806. }
  36807. DUK_ASSERT(heap->dbg_write_cb != NULL);
  36808. DUK_ASSERT(left >= 1);
  36809. #if defined(DUK_USE_DEBUGGER_TRANSPORT_TORTURE)
  36810. left = 1;
  36811. #endif
  36812. DUK__DBG_TPORT_ENTER();
  36813. got = heap->dbg_write_cb(heap->dbg_udata, (const char *) p, left);
  36814. DUK__DBG_TPORT_EXIT();
  36815. if (got == 0 || got > left) {
  36816. duk__debug_null_most_callbacks(thr); /* avoid calling write callback in detach1() */
  36817. DUK_D(DUK_DPRINT("connection error during write"));
  36818. DUK__SET_CONN_BROKEN(thr, 1);
  36819. return;
  36820. }
  36821. p += got;
  36822. }
  36823. }
  36824. DUK_INTERNAL void duk_debug_write_byte(duk_hthread *thr, duk_uint8_t x) {
  36825. duk_debug_write_bytes(thr, (const duk_uint8_t *) &x, 1);
  36826. }
  36827. DUK_INTERNAL void duk_debug_write_unused(duk_hthread *thr) {
  36828. duk_debug_write_byte(thr, DUK_DBG_IB_UNUSED);
  36829. }
  36830. DUK_INTERNAL void duk_debug_write_undefined(duk_hthread *thr) {
  36831. duk_debug_write_byte(thr, DUK_DBG_IB_UNDEFINED);
  36832. }
  36833. #if defined(DUK_USE_DEBUGGER_INSPECT)
  36834. DUK_INTERNAL void duk_debug_write_null(duk_hthread *thr) {
  36835. duk_debug_write_byte(thr, DUK_DBG_IB_NULL);
  36836. }
  36837. #endif
  36838. DUK_INTERNAL void duk_debug_write_boolean(duk_hthread *thr, duk_uint_t val) {
  36839. duk_debug_write_byte(thr, val ? DUK_DBG_IB_TRUE : DUK_DBG_IB_FALSE);
  36840. }
  36841. /* Write signed 32-bit integer. */
  36842. DUK_INTERNAL void duk_debug_write_int(duk_hthread *thr, duk_int32_t x) {
  36843. duk_uint8_t buf[5];
  36844. duk_size_t len;
  36845. DUK_ASSERT(thr != NULL);
  36846. if (x >= 0 && x <= 0x3fL) {
  36847. buf[0] = (duk_uint8_t) (0x80 + x);
  36848. len = 1;
  36849. } else if (x >= 0 && x <= 0x3fffL) {
  36850. buf[0] = (duk_uint8_t) (0xc0 + (x >> 8));
  36851. buf[1] = (duk_uint8_t) (x & 0xff);
  36852. len = 2;
  36853. } else {
  36854. /* Signed integers always map to 4 bytes now. */
  36855. buf[0] = (duk_uint8_t) DUK_DBG_IB_INT4;
  36856. buf[1] = (duk_uint8_t) ((x >> 24) & 0xff);
  36857. buf[2] = (duk_uint8_t) ((x >> 16) & 0xff);
  36858. buf[3] = (duk_uint8_t) ((x >> 8) & 0xff);
  36859. buf[4] = (duk_uint8_t) (x & 0xff);
  36860. len = 5;
  36861. }
  36862. duk_debug_write_bytes(thr, buf, len);
  36863. }
  36864. /* Write unsigned 32-bit integer. */
  36865. DUK_INTERNAL void duk_debug_write_uint(duk_hthread *thr, duk_uint32_t x) {
  36866. /* The debugger protocol doesn't support a plain integer encoding for
  36867. * the full 32-bit unsigned range (only 32-bit signed). For now,
  36868. * unsigned 32-bit values simply written as signed ones. This is not
  36869. * a concrete issue except for 32-bit heaphdr fields. Proper solutions
  36870. * would be to (a) write such integers as IEEE doubles or (b) add an
  36871. * unsigned 32-bit dvalue.
  36872. */
  36873. if (x >= 0x80000000UL) {
  36874. DUK_D(DUK_DPRINT("writing unsigned integer 0x%08lx as signed integer",
  36875. (long) x));
  36876. }
  36877. duk_debug_write_int(thr, (duk_int32_t) x);
  36878. }
  36879. DUK_INTERNAL void duk_debug_write_strbuf(duk_hthread *thr, const char *data, duk_size_t length, duk_uint8_t marker_base) {
  36880. duk_uint8_t buf[5];
  36881. duk_size_t buflen;
  36882. DUK_ASSERT(thr != NULL);
  36883. DUK_ASSERT(length == 0 || data != NULL);
  36884. if (length <= 0x1fUL && marker_base == DUK_DBG_IB_STR4) {
  36885. /* For strings, special form for short lengths. */
  36886. buf[0] = (duk_uint8_t) (0x60 + length);
  36887. buflen = 1;
  36888. } else if (length <= 0xffffUL) {
  36889. buf[0] = (duk_uint8_t) (marker_base + 1);
  36890. buf[1] = (duk_uint8_t) (length >> 8);
  36891. buf[2] = (duk_uint8_t) (length & 0xff);
  36892. buflen = 3;
  36893. } else {
  36894. buf[0] = (duk_uint8_t) marker_base;
  36895. buf[1] = (duk_uint8_t) (length >> 24);
  36896. buf[2] = (duk_uint8_t) ((length >> 16) & 0xff);
  36897. buf[3] = (duk_uint8_t) ((length >> 8) & 0xff);
  36898. buf[4] = (duk_uint8_t) (length & 0xff);
  36899. buflen = 5;
  36900. }
  36901. duk_debug_write_bytes(thr, (const duk_uint8_t *) buf, buflen);
  36902. duk_debug_write_bytes(thr, (const duk_uint8_t *) data, length);
  36903. }
  36904. DUK_INTERNAL void duk_debug_write_string(duk_hthread *thr, const char *data, duk_size_t length) {
  36905. duk_debug_write_strbuf(thr, data, length, DUK_DBG_IB_STR4);
  36906. }
  36907. DUK_INTERNAL void duk_debug_write_cstring(duk_hthread *thr, const char *data) {
  36908. DUK_ASSERT(thr != NULL);
  36909. duk_debug_write_string(thr,
  36910. data,
  36911. data ? DUK_STRLEN(data) : 0);
  36912. }
  36913. DUK_INTERNAL void duk_debug_write_hstring(duk_hthread *thr, duk_hstring *h) {
  36914. DUK_ASSERT(thr != NULL);
  36915. /* XXX: differentiate null pointer from empty string? */
  36916. duk_debug_write_string(thr,
  36917. (h != NULL ? (const char *) DUK_HSTRING_GET_DATA(h) : NULL),
  36918. (h != NULL ? (duk_size_t) DUK_HSTRING_GET_BYTELEN(h) : 0));
  36919. }
  36920. DUK_LOCAL void duk__debug_write_hstring_safe_top(duk_hthread *thr) {
  36921. duk_debug_write_hstring(thr, duk_safe_to_hstring(thr, -1));
  36922. }
  36923. DUK_INTERNAL void duk_debug_write_buffer(duk_hthread *thr, const char *data, duk_size_t length) {
  36924. duk_debug_write_strbuf(thr, data, length, DUK_DBG_IB_BUF4);
  36925. }
  36926. DUK_INTERNAL void duk_debug_write_hbuffer(duk_hthread *thr, duk_hbuffer *h) {
  36927. DUK_ASSERT(thr != NULL);
  36928. duk_debug_write_buffer(thr,
  36929. (h != NULL ? (const char *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h) : NULL),
  36930. (h != NULL ? (duk_size_t) DUK_HBUFFER_GET_SIZE(h) : 0));
  36931. }
  36932. DUK_LOCAL void duk__debug_write_pointer_raw(duk_hthread *thr, void *ptr, duk_uint8_t ibyte) {
  36933. duk_uint8_t buf[2];
  36934. duk__ptr_union pu;
  36935. DUK_ASSERT(thr != NULL);
  36936. DUK_ASSERT(sizeof(ptr) >= 1 && sizeof(ptr) <= 16);
  36937. /* ptr may be NULL */
  36938. buf[0] = ibyte;
  36939. buf[1] = sizeof(pu);
  36940. duk_debug_write_bytes(thr, buf, 2);
  36941. pu.p = (void *) ptr;
  36942. #if defined(DUK_USE_INTEGER_LE)
  36943. duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu));
  36944. #endif
  36945. duk_debug_write_bytes(thr, (const duk_uint8_t *) &pu.p, (duk_size_t) sizeof(pu));
  36946. }
  36947. DUK_INTERNAL void duk_debug_write_pointer(duk_hthread *thr, void *ptr) {
  36948. duk__debug_write_pointer_raw(thr, ptr, DUK_DBG_IB_POINTER);
  36949. }
  36950. #if defined(DUK_USE_DEBUGGER_DUMPHEAP) || defined(DUK_USE_DEBUGGER_INSPECT)
  36951. DUK_INTERNAL void duk_debug_write_heapptr(duk_hthread *thr, duk_heaphdr *h) {
  36952. duk__debug_write_pointer_raw(thr, (void *) h, DUK_DBG_IB_HEAPPTR);
  36953. }
  36954. #endif /* DUK_USE_DEBUGGER_DUMPHEAP || DUK_USE_DEBUGGER_INSPECT */
  36955. DUK_INTERNAL void duk_debug_write_hobject(duk_hthread *thr, duk_hobject *obj) {
  36956. duk_uint8_t buf[3];
  36957. duk__ptr_union pu;
  36958. DUK_ASSERT(thr != NULL);
  36959. DUK_ASSERT(sizeof(obj) >= 1 && sizeof(obj) <= 16);
  36960. DUK_ASSERT(obj != NULL);
  36961. buf[0] = DUK_DBG_IB_OBJECT;
  36962. buf[1] = (duk_uint8_t) DUK_HOBJECT_GET_CLASS_NUMBER(obj);
  36963. buf[2] = sizeof(pu);
  36964. duk_debug_write_bytes(thr, buf, 3);
  36965. pu.p = (void *) obj;
  36966. #if defined(DUK_USE_INTEGER_LE)
  36967. duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu));
  36968. #endif
  36969. duk_debug_write_bytes(thr, (const duk_uint8_t *) &pu.p, (duk_size_t) sizeof(pu));
  36970. }
  36971. DUK_INTERNAL void duk_debug_write_tval(duk_hthread *thr, duk_tval *tv) {
  36972. duk_c_function lf_func;
  36973. duk_small_uint_t lf_flags;
  36974. duk_uint8_t buf[4];
  36975. duk_double_union du1;
  36976. duk_double_union du2;
  36977. duk_int32_t i32;
  36978. DUK_ASSERT(thr != NULL);
  36979. DUK_ASSERT(tv != NULL);
  36980. switch (DUK_TVAL_GET_TAG(tv)) {
  36981. case DUK_TAG_UNDEFINED:
  36982. duk_debug_write_byte(thr, DUK_DBG_IB_UNDEFINED);
  36983. break;
  36984. case DUK_TAG_UNUSED:
  36985. duk_debug_write_byte(thr, DUK_DBG_IB_UNUSED);
  36986. break;
  36987. case DUK_TAG_NULL:
  36988. duk_debug_write_byte(thr, DUK_DBG_IB_NULL);
  36989. break;
  36990. case DUK_TAG_BOOLEAN:
  36991. DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv) == 0 ||
  36992. DUK_TVAL_GET_BOOLEAN(tv) == 1);
  36993. duk_debug_write_boolean(thr, DUK_TVAL_GET_BOOLEAN(tv));
  36994. break;
  36995. case DUK_TAG_POINTER:
  36996. duk_debug_write_pointer(thr, (void *) DUK_TVAL_GET_POINTER(tv));
  36997. break;
  36998. case DUK_TAG_LIGHTFUNC:
  36999. DUK_TVAL_GET_LIGHTFUNC(tv, lf_func, lf_flags);
  37000. buf[0] = DUK_DBG_IB_LIGHTFUNC;
  37001. buf[1] = (duk_uint8_t) (lf_flags >> 8);
  37002. buf[2] = (duk_uint8_t) (lf_flags & 0xff);
  37003. buf[3] = sizeof(lf_func);
  37004. duk_debug_write_bytes(thr, buf, 4);
  37005. duk_debug_write_bytes(thr, (const duk_uint8_t *) &lf_func, sizeof(lf_func));
  37006. break;
  37007. case DUK_TAG_STRING:
  37008. duk_debug_write_hstring(thr, DUK_TVAL_GET_STRING(tv));
  37009. break;
  37010. case DUK_TAG_OBJECT:
  37011. duk_debug_write_hobject(thr, DUK_TVAL_GET_OBJECT(tv));
  37012. break;
  37013. case DUK_TAG_BUFFER:
  37014. duk_debug_write_hbuffer(thr, DUK_TVAL_GET_BUFFER(tv));
  37015. break;
  37016. #if defined(DUK_USE_FASTINT)
  37017. case DUK_TAG_FASTINT:
  37018. #endif
  37019. default:
  37020. /* Numbers are normalized to big (network) endian. We can
  37021. * (but are not required) to use integer dvalues when there's
  37022. * no loss of precision.
  37023. *
  37024. * XXX: share check with other code; this check is slow but
  37025. * reliable and doesn't require careful exponent/mantissa
  37026. * mask tricks as in the fastint downgrade code.
  37027. */
  37028. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  37029. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  37030. du1.d = DUK_TVAL_GET_NUMBER(tv);
  37031. i32 = (duk_int32_t) du1.d;
  37032. du2.d = (duk_double_t) i32;
  37033. DUK_DD(DUK_DDPRINT("i32=%ld du1=%02x%02x%02x%02x%02x%02x%02x%02x "
  37034. "du2=%02x%02x%02x%02x%02x%02x%02x%02x",
  37035. (long) i32,
  37036. (unsigned int) du1.uc[0], (unsigned int) du1.uc[1],
  37037. (unsigned int) du1.uc[2], (unsigned int) du1.uc[3],
  37038. (unsigned int) du1.uc[4], (unsigned int) du1.uc[5],
  37039. (unsigned int) du1.uc[6], (unsigned int) du1.uc[7],
  37040. (unsigned int) du2.uc[0], (unsigned int) du2.uc[1],
  37041. (unsigned int) du2.uc[2], (unsigned int) du2.uc[3],
  37042. (unsigned int) du2.uc[4], (unsigned int) du2.uc[5],
  37043. (unsigned int) du2.uc[6], (unsigned int) du2.uc[7]));
  37044. if (DUK_MEMCMP((const void *) du1.uc, (const void *) du2.uc, sizeof(du1.uc)) == 0) {
  37045. duk_debug_write_int(thr, i32);
  37046. } else {
  37047. DUK_DBLUNION_DOUBLE_HTON(&du1);
  37048. duk_debug_write_byte(thr, DUK_DBG_IB_NUMBER);
  37049. duk_debug_write_bytes(thr, (const duk_uint8_t *) du1.uc, sizeof(du1.uc));
  37050. }
  37051. }
  37052. }
  37053. #if defined(DUK_USE_DEBUGGER_DUMPHEAP)
  37054. /* Variant for writing duk_tvals so that any heap allocated values are
  37055. * written out as tagged heap pointers.
  37056. */
  37057. DUK_LOCAL void duk__debug_write_tval_heapptr(duk_hthread *thr, duk_tval *tv) {
  37058. if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) {
  37059. duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv);
  37060. duk_debug_write_heapptr(thr, h);
  37061. } else {
  37062. duk_debug_write_tval(thr, tv);
  37063. }
  37064. }
  37065. #endif /* DUK_USE_DEBUGGER_DUMPHEAP */
  37066. /*
  37067. * Debug connection message write helpers
  37068. */
  37069. #if 0 /* unused */
  37070. DUK_INTERNAL void duk_debug_write_request(duk_hthread *thr, duk_small_uint_t command) {
  37071. duk_debug_write_byte(thr, DUK_DBG_IB_REQUEST);
  37072. duk_debug_write_int(thr, command);
  37073. }
  37074. #endif
  37075. DUK_INTERNAL void duk_debug_write_reply(duk_hthread *thr) {
  37076. duk_debug_write_byte(thr, DUK_DBG_IB_REPLY);
  37077. }
  37078. DUK_INTERNAL void duk_debug_write_error_eom(duk_hthread *thr, duk_small_uint_t err_code, const char *msg) {
  37079. /* Allow NULL 'msg' */
  37080. duk_debug_write_byte(thr, DUK_DBG_IB_ERROR);
  37081. duk_debug_write_int(thr, (duk_int32_t) err_code);
  37082. duk_debug_write_cstring(thr, msg);
  37083. duk_debug_write_eom(thr);
  37084. }
  37085. DUK_INTERNAL void duk_debug_write_notify(duk_hthread *thr, duk_small_uint_t command) {
  37086. duk_debug_write_byte(thr, DUK_DBG_IB_NOTIFY);
  37087. duk_debug_write_int(thr, (duk_int32_t) command);
  37088. }
  37089. DUK_INTERNAL void duk_debug_write_eom(duk_hthread *thr) {
  37090. duk_debug_write_byte(thr, DUK_DBG_IB_EOM);
  37091. /* As an initial implementation, write flush after every EOM (and the
  37092. * version identifier). A better implementation would flush only when
  37093. * Duktape is finished processing messages so that a flush only happens
  37094. * after all outbound messages are finished on that occasion.
  37095. */
  37096. duk_debug_write_flush(thr);
  37097. }
  37098. /*
  37099. * Status message and helpers
  37100. */
  37101. DUK_INTERNAL duk_uint_fast32_t duk_debug_curr_line(duk_hthread *thr) {
  37102. duk_activation *act;
  37103. duk_uint_fast32_t line;
  37104. duk_uint_fast32_t pc;
  37105. act = thr->callstack_curr;
  37106. if (act == NULL) {
  37107. return 0;
  37108. }
  37109. /* We're conceptually between two opcodes; act->pc indicates the next
  37110. * instruction to be executed. This is usually the correct pc/line to
  37111. * indicate in Status. (For the 'debugger' statement this now reports
  37112. * the pc/line after the debugger statement because the debugger opcode
  37113. * has already been executed.)
  37114. */
  37115. pc = duk_hthread_get_act_curr_pc(thr, act);
  37116. /* XXX: this should be optimized to be a raw query and avoid valstack
  37117. * operations if possible.
  37118. */
  37119. duk_push_tval(thr, &act->tv_func);
  37120. line = duk_hobject_pc2line_query(thr, -1, pc);
  37121. duk_pop(thr);
  37122. return line;
  37123. }
  37124. DUK_INTERNAL void duk_debug_send_status(duk_hthread *thr) {
  37125. duk_activation *act;
  37126. duk_debug_write_notify(thr, DUK_DBG_CMD_STATUS);
  37127. duk_debug_write_int(thr, (DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) ? 1 : 0));
  37128. act = thr->callstack_curr;
  37129. if (act == NULL) {
  37130. duk_debug_write_undefined(thr);
  37131. duk_debug_write_undefined(thr);
  37132. duk_debug_write_int(thr, 0);
  37133. duk_debug_write_int(thr, 0);
  37134. } else {
  37135. duk_push_tval(thr, &act->tv_func);
  37136. duk_get_prop_string(thr, -1, "fileName");
  37137. duk__debug_write_hstring_safe_top(thr);
  37138. duk_get_prop_string(thr, -2, "name");
  37139. duk__debug_write_hstring_safe_top(thr);
  37140. duk_pop_3(thr);
  37141. /* Report next pc/line to be executed. */
  37142. duk_debug_write_uint(thr, (duk_uint32_t) duk_debug_curr_line(thr));
  37143. duk_debug_write_uint(thr, (duk_uint32_t) duk_hthread_get_act_curr_pc(thr, act));
  37144. }
  37145. duk_debug_write_eom(thr);
  37146. }
  37147. #if defined(DUK_USE_DEBUGGER_THROW_NOTIFY)
  37148. DUK_INTERNAL void duk_debug_send_throw(duk_hthread *thr, duk_bool_t fatal) {
  37149. /*
  37150. * NFY <int: 5> <int: fatal> <str: msg> <str: filename> <int: linenumber> EOM
  37151. */
  37152. duk_activation *act;
  37153. duk_uint32_t pc;
  37154. DUK_ASSERT(thr->valstack_top > thr->valstack); /* At least: ... [err] */
  37155. duk_debug_write_notify(thr, DUK_DBG_CMD_THROW);
  37156. duk_debug_write_int(thr, (duk_int32_t) fatal);
  37157. /* Report thrown value to client coerced to string */
  37158. duk_dup_top(thr);
  37159. duk__debug_write_hstring_safe_top(thr);
  37160. duk_pop(thr);
  37161. if (duk_is_error(thr, -1)) {
  37162. /* Error instance, use augmented error data directly */
  37163. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME);
  37164. duk__debug_write_hstring_safe_top(thr);
  37165. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_LINE_NUMBER);
  37166. duk_debug_write_uint(thr, duk_get_uint(thr, -1));
  37167. duk_pop_2(thr);
  37168. } else {
  37169. /* For anything other than an Error instance, we calculate the
  37170. * error location directly from the current activation if one
  37171. * exists.
  37172. */
  37173. act = thr->callstack_curr;
  37174. if (act != NULL) {
  37175. duk_push_tval(thr, &act->tv_func);
  37176. duk_get_prop_string(thr, -1, "fileName");
  37177. duk__debug_write_hstring_safe_top(thr);
  37178. pc = (duk_uint32_t) duk_hthread_get_act_prev_pc(thr, act);
  37179. duk_debug_write_uint(thr, (duk_uint32_t) duk_hobject_pc2line_query(thr, -2, pc));
  37180. duk_pop_2(thr);
  37181. } else {
  37182. /* Can happen if duk_throw() is called on an empty
  37183. * callstack.
  37184. */
  37185. duk_debug_write_cstring(thr, "");
  37186. duk_debug_write_uint(thr, 0);
  37187. }
  37188. }
  37189. duk_debug_write_eom(thr);
  37190. }
  37191. #endif /* DUK_USE_DEBUGGER_THROW_NOTIFY */
  37192. /*
  37193. * Debug message processing
  37194. */
  37195. /* Skip dvalue. */
  37196. DUK_LOCAL duk_bool_t duk__debug_skip_dvalue(duk_hthread *thr) {
  37197. duk_uint8_t x;
  37198. duk_uint32_t len;
  37199. x = duk_debug_read_byte(thr);
  37200. if (x >= 0xc0) {
  37201. duk_debug_skip_byte(thr);
  37202. return 0;
  37203. }
  37204. if (x >= 0x80) {
  37205. return 0;
  37206. }
  37207. if (x >= 0x60) {
  37208. duk_debug_skip_bytes(thr, (duk_size_t) (x - 0x60));
  37209. return 0;
  37210. }
  37211. switch(x) {
  37212. case DUK_DBG_IB_EOM:
  37213. return 1; /* Return 1: got EOM */
  37214. case DUK_DBG_IB_REQUEST:
  37215. case DUK_DBG_IB_REPLY:
  37216. case DUK_DBG_IB_ERROR:
  37217. case DUK_DBG_IB_NOTIFY:
  37218. break;
  37219. case DUK_DBG_IB_INT4:
  37220. (void) duk__debug_read_uint32_raw(thr);
  37221. break;
  37222. case DUK_DBG_IB_STR4:
  37223. case DUK_DBG_IB_BUF4:
  37224. len = duk__debug_read_uint32_raw(thr);
  37225. duk_debug_skip_bytes(thr, len);
  37226. break;
  37227. case DUK_DBG_IB_STR2:
  37228. case DUK_DBG_IB_BUF2:
  37229. len = duk__debug_read_uint16_raw(thr);
  37230. duk_debug_skip_bytes(thr, len);
  37231. break;
  37232. case DUK_DBG_IB_UNUSED:
  37233. case DUK_DBG_IB_UNDEFINED:
  37234. case DUK_DBG_IB_NULL:
  37235. case DUK_DBG_IB_TRUE:
  37236. case DUK_DBG_IB_FALSE:
  37237. break;
  37238. case DUK_DBG_IB_NUMBER:
  37239. duk_debug_skip_bytes(thr, 8);
  37240. break;
  37241. case DUK_DBG_IB_OBJECT:
  37242. duk_debug_skip_byte(thr);
  37243. len = duk_debug_read_byte(thr);
  37244. duk_debug_skip_bytes(thr, len);
  37245. break;
  37246. case DUK_DBG_IB_POINTER:
  37247. case DUK_DBG_IB_HEAPPTR:
  37248. len = duk_debug_read_byte(thr);
  37249. duk_debug_skip_bytes(thr, len);
  37250. break;
  37251. case DUK_DBG_IB_LIGHTFUNC:
  37252. duk_debug_skip_bytes(thr, 2);
  37253. len = duk_debug_read_byte(thr);
  37254. duk_debug_skip_bytes(thr, len);
  37255. break;
  37256. default:
  37257. goto fail;
  37258. }
  37259. return 0;
  37260. fail:
  37261. DUK__SET_CONN_BROKEN(thr, 1);
  37262. return 1; /* Pretend like we got EOM */
  37263. }
  37264. /* Skip dvalues to EOM. */
  37265. DUK_LOCAL void duk__debug_skip_to_eom(duk_hthread *thr) {
  37266. for (;;) {
  37267. if (duk__debug_skip_dvalue(thr)) {
  37268. break;
  37269. }
  37270. }
  37271. }
  37272. /* Read and validate a call stack index. If index is invalid, write out an
  37273. * error message and return zero.
  37274. */
  37275. DUK_LOCAL duk_int32_t duk__debug_read_validate_csindex(duk_hthread *thr) {
  37276. duk_int32_t level;
  37277. level = duk_debug_read_int(thr);
  37278. if (level >= 0 || -level > (duk_int32_t) thr->callstack_top) {
  37279. duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index");
  37280. return 0; /* zero indicates failure */
  37281. }
  37282. return level;
  37283. }
  37284. /* Read a call stack index and lookup the corresponding duk_activation.
  37285. * If index is invalid, write out an error message and return NULL.
  37286. */
  37287. DUK_LOCAL duk_activation *duk__debug_read_level_get_activation(duk_hthread *thr) {
  37288. duk_activation *act;
  37289. duk_int32_t level;
  37290. level = duk_debug_read_int(thr);
  37291. act = duk_hthread_get_activation_for_level(thr, level);
  37292. if (act == NULL) {
  37293. duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index");
  37294. }
  37295. return act;
  37296. }
  37297. /*
  37298. * Simple commands
  37299. */
  37300. DUK_LOCAL void duk__debug_handle_basic_info(duk_hthread *thr, duk_heap *heap) {
  37301. DUK_UNREF(heap);
  37302. DUK_D(DUK_DPRINT("debug command Version"));
  37303. duk_debug_write_reply(thr);
  37304. duk_debug_write_int(thr, DUK_VERSION);
  37305. duk_debug_write_cstring(thr, DUK_GIT_DESCRIBE);
  37306. duk_debug_write_cstring(thr, DUK_USE_TARGET_INFO);
  37307. #if defined(DUK_USE_DOUBLE_LE)
  37308. duk_debug_write_int(thr, 1);
  37309. #elif defined(DUK_USE_DOUBLE_ME)
  37310. duk_debug_write_int(thr, 2);
  37311. #elif defined(DUK_USE_DOUBLE_BE)
  37312. duk_debug_write_int(thr, 3);
  37313. #else
  37314. duk_debug_write_int(thr, 0);
  37315. #endif
  37316. duk_debug_write_int(thr, (duk_int_t) sizeof(void *));
  37317. duk_debug_write_eom(thr);
  37318. }
  37319. DUK_LOCAL void duk__debug_handle_trigger_status(duk_hthread *thr, duk_heap *heap) {
  37320. DUK_UNREF(heap);
  37321. DUK_D(DUK_DPRINT("debug command TriggerStatus"));
  37322. duk_debug_write_reply(thr);
  37323. duk_debug_write_eom(thr);
  37324. heap->dbg_state_dirty = 1;
  37325. }
  37326. DUK_LOCAL void duk__debug_handle_pause(duk_hthread *thr, duk_heap *heap) {
  37327. DUK_D(DUK_DPRINT("debug command Pause"));
  37328. duk_debug_set_paused(heap);
  37329. duk_debug_write_reply(thr);
  37330. duk_debug_write_eom(thr);
  37331. }
  37332. DUK_LOCAL void duk__debug_handle_resume(duk_hthread *thr, duk_heap *heap) {
  37333. duk_small_uint_t pause_flags;
  37334. DUK_D(DUK_DPRINT("debug command Resume"));
  37335. duk_debug_clear_paused(heap);
  37336. pause_flags = 0;
  37337. #if 0 /* manual testing */
  37338. pause_flags |= DUK_PAUSE_FLAG_ONE_OPCODE;
  37339. pause_flags |= DUK_PAUSE_FLAG_CAUGHT_ERROR;
  37340. pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR;
  37341. #endif
  37342. #if defined(DUK_USE_DEBUGGER_PAUSE_UNCAUGHT)
  37343. pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR;
  37344. #endif
  37345. duk__debug_set_pause_state(thr, heap, pause_flags);
  37346. duk_debug_write_reply(thr);
  37347. duk_debug_write_eom(thr);
  37348. }
  37349. DUK_LOCAL void duk__debug_handle_step(duk_hthread *thr, duk_heap *heap, duk_int32_t cmd) {
  37350. duk_small_uint_t pause_flags;
  37351. DUK_D(DUK_DPRINT("debug command StepInto/StepOver/StepOut: %d", (int) cmd));
  37352. if (cmd == DUK_DBG_CMD_STEPINTO) {
  37353. pause_flags = DUK_PAUSE_FLAG_LINE_CHANGE |
  37354. DUK_PAUSE_FLAG_FUNC_ENTRY |
  37355. DUK_PAUSE_FLAG_FUNC_EXIT;
  37356. } else if (cmd == DUK_DBG_CMD_STEPOVER) {
  37357. pause_flags = DUK_PAUSE_FLAG_LINE_CHANGE |
  37358. DUK_PAUSE_FLAG_FUNC_EXIT;
  37359. } else {
  37360. DUK_ASSERT(cmd == DUK_DBG_CMD_STEPOUT);
  37361. pause_flags = DUK_PAUSE_FLAG_FUNC_EXIT;
  37362. }
  37363. #if defined(DUK_USE_DEBUGGER_PAUSE_UNCAUGHT)
  37364. pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR;
  37365. #endif
  37366. /* If current activation doesn't have line information, line-based
  37367. * pause flags are automatically disabled. As a result, e.g.
  37368. * StepInto will then pause on (native) function entry or exit.
  37369. */
  37370. duk_debug_clear_paused(heap);
  37371. duk__debug_set_pause_state(thr, heap, pause_flags);
  37372. duk_debug_write_reply(thr);
  37373. duk_debug_write_eom(thr);
  37374. }
  37375. DUK_LOCAL void duk__debug_handle_list_break(duk_hthread *thr, duk_heap *heap) {
  37376. duk_small_int_t i;
  37377. DUK_D(DUK_DPRINT("debug command ListBreak"));
  37378. duk_debug_write_reply(thr);
  37379. for (i = 0; i < (duk_small_int_t) heap->dbg_breakpoint_count; i++) {
  37380. duk_debug_write_hstring(thr, heap->dbg_breakpoints[i].filename);
  37381. duk_debug_write_uint(thr, (duk_uint32_t) heap->dbg_breakpoints[i].line);
  37382. }
  37383. duk_debug_write_eom(thr);
  37384. }
  37385. DUK_LOCAL void duk__debug_handle_add_break(duk_hthread *thr, duk_heap *heap) {
  37386. duk_hstring *filename;
  37387. duk_uint32_t linenumber;
  37388. duk_small_int_t idx;
  37389. DUK_UNREF(heap);
  37390. filename = duk_debug_read_hstring(thr);
  37391. linenumber = (duk_uint32_t) duk_debug_read_int(thr);
  37392. DUK_D(DUK_DPRINT("debug command AddBreak: %!O:%ld", (duk_hobject *) filename, (long) linenumber));
  37393. idx = duk_debug_add_breakpoint(thr, filename, linenumber);
  37394. if (idx >= 0) {
  37395. duk_debug_write_reply(thr);
  37396. duk_debug_write_int(thr, (duk_int32_t) idx);
  37397. duk_debug_write_eom(thr);
  37398. } else {
  37399. duk_debug_write_error_eom(thr, DUK_DBG_ERR_TOOMANY, "no space for breakpoint");
  37400. }
  37401. }
  37402. DUK_LOCAL void duk__debug_handle_del_break(duk_hthread *thr, duk_heap *heap) {
  37403. duk_small_uint_t idx;
  37404. DUK_UNREF(heap);
  37405. DUK_D(DUK_DPRINT("debug command DelBreak"));
  37406. idx = (duk_small_uint_t) duk_debug_read_int(thr);
  37407. if (duk_debug_remove_breakpoint(thr, idx)) {
  37408. duk_debug_write_reply(thr);
  37409. duk_debug_write_eom(thr);
  37410. } else {
  37411. duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid breakpoint index");
  37412. }
  37413. }
  37414. DUK_LOCAL void duk__debug_handle_get_var(duk_hthread *thr, duk_heap *heap) {
  37415. duk_activation *act;
  37416. duk_hstring *str;
  37417. duk_bool_t rc;
  37418. DUK_UNREF(heap);
  37419. DUK_D(DUK_DPRINT("debug command GetVar"));
  37420. act = duk__debug_read_level_get_activation(thr);
  37421. if (act == NULL) {
  37422. return;
  37423. }
  37424. str = duk_debug_read_hstring(thr); /* push to stack */
  37425. DUK_ASSERT(str != NULL);
  37426. rc = duk_js_getvar_activation(thr, act, str, 0);
  37427. duk_debug_write_reply(thr);
  37428. if (rc) {
  37429. duk_debug_write_int(thr, 1);
  37430. DUK_ASSERT(duk_get_tval(thr, -2) != NULL);
  37431. duk_debug_write_tval(thr, duk_get_tval(thr, -2));
  37432. } else {
  37433. duk_debug_write_int(thr, 0);
  37434. duk_debug_write_unused(thr);
  37435. }
  37436. duk_debug_write_eom(thr);
  37437. }
  37438. DUK_LOCAL void duk__debug_handle_put_var(duk_hthread *thr, duk_heap *heap) {
  37439. duk_activation *act;
  37440. duk_hstring *str;
  37441. duk_tval *tv;
  37442. DUK_UNREF(heap);
  37443. DUK_D(DUK_DPRINT("debug command PutVar"));
  37444. act = duk__debug_read_level_get_activation(thr);
  37445. if (act == NULL) {
  37446. return;
  37447. }
  37448. str = duk_debug_read_hstring(thr); /* push to stack */
  37449. DUK_ASSERT(str != NULL);
  37450. tv = duk_debug_read_tval(thr);
  37451. if (tv == NULL) {
  37452. /* detached */
  37453. return;
  37454. }
  37455. duk_js_putvar_activation(thr, act, str, tv, 0);
  37456. /* XXX: Current putvar implementation doesn't have a success flag,
  37457. * add one and send to debug client?
  37458. */
  37459. duk_debug_write_reply(thr);
  37460. duk_debug_write_eom(thr);
  37461. }
  37462. DUK_LOCAL void duk__debug_handle_get_call_stack(duk_hthread *thr, duk_heap *heap) {
  37463. duk_hthread *curr_thr = thr;
  37464. duk_activation *curr_act;
  37465. duk_uint_fast32_t pc;
  37466. duk_uint_fast32_t line;
  37467. DUK_ASSERT(thr != NULL);
  37468. DUK_UNREF(heap);
  37469. duk_debug_write_reply(thr);
  37470. while (curr_thr != NULL) {
  37471. for (curr_act = curr_thr->callstack_curr; curr_act != NULL; curr_act = curr_act->parent) {
  37472. /* PC/line semantics here are:
  37473. * - For callstack top we're conceptually between two
  37474. * opcodes and current PC indicates next line to
  37475. * execute, so report that (matches Status).
  37476. * - For other activations we're conceptually still
  37477. * executing the instruction at PC-1, so report that
  37478. * (matches error stacktrace behavior).
  37479. * - See: https://github.com/svaarala/duktape/issues/281
  37480. */
  37481. /* XXX: optimize to use direct reads, i.e. avoid
  37482. * value stack operations.
  37483. */
  37484. duk_push_tval(thr, &curr_act->tv_func);
  37485. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME);
  37486. duk__debug_write_hstring_safe_top(thr);
  37487. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME);
  37488. duk__debug_write_hstring_safe_top(thr);
  37489. pc = duk_hthread_get_act_curr_pc(thr, curr_act);
  37490. if (curr_act != curr_thr->callstack_curr && pc > 0) {
  37491. pc--;
  37492. }
  37493. line = duk_hobject_pc2line_query(thr, -3, pc);
  37494. duk_debug_write_uint(thr, (duk_uint32_t) line);
  37495. duk_debug_write_uint(thr, (duk_uint32_t) pc);
  37496. duk_pop_3(thr);
  37497. }
  37498. curr_thr = curr_thr->resumer;
  37499. }
  37500. /* SCANBUILD: warning about 'thr' potentially being NULL here,
  37501. * warning is incorrect because thr != NULL always here.
  37502. */
  37503. duk_debug_write_eom(thr);
  37504. }
  37505. DUK_LOCAL void duk__debug_handle_get_locals(duk_hthread *thr, duk_heap *heap) {
  37506. duk_activation *act;
  37507. duk_hstring *varname;
  37508. DUK_UNREF(heap);
  37509. act = duk__debug_read_level_get_activation(thr);
  37510. if (act == NULL) {
  37511. return;
  37512. }
  37513. duk_debug_write_reply(thr);
  37514. /* XXX: several nice-to-have improvements here:
  37515. * - Use direct reads avoiding value stack operations
  37516. * - Avoid triggering getters, indicate getter values to debug client
  37517. * - If side effects are possible, add error catching
  37518. */
  37519. duk_push_tval(thr, &act->tv_func);
  37520. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_VARMAP);
  37521. if (duk_is_object(thr, -1)) {
  37522. duk_enum(thr, -1, 0 /*enum_flags*/);
  37523. while (duk_next(thr, -1 /*enum_index*/, 0 /*get_value*/)) {
  37524. varname = duk_known_hstring(thr, -1);
  37525. duk_js_getvar_activation(thr, act, varname, 0 /*throw_flag*/);
  37526. /* [ ... func varmap enum key value this ] */
  37527. duk_debug_write_hstring(thr, duk_get_hstring(thr, -3));
  37528. duk_debug_write_tval(thr, duk_get_tval(thr, -2));
  37529. duk_pop_3(thr); /* -> [ ... func varmap enum ] */
  37530. }
  37531. } else {
  37532. DUK_D(DUK_DPRINT("varmap is not an object in GetLocals, ignore"));
  37533. }
  37534. duk_debug_write_eom(thr);
  37535. }
  37536. DUK_LOCAL void duk__debug_handle_eval(duk_hthread *thr, duk_heap *heap) {
  37537. duk_small_uint_t call_flags;
  37538. duk_int_t call_ret;
  37539. duk_small_int_t eval_err;
  37540. duk_bool_t direct_eval;
  37541. duk_int32_t level;
  37542. duk_idx_t idx_func;
  37543. DUK_UNREF(heap);
  37544. DUK_D(DUK_DPRINT("debug command Eval"));
  37545. /* The eval code is executed within the lexical environment of a specified
  37546. * activation. For now, use global object eval() function, with the eval
  37547. * considered a 'direct call to eval'.
  37548. *
  37549. * Callstack index for debug commands only affects scope -- the callstack
  37550. * as seen by, e.g. Duktape.act() will be the same regardless.
  37551. */
  37552. /* nargs == 2 so we can pass a callstack index to eval(). */
  37553. idx_func = duk_get_top(thr);
  37554. duk_push_c_function(thr, duk_bi_global_object_eval, 2 /*nargs*/);
  37555. duk_push_undefined(thr); /* 'this' binding shouldn't matter here */
  37556. /* Read callstack index, if non-null. */
  37557. if (duk_debug_peek_byte(thr) == DUK_DBG_IB_NULL) {
  37558. direct_eval = 0;
  37559. level = -1; /* Not needed, but silences warning. */
  37560. (void) duk_debug_read_byte(thr);
  37561. } else {
  37562. direct_eval = 1;
  37563. level = duk__debug_read_validate_csindex(thr);
  37564. if (level == 0) {
  37565. return;
  37566. }
  37567. }
  37568. DUK_ASSERT(!direct_eval ||
  37569. (level < 0 && -level <= (duk_int32_t) thr->callstack_top));
  37570. (void) duk_debug_read_hstring(thr);
  37571. if (direct_eval) {
  37572. duk_push_int(thr, level - 1); /* compensate for eval() call */
  37573. }
  37574. /* [ ... eval "eval" eval_input level? ] */
  37575. call_flags = 0;
  37576. if (direct_eval) {
  37577. duk_activation *act;
  37578. duk_hobject *fun;
  37579. act = duk_hthread_get_activation_for_level(thr, level);
  37580. if (act != NULL) {
  37581. fun = DUK_ACT_GET_FUNC(act);
  37582. if (fun != NULL && DUK_HOBJECT_IS_COMPFUNC(fun)) {
  37583. /* Direct eval requires that there's a current
  37584. * activation and it is an Ecmascript function.
  37585. * When Eval is executed from e.g. cooperate API
  37586. * call we'll need to do an indirect eval instead.
  37587. */
  37588. call_flags |= DUK_CALL_FLAG_DIRECT_EVAL;
  37589. }
  37590. }
  37591. }
  37592. call_ret = duk_pcall_method_flags(thr, duk_get_top(thr) - (idx_func + 2), call_flags);
  37593. if (call_ret == DUK_EXEC_SUCCESS) {
  37594. eval_err = 0;
  37595. /* Use result value as is. */
  37596. } else {
  37597. /* For errors a string coerced result is most informative
  37598. * right now, as the debug client doesn't have the capability
  37599. * to traverse the error object.
  37600. */
  37601. eval_err = 1;
  37602. duk_safe_to_string(thr, -1);
  37603. }
  37604. /* [ ... result ] */
  37605. duk_debug_write_reply(thr);
  37606. duk_debug_write_int(thr, (duk_int32_t) eval_err);
  37607. DUK_ASSERT(duk_get_tval(thr, -1) != NULL);
  37608. duk_debug_write_tval(thr, duk_get_tval(thr, -1));
  37609. duk_debug_write_eom(thr);
  37610. }
  37611. DUK_LOCAL void duk__debug_handle_detach(duk_hthread *thr, duk_heap *heap) {
  37612. DUK_UNREF(heap);
  37613. DUK_D(DUK_DPRINT("debug command Detach"));
  37614. duk_debug_write_reply(thr);
  37615. duk_debug_write_eom(thr);
  37616. DUK_D(DUK_DPRINT("debug connection detached, mark broken"));
  37617. DUK__SET_CONN_BROKEN(thr, 0); /* not an error */
  37618. }
  37619. DUK_LOCAL void duk__debug_handle_apprequest(duk_hthread *thr, duk_heap *heap) {
  37620. duk_idx_t old_top;
  37621. DUK_D(DUK_DPRINT("debug command AppRequest"));
  37622. old_top = duk_get_top(thr); /* save stack top */
  37623. if (heap->dbg_request_cb != NULL) {
  37624. duk_idx_t nrets;
  37625. duk_idx_t nvalues = 0;
  37626. duk_idx_t top, idx;
  37627. /* Read tvals from the message and push them onto the valstack,
  37628. * then call the request callback to process the request.
  37629. */
  37630. while (duk_debug_peek_byte(thr) != DUK_DBG_IB_EOM) {
  37631. duk_tval *tv;
  37632. if (!duk_check_stack(thr, 1)) {
  37633. DUK_D(DUK_DPRINT("failed to allocate space for request dvalue(s)"));
  37634. goto fail;
  37635. }
  37636. tv = duk_debug_read_tval(thr); /* push to stack */
  37637. if (tv == NULL) {
  37638. /* detached */
  37639. return;
  37640. }
  37641. nvalues++;
  37642. }
  37643. DUK_ASSERT(duk_get_top(thr) == old_top + nvalues);
  37644. /* Request callback should push values for reply to client onto valstack */
  37645. DUK_D(DUK_DPRINT("calling into AppRequest request_cb with nvalues=%ld, old_top=%ld, top=%ld",
  37646. (long) nvalues, (long) old_top, (long) duk_get_top(thr)));
  37647. nrets = heap->dbg_request_cb(thr, heap->dbg_udata, nvalues);
  37648. DUK_D(DUK_DPRINT("returned from AppRequest request_cb; nvalues=%ld -> nrets=%ld, old_top=%ld, top=%ld",
  37649. (long) nvalues, (long) nrets, (long) old_top, (long) duk_get_top(thr)));
  37650. if (nrets >= 0) {
  37651. DUK_ASSERT(duk_get_top(thr) >= old_top + nrets);
  37652. if (duk_get_top(thr) < old_top + nrets) {
  37653. DUK_D(DUK_DPRINT("AppRequest callback doesn't match value stack configuration, "
  37654. "top=%ld < old_top=%ld + nrets=%ld; "
  37655. "this might mean it's unsafe to continue!",
  37656. (long) duk_get_top(thr), (long) old_top, (long) nrets));
  37657. goto fail;
  37658. }
  37659. /* Reply with tvals pushed by request callback */
  37660. duk_debug_write_byte(thr, DUK_DBG_IB_REPLY);
  37661. top = duk_get_top(thr);
  37662. for (idx = top - nrets; idx < top; idx++) {
  37663. duk_debug_write_tval(thr, DUK_GET_TVAL_POSIDX(thr, idx));
  37664. }
  37665. duk_debug_write_eom(thr);
  37666. } else {
  37667. DUK_ASSERT(duk_get_top(thr) >= old_top + 1);
  37668. if (duk_get_top(thr) < old_top + 1) {
  37669. DUK_D(DUK_DPRINT("request callback return value doesn't match value stack configuration"));
  37670. goto fail;
  37671. }
  37672. duk_debug_write_error_eom(thr, DUK_DBG_ERR_APPLICATION, duk_get_string(thr, -1));
  37673. }
  37674. duk_set_top(thr, old_top); /* restore stack top */
  37675. } else {
  37676. DUK_D(DUK_DPRINT("no request callback, treat AppRequest as unsupported"));
  37677. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNSUPPORTED, "AppRequest unsupported by target");
  37678. }
  37679. return;
  37680. fail:
  37681. duk_set_top(thr, old_top); /* restore stack top */
  37682. DUK__SET_CONN_BROKEN(thr, 1);
  37683. }
  37684. /*
  37685. * DumpHeap command
  37686. */
  37687. #if defined(DUK_USE_DEBUGGER_DUMPHEAP)
  37688. /* XXX: this has some overlap with object inspection; remove this and make
  37689. * DumpHeap return lists of heapptrs instead?
  37690. */
  37691. DUK_LOCAL void duk__debug_dump_heaphdr(duk_hthread *thr, duk_heap *heap, duk_heaphdr *hdr) {
  37692. DUK_UNREF(heap);
  37693. duk_debug_write_heapptr(thr, hdr);
  37694. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_TYPE(hdr));
  37695. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_FLAGS_RAW(hdr));
  37696. #if defined(DUK_USE_REFERENCE_COUNTING)
  37697. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_REFCOUNT(hdr));
  37698. #else
  37699. duk_debug_write_int(thr, (duk_int32_t) -1);
  37700. #endif
  37701. switch (DUK_HEAPHDR_GET_TYPE(hdr)) {
  37702. case DUK_HTYPE_STRING: {
  37703. duk_hstring *h = (duk_hstring *) hdr;
  37704. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_BYTELEN(h));
  37705. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_CHARLEN(h));
  37706. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_HASH(h));
  37707. duk_debug_write_hstring(thr, h);
  37708. break;
  37709. }
  37710. case DUK_HTYPE_OBJECT: {
  37711. duk_hobject *h = (duk_hobject *) hdr;
  37712. duk_hstring *k;
  37713. duk_uint_fast32_t i;
  37714. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_CLASS_NUMBER(h));
  37715. duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_GET_PROTOTYPE(heap, h));
  37716. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ESIZE(h));
  37717. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ENEXT(h));
  37718. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ASIZE(h));
  37719. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_HSIZE(h));
  37720. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) {
  37721. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_E_GET_FLAGS(heap, h, i));
  37722. k = DUK_HOBJECT_E_GET_KEY(heap, h, i);
  37723. duk_debug_write_heapptr(thr, (duk_heaphdr *) k);
  37724. if (k == NULL) {
  37725. duk_debug_write_int(thr, 0); /* isAccessor */
  37726. duk_debug_write_unused(thr);
  37727. continue;
  37728. }
  37729. if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, h, i)) {
  37730. duk_debug_write_int(thr, 1); /* isAccessor */
  37731. duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.get);
  37732. duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.set);
  37733. } else {
  37734. duk_debug_write_int(thr, 0); /* isAccessor */
  37735. duk__debug_write_tval_heapptr(thr, &DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->v);
  37736. }
  37737. }
  37738. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(h); i++) {
  37739. /* Note: array dump will include elements beyond
  37740. * 'length'.
  37741. */
  37742. duk__debug_write_tval_heapptr(thr, DUK_HOBJECT_A_GET_VALUE_PTR(heap, h, i));
  37743. }
  37744. break;
  37745. }
  37746. case DUK_HTYPE_BUFFER: {
  37747. duk_hbuffer *h = (duk_hbuffer *) hdr;
  37748. duk_debug_write_uint(thr, (duk_uint32_t) DUK_HBUFFER_GET_SIZE(h));
  37749. duk_debug_write_buffer(thr, (const char *) DUK_HBUFFER_GET_DATA_PTR(heap, h), (duk_size_t) DUK_HBUFFER_GET_SIZE(h));
  37750. break;
  37751. }
  37752. default: {
  37753. DUK_D(DUK_DPRINT("invalid htype: %d", (int) DUK_HEAPHDR_GET_TYPE(hdr)));
  37754. }
  37755. }
  37756. }
  37757. DUK_LOCAL void duk__debug_dump_heap_allocated(duk_hthread *thr, duk_heap *heap) {
  37758. duk_heaphdr *hdr;
  37759. hdr = heap->heap_allocated;
  37760. while (hdr != NULL) {
  37761. duk__debug_dump_heaphdr(thr, heap, hdr);
  37762. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  37763. }
  37764. }
  37765. DUK_LOCAL void duk__debug_dump_strtab(duk_hthread *thr, duk_heap *heap) {
  37766. duk_uint32_t i;
  37767. duk_hstring *h;
  37768. for (i = 0; i < heap->st_size; i++) {
  37769. #if defined(DUK_USE_STRTAB_PTRCOMP)
  37770. h = DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, heap->strtable16[i]);
  37771. #else
  37772. h = heap->strtable[i];
  37773. #endif
  37774. while (h != NULL) {
  37775. duk__debug_dump_heaphdr(thr, heap, (duk_heaphdr *) h);
  37776. h = h->hdr.h_next;
  37777. }
  37778. }
  37779. }
  37780. DUK_LOCAL void duk__debug_handle_dump_heap(duk_hthread *thr, duk_heap *heap) {
  37781. DUK_D(DUK_DPRINT("debug command DumpHeap"));
  37782. duk_debug_write_reply(thr);
  37783. duk__debug_dump_heap_allocated(thr, heap);
  37784. duk__debug_dump_strtab(thr, heap);
  37785. duk_debug_write_eom(thr);
  37786. }
  37787. #endif /* DUK_USE_DEBUGGER_DUMPHEAP */
  37788. DUK_LOCAL void duk__debug_handle_get_bytecode(duk_hthread *thr, duk_heap *heap) {
  37789. duk_activation *act;
  37790. duk_hcompfunc *fun = NULL;
  37791. duk_size_t i, n;
  37792. duk_tval *tv;
  37793. duk_hobject **fn;
  37794. duk_int32_t level = -1;
  37795. duk_uint8_t ibyte;
  37796. DUK_UNREF(heap);
  37797. DUK_D(DUK_DPRINT("debug command GetBytecode"));
  37798. ibyte = duk_debug_peek_byte(thr);
  37799. if (ibyte != DUK_DBG_IB_EOM) {
  37800. tv = duk_debug_read_tval(thr);
  37801. if (tv == NULL) {
  37802. /* detached */
  37803. return;
  37804. }
  37805. if (DUK_TVAL_IS_OBJECT(tv)) {
  37806. /* tentative, checked later */
  37807. fun = (duk_hcompfunc *) DUK_TVAL_GET_OBJECT(tv);
  37808. DUK_ASSERT(fun != NULL);
  37809. } else if (DUK_TVAL_IS_NUMBER(tv)) {
  37810. level = (duk_int32_t) DUK_TVAL_GET_NUMBER(tv);
  37811. } else {
  37812. DUK_D(DUK_DPRINT("invalid argument to GetBytecode: %!T", tv));
  37813. goto fail_args;
  37814. }
  37815. }
  37816. if (fun == NULL) {
  37817. act = duk_hthread_get_activation_for_level(thr, level);
  37818. if (act == NULL) {
  37819. goto fail_index;
  37820. }
  37821. fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  37822. }
  37823. if (fun == NULL || !DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun)) {
  37824. DUK_D(DUK_DPRINT("invalid argument to GetBytecode: %!O", fun));
  37825. goto fail_args;
  37826. }
  37827. DUK_ASSERT(fun != NULL && DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun));
  37828. duk_debug_write_reply(thr);
  37829. n = DUK_HCOMPFUNC_GET_CONSTS_COUNT(heap, fun);
  37830. duk_debug_write_int(thr, (duk_int32_t) n);
  37831. tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, fun);
  37832. for (i = 0; i < n; i++) {
  37833. duk_debug_write_tval(thr, tv);
  37834. tv++;
  37835. }
  37836. n = DUK_HCOMPFUNC_GET_FUNCS_COUNT(heap, fun);
  37837. duk_debug_write_int(thr, (duk_int32_t) n);
  37838. fn = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, fun);
  37839. for (i = 0; i < n; i++) {
  37840. duk_debug_write_hobject(thr, *fn);
  37841. fn++;
  37842. }
  37843. duk_debug_write_string(thr,
  37844. (const char *) DUK_HCOMPFUNC_GET_CODE_BASE(heap, fun),
  37845. (duk_size_t) DUK_HCOMPFUNC_GET_CODE_SIZE(heap, fun));
  37846. duk_debug_write_eom(thr);
  37847. return;
  37848. fail_args:
  37849. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid argument");
  37850. return;
  37851. fail_index:
  37852. duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index");
  37853. return;
  37854. }
  37855. /*
  37856. * Object inspection commands: GetHeapObjInfo, GetObjPropDesc,
  37857. * GetObjPropDescRange
  37858. */
  37859. #if defined(DUK_USE_DEBUGGER_INSPECT)
  37860. #if 0 /* pruned */
  37861. DUK_LOCAL const char * const duk__debug_getinfo_heaphdr_keys[] = {
  37862. "reachable",
  37863. "temproot",
  37864. "finalizable",
  37865. "finalized",
  37866. "readonly"
  37867. /* NULL not needed here */
  37868. };
  37869. DUK_LOCAL duk_uint_t duk__debug_getinfo_heaphdr_masks[] = {
  37870. DUK_HEAPHDR_FLAG_REACHABLE,
  37871. DUK_HEAPHDR_FLAG_TEMPROOT,
  37872. DUK_HEAPHDR_FLAG_FINALIZABLE,
  37873. DUK_HEAPHDR_FLAG_FINALIZED,
  37874. DUK_HEAPHDR_FLAG_READONLY,
  37875. 0 /* terminator */
  37876. };
  37877. #endif
  37878. DUK_LOCAL const char * const duk__debug_getinfo_hstring_keys[] = {
  37879. #if 0
  37880. "arridx",
  37881. "symbol",
  37882. "hidden",
  37883. "reserved_word",
  37884. "strict_reserved_word",
  37885. "eval_or_arguments",
  37886. #endif
  37887. "extdata"
  37888. /* NULL not needed here */
  37889. };
  37890. DUK_LOCAL duk_uint_t duk__debug_getinfo_hstring_masks[] = {
  37891. #if 0
  37892. DUK_HSTRING_FLAG_ARRIDX,
  37893. DUK_HSTRING_FLAG_SYMBOL,
  37894. DUK_HSTRING_FLAG_HIDDEN,
  37895. DUK_HSTRING_FLAG_RESERVED_WORD,
  37896. DUK_HSTRING_FLAG_STRICT_RESERVED_WORD,
  37897. DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS,
  37898. #endif
  37899. DUK_HSTRING_FLAG_EXTDATA,
  37900. 0 /* terminator */
  37901. };
  37902. DUK_LOCAL const char * const duk__debug_getinfo_hobject_keys[] = {
  37903. "extensible",
  37904. "constructable",
  37905. "callable",
  37906. "boundfunc",
  37907. "compfunc",
  37908. "natfunc",
  37909. "bufobj",
  37910. "fastrefs",
  37911. "array_part",
  37912. "strict",
  37913. "notail",
  37914. "newenv",
  37915. "namebinding",
  37916. "createargs",
  37917. "have_finalizer",
  37918. "exotic_array",
  37919. "exotic_stringobj",
  37920. "exotic_arguments",
  37921. "exotic_proxyobj",
  37922. "special_call"
  37923. /* NULL not needed here */
  37924. };
  37925. DUK_LOCAL duk_uint_t duk__debug_getinfo_hobject_masks[] = {
  37926. DUK_HOBJECT_FLAG_EXTENSIBLE,
  37927. DUK_HOBJECT_FLAG_CONSTRUCTABLE,
  37928. DUK_HOBJECT_FLAG_CALLABLE,
  37929. DUK_HOBJECT_FLAG_BOUNDFUNC,
  37930. DUK_HOBJECT_FLAG_COMPFUNC,
  37931. DUK_HOBJECT_FLAG_NATFUNC,
  37932. DUK_HOBJECT_FLAG_BUFOBJ,
  37933. DUK_HOBJECT_FLAG_FASTREFS,
  37934. DUK_HOBJECT_FLAG_ARRAY_PART,
  37935. DUK_HOBJECT_FLAG_STRICT,
  37936. DUK_HOBJECT_FLAG_NOTAIL,
  37937. DUK_HOBJECT_FLAG_NEWENV,
  37938. DUK_HOBJECT_FLAG_NAMEBINDING,
  37939. DUK_HOBJECT_FLAG_CREATEARGS,
  37940. DUK_HOBJECT_FLAG_HAVE_FINALIZER,
  37941. DUK_HOBJECT_FLAG_EXOTIC_ARRAY,
  37942. DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ,
  37943. DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS,
  37944. DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ,
  37945. DUK_HOBJECT_FLAG_SPECIAL_CALL,
  37946. 0 /* terminator */
  37947. };
  37948. DUK_LOCAL const char * const duk__debug_getinfo_hbuffer_keys[] = {
  37949. "dynamic",
  37950. "external"
  37951. /* NULL not needed here */
  37952. };
  37953. DUK_LOCAL duk_uint_t duk__debug_getinfo_hbuffer_masks[] = {
  37954. DUK_HBUFFER_FLAG_DYNAMIC,
  37955. DUK_HBUFFER_FLAG_EXTERNAL,
  37956. 0 /* terminator */
  37957. };
  37958. DUK_LOCAL void duk__debug_getinfo_flags_key(duk_hthread *thr, const char *key) {
  37959. duk_debug_write_uint(thr, 0);
  37960. duk_debug_write_cstring(thr, key);
  37961. }
  37962. DUK_LOCAL void duk__debug_getinfo_prop_uint(duk_hthread *thr, const char *key, duk_uint_t val) {
  37963. duk_debug_write_uint(thr, 0);
  37964. duk_debug_write_cstring(thr, key);
  37965. duk_debug_write_uint(thr, val);
  37966. }
  37967. DUK_LOCAL void duk__debug_getinfo_prop_int(duk_hthread *thr, const char *key, duk_int_t val) {
  37968. duk_debug_write_uint(thr, 0);
  37969. duk_debug_write_cstring(thr, key);
  37970. duk_debug_write_int(thr, val);
  37971. }
  37972. DUK_LOCAL void duk__debug_getinfo_prop_bool(duk_hthread *thr, const char *key, duk_bool_t val) {
  37973. duk_debug_write_uint(thr, 0);
  37974. duk_debug_write_cstring(thr, key);
  37975. duk_debug_write_boolean(thr, val);
  37976. }
  37977. DUK_LOCAL void duk__debug_getinfo_bitmask(duk_hthread *thr, const char * const * keys, duk_uint_t *masks, duk_uint_t flags) {
  37978. const char *key;
  37979. duk_uint_t mask;
  37980. for (;;) {
  37981. mask = *masks++;
  37982. if (mask == 0) {
  37983. break;
  37984. }
  37985. key = *keys++;
  37986. DUK_ASSERT(key != NULL);
  37987. DUK_DD(DUK_DDPRINT("inspect bitmask: key=%s, mask=0x%08lx, flags=0x%08lx", key, (unsigned long) mask, (unsigned long) flags));
  37988. duk__debug_getinfo_prop_bool(thr, key, flags & mask);
  37989. }
  37990. }
  37991. /* Inspect a property using a virtual index into a conceptual property list
  37992. * consisting of (1) all array part items from [0,a_size[ (even when above
  37993. * .length) and (2) all entry part items from [0,e_next[. Unused slots are
  37994. * indicated using dvalue 'unused'.
  37995. */
  37996. DUK_LOCAL duk_bool_t duk__debug_getprop_index(duk_hthread *thr, duk_heap *heap, duk_hobject *h_obj, duk_uint_t idx) {
  37997. duk_uint_t a_size;
  37998. duk_tval *tv;
  37999. duk_hstring *h_key;
  38000. duk_hobject *h_getset;
  38001. duk_uint_t flags;
  38002. DUK_UNREF(heap);
  38003. a_size = DUK_HOBJECT_GET_ASIZE(h_obj);
  38004. if (idx < a_size) {
  38005. duk_debug_write_uint(thr, DUK_PROPDESC_FLAGS_WEC);
  38006. duk_debug_write_uint(thr, idx);
  38007. tv = DUK_HOBJECT_A_GET_VALUE_PTR(heap, h_obj, idx);
  38008. duk_debug_write_tval(thr, tv);
  38009. return 1;
  38010. }
  38011. idx -= a_size;
  38012. if (idx >= DUK_HOBJECT_GET_ENEXT(h_obj)) {
  38013. return 0;
  38014. }
  38015. h_key = DUK_HOBJECT_E_GET_KEY(heap, h_obj, idx);
  38016. if (h_key == NULL) {
  38017. duk_debug_write_uint(thr, 0);
  38018. duk_debug_write_null(thr);
  38019. duk_debug_write_unused(thr);
  38020. return 1;
  38021. }
  38022. flags = DUK_HOBJECT_E_GET_FLAGS(heap, h_obj, idx);
  38023. if (DUK_HSTRING_HAS_SYMBOL(h_key)) {
  38024. flags |= DUK_DBG_PROPFLAG_SYMBOL;
  38025. }
  38026. if (DUK_HSTRING_HAS_HIDDEN(h_key)) {
  38027. flags |= DUK_DBG_PROPFLAG_HIDDEN;
  38028. }
  38029. duk_debug_write_uint(thr, flags);
  38030. duk_debug_write_hstring(thr, h_key);
  38031. if (flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  38032. h_getset = DUK_HOBJECT_E_GET_VALUE_GETTER(heap, h_obj, idx);
  38033. if (h_getset) {
  38034. duk_debug_write_hobject(thr, h_getset);
  38035. } else {
  38036. duk_debug_write_null(thr);
  38037. }
  38038. h_getset = DUK_HOBJECT_E_GET_VALUE_SETTER(heap, h_obj, idx);
  38039. if (h_getset) {
  38040. duk_debug_write_hobject(thr, h_getset);
  38041. } else {
  38042. duk_debug_write_null(thr);
  38043. }
  38044. } else {
  38045. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, h_obj, idx);
  38046. duk_debug_write_tval(thr, tv);
  38047. }
  38048. return 1;
  38049. }
  38050. DUK_LOCAL void duk__debug_handle_get_heap_obj_info(duk_hthread *thr, duk_heap *heap) {
  38051. duk_heaphdr *h;
  38052. DUK_D(DUK_DPRINT("debug command GetHeapObjInfo"));
  38053. DUK_UNREF(heap);
  38054. DUK_ASSERT(sizeof(duk__debug_getinfo_hstring_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hstring_masks) / sizeof(duk_uint_t) - 1);
  38055. DUK_ASSERT(sizeof(duk__debug_getinfo_hobject_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hobject_masks) / sizeof(duk_uint_t) - 1);
  38056. DUK_ASSERT(sizeof(duk__debug_getinfo_hbuffer_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hbuffer_masks) / sizeof(duk_uint_t) - 1);
  38057. h = duk_debug_read_any_ptr(thr);
  38058. if (!h) {
  38059. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid target");
  38060. return;
  38061. }
  38062. duk_debug_write_reply(thr);
  38063. /* As with all inspection code, we rely on the debug client providing
  38064. * a valid, non-stale pointer: there's no portable way to safely
  38065. * validate the pointer here.
  38066. */
  38067. duk__debug_getinfo_flags_key(thr, "heapptr");
  38068. duk_debug_write_heapptr(thr, h);
  38069. /* XXX: comes out as signed now */
  38070. duk__debug_getinfo_prop_uint(thr, "heaphdr_flags", (duk_uint_t) DUK_HEAPHDR_GET_FLAGS(h));
  38071. duk__debug_getinfo_prop_uint(thr, "heaphdr_type", (duk_uint_t) DUK_HEAPHDR_GET_TYPE(h));
  38072. #if defined(DUK_USE_REFERENCE_COUNTING)
  38073. duk__debug_getinfo_prop_uint(thr, "refcount", (duk_uint_t) DUK_HEAPHDR_GET_REFCOUNT(h));
  38074. #endif
  38075. #if 0 /* pruned */
  38076. duk__debug_getinfo_bitmask(thr,
  38077. duk__debug_getinfo_heaphdr_keys,
  38078. duk__debug_getinfo_heaphdr_masks,
  38079. DUK_HEAPHDR_GET_FLAGS_RAW(h));
  38080. #endif
  38081. switch (DUK_HEAPHDR_GET_TYPE(h)) {
  38082. case DUK_HTYPE_STRING: {
  38083. duk_hstring *h_str;
  38084. h_str = (duk_hstring *) h;
  38085. duk__debug_getinfo_bitmask(thr,
  38086. duk__debug_getinfo_hstring_keys,
  38087. duk__debug_getinfo_hstring_masks,
  38088. DUK_HEAPHDR_GET_FLAGS_RAW(h));
  38089. duk__debug_getinfo_prop_uint(thr, "bytelen", (duk_uint_t) DUK_HSTRING_GET_BYTELEN(h_str));
  38090. duk__debug_getinfo_prop_uint(thr, "charlen", (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h_str));
  38091. duk__debug_getinfo_prop_uint(thr, "hash", (duk_uint_t) DUK_HSTRING_GET_HASH(h_str));
  38092. duk__debug_getinfo_flags_key(thr, "data");
  38093. duk_debug_write_hstring(thr, h_str);
  38094. break;
  38095. }
  38096. case DUK_HTYPE_OBJECT: {
  38097. duk_hobject *h_obj;
  38098. duk_hobject *h_proto;
  38099. h_obj = (duk_hobject *) h;
  38100. h_proto = DUK_HOBJECT_GET_PROTOTYPE(heap, h_obj);
  38101. /* duk_hobject specific fields. */
  38102. duk__debug_getinfo_bitmask(thr,
  38103. duk__debug_getinfo_hobject_keys,
  38104. duk__debug_getinfo_hobject_masks,
  38105. DUK_HEAPHDR_GET_FLAGS_RAW(h));
  38106. duk__debug_getinfo_prop_uint(thr, "class_number", DUK_HOBJECT_GET_CLASS_NUMBER(h_obj));
  38107. duk__debug_getinfo_flags_key(thr, "class_name");
  38108. duk_debug_write_hstring(thr, DUK_HOBJECT_GET_CLASS_STRING(heap, h_obj));
  38109. duk__debug_getinfo_flags_key(thr, "prototype");
  38110. if (h_proto != NULL) {
  38111. duk_debug_write_hobject(thr, h_proto);
  38112. } else {
  38113. duk_debug_write_null(thr);
  38114. }
  38115. duk__debug_getinfo_flags_key(thr, "props");
  38116. duk_debug_write_pointer(thr, (void *) DUK_HOBJECT_GET_PROPS(heap, h_obj));
  38117. duk__debug_getinfo_prop_uint(thr, "e_size", (duk_uint_t) DUK_HOBJECT_GET_ESIZE(h_obj));
  38118. duk__debug_getinfo_prop_uint(thr, "e_next", (duk_uint_t) DUK_HOBJECT_GET_ENEXT(h_obj));
  38119. duk__debug_getinfo_prop_uint(thr, "a_size", (duk_uint_t) DUK_HOBJECT_GET_ASIZE(h_obj));
  38120. duk__debug_getinfo_prop_uint(thr, "h_size", (duk_uint_t) DUK_HOBJECT_GET_HSIZE(h_obj));
  38121. if (DUK_HOBJECT_IS_ARRAY(h_obj)) {
  38122. duk_harray *h_arr;
  38123. h_arr = (duk_harray *) h_obj;
  38124. duk__debug_getinfo_prop_uint(thr, "length", (duk_uint_t) h_arr->length);
  38125. duk__debug_getinfo_prop_bool(thr, "length_nonwritable", h_arr->length_nonwritable);
  38126. }
  38127. if (DUK_HOBJECT_IS_NATFUNC(h_obj)) {
  38128. duk_hnatfunc *h_fun;
  38129. h_fun = (duk_hnatfunc *) h_obj;
  38130. duk__debug_getinfo_prop_int(thr, "nargs", h_fun->nargs);
  38131. duk__debug_getinfo_prop_int(thr, "magic", h_fun->magic);
  38132. duk__debug_getinfo_prop_bool(thr, "varargs", h_fun->magic == DUK_HNATFUNC_NARGS_VARARGS);
  38133. /* Native function pointer may be different from a void pointer,
  38134. * and we serialize it from memory directly now (no byte swapping etc).
  38135. */
  38136. duk__debug_getinfo_flags_key(thr, "funcptr");
  38137. duk_debug_write_buffer(thr, (const char *) &h_fun->func, sizeof(h_fun->func));
  38138. }
  38139. if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) {
  38140. duk_hcompfunc *h_fun;
  38141. duk_hbuffer *h_buf;
  38142. duk_hobject *h_lexenv;
  38143. duk_hobject *h_varenv;
  38144. h_fun = (duk_hcompfunc *) h_obj;
  38145. duk__debug_getinfo_prop_int(thr, "nregs", h_fun->nregs);
  38146. duk__debug_getinfo_prop_int(thr, "nargs", h_fun->nargs);
  38147. duk__debug_getinfo_flags_key(thr, "lex_env");
  38148. h_lexenv = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, h_fun);
  38149. if (h_lexenv != NULL) {
  38150. duk_debug_write_hobject(thr, h_lexenv);
  38151. } else {
  38152. duk_debug_write_null(thr);
  38153. }
  38154. duk__debug_getinfo_flags_key(thr, "var_env");
  38155. h_varenv = DUK_HCOMPFUNC_GET_VARENV(thr->heap, h_fun);
  38156. if (h_varenv != NULL) {
  38157. duk_debug_write_hobject(thr, h_varenv);
  38158. } else {
  38159. duk_debug_write_null(thr);
  38160. }
  38161. duk__debug_getinfo_prop_uint(thr, "start_line", h_fun->start_line);
  38162. duk__debug_getinfo_prop_uint(thr, "end_line", h_fun->end_line);
  38163. h_buf = (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(thr->heap, h_fun);
  38164. if (h_buf != NULL) {
  38165. duk__debug_getinfo_flags_key(thr, "data");
  38166. duk_debug_write_heapptr(thr, (duk_heaphdr *) h_buf);
  38167. }
  38168. }
  38169. if (DUK_HOBJECT_IS_BOUNDFUNC(h_obj)) {
  38170. duk_hboundfunc *h_bfun;
  38171. h_bfun = (duk_hboundfunc *) h_obj;
  38172. duk__debug_getinfo_flags_key(thr, "target");
  38173. duk_debug_write_tval(thr, &h_bfun->target);
  38174. duk__debug_getinfo_flags_key(thr, "this_binding");
  38175. duk_debug_write_tval(thr, &h_bfun->this_binding);
  38176. duk__debug_getinfo_flags_key(thr, "nargs");
  38177. duk_debug_write_int(thr, h_bfun->nargs);
  38178. /* h_bfun->args not exposed now */
  38179. }
  38180. if (DUK_HOBJECT_IS_THREAD(h_obj)) {
  38181. /* XXX: Currently no inspection of threads, e.g. value stack, call
  38182. * stack, catch stack, etc.
  38183. */
  38184. duk_hthread *h_thr;
  38185. h_thr = (duk_hthread *) h_obj;
  38186. DUK_UNREF(h_thr);
  38187. }
  38188. if (DUK_HOBJECT_IS_DECENV(h_obj)) {
  38189. duk_hdecenv *h_env;
  38190. h_env = (duk_hdecenv *) h_obj;
  38191. duk__debug_getinfo_flags_key(thr, "thread");
  38192. duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->thread));
  38193. duk__debug_getinfo_flags_key(thr, "varmap");
  38194. duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->varmap));
  38195. duk__debug_getinfo_prop_uint(thr, "regbase", (duk_uint_t) h_env->regbase_byteoff);
  38196. }
  38197. if (DUK_HOBJECT_IS_OBJENV(h_obj)) {
  38198. duk_hobjenv *h_env;
  38199. h_env = (duk_hobjenv *) h_obj;
  38200. duk__debug_getinfo_flags_key(thr, "target");
  38201. duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->target));
  38202. duk__debug_getinfo_prop_bool(thr, "has_this", h_env->has_this);
  38203. }
  38204. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  38205. if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
  38206. duk_hbufobj *h_bufobj;
  38207. h_bufobj = (duk_hbufobj *) h_obj;
  38208. duk__debug_getinfo_prop_uint(thr, "slice_offset", h_bufobj->offset);
  38209. duk__debug_getinfo_prop_uint(thr, "slice_length", h_bufobj->length);
  38210. duk__debug_getinfo_prop_uint(thr, "elem_shift", (duk_uint_t) h_bufobj->shift);
  38211. duk__debug_getinfo_prop_uint(thr, "elem_type", (duk_uint_t) h_bufobj->elem_type);
  38212. duk__debug_getinfo_prop_bool(thr, "is_typedarray", (duk_uint_t) h_bufobj->is_typedarray);
  38213. if (h_bufobj->buf != NULL) {
  38214. duk__debug_getinfo_flags_key(thr, "buffer");
  38215. duk_debug_write_heapptr(thr, (duk_heaphdr *) h_bufobj->buf);
  38216. }
  38217. }
  38218. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  38219. break;
  38220. }
  38221. case DUK_HTYPE_BUFFER: {
  38222. duk_hbuffer *h_buf;
  38223. h_buf = (duk_hbuffer *) h;
  38224. duk__debug_getinfo_bitmask(thr,
  38225. duk__debug_getinfo_hbuffer_keys,
  38226. duk__debug_getinfo_hbuffer_masks,
  38227. DUK_HEAPHDR_GET_FLAGS_RAW(h));
  38228. duk__debug_getinfo_prop_uint(thr, "size", (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_buf));
  38229. duk__debug_getinfo_flags_key(thr, "dataptr");
  38230. duk_debug_write_pointer(thr, (void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_buf));
  38231. duk__debug_getinfo_flags_key(thr, "data");
  38232. duk_debug_write_hbuffer(thr, h_buf); /* tolerates NULL h_buf */
  38233. break;
  38234. }
  38235. default: {
  38236. /* Since we already started writing the reply, just emit nothing. */
  38237. DUK_D(DUK_DPRINT("inspect target pointer has invalid heaphdr type"));
  38238. }
  38239. }
  38240. duk_debug_write_eom(thr);
  38241. }
  38242. DUK_LOCAL void duk__debug_handle_get_obj_prop_desc(duk_hthread *thr, duk_heap *heap) {
  38243. duk_heaphdr *h;
  38244. duk_hobject *h_obj;
  38245. duk_hstring *h_key;
  38246. duk_propdesc desc;
  38247. DUK_D(DUK_DPRINT("debug command GetObjPropDesc"));
  38248. DUK_UNREF(heap);
  38249. h = duk_debug_read_any_ptr(thr);
  38250. if (!h) {
  38251. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid target");
  38252. return;
  38253. }
  38254. h_key = duk_debug_read_hstring(thr);
  38255. if (h == NULL || DUK_HEAPHDR_GET_TYPE(h) != DUK_HTYPE_OBJECT || h_key == NULL) {
  38256. goto fail_args;
  38257. }
  38258. h_obj = (duk_hobject *) h;
  38259. if (duk_hobject_get_own_propdesc(thr, h_obj, h_key, &desc, 0 /*flags*/)) {
  38260. duk_int_t virtual_idx;
  38261. duk_bool_t rc;
  38262. /* To use the shared helper need the virtual index. */
  38263. DUK_ASSERT(desc.e_idx >= 0 || desc.a_idx >= 0);
  38264. virtual_idx = (desc.a_idx >= 0 ? desc.a_idx :
  38265. (duk_int_t) DUK_HOBJECT_GET_ASIZE(h_obj) + desc.e_idx);
  38266. duk_debug_write_reply(thr);
  38267. rc = duk__debug_getprop_index(thr, heap, h_obj, (duk_uint_t) virtual_idx);
  38268. DUK_ASSERT(rc == 1);
  38269. DUK_UNREF(rc);
  38270. duk_debug_write_eom(thr);
  38271. } else {
  38272. duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "not found");
  38273. }
  38274. return;
  38275. fail_args:
  38276. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid args");
  38277. }
  38278. DUK_LOCAL void duk__debug_handle_get_obj_prop_desc_range(duk_hthread *thr, duk_heap *heap) {
  38279. duk_heaphdr *h;
  38280. duk_hobject *h_obj;
  38281. duk_uint_t idx, idx_start, idx_end;
  38282. DUK_D(DUK_DPRINT("debug command GetObjPropDescRange"));
  38283. DUK_UNREF(heap);
  38284. h = duk_debug_read_any_ptr(thr);
  38285. idx_start = (duk_uint_t) duk_debug_read_int(thr);
  38286. idx_end = (duk_uint_t) duk_debug_read_int(thr);
  38287. if (h == NULL || DUK_HEAPHDR_GET_TYPE(h) != DUK_HTYPE_OBJECT) {
  38288. goto fail_args;
  38289. }
  38290. h_obj = (duk_hobject *) h;
  38291. /* The index range space is conceptually the array part followed by the
  38292. * entry part. Unlike normal enumeration all slots are exposed here as
  38293. * is and return 'unused' if the slots are not in active use. In particular
  38294. * the array part is included for the full a_size regardless of what the
  38295. * array .length is.
  38296. */
  38297. duk_debug_write_reply(thr);
  38298. for (idx = idx_start; idx < idx_end; idx++) {
  38299. if (!duk__debug_getprop_index(thr, heap, h_obj, idx)) {
  38300. break;
  38301. }
  38302. }
  38303. duk_debug_write_eom(thr);
  38304. return;
  38305. fail_args:
  38306. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid args");
  38307. }
  38308. #endif /* DUK_USE_DEBUGGER_INSPECT */
  38309. /*
  38310. * Process incoming debug requests
  38311. *
  38312. * Individual request handlers can push temporaries on the value stack and
  38313. * rely on duk__debug_process_message() to restore the value stack top
  38314. * automatically.
  38315. */
  38316. /* Process one debug message. Automatically restore value stack top to its
  38317. * entry value, so that individual message handlers don't need exact value
  38318. * stack handling which is convenient.
  38319. */
  38320. DUK_LOCAL void duk__debug_process_message(duk_hthread *thr) {
  38321. duk_heap *heap;
  38322. duk_uint8_t x;
  38323. duk_int32_t cmd;
  38324. duk_idx_t entry_top;
  38325. DUK_ASSERT(thr != NULL);
  38326. heap = thr->heap;
  38327. DUK_ASSERT(heap != NULL);
  38328. entry_top = duk_get_top(thr);
  38329. x = duk_debug_read_byte(thr);
  38330. switch (x) {
  38331. case DUK_DBG_IB_REQUEST: {
  38332. cmd = duk_debug_read_int(thr);
  38333. switch (cmd) {
  38334. case DUK_DBG_CMD_BASICINFO: {
  38335. duk__debug_handle_basic_info(thr, heap);
  38336. break;
  38337. }
  38338. case DUK_DBG_CMD_TRIGGERSTATUS: {
  38339. duk__debug_handle_trigger_status(thr, heap);
  38340. break;
  38341. }
  38342. case DUK_DBG_CMD_PAUSE: {
  38343. duk__debug_handle_pause(thr, heap);
  38344. break;
  38345. }
  38346. case DUK_DBG_CMD_RESUME: {
  38347. duk__debug_handle_resume(thr, heap);
  38348. break;
  38349. }
  38350. case DUK_DBG_CMD_STEPINTO:
  38351. case DUK_DBG_CMD_STEPOVER:
  38352. case DUK_DBG_CMD_STEPOUT: {
  38353. duk__debug_handle_step(thr, heap, cmd);
  38354. break;
  38355. }
  38356. case DUK_DBG_CMD_LISTBREAK: {
  38357. duk__debug_handle_list_break(thr, heap);
  38358. break;
  38359. }
  38360. case DUK_DBG_CMD_ADDBREAK: {
  38361. duk__debug_handle_add_break(thr, heap);
  38362. break;
  38363. }
  38364. case DUK_DBG_CMD_DELBREAK: {
  38365. duk__debug_handle_del_break(thr, heap);
  38366. break;
  38367. }
  38368. case DUK_DBG_CMD_GETVAR: {
  38369. duk__debug_handle_get_var(thr, heap);
  38370. break;
  38371. }
  38372. case DUK_DBG_CMD_PUTVAR: {
  38373. duk__debug_handle_put_var(thr, heap);
  38374. break;
  38375. }
  38376. case DUK_DBG_CMD_GETCALLSTACK: {
  38377. duk__debug_handle_get_call_stack(thr, heap);
  38378. break;
  38379. }
  38380. case DUK_DBG_CMD_GETLOCALS: {
  38381. duk__debug_handle_get_locals(thr, heap);
  38382. break;
  38383. }
  38384. case DUK_DBG_CMD_EVAL: {
  38385. duk__debug_handle_eval(thr, heap);
  38386. break;
  38387. }
  38388. case DUK_DBG_CMD_DETACH: {
  38389. /* The actual detached_cb call is postponed to message loop so
  38390. * we don't need any special precautions here (just skip to EOM
  38391. * on the already closed connection).
  38392. */
  38393. duk__debug_handle_detach(thr, heap);
  38394. break;
  38395. }
  38396. #if defined(DUK_USE_DEBUGGER_DUMPHEAP)
  38397. case DUK_DBG_CMD_DUMPHEAP: {
  38398. duk__debug_handle_dump_heap(thr, heap);
  38399. break;
  38400. }
  38401. #endif /* DUK_USE_DEBUGGER_DUMPHEAP */
  38402. case DUK_DBG_CMD_GETBYTECODE: {
  38403. duk__debug_handle_get_bytecode(thr, heap);
  38404. break;
  38405. }
  38406. case DUK_DBG_CMD_APPREQUEST: {
  38407. duk__debug_handle_apprequest(thr, heap);
  38408. break;
  38409. }
  38410. #if defined(DUK_USE_DEBUGGER_INSPECT)
  38411. case DUK_DBG_CMD_GETHEAPOBJINFO: {
  38412. duk__debug_handle_get_heap_obj_info(thr, heap);
  38413. break;
  38414. }
  38415. case DUK_DBG_CMD_GETOBJPROPDESC: {
  38416. duk__debug_handle_get_obj_prop_desc(thr, heap);
  38417. break;
  38418. }
  38419. case DUK_DBG_CMD_GETOBJPROPDESCRANGE: {
  38420. duk__debug_handle_get_obj_prop_desc_range(thr, heap);
  38421. break;
  38422. }
  38423. #endif /* DUK_USE_DEBUGGER_INSPECT */
  38424. default: {
  38425. DUK_D(DUK_DPRINT("debug command unsupported: %d", (int) cmd));
  38426. duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNSUPPORTED, "unsupported command");
  38427. }
  38428. } /* switch cmd */
  38429. break;
  38430. }
  38431. case DUK_DBG_IB_REPLY: {
  38432. DUK_D(DUK_DPRINT("debug reply, skipping"));
  38433. break;
  38434. }
  38435. case DUK_DBG_IB_ERROR: {
  38436. DUK_D(DUK_DPRINT("debug error, skipping"));
  38437. break;
  38438. }
  38439. case DUK_DBG_IB_NOTIFY: {
  38440. DUK_D(DUK_DPRINT("debug notify, skipping"));
  38441. break;
  38442. }
  38443. default: {
  38444. DUK_D(DUK_DPRINT("invalid initial byte, drop connection: %d", (int) x));
  38445. goto fail;
  38446. }
  38447. } /* switch initial byte */
  38448. DUK_ASSERT(duk_get_top(thr) >= entry_top);
  38449. duk_set_top(thr, entry_top);
  38450. duk__debug_skip_to_eom(thr);
  38451. return;
  38452. fail:
  38453. DUK_ASSERT(duk_get_top(thr) >= entry_top);
  38454. duk_set_top(thr, entry_top);
  38455. DUK__SET_CONN_BROKEN(thr, 1);
  38456. return;
  38457. }
  38458. DUK_LOCAL void duk__check_resend_status(duk_hthread *thr) {
  38459. if (thr->heap->dbg_read_cb != NULL && thr->heap->dbg_state_dirty) {
  38460. duk_debug_send_status(thr);
  38461. thr->heap->dbg_state_dirty = 0;
  38462. }
  38463. }
  38464. DUK_INTERNAL duk_bool_t duk_debug_process_messages(duk_hthread *thr, duk_bool_t no_block) {
  38465. #if defined(DUK_USE_ASSERTIONS)
  38466. duk_idx_t entry_top;
  38467. #endif
  38468. duk_bool_t retval = 0;
  38469. DUK_ASSERT(thr != NULL);
  38470. DUK_ASSERT(thr->heap != NULL);
  38471. #if defined(DUK_USE_ASSERTIONS)
  38472. entry_top = duk_get_top(thr);
  38473. #endif
  38474. DUK_D(DUK_DPRINT("process debug messages: read_cb=%s, no_block=%ld, detaching=%ld, processing=%ld",
  38475. thr->heap->dbg_read_cb ? "not NULL" : "NULL", (long) no_block,
  38476. (long) thr->heap->dbg_detaching, (long) thr->heap->dbg_processing));
  38477. DUK_DD(DUK_DDPRINT("top at entry: %ld", (long) duk_get_top(thr)));
  38478. /* thr->heap->dbg_detaching may be != 0 if a debugger write outside
  38479. * the message loop caused a transport error and detach1() to run.
  38480. */
  38481. DUK_ASSERT(thr->heap->dbg_detaching == 0 || thr->heap->dbg_detaching == 1);
  38482. DUK_ASSERT(thr->heap->dbg_processing == 0);
  38483. thr->heap->dbg_processing = 1;
  38484. /* Ensure dirty state causes a Status even if never process any
  38485. * messages. This is expected by the bytecode executor when in
  38486. * the running state.
  38487. */
  38488. duk__check_resend_status(thr);
  38489. for (;;) {
  38490. /* Process messages until we're no longer paused or we peek
  38491. * and see there's nothing to read right now.
  38492. */
  38493. DUK_DD(DUK_DDPRINT("top at loop top: %ld", (long) duk_get_top(thr)));
  38494. DUK_ASSERT(thr->heap->dbg_processing == 1);
  38495. while (thr->heap->dbg_read_cb == NULL && thr->heap->dbg_detaching) {
  38496. /* Detach is pending; can be triggered from outside the
  38497. * debugger loop (e.g. Status notify write error) or by
  38498. * previous message handling. Call detached callback
  38499. * here, in a controlled state, to ensure a possible
  38500. * reattach inside the detached_cb is handled correctly.
  38501. *
  38502. * Recheck for detach in a while loop: an immediate
  38503. * reattach involves a call to duk_debugger_attach()
  38504. * which writes a debugger handshake line immediately
  38505. * inside the API call. If the transport write fails
  38506. * for that handshake, we can immediately end up in a
  38507. * "transport broken, detaching" case several times here.
  38508. * Loop back until we're either cleanly attached or
  38509. * fully detached.
  38510. *
  38511. * NOTE: Reset dbg_processing = 1 forcibly, in case we
  38512. * re-attached; duk_debugger_attach() sets dbg_processing
  38513. * to 0 at the moment.
  38514. */
  38515. DUK_D(DUK_DPRINT("detach pending (dbg_read_cb == NULL, dbg_detaching != 0), call detach2"));
  38516. duk__debug_do_detach2(thr->heap);
  38517. thr->heap->dbg_processing = 1; /* may be set to 0 by duk_debugger_attach() inside callback */
  38518. DUK_D(DUK_DPRINT("after detach2 (and possible reattach): dbg_read_cb=%s, dbg_detaching=%ld",
  38519. thr->heap->dbg_read_cb ? "not NULL" : "NULL", (long) thr->heap->dbg_detaching));
  38520. }
  38521. DUK_ASSERT(thr->heap->dbg_detaching == 0); /* true even with reattach */
  38522. DUK_ASSERT(thr->heap->dbg_processing == 1); /* even after a detach and possible reattach */
  38523. if (thr->heap->dbg_read_cb == NULL) {
  38524. DUK_D(DUK_DPRINT("debug connection broken (and not detaching), stop processing messages"));
  38525. break;
  38526. }
  38527. if (!DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || no_block) {
  38528. if (!duk_debug_read_peek(thr)) {
  38529. /* Note: peek cannot currently trigger a detach
  38530. * so the dbg_detaching == 0 assert outside the
  38531. * loop is correct.
  38532. */
  38533. DUK_D(DUK_DPRINT("processing debug message, peek indicated no data, stop processing messages"));
  38534. break;
  38535. }
  38536. DUK_D(DUK_DPRINT("processing debug message, peek indicated there is data, handle it"));
  38537. } else {
  38538. DUK_D(DUK_DPRINT("paused, process debug message, blocking if necessary"));
  38539. }
  38540. duk__check_resend_status(thr);
  38541. duk__debug_process_message(thr);
  38542. duk__check_resend_status(thr);
  38543. retval = 1; /* processed one or more messages */
  38544. }
  38545. DUK_ASSERT(thr->heap->dbg_detaching == 0);
  38546. DUK_ASSERT(thr->heap->dbg_processing == 1);
  38547. thr->heap->dbg_processing = 0;
  38548. /* As an initial implementation, read flush after exiting the message
  38549. * loop. If transport is broken, this is a no-op (with debug logs).
  38550. */
  38551. duk_debug_read_flush(thr); /* this cannot initiate a detach */
  38552. DUK_ASSERT(thr->heap->dbg_detaching == 0);
  38553. DUK_DD(DUK_DDPRINT("top at exit: %ld", (long) duk_get_top(thr)));
  38554. #if defined(DUK_USE_ASSERTIONS)
  38555. /* Easy to get wrong, so assert for it. */
  38556. DUK_ASSERT(entry_top == duk_get_top(thr));
  38557. #endif
  38558. return retval;
  38559. }
  38560. /*
  38561. * Halt execution helper
  38562. */
  38563. /* Halt execution and enter a debugger message loop until execution is resumed
  38564. * by the client. PC for the current activation may be temporarily decremented
  38565. * so that the "current" instruction will be shown by the client. This helper
  38566. * is callable from anywhere, also outside bytecode executor.
  38567. */
  38568. DUK_INTERNAL void duk_debug_halt_execution(duk_hthread *thr, duk_bool_t use_prev_pc) {
  38569. duk_activation *act;
  38570. duk_hcompfunc *fun;
  38571. duk_instr_t *old_pc = NULL;
  38572. DUK_ASSERT(thr != NULL);
  38573. DUK_ASSERT(thr->heap != NULL);
  38574. DUK_ASSERT(duk_debug_is_attached(thr->heap));
  38575. DUK_ASSERT(thr->heap->dbg_processing == 0);
  38576. DUK_ASSERT(!duk_debug_is_paused(thr->heap));
  38577. duk_debug_set_paused(thr->heap);
  38578. act = thr->callstack_curr;
  38579. /* NOTE: act may be NULL if an error is thrown outside of any activation,
  38580. * which may happen in the case of, e.g. syntax errors.
  38581. */
  38582. /* Decrement PC if that was requested, this requires a PC sync. */
  38583. if (act != NULL) {
  38584. duk_hthread_sync_currpc(thr);
  38585. old_pc = act->curr_pc;
  38586. fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  38587. /* Short circuit if is safe: if act->curr_pc != NULL, 'fun' is
  38588. * guaranteed to be a non-NULL Ecmascript function.
  38589. */
  38590. DUK_ASSERT(act->curr_pc == NULL ||
  38591. (fun != NULL && DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun)));
  38592. if (use_prev_pc &&
  38593. act->curr_pc != NULL &&
  38594. act->curr_pc > DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, fun)) {
  38595. act->curr_pc--;
  38596. }
  38597. }
  38598. /* Process debug messages until we are no longer paused. */
  38599. /* NOTE: This is a bit fragile. It's important to ensure that
  38600. * duk_debug_process_messages() never throws an error or
  38601. * act->curr_pc will never be reset.
  38602. */
  38603. thr->heap->dbg_state_dirty = 1;
  38604. while (DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap)) {
  38605. DUK_ASSERT(duk_debug_is_attached(thr->heap));
  38606. DUK_ASSERT(thr->heap->dbg_processing == 0);
  38607. duk_debug_process_messages(thr, 0 /*no_block*/);
  38608. }
  38609. /* XXX: Decrementing and restoring act->curr_pc works now, but if the
  38610. * debugger message loop gains the ability to adjust the current PC
  38611. * (e.g. a forced jump) restoring the PC here will break. Another
  38612. * approach would be to use a state flag for the "decrement 1 from
  38613. * topmost activation's PC" and take it into account whenever dealing
  38614. * with PC values.
  38615. */
  38616. if (act != NULL) {
  38617. act->curr_pc = old_pc; /* restore PC */
  38618. }
  38619. }
  38620. /*
  38621. * Breakpoint management
  38622. */
  38623. DUK_INTERNAL duk_small_int_t duk_debug_add_breakpoint(duk_hthread *thr, duk_hstring *filename, duk_uint32_t line) {
  38624. duk_heap *heap;
  38625. duk_breakpoint *b;
  38626. /* Caller must trigger recomputation of active breakpoint list. To
  38627. * ensure stale values are not used if that doesn't happen, clear the
  38628. * active breakpoint list here.
  38629. */
  38630. DUK_ASSERT(thr != NULL);
  38631. DUK_ASSERT(filename != NULL);
  38632. heap = thr->heap;
  38633. DUK_ASSERT(heap != NULL);
  38634. if (heap->dbg_breakpoint_count >= DUK_HEAP_MAX_BREAKPOINTS) {
  38635. DUK_D(DUK_DPRINT("failed to add breakpoint for %O:%ld, all breakpoint slots used",
  38636. (duk_heaphdr *) filename, (long) line));
  38637. return -1;
  38638. }
  38639. heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL;
  38640. b = heap->dbg_breakpoints + (heap->dbg_breakpoint_count++);
  38641. b->filename = filename;
  38642. b->line = line;
  38643. DUK_HSTRING_INCREF(thr, filename);
  38644. return (duk_small_int_t) (heap->dbg_breakpoint_count - 1); /* index */
  38645. }
  38646. DUK_INTERNAL duk_bool_t duk_debug_remove_breakpoint(duk_hthread *thr, duk_small_uint_t breakpoint_index) {
  38647. duk_heap *heap;
  38648. duk_hstring *h;
  38649. duk_breakpoint *b;
  38650. duk_size_t move_size;
  38651. /* Caller must trigger recomputation of active breakpoint list. To
  38652. * ensure stale values are not used if that doesn't happen, clear the
  38653. * active breakpoint list here.
  38654. */
  38655. DUK_ASSERT(thr != NULL);
  38656. heap = thr->heap;
  38657. DUK_ASSERT(heap != NULL);
  38658. DUK_ASSERT(duk_debug_is_attached(thr->heap));
  38659. DUK_ASSERT_DISABLE(breakpoint_index >= 0); /* unsigned */
  38660. if (breakpoint_index >= heap->dbg_breakpoint_count) {
  38661. DUK_D(DUK_DPRINT("invalid breakpoint index: %ld", (long) breakpoint_index));
  38662. return 0;
  38663. }
  38664. b = heap->dbg_breakpoints + breakpoint_index;
  38665. h = b->filename;
  38666. DUK_ASSERT(h != NULL);
  38667. move_size = sizeof(duk_breakpoint) * (heap->dbg_breakpoint_count - breakpoint_index - 1);
  38668. if (move_size > 0) {
  38669. DUK_MEMMOVE((void *) b,
  38670. (const void *) (b + 1),
  38671. (size_t) move_size);
  38672. }
  38673. heap->dbg_breakpoint_count--;
  38674. heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL;
  38675. DUK_HSTRING_DECREF(thr, h); /* side effects */
  38676. DUK_UNREF(h); /* w/o refcounting */
  38677. /* Breakpoint entries above the used area are left as garbage. */
  38678. return 1;
  38679. }
  38680. /*
  38681. * Misc state management
  38682. */
  38683. DUK_INTERNAL duk_bool_t duk_debug_is_attached(duk_heap *heap) {
  38684. return (heap->dbg_read_cb != NULL);
  38685. }
  38686. DUK_INTERNAL duk_bool_t duk_debug_is_paused(duk_heap *heap) {
  38687. return (DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) != 0);
  38688. }
  38689. DUK_INTERNAL void duk_debug_set_paused(duk_heap *heap) {
  38690. if (duk_debug_is_paused(heap)) {
  38691. DUK_D(DUK_DPRINT("trying to set paused state when already paused, ignoring"));
  38692. } else {
  38693. DUK_HEAP_SET_DEBUGGER_PAUSED(heap);
  38694. heap->dbg_state_dirty = 1;
  38695. duk_debug_clear_pause_state(heap);
  38696. DUK_ASSERT(heap->ms_running == 0); /* debugger can't be triggered within mark-and-sweep */
  38697. heap->ms_running = 1; /* prevent mark-and-sweep, prevent refzero queueing */
  38698. heap->ms_prevent_count++;
  38699. DUK_ASSERT(heap->ms_prevent_count != 0); /* Wrap. */
  38700. DUK_ASSERT(heap->heap_thread != NULL);
  38701. }
  38702. }
  38703. DUK_INTERNAL void duk_debug_clear_paused(duk_heap *heap) {
  38704. if (duk_debug_is_paused(heap)) {
  38705. DUK_HEAP_CLEAR_DEBUGGER_PAUSED(heap);
  38706. heap->dbg_state_dirty = 1;
  38707. duk_debug_clear_pause_state(heap);
  38708. DUK_ASSERT(heap->ms_running == 1);
  38709. DUK_ASSERT(heap->ms_prevent_count > 0);
  38710. heap->ms_prevent_count--;
  38711. heap->ms_running = 0;
  38712. DUK_ASSERT(heap->heap_thread != NULL);
  38713. } else {
  38714. DUK_D(DUK_DPRINT("trying to clear paused state when not paused, ignoring"));
  38715. }
  38716. }
  38717. DUK_INTERNAL void duk_debug_clear_pause_state(duk_heap *heap) {
  38718. heap->dbg_pause_flags = 0;
  38719. heap->dbg_pause_act = NULL;
  38720. heap->dbg_pause_startline = 0;
  38721. }
  38722. #else /* DUK_USE_DEBUGGER_SUPPORT */
  38723. /* No debugger support. */
  38724. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  38725. /* automatic undefs */
  38726. #undef DUK__DBG_TPORT_ENTER
  38727. #undef DUK__DBG_TPORT_EXIT
  38728. #undef DUK__SET_CONN_BROKEN
  38729. #line 1 "duk_error_augment.c"
  38730. /*
  38731. * Augmenting errors at their creation site and their throw site.
  38732. *
  38733. * When errors are created, traceback data is added by built-in code
  38734. * and a user error handler (if defined) can process or replace the
  38735. * error. Similarly, when errors are thrown, a user error handler
  38736. * (if defined) can process or replace the error.
  38737. *
  38738. * Augmentation and other processing at error creation time is nice
  38739. * because an error is only created once, but it may be thrown and
  38740. * rethrown multiple times. User error handler registered for processing
  38741. * an error at its throw site must be careful to handle rethrowing in
  38742. * a useful manner.
  38743. *
  38744. * Error augmentation may throw an internal error (e.g. alloc error).
  38745. *
  38746. * Ecmascript allows throwing any values, so all values cannot be
  38747. * augmented. Currently, the built-in augmentation at error creation
  38748. * only augments error values which are Error instances (= have the
  38749. * built-in Error.prototype in their prototype chain) and are also
  38750. * extensible. User error handlers have no limitations in this respect.
  38751. */
  38752. /* #include duk_internal.h -> already included */
  38753. /*
  38754. * Helper for calling a user error handler.
  38755. *
  38756. * 'thr' must be the currently active thread; the error handler is called
  38757. * in its context. The valstack of 'thr' must have the error value on
  38758. * top, and will be replaced by another error value based on the return
  38759. * value of the error handler.
  38760. *
  38761. * The helper calls duk_handle_call() recursively in protected mode.
  38762. * Before that call happens, no longjmps should happen; as a consequence,
  38763. * we must assume that the valstack contains enough temporary space for
  38764. * arguments and such.
  38765. *
  38766. * While the error handler runs, any errors thrown will not trigger a
  38767. * recursive error handler call (this is implemented using a heap level
  38768. * flag which will "follow" through any coroutines resumed inside the
  38769. * error handler). If the error handler is not callable or throws an
  38770. * error, the resulting error replaces the original error (for Duktape
  38771. * internal errors, duk_error_throw.c further substitutes this error with
  38772. * a DoubleError which is not ideal). This would be easy to change and
  38773. * even signal to the caller.
  38774. *
  38775. * The user error handler is stored in 'Duktape.errCreate' or
  38776. * 'Duktape.errThrow' depending on whether we're augmenting the error at
  38777. * creation or throw time. There are several alternatives to this approach,
  38778. * see doc/error-objects.rst for discussion.
  38779. *
  38780. * Note: since further longjmp()s may occur while calling the error handler
  38781. * (for many reasons, e.g. a labeled 'break' inside the handler), the
  38782. * caller can make no assumptions on the thr->heap->lj state after the
  38783. * call (this affects especially duk_error_throw.c). This is not an issue
  38784. * as long as the caller writes to the lj state only after the error handler
  38785. * finishes.
  38786. */
  38787. #if defined(DUK_USE_ERRTHROW) || defined(DUK_USE_ERRCREATE)
  38788. DUK_LOCAL void duk__err_augment_user(duk_hthread *thr, duk_small_uint_t stridx_cb) {
  38789. duk_tval *tv_hnd;
  38790. duk_int_t rc;
  38791. DUK_ASSERT(thr != NULL);
  38792. DUK_ASSERT(thr->heap != NULL);
  38793. DUK_ASSERT_STRIDX_VALID(stridx_cb);
  38794. if (thr->heap->augmenting_error) {
  38795. DUK_D(DUK_DPRINT("recursive call to error augmentation, ignore"));
  38796. return;
  38797. }
  38798. /*
  38799. * Check whether or not we have an error handler.
  38800. *
  38801. * We must be careful of not triggering an error when looking up the
  38802. * property. For instance, if the property is a getter, we don't want
  38803. * to call it, only plain values are allowed. The value, if it exists,
  38804. * is not checked. If the value is not a function, a TypeError happens
  38805. * when it is called and that error replaces the original one.
  38806. */
  38807. DUK_ASSERT_VALSTACK_SPACE(thr, 4); /* 3 entries actually needed below */
  38808. /* [ ... errval ] */
  38809. if (thr->builtins[DUK_BIDX_DUKTAPE] == NULL) {
  38810. /* When creating built-ins, some of the built-ins may not be set
  38811. * and we want to tolerate that when throwing errors.
  38812. */
  38813. DUK_DD(DUK_DDPRINT("error occurred when DUK_BIDX_DUKTAPE is NULL, ignoring"));
  38814. return;
  38815. }
  38816. tv_hnd = duk_hobject_find_existing_entry_tval_ptr(thr->heap,
  38817. thr->builtins[DUK_BIDX_DUKTAPE],
  38818. DUK_HTHREAD_GET_STRING(thr, stridx_cb));
  38819. if (tv_hnd == NULL) {
  38820. DUK_DD(DUK_DDPRINT("error handler does not exist or is not a plain value: %!T",
  38821. (duk_tval *) tv_hnd));
  38822. return;
  38823. }
  38824. DUK_DDD(DUK_DDDPRINT("error handler dump (callability not checked): %!T",
  38825. (duk_tval *) tv_hnd));
  38826. duk_push_tval(thr, tv_hnd);
  38827. /* [ ... errval errhandler ] */
  38828. duk_insert(thr, -2); /* -> [ ... errhandler errval ] */
  38829. duk_push_undefined(thr);
  38830. duk_insert(thr, -2); /* -> [ ... errhandler undefined(= this) errval ] */
  38831. /* [ ... errhandler undefined errval ] */
  38832. /*
  38833. * heap->augmenting_error prevents recursive re-entry and also causes
  38834. * call handling to use a larger (but not unbounded) call stack limit
  38835. * for the duration of error augmentation.
  38836. *
  38837. * We ignore errors now: a success return and an error value both
  38838. * replace the original error value. (This would be easy to change.)
  38839. */
  38840. DUK_ASSERT(thr->heap->augmenting_error == 0);
  38841. thr->heap->augmenting_error = 1;
  38842. rc = duk_pcall_method(thr, 1);
  38843. DUK_UNREF(rc); /* no need to check now: both success and error are OK */
  38844. DUK_ASSERT(thr->heap->augmenting_error == 1);
  38845. thr->heap->augmenting_error = 0;
  38846. /* [ ... errval ] */
  38847. }
  38848. #endif /* DUK_USE_ERRTHROW || DUK_USE_ERRCREATE */
  38849. /*
  38850. * Add ._Tracedata to an error on the stack top.
  38851. */
  38852. #if defined(DUK_USE_TRACEBACKS)
  38853. DUK_LOCAL void duk__add_traceback(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) {
  38854. duk_activation *act;
  38855. duk_int_t depth;
  38856. duk_int_t arr_size;
  38857. duk_tval *tv;
  38858. duk_hstring *s;
  38859. duk_uint32_t u32;
  38860. duk_double_t d;
  38861. DUK_ASSERT(thr != NULL);
  38862. DUK_ASSERT(thr_callstack != NULL);
  38863. /* [ ... error ] */
  38864. /*
  38865. * The traceback format is pretty arcane in an attempt to keep it compact
  38866. * and cheap to create. It may change arbitrarily from version to version.
  38867. * It should be decoded/accessed through version specific accessors only.
  38868. *
  38869. * See doc/error-objects.rst.
  38870. */
  38871. DUK_DDD(DUK_DDDPRINT("adding traceback to object: %!T",
  38872. (duk_tval *) duk_get_tval(thr, -1)));
  38873. /* Preallocate array to correct size, so that we can just write out
  38874. * the _Tracedata values into the array part.
  38875. */
  38876. act = thr->callstack_curr;
  38877. depth = DUK_USE_TRACEBACK_DEPTH;
  38878. DUK_ASSERT(thr_callstack->callstack_top <= DUK_INT_MAX); /* callstack limits */
  38879. if (depth > (duk_int_t) thr_callstack->callstack_top) {
  38880. depth = (duk_int_t) thr_callstack->callstack_top;
  38881. }
  38882. if (depth > 0) {
  38883. if (flags & DUK_AUGMENT_FLAG_SKIP_ONE) {
  38884. DUK_ASSERT(act != NULL);
  38885. act = act->parent;
  38886. depth--;
  38887. }
  38888. }
  38889. arr_size = depth * 2;
  38890. if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) {
  38891. arr_size += 2;
  38892. }
  38893. if (c_filename) {
  38894. /* We need the C filename to be interned before getting the
  38895. * array part pointer to avoid any GC interference while the
  38896. * array part is populated.
  38897. */
  38898. duk_push_string(thr, c_filename);
  38899. arr_size += 2;
  38900. }
  38901. /* XXX: uninitialized would be OK */
  38902. DUK_D(DUK_DPRINT("preallocated _Tracedata to %ld items", (long) arr_size));
  38903. tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) arr_size);
  38904. DUK_ASSERT(arr_size == 0 || tv != NULL);
  38905. /* Compiler SyntaxErrors (and other errors) come first, and are
  38906. * blamed by default (not flagged "noblame").
  38907. */
  38908. if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) {
  38909. s = thr->compile_ctx->h_filename;
  38910. DUK_TVAL_SET_STRING(tv, s);
  38911. DUK_HSTRING_INCREF(thr, s);
  38912. tv++;
  38913. u32 = (duk_uint32_t) thr->compile_ctx->curr_token.start_line; /* (flags<<32) + (line), flags = 0 */
  38914. DUK_TVAL_SET_U32(tv, u32);
  38915. tv++;
  38916. }
  38917. /* Filename/line from C macros (__FILE__, __LINE__) are added as an
  38918. * entry with a special format: (string, number). The number contains
  38919. * the line and flags.
  38920. */
  38921. /* [ ... error c_filename? arr ] */
  38922. if (c_filename) {
  38923. DUK_ASSERT(DUK_TVAL_IS_STRING(thr->valstack_top - 2));
  38924. s = DUK_TVAL_GET_STRING(thr->valstack_top - 2); /* interned c_filename */
  38925. DUK_ASSERT(s != NULL);
  38926. DUK_TVAL_SET_STRING(tv, s);
  38927. DUK_HSTRING_INCREF(thr, s);
  38928. tv++;
  38929. d = ((flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE) ? ((duk_double_t) DUK_TB_FLAG_NOBLAME_FILELINE) * DUK_DOUBLE_2TO32 : 0.0) +
  38930. (duk_double_t) c_line;
  38931. DUK_TVAL_SET_DOUBLE(tv, d);
  38932. tv++;
  38933. }
  38934. /* Traceback depth doesn't take into account the filename/line
  38935. * special handling above (intentional).
  38936. */
  38937. for (; depth-- > 0; act = act->parent) {
  38938. duk_uint32_t pc;
  38939. duk_tval *tv_src;
  38940. /* [... arr] */
  38941. DUK_ASSERT(act != NULL); /* depth check above, assumes book-keeping is correct */
  38942. DUK_ASSERT_DISABLE(act->pc >= 0); /* unsigned */
  38943. /* Add function object. */
  38944. tv_src = &act->tv_func; /* object (function) or lightfunc */
  38945. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv_src) || DUK_TVAL_IS_LIGHTFUNC(tv_src));
  38946. DUK_TVAL_SET_TVAL(tv, tv_src);
  38947. DUK_TVAL_INCREF(thr, tv);
  38948. tv++;
  38949. /* Add a number containing: pc, activation flags.
  38950. *
  38951. * PC points to next instruction, find offending PC. Note that
  38952. * PC == 0 for native code.
  38953. */
  38954. pc = (duk_uint32_t) duk_hthread_get_act_prev_pc(thr_callstack, act);
  38955. DUK_ASSERT_DISABLE(pc >= 0); /* unsigned */
  38956. DUK_ASSERT((duk_double_t) pc < DUK_DOUBLE_2TO32); /* assume PC is at most 32 bits and non-negative */
  38957. d = ((duk_double_t) act->flags) * DUK_DOUBLE_2TO32 + (duk_double_t) pc;
  38958. DUK_TVAL_SET_DOUBLE(tv, d);
  38959. tv++;
  38960. }
  38961. #if defined(DUK_USE_ASSERTIONS)
  38962. {
  38963. duk_harray *a;
  38964. a = (duk_harray *) duk_known_hobject(thr, -1);
  38965. DUK_ASSERT(a != NULL);
  38966. DUK_ASSERT((duk_uint32_t) (tv - DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) a)) == a->length);
  38967. DUK_ASSERT(a->length == (duk_uint32_t) arr_size);
  38968. }
  38969. #endif
  38970. /* [ ... error c_filename? arr ] */
  38971. if (c_filename) {
  38972. duk_remove_m2(thr);
  38973. }
  38974. /* [ ... error arr ] */
  38975. duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INT_TRACEDATA); /* -> [ ... error ] */
  38976. }
  38977. #endif /* DUK_USE_TRACEBACKS */
  38978. /*
  38979. * Add .fileName and .lineNumber to an error on the stack top.
  38980. */
  38981. #if defined(DUK_USE_AUGMENT_ERROR_CREATE) && !defined(DUK_USE_TRACEBACKS)
  38982. DUK_LOCAL void duk__add_fileline(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) {
  38983. #if defined(DUK_USE_ASSERTIONS)
  38984. duk_int_t entry_top;
  38985. #endif
  38986. #if defined(DUK_USE_ASSERTIONS)
  38987. entry_top = duk_get_top(thr);
  38988. #endif
  38989. /*
  38990. * If tracebacks are disabled, 'fileName' and 'lineNumber' are added
  38991. * as plain own properties. Since Error.prototype has accessors of
  38992. * the same name, we need to define own properties directly (cannot
  38993. * just use e.g. duk_put_prop_stridx). Existing properties are not
  38994. * overwritten in case they already exist.
  38995. */
  38996. if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) {
  38997. /* Compiler SyntaxError (or other error) gets the primary blame.
  38998. * Currently no flag to prevent blaming.
  38999. */
  39000. duk_push_uint(thr, (duk_uint_t) thr->compile_ctx->curr_token.start_line);
  39001. duk_push_hstring(thr, thr->compile_ctx->h_filename);
  39002. } else if (c_filename && (flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE) == 0) {
  39003. /* C call site gets blamed next, unless flagged not to do so.
  39004. * XXX: file/line is disabled in minimal builds, so disable this
  39005. * too when appropriate.
  39006. */
  39007. duk_push_int(thr, c_line);
  39008. duk_push_string(thr, c_filename);
  39009. } else {
  39010. /* Finally, blame the innermost callstack entry which has a
  39011. * .fileName property.
  39012. */
  39013. duk_small_uint_t depth;
  39014. duk_uint32_t ecma_line;
  39015. duk_activation *act;
  39016. DUK_ASSERT(thr_callstack->callstack_top <= DUK_INT_MAX); /* callstack limits */
  39017. depth = DUK_USE_TRACEBACK_DEPTH;
  39018. if (depth > thr_callstack->callstack_top) {
  39019. depth = thr_callstack->callstack_top;
  39020. }
  39021. for (act = thr_callstack->callstack_curr; depth-- > 0; act = act->parent) {
  39022. duk_hobject *func;
  39023. duk_uint32_t pc;
  39024. DUK_ASSERT(act != NULL);
  39025. func = DUK_ACT_GET_FUNC(act);
  39026. if (func == NULL) {
  39027. /* Lightfunc, not blamed now. */
  39028. continue;
  39029. }
  39030. /* PC points to next instruction, find offending PC,
  39031. * PC == 0 for native code.
  39032. */
  39033. pc = duk_hthread_get_act_prev_pc(thr, act); /* thr argument only used for thr->heap, so specific thread doesn't matter */
  39034. DUK_UNREF(pc);
  39035. DUK_ASSERT_DISABLE(pc >= 0); /* unsigned */
  39036. DUK_ASSERT((duk_double_t) pc < DUK_DOUBLE_2TO32); /* assume PC is at most 32 bits and non-negative */
  39037. act = NULL; /* invalidated by pushes, so get out of the way */
  39038. duk_push_hobject(thr, func);
  39039. /* [ ... error func ] */
  39040. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME);
  39041. if (!duk_is_string_notsymbol(thr, -1)) {
  39042. duk_pop_2(thr);
  39043. continue;
  39044. }
  39045. /* [ ... error func fileName ] */
  39046. ecma_line = 0;
  39047. #if defined(DUK_USE_PC2LINE)
  39048. if (DUK_HOBJECT_IS_COMPFUNC(func)) {
  39049. ecma_line = duk_hobject_pc2line_query(thr, -2, (duk_uint_fast32_t) pc);
  39050. } else {
  39051. /* Native function, no relevant lineNumber. */
  39052. }
  39053. #endif /* DUK_USE_PC2LINE */
  39054. duk_push_u32(thr, ecma_line);
  39055. /* [ ... error func fileName lineNumber ] */
  39056. duk_replace(thr, -3);
  39057. /* [ ... error lineNumber fileName ] */
  39058. goto define_props;
  39059. }
  39060. /* No activation matches, use undefined for both .fileName and
  39061. * .lineNumber (matches what we do with a _Tracedata based
  39062. * no-match lookup.
  39063. */
  39064. duk_push_undefined(thr);
  39065. duk_push_undefined(thr);
  39066. }
  39067. define_props:
  39068. /* [ ... error lineNumber fileName ] */
  39069. #if defined(DUK_USE_ASSERTIONS)
  39070. DUK_ASSERT(duk_get_top(thr) == entry_top + 2);
  39071. #endif
  39072. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C | DUK_PROPDESC_FLAG_NO_OVERWRITE);
  39073. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LINE_NUMBER, DUK_PROPDESC_FLAGS_C | DUK_PROPDESC_FLAG_NO_OVERWRITE);
  39074. }
  39075. #endif /* DUK_USE_AUGMENT_ERROR_CREATE && !DUK_USE_TRACEBACKS */
  39076. /*
  39077. * Add line number to a compiler error.
  39078. */
  39079. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  39080. DUK_LOCAL void duk__add_compiler_error_line(duk_hthread *thr) {
  39081. /* Append a "(line NNN)" to the "message" property of any error
  39082. * thrown during compilation. Usually compilation errors are
  39083. * SyntaxErrors but they can also be out-of-memory errors and
  39084. * the like.
  39085. */
  39086. /* [ ... error ] */
  39087. DUK_ASSERT(duk_is_object(thr, -1));
  39088. if (!(thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL)) {
  39089. return;
  39090. }
  39091. DUK_DDD(DUK_DDDPRINT("compile error, before adding line info: %!T",
  39092. (duk_tval *) duk_get_tval(thr, -1)));
  39093. if (duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_MESSAGE)) {
  39094. duk_push_sprintf(thr, " (line %ld)", (long) thr->compile_ctx->curr_token.start_line);
  39095. duk_concat(thr, 2);
  39096. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE);
  39097. } else {
  39098. duk_pop(thr);
  39099. }
  39100. DUK_DDD(DUK_DDDPRINT("compile error, after adding line info: %!T",
  39101. (duk_tval *) duk_get_tval(thr, -1)));
  39102. }
  39103. #endif /* DUK_USE_AUGMENT_ERROR_CREATE */
  39104. /*
  39105. * Augment an error being created using Duktape specific properties
  39106. * like _Tracedata or .fileName/.lineNumber.
  39107. */
  39108. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  39109. DUK_LOCAL void duk__err_augment_builtin_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_hobject *obj, duk_small_uint_t flags) {
  39110. #if defined(DUK_USE_ASSERTIONS)
  39111. duk_int_t entry_top;
  39112. #endif
  39113. #if defined(DUK_USE_ASSERTIONS)
  39114. entry_top = duk_get_top(thr);
  39115. #endif
  39116. DUK_ASSERT(obj != NULL);
  39117. DUK_UNREF(obj); /* unreferenced w/o tracebacks */
  39118. duk__add_compiler_error_line(thr);
  39119. #if defined(DUK_USE_TRACEBACKS)
  39120. /* If tracebacks are enabled, the '_Tracedata' property is the only
  39121. * thing we need: 'fileName' and 'lineNumber' are virtual properties
  39122. * which use '_Tracedata'.
  39123. */
  39124. if (duk_hobject_hasprop_raw(thr, obj, DUK_HTHREAD_STRING_INT_TRACEDATA(thr))) {
  39125. DUK_DDD(DUK_DDDPRINT("error value already has a '_Tracedata' property, not modifying it"));
  39126. } else {
  39127. duk__add_traceback(thr, thr_callstack, c_filename, c_line, flags);
  39128. }
  39129. #else
  39130. /* Without tracebacks the concrete .fileName and .lineNumber need
  39131. * to be added directly.
  39132. */
  39133. duk__add_fileline(thr, thr_callstack, c_filename, c_line, flags);
  39134. #endif
  39135. #if defined(DUK_USE_ASSERTIONS)
  39136. DUK_ASSERT(duk_get_top(thr) == entry_top);
  39137. #endif
  39138. }
  39139. #endif /* DUK_USE_AUGMENT_ERROR_CREATE */
  39140. /*
  39141. * Augment an error at creation time with _Tracedata/fileName/lineNumber
  39142. * and allow a user error handler (if defined) to process/replace the error.
  39143. * The error to be augmented is at the stack top.
  39144. *
  39145. * thr: thread containing the error value
  39146. * thr_callstack: thread which should be used for generating callstack etc.
  39147. * c_filename: C __FILE__ related to the error
  39148. * c_line: C __LINE__ related to the error
  39149. * flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE:
  39150. * if true, don't fileName/line as error source, otherwise use traceback
  39151. * (needed because user code filename/line are reported but internal ones
  39152. * are not)
  39153. */
  39154. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  39155. DUK_INTERNAL void duk_err_augment_error_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) {
  39156. duk_hobject *obj;
  39157. DUK_ASSERT(thr != NULL);
  39158. DUK_ASSERT(thr_callstack != NULL);
  39159. /* [ ... error ] */
  39160. /*
  39161. * Criteria for augmenting:
  39162. *
  39163. * - augmentation enabled in build (naturally)
  39164. * - error value internal prototype chain contains the built-in
  39165. * Error prototype object (i.e. 'val instanceof Error')
  39166. *
  39167. * Additional criteria for built-in augmenting:
  39168. *
  39169. * - error value is an extensible object
  39170. */
  39171. obj = duk_get_hobject(thr, -1);
  39172. if (!obj) {
  39173. DUK_DDD(DUK_DDDPRINT("value is not an object, skip both built-in and user augment"));
  39174. return;
  39175. }
  39176. if (!duk_hobject_prototype_chain_contains(thr, obj, thr->builtins[DUK_BIDX_ERROR_PROTOTYPE], 1 /*ignore_loop*/)) {
  39177. /* If the value has a prototype loop, it's critical not to
  39178. * throw here. Instead, assume the value is not to be
  39179. * augmented.
  39180. */
  39181. DUK_DDD(DUK_DDDPRINT("value is not an error instance, skip both built-in and user augment"));
  39182. return;
  39183. }
  39184. if (DUK_HOBJECT_HAS_EXTENSIBLE(obj)) {
  39185. DUK_DDD(DUK_DDDPRINT("error meets criteria, built-in augment"));
  39186. duk__err_augment_builtin_create(thr, thr_callstack, c_filename, c_line, obj, flags);
  39187. } else {
  39188. DUK_DDD(DUK_DDDPRINT("error does not meet criteria, no built-in augment"));
  39189. }
  39190. /* [ ... error ] */
  39191. #if defined(DUK_USE_ERRCREATE)
  39192. duk__err_augment_user(thr, DUK_STRIDX_ERR_CREATE);
  39193. #endif
  39194. }
  39195. #endif /* DUK_USE_AUGMENT_ERROR_CREATE */
  39196. /*
  39197. * Augment an error at throw time; allow a user error handler (if defined)
  39198. * to process/replace the error. The error to be augmented is at the
  39199. * stack top.
  39200. */
  39201. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  39202. DUK_INTERNAL void duk_err_augment_error_throw(duk_hthread *thr) {
  39203. #if defined(DUK_USE_ERRTHROW)
  39204. duk__err_augment_user(thr, DUK_STRIDX_ERR_THROW);
  39205. #endif /* DUK_USE_ERRTHROW */
  39206. }
  39207. #endif /* DUK_USE_AUGMENT_ERROR_THROW */
  39208. #line 1 "duk_error_longjmp.c"
  39209. /*
  39210. * Do a longjmp call, calling the fatal error handler if no
  39211. * catchpoint exists.
  39212. */
  39213. /* #include duk_internal.h -> already included */
  39214. #if defined(DUK_USE_PREFER_SIZE)
  39215. DUK_LOCAL void duk__uncaught_minimal(duk_hthread *thr) {
  39216. (void) duk_fatal(thr, "uncaught error");
  39217. }
  39218. #endif
  39219. #if 0
  39220. DUK_LOCAL void duk__uncaught_readable(duk_hthread *thr) {
  39221. const char *summary;
  39222. char buf[DUK_USE_FATAL_MAXLEN];
  39223. summary = duk_push_string_tval_readable(thr, &thr->heap->lj.value1);
  39224. DUK_SNPRINTF(buf, sizeof(buf), "uncaught: %s", summary);
  39225. buf[sizeof(buf) - 1] = (char) 0;
  39226. (void) duk_fatal(thr, (const char *) buf);
  39227. }
  39228. #endif
  39229. #if !defined(DUK_USE_PREFER_SIZE)
  39230. DUK_LOCAL void duk__uncaught_error_aware(duk_hthread *thr) {
  39231. const char *summary;
  39232. char buf[DUK_USE_FATAL_MAXLEN];
  39233. summary = duk_push_string_tval_readable_error(thr, &thr->heap->lj.value1);
  39234. DUK_ASSERT(summary != NULL);
  39235. DUK_SNPRINTF(buf, sizeof(buf), "uncaught: %s", summary);
  39236. buf[sizeof(buf) - 1] = (char) 0;
  39237. (void) duk_fatal(thr, (const char *) buf);
  39238. }
  39239. #endif
  39240. DUK_INTERNAL void duk_err_longjmp(duk_hthread *thr) {
  39241. DUK_ASSERT(thr != NULL);
  39242. DUK_ASSERT(thr->heap != NULL);
  39243. DUK_DD(DUK_DDPRINT("longjmp error: type=%d iserror=%d value1=%!T value2=%!T",
  39244. (int) thr->heap->lj.type, (int) thr->heap->lj.iserror,
  39245. &thr->heap->lj.value1, &thr->heap->lj.value2));
  39246. /* Prevent finalizer execution during error handling. All error
  39247. * handling sites will process pending finalizers once error handling
  39248. * is complete and we're ready for the side effects. Does not prevent
  39249. * refzero freeing or mark-and-sweep during error handling.
  39250. *
  39251. * NOTE: when we come here some calling code may have used DECREF
  39252. * NORZ macros without an explicit DUK_REFZERO_CHECK_xxx() call.
  39253. * We don't want to do it here because it would just check for
  39254. * pending finalizers and we prevent that explicitly. Instead,
  39255. * the error catcher will run the finalizers once error handling
  39256. * is complete.
  39257. */
  39258. DUK_ASSERT_LJSTATE_SET(thr->heap);
  39259. thr->heap->pf_prevent_count++;
  39260. DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */
  39261. #if defined(DUK_USE_ASSERTIONS)
  39262. /* XXX: set this immediately when longjmp state is set */
  39263. DUK_ASSERT(thr->heap->error_not_allowed == 0); /* Detect error within critical section. */
  39264. thr->heap->error_not_allowed = 1;
  39265. #endif
  39266. DUK_DD(DUK_DDPRINT("about to longjmp, pf_prevent_count=%ld", (long) thr->heap->pf_prevent_count));
  39267. #if !defined(DUK_USE_CPP_EXCEPTIONS)
  39268. /* If we don't have a jmpbuf_ptr, there is little we can do except
  39269. * cause a fatal error. The caller's expectation is that we never
  39270. * return.
  39271. *
  39272. * With C++ exceptions we now just propagate an uncaught error
  39273. * instead of invoking the fatal error handler. Because there's
  39274. * a dummy jmpbuf for C++ exceptions now, this could be changed.
  39275. */
  39276. if (!thr->heap->lj.jmpbuf_ptr) {
  39277. DUK_D(DUK_DPRINT("uncaught error: type=%d iserror=%d value1=%!T value2=%!T",
  39278. (int) thr->heap->lj.type, (int) thr->heap->lj.iserror,
  39279. &thr->heap->lj.value1, &thr->heap->lj.value2));
  39280. #if defined(DUK_USE_PREFER_SIZE)
  39281. duk__uncaught_minimal(thr);
  39282. #else
  39283. duk__uncaught_error_aware(thr);
  39284. #endif
  39285. DUK_UNREACHABLE();
  39286. }
  39287. #endif /* DUK_USE_CPP_EXCEPTIONS */
  39288. #if defined(DUK_USE_CPP_EXCEPTIONS)
  39289. {
  39290. duk_internal_exception exc; /* dummy */
  39291. throw exc;
  39292. }
  39293. #else /* DUK_USE_CPP_EXCEPTIONS */
  39294. DUK_LONGJMP(thr->heap->lj.jmpbuf_ptr->jb);
  39295. #endif /* DUK_USE_CPP_EXCEPTIONS */
  39296. DUK_UNREACHABLE();
  39297. }
  39298. #line 1 "duk_error_misc.c"
  39299. /*
  39300. * Error helpers
  39301. */
  39302. /* #include duk_internal.h -> already included */
  39303. /*
  39304. * Helper to walk the thread chain and see if there is an active error
  39305. * catcher. Protected calls or finally blocks aren't considered catching.
  39306. */
  39307. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  39308. DUK_LOCAL duk_bool_t duk__have_active_catcher(duk_hthread *thr) {
  39309. /* As noted above, a protected API call won't be counted as a
  39310. * catcher. This is usually convenient, e.g. in the case of a top-
  39311. * level duk_pcall(), but may not always be desirable. Perhaps add
  39312. * an argument to treat them as catchers?
  39313. */
  39314. duk_activation *act;
  39315. duk_catcher *cat;
  39316. DUK_ASSERT(thr != NULL);
  39317. for (; thr != NULL; thr = thr->resumer) {
  39318. for (act = thr->callstack_curr; act != NULL; act = act->parent) {
  39319. for (cat = act->cat; cat != NULL; cat = cat->parent) {
  39320. if (DUK_CAT_HAS_CATCH_ENABLED(cat)) {
  39321. return 1; /* all we need to know */
  39322. }
  39323. }
  39324. }
  39325. }
  39326. return 0;
  39327. }
  39328. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  39329. /*
  39330. * Get prototype object for an integer error code.
  39331. */
  39332. DUK_INTERNAL duk_hobject *duk_error_prototype_from_code(duk_hthread *thr, duk_errcode_t code) {
  39333. switch (code) {
  39334. case DUK_ERR_EVAL_ERROR:
  39335. return thr->builtins[DUK_BIDX_EVAL_ERROR_PROTOTYPE];
  39336. case DUK_ERR_RANGE_ERROR:
  39337. return thr->builtins[DUK_BIDX_RANGE_ERROR_PROTOTYPE];
  39338. case DUK_ERR_REFERENCE_ERROR:
  39339. return thr->builtins[DUK_BIDX_REFERENCE_ERROR_PROTOTYPE];
  39340. case DUK_ERR_SYNTAX_ERROR:
  39341. return thr->builtins[DUK_BIDX_SYNTAX_ERROR_PROTOTYPE];
  39342. case DUK_ERR_TYPE_ERROR:
  39343. return thr->builtins[DUK_BIDX_TYPE_ERROR_PROTOTYPE];
  39344. case DUK_ERR_URI_ERROR:
  39345. return thr->builtins[DUK_BIDX_URI_ERROR_PROTOTYPE];
  39346. case DUK_ERR_ERROR:
  39347. default:
  39348. return thr->builtins[DUK_BIDX_ERROR_PROTOTYPE];
  39349. }
  39350. }
  39351. /*
  39352. * Helper for debugger throw notify and pause-on-uncaught integration.
  39353. */
  39354. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  39355. DUK_INTERNAL void duk_err_check_debugger_integration(duk_hthread *thr) {
  39356. duk_bool_t uncaught;
  39357. duk_tval *tv_obj;
  39358. /* If something is thrown with the debugger attached and nobody will
  39359. * catch it, execution is paused before the longjmp, turning over
  39360. * control to the debug client. This allows local state to be examined
  39361. * before the stack is unwound. Errors are not intercepted when debug
  39362. * message loop is active (e.g. for Eval).
  39363. */
  39364. DUK_ASSERT(thr != NULL);
  39365. DUK_ASSERT(thr->heap != NULL);
  39366. /* XXX: Allow customizing the pause and notify behavior at runtime
  39367. * using debugger runtime flags. For now the behavior is fixed using
  39368. * config options.
  39369. */
  39370. if (!duk_debug_is_attached(thr->heap) ||
  39371. thr->heap->dbg_processing ||
  39372. thr->heap->lj.type != DUK_LJ_TYPE_THROW ||
  39373. thr->heap->creating_error) {
  39374. DUK_D(DUK_DPRINT("skip debugger error integration; not attached, debugger processing, not THROW, or error thrown while creating error"));
  39375. return;
  39376. }
  39377. /* Don't intercept a DoubleError, we may have caused the initial double
  39378. * fault and attempting to intercept it will cause us to be called
  39379. * recursively and exhaust the C stack. (This should no longer happen
  39380. * for the initial throw because DoubleError path doesn't do a debugger
  39381. * integration check, but it might happen for rethrows.)
  39382. */
  39383. tv_obj = &thr->heap->lj.value1;
  39384. if (DUK_TVAL_IS_OBJECT(tv_obj) && DUK_TVAL_GET_OBJECT(tv_obj) == thr->builtins[DUK_BIDX_DOUBLE_ERROR]) {
  39385. DUK_D(DUK_DPRINT("built-in DoubleError instance (re)thrown, not intercepting"));
  39386. return;
  39387. }
  39388. uncaught = !duk__have_active_catcher(thr);
  39389. /* Debugger code expects the value at stack top. This also serves
  39390. * as a backup: we need to store/restore the longjmp state because
  39391. * when the debugger is paused Eval commands may be executed and
  39392. * they can arbitrarily clobber the longjmp state.
  39393. */
  39394. duk_push_tval(thr, tv_obj);
  39395. /* Store and reset longjmp state. */
  39396. DUK_ASSERT_LJSTATE_SET(thr->heap);
  39397. DUK_TVAL_DECREF_NORZ(thr, tv_obj);
  39398. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value2)); /* Always for THROW type. */
  39399. DUK_TVAL_SET_UNDEFINED(tv_obj);
  39400. thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN;
  39401. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  39402. #if defined(DUK_USE_DEBUGGER_THROW_NOTIFY)
  39403. /* Report it to the debug client */
  39404. DUK_D(DUK_DPRINT("throw with debugger attached, report to client"));
  39405. duk_debug_send_throw(thr, uncaught);
  39406. #endif
  39407. if (uncaught) {
  39408. if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_UNCAUGHT_ERROR) {
  39409. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by uncaught error"));
  39410. duk_debug_halt_execution(thr, 1 /*use_prev_pc*/);
  39411. }
  39412. } else {
  39413. if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_CAUGHT_ERROR) {
  39414. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by caught error"));
  39415. duk_debug_halt_execution(thr, 1 /*use_prev_pc*/);
  39416. }
  39417. }
  39418. /* Restore longjmp state. */
  39419. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  39420. thr->heap->lj.type = DUK_LJ_TYPE_THROW;
  39421. tv_obj = DUK_GET_TVAL_NEGIDX(thr, -1);
  39422. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value1));
  39423. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value2));
  39424. DUK_TVAL_SET_TVAL(&thr->heap->lj.value1, tv_obj);
  39425. DUK_TVAL_INCREF(thr, tv_obj);
  39426. DUK_ASSERT_LJSTATE_SET(thr->heap);
  39427. duk_pop(thr);
  39428. }
  39429. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  39430. /*
  39431. * Helpers for setting up heap longjmp state.
  39432. */
  39433. DUK_INTERNAL void duk_err_setup_ljstate1(duk_hthread *thr, duk_small_uint_t lj_type, duk_tval *tv_val) {
  39434. duk_heap *heap;
  39435. DUK_ASSERT(thr != NULL);
  39436. heap = thr->heap;
  39437. DUK_ASSERT(heap != NULL);
  39438. DUK_ASSERT(tv_val != NULL);
  39439. DUK_ASSERT_LJSTATE_UNSET(heap);
  39440. heap->lj.type = lj_type;
  39441. DUK_TVAL_SET_TVAL(&heap->lj.value1, tv_val);
  39442. DUK_TVAL_INCREF(thr, tv_val);
  39443. DUK_ASSERT_LJSTATE_SET(heap);
  39444. }
  39445. #line 1 "duk_error_throw.c"
  39446. /*
  39447. * Create and throw an Ecmascript error object based on a code and a message.
  39448. *
  39449. * Used when we throw errors internally. Ecmascript generated error objects
  39450. * are created by Ecmascript code, and the throwing is handled by the bytecode
  39451. * executor.
  39452. */
  39453. /* #include duk_internal.h -> already included */
  39454. /*
  39455. * Create and throw an error (originating from Duktape internally)
  39456. *
  39457. * Push an error object on top of the stack, possibly throw augmenting
  39458. * the error, and finally longjmp.
  39459. *
  39460. * If an error occurs while we're dealing with the current error, we might
  39461. * enter an infinite recursion loop. This is prevented by detecting a
  39462. * "double fault" through the heap->creating_error flag; the recursion
  39463. * then stops at the second level.
  39464. */
  39465. #if defined(DUK_USE_VERBOSE_ERRORS)
  39466. DUK_INTERNAL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code, const char *msg, const char *filename, duk_int_t line) {
  39467. #else
  39468. DUK_INTERNAL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code) {
  39469. #endif
  39470. #if defined(DUK_USE_VERBOSE_ERRORS)
  39471. DUK_DD(DUK_DDPRINT("duk_err_create_and_throw(): code=%ld, msg=%s, filename=%s, line=%ld",
  39472. (long) code, (const char *) msg,
  39473. (const char *) filename, (long) line));
  39474. #else
  39475. DUK_DD(DUK_DDPRINT("duk_err_create_and_throw(): code=%ld", (long) code));
  39476. #endif
  39477. DUK_ASSERT(thr != NULL);
  39478. /* Even though nested call is possible because we throw an error when
  39479. * trying to create an error, the potential errors must happen before
  39480. * the longjmp state is configured.
  39481. */
  39482. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  39483. /* Sync so that augmentation sees up-to-date activations, NULL
  39484. * thr->ptr_curr_pc so that it's not used if side effects occur
  39485. * in augmentation or longjmp handling.
  39486. */
  39487. duk_hthread_sync_and_null_currpc(thr);
  39488. /*
  39489. * Create and push an error object onto the top of stack.
  39490. * The error is potentially augmented before throwing.
  39491. *
  39492. * If a "double error" occurs, use a fixed error instance
  39493. * to avoid further trouble.
  39494. */
  39495. if (thr->heap->creating_error) {
  39496. duk_tval tv_val;
  39497. duk_hobject *h_err;
  39498. thr->heap->creating_error = 0;
  39499. h_err = thr->builtins[DUK_BIDX_DOUBLE_ERROR];
  39500. if (h_err != NULL) {
  39501. DUK_D(DUK_DPRINT("double fault detected -> use built-in fixed 'double error' instance"));
  39502. DUK_TVAL_SET_OBJECT(&tv_val, h_err);
  39503. } else {
  39504. DUK_D(DUK_DPRINT("double fault detected; there is no built-in fixed 'double error' instance "
  39505. "-> use the error code as a number"));
  39506. DUK_TVAL_SET_I32(&tv_val, (duk_int32_t) code);
  39507. }
  39508. duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, &tv_val);
  39509. /* No augmentation to avoid any allocations or side effects. */
  39510. } else {
  39511. /* Prevent infinite recursion. Extra call stack and C
  39512. * recursion headroom (see GH-191) is added for augmentation.
  39513. * That is now signalled by heap->augmenting error and taken
  39514. * into account in call handling without an explicit limit bump.
  39515. */
  39516. thr->heap->creating_error = 1;
  39517. duk_require_stack(thr, 1);
  39518. /* XXX: usually unnecessary '%s' formatting here, but cannot
  39519. * use 'msg' as a format string directly.
  39520. */
  39521. #if defined(DUK_USE_VERBOSE_ERRORS)
  39522. duk_push_error_object_raw(thr,
  39523. code | DUK_ERRCODE_FLAG_NOBLAME_FILELINE,
  39524. filename,
  39525. line,
  39526. "%s",
  39527. (const char *) msg);
  39528. #else
  39529. duk_push_error_object_raw(thr,
  39530. code | DUK_ERRCODE_FLAG_NOBLAME_FILELINE,
  39531. NULL,
  39532. 0,
  39533. NULL);
  39534. #endif
  39535. /* Note that an alloc error may happen during error augmentation.
  39536. * This may happen both when the original error is an alloc error
  39537. * and when it's something else. Because any error in augmentation
  39538. * must be handled correctly anyway, there's no special check for
  39539. * avoiding it for alloc errors (this differs from Duktape 1.x).
  39540. */
  39541. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  39542. DUK_DDD(DUK_DDDPRINT("THROW ERROR (INTERNAL): %!iT (before throw augment)",
  39543. (duk_tval *) duk_get_tval(thr, -1)));
  39544. duk_err_augment_error_throw(thr);
  39545. #endif
  39546. duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, DUK_GET_TVAL_NEGIDX(thr, -1));
  39547. thr->heap->creating_error = 0;
  39548. /* Error is now created and we assume no errors can occur any
  39549. * more. Check for debugger Throw integration only when the
  39550. * error is complete. If we enter debugger message loop,
  39551. * creating_error must be 0 so that errors can be thrown in
  39552. * the paused state, e.g. in Eval commands.
  39553. */
  39554. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  39555. duk_err_check_debugger_integration(thr);
  39556. #endif
  39557. }
  39558. /*
  39559. * Finally, longjmp
  39560. */
  39561. DUK_DDD(DUK_DDDPRINT("THROW ERROR (INTERNAL): %!iT, %!iT (after throw augment)",
  39562. (duk_tval *) &thr->heap->lj.value1, (duk_tval *) &thr->heap->lj.value2));
  39563. duk_err_longjmp(thr);
  39564. DUK_UNREACHABLE();
  39565. }
  39566. /*
  39567. * Helper for C function call negative return values.
  39568. */
  39569. DUK_INTERNAL void duk_error_throw_from_negative_rc(duk_hthread *thr, duk_ret_t rc) {
  39570. DUK_ASSERT(thr != NULL);
  39571. DUK_ASSERT(rc < 0);
  39572. /*
  39573. * The __FILE__ and __LINE__ information is intentionally not used in the
  39574. * creation of the error object, as it isn't useful in the tracedata. The
  39575. * tracedata still contains the function which returned the negative return
  39576. * code, and having the file/line of this function isn't very useful.
  39577. *
  39578. * The error messages for DUK_RET_xxx shorthand are intentionally very
  39579. * minimal: they're only really useful for low memory targets.
  39580. */
  39581. duk_error_raw(thr, -rc, NULL, 0, "error (rc %ld)", (long) rc);
  39582. DUK_UNREACHABLE();
  39583. }
  39584. #line 1 "duk_hbuffer_alloc.c"
  39585. /*
  39586. * duk_hbuffer allocation and freeing.
  39587. */
  39588. /* #include duk_internal.h -> already included */
  39589. /* Allocate a new duk_hbuffer of a certain type and return a pointer to it
  39590. * (NULL on error). Write buffer data pointer to 'out_bufdata' (only if
  39591. * allocation successful).
  39592. */
  39593. DUK_INTERNAL duk_hbuffer *duk_hbuffer_alloc(duk_heap *heap, duk_size_t size, duk_small_uint_t flags, void **out_bufdata) {
  39594. duk_hbuffer *res = NULL;
  39595. duk_size_t header_size;
  39596. duk_size_t alloc_size;
  39597. DUK_ASSERT(heap != NULL);
  39598. DUK_ASSERT(out_bufdata != NULL);
  39599. DUK_DDD(DUK_DDDPRINT("allocate hbuffer"));
  39600. /* Size sanity check. Should not be necessary because caller is
  39601. * required to check this, but we don't want to cause a segfault
  39602. * if the size wraps either in duk_size_t computation or when
  39603. * storing the size in a 16-bit field.
  39604. */
  39605. if (size > DUK_HBUFFER_MAX_BYTELEN) {
  39606. DUK_D(DUK_DPRINT("hbuffer alloc failed: size too large: %ld", (long) size));
  39607. return NULL; /* no need to write 'out_bufdata' */
  39608. }
  39609. if (flags & DUK_BUF_FLAG_EXTERNAL) {
  39610. header_size = sizeof(duk_hbuffer_external);
  39611. alloc_size = sizeof(duk_hbuffer_external);
  39612. } else if (flags & DUK_BUF_FLAG_DYNAMIC) {
  39613. header_size = sizeof(duk_hbuffer_dynamic);
  39614. alloc_size = sizeof(duk_hbuffer_dynamic);
  39615. } else {
  39616. header_size = sizeof(duk_hbuffer_fixed);
  39617. alloc_size = sizeof(duk_hbuffer_fixed) + size;
  39618. DUK_ASSERT(alloc_size >= sizeof(duk_hbuffer_fixed)); /* no wrapping */
  39619. }
  39620. res = (duk_hbuffer *) DUK_ALLOC(heap, alloc_size);
  39621. if (DUK_UNLIKELY(res == NULL)) {
  39622. goto alloc_error;
  39623. }
  39624. /* zero everything unless requested not to do so */
  39625. #if defined(DUK_USE_ZERO_BUFFER_DATA)
  39626. DUK_MEMZERO((void *) res,
  39627. (flags & DUK_BUF_FLAG_NOZERO) ? header_size : alloc_size);
  39628. #else
  39629. DUK_MEMZERO((void *) res, header_size);
  39630. #endif
  39631. if (flags & DUK_BUF_FLAG_EXTERNAL) {
  39632. duk_hbuffer_external *h;
  39633. h = (duk_hbuffer_external *) res;
  39634. DUK_UNREF(h);
  39635. *out_bufdata = NULL;
  39636. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  39637. #if defined(DUK_USE_HEAPPTR16)
  39638. /* the compressed pointer is zeroed which maps to NULL, so nothing to do. */
  39639. #else
  39640. DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap, h, NULL);
  39641. #endif
  39642. #endif
  39643. DUK_ASSERT(DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap, h) == NULL);
  39644. } else if (flags & DUK_BUF_FLAG_DYNAMIC) {
  39645. duk_hbuffer_dynamic *h = (duk_hbuffer_dynamic *) res;
  39646. void *ptr;
  39647. if (size > 0) {
  39648. DUK_ASSERT(!(flags & DUK_BUF_FLAG_EXTERNAL)); /* alloc external with size zero */
  39649. DUK_DDD(DUK_DDDPRINT("dynamic buffer with nonzero size, alloc actual buffer"));
  39650. #if defined(DUK_USE_ZERO_BUFFER_DATA)
  39651. ptr = DUK_ALLOC_ZEROED(heap, size);
  39652. #else
  39653. ptr = DUK_ALLOC(heap, size);
  39654. #endif
  39655. if (DUK_UNLIKELY(ptr == NULL)) {
  39656. /* Because size > 0, NULL check is correct */
  39657. goto alloc_error;
  39658. }
  39659. *out_bufdata = ptr;
  39660. DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap, h, ptr);
  39661. } else {
  39662. *out_bufdata = NULL;
  39663. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  39664. #if defined(DUK_USE_HEAPPTR16)
  39665. /* the compressed pointer is zeroed which maps to NULL, so nothing to do. */
  39666. #else
  39667. DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap, h, NULL);
  39668. #endif
  39669. #endif
  39670. DUK_ASSERT(DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, h) == NULL);
  39671. }
  39672. } else {
  39673. *out_bufdata = (void *) ((duk_hbuffer_fixed *) res + 1);
  39674. }
  39675. DUK_HBUFFER_SET_SIZE(res, size);
  39676. DUK_HEAPHDR_SET_TYPE(&res->hdr, DUK_HTYPE_BUFFER);
  39677. if (flags & DUK_BUF_FLAG_DYNAMIC) {
  39678. DUK_HBUFFER_SET_DYNAMIC(res);
  39679. if (flags & DUK_BUF_FLAG_EXTERNAL) {
  39680. DUK_HBUFFER_SET_EXTERNAL(res);
  39681. }
  39682. } else {
  39683. DUK_ASSERT(!(flags & DUK_BUF_FLAG_EXTERNAL));
  39684. }
  39685. DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, &res->hdr);
  39686. DUK_DDD(DUK_DDDPRINT("allocated hbuffer: %p", (void *) res));
  39687. return res;
  39688. alloc_error:
  39689. DUK_DD(DUK_DDPRINT("hbuffer allocation failed"));
  39690. DUK_FREE(heap, res);
  39691. return NULL; /* no need to write 'out_bufdata' */
  39692. }
  39693. /* For indirect allocs. */
  39694. DUK_INTERNAL void *duk_hbuffer_get_dynalloc_ptr(duk_heap *heap, void *ud) {
  39695. duk_hbuffer_dynamic *buf = (duk_hbuffer_dynamic *) ud;
  39696. DUK_UNREF(heap);
  39697. return (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, buf);
  39698. }
  39699. #line 1 "duk_hbuffer_ops.c"
  39700. /*
  39701. * duk_hbuffer operations such as resizing and inserting/appending data to
  39702. * a dynamic buffer.
  39703. */
  39704. /* #include duk_internal.h -> already included */
  39705. /*
  39706. * Resizing
  39707. */
  39708. DUK_INTERNAL void duk_hbuffer_resize(duk_hthread *thr, duk_hbuffer_dynamic *buf, duk_size_t new_size) {
  39709. void *res;
  39710. duk_size_t prev_size;
  39711. DUK_ASSERT(thr != NULL);
  39712. DUK_ASSERT(buf != NULL);
  39713. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(buf));
  39714. DUK_ASSERT(!DUK_HBUFFER_HAS_EXTERNAL(buf));
  39715. /*
  39716. * Maximum size check
  39717. */
  39718. if (new_size > DUK_HBUFFER_MAX_BYTELEN) {
  39719. DUK_ERROR_RANGE(thr, "buffer too long");
  39720. }
  39721. /*
  39722. * Note: use indirect realloc variant just in case mark-and-sweep
  39723. * (finalizers) might resize this same buffer during garbage
  39724. * collection.
  39725. */
  39726. res = DUK_REALLOC_INDIRECT(thr->heap, duk_hbuffer_get_dynalloc_ptr, (void *) buf, new_size);
  39727. if (DUK_LIKELY(res != NULL || new_size == 0)) {
  39728. /* 'res' may be NULL if new allocation size is 0. */
  39729. DUK_DDD(DUK_DDDPRINT("resized dynamic buffer %p:%ld -> %p:%ld",
  39730. (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, buf),
  39731. (long) DUK_HBUFFER_DYNAMIC_GET_SIZE(buf),
  39732. (void *) res,
  39733. (long) new_size));
  39734. /*
  39735. * The entire allocated buffer area, regardless of actual used
  39736. * size, is kept zeroed in resizes for simplicity. If the buffer
  39737. * is grown, zero the new part.
  39738. */
  39739. prev_size = DUK_HBUFFER_DYNAMIC_GET_SIZE(buf);
  39740. if (new_size > prev_size) {
  39741. DUK_ASSERT(new_size - prev_size > 0);
  39742. #if defined(DUK_USE_ZERO_BUFFER_DATA)
  39743. DUK_MEMZERO((void *) ((char *) res + prev_size),
  39744. (duk_size_t) (new_size - prev_size));
  39745. #endif
  39746. }
  39747. DUK_HBUFFER_DYNAMIC_SET_SIZE(buf, new_size);
  39748. DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(thr->heap, buf, res);
  39749. } else {
  39750. DUK_ERROR_ALLOC_FAILED(thr);
  39751. }
  39752. DUK_ASSERT(res != NULL || new_size == 0);
  39753. }
  39754. DUK_INTERNAL void duk_hbuffer_reset(duk_hthread *thr, duk_hbuffer_dynamic *buf) {
  39755. DUK_ASSERT(thr != NULL);
  39756. DUK_ASSERT(buf != NULL);
  39757. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(buf));
  39758. DUK_ASSERT(!DUK_HBUFFER_HAS_EXTERNAL(buf));
  39759. duk_hbuffer_resize(thr, buf, 0);
  39760. }
  39761. /* #include duk_internal.h -> already included */
  39762. #line 2 "duk_hbufobj_misc.c"
  39763. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  39764. DUK_INTERNAL duk_uint_t duk_hbufobj_clamp_bytelength(duk_hbufobj *h_bufobj, duk_uint_t len) {
  39765. duk_uint_t buf_size;
  39766. duk_uint_t buf_avail;
  39767. DUK_ASSERT(h_bufobj != NULL);
  39768. DUK_ASSERT(h_bufobj->buf != NULL);
  39769. buf_size = (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_bufobj->buf);
  39770. if (h_bufobj->offset > buf_size) {
  39771. /* Slice starting point is beyond current length. */
  39772. return 0;
  39773. }
  39774. buf_avail = buf_size - h_bufobj->offset;
  39775. return buf_avail >= len ? len : buf_avail;
  39776. }
  39777. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  39778. #line 1 "duk_heap_alloc.c"
  39779. /*
  39780. * duk_heap allocation and freeing.
  39781. */
  39782. /* #include duk_internal.h -> already included */
  39783. #if defined(DUK_USE_ROM_STRINGS)
  39784. /* Fixed seed value used with ROM strings. */
  39785. #define DUK__FIXED_HASH_SEED 0xabcd1234
  39786. #endif
  39787. /*
  39788. * Free a heap object.
  39789. *
  39790. * Free heap object and its internal (non-heap) pointers. Assumes that
  39791. * caller has removed the object from heap allocated list or the string
  39792. * intern table, and any weak references (which strings may have) have
  39793. * been already dealt with.
  39794. */
  39795. DUK_INTERNAL void duk_free_hobject(duk_heap *heap, duk_hobject *h) {
  39796. DUK_ASSERT(heap != NULL);
  39797. DUK_ASSERT(h != NULL);
  39798. DUK_FREE(heap, DUK_HOBJECT_GET_PROPS(heap, h));
  39799. if (DUK_HOBJECT_IS_COMPFUNC(h)) {
  39800. duk_hcompfunc *f = (duk_hcompfunc *) h;
  39801. DUK_UNREF(f);
  39802. /* Currently nothing to free; 'data' is a heap object */
  39803. } else if (DUK_HOBJECT_IS_NATFUNC(h)) {
  39804. duk_hnatfunc *f = (duk_hnatfunc *) h;
  39805. DUK_UNREF(f);
  39806. /* Currently nothing to free */
  39807. } else if (DUK_HOBJECT_IS_THREAD(h)) {
  39808. duk_hthread *t = (duk_hthread *) h;
  39809. duk_activation *act;
  39810. DUK_FREE(heap, t->valstack);
  39811. /* Don't free h->resumer because it exists in the heap.
  39812. * Callstack entries also contain function pointers which
  39813. * are not freed for the same reason. They are decref
  39814. * finalized and the targets are freed if necessary based
  39815. * on their refcount (or reachability).
  39816. */
  39817. for (act = t->callstack_curr; act != NULL;) {
  39818. duk_activation *act_next;
  39819. duk_catcher *cat;
  39820. for (cat = act->cat; cat != NULL;) {
  39821. duk_catcher *cat_next;
  39822. cat_next = cat->parent;
  39823. DUK_FREE(heap, (void *) cat);
  39824. cat = cat_next;
  39825. }
  39826. act_next = act->parent;
  39827. DUK_FREE(heap, (void *) act);
  39828. act = act_next;
  39829. }
  39830. /* XXX: with 'caller' property the callstack would need
  39831. * to be unwound to update the 'caller' properties of
  39832. * functions in the callstack.
  39833. */
  39834. } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) {
  39835. duk_hboundfunc *f = (duk_hboundfunc *) h;
  39836. DUK_FREE(heap, f->args);
  39837. }
  39838. DUK_FREE(heap, (void *) h);
  39839. }
  39840. DUK_INTERNAL void duk_free_hbuffer(duk_heap *heap, duk_hbuffer *h) {
  39841. DUK_ASSERT(heap != NULL);
  39842. DUK_ASSERT(h != NULL);
  39843. if (DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h)) {
  39844. duk_hbuffer_dynamic *g = (duk_hbuffer_dynamic *) h;
  39845. DUK_DDD(DUK_DDDPRINT("free dynamic buffer %p", (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, g)));
  39846. DUK_FREE(heap, DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, g));
  39847. }
  39848. DUK_FREE(heap, (void *) h);
  39849. }
  39850. DUK_INTERNAL void duk_free_hstring(duk_heap *heap, duk_hstring *h) {
  39851. DUK_ASSERT(heap != NULL);
  39852. DUK_ASSERT(h != NULL);
  39853. DUK_UNREF(heap);
  39854. DUK_UNREF(h);
  39855. #if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_FREE)
  39856. if (DUK_HSTRING_HAS_EXTDATA(h)) {
  39857. DUK_DDD(DUK_DDDPRINT("free extstr: hstring %!O, extdata: %p",
  39858. h, DUK_HSTRING_GET_EXTDATA((duk_hstring_external *) h)));
  39859. DUK_USE_EXTSTR_FREE(heap->heap_udata, (const void *) DUK_HSTRING_GET_EXTDATA((duk_hstring_external *) h));
  39860. }
  39861. #endif
  39862. DUK_FREE(heap, (void *) h);
  39863. }
  39864. DUK_INTERNAL void duk_heap_free_heaphdr_raw(duk_heap *heap, duk_heaphdr *hdr) {
  39865. DUK_ASSERT(heap);
  39866. DUK_ASSERT(hdr);
  39867. DUK_DDD(DUK_DDDPRINT("free heaphdr %p, htype %ld", (void *) hdr, (long) DUK_HEAPHDR_GET_TYPE(hdr)));
  39868. switch (DUK_HEAPHDR_GET_TYPE(hdr)) {
  39869. case DUK_HTYPE_STRING:
  39870. duk_free_hstring(heap, (duk_hstring *) hdr);
  39871. break;
  39872. case DUK_HTYPE_OBJECT:
  39873. duk_free_hobject(heap, (duk_hobject *) hdr);
  39874. break;
  39875. default:
  39876. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) == DUK_HTYPE_BUFFER);
  39877. duk_free_hbuffer(heap, (duk_hbuffer *) hdr);
  39878. }
  39879. }
  39880. /*
  39881. * Free the heap.
  39882. *
  39883. * Frees heap-related non-heap-tracked allocations such as the
  39884. * string intern table; then frees the heap allocated objects;
  39885. * and finally frees the heap structure itself. Reference counts
  39886. * and GC markers are ignored (and not updated) in this process,
  39887. * and finalizers won't be called.
  39888. *
  39889. * The heap pointer and heap object pointers must not be used
  39890. * after this call.
  39891. */
  39892. #if defined(DUK_USE_CACHE_ACTIVATION)
  39893. DUK_LOCAL duk_size_t duk__heap_free_activation_freelist(duk_heap *heap) {
  39894. duk_activation *act;
  39895. duk_activation *act_next;
  39896. duk_size_t count_act = 0;
  39897. for (act = heap->activation_free; act != NULL;) {
  39898. act_next = act->parent;
  39899. DUK_FREE(heap, (void *) act);
  39900. act = act_next;
  39901. #if defined(DUK_USE_DEBUG)
  39902. count_act++;
  39903. #endif
  39904. }
  39905. heap->activation_free = NULL; /* needed when called from mark-and-sweep */
  39906. return count_act;
  39907. }
  39908. #endif /* DUK_USE_CACHE_ACTIVATION */
  39909. #if defined(DUK_USE_CACHE_CATCHER)
  39910. DUK_LOCAL duk_size_t duk__heap_free_catcher_freelist(duk_heap *heap) {
  39911. duk_catcher *cat;
  39912. duk_catcher *cat_next;
  39913. duk_size_t count_cat = 0;
  39914. for (cat = heap->catcher_free; cat != NULL;) {
  39915. cat_next = cat->parent;
  39916. DUK_FREE(heap, (void *) cat);
  39917. cat = cat_next;
  39918. #if defined(DUK_USE_DEBUG)
  39919. count_cat++;
  39920. #endif
  39921. }
  39922. heap->catcher_free = NULL; /* needed when called from mark-and-sweep */
  39923. return count_cat;
  39924. }
  39925. #endif /* DUK_USE_CACHE_CATCHER */
  39926. DUK_INTERNAL void duk_heap_free_freelists(duk_heap *heap) {
  39927. duk_size_t count_act = 0;
  39928. duk_size_t count_cat = 0;
  39929. #if defined(DUK_USE_CACHE_ACTIVATION)
  39930. count_act = duk__heap_free_activation_freelist(heap);
  39931. #endif
  39932. #if defined(DUK_USE_CACHE_CATCHER)
  39933. count_cat = duk__heap_free_catcher_freelist(heap);
  39934. #endif
  39935. DUK_UNREF(heap);
  39936. DUK_UNREF(count_act);
  39937. DUK_UNREF(count_cat);
  39938. DUK_D(DUK_DPRINT("freed %ld activation freelist entries, %ld catcher freelist entries",
  39939. (long) count_act, (long) count_cat));
  39940. }
  39941. DUK_LOCAL void duk__free_allocated(duk_heap *heap) {
  39942. duk_heaphdr *curr;
  39943. duk_heaphdr *next;
  39944. curr = heap->heap_allocated;
  39945. while (curr) {
  39946. /* We don't log or warn about freeing zero refcount objects
  39947. * because they may happen with finalizer processing.
  39948. */
  39949. DUK_DDD(DUK_DDDPRINT("FINALFREE (allocated): %!iO",
  39950. (duk_heaphdr *) curr));
  39951. next = DUK_HEAPHDR_GET_NEXT(heap, curr);
  39952. duk_heap_free_heaphdr_raw(heap, curr);
  39953. curr = next;
  39954. }
  39955. }
  39956. #if defined(DUK_USE_FINALIZER_SUPPORT)
  39957. DUK_LOCAL void duk__free_finalize_list(duk_heap *heap) {
  39958. duk_heaphdr *curr;
  39959. duk_heaphdr *next;
  39960. curr = heap->finalize_list;
  39961. while (curr) {
  39962. DUK_DDD(DUK_DDDPRINT("FINALFREE (finalize_list): %!iO",
  39963. (duk_heaphdr *) curr));
  39964. next = DUK_HEAPHDR_GET_NEXT(heap, curr);
  39965. duk_heap_free_heaphdr_raw(heap, curr);
  39966. curr = next;
  39967. }
  39968. }
  39969. #endif /* DUK_USE_FINALIZER_SUPPORT */
  39970. DUK_LOCAL void duk__free_stringtable(duk_heap *heap) {
  39971. /* strings are only tracked by stringtable */
  39972. duk_heap_strtable_free(heap);
  39973. }
  39974. #if defined(DUK_USE_FINALIZER_SUPPORT)
  39975. DUK_LOCAL void duk__free_run_finalizers(duk_heap *heap) {
  39976. duk_heaphdr *curr;
  39977. duk_uint_t round_no;
  39978. duk_size_t count_all;
  39979. duk_size_t count_finalized;
  39980. duk_size_t curr_limit;
  39981. DUK_ASSERT(heap != NULL);
  39982. #if defined(DUK_USE_REFERENCE_COUNTING)
  39983. DUK_ASSERT(heap->refzero_list == NULL); /* refzero not running -> must be empty */
  39984. #endif
  39985. DUK_ASSERT(heap->finalize_list == NULL); /* mark-and-sweep last pass */
  39986. if (heap->heap_thread == NULL) {
  39987. /* May happen when heap allocation fails right off. There
  39988. * cannot be any finalizable objects in this case.
  39989. */
  39990. DUK_D(DUK_DPRINT("no heap_thread in heap destruct, assume no finalizable objects"));
  39991. return;
  39992. }
  39993. /* Prevent finalize_list processing and mark-and-sweep entirely.
  39994. * Setting ms_running = 1 also prevents refzero handling from moving
  39995. * objects away from the heap_allocated list (the flag name is a bit
  39996. * misleading here).
  39997. */
  39998. DUK_ASSERT(heap->pf_prevent_count == 0);
  39999. heap->pf_prevent_count = 1;
  40000. DUK_ASSERT(heap->ms_running == 0);
  40001. heap->ms_running = 1;
  40002. DUK_ASSERT(heap->ms_prevent_count == 0);
  40003. heap->ms_prevent_count = 1; /* Bump, because mark-and-sweep assumes it's bumped when ms_running is set. */
  40004. curr_limit = 0; /* suppress warning, not used */
  40005. for (round_no = 0; ; round_no++) {
  40006. curr = heap->heap_allocated;
  40007. count_all = 0;
  40008. count_finalized = 0;
  40009. while (curr) {
  40010. count_all++;
  40011. if (DUK_HEAPHDR_IS_OBJECT(curr)) {
  40012. /* Only objects in heap_allocated may have finalizers. Check that
  40013. * the object itself has a _Finalizer property (own or inherited)
  40014. * so that we don't execute finalizers for e.g. Proxy objects.
  40015. */
  40016. DUK_ASSERT(curr != NULL);
  40017. if (DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) curr)) {
  40018. if (!DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) curr)) {
  40019. DUK_ASSERT(DUK_HEAP_HAS_FINALIZER_NORESCUE(heap)); /* maps to finalizer 2nd argument */
  40020. duk_heap_run_finalizer(heap, (duk_hobject *) curr);
  40021. count_finalized++;
  40022. }
  40023. }
  40024. }
  40025. curr = DUK_HEAPHDR_GET_NEXT(heap, curr);
  40026. }
  40027. /* Each round of finalizer execution may spawn new finalizable objects
  40028. * which is normal behavior for some applications. Allow multiple
  40029. * rounds of finalization, but use a shrinking limit based on the
  40030. * first round to detect the case where a runaway finalizer creates
  40031. * an unbounded amount of new finalizable objects. Finalizer rescue
  40032. * is not supported: the semantics are unclear because most of the
  40033. * objects being finalized here are already reachable. The finalizer
  40034. * is given a boolean to indicate that rescue is not possible.
  40035. *
  40036. * See discussion in: https://github.com/svaarala/duktape/pull/473
  40037. */
  40038. if (round_no == 0) {
  40039. /* Cannot wrap: each object is at least 8 bytes so count is
  40040. * at most 1/8 of that.
  40041. */
  40042. curr_limit = count_all * 2;
  40043. } else {
  40044. curr_limit = (curr_limit * 3) / 4; /* Decrease by 25% every round */
  40045. }
  40046. DUK_D(DUK_DPRINT("finalizer round %ld complete, %ld objects, tried to execute %ld finalizers, current limit is %ld",
  40047. (long) round_no, (long) count_all, (long) count_finalized, (long) curr_limit));
  40048. if (count_finalized == 0) {
  40049. DUK_D(DUK_DPRINT("no more finalizable objects, forced finalization finished"));
  40050. break;
  40051. }
  40052. if (count_finalized >= curr_limit) {
  40053. DUK_D(DUK_DPRINT("finalizer count above limit, potentially runaway finalizer; skip remaining finalizers"));
  40054. break;
  40055. }
  40056. }
  40057. DUK_ASSERT(heap->ms_running == 1);
  40058. heap->ms_running = 0;
  40059. DUK_ASSERT(heap->pf_prevent_count == 1);
  40060. heap->pf_prevent_count = 0;
  40061. }
  40062. #endif /* DUK_USE_FINALIZER_SUPPORT */
  40063. DUK_INTERNAL void duk_heap_free(duk_heap *heap) {
  40064. DUK_D(DUK_DPRINT("free heap: %p", (void *) heap));
  40065. #if defined(DUK_USE_DEBUG)
  40066. duk_heap_strtable_dump(heap);
  40067. #endif
  40068. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  40069. /* Detach a debugger if attached (can be called multiple times)
  40070. * safely.
  40071. */
  40072. /* XXX: Add a flag to reject an attempt to re-attach? Otherwise
  40073. * the detached callback may immediately reattach.
  40074. */
  40075. duk_debug_do_detach(heap);
  40076. #endif
  40077. /* Execute finalizers before freeing the heap, even for reachable
  40078. * objects. This gives finalizers the chance to free any native
  40079. * resources like file handles, allocations made outside Duktape,
  40080. * etc. This is quite tricky to get right, so that all finalizer
  40081. * guarantees are honored.
  40082. *
  40083. * Run mark-and-sweep a few times just in case (unreachable object
  40084. * finalizers run already here). The last round must rescue objects
  40085. * from the previous round without running any more finalizers. This
  40086. * ensures rescued objects get their FINALIZED flag cleared so that
  40087. * their finalizer is called once more in forced finalization to
  40088. * satisfy finalizer guarantees. However, we don't want to run any
  40089. * more finalizers because that'd required one more loop, and so on.
  40090. *
  40091. * XXX: this perhaps requires an execution time limit.
  40092. */
  40093. DUK_D(DUK_DPRINT("execute finalizers before freeing heap"));
  40094. DUK_ASSERT(heap->pf_skip_finalizers == 0);
  40095. DUK_D(DUK_DPRINT("forced gc #1 in heap destruction"));
  40096. duk_heap_mark_and_sweep(heap, 0);
  40097. DUK_D(DUK_DPRINT("forced gc #2 in heap destruction"));
  40098. duk_heap_mark_and_sweep(heap, 0);
  40099. DUK_D(DUK_DPRINT("forced gc #3 in heap destruction (don't run finalizers)"));
  40100. heap->pf_skip_finalizers = 1;
  40101. duk_heap_mark_and_sweep(heap, 0); /* Skip finalizers; queue finalizable objects to heap_allocated. */
  40102. /* There are never objects in refzero_list at this point, or at any
  40103. * point beyond a DECREF (even a DECREF_NORZ). Since Duktape 2.1
  40104. * refzero_list processing is side effect free, so it is always
  40105. * processed to completion by a DECREF initially triggering a zero
  40106. * refcount.
  40107. */
  40108. #if defined(DUK_USE_REFERENCE_COUNTING)
  40109. DUK_ASSERT(heap->refzero_list == NULL); /* Always processed to completion inline. */
  40110. #endif
  40111. #if defined(DUK_USE_FINALIZER_SUPPORT)
  40112. DUK_ASSERT(heap->finalize_list == NULL); /* Last mark-and-sweep with skip_finalizers. */
  40113. #endif
  40114. #if defined(DUK_USE_FINALIZER_SUPPORT)
  40115. DUK_D(DUK_DPRINT("run finalizers for remaining finalizable objects"));
  40116. DUK_HEAP_SET_FINALIZER_NORESCUE(heap); /* Rescue no longer supported. */
  40117. duk__free_run_finalizers(heap);
  40118. #endif /* DUK_USE_FINALIZER_SUPPORT */
  40119. /* Note: heap->heap_thread, heap->curr_thread, and heap->heap_object
  40120. * are on the heap allocated list.
  40121. */
  40122. DUK_D(DUK_DPRINT("freeing temporary freelists"));
  40123. duk_heap_free_freelists(heap);
  40124. DUK_D(DUK_DPRINT("freeing heap_allocated of heap: %p", (void *) heap));
  40125. duk__free_allocated(heap);
  40126. #if defined(DUK_USE_REFERENCE_COUNTING)
  40127. DUK_ASSERT(heap->refzero_list == NULL); /* Always processed to completion inline. */
  40128. #endif
  40129. #if defined(DUK_USE_FINALIZER_SUPPORT)
  40130. DUK_D(DUK_DPRINT("freeing finalize_list of heap: %p", (void *) heap));
  40131. duk__free_finalize_list(heap);
  40132. #endif
  40133. DUK_D(DUK_DPRINT("freeing string table of heap: %p", (void *) heap));
  40134. duk__free_stringtable(heap);
  40135. DUK_D(DUK_DPRINT("freeing heap structure: %p", (void *) heap));
  40136. heap->free_func(heap->heap_udata, heap);
  40137. }
  40138. /*
  40139. * Allocate a heap.
  40140. *
  40141. * String table is initialized with built-in strings from genbuiltins.py,
  40142. * either by dynamically creating the strings or by referring to ROM strings.
  40143. */
  40144. #if defined(DUK_USE_ROM_STRINGS)
  40145. DUK_LOCAL duk_bool_t duk__init_heap_strings(duk_heap *heap) {
  40146. #if defined(DUK_USE_ASSERTIONS)
  40147. duk_small_uint_t i;
  40148. #endif
  40149. DUK_UNREF(heap);
  40150. /* With ROM-based strings, heap->strs[] and thr->strs[] are omitted
  40151. * so nothing to initialize for strs[].
  40152. */
  40153. #if defined(DUK_USE_ASSERTIONS)
  40154. for (i = 0; i < sizeof(duk_rom_strings_lookup) / sizeof(const duk_hstring *); i++) {
  40155. const duk_hstring *h;
  40156. duk_uint32_t hash;
  40157. h = duk_rom_strings_lookup[i];
  40158. while (h != NULL) {
  40159. hash = duk_heap_hashstring(heap, (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  40160. DUK_DD(DUK_DDPRINT("duk_rom_strings_lookup[%d] -> hash 0x%08lx, computed 0x%08lx",
  40161. (int) i, (unsigned long) DUK_HSTRING_GET_HASH(h), (unsigned long) hash));
  40162. DUK_ASSERT(hash == (duk_uint32_t) DUK_HSTRING_GET_HASH(h));
  40163. h = (const duk_hstring *) h->hdr.h_next;
  40164. }
  40165. }
  40166. #endif
  40167. return 1;
  40168. }
  40169. #else /* DUK_USE_ROM_STRINGS */
  40170. DUK_LOCAL duk_bool_t duk__init_heap_strings(duk_heap *heap) {
  40171. duk_bitdecoder_ctx bd_ctx;
  40172. duk_bitdecoder_ctx *bd = &bd_ctx; /* convenience */
  40173. duk_small_uint_t i;
  40174. DUK_MEMZERO(&bd_ctx, sizeof(bd_ctx));
  40175. bd->data = (const duk_uint8_t *) duk_strings_data;
  40176. bd->length = (duk_size_t) DUK_STRDATA_DATA_LENGTH;
  40177. for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) {
  40178. duk_uint8_t tmp[DUK_STRDATA_MAX_STRLEN];
  40179. duk_small_uint_t len;
  40180. duk_hstring *h;
  40181. len = duk_bd_decode_bitpacked_string(bd, tmp);
  40182. /* No need to length check string: it will never exceed even
  40183. * the 16-bit length maximum.
  40184. */
  40185. DUK_ASSERT(len <= 0xffffUL);
  40186. DUK_DDD(DUK_DDDPRINT("intern built-in string %ld", (long) i));
  40187. h = duk_heap_strtable_intern(heap, tmp, len);
  40188. if (!h) {
  40189. goto failed;
  40190. }
  40191. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h));
  40192. /* Special flags checks. Since these strings are always
  40193. * reachable and a string cannot appear twice in the string
  40194. * table, there's no need to check/set these flags elsewhere.
  40195. * The 'internal' flag is set by string intern code.
  40196. */
  40197. if (i == DUK_STRIDX_EVAL || i == DUK_STRIDX_LC_ARGUMENTS) {
  40198. DUK_HSTRING_SET_EVAL_OR_ARGUMENTS(h);
  40199. }
  40200. if (i >= DUK_STRIDX_START_RESERVED && i < DUK_STRIDX_END_RESERVED) {
  40201. DUK_HSTRING_SET_RESERVED_WORD(h);
  40202. if (i >= DUK_STRIDX_START_STRICT_RESERVED) {
  40203. DUK_HSTRING_SET_STRICT_RESERVED_WORD(h);
  40204. }
  40205. }
  40206. DUK_DDD(DUK_DDDPRINT("interned: %!O", (duk_heaphdr *) h));
  40207. /* XXX: The incref macro takes a thread pointer but doesn't
  40208. * use it right now.
  40209. */
  40210. DUK_HSTRING_INCREF(_never_referenced_, h);
  40211. #if defined(DUK_USE_HEAPPTR16)
  40212. heap->strs16[i] = DUK_USE_HEAPPTR_ENC16(heap->heap_udata, (void *) h);
  40213. #else
  40214. heap->strs[i] = h;
  40215. #endif
  40216. }
  40217. return 1;
  40218. failed:
  40219. return 0;
  40220. }
  40221. #endif /* DUK_USE_ROM_STRINGS */
  40222. DUK_LOCAL duk_bool_t duk__init_heap_thread(duk_heap *heap) {
  40223. duk_hthread *thr;
  40224. DUK_D(DUK_DPRINT("heap init: alloc heap thread"));
  40225. thr = duk_hthread_alloc_unchecked(heap,
  40226. DUK_HOBJECT_FLAG_EXTENSIBLE |
  40227. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_THREAD));
  40228. if (thr == NULL) {
  40229. DUK_D(DUK_DPRINT("failed to alloc heap_thread"));
  40230. return 0;
  40231. }
  40232. thr->state = DUK_HTHREAD_STATE_INACTIVE;
  40233. #if defined(DUK_USE_ROM_STRINGS)
  40234. /* No strs[] pointer. */
  40235. #else /* DUK_USE_ROM_STRINGS */
  40236. #if defined(DUK_USE_HEAPPTR16)
  40237. thr->strs16 = heap->strs16;
  40238. #else
  40239. thr->strs = heap->strs;
  40240. #endif
  40241. #endif /* DUK_USE_ROM_STRINGS */
  40242. heap->heap_thread = thr;
  40243. DUK_HTHREAD_INCREF(thr, thr); /* Note: first argument not really used */
  40244. /* 'thr' is now reachable */
  40245. DUK_D(DUK_DPRINT("heap init: init heap thread stacks"));
  40246. if (!duk_hthread_init_stacks(heap, thr)) {
  40247. return 0;
  40248. }
  40249. /* XXX: this may now fail, and is not handled correctly */
  40250. duk_hthread_create_builtin_objects(thr);
  40251. /* default prototype */
  40252. DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) thr, thr->builtins[DUK_BIDX_THREAD_PROTOTYPE]);
  40253. return 1;
  40254. }
  40255. #if defined(DUK_USE_DEBUG)
  40256. #define DUK__DUMPSZ(t) do { \
  40257. DUK_D(DUK_DPRINT("" #t "=%ld", (long) sizeof(t))); \
  40258. } while (0)
  40259. /* These is not 100% because format would need to be non-portable "long long".
  40260. * Also print out as doubles to catch cases where the "long" type is not wide
  40261. * enough; the limits will then not be printed accurately but the magnitude
  40262. * will be correct.
  40263. */
  40264. #define DUK__DUMPLM_SIGNED_RAW(t,a,b) do { \
  40265. DUK_D(DUK_DPRINT(t "=[%ld,%ld]=[%lf,%lf]", \
  40266. (long) (a), (long) (b), \
  40267. (double) (a), (double) (b))); \
  40268. } while (0)
  40269. #define DUK__DUMPLM_UNSIGNED_RAW(t,a,b) do { \
  40270. DUK_D(DUK_DPRINT(t "=[%lu,%lu]=[%lf,%lf]", \
  40271. (unsigned long) (a), (unsigned long) (b), \
  40272. (double) (a), (double) (b))); \
  40273. } while (0)
  40274. #define DUK__DUMPLM_SIGNED(t) do { \
  40275. DUK__DUMPLM_SIGNED_RAW("DUK_" #t "_{MIN,MAX}", DUK_##t##_MIN, DUK_##t##_MAX); \
  40276. } while (0)
  40277. #define DUK__DUMPLM_UNSIGNED(t) do { \
  40278. DUK__DUMPLM_UNSIGNED_RAW("DUK_" #t "_{MIN,MAX}", DUK_##t##_MIN, DUK_##t##_MAX); \
  40279. } while (0)
  40280. DUK_LOCAL void duk__dump_type_sizes(void) {
  40281. DUK_D(DUK_DPRINT("sizeof()"));
  40282. /* basic platform types */
  40283. DUK__DUMPSZ(char);
  40284. DUK__DUMPSZ(short);
  40285. DUK__DUMPSZ(int);
  40286. DUK__DUMPSZ(long);
  40287. DUK__DUMPSZ(double);
  40288. DUK__DUMPSZ(void *);
  40289. DUK__DUMPSZ(size_t);
  40290. /* basic types from duk_features.h */
  40291. DUK__DUMPSZ(duk_uint8_t);
  40292. DUK__DUMPSZ(duk_int8_t);
  40293. DUK__DUMPSZ(duk_uint16_t);
  40294. DUK__DUMPSZ(duk_int16_t);
  40295. DUK__DUMPSZ(duk_uint32_t);
  40296. DUK__DUMPSZ(duk_int32_t);
  40297. DUK__DUMPSZ(duk_uint64_t);
  40298. DUK__DUMPSZ(duk_int64_t);
  40299. DUK__DUMPSZ(duk_uint_least8_t);
  40300. DUK__DUMPSZ(duk_int_least8_t);
  40301. DUK__DUMPSZ(duk_uint_least16_t);
  40302. DUK__DUMPSZ(duk_int_least16_t);
  40303. DUK__DUMPSZ(duk_uint_least32_t);
  40304. DUK__DUMPSZ(duk_int_least32_t);
  40305. #if defined(DUK_USE_64BIT_OPS)
  40306. DUK__DUMPSZ(duk_uint_least64_t);
  40307. DUK__DUMPSZ(duk_int_least64_t);
  40308. #endif
  40309. DUK__DUMPSZ(duk_uint_fast8_t);
  40310. DUK__DUMPSZ(duk_int_fast8_t);
  40311. DUK__DUMPSZ(duk_uint_fast16_t);
  40312. DUK__DUMPSZ(duk_int_fast16_t);
  40313. DUK__DUMPSZ(duk_uint_fast32_t);
  40314. DUK__DUMPSZ(duk_int_fast32_t);
  40315. #if defined(DUK_USE_64BIT_OPS)
  40316. DUK__DUMPSZ(duk_uint_fast64_t);
  40317. DUK__DUMPSZ(duk_int_fast64_t);
  40318. #endif
  40319. DUK__DUMPSZ(duk_uintptr_t);
  40320. DUK__DUMPSZ(duk_intptr_t);
  40321. DUK__DUMPSZ(duk_uintmax_t);
  40322. DUK__DUMPSZ(duk_intmax_t);
  40323. DUK__DUMPSZ(duk_double_t);
  40324. /* important chosen base types */
  40325. DUK__DUMPSZ(duk_int_t);
  40326. DUK__DUMPSZ(duk_uint_t);
  40327. DUK__DUMPSZ(duk_int_fast_t);
  40328. DUK__DUMPSZ(duk_uint_fast_t);
  40329. DUK__DUMPSZ(duk_small_int_t);
  40330. DUK__DUMPSZ(duk_small_uint_t);
  40331. DUK__DUMPSZ(duk_small_int_fast_t);
  40332. DUK__DUMPSZ(duk_small_uint_fast_t);
  40333. /* some derived types */
  40334. DUK__DUMPSZ(duk_codepoint_t);
  40335. DUK__DUMPSZ(duk_ucodepoint_t);
  40336. DUK__DUMPSZ(duk_idx_t);
  40337. DUK__DUMPSZ(duk_errcode_t);
  40338. DUK__DUMPSZ(duk_uarridx_t);
  40339. /* tval */
  40340. DUK__DUMPSZ(duk_double_union);
  40341. DUK__DUMPSZ(duk_tval);
  40342. /* structs from duk_forwdecl.h */
  40343. DUK__DUMPSZ(duk_jmpbuf); /* just one 'int' for C++ exceptions */
  40344. DUK__DUMPSZ(duk_heaphdr);
  40345. DUK__DUMPSZ(duk_heaphdr_string);
  40346. DUK__DUMPSZ(duk_hstring);
  40347. DUK__DUMPSZ(duk_hstring_external);
  40348. DUK__DUMPSZ(duk_hobject);
  40349. DUK__DUMPSZ(duk_harray);
  40350. DUK__DUMPSZ(duk_hcompfunc);
  40351. DUK__DUMPSZ(duk_hnatfunc);
  40352. DUK__DUMPSZ(duk_hdecenv);
  40353. DUK__DUMPSZ(duk_hobjenv);
  40354. DUK__DUMPSZ(duk_hthread);
  40355. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  40356. DUK__DUMPSZ(duk_hbufobj);
  40357. #endif
  40358. DUK__DUMPSZ(duk_hproxy);
  40359. DUK__DUMPSZ(duk_hbuffer);
  40360. DUK__DUMPSZ(duk_hbuffer_fixed);
  40361. DUK__DUMPSZ(duk_hbuffer_dynamic);
  40362. DUK__DUMPSZ(duk_hbuffer_external);
  40363. DUK__DUMPSZ(duk_propaccessor);
  40364. DUK__DUMPSZ(duk_propvalue);
  40365. DUK__DUMPSZ(duk_propdesc);
  40366. DUK__DUMPSZ(duk_heap);
  40367. DUK__DUMPSZ(duk_activation);
  40368. DUK__DUMPSZ(duk_catcher);
  40369. DUK__DUMPSZ(duk_strcache);
  40370. DUK__DUMPSZ(duk_ljstate);
  40371. DUK__DUMPSZ(duk_fixedbuffer);
  40372. DUK__DUMPSZ(duk_bitdecoder_ctx);
  40373. DUK__DUMPSZ(duk_bitencoder_ctx);
  40374. DUK__DUMPSZ(duk_token);
  40375. DUK__DUMPSZ(duk_re_token);
  40376. DUK__DUMPSZ(duk_lexer_point);
  40377. DUK__DUMPSZ(duk_lexer_ctx);
  40378. DUK__DUMPSZ(duk_compiler_instr);
  40379. DUK__DUMPSZ(duk_compiler_func);
  40380. DUK__DUMPSZ(duk_compiler_ctx);
  40381. DUK__DUMPSZ(duk_re_matcher_ctx);
  40382. DUK__DUMPSZ(duk_re_compiler_ctx);
  40383. }
  40384. DUK_LOCAL void duk__dump_type_limits(void) {
  40385. DUK_D(DUK_DPRINT("limits"));
  40386. /* basic types */
  40387. DUK__DUMPLM_SIGNED(INT8);
  40388. DUK__DUMPLM_UNSIGNED(UINT8);
  40389. DUK__DUMPLM_SIGNED(INT_FAST8);
  40390. DUK__DUMPLM_UNSIGNED(UINT_FAST8);
  40391. DUK__DUMPLM_SIGNED(INT_LEAST8);
  40392. DUK__DUMPLM_UNSIGNED(UINT_LEAST8);
  40393. DUK__DUMPLM_SIGNED(INT16);
  40394. DUK__DUMPLM_UNSIGNED(UINT16);
  40395. DUK__DUMPLM_SIGNED(INT_FAST16);
  40396. DUK__DUMPLM_UNSIGNED(UINT_FAST16);
  40397. DUK__DUMPLM_SIGNED(INT_LEAST16);
  40398. DUK__DUMPLM_UNSIGNED(UINT_LEAST16);
  40399. DUK__DUMPLM_SIGNED(INT32);
  40400. DUK__DUMPLM_UNSIGNED(UINT32);
  40401. DUK__DUMPLM_SIGNED(INT_FAST32);
  40402. DUK__DUMPLM_UNSIGNED(UINT_FAST32);
  40403. DUK__DUMPLM_SIGNED(INT_LEAST32);
  40404. DUK__DUMPLM_UNSIGNED(UINT_LEAST32);
  40405. #if defined(DUK_USE_64BIT_OPS)
  40406. DUK__DUMPLM_SIGNED(INT64);
  40407. DUK__DUMPLM_UNSIGNED(UINT64);
  40408. DUK__DUMPLM_SIGNED(INT_FAST64);
  40409. DUK__DUMPLM_UNSIGNED(UINT_FAST64);
  40410. DUK__DUMPLM_SIGNED(INT_LEAST64);
  40411. DUK__DUMPLM_UNSIGNED(UINT_LEAST64);
  40412. #endif
  40413. DUK__DUMPLM_SIGNED(INTPTR);
  40414. DUK__DUMPLM_UNSIGNED(UINTPTR);
  40415. DUK__DUMPLM_SIGNED(INTMAX);
  40416. DUK__DUMPLM_UNSIGNED(UINTMAX);
  40417. /* derived types */
  40418. DUK__DUMPLM_SIGNED(INT);
  40419. DUK__DUMPLM_UNSIGNED(UINT);
  40420. DUK__DUMPLM_SIGNED(INT_FAST);
  40421. DUK__DUMPLM_UNSIGNED(UINT_FAST);
  40422. DUK__DUMPLM_SIGNED(SMALL_INT);
  40423. DUK__DUMPLM_UNSIGNED(SMALL_UINT);
  40424. DUK__DUMPLM_SIGNED(SMALL_INT_FAST);
  40425. DUK__DUMPLM_UNSIGNED(SMALL_UINT_FAST);
  40426. }
  40427. DUK_LOCAL void duk__dump_misc_options(void) {
  40428. DUK_D(DUK_DPRINT("DUK_VERSION: %ld", (long) DUK_VERSION));
  40429. DUK_D(DUK_DPRINT("DUK_GIT_DESCRIBE: %s", DUK_GIT_DESCRIBE));
  40430. DUK_D(DUK_DPRINT("OS string: %s", DUK_USE_OS_STRING));
  40431. DUK_D(DUK_DPRINT("architecture string: %s", DUK_USE_ARCH_STRING));
  40432. DUK_D(DUK_DPRINT("compiler string: %s", DUK_USE_COMPILER_STRING));
  40433. DUK_D(DUK_DPRINT("debug level: %ld", (long) DUK_USE_DEBUG_LEVEL));
  40434. #if defined(DUK_USE_PACKED_TVAL)
  40435. DUK_D(DUK_DPRINT("DUK_USE_PACKED_TVAL: yes"));
  40436. #else
  40437. DUK_D(DUK_DPRINT("DUK_USE_PACKED_TVAL: no"));
  40438. #endif
  40439. #if defined(DUK_USE_VARIADIC_MACROS)
  40440. DUK_D(DUK_DPRINT("DUK_USE_VARIADIC_MACROS: yes"));
  40441. #else
  40442. DUK_D(DUK_DPRINT("DUK_USE_VARIADIC_MACROS: no"));
  40443. #endif
  40444. #if defined(DUK_USE_INTEGER_LE)
  40445. DUK_D(DUK_DPRINT("integer endianness: little"));
  40446. #elif defined(DUK_USE_INTEGER_ME)
  40447. DUK_D(DUK_DPRINT("integer endianness: mixed"));
  40448. #elif defined(DUK_USE_INTEGER_BE)
  40449. DUK_D(DUK_DPRINT("integer endianness: big"));
  40450. #else
  40451. DUK_D(DUK_DPRINT("integer endianness: ???"));
  40452. #endif
  40453. #if defined(DUK_USE_DOUBLE_LE)
  40454. DUK_D(DUK_DPRINT("IEEE double endianness: little"));
  40455. #elif defined(DUK_USE_DOUBLE_ME)
  40456. DUK_D(DUK_DPRINT("IEEE double endianness: mixed"));
  40457. #elif defined(DUK_USE_DOUBLE_BE)
  40458. DUK_D(DUK_DPRINT("IEEE double endianness: big"));
  40459. #else
  40460. DUK_D(DUK_DPRINT("IEEE double endianness: ???"));
  40461. #endif
  40462. }
  40463. #endif /* DUK_USE_DEBUG */
  40464. DUK_INTERNAL
  40465. duk_heap *duk_heap_alloc(duk_alloc_function alloc_func,
  40466. duk_realloc_function realloc_func,
  40467. duk_free_function free_func,
  40468. void *heap_udata,
  40469. duk_fatal_function fatal_func) {
  40470. duk_heap *res = NULL;
  40471. duk_uint32_t st_initsize;
  40472. DUK_D(DUK_DPRINT("allocate heap"));
  40473. /*
  40474. * Random config sanity asserts
  40475. */
  40476. DUK_ASSERT(DUK_USE_STRTAB_MINSIZE >= 64);
  40477. DUK_ASSERT((DUK_HTYPE_STRING & 0x01U) == 0);
  40478. DUK_ASSERT((DUK_HTYPE_BUFFER & 0x01U) == 0);
  40479. DUK_ASSERT((DUK_HTYPE_OBJECT & 0x01U) == 1); /* DUK_HEAPHDR_IS_OBJECT() relies ont his. */
  40480. /*
  40481. * Debug dump type sizes
  40482. */
  40483. #if defined(DUK_USE_DEBUG)
  40484. duk__dump_misc_options();
  40485. duk__dump_type_sizes();
  40486. duk__dump_type_limits();
  40487. #endif
  40488. /*
  40489. * If selftests enabled, run them as early as possible.
  40490. */
  40491. #if defined(DUK_USE_SELF_TESTS)
  40492. DUK_D(DUK_DPRINT("run self tests"));
  40493. if (duk_selftest_run_tests(alloc_func, realloc_func, free_func, heap_udata) > 0) {
  40494. fatal_func(heap_udata, "self test(s) failed");
  40495. }
  40496. DUK_D(DUK_DPRINT("self tests passed"));
  40497. #endif
  40498. /*
  40499. * Important assert-like checks that should be enabled even
  40500. * when assertions are otherwise not enabled.
  40501. */
  40502. #if defined(DUK_USE_EXEC_REGCONST_OPTIMIZE)
  40503. /* Can't check sizeof() using preprocessor so explicit check.
  40504. * This will be optimized away in practice; unfortunately a
  40505. * warning is generated on some compilers as a result.
  40506. */
  40507. #if defined(DUK_USE_PACKED_TVAL)
  40508. if (sizeof(duk_tval) != 8) {
  40509. #else
  40510. if (sizeof(duk_tval) != 16) {
  40511. #endif
  40512. fatal_func(heap_udata, "sizeof(duk_tval) not 8 or 16, cannot use DUK_USE_EXEC_REGCONST_OPTIMIZE option");
  40513. }
  40514. #endif /* DUK_USE_EXEC_REGCONST_OPTIMIZE */
  40515. /*
  40516. * Computed values (e.g. INFINITY)
  40517. */
  40518. #if defined(DUK_USE_COMPUTED_NAN)
  40519. do {
  40520. /* Workaround for some exotic platforms where NAN is missing
  40521. * and the expression (0.0 / 0.0) does NOT result in a NaN.
  40522. * Such platforms use the global 'duk_computed_nan' which must
  40523. * be initialized at runtime. Use 'volatile' to ensure that
  40524. * the compiler will actually do the computation and not try
  40525. * to do constant folding which might result in the original
  40526. * problem.
  40527. */
  40528. volatile double dbl1 = 0.0;
  40529. volatile double dbl2 = 0.0;
  40530. duk_computed_nan = dbl1 / dbl2;
  40531. } while (0);
  40532. #endif
  40533. #if defined(DUK_USE_COMPUTED_INFINITY)
  40534. do {
  40535. /* Similar workaround for INFINITY. */
  40536. volatile double dbl1 = 1.0;
  40537. volatile double dbl2 = 0.0;
  40538. duk_computed_infinity = dbl1 / dbl2;
  40539. } while (0);
  40540. #endif
  40541. /*
  40542. * Allocate heap struct
  40543. *
  40544. * Use a raw call, all macros expect the heap to be initialized
  40545. */
  40546. #if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 1)
  40547. goto failed;
  40548. #endif
  40549. DUK_D(DUK_DPRINT("alloc duk_heap object"));
  40550. res = (duk_heap *) alloc_func(heap_udata, sizeof(duk_heap));
  40551. if (!res) {
  40552. goto failed;
  40553. }
  40554. /*
  40555. * Zero the struct, and start initializing roughly in order
  40556. */
  40557. DUK_MEMZERO(res, sizeof(*res));
  40558. #if defined(DUK_USE_ASSERTIONS)
  40559. res->heap_initializing = 1;
  40560. #endif
  40561. /* explicit NULL inits */
  40562. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  40563. res->heap_udata = NULL;
  40564. res->heap_allocated = NULL;
  40565. #if defined(DUK_USE_REFERENCE_COUNTING)
  40566. res->refzero_list = NULL;
  40567. #endif
  40568. #if defined(DUK_USE_FINALIZER_SUPPORT)
  40569. res->finalize_list = NULL;
  40570. #if defined(DUK_USE_ASSERTIONS)
  40571. res->currently_finalizing = NULL;
  40572. #endif
  40573. #endif
  40574. #if defined(DUK_USE_CACHE_ACTIVATION)
  40575. res->activation_free = NULL;
  40576. #endif
  40577. #if defined(DUK_USE_CACHE_CATCHER)
  40578. res->catcher_free = NULL;
  40579. #endif
  40580. res->heap_thread = NULL;
  40581. res->curr_thread = NULL;
  40582. res->heap_object = NULL;
  40583. #if defined(DUK_USE_STRTAB_PTRCOMP)
  40584. res->strtable16 = NULL;
  40585. #else
  40586. res->strtable = NULL;
  40587. #endif
  40588. #if defined(DUK_USE_ROM_STRINGS)
  40589. /* no res->strs[] */
  40590. #else /* DUK_USE_ROM_STRINGS */
  40591. #if defined(DUK_USE_HEAPPTR16)
  40592. /* res->strs16[] is zeroed and zero decodes to NULL, so no NULL inits. */
  40593. #else
  40594. {
  40595. duk_small_uint_t i;
  40596. for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) {
  40597. res->strs[i] = NULL;
  40598. }
  40599. }
  40600. #endif
  40601. #endif /* DUK_USE_ROM_STRINGS */
  40602. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  40603. res->dbg_read_cb = NULL;
  40604. res->dbg_write_cb = NULL;
  40605. res->dbg_peek_cb = NULL;
  40606. res->dbg_read_flush_cb = NULL;
  40607. res->dbg_write_flush_cb = NULL;
  40608. res->dbg_request_cb = NULL;
  40609. res->dbg_udata = NULL;
  40610. res->dbg_pause_act = NULL;
  40611. #endif
  40612. #endif /* DUK_USE_EXPLICIT_NULL_INIT */
  40613. res->alloc_func = alloc_func;
  40614. res->realloc_func = realloc_func;
  40615. res->free_func = free_func;
  40616. res->heap_udata = heap_udata;
  40617. res->fatal_func = fatal_func;
  40618. /* XXX: for now there's a pointer packing zero assumption, i.e.
  40619. * NULL <=> compressed pointer 0. If this is removed, may need
  40620. * to precompute e.g. null16 here.
  40621. */
  40622. /* res->ms_trigger_counter == 0 -> now causes immediate GC; which is OK */
  40623. /* Prevent mark-and-sweep and finalizer execution until heap is completely
  40624. * initialized.
  40625. */
  40626. DUK_ASSERT(res->ms_prevent_count == 0);
  40627. DUK_ASSERT(res->pf_prevent_count == 0);
  40628. res->ms_prevent_count = 1;
  40629. res->pf_prevent_count = 1;
  40630. DUK_ASSERT(res->ms_running == 0);
  40631. res->call_recursion_depth = 0;
  40632. res->call_recursion_limit = DUK_USE_NATIVE_CALL_RECLIMIT;
  40633. /* XXX: use the pointer as a seed for now: mix in time at least */
  40634. /* The casts through duk_intptr_t is to avoid the following GCC warning:
  40635. *
  40636. * warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  40637. *
  40638. * This still generates a /Wp64 warning on VS2010 when compiling for x86.
  40639. */
  40640. #if defined(DUK_USE_ROM_STRINGS)
  40641. /* XXX: make a common DUK_USE_ option, and allow custom fixed seed? */
  40642. DUK_D(DUK_DPRINT("using rom strings, force heap hash_seed to fixed value 0x%08lx", (long) DUK__FIXED_HASH_SEED));
  40643. res->hash_seed = (duk_uint32_t) DUK__FIXED_HASH_SEED;
  40644. #else /* DUK_USE_ROM_STRINGS */
  40645. res->hash_seed = (duk_uint32_t) (duk_intptr_t) res;
  40646. #if !defined(DUK_USE_STRHASH_DENSE)
  40647. res->hash_seed ^= 5381; /* Bernstein hash init value is normally 5381; XOR it in in case pointer low bits are 0 */
  40648. #endif
  40649. #endif /* DUK_USE_ROM_STRINGS */
  40650. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  40651. res->lj.jmpbuf_ptr = NULL;
  40652. #endif
  40653. DUK_ASSERT(res->lj.type == DUK_LJ_TYPE_UNKNOWN); /* zero */
  40654. DUK_ASSERT(res->lj.iserror == 0);
  40655. DUK_TVAL_SET_UNDEFINED(&res->lj.value1);
  40656. DUK_TVAL_SET_UNDEFINED(&res->lj.value2);
  40657. DUK_ASSERT_LJSTATE_UNSET(res);
  40658. /*
  40659. * Init stringtable: fixed variant
  40660. */
  40661. st_initsize = DUK_USE_STRTAB_MINSIZE;
  40662. #if defined(DUK_USE_STRTAB_PTRCOMP)
  40663. res->strtable16 = (duk_uint16_t *) alloc_func(heap_udata, sizeof(duk_uint16_t) * st_initsize);
  40664. if (res->strtable16 == NULL) {
  40665. goto failed;
  40666. }
  40667. #else
  40668. res->strtable = (duk_hstring **) alloc_func(heap_udata, sizeof(duk_hstring *) * st_initsize);
  40669. if (res->strtable == NULL) {
  40670. goto failed;
  40671. }
  40672. #endif
  40673. res->st_size = st_initsize;
  40674. res->st_mask = st_initsize - 1;
  40675. #if (DUK_USE_STRTAB_MINSIZE != DUK_USE_STRTAB_MAXSIZE)
  40676. DUK_ASSERT(res->st_count == 0);
  40677. #endif
  40678. #if defined(DUK_USE_STRTAB_PTRCOMP)
  40679. /* zero assumption */
  40680. DUK_MEMZERO(res->strtable16, sizeof(duk_uint16_t) * st_initsize);
  40681. #else
  40682. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  40683. {
  40684. duk_small_uint_t i;
  40685. for (i = 0; i < st_initsize; i++) {
  40686. res->strtable[i] = NULL;
  40687. }
  40688. }
  40689. #else
  40690. DUK_MEMZERO(res->strtable, sizeof(duk_hstring *) * st_initsize);
  40691. #endif /* DUK_USE_EXPLICIT_NULL_INIT */
  40692. #endif /* DUK_USE_STRTAB_PTRCOMP */
  40693. /*
  40694. * Init stringcache
  40695. */
  40696. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  40697. {
  40698. duk_small_uint_t i;
  40699. for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) {
  40700. res->strcache[i].h = NULL;
  40701. }
  40702. }
  40703. #endif
  40704. /* XXX: error handling is incomplete. It would be cleanest if
  40705. * there was a setjmp catchpoint, so that all init code could
  40706. * freely throw errors. If that were the case, the return code
  40707. * passing here could be removed.
  40708. */
  40709. /*
  40710. * Init built-in strings
  40711. */
  40712. #if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 2)
  40713. goto failed;
  40714. #endif
  40715. DUK_D(DUK_DPRINT("heap init: initialize heap strings"));
  40716. if (!duk__init_heap_strings(res)) {
  40717. goto failed;
  40718. }
  40719. /*
  40720. * Init the heap thread
  40721. */
  40722. #if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 3)
  40723. goto failed;
  40724. #endif
  40725. DUK_D(DUK_DPRINT("heap init: initialize heap thread"));
  40726. if (!duk__init_heap_thread(res)) {
  40727. goto failed;
  40728. }
  40729. /*
  40730. * Init the heap object
  40731. */
  40732. #if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 4)
  40733. goto failed;
  40734. #endif
  40735. DUK_D(DUK_DPRINT("heap init: initialize heap object"));
  40736. DUK_ASSERT(res->heap_thread != NULL);
  40737. res->heap_object = duk_hobject_alloc_unchecked(res, DUK_HOBJECT_FLAG_EXTENSIBLE |
  40738. DUK_HOBJECT_FLAG_FASTREFS |
  40739. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT));
  40740. if (res->heap_object == NULL) {
  40741. goto failed;
  40742. }
  40743. DUK_HOBJECT_INCREF(res->heap_thread, res->heap_object);
  40744. /*
  40745. * Odds and ends depending on the heap thread
  40746. */
  40747. #if !defined(DUK_USE_GET_RANDOM_DOUBLE)
  40748. #if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS)
  40749. res->rnd_state = (duk_uint32_t) duk_time_get_ecmascript_time(res->heap_thread);
  40750. duk_util_tinyrandom_prepare_seed(res->heap_thread);
  40751. #else
  40752. res->rnd_state[0] = (duk_uint64_t) duk_time_get_ecmascript_time(res->heap_thread);
  40753. DUK_ASSERT(res->rnd_state[1] == 0); /* Not filled here, filled in by seed preparation. */
  40754. #if 0 /* Manual test values matching misc/xoroshiro128plus_test.c. */
  40755. res->rnd_state[0] = DUK_U64_CONSTANT(0xdeadbeef12345678);
  40756. res->rnd_state[1] = DUK_U64_CONSTANT(0xcafed00d12345678);
  40757. #endif
  40758. duk_util_tinyrandom_prepare_seed(res->heap_thread);
  40759. /* Mix in heap pointer: this ensures that if two Duktape heaps are
  40760. * created on the same millisecond, they get a different PRNG
  40761. * sequence (unless e.g. virtual memory addresses cause also the
  40762. * heap object pointer to be the same).
  40763. */
  40764. {
  40765. duk_uint64_t tmp_u64;
  40766. tmp_u64 = 0;
  40767. DUK_MEMCPY((void *) &tmp_u64,
  40768. (const void *) &res,
  40769. (size_t) (sizeof(void *) >= sizeof(duk_uint64_t) ? sizeof(duk_uint64_t) : sizeof(void *)));
  40770. res->rnd_state[1] ^= tmp_u64;
  40771. }
  40772. do {
  40773. duk_small_uint_t i;
  40774. for (i = 0; i < 10; i++) {
  40775. /* Throw away a few initial random numbers just in
  40776. * case. Probably unnecessary due to SplitMix64
  40777. * preparation.
  40778. */
  40779. (void) duk_util_tinyrandom_get_double(res->heap_thread);
  40780. }
  40781. } while (0);
  40782. #endif
  40783. #endif
  40784. /*
  40785. * Allow finalizer and mark-and-sweep processing.
  40786. */
  40787. DUK_D(DUK_DPRINT("heap init: allow finalizer/mark-and-sweep processing"));
  40788. DUK_ASSERT(res->ms_prevent_count == 1);
  40789. DUK_ASSERT(res->pf_prevent_count == 1);
  40790. res->ms_prevent_count = 0;
  40791. res->pf_prevent_count = 0;
  40792. DUK_ASSERT(res->ms_running == 0);
  40793. #if defined(DUK_USE_ASSERTIONS)
  40794. res->heap_initializing = 0;
  40795. #endif
  40796. /*
  40797. * All done.
  40798. */
  40799. DUK_D(DUK_DPRINT("allocated heap: %p", (void *) res));
  40800. return res;
  40801. failed:
  40802. DUK_D(DUK_DPRINT("heap allocation failed"));
  40803. if (res != NULL) {
  40804. /* Assumes that allocated pointers and alloc funcs are valid
  40805. * if res exists.
  40806. */
  40807. DUK_ASSERT(res->ms_prevent_count == 1);
  40808. DUK_ASSERT(res->pf_prevent_count == 1);
  40809. DUK_ASSERT(res->ms_running == 0);
  40810. if (res->heap_thread != NULL) {
  40811. res->ms_prevent_count = 0;
  40812. res->pf_prevent_count = 0;
  40813. }
  40814. #if defined(DUK_USE_ASSERTIONS)
  40815. res->heap_initializing = 0;
  40816. #endif
  40817. DUK_ASSERT(res->alloc_func != NULL);
  40818. DUK_ASSERT(res->realloc_func != NULL);
  40819. DUK_ASSERT(res->free_func != NULL);
  40820. duk_heap_free(res);
  40821. }
  40822. return NULL;
  40823. }
  40824. /* automatic undefs */
  40825. #undef DUK__DUMPLM_SIGNED
  40826. #undef DUK__DUMPLM_SIGNED_RAW
  40827. #undef DUK__DUMPLM_UNSIGNED
  40828. #undef DUK__DUMPLM_UNSIGNED_RAW
  40829. #undef DUK__DUMPSZ
  40830. #undef DUK__FIXED_HASH_SEED
  40831. #line 1 "duk_heap_finalize.c"
  40832. /*
  40833. * Finalizer handling.
  40834. */
  40835. /* #include duk_internal.h -> already included */
  40836. #if defined(DUK_USE_FINALIZER_SUPPORT)
  40837. /*
  40838. * Fake torture finalizer.
  40839. */
  40840. #if defined(DUK_USE_FINALIZER_TORTURE)
  40841. DUK_LOCAL duk_ret_t duk__fake_global_finalizer(duk_hthread *thr) {
  40842. DUK_DD(DUK_DDPRINT("fake global torture finalizer executed"));
  40843. /* Require a lot of stack to force a value stack grow/shrink. */
  40844. duk_require_stack(thr, 100000);
  40845. /* Force a reallocation with pointer change for value stack
  40846. * to maximize side effects.
  40847. */
  40848. duk_hthread_valstack_torture_realloc(thr);
  40849. /* Inner function call, error throw. */
  40850. duk_eval_string_noresult(thr,
  40851. "(function dummy() {\n"
  40852. " dummy.prototype = null; /* break reference loop */\n"
  40853. " try {\n"
  40854. " throw 'fake-finalizer-dummy-error';\n"
  40855. " } catch (e) {\n"
  40856. " void e;\n"
  40857. " }\n"
  40858. "})()");
  40859. /* The above creates garbage (e.g. a function instance). Because
  40860. * the function/prototype reference loop is broken, it gets collected
  40861. * immediately by DECREF. If Function.prototype has a _Finalizer
  40862. * property (happens in some test cases), the garbage gets queued to
  40863. * finalize_list. This still won't cause an infinite loop because
  40864. * the torture finalizer is called once per finalize_list run and
  40865. * the garbage gets handled in the same run. (If the garbage needs
  40866. * mark-and-sweep collection, an infinite loop might ensue.)
  40867. */
  40868. return 0;
  40869. }
  40870. DUK_LOCAL void duk__run_global_torture_finalizer(duk_hthread *thr) {
  40871. DUK_ASSERT(thr != NULL);
  40872. /* Avoid fake finalization when callstack limit is near. Otherwise
  40873. * a callstack limit error will be created, then refzero'ed. The
  40874. * +5 headroom is conservative.
  40875. */
  40876. if (thr->heap->call_recursion_depth + 5 >= thr->heap->call_recursion_limit ||
  40877. thr->callstack_top + 5 >= DUK_USE_CALLSTACK_LIMIT) {
  40878. DUK_D(DUK_DPRINT("skip global torture finalizer, too little headroom for call recursion or call stack size"));
  40879. return;
  40880. }
  40881. /* Run fake finalizer. Avoid creating unnecessary garbage. */
  40882. duk_push_c_function(thr, duk__fake_global_finalizer, 0 /*nargs*/);
  40883. (void) duk_pcall(thr, 0 /*nargs*/);
  40884. duk_pop(thr);
  40885. }
  40886. #endif /* DUK_USE_FINALIZER_TORTURE */
  40887. /*
  40888. * Process the finalize_list to completion.
  40889. *
  40890. * An object may be placed on finalize_list by either refcounting or
  40891. * mark-and-sweep. The refcount of objects placed by refcounting will be
  40892. * zero; the refcount of objects placed by mark-and-sweep is > 0. In both
  40893. * cases the refcount is bumped by 1 artificially so that a REFZERO event
  40894. * can never happen while an object is waiting for finalization. Without
  40895. * this bump a REFZERO could now happen because user code may call
  40896. * duk_push_heapptr() and then pop a value even when it's on finalize_list.
  40897. *
  40898. * List processing assumes refcounts are kept up-to-date at all times, so
  40899. * that once the finalizer returns, a zero refcount is a reliable reason to
  40900. * free the object immediately rather than place it back to the heap. This
  40901. * is the case because we run outside of refzero_list processing so that
  40902. * DECREF cascades are handled fully inline.
  40903. *
  40904. * For mark-and-sweep queued objects (had_zero_refcount false) the object
  40905. * may be freed immediately if its refcount is zero after the finalizer call
  40906. * (i.e. finalizer removed the reference loop for the object). If not, the
  40907. * next mark-and-sweep will collect the object unless it has become reachable
  40908. * (i.e. rescued) by that time and its refcount hasn't fallen to zero before
  40909. * that. Mark-and-sweep detects these objects because their FINALIZED flag
  40910. * is set.
  40911. *
  40912. * There's an inherent limitation for mark-and-sweep finalizer rescuing: an
  40913. * object won't get refinalized if (1) it's rescued, but (2) becomes
  40914. * unreachable before mark-and-sweep has had time to notice it. The next
  40915. * mark-and-sweep round simply doesn't have any information of whether the
  40916. * object has been unreachable the whole time or not (the only way to get
  40917. * that information would be a mark-and-sweep pass for *every finalized
  40918. * object*). This is awkward for the application because the mark-and-sweep
  40919. * round is not generally visible or under full application control.
  40920. *
  40921. * For refcount queued objects (had_zero_refcount true) the object is either
  40922. * immediately freed or rescued, and waiting for a mark-and-sweep round is not
  40923. * necessary (or desirable); FINALIZED is cleared when a rescued object is
  40924. * queued back to heap_allocated. The object is eligible for finalization
  40925. * again (either via refcounting or mark-and-sweep) immediately after being
  40926. * rescued. If a refcount finalized object is placed into an unreachable
  40927. * reference loop by its finalizer, it will get collected by mark-and-sweep
  40928. * and currently the finalizer will execute again.
  40929. *
  40930. * There's a special case where:
  40931. *
  40932. * - Mark-and-sweep queues an object to finalize_list for finalization.
  40933. * - The finalizer is executed, FINALIZED is set, and object is queued
  40934. * back to heap_allocated, waiting for a new mark-and-sweep round.
  40935. * - The object's refcount drops to zero before mark-and-sweep has a
  40936. * chance to run another round and make a rescue/free decision.
  40937. *
  40938. * This is now handled by refzero code: if an object has a finalizer but
  40939. * FINALIZED is already set, the object is freed without finalizer processing.
  40940. * The outcome is the same as if mark-and-sweep was executed at that point;
  40941. * mark-and-sweep would also free the object without another finalizer run.
  40942. * This could also be changed so that the refzero-triggered finalizer *IS*
  40943. * executed: being refzero collected implies someone has operated on the
  40944. * object so it hasn't been totally unreachable the whole time. This would
  40945. * risk a finalizer loop however.
  40946. */
  40947. DUK_INTERNAL void duk_heap_process_finalize_list(duk_heap *heap) {
  40948. duk_heaphdr *curr;
  40949. #if defined(DUK_USE_DEBUG)
  40950. duk_size_t count = 0;
  40951. #endif
  40952. DUK_DDD(DUK_DDDPRINT("duk_heap_process_finalize_list: %p", (void *) heap));
  40953. if (heap->pf_prevent_count != 0) {
  40954. DUK_DDD(DUK_DDDPRINT("skip finalize_list processing: pf_prevent_count != 0"));
  40955. return;
  40956. }
  40957. /* Heap alloc prevents mark-and-sweep before heap_thread is ready. */
  40958. DUK_ASSERT(heap != NULL);
  40959. DUK_ASSERT(heap->heap_thread != NULL);
  40960. DUK_ASSERT(heap->heap_thread->valstack != NULL);
  40961. #if defined(DUK_USE_REFERENCE_COUNTING)
  40962. DUK_ASSERT(heap->refzero_list == NULL);
  40963. #endif
  40964. DUK_ASSERT(heap->pf_prevent_count == 0);
  40965. heap->pf_prevent_count = 1;
  40966. /* Mark-and-sweep no longer needs to be prevented when running
  40967. * finalizers: mark-and-sweep skips any rescue decisions if there
  40968. * are any objects in finalize_list when mark-and-sweep is entered.
  40969. * This protects finalized objects from incorrect rescue decisions
  40970. * caused by finalize_list being a reachability root and only
  40971. * partially processed. Freeing decisions are not postponed.
  40972. */
  40973. /* When finalizer torture is enabled, make a fake finalizer call with
  40974. * maximum side effects regardless of whether finalize_list is empty.
  40975. */
  40976. #if defined(DUK_USE_FINALIZER_TORTURE)
  40977. duk__run_global_torture_finalizer(heap->heap_thread);
  40978. #endif
  40979. /* Process finalize_list until it becomes empty. There's currently no
  40980. * protection against a finalizer always creating more garbage.
  40981. */
  40982. while ((curr = heap->finalize_list) != NULL) {
  40983. #if defined(DUK_USE_REFERENCE_COUNTING)
  40984. duk_bool_t queue_back;
  40985. #endif
  40986. DUK_DD(DUK_DDPRINT("processing finalize_list entry: %p -> %!iO", (void *) curr, curr));
  40987. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* Only objects have finalizers. */
  40988. DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(curr));
  40989. DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(curr));
  40990. DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(curr)); /* All objects on finalize_list will have this flag (except object being finalized right now). */
  40991. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr)); /* Queueing code ensures. */
  40992. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(curr)); /* ROM objects never get freed (or finalized). */
  40993. #if defined(DUK_USE_ASSERTIONS)
  40994. DUK_ASSERT(heap->currently_finalizing == NULL);
  40995. heap->currently_finalizing = curr;
  40996. #endif
  40997. /* Clear FINALIZABLE for object being finalized, so that
  40998. * duk_push_heapptr() can properly ignore the object.
  40999. */
  41000. DUK_HEAPHDR_CLEAR_FINALIZABLE(curr);
  41001. if (DUK_LIKELY(!heap->pf_skip_finalizers)) {
  41002. /* Run the finalizer, duk_heap_run_finalizer() sets
  41003. * and checks for FINALIZED to prevent the finalizer
  41004. * from executing multiple times per finalization cycle.
  41005. * (This safeguard shouldn't be actually needed anymore).
  41006. */
  41007. #if defined(DUK_USE_REFERENCE_COUNTING)
  41008. duk_bool_t had_zero_refcount;
  41009. #endif
  41010. /* The object's refcount is >0 throughout so it won't be
  41011. * refzero processed prematurely.
  41012. */
  41013. #if defined(DUK_USE_REFERENCE_COUNTING)
  41014. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1);
  41015. had_zero_refcount = (DUK_HEAPHDR_GET_REFCOUNT(curr) == 1); /* Preincremented on finalize_list insert. */
  41016. #endif
  41017. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr));
  41018. duk_heap_run_finalizer(heap, (duk_hobject *) curr); /* must never longjmp */
  41019. DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZED(curr));
  41020. /* XXX: assert that object is still in finalize_list
  41021. * when duk_push_heapptr() allows automatic rescue.
  41022. */
  41023. #if defined(DUK_USE_REFERENCE_COUNTING)
  41024. DUK_DD(DUK_DDPRINT("refcount after finalizer (includes bump): %ld", (long) DUK_HEAPHDR_GET_REFCOUNT(curr)));
  41025. if (DUK_HEAPHDR_GET_REFCOUNT(curr) == 1) { /* Only artificial bump in refcount? */
  41026. #if defined(DUK_USE_DEBUG)
  41027. if (had_zero_refcount) {
  41028. DUK_DD(DUK_DDPRINT("finalized object's refcount is zero -> free immediately (refcount queued)"));
  41029. } else {
  41030. DUK_DD(DUK_DDPRINT("finalized object's refcount is zero -> free immediately (mark-and-sweep queued)"));
  41031. }
  41032. #endif
  41033. queue_back = 0;
  41034. } else
  41035. #endif
  41036. {
  41037. #if defined(DUK_USE_REFERENCE_COUNTING)
  41038. queue_back = 1;
  41039. if (had_zero_refcount) {
  41040. /* When finalization is triggered
  41041. * by refzero and we queue the object
  41042. * back, clear FINALIZED right away
  41043. * so that the object can be refinalized
  41044. * immediately if necessary.
  41045. */
  41046. DUK_HEAPHDR_CLEAR_FINALIZED(curr);
  41047. }
  41048. #endif
  41049. }
  41050. } else {
  41051. /* Used during heap destruction: don't actually run finalizers
  41052. * because we're heading into forced finalization. Instead,
  41053. * queue finalizable objects back to the heap_allocated list.
  41054. */
  41055. DUK_D(DUK_DPRINT("skip finalizers flag set, queue object to heap_allocated without finalizing"));
  41056. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr));
  41057. #if defined(DUK_USE_REFERENCE_COUNTING)
  41058. queue_back = 1;
  41059. #endif
  41060. }
  41061. /* Dequeue object from finalize_list. Note that 'curr' may no
  41062. * longer be finalize_list head because new objects may have
  41063. * been queued to the list. As a result we can't optimize for
  41064. * the single-linked heap case and must scan the list for
  41065. * removal, typically the scan is very short however.
  41066. */
  41067. DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(heap, curr);
  41068. /* Queue back to heap_allocated or free immediately. */
  41069. #if defined(DUK_USE_REFERENCE_COUNTING)
  41070. if (queue_back) {
  41071. /* FINALIZED is only cleared if object originally
  41072. * queued for finalization by refcounting. For
  41073. * mark-and-sweep FINALIZED is left set, so that
  41074. * next mark-and-sweep round can make a rescue/free
  41075. * decision.
  41076. */
  41077. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1);
  41078. DUK_HEAPHDR_PREDEC_REFCOUNT(curr); /* Remove artificial refcount bump. */
  41079. DUK_HEAPHDR_CLEAR_FINALIZABLE(curr);
  41080. DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, curr);
  41081. } else {
  41082. /* No need to remove the refcount bump here. */
  41083. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* currently, always the case */
  41084. DUK_DD(DUK_DDPRINT("refcount finalize after finalizer call: %!O", curr));
  41085. duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) curr);
  41086. duk_free_hobject(heap, (duk_hobject *) curr);
  41087. DUK_DD(DUK_DDPRINT("freed hobject after finalization: %p", (void *) curr));
  41088. }
  41089. #else /* DUK_USE_REFERENCE_COUNTING */
  41090. DUK_HEAPHDR_CLEAR_FINALIZABLE(curr);
  41091. DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, curr);
  41092. #endif /* DUK_USE_REFERENCE_COUNTING */
  41093. #if defined(DUK_USE_DEBUG)
  41094. count++;
  41095. #endif
  41096. #if defined(DUK_USE_ASSERTIONS)
  41097. DUK_ASSERT(heap->currently_finalizing != NULL);
  41098. heap->currently_finalizing = NULL;
  41099. #endif
  41100. }
  41101. /* finalize_list will always be processed completely. */
  41102. DUK_ASSERT(heap->finalize_list == NULL);
  41103. #if 0
  41104. /* While NORZ macros are used above, this is unnecessary because the
  41105. * only pending side effects are now finalizers, and finalize_list is
  41106. * empty.
  41107. */
  41108. DUK_REFZERO_CHECK_SLOW(heap->heap_thread);
  41109. #endif
  41110. /* Prevent count may be bumped while finalizers run, but should always
  41111. * be reliably unbumped by the time we get here.
  41112. */
  41113. DUK_ASSERT(heap->pf_prevent_count == 1);
  41114. heap->pf_prevent_count = 0;
  41115. #if defined(DUK_USE_DEBUG)
  41116. DUK_DD(DUK_DDPRINT("duk_heap_process_finalize_list: %ld finalizers called", (long) count));
  41117. #endif
  41118. }
  41119. /*
  41120. * Run an duk_hobject finalizer. Must never throw an uncaught error
  41121. * (but may throw caught errors).
  41122. *
  41123. * There is no return value. Any return value or error thrown by
  41124. * the finalizer is ignored (although errors are debug logged).
  41125. *
  41126. * Notes:
  41127. *
  41128. * - The finalizer thread 'top' assertions are there because it is
  41129. * critical that strict stack policy is observed (i.e. no cruft
  41130. * left on the finalizer stack).
  41131. */
  41132. DUK_LOCAL duk_ret_t duk__finalize_helper(duk_hthread *thr, void *udata) {
  41133. DUK_ASSERT(thr != NULL);
  41134. DUK_UNREF(udata);
  41135. DUK_DDD(DUK_DDDPRINT("protected finalization helper running"));
  41136. /* [... obj] */
  41137. /* _Finalizer property is read without checking if the value is
  41138. * callable or even exists. This is intentional, and handled
  41139. * by throwing an error which is caught by the safe call wrapper.
  41140. *
  41141. * XXX: Finalizer lookup should traverse the prototype chain (to allow
  41142. * inherited finalizers) but should not invoke accessors or proxy object
  41143. * behavior. At the moment this lookup will invoke proxy behavior, so
  41144. * caller must ensure that this function is not called if the target is
  41145. * a Proxy.
  41146. */
  41147. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_FINALIZER); /* -> [... obj finalizer] */
  41148. duk_dup_m2(thr);
  41149. duk_push_boolean(thr, DUK_HEAP_HAS_FINALIZER_NORESCUE(thr->heap));
  41150. DUK_DDD(DUK_DDDPRINT("calling finalizer"));
  41151. duk_call(thr, 2); /* [ ... obj finalizer obj heapDestruct ] -> [ ... obj retval ] */
  41152. DUK_DDD(DUK_DDDPRINT("finalizer returned successfully"));
  41153. return 0;
  41154. /* Note: we rely on duk_safe_call() to fix up the stack for the caller,
  41155. * so we don't need to pop stuff here. There is no return value;
  41156. * caller determines rescued status based on object refcount.
  41157. */
  41158. }
  41159. DUK_INTERNAL void duk_heap_run_finalizer(duk_heap *heap, duk_hobject *obj) {
  41160. duk_hthread *thr;
  41161. duk_ret_t rc;
  41162. #if defined(DUK_USE_ASSERTIONS)
  41163. duk_idx_t entry_top;
  41164. #endif
  41165. DUK_DD(DUK_DDPRINT("running duk_hobject finalizer for object: %p", (void *) obj));
  41166. DUK_ASSERT(heap != NULL);
  41167. DUK_ASSERT(heap->heap_thread != NULL);
  41168. thr = heap->heap_thread;
  41169. DUK_ASSERT(obj != NULL);
  41170. DUK_ASSERT_VALSTACK_SPACE(heap->heap_thread, 1);
  41171. #if defined(DUK_USE_ASSERTIONS)
  41172. entry_top = duk_get_top(thr);
  41173. #endif
  41174. /*
  41175. * Get and call the finalizer. All of this must be wrapped
  41176. * in a protected call, because even getting the finalizer
  41177. * may trigger an error (getter may throw one, for instance).
  41178. */
  41179. /* ROM objects could inherit a finalizer, but they are never deemed
  41180. * unreachable by mark-and-sweep, and their refcount never falls to 0.
  41181. */
  41182. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj));
  41183. /* Duktape 2.1: finalize_list never contains objects with FINALIZED
  41184. * set, so no need to check here.
  41185. */
  41186. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) obj));
  41187. #if 0
  41188. if (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) obj)) {
  41189. DUK_D(DUK_DPRINT("object already finalized, avoid running finalizer twice: %!O", obj));
  41190. return;
  41191. }
  41192. #endif
  41193. DUK_HEAPHDR_SET_FINALIZED((duk_heaphdr *) obj); /* ensure never re-entered until rescue cycle complete */
  41194. #if defined(DUK_USE_ES6_PROXY)
  41195. if (DUK_HOBJECT_IS_PROXY(obj)) {
  41196. /* This may happen if duk_set_finalizer() or Duktape.fin() is
  41197. * called for a Proxy object. In such cases the fast finalizer
  41198. * flag will be set on the Proxy, not the target, and neither
  41199. * will be finalized.
  41200. */
  41201. DUK_D(DUK_DPRINT("object is a Proxy, skip finalizer call"));
  41202. return;
  41203. }
  41204. #endif /* DUK_USE_ES6_PROXY */
  41205. duk_push_hobject(thr, obj); /* this also increases refcount by one */
  41206. rc = duk_safe_call(thr, duk__finalize_helper, NULL /*udata*/, 0 /*nargs*/, 1 /*nrets*/); /* -> [... obj retval/error] */
  41207. DUK_ASSERT_TOP(thr, entry_top + 2); /* duk_safe_call discipline */
  41208. if (rc != DUK_EXEC_SUCCESS) {
  41209. /* Note: we ask for one return value from duk_safe_call to get this
  41210. * error debugging here.
  41211. */
  41212. DUK_D(DUK_DPRINT("wrapped finalizer call failed for object %p (ignored); error: %!T",
  41213. (void *) obj, (duk_tval *) duk_get_tval(thr, -1)));
  41214. }
  41215. duk_pop_2(thr); /* -> [...] */
  41216. DUK_ASSERT_TOP(thr, entry_top);
  41217. }
  41218. #else /* DUK_USE_FINALIZER_SUPPORT */
  41219. /* nothing */
  41220. #endif /* DUK_USE_FINALIZER_SUPPORT */
  41221. #line 1 "duk_heap_hashstring.c"
  41222. /*
  41223. * String hash computation (interning).
  41224. *
  41225. * String hashing is performance critical because a string hash is computed
  41226. * for all new strings which are candidates to be added to the string table.
  41227. * However, strings actually added to the string table go through a codepoint
  41228. * length calculation which dominates performance because it goes through
  41229. * every byte of the input string (but only for strings added).
  41230. *
  41231. * The string hash algorithm should be fast, but on the other hand provide
  41232. * good enough hashes to ensure both string table and object property table
  41233. * hash tables work reasonably well (i.e., there aren't too many collisions
  41234. * with real world inputs). Unless the hash is cryptographic, it's always
  41235. * possible to craft inputs with maximal hash collisions.
  41236. *
  41237. * NOTE: The hash algorithms must match tools/dukutil.py:duk_heap_hashstring()
  41238. * for ROM string support!
  41239. */
  41240. /* #include duk_internal.h -> already included */
  41241. #if defined(DUK_USE_STRHASH_DENSE)
  41242. /* Constants for duk_hashstring(). */
  41243. #define DUK__STRHASH_SHORTSTRING 4096L
  41244. #define DUK__STRHASH_MEDIUMSTRING (256L * 1024L)
  41245. #define DUK__STRHASH_BLOCKSIZE 256L
  41246. DUK_INTERNAL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len) {
  41247. duk_uint32_t hash;
  41248. /* Use Murmurhash2 directly for short strings, and use "block skipping"
  41249. * for long strings: hash an initial part and then sample the rest of
  41250. * the string with reasonably sized chunks. An initial offset for the
  41251. * sampling is computed based on a hash of the initial part of the string;
  41252. * this is done to (usually) avoid the case where all long strings have
  41253. * certain offset ranges which are never sampled.
  41254. *
  41255. * Skip should depend on length and bound the total time to roughly
  41256. * logarithmic. With current values:
  41257. *
  41258. * 1M string => 256 * 241 = 61696 bytes (0.06M) of hashing
  41259. * 1G string => 256 * 16321 = 4178176 bytes (3.98M) of hashing
  41260. *
  41261. * XXX: It would be better to compute the skip offset more "smoothly"
  41262. * instead of having a few boundary values.
  41263. */
  41264. /* note: mixing len into seed improves hashing when skipping */
  41265. duk_uint32_t str_seed = heap->hash_seed ^ ((duk_uint32_t) len);
  41266. if (len <= DUK__STRHASH_SHORTSTRING) {
  41267. hash = duk_util_hashbytes(str, len, str_seed);
  41268. } else {
  41269. duk_size_t off;
  41270. duk_size_t skip;
  41271. if (len <= DUK__STRHASH_MEDIUMSTRING) {
  41272. skip = (duk_size_t) (16 * DUK__STRHASH_BLOCKSIZE + DUK__STRHASH_BLOCKSIZE);
  41273. } else {
  41274. skip = (duk_size_t) (256 * DUK__STRHASH_BLOCKSIZE + DUK__STRHASH_BLOCKSIZE);
  41275. }
  41276. hash = duk_util_hashbytes(str, (duk_size_t) DUK__STRHASH_SHORTSTRING, str_seed);
  41277. off = DUK__STRHASH_SHORTSTRING + (skip * (hash % 256)) / 256;
  41278. /* XXX: inefficient loop */
  41279. while (off < len) {
  41280. duk_size_t left = len - off;
  41281. duk_size_t now = (duk_size_t) (left > DUK__STRHASH_BLOCKSIZE ? DUK__STRHASH_BLOCKSIZE : left);
  41282. hash ^= duk_util_hashbytes(str + off, now, str_seed);
  41283. off += skip;
  41284. }
  41285. }
  41286. #if defined(DUK_USE_STRHASH16)
  41287. /* Truncate to 16 bits here, so that a computed hash can be compared
  41288. * against a hash stored in a 16-bit field.
  41289. */
  41290. hash &= 0x0000ffffUL;
  41291. #endif
  41292. return hash;
  41293. }
  41294. #else /* DUK_USE_STRHASH_DENSE */
  41295. DUK_INTERNAL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len) {
  41296. duk_uint32_t hash;
  41297. duk_size_t step;
  41298. duk_size_t off;
  41299. /* Slightly modified "Bernstein hash" from:
  41300. *
  41301. * http://eternallyconfuzzled.com/tuts/algorithms/jsw_tut_hashing.aspx
  41302. *
  41303. * Modifications: string skipping and reverse direction similar to
  41304. * Lua 5.1.5, and different hash initializer.
  41305. *
  41306. * The reverse direction ensures last byte it always included in the
  41307. * hash which is a good default as changing parts of the string are
  41308. * more often in the suffix than in the prefix.
  41309. */
  41310. hash = heap->hash_seed ^ ((duk_uint32_t) len); /* Bernstein hash init value is normally 5381 */
  41311. step = (len >> DUK_USE_STRHASH_SKIP_SHIFT) + 1;
  41312. for (off = len; off >= step; off -= step) {
  41313. DUK_ASSERT(off >= 1); /* off >= step, and step >= 1 */
  41314. hash = (hash * 33) + str[off - 1];
  41315. }
  41316. #if defined(DUK_USE_STRHASH16)
  41317. /* Truncate to 16 bits here, so that a computed hash can be compared
  41318. * against a hash stored in a 16-bit field.
  41319. */
  41320. hash &= 0x0000ffffUL;
  41321. #endif
  41322. return hash;
  41323. }
  41324. #endif /* DUK_USE_STRHASH_DENSE */
  41325. /* automatic undefs */
  41326. #undef DUK__STRHASH_BLOCKSIZE
  41327. #undef DUK__STRHASH_MEDIUMSTRING
  41328. #undef DUK__STRHASH_SHORTSTRING
  41329. #line 1 "duk_heap_markandsweep.c"
  41330. /*
  41331. * Mark-and-sweep garbage collection.
  41332. */
  41333. /* #include duk_internal.h -> already included */
  41334. DUK_LOCAL_DECL void duk__mark_heaphdr(duk_heap *heap, duk_heaphdr *h);
  41335. DUK_LOCAL_DECL void duk__mark_heaphdr_nonnull(duk_heap *heap, duk_heaphdr *h);
  41336. DUK_LOCAL_DECL void duk__mark_tval(duk_heap *heap, duk_tval *tv);
  41337. DUK_LOCAL_DECL void duk__mark_tvals(duk_heap *heap, duk_tval *tv, duk_idx_t count);
  41338. /*
  41339. * Marking functions for heap types: mark children recursively.
  41340. */
  41341. DUK_LOCAL void duk__mark_hstring(duk_heap *heap, duk_hstring *h) {
  41342. DUK_UNREF(heap);
  41343. DUK_UNREF(h);
  41344. DUK_DDD(DUK_DDDPRINT("duk__mark_hstring: %p", (void *) h));
  41345. DUK_ASSERT(h);
  41346. /* nothing to process */
  41347. }
  41348. DUK_LOCAL void duk__mark_hobject(duk_heap *heap, duk_hobject *h) {
  41349. duk_uint_fast32_t i;
  41350. DUK_DDD(DUK_DDDPRINT("duk__mark_hobject: %p", (void *) h));
  41351. DUK_ASSERT(h);
  41352. /* XXX: use advancing pointers instead of index macros -> faster and smaller? */
  41353. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) {
  41354. duk_hstring *key = DUK_HOBJECT_E_GET_KEY(heap, h, i);
  41355. if (key == NULL) {
  41356. continue;
  41357. }
  41358. duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) key);
  41359. if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, h, i)) {
  41360. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.get);
  41361. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.set);
  41362. } else {
  41363. duk__mark_tval(heap, &DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->v);
  41364. }
  41365. }
  41366. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(h); i++) {
  41367. duk__mark_tval(heap, DUK_HOBJECT_A_GET_VALUE_PTR(heap, h, i));
  41368. }
  41369. /* Hash part is a 'weak reference' and does not contribute. */
  41370. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_GET_PROTOTYPE(heap, h));
  41371. /* Fast path for objects which don't have a subclass struct, or have a
  41372. * subclass struct but nothing that needs marking in the subclass struct.
  41373. */
  41374. if (DUK_HOBJECT_HAS_FASTREFS(h)) {
  41375. DUK_ASSERT(DUK_HOBJECT_ALLOWS_FASTREFS(h));
  41376. return;
  41377. }
  41378. DUK_ASSERT(DUK_HOBJECT_PROHIBITS_FASTREFS(h));
  41379. /* XXX: reorg, more common first */
  41380. if (DUK_HOBJECT_IS_COMPFUNC(h)) {
  41381. duk_hcompfunc *f = (duk_hcompfunc *) h;
  41382. duk_tval *tv, *tv_end;
  41383. duk_hobject **fn, **fn_end;
  41384. DUK_ASSERT_HCOMPFUNC_VALID(f);
  41385. /* 'data' is reachable through every compiled function which
  41386. * contains a reference.
  41387. */
  41388. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_DATA(heap, f));
  41389. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_LEXENV(heap, f));
  41390. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_VARENV(heap, f));
  41391. if (DUK_HCOMPFUNC_GET_DATA(heap, f) != NULL) {
  41392. tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, f);
  41393. tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(heap, f);
  41394. while (tv < tv_end) {
  41395. duk__mark_tval(heap, tv);
  41396. tv++;
  41397. }
  41398. fn = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, f);
  41399. fn_end = DUK_HCOMPFUNC_GET_FUNCS_END(heap, f);
  41400. while (fn < fn_end) {
  41401. duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) *fn);
  41402. fn++;
  41403. }
  41404. } else {
  41405. /* May happen in some out-of-memory corner cases. */
  41406. DUK_D(DUK_DPRINT("duk_hcompfunc 'data' is NULL, skipping marking"));
  41407. }
  41408. } else if (DUK_HOBJECT_IS_DECENV(h)) {
  41409. duk_hdecenv *e = (duk_hdecenv *) h;
  41410. DUK_ASSERT_HDECENV_VALID(e);
  41411. duk__mark_heaphdr(heap, (duk_heaphdr *) e->thread);
  41412. duk__mark_heaphdr(heap, (duk_heaphdr *) e->varmap);
  41413. } else if (DUK_HOBJECT_IS_OBJENV(h)) {
  41414. duk_hobjenv *e = (duk_hobjenv *) h;
  41415. DUK_ASSERT_HOBJENV_VALID(e);
  41416. duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) e->target);
  41417. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  41418. } else if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  41419. duk_hbufobj *b = (duk_hbufobj *) h;
  41420. DUK_ASSERT_HBUFOBJ_VALID(b);
  41421. duk__mark_heaphdr(heap, (duk_heaphdr *) b->buf);
  41422. duk__mark_heaphdr(heap, (duk_heaphdr *) b->buf_prop);
  41423. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  41424. } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) {
  41425. duk_hboundfunc *f = (duk_hboundfunc *) h;
  41426. DUK_ASSERT_HBOUNDFUNC_VALID(f);
  41427. duk__mark_tval(heap, &f->target);
  41428. duk__mark_tval(heap, &f->this_binding);
  41429. duk__mark_tvals(heap, f->args, f->nargs);
  41430. #if defined(DUK_USE_ES6_PROXY)
  41431. } else if (DUK_HOBJECT_IS_PROXY(h)) {
  41432. duk_hproxy *p = (duk_hproxy *) h;
  41433. DUK_ASSERT_HPROXY_VALID(p);
  41434. duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) p->target);
  41435. duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) p->handler);
  41436. #endif /* DUK_USE_ES6_PROXY */
  41437. } else if (DUK_HOBJECT_IS_THREAD(h)) {
  41438. duk_hthread *t = (duk_hthread *) h;
  41439. duk_activation *act;
  41440. duk_tval *tv;
  41441. DUK_ASSERT_HTHREAD_VALID(t);
  41442. tv = t->valstack;
  41443. while (tv < t->valstack_top) {
  41444. duk__mark_tval(heap, tv);
  41445. tv++;
  41446. }
  41447. for (act = t->callstack_curr; act != NULL; act = act->parent) {
  41448. duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_ACT_GET_FUNC(act));
  41449. duk__mark_heaphdr(heap, (duk_heaphdr *) act->var_env);
  41450. duk__mark_heaphdr(heap, (duk_heaphdr *) act->lex_env);
  41451. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  41452. duk__mark_heaphdr(heap, (duk_heaphdr *) act->prev_caller);
  41453. #endif
  41454. #if 0 /* nothing now */
  41455. for (cat = act->cat; cat != NULL; cat = cat->parent) {
  41456. }
  41457. #endif
  41458. }
  41459. duk__mark_heaphdr(heap, (duk_heaphdr *) t->resumer);
  41460. for (i = 0; i < DUK_NUM_BUILTINS; i++) {
  41461. duk__mark_heaphdr(heap, (duk_heaphdr *) t->builtins[i]);
  41462. }
  41463. } else {
  41464. /* We may come here if the object should have a FASTREFS flag
  41465. * but it's missing for some reason. Assert for never getting
  41466. * here; however, other than performance, this is harmless.
  41467. */
  41468. DUK_D(DUK_DPRINT("missing FASTREFS flag for: %!iO", h));
  41469. DUK_ASSERT(0);
  41470. }
  41471. }
  41472. /* Mark any duk_heaphdr type. Recursion tracking happens only here. */
  41473. DUK_LOCAL void duk__mark_heaphdr(duk_heap *heap, duk_heaphdr *h) {
  41474. DUK_DDD(DUK_DDDPRINT("duk__mark_heaphdr %p, type %ld",
  41475. (void *) h,
  41476. (h != NULL ? (long) DUK_HEAPHDR_GET_TYPE(h) : (long) -1)));
  41477. /* XXX: add non-null variant? */
  41478. if (h == NULL) {
  41479. return;
  41480. }
  41481. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(h) || DUK_HEAPHDR_HAS_REACHABLE(h));
  41482. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING)
  41483. if (!DUK_HEAPHDR_HAS_READONLY(h)) {
  41484. h->h_assert_refcount++; /* Comparison refcount: bump even if already reachable. */
  41485. }
  41486. #endif
  41487. if (DUK_HEAPHDR_HAS_REACHABLE(h)) {
  41488. DUK_DDD(DUK_DDDPRINT("already marked reachable, skip"));
  41489. return;
  41490. }
  41491. #if defined(DUK_USE_ROM_OBJECTS)
  41492. /* READONLY objects always have REACHABLE set, so the check above
  41493. * will prevent READONLY objects from being marked here.
  41494. */
  41495. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(h));
  41496. #endif
  41497. DUK_HEAPHDR_SET_REACHABLE(h);
  41498. if (heap->ms_recursion_depth >= DUK_USE_MARK_AND_SWEEP_RECLIMIT) {
  41499. DUK_D(DUK_DPRINT("mark-and-sweep recursion limit reached, marking as temproot: %p", (void *) h));
  41500. DUK_HEAP_SET_MARKANDSWEEP_RECLIMIT_REACHED(heap);
  41501. DUK_HEAPHDR_SET_TEMPROOT(h);
  41502. return;
  41503. }
  41504. heap->ms_recursion_depth++;
  41505. DUK_ASSERT(heap->ms_recursion_depth != 0); /* Wrap. */
  41506. switch (DUK_HEAPHDR_GET_TYPE(h)) {
  41507. case DUK_HTYPE_STRING:
  41508. duk__mark_hstring(heap, (duk_hstring *) h);
  41509. break;
  41510. case DUK_HTYPE_OBJECT:
  41511. duk__mark_hobject(heap, (duk_hobject *) h);
  41512. break;
  41513. case DUK_HTYPE_BUFFER:
  41514. /* nothing to mark */
  41515. break;
  41516. default:
  41517. DUK_D(DUK_DPRINT("attempt to mark heaphdr %p with invalid htype %ld", (void *) h, (long) DUK_HEAPHDR_GET_TYPE(h)));
  41518. DUK_UNREACHABLE();
  41519. }
  41520. DUK_ASSERT(heap->ms_recursion_depth > 0);
  41521. heap->ms_recursion_depth--;
  41522. }
  41523. DUK_LOCAL void duk__mark_tval(duk_heap *heap, duk_tval *tv) {
  41524. DUK_DDD(DUK_DDDPRINT("duk__mark_tval %p", (void *) tv));
  41525. if (tv == NULL) {
  41526. return;
  41527. }
  41528. if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) {
  41529. duk_heaphdr *h;
  41530. h = DUK_TVAL_GET_HEAPHDR(tv);
  41531. DUK_ASSERT(h != NULL);
  41532. duk__mark_heaphdr_nonnull(heap, h);
  41533. }
  41534. }
  41535. DUK_LOCAL void duk__mark_tvals(duk_heap *heap, duk_tval *tv, duk_idx_t count) {
  41536. DUK_ASSERT(count == 0 || tv != NULL);
  41537. while (count-- > 0) {
  41538. if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) {
  41539. duk_heaphdr *h;
  41540. h = DUK_TVAL_GET_HEAPHDR(tv);
  41541. DUK_ASSERT(h != NULL);
  41542. duk__mark_heaphdr_nonnull(heap, h);
  41543. }
  41544. tv++;
  41545. }
  41546. }
  41547. /* Mark any duk_heaphdr type, caller guarantees a non-NULL pointer. */
  41548. DUK_LOCAL void duk__mark_heaphdr_nonnull(duk_heap *heap, duk_heaphdr *h) {
  41549. /* For now, just call the generic handler. Change when call sites
  41550. * are changed too.
  41551. */
  41552. duk__mark_heaphdr(heap, h);
  41553. }
  41554. /*
  41555. * Mark the heap.
  41556. */
  41557. DUK_LOCAL void duk__mark_roots_heap(duk_heap *heap) {
  41558. duk_small_uint_t i;
  41559. DUK_DD(DUK_DDPRINT("duk__mark_roots_heap: %p", (void *) heap));
  41560. duk__mark_heaphdr(heap, (duk_heaphdr *) heap->heap_thread);
  41561. duk__mark_heaphdr(heap, (duk_heaphdr *) heap->heap_object);
  41562. for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) {
  41563. duk_hstring *h = DUK_HEAP_GET_STRING(heap, i);
  41564. duk__mark_heaphdr(heap, (duk_heaphdr *) h);
  41565. }
  41566. duk__mark_tval(heap, &heap->lj.value1);
  41567. duk__mark_tval(heap, &heap->lj.value2);
  41568. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  41569. for (i = 0; i < heap->dbg_breakpoint_count; i++) {
  41570. duk__mark_heaphdr(heap, (duk_heaphdr *) heap->dbg_breakpoints[i].filename);
  41571. }
  41572. #endif
  41573. }
  41574. /*
  41575. * Mark unreachable, finalizable objects.
  41576. *
  41577. * Such objects will be moved aside and their finalizers run later. They
  41578. * have to be treated as reachability roots for their properties etc to
  41579. * remain allocated. This marking is only done for unreachable values which
  41580. * would be swept later.
  41581. *
  41582. * Objects are first marked FINALIZABLE and only then marked as reachability
  41583. * roots; otherwise circular references might be handled inconsistently.
  41584. */
  41585. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41586. DUK_LOCAL void duk__mark_finalizable(duk_heap *heap) {
  41587. duk_heaphdr *hdr;
  41588. duk_size_t count_finalizable = 0;
  41589. DUK_DD(DUK_DDPRINT("duk__mark_finalizable: %p", (void *) heap));
  41590. DUK_ASSERT(heap->heap_thread != NULL);
  41591. hdr = heap->heap_allocated;
  41592. while (hdr != NULL) {
  41593. /* A finalizer is looked up from the object and up its
  41594. * prototype chain (which allows inherited finalizers).
  41595. * The finalizer is checked for using a duk_hobject flag
  41596. * which is kept in sync with the presence and callability
  41597. * of a _Finalizer hidden symbol.
  41598. */
  41599. if (!DUK_HEAPHDR_HAS_REACHABLE(hdr) &&
  41600. DUK_HEAPHDR_IS_OBJECT(hdr) &&
  41601. !DUK_HEAPHDR_HAS_FINALIZED(hdr) &&
  41602. DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) hdr)) {
  41603. /* heaphdr:
  41604. * - is not reachable
  41605. * - is an object
  41606. * - is not a finalized object waiting for rescue/keep decision
  41607. * - has a finalizer
  41608. */
  41609. DUK_DD(DUK_DDPRINT("unreachable heap object will be "
  41610. "finalized -> mark as finalizable "
  41611. "and treat as a reachability root: %p",
  41612. (void *) hdr));
  41613. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(hdr));
  41614. DUK_HEAPHDR_SET_FINALIZABLE(hdr);
  41615. count_finalizable++;
  41616. }
  41617. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41618. }
  41619. if (count_finalizable == 0) {
  41620. return;
  41621. }
  41622. DUK_DD(DUK_DDPRINT("marked %ld heap objects as finalizable, now mark them reachable",
  41623. (long) count_finalizable));
  41624. hdr = heap->heap_allocated;
  41625. while (hdr != NULL) {
  41626. if (DUK_HEAPHDR_HAS_FINALIZABLE(hdr)) {
  41627. duk__mark_heaphdr_nonnull(heap, hdr);
  41628. }
  41629. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41630. }
  41631. /* Caller will finish the marking process if we hit a recursion limit. */
  41632. }
  41633. #endif /* DUK_USE_FINALIZER_SUPPORT */
  41634. /*
  41635. * Mark objects on finalize_list.
  41636. */
  41637. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41638. DUK_LOCAL void duk__mark_finalize_list(duk_heap *heap) {
  41639. duk_heaphdr *hdr;
  41640. #if defined(DUK_USE_DEBUG)
  41641. duk_size_t count_finalize_list = 0;
  41642. #endif
  41643. DUK_DD(DUK_DDPRINT("duk__mark_finalize_list: %p", (void *) heap));
  41644. hdr = heap->finalize_list;
  41645. while (hdr != NULL) {
  41646. duk__mark_heaphdr_nonnull(heap, hdr);
  41647. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41648. #if defined(DUK_USE_DEBUG)
  41649. count_finalize_list++;
  41650. #endif
  41651. }
  41652. #if defined(DUK_USE_DEBUG)
  41653. if (count_finalize_list > 0) {
  41654. DUK_D(DUK_DPRINT("marked %ld objects on the finalize_list as reachable (previous finalizer run skipped)",
  41655. (long) count_finalize_list));
  41656. }
  41657. #endif
  41658. }
  41659. #endif /* DUK_USE_FINALIZER_SUPPORT */
  41660. /*
  41661. * Fallback marking handler if recursion limit is reached.
  41662. *
  41663. * Iterates 'temproots' until recursion limit is no longer hit. Temproots
  41664. * can be in heap_allocated or finalize_list; refzero_list is now always
  41665. * empty for mark-and-sweep. A temproot may occur in finalize_list now if
  41666. * there are objects on the finalize_list and user code creates a reference
  41667. * from an object in heap_allocated to the object in finalize_list (which is
  41668. * now allowed), and it happened to coincide with the recursion depth limit.
  41669. *
  41670. * This is a slow scan, but guarantees that we finish with a bounded C stack.
  41671. *
  41672. * Note that nodes may have been marked as temproots before this scan begun,
  41673. * OR they may have been marked during the scan (as we process nodes
  41674. * recursively also during the scan). This is intended behavior.
  41675. */
  41676. #if defined(DUK_USE_DEBUG)
  41677. DUK_LOCAL void duk__handle_temproot(duk_heap *heap, duk_heaphdr *hdr, duk_size_t *count) {
  41678. #else
  41679. DUK_LOCAL void duk__handle_temproot(duk_heap *heap, duk_heaphdr *hdr) {
  41680. #endif
  41681. DUK_ASSERT(hdr != NULL);
  41682. if (!DUK_HEAPHDR_HAS_TEMPROOT(hdr)) {
  41683. DUK_DDD(DUK_DDDPRINT("not a temp root: %p", (void *) hdr));
  41684. return;
  41685. }
  41686. DUK_DDD(DUK_DDDPRINT("found a temp root: %p", (void *) hdr));
  41687. DUK_HEAPHDR_CLEAR_TEMPROOT(hdr);
  41688. DUK_HEAPHDR_CLEAR_REACHABLE(hdr); /* Done so that duk__mark_heaphdr() works correctly. */
  41689. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING)
  41690. hdr->h_assert_refcount--; /* Same node visited twice. */
  41691. #endif
  41692. duk__mark_heaphdr_nonnull(heap, hdr);
  41693. #if defined(DUK_USE_DEBUG)
  41694. (*count)++;
  41695. #endif
  41696. }
  41697. DUK_LOCAL void duk__mark_temproots_by_heap_scan(duk_heap *heap) {
  41698. duk_heaphdr *hdr;
  41699. #if defined(DUK_USE_DEBUG)
  41700. duk_size_t count;
  41701. #endif
  41702. DUK_DD(DUK_DDPRINT("duk__mark_temproots_by_heap_scan: %p", (void *) heap));
  41703. while (DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap)) {
  41704. DUK_DD(DUK_DDPRINT("recursion limit reached, doing heap scan to continue from temproots"));
  41705. #if defined(DUK_USE_DEBUG)
  41706. count = 0;
  41707. #endif
  41708. DUK_HEAP_CLEAR_MARKANDSWEEP_RECLIMIT_REACHED(heap);
  41709. hdr = heap->heap_allocated;
  41710. while (hdr) {
  41711. #if defined(DUK_USE_DEBUG)
  41712. duk__handle_temproot(heap, hdr, &count);
  41713. #else
  41714. duk__handle_temproot(heap, hdr);
  41715. #endif
  41716. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41717. }
  41718. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41719. hdr = heap->finalize_list;
  41720. while (hdr) {
  41721. #if defined(DUK_USE_DEBUG)
  41722. duk__handle_temproot(heap, hdr, &count);
  41723. #else
  41724. duk__handle_temproot(heap, hdr);
  41725. #endif
  41726. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41727. }
  41728. #endif
  41729. #if defined(DUK_USE_DEBUG)
  41730. DUK_DD(DUK_DDPRINT("temproot mark heap scan processed %ld temp roots", (long) count));
  41731. #endif
  41732. }
  41733. }
  41734. /*
  41735. * Finalize refcounts for heap elements just about to be freed.
  41736. * This must be done for all objects before freeing to avoid any
  41737. * stale pointer dereferences.
  41738. *
  41739. * Note that this must deduce the set of objects to be freed
  41740. * identically to duk__sweep_heap().
  41741. */
  41742. #if defined(DUK_USE_REFERENCE_COUNTING)
  41743. DUK_LOCAL void duk__finalize_refcounts(duk_heap *heap) {
  41744. duk_heaphdr *hdr;
  41745. DUK_ASSERT(heap->heap_thread != NULL);
  41746. DUK_DD(DUK_DDPRINT("duk__finalize_refcounts: heap=%p", (void *) heap));
  41747. hdr = heap->heap_allocated;
  41748. while (hdr) {
  41749. if (!DUK_HEAPHDR_HAS_REACHABLE(hdr)) {
  41750. /*
  41751. * Unreachable object about to be swept. Finalize target refcounts
  41752. * (objects which the unreachable object points to) without doing
  41753. * refzero processing. Recursive decrefs are also prevented when
  41754. * refzero processing is disabled.
  41755. *
  41756. * Value cannot be a finalizable object, as they have been made
  41757. * temporarily reachable for this round.
  41758. */
  41759. DUK_DDD(DUK_DDDPRINT("unreachable object, refcount finalize before sweeping: %p", (void *) hdr));
  41760. /* Finalize using heap->heap_thread; DECREF has a
  41761. * suppress check for mark-and-sweep which is based
  41762. * on heap->ms_running.
  41763. */
  41764. duk_heaphdr_refcount_finalize_norz(heap, hdr);
  41765. }
  41766. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41767. }
  41768. }
  41769. #endif /* DUK_USE_REFERENCE_COUNTING */
  41770. /*
  41771. * Clear (reachable) flags of finalize_list.
  41772. *
  41773. * We could mostly do in the sweep phase when we move objects from the
  41774. * heap into the finalize_list. However, if a finalizer run is skipped
  41775. * during a mark-and-sweep, the objects on the finalize_list will be marked
  41776. * reachable during the next mark-and-sweep. Since they're already on the
  41777. * finalize_list, no-one will be clearing their REACHABLE flag so we do it
  41778. * here. (This now overlaps with the sweep handling in a harmless way.)
  41779. */
  41780. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41781. DUK_LOCAL void duk__clear_finalize_list_flags(duk_heap *heap) {
  41782. duk_heaphdr *hdr;
  41783. DUK_DD(DUK_DDPRINT("duk__clear_finalize_list_flags: %p", (void *) heap));
  41784. hdr = heap->finalize_list;
  41785. while (hdr) {
  41786. DUK_HEAPHDR_CLEAR_REACHABLE(hdr);
  41787. #if defined(DUK_USE_ASSERTIONS)
  41788. DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(hdr) || \
  41789. (heap->currently_finalizing == hdr));
  41790. #endif
  41791. /* DUK_HEAPHDR_FLAG_FINALIZED may be set. */
  41792. DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(hdr));
  41793. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  41794. }
  41795. }
  41796. #endif /* DUK_USE_FINALIZER_SUPPORT */
  41797. /*
  41798. * Sweep stringtable.
  41799. */
  41800. DUK_LOCAL void duk__sweep_stringtable(duk_heap *heap, duk_size_t *out_count_keep) {
  41801. duk_hstring *h;
  41802. duk_hstring *prev;
  41803. duk_uint32_t i;
  41804. #if defined(DUK_USE_DEBUG)
  41805. duk_size_t count_free = 0;
  41806. #endif
  41807. duk_size_t count_keep = 0;
  41808. DUK_DD(DUK_DDPRINT("duk__sweep_stringtable: %p", (void *) heap));
  41809. #if defined(DUK_USE_STRTAB_PTRCOMP)
  41810. if (heap->strtable16 == NULL) {
  41811. #else
  41812. if (heap->strtable == NULL) {
  41813. #endif
  41814. goto done;
  41815. }
  41816. for (i = 0; i < heap->st_size; i++) {
  41817. #if defined(DUK_USE_STRTAB_PTRCOMP)
  41818. h = DUK_USE_HEAPPTR_DEC16(heap->heap_udata, heap->strtable16[i]);
  41819. #else
  41820. h = heap->strtable[i];
  41821. #endif
  41822. prev = NULL;
  41823. while (h != NULL) {
  41824. duk_hstring *next;
  41825. next = h->hdr.h_next;
  41826. if (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h)) {
  41827. DUK_HEAPHDR_CLEAR_REACHABLE((duk_heaphdr *) h);
  41828. count_keep++;
  41829. prev = h;
  41830. } else {
  41831. #if defined(DUK_USE_DEBUG)
  41832. count_free++;
  41833. #endif
  41834. #if defined(DUK_USE_REFERENCE_COUNTING)
  41835. /* Non-zero refcounts should not happen for unreachable strings,
  41836. * because we refcount finalize all unreachable objects which
  41837. * should have decreased unreachable string refcounts to zero
  41838. * (even for cycles).
  41839. */
  41840. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) == 0);
  41841. #endif
  41842. /* Deal with weak references first. */
  41843. duk_heap_strcache_string_remove(heap, (duk_hstring *) h);
  41844. /* Remove the string from the string table. */
  41845. duk_heap_strtable_unlink_prev(heap, (duk_hstring *) h, (duk_hstring *) prev);
  41846. /* Free inner references (these exist e.g. when external
  41847. * strings are enabled) and the struct itself.
  41848. */
  41849. duk_free_hstring(heap, (duk_hstring *) h);
  41850. /* Don't update 'prev'; it should be last string kept. */
  41851. }
  41852. h = next;
  41853. }
  41854. }
  41855. done:
  41856. #if defined(DUK_USE_DEBUG)
  41857. DUK_D(DUK_DPRINT("mark-and-sweep sweep stringtable: %ld freed, %ld kept",
  41858. (long) count_free, (long) count_keep));
  41859. #endif
  41860. *out_count_keep = count_keep;
  41861. }
  41862. /*
  41863. * Sweep heap.
  41864. */
  41865. DUK_LOCAL void duk__sweep_heap(duk_heap *heap, duk_small_uint_t flags, duk_size_t *out_count_keep) {
  41866. duk_heaphdr *prev; /* last element that was left in the heap */
  41867. duk_heaphdr *curr;
  41868. duk_heaphdr *next;
  41869. #if defined(DUK_USE_DEBUG)
  41870. duk_size_t count_free = 0;
  41871. duk_size_t count_finalize = 0;
  41872. duk_size_t count_rescue = 0;
  41873. #endif
  41874. duk_size_t count_keep = 0;
  41875. DUK_DD(DUK_DDPRINT("duk__sweep_heap: %p", (void *) heap));
  41876. prev = NULL;
  41877. curr = heap->heap_allocated;
  41878. heap->heap_allocated = NULL;
  41879. while (curr) {
  41880. /* Strings and ROM objects are never placed on the heap allocated list. */
  41881. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) != DUK_HTYPE_STRING);
  41882. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(curr));
  41883. next = DUK_HEAPHDR_GET_NEXT(heap, curr);
  41884. if (DUK_HEAPHDR_HAS_REACHABLE(curr)) {
  41885. /*
  41886. * Reachable object:
  41887. * - If FINALIZABLE -> actually unreachable (but marked
  41888. * artificially reachable), queue to finalize_list.
  41889. * - If !FINALIZABLE but FINALIZED -> rescued after
  41890. * finalizer execution.
  41891. * - Otherwise just a normal, reachable object.
  41892. *
  41893. * Objects which are kept are queued to heap_allocated
  41894. * tail (we're essentially filtering heap_allocated in
  41895. * practice).
  41896. */
  41897. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41898. if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZABLE(curr))) {
  41899. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr));
  41900. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT);
  41901. DUK_DD(DUK_DDPRINT("sweep; reachable, finalizable --> move to finalize_list: %p", (void *) curr));
  41902. #if defined(DUK_USE_REFERENCE_COUNTING)
  41903. DUK_HEAPHDR_PREINC_REFCOUNT(curr); /* Bump refcount so that refzero never occurs when pending a finalizer call. */
  41904. #endif
  41905. DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap, curr);
  41906. #if defined(DUK_USE_DEBUG)
  41907. count_finalize++;
  41908. #endif
  41909. }
  41910. else
  41911. #endif /* DUK_USE_FINALIZER_SUPPORT */
  41912. {
  41913. if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZED(curr))) {
  41914. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(curr));
  41915. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT);
  41916. if (flags & DUK_MS_FLAG_POSTPONE_RESCUE) {
  41917. DUK_DD(DUK_DDPRINT("sweep; reachable, finalized, but postponing rescue decisions --> keep object (with FINALIZED set): %!iO", curr));
  41918. count_keep++;
  41919. } else {
  41920. DUK_DD(DUK_DDPRINT("sweep; reachable, finalized --> rescued after finalization: %p", (void *) curr));
  41921. #if defined(DUK_USE_FINALIZER_SUPPORT)
  41922. DUK_HEAPHDR_CLEAR_FINALIZED(curr);
  41923. #endif
  41924. #if defined(DUK_USE_DEBUG)
  41925. count_rescue++;
  41926. #endif
  41927. }
  41928. } else {
  41929. DUK_DD(DUK_DDPRINT("sweep; reachable --> keep: %!iO", curr));
  41930. count_keep++;
  41931. }
  41932. if (prev != NULL) {
  41933. DUK_ASSERT(heap->heap_allocated != NULL);
  41934. DUK_HEAPHDR_SET_NEXT(heap, prev, curr);
  41935. } else {
  41936. DUK_ASSERT(heap->heap_allocated == NULL);
  41937. heap->heap_allocated = curr;
  41938. }
  41939. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  41940. DUK_HEAPHDR_SET_PREV(heap, curr, prev);
  41941. #endif
  41942. DUK_ASSERT_HEAPHDR_LINKS(heap, prev);
  41943. DUK_ASSERT_HEAPHDR_LINKS(heap, curr);
  41944. prev = curr;
  41945. }
  41946. /*
  41947. * Shrink check for value stacks here. We're inside
  41948. * ms_prevent_count protection which prevents recursive
  41949. * mark-and-sweep and refzero finalizers, so there are
  41950. * no side effects that would affect the heap lists.
  41951. */
  41952. if (DUK_HEAPHDR_IS_OBJECT(curr) && DUK_HOBJECT_IS_THREAD((duk_hobject *) curr)) {
  41953. duk_hthread *thr_curr = (duk_hthread *) curr;
  41954. DUK_DD(DUK_DDPRINT("value stack shrink check for thread: %!O", curr));
  41955. duk_valstack_shrink_check_nothrow(thr_curr, flags & DUK_MS_FLAG_EMERGENCY /*snug*/);
  41956. }
  41957. DUK_HEAPHDR_CLEAR_REACHABLE(curr);
  41958. /* Keep FINALIZED if set, used if rescue decisions are postponed. */
  41959. /* Keep FINALIZABLE for objects on finalize_list. */
  41960. DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(curr));
  41961. } else {
  41962. /*
  41963. * Unreachable object:
  41964. * - If FINALIZED, object was finalized but not
  41965. * rescued. This doesn't affect freeing.
  41966. * - Otherwise normal unreachable object.
  41967. *
  41968. * There's no guard preventing a FINALIZED object
  41969. * from being freed while finalizers execute: the
  41970. * artificial finalize_list reachability roots can't
  41971. * cause an incorrect free decision (but can cause
  41972. * an incorrect rescue decision).
  41973. */
  41974. #if defined(DUK_USE_REFERENCE_COUNTING)
  41975. /* Non-zero refcounts should not happen because we refcount
  41976. * finalize all unreachable objects which should cancel out
  41977. * refcounts (even for cycles).
  41978. */
  41979. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) == 0);
  41980. #endif
  41981. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(curr));
  41982. #if defined(DUK_USE_DEBUG)
  41983. if (DUK_HEAPHDR_HAS_FINALIZED(curr)) {
  41984. DUK_DD(DUK_DDPRINT("sweep; unreachable, finalized --> finalized object not rescued: %p", (void *) curr));
  41985. } else {
  41986. DUK_DD(DUK_DDPRINT("sweep; not reachable --> free: %p", (void *) curr));
  41987. }
  41988. #endif
  41989. /* Note: object cannot be a finalizable unreachable object, as
  41990. * they have been marked temporarily reachable for this round,
  41991. * and are handled above.
  41992. */
  41993. #if defined(DUK_USE_DEBUG)
  41994. count_free++;
  41995. #endif
  41996. /* Weak refs should be handled here, but no weak refs for
  41997. * any non-string objects exist right now.
  41998. */
  41999. /* Free object and all auxiliary (non-heap) allocs. */
  42000. duk_heap_free_heaphdr_raw(heap, curr);
  42001. }
  42002. curr = next;
  42003. }
  42004. if (prev != NULL) {
  42005. DUK_HEAPHDR_SET_NEXT(heap, prev, NULL);
  42006. }
  42007. DUK_ASSERT_HEAPHDR_LINKS(heap, prev);
  42008. #if defined(DUK_USE_DEBUG)
  42009. DUK_D(DUK_DPRINT("mark-and-sweep sweep objects (non-string): %ld freed, %ld kept, %ld rescued, %ld queued for finalization",
  42010. (long) count_free, (long) count_keep, (long) count_rescue, (long) count_finalize));
  42011. #endif
  42012. *out_count_keep = count_keep;
  42013. }
  42014. /*
  42015. * Object compaction.
  42016. *
  42017. * Compaction is assumed to never throw an error.
  42018. */
  42019. DUK_LOCAL int duk__protected_compact_object(duk_hthread *thr, void *udata) {
  42020. duk_hobject *obj;
  42021. /* XXX: for threads, compact stacks? */
  42022. DUK_UNREF(udata);
  42023. obj = duk_known_hobject(thr, -1);
  42024. duk_hobject_compact_props(thr, obj);
  42025. return 0;
  42026. }
  42027. #if defined(DUK_USE_DEBUG)
  42028. DUK_LOCAL void duk__compact_object_list(duk_heap *heap, duk_hthread *thr, duk_heaphdr *start, duk_size_t *p_count_check, duk_size_t *p_count_compact, duk_size_t *p_count_bytes_saved) {
  42029. #else
  42030. DUK_LOCAL void duk__compact_object_list(duk_heap *heap, duk_hthread *thr, duk_heaphdr *start) {
  42031. #endif
  42032. duk_heaphdr *curr;
  42033. #if defined(DUK_USE_DEBUG)
  42034. duk_size_t old_size, new_size;
  42035. #endif
  42036. duk_hobject *obj;
  42037. DUK_UNREF(heap);
  42038. curr = start;
  42039. while (curr) {
  42040. DUK_DDD(DUK_DDDPRINT("mark-and-sweep compact: %p", (void *) curr));
  42041. if (DUK_HEAPHDR_GET_TYPE(curr) != DUK_HTYPE_OBJECT) {
  42042. goto next;
  42043. }
  42044. obj = (duk_hobject *) curr;
  42045. #if defined(DUK_USE_DEBUG)
  42046. old_size = DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj),
  42047. DUK_HOBJECT_GET_ASIZE(obj),
  42048. DUK_HOBJECT_GET_HSIZE(obj));
  42049. #endif
  42050. DUK_DD(DUK_DDPRINT("compact object: %p", (void *) obj));
  42051. duk_push_hobject(thr, obj);
  42052. /* XXX: disable error handlers for duration of compaction? */
  42053. duk_safe_call(thr, duk__protected_compact_object, NULL, 1, 0);
  42054. #if defined(DUK_USE_DEBUG)
  42055. new_size = DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj),
  42056. DUK_HOBJECT_GET_ASIZE(obj),
  42057. DUK_HOBJECT_GET_HSIZE(obj));
  42058. #endif
  42059. #if defined(DUK_USE_DEBUG)
  42060. (*p_count_compact)++;
  42061. (*p_count_bytes_saved) += (duk_size_t) (old_size - new_size);
  42062. #endif
  42063. next:
  42064. curr = DUK_HEAPHDR_GET_NEXT(heap, curr);
  42065. #if defined(DUK_USE_DEBUG)
  42066. (*p_count_check)++;
  42067. #endif
  42068. }
  42069. }
  42070. DUK_LOCAL void duk__compact_objects(duk_heap *heap) {
  42071. /* XXX: which lists should participate? to be finalized? */
  42072. #if defined(DUK_USE_DEBUG)
  42073. duk_size_t count_check = 0;
  42074. duk_size_t count_compact = 0;
  42075. duk_size_t count_bytes_saved = 0;
  42076. #endif
  42077. DUK_DD(DUK_DDPRINT("duk__compact_objects: %p", (void *) heap));
  42078. DUK_ASSERT(heap->heap_thread != NULL);
  42079. #if defined(DUK_USE_DEBUG)
  42080. duk__compact_object_list(heap, heap->heap_thread, heap->heap_allocated, &count_check, &count_compact, &count_bytes_saved);
  42081. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42082. duk__compact_object_list(heap, heap->heap_thread, heap->finalize_list, &count_check, &count_compact, &count_bytes_saved);
  42083. #endif
  42084. #else
  42085. duk__compact_object_list(heap, heap->heap_thread, heap->heap_allocated);
  42086. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42087. duk__compact_object_list(heap, heap->heap_thread, heap->finalize_list);
  42088. #endif
  42089. #endif
  42090. #if defined(DUK_USE_REFERENCE_COUNTING)
  42091. DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */
  42092. #endif
  42093. #if defined(DUK_USE_DEBUG)
  42094. DUK_D(DUK_DPRINT("mark-and-sweep compact objects: %ld checked, %ld compaction attempts, %ld bytes saved by compaction",
  42095. (long) count_check, (long) count_compact, (long) count_bytes_saved));
  42096. #endif
  42097. }
  42098. /*
  42099. * Assertion helpers.
  42100. */
  42101. #if defined(DUK_USE_ASSERTIONS)
  42102. DUK_LOCAL void duk__assert_heaphdr_flags(duk_heap *heap) {
  42103. duk_heaphdr *hdr;
  42104. hdr = heap->heap_allocated;
  42105. while (hdr) {
  42106. DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(hdr));
  42107. DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(hdr));
  42108. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(hdr));
  42109. /* may have FINALIZED */
  42110. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  42111. }
  42112. #if defined(DUK_USE_REFERENCE_COUNTING)
  42113. DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */
  42114. #endif
  42115. }
  42116. #if defined(DUK_USE_REFERENCE_COUNTING)
  42117. DUK_LOCAL void duk__assert_valid_refcounts(duk_heap *heap) {
  42118. duk_heaphdr *hdr = heap->heap_allocated;
  42119. while (hdr) {
  42120. /* Cannot really assert much w.r.t. refcounts now. */
  42121. if (DUK_HEAPHDR_GET_REFCOUNT(hdr) == 0 &&
  42122. DUK_HEAPHDR_HAS_FINALIZED(hdr)) {
  42123. /* An object may be in heap_allocated list with a zero
  42124. * refcount if it has just been finalized and is waiting
  42125. * to be collected by the next cycle.
  42126. * (This doesn't currently happen however.)
  42127. */
  42128. } else if (DUK_HEAPHDR_GET_REFCOUNT(hdr) == 0) {
  42129. /* An object may be in heap_allocated list with a zero
  42130. * refcount also if it is a temporary object created
  42131. * during debugger paused state. It will get collected
  42132. * by mark-and-sweep based on its reachability status
  42133. * (presumably not reachable because refcount is 0).
  42134. */
  42135. }
  42136. DUK_ASSERT_DISABLE(DUK_HEAPHDR_GET_REFCOUNT(hdr) >= 0); /* Unsigned. */
  42137. hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  42138. }
  42139. }
  42140. DUK_LOCAL void duk__clear_assert_refcounts(duk_heap *heap) {
  42141. duk_heaphdr *curr;
  42142. duk_uint32_t i;
  42143. for (curr = heap->heap_allocated; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42144. curr->h_assert_refcount = 0;
  42145. }
  42146. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42147. for (curr = heap->finalize_list; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42148. curr->h_assert_refcount = 0;
  42149. }
  42150. #endif
  42151. #if defined(DUK_USE_REFERENCE_COUNTING)
  42152. for (curr = heap->refzero_list; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42153. curr->h_assert_refcount = 0;
  42154. }
  42155. #endif
  42156. for (i = 0; i < heap->st_size; i++) {
  42157. duk_hstring *h;
  42158. #if defined(DUK_USE_STRTAB_PTRCOMP)
  42159. h = DUK_USE_HEAPPTR_DEC16(heap->heap_udata, heap->strtable16[i]);
  42160. #else
  42161. h = heap->strtable[i];
  42162. #endif
  42163. while (h != NULL) {
  42164. ((duk_heaphdr *) h)->h_assert_refcount = 0;
  42165. h = h->hdr.h_next;
  42166. }
  42167. }
  42168. }
  42169. DUK_LOCAL void duk__check_refcount_heaphdr(duk_heaphdr *hdr) {
  42170. duk_bool_t count_ok;
  42171. /* The refcount check only makes sense for reachable objects on
  42172. * heap_allocated or string table, after the sweep phase. Prior to
  42173. * sweep phase refcounts will include references that are not visible
  42174. * via reachability roots.
  42175. *
  42176. * Because we're called after the sweep phase, all heap objects on
  42177. * heap_allocated are reachable. REACHABLE flags have already been
  42178. * cleared so we can't check them.
  42179. */
  42180. /* ROM objects have intentionally incorrect refcount (1), but we won't
  42181. * check them.
  42182. */
  42183. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(hdr));
  42184. count_ok = ((duk_size_t) DUK_HEAPHDR_GET_REFCOUNT(hdr) == hdr->h_assert_refcount);
  42185. if (!count_ok) {
  42186. DUK_D(DUK_DPRINT("refcount mismatch for: %p: header=%ld counted=%ld --> %!iO",
  42187. (void *) hdr, (long) DUK_HEAPHDR_GET_REFCOUNT(hdr),
  42188. (long) hdr->h_assert_refcount, hdr));
  42189. DUK_ASSERT(0);
  42190. }
  42191. }
  42192. DUK_LOCAL void duk__check_assert_refcounts(duk_heap *heap) {
  42193. duk_heaphdr *curr;
  42194. duk_uint32_t i;
  42195. for (curr = heap->heap_allocated; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42196. duk__check_refcount_heaphdr(curr);
  42197. }
  42198. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42199. for (curr = heap->finalize_list; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42200. duk__check_refcount_heaphdr(curr);
  42201. }
  42202. #endif
  42203. for (i = 0; i < heap->st_size; i++) {
  42204. duk_hstring *h;
  42205. #if defined(DUK_USE_STRTAB_PTRCOMP)
  42206. h = DUK_USE_HEAPPTR_DEC16(heap->heap_udata, heap->strtable16[i]);
  42207. #else
  42208. h = heap->strtable[i];
  42209. #endif
  42210. while (h != NULL) {
  42211. duk__check_refcount_heaphdr((duk_heaphdr *) h);
  42212. h = h->hdr.h_next;
  42213. }
  42214. }
  42215. }
  42216. #endif /* DUK_USE_REFERENCE_COUNTING */
  42217. #endif /* DUK_USE_ASSERTIONS */
  42218. /*
  42219. * Stats dump.
  42220. */
  42221. #if defined(DUK_USE_DEBUG)
  42222. DUK_LOCAL void duk__dump_stats(duk_heap *heap) {
  42223. DUK_D(DUK_DPRINT("stats executor: opcodes=%ld, interrupt=%ld, throw=%ld",
  42224. (long) heap->stats_exec_opcodes, (long) heap->stats_exec_interrupt,
  42225. (long) heap->stats_exec_throw));
  42226. DUK_D(DUK_DPRINT("stats call: all=%ld, tailcall=%ld, ecmatoecma=%ld",
  42227. (long) heap->stats_call_all, (long) heap->stats_call_tailcall,
  42228. (long) heap->stats_call_ecmatoecma));
  42229. DUK_D(DUK_DPRINT("stats safecall: all=%ld, nothrow=%ld, throw=%ld",
  42230. (long) heap->stats_safecall_all, (long) heap->stats_safecall_nothrow,
  42231. (long) heap->stats_safecall_throw));
  42232. DUK_D(DUK_DPRINT("stats mark-and-sweep: try_count=%ld, skip_count=%ld, emergency_count=%ld",
  42233. (long) heap->stats_ms_try_count, (long) heap->stats_ms_skip_count,
  42234. (long) heap->stats_ms_emergency_count));
  42235. DUK_D(DUK_DPRINT("stats stringtable: intern_hit=%ld, intern_miss=%ld, resize_check=%ld, resize_grow=%ld, resize_shrink=%ld",
  42236. (long) heap->stats_strtab_intern_hit, (long) heap->stats_strtab_intern_miss,
  42237. (long) heap->stats_strtab_resize_check, (long) heap->stats_strtab_resize_grow,
  42238. (long) heap->stats_strtab_resize_shrink));
  42239. DUK_D(DUK_DPRINT("stats object: realloc_props=%ld, abandon_array=%ld",
  42240. (long) heap->stats_object_realloc_props, (long) heap->stats_object_abandon_array));
  42241. DUK_D(DUK_DPRINT("stats getownpropdesc: count=%ld, hit=%ld, miss=%ld",
  42242. (long) heap->stats_getownpropdesc_count, (long) heap->stats_getownpropdesc_hit,
  42243. (long) heap->stats_getownpropdesc_miss));
  42244. DUK_D(DUK_DPRINT("stats getpropdesc: count=%ld, hit=%ld, miss=%ld",
  42245. (long) heap->stats_getpropdesc_count, (long) heap->stats_getpropdesc_hit,
  42246. (long) heap->stats_getpropdesc_miss));
  42247. DUK_D(DUK_DPRINT("stats getprop: all=%ld, arrayidx=%ld, bufobjidx=%ld, "
  42248. "bufferidx=%ld, bufferlen=%ld, stringidx=%ld, stringlen=%ld, "
  42249. "proxy=%ld, arguments=%ld",
  42250. (long) heap->stats_getprop_all, (long) heap->stats_getprop_arrayidx,
  42251. (long) heap->stats_getprop_bufobjidx, (long) heap->stats_getprop_bufferidx,
  42252. (long) heap->stats_getprop_bufferlen, (long) heap->stats_getprop_stringidx,
  42253. (long) heap->stats_getprop_stringlen, (long) heap->stats_getprop_proxy,
  42254. (long) heap->stats_getprop_arguments));
  42255. DUK_D(DUK_DPRINT("stats putprop: all=%ld, arrayidx=%ld, bufobjidx=%ld, "
  42256. "bufferidx=%ld, proxy=%ld",
  42257. (long) heap->stats_putprop_all, (long) heap->stats_putprop_arrayidx,
  42258. (long) heap->stats_putprop_bufobjidx, (long) heap->stats_putprop_bufferidx,
  42259. (long) heap->stats_putprop_proxy));
  42260. DUK_D(DUK_DPRINT("stats getvar: all=%ld",
  42261. (long) heap->stats_getvar_all));
  42262. DUK_D(DUK_DPRINT("stats putvar: all=%ld",
  42263. (long) heap->stats_putvar_all));
  42264. }
  42265. #endif /* DUK_USE_DEBUG */
  42266. /*
  42267. * Main mark-and-sweep function.
  42268. *
  42269. * 'flags' represents the features requested by the caller. The current
  42270. * heap->ms_base_flags is ORed automatically into the flags; the base flags
  42271. * mask typically prevents certain mark-and-sweep operation to avoid trouble.
  42272. */
  42273. DUK_INTERNAL void duk_heap_mark_and_sweep(duk_heap *heap, duk_small_uint_t flags) {
  42274. duk_size_t count_keep_obj;
  42275. duk_size_t count_keep_str;
  42276. #if defined(DUK_USE_VOLUNTARY_GC)
  42277. duk_size_t tmp;
  42278. #endif
  42279. DUK_STATS_INC(heap, stats_ms_try_count);
  42280. #if defined(DUK_USE_DEBUG)
  42281. if (flags & DUK_MS_FLAG_EMERGENCY) {
  42282. DUK_STATS_INC(heap, stats_ms_emergency_count);
  42283. }
  42284. #endif
  42285. /* If debugger is paused, garbage collection is disabled by default.
  42286. * This is achieved by bumping ms_prevent_count when becoming paused.
  42287. */
  42288. DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) || heap->ms_prevent_count > 0);
  42289. /* Prevention/recursion check as soon as possible because we may
  42290. * be called a number of times when voluntary mark-and-sweep is
  42291. * pending.
  42292. */
  42293. if (heap->ms_prevent_count != 0) {
  42294. DUK_DD(DUK_DDPRINT("reject recursive mark-and-sweep"));
  42295. DUK_STATS_INC(heap, stats_ms_skip_count);
  42296. return;
  42297. }
  42298. DUK_ASSERT(heap->ms_running == 0); /* ms_prevent_count is bumped when ms_running is set */
  42299. /* Heap_thread is used during mark-and-sweep for refcount finalization
  42300. * (it's also used for finalizer execution once mark-and-sweep is
  42301. * complete). Heap allocation code ensures heap_thread is set and
  42302. * properly initialized before setting ms_prevent_count to 0.
  42303. */
  42304. DUK_ASSERT(heap->heap_thread != NULL);
  42305. DUK_ASSERT(heap->heap_thread->valstack != NULL);
  42306. DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) starting, requested flags: 0x%08lx, effective flags: 0x%08lx",
  42307. (unsigned long) flags, (unsigned long) (flags | heap->ms_base_flags)));
  42308. flags |= heap->ms_base_flags;
  42309. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42310. if (heap->finalize_list != NULL) {
  42311. flags |= DUK_MS_FLAG_POSTPONE_RESCUE;
  42312. }
  42313. #endif
  42314. /*
  42315. * Assertions before
  42316. */
  42317. #if defined(DUK_USE_ASSERTIONS)
  42318. DUK_ASSERT(heap->ms_prevent_count == 0);
  42319. DUK_ASSERT(heap->ms_running == 0);
  42320. DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(heap));
  42321. DUK_ASSERT(!DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap));
  42322. DUK_ASSERT(heap->ms_recursion_depth == 0);
  42323. duk__assert_heaphdr_flags(heap);
  42324. #if defined(DUK_USE_REFERENCE_COUNTING)
  42325. /* Note: heap->refzero_free_running may be true; a refcount
  42326. * finalizer may trigger a mark-and-sweep.
  42327. */
  42328. duk__assert_valid_refcounts(heap);
  42329. #endif /* DUK_USE_REFERENCE_COUNTING */
  42330. #endif /* DUK_USE_ASSERTIONS */
  42331. /*
  42332. * Begin
  42333. */
  42334. DUK_ASSERT(heap->ms_prevent_count == 0);
  42335. DUK_ASSERT(heap->ms_running == 0);
  42336. heap->ms_prevent_count = 1;
  42337. heap->ms_running = 1;
  42338. /*
  42339. * Free activation/catcher freelists on every mark-and-sweep for now.
  42340. * This is an initial rough draft; ideally we'd keep count of the
  42341. * freelist size and free only excess entries.
  42342. */
  42343. DUK_D(DUK_DPRINT("freeing temporary freelists"));
  42344. duk_heap_free_freelists(heap);
  42345. /*
  42346. * Mark roots, hoping that recursion limit is not normally hit.
  42347. * If recursion limit is hit, run additional reachability rounds
  42348. * starting from "temproots" until marking is complete.
  42349. *
  42350. * Marking happens in two phases: first we mark actual reachability
  42351. * roots (and run "temproots" to complete the process). Then we
  42352. * check which objects are unreachable and are finalizable; such
  42353. * objects are marked as FINALIZABLE and marked as reachability
  42354. * (and "temproots" is run again to complete the process).
  42355. *
  42356. * The heap finalize_list must also be marked as a reachability root.
  42357. * There may be objects on the list from a previous round if the
  42358. * previous run had finalizer skip flag.
  42359. */
  42360. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING)
  42361. duk__clear_assert_refcounts(heap);
  42362. #endif
  42363. duk__mark_roots_heap(heap); /* Mark main reachability roots. */
  42364. #if defined(DUK_USE_REFERENCE_COUNTING)
  42365. DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */
  42366. #endif
  42367. duk__mark_temproots_by_heap_scan(heap); /* Temproots. */
  42368. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42369. duk__mark_finalizable(heap); /* Mark finalizable as reachability roots. */
  42370. duk__mark_finalize_list(heap); /* Mark finalizer work list as reachability roots. */
  42371. #endif
  42372. duk__mark_temproots_by_heap_scan(heap); /* Temproots. */
  42373. /*
  42374. * Sweep garbage and remove marking flags, and move objects with
  42375. * finalizers to the finalizer work list.
  42376. *
  42377. * Objects to be swept need to get their refcounts finalized before
  42378. * they are swept. In other words, their target object refcounts
  42379. * need to be decreased. This has to be done before freeing any
  42380. * objects to avoid decref'ing dangling pointers (which may happen
  42381. * even without bugs, e.g. with reference loops)
  42382. *
  42383. * Because strings don't point to other heap objects, similar
  42384. * finalization is not necessary for strings.
  42385. */
  42386. /* XXX: more emergency behavior, e.g. find smaller hash sizes etc */
  42387. #if defined(DUK_USE_REFERENCE_COUNTING)
  42388. duk__finalize_refcounts(heap);
  42389. #endif
  42390. duk__sweep_heap(heap, flags, &count_keep_obj);
  42391. duk__sweep_stringtable(heap, &count_keep_str);
  42392. #if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING)
  42393. duk__check_assert_refcounts(heap);
  42394. #endif
  42395. #if defined(DUK_USE_REFERENCE_COUNTING)
  42396. DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */
  42397. #endif
  42398. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42399. duk__clear_finalize_list_flags(heap);
  42400. #endif
  42401. /*
  42402. * Object compaction (emergency only).
  42403. *
  42404. * Object compaction is a separate step after sweeping, as there is
  42405. * more free memory for it to work with. Also, currently compaction
  42406. * may insert new objects into the heap allocated list and the string
  42407. * table which we don't want to do during a sweep (the reachability
  42408. * flags of such objects would be incorrect). The objects inserted
  42409. * are currently:
  42410. *
  42411. * - a temporary duk_hbuffer for a new properties allocation
  42412. * - if array part is abandoned, string keys are interned
  42413. *
  42414. * The object insertions go to the front of the list, so they do not
  42415. * cause an infinite loop (they are not compacted).
  42416. */
  42417. if ((flags & DUK_MS_FLAG_EMERGENCY) &&
  42418. !(flags & DUK_MS_FLAG_NO_OBJECT_COMPACTION)) {
  42419. duk__compact_objects(heap);
  42420. }
  42421. /*
  42422. * String table resize check.
  42423. *
  42424. * This is mainly useful in emergency GC: if the string table load
  42425. * factor is really low for some reason, we can shrink the string
  42426. * table to a smaller size and free some memory in the process.
  42427. * Only execute in emergency GC. String table has internal flags
  42428. * to protect against recursive resizing if this mark-and-sweep pass
  42429. * was triggered by a string table resize.
  42430. */
  42431. if (flags & DUK_MS_FLAG_EMERGENCY) {
  42432. DUK_D(DUK_DPRINT("stringtable resize check in emergency gc"));
  42433. duk_heap_strtable_force_resize(heap);
  42434. }
  42435. /*
  42436. * Finish
  42437. */
  42438. DUK_ASSERT(heap->ms_prevent_count == 1);
  42439. heap->ms_prevent_count = 0;
  42440. DUK_ASSERT(heap->ms_running == 1);
  42441. heap->ms_running = 0;
  42442. /*
  42443. * Assertions after
  42444. */
  42445. #if defined(DUK_USE_ASSERTIONS)
  42446. DUK_ASSERT(heap->ms_prevent_count == 0);
  42447. DUK_ASSERT(!DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap));
  42448. DUK_ASSERT(heap->ms_recursion_depth == 0);
  42449. duk__assert_heaphdr_flags(heap);
  42450. #if defined(DUK_USE_REFERENCE_COUNTING)
  42451. /* Note: heap->refzero_free_running may be true; a refcount
  42452. * finalizer may trigger a mark-and-sweep.
  42453. */
  42454. duk__assert_valid_refcounts(heap);
  42455. #endif /* DUK_USE_REFERENCE_COUNTING */
  42456. #endif /* DUK_USE_ASSERTIONS */
  42457. /*
  42458. * Reset trigger counter
  42459. */
  42460. #if defined(DUK_USE_VOLUNTARY_GC)
  42461. tmp = (count_keep_obj + count_keep_str) / 256;
  42462. heap->ms_trigger_counter = (duk_int_t) (
  42463. (tmp * DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT) +
  42464. DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD);
  42465. DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) finished: %ld objects kept, %ld strings kept, trigger reset to %ld",
  42466. (long) count_keep_obj, (long) count_keep_str, (long) heap->ms_trigger_counter));
  42467. #else
  42468. DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) finished: %ld objects kept, %ld strings kept, no voluntary trigger",
  42469. (long) count_keep_obj, (long) count_keep_str));
  42470. #endif
  42471. /*
  42472. * Stats dump
  42473. */
  42474. #if defined(DUK_USE_DEBUG)
  42475. duk__dump_stats(heap);
  42476. #endif
  42477. /*
  42478. * Finalize objects in the finalization work list. Finalized
  42479. * objects are queued back to heap_allocated with FINALIZED set.
  42480. *
  42481. * Since finalizers may cause arbitrary side effects, they are
  42482. * prevented e.g. during string table and object property allocation
  42483. * resizing using heap->pf_prevent_count. In this case the objects
  42484. * remain in the finalization work list after mark-and-sweep exits
  42485. * and they may be finalized on the next pass or any DECREF checking
  42486. * for finalize_list.
  42487. *
  42488. * As of Duktape 2.1 finalization happens outside mark-and-sweep
  42489. * protection. Mark-and-sweep is allowed while the finalize_list
  42490. * is being processed, but no rescue decisions are done while the
  42491. * process is on-going. This avoids incorrect rescue decisions
  42492. * if an object is considered reachable (and thus rescued) because
  42493. * of a reference via finalize_list (which is considered a reachability
  42494. * root). When finalize_list is being processed, reachable objects
  42495. * with FINALIZED set will just keep their FINALIZED flag for later
  42496. * mark-and-sweep processing.
  42497. *
  42498. * This could also be handled (a bit better) by having a more refined
  42499. * notion of reachability for rescue/free decisions.
  42500. *
  42501. * XXX: avoid finalizer execution when doing emergency GC?
  42502. */
  42503. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42504. /* Attempt to process finalize_list, pf_prevent_count check
  42505. * is inside the target.
  42506. */
  42507. duk_heap_process_finalize_list(heap);
  42508. #endif /* DUK_USE_FINALIZER_SUPPORT */
  42509. }
  42510. #line 1 "duk_heap_memory.c"
  42511. /*
  42512. * Memory allocation handling.
  42513. */
  42514. /* #include duk_internal.h -> already included */
  42515. /*
  42516. * Voluntary GC check
  42517. */
  42518. #if defined(DUK_USE_VOLUNTARY_GC)
  42519. DUK_LOCAL DUK_INLINE void duk__check_voluntary_gc(duk_heap *heap) {
  42520. if (DUK_UNLIKELY(--(heap)->ms_trigger_counter < 0)) {
  42521. #if defined(DUK_USE_DEBUG)
  42522. if (heap->ms_prevent_count == 0) {
  42523. DUK_D(DUK_DPRINT("triggering voluntary mark-and-sweep"));
  42524. } else {
  42525. DUK_DD(DUK_DDPRINT("gc blocked -> skip voluntary mark-and-sweep now"));
  42526. }
  42527. #endif
  42528. /* Prevention checks in the call target handle cases where
  42529. * voluntary GC is not allowed. The voluntary GC trigger
  42530. * counter is only rewritten if mark-and-sweep actually runs.
  42531. */
  42532. duk_heap_mark_and_sweep(heap, DUK_MS_FLAG_VOLUNTARY /*flags*/);
  42533. }
  42534. }
  42535. #define DUK__VOLUNTARY_PERIODIC_GC(heap) do { duk__check_voluntary_gc((heap)); } while (0)
  42536. #else
  42537. #define DUK__VOLUNTARY_PERIODIC_GC(heap) /* no voluntary gc */
  42538. #endif /* DUK_USE_VOLUNTARY_GC */
  42539. /*
  42540. * Allocate memory with garbage collection
  42541. */
  42542. DUK_INTERNAL void *duk_heap_mem_alloc(duk_heap *heap, duk_size_t size) {
  42543. void *res;
  42544. duk_small_int_t i;
  42545. DUK_ASSERT(heap != NULL);
  42546. DUK_ASSERT_DISABLE(size >= 0);
  42547. /*
  42548. * Voluntary periodic GC (if enabled)
  42549. */
  42550. DUK__VOLUNTARY_PERIODIC_GC(heap);
  42551. /*
  42552. * First attempt
  42553. */
  42554. #if defined(DUK_USE_GC_TORTURE)
  42555. /* Simulate alloc failure on every alloc, except when mark-and-sweep
  42556. * is running.
  42557. */
  42558. if (heap->ms_prevent_count == 0) {
  42559. DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first alloc attempt fails"));
  42560. res = NULL;
  42561. DUK_UNREF(res);
  42562. goto skip_attempt;
  42563. }
  42564. #endif
  42565. res = heap->alloc_func(heap->heap_udata, size);
  42566. if (DUK_LIKELY(res || size == 0)) {
  42567. /* For zero size allocations NULL is allowed. */
  42568. return res;
  42569. }
  42570. #if defined(DUK_USE_GC_TORTURE)
  42571. skip_attempt:
  42572. #endif
  42573. DUK_D(DUK_DPRINT("first alloc attempt failed, attempt to gc and retry"));
  42574. #if 0
  42575. /*
  42576. * Avoid a GC if GC is already running. This can happen at a late
  42577. * stage in a GC when we try to e.g. resize the stringtable
  42578. * or compact objects.
  42579. *
  42580. * NOTE: explicit handling isn't actually be needed: if the GC is
  42581. * not allowed, duk_heap_mark_and_sweep() will reject it for every
  42582. * attempt in the loop below, resulting in a NULL same as here.
  42583. */
  42584. if (heap->ms_prevent_count != 0) {
  42585. DUK_D(DUK_DPRINT("duk_heap_mem_alloc() failed, gc in progress (gc skipped), alloc size %ld", (long) size));
  42586. return NULL;
  42587. }
  42588. #endif
  42589. /*
  42590. * Retry with several GC attempts. Initial attempts are made without
  42591. * emergency mode; later attempts use emergency mode which minimizes
  42592. * memory allocations forcibly.
  42593. */
  42594. for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) {
  42595. duk_small_uint_t flags;
  42596. flags = 0;
  42597. if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) {
  42598. flags |= DUK_MS_FLAG_EMERGENCY;
  42599. }
  42600. duk_heap_mark_and_sweep(heap, flags);
  42601. res = heap->alloc_func(heap->heap_udata, size);
  42602. if (res) {
  42603. DUK_D(DUK_DPRINT("duk_heap_mem_alloc() succeeded after gc (pass %ld), alloc size %ld",
  42604. (long) (i + 1), (long) size));
  42605. return res;
  42606. }
  42607. }
  42608. DUK_D(DUK_DPRINT("duk_heap_mem_alloc() failed even after gc, alloc size %ld", (long) size));
  42609. return NULL;
  42610. }
  42611. DUK_INTERNAL void *duk_heap_mem_alloc_zeroed(duk_heap *heap, duk_size_t size) {
  42612. void *res;
  42613. DUK_ASSERT(heap != NULL);
  42614. DUK_ASSERT_DISABLE(size >= 0);
  42615. res = DUK_ALLOC(heap, size);
  42616. if (DUK_LIKELY(res != NULL)) {
  42617. /* assume memset with zero size is OK */
  42618. DUK_MEMZERO(res, size);
  42619. }
  42620. return res;
  42621. }
  42622. DUK_INTERNAL void *duk_heap_mem_alloc_checked(duk_hthread *thr, duk_size_t size) {
  42623. void *res;
  42624. DUK_ASSERT(thr != NULL);
  42625. res = duk_heap_mem_alloc(thr->heap, size);
  42626. if (DUK_LIKELY(res != NULL || size == 0)) {
  42627. return res;
  42628. }
  42629. DUK_ERROR_ALLOC_FAILED(thr);
  42630. return NULL;
  42631. }
  42632. DUK_INTERNAL void *duk_heap_mem_alloc_checked_zeroed(duk_hthread *thr, duk_size_t size) {
  42633. void *res;
  42634. DUK_ASSERT(thr != NULL);
  42635. res = duk_heap_mem_alloc_zeroed(thr->heap, size);
  42636. if (DUK_LIKELY(res != NULL || size == 0)) {
  42637. return res;
  42638. }
  42639. DUK_ERROR_ALLOC_FAILED(thr);
  42640. return NULL;
  42641. }
  42642. /*
  42643. * Reallocate memory with garbage collection
  42644. */
  42645. DUK_INTERNAL void *duk_heap_mem_realloc(duk_heap *heap, void *ptr, duk_size_t newsize) {
  42646. void *res;
  42647. duk_small_int_t i;
  42648. DUK_ASSERT(heap != NULL);
  42649. /* ptr may be NULL */
  42650. DUK_ASSERT_DISABLE(newsize >= 0);
  42651. /*
  42652. * Voluntary periodic GC (if enabled)
  42653. */
  42654. DUK__VOLUNTARY_PERIODIC_GC(heap);
  42655. /*
  42656. * First attempt
  42657. */
  42658. #if defined(DUK_USE_GC_TORTURE)
  42659. /* Simulate alloc failure on every realloc, except when mark-and-sweep
  42660. * is running.
  42661. */
  42662. if (heap->ms_prevent_count == 0) {
  42663. DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first realloc attempt fails"));
  42664. res = NULL;
  42665. DUK_UNREF(res);
  42666. goto skip_attempt;
  42667. }
  42668. #endif
  42669. res = heap->realloc_func(heap->heap_udata, ptr, newsize);
  42670. if (DUK_LIKELY(res || newsize == 0)) {
  42671. /* For zero size allocations NULL is allowed. */
  42672. return res;
  42673. }
  42674. #if defined(DUK_USE_GC_TORTURE)
  42675. skip_attempt:
  42676. #endif
  42677. DUK_D(DUK_DPRINT("first realloc attempt failed, attempt to gc and retry"));
  42678. #if 0
  42679. /*
  42680. * Avoid a GC if GC is already running. See duk_heap_mem_alloc().
  42681. */
  42682. if (heap->ms_prevent_count != 0) {
  42683. DUK_D(DUK_DPRINT("duk_heap_mem_realloc() failed, gc in progress (gc skipped), alloc size %ld", (long) newsize));
  42684. return NULL;
  42685. }
  42686. #endif
  42687. /*
  42688. * Retry with several GC attempts. Initial attempts are made without
  42689. * emergency mode; later attempts use emergency mode which minimizes
  42690. * memory allocations forcibly.
  42691. */
  42692. for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) {
  42693. duk_small_uint_t flags;
  42694. flags = 0;
  42695. if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) {
  42696. flags |= DUK_MS_FLAG_EMERGENCY;
  42697. }
  42698. duk_heap_mark_and_sweep(heap, flags);
  42699. res = heap->realloc_func(heap->heap_udata, ptr, newsize);
  42700. if (res || newsize == 0) {
  42701. DUK_D(DUK_DPRINT("duk_heap_mem_realloc() succeeded after gc (pass %ld), alloc size %ld",
  42702. (long) (i + 1), (long) newsize));
  42703. return res;
  42704. }
  42705. }
  42706. DUK_D(DUK_DPRINT("duk_heap_mem_realloc() failed even after gc, alloc size %ld", (long) newsize));
  42707. return NULL;
  42708. }
  42709. /*
  42710. * Reallocate memory with garbage collection, using a callback to provide
  42711. * the current allocated pointer. This variant is used when a mark-and-sweep
  42712. * (e.g. finalizers) might change the original pointer.
  42713. */
  42714. DUK_INTERNAL void *duk_heap_mem_realloc_indirect(duk_heap *heap, duk_mem_getptr cb, void *ud, duk_size_t newsize) {
  42715. void *res;
  42716. duk_small_int_t i;
  42717. DUK_ASSERT(heap != NULL);
  42718. DUK_ASSERT_DISABLE(newsize >= 0);
  42719. /*
  42720. * Voluntary periodic GC (if enabled)
  42721. */
  42722. DUK__VOLUNTARY_PERIODIC_GC(heap);
  42723. /*
  42724. * First attempt
  42725. */
  42726. #if defined(DUK_USE_GC_TORTURE)
  42727. /* Simulate alloc failure on every realloc, except when mark-and-sweep
  42728. * is running.
  42729. */
  42730. if (heap->ms_prevent_count == 0) {
  42731. DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first indirect realloc attempt fails"));
  42732. res = NULL;
  42733. DUK_UNREF(res);
  42734. goto skip_attempt;
  42735. }
  42736. #endif
  42737. res = heap->realloc_func(heap->heap_udata, cb(heap, ud), newsize);
  42738. if (DUK_LIKELY(res || newsize == 0)) {
  42739. /* For zero size allocations NULL is allowed. */
  42740. return res;
  42741. }
  42742. #if defined(DUK_USE_GC_TORTURE)
  42743. skip_attempt:
  42744. #endif
  42745. DUK_D(DUK_DPRINT("first indirect realloc attempt failed, attempt to gc and retry"));
  42746. #if 0
  42747. /*
  42748. * Avoid a GC if GC is already running. See duk_heap_mem_alloc().
  42749. */
  42750. if (heap->ms_prevent_count != 0) {
  42751. DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() failed, gc in progress (gc skipped), alloc size %ld", (long) newsize));
  42752. return NULL;
  42753. }
  42754. #endif
  42755. /*
  42756. * Retry with several GC attempts. Initial attempts are made without
  42757. * emergency mode; later attempts use emergency mode which minimizes
  42758. * memory allocations forcibly.
  42759. */
  42760. for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) {
  42761. duk_small_uint_t flags;
  42762. #if defined(DUK_USE_DEBUG)
  42763. void *ptr_pre;
  42764. void *ptr_post;
  42765. #endif
  42766. #if defined(DUK_USE_DEBUG)
  42767. ptr_pre = cb(heap, ud);
  42768. #endif
  42769. flags = 0;
  42770. if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) {
  42771. flags |= DUK_MS_FLAG_EMERGENCY;
  42772. }
  42773. duk_heap_mark_and_sweep(heap, flags);
  42774. #if defined(DUK_USE_DEBUG)
  42775. ptr_post = cb(heap, ud);
  42776. if (ptr_pre != ptr_post) {
  42777. DUK_DD(DUK_DDPRINT("realloc base pointer changed by mark-and-sweep: %p -> %p",
  42778. (void *) ptr_pre, (void *) ptr_post));
  42779. }
  42780. #endif
  42781. /* Note: key issue here is to re-lookup the base pointer on every attempt.
  42782. * The pointer being reallocated may change after every mark-and-sweep.
  42783. */
  42784. res = heap->realloc_func(heap->heap_udata, cb(heap, ud), newsize);
  42785. if (res || newsize == 0) {
  42786. DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() succeeded after gc (pass %ld), alloc size %ld",
  42787. (long) (i + 1), (long) newsize));
  42788. return res;
  42789. }
  42790. }
  42791. DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() failed even after gc, alloc size %ld", (long) newsize));
  42792. return NULL;
  42793. }
  42794. /*
  42795. * Free memory
  42796. */
  42797. DUK_INTERNAL void duk_heap_mem_free(duk_heap *heap, void *ptr) {
  42798. DUK_ASSERT(heap != NULL);
  42799. /* ptr may be NULL */
  42800. /* Must behave like a no-op with NULL and any pointer returned from
  42801. * malloc/realloc with zero size.
  42802. */
  42803. heap->free_func(heap->heap_udata, ptr);
  42804. /* Never perform a GC (even voluntary) in a memory free, otherwise
  42805. * all call sites doing frees would need to deal with the side effects.
  42806. * No need to update voluntary GC counter either.
  42807. */
  42808. }
  42809. /* automatic undefs */
  42810. #undef DUK__VOLUNTARY_PERIODIC_GC
  42811. #line 1 "duk_heap_misc.c"
  42812. /*
  42813. * Support functions for duk_heap.
  42814. */
  42815. /* #include duk_internal.h -> already included */
  42816. DUK_INTERNAL void duk_heap_insert_into_heap_allocated(duk_heap *heap, duk_heaphdr *hdr) {
  42817. duk_heaphdr *root;
  42818. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) != DUK_HTYPE_STRING);
  42819. root = heap->heap_allocated;
  42820. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  42821. if (root != NULL) {
  42822. DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL);
  42823. DUK_HEAPHDR_SET_PREV(heap, root, hdr);
  42824. }
  42825. DUK_HEAPHDR_SET_PREV(heap, hdr, NULL);
  42826. #endif
  42827. DUK_HEAPHDR_SET_NEXT(heap, hdr, root);
  42828. DUK_ASSERT_HEAPHDR_LINKS(heap, hdr);
  42829. DUK_ASSERT_HEAPHDR_LINKS(heap, root);
  42830. heap->heap_allocated = hdr;
  42831. }
  42832. #if defined(DUK_USE_REFERENCE_COUNTING)
  42833. DUK_INTERNAL void duk_heap_remove_from_heap_allocated(duk_heap *heap, duk_heaphdr *hdr) {
  42834. duk_heaphdr *prev;
  42835. duk_heaphdr *next;
  42836. /* Strings are in string table. */
  42837. DUK_ASSERT(hdr != NULL);
  42838. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) != DUK_HTYPE_STRING);
  42839. /* Target 'hdr' must be in heap_allocated (not e.g. finalize_list).
  42840. * If not, heap lists will become corrupted so assert early for it.
  42841. */
  42842. #if defined(DUK_USE_ASSERTIONS)
  42843. {
  42844. duk_heaphdr *tmp;
  42845. for (tmp = heap->heap_allocated; tmp != NULL; tmp = DUK_HEAPHDR_GET_NEXT(heap, tmp)) {
  42846. if (tmp == hdr) {
  42847. break;
  42848. }
  42849. }
  42850. DUK_ASSERT(tmp == hdr);
  42851. }
  42852. #endif
  42853. /* Read/write only once to minimize pointer compression calls. */
  42854. prev = DUK_HEAPHDR_GET_PREV(heap, hdr);
  42855. next = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  42856. if (prev != NULL) {
  42857. DUK_ASSERT(heap->heap_allocated != hdr);
  42858. DUK_HEAPHDR_SET_NEXT(heap, prev, next);
  42859. } else {
  42860. DUK_ASSERT(heap->heap_allocated == hdr);
  42861. heap->heap_allocated = next;
  42862. }
  42863. if (next != NULL) {
  42864. DUK_HEAPHDR_SET_PREV(heap, next, prev);
  42865. } else {
  42866. ;
  42867. }
  42868. }
  42869. #endif /* DUK_USE_REFERENCE_COUNTING */
  42870. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42871. DUK_INTERNAL void duk_heap_insert_into_finalize_list(duk_heap *heap, duk_heaphdr *hdr) {
  42872. duk_heaphdr *root;
  42873. root = heap->finalize_list;
  42874. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  42875. DUK_HEAPHDR_SET_PREV(heap, hdr, NULL);
  42876. if (root != NULL) {
  42877. DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL);
  42878. DUK_HEAPHDR_SET_PREV(heap, root, hdr);
  42879. }
  42880. #endif
  42881. DUK_HEAPHDR_SET_NEXT(heap, hdr, root);
  42882. DUK_ASSERT_HEAPHDR_LINKS(heap, hdr);
  42883. DUK_ASSERT_HEAPHDR_LINKS(heap, root);
  42884. heap->finalize_list = hdr;
  42885. }
  42886. #endif /* DUK_USE_FINALIZER_SUPPORT */
  42887. #if defined(DUK_USE_FINALIZER_SUPPORT)
  42888. DUK_INTERNAL void duk_heap_remove_from_finalize_list(duk_heap *heap, duk_heaphdr *hdr) {
  42889. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  42890. duk_heaphdr *next;
  42891. duk_heaphdr *prev;
  42892. next = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  42893. prev = DUK_HEAPHDR_GET_PREV(heap, hdr);
  42894. if (next != NULL) {
  42895. DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, next) == hdr);
  42896. DUK_HEAPHDR_SET_PREV(heap, next, prev);
  42897. }
  42898. if (prev == NULL) {
  42899. DUK_ASSERT(hdr == heap->finalize_list);
  42900. heap->finalize_list = next;
  42901. } else {
  42902. DUK_ASSERT(hdr != heap->finalize_list);
  42903. DUK_HEAPHDR_SET_NEXT(heap, prev, next);
  42904. }
  42905. #else
  42906. duk_heaphdr *next;
  42907. duk_heaphdr *curr;
  42908. /* Random removal is expensive: we need to locate the previous element
  42909. * because we don't have a 'prev' pointer.
  42910. */
  42911. curr = heap->finalize_list;
  42912. if (curr == hdr) {
  42913. heap->finalize_list = DUK_HEAPHDR_GET_NEXT(heap, curr);
  42914. } else {
  42915. DUK_ASSERT(hdr != heap->finalize_list);
  42916. for (;;) {
  42917. DUK_ASSERT(curr != NULL); /* Caller responsibility. */
  42918. next = DUK_HEAPHDR_GET_NEXT(heap, curr);
  42919. if (next == hdr) {
  42920. next = DUK_HEAPHDR_GET_NEXT(heap, hdr);
  42921. DUK_HEAPHDR_SET_NEXT(heap, curr, next);
  42922. break;
  42923. }
  42924. }
  42925. }
  42926. #endif
  42927. }
  42928. #endif /* DUK_USE_FINALIZER_SUPPORT */
  42929. #if defined(DUK_USE_ASSERTIONS)
  42930. DUK_INTERNAL duk_bool_t duk_heap_in_heap_allocated(duk_heap *heap, duk_heaphdr *ptr) {
  42931. duk_heaphdr *curr;
  42932. DUK_ASSERT(heap != NULL);
  42933. for (curr = heap->heap_allocated; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) {
  42934. if (curr == ptr) {
  42935. return 1;
  42936. }
  42937. }
  42938. return 0;
  42939. }
  42940. #endif /* DUK_USE_ASSERTIONS */
  42941. #if defined(DUK_USE_INTERRUPT_COUNTER)
  42942. DUK_INTERNAL void duk_heap_switch_thread(duk_heap *heap, duk_hthread *new_thr) {
  42943. duk_hthread *curr_thr;
  42944. DUK_ASSERT(heap != NULL);
  42945. if (new_thr != NULL) {
  42946. curr_thr = heap->curr_thread;
  42947. if (curr_thr == NULL) {
  42948. /* For initial entry use default value; zero forces an
  42949. * interrupt before executing the first insturction.
  42950. */
  42951. DUK_DD(DUK_DDPRINT("switch thread, initial entry, init default interrupt counter"));
  42952. new_thr->interrupt_counter = 0;
  42953. new_thr->interrupt_init = 0;
  42954. } else {
  42955. /* Copy interrupt counter/init value state to new thread (if any).
  42956. * It's OK for new_thr to be the same as curr_thr.
  42957. */
  42958. #if defined(DUK_USE_DEBUG)
  42959. if (new_thr != curr_thr) {
  42960. DUK_DD(DUK_DDPRINT("switch thread, not initial entry, copy interrupt counter"));
  42961. }
  42962. #endif
  42963. new_thr->interrupt_counter = curr_thr->interrupt_counter;
  42964. new_thr->interrupt_init = curr_thr->interrupt_init;
  42965. }
  42966. } else {
  42967. DUK_DD(DUK_DDPRINT("switch thread, new thread is NULL, no interrupt counter changes"));
  42968. }
  42969. heap->curr_thread = new_thr; /* may be NULL */
  42970. }
  42971. #endif /* DUK_USE_INTERRUPT_COUNTER */
  42972. #line 1 "duk_heap_refcount.c"
  42973. /*
  42974. * Reference counting implementation.
  42975. *
  42976. * INCREF/DECREF, finalization and freeing of objects whose refcount reaches
  42977. * zero (refzero). These operations are very performance sensitive, so
  42978. * various small tricks are used in an attempt to maximize speed.
  42979. */
  42980. /* #include duk_internal.h -> already included */
  42981. #if defined(DUK_USE_REFERENCE_COUNTING)
  42982. #if !defined(DUK_USE_DOUBLE_LINKED_HEAP)
  42983. #error internal error, reference counting requires a double linked heap
  42984. #endif
  42985. /*
  42986. * Heap object refcount finalization.
  42987. *
  42988. * When an object is about to be freed, all other objects it refers to must
  42989. * be decref'd. Refcount finalization does NOT free the object or its inner
  42990. * allocations (mark-and-sweep shares these helpers), it just manipulates
  42991. * the refcounts.
  42992. *
  42993. * Note that any of the DECREFs may cause a refcount to drop to zero. If so,
  42994. * the object won't be refzero processed inline, but will just be queued to
  42995. * refzero_list and processed by an earlier caller working on refzero_list,
  42996. * eliminating C recursion from even long refzero cascades. If refzero
  42997. * finalization is triggered by mark-and-sweep, refzero conditions are ignored
  42998. * (objects are not even queued to refzero_list) because mark-and-sweep deals
  42999. * with them; refcounts are still updated so that they remain in sync with
  43000. * actual references.
  43001. */
  43002. DUK_LOCAL void duk__decref_tvals_norz(duk_hthread *thr, duk_tval *tv, duk_idx_t count) {
  43003. DUK_ASSERT(count == 0 || tv != NULL);
  43004. while (count-- > 0) {
  43005. DUK_TVAL_DECREF_NORZ(thr, tv);
  43006. tv++;
  43007. }
  43008. }
  43009. DUK_INTERNAL void duk_hobject_refcount_finalize_norz(duk_heap *heap, duk_hobject *h) {
  43010. duk_hthread *thr;
  43011. duk_uint_fast32_t i;
  43012. duk_uint_fast32_t n;
  43013. duk_propvalue *p_val;
  43014. duk_tval *p_tv;
  43015. duk_hstring **p_key;
  43016. duk_uint8_t *p_flag;
  43017. duk_hobject *h_proto;
  43018. DUK_ASSERT(heap != NULL);
  43019. DUK_ASSERT(heap->heap_thread != NULL);
  43020. DUK_ASSERT(h);
  43021. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h) == DUK_HTYPE_OBJECT);
  43022. thr = heap->heap_thread;
  43023. DUK_ASSERT(thr != NULL);
  43024. p_key = DUK_HOBJECT_E_GET_KEY_BASE(heap, h);
  43025. p_val = DUK_HOBJECT_E_GET_VALUE_BASE(heap, h);
  43026. p_flag = DUK_HOBJECT_E_GET_FLAGS_BASE(heap, h);
  43027. n = DUK_HOBJECT_GET_ENEXT(h);
  43028. while (n-- > 0) {
  43029. duk_hstring *key;
  43030. key = p_key[n];
  43031. if (DUK_UNLIKELY(key == NULL)) {
  43032. continue;
  43033. }
  43034. DUK_HSTRING_DECREF_NORZ(thr, key);
  43035. if (DUK_UNLIKELY(p_flag[n] & DUK_PROPDESC_FLAG_ACCESSOR)) {
  43036. duk_hobject *h_getset;
  43037. h_getset = p_val[n].a.get;
  43038. DUK_ASSERT(h_getset == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_getset));
  43039. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_getset);
  43040. h_getset = p_val[n].a.set;
  43041. DUK_ASSERT(h_getset == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_getset));
  43042. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_getset);
  43043. } else {
  43044. duk_tval *tv_val;
  43045. tv_val = &p_val[n].v;
  43046. DUK_TVAL_DECREF_NORZ(thr, tv_val);
  43047. }
  43048. }
  43049. p_tv = DUK_HOBJECT_A_GET_BASE(heap, h);
  43050. n = DUK_HOBJECT_GET_ASIZE(h);
  43051. while (n-- > 0) {
  43052. duk_tval *tv_val;
  43053. tv_val = p_tv + n;
  43054. DUK_TVAL_DECREF_NORZ(thr, tv_val);
  43055. }
  43056. /* Hash part is a 'weak reference' and doesn't contribute to refcounts. */
  43057. h_proto = (duk_hobject *) DUK_HOBJECT_GET_PROTOTYPE(heap, h);
  43058. DUK_ASSERT(h_proto == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_proto));
  43059. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_proto);
  43060. /* XXX: Object subclass tests are quite awkward at present, ideally
  43061. * we should be able to switch-case here with a dense index (subtype
  43062. * number or something). For now, fast path plain objects and arrays
  43063. * and bit test the rest individually.
  43064. */
  43065. if (DUK_HOBJECT_HAS_FASTREFS(h)) {
  43066. /* Plain object or array, nothing more to do. While a
  43067. * duk_harray has additional fields, none of them need
  43068. * DECREF updates.
  43069. */
  43070. DUK_ASSERT(DUK_HOBJECT_ALLOWS_FASTREFS(h));
  43071. return;
  43072. }
  43073. DUK_ASSERT(DUK_HOBJECT_PROHIBITS_FASTREFS(h));
  43074. /* Slow path: special object, start bit checks from most likely. */
  43075. /* XXX: reorg, more common first */
  43076. if (DUK_HOBJECT_IS_COMPFUNC(h)) {
  43077. duk_hcompfunc *f = (duk_hcompfunc *) h;
  43078. duk_tval *tv, *tv_end;
  43079. duk_hobject **funcs, **funcs_end;
  43080. DUK_ASSERT_HCOMPFUNC_VALID(f);
  43081. if (DUK_LIKELY(DUK_HCOMPFUNC_GET_DATA(heap, f) != NULL)) {
  43082. tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, f);
  43083. tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(heap, f);
  43084. while (tv < tv_end) {
  43085. DUK_TVAL_DECREF_NORZ(thr, tv);
  43086. tv++;
  43087. }
  43088. funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, f);
  43089. funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(heap, f);
  43090. while (funcs < funcs_end) {
  43091. duk_hobject *h_func;
  43092. h_func = *funcs;
  43093. DUK_ASSERT(h_func != NULL);
  43094. DUK_ASSERT(DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_func));
  43095. DUK_HCOMPFUNC_DECREF_NORZ(thr, (duk_hcompfunc *) h_func);
  43096. funcs++;
  43097. }
  43098. } else {
  43099. /* May happen in some out-of-memory corner cases. */
  43100. DUK_D(DUK_DPRINT("duk_hcompfunc 'data' is NULL, skipping decref"));
  43101. }
  43102. DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_heaphdr *) DUK_HCOMPFUNC_GET_LEXENV(heap, f));
  43103. DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_heaphdr *) DUK_HCOMPFUNC_GET_VARENV(heap, f));
  43104. DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(heap, f));
  43105. } else if (DUK_HOBJECT_IS_DECENV(h)) {
  43106. duk_hdecenv *e = (duk_hdecenv *) h;
  43107. DUK_ASSERT_HDECENV_VALID(e);
  43108. DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr, e->thread);
  43109. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, e->varmap);
  43110. } else if (DUK_HOBJECT_IS_OBJENV(h)) {
  43111. duk_hobjenv *e = (duk_hobjenv *) h;
  43112. DUK_ASSERT_HOBJENV_VALID(e);
  43113. DUK_ASSERT(e->target != NULL); /* Required for object environments. */
  43114. DUK_HOBJECT_DECREF_NORZ(thr, e->target);
  43115. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  43116. } else if (DUK_HOBJECT_IS_BUFOBJ(h)) {
  43117. duk_hbufobj *b = (duk_hbufobj *) h;
  43118. DUK_ASSERT_HBUFOBJ_VALID(b);
  43119. DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr, (duk_hbuffer *) b->buf);
  43120. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) b->buf_prop);
  43121. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  43122. } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) {
  43123. duk_hboundfunc *f = (duk_hboundfunc *) h;
  43124. DUK_ASSERT_HBOUNDFUNC_VALID(f);
  43125. DUK_TVAL_DECREF_NORZ(thr, &f->target);
  43126. DUK_TVAL_DECREF_NORZ(thr, &f->this_binding);
  43127. duk__decref_tvals_norz(thr, f->args, f->nargs);
  43128. #if defined(DUK_USE_ES6_PROXY)
  43129. } else if (DUK_HOBJECT_IS_PROXY(h)) {
  43130. duk_hproxy *p = (duk_hproxy *) h;
  43131. DUK_ASSERT_HPROXY_VALID(p);
  43132. DUK_HOBJECT_DECREF_NORZ(thr, p->target);
  43133. DUK_HOBJECT_DECREF_NORZ(thr, p->handler);
  43134. #endif /* DUK_USE_ES6_PROXY */
  43135. } else if (DUK_HOBJECT_IS_THREAD(h)) {
  43136. duk_hthread *t = (duk_hthread *) h;
  43137. duk_activation *act;
  43138. duk_tval *tv;
  43139. DUK_ASSERT_HTHREAD_VALID(t);
  43140. tv = t->valstack;
  43141. while (tv < t->valstack_top) {
  43142. DUK_TVAL_DECREF_NORZ(thr, tv);
  43143. tv++;
  43144. }
  43145. for (act = t->callstack_curr; act != NULL; act = act->parent) {
  43146. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) DUK_ACT_GET_FUNC(act));
  43147. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->var_env);
  43148. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->lex_env);
  43149. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  43150. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->prev_caller);
  43151. #endif
  43152. #if 0 /* nothing now */
  43153. for (cat = act->cat; cat != NULL; cat = cat->parent) {
  43154. }
  43155. #endif
  43156. }
  43157. for (i = 0; i < DUK_NUM_BUILTINS; i++) {
  43158. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) t->builtins[i]);
  43159. }
  43160. DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr, (duk_hthread *) t->resumer);
  43161. } else {
  43162. /* We may come here if the object should have a FASTREFS flag
  43163. * but it's missing for some reason. Assert for never getting
  43164. * here; however, other than performance, this is harmless.
  43165. */
  43166. DUK_D(DUK_DPRINT("missing FASTREFS flag for: %!iO", h));
  43167. DUK_ASSERT(0);
  43168. }
  43169. }
  43170. DUK_INTERNAL void duk_heaphdr_refcount_finalize_norz(duk_heap *heap, duk_heaphdr *hdr) {
  43171. DUK_ASSERT(heap != NULL);
  43172. DUK_ASSERT(heap->heap_thread != NULL);
  43173. DUK_ASSERT(hdr != NULL);
  43174. if (DUK_HEAPHDR_IS_OBJECT(hdr)) {
  43175. duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) hdr);
  43176. }
  43177. /* DUK_HTYPE_BUFFER: nothing to finalize */
  43178. /* DUK_HTYPE_STRING: nothing to finalize */
  43179. }
  43180. /*
  43181. * Refzero processing for duk_hobject: queue a refzero'ed object to either
  43182. * finalize_list or refzero_list and process the relevent list(s) if
  43183. * necessary.
  43184. *
  43185. * Refzero_list is single linked, with only 'prev' pointers set and valid.
  43186. * All 'next' pointers are intentionally left as garbage. This doesn't
  43187. * matter because refzero_list is processed to completion before any other
  43188. * code (like mark-and-sweep) might walk the list.
  43189. *
  43190. * In more detail:
  43191. *
  43192. * - On first insert refzero_list is NULL and the new object becomes the
  43193. * first and only element on the list; duk__refcount_free_pending() is
  43194. * called and it starts processing the list from the initial element,
  43195. * i.e. the list tail.
  43196. *
  43197. * - As each object is refcount finalized, new objects may be queued to
  43198. * refzero_list head. Their 'next' pointers are left as garbage, but
  43199. * 'prev' points are set correctly, with the element at refzero_list
  43200. * having a NULL 'prev' pointer. The fact that refzero_list is non-NULL
  43201. * is used to reject (1) recursive duk__refcount_free_pending() and
  43202. * (2) finalize_list processing calls.
  43203. *
  43204. * - When we're done with the current object, read its 'prev' pointer and
  43205. * free the object. If 'prev' is NULL, we've reached head of list and are
  43206. * done: set refzero_list to NULL and process pending finalizers. Otherwise
  43207. * continue processing the list.
  43208. *
  43209. * A refzero cascade is free of side effects because it only involves
  43210. * queueing more objects and freeing memory; finalizer execution is blocked
  43211. * in the code path queueing objects to finalize_list. As a result the
  43212. * initial refzero call (which triggers duk__refcount_free_pending()) must
  43213. * check finalize_list so that finalizers are executed snappily.
  43214. *
  43215. * If finalize_list processing starts first, refzero may occur while we're
  43216. * processing finalizers. That's fine: that particular refzero cascade is
  43217. * handled to completion without side effects. Once the cascade is complete,
  43218. * we'll run pending finalizers but notice that we're already doing that and
  43219. * return.
  43220. *
  43221. * This could be expanded to allow incremental freeing: just bail out
  43222. * early and resume at a future alloc/decref/refzero. However, if that
  43223. * were done, the list structure would need to be kept consistent at all
  43224. * times, mark-and-sweep would need to handle refzero_list, etc.
  43225. */
  43226. DUK_LOCAL void duk__refcount_free_pending(duk_heap *heap) {
  43227. duk_heaphdr *curr;
  43228. #if defined(DUK_USE_DEBUG)
  43229. duk_int_t count = 0;
  43230. #endif
  43231. DUK_ASSERT(heap != NULL);
  43232. curr = heap->refzero_list;
  43233. DUK_ASSERT(curr != NULL);
  43234. DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, curr) == NULL); /* We're called on initial insert only. */
  43235. /* curr->next is GARBAGE. */
  43236. do {
  43237. duk_heaphdr *prev;
  43238. DUK_DDD(DUK_DDDPRINT("refzero processing %p: %!O", (void *) curr, (duk_heaphdr *) curr));
  43239. #if defined(DUK_USE_DEBUG)
  43240. count++;
  43241. #endif
  43242. DUK_ASSERT(curr != NULL);
  43243. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* currently, always the case */
  43244. /* FINALIZED may be set; don't care about flags here. */
  43245. /* Refcount finalize 'curr'. Refzero_list must be non-NULL
  43246. * here to prevent recursive entry to duk__refcount_free_pending().
  43247. */
  43248. DUK_ASSERT(heap->refzero_list != NULL);
  43249. duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) curr);
  43250. prev = DUK_HEAPHDR_GET_PREV(heap, curr);
  43251. DUK_ASSERT((prev == NULL && heap->refzero_list == curr) || \
  43252. (prev != NULL && heap->refzero_list != curr));
  43253. /* prev->next is intentionally not updated and is garbage. */
  43254. duk_free_hobject(heap, (duk_hobject *) curr); /* Invalidates 'curr'. */
  43255. curr = prev;
  43256. } while (curr != NULL);
  43257. heap->refzero_list = NULL;
  43258. DUK_DD(DUK_DDPRINT("refzero processed %ld objects", (long) count));
  43259. }
  43260. DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hobject(duk_heap *heap, duk_hobject *obj, duk_bool_t skip_free_pending) {
  43261. duk_heaphdr *hdr;
  43262. duk_heaphdr *root;
  43263. DUK_ASSERT(heap != NULL);
  43264. DUK_ASSERT(heap->heap_thread != NULL);
  43265. DUK_ASSERT(obj != NULL);
  43266. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) obj) == DUK_HTYPE_OBJECT);
  43267. hdr = (duk_heaphdr *) obj;
  43268. /* Refzero'd objects must be in heap_allocated. They can't be in
  43269. * finalize_list because all objects on finalize_list have an
  43270. * artificial +1 refcount bump.
  43271. */
  43272. #if defined(DUK_USE_ASSERTIONS)
  43273. DUK_ASSERT(duk_heap_in_heap_allocated(heap, (duk_heaphdr *) obj));
  43274. #endif
  43275. DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap, hdr);
  43276. #if defined(DUK_USE_FINALIZER_SUPPORT)
  43277. /* This finalizer check MUST BE side effect free. It should also be
  43278. * as fast as possible because it's applied to every object freed.
  43279. */
  43280. if (DUK_UNLIKELY(DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) hdr) != 0U)) {
  43281. /* Special case: FINALIZED may be set if mark-and-sweep queued
  43282. * object for finalization, the finalizer was executed (and
  43283. * FINALIZED set), mark-and-sweep hasn't yet processed the
  43284. * object again, but its refcount drops to zero. Free without
  43285. * running the finalizer again.
  43286. */
  43287. if (DUK_HEAPHDR_HAS_FINALIZED(hdr)) {
  43288. DUK_D(DUK_DPRINT("refzero'd object has finalizer and FINALIZED is set -> free"));
  43289. } else {
  43290. /* Set FINALIZABLE flag so that all objects on finalize_list
  43291. * will have it set and are thus detectable based on the
  43292. * flag alone.
  43293. */
  43294. DUK_HEAPHDR_SET_FINALIZABLE(hdr);
  43295. DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(hdr));
  43296. #if defined(DUK_USE_REFERENCE_COUNTING)
  43297. /* Bump refcount on finalize_list insert so that a
  43298. * refzero can never occur when an object is waiting
  43299. * for its finalizer call. Refzero might otherwise
  43300. * now happen because we allow duk_push_heapptr() for
  43301. * objects pending finalization.
  43302. */
  43303. DUK_HEAPHDR_PREINC_REFCOUNT(hdr);
  43304. #endif
  43305. DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap, hdr);
  43306. /* Process finalizers unless skipping is explicitly
  43307. * requested (NORZ) or refzero_list is being processed
  43308. * (avoids side effects during a refzero cascade).
  43309. * If refzero_list is processed, the initial refzero
  43310. * call will run pending finalizers when refzero_list
  43311. * is done.
  43312. */
  43313. if (!skip_free_pending && heap->refzero_list == NULL) {
  43314. duk_heap_process_finalize_list(heap);
  43315. }
  43316. return;
  43317. }
  43318. }
  43319. #endif /* DUK_USE_FINALIZER_SUPPORT */
  43320. /* No need to finalize, free object via refzero_list. */
  43321. root = heap->refzero_list;
  43322. DUK_HEAPHDR_SET_PREV(heap, hdr, NULL);
  43323. /* 'next' is left as GARBAGE. */
  43324. heap->refzero_list = hdr;
  43325. if (root == NULL) {
  43326. /* Object is now queued. Refzero_list was NULL so
  43327. * no-one is currently processing it; do it here.
  43328. * With refzero processing just doing a cascade of
  43329. * free calls, we can process it directly even when
  43330. * NORZ macros are used: there are no side effects.
  43331. */
  43332. duk__refcount_free_pending(heap);
  43333. DUK_ASSERT(heap->refzero_list == NULL);
  43334. /* Process finalizers only after the entire cascade
  43335. * is finished. In most cases there's nothing to
  43336. * finalize, so fast path check to avoid a call.
  43337. */
  43338. #if defined(DUK_USE_FINALIZER_SUPPORT)
  43339. if (!skip_free_pending && DUK_UNLIKELY(heap->finalize_list != NULL)) {
  43340. duk_heap_process_finalize_list(heap);
  43341. }
  43342. #endif
  43343. } else {
  43344. DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL);
  43345. DUK_HEAPHDR_SET_PREV(heap, root, hdr);
  43346. /* Object is now queued. Because refzero_list was
  43347. * non-NULL, it's already being processed by someone
  43348. * in the C call stack, so we're done.
  43349. */
  43350. }
  43351. }
  43352. #if defined(DUK_USE_FINALIZER_SUPPORT)
  43353. DUK_INTERNAL DUK_ALWAYS_INLINE void duk_refzero_check_fast(duk_hthread *thr) {
  43354. DUK_ASSERT(thr != NULL);
  43355. DUK_ASSERT(thr->heap != NULL);
  43356. DUK_ASSERT(thr->heap->refzero_list == NULL); /* Processed to completion inline. */
  43357. if (DUK_UNLIKELY(thr->heap->finalize_list != NULL)) {
  43358. duk_heap_process_finalize_list(thr->heap);
  43359. }
  43360. }
  43361. DUK_INTERNAL void duk_refzero_check_slow(duk_hthread *thr) {
  43362. DUK_ASSERT(thr != NULL);
  43363. DUK_ASSERT(thr->heap != NULL);
  43364. DUK_ASSERT(thr->heap->refzero_list == NULL); /* Processed to completion inline. */
  43365. if (DUK_UNLIKELY(thr->heap->finalize_list != NULL)) {
  43366. duk_heap_process_finalize_list(thr->heap);
  43367. }
  43368. }
  43369. #endif /* DUK_USE_FINALIZER_SUPPORT */
  43370. /*
  43371. * Refzero processing for duk_hstring.
  43372. */
  43373. DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hstring(duk_heap *heap, duk_hstring *str) {
  43374. DUK_ASSERT(heap != NULL);
  43375. DUK_ASSERT(heap->heap_thread != NULL);
  43376. DUK_ASSERT(str != NULL);
  43377. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) str) == DUK_HTYPE_STRING);
  43378. duk_heap_strcache_string_remove(heap, str);
  43379. duk_heap_strtable_unlink(heap, str);
  43380. duk_free_hstring(heap, str);
  43381. }
  43382. /*
  43383. * Refzero processing for duk_hbuffer.
  43384. */
  43385. DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hbuffer(duk_heap *heap, duk_hbuffer *buf) {
  43386. DUK_ASSERT(heap != NULL);
  43387. DUK_ASSERT(heap->heap_thread != NULL);
  43388. DUK_ASSERT(buf != NULL);
  43389. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) buf) == DUK_HTYPE_BUFFER);
  43390. DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap, (duk_heaphdr *) buf);
  43391. duk_free_hbuffer(heap, buf);
  43392. }
  43393. /*
  43394. * Incref and decref functions.
  43395. *
  43396. * Decref may trigger immediate refzero handling, which may free and finalize
  43397. * an arbitrary number of objects (a "DECREF cascade").
  43398. *
  43399. * Refzero handling is skipped entirely if (1) mark-and-sweep is running or
  43400. * (2) execution is paused in the debugger. The objects are left in the heap,
  43401. * and will be freed by mark-and-sweep or eventual heap destruction.
  43402. *
  43403. * This is necessary during mark-and-sweep because refcounts are also updated
  43404. * during the sweep phase (otherwise objects referenced by a swept object
  43405. * would have incorrect refcounts) which then calls here. This could be
  43406. * avoided by using separate decref macros in mark-and-sweep; however,
  43407. * mark-and-sweep also calls finalizers which would use the ordinary decref
  43408. * macros anyway.
  43409. *
  43410. * We can't process refzeros (= free objects) when the debugger is running
  43411. * as the debugger might make an object unreachable but still continue
  43412. * inspecting it (or even cause it to be pushed back). So we must rely on
  43413. * mark-and-sweep to collect them.
  43414. *
  43415. * The DUK__RZ_SUPPRESS_CHECK() condition is also used in heap destruction
  43416. * when running finalizers for remaining objects: the flag prevents objects
  43417. * from being moved around in heap linked lists while that's being done.
  43418. *
  43419. * The suppress condition is important to performance.
  43420. */
  43421. #define DUK__RZ_SUPPRESS_ASSERT1() do { \
  43422. DUK_ASSERT(thr != NULL); \
  43423. DUK_ASSERT(thr->heap != NULL); \
  43424. /* When mark-and-sweep runs, heap_thread must exist. */ \
  43425. DUK_ASSERT(thr->heap->ms_running == 0 || thr->heap->heap_thread != NULL); \
  43426. /* When mark-and-sweep runs, the 'thr' argument always matches heap_thread. \
  43427. * This could be used to e.g. suppress check against 'thr' directly (and \
  43428. * knowing it would be heap_thread); not really used now. \
  43429. */ \
  43430. DUK_ASSERT(thr->heap->ms_running == 0 || thr == thr->heap->heap_thread); \
  43431. /* We may be called when the heap is initializing and we process \
  43432. * refzeros normally, but mark-and-sweep and finalizers are prevented \
  43433. * if that's the case. \
  43434. */ \
  43435. DUK_ASSERT(thr->heap->heap_initializing == 0 || thr->heap->ms_prevent_count > 0); \
  43436. DUK_ASSERT(thr->heap->heap_initializing == 0 || thr->heap->pf_prevent_count > 0); \
  43437. } while (0)
  43438. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  43439. #define DUK__RZ_SUPPRESS_ASSERT2() do { \
  43440. /* When debugger is paused, ms_running is set. */ \
  43441. DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || thr->heap->ms_running != 0); \
  43442. } while (0)
  43443. #define DUK__RZ_SUPPRESS_COND() (heap->ms_running != 0)
  43444. #else
  43445. #define DUK__RZ_SUPPRESS_ASSERT2() do { } while (0)
  43446. #define DUK__RZ_SUPPRESS_COND() (heap->ms_running != 0)
  43447. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  43448. #define DUK__RZ_SUPPRESS_CHECK() do { \
  43449. DUK__RZ_SUPPRESS_ASSERT1(); \
  43450. DUK__RZ_SUPPRESS_ASSERT2(); \
  43451. if (DUK_UNLIKELY(DUK__RZ_SUPPRESS_COND())) { \
  43452. DUK_DDD(DUK_DDDPRINT("refzero handling suppressed (not even queued) when mark-and-sweep running, object: %p", (void *) h)); \
  43453. return; \
  43454. } \
  43455. } while (0)
  43456. #define DUK__RZ_STRING() do { \
  43457. duk__refcount_refzero_hstring(heap, (duk_hstring *) h); \
  43458. } while (0)
  43459. #define DUK__RZ_BUFFER() do { \
  43460. duk__refcount_refzero_hbuffer(heap, (duk_hbuffer *) h); \
  43461. } while (0)
  43462. #define DUK__RZ_OBJECT() do { \
  43463. duk__refcount_refzero_hobject(heap, (duk_hobject *) h, skip_free_pending); \
  43464. } while (0)
  43465. /* XXX: test the effect of inlining here vs. NOINLINE in refzero helpers */
  43466. #if defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  43467. #define DUK__RZ_INLINE DUK_ALWAYS_INLINE
  43468. #else
  43469. #define DUK__RZ_INLINE /*nop*/
  43470. #endif
  43471. DUK_LOCAL DUK__RZ_INLINE void duk__hstring_refzero_helper(duk_hthread *thr, duk_hstring *h) {
  43472. duk_heap *heap;
  43473. DUK_ASSERT(thr != NULL);
  43474. DUK_ASSERT(h != NULL);
  43475. heap = thr->heap;
  43476. DUK__RZ_SUPPRESS_CHECK();
  43477. DUK__RZ_STRING();
  43478. }
  43479. DUK_LOCAL DUK__RZ_INLINE void duk__hbuffer_refzero_helper(duk_hthread *thr, duk_hbuffer *h) {
  43480. duk_heap *heap;
  43481. DUK_ASSERT(thr != NULL);
  43482. DUK_ASSERT(h != NULL);
  43483. heap = thr->heap;
  43484. DUK__RZ_SUPPRESS_CHECK();
  43485. DUK__RZ_BUFFER();
  43486. }
  43487. DUK_LOCAL DUK__RZ_INLINE void duk__hobject_refzero_helper(duk_hthread *thr, duk_hobject *h, duk_bool_t skip_free_pending) {
  43488. duk_heap *heap;
  43489. DUK_ASSERT(thr != NULL);
  43490. DUK_ASSERT(h != NULL);
  43491. heap = thr->heap;
  43492. DUK__RZ_SUPPRESS_CHECK();
  43493. DUK__RZ_OBJECT();
  43494. }
  43495. DUK_LOCAL DUK__RZ_INLINE void duk__heaphdr_refzero_helper(duk_hthread *thr, duk_heaphdr *h, duk_bool_t skip_free_pending) {
  43496. duk_heap *heap;
  43497. duk_small_uint_t htype;
  43498. DUK_ASSERT(thr != NULL);
  43499. DUK_ASSERT(h != NULL);
  43500. heap = thr->heap;
  43501. htype = (duk_small_uint_t) DUK_HEAPHDR_GET_TYPE(h);
  43502. DUK__RZ_SUPPRESS_CHECK();
  43503. switch (htype) {
  43504. case DUK_HTYPE_STRING:
  43505. /* Strings have no internal references but do have "weak"
  43506. * references in the string cache. Also note that strings
  43507. * are not on the heap_allocated list like other heap
  43508. * elements.
  43509. */
  43510. DUK__RZ_STRING();
  43511. break;
  43512. case DUK_HTYPE_OBJECT:
  43513. /* Objects have internal references. Must finalize through
  43514. * the "refzero" work list.
  43515. */
  43516. DUK__RZ_OBJECT();
  43517. break;
  43518. default:
  43519. /* Buffers have no internal references. However, a dynamic
  43520. * buffer has a separate allocation for the buffer. This is
  43521. * freed by duk_heap_free_heaphdr_raw().
  43522. */
  43523. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(h) == DUK_HTYPE_BUFFER);
  43524. DUK__RZ_BUFFER();
  43525. break;
  43526. }
  43527. }
  43528. DUK_INTERNAL DUK_NOINLINE void duk_heaphdr_refzero(duk_hthread *thr, duk_heaphdr *h) {
  43529. duk__heaphdr_refzero_helper(thr, h, 0 /*skip_free_pending*/);
  43530. }
  43531. DUK_INTERNAL DUK_NOINLINE void duk_heaphdr_refzero_norz(duk_hthread *thr, duk_heaphdr *h) {
  43532. duk__heaphdr_refzero_helper(thr, h, 1 /*skip_free_pending*/);
  43533. }
  43534. DUK_INTERNAL DUK_NOINLINE void duk_hstring_refzero(duk_hthread *thr, duk_hstring *h) {
  43535. duk__hstring_refzero_helper(thr, h);
  43536. }
  43537. DUK_INTERNAL DUK_NOINLINE void duk_hbuffer_refzero(duk_hthread *thr, duk_hbuffer *h) {
  43538. duk__hbuffer_refzero_helper(thr, h);
  43539. }
  43540. DUK_INTERNAL DUK_NOINLINE void duk_hobject_refzero(duk_hthread *thr, duk_hobject *h) {
  43541. duk__hobject_refzero_helper(thr, h, 0 /*skip_free_pending*/);
  43542. }
  43543. DUK_INTERNAL DUK_NOINLINE void duk_hobject_refzero_norz(duk_hthread *thr, duk_hobject *h) {
  43544. duk__hobject_refzero_helper(thr, h, 1 /*skip_free_pending*/);
  43545. }
  43546. #if !defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  43547. DUK_INTERNAL void duk_tval_incref(duk_tval *tv) {
  43548. DUK_ASSERT(tv != NULL);
  43549. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) {
  43550. duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv);
  43551. DUK_ASSERT(h != NULL);
  43552. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
  43553. DUK_ASSERT_DISABLE(h->h_refcount >= 0);
  43554. DUK_HEAPHDR_PREINC_REFCOUNT(h);
  43555. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) != 0); /* No wrapping. */
  43556. }
  43557. }
  43558. DUK_INTERNAL void duk_tval_decref(duk_hthread *thr, duk_tval *tv) {
  43559. DUK_ASSERT(thr != NULL);
  43560. DUK_ASSERT(tv != NULL);
  43561. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) {
  43562. duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv);
  43563. DUK_ASSERT(h != NULL);
  43564. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
  43565. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) >= 1);
  43566. #if 0
  43567. if (DUK_HEAPHDR_PREDEC_REFCOUNT(h) != 0) {
  43568. return;
  43569. }
  43570. duk_heaphdr_refzero(thr, h);
  43571. #else
  43572. duk_heaphdr_decref(thr, h);
  43573. #endif
  43574. }
  43575. }
  43576. DUK_INTERNAL void duk_tval_decref_norz(duk_hthread *thr, duk_tval *tv) {
  43577. DUK_ASSERT(thr != NULL);
  43578. DUK_ASSERT(tv != NULL);
  43579. if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) {
  43580. duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv);
  43581. DUK_ASSERT(h != NULL);
  43582. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
  43583. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) >= 1);
  43584. #if 0
  43585. if (DUK_HEAPHDR_PREDEC_REFCOUNT(h) != 0) {
  43586. return;
  43587. }
  43588. duk_heaphdr_refzero_norz(thr, h);
  43589. #else
  43590. duk_heaphdr_decref_norz(thr, h);
  43591. #endif
  43592. }
  43593. }
  43594. #endif /* !DUK_USE_FAST_REFCOUNT_DEFAULT */
  43595. #define DUK__DECREF_ASSERTS() do { \
  43596. DUK_ASSERT(thr != NULL); \
  43597. DUK_ASSERT(thr->heap != NULL); \
  43598. DUK_ASSERT(h != NULL); \
  43599. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID((duk_heaphdr *) h)); \
  43600. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) >= 1); \
  43601. } while (0)
  43602. #if defined(DUK_USE_ROM_OBJECTS)
  43603. #define DUK__INCREF_SHARED() do { \
  43604. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { \
  43605. return; \
  43606. } \
  43607. DUK_HEAPHDR_PREINC_REFCOUNT((duk_heaphdr *) h); \
  43608. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) != 0); /* No wrapping. */ \
  43609. } while (0)
  43610. #define DUK__DECREF_SHARED() do { \
  43611. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { \
  43612. return; \
  43613. } \
  43614. if (DUK_HEAPHDR_PREDEC_REFCOUNT((duk_heaphdr *) h) != 0) { \
  43615. return; \
  43616. } \
  43617. } while (0)
  43618. #else
  43619. #define DUK__INCREF_SHARED() do { \
  43620. DUK_HEAPHDR_PREINC_REFCOUNT((duk_heaphdr *) h); \
  43621. DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) != 0); /* No wrapping. */ \
  43622. } while (0)
  43623. #define DUK__DECREF_SHARED() do { \
  43624. if (DUK_HEAPHDR_PREDEC_REFCOUNT((duk_heaphdr *) h) != 0) { \
  43625. return; \
  43626. } \
  43627. } while (0)
  43628. #endif
  43629. #if !defined(DUK_USE_FAST_REFCOUNT_DEFAULT)
  43630. /* This will in practice be inlined because it's just an INC instructions
  43631. * and a bit test + INC when ROM objects are enabled.
  43632. */
  43633. DUK_INTERNAL void duk_heaphdr_incref(duk_heaphdr *h) {
  43634. DUK_ASSERT(h != NULL);
  43635. DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
  43636. DUK_ASSERT_DISABLE(DUK_HEAPHDR_GET_REFCOUNT(h) >= 0);
  43637. DUK__INCREF_SHARED();
  43638. }
  43639. DUK_INTERNAL void duk_heaphdr_decref(duk_hthread *thr, duk_heaphdr *h) {
  43640. DUK__DECREF_ASSERTS();
  43641. DUK__DECREF_SHARED();
  43642. duk_heaphdr_refzero(thr, h);
  43643. /* Forced mark-and-sweep when GC torture enabled; this could happen
  43644. * on any DECREF (but not DECREF_NORZ).
  43645. */
  43646. DUK_GC_TORTURE(thr->heap);
  43647. }
  43648. DUK_INTERNAL void duk_heaphdr_decref_norz(duk_hthread *thr, duk_heaphdr *h) {
  43649. DUK__DECREF_ASSERTS();
  43650. DUK__DECREF_SHARED();
  43651. duk_heaphdr_refzero_norz(thr, h);
  43652. }
  43653. #endif /* !DUK_USE_FAST_REFCOUNT_DEFAULT */
  43654. #if 0 /* Not needed. */
  43655. DUK_INTERNAL void duk_hstring_decref(duk_hthread *thr, duk_hstring *h) {
  43656. DUK__DECREF_ASSERTS();
  43657. DUK__DECREF_SHARED();
  43658. duk_hstring_refzero(thr, h);
  43659. }
  43660. DUK_INTERNAL void duk_hstring_decref_norz(duk_hthread *thr, duk_hstring *h) {
  43661. DUK__DECREF_ASSERTS();
  43662. DUK__DECREF_SHARED();
  43663. duk_hstring_refzero_norz(thr, h);
  43664. }
  43665. DUK_INTERNAL void duk_hbuffer_decref(duk_hthread *thr, duk_hbuffer *h) {
  43666. DUK__DECREF_ASSERTS();
  43667. DUK__DECREF_SHARED();
  43668. duk_hbuffer_refzero(thr, h);
  43669. }
  43670. DUK_INTERNAL void duk_hbuffer_decref_norz(duk_hthread *thr, duk_hbuffer *h) {
  43671. DUK__DECREF_ASSERTS();
  43672. DUK__DECREF_SHARED();
  43673. duk_hbuffer_refzero_norz(thr, h);
  43674. }
  43675. DUK_INTERNAL void duk_hobject_decref(duk_hthread *thr, duk_hobject *h) {
  43676. DUK__DECREF_ASSERTS();
  43677. DUK__DECREF_SHARED();
  43678. duk_hobject_refzero(thr, h);
  43679. }
  43680. DUK_INTERNAL void duk_hobject_decref_norz(duk_hthread *thr, duk_hobject *h) {
  43681. DUK__DECREF_ASSERTS();
  43682. DUK__DECREF_SHARED();
  43683. duk_hobject_refzero_norz(thr, h);
  43684. }
  43685. #endif
  43686. #else /* DUK_USE_REFERENCE_COUNTING */
  43687. /* no refcounting */
  43688. #endif /* DUK_USE_REFERENCE_COUNTING */
  43689. /* automatic undefs */
  43690. #undef DUK__DECREF_ASSERTS
  43691. #undef DUK__DECREF_SHARED
  43692. #undef DUK__INCREF_SHARED
  43693. #undef DUK__RZ_BUFFER
  43694. #undef DUK__RZ_INLINE
  43695. #undef DUK__RZ_OBJECT
  43696. #undef DUK__RZ_STRING
  43697. #undef DUK__RZ_SUPPRESS_ASSERT1
  43698. #undef DUK__RZ_SUPPRESS_ASSERT2
  43699. #undef DUK__RZ_SUPPRESS_CHECK
  43700. #undef DUK__RZ_SUPPRESS_COND
  43701. #line 1 "duk_heap_stringcache.c"
  43702. /*
  43703. * String cache.
  43704. *
  43705. * Provides a cache to optimize indexed string lookups. The cache keeps
  43706. * track of (byte offset, char offset) states for a fixed number of strings.
  43707. * Otherwise we'd need to scan from either end of the string, as we store
  43708. * strings in (extended) UTF-8.
  43709. */
  43710. /* #include duk_internal.h -> already included */
  43711. /*
  43712. * Delete references to given hstring from the heap string cache.
  43713. *
  43714. * String cache references are 'weak': they are not counted towards
  43715. * reference counts, nor serve as roots for mark-and-sweep. When an
  43716. * object is about to be freed, such references need to be removed.
  43717. */
  43718. DUK_INTERNAL void duk_heap_strcache_string_remove(duk_heap *heap, duk_hstring *h) {
  43719. duk_small_int_t i;
  43720. for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) {
  43721. duk_strcache *c = heap->strcache + i;
  43722. if (c->h == h) {
  43723. DUK_DD(DUK_DDPRINT("deleting weak strcache reference to hstring %p from heap %p",
  43724. (void *) h, (void *) heap));
  43725. c->h = NULL;
  43726. /* XXX: the string shouldn't appear twice, but we now loop to the
  43727. * end anyway; if fixed, add a looping assertion to ensure there
  43728. * is no duplicate.
  43729. */
  43730. }
  43731. }
  43732. }
  43733. /*
  43734. * String scanning helpers
  43735. *
  43736. * All bytes other than UTF-8 continuation bytes ([0x80,0xbf]) are
  43737. * considered to contribute a character. This must match how string
  43738. * character length is computed.
  43739. */
  43740. DUK_LOCAL const duk_uint8_t *duk__scan_forwards(const duk_uint8_t *p, const duk_uint8_t *q, duk_uint_fast32_t n) {
  43741. while (n > 0) {
  43742. for (;;) {
  43743. p++;
  43744. if (p >= q) {
  43745. return NULL;
  43746. }
  43747. if ((*p & 0xc0) != 0x80) {
  43748. break;
  43749. }
  43750. }
  43751. n--;
  43752. }
  43753. return p;
  43754. }
  43755. DUK_LOCAL const duk_uint8_t *duk__scan_backwards(const duk_uint8_t *p, const duk_uint8_t *q, duk_uint_fast32_t n) {
  43756. while (n > 0) {
  43757. for (;;) {
  43758. p--;
  43759. if (p < q) {
  43760. return NULL;
  43761. }
  43762. if ((*p & 0xc0) != 0x80) {
  43763. break;
  43764. }
  43765. }
  43766. n--;
  43767. }
  43768. return p;
  43769. }
  43770. /*
  43771. * Convert char offset to byte offset
  43772. *
  43773. * Avoid using the string cache if possible: for ASCII strings byte and
  43774. * char offsets are equal and for short strings direct scanning may be
  43775. * better than using the string cache (which may evict a more important
  43776. * entry).
  43777. *
  43778. * Typing now assumes 32-bit string byte/char offsets (duk_uint_fast32_t).
  43779. * Better typing might be to use duk_size_t.
  43780. *
  43781. * Caller should ensure 'char_offset' is within the string bounds [0,charlen]
  43782. * (endpoint is inclusive). If this is not the case, no memory unsafe
  43783. * behavior will happen but an error will be thrown.
  43784. */
  43785. DUK_INTERNAL duk_uint_fast32_t duk_heap_strcache_offset_char2byte(duk_hthread *thr, duk_hstring *h, duk_uint_fast32_t char_offset) {
  43786. duk_heap *heap;
  43787. duk_strcache *sce;
  43788. duk_uint_fast32_t byte_offset;
  43789. duk_small_int_t i;
  43790. duk_bool_t use_cache;
  43791. duk_uint_fast32_t dist_start, dist_end, dist_sce;
  43792. duk_uint_fast32_t char_length;
  43793. const duk_uint8_t *p_start;
  43794. const duk_uint8_t *p_end;
  43795. const duk_uint8_t *p_found;
  43796. /*
  43797. * For ASCII strings, the answer is simple.
  43798. */
  43799. if (DUK_LIKELY(DUK_HSTRING_IS_ASCII(h))) {
  43800. return char_offset;
  43801. }
  43802. char_length = (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h);
  43803. DUK_ASSERT(char_offset <= char_length);
  43804. if (DUK_LIKELY(DUK_HSTRING_IS_ASCII(h))) {
  43805. /* Must recheck because the 'is ascii' flag may be set
  43806. * lazily. Alternatively, we could just compare charlen
  43807. * to bytelen.
  43808. */
  43809. return char_offset;
  43810. }
  43811. /*
  43812. * For non-ASCII strings, we need to scan forwards or backwards
  43813. * from some starting point. The starting point may be the start
  43814. * or end of the string, or some cached midpoint in the string
  43815. * cache.
  43816. *
  43817. * For "short" strings we simply scan without checking or updating
  43818. * the cache. For longer strings we check and update the cache as
  43819. * necessary, inserting a new cache entry if none exists.
  43820. */
  43821. DUK_DDD(DUK_DDDPRINT("non-ascii string %p, char_offset=%ld, clen=%ld, blen=%ld",
  43822. (void *) h, (long) char_offset,
  43823. (long) DUK_HSTRING_GET_CHARLEN(h),
  43824. (long) DUK_HSTRING_GET_BYTELEN(h)));
  43825. heap = thr->heap;
  43826. sce = NULL;
  43827. use_cache = (char_length > DUK_HEAP_STRINGCACHE_NOCACHE_LIMIT);
  43828. if (use_cache) {
  43829. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  43830. DUK_DDD(DUK_DDDPRINT("stringcache before char2byte (using cache):"));
  43831. for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) {
  43832. duk_strcache *c = heap->strcache + i;
  43833. DUK_DDD(DUK_DDDPRINT(" [%ld] -> h=%p, cidx=%ld, bidx=%ld",
  43834. (long) i, (void *) c->h, (long) c->cidx, (long) c->bidx));
  43835. }
  43836. #endif
  43837. for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) {
  43838. duk_strcache *c = heap->strcache + i;
  43839. if (c->h == h) {
  43840. sce = c;
  43841. break;
  43842. }
  43843. }
  43844. }
  43845. /*
  43846. * Scan from shortest distance:
  43847. * - start of string
  43848. * - end of string
  43849. * - cache entry (if exists)
  43850. */
  43851. DUK_ASSERT(DUK_HSTRING_GET_CHARLEN(h) >= char_offset);
  43852. dist_start = char_offset;
  43853. dist_end = char_length - char_offset;
  43854. dist_sce = 0; DUK_UNREF(dist_sce); /* initialize for debug prints, needed if sce==NULL */
  43855. p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  43856. p_end = (const duk_uint8_t *) (p_start + DUK_HSTRING_GET_BYTELEN(h));
  43857. p_found = NULL;
  43858. if (sce) {
  43859. if (char_offset >= sce->cidx) {
  43860. dist_sce = char_offset - sce->cidx;
  43861. if ((dist_sce <= dist_start) && (dist_sce <= dist_end)) {
  43862. DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, "
  43863. "dist_start=%ld, dist_end=%ld, dist_sce=%ld => "
  43864. "scan forwards from sce",
  43865. (long) use_cache, (void *) (sce ? sce->h : NULL),
  43866. (sce ? (long) sce->cidx : (long) -1),
  43867. (sce ? (long) sce->bidx : (long) -1),
  43868. (long) dist_start, (long) dist_end, (long) dist_sce));
  43869. p_found = duk__scan_forwards(p_start + sce->bidx,
  43870. p_end,
  43871. dist_sce);
  43872. goto scan_done;
  43873. }
  43874. } else {
  43875. dist_sce = sce->cidx - char_offset;
  43876. if ((dist_sce <= dist_start) && (dist_sce <= dist_end)) {
  43877. DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, "
  43878. "dist_start=%ld, dist_end=%ld, dist_sce=%ld => "
  43879. "scan backwards from sce",
  43880. (long) use_cache, (void *) (sce ? sce->h : NULL),
  43881. (sce ? (long) sce->cidx : (long) -1),
  43882. (sce ? (long) sce->bidx : (long) -1),
  43883. (long) dist_start, (long) dist_end, (long) dist_sce));
  43884. p_found = duk__scan_backwards(p_start + sce->bidx,
  43885. p_start,
  43886. dist_sce);
  43887. goto scan_done;
  43888. }
  43889. }
  43890. }
  43891. /* no sce, or sce scan not best */
  43892. if (dist_start <= dist_end) {
  43893. DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, "
  43894. "dist_start=%ld, dist_end=%ld, dist_sce=%ld => "
  43895. "scan forwards from string start",
  43896. (long) use_cache, (void *) (sce ? sce->h : NULL),
  43897. (sce ? (long) sce->cidx : (long) -1),
  43898. (sce ? (long) sce->bidx : (long) -1),
  43899. (long) dist_start, (long) dist_end, (long) dist_sce));
  43900. p_found = duk__scan_forwards(p_start,
  43901. p_end,
  43902. dist_start);
  43903. } else {
  43904. DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, "
  43905. "dist_start=%ld, dist_end=%ld, dist_sce=%ld => "
  43906. "scan backwards from string end",
  43907. (long) use_cache, (void *) (sce ? sce->h : NULL),
  43908. (sce ? (long) sce->cidx : (long) -1),
  43909. (sce ? (long) sce->bidx : (long) -1),
  43910. (long) dist_start, (long) dist_end, (long) dist_sce));
  43911. p_found = duk__scan_backwards(p_end,
  43912. p_start,
  43913. dist_end);
  43914. }
  43915. scan_done:
  43916. if (DUK_UNLIKELY(p_found == NULL)) {
  43917. /* Scan error: this shouldn't normally happen; it could happen if
  43918. * string is not valid UTF-8 data, and clen/blen are not consistent
  43919. * with the scanning algorithm.
  43920. */
  43921. goto scan_error;
  43922. }
  43923. DUK_ASSERT(p_found >= p_start);
  43924. DUK_ASSERT(p_found <= p_end); /* may be equal */
  43925. byte_offset = (duk_uint32_t) (p_found - p_start);
  43926. DUK_DDD(DUK_DDDPRINT("-> string %p, cidx %ld -> bidx %ld",
  43927. (void *) h, (long) char_offset, (long) byte_offset));
  43928. /*
  43929. * Update cache entry (allocating if necessary), and move the
  43930. * cache entry to the first place (in an "LRU" policy).
  43931. */
  43932. if (use_cache) {
  43933. /* update entry, allocating if necessary */
  43934. if (!sce) {
  43935. sce = heap->strcache + DUK_HEAP_STRCACHE_SIZE - 1; /* take last entry */
  43936. sce->h = h;
  43937. }
  43938. DUK_ASSERT(sce != NULL);
  43939. sce->bidx = (duk_uint32_t) (p_found - p_start);
  43940. sce->cidx = (duk_uint32_t) char_offset;
  43941. /* LRU: move our entry to first */
  43942. if (sce > &heap->strcache[0]) {
  43943. /*
  43944. * A C
  43945. * B A
  43946. * C <- sce ==> B
  43947. * D D
  43948. */
  43949. duk_strcache tmp;
  43950. tmp = *sce;
  43951. DUK_MEMMOVE((void *) (&heap->strcache[1]),
  43952. (const void *) (&heap->strcache[0]),
  43953. (size_t) (((char *) sce) - ((char *) &heap->strcache[0])));
  43954. heap->strcache[0] = tmp;
  43955. /* 'sce' points to the wrong entry here, but is no longer used */
  43956. }
  43957. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  43958. DUK_DDD(DUK_DDDPRINT("stringcache after char2byte (using cache):"));
  43959. for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) {
  43960. duk_strcache *c = heap->strcache + i;
  43961. DUK_DDD(DUK_DDDPRINT(" [%ld] -> h=%p, cidx=%ld, bidx=%ld",
  43962. (long) i, (void *) c->h, (long) c->cidx, (long) c->bidx));
  43963. }
  43964. #endif
  43965. }
  43966. return byte_offset;
  43967. scan_error:
  43968. DUK_ERROR_INTERNAL(thr);
  43969. return 0;
  43970. }
  43971. #line 1 "duk_heap_stringtable.c"
  43972. /*
  43973. * Heap string table handling, string interning.
  43974. */
  43975. /* #include duk_internal.h -> already included */
  43976. /* Resize checks not needed if minsize == maxsize, typical for low memory
  43977. * targets.
  43978. */
  43979. #define DUK__STRTAB_RESIZE_CHECK
  43980. #if (DUK_USE_STRTAB_MINSIZE == DUK_USE_STRTAB_MAXSIZE)
  43981. #undef DUK__STRTAB_RESIZE_CHECK
  43982. #endif
  43983. #if defined(DUK_USE_STRTAB_PTRCOMP)
  43984. #define DUK__HEAPPTR_ENC16(heap,ptr) DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (ptr))
  43985. #define DUK__HEAPPTR_DEC16(heap,val) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (val))
  43986. #define DUK__GET_STRTABLE(heap) ((heap)->strtable16)
  43987. #else
  43988. #define DUK__HEAPPTR_ENC16(heap,ptr) (ptr)
  43989. #define DUK__HEAPPTR_DEC16(heap,val) (val)
  43990. #define DUK__GET_STRTABLE(heap) ((heap)->strtable)
  43991. #endif
  43992. #define DUK__STRTAB_U32_MAX_STRLEN 10 /* 4'294'967'295 */
  43993. /*
  43994. * Debug dump stringtable.
  43995. */
  43996. #if defined(DUK_USE_DEBUG)
  43997. DUK_INTERNAL void duk_heap_strtable_dump(duk_heap *heap) {
  43998. #if defined(DUK_USE_STRTAB_PTRCOMP)
  43999. duk_uint16_t *strtable;
  44000. #else
  44001. duk_hstring **strtable;
  44002. #endif
  44003. duk_uint32_t i;
  44004. duk_hstring *h;
  44005. duk_size_t count_total = 0;
  44006. duk_size_t count_chain;
  44007. duk_size_t count_chain_min = DUK_SIZE_MAX;
  44008. duk_size_t count_chain_max = 0;
  44009. duk_size_t count_len[8]; /* chain lengths from 0 to 7 */
  44010. if (heap == NULL) {
  44011. DUK_D(DUK_DPRINT("string table, heap=NULL"));
  44012. return;
  44013. }
  44014. strtable = DUK__GET_STRTABLE(heap);
  44015. if (strtable == NULL) {
  44016. DUK_D(DUK_DPRINT("string table, strtab=NULL"));
  44017. return;
  44018. }
  44019. DUK_MEMZERO((void *) count_len, sizeof(count_len));
  44020. for (i = 0; i < heap->st_size; i++) {
  44021. h = DUK__HEAPPTR_DEC16(heap, strtable[i]);
  44022. count_chain = 0;
  44023. while (h != NULL) {
  44024. count_chain++;
  44025. h = h->hdr.h_next;
  44026. }
  44027. if (count_chain < sizeof(count_len) / sizeof(duk_size_t)) {
  44028. count_len[count_chain]++;
  44029. }
  44030. count_chain_max = (count_chain > count_chain_max ? count_chain : count_chain_max);
  44031. count_chain_min = (count_chain < count_chain_min ? count_chain : count_chain_min);
  44032. count_total += count_chain;
  44033. }
  44034. DUK_D(DUK_DPRINT("string table, strtab=%p, count=%lu, chain min=%lu max=%lu avg=%lf: "
  44035. "counts: %lu %lu %lu %lu %lu %lu %lu %lu ...",
  44036. (void *) heap->strtable, (unsigned long) count_total,
  44037. (unsigned long) count_chain_min, (unsigned long) count_chain_max,
  44038. (double) count_total / (double) heap->st_size,
  44039. (unsigned long) count_len[0], (unsigned long) count_len[1],
  44040. (unsigned long) count_len[2], (unsigned long) count_len[3],
  44041. (unsigned long) count_len[4], (unsigned long) count_len[5],
  44042. (unsigned long) count_len[6], (unsigned long) count_len[7]));
  44043. }
  44044. #endif /* DUK_USE_DEBUG */
  44045. /*
  44046. * Assertion helper to ensure strtable is populated correctly.
  44047. */
  44048. #if defined(DUK_USE_ASSERTIONS)
  44049. DUK_LOCAL void duk__strtable_assert_checks(duk_heap *heap) {
  44050. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44051. duk_uint16_t *strtable;
  44052. #else
  44053. duk_hstring **strtable;
  44054. #endif
  44055. duk_uint32_t i;
  44056. duk_hstring *h;
  44057. duk_size_t count = 0;
  44058. DUK_ASSERT(heap != NULL);
  44059. strtable = DUK__GET_STRTABLE(heap);
  44060. if (strtable != NULL) {
  44061. DUK_ASSERT(heap->st_size != 0);
  44062. DUK_ASSERT(heap->st_mask == heap->st_size - 1);
  44063. for (i = 0; i < heap->st_size; i++) {
  44064. h = DUK__HEAPPTR_DEC16(heap, strtable[i]);
  44065. while (h != NULL) {
  44066. DUK_ASSERT((DUK_HSTRING_GET_HASH(h) & heap->st_mask) == i);
  44067. count++;
  44068. h = h->hdr.h_next;
  44069. }
  44070. }
  44071. } else {
  44072. DUK_ASSERT(heap->st_size == 0);
  44073. DUK_ASSERT(heap->st_mask == 0);
  44074. }
  44075. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44076. DUK_ASSERT(count == (duk_size_t) heap->st_count);
  44077. #endif
  44078. }
  44079. #endif /* DUK_USE_ASSERTIONS */
  44080. /*
  44081. * Allocate and initialize a duk_hstring.
  44082. *
  44083. * Returns a NULL if allocation or initialization fails for some reason.
  44084. *
  44085. * The string won't be inserted into the string table and isn't tracked in
  44086. * any way (link pointers will be NULL). The caller must place the string
  44087. * into the string table without any risk of a longjmp, otherwise the string
  44088. * is leaked.
  44089. */
  44090. DUK_LOCAL duk_hstring *duk__strtable_alloc_hstring(duk_heap *heap,
  44091. const duk_uint8_t *str,
  44092. duk_uint32_t blen,
  44093. duk_uint32_t strhash,
  44094. const duk_uint8_t *extdata) {
  44095. duk_hstring *res;
  44096. const duk_uint8_t *data;
  44097. #if !defined(DUK_USE_HSTRING_ARRIDX)
  44098. duk_uarridx_t dummy;
  44099. #endif
  44100. DUK_ASSERT(heap != NULL);
  44101. DUK_UNREF(extdata);
  44102. #if defined(DUK_USE_STRLEN16)
  44103. /* If blen <= 0xffffUL, clen is also guaranteed to be <= 0xffffUL. */
  44104. if (blen > 0xffffUL) {
  44105. DUK_D(DUK_DPRINT("16-bit string blen/clen active and blen over 16 bits, reject intern"));
  44106. goto alloc_error;
  44107. }
  44108. #endif
  44109. /* XXX: Memzeroing the allocated structure is not really necessary
  44110. * because we could just initialize all fields explicitly (almost
  44111. * all fields are initialized explicitly anyway).
  44112. */
  44113. #if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK)
  44114. if (extdata) {
  44115. res = (duk_hstring *) DUK_ALLOC(heap, sizeof(duk_hstring_external));
  44116. if (DUK_UNLIKELY(res == NULL)) {
  44117. goto alloc_error;
  44118. }
  44119. DUK_MEMZERO(res, sizeof(duk_hstring_external));
  44120. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44121. DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr);
  44122. #endif
  44123. DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, DUK_HSTRING_FLAG_EXTDATA);
  44124. DUK_ASSERT(extdata[blen] == 0); /* Application responsibility. */
  44125. data = extdata;
  44126. ((duk_hstring_external *) res)->extdata = extdata;
  44127. } else
  44128. #endif /* DUK_USE_HSTRING_EXTDATA && DUK_USE_EXTSTR_INTERN_CHECK */
  44129. {
  44130. duk_uint8_t *data_tmp;
  44131. /* NUL terminate for convenient C access */
  44132. DUK_ASSERT(sizeof(duk_hstring) + blen + 1 > blen); /* No wrap, limits ensure. */
  44133. res = (duk_hstring *) DUK_ALLOC(heap, sizeof(duk_hstring) + blen + 1);
  44134. if (DUK_UNLIKELY(res == NULL)) {
  44135. goto alloc_error;
  44136. }
  44137. DUK_MEMZERO(res, sizeof(duk_hstring));
  44138. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44139. DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr);
  44140. #endif
  44141. DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, 0);
  44142. data_tmp = (duk_uint8_t *) (res + 1);
  44143. DUK_MEMCPY(data_tmp, str, blen);
  44144. data_tmp[blen] = (duk_uint8_t) 0;
  44145. data = (const duk_uint8_t *) data_tmp;
  44146. }
  44147. DUK_HSTRING_SET_BYTELEN(res, blen);
  44148. DUK_HSTRING_SET_HASH(res, strhash);
  44149. DUK_ASSERT(!DUK_HSTRING_HAS_ARRIDX(res));
  44150. #if defined(DUK_USE_HSTRING_ARRIDX)
  44151. res->arridx = duk_js_to_arrayindex_string(data, blen);
  44152. if (res->arridx != DUK_HSTRING_NO_ARRAY_INDEX) {
  44153. #else
  44154. dummy = duk_js_to_arrayindex_string(data, blen);
  44155. if (dummy != DUK_HSTRING_NO_ARRAY_INDEX) {
  44156. #endif
  44157. /* Array index strings cannot be symbol strings,
  44158. * and they're always pure ASCII so blen == clen.
  44159. */
  44160. DUK_HSTRING_SET_ARRIDX(res);
  44161. DUK_HSTRING_SET_ASCII(res);
  44162. DUK_ASSERT(duk_unicode_unvalidated_utf8_length(data, (duk_size_t) blen) == blen);
  44163. } else {
  44164. /* Because 'data' is NUL-terminated, we don't need a
  44165. * blen > 0 check here. For NUL (0x00) the symbol
  44166. * checks will be false.
  44167. */
  44168. if (DUK_UNLIKELY(data[0] >= 0x80U)) {
  44169. if (data[0] <= 0x81) {
  44170. DUK_HSTRING_SET_SYMBOL(res);
  44171. } else if (data[0] == 0x82U || data[0] == 0xffU) {
  44172. DUK_HSTRING_SET_HIDDEN(res);
  44173. DUK_HSTRING_SET_SYMBOL(res);
  44174. }
  44175. }
  44176. /* Using an explicit 'ASCII' flag has larger footprint (one call site
  44177. * only) but is quite useful for the case when there's no explicit
  44178. * 'clen' in duk_hstring.
  44179. *
  44180. * The flag is set lazily for RAM strings.
  44181. */
  44182. DUK_ASSERT(!DUK_HSTRING_HAS_ASCII(res));
  44183. #if defined(DUK_USE_HSTRING_LAZY_CLEN)
  44184. /* Charlen initialized to 0, updated on-the-fly. */
  44185. #else
  44186. duk_hstring_init_charlen(res); /* Also sets ASCII flag. */
  44187. #endif
  44188. }
  44189. DUK_DDD(DUK_DDDPRINT("interned string, hash=0x%08lx, blen=%ld, has_arridx=%ld, has_extdata=%ld",
  44190. (unsigned long) DUK_HSTRING_GET_HASH(res),
  44191. (long) DUK_HSTRING_GET_BYTELEN(res),
  44192. (long) (DUK_HSTRING_HAS_ARRIDX(res) ? 1 : 0),
  44193. (long) (DUK_HSTRING_HAS_EXTDATA(res) ? 1 : 0)));
  44194. DUK_ASSERT(res != NULL);
  44195. return res;
  44196. alloc_error:
  44197. return NULL;
  44198. }
  44199. /*
  44200. * Grow strtable allocation in-place.
  44201. */
  44202. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44203. DUK_LOCAL void duk__strtable_grow_inplace(duk_heap *heap) {
  44204. duk_uint32_t new_st_size;
  44205. duk_uint32_t old_st_size;
  44206. duk_uint32_t i;
  44207. duk_hstring *h;
  44208. duk_hstring *next;
  44209. duk_hstring *prev;
  44210. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44211. duk_uint16_t *new_ptr;
  44212. duk_uint16_t *new_ptr_high;
  44213. #else
  44214. duk_hstring **new_ptr;
  44215. duk_hstring **new_ptr_high;
  44216. #endif
  44217. DUK_DD(DUK_DDPRINT("grow in-place: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size * 2));
  44218. DUK_ASSERT(heap != NULL);
  44219. DUK_ASSERT(heap->st_resizing == 1);
  44220. DUK_ASSERT(heap->st_size >= 2);
  44221. DUK_ASSERT((heap->st_size & (heap->st_size - 1)) == 0); /* 2^N */
  44222. DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL);
  44223. DUK_STATS_INC(heap, stats_strtab_resize_grow);
  44224. new_st_size = heap->st_size << 1U;
  44225. DUK_ASSERT(new_st_size > heap->st_size); /* No overflow. */
  44226. /* Reallocate the strtable first and then work in-place to rehash
  44227. * strings. We don't need an indirect allocation here: even if GC
  44228. * is triggered to satisfy the allocation, recursive strtable resize
  44229. * is prevented by flags. This is also why we don't need to use
  44230. * DUK_REALLOC_INDIRECT().
  44231. */
  44232. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44233. new_ptr = (duk_uint16_t *) DUK_REALLOC(heap, heap->strtable16, sizeof(duk_uint16_t) * new_st_size);
  44234. #else
  44235. new_ptr = (duk_hstring **) DUK_REALLOC(heap, heap->strtable, sizeof(duk_hstring *) * new_st_size);
  44236. #endif
  44237. if (DUK_UNLIKELY(new_ptr == NULL)) {
  44238. /* If realloc fails we can continue normally: the string table
  44239. * won't "fill up" although chains will gradually get longer.
  44240. * When string insertions continue, we'll quite soon try again
  44241. * with no special handling.
  44242. */
  44243. DUK_D(DUK_DPRINT("string table grow failed, ignoring"));
  44244. return;
  44245. }
  44246. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44247. heap->strtable16 = new_ptr;
  44248. #else
  44249. heap->strtable = new_ptr;
  44250. #endif
  44251. /* Rehash a single bucket into two separate ones. When we grow
  44252. * by x2 the highest 'new' bit determines whether a string remains
  44253. * in its old position (bit is 0) or goes to a new one (bit is 1).
  44254. */
  44255. old_st_size = heap->st_size;
  44256. new_ptr_high = new_ptr + old_st_size;
  44257. for (i = 0; i < old_st_size; i++) {
  44258. duk_hstring *new_root;
  44259. duk_hstring *new_root_high;
  44260. h = DUK__HEAPPTR_DEC16(heap, new_ptr[i]);
  44261. new_root = h;
  44262. new_root_high = NULL;
  44263. prev = NULL;
  44264. while (h != NULL) {
  44265. duk_uint32_t mask;
  44266. DUK_ASSERT((DUK_HSTRING_GET_HASH(h) & heap->st_mask) == i);
  44267. next = h->hdr.h_next;
  44268. /* Example: if previous size was 256, previous mask is 0xFF
  44269. * and size is 0x100 which corresponds to the new bit that
  44270. * comes into play.
  44271. */
  44272. DUK_ASSERT(heap->st_mask == old_st_size - 1);
  44273. mask = old_st_size;
  44274. if (DUK_HSTRING_GET_HASH(h) & mask) {
  44275. if (prev != NULL) {
  44276. prev->hdr.h_next = h->hdr.h_next;
  44277. } else {
  44278. DUK_ASSERT(h == new_root);
  44279. new_root = h->hdr.h_next;
  44280. }
  44281. h->hdr.h_next = new_root_high;
  44282. new_root_high = h;
  44283. } else {
  44284. prev = h;
  44285. }
  44286. h = next;
  44287. }
  44288. new_ptr[i] = DUK__HEAPPTR_ENC16(heap, new_root);
  44289. new_ptr_high[i] = DUK__HEAPPTR_ENC16(heap, new_root_high);
  44290. }
  44291. heap->st_size = new_st_size;
  44292. heap->st_mask = new_st_size - 1;
  44293. #if defined(DUK_USE_ASSERTIONS)
  44294. duk__strtable_assert_checks(heap);
  44295. #endif
  44296. }
  44297. #endif /* DUK__STRTAB_RESIZE_CHECK */
  44298. /*
  44299. * Shrink strtable allocation in-place.
  44300. */
  44301. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44302. DUK_LOCAL void duk__strtable_shrink_inplace(duk_heap *heap) {
  44303. duk_uint32_t new_st_size;
  44304. duk_uint32_t i;
  44305. duk_hstring *h;
  44306. duk_hstring *other;
  44307. duk_hstring *root;
  44308. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44309. duk_uint16_t *old_ptr;
  44310. duk_uint16_t *old_ptr_high;
  44311. duk_uint16_t *new_ptr;
  44312. #else
  44313. duk_hstring **old_ptr;
  44314. duk_hstring **old_ptr_high;
  44315. duk_hstring **new_ptr;
  44316. #endif
  44317. DUK_DD(DUK_DDPRINT("shrink in-place: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size / 2));
  44318. DUK_ASSERT(heap != NULL);
  44319. DUK_ASSERT(heap->st_resizing == 1);
  44320. DUK_ASSERT(heap->st_size >= 2);
  44321. DUK_ASSERT((heap->st_size & (heap->st_size - 1)) == 0); /* 2^N */
  44322. DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL);
  44323. DUK_STATS_INC(heap, stats_strtab_resize_shrink);
  44324. new_st_size = heap->st_size >> 1U;
  44325. /* Combine two buckets into a single one. When we shrink, one hash
  44326. * bit (highest) disappears.
  44327. */
  44328. old_ptr = DUK__GET_STRTABLE(heap);
  44329. old_ptr_high = old_ptr + new_st_size;
  44330. for (i = 0; i < new_st_size; i++) {
  44331. h = DUK__HEAPPTR_DEC16(heap, old_ptr[i]);
  44332. other = DUK__HEAPPTR_DEC16(heap, old_ptr_high[i]);
  44333. if (h == NULL) {
  44334. /* First chain is empty, so use second one as is. */
  44335. root = other;
  44336. } else {
  44337. /* Find end of first chain, and link in the second. */
  44338. root = h;
  44339. while (h->hdr.h_next != NULL) {
  44340. h = h->hdr.h_next;
  44341. }
  44342. h->hdr.h_next = other;
  44343. }
  44344. old_ptr[i] = DUK__HEAPPTR_ENC16(heap, root);
  44345. }
  44346. heap->st_size = new_st_size;
  44347. heap->st_mask = new_st_size - 1;
  44348. /* The strtable is now consistent and we can realloc safely. Even
  44349. * if side effects cause string interning or removal the strtable
  44350. * updates are safe. Recursive resize has been prevented by caller.
  44351. * This is also why we don't need to use DUK_REALLOC_INDIRECT().
  44352. *
  44353. * We assume a realloc() to a smaller size is guaranteed to succeed.
  44354. * It would be relatively straightforward to handle the error by
  44355. * essentially performing a "grow" step to recover.
  44356. */
  44357. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44358. new_ptr = (duk_uint16_t *) DUK_REALLOC(heap, heap->strtable16, sizeof(duk_uint16_t) * new_st_size);
  44359. DUK_ASSERT(new_ptr != NULL);
  44360. heap->strtable16 = new_ptr;
  44361. #else
  44362. new_ptr = (duk_hstring **) DUK_REALLOC(heap, heap->strtable, sizeof(duk_hstring *) * new_st_size);
  44363. DUK_ASSERT(new_ptr != NULL);
  44364. heap->strtable = new_ptr;
  44365. #endif
  44366. #if defined(DUK_USE_ASSERTIONS)
  44367. duk__strtable_assert_checks(heap);
  44368. #endif
  44369. }
  44370. #endif /* DUK__STRTAB_RESIZE_CHECK */
  44371. /*
  44372. * Grow/shrink check.
  44373. */
  44374. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44375. DUK_LOCAL DUK_COLD DUK_NOINLINE void duk__strtable_resize_check(duk_heap *heap) {
  44376. duk_uint32_t load_factor; /* fixed point */
  44377. DUK_ASSERT(heap != NULL);
  44378. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44379. DUK_ASSERT(heap->strtable16 != NULL);
  44380. #else
  44381. DUK_ASSERT(heap->strtable != NULL);
  44382. #endif
  44383. DUK_STATS_INC(heap, stats_strtab_resize_check);
  44384. /* Prevent recursive resizing. */
  44385. if (DUK_UNLIKELY(heap->st_resizing != 0U)) {
  44386. DUK_D(DUK_DPRINT("prevent recursive strtable resize"));
  44387. return;
  44388. }
  44389. heap->st_resizing = 1;
  44390. DUK_ASSERT(heap->st_size >= 16U);
  44391. DUK_ASSERT((heap->st_size >> 4U) >= 1);
  44392. load_factor = heap->st_count / (heap->st_size >> 4U);
  44393. DUK_DD(DUK_DDPRINT("resize check string table: size=%lu, count=%lu, load_factor=%lu (fixed point .4; float %lf)",
  44394. (unsigned long) heap->st_size, (unsigned long) heap->st_count,
  44395. (unsigned long) load_factor,
  44396. (double) heap->st_count / (double) heap->st_size));
  44397. if (load_factor >= DUK_USE_STRTAB_GROW_LIMIT) {
  44398. if (heap->st_size >= DUK_USE_STRTAB_MAXSIZE) {
  44399. DUK_DD(DUK_DDPRINT("want to grow strtable (based on load factor) but already maximum size"));
  44400. } else {
  44401. DUK_D(DUK_DPRINT("grow string table: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size * 2));
  44402. #if defined(DUK_USE_DEBUG)
  44403. duk_heap_strtable_dump(heap);
  44404. #endif
  44405. duk__strtable_grow_inplace(heap);
  44406. }
  44407. } else if (load_factor <= DUK_USE_STRTAB_SHRINK_LIMIT) {
  44408. if (heap->st_size <= DUK_USE_STRTAB_MINSIZE) {
  44409. DUK_DD(DUK_DDPRINT("want to shrink strtable (based on load factor) but already minimum size"));
  44410. } else {
  44411. DUK_D(DUK_DPRINT("shrink string table: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size / 2));
  44412. #if defined(DUK_USE_DEBUG)
  44413. duk_heap_strtable_dump(heap);
  44414. #endif
  44415. duk__strtable_shrink_inplace(heap);
  44416. }
  44417. } else {
  44418. DUK_DD(DUK_DDPRINT("no need for strtable resize"));
  44419. }
  44420. heap->st_resizing = 0;
  44421. }
  44422. #endif /* DUK__STRTAB_RESIZE_CHECK */
  44423. /*
  44424. * Torture grow/shrink: unconditionally grow and shrink back.
  44425. */
  44426. #if defined(DUK_USE_STRTAB_TORTURE) && defined(DUK__STRTAB_RESIZE_CHECK)
  44427. DUK_LOCAL void duk__strtable_resize_torture(duk_heap *heap) {
  44428. duk_uint32_t old_st_size;
  44429. DUK_ASSERT(heap != NULL);
  44430. old_st_size = heap->st_size;
  44431. if (old_st_size >= DUK_USE_STRTAB_MAXSIZE) {
  44432. return;
  44433. }
  44434. heap->st_resizing = 1;
  44435. duk__strtable_grow_inplace(heap);
  44436. if (heap->st_size > old_st_size) {
  44437. duk__strtable_shrink_inplace(heap);
  44438. }
  44439. heap->st_resizing = 0;
  44440. }
  44441. #endif /* DUK_USE_STRTAB_TORTURE && DUK__STRTAB_RESIZE_CHECK */
  44442. /*
  44443. * Raw intern; string already checked not to be present.
  44444. */
  44445. DUK_LOCAL duk_hstring *duk__strtable_do_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen, duk_uint32_t strhash) {
  44446. duk_hstring *res;
  44447. const duk_uint8_t *extdata;
  44448. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44449. duk_uint16_t *slot;
  44450. #else
  44451. duk_hstring **slot;
  44452. #endif
  44453. DUK_DDD(DUK_DDDPRINT("do_intern: heap=%p, str=%p, blen=%lu, strhash=%lx, st_size=%lu, st_count=%lu, load=%lf",
  44454. (void *) heap, (const void *) str, (unsigned long) blen, (unsigned long) strhash,
  44455. (unsigned long) heap->st_size, (unsigned long) heap->st_count,
  44456. (double) heap->st_count / (double) heap->st_size));
  44457. DUK_ASSERT(heap != NULL);
  44458. /* Prevent any side effects on the string table and the caller provided
  44459. * str/blen arguments while interning is in progress. For example, if
  44460. * the caller provided str/blen from a dynamic buffer, a finalizer
  44461. * might resize or modify that dynamic buffer, invalidating the call
  44462. * arguments.
  44463. *
  44464. * While finalizers must be prevented, mark-and-sweep itself is fine.
  44465. * Recursive string table resize is prevented explicitly here.
  44466. */
  44467. heap->pf_prevent_count++;
  44468. DUK_ASSERT(heap->pf_prevent_count != 0); /* Wrap. */
  44469. #if defined(DUK_USE_STRTAB_TORTURE) && defined(DUK__STRTAB_RESIZE_CHECK)
  44470. duk__strtable_resize_torture(heap);
  44471. #endif
  44472. /* String table grow/shrink check. Because of chaining (and no
  44473. * accumulation issues as with hash probe chains and DELETED
  44474. * markers) there's never a mandatory need to resize right now.
  44475. * Check for the resize only periodically, based on st_count
  44476. * bit pattern. Because string table removal doesn't do a shrink
  44477. * check, we do that also here.
  44478. *
  44479. * Do the resize and possible grow/shrink before the new duk_hstring
  44480. * has been allocated. Otherwise we may trigger a GC when the result
  44481. * duk_hstring is not yet strongly referenced.
  44482. */
  44483. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44484. if (DUK_UNLIKELY((heap->st_count & DUK_USE_STRTAB_RESIZE_CHECK_MASK) == 0)) {
  44485. duk__strtable_resize_check(heap);
  44486. }
  44487. #endif
  44488. /* External string check (low memory optimization). */
  44489. #if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK)
  44490. extdata = (const duk_uint8_t *) DUK_USE_EXTSTR_INTERN_CHECK(heap->heap_udata, (void *) DUK_LOSE_CONST(str), (duk_size_t) blen);
  44491. #else
  44492. extdata = (const duk_uint8_t *) NULL;
  44493. #endif
  44494. /* Allocate and initialize string, not yet linked. This may cause a
  44495. * GC which may cause other strings to be interned and inserted into
  44496. * the string table before we insert our string. Finalizer execution
  44497. * is disabled intentionally to avoid a finalizer from e.g. resizing
  44498. * a buffer used as a data area for 'str'.
  44499. */
  44500. res = duk__strtable_alloc_hstring(heap, str, blen, strhash, extdata);
  44501. /* Allow side effects again: GC must be avoided until duk_hstring
  44502. * result (if successful) has been INCREF'd.
  44503. */
  44504. DUK_ASSERT(heap->pf_prevent_count > 0);
  44505. heap->pf_prevent_count--;
  44506. /* Alloc error handling. */
  44507. if (DUK_UNLIKELY(res == NULL)) {
  44508. #if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK)
  44509. if (extdata != NULL) {
  44510. DUK_USE_EXTSTR_FREE(heap->heap_udata, (const void *) extdata);
  44511. }
  44512. #endif
  44513. return NULL;
  44514. }
  44515. /* Insert into string table. */
  44516. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44517. slot = heap->strtable16 + (strhash & heap->st_mask);
  44518. #else
  44519. slot = heap->strtable + (strhash & heap->st_mask);
  44520. #endif
  44521. DUK_ASSERT(res->hdr.h_next == NULL); /* This is the case now, but unnecessary zeroing/NULLing. */
  44522. res->hdr.h_next = DUK__HEAPPTR_DEC16(heap, *slot);
  44523. *slot = DUK__HEAPPTR_ENC16(heap, res);
  44524. /* Update string count only for successful inserts. */
  44525. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44526. heap->st_count++;
  44527. #endif
  44528. /* The duk_hstring is in the string table but is not yet strongly
  44529. * reachable. Calling code MUST NOT make any allocations or other
  44530. * side effects before the duk_hstring has been INCREF'd and made
  44531. * reachable.
  44532. */
  44533. return res;
  44534. }
  44535. /*
  44536. * Intern a string from str/blen, returning either an existing duk_hstring
  44537. * or adding a new one into the string table. The input string does -not-
  44538. * need to be NUL terminated.
  44539. *
  44540. * The input 'str' argument may point to a Duktape managed data area such as
  44541. * the data area of a dynamic buffer. It's crucial to avoid any side effects
  44542. * that might affect the data area (e.g. resize the dynamic buffer, or write
  44543. * to the buffer) before the string is fully interned.
  44544. */
  44545. #if defined(DUK_USE_ROM_STRINGS)
  44546. DUK_LOCAL duk_hstring *duk__strtab_romstring_lookup(duk_heap *heap, const duk_uint8_t *str, duk_size_t blen, duk_uint32_t strhash) {
  44547. duk_size_t lookup_hash;
  44548. duk_hstring *curr;
  44549. DUK_ASSERT(heap != NULL);
  44550. DUK_UNREF(heap);
  44551. lookup_hash = (blen << 4);
  44552. if (blen > 0) {
  44553. lookup_hash += str[0];
  44554. }
  44555. lookup_hash &= 0xff;
  44556. curr = DUK_LOSE_CONST(duk_rom_strings_lookup[lookup_hash]);
  44557. while (curr != NULL) {
  44558. if (strhash == DUK_HSTRING_GET_HASH(curr) &&
  44559. blen == DUK_HSTRING_GET_BYTELEN(curr) &&
  44560. DUK_MEMCMP((const void *) str, (const void *) DUK_HSTRING_GET_DATA(curr), blen) == 0) {
  44561. DUK_DDD(DUK_DDDPRINT("intern check: rom string: %!O, computed hash 0x%08lx, rom hash 0x%08lx",
  44562. curr, (unsigned long) strhash, (unsigned long) DUK_HSTRING_GET_HASH(curr)));
  44563. return curr;
  44564. }
  44565. curr = curr->hdr.h_next;
  44566. }
  44567. return NULL;
  44568. }
  44569. #endif /* DUK_USE_ROM_STRINGS */
  44570. DUK_INTERNAL duk_hstring *duk_heap_strtable_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen) {
  44571. duk_uint32_t strhash;
  44572. duk_hstring *h;
  44573. DUK_DDD(DUK_DDDPRINT("intern check: heap=%p, str=%p, blen=%lu", (void *) heap, (const void *) str, (unsigned long) blen));
  44574. /* Preliminaries. */
  44575. DUK_ASSERT(heap != NULL);
  44576. DUK_ASSERT(blen == 0 || str != NULL);
  44577. DUK_ASSERT(blen <= DUK_HSTRING_MAX_BYTELEN); /* Caller is responsible for ensuring this. */
  44578. strhash = duk_heap_hashstring(heap, str, (duk_size_t) blen);
  44579. /* String table lookup. */
  44580. DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL);
  44581. DUK_ASSERT(heap->st_size > 0);
  44582. DUK_ASSERT(heap->st_size == heap->st_mask + 1);
  44583. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44584. h = DUK__HEAPPTR_DEC16(heap, heap->strtable16[strhash & heap->st_mask]);
  44585. #else
  44586. h = heap->strtable[strhash & heap->st_mask];
  44587. #endif
  44588. while (h != NULL) {
  44589. if (DUK_HSTRING_GET_HASH(h) == strhash &&
  44590. DUK_HSTRING_GET_BYTELEN(h) == blen &&
  44591. DUK_MEMCMP((const void *) str, (const void *) DUK_HSTRING_GET_DATA(h), (size_t) blen) == 0) {
  44592. /* Found existing entry. */
  44593. DUK_STATS_INC(heap, stats_strtab_intern_hit);
  44594. return h;
  44595. }
  44596. h = h->hdr.h_next;
  44597. }
  44598. /* ROM table lookup. Because this lookup is slower, do it only after
  44599. * RAM lookup. This works because no ROM string is ever interned into
  44600. * the RAM string table.
  44601. */
  44602. #if defined(DUK_USE_ROM_STRINGS)
  44603. h = duk__strtab_romstring_lookup(heap, str, blen, strhash);
  44604. if (h != NULL) {
  44605. DUK_STATS_INC(heap, stats_strtab_intern_hit);
  44606. return h;
  44607. }
  44608. #endif
  44609. /* Not found in string table; insert. */
  44610. DUK_STATS_INC(heap, stats_strtab_intern_miss);
  44611. h = duk__strtable_do_intern(heap, str, blen, strhash);
  44612. return h; /* may be NULL */
  44613. }
  44614. /*
  44615. * Intern a string from u32.
  44616. */
  44617. /* XXX: Could arrange some special handling because we know that the result
  44618. * will have an arridx flag and an ASCII flag, won't need a clen check, etc.
  44619. */
  44620. DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_u32(duk_heap *heap, duk_uint32_t val) {
  44621. duk_uint8_t buf[DUK__STRTAB_U32_MAX_STRLEN];
  44622. duk_uint8_t *p;
  44623. DUK_ASSERT(heap != NULL);
  44624. /* This is smaller and faster than a %lu sprintf. */
  44625. p = buf + sizeof(buf);
  44626. do {
  44627. p--;
  44628. *p = duk_lc_digits[val % 10];
  44629. val = val / 10;
  44630. } while (val != 0); /* For val == 0, emit exactly one '0'. */
  44631. DUK_ASSERT(p >= buf);
  44632. return duk_heap_strtable_intern(heap, (const duk_uint8_t *) p, (duk_uint32_t) ((buf + sizeof(buf)) - p));
  44633. }
  44634. /*
  44635. * Checked convenience variants.
  44636. *
  44637. * XXX: Because the main use case is for the checked variants, make them the
  44638. * main functionality and provide a safe variant separately (it is only needed
  44639. * during heap init). The problem with that is that longjmp state and error
  44640. * creation must already be possible to throw.
  44641. */
  44642. DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t blen) {
  44643. duk_hstring *res;
  44644. DUK_ASSERT(thr != NULL);
  44645. DUK_ASSERT(thr->heap != NULL);
  44646. DUK_ASSERT(blen == 0 || str != NULL);
  44647. res = duk_heap_strtable_intern(thr->heap, str, blen);
  44648. if (DUK_UNLIKELY(res == NULL)) {
  44649. DUK_ERROR_ALLOC_FAILED(thr);
  44650. }
  44651. return res;
  44652. }
  44653. DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_u32_checked(duk_hthread *thr, duk_uint32_t val) {
  44654. duk_hstring *res;
  44655. DUK_ASSERT(thr != NULL);
  44656. DUK_ASSERT(thr->heap != NULL);
  44657. res = duk_heap_strtable_intern_u32(thr->heap, val);
  44658. if (DUK_UNLIKELY(res == NULL)) {
  44659. DUK_ERROR_ALLOC_FAILED(thr);
  44660. }
  44661. return res;
  44662. }
  44663. /*
  44664. * Remove (unlink) a string from the string table.
  44665. *
  44666. * Just unlinks the duk_hstring, leaving link pointers as garbage.
  44667. * Caller must free the string itself.
  44668. */
  44669. #if defined(DUK_USE_REFERENCE_COUNTING)
  44670. /* Unlink without a 'prev' pointer. */
  44671. DUK_INTERNAL void duk_heap_strtable_unlink(duk_heap *heap, duk_hstring *h) {
  44672. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44673. duk_uint16_t *slot;
  44674. #else
  44675. duk_hstring **slot;
  44676. #endif
  44677. duk_hstring *other;
  44678. duk_hstring *prev;
  44679. DUK_DDD(DUK_DDDPRINT("remove: heap=%p, h=%p, blen=%lu, strhash=%lx",
  44680. (void *) heap, (void *) h,
  44681. (unsigned long) (h != NULL ? DUK_HSTRING_GET_BYTELEN(h) : 0),
  44682. (unsigned long) (h != NULL ? DUK_HSTRING_GET_HASH(h) : 0)));
  44683. DUK_ASSERT(heap != NULL);
  44684. DUK_ASSERT(h != NULL);
  44685. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44686. DUK_ASSERT(heap->st_count > 0);
  44687. heap->st_count--;
  44688. #endif
  44689. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44690. slot = heap->strtable16 + (DUK_HSTRING_GET_HASH(h) & heap->st_mask);
  44691. #else
  44692. slot = heap->strtable + (DUK_HSTRING_GET_HASH(h) & heap->st_mask);
  44693. #endif
  44694. other = DUK__HEAPPTR_DEC16(heap, *slot);
  44695. DUK_ASSERT(other != NULL); /* At least argument string is in the chain. */
  44696. prev = NULL;
  44697. while (other != h) {
  44698. prev = other;
  44699. other = other->hdr.h_next;
  44700. DUK_ASSERT(other != NULL); /* We'll eventually find 'h'. */
  44701. }
  44702. if (prev != NULL) {
  44703. /* Middle of list. */
  44704. prev->hdr.h_next = h->hdr.h_next;
  44705. } else {
  44706. /* Head of list. */
  44707. *slot = DUK__HEAPPTR_ENC16(heap, h->hdr.h_next);
  44708. }
  44709. /* There's no resize check on a string free. The next string
  44710. * intern will do one.
  44711. */
  44712. }
  44713. #endif /* DUK_USE_REFERENCE_COUNTING */
  44714. /* Unlink with a 'prev' pointer. */
  44715. DUK_INTERNAL void duk_heap_strtable_unlink_prev(duk_heap *heap, duk_hstring *h, duk_hstring *prev) {
  44716. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44717. duk_uint16_t *slot;
  44718. #else
  44719. duk_hstring **slot;
  44720. #endif
  44721. DUK_DDD(DUK_DDDPRINT("remove: heap=%p, prev=%p, h=%p, blen=%lu, strhash=%lx",
  44722. (void *) heap, (void *) prev, (void *) h,
  44723. (unsigned long) (h != NULL ? DUK_HSTRING_GET_BYTELEN(h) : 0),
  44724. (unsigned long) (h != NULL ? DUK_HSTRING_GET_HASH(h) : 0)));
  44725. DUK_ASSERT(heap != NULL);
  44726. DUK_ASSERT(h != NULL);
  44727. DUK_ASSERT(prev == NULL || prev->hdr.h_next == h);
  44728. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44729. DUK_ASSERT(heap->st_count > 0);
  44730. heap->st_count--;
  44731. #endif
  44732. if (prev != NULL) {
  44733. /* Middle of list. */
  44734. prev->hdr.h_next = h->hdr.h_next;
  44735. } else {
  44736. /* Head of list. */
  44737. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44738. slot = heap->strtable16 + (DUK_HSTRING_GET_HASH(h) & heap->st_mask);
  44739. #else
  44740. slot = heap->strtable + (DUK_HSTRING_GET_HASH(h) & heap->st_mask);
  44741. #endif
  44742. DUK_ASSERT(DUK__HEAPPTR_DEC16(heap, *slot) == h);
  44743. *slot = DUK__HEAPPTR_ENC16(heap, h->hdr.h_next);
  44744. }
  44745. }
  44746. /*
  44747. * Force string table resize check in mark-and-sweep.
  44748. */
  44749. DUK_INTERNAL void duk_heap_strtable_force_resize(duk_heap *heap) {
  44750. /* Does only one grow/shrink step if needed. The heap->st_resizing
  44751. * flag protects against recursive resizing.
  44752. */
  44753. DUK_ASSERT(heap != NULL);
  44754. DUK_UNREF(heap);
  44755. #if defined(DUK__STRTAB_RESIZE_CHECK)
  44756. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44757. if (heap->strtable16 != NULL) {
  44758. #else
  44759. if (heap->strtable != NULL) {
  44760. #endif
  44761. duk__strtable_resize_check(heap);
  44762. }
  44763. #endif
  44764. }
  44765. /*
  44766. * Free strings in the string table and the string table itself.
  44767. */
  44768. DUK_INTERNAL void duk_heap_strtable_free(duk_heap *heap) {
  44769. #if defined(DUK_USE_STRTAB_PTRCOMP)
  44770. duk_uint16_t *strtable;
  44771. duk_uint16_t *st;
  44772. #else
  44773. duk_hstring **strtable;
  44774. duk_hstring **st;
  44775. #endif
  44776. duk_hstring *h;
  44777. DUK_ASSERT(heap != NULL);
  44778. #if defined(DUK_USE_ASSERTIONS)
  44779. duk__strtable_assert_checks(heap);
  44780. #endif
  44781. /* Strtable can be NULL if heap init fails. However, in that case
  44782. * heap->st_size is 0, so strtable == strtable_end and we skip the
  44783. * loop without a special check.
  44784. */
  44785. strtable = DUK__GET_STRTABLE(heap);
  44786. st = strtable + heap->st_size;
  44787. DUK_ASSERT(strtable != NULL || heap->st_size == 0);
  44788. while (strtable != st) {
  44789. --st;
  44790. h = DUK__HEAPPTR_DEC16(heap, *st);
  44791. while (h) {
  44792. duk_hstring *h_next;
  44793. h_next = h->hdr.h_next;
  44794. /* Strings may have inner refs (extdata) in some cases. */
  44795. duk_free_hstring(heap, h);
  44796. h = h_next;
  44797. }
  44798. }
  44799. DUK_FREE(heap, strtable);
  44800. }
  44801. /* automatic undefs */
  44802. #undef DUK__GET_STRTABLE
  44803. #undef DUK__HEAPPTR_DEC16
  44804. #undef DUK__HEAPPTR_ENC16
  44805. #undef DUK__STRTAB_U32_MAX_STRLEN
  44806. #line 1 "duk_hobject_alloc.c"
  44807. /*
  44808. * Hobject allocation.
  44809. *
  44810. * Provides primitive allocation functions for all object types (plain object,
  44811. * compiled function, native function, thread). The object return is not yet
  44812. * in "heap allocated" list and has a refcount of zero, so caller must careful.
  44813. */
  44814. /* XXX: In most cases there's no need for plain allocation without pushing
  44815. * to the value stack. Maybe rework contract?
  44816. */
  44817. /* #include duk_internal.h -> already included */
  44818. /*
  44819. * Helpers.
  44820. */
  44821. DUK_LOCAL void duk__init_object_parts(duk_heap *heap, duk_uint_t hobject_flags, duk_hobject *obj) {
  44822. DUK_ASSERT(obj != NULL);
  44823. /* Zeroed by caller. */
  44824. obj->hdr.h_flags = hobject_flags | DUK_HTYPE_OBJECT;
  44825. DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(&obj->hdr) == DUK_HTYPE_OBJECT); /* Assume zero shift. */
  44826. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44827. DUK_HOBJECT_SET_PROTOTYPE(heap, obj, NULL);
  44828. DUK_HOBJECT_SET_PROPS(heap, obj, NULL);
  44829. #endif
  44830. #if defined(DUK_USE_HEAPPTR16)
  44831. /* Zero encoded pointer is required to match NULL. */
  44832. DUK_HEAPHDR_SET_NEXT(heap, &obj->hdr, NULL);
  44833. #if defined(DUK_USE_DOUBLE_LINKED_HEAP)
  44834. DUK_HEAPHDR_SET_PREV(heap, &obj->hdr, NULL);
  44835. #endif
  44836. #endif
  44837. DUK_ASSERT_HEAPHDR_LINKS(heap, &obj->hdr);
  44838. DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, &obj->hdr);
  44839. /* obj->props is intentionally left as NULL, and duk_hobject_props.c must deal
  44840. * with this properly. This is intentional: empty objects consume a minimum
  44841. * amount of memory. Further, an initial allocation might fail and cause
  44842. * 'obj' to "leak" (require a mark-and-sweep) since it is not reachable yet.
  44843. */
  44844. }
  44845. DUK_LOCAL void *duk__hobject_alloc_init(duk_hthread *thr, duk_uint_t hobject_flags, duk_size_t size) {
  44846. void *res;
  44847. res = (void *) DUK_ALLOC_CHECKED_ZEROED(thr, size);
  44848. DUK_ASSERT(res != NULL);
  44849. duk__init_object_parts(thr->heap, hobject_flags, (duk_hobject *) res);
  44850. return res;
  44851. }
  44852. /*
  44853. * Allocate an duk_hobject.
  44854. *
  44855. * The allocated object has no allocation for properties; the caller may
  44856. * want to force a resize if a desired size is known.
  44857. *
  44858. * The allocated object has zero reference count and is not reachable.
  44859. * The caller MUST make the object reachable and increase its reference
  44860. * count before invoking any operation that might require memory allocation.
  44861. */
  44862. DUK_INTERNAL duk_hobject *duk_hobject_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags) {
  44863. duk_hobject *res;
  44864. DUK_ASSERT(heap != NULL);
  44865. /* different memory layout, alloc size, and init */
  44866. DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_COMPFUNC) == 0);
  44867. DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_NATFUNC) == 0);
  44868. DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_BOUNDFUNC) == 0);
  44869. res = (duk_hobject *) DUK_ALLOC_ZEROED(heap, sizeof(duk_hobject));
  44870. if (DUK_UNLIKELY(res == NULL)) {
  44871. return NULL;
  44872. }
  44873. DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(res));
  44874. duk__init_object_parts(heap, hobject_flags, res);
  44875. DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(res));
  44876. return res;
  44877. }
  44878. DUK_INTERNAL duk_hobject *duk_hobject_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44879. duk_hobject *res;
  44880. res = (duk_hobject *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hobject));
  44881. return res;
  44882. }
  44883. DUK_INTERNAL duk_hcompfunc *duk_hcompfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44884. duk_hcompfunc *res;
  44885. res = (duk_hcompfunc *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hcompfunc));
  44886. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44887. #if defined(DUK_USE_HEAPPTR16)
  44888. /* NULL pointer is required to encode to zero, so memset is enough. */
  44889. #else
  44890. res->data = NULL;
  44891. res->funcs = NULL;
  44892. res->bytecode = NULL;
  44893. #endif
  44894. res->lex_env = NULL;
  44895. res->var_env = NULL;
  44896. #endif
  44897. return res;
  44898. }
  44899. DUK_INTERNAL duk_hnatfunc *duk_hnatfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44900. duk_hnatfunc *res;
  44901. res = (duk_hnatfunc *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hnatfunc));
  44902. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44903. res->func = NULL;
  44904. #endif
  44905. return res;
  44906. }
  44907. DUK_INTERNAL duk_hboundfunc *duk_hboundfunc_alloc(duk_heap *heap, duk_uint_t hobject_flags) {
  44908. duk_hboundfunc *res;
  44909. res = (duk_hboundfunc *) DUK_ALLOC(heap, sizeof(duk_hboundfunc));
  44910. if (!res) {
  44911. return NULL;
  44912. }
  44913. DUK_MEMZERO(res, sizeof(duk_hboundfunc));
  44914. duk__init_object_parts(heap, hobject_flags, &res->obj);
  44915. DUK_TVAL_SET_UNDEFINED(&res->target);
  44916. DUK_TVAL_SET_UNDEFINED(&res->this_binding);
  44917. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44918. res->args = NULL;
  44919. #endif
  44920. return res;
  44921. }
  44922. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  44923. DUK_INTERNAL duk_hbufobj *duk_hbufobj_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44924. duk_hbufobj *res;
  44925. res = (duk_hbufobj *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hbufobj));
  44926. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44927. res->buf = NULL;
  44928. res->buf_prop = NULL;
  44929. #endif
  44930. DUK_ASSERT_HBUFOBJ_VALID(res);
  44931. return res;
  44932. }
  44933. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  44934. /* Allocate a new thread.
  44935. *
  44936. * Leaves the built-ins array uninitialized. The caller must either
  44937. * initialize a new global context or share existing built-ins from
  44938. * another thread.
  44939. */
  44940. DUK_INTERNAL duk_hthread *duk_hthread_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags) {
  44941. duk_hthread *res;
  44942. res = (duk_hthread *) DUK_ALLOC(heap, sizeof(duk_hthread));
  44943. if (DUK_UNLIKELY(res == NULL)) {
  44944. return NULL;
  44945. }
  44946. DUK_MEMZERO(res, sizeof(duk_hthread));
  44947. duk__init_object_parts(heap, hobject_flags, &res->obj);
  44948. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44949. res->ptr_curr_pc = NULL;
  44950. res->heap = NULL;
  44951. res->valstack = NULL;
  44952. res->valstack_end = NULL;
  44953. res->valstack_alloc_end = NULL;
  44954. res->valstack_bottom = NULL;
  44955. res->valstack_top = NULL;
  44956. res->callstack_curr = NULL;
  44957. res->resumer = NULL;
  44958. res->compile_ctx = NULL,
  44959. #if defined(DUK_USE_HEAPPTR16)
  44960. res->strs16 = NULL;
  44961. #else
  44962. res->strs = NULL;
  44963. #endif
  44964. {
  44965. duk_small_uint_t i;
  44966. for (i = 0; i < DUK_NUM_BUILTINS; i++) {
  44967. res->builtins[i] = NULL;
  44968. }
  44969. }
  44970. #endif
  44971. /* When nothing is running, API calls are in non-strict mode. */
  44972. DUK_ASSERT(res->strict == 0);
  44973. res->heap = heap;
  44974. /* XXX: Any reason not to merge duk_hthread_alloc.c here? */
  44975. return res;
  44976. }
  44977. DUK_INTERNAL duk_hthread *duk_hthread_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44978. duk_hthread *res;
  44979. res = duk_hthread_alloc_unchecked(thr->heap, hobject_flags);
  44980. if (res == NULL) {
  44981. DUK_ERROR_ALLOC_FAILED(thr);
  44982. }
  44983. return res;
  44984. }
  44985. DUK_INTERNAL duk_harray *duk_harray_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44986. duk_harray *res;
  44987. res = (duk_harray *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_harray));
  44988. DUK_ASSERT(res->length == 0);
  44989. return res;
  44990. }
  44991. DUK_INTERNAL duk_hdecenv *duk_hdecenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  44992. duk_hdecenv *res;
  44993. res = (duk_hdecenv *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hdecenv));
  44994. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  44995. res->thread = NULL;
  44996. res->varmap = NULL;
  44997. #endif
  44998. DUK_ASSERT(res->thread == NULL);
  44999. DUK_ASSERT(res->varmap == NULL);
  45000. DUK_ASSERT(res->regbase_byteoff == 0);
  45001. return res;
  45002. }
  45003. DUK_INTERNAL duk_hobjenv *duk_hobjenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  45004. duk_hobjenv *res;
  45005. res = (duk_hobjenv *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hobjenv));
  45006. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  45007. res->target = NULL;
  45008. #endif
  45009. DUK_ASSERT(res->target == NULL);
  45010. return res;
  45011. }
  45012. DUK_INTERNAL duk_hproxy *duk_hproxy_alloc(duk_hthread *thr, duk_uint_t hobject_flags) {
  45013. duk_hproxy *res;
  45014. res = (duk_hproxy *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hproxy));
  45015. /* Leave ->target and ->handler uninitialized, as caller will always
  45016. * explicitly initialize them before any side effects are possible.
  45017. */
  45018. return res;
  45019. }
  45020. #line 1 "duk_hobject_enum.c"
  45021. /*
  45022. * Object enumeration support.
  45023. *
  45024. * Creates an internal enumeration state object to be used e.g. with for-in
  45025. * enumeration. The state object contains a snapshot of target object keys
  45026. * and internal control state for enumeration. Enumerator flags allow caller
  45027. * to e.g. request internal/non-enumerable properties, and to enumerate only
  45028. * "own" properties.
  45029. *
  45030. * Also creates the result value for e.g. Object.keys() based on the same
  45031. * internal structure.
  45032. *
  45033. * This snapshot-based enumeration approach is used to simplify enumeration:
  45034. * non-snapshot-based approaches are difficult to reconcile with mutating
  45035. * the enumeration target, running multiple long-lived enumerators at the
  45036. * same time, garbage collection details, etc. The downside is that the
  45037. * enumerator object is memory inefficient especially for iterating arrays.
  45038. */
  45039. /* #include duk_internal.h -> already included */
  45040. /* XXX: identify enumeration target with an object index (not top of stack) */
  45041. /* First enumerated key index in enumerator object, must match exactly the
  45042. * number of control properties inserted to the enumerator.
  45043. */
  45044. #define DUK__ENUM_START_INDEX 2
  45045. /* Current implementation suffices for ES2015 for now because there's no symbol
  45046. * sorting, so commented out for now.
  45047. */
  45048. /*
  45049. * Helper to sort enumeration keys using a callback for pairwise duk_hstring
  45050. * comparisons. The keys are in the enumeration object entry part, starting
  45051. * from DUK__ENUM_START_INDEX, and the entry part is dense. Entry part values
  45052. * are all "true", e.g. "1" -> true, "3" -> true, "foo" -> true, "2" -> true,
  45053. * so it suffices to just switch keys without switching values.
  45054. *
  45055. * ES2015 [[OwnPropertyKeys]] enumeration order for ordinary objects:
  45056. * (1) array indices in ascending order,
  45057. * (2) non-array-index keys in insertion order, and
  45058. * (3) symbols in insertion order.
  45059. * http://www.ecma-international.org/ecma-262/6.0/#sec-ordinary-object-internal-methods-and-internal-slots-ownpropertykeys.
  45060. *
  45061. * This rule is applied to "own properties" at each inheritance level;
  45062. * non-duplicate parent keys always follow child keys. For example,
  45063. * an inherited array index will enumerate -after- a symbol in the
  45064. * child.
  45065. *
  45066. * Insertion sort is used because (1) it's simple and compact, (2) works
  45067. * in-place, (3) minimizes operations if data is already nearly sorted,
  45068. * (4) doesn't reorder elements considered equal.
  45069. * http://en.wikipedia.org/wiki/Insertion_sort
  45070. */
  45071. /* Sort key, must hold array indices, "not array index" marker, and one more
  45072. * higher value for symbols.
  45073. */
  45074. #if !defined(DUK_USE_SYMBOL_BUILTIN)
  45075. typedef duk_uint32_t duk__sort_key_t;
  45076. #elif defined(DUK_USE_64BIT_OPS)
  45077. typedef duk_uint64_t duk__sort_key_t;
  45078. #else
  45079. typedef duk_double_t duk__sort_key_t;
  45080. #endif
  45081. /* Get sort key for a duk_hstring. */
  45082. DUK_LOCAL duk__sort_key_t duk__hstring_sort_key(duk_hstring *x) {
  45083. duk__sort_key_t val;
  45084. /* For array indices [0,0xfffffffe] use the array index as is.
  45085. * For strings, use 0xffffffff, the marker 'arridx' already in
  45086. * duk_hstring. For symbols, any value above 0xffffffff works,
  45087. * as long as it is the same for all symbols; currently just add
  45088. * the masked flag field into the arridx temporary.
  45089. */
  45090. DUK_ASSERT(x != NULL);
  45091. DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(x) || DUK_HSTRING_GET_ARRIDX_FAST(x) == DUK_HSTRING_NO_ARRAY_INDEX);
  45092. val = (duk__sort_key_t) DUK_HSTRING_GET_ARRIDX_FAST(x);
  45093. #if defined(DUK_USE_SYMBOL_BUILTIN)
  45094. val = val + (duk__sort_key_t) (DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) x) & DUK_HSTRING_FLAG_SYMBOL);
  45095. #endif
  45096. return (duk__sort_key_t) val;
  45097. }
  45098. /* Insert element 'b' after element 'a'? */
  45099. DUK_LOCAL duk_bool_t duk__sort_compare_es6(duk_hstring *a, duk_hstring *b, duk__sort_key_t val_b) {
  45100. duk__sort_key_t val_a;
  45101. DUK_ASSERT(a != NULL);
  45102. DUK_ASSERT(b != NULL);
  45103. DUK_UNREF(b); /* Not actually needed now, val_b suffices. */
  45104. val_a = duk__hstring_sort_key(a);
  45105. if (val_a > val_b) {
  45106. return 0;
  45107. } else {
  45108. return 1;
  45109. }
  45110. }
  45111. DUK_LOCAL void duk__sort_enum_keys_es6(duk_hthread *thr, duk_hobject *h_obj, duk_int_fast32_t idx_start, duk_int_fast32_t idx_end) {
  45112. duk_hstring **keys;
  45113. duk_int_fast32_t idx;
  45114. DUK_ASSERT(h_obj != NULL);
  45115. DUK_ASSERT(idx_start >= DUK__ENUM_START_INDEX);
  45116. DUK_ASSERT(idx_end >= idx_start);
  45117. DUK_UNREF(thr);
  45118. if (idx_end <= idx_start + 1) {
  45119. return; /* Zero or one element(s). */
  45120. }
  45121. keys = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, h_obj);
  45122. for (idx = idx_start + 1; idx < idx_end; idx++) {
  45123. duk_hstring *h_curr;
  45124. duk_int_fast32_t idx_insert;
  45125. duk__sort_key_t val_curr;
  45126. h_curr = keys[idx];
  45127. DUK_ASSERT(h_curr != NULL);
  45128. /* Scan backwards for insertion place. This works very well
  45129. * when the elements are nearly in order which is the common
  45130. * (and optimized for) case.
  45131. */
  45132. val_curr = duk__hstring_sort_key(h_curr); /* Remains same during scanning. */
  45133. for (idx_insert = idx - 1; idx_insert >= idx_start; idx_insert--) {
  45134. duk_hstring *h_insert;
  45135. h_insert = keys[idx_insert];
  45136. DUK_ASSERT(h_insert != NULL);
  45137. if (duk__sort_compare_es6(h_insert, h_curr, val_curr)) {
  45138. break;
  45139. }
  45140. }
  45141. /* If we're out of indices, idx_insert == idx_start - 1 and idx_insert++
  45142. * brings us back to idx_start.
  45143. */
  45144. idx_insert++;
  45145. DUK_ASSERT(idx_insert >= 0 && idx_insert <= idx);
  45146. /* .-- p_insert .-- p_curr
  45147. * v v
  45148. * | ... | insert | ... | curr
  45149. */
  45150. /* This could also done when the keys are in order, i.e.
  45151. * idx_insert == idx. The result would be an unnecessary
  45152. * memmove() but we use an explicit check because the keys
  45153. * are very often in order already.
  45154. */
  45155. if (idx != idx_insert) {
  45156. DUK_MEMMOVE((void *) (keys + idx_insert + 1),
  45157. (const void *) (keys + idx_insert),
  45158. ((size_t) (idx - idx_insert) * sizeof(duk_hstring *)));
  45159. keys[idx_insert] = h_curr;
  45160. }
  45161. }
  45162. }
  45163. /*
  45164. * Create an internal enumerator object E, which has its keys ordered
  45165. * to match desired enumeration ordering. Also initialize internal control
  45166. * properties for enumeration.
  45167. *
  45168. * Note: if an array was used to hold enumeration keys instead, an array
  45169. * scan would be needed to eliminate duplicates found in the prototype chain.
  45170. */
  45171. DUK_LOCAL void duk__add_enum_key(duk_hthread *thr, duk_hstring *k) {
  45172. /* 'k' may be unreachable on entry so must push without any
  45173. * potential for GC.
  45174. */
  45175. duk_push_hstring(thr, k);
  45176. duk_push_true(thr);
  45177. duk_put_prop(thr, -3);
  45178. }
  45179. DUK_LOCAL void duk__add_enum_key_stridx(duk_hthread *thr, duk_small_uint_t stridx) {
  45180. duk__add_enum_key(thr, DUK_HTHREAD_GET_STRING(thr, stridx));
  45181. }
  45182. DUK_INTERNAL void duk_hobject_enumerator_create(duk_hthread *thr, duk_small_uint_t enum_flags) {
  45183. duk_hobject *enum_target;
  45184. duk_hobject *curr;
  45185. duk_hobject *res;
  45186. #if defined(DUK_USE_ES6_PROXY)
  45187. duk_hobject *h_proxy_target;
  45188. duk_hobject *h_proxy_handler;
  45189. duk_hobject *h_trap_result;
  45190. #endif
  45191. duk_uint_fast32_t i, len; /* used for array, stack, and entry indices */
  45192. duk_uint_fast32_t sort_start_index;
  45193. DUK_ASSERT(thr != NULL);
  45194. enum_target = duk_require_hobject(thr, -1);
  45195. DUK_ASSERT(enum_target != NULL);
  45196. duk_push_bare_object(thr);
  45197. res = duk_known_hobject(thr, -1);
  45198. /* [enum_target res] */
  45199. /* Target must be stored so that we can recheck whether or not
  45200. * keys still exist when we enumerate. This is not done if the
  45201. * enumeration result comes from a proxy trap as there is no
  45202. * real object to check against.
  45203. */
  45204. duk_push_hobject(thr, enum_target);
  45205. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_TARGET);
  45206. /* Initialize index so that we skip internal control keys. */
  45207. duk_push_int(thr, DUK__ENUM_START_INDEX);
  45208. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_NEXT);
  45209. /*
  45210. * Proxy object handling
  45211. */
  45212. #if defined(DUK_USE_ES6_PROXY)
  45213. if (DUK_LIKELY((enum_flags & DUK_ENUM_NO_PROXY_BEHAVIOR) != 0)) {
  45214. goto skip_proxy;
  45215. }
  45216. if (DUK_LIKELY(!duk_hobject_proxy_check(enum_target,
  45217. &h_proxy_target,
  45218. &h_proxy_handler))) {
  45219. goto skip_proxy;
  45220. }
  45221. /* XXX: share code with Object.keys() Proxy handling */
  45222. /* In ES2015 for-in invoked the "enumerate" trap; in ES2016 "enumerate"
  45223. * has been obsoleted and "ownKeys" is used instead.
  45224. */
  45225. DUK_DDD(DUK_DDDPRINT("proxy enumeration"));
  45226. duk_push_hobject(thr, h_proxy_handler);
  45227. if (!duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_OWN_KEYS)) {
  45228. /* No need to replace the 'enum_target' value in stack, only the
  45229. * enum_target reference. This also ensures that the original
  45230. * enum target is reachable, which keeps the proxy and the proxy
  45231. * target reachable. We do need to replace the internal _Target.
  45232. */
  45233. DUK_DDD(DUK_DDDPRINT("no ownKeys trap, enumerate proxy target instead"));
  45234. DUK_DDD(DUK_DDDPRINT("h_proxy_target=%!O", (duk_heaphdr *) h_proxy_target));
  45235. enum_target = h_proxy_target;
  45236. duk_push_hobject(thr, enum_target); /* -> [ ... enum_target res handler undefined target ] */
  45237. duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_INT_TARGET);
  45238. duk_pop_2(thr); /* -> [ ... enum_target res ] */
  45239. goto skip_proxy;
  45240. }
  45241. /* [ ... enum_target res handler trap ] */
  45242. duk_insert(thr, -2);
  45243. duk_push_hobject(thr, h_proxy_target); /* -> [ ... enum_target res trap handler target ] */
  45244. duk_call_method(thr, 1 /*nargs*/); /* -> [ ... enum_target res trap_result ] */
  45245. h_trap_result = duk_require_hobject(thr, -1);
  45246. DUK_UNREF(h_trap_result);
  45247. duk_proxy_ownkeys_postprocess(thr, h_proxy_target, enum_flags);
  45248. /* -> [ ... enum_target res trap_result keys_array ] */
  45249. /* Copy cleaned up trap result keys into the enumerator object. */
  45250. /* XXX: result is a dense array; could make use of that. */
  45251. DUK_ASSERT(duk_is_array(thr, -1));
  45252. len = (duk_uint_fast32_t) duk_get_length(thr, -1);
  45253. for (i = 0; i < len; i++) {
  45254. (void) duk_get_prop_index(thr, -1, (duk_uarridx_t) i);
  45255. DUK_ASSERT(duk_is_string(thr, -1)); /* postprocess cleaned up */
  45256. /* [ ... enum_target res trap_result keys_array val ] */
  45257. duk_push_true(thr);
  45258. /* [ ... enum_target res trap_result keys_array val true ] */
  45259. duk_put_prop(thr, -5);
  45260. }
  45261. /* [ ... enum_target res trap_result keys_array ] */
  45262. duk_pop_2(thr);
  45263. duk_remove_m2(thr);
  45264. /* [ ... res ] */
  45265. /* The internal _Target property is kept pointing to the original
  45266. * enumeration target (the proxy object), so that the enumerator
  45267. * 'next' operation can read property values if so requested. The
  45268. * fact that the _Target is a proxy disables key existence check
  45269. * during enumeration.
  45270. */
  45271. DUK_DDD(DUK_DDDPRINT("proxy enumeration, final res: %!O", (duk_heaphdr *) res));
  45272. goto compact_and_return;
  45273. skip_proxy:
  45274. #endif /* DUK_USE_ES6_PROXY */
  45275. curr = enum_target;
  45276. sort_start_index = DUK__ENUM_START_INDEX;
  45277. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(res) == DUK__ENUM_START_INDEX);
  45278. while (curr) {
  45279. duk_uint_fast32_t sort_end_index;
  45280. #if !defined(DUK_USE_PREFER_SIZE)
  45281. duk_bool_t need_sort = 0;
  45282. #endif
  45283. /* Enumeration proceeds by inheritance level. Virtual
  45284. * properties need to be handled specially, followed by
  45285. * array part, and finally entry part.
  45286. *
  45287. * If there are array index keys in the entry part or any
  45288. * other risk of the ES2015 [[OwnPropertyKeys]] order being
  45289. * violated, need_sort is set and an explicit ES2015 sort is
  45290. * done for the inheritance level.
  45291. */
  45292. /* XXX: inheriting from proxy */
  45293. /*
  45294. * Virtual properties.
  45295. *
  45296. * String and buffer indices are virtual and always enumerable,
  45297. * 'length' is virtual and non-enumerable. Array and arguments
  45298. * object props have special behavior but are concrete.
  45299. *
  45300. * String and buffer objects don't have an array part so as long
  45301. * as virtual array index keys are enumerated first, we don't
  45302. * need to set need_sort.
  45303. */
  45304. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  45305. if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr) || DUK_HOBJECT_IS_BUFOBJ(curr)) {
  45306. #else
  45307. if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr)) {
  45308. #endif
  45309. duk_bool_t have_length = 1;
  45310. /* String and buffer enumeration behavior is identical now,
  45311. * so use shared handler.
  45312. */
  45313. if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr)) {
  45314. duk_hstring *h_val;
  45315. h_val = duk_hobject_get_internal_value_string(thr->heap, curr);
  45316. DUK_ASSERT(h_val != NULL); /* string objects must not created without internal value */
  45317. len = (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h_val);
  45318. }
  45319. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  45320. else {
  45321. duk_hbufobj *h_bufobj;
  45322. DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ(curr));
  45323. h_bufobj = (duk_hbufobj *) curr;
  45324. if (h_bufobj == NULL || !h_bufobj->is_typedarray) {
  45325. /* Zero length seems like a good behavior for neutered buffers.
  45326. * ArrayBuffer (non-view) and DataView don't have index properties
  45327. * or .length property.
  45328. */
  45329. len = 0;
  45330. have_length = 0;
  45331. } else {
  45332. /* There's intentionally no check for
  45333. * current underlying buffer length.
  45334. */
  45335. len = (duk_uint_fast32_t) (h_bufobj->length >> h_bufobj->shift);
  45336. }
  45337. }
  45338. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  45339. for (i = 0; i < len; i++) {
  45340. duk_hstring *k;
  45341. /* This is a bit fragile: the string is not
  45342. * reachable until it is pushed by the helper.
  45343. */
  45344. k = duk_heap_strtable_intern_u32_checked(thr, (duk_uint32_t) i);
  45345. DUK_ASSERT(k);
  45346. duk__add_enum_key(thr, k);
  45347. /* [enum_target res] */
  45348. }
  45349. /* 'length' and other virtual properties are not
  45350. * enumerable, but are included if non-enumerable
  45351. * properties are requested.
  45352. */
  45353. if (have_length && (enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE)) {
  45354. duk__add_enum_key_stridx(thr, DUK_STRIDX_LENGTH);
  45355. }
  45356. }
  45357. /*
  45358. * Array part
  45359. */
  45360. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(curr); i++) {
  45361. duk_hstring *k;
  45362. duk_tval *tv;
  45363. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, curr, i);
  45364. if (DUK_TVAL_IS_UNUSED(tv)) {
  45365. continue;
  45366. }
  45367. k = duk_heap_strtable_intern_u32_checked(thr, (duk_uint32_t) i); /* Fragile reachability. */
  45368. DUK_ASSERT(k);
  45369. duk__add_enum_key(thr, k);
  45370. /* [enum_target res] */
  45371. }
  45372. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(curr)) {
  45373. /* Array .length comes after numeric indices. */
  45374. if (enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE) {
  45375. duk__add_enum_key_stridx(thr, DUK_STRIDX_LENGTH);
  45376. }
  45377. }
  45378. /*
  45379. * Entries part
  45380. */
  45381. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(curr); i++) {
  45382. duk_hstring *k;
  45383. k = DUK_HOBJECT_E_GET_KEY(thr->heap, curr, i);
  45384. if (!k) {
  45385. continue;
  45386. }
  45387. if (!(enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE) &&
  45388. !DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(thr->heap, curr, i)) {
  45389. continue;
  45390. }
  45391. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(k))) {
  45392. if (!(enum_flags & DUK_ENUM_INCLUDE_HIDDEN) &&
  45393. DUK_HSTRING_HAS_HIDDEN(k)) {
  45394. continue;
  45395. }
  45396. if (!(enum_flags & DUK_ENUM_INCLUDE_SYMBOLS)) {
  45397. continue;
  45398. }
  45399. #if !defined(DUK_USE_PREFER_SIZE)
  45400. need_sort = 1;
  45401. #endif
  45402. } else {
  45403. DUK_ASSERT(!DUK_HSTRING_HAS_HIDDEN(k)); /* would also have symbol flag */
  45404. if (enum_flags & DUK_ENUM_EXCLUDE_STRINGS) {
  45405. continue;
  45406. }
  45407. }
  45408. if (DUK_HSTRING_HAS_ARRIDX(k)) {
  45409. /* This in currently only possible if the
  45410. * object has no array part: the array part
  45411. * is exhaustive when it is present.
  45412. */
  45413. #if !defined(DUK_USE_PREFER_SIZE)
  45414. need_sort = 1;
  45415. #endif
  45416. } else {
  45417. if (enum_flags & DUK_ENUM_ARRAY_INDICES_ONLY) {
  45418. continue;
  45419. }
  45420. }
  45421. DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, curr, i) ||
  45422. !DUK_TVAL_IS_UNUSED(&DUK_HOBJECT_E_GET_VALUE_PTR(thr->heap, curr, i)->v));
  45423. duk__add_enum_key(thr, k);
  45424. /* [enum_target res] */
  45425. }
  45426. /* Sort enumerated keys according to ES2015 requirements for
  45427. * the "inheritance level" just processed. This is far from
  45428. * optimal, ES2015 semantics could be achieved more efficiently
  45429. * by handling array index string keys (and symbol keys)
  45430. * specially above in effect doing the sort inline.
  45431. *
  45432. * Skip the sort if array index sorting is requested because
  45433. * we must consider all keys, also inherited, so an explicit
  45434. * sort is done for the whole result after we're done with the
  45435. * prototype chain.
  45436. *
  45437. * Also skip the sort if need_sort == 0, i.e. we know for
  45438. * certain that the enumerated order is already correct.
  45439. */
  45440. sort_end_index = DUK_HOBJECT_GET_ENEXT(res);
  45441. if (!(enum_flags & DUK_ENUM_SORT_ARRAY_INDICES)) {
  45442. #if defined(DUK_USE_PREFER_SIZE)
  45443. duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) sort_start_index, (duk_int_fast32_t) sort_end_index);
  45444. #else
  45445. if (need_sort) {
  45446. DUK_DDD(DUK_DDDPRINT("need to sort"));
  45447. duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) sort_start_index, (duk_int_fast32_t) sort_end_index);
  45448. } else {
  45449. DUK_DDD(DUK_DDDPRINT("no need to sort"));
  45450. }
  45451. #endif
  45452. }
  45453. sort_start_index = sort_end_index;
  45454. if (enum_flags & DUK_ENUM_OWN_PROPERTIES_ONLY) {
  45455. break;
  45456. }
  45457. curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr);
  45458. }
  45459. /* [enum_target res] */
  45460. duk_remove_m2(thr);
  45461. /* [res] */
  45462. if (enum_flags & DUK_ENUM_SORT_ARRAY_INDICES) {
  45463. /* Some E5/E5.1 algorithms require that array indices are iterated
  45464. * in a strictly ascending order. This is the case for e.g.
  45465. * Array.prototype.forEach() and JSON.stringify() PropertyList
  45466. * handling. The caller can request an explicit sort in these
  45467. * cases.
  45468. */
  45469. /* Sort to ES2015 order which works for pure array incides but
  45470. * also for mixed keys.
  45471. */
  45472. duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) DUK__ENUM_START_INDEX, (duk_int_fast32_t) DUK_HOBJECT_GET_ENEXT(res));
  45473. }
  45474. #if defined(DUK_USE_ES6_PROXY)
  45475. compact_and_return:
  45476. #endif
  45477. /* compact; no need to seal because object is internal */
  45478. duk_hobject_compact_props(thr, res);
  45479. DUK_DDD(DUK_DDDPRINT("created enumerator object: %!iT", (duk_tval *) duk_get_tval(thr, -1)));
  45480. }
  45481. /*
  45482. * Returns non-zero if a key and/or value was enumerated, and:
  45483. *
  45484. * [enum] -> [key] (get_value == 0)
  45485. * [enum] -> [key value] (get_value == 1)
  45486. *
  45487. * Returns zero without pushing anything on the stack otherwise.
  45488. */
  45489. DUK_INTERNAL duk_bool_t duk_hobject_enumerator_next(duk_hthread *thr, duk_bool_t get_value) {
  45490. duk_hobject *e;
  45491. duk_hobject *enum_target;
  45492. duk_hstring *res = NULL;
  45493. duk_uint_fast32_t idx;
  45494. duk_bool_t check_existence;
  45495. DUK_ASSERT(thr != NULL);
  45496. /* [... enum] */
  45497. e = duk_require_hobject(thr, -1);
  45498. /* XXX use get tval ptr, more efficient */
  45499. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_NEXT);
  45500. idx = (duk_uint_fast32_t) duk_require_uint(thr, -1);
  45501. duk_pop(thr);
  45502. DUK_DDD(DUK_DDDPRINT("enumeration: index is: %ld", (long) idx));
  45503. /* Enumeration keys are checked against the enumeration target (to see
  45504. * that they still exist). In the proxy enumeration case _Target will
  45505. * be the proxy, and checking key existence against the proxy is not
  45506. * required (or sensible, as the keys may be fully virtual).
  45507. */
  45508. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_TARGET);
  45509. enum_target = duk_require_hobject(thr, -1);
  45510. DUK_ASSERT(enum_target != NULL);
  45511. #if defined(DUK_USE_ES6_PROXY)
  45512. check_existence = (!DUK_HOBJECT_IS_PROXY(enum_target));
  45513. #else
  45514. check_existence = 1;
  45515. #endif
  45516. duk_pop(thr); /* still reachable */
  45517. DUK_DDD(DUK_DDDPRINT("getting next enum value, enum_target=%!iO, enumerator=%!iT",
  45518. (duk_heaphdr *) enum_target, (duk_tval *) duk_get_tval(thr, -1)));
  45519. /* no array part */
  45520. for (;;) {
  45521. duk_hstring *k;
  45522. if (idx >= DUK_HOBJECT_GET_ENEXT(e)) {
  45523. DUK_DDD(DUK_DDDPRINT("enumeration: ran out of elements"));
  45524. break;
  45525. }
  45526. /* we know these because enum objects are internally created */
  45527. k = DUK_HOBJECT_E_GET_KEY(thr->heap, e, idx);
  45528. DUK_ASSERT(k != NULL);
  45529. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, e, idx));
  45530. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(&DUK_HOBJECT_E_GET_VALUE(thr->heap, e, idx).v));
  45531. idx++;
  45532. /* recheck that the property still exists */
  45533. if (check_existence && !duk_hobject_hasprop_raw(thr, enum_target, k)) {
  45534. DUK_DDD(DUK_DDDPRINT("property deleted during enumeration, skip"));
  45535. continue;
  45536. }
  45537. DUK_DDD(DUK_DDDPRINT("enumeration: found element, key: %!O", (duk_heaphdr *) k));
  45538. res = k;
  45539. break;
  45540. }
  45541. DUK_DDD(DUK_DDDPRINT("enumeration: updating next index to %ld", (long) idx));
  45542. duk_push_u32(thr, (duk_uint32_t) idx);
  45543. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_NEXT);
  45544. /* [... enum] */
  45545. if (res) {
  45546. duk_push_hstring(thr, res);
  45547. if (get_value) {
  45548. duk_push_hobject(thr, enum_target);
  45549. duk_dup_m2(thr); /* -> [... enum key enum_target key] */
  45550. duk_get_prop(thr, -2); /* -> [... enum key enum_target val] */
  45551. duk_remove_m2(thr); /* -> [... enum key val] */
  45552. duk_remove(thr, -3); /* -> [... key val] */
  45553. } else {
  45554. duk_remove_m2(thr); /* -> [... key] */
  45555. }
  45556. return 1;
  45557. } else {
  45558. duk_pop(thr); /* -> [...] */
  45559. return 0;
  45560. }
  45561. }
  45562. /*
  45563. * Get enumerated keys in an Ecmascript array. Matches Object.keys() behavior
  45564. * described in E5 Section 15.2.3.14.
  45565. */
  45566. DUK_INTERNAL duk_ret_t duk_hobject_get_enumerated_keys(duk_hthread *thr, duk_small_uint_t enum_flags) {
  45567. duk_hobject *e;
  45568. duk_hstring **keys;
  45569. duk_tval *tv;
  45570. duk_uint_fast32_t count;
  45571. DUK_ASSERT(thr != NULL);
  45572. DUK_ASSERT(duk_get_hobject(thr, -1) != NULL);
  45573. /* Create a temporary enumerator to get the (non-duplicated) key list;
  45574. * the enumerator state is initialized without being needed, but that
  45575. * has little impact.
  45576. */
  45577. duk_hobject_enumerator_create(thr, enum_flags);
  45578. e = duk_known_hobject(thr, -1);
  45579. /* [enum_target enum res] */
  45580. /* Create dense result array to exact size. */
  45581. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(e) >= DUK__ENUM_START_INDEX);
  45582. count = (duk_uint32_t) (DUK_HOBJECT_GET_ENEXT(e) - DUK__ENUM_START_INDEX);
  45583. /* XXX: uninit would be OK */
  45584. tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) count);
  45585. DUK_ASSERT(count == 0 || tv != NULL);
  45586. /* Fill result array, no side effects. */
  45587. keys = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, e);
  45588. keys += DUK__ENUM_START_INDEX;
  45589. while (count-- > 0) {
  45590. duk_hstring *k;
  45591. k = *keys++;
  45592. DUK_ASSERT(k != NULL); /* enumerator must have no keys deleted */
  45593. DUK_TVAL_SET_STRING(tv, k);
  45594. tv++;
  45595. DUK_HSTRING_INCREF(thr, k);
  45596. }
  45597. /* [enum_target enum res] */
  45598. duk_remove_m2(thr);
  45599. /* [enum_target res] */
  45600. return 1; /* return 1 to allow callers to tail call */
  45601. }
  45602. /* automatic undefs */
  45603. #undef DUK__ENUM_START_INDEX
  45604. #line 1 "duk_hobject_misc.c"
  45605. /*
  45606. * Misc support functions
  45607. */
  45608. /* #include duk_internal.h -> already included */
  45609. DUK_INTERNAL duk_bool_t duk_hobject_prototype_chain_contains(duk_hthread *thr, duk_hobject *h, duk_hobject *p, duk_bool_t ignore_loop) {
  45610. duk_uint_t sanity;
  45611. DUK_ASSERT(thr != NULL);
  45612. /* False if the object is NULL or the prototype 'p' is NULL.
  45613. * In particular, false if both are NULL (don't compare equal).
  45614. */
  45615. if (h == NULL || p == NULL) {
  45616. return 0;
  45617. }
  45618. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  45619. do {
  45620. if (h == p) {
  45621. return 1;
  45622. }
  45623. if (sanity-- == 0) {
  45624. if (ignore_loop) {
  45625. break;
  45626. } else {
  45627. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  45628. }
  45629. }
  45630. h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h);
  45631. } while (h);
  45632. return 0;
  45633. }
  45634. DUK_INTERNAL void duk_hobject_set_prototype_updref(duk_hthread *thr, duk_hobject *h, duk_hobject *p) {
  45635. #if defined(DUK_USE_REFERENCE_COUNTING)
  45636. duk_hobject *tmp;
  45637. DUK_ASSERT(h);
  45638. tmp = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h);
  45639. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, h, p);
  45640. DUK_HOBJECT_INCREF_ALLOWNULL(thr, p); /* avoid problems if p == h->prototype */
  45641. DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp);
  45642. #else
  45643. DUK_ASSERT(h);
  45644. DUK_UNREF(thr);
  45645. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, h, p);
  45646. #endif
  45647. }
  45648. #line 1 "duk_hobject_pc2line.c"
  45649. /*
  45650. * Helpers for creating and querying pc2line debug data, which
  45651. * converts a bytecode program counter to a source line number.
  45652. *
  45653. * The run-time pc2line data is bit-packed, and documented in:
  45654. *
  45655. * doc/function-objects.rst
  45656. */
  45657. /* #include duk_internal.h -> already included */
  45658. #if defined(DUK_USE_PC2LINE)
  45659. /* Generate pc2line data for an instruction sequence, leaving a buffer on stack top. */
  45660. DUK_INTERNAL void duk_hobject_pc2line_pack(duk_hthread *thr, duk_compiler_instr *instrs, duk_uint_fast32_t length) {
  45661. duk_hbuffer_dynamic *h_buf;
  45662. duk_bitencoder_ctx be_ctx_alloc;
  45663. duk_bitencoder_ctx *be_ctx = &be_ctx_alloc;
  45664. duk_uint32_t *hdr;
  45665. duk_size_t new_size;
  45666. duk_uint_fast32_t num_header_entries;
  45667. duk_uint_fast32_t curr_offset;
  45668. duk_int_fast32_t curr_line, next_line, diff_line;
  45669. duk_uint_fast32_t curr_pc;
  45670. duk_uint_fast32_t hdr_index;
  45671. DUK_ASSERT(length <= DUK_COMPILER_MAX_BYTECODE_LENGTH);
  45672. num_header_entries = (length + DUK_PC2LINE_SKIP - 1) / DUK_PC2LINE_SKIP;
  45673. curr_offset = (duk_uint_fast32_t) (sizeof(duk_uint32_t) + num_header_entries * sizeof(duk_uint32_t) * 2);
  45674. duk_push_dynamic_buffer(thr, (duk_size_t) curr_offset);
  45675. h_buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, -1);
  45676. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(h_buf) && !DUK_HBUFFER_HAS_EXTERNAL(h_buf));
  45677. hdr = (duk_uint32_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h_buf);
  45678. DUK_ASSERT(hdr != NULL);
  45679. hdr[0] = (duk_uint32_t) length; /* valid pc range is [0, length[ */
  45680. curr_pc = 0U;
  45681. while (curr_pc < length) {
  45682. new_size = (duk_size_t) (curr_offset + DUK_PC2LINE_MAX_DIFF_LENGTH);
  45683. duk_hbuffer_resize(thr, h_buf, new_size);
  45684. hdr = (duk_uint32_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h_buf);
  45685. DUK_ASSERT(hdr != NULL);
  45686. DUK_ASSERT(curr_pc < length);
  45687. hdr_index = 1 + (curr_pc / DUK_PC2LINE_SKIP) * 2;
  45688. curr_line = (duk_int_fast32_t) instrs[curr_pc].line;
  45689. hdr[hdr_index + 0] = (duk_uint32_t) curr_line;
  45690. hdr[hdr_index + 1] = (duk_uint32_t) curr_offset;
  45691. #if 0
  45692. DUK_DDD(DUK_DDDPRINT("hdr[%ld]: pc=%ld line=%ld offset=%ld",
  45693. (long) (curr_pc / DUK_PC2LINE_SKIP),
  45694. (long) curr_pc,
  45695. (long) hdr[hdr_index + 0],
  45696. (long) hdr[hdr_index + 1]));
  45697. #endif
  45698. DUK_MEMZERO(be_ctx, sizeof(*be_ctx));
  45699. be_ctx->data = ((duk_uint8_t *) hdr) + curr_offset;
  45700. be_ctx->length = (duk_size_t) DUK_PC2LINE_MAX_DIFF_LENGTH;
  45701. for (;;) {
  45702. curr_pc++;
  45703. if ( ((curr_pc % DUK_PC2LINE_SKIP) == 0) || /* end of diff run */
  45704. (curr_pc >= length) ) { /* end of bytecode */
  45705. break;
  45706. }
  45707. DUK_ASSERT(curr_pc < length);
  45708. next_line = (duk_int32_t) instrs[curr_pc].line;
  45709. diff_line = next_line - curr_line;
  45710. #if 0
  45711. DUK_DDD(DUK_DDDPRINT("curr_line=%ld, next_line=%ld -> diff_line=%ld",
  45712. (long) curr_line, (long) next_line, (long) diff_line));
  45713. #endif
  45714. if (diff_line == 0) {
  45715. /* 0 */
  45716. duk_be_encode(be_ctx, 0, 1);
  45717. } else if (diff_line >= 1 && diff_line <= 4) {
  45718. /* 1 0 <2 bits> */
  45719. duk_be_encode(be_ctx, (duk_uint32_t) ((0x02 << 2) + (diff_line - 1)), 4);
  45720. } else if (diff_line >= -0x80 && diff_line <= 0x7f) {
  45721. /* 1 1 0 <8 bits> */
  45722. DUK_ASSERT(diff_line + 0x80 >= 0 && diff_line + 0x80 <= 0xff);
  45723. duk_be_encode(be_ctx, (duk_uint32_t) ((0x06 << 8) + (diff_line + 0x80)), 11);
  45724. } else {
  45725. /* 1 1 1 <32 bits>
  45726. * Encode in two parts to avoid bitencode 24-bit limitation
  45727. */
  45728. duk_be_encode(be_ctx, (duk_uint32_t) ((0x07 << 16) + ((next_line >> 16) & 0xffff)), 19);
  45729. duk_be_encode(be_ctx, (duk_uint32_t) (next_line & 0xffff), 16);
  45730. }
  45731. curr_line = next_line;
  45732. }
  45733. duk_be_finish(be_ctx);
  45734. DUK_ASSERT(!be_ctx->truncated);
  45735. /* be_ctx->offset == length of encoded bitstream */
  45736. curr_offset += (duk_uint_fast32_t) be_ctx->offset;
  45737. }
  45738. /* compact */
  45739. new_size = (duk_size_t) curr_offset;
  45740. duk_hbuffer_resize(thr, h_buf, new_size);
  45741. (void) duk_to_fixed_buffer(thr, -1, NULL);
  45742. DUK_DDD(DUK_DDDPRINT("final pc2line data: pc_limit=%ld, length=%ld, %lf bits/opcode --> %!ixT",
  45743. (long) length, (long) new_size, (double) new_size * 8.0 / (double) length,
  45744. (duk_tval *) duk_get_tval(thr, -1)));
  45745. }
  45746. /* PC is unsigned. If caller does PC arithmetic and gets a negative result,
  45747. * it will map to a large PC which is out of bounds and causes a zero to be
  45748. * returned.
  45749. */
  45750. DUK_LOCAL duk_uint_fast32_t duk__hobject_pc2line_query_raw(duk_hthread *thr, duk_hbuffer_fixed *buf, duk_uint_fast32_t pc) {
  45751. duk_bitdecoder_ctx bd_ctx_alloc;
  45752. duk_bitdecoder_ctx *bd_ctx = &bd_ctx_alloc;
  45753. duk_uint32_t *hdr;
  45754. duk_uint_fast32_t start_offset;
  45755. duk_uint_fast32_t pc_limit;
  45756. duk_uint_fast32_t hdr_index;
  45757. duk_uint_fast32_t pc_base;
  45758. duk_uint_fast32_t n;
  45759. duk_uint_fast32_t curr_line;
  45760. DUK_ASSERT(buf != NULL);
  45761. DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC((duk_hbuffer *) buf) && !DUK_HBUFFER_HAS_EXTERNAL((duk_hbuffer *) buf));
  45762. DUK_UNREF(thr);
  45763. /*
  45764. * Use the index in the header to find the right starting point
  45765. */
  45766. hdr_index = pc / DUK_PC2LINE_SKIP;
  45767. pc_base = hdr_index * DUK_PC2LINE_SKIP;
  45768. n = pc - pc_base;
  45769. if (DUK_HBUFFER_FIXED_GET_SIZE(buf) <= sizeof(duk_uint32_t)) {
  45770. DUK_DD(DUK_DDPRINT("pc2line lookup failed: buffer is smaller than minimal header"));
  45771. goto pc2line_error;
  45772. }
  45773. hdr = (duk_uint32_t *) (void *) DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, buf);
  45774. pc_limit = hdr[0];
  45775. if (pc >= pc_limit) {
  45776. /* Note: pc is unsigned and cannot be negative */
  45777. DUK_DD(DUK_DDPRINT("pc2line lookup failed: pc out of bounds (pc=%ld, limit=%ld)",
  45778. (long) pc, (long) pc_limit));
  45779. goto pc2line_error;
  45780. }
  45781. curr_line = hdr[1 + hdr_index * 2];
  45782. start_offset = hdr[1 + hdr_index * 2 + 1];
  45783. if ((duk_size_t) start_offset > DUK_HBUFFER_FIXED_GET_SIZE(buf)) {
  45784. DUK_DD(DUK_DDPRINT("pc2line lookup failed: start_offset out of bounds (start_offset=%ld, buffer_size=%ld)",
  45785. (long) start_offset, (long) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) buf)));
  45786. goto pc2line_error;
  45787. }
  45788. /*
  45789. * Iterate the bitstream (line diffs) until PC is reached
  45790. */
  45791. DUK_MEMZERO(bd_ctx, sizeof(*bd_ctx));
  45792. bd_ctx->data = ((duk_uint8_t *) hdr) + start_offset;
  45793. bd_ctx->length = (duk_size_t) (DUK_HBUFFER_FIXED_GET_SIZE(buf) - start_offset);
  45794. #if 0
  45795. DUK_DDD(DUK_DDDPRINT("pc2line lookup: pc=%ld -> hdr_index=%ld, pc_base=%ld, n=%ld, start_offset=%ld",
  45796. (long) pc, (long) hdr_index, (long) pc_base, (long) n, (long) start_offset));
  45797. #endif
  45798. while (n > 0) {
  45799. #if 0
  45800. DUK_DDD(DUK_DDDPRINT("lookup: n=%ld, curr_line=%ld", (long) n, (long) curr_line));
  45801. #endif
  45802. if (duk_bd_decode_flag(bd_ctx)) {
  45803. if (duk_bd_decode_flag(bd_ctx)) {
  45804. if (duk_bd_decode_flag(bd_ctx)) {
  45805. /* 1 1 1 <32 bits> */
  45806. duk_uint_fast32_t t;
  45807. t = duk_bd_decode(bd_ctx, 16); /* workaround: max nbits = 24 now */
  45808. t = (t << 16) + duk_bd_decode(bd_ctx, 16);
  45809. curr_line = t;
  45810. } else {
  45811. /* 1 1 0 <8 bits> */
  45812. duk_uint_fast32_t t;
  45813. t = duk_bd_decode(bd_ctx, 8);
  45814. curr_line = curr_line + t - 0x80;
  45815. }
  45816. } else {
  45817. /* 1 0 <2 bits> */
  45818. duk_uint_fast32_t t;
  45819. t = duk_bd_decode(bd_ctx, 2);
  45820. curr_line = curr_line + t + 1;
  45821. }
  45822. } else {
  45823. /* 0: no change */
  45824. }
  45825. n--;
  45826. }
  45827. DUK_DDD(DUK_DDDPRINT("pc2line lookup result: pc %ld -> line %ld", (long) pc, (long) curr_line));
  45828. return curr_line;
  45829. pc2line_error:
  45830. DUK_D(DUK_DPRINT("pc2line conversion failed for pc=%ld", (long) pc));
  45831. return 0;
  45832. }
  45833. DUK_INTERNAL duk_uint_fast32_t duk_hobject_pc2line_query(duk_hthread *thr, duk_idx_t idx_func, duk_uint_fast32_t pc) {
  45834. duk_hbuffer_fixed *pc2line;
  45835. duk_uint_fast32_t line;
  45836. /* XXX: now that pc2line is used by the debugger quite heavily in
  45837. * checked execution, this should be optimized to avoid value stack
  45838. * and perhaps also implement some form of pc2line caching (see
  45839. * future work in debugger.rst).
  45840. */
  45841. duk_get_prop_stridx(thr, idx_func, DUK_STRIDX_INT_PC2LINE);
  45842. pc2line = (duk_hbuffer_fixed *) duk_get_hbuffer(thr, -1);
  45843. if (pc2line != NULL) {
  45844. DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC((duk_hbuffer *) pc2line) && !DUK_HBUFFER_HAS_EXTERNAL((duk_hbuffer *) pc2line));
  45845. line = duk__hobject_pc2line_query_raw(thr, pc2line, (duk_uint_fast32_t) pc);
  45846. } else {
  45847. line = 0;
  45848. }
  45849. duk_pop(thr);
  45850. return line;
  45851. }
  45852. #endif /* DUK_USE_PC2LINE */
  45853. #line 1 "duk_hobject_props.c"
  45854. /*
  45855. * duk_hobject property access functionality.
  45856. *
  45857. * This is very central functionality for size, performance, and compliance.
  45858. * It is also rather intricate; see hobject-algorithms.rst for discussion on
  45859. * the algorithms and memory-management.rst for discussion on refcounts and
  45860. * side effect issues.
  45861. *
  45862. * Notes:
  45863. *
  45864. * - It might be tempting to assert "refcount nonzero" for objects
  45865. * being operated on, but that's not always correct: objects with
  45866. * a zero refcount may be operated on by the refcount implementation
  45867. * (finalization) for instance. Hence, no refcount assertions are made.
  45868. *
  45869. * - Many operations (memory allocation, identifier operations, etc)
  45870. * may cause arbitrary side effects (e.g. through GC and finalization).
  45871. * These side effects may invalidate duk_tval pointers which point to
  45872. * areas subject to reallocation (like value stack). Heap objects
  45873. * themselves have stable pointers. Holding heap object pointers or
  45874. * duk_tval copies is not problematic with respect to side effects;
  45875. * care must be taken when holding and using argument duk_tval pointers.
  45876. *
  45877. * - If a finalizer is executed, it may operate on the the same object
  45878. * we're currently dealing with. For instance, the finalizer might
  45879. * delete a certain property which has already been looked up and
  45880. * confirmed to exist. Ideally finalizers would be disabled if GC
  45881. * happens during property access. At the moment property table realloc
  45882. * disables finalizers, and all DECREFs may cause arbitrary changes so
  45883. * handle DECREF carefully.
  45884. *
  45885. * - The order of operations for a DECREF matters. When DECREF is executed,
  45886. * the entire object graph must be consistent; note that a refzero may
  45887. * lead to a mark-and-sweep through a refcount finalizer. Use NORZ macros
  45888. * and an explicit DUK_REFZERO_CHECK_xxx() if achieving correct order is hard.
  45889. */
  45890. /*
  45891. * XXX: array indices are mostly typed as duk_uint32_t here; duk_uarridx_t
  45892. * might be more appropriate.
  45893. */
  45894. /* #include duk_internal.h -> already included */
  45895. /*
  45896. * Local defines
  45897. */
  45898. #define DUK__NO_ARRAY_INDEX DUK_HSTRING_NO_ARRAY_INDEX
  45899. /* Marker values for hash part. */
  45900. #define DUK__HASH_UNUSED DUK_HOBJECT_HASHIDX_UNUSED
  45901. #define DUK__HASH_DELETED DUK_HOBJECT_HASHIDX_DELETED
  45902. /* Valstack space that suffices for all local calls, excluding any recursion
  45903. * into Ecmascript or Duktape/C calls (Proxy, getters, etc).
  45904. */
  45905. #define DUK__VALSTACK_SPACE 10
  45906. /* Valstack space allocated especially for proxy lookup which does a
  45907. * recursive property lookup.
  45908. */
  45909. #define DUK__VALSTACK_PROXY_LOOKUP 20
  45910. /*
  45911. * Local prototypes
  45912. */
  45913. DUK_LOCAL_DECL duk_bool_t duk__check_arguments_map_for_get(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc);
  45914. DUK_LOCAL_DECL void duk__check_arguments_map_for_put(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc, duk_bool_t throw_flag);
  45915. DUK_LOCAL_DECL void duk__check_arguments_map_for_delete(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc);
  45916. DUK_LOCAL_DECL duk_bool_t duk__handle_put_array_length_smaller(duk_hthread *thr, duk_hobject *obj, duk_uint32_t old_len, duk_uint32_t new_len, duk_bool_t force_flag, duk_uint32_t *out_result_len);
  45917. DUK_LOCAL_DECL duk_bool_t duk__handle_put_array_length(duk_hthread *thr, duk_hobject *obj);
  45918. DUK_LOCAL_DECL duk_bool_t duk__get_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags);
  45919. DUK_LOCAL_DECL duk_bool_t duk__get_own_propdesc_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_uint32_t arr_idx, duk_propdesc *out_desc, duk_small_uint_t flags);
  45920. /*
  45921. * Misc helpers
  45922. */
  45923. /* Convert a duk_tval number (caller checks) to a 32-bit index. Returns
  45924. * DUK__NO_ARRAY_INDEX if the number is not whole or not a valid array
  45925. * index.
  45926. */
  45927. /* XXX: for fastints, could use a variant which assumes a double duk_tval
  45928. * (and doesn't need to check for fastint again).
  45929. */
  45930. DUK_LOCAL duk_uint32_t duk__tval_number_to_arr_idx(duk_tval *tv) {
  45931. duk_double_t dbl;
  45932. duk_uint32_t idx;
  45933. DUK_ASSERT(tv != NULL);
  45934. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  45935. /* -0 is accepted here as index 0 because ToString(-0) == "0" which is
  45936. * in canonical form and thus an array index.
  45937. */
  45938. dbl = DUK_TVAL_GET_NUMBER(tv);
  45939. idx = (duk_uint32_t) dbl;
  45940. if ((duk_double_t) idx == dbl) {
  45941. /* Is whole and within 32 bit range. If the value happens to be 0xFFFFFFFF,
  45942. * it's not a valid array index but will then match DUK__NO_ARRAY_INDEX.
  45943. */
  45944. return idx;
  45945. }
  45946. return DUK__NO_ARRAY_INDEX;
  45947. }
  45948. #if defined(DUK_USE_FASTINT)
  45949. /* Convert a duk_tval fastint (caller checks) to a 32-bit index. */
  45950. DUK_LOCAL duk_uint32_t duk__tval_fastint_to_arr_idx(duk_tval *tv) {
  45951. duk_int64_t t;
  45952. DUK_ASSERT(tv != NULL);
  45953. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv));
  45954. t = DUK_TVAL_GET_FASTINT(tv);
  45955. if (((duk_uint64_t) t & ~DUK_U64_CONSTANT(0xffffffff)) != 0) {
  45956. /* Catches >0x100000000 and negative values. */
  45957. return DUK__NO_ARRAY_INDEX;
  45958. }
  45959. /* If the value happens to be 0xFFFFFFFF, it's not a valid array index
  45960. * but will then match DUK__NO_ARRAY_INDEX.
  45961. */
  45962. return (duk_uint32_t) t;
  45963. }
  45964. #endif /* DUK_USE_FASTINT */
  45965. /* Convert a duk_tval on the value stack (in a trusted index we don't validate)
  45966. * to a string or symbol using ES2015 ToPropertyKey():
  45967. * http://www.ecma-international.org/ecma-262/6.0/#sec-topropertykey.
  45968. *
  45969. * Also check if it's a valid array index and return that (or DUK__NO_ARRAY_INDEX
  45970. * if not).
  45971. */
  45972. DUK_LOCAL duk_uint32_t duk__to_property_key(duk_hthread *thr, duk_idx_t idx, duk_hstring **out_h) {
  45973. duk_uint32_t arr_idx;
  45974. duk_hstring *h;
  45975. duk_tval *tv_dst;
  45976. DUK_ASSERT(thr != NULL);
  45977. DUK_ASSERT(out_h != NULL);
  45978. DUK_ASSERT(duk_is_valid_index(thr, idx));
  45979. DUK_ASSERT(idx < 0);
  45980. /* XXX: The revised ES2015 ToPropertyKey() handling (ES5.1 was just
  45981. * ToString()) involves a ToPrimitive(), a symbol check, and finally
  45982. * a ToString(). Figure out the best way to have a good fast path
  45983. * but still be compliant and share code.
  45984. */
  45985. tv_dst = DUK_GET_TVAL_NEGIDX(thr, idx); /* intentionally unvalidated */
  45986. if (DUK_TVAL_IS_STRING(tv_dst)) {
  45987. /* Most important path: strings and plain symbols are used as
  45988. * is. For symbols the array index check below is unnecessary
  45989. * (they're never valid array indices) but checking that the
  45990. * string is a symbol would make the plain string path slower
  45991. * unnecessarily.
  45992. */
  45993. h = DUK_TVAL_GET_STRING(tv_dst);
  45994. } else {
  45995. h = duk_to_property_key_hstring(thr, idx);
  45996. }
  45997. DUK_ASSERT(h != NULL);
  45998. *out_h = h;
  45999. arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(h);
  46000. return arr_idx;
  46001. }
  46002. DUK_LOCAL duk_uint32_t duk__push_tval_to_property_key(duk_hthread *thr, duk_tval *tv_key, duk_hstring **out_h) {
  46003. duk_push_tval(thr, tv_key); /* XXX: could use an unsafe push here */
  46004. return duk__to_property_key(thr, -1, out_h);
  46005. }
  46006. /* String is an own (virtual) property of a plain buffer. */
  46007. DUK_LOCAL duk_bool_t duk__key_is_plain_buf_ownprop(duk_hthread *thr, duk_hbuffer *buf, duk_hstring *key, duk_uint32_t arr_idx) {
  46008. DUK_UNREF(thr);
  46009. /* Virtual index properties. Checking explicitly for
  46010. * 'arr_idx != DUK__NO_ARRAY_INDEX' is not necessary
  46011. * because DUK__NO_ARRAY_INDEXi is always larger than
  46012. * maximum allowed buffer size.
  46013. */
  46014. DUK_ASSERT(DUK__NO_ARRAY_INDEX >= DUK_HBUFFER_GET_SIZE(buf));
  46015. if (arr_idx < DUK_HBUFFER_GET_SIZE(buf)) {
  46016. return 1;
  46017. }
  46018. /* Other virtual properties. */
  46019. return (key == DUK_HTHREAD_STRING_LENGTH(thr));
  46020. }
  46021. /*
  46022. * Helpers for managing property storage size
  46023. */
  46024. /* Get default hash part size for a certain entry part size. */
  46025. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46026. DUK_LOCAL duk_uint32_t duk__get_default_h_size(duk_uint32_t e_size) {
  46027. DUK_ASSERT(e_size <= DUK_HOBJECT_MAX_PROPERTIES);
  46028. if (e_size >= DUK_USE_HOBJECT_HASH_PROP_LIMIT) {
  46029. duk_uint32_t res;
  46030. duk_uint32_t tmp;
  46031. /* Hash size should be 2^N where N is chosen so that 2^N is
  46032. * larger than e_size. Extra shifting is used to ensure hash
  46033. * is relatively sparse.
  46034. */
  46035. tmp = e_size;
  46036. res = 2; /* Result will be 2 ** (N + 1). */
  46037. while (tmp >= 0x40) {
  46038. tmp >>= 6;
  46039. res <<= 6;
  46040. }
  46041. while (tmp != 0) {
  46042. tmp >>= 1;
  46043. res <<= 1;
  46044. }
  46045. DUK_ASSERT((DUK_HOBJECT_MAX_PROPERTIES << 2U) > DUK_HOBJECT_MAX_PROPERTIES); /* Won't wrap, even shifted by 2. */
  46046. DUK_ASSERT(res > e_size);
  46047. return res;
  46048. } else {
  46049. return 0;
  46050. }
  46051. }
  46052. #endif /* USE_PROP_HASH_PART */
  46053. /* Get minimum entry part growth for a certain size. */
  46054. DUK_LOCAL duk_uint32_t duk__get_min_grow_e(duk_uint32_t e_size) {
  46055. duk_uint32_t res;
  46056. DUK_ASSERT(e_size <= DUK_HOBJECT_MAX_PROPERTIES);
  46057. res = (e_size + DUK_USE_HOBJECT_ENTRY_MINGROW_ADD) / DUK_USE_HOBJECT_ENTRY_MINGROW_DIVISOR;
  46058. DUK_ASSERT(res >= 1); /* important for callers */
  46059. return res;
  46060. }
  46061. /* Get minimum array part growth for a certain size. */
  46062. DUK_LOCAL duk_uint32_t duk__get_min_grow_a(duk_uint32_t a_size) {
  46063. duk_uint32_t res;
  46064. DUK_ASSERT((duk_size_t) a_size <= DUK_HOBJECT_MAX_PROPERTIES);
  46065. res = (a_size + DUK_USE_HOBJECT_ARRAY_MINGROW_ADD) / DUK_USE_HOBJECT_ARRAY_MINGROW_DIVISOR;
  46066. DUK_ASSERT(res >= 1); /* important for callers */
  46067. return res;
  46068. }
  46069. /* Count actually used entry part entries (non-NULL keys). */
  46070. DUK_LOCAL duk_uint32_t duk__count_used_e_keys(duk_hthread *thr, duk_hobject *obj) {
  46071. duk_uint_fast32_t i;
  46072. duk_uint_fast32_t n = 0;
  46073. duk_hstring **e;
  46074. DUK_ASSERT(obj != NULL);
  46075. DUK_UNREF(thr);
  46076. e = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, obj);
  46077. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  46078. if (*e++) {
  46079. n++;
  46080. }
  46081. }
  46082. return (duk_uint32_t) n;
  46083. }
  46084. /* Count actually used array part entries and array minimum size.
  46085. * NOTE: 'out_min_size' can be computed much faster by starting from the
  46086. * end and breaking out early when finding first used entry, but this is
  46087. * not needed now.
  46088. */
  46089. DUK_LOCAL void duk__compute_a_stats(duk_hthread *thr, duk_hobject *obj, duk_uint32_t *out_used, duk_uint32_t *out_min_size) {
  46090. duk_uint_fast32_t i;
  46091. duk_uint_fast32_t used = 0;
  46092. duk_uint_fast32_t highest_idx = (duk_uint_fast32_t) -1; /* see below */
  46093. duk_tval *a;
  46094. DUK_ASSERT(obj != NULL);
  46095. DUK_ASSERT(out_used != NULL);
  46096. DUK_ASSERT(out_min_size != NULL);
  46097. DUK_UNREF(thr);
  46098. a = DUK_HOBJECT_A_GET_BASE(thr->heap, obj);
  46099. for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) {
  46100. duk_tval *tv = a++;
  46101. if (!DUK_TVAL_IS_UNUSED(tv)) {
  46102. used++;
  46103. highest_idx = i;
  46104. }
  46105. }
  46106. /* Initial value for highest_idx is -1 coerced to unsigned. This
  46107. * is a bit odd, but (highest_idx + 1) will then wrap to 0 below
  46108. * for out_min_size as intended.
  46109. */
  46110. *out_used = (duk_uint32_t) used;
  46111. *out_min_size = (duk_uint32_t) (highest_idx + 1); /* 0 if no used entries */
  46112. }
  46113. /* Check array density and indicate whether or not the array part should be abandoned. */
  46114. DUK_LOCAL duk_bool_t duk__abandon_array_density_check(duk_uint32_t a_used, duk_uint32_t a_size) {
  46115. /*
  46116. * Array abandon check; abandon if:
  46117. *
  46118. * new_used / new_size < limit
  46119. * new_used < limit * new_size || limit is 3 bits fixed point
  46120. * new_used < limit' / 8 * new_size || *8
  46121. * 8*new_used < limit' * new_size || :8
  46122. * new_used < limit' * (new_size / 8)
  46123. *
  46124. * Here, new_used = a_used, new_size = a_size.
  46125. *
  46126. * Note: some callers use approximate values for a_used and/or a_size
  46127. * (e.g. dropping a '+1' term). This doesn't affect the usefulness
  46128. * of the check, but may confuse debugging.
  46129. */
  46130. return (a_used < DUK_USE_HOBJECT_ARRAY_ABANDON_LIMIT * (a_size >> 3));
  46131. }
  46132. /* Fast check for extending array: check whether or not a slow density check is required. */
  46133. DUK_LOCAL duk_bool_t duk__abandon_array_slow_check_required(duk_uint32_t arr_idx, duk_uint32_t old_size) {
  46134. /*
  46135. * In a fast check we assume old_size equals old_used (i.e., existing
  46136. * array is fully dense).
  46137. *
  46138. * Slow check if:
  46139. *
  46140. * (new_size - old_size) / old_size > limit
  46141. * new_size - old_size > limit * old_size
  46142. * new_size > (1 + limit) * old_size || limit' is 3 bits fixed point
  46143. * new_size > (1 + (limit' / 8)) * old_size || * 8
  46144. * 8 * new_size > (8 + limit') * old_size || : 8
  46145. * new_size > (8 + limit') * (old_size / 8)
  46146. * new_size > limit'' * (old_size / 8) || limit'' = 9 -> max 25% increase
  46147. * arr_idx + 1 > limit'' * (old_size / 8)
  46148. *
  46149. * This check doesn't work well for small values, so old_size is rounded
  46150. * up for the check (and the '+ 1' of arr_idx can be ignored in practice):
  46151. *
  46152. * arr_idx > limit'' * ((old_size + 7) / 8)
  46153. */
  46154. return (arr_idx > DUK_USE_HOBJECT_ARRAY_FAST_RESIZE_LIMIT * ((old_size + 7) >> 3));
  46155. }
  46156. /*
  46157. * Proxy helpers
  46158. */
  46159. #if defined(DUK_USE_ES6_PROXY)
  46160. DUK_INTERNAL duk_bool_t duk_hobject_proxy_check(duk_hobject *obj, duk_hobject **out_target, duk_hobject **out_handler) {
  46161. duk_hproxy *h_proxy;
  46162. DUK_ASSERT(obj != NULL);
  46163. DUK_ASSERT(out_target != NULL);
  46164. DUK_ASSERT(out_handler != NULL);
  46165. /* Caller doesn't need to check exotic proxy behavior (but does so for
  46166. * some fast paths).
  46167. */
  46168. if (DUK_LIKELY(!DUK_HOBJECT_IS_PROXY(obj))) {
  46169. return 0;
  46170. }
  46171. h_proxy = (duk_hproxy *) obj;
  46172. DUK_ASSERT_HPROXY_VALID(h_proxy);
  46173. DUK_ASSERT(h_proxy->handler != NULL);
  46174. DUK_ASSERT(h_proxy->target != NULL);
  46175. *out_handler = h_proxy->handler;
  46176. *out_target = h_proxy->target;
  46177. return 1;
  46178. }
  46179. #endif /* DUK_USE_ES6_PROXY */
  46180. /* Get Proxy target object. If the argument is not a Proxy, return it as is.
  46181. * If a Proxy is revoked, an error is thrown.
  46182. */
  46183. #if defined(DUK_USE_ES6_PROXY)
  46184. DUK_INTERNAL duk_hobject *duk_hobject_resolve_proxy_target(duk_hobject *obj) {
  46185. DUK_ASSERT(obj != NULL);
  46186. /* Resolve Proxy targets until Proxy chain ends. No explicit check for
  46187. * a Proxy loop: user code cannot create such a loop (it would only be
  46188. * possible by editing duk_hproxy references directly).
  46189. */
  46190. while (DUK_HOBJECT_IS_PROXY(obj)) {
  46191. duk_hproxy *h_proxy;
  46192. h_proxy = (duk_hproxy *) obj;
  46193. DUK_ASSERT_HPROXY_VALID(h_proxy);
  46194. obj = h_proxy->target;
  46195. DUK_ASSERT(obj != NULL);
  46196. }
  46197. DUK_ASSERT(obj != NULL);
  46198. return obj;
  46199. }
  46200. #endif /* DUK_USE_ES6_PROXY */
  46201. #if defined(DUK_USE_ES6_PROXY)
  46202. DUK_LOCAL duk_bool_t duk__proxy_check_prop(duk_hthread *thr, duk_hobject *obj, duk_small_uint_t stridx_trap, duk_tval *tv_key, duk_hobject **out_target) {
  46203. duk_hobject *h_handler;
  46204. DUK_ASSERT(thr != NULL);
  46205. DUK_ASSERT(obj != NULL);
  46206. DUK_ASSERT(tv_key != NULL);
  46207. DUK_ASSERT(out_target != NULL);
  46208. if (!duk_hobject_proxy_check(obj, out_target, &h_handler)) {
  46209. return 0;
  46210. }
  46211. DUK_ASSERT(*out_target != NULL);
  46212. DUK_ASSERT(h_handler != NULL);
  46213. /* XXX: At the moment Duktape accesses internal keys like _Finalizer using a
  46214. * normal property set/get which would allow a proxy handler to interfere with
  46215. * such behavior and to get access to internal key strings. This is not a problem
  46216. * as such because internal key strings can be created in other ways too (e.g.
  46217. * through buffers). The best fix is to change Duktape internal lookups to
  46218. * skip proxy behavior. Until that, internal property accesses bypass the
  46219. * proxy and are applied to the target (as if the handler did not exist).
  46220. * This has some side effects, see test-bi-proxy-internal-keys.js.
  46221. */
  46222. if (DUK_TVAL_IS_STRING(tv_key)) {
  46223. duk_hstring *h_key = (duk_hstring *) DUK_TVAL_GET_STRING(tv_key);
  46224. DUK_ASSERT(h_key != NULL);
  46225. if (DUK_HSTRING_HAS_HIDDEN(h_key)) {
  46226. /* Symbol accesses must go through proxy lookup in ES2015.
  46227. * Hidden symbols behave like Duktape 1.x internal keys
  46228. * and currently won't.
  46229. */
  46230. DUK_DDD(DUK_DDDPRINT("hidden key, skip proxy handler and apply to target"));
  46231. return 0;
  46232. }
  46233. }
  46234. /* The handler is looked up with a normal property lookup; it may be an
  46235. * accessor or the handler object itself may be a proxy object. If the
  46236. * handler is a proxy, we need to extend the valstack as we make a
  46237. * recursive proxy check without a function call in between (in fact
  46238. * there is no limit to the potential recursion here).
  46239. *
  46240. * (For sanity, proxy creation rejects another proxy object as either
  46241. * the handler or the target at the moment so recursive proxy cases
  46242. * are not realized now.)
  46243. */
  46244. /* XXX: C recursion limit if proxies are allowed as handler/target values */
  46245. duk_require_stack(thr, DUK__VALSTACK_PROXY_LOOKUP);
  46246. duk_push_hobject(thr, h_handler);
  46247. if (duk_get_prop_stridx_short(thr, -1, stridx_trap)) {
  46248. /* -> [ ... handler trap ] */
  46249. duk_insert(thr, -2); /* -> [ ... trap handler ] */
  46250. /* stack prepped for func call: [ ... trap handler ] */
  46251. return 1;
  46252. } else {
  46253. duk_pop_2_unsafe(thr);
  46254. return 0;
  46255. }
  46256. }
  46257. #endif /* DUK_USE_ES6_PROXY */
  46258. /*
  46259. * Reallocate property allocation, moving properties to the new allocation.
  46260. *
  46261. * Includes key compaction, rehashing, and can also optionally abandon
  46262. * the array part, 'migrating' array entries into the beginning of the
  46263. * new entry part.
  46264. *
  46265. * There is no support for in-place reallocation or just compacting keys
  46266. * without resizing the property allocation. This is intentional to keep
  46267. * code size minimal, but would be useful future work.
  46268. *
  46269. * The implementation is relatively straightforward, except for the array
  46270. * abandonment process. Array abandonment requires that new string keys
  46271. * are interned, which may trigger GC. All keys interned so far must be
  46272. * reachable for GC at all times and correctly refcounted for; valstack is
  46273. * used for that now.
  46274. *
  46275. * Also, a GC triggered during this reallocation process must not interfere
  46276. * with the object being resized. This is currently controlled by preventing
  46277. * finalizers (as they may affect ANY object) and object compaction in
  46278. * mark-and-sweep. It would suffice to protect only this particular object
  46279. * from compaction, however. DECREF refzero cascades are side effect free
  46280. * and OK.
  46281. *
  46282. * Note: because we need to potentially resize the valstack (as part
  46283. * of abandoning the array part), any tval pointers to the valstack
  46284. * will become invalid after this call.
  46285. */
  46286. DUK_INTERNAL void duk_hobject_realloc_props(duk_hthread *thr,
  46287. duk_hobject *obj,
  46288. duk_uint32_t new_e_size,
  46289. duk_uint32_t new_a_size,
  46290. duk_uint32_t new_h_size,
  46291. duk_bool_t abandon_array) {
  46292. duk_small_uint_t prev_ms_base_flags;
  46293. duk_uint32_t new_alloc_size;
  46294. duk_uint32_t new_e_size_adjusted;
  46295. duk_uint8_t *new_p;
  46296. duk_hstring **new_e_k;
  46297. duk_propvalue *new_e_pv;
  46298. duk_uint8_t *new_e_f;
  46299. duk_tval *new_a;
  46300. duk_uint32_t *new_h;
  46301. duk_uint32_t new_e_next;
  46302. duk_uint_fast32_t i;
  46303. duk_size_t array_copy_size;
  46304. #if defined(DUK_USE_ASSERTIONS)
  46305. duk_bool_t prev_error_not_allowed;
  46306. #endif
  46307. DUK_ASSERT(thr != NULL);
  46308. DUK_ASSERT(obj != NULL);
  46309. DUK_ASSERT(!abandon_array || new_a_size == 0); /* if abandon_array, new_a_size must be 0 */
  46310. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL || (DUK_HOBJECT_GET_ESIZE(obj) == 0 && DUK_HOBJECT_GET_ASIZE(obj) == 0));
  46311. DUK_ASSERT(new_h_size == 0 || new_h_size >= new_e_size); /* required to guarantee success of rehashing,
  46312. * intentionally use unadjusted new_e_size
  46313. */
  46314. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj));
  46315. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  46316. DUK_STATS_INC(thr->heap, stats_object_realloc_props);
  46317. /*
  46318. * Pre resize assertions.
  46319. */
  46320. #if defined(DUK_USE_ASSERTIONS)
  46321. /* XXX: pre-checks (such as no duplicate keys) */
  46322. #endif
  46323. /*
  46324. * For property layout 1, tweak e_size to ensure that the whole entry
  46325. * part (key + val + flags) is a suitable multiple for alignment
  46326. * (platform specific).
  46327. *
  46328. * Property layout 2 does not require this tweaking and is preferred
  46329. * on low RAM platforms requiring alignment.
  46330. */
  46331. #if defined(DUK_USE_HOBJECT_LAYOUT_2) || defined(DUK_USE_HOBJECT_LAYOUT_3)
  46332. DUK_DDD(DUK_DDDPRINT("using layout 2 or 3, no need to pad e_size: %ld", (long) new_e_size));
  46333. new_e_size_adjusted = new_e_size;
  46334. #elif defined(DUK_USE_HOBJECT_LAYOUT_1) && (DUK_HOBJECT_ALIGN_TARGET == 1)
  46335. DUK_DDD(DUK_DDDPRINT("using layout 1, but no need to pad e_size: %ld", (long) new_e_size));
  46336. new_e_size_adjusted = new_e_size;
  46337. #elif defined(DUK_USE_HOBJECT_LAYOUT_1) && ((DUK_HOBJECT_ALIGN_TARGET == 4) || (DUK_HOBJECT_ALIGN_TARGET == 8))
  46338. new_e_size_adjusted = (new_e_size + (duk_uint32_t) DUK_HOBJECT_ALIGN_TARGET - 1U) &
  46339. (~((duk_uint32_t) DUK_HOBJECT_ALIGN_TARGET - 1U));
  46340. DUK_DDD(DUK_DDDPRINT("using layout 1, and alignment target is %ld, adjusted e_size: %ld -> %ld",
  46341. (long) DUK_HOBJECT_ALIGN_TARGET, (long) new_e_size, (long) new_e_size_adjusted));
  46342. DUK_ASSERT(new_e_size_adjusted >= new_e_size);
  46343. #else
  46344. #error invalid hobject layout defines
  46345. #endif
  46346. /*
  46347. * Debug logging after adjustment.
  46348. */
  46349. DUK_DDD(DUK_DDDPRINT("attempt to resize hobject %p props (%ld -> %ld bytes), from {p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld} to "
  46350. "{e_size=%ld,a_size=%ld,h_size=%ld}, abandon_array=%ld, unadjusted new_e_size=%ld",
  46351. (void *) obj,
  46352. (long) DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj),
  46353. DUK_HOBJECT_GET_ASIZE(obj),
  46354. DUK_HOBJECT_GET_HSIZE(obj)),
  46355. (long) DUK_HOBJECT_P_COMPUTE_SIZE(new_e_size_adjusted, new_a_size, new_h_size),
  46356. (void *) DUK_HOBJECT_GET_PROPS(thr->heap, obj),
  46357. (long) DUK_HOBJECT_GET_ESIZE(obj),
  46358. (long) DUK_HOBJECT_GET_ENEXT(obj),
  46359. (long) DUK_HOBJECT_GET_ASIZE(obj),
  46360. (long) DUK_HOBJECT_GET_HSIZE(obj),
  46361. (long) new_e_size_adjusted,
  46362. (long) new_a_size,
  46363. (long) new_h_size,
  46364. (long) abandon_array,
  46365. (long) new_e_size));
  46366. /*
  46367. * Property count check. This is the only point where we ensure that
  46368. * we don't get more (allocated) property space that we can handle.
  46369. * There aren't hard limits as such, but some algorithms may fail
  46370. * if we get too close to the 4G property limit.
  46371. *
  46372. * Since this works based on allocation size (not actually used size),
  46373. * the limit is a bit approximate but good enough in practice.
  46374. */
  46375. if (new_e_size_adjusted + new_a_size > DUK_HOBJECT_MAX_PROPERTIES) {
  46376. DUK_ERROR_ALLOC_FAILED(thr);
  46377. }
  46378. /*
  46379. * Compute new alloc size and alloc new area.
  46380. *
  46381. * The new area is not tracked in the heap at all, so it's critical
  46382. * we get to free/keep it in a controlled manner.
  46383. */
  46384. #if defined(DUK_USE_ASSERTIONS)
  46385. /* Whole path must be error throw free, but we may be called from
  46386. * within error handling so can't assert for error_not_allowed == 0.
  46387. */
  46388. prev_error_not_allowed = thr->heap->error_not_allowed;
  46389. thr->heap->error_not_allowed = 1;
  46390. #endif
  46391. prev_ms_base_flags = thr->heap->ms_base_flags;
  46392. thr->heap->ms_base_flags |=
  46393. DUK_MS_FLAG_NO_OBJECT_COMPACTION; /* Avoid attempt to compact the current object (all objects really). */
  46394. thr->heap->pf_prevent_count++; /* Avoid finalizers. */
  46395. DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */
  46396. new_alloc_size = DUK_HOBJECT_P_COMPUTE_SIZE(new_e_size_adjusted, new_a_size, new_h_size);
  46397. DUK_DDD(DUK_DDDPRINT("new hobject allocation size is %ld", (long) new_alloc_size));
  46398. if (new_alloc_size == 0) {
  46399. DUK_ASSERT(new_e_size_adjusted == 0);
  46400. DUK_ASSERT(new_a_size == 0);
  46401. DUK_ASSERT(new_h_size == 0);
  46402. new_p = NULL;
  46403. } else {
  46404. /* Alloc may trigger mark-and-sweep but no compaction, and
  46405. * cannot throw.
  46406. */
  46407. #if 0 /* XXX: inject test */
  46408. if (1) {
  46409. new_p = NULL;
  46410. goto alloc_failed;
  46411. }
  46412. #endif
  46413. new_p = (duk_uint8_t *) DUK_ALLOC(thr->heap, new_alloc_size);
  46414. if (new_p == NULL) {
  46415. /* NULL always indicates alloc failure because
  46416. * new_alloc_size > 0.
  46417. */
  46418. goto alloc_failed;
  46419. }
  46420. }
  46421. /* Set up pointers to the new property area: this is hidden behind a macro
  46422. * because it is memory layout specific.
  46423. */
  46424. DUK_HOBJECT_P_SET_REALLOC_PTRS(new_p, new_e_k, new_e_pv, new_e_f, new_a, new_h,
  46425. new_e_size_adjusted, new_a_size, new_h_size);
  46426. DUK_UNREF(new_h); /* happens when hash part dropped */
  46427. new_e_next = 0;
  46428. /* if new_p == NULL, all of these pointers are NULL */
  46429. DUK_ASSERT((new_p != NULL) ||
  46430. (new_e_k == NULL && new_e_pv == NULL && new_e_f == NULL &&
  46431. new_a == NULL && new_h == NULL));
  46432. DUK_DDD(DUK_DDDPRINT("new alloc size %ld, new_e_k=%p, new_e_pv=%p, new_e_f=%p, new_a=%p, new_h=%p",
  46433. (long) new_alloc_size, (void *) new_e_k, (void *) new_e_pv, (void *) new_e_f,
  46434. (void *) new_a, (void *) new_h));
  46435. /*
  46436. * Migrate array part to start of entries if requested.
  46437. *
  46438. * Note: from an enumeration perspective the order of entry keys matters.
  46439. * Array keys should appear wherever they appeared before the array abandon
  46440. * operation. (This no longer matters much because keys are ES2015 sorted.)
  46441. */
  46442. if (abandon_array) {
  46443. /* Assuming new_a_size == 0, and that entry part contains
  46444. * no conflicting keys, refcounts do not need to be adjusted for
  46445. * the values, as they remain exactly the same.
  46446. *
  46447. * The keys, however, need to be interned, incref'd, and be
  46448. * reachable for GC. Any intern attempt may trigger a GC and
  46449. * claim any non-reachable strings, so every key must be reachable
  46450. * at all times. Refcounts must be correct to satisfy refcount
  46451. * assertions.
  46452. *
  46453. * A longjmp must not occur here, as the new_p allocation would
  46454. * leak. Refcounts would come out correctly as the interned
  46455. * strings are valstack tracked.
  46456. */
  46457. DUK_ASSERT(new_a_size == 0);
  46458. DUK_STATS_INC(thr->heap, stats_object_abandon_array);
  46459. for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) {
  46460. duk_tval *tv1;
  46461. duk_tval *tv2;
  46462. duk_hstring *key;
  46463. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL);
  46464. tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i);
  46465. if (DUK_TVAL_IS_UNUSED(tv1)) {
  46466. continue;
  46467. }
  46468. DUK_ASSERT(new_p != NULL && new_e_k != NULL &&
  46469. new_e_pv != NULL && new_e_f != NULL);
  46470. /*
  46471. * Intern key via the valstack to ensure reachability behaves
  46472. * properly. We must avoid longjmp's here so use non-checked
  46473. * primitives.
  46474. *
  46475. * Note: duk_check_stack() potentially reallocs the valstack,
  46476. * invalidating any duk_tval pointers to valstack. Callers
  46477. * must be careful.
  46478. */
  46479. #if 0 /* XXX: inject test */
  46480. if (1) {
  46481. goto abandon_error;
  46482. }
  46483. #endif
  46484. /* Never shrinks; auto-adds DUK_VALSTACK_INTERNAL_EXTRA, which
  46485. * is generous.
  46486. */
  46487. if (!duk_check_stack(thr, 1)) {
  46488. goto abandon_error;
  46489. }
  46490. DUK_ASSERT_VALSTACK_SPACE(thr, 1);
  46491. key = duk_heap_strtable_intern_u32(thr->heap, (duk_uint32_t) i);
  46492. if (key == NULL) {
  46493. goto abandon_error;
  46494. }
  46495. duk_push_hstring(thr, key); /* keep key reachable for GC etc; guaranteed not to fail */
  46496. /* Key is now reachable in the valstack, don't INCREF
  46497. * the new allocation yet (we'll steal the refcounts
  46498. * from the value stack once all keys are done).
  46499. */
  46500. new_e_k[new_e_next] = key;
  46501. tv2 = &new_e_pv[new_e_next].v; /* array entries are all plain values */
  46502. DUK_TVAL_SET_TVAL(tv2, tv1);
  46503. new_e_f[new_e_next] = DUK_PROPDESC_FLAG_WRITABLE |
  46504. DUK_PROPDESC_FLAG_ENUMERABLE |
  46505. DUK_PROPDESC_FLAG_CONFIGURABLE;
  46506. new_e_next++;
  46507. /* Note: new_e_next matches pushed temp key count, and nothing can
  46508. * fail above between the push and this point.
  46509. */
  46510. }
  46511. /* Steal refcounts from value stack. */
  46512. DUK_DDD(DUK_DDDPRINT("abandon array: pop %ld key temps from valstack", (long) new_e_next));
  46513. duk_pop_n_nodecref_unsafe(thr, (duk_idx_t) new_e_next);
  46514. }
  46515. /*
  46516. * Copy keys and values in the entry part (compacting them at the same time).
  46517. */
  46518. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  46519. duk_hstring *key;
  46520. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL);
  46521. key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i);
  46522. if (key == NULL) {
  46523. continue;
  46524. }
  46525. DUK_ASSERT(new_p != NULL && new_e_k != NULL &&
  46526. new_e_pv != NULL && new_e_f != NULL);
  46527. new_e_k[new_e_next] = key;
  46528. new_e_pv[new_e_next] = DUK_HOBJECT_E_GET_VALUE(thr->heap, obj, i);
  46529. new_e_f[new_e_next] = DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, i);
  46530. new_e_next++;
  46531. }
  46532. /* the entries [new_e_next, new_e_size_adjusted[ are left uninitialized on purpose (ok, not gc reachable) */
  46533. /*
  46534. * Copy array elements to new array part. If the new array part is
  46535. * larger, initialize the unused entries as UNUSED because they are
  46536. * GC reachable.
  46537. */
  46538. #if defined(DUK_USE_ASSERTIONS)
  46539. /* Caller must have decref'd values above new_a_size (if that is necessary). */
  46540. if (!abandon_array) {
  46541. for (i = new_a_size; i < DUK_HOBJECT_GET_ASIZE(obj); i++) {
  46542. duk_tval *tv;
  46543. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i);
  46544. DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv));
  46545. }
  46546. }
  46547. #endif
  46548. if (new_a_size > DUK_HOBJECT_GET_ASIZE(obj)) {
  46549. array_copy_size = sizeof(duk_tval) * DUK_HOBJECT_GET_ASIZE(obj);
  46550. } else {
  46551. array_copy_size = sizeof(duk_tval) * new_a_size;
  46552. }
  46553. if (array_copy_size > 0) {
  46554. /* Avoid zero copy with an invalid pointer. If obj->p is NULL,
  46555. * the 'new_a' pointer will be invalid which is not allowed even
  46556. * when copy size is zero.
  46557. */
  46558. DUK_ASSERT(new_a != NULL);
  46559. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL);
  46560. DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(obj) > 0);
  46561. DUK_MEMCPY((void *) new_a,
  46562. (const void *) DUK_HOBJECT_A_GET_BASE(thr->heap, obj),
  46563. array_copy_size);
  46564. }
  46565. for (i = DUK_HOBJECT_GET_ASIZE(obj); i < new_a_size; i++) {
  46566. duk_tval *tv = &new_a[i];
  46567. DUK_TVAL_SET_UNUSED(tv);
  46568. }
  46569. /*
  46570. * Rebuild the hash part always from scratch (guaranteed to finish
  46571. * as long as caller gave consistent parameters).
  46572. *
  46573. * Any resize of hash part requires rehashing. In addition, by rehashing
  46574. * get rid of any elements marked deleted (DUK__HASH_DELETED) which is critical
  46575. * to ensuring the hash part never fills up.
  46576. */
  46577. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46578. if (new_h_size == 0) {
  46579. DUK_DDD(DUK_DDDPRINT("no hash part, no rehash"));
  46580. } else {
  46581. duk_uint32_t mask;
  46582. DUK_ASSERT(new_h != NULL);
  46583. /* fill new_h with u32 0xff = UNUSED */
  46584. DUK_ASSERT(new_h_size > 0);
  46585. DUK_MEMSET(new_h, 0xff, sizeof(duk_uint32_t) * new_h_size);
  46586. DUK_ASSERT(new_e_next <= new_h_size); /* equality not actually possible */
  46587. mask = new_h_size - 1;
  46588. for (i = 0; i < new_e_next; i++) {
  46589. duk_hstring *key = new_e_k[i];
  46590. duk_uint32_t j, step;
  46591. DUK_ASSERT(key != NULL);
  46592. j = DUK_HSTRING_GET_HASH(key) & mask;
  46593. step = 1; /* Cache friendly but clustering prone. */
  46594. for (;;) {
  46595. DUK_ASSERT(new_h[j] != DUK__HASH_DELETED); /* should never happen */
  46596. if (new_h[j] == DUK__HASH_UNUSED) {
  46597. DUK_DDD(DUK_DDDPRINT("rebuild hit %ld -> %ld", (long) j, (long) i));
  46598. new_h[j] = (duk_uint32_t) i;
  46599. break;
  46600. }
  46601. DUK_DDD(DUK_DDDPRINT("rebuild miss %ld, step %ld", (long) j, (long) step));
  46602. j = (j + step) & mask;
  46603. /* Guaranteed to finish (hash is larger than #props). */
  46604. }
  46605. }
  46606. }
  46607. #endif /* DUK_USE_HOBJECT_HASH_PART */
  46608. /*
  46609. * Nice debug log.
  46610. */
  46611. DUK_DD(DUK_DDPRINT("resized hobject %p props (%ld -> %ld bytes), from {p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld} to "
  46612. "{p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld}, abandon_array=%ld, unadjusted new_e_size=%ld",
  46613. (void *) obj,
  46614. (long) DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj),
  46615. DUK_HOBJECT_GET_ASIZE(obj),
  46616. DUK_HOBJECT_GET_HSIZE(obj)),
  46617. (long) new_alloc_size,
  46618. (void *) DUK_HOBJECT_GET_PROPS(thr->heap, obj),
  46619. (long) DUK_HOBJECT_GET_ESIZE(obj),
  46620. (long) DUK_HOBJECT_GET_ENEXT(obj),
  46621. (long) DUK_HOBJECT_GET_ASIZE(obj),
  46622. (long) DUK_HOBJECT_GET_HSIZE(obj),
  46623. (void *) new_p,
  46624. (long) new_e_size_adjusted,
  46625. (long) new_e_next,
  46626. (long) new_a_size,
  46627. (long) new_h_size,
  46628. (long) abandon_array,
  46629. (long) new_e_size));
  46630. /*
  46631. * All done, switch properties ('p') allocation to new one.
  46632. */
  46633. DUK_FREE_CHECKED(thr, DUK_HOBJECT_GET_PROPS(thr->heap, obj)); /* NULL obj->p is OK */
  46634. DUK_HOBJECT_SET_PROPS(thr->heap, obj, new_p);
  46635. DUK_HOBJECT_SET_ESIZE(obj, new_e_size_adjusted);
  46636. DUK_HOBJECT_SET_ENEXT(obj, new_e_next);
  46637. DUK_HOBJECT_SET_ASIZE(obj, new_a_size);
  46638. DUK_HOBJECT_SET_HSIZE(obj, new_h_size);
  46639. /* Clear array part flag only after switching. */
  46640. if (abandon_array) {
  46641. DUK_HOBJECT_CLEAR_ARRAY_PART(obj);
  46642. }
  46643. DUK_DDD(DUK_DDDPRINT("resize result: %!O", (duk_heaphdr *) obj));
  46644. DUK_ASSERT(thr->heap->pf_prevent_count > 0);
  46645. thr->heap->pf_prevent_count--;
  46646. thr->heap->ms_base_flags = prev_ms_base_flags;
  46647. #if defined(DUK_USE_ASSERTIONS)
  46648. DUK_ASSERT(thr->heap->error_not_allowed == 1);
  46649. thr->heap->error_not_allowed = prev_error_not_allowed;
  46650. #endif
  46651. /*
  46652. * Post resize assertions.
  46653. */
  46654. #if defined(DUK_USE_ASSERTIONS)
  46655. /* XXX: post-checks (such as no duplicate keys) */
  46656. #endif
  46657. return;
  46658. /*
  46659. * Abandon array failed. We don't need to DECREF anything
  46660. * because the references in the new allocation are not
  46661. * INCREF'd until abandon is complete. The string interned
  46662. * keys are on the value stack and are handled normally by
  46663. * unwind.
  46664. */
  46665. abandon_error:
  46666. alloc_failed:
  46667. DUK_D(DUK_DPRINT("object property table resize failed"));
  46668. DUK_FREE_CHECKED(thr, new_p); /* OK for NULL. */
  46669. thr->heap->pf_prevent_count--;
  46670. thr->heap->ms_base_flags = prev_ms_base_flags;
  46671. #if defined(DUK_USE_ASSERTIONS)
  46672. DUK_ASSERT(thr->heap->error_not_allowed == 1);
  46673. thr->heap->error_not_allowed = prev_error_not_allowed;
  46674. #endif
  46675. DUK_ERROR_ALLOC_FAILED(thr);
  46676. }
  46677. /*
  46678. * Helpers to resize properties allocation on specific needs.
  46679. */
  46680. DUK_INTERNAL void duk_hobject_resize_entrypart(duk_hthread *thr,
  46681. duk_hobject *obj,
  46682. duk_uint32_t new_e_size) {
  46683. duk_uint32_t old_e_size;
  46684. duk_uint32_t new_a_size;
  46685. duk_uint32_t new_h_size;
  46686. DUK_ASSERT(thr != NULL);
  46687. DUK_ASSERT(obj != NULL);
  46688. old_e_size = DUK_HOBJECT_GET_ESIZE(obj);
  46689. if (old_e_size > new_e_size) {
  46690. new_e_size = old_e_size;
  46691. }
  46692. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46693. new_h_size = duk__get_default_h_size(new_e_size);
  46694. #else
  46695. new_h_size = 0;
  46696. #endif
  46697. new_a_size = DUK_HOBJECT_GET_ASIZE(obj);
  46698. duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0);
  46699. }
  46700. #if 0 /*unused */
  46701. DUK_INTERNAL void duk_hobject_resize_arraypart(duk_hthread *thr,
  46702. duk_hobject *obj,
  46703. duk_uint32_t new_a_size) {
  46704. duk_uint32_t old_a_size;
  46705. duk_uint32_t new_e_size;
  46706. duk_uint32_t new_h_size;
  46707. DUK_ASSERT(thr != NULL);
  46708. DUK_ASSERT(obj != NULL);
  46709. if (!DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  46710. return;
  46711. }
  46712. old_a_size = DUK_HOBJECT_GET_ASIZE(obj);
  46713. if (old_a_size > new_a_size) {
  46714. new_a_size = old_a_size;
  46715. }
  46716. new_e_size = DUK_HOBJECT_GET_ESIZE(obj);
  46717. new_h_size = DUK_HOBJECT_GET_HSIZE(obj);
  46718. duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0);
  46719. }
  46720. #endif
  46721. /* Grow entry part allocation for one additional entry. */
  46722. DUK_LOCAL void duk__grow_props_for_new_entry_item(duk_hthread *thr, duk_hobject *obj) {
  46723. duk_uint32_t old_e_used; /* actually used, non-NULL entries */
  46724. duk_uint32_t new_e_size;
  46725. duk_uint32_t new_a_size;
  46726. duk_uint32_t new_h_size;
  46727. DUK_ASSERT(thr != NULL);
  46728. DUK_ASSERT(obj != NULL);
  46729. /* Duktape 0.11.0 and prior tried to optimize the resize by not
  46730. * counting the number of actually used keys prior to the resize.
  46731. * This worked mostly well but also caused weird leak-like behavior
  46732. * as in: test-bug-object-prop-alloc-unbounded.js. So, now we count
  46733. * the keys explicitly to compute the new entry part size.
  46734. */
  46735. old_e_used = duk__count_used_e_keys(thr, obj);
  46736. new_e_size = old_e_used + duk__get_min_grow_e(old_e_used);
  46737. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46738. new_h_size = duk__get_default_h_size(new_e_size);
  46739. #else
  46740. new_h_size = 0;
  46741. #endif
  46742. new_a_size = DUK_HOBJECT_GET_ASIZE(obj);
  46743. DUK_ASSERT(new_e_size >= old_e_used + 1); /* duk__get_min_grow_e() is always >= 1 */
  46744. duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0);
  46745. }
  46746. /* Grow array part for a new highest array index. */
  46747. DUK_LOCAL void duk__grow_props_for_array_item(duk_hthread *thr, duk_hobject *obj, duk_uint32_t highest_arr_idx) {
  46748. duk_uint32_t new_e_size;
  46749. duk_uint32_t new_a_size;
  46750. duk_uint32_t new_h_size;
  46751. DUK_ASSERT(thr != NULL);
  46752. DUK_ASSERT(obj != NULL);
  46753. DUK_ASSERT(highest_arr_idx >= DUK_HOBJECT_GET_ASIZE(obj));
  46754. /* minimum new length is highest_arr_idx + 1 */
  46755. new_e_size = DUK_HOBJECT_GET_ESIZE(obj);
  46756. new_h_size = DUK_HOBJECT_GET_HSIZE(obj);
  46757. new_a_size = highest_arr_idx + duk__get_min_grow_a(highest_arr_idx);
  46758. DUK_ASSERT(new_a_size >= highest_arr_idx + 1); /* duk__get_min_grow_a() is always >= 1 */
  46759. duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0);
  46760. }
  46761. /* Abandon array part, moving array entries into entries part.
  46762. * This requires a props resize, which is a heavy operation.
  46763. * We also compact the entries part while we're at it, although
  46764. * this is not strictly required.
  46765. */
  46766. DUK_LOCAL void duk__abandon_array_checked(duk_hthread *thr, duk_hobject *obj) {
  46767. duk_uint32_t new_e_size;
  46768. duk_uint32_t new_a_size;
  46769. duk_uint32_t new_h_size;
  46770. duk_uint32_t e_used; /* actually used, non-NULL keys */
  46771. duk_uint32_t a_used;
  46772. duk_uint32_t a_size;
  46773. DUK_ASSERT(thr != NULL);
  46774. DUK_ASSERT(obj != NULL);
  46775. e_used = duk__count_used_e_keys(thr, obj);
  46776. duk__compute_a_stats(thr, obj, &a_used, &a_size);
  46777. /*
  46778. * Must guarantee all actually used array entries will fit into
  46779. * new entry part. Add one growth step to ensure we don't run out
  46780. * of space right away.
  46781. */
  46782. new_e_size = e_used + a_used;
  46783. new_e_size = new_e_size + duk__get_min_grow_e(new_e_size);
  46784. new_a_size = 0;
  46785. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46786. new_h_size = duk__get_default_h_size(new_e_size);
  46787. #else
  46788. new_h_size = 0;
  46789. #endif
  46790. DUK_DD(DUK_DDPRINT("abandon array part for hobject %p, "
  46791. "array stats before: e_used=%ld, a_used=%ld, a_size=%ld; "
  46792. "resize to e_size=%ld, a_size=%ld, h_size=%ld",
  46793. (void *) obj, (long) e_used, (long) a_used, (long) a_size,
  46794. (long) new_e_size, (long) new_a_size, (long) new_h_size));
  46795. duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 1);
  46796. }
  46797. /*
  46798. * Compact an object. Minimizes allocation size for objects which are
  46799. * not likely to be extended. This is useful for internal and non-
  46800. * extensible objects, but can also be called for non-extensible objects.
  46801. * May abandon the array part if it is computed to be too sparse.
  46802. *
  46803. * This call is relatively expensive, as it needs to scan both the
  46804. * entries and the array part.
  46805. *
  46806. * The call may fail due to allocation error.
  46807. */
  46808. DUK_INTERNAL void duk_hobject_compact_props(duk_hthread *thr, duk_hobject *obj) {
  46809. duk_uint32_t e_size; /* currently used -> new size */
  46810. duk_uint32_t a_size; /* currently required */
  46811. duk_uint32_t a_used; /* actually used */
  46812. duk_uint32_t h_size;
  46813. duk_bool_t abandon_array;
  46814. DUK_ASSERT(thr != NULL);
  46815. DUK_ASSERT(obj != NULL);
  46816. #if defined(DUK_USE_ROM_OBJECTS)
  46817. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  46818. DUK_DD(DUK_DDPRINT("ignore attempt to compact a rom object"));
  46819. return;
  46820. }
  46821. #endif
  46822. e_size = duk__count_used_e_keys(thr, obj);
  46823. duk__compute_a_stats(thr, obj, &a_used, &a_size);
  46824. DUK_DD(DUK_DDPRINT("compacting hobject, used e keys %ld, used a keys %ld, min a size %ld, "
  46825. "resized array density would be: %ld/%ld = %lf",
  46826. (long) e_size, (long) a_used, (long) a_size,
  46827. (long) a_used, (long) a_size,
  46828. (double) a_used / (double) a_size));
  46829. if (duk__abandon_array_density_check(a_used, a_size)) {
  46830. DUK_DD(DUK_DDPRINT("decided to abandon array during compaction, a_used=%ld, a_size=%ld",
  46831. (long) a_used, (long) a_size));
  46832. abandon_array = 1;
  46833. e_size += a_used;
  46834. a_size = 0;
  46835. } else {
  46836. DUK_DD(DUK_DDPRINT("decided to keep array during compaction"));
  46837. abandon_array = 0;
  46838. }
  46839. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46840. if (e_size >= DUK_USE_HOBJECT_HASH_PROP_LIMIT) {
  46841. h_size = duk__get_default_h_size(e_size);
  46842. } else {
  46843. h_size = 0;
  46844. }
  46845. #else
  46846. h_size = 0;
  46847. #endif
  46848. DUK_DD(DUK_DDPRINT("compacting hobject -> new e_size %ld, new a_size=%ld, new h_size=%ld, abandon_array=%ld",
  46849. (long) e_size, (long) a_size, (long) h_size, (long) abandon_array));
  46850. duk_hobject_realloc_props(thr, obj, e_size, a_size, h_size, abandon_array);
  46851. }
  46852. /*
  46853. * Find an existing key from entry part either by linear scan or by
  46854. * using the hash index (if it exists).
  46855. *
  46856. * Sets entry index (and possibly the hash index) to output variables,
  46857. * which allows the caller to update the entry and hash entries in-place.
  46858. * If entry is not found, both values are set to -1. If entry is found
  46859. * but there is no hash part, h_idx is set to -1.
  46860. */
  46861. DUK_INTERNAL duk_bool_t duk_hobject_find_existing_entry(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_int_t *e_idx, duk_int_t *h_idx) {
  46862. DUK_ASSERT(obj != NULL);
  46863. DUK_ASSERT(key != NULL);
  46864. DUK_ASSERT(e_idx != NULL);
  46865. DUK_ASSERT(h_idx != NULL);
  46866. DUK_UNREF(heap);
  46867. if (DUK_LIKELY(DUK_HOBJECT_GET_HSIZE(obj) == 0))
  46868. {
  46869. /* Linear scan: more likely because most objects are small.
  46870. * This is an important fast path.
  46871. *
  46872. * XXX: this might be worth inlining for property lookups.
  46873. */
  46874. duk_uint_fast32_t i;
  46875. duk_uint_fast32_t n;
  46876. duk_hstring **h_keys_base;
  46877. DUK_DDD(DUK_DDDPRINT("duk_hobject_find_existing_entry() using linear scan for lookup"));
  46878. h_keys_base = DUK_HOBJECT_E_GET_KEY_BASE(heap, obj);
  46879. n = DUK_HOBJECT_GET_ENEXT(obj);
  46880. for (i = 0; i < n; i++) {
  46881. if (h_keys_base[i] == key) {
  46882. *e_idx = (duk_int_t) i;
  46883. *h_idx = -1;
  46884. return 1;
  46885. }
  46886. }
  46887. }
  46888. #if defined(DUK_USE_HOBJECT_HASH_PART)
  46889. else
  46890. {
  46891. /* hash lookup */
  46892. duk_uint32_t n;
  46893. duk_uint32_t i, step;
  46894. duk_uint32_t *h_base;
  46895. duk_uint32_t mask;
  46896. DUK_DDD(DUK_DDDPRINT("duk_hobject_find_existing_entry() using hash part for lookup"));
  46897. h_base = DUK_HOBJECT_H_GET_BASE(heap, obj);
  46898. n = DUK_HOBJECT_GET_HSIZE(obj);
  46899. mask = n - 1;
  46900. i = DUK_HSTRING_GET_HASH(key) & mask;
  46901. step = 1; /* Cache friendly but clustering prone. */
  46902. for (;;) {
  46903. duk_uint32_t t;
  46904. DUK_ASSERT_DISABLE(i >= 0); /* unsigned */
  46905. DUK_ASSERT(i < DUK_HOBJECT_GET_HSIZE(obj));
  46906. t = h_base[i];
  46907. DUK_ASSERT(t == DUK__HASH_UNUSED || t == DUK__HASH_DELETED ||
  46908. (t < DUK_HOBJECT_GET_ESIZE(obj))); /* t >= 0 always true, unsigned */
  46909. if (t == DUK__HASH_UNUSED) {
  46910. break;
  46911. } else if (t == DUK__HASH_DELETED) {
  46912. DUK_DDD(DUK_DDDPRINT("lookup miss (deleted) i=%ld, t=%ld",
  46913. (long) i, (long) t));
  46914. } else {
  46915. DUK_ASSERT(t < DUK_HOBJECT_GET_ESIZE(obj));
  46916. if (DUK_HOBJECT_E_GET_KEY(heap, obj, t) == key) {
  46917. DUK_DDD(DUK_DDDPRINT("lookup hit i=%ld, t=%ld -> key %p",
  46918. (long) i, (long) t, (void *) key));
  46919. *e_idx = (duk_int_t) t;
  46920. *h_idx = (duk_int_t) i;
  46921. return 1;
  46922. }
  46923. DUK_DDD(DUK_DDDPRINT("lookup miss i=%ld, t=%ld",
  46924. (long) i, (long) t));
  46925. }
  46926. i = (i + step) & mask;
  46927. /* Guaranteed to finish (hash is larger than #props). */
  46928. }
  46929. }
  46930. #endif /* DUK_USE_HOBJECT_HASH_PART */
  46931. /* Not found, leave e_idx and h_idx unset. */
  46932. return 0;
  46933. }
  46934. /* For internal use: get non-accessor entry value */
  46935. DUK_INTERNAL duk_tval *duk_hobject_find_existing_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_hstring *key) {
  46936. duk_int_t e_idx;
  46937. duk_int_t h_idx;
  46938. DUK_ASSERT(obj != NULL);
  46939. DUK_ASSERT(key != NULL);
  46940. DUK_UNREF(heap);
  46941. if (duk_hobject_find_existing_entry(heap, obj, key, &e_idx, &h_idx)) {
  46942. DUK_ASSERT(e_idx >= 0);
  46943. if (!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, obj, e_idx)) {
  46944. return DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, obj, e_idx);
  46945. }
  46946. }
  46947. return NULL;
  46948. }
  46949. /* For internal use: get non-accessor entry value and attributes */
  46950. DUK_INTERNAL duk_tval *duk_hobject_find_existing_entry_tval_ptr_and_attrs(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_uint_t *out_attrs) {
  46951. duk_int_t e_idx;
  46952. duk_int_t h_idx;
  46953. DUK_ASSERT(obj != NULL);
  46954. DUK_ASSERT(key != NULL);
  46955. DUK_ASSERT(out_attrs != NULL);
  46956. DUK_UNREF(heap);
  46957. if (duk_hobject_find_existing_entry(heap, obj, key, &e_idx, &h_idx)) {
  46958. DUK_ASSERT(e_idx >= 0);
  46959. if (!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, obj, e_idx)) {
  46960. *out_attrs = DUK_HOBJECT_E_GET_FLAGS(heap, obj, e_idx);
  46961. return DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, obj, e_idx);
  46962. }
  46963. }
  46964. /* If not found, out_attrs is left unset. */
  46965. return NULL;
  46966. }
  46967. /* For internal use: get array part value */
  46968. DUK_INTERNAL duk_tval *duk_hobject_find_existing_array_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_uarridx_t i) {
  46969. duk_tval *tv;
  46970. DUK_ASSERT(obj != NULL);
  46971. DUK_UNREF(heap);
  46972. if (!DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  46973. return NULL;
  46974. }
  46975. if (i >= DUK_HOBJECT_GET_ASIZE(obj)) {
  46976. return NULL;
  46977. }
  46978. tv = DUK_HOBJECT_A_GET_VALUE_PTR(heap, obj, i);
  46979. return tv;
  46980. }
  46981. /*
  46982. * Allocate and initialize a new entry, resizing the properties allocation
  46983. * if necessary. Returns entry index (e_idx) or throws an error if alloc fails.
  46984. *
  46985. * Sets the key of the entry (increasing the key's refcount), and updates
  46986. * the hash part if it exists. Caller must set value and flags, and update
  46987. * the entry value refcount. A decref for the previous value is not necessary.
  46988. */
  46989. DUK_LOCAL duk_int_t duk__hobject_alloc_entry_checked(duk_hthread *thr, duk_hobject *obj, duk_hstring *key) {
  46990. duk_uint32_t idx;
  46991. DUK_ASSERT(thr != NULL);
  46992. DUK_ASSERT(obj != NULL);
  46993. DUK_ASSERT(key != NULL);
  46994. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(obj) <= DUK_HOBJECT_GET_ESIZE(obj));
  46995. #if defined(DUK_USE_ASSERTIONS)
  46996. /* key must not already exist in entry part */
  46997. {
  46998. duk_uint_fast32_t i;
  46999. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  47000. DUK_ASSERT(DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i) != key);
  47001. }
  47002. }
  47003. #endif
  47004. if (DUK_HOBJECT_GET_ENEXT(obj) >= DUK_HOBJECT_GET_ESIZE(obj)) {
  47005. /* only need to guarantee 1 more slot, but allocation growth is in chunks */
  47006. DUK_DDD(DUK_DDDPRINT("entry part full, allocate space for one more entry"));
  47007. duk__grow_props_for_new_entry_item(thr, obj);
  47008. }
  47009. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(obj) < DUK_HOBJECT_GET_ESIZE(obj));
  47010. idx = DUK_HOBJECT_POSTINC_ENEXT(obj);
  47011. /* previous value is assumed to be garbage, so don't touch it */
  47012. DUK_HOBJECT_E_SET_KEY(thr->heap, obj, idx, key);
  47013. DUK_HSTRING_INCREF(thr, key);
  47014. #if defined(DUK_USE_HOBJECT_HASH_PART)
  47015. if (DUK_UNLIKELY(DUK_HOBJECT_GET_HSIZE(obj) > 0)) {
  47016. duk_uint32_t n, mask;
  47017. duk_uint32_t i, step;
  47018. duk_uint32_t *h_base = DUK_HOBJECT_H_GET_BASE(thr->heap, obj);
  47019. n = DUK_HOBJECT_GET_HSIZE(obj);
  47020. mask = n - 1;
  47021. i = DUK_HSTRING_GET_HASH(key) & mask;
  47022. step = 1; /* Cache friendly but clustering prone. */
  47023. for (;;) {
  47024. duk_uint32_t t = h_base[i];
  47025. if (t == DUK__HASH_UNUSED || t == DUK__HASH_DELETED) {
  47026. DUK_DDD(DUK_DDDPRINT("duk__hobject_alloc_entry_checked() inserted key into hash part, %ld -> %ld",
  47027. (long) i, (long) idx));
  47028. DUK_ASSERT_DISABLE(i >= 0); /* unsigned */
  47029. DUK_ASSERT(i < DUK_HOBJECT_GET_HSIZE(obj));
  47030. DUK_ASSERT_DISABLE(idx >= 0);
  47031. DUK_ASSERT(idx < DUK_HOBJECT_GET_ESIZE(obj));
  47032. h_base[i] = idx;
  47033. break;
  47034. }
  47035. DUK_DDD(DUK_DDDPRINT("duk__hobject_alloc_entry_checked() miss %ld", (long) i));
  47036. i = (i + step) & mask;
  47037. /* Guaranteed to finish (hash is larger than #props). */
  47038. }
  47039. }
  47040. #endif /* DUK_USE_HOBJECT_HASH_PART */
  47041. /* Note: we could return the hash index here too, but it's not
  47042. * needed right now.
  47043. */
  47044. DUK_ASSERT_DISABLE(idx >= 0);
  47045. DUK_ASSERT(idx < DUK_HOBJECT_GET_ESIZE(obj));
  47046. DUK_ASSERT(idx < DUK_HOBJECT_GET_ENEXT(obj));
  47047. return (duk_int_t) idx;
  47048. }
  47049. /*
  47050. * Object internal value
  47051. *
  47052. * Returned value is guaranteed to be reachable / incref'd, caller does not need
  47053. * to incref OR decref. No proxies or accessors are invoked, no prototype walk.
  47054. */
  47055. DUK_INTERNAL duk_bool_t duk_hobject_get_internal_value(duk_heap *heap, duk_hobject *obj, duk_tval *tv_out) {
  47056. duk_int_t e_idx;
  47057. duk_int_t h_idx;
  47058. DUK_ASSERT(heap != NULL);
  47059. DUK_ASSERT(obj != NULL);
  47060. DUK_ASSERT(tv_out != NULL);
  47061. /* Always in entry part, no need to look up parents etc. */
  47062. if (duk_hobject_find_existing_entry(heap, obj, DUK_HEAP_STRING_INT_VALUE(heap), &e_idx, &h_idx)) {
  47063. DUK_ASSERT(e_idx >= 0);
  47064. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, obj, e_idx));
  47065. DUK_TVAL_SET_TVAL(tv_out, DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, obj, e_idx));
  47066. return 1;
  47067. }
  47068. DUK_TVAL_SET_UNDEFINED(tv_out);
  47069. return 0;
  47070. }
  47071. DUK_INTERNAL duk_hstring *duk_hobject_get_internal_value_string(duk_heap *heap, duk_hobject *obj) {
  47072. duk_tval tv;
  47073. DUK_ASSERT(heap != NULL);
  47074. DUK_ASSERT(obj != NULL);
  47075. /* This is not strictly necessary, but avoids compiler warnings; e.g.
  47076. * gcc won't reliably detect that no uninitialized data is read below.
  47077. */
  47078. DUK_MEMZERO((void *) &tv, sizeof(duk_tval));
  47079. if (duk_hobject_get_internal_value(heap, obj, &tv)) {
  47080. duk_hstring *h;
  47081. DUK_ASSERT(DUK_TVAL_IS_STRING(&tv));
  47082. h = DUK_TVAL_GET_STRING(&tv);
  47083. /* No explicit check for string vs. symbol, accept both. */
  47084. return h;
  47085. }
  47086. return NULL;
  47087. }
  47088. /*
  47089. * Arguments handling helpers (argument map mainly).
  47090. *
  47091. * An arguments object has exotic behavior for some numeric indices.
  47092. * Accesses may translate to identifier operations which may have
  47093. * arbitrary side effects (potentially invalidating any duk_tval
  47094. * pointers).
  47095. */
  47096. /* Lookup 'key' from arguments internal 'map', perform a variable lookup
  47097. * if mapped, and leave the result on top of stack (and return non-zero).
  47098. * Used in E5 Section 10.6 algorithms [[Get]] and [[GetOwnProperty]].
  47099. */
  47100. DUK_LOCAL
  47101. duk_bool_t duk__lookup_arguments_map(duk_hthread *thr,
  47102. duk_hobject *obj,
  47103. duk_hstring *key,
  47104. duk_propdesc *temp_desc,
  47105. duk_hobject **out_map,
  47106. duk_hobject **out_varenv) {
  47107. duk_hobject *map;
  47108. duk_hobject *varenv;
  47109. duk_bool_t rc;
  47110. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47111. DUK_DDD(DUK_DDDPRINT("arguments map lookup: thr=%p, obj=%p, key=%p, temp_desc=%p "
  47112. "(obj -> %!O, key -> %!O)",
  47113. (void *) thr, (void *) obj, (void *) key, (void *) temp_desc,
  47114. (duk_heaphdr *) obj, (duk_heaphdr *) key));
  47115. if (!duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_MAP(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  47116. DUK_DDD(DUK_DDDPRINT("-> no 'map'"));
  47117. return 0;
  47118. }
  47119. map = duk_require_hobject(thr, -1);
  47120. DUK_ASSERT(map != NULL);
  47121. duk_pop_unsafe(thr); /* map is reachable through obj */
  47122. if (!duk_hobject_get_own_propdesc(thr, map, key, temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  47123. DUK_DDD(DUK_DDDPRINT("-> 'map' exists, but key not in map"));
  47124. return 0;
  47125. }
  47126. /* [... varname] */
  47127. DUK_DDD(DUK_DDDPRINT("-> 'map' exists, and contains key, key is mapped to argument/variable binding %!T",
  47128. (duk_tval *) duk_get_tval(thr, -1)));
  47129. DUK_ASSERT(duk_is_string(thr, -1)); /* guaranteed when building arguments */
  47130. /* get varenv for varname (callee's declarative lexical environment) */
  47131. rc = duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_VARENV(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE);
  47132. DUK_UNREF(rc);
  47133. DUK_ASSERT(rc != 0); /* arguments MUST have an initialized lexical environment reference */
  47134. varenv = duk_require_hobject(thr, -1);
  47135. DUK_ASSERT(varenv != NULL);
  47136. duk_pop_unsafe(thr); /* varenv remains reachable through 'obj' */
  47137. DUK_DDD(DUK_DDDPRINT("arguments varenv is: %!dO", (duk_heaphdr *) varenv));
  47138. /* success: leave varname in stack */
  47139. *out_map = map;
  47140. *out_varenv = varenv;
  47141. return 1; /* [... varname] */
  47142. }
  47143. /* Lookup 'key' from arguments internal 'map', and leave replacement value
  47144. * on stack top if mapped (and return non-zero).
  47145. * Used in E5 Section 10.6 algorithm for [[GetOwnProperty]] (used by [[Get]]).
  47146. */
  47147. DUK_LOCAL duk_bool_t duk__check_arguments_map_for_get(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc) {
  47148. duk_hobject *map;
  47149. duk_hobject *varenv;
  47150. duk_hstring *varname;
  47151. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47152. if (!duk__lookup_arguments_map(thr, obj, key, temp_desc, &map, &varenv)) {
  47153. DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic get behavior"));
  47154. return 0;
  47155. }
  47156. /* [... varname] */
  47157. varname = duk_require_hstring(thr, -1);
  47158. DUK_ASSERT(varname != NULL);
  47159. duk_pop_unsafe(thr); /* varname is still reachable */
  47160. DUK_DDD(DUK_DDDPRINT("arguments object automatic getvar for a bound variable; "
  47161. "key=%!O, varname=%!O",
  47162. (duk_heaphdr *) key,
  47163. (duk_heaphdr *) varname));
  47164. (void) duk_js_getvar_envrec(thr, varenv, varname, 1 /*throw*/);
  47165. /* [... value this_binding] */
  47166. duk_pop_unsafe(thr);
  47167. /* leave result on stack top */
  47168. return 1;
  47169. }
  47170. /* Lookup 'key' from arguments internal 'map', perform a variable write if mapped.
  47171. * Used in E5 Section 10.6 algorithm for [[DefineOwnProperty]] (used by [[Put]]).
  47172. * Assumes stack top contains 'put' value (which is NOT popped).
  47173. */
  47174. DUK_LOCAL void duk__check_arguments_map_for_put(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc, duk_bool_t throw_flag) {
  47175. duk_hobject *map;
  47176. duk_hobject *varenv;
  47177. duk_hstring *varname;
  47178. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47179. if (!duk__lookup_arguments_map(thr, obj, key, temp_desc, &map, &varenv)) {
  47180. DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic put behavior"));
  47181. return;
  47182. }
  47183. /* [... put_value varname] */
  47184. varname = duk_require_hstring(thr, -1);
  47185. DUK_ASSERT(varname != NULL);
  47186. duk_pop_unsafe(thr); /* varname is still reachable */
  47187. DUK_DDD(DUK_DDDPRINT("arguments object automatic putvar for a bound variable; "
  47188. "key=%!O, varname=%!O, value=%!T",
  47189. (duk_heaphdr *) key,
  47190. (duk_heaphdr *) varname,
  47191. (duk_tval *) duk_require_tval(thr, -1)));
  47192. /* [... put_value] */
  47193. /*
  47194. * Note: although arguments object variable mappings are only established
  47195. * for non-strict functions (and a call to a non-strict function created
  47196. * the arguments object in question), an inner strict function may be doing
  47197. * the actual property write. Hence the throw_flag applied here comes from
  47198. * the property write call.
  47199. */
  47200. duk_js_putvar_envrec(thr, varenv, varname, duk_require_tval(thr, -1), throw_flag);
  47201. /* [... put_value] */
  47202. }
  47203. /* Lookup 'key' from arguments internal 'map', delete mapping if found.
  47204. * Used in E5 Section 10.6 algorithm for [[Delete]]. Note that the
  47205. * variable/argument itself (where the map points) is not deleted.
  47206. */
  47207. DUK_LOCAL void duk__check_arguments_map_for_delete(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc) {
  47208. duk_hobject *map;
  47209. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47210. if (!duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_MAP(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  47211. DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic delete behavior"));
  47212. return;
  47213. }
  47214. map = duk_require_hobject(thr, -1);
  47215. DUK_ASSERT(map != NULL);
  47216. duk_pop_unsafe(thr); /* map is reachable through obj */
  47217. DUK_DDD(DUK_DDDPRINT("-> have 'map', delete key %!O from map (if exists)); ignore result",
  47218. (duk_heaphdr *) key));
  47219. /* Note: no recursion issue, we can trust 'map' to behave */
  47220. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_BEHAVIOR(map));
  47221. DUK_DDD(DUK_DDDPRINT("map before deletion: %!O", (duk_heaphdr *) map));
  47222. (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */
  47223. DUK_DDD(DUK_DDDPRINT("map after deletion: %!O", (duk_heaphdr *) map));
  47224. }
  47225. /*
  47226. * Ecmascript compliant [[GetOwnProperty]](P), for internal use only.
  47227. *
  47228. * If property is found:
  47229. * - Fills descriptor fields to 'out_desc'
  47230. * - If DUK_GETDESC_FLAG_PUSH_VALUE is set, pushes a value related to the
  47231. * property onto the stack ('undefined' for accessor properties).
  47232. * - Returns non-zero
  47233. *
  47234. * If property is not found:
  47235. * - 'out_desc' is left in untouched state (possibly garbage)
  47236. * - Nothing is pushed onto the stack (not even with DUK_GETDESC_FLAG_PUSH_VALUE
  47237. * set)
  47238. * - Returns zero
  47239. *
  47240. * Notes:
  47241. *
  47242. * - Getting a property descriptor may cause an allocation (and hence
  47243. * GC) to take place, hence reachability and refcount of all related
  47244. * values matter. Reallocation of value stack, properties, etc may
  47245. * invalidate many duk_tval pointers (concretely, those which reside
  47246. * in memory areas subject to reallocation). However, heap object
  47247. * pointers are never affected (heap objects have stable pointers).
  47248. *
  47249. * - The value of a plain property is always reachable and has a non-zero
  47250. * reference count.
  47251. *
  47252. * - The value of a virtual property is not necessarily reachable from
  47253. * elsewhere and may have a refcount of zero. Hence we push it onto
  47254. * the valstack for the caller, which ensures it remains reachable
  47255. * while it is needed.
  47256. *
  47257. * - There are no virtual accessor properties. Hence, all getters and
  47258. * setters are always related to concretely stored properties, which
  47259. * ensures that the get/set functions in the resulting descriptor are
  47260. * reachable and have non-zero refcounts. Should there be virtual
  47261. * accessor properties later, this would need to change.
  47262. */
  47263. DUK_LOCAL duk_bool_t duk__get_own_propdesc_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_uint32_t arr_idx, duk_propdesc *out_desc, duk_small_uint_t flags) {
  47264. duk_tval *tv;
  47265. DUK_DDD(DUK_DDDPRINT("duk_hobject_get_own_propdesc: thr=%p, obj=%p, key=%p, out_desc=%p, flags=%lx, "
  47266. "arr_idx=%ld (obj -> %!O, key -> %!O)",
  47267. (void *) thr, (void *) obj, (void *) key, (void *) out_desc,
  47268. (long) flags, (long) arr_idx,
  47269. (duk_heaphdr *) obj, (duk_heaphdr *) key));
  47270. DUK_ASSERT(thr != NULL);
  47271. DUK_ASSERT(thr->heap != NULL);
  47272. DUK_ASSERT(obj != NULL);
  47273. DUK_ASSERT(key != NULL);
  47274. DUK_ASSERT(out_desc != NULL);
  47275. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47276. DUK_STATS_INC(thr->heap, stats_getownpropdesc_count);
  47277. /* Each code path returning 1 (= found) must fill in all the output
  47278. * descriptor fields. We don't do it beforehand because it'd be
  47279. * unnecessary work if the property isn't found and would happen
  47280. * multiple times for an inheritance chain.
  47281. */
  47282. DUK_ASSERT_SET_GARBAGE(out_desc, sizeof(*out_desc));
  47283. #if 0
  47284. out_desc->flags = 0;
  47285. out_desc->get = NULL;
  47286. out_desc->set = NULL;
  47287. out_desc->e_idx = -1;
  47288. out_desc->h_idx = -1;
  47289. out_desc->a_idx = -1;
  47290. #endif
  47291. /*
  47292. * Try entries part first because it's the common case.
  47293. *
  47294. * Array part lookups are usually handled by the array fast path, and
  47295. * are not usually inherited. Array and entry parts never contain the
  47296. * same keys so the entry part vs. array part order doesn't matter.
  47297. */
  47298. if (duk_hobject_find_existing_entry(thr->heap, obj, key, &out_desc->e_idx, &out_desc->h_idx)) {
  47299. duk_int_t e_idx = out_desc->e_idx;
  47300. DUK_ASSERT(out_desc->e_idx >= 0);
  47301. out_desc->a_idx = -1;
  47302. out_desc->flags = DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, e_idx);
  47303. out_desc->get = NULL;
  47304. out_desc->set = NULL;
  47305. if (DUK_UNLIKELY(out_desc->flags & DUK_PROPDESC_FLAG_ACCESSOR)) {
  47306. DUK_DDD(DUK_DDDPRINT("-> found accessor property in entry part"));
  47307. out_desc->get = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, e_idx);
  47308. out_desc->set = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, e_idx);
  47309. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47310. /* a dummy undefined value is pushed to make valstack
  47311. * behavior uniform for caller
  47312. */
  47313. duk_push_undefined(thr);
  47314. }
  47315. } else {
  47316. DUK_DDD(DUK_DDDPRINT("-> found plain property in entry part"));
  47317. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx);
  47318. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47319. duk_push_tval(thr, tv);
  47320. }
  47321. }
  47322. goto prop_found;
  47323. }
  47324. /*
  47325. * Try array part.
  47326. */
  47327. if (DUK_HOBJECT_HAS_ARRAY_PART(obj) && arr_idx != DUK__NO_ARRAY_INDEX) {
  47328. if (arr_idx < DUK_HOBJECT_GET_ASIZE(obj)) {
  47329. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx);
  47330. if (!DUK_TVAL_IS_UNUSED(tv)) {
  47331. DUK_DDD(DUK_DDDPRINT("-> found in array part"));
  47332. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47333. duk_push_tval(thr, tv);
  47334. }
  47335. /* implicit attributes */
  47336. out_desc->flags = DUK_PROPDESC_FLAG_WRITABLE |
  47337. DUK_PROPDESC_FLAG_CONFIGURABLE |
  47338. DUK_PROPDESC_FLAG_ENUMERABLE;
  47339. out_desc->get = NULL;
  47340. out_desc->set = NULL;
  47341. out_desc->e_idx = -1;
  47342. out_desc->h_idx = -1;
  47343. out_desc->a_idx = (duk_int_t) arr_idx; /* XXX: limit 2G due to being signed */
  47344. goto prop_found;
  47345. }
  47346. }
  47347. }
  47348. DUK_DDD(DUK_DDDPRINT("-> not found as a concrete property"));
  47349. /*
  47350. * Not found as a concrete property, check for virtual properties.
  47351. */
  47352. if (!DUK_HOBJECT_HAS_VIRTUAL_PROPERTIES(obj)) {
  47353. /* Quick skip. */
  47354. goto prop_not_found;
  47355. }
  47356. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  47357. duk_harray *a;
  47358. DUK_DDD(DUK_DDDPRINT("array object exotic property get for key: %!O, arr_idx: %ld",
  47359. (duk_heaphdr *) key, (long) arr_idx));
  47360. a = (duk_harray *) obj;
  47361. DUK_ASSERT_HARRAY_VALID(a);
  47362. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  47363. DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior"));
  47364. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47365. duk_push_uint(thr, (duk_uint_t) a->length);
  47366. }
  47367. out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL;
  47368. if (DUK_HARRAY_LENGTH_WRITABLE(a)) {
  47369. out_desc->flags |= DUK_PROPDESC_FLAG_WRITABLE;
  47370. }
  47371. out_desc->get = NULL;
  47372. out_desc->set = NULL;
  47373. out_desc->e_idx = -1;
  47374. out_desc->h_idx = -1;
  47375. out_desc->a_idx = -1;
  47376. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj));
  47377. goto prop_found_noexotic; /* cannot be arguments exotic */
  47378. }
  47379. } else if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(obj)) {
  47380. DUK_DDD(DUK_DDDPRINT("string object exotic property get for key: %!O, arr_idx: %ld",
  47381. (duk_heaphdr *) key, (long) arr_idx));
  47382. /* XXX: charlen; avoid multiple lookups? */
  47383. if (arr_idx != DUK__NO_ARRAY_INDEX) {
  47384. duk_hstring *h_val;
  47385. DUK_DDD(DUK_DDDPRINT("array index exists"));
  47386. h_val = duk_hobject_get_internal_value_string(thr->heap, obj);
  47387. DUK_ASSERT(h_val);
  47388. if (arr_idx < DUK_HSTRING_GET_CHARLEN(h_val)) {
  47389. DUK_DDD(DUK_DDDPRINT("-> found, array index inside string"));
  47390. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47391. duk_push_hstring(thr, h_val);
  47392. duk_substring(thr, -1, arr_idx, arr_idx + 1); /* [str] -> [substr] */
  47393. }
  47394. out_desc->flags = DUK_PROPDESC_FLAG_ENUMERABLE | /* E5 Section 15.5.5.2 */
  47395. DUK_PROPDESC_FLAG_VIRTUAL;
  47396. out_desc->get = NULL;
  47397. out_desc->set = NULL;
  47398. out_desc->e_idx = -1;
  47399. out_desc->h_idx = -1;
  47400. out_desc->a_idx = -1;
  47401. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj));
  47402. goto prop_found_noexotic; /* cannot be arguments exotic */
  47403. } else {
  47404. /* index is above internal string length -> property is fully normal */
  47405. DUK_DDD(DUK_DDDPRINT("array index outside string -> normal property"));
  47406. }
  47407. } else if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  47408. duk_hstring *h_val;
  47409. DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior"));
  47410. h_val = duk_hobject_get_internal_value_string(thr->heap, obj);
  47411. DUK_ASSERT(h_val != NULL);
  47412. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47413. duk_push_uint(thr, (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h_val));
  47414. }
  47415. out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL; /* E5 Section 15.5.5.1 */
  47416. out_desc->get = NULL;
  47417. out_desc->set = NULL;
  47418. out_desc->e_idx = -1;
  47419. out_desc->h_idx = -1;
  47420. out_desc->a_idx = -1;
  47421. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj));
  47422. goto prop_found_noexotic; /* cannot be arguments exotic */
  47423. }
  47424. }
  47425. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  47426. else if (DUK_HOBJECT_IS_BUFOBJ(obj)) {
  47427. duk_hbufobj *h_bufobj;
  47428. duk_uint_t byte_off;
  47429. duk_small_uint_t elem_size;
  47430. h_bufobj = (duk_hbufobj *) obj;
  47431. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  47432. DUK_DDD(DUK_DDDPRINT("bufobj property get for key: %!O, arr_idx: %ld",
  47433. (duk_heaphdr *) key, (long) arr_idx));
  47434. if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) {
  47435. DUK_DDD(DUK_DDDPRINT("array index exists"));
  47436. /* Careful with wrapping: arr_idx upshift may easily wrap, whereas
  47437. * length downshift won't.
  47438. */
  47439. if (arr_idx < (h_bufobj->length >> h_bufobj->shift)) {
  47440. byte_off = arr_idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */
  47441. elem_size = (duk_small_uint_t) (1U << h_bufobj->shift);
  47442. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47443. duk_uint8_t *data;
  47444. if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) {
  47445. data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off;
  47446. duk_hbufobj_push_validated_read(thr, h_bufobj, data, elem_size);
  47447. } else {
  47448. DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (read zero)"));
  47449. duk_push_uint(thr, 0);
  47450. }
  47451. }
  47452. out_desc->flags = DUK_PROPDESC_FLAG_WRITABLE |
  47453. DUK_PROPDESC_FLAG_VIRTUAL;
  47454. if (DUK_HOBJECT_GET_CLASS_NUMBER(obj) != DUK_HOBJECT_CLASS_ARRAYBUFFER) {
  47455. /* ArrayBuffer indices are non-standard and are
  47456. * non-enumerable to avoid their serialization.
  47457. */
  47458. out_desc->flags |= DUK_PROPDESC_FLAG_ENUMERABLE;
  47459. }
  47460. out_desc->get = NULL;
  47461. out_desc->set = NULL;
  47462. out_desc->e_idx = -1;
  47463. out_desc->h_idx = -1;
  47464. out_desc->a_idx = -1;
  47465. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj));
  47466. goto prop_found_noexotic; /* cannot be e.g. arguments exotic, since exotic 'traits' are mutually exclusive */
  47467. } else {
  47468. /* index is above internal buffer length -> property is fully normal */
  47469. DUK_DDD(DUK_DDDPRINT("array index outside buffer -> normal property"));
  47470. }
  47471. } else if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) {
  47472. DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior"));
  47473. if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) {
  47474. /* Length in elements: take into account shift, but
  47475. * intentionally don't check the underlying buffer here.
  47476. */
  47477. duk_push_uint(thr, h_bufobj->length >> h_bufobj->shift);
  47478. }
  47479. out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL;
  47480. out_desc->get = NULL;
  47481. out_desc->set = NULL;
  47482. out_desc->e_idx = -1;
  47483. out_desc->h_idx = -1;
  47484. out_desc->a_idx = -1;
  47485. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj));
  47486. goto prop_found_noexotic; /* cannot be arguments exotic */
  47487. }
  47488. }
  47489. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  47490. /* Array properties have exotic behavior but they are concrete,
  47491. * so no special handling here.
  47492. *
  47493. * Arguments exotic behavior (E5 Section 10.6, [[GetOwnProperty]]
  47494. * is only relevant as a post-check implemented below; hence no
  47495. * check here.
  47496. */
  47497. /*
  47498. * Not found as concrete or virtual.
  47499. */
  47500. prop_not_found:
  47501. DUK_DDD(DUK_DDDPRINT("-> not found (virtual, entry part, or array part)"));
  47502. DUK_STATS_INC(thr->heap, stats_getownpropdesc_miss);
  47503. return 0;
  47504. /*
  47505. * Found.
  47506. *
  47507. * Arguments object has exotic post-processing, see E5 Section 10.6,
  47508. * description of [[GetOwnProperty]] variant for arguments.
  47509. */
  47510. prop_found:
  47511. DUK_DDD(DUK_DDDPRINT("-> property found, checking for arguments exotic post-behavior"));
  47512. /* Notes:
  47513. * - Only numbered indices are relevant, so arr_idx fast reject is good
  47514. * (this is valid unless there are more than 4**32-1 arguments).
  47515. * - Since variable lookup has no side effects, this can be skipped if
  47516. * DUK_GETDESC_FLAG_PUSH_VALUE is not set.
  47517. */
  47518. if (DUK_UNLIKELY(DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj) &&
  47519. arr_idx != DUK__NO_ARRAY_INDEX &&
  47520. (flags & DUK_GETDESC_FLAG_PUSH_VALUE))) {
  47521. duk_propdesc temp_desc;
  47522. /* Magically bound variable cannot be an accessor. However,
  47523. * there may be an accessor property (or a plain property) in
  47524. * place with magic behavior removed. This happens e.g. when
  47525. * a magic property is redefined with defineProperty().
  47526. * Cannot assert for "not accessor" here.
  47527. */
  47528. /* replaces top of stack with new value if necessary */
  47529. DUK_ASSERT((flags & DUK_GETDESC_FLAG_PUSH_VALUE) != 0);
  47530. /* This can perform a variable lookup but only into a declarative
  47531. * environment which has no side effects.
  47532. */
  47533. if (duk__check_arguments_map_for_get(thr, obj, key, &temp_desc)) {
  47534. DUK_DDD(DUK_DDDPRINT("-> arguments exotic behavior overrides result: %!T -> %!T",
  47535. (duk_tval *) duk_get_tval(thr, -2),
  47536. (duk_tval *) duk_get_tval(thr, -1)));
  47537. /* [... old_result result] -> [... result] */
  47538. duk_remove_m2(thr);
  47539. }
  47540. }
  47541. prop_found_noexotic:
  47542. DUK_STATS_INC(thr->heap, stats_getownpropdesc_hit);
  47543. return 1;
  47544. }
  47545. DUK_INTERNAL duk_bool_t duk_hobject_get_own_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags) {
  47546. DUK_ASSERT(thr != NULL);
  47547. DUK_ASSERT(obj != NULL);
  47548. DUK_ASSERT(key != NULL);
  47549. DUK_ASSERT(out_desc != NULL);
  47550. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47551. return duk__get_own_propdesc_raw(thr, obj, key, DUK_HSTRING_GET_ARRIDX_SLOW(key), out_desc, flags);
  47552. }
  47553. /*
  47554. * Ecmascript compliant [[GetProperty]](P), for internal use only.
  47555. *
  47556. * If property is found:
  47557. * - Fills descriptor fields to 'out_desc'
  47558. * - If DUK_GETDESC_FLAG_PUSH_VALUE is set, pushes a value related to the
  47559. * property onto the stack ('undefined' for accessor properties).
  47560. * - Returns non-zero
  47561. *
  47562. * If property is not found:
  47563. * - 'out_desc' is left in untouched state (possibly garbage)
  47564. * - Nothing is pushed onto the stack (not even with DUK_GETDESC_FLAG_PUSH_VALUE
  47565. * set)
  47566. * - Returns zero
  47567. *
  47568. * May cause arbitrary side effects and invalidate (most) duk_tval
  47569. * pointers.
  47570. */
  47571. DUK_LOCAL duk_bool_t duk__get_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags) {
  47572. duk_hobject *curr;
  47573. duk_uint32_t arr_idx;
  47574. duk_uint_t sanity;
  47575. DUK_ASSERT(thr != NULL);
  47576. DUK_ASSERT(thr->heap != NULL);
  47577. DUK_ASSERT(obj != NULL);
  47578. DUK_ASSERT(key != NULL);
  47579. DUK_ASSERT(out_desc != NULL);
  47580. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47581. DUK_STATS_INC(thr->heap, stats_getpropdesc_count);
  47582. arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(key);
  47583. DUK_DDD(DUK_DDDPRINT("duk__get_propdesc: thr=%p, obj=%p, key=%p, out_desc=%p, flags=%lx, "
  47584. "arr_idx=%ld (obj -> %!O, key -> %!O)",
  47585. (void *) thr, (void *) obj, (void *) key, (void *) out_desc,
  47586. (long) flags, (long) arr_idx,
  47587. (duk_heaphdr *) obj, (duk_heaphdr *) key));
  47588. curr = obj;
  47589. DUK_ASSERT(curr != NULL);
  47590. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  47591. do {
  47592. if (duk__get_own_propdesc_raw(thr, curr, key, arr_idx, out_desc, flags)) {
  47593. /* stack contains value (if requested), 'out_desc' is set */
  47594. DUK_STATS_INC(thr->heap, stats_getpropdesc_hit);
  47595. return 1;
  47596. }
  47597. /* not found in 'curr', next in prototype chain; impose max depth */
  47598. if (DUK_UNLIKELY(sanity-- == 0)) {
  47599. if (flags & DUK_GETDESC_FLAG_IGNORE_PROTOLOOP) {
  47600. /* treat like property not found */
  47601. break;
  47602. } else {
  47603. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  47604. }
  47605. }
  47606. curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr);
  47607. } while (curr != NULL);
  47608. /* out_desc is left untouched (possibly garbage), caller must use return
  47609. * value to determine whether out_desc can be looked up
  47610. */
  47611. DUK_STATS_INC(thr->heap, stats_getpropdesc_miss);
  47612. return 0;
  47613. }
  47614. /*
  47615. * Shallow fast path checks for accessing array elements with numeric
  47616. * indices. The goal is to try to avoid coercing an array index to an
  47617. * (interned) string for the most common lookups, in particular, for
  47618. * standard Array objects.
  47619. *
  47620. * Interning is avoided but only for a very narrow set of cases:
  47621. * - Object has array part, index is within array allocation, and
  47622. * value is not unused (= key exists)
  47623. * - Object has no interfering exotic behavior (e.g. arguments or
  47624. * string object exotic behaviors interfere, array exotic
  47625. * behavior does not).
  47626. *
  47627. * Current shortcoming: if key does not exist (even if it is within
  47628. * the array allocation range) a slow path lookup with interning is
  47629. * always required. This can probably be fixed so that there is a
  47630. * quick fast path for non-existent elements as well, at least for
  47631. * standard Array objects.
  47632. */
  47633. #if defined(DUK_USE_ARRAY_PROP_FASTPATH)
  47634. DUK_LOCAL duk_tval *duk__getprop_shallow_fastpath_array_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key) {
  47635. duk_tval *tv;
  47636. duk_uint32_t idx;
  47637. DUK_UNREF(thr);
  47638. if (!(DUK_HOBJECT_HAS_ARRAY_PART(obj) &&
  47639. !DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj) &&
  47640. !DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(obj) &&
  47641. !DUK_HOBJECT_IS_BUFOBJ(obj) &&
  47642. !DUK_HOBJECT_IS_PROXY(obj))) {
  47643. /* Must have array part and no conflicting exotic behaviors.
  47644. * Doesn't need to have array special behavior, e.g. Arguments
  47645. * object has array part.
  47646. */
  47647. return NULL;
  47648. }
  47649. /* Arrays never have other exotic behaviors. */
  47650. DUK_DDD(DUK_DDDPRINT("fast path attempt (no exotic string/arguments/buffer "
  47651. "behavior, object has array part)"));
  47652. #if defined(DUK_USE_FASTINT)
  47653. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  47654. idx = duk__tval_fastint_to_arr_idx(tv_key);
  47655. } else
  47656. #endif
  47657. if (DUK_TVAL_IS_DOUBLE(tv_key)) {
  47658. idx = duk__tval_number_to_arr_idx(tv_key);
  47659. } else {
  47660. DUK_DDD(DUK_DDDPRINT("key is not a number"));
  47661. return NULL;
  47662. }
  47663. /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which
  47664. * is 0xffffffffUL. We don't need to check for that explicitly
  47665. * because 0xffffffffUL will never be inside object 'a_size'.
  47666. */
  47667. if (idx >= DUK_HOBJECT_GET_ASIZE(obj)) {
  47668. DUK_DDD(DUK_DDDPRINT("key is not an array index or outside array part"));
  47669. return NULL;
  47670. }
  47671. DUK_ASSERT(idx != 0xffffffffUL);
  47672. DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX);
  47673. /* XXX: for array instances we could take a shortcut here and assume
  47674. * Array.prototype doesn't contain an array index property.
  47675. */
  47676. DUK_DDD(DUK_DDDPRINT("key is a valid array index and inside array part"));
  47677. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, idx);
  47678. if (!DUK_TVAL_IS_UNUSED(tv)) {
  47679. DUK_DDD(DUK_DDDPRINT("-> fast path successful"));
  47680. return tv;
  47681. }
  47682. DUK_DDD(DUK_DDDPRINT("fast path attempt failed, fall back to slow path"));
  47683. return NULL;
  47684. }
  47685. DUK_LOCAL duk_bool_t duk__putprop_shallow_fastpath_array_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key, duk_tval *tv_val) {
  47686. duk_tval *tv;
  47687. duk_harray *a;
  47688. duk_uint32_t idx;
  47689. duk_uint32_t old_len, new_len;
  47690. if (!(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj) &&
  47691. DUK_HOBJECT_HAS_ARRAY_PART(obj) &&
  47692. DUK_HOBJECT_HAS_EXTENSIBLE(obj))) {
  47693. return 0;
  47694. }
  47695. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); /* caller ensures */
  47696. a = (duk_harray *) obj;
  47697. DUK_ASSERT_HARRAY_VALID(a);
  47698. #if defined(DUK_USE_FASTINT)
  47699. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  47700. idx = duk__tval_fastint_to_arr_idx(tv_key);
  47701. } else
  47702. #endif
  47703. if (DUK_TVAL_IS_DOUBLE(tv_key)) {
  47704. idx = duk__tval_number_to_arr_idx(tv_key);
  47705. } else {
  47706. DUK_DDD(DUK_DDDPRINT("key is not a number"));
  47707. return 0;
  47708. }
  47709. /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which
  47710. * is 0xffffffffUL. We don't need to check for that explicitly
  47711. * because 0xffffffffUL will never be inside object 'a_size'.
  47712. */
  47713. if (idx >= DUK_HOBJECT_GET_ASIZE(obj)) { /* for resizing of array part, use slow path */
  47714. return 0;
  47715. }
  47716. DUK_ASSERT(idx != 0xffffffffUL);
  47717. DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX);
  47718. old_len = a->length;
  47719. if (idx >= old_len) {
  47720. DUK_DDD(DUK_DDDPRINT("write new array entry requires length update "
  47721. "(arr_idx=%ld, old_len=%ld)",
  47722. (long) idx, (long) old_len));
  47723. if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) {
  47724. /* The correct behavior here is either a silent error
  47725. * or a TypeError, depending on strictness. Fall back
  47726. * to the slow path to handle the situation.
  47727. */
  47728. return 0;
  47729. }
  47730. new_len = idx + 1;
  47731. ((duk_harray *) obj)->length = new_len;
  47732. }
  47733. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, idx);
  47734. DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects */
  47735. DUK_DDD(DUK_DDDPRINT("array fast path success for index %ld", (long) idx));
  47736. return 1;
  47737. }
  47738. #endif /* DUK_USE_ARRAY_PROP_FASTPATH */
  47739. /*
  47740. * Fast path for bufobj getprop/putprop
  47741. */
  47742. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  47743. DUK_LOCAL duk_bool_t duk__getprop_fastpath_bufobj_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key) {
  47744. duk_uint32_t idx;
  47745. duk_hbufobj *h_bufobj;
  47746. duk_uint_t byte_off;
  47747. duk_small_uint_t elem_size;
  47748. duk_uint8_t *data;
  47749. if (!DUK_HOBJECT_IS_BUFOBJ(obj)) {
  47750. return 0;
  47751. }
  47752. h_bufobj = (duk_hbufobj *) obj;
  47753. if (!DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) {
  47754. return 0;
  47755. }
  47756. #if defined(DUK_USE_FASTINT)
  47757. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  47758. idx = duk__tval_fastint_to_arr_idx(tv_key);
  47759. } else
  47760. #endif
  47761. if (DUK_TVAL_IS_DOUBLE(tv_key)) {
  47762. idx = duk__tval_number_to_arr_idx(tv_key);
  47763. } else {
  47764. return 0;
  47765. }
  47766. /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which
  47767. * is 0xffffffffUL. We don't need to check for that explicitly
  47768. * because 0xffffffffUL will never be inside bufobj length.
  47769. */
  47770. /* Careful with wrapping (left shifting idx would be unsafe). */
  47771. if (idx >= (h_bufobj->length >> h_bufobj->shift)) {
  47772. return 0;
  47773. }
  47774. DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX);
  47775. byte_off = idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */
  47776. elem_size = (duk_small_uint_t) (1U << h_bufobj->shift);
  47777. if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) {
  47778. data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off;
  47779. duk_hbufobj_push_validated_read(thr, h_bufobj, data, elem_size);
  47780. } else {
  47781. DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (read zero)"));
  47782. duk_push_uint(thr, 0);
  47783. }
  47784. return 1;
  47785. }
  47786. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  47787. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  47788. DUK_LOCAL duk_bool_t duk__putprop_fastpath_bufobj_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key, duk_tval *tv_val) {
  47789. duk_uint32_t idx;
  47790. duk_hbufobj *h_bufobj;
  47791. duk_uint_t byte_off;
  47792. duk_small_uint_t elem_size;
  47793. duk_uint8_t *data;
  47794. if (!(DUK_HOBJECT_IS_BUFOBJ(obj) &&
  47795. DUK_TVAL_IS_NUMBER(tv_val))) {
  47796. return 0;
  47797. }
  47798. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); /* caller ensures; rom objects are never bufobjs now */
  47799. h_bufobj = (duk_hbufobj *) obj;
  47800. if (!DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) {
  47801. return 0;
  47802. }
  47803. #if defined(DUK_USE_FASTINT)
  47804. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  47805. idx = duk__tval_fastint_to_arr_idx(tv_key);
  47806. } else
  47807. #endif
  47808. if (DUK_TVAL_IS_DOUBLE(tv_key)) {
  47809. idx = duk__tval_number_to_arr_idx(tv_key);
  47810. } else {
  47811. return 0;
  47812. }
  47813. /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which
  47814. * is 0xffffffffUL. We don't need to check for that explicitly
  47815. * because 0xffffffffUL will never be inside bufobj length.
  47816. */
  47817. /* Careful with wrapping (left shifting idx would be unsafe). */
  47818. if (idx >= (h_bufobj->length >> h_bufobj->shift)) {
  47819. return 0;
  47820. }
  47821. DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX);
  47822. byte_off = idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */
  47823. elem_size = (duk_small_uint_t) (1U << h_bufobj->shift);
  47824. /* Value is required to be a number in the fast path so there
  47825. * are no side effects in write coercion.
  47826. */
  47827. duk_push_tval(thr, tv_val);
  47828. DUK_ASSERT(duk_is_number(thr, -1));
  47829. if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) {
  47830. data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off;
  47831. duk_hbufobj_validated_write(thr, h_bufobj, data, elem_size);
  47832. } else {
  47833. DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (write skipped)"));
  47834. }
  47835. duk_pop_unsafe(thr);
  47836. return 1;
  47837. }
  47838. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  47839. /*
  47840. * GETPROP: Ecmascript property read.
  47841. */
  47842. DUK_INTERNAL duk_bool_t duk_hobject_getprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key) {
  47843. duk_tval tv_obj_copy;
  47844. duk_tval tv_key_copy;
  47845. duk_hobject *curr = NULL;
  47846. duk_hstring *key = NULL;
  47847. duk_uint32_t arr_idx = DUK__NO_ARRAY_INDEX;
  47848. duk_propdesc desc;
  47849. duk_uint_t sanity;
  47850. DUK_DDD(DUK_DDDPRINT("getprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)",
  47851. (void *) thr, (void *) tv_obj, (void *) tv_key,
  47852. (duk_tval *) tv_obj, (duk_tval *) tv_key));
  47853. DUK_ASSERT(thr != NULL);
  47854. DUK_ASSERT(thr->heap != NULL);
  47855. DUK_ASSERT(tv_obj != NULL);
  47856. DUK_ASSERT(tv_key != NULL);
  47857. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  47858. DUK_STATS_INC(thr->heap, stats_getprop_all);
  47859. /*
  47860. * Make a copy of tv_obj, tv_key, and tv_val to avoid any issues of
  47861. * them being invalidated by a valstack resize.
  47862. *
  47863. * XXX: this is now an overkill for many fast paths. Rework this
  47864. * to be faster (although switching to a valstack discipline might
  47865. * be a better solution overall).
  47866. */
  47867. DUK_TVAL_SET_TVAL(&tv_obj_copy, tv_obj);
  47868. DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key);
  47869. tv_obj = &tv_obj_copy;
  47870. tv_key = &tv_key_copy;
  47871. /*
  47872. * Coercion and fast path processing
  47873. */
  47874. switch (DUK_TVAL_GET_TAG(tv_obj)) {
  47875. case DUK_TAG_UNDEFINED:
  47876. case DUK_TAG_NULL: {
  47877. /* Note: unconditional throw */
  47878. DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject"));
  47879. #if defined(DUK_USE_PARANOID_ERRORS)
  47880. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE);
  47881. #else
  47882. DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot read property %s of %s",
  47883. duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj));
  47884. #endif
  47885. return 0;
  47886. }
  47887. case DUK_TAG_BOOLEAN: {
  47888. DUK_DDD(DUK_DDDPRINT("base object is a boolean, start lookup from boolean prototype"));
  47889. curr = thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE];
  47890. break;
  47891. }
  47892. case DUK_TAG_STRING: {
  47893. duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj);
  47894. duk_int_t pop_count;
  47895. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  47896. /* Symbols (ES2015 or hidden) don't have virtual properties. */
  47897. DUK_DDD(DUK_DDDPRINT("base object is a symbol, start lookup from symbol prototype"));
  47898. curr = thr->builtins[DUK_BIDX_SYMBOL_PROTOTYPE];
  47899. break;
  47900. }
  47901. #if defined(DUK_USE_FASTINT)
  47902. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  47903. arr_idx = duk__tval_fastint_to_arr_idx(tv_key);
  47904. DUK_DDD(DUK_DDDPRINT("base object string, key is a fast-path fastint; arr_idx %ld", (long) arr_idx));
  47905. pop_count = 0;
  47906. } else
  47907. #endif
  47908. if (DUK_TVAL_IS_NUMBER(tv_key)) {
  47909. arr_idx = duk__tval_number_to_arr_idx(tv_key);
  47910. DUK_DDD(DUK_DDDPRINT("base object string, key is a fast-path number; arr_idx %ld", (long) arr_idx));
  47911. pop_count = 0;
  47912. } else {
  47913. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  47914. DUK_ASSERT(key != NULL);
  47915. DUK_DDD(DUK_DDDPRINT("base object string, key is a non-fast-path number; after "
  47916. "coercion key is %!T, arr_idx %ld",
  47917. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  47918. pop_count = 1;
  47919. }
  47920. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  47921. arr_idx < DUK_HSTRING_GET_CHARLEN(h)) {
  47922. duk_pop_n_unsafe(thr, pop_count);
  47923. duk_push_hstring(thr, h);
  47924. duk_substring(thr, -1, arr_idx, arr_idx + 1); /* [str] -> [substr] */
  47925. DUK_STATS_INC(thr->heap, stats_getprop_stringidx);
  47926. DUK_DDD(DUK_DDDPRINT("-> %!T (base is string, key is an index inside string length "
  47927. "after coercion -> return char)",
  47928. (duk_tval *) duk_get_tval(thr, -1)));
  47929. return 1;
  47930. }
  47931. if (pop_count == 0) {
  47932. /* This is a pretty awkward control flow, but we need to recheck the
  47933. * key coercion here.
  47934. */
  47935. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  47936. DUK_ASSERT(key != NULL);
  47937. DUK_DDD(DUK_DDDPRINT("base object string, key is a non-fast-path number; after "
  47938. "coercion key is %!T, arr_idx %ld",
  47939. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  47940. }
  47941. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  47942. duk_pop_unsafe(thr); /* [key] -> [] */
  47943. duk_push_uint(thr, (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h)); /* [] -> [res] */
  47944. DUK_STATS_INC(thr->heap, stats_getprop_stringlen);
  47945. DUK_DDD(DUK_DDDPRINT("-> %!T (base is string, key is 'length' after coercion -> "
  47946. "return string length)",
  47947. (duk_tval *) duk_get_tval(thr, -1)));
  47948. return 1;
  47949. }
  47950. DUK_DDD(DUK_DDDPRINT("base object is a string, start lookup from string prototype"));
  47951. curr = thr->builtins[DUK_BIDX_STRING_PROTOTYPE];
  47952. goto lookup; /* avoid double coercion */
  47953. }
  47954. case DUK_TAG_OBJECT: {
  47955. #if defined(DUK_USE_ARRAY_PROP_FASTPATH)
  47956. duk_tval *tmp;
  47957. #endif
  47958. curr = DUK_TVAL_GET_OBJECT(tv_obj);
  47959. DUK_ASSERT(curr != NULL);
  47960. /* XXX: array .length fast path (important in e.g. loops)? */
  47961. #if defined(DUK_USE_ARRAY_PROP_FASTPATH)
  47962. tmp = duk__getprop_shallow_fastpath_array_tval(thr, curr, tv_key);
  47963. if (tmp) {
  47964. duk_push_tval(thr, tmp);
  47965. DUK_DDD(DUK_DDDPRINT("-> %!T (base is object, key is a number, array part "
  47966. "fast path)",
  47967. (duk_tval *) duk_get_tval(thr, -1)));
  47968. DUK_STATS_INC(thr->heap, stats_getprop_arrayidx);
  47969. return 1;
  47970. }
  47971. #endif
  47972. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  47973. if (duk__getprop_fastpath_bufobj_tval(thr, curr, tv_key) != 0) {
  47974. /* Read value pushed on stack. */
  47975. DUK_DDD(DUK_DDDPRINT("-> %!T (base is bufobj, key is a number, bufobj "
  47976. "fast path)",
  47977. (duk_tval *) duk_get_tval(thr, -1)));
  47978. DUK_STATS_INC(thr->heap, stats_getprop_bufobjidx);
  47979. return 1;
  47980. }
  47981. #endif
  47982. #if defined(DUK_USE_ES6_PROXY)
  47983. if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(curr))) {
  47984. duk_hobject *h_target;
  47985. if (duk__proxy_check_prop(thr, curr, DUK_STRIDX_GET, tv_key, &h_target)) {
  47986. /* -> [ ... trap handler ] */
  47987. DUK_DDD(DUK_DDDPRINT("-> proxy object 'get' for key %!T", (duk_tval *) tv_key));
  47988. DUK_STATS_INC(thr->heap, stats_getprop_proxy);
  47989. duk_push_hobject(thr, h_target); /* target */
  47990. duk_push_tval(thr, tv_key); /* P */
  47991. duk_push_tval(thr, tv_obj); /* Receiver: Proxy object */
  47992. duk_call_method(thr, 3 /*nargs*/);
  47993. /* Target object must be checked for a conflicting
  47994. * non-configurable property.
  47995. */
  47996. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  47997. DUK_ASSERT(key != NULL);
  47998. if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  47999. duk_tval *tv_hook = duk_require_tval(thr, -3); /* value from hook */
  48000. duk_tval *tv_targ = duk_require_tval(thr, -1); /* value from target */
  48001. duk_bool_t datadesc_reject;
  48002. duk_bool_t accdesc_reject;
  48003. DUK_DDD(DUK_DDDPRINT("proxy 'get': target has matching property %!O, check for "
  48004. "conflicting property; tv_hook=%!T, tv_targ=%!T, desc.flags=0x%08lx, "
  48005. "desc.get=%p, desc.set=%p",
  48006. (duk_heaphdr *) key, (duk_tval *) tv_hook, (duk_tval *) tv_targ,
  48007. (unsigned long) desc.flags,
  48008. (void *) desc.get, (void *) desc.set));
  48009. datadesc_reject = !(desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) &&
  48010. !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) &&
  48011. !(desc.flags & DUK_PROPDESC_FLAG_WRITABLE) &&
  48012. !duk_js_samevalue(tv_hook, tv_targ);
  48013. accdesc_reject = (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) &&
  48014. !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) &&
  48015. (desc.get == NULL) &&
  48016. !DUK_TVAL_IS_UNDEFINED(tv_hook);
  48017. if (datadesc_reject || accdesc_reject) {
  48018. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  48019. }
  48020. duk_pop_2_unsafe(thr);
  48021. } else {
  48022. duk_pop_unsafe(thr);
  48023. }
  48024. return 1; /* return value */
  48025. }
  48026. curr = h_target; /* resume lookup from target */
  48027. DUK_TVAL_SET_OBJECT(tv_obj, curr);
  48028. }
  48029. #endif /* DUK_USE_ES6_PROXY */
  48030. if (DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(curr)) {
  48031. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48032. DUK_ASSERT(key != NULL);
  48033. DUK_STATS_INC(thr->heap, stats_getprop_arguments);
  48034. if (duk__check_arguments_map_for_get(thr, curr, key, &desc)) {
  48035. DUK_DDD(DUK_DDDPRINT("-> %!T (base is object with arguments exotic behavior, "
  48036. "key matches magically bound property -> skip standard "
  48037. "Get with replacement value)",
  48038. (duk_tval *) duk_get_tval(thr, -1)));
  48039. /* no need for 'caller' post-check, because 'key' must be an array index */
  48040. duk_remove_m2(thr); /* [key result] -> [result] */
  48041. return 1;
  48042. }
  48043. goto lookup; /* avoid double coercion */
  48044. }
  48045. break;
  48046. }
  48047. /* Buffer has virtual properties similar to string, but indexed values
  48048. * are numbers, not 1-byte buffers/strings which would perform badly.
  48049. */
  48050. case DUK_TAG_BUFFER: {
  48051. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj);
  48052. duk_int_t pop_count;
  48053. /*
  48054. * Because buffer values are often looped over, a number fast path
  48055. * is important.
  48056. */
  48057. #if defined(DUK_USE_FASTINT)
  48058. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  48059. arr_idx = duk__tval_fastint_to_arr_idx(tv_key);
  48060. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path fastint; arr_idx %ld", (long) arr_idx));
  48061. pop_count = 0;
  48062. }
  48063. else
  48064. #endif
  48065. if (DUK_TVAL_IS_NUMBER(tv_key)) {
  48066. arr_idx = duk__tval_number_to_arr_idx(tv_key);
  48067. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path number; arr_idx %ld", (long) arr_idx));
  48068. pop_count = 0;
  48069. } else {
  48070. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48071. DUK_ASSERT(key != NULL);
  48072. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after "
  48073. "coercion key is %!T, arr_idx %ld",
  48074. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  48075. pop_count = 1;
  48076. }
  48077. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  48078. arr_idx < DUK_HBUFFER_GET_SIZE(h)) {
  48079. duk_pop_n_unsafe(thr, pop_count);
  48080. duk_push_uint(thr, ((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h))[arr_idx]);
  48081. DUK_STATS_INC(thr->heap, stats_getprop_bufferidx);
  48082. DUK_DDD(DUK_DDDPRINT("-> %!T (base is buffer, key is an index inside buffer length "
  48083. "after coercion -> return byte as number)",
  48084. (duk_tval *) duk_get_tval(thr, -1)));
  48085. return 1;
  48086. }
  48087. if (pop_count == 0) {
  48088. /* This is a pretty awkward control flow, but we need to recheck the
  48089. * key coercion here.
  48090. */
  48091. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48092. DUK_ASSERT(key != NULL);
  48093. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after "
  48094. "coercion key is %!T, arr_idx %ld",
  48095. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  48096. }
  48097. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  48098. duk_pop_unsafe(thr); /* [key] -> [] */
  48099. duk_push_uint(thr, (duk_uint_t) DUK_HBUFFER_GET_SIZE(h)); /* [] -> [res] */
  48100. DUK_STATS_INC(thr->heap, stats_getprop_bufferlen);
  48101. DUK_DDD(DUK_DDDPRINT("-> %!T (base is buffer, key is 'length' "
  48102. "after coercion -> return buffer length)",
  48103. (duk_tval *) duk_get_tval(thr, -1)));
  48104. return 1;
  48105. }
  48106. DUK_DDD(DUK_DDDPRINT("base object is a buffer, start lookup from Uint8Array prototype"));
  48107. curr = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  48108. goto lookup; /* avoid double coercion */
  48109. }
  48110. case DUK_TAG_POINTER: {
  48111. DUK_DDD(DUK_DDDPRINT("base object is a pointer, start lookup from pointer prototype"));
  48112. curr = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE];
  48113. break;
  48114. }
  48115. case DUK_TAG_LIGHTFUNC: {
  48116. /* Lightfuncs inherit getter .name and .length from %NativeFunctionPrototype%. */
  48117. DUK_DDD(DUK_DDDPRINT("base object is a lightfunc, start lookup from function prototype"));
  48118. curr = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE];
  48119. break;
  48120. }
  48121. #if defined(DUK_USE_FASTINT)
  48122. case DUK_TAG_FASTINT:
  48123. #endif
  48124. default: {
  48125. /* number */
  48126. DUK_DDD(DUK_DDDPRINT("base object is a number, start lookup from number prototype"));
  48127. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_obj));
  48128. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_obj));
  48129. curr = thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE];
  48130. break;
  48131. }
  48132. }
  48133. /* key coercion (unless already coerced above) */
  48134. DUK_ASSERT(key == NULL);
  48135. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48136. DUK_ASSERT(key != NULL);
  48137. /*
  48138. * Property lookup
  48139. */
  48140. lookup:
  48141. /* [key] (coerced) */
  48142. DUK_ASSERT(curr != NULL);
  48143. DUK_ASSERT(key != NULL);
  48144. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  48145. do {
  48146. if (!duk__get_own_propdesc_raw(thr, curr, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  48147. goto next_in_chain;
  48148. }
  48149. if (desc.get != NULL) {
  48150. /* accessor with defined getter */
  48151. DUK_ASSERT((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) != 0);
  48152. duk_pop_unsafe(thr); /* [key undefined] -> [key] */
  48153. duk_push_hobject(thr, desc.get);
  48154. duk_push_tval(thr, tv_obj); /* note: original, uncoerced base */
  48155. #if defined(DUK_USE_NONSTD_GETTER_KEY_ARGUMENT)
  48156. duk_dup_m3(thr);
  48157. duk_call_method(thr, 1); /* [key getter this key] -> [key retval] */
  48158. #else
  48159. duk_call_method(thr, 0); /* [key getter this] -> [key retval] */
  48160. #endif
  48161. } else {
  48162. /* [key value] or [key undefined] */
  48163. /* data property or accessor without getter */
  48164. DUK_ASSERT(((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) == 0) ||
  48165. (desc.get == NULL));
  48166. /* if accessor without getter, return value is undefined */
  48167. DUK_ASSERT(((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) == 0) ||
  48168. duk_is_undefined(thr, -1));
  48169. /* Note: for an accessor without getter, falling through to
  48170. * check for "caller" exotic behavior is unnecessary as
  48171. * "undefined" will never activate the behavior. But it does
  48172. * no harm, so we'll do it anyway.
  48173. */
  48174. }
  48175. goto found; /* [key result] */
  48176. next_in_chain:
  48177. /* XXX: option to pretend property doesn't exist if sanity limit is
  48178. * hit might be useful.
  48179. */
  48180. if (DUK_UNLIKELY(sanity-- == 0)) {
  48181. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  48182. }
  48183. curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr);
  48184. } while (curr != NULL);
  48185. /*
  48186. * Not found
  48187. */
  48188. duk_to_undefined(thr, -1); /* [key] -> [undefined] (default value) */
  48189. DUK_DDD(DUK_DDDPRINT("-> %!T (not found)", (duk_tval *) duk_get_tval(thr, -1)));
  48190. return 0;
  48191. /*
  48192. * Found; post-processing (Function and arguments objects)
  48193. */
  48194. found:
  48195. /* [key result] */
  48196. #if !defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  48197. /* Special behavior for 'caller' property of (non-bound) function objects
  48198. * and non-strict Arguments objects: if 'caller' -value- (!) is a strict
  48199. * mode function, throw a TypeError (E5 Sections 15.3.5.4, 10.6).
  48200. * Quite interestingly, a non-strict function with no formal arguments
  48201. * will get an arguments object -without- special 'caller' behavior!
  48202. *
  48203. * The E5.1 spec is a bit ambiguous if this special behavior applies when
  48204. * a bound function is the base value (not the 'caller' value): Section
  48205. * 15.3.4.5 (describing bind()) states that [[Get]] for bound functions
  48206. * matches that of Section 15.3.5.4 ([[Get]] for Function instances).
  48207. * However, Section 13.3.5.4 has "NOTE: Function objects created using
  48208. * Function.prototype.bind use the default [[Get]] internal method."
  48209. * The current implementation assumes this means that bound functions
  48210. * should not have the special [[Get]] behavior.
  48211. *
  48212. * The E5.1 spec is also a bit unclear if the TypeError throwing is
  48213. * applied if the 'caller' value is a strict bound function. The
  48214. * current implementation will throw even for both strict non-bound
  48215. * and strict bound functions.
  48216. *
  48217. * See test-dev-strict-func-as-caller-prop-value.js for quite extensive
  48218. * tests.
  48219. *
  48220. * This exotic behavior is disabled when the non-standard 'caller' property
  48221. * is enabled, as it conflicts with the free use of 'caller'.
  48222. */
  48223. if (key == DUK_HTHREAD_STRING_CALLER(thr) &&
  48224. DUK_TVAL_IS_OBJECT(tv_obj)) {
  48225. duk_hobject *orig = DUK_TVAL_GET_OBJECT(tv_obj);
  48226. DUK_ASSERT(orig != NULL);
  48227. if (DUK_HOBJECT_IS_NONBOUND_FUNCTION(orig) ||
  48228. DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(orig)) {
  48229. duk_hobject *h;
  48230. /* XXX: The TypeError is currently not applied to bound
  48231. * functions because the 'strict' flag is not copied by
  48232. * bind(). This may or may not be correct, the specification
  48233. * only refers to the value being a "strict mode Function
  48234. * object" which is ambiguous.
  48235. */
  48236. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(orig));
  48237. h = duk_get_hobject(thr, -1); /* NULL if not an object */
  48238. if (h &&
  48239. DUK_HOBJECT_IS_FUNCTION(h) &&
  48240. DUK_HOBJECT_HAS_STRICT(h)) {
  48241. /* XXX: sufficient to check 'strict', assert for 'is function' */
  48242. DUK_ERROR_TYPE(thr, DUK_STR_STRICT_CALLER_READ);
  48243. }
  48244. }
  48245. }
  48246. #endif /* !DUK_USE_NONSTD_FUNC_CALLER_PROPERTY */
  48247. duk_remove_m2(thr); /* [key result] -> [result] */
  48248. DUK_DDD(DUK_DDDPRINT("-> %!T (found)", (duk_tval *) duk_get_tval(thr, -1)));
  48249. return 1;
  48250. }
  48251. /*
  48252. * HASPROP: Ecmascript property existence check ("in" operator).
  48253. *
  48254. * Interestingly, the 'in' operator does not do any coercion of
  48255. * the target object.
  48256. */
  48257. DUK_INTERNAL duk_bool_t duk_hobject_hasprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key) {
  48258. duk_tval tv_key_copy;
  48259. duk_hobject *obj;
  48260. duk_hstring *key;
  48261. duk_uint32_t arr_idx;
  48262. duk_bool_t rc;
  48263. duk_propdesc desc;
  48264. DUK_DDD(DUK_DDDPRINT("hasprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)",
  48265. (void *) thr, (void *) tv_obj, (void *) tv_key,
  48266. (duk_tval *) tv_obj, (duk_tval *) tv_key));
  48267. DUK_ASSERT(thr != NULL);
  48268. DUK_ASSERT(thr->heap != NULL);
  48269. DUK_ASSERT(tv_obj != NULL);
  48270. DUK_ASSERT(tv_key != NULL);
  48271. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  48272. DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key);
  48273. tv_key = &tv_key_copy;
  48274. /*
  48275. * The 'in' operator requires an object as its right hand side,
  48276. * throwing a TypeError unconditionally if this is not the case.
  48277. *
  48278. * However, lightfuncs need to behave like fully fledged objects
  48279. * here to be maximally transparent, so we need to handle them
  48280. * here. Same goes for plain buffers which behave like ArrayBuffers.
  48281. */
  48282. /* XXX: Refactor key coercion so that it's only called once. It can't
  48283. * be trivially lifted here because the object must be type checked
  48284. * first.
  48285. */
  48286. if (DUK_TVAL_IS_OBJECT(tv_obj)) {
  48287. obj = DUK_TVAL_GET_OBJECT(tv_obj);
  48288. DUK_ASSERT(obj != NULL);
  48289. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48290. } else if (DUK_TVAL_IS_BUFFER(tv_obj)) {
  48291. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48292. if (duk__key_is_plain_buf_ownprop(thr, DUK_TVAL_GET_BUFFER(tv_obj), key, arr_idx)) {
  48293. rc = 1;
  48294. goto pop_and_return;
  48295. }
  48296. obj = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  48297. } else if (DUK_TVAL_IS_LIGHTFUNC(tv_obj)) {
  48298. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48299. /* If not found, resume existence check from %NativeFunctionPrototype%.
  48300. * We can just substitute the value in this case; nothing will
  48301. * need the original base value (as would be the case with e.g.
  48302. * setters/getters.
  48303. */
  48304. obj = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE];
  48305. } else {
  48306. /* Note: unconditional throw */
  48307. DUK_DDD(DUK_DDDPRINT("base object is not an object -> reject"));
  48308. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE);
  48309. }
  48310. /* XXX: fast path for arrays? */
  48311. DUK_ASSERT(key != NULL);
  48312. DUK_ASSERT(obj != NULL);
  48313. DUK_UNREF(arr_idx);
  48314. #if defined(DUK_USE_ES6_PROXY)
  48315. if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(obj))) {
  48316. duk_hobject *h_target;
  48317. duk_bool_t tmp_bool;
  48318. /* XXX: the key in 'key in obj' is string coerced before we're called
  48319. * (which is the required behavior in E5/E5.1/E6) so the key is a string
  48320. * here already.
  48321. */
  48322. if (duk__proxy_check_prop(thr, obj, DUK_STRIDX_HAS, tv_key, &h_target)) {
  48323. /* [ ... key trap handler ] */
  48324. DUK_DDD(DUK_DDDPRINT("-> proxy object 'has' for key %!T", (duk_tval *) tv_key));
  48325. duk_push_hobject(thr, h_target); /* target */
  48326. duk_push_tval(thr, tv_key); /* P */
  48327. duk_call_method(thr, 2 /*nargs*/);
  48328. tmp_bool = duk_to_boolean(thr, -1);
  48329. if (!tmp_bool) {
  48330. /* Target object must be checked for a conflicting
  48331. * non-configurable property.
  48332. */
  48333. if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */
  48334. DUK_DDD(DUK_DDDPRINT("proxy 'has': target has matching property %!O, check for "
  48335. "conflicting property; desc.flags=0x%08lx, "
  48336. "desc.get=%p, desc.set=%p",
  48337. (duk_heaphdr *) key, (unsigned long) desc.flags,
  48338. (void *) desc.get, (void *) desc.set));
  48339. /* XXX: Extensibility check for target uses IsExtensible(). If we
  48340. * implemented the isExtensible trap and didn't reject proxies as
  48341. * proxy targets, it should be respected here.
  48342. */
  48343. if (!((desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && /* property is configurable and */
  48344. DUK_HOBJECT_HAS_EXTENSIBLE(h_target))) { /* ... target is extensible */
  48345. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  48346. }
  48347. }
  48348. }
  48349. duk_pop_2_unsafe(thr); /* [ key trap_result ] -> [] */
  48350. return tmp_bool;
  48351. }
  48352. obj = h_target; /* resume check from proxy target */
  48353. }
  48354. #endif /* DUK_USE_ES6_PROXY */
  48355. /* XXX: inline into a prototype walking loop? */
  48356. rc = duk__get_propdesc(thr, obj, key, &desc, 0 /*flags*/); /* don't push value */
  48357. /* fall through */
  48358. pop_and_return:
  48359. duk_pop_unsafe(thr); /* [ key ] -> [] */
  48360. return rc;
  48361. }
  48362. /*
  48363. * HASPROP variant used internally.
  48364. *
  48365. * This primitive must never throw an error, callers rely on this.
  48366. * In particular, don't throw an error for prototype loops; instead,
  48367. * pretend like the property doesn't exist if a prototype sanity limit
  48368. * is reached.
  48369. *
  48370. * Does not implement proxy behavior: if applied to a proxy object,
  48371. * returns key existence on the proxy object itself.
  48372. */
  48373. DUK_INTERNAL duk_bool_t duk_hobject_hasprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key) {
  48374. duk_propdesc dummy;
  48375. DUK_ASSERT(thr != NULL);
  48376. DUK_ASSERT(thr->heap != NULL);
  48377. DUK_ASSERT(obj != NULL);
  48378. DUK_ASSERT(key != NULL);
  48379. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  48380. return duk__get_propdesc(thr, obj, key, &dummy, DUK_GETDESC_FLAG_IGNORE_PROTOLOOP); /* don't push value */
  48381. }
  48382. /*
  48383. * Helper: handle Array object 'length' write which automatically
  48384. * deletes properties, see E5 Section 15.4.5.1, step 3. This is
  48385. * quite tricky to get right.
  48386. *
  48387. * Used by duk_hobject_putprop().
  48388. */
  48389. /* Coerce a new .length candidate to a number and check that it's a valid
  48390. * .length.
  48391. */
  48392. DUK_LOCAL duk_uint32_t duk__to_new_array_length_checked(duk_hthread *thr, duk_tval *tv) {
  48393. duk_uint32_t res;
  48394. duk_double_t d;
  48395. #if !defined(DUK_USE_PREFER_SIZE)
  48396. #if defined(DUK_USE_FASTINT)
  48397. /* When fastints are enabled, the most interesting case is assigning
  48398. * a fastint to .length (e.g. arr.length = 0).
  48399. */
  48400. if (DUK_TVAL_IS_FASTINT(tv)) {
  48401. /* Very common case. */
  48402. duk_int64_t fi;
  48403. fi = DUK_TVAL_GET_FASTINT(tv);
  48404. if (fi < 0 || fi > DUK_I64_CONSTANT(0xffffffff)) {
  48405. goto fail_range;
  48406. }
  48407. return (duk_uint32_t) fi;
  48408. }
  48409. #else /* DUK_USE_FASTINT */
  48410. /* When fastints are not enabled, the most interesting case is any
  48411. * number.
  48412. */
  48413. if (DUK_TVAL_IS_DOUBLE(tv)) {
  48414. d = DUK_TVAL_GET_NUMBER(tv);
  48415. }
  48416. #endif /* DUK_USE_FASTINT */
  48417. else
  48418. #endif /* !DUK_USE_PREFER_SIZE */
  48419. {
  48420. /* In all other cases, and when doing a size optimized build,
  48421. * fall back to the comprehensive handler.
  48422. */
  48423. d = duk_js_tonumber(thr, tv);
  48424. }
  48425. /* Refuse to update an Array's 'length' to a value outside the
  48426. * 32-bit range. Negative zero is accepted as zero.
  48427. */
  48428. res = (duk_uint32_t) d;
  48429. if ((duk_double_t) res != d) {
  48430. goto fail_range;
  48431. }
  48432. return res;
  48433. fail_range:
  48434. DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARRAY_LENGTH);
  48435. return 0; /* unreachable */
  48436. }
  48437. /* Delete elements required by a smaller length, taking into account
  48438. * potentially non-configurable elements. Returns non-zero if all
  48439. * elements could be deleted, and zero if all or some elements could
  48440. * not be deleted. Also writes final "target length" to 'out_result_len'.
  48441. * This is the length value that should go into the 'length' property
  48442. * (must be set by the caller). Never throws an error.
  48443. */
  48444. DUK_LOCAL
  48445. duk_bool_t duk__handle_put_array_length_smaller(duk_hthread *thr,
  48446. duk_hobject *obj,
  48447. duk_uint32_t old_len,
  48448. duk_uint32_t new_len,
  48449. duk_bool_t force_flag,
  48450. duk_uint32_t *out_result_len) {
  48451. duk_uint32_t target_len;
  48452. duk_uint_fast32_t i;
  48453. duk_uint32_t arr_idx;
  48454. duk_hstring *key;
  48455. duk_tval *tv;
  48456. duk_bool_t rc;
  48457. DUK_DDD(DUK_DDDPRINT("new array length smaller than old (%ld -> %ld), "
  48458. "probably need to remove elements",
  48459. (long) old_len, (long) new_len));
  48460. /*
  48461. * New length is smaller than old length, need to delete properties above
  48462. * the new length.
  48463. *
  48464. * If array part exists, this is straightforward: array entries cannot
  48465. * be non-configurable so this is guaranteed to work.
  48466. *
  48467. * If array part does not exist, array-indexed values are scattered
  48468. * in the entry part, and some may not be configurable (preventing length
  48469. * from becoming lower than their index + 1). To handle the algorithm
  48470. * in E5 Section 15.4.5.1, step l correctly, we scan the entire property
  48471. * set twice.
  48472. */
  48473. DUK_ASSERT(thr != NULL);
  48474. DUK_ASSERT(obj != NULL);
  48475. DUK_ASSERT(new_len < old_len);
  48476. DUK_ASSERT(out_result_len != NULL);
  48477. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  48478. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj));
  48479. DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(obj));
  48480. if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  48481. /*
  48482. * All defined array-indexed properties are in the array part
  48483. * (we assume the array part is comprehensive), and all array
  48484. * entries are writable, configurable, and enumerable. Thus,
  48485. * nothing can prevent array entries from being deleted.
  48486. */
  48487. DUK_DDD(DUK_DDDPRINT("have array part, easy case"));
  48488. if (old_len < DUK_HOBJECT_GET_ASIZE(obj)) {
  48489. /* XXX: assertion that entries >= old_len are already unused */
  48490. i = old_len;
  48491. } else {
  48492. i = DUK_HOBJECT_GET_ASIZE(obj);
  48493. }
  48494. DUK_ASSERT(i <= DUK_HOBJECT_GET_ASIZE(obj));
  48495. while (i > new_len) {
  48496. i--;
  48497. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i);
  48498. DUK_TVAL_SET_UNUSED_UPDREF(thr, tv); /* side effects */
  48499. }
  48500. *out_result_len = new_len;
  48501. return 1;
  48502. } else {
  48503. /*
  48504. * Entries part is a bit more complex.
  48505. */
  48506. /* Stage 1: find highest preventing non-configurable entry (if any).
  48507. * When forcing, ignore non-configurability.
  48508. */
  48509. DUK_DDD(DUK_DDDPRINT("no array part, slow case"));
  48510. DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 1: find target_len "
  48511. "(highest preventing non-configurable entry (if any))"));
  48512. target_len = new_len;
  48513. if (force_flag) {
  48514. DUK_DDD(DUK_DDDPRINT("array length write, no array part; force flag -> skip stage 1"));
  48515. goto skip_stage1;
  48516. }
  48517. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  48518. key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i);
  48519. if (!key) {
  48520. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: null key", (long) i));
  48521. continue;
  48522. }
  48523. if (!DUK_HSTRING_HAS_ARRIDX(key)) {
  48524. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key not an array index", (long) i));
  48525. continue;
  48526. }
  48527. DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(key)); /* XXX: macro checks for array index flag, which is unnecessary here */
  48528. arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key);
  48529. DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX);
  48530. DUK_ASSERT(arr_idx < old_len); /* consistency requires this */
  48531. if (arr_idx < new_len) {
  48532. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is array index %ld, below new_len",
  48533. (long) i, (long) arr_idx));
  48534. continue;
  48535. }
  48536. if (DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(thr->heap, obj, i)) {
  48537. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is a relevant array index %ld, but configurable",
  48538. (long) i, (long) arr_idx));
  48539. continue;
  48540. }
  48541. /* relevant array index is non-configurable, blocks write */
  48542. if (arr_idx >= target_len) {
  48543. DUK_DDD(DUK_DDDPRINT("entry at index %ld has arr_idx %ld, is not configurable, "
  48544. "update target_len %ld -> %ld",
  48545. (long) i, (long) arr_idx, (long) target_len,
  48546. (long) (arr_idx + 1)));
  48547. target_len = arr_idx + 1;
  48548. }
  48549. }
  48550. skip_stage1:
  48551. /* stage 2: delete configurable entries above target length */
  48552. DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld, target_len=%ld",
  48553. (long) old_len, (long) new_len, (long) target_len));
  48554. DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 2: remove "
  48555. "entries >= target_len"));
  48556. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  48557. key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i);
  48558. if (!key) {
  48559. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: null key", (long) i));
  48560. continue;
  48561. }
  48562. if (!DUK_HSTRING_HAS_ARRIDX(key)) {
  48563. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key not an array index", (long) i));
  48564. continue;
  48565. }
  48566. DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(key)); /* XXX: macro checks for array index flag, which is unnecessary here */
  48567. arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key);
  48568. DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX);
  48569. DUK_ASSERT(arr_idx < old_len); /* consistency requires this */
  48570. if (arr_idx < target_len) {
  48571. DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is array index %ld, below target_len",
  48572. (long) i, (long) arr_idx));
  48573. continue;
  48574. }
  48575. DUK_ASSERT(force_flag || DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(thr->heap, obj, i)); /* stage 1 guarantees */
  48576. DUK_DDD(DUK_DDDPRINT("delete entry index %ld: key is array index %ld",
  48577. (long) i, (long) arr_idx));
  48578. /*
  48579. * Slow delete, but we don't care as we're already in a very slow path.
  48580. * The delete always succeeds: key has no exotic behavior, property
  48581. * is configurable, and no resize occurs.
  48582. */
  48583. rc = duk_hobject_delprop_raw(thr, obj, key, force_flag ? DUK_DELPROP_FLAG_FORCE : 0);
  48584. DUK_UNREF(rc);
  48585. DUK_ASSERT(rc != 0);
  48586. }
  48587. /* stage 3: update length (done by caller), decide return code */
  48588. DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 3: update length (done by caller)"));
  48589. *out_result_len = target_len;
  48590. if (target_len == new_len) {
  48591. DUK_DDD(DUK_DDDPRINT("target_len matches new_len, return success"));
  48592. return 1;
  48593. }
  48594. DUK_DDD(DUK_DDDPRINT("target_len does not match new_len (some entry prevented "
  48595. "full length adjustment), return error"));
  48596. return 0;
  48597. }
  48598. DUK_UNREACHABLE();
  48599. }
  48600. /* XXX: is valstack top best place for argument? */
  48601. DUK_LOCAL duk_bool_t duk__handle_put_array_length(duk_hthread *thr, duk_hobject *obj) {
  48602. duk_harray *a;
  48603. duk_uint32_t old_len;
  48604. duk_uint32_t new_len;
  48605. duk_uint32_t result_len;
  48606. duk_bool_t rc;
  48607. DUK_DDD(DUK_DDDPRINT("handling a put operation to array 'length' exotic property, "
  48608. "new val: %!T",
  48609. (duk_tval *) duk_get_tval(thr, -1)));
  48610. DUK_ASSERT(thr != NULL);
  48611. DUK_ASSERT(obj != NULL);
  48612. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  48613. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj));
  48614. DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(obj));
  48615. a = (duk_harray *) obj;
  48616. DUK_ASSERT_HARRAY_VALID(a);
  48617. DUK_ASSERT(duk_is_valid_index(thr, -1));
  48618. /*
  48619. * Get old and new length
  48620. */
  48621. old_len = a->length;
  48622. new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_NEGIDX(thr, -1));
  48623. DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld", (long) old_len, (long) new_len));
  48624. /*
  48625. * Writability check
  48626. */
  48627. if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) {
  48628. DUK_DDD(DUK_DDDPRINT("length is not writable, fail"));
  48629. return 0;
  48630. }
  48631. /*
  48632. * New length not lower than old length => no changes needed
  48633. * (not even array allocation).
  48634. */
  48635. if (new_len >= old_len) {
  48636. DUK_DDD(DUK_DDDPRINT("new length is same or higher than old length, just update length, no deletions"));
  48637. a->length = new_len;
  48638. return 1;
  48639. }
  48640. DUK_DDD(DUK_DDDPRINT("new length is lower than old length, probably must delete entries"));
  48641. /*
  48642. * New length lower than old length => delete elements, then
  48643. * update length.
  48644. *
  48645. * Note: even though a bunch of elements have been deleted, the 'desc' is
  48646. * still valid as properties haven't been resized (and entries compacted).
  48647. */
  48648. rc = duk__handle_put_array_length_smaller(thr, obj, old_len, new_len, 0 /*force_flag*/, &result_len);
  48649. DUK_ASSERT(result_len >= new_len && result_len <= old_len);
  48650. a->length = result_len;
  48651. /* XXX: shrink array allocation or entries compaction here? */
  48652. return rc;
  48653. }
  48654. /*
  48655. * PUTPROP: Ecmascript property write.
  48656. *
  48657. * Unlike Ecmascript primitive which returns nothing, returns 1 to indicate
  48658. * success and 0 to indicate failure (assuming throw is not set).
  48659. *
  48660. * This is an extremely tricky function. Some examples:
  48661. *
  48662. * * Currently a decref may trigger a GC, which may compact an object's
  48663. * property allocation. Consequently, any entry indices (e_idx) will
  48664. * be potentially invalidated by a decref.
  48665. *
  48666. * * Exotic behaviors (strings, arrays, arguments object) require,
  48667. * among other things:
  48668. *
  48669. * - Preprocessing before and postprocessing after an actual property
  48670. * write. For example, array index write requires pre-checking the
  48671. * array 'length' property for access control, and may require an
  48672. * array 'length' update after the actual write has succeeded (but
  48673. * not if it fails).
  48674. *
  48675. * - Deletion of multiple entries, as a result of array 'length' write.
  48676. *
  48677. * * Input values are taken as pointers which may point to the valstack.
  48678. * If valstack is resized because of the put (this may happen at least
  48679. * when the array part is abandoned), the pointers can be invalidated.
  48680. * (We currently make a copy of all of the input values to avoid issues.)
  48681. */
  48682. DUK_INTERNAL duk_bool_t duk_hobject_putprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_tval *tv_val, duk_bool_t throw_flag) {
  48683. duk_tval tv_obj_copy;
  48684. duk_tval tv_key_copy;
  48685. duk_tval tv_val_copy;
  48686. duk_hobject *orig = NULL; /* NULL if tv_obj is primitive */
  48687. duk_hobject *curr;
  48688. duk_hstring *key = NULL;
  48689. duk_propdesc desc;
  48690. duk_tval *tv;
  48691. duk_uint32_t arr_idx;
  48692. duk_bool_t rc;
  48693. duk_int_t e_idx;
  48694. duk_uint_t sanity;
  48695. duk_uint32_t new_array_length = 0; /* 0 = no update */
  48696. DUK_DDD(DUK_DDDPRINT("putprop: thr=%p, obj=%p, key=%p, val=%p, throw=%ld "
  48697. "(obj -> %!T, key -> %!T, val -> %!T)",
  48698. (void *) thr, (void *) tv_obj, (void *) tv_key, (void *) tv_val,
  48699. (long) throw_flag, (duk_tval *) tv_obj, (duk_tval *) tv_key, (duk_tval *) tv_val));
  48700. DUK_ASSERT(thr != NULL);
  48701. DUK_ASSERT(thr->heap != NULL);
  48702. DUK_ASSERT(tv_obj != NULL);
  48703. DUK_ASSERT(tv_key != NULL);
  48704. DUK_ASSERT(tv_val != NULL);
  48705. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  48706. DUK_STATS_INC(thr->heap, stats_putprop_all);
  48707. /*
  48708. * Make a copy of tv_obj, tv_key, and tv_val to avoid any issues of
  48709. * them being invalidated by a valstack resize.
  48710. *
  48711. * XXX: this is an overkill for some paths, so optimize this later
  48712. * (or maybe switch to a stack arguments model entirely).
  48713. */
  48714. DUK_TVAL_SET_TVAL(&tv_obj_copy, tv_obj);
  48715. DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key);
  48716. DUK_TVAL_SET_TVAL(&tv_val_copy, tv_val);
  48717. tv_obj = &tv_obj_copy;
  48718. tv_key = &tv_key_copy;
  48719. tv_val = &tv_val_copy;
  48720. /*
  48721. * Coercion and fast path processing.
  48722. */
  48723. switch (DUK_TVAL_GET_TAG(tv_obj)) {
  48724. case DUK_TAG_UNDEFINED:
  48725. case DUK_TAG_NULL: {
  48726. /* Note: unconditional throw */
  48727. DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject (object=%!iT)",
  48728. (duk_tval *) tv_obj));
  48729. #if defined(DUK_USE_PARANOID_ERRORS)
  48730. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE);
  48731. #else
  48732. DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot write property %s of %s",
  48733. duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj));
  48734. #endif
  48735. return 0;
  48736. }
  48737. case DUK_TAG_BOOLEAN: {
  48738. DUK_DDD(DUK_DDDPRINT("base object is a boolean, start lookup from boolean prototype"));
  48739. curr = thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE];
  48740. break;
  48741. }
  48742. case DUK_TAG_STRING: {
  48743. duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj);
  48744. /*
  48745. * Note: currently no fast path for array index writes.
  48746. * They won't be possible anyway as strings are immutable.
  48747. */
  48748. DUK_ASSERT(key == NULL);
  48749. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48750. DUK_ASSERT(key != NULL);
  48751. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  48752. /* Symbols (ES2015 or hidden) don't have virtual properties. */
  48753. curr = thr->builtins[DUK_BIDX_SYMBOL_PROTOTYPE];
  48754. goto lookup;
  48755. }
  48756. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  48757. goto fail_not_writable;
  48758. }
  48759. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  48760. arr_idx < DUK_HSTRING_GET_CHARLEN(h)) {
  48761. goto fail_not_writable;
  48762. }
  48763. DUK_DDD(DUK_DDDPRINT("base object is a string, start lookup from string prototype"));
  48764. curr = thr->builtins[DUK_BIDX_STRING_PROTOTYPE];
  48765. goto lookup; /* avoid double coercion */
  48766. }
  48767. case DUK_TAG_OBJECT: {
  48768. orig = DUK_TVAL_GET_OBJECT(tv_obj);
  48769. DUK_ASSERT(orig != NULL);
  48770. #if defined(DUK_USE_ROM_OBJECTS)
  48771. /* With this check in place fast paths won't need read-only
  48772. * object checks. This is technically incorrect if there are
  48773. * setters that cause no writes to ROM objects, but current
  48774. * built-ins don't have such setters.
  48775. */
  48776. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) {
  48777. DUK_DD(DUK_DDPRINT("attempt to putprop on read-only target object"));
  48778. goto fail_not_writable_no_pop; /* Must avoid duk_pop() in exit path */
  48779. }
  48780. #endif
  48781. /* The fast path for array property put is not fully compliant:
  48782. * If one places conflicting number-indexed properties into
  48783. * Array.prototype (for example, a non-writable Array.prototype[7])
  48784. * the fast path will incorrectly ignore them.
  48785. *
  48786. * This fast path could be made compliant by falling through
  48787. * to the slow path if the previous value was UNUSED. This would
  48788. * also remove the need to check for extensibility. Right now a
  48789. * non-extensible array is slower than an extensible one as far
  48790. * as writes are concerned.
  48791. *
  48792. * The fast path behavior is documented in more detail here:
  48793. * tests/ecmascript/test-misc-array-fast-write.js
  48794. */
  48795. /* XXX: array .length? */
  48796. #if defined(DUK_USE_ARRAY_PROP_FASTPATH)
  48797. if (duk__putprop_shallow_fastpath_array_tval(thr, orig, tv_key, tv_val) != 0) {
  48798. DUK_DDD(DUK_DDDPRINT("array fast path success"));
  48799. DUK_STATS_INC(thr->heap, stats_putprop_arrayidx);
  48800. return 1;
  48801. }
  48802. #endif
  48803. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  48804. if (duk__putprop_fastpath_bufobj_tval(thr, orig, tv_key, tv_val) != 0) {
  48805. DUK_DDD(DUK_DDDPRINT("base is bufobj, key is a number, bufobj fast path"));
  48806. DUK_STATS_INC(thr->heap, stats_putprop_bufobjidx);
  48807. return 1;
  48808. }
  48809. #endif
  48810. #if defined(DUK_USE_ES6_PROXY)
  48811. if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(orig))) {
  48812. duk_hobject *h_target;
  48813. duk_bool_t tmp_bool;
  48814. if (duk__proxy_check_prop(thr, orig, DUK_STRIDX_SET, tv_key, &h_target)) {
  48815. /* -> [ ... trap handler ] */
  48816. DUK_DDD(DUK_DDDPRINT("-> proxy object 'set' for key %!T", (duk_tval *) tv_key));
  48817. DUK_STATS_INC(thr->heap, stats_putprop_proxy);
  48818. duk_push_hobject(thr, h_target); /* target */
  48819. duk_push_tval(thr, tv_key); /* P */
  48820. duk_push_tval(thr, tv_val); /* V */
  48821. duk_push_tval(thr, tv_obj); /* Receiver: Proxy object */
  48822. duk_call_method(thr, 4 /*nargs*/);
  48823. tmp_bool = duk_to_boolean(thr, -1);
  48824. duk_pop_nodecref_unsafe(thr);
  48825. if (!tmp_bool) {
  48826. goto fail_proxy_rejected;
  48827. }
  48828. /* Target object must be checked for a conflicting
  48829. * non-configurable property.
  48830. */
  48831. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48832. DUK_ASSERT(key != NULL);
  48833. if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  48834. duk_tval *tv_targ = duk_require_tval(thr, -1);
  48835. duk_bool_t datadesc_reject;
  48836. duk_bool_t accdesc_reject;
  48837. DUK_DDD(DUK_DDDPRINT("proxy 'set': target has matching property %!O, check for "
  48838. "conflicting property; tv_val=%!T, tv_targ=%!T, desc.flags=0x%08lx, "
  48839. "desc.get=%p, desc.set=%p",
  48840. (duk_heaphdr *) key, (duk_tval *) tv_val, (duk_tval *) tv_targ,
  48841. (unsigned long) desc.flags,
  48842. (void *) desc.get, (void *) desc.set));
  48843. datadesc_reject = !(desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) &&
  48844. !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) &&
  48845. !(desc.flags & DUK_PROPDESC_FLAG_WRITABLE) &&
  48846. !duk_js_samevalue(tv_val, tv_targ);
  48847. accdesc_reject = (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) &&
  48848. !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) &&
  48849. (desc.set == NULL);
  48850. if (datadesc_reject || accdesc_reject) {
  48851. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  48852. }
  48853. duk_pop_2_unsafe(thr);
  48854. } else {
  48855. duk_pop_unsafe(thr);
  48856. }
  48857. return 1; /* success */
  48858. }
  48859. orig = h_target; /* resume write to target */
  48860. DUK_TVAL_SET_OBJECT(tv_obj, orig);
  48861. }
  48862. #endif /* DUK_USE_ES6_PROXY */
  48863. curr = orig;
  48864. break;
  48865. }
  48866. case DUK_TAG_BUFFER: {
  48867. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj);
  48868. duk_int_t pop_count = 0;
  48869. /*
  48870. * Because buffer values may be looped over and read/written
  48871. * from, an array index fast path is important.
  48872. */
  48873. #if defined(DUK_USE_FASTINT)
  48874. if (DUK_TVAL_IS_FASTINT(tv_key)) {
  48875. arr_idx = duk__tval_fastint_to_arr_idx(tv_key);
  48876. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path fastint; arr_idx %ld", (long) arr_idx));
  48877. pop_count = 0;
  48878. } else
  48879. #endif
  48880. if (DUK_TVAL_IS_NUMBER(tv_key)) {
  48881. arr_idx = duk__tval_number_to_arr_idx(tv_key);
  48882. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path number; arr_idx %ld", (long) arr_idx));
  48883. pop_count = 0;
  48884. } else {
  48885. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48886. DUK_ASSERT(key != NULL);
  48887. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after "
  48888. "coercion key is %!T, arr_idx %ld",
  48889. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  48890. pop_count = 1;
  48891. }
  48892. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  48893. arr_idx < DUK_HBUFFER_GET_SIZE(h)) {
  48894. duk_uint8_t *data;
  48895. DUK_DDD(DUK_DDDPRINT("writing to buffer data at index %ld", (long) arr_idx));
  48896. data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h);
  48897. /* XXX: duk_to_int() ensures we'll get 8 lowest bits as
  48898. * as input is within duk_int_t range (capped outside it).
  48899. */
  48900. #if defined(DUK_USE_FASTINT)
  48901. /* Buffer writes are often integers. */
  48902. if (DUK_TVAL_IS_FASTINT(tv_val)) {
  48903. data[arr_idx] = (duk_uint8_t) DUK_TVAL_GET_FASTINT_U32(tv_val);
  48904. }
  48905. else
  48906. #endif
  48907. {
  48908. duk_push_tval(thr, tv_val);
  48909. data[arr_idx] = (duk_uint8_t) duk_to_uint32(thr, -1);
  48910. pop_count++;
  48911. }
  48912. duk_pop_n_unsafe(thr, pop_count);
  48913. DUK_DDD(DUK_DDDPRINT("result: success (buffer data write)"));
  48914. DUK_STATS_INC(thr->heap, stats_putprop_bufferidx);
  48915. return 1;
  48916. }
  48917. if (pop_count == 0) {
  48918. /* This is a pretty awkward control flow, but we need to recheck the
  48919. * key coercion here.
  48920. */
  48921. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48922. DUK_ASSERT(key != NULL);
  48923. DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after "
  48924. "coercion key is %!T, arr_idx %ld",
  48925. (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx));
  48926. }
  48927. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  48928. goto fail_not_writable;
  48929. }
  48930. DUK_DDD(DUK_DDDPRINT("base object is a buffer, start lookup from Uint8Array prototype"));
  48931. curr = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  48932. goto lookup; /* avoid double coercion */
  48933. }
  48934. case DUK_TAG_POINTER: {
  48935. DUK_DDD(DUK_DDDPRINT("base object is a pointer, start lookup from pointer prototype"));
  48936. curr = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE];
  48937. break;
  48938. }
  48939. case DUK_TAG_LIGHTFUNC: {
  48940. /* Lightfuncs have no own properties and are considered non-extensible.
  48941. * However, the write may be captured by an inherited setter which
  48942. * means we can't stop the lookup here.
  48943. */
  48944. DUK_DDD(DUK_DDDPRINT("base object is a lightfunc, start lookup from function prototype"));
  48945. curr = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE];
  48946. break;
  48947. }
  48948. #if defined(DUK_USE_FASTINT)
  48949. case DUK_TAG_FASTINT:
  48950. #endif
  48951. default: {
  48952. /* number */
  48953. DUK_DDD(DUK_DDDPRINT("base object is a number, start lookup from number prototype"));
  48954. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_obj));
  48955. curr = thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE];
  48956. break;
  48957. }
  48958. }
  48959. DUK_ASSERT(key == NULL);
  48960. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  48961. DUK_ASSERT(key != NULL);
  48962. lookup:
  48963. /*
  48964. * Check whether the property already exists in the prototype chain.
  48965. * Note that the actual write goes into the original base object
  48966. * (except if an accessor property captures the write).
  48967. */
  48968. /* [key] */
  48969. DUK_ASSERT(curr != NULL);
  48970. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  48971. do {
  48972. if (!duk__get_own_propdesc_raw(thr, curr, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */
  48973. goto next_in_chain;
  48974. }
  48975. if (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  48976. /*
  48977. * Found existing accessor property (own or inherited).
  48978. * Call setter with 'this' set to orig, and value as the only argument.
  48979. * Setter calls are OK even for ROM objects.
  48980. *
  48981. * Note: no exotic arguments object behavior, because [[Put]] never
  48982. * calls [[DefineOwnProperty]] (E5 Section 8.12.5, step 5.b).
  48983. */
  48984. duk_hobject *setter;
  48985. DUK_DD(DUK_DDPRINT("put to an own or inherited accessor, calling setter"));
  48986. setter = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, curr, desc.e_idx);
  48987. if (!setter) {
  48988. goto fail_no_setter;
  48989. }
  48990. duk_push_hobject(thr, setter);
  48991. duk_push_tval(thr, tv_obj); /* note: original, uncoerced base */
  48992. duk_push_tval(thr, tv_val); /* [key setter this val] */
  48993. #if defined(DUK_USE_NONSTD_SETTER_KEY_ARGUMENT)
  48994. duk_dup_m4(thr);
  48995. duk_call_method(thr, 2); /* [key setter this val key] -> [key retval] */
  48996. #else
  48997. duk_call_method(thr, 1); /* [key setter this val] -> [key retval] */
  48998. #endif
  48999. duk_pop_unsafe(thr); /* ignore retval -> [key] */
  49000. goto success_no_arguments_exotic;
  49001. }
  49002. if (orig == NULL) {
  49003. /*
  49004. * Found existing own or inherited plain property, but original
  49005. * base is a primitive value.
  49006. */
  49007. DUK_DD(DUK_DDPRINT("attempt to create a new property in a primitive base object"));
  49008. goto fail_base_primitive;
  49009. }
  49010. if (curr != orig) {
  49011. /*
  49012. * Found existing inherited plain property.
  49013. * Do an access control check, and if OK, write
  49014. * new property to 'orig'.
  49015. */
  49016. if (!DUK_HOBJECT_HAS_EXTENSIBLE(orig)) {
  49017. DUK_DD(DUK_DDPRINT("found existing inherited plain property, but original object is not extensible"));
  49018. goto fail_not_extensible;
  49019. }
  49020. if (!(desc.flags & DUK_PROPDESC_FLAG_WRITABLE)) {
  49021. DUK_DD(DUK_DDPRINT("found existing inherited plain property, original object is extensible, but inherited property is not writable"));
  49022. goto fail_not_writable;
  49023. }
  49024. DUK_DD(DUK_DDPRINT("put to new property, object extensible, inherited property found and is writable"));
  49025. goto create_new;
  49026. } else {
  49027. /*
  49028. * Found existing own (non-inherited) plain property.
  49029. * Do an access control check and update in place.
  49030. */
  49031. if (!(desc.flags & DUK_PROPDESC_FLAG_WRITABLE)) {
  49032. DUK_DD(DUK_DDPRINT("found existing own (non-inherited) plain property, but property is not writable"));
  49033. goto fail_not_writable;
  49034. }
  49035. if (desc.flags & DUK_PROPDESC_FLAG_VIRTUAL) {
  49036. DUK_DD(DUK_DDPRINT("found existing own (non-inherited) virtual property, property is writable"));
  49037. if (DUK_HOBJECT_IS_ARRAY(curr)) {
  49038. /*
  49039. * Write to 'length' of an array is a very complex case
  49040. * handled in a helper which updates both the array elements
  49041. * and writes the new 'length'. The write may result in an
  49042. * unconditional RangeError or a partial write (indicated
  49043. * by a return code).
  49044. *
  49045. * Note: the helper has an unnecessary writability check
  49046. * for 'length', we already know it is writable.
  49047. */
  49048. DUK_ASSERT(key == DUK_HTHREAD_STRING_LENGTH(thr)); /* only virtual array property */
  49049. DUK_DDD(DUK_DDDPRINT("writing existing 'length' property to array exotic, invoke complex helper"));
  49050. /* XXX: the helper currently assumes stack top contains new
  49051. * 'length' value and the whole calling convention is not very
  49052. * compatible with what we need.
  49053. */
  49054. duk_push_tval(thr, tv_val); /* [key val] */
  49055. rc = duk__handle_put_array_length(thr, orig);
  49056. duk_pop_unsafe(thr); /* [key val] -> [key] */
  49057. if (!rc) {
  49058. goto fail_array_length_partial;
  49059. }
  49060. /* key is 'length', cannot match argument exotic behavior */
  49061. goto success_no_arguments_exotic;
  49062. }
  49063. #if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
  49064. else if (DUK_HOBJECT_IS_BUFOBJ(curr)) {
  49065. duk_hbufobj *h_bufobj;
  49066. duk_uint_t byte_off;
  49067. duk_small_uint_t elem_size;
  49068. h_bufobj = (duk_hbufobj *) curr;
  49069. DUK_ASSERT_HBUFOBJ_VALID(h_bufobj);
  49070. DUK_DD(DUK_DDPRINT("writable virtual property is in buffer object"));
  49071. /* Careful with wrapping: arr_idx upshift may easily wrap, whereas
  49072. * length downshift won't.
  49073. */
  49074. if (arr_idx < (h_bufobj->length >> h_bufobj->shift) && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) {
  49075. duk_uint8_t *data;
  49076. DUK_DDD(DUK_DDDPRINT("writing to buffer data at index %ld", (long) arr_idx));
  49077. DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX); /* index/length check guarantees */
  49078. byte_off = arr_idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */
  49079. elem_size = (duk_small_uint_t) (1U << h_bufobj->shift);
  49080. /* Coerce to number before validating pointers etc so that the
  49081. * number coercions in duk_hbufobj_validated_write() are
  49082. * guaranteed to be side effect free and not invalidate the
  49083. * pointer checks we do here.
  49084. */
  49085. duk_push_tval(thr, tv_val);
  49086. (void) duk_to_number_m1(thr);
  49087. if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) {
  49088. data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off;
  49089. duk_hbufobj_validated_write(thr, h_bufobj, data, elem_size);
  49090. } else {
  49091. DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (write skipped)"));
  49092. }
  49093. duk_pop_unsafe(thr);
  49094. goto success_no_arguments_exotic;
  49095. }
  49096. }
  49097. #endif /* DUK_USE_BUFFEROBJECT_SUPPORT */
  49098. DUK_D(DUK_DPRINT("should not happen, key %!O", key));
  49099. goto fail_internal; /* should not happen */
  49100. }
  49101. DUK_DD(DUK_DDPRINT("put to existing own plain property, property is writable"));
  49102. goto update_old;
  49103. }
  49104. DUK_UNREACHABLE();
  49105. next_in_chain:
  49106. /* XXX: option to pretend property doesn't exist if sanity limit is
  49107. * hit might be useful.
  49108. */
  49109. if (DUK_UNLIKELY(sanity-- == 0)) {
  49110. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  49111. }
  49112. curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr);
  49113. } while (curr != NULL);
  49114. /*
  49115. * Property not found in prototype chain.
  49116. */
  49117. DUK_DDD(DUK_DDDPRINT("property not found in prototype chain"));
  49118. if (orig == NULL) {
  49119. DUK_DD(DUK_DDPRINT("attempt to create a new property in a primitive base object"));
  49120. goto fail_base_primitive;
  49121. }
  49122. if (!DUK_HOBJECT_HAS_EXTENSIBLE(orig)) {
  49123. DUK_DD(DUK_DDPRINT("put to a new property (not found in prototype chain), but original object not extensible"));
  49124. goto fail_not_extensible;
  49125. }
  49126. goto create_new;
  49127. update_old:
  49128. /*
  49129. * Update an existing property of the base object.
  49130. */
  49131. /* [key] */
  49132. DUK_DDD(DUK_DDDPRINT("update an existing property of the original object"));
  49133. DUK_ASSERT(orig != NULL);
  49134. #if defined(DUK_USE_ROM_OBJECTS)
  49135. /* This should not happen because DUK_TAG_OBJECT case checks
  49136. * for this already, but check just in case.
  49137. */
  49138. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) {
  49139. goto fail_not_writable;
  49140. }
  49141. #endif
  49142. /* Although there are writable virtual properties (e.g. plain buffer
  49143. * and buffer object number indices), they are handled before we come
  49144. * here.
  49145. */
  49146. DUK_ASSERT((desc.flags & DUK_PROPDESC_FLAG_VIRTUAL) == 0);
  49147. DUK_ASSERT(desc.a_idx >= 0 || desc.e_idx >= 0);
  49148. /* Array own property .length is handled above. */
  49149. DUK_ASSERT(!(DUK_HOBJECT_IS_ARRAY(orig) && key == DUK_HTHREAD_STRING_LENGTH(thr)));
  49150. if (desc.e_idx >= 0) {
  49151. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, orig, desc.e_idx);
  49152. DUK_DDD(DUK_DDDPRINT("previous entry value: %!iT", (duk_tval *) tv));
  49153. DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects; e_idx may be invalidated */
  49154. /* don't touch property attributes or hash part */
  49155. DUK_DD(DUK_DDPRINT("put to an existing entry at index %ld -> new value %!iT",
  49156. (long) desc.e_idx, (duk_tval *) tv));
  49157. } else {
  49158. /* Note: array entries are always writable, so the writability check
  49159. * above is pointless for them. The check could be avoided with some
  49160. * refactoring but is probably not worth it.
  49161. */
  49162. DUK_ASSERT(desc.a_idx >= 0);
  49163. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, orig, desc.a_idx);
  49164. DUK_DDD(DUK_DDDPRINT("previous array value: %!iT", (duk_tval *) tv));
  49165. DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects; a_idx may be invalidated */
  49166. DUK_DD(DUK_DDPRINT("put to an existing array entry at index %ld -> new value %!iT",
  49167. (long) desc.a_idx, (duk_tval *) tv));
  49168. }
  49169. /* Regardless of whether property is found in entry or array part,
  49170. * it may have arguments exotic behavior (array indices may reside
  49171. * in entry part for abandoned / non-existent array parts).
  49172. */
  49173. goto success_with_arguments_exotic;
  49174. create_new:
  49175. /*
  49176. * Create a new property in the original object.
  49177. *
  49178. * Exotic properties need to be reconsidered here from a write
  49179. * perspective (not just property attributes perspective).
  49180. * However, the property does not exist in the object already,
  49181. * so this limits the kind of exotic properties that apply.
  49182. */
  49183. /* [key] */
  49184. DUK_DDD(DUK_DDDPRINT("create new property to original object"));
  49185. DUK_ASSERT(orig != NULL);
  49186. /* Array own property .length is handled above. */
  49187. DUK_ASSERT(!(DUK_HOBJECT_IS_ARRAY(orig) && key == DUK_HTHREAD_STRING_LENGTH(thr)));
  49188. #if defined(DUK_USE_ROM_OBJECTS)
  49189. /* This should not happen because DUK_TAG_OBJECT case checks
  49190. * for this already, but check just in case.
  49191. */
  49192. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) {
  49193. goto fail_not_writable;
  49194. }
  49195. #endif
  49196. /* Not possible because array object 'length' is present
  49197. * from its creation and cannot be deleted, and is thus
  49198. * caught as an existing property above.
  49199. */
  49200. DUK_ASSERT(!(DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig) &&
  49201. key == DUK_HTHREAD_STRING_LENGTH(thr)));
  49202. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig) &&
  49203. arr_idx != DUK__NO_ARRAY_INDEX) {
  49204. /* automatic length update */
  49205. duk_uint32_t old_len;
  49206. duk_harray *a;
  49207. a = (duk_harray *) orig;
  49208. DUK_ASSERT_HARRAY_VALID(a);
  49209. old_len = a->length;
  49210. if (arr_idx >= old_len) {
  49211. DUK_DDD(DUK_DDDPRINT("write new array entry requires length update "
  49212. "(arr_idx=%ld, old_len=%ld)",
  49213. (long) arr_idx, (long) old_len));
  49214. if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) {
  49215. DUK_DD(DUK_DDPRINT("attempt to extend array, but array 'length' is not writable"));
  49216. goto fail_not_writable;
  49217. }
  49218. /* Note: actual update happens once write has been completed
  49219. * without error below. The write should always succeed
  49220. * from a specification viewpoint, but we may e.g. run out
  49221. * of memory. It's safer in this order.
  49222. */
  49223. DUK_ASSERT(arr_idx != 0xffffffffUL);
  49224. new_array_length = arr_idx + 1; /* flag for later write */
  49225. } else {
  49226. DUK_DDD(DUK_DDDPRINT("write new array entry does not require length update "
  49227. "(arr_idx=%ld, old_len=%ld)",
  49228. (long) arr_idx, (long) old_len));
  49229. }
  49230. }
  49231. /* write_to_array_part: */
  49232. /*
  49233. * Write to array part?
  49234. *
  49235. * Note: array abandonding requires a property resize which uses
  49236. * 'rechecks' valstack for temporaries and may cause any existing
  49237. * valstack pointers to be invalidated. To protect against this,
  49238. * tv_obj, tv_key, and tv_val are copies of the original inputs.
  49239. */
  49240. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  49241. DUK_HOBJECT_HAS_ARRAY_PART(orig)) {
  49242. if (arr_idx < DUK_HOBJECT_GET_ASIZE(orig)) {
  49243. goto no_array_growth;
  49244. }
  49245. /*
  49246. * Array needs to grow, but we don't want it becoming too sparse.
  49247. * If it were to become sparse, abandon array part, moving all
  49248. * array entries into the entries part (for good).
  49249. *
  49250. * Since we don't keep track of actual density (used vs. size) of
  49251. * the array part, we need to estimate somehow. The check is made
  49252. * in two parts:
  49253. *
  49254. * - Check whether the resize need is small compared to the
  49255. * current size (relatively); if so, resize without further
  49256. * checking (essentially we assume that the original part is
  49257. * "dense" so that the result would be dense enough).
  49258. *
  49259. * - Otherwise, compute the resize using an actual density
  49260. * measurement based on counting the used array entries.
  49261. */
  49262. DUK_DDD(DUK_DDDPRINT("write to new array requires array resize, decide whether to do a "
  49263. "fast resize without abandon check (arr_idx=%ld, old_size=%ld)",
  49264. (long) arr_idx, (long) DUK_HOBJECT_GET_ASIZE(orig)));
  49265. if (duk__abandon_array_slow_check_required(arr_idx, DUK_HOBJECT_GET_ASIZE(orig))) {
  49266. duk_uint32_t old_used;
  49267. duk_uint32_t old_size;
  49268. DUK_DDD(DUK_DDDPRINT("=> fast check is NOT OK, do slow check for array abandon"));
  49269. duk__compute_a_stats(thr, orig, &old_used, &old_size);
  49270. DUK_DDD(DUK_DDDPRINT("abandon check, array stats: old_used=%ld, old_size=%ld, arr_idx=%ld",
  49271. (long) old_used, (long) old_size, (long) arr_idx));
  49272. /* Note: intentionally use approximations to shave a few instructions:
  49273. * a_used = old_used (accurate: old_used + 1)
  49274. * a_size = arr_idx (accurate: arr_idx + 1)
  49275. */
  49276. if (duk__abandon_array_density_check(old_used, arr_idx)) {
  49277. DUK_DD(DUK_DDPRINT("write to new array entry beyond current length, "
  49278. "decided to abandon array part (would become too sparse)"));
  49279. /* abandoning requires a props allocation resize and
  49280. * 'rechecks' the valstack, invalidating any existing
  49281. * valstack value pointers!
  49282. */
  49283. duk__abandon_array_checked(thr, orig);
  49284. DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(orig));
  49285. goto write_to_entry_part;
  49286. }
  49287. DUK_DDD(DUK_DDDPRINT("=> decided to keep array part"));
  49288. } else {
  49289. DUK_DDD(DUK_DDDPRINT("=> fast resize is OK"));
  49290. }
  49291. DUK_DD(DUK_DDPRINT("write to new array entry beyond current length, "
  49292. "decided to extend current allocation"));
  49293. duk__grow_props_for_array_item(thr, orig, arr_idx);
  49294. no_array_growth:
  49295. /* Note: assume array part is comprehensive, so that either
  49296. * the write goes to the array part, or we've abandoned the
  49297. * array above (and will not come here).
  49298. */
  49299. DUK_ASSERT(DUK_HOBJECT_HAS_ARRAY_PART(orig));
  49300. DUK_ASSERT(arr_idx < DUK_HOBJECT_GET_ASIZE(orig));
  49301. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, orig, arr_idx);
  49302. /* prev value must be unused, no decref */
  49303. DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv));
  49304. DUK_TVAL_SET_TVAL(tv, tv_val);
  49305. DUK_TVAL_INCREF(thr, tv);
  49306. DUK_DD(DUK_DDPRINT("put to new array entry: %ld -> %!T",
  49307. (long) arr_idx, (duk_tval *) tv));
  49308. /* Note: array part values are [[Writable]], [[Enumerable]],
  49309. * and [[Configurable]] which matches the required attributes
  49310. * here.
  49311. */
  49312. goto entry_updated;
  49313. }
  49314. write_to_entry_part:
  49315. /*
  49316. * Write to entry part
  49317. */
  49318. /* entry allocation updates hash part and increases the key
  49319. * refcount; may need a props allocation resize but doesn't
  49320. * 'recheck' the valstack.
  49321. */
  49322. e_idx = duk__hobject_alloc_entry_checked(thr, orig, key);
  49323. DUK_ASSERT(e_idx >= 0);
  49324. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, orig, e_idx);
  49325. /* prev value can be garbage, no decref */
  49326. DUK_TVAL_SET_TVAL(tv, tv_val);
  49327. DUK_TVAL_INCREF(thr, tv);
  49328. DUK_HOBJECT_E_SET_FLAGS(thr->heap, orig, e_idx, DUK_PROPDESC_FLAGS_WEC);
  49329. goto entry_updated;
  49330. entry_updated:
  49331. /*
  49332. * Possible pending array length update, which must only be done
  49333. * if the actual entry write succeeded.
  49334. */
  49335. if (new_array_length > 0) {
  49336. /* Note: zero works as a "no update" marker because the new length
  49337. * can never be zero after a new property is written.
  49338. */
  49339. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig));
  49340. DUK_DDD(DUK_DDDPRINT("write successful, pending array length update to: %ld",
  49341. (long) new_array_length));
  49342. ((duk_harray *) orig)->length = new_array_length;
  49343. }
  49344. /*
  49345. * Arguments exotic behavior not possible for new properties: all
  49346. * magically bound properties are initially present in the arguments
  49347. * object, and if they are deleted, the binding is also removed from
  49348. * parameter map.
  49349. */
  49350. goto success_no_arguments_exotic;
  49351. success_with_arguments_exotic:
  49352. /*
  49353. * Arguments objects have exotic [[DefineOwnProperty]] which updates
  49354. * the internal 'map' of arguments for writes to currently mapped
  49355. * arguments. More conretely, writes to mapped arguments generate
  49356. * a write to a bound variable.
  49357. *
  49358. * The [[Put]] algorithm invokes [[DefineOwnProperty]] for existing
  49359. * data properties and new properties, but not for existing accessors.
  49360. * Hence, in E5 Section 10.6 ([[DefinedOwnProperty]] algorithm), we
  49361. * have a Desc with 'Value' (and possibly other properties too), and
  49362. * we end up in step 5.b.i.
  49363. */
  49364. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  49365. DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(orig)) {
  49366. /* Note: only numbered indices are relevant, so arr_idx fast reject
  49367. * is good (this is valid unless there are more than 4**32-1 arguments).
  49368. */
  49369. DUK_DDD(DUK_DDDPRINT("putprop successful, arguments exotic behavior needed"));
  49370. /* Note: we can reuse 'desc' here */
  49371. /* XXX: top of stack must contain value, which helper doesn't touch,
  49372. * rework to use tv_val directly?
  49373. */
  49374. duk_push_tval(thr, tv_val);
  49375. (void) duk__check_arguments_map_for_put(thr, orig, key, &desc, throw_flag);
  49376. duk_pop_unsafe(thr);
  49377. }
  49378. /* fall thru */
  49379. success_no_arguments_exotic:
  49380. /* shared exit path now */
  49381. DUK_DDD(DUK_DDDPRINT("result: success"));
  49382. duk_pop_unsafe(thr); /* remove key */
  49383. return 1;
  49384. #if defined(DUK_USE_ES6_PROXY)
  49385. fail_proxy_rejected:
  49386. DUK_DDD(DUK_DDDPRINT("result: error, proxy rejects"));
  49387. if (throw_flag) {
  49388. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  49389. }
  49390. /* Note: no key on stack */
  49391. return 0;
  49392. #endif
  49393. fail_base_primitive:
  49394. DUK_DDD(DUK_DDDPRINT("result: error, base primitive"));
  49395. if (throw_flag) {
  49396. #if defined(DUK_USE_PARANOID_ERRORS)
  49397. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE);
  49398. #else
  49399. DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot write property %s of %s",
  49400. duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj));
  49401. #endif
  49402. }
  49403. duk_pop_unsafe(thr); /* remove key */
  49404. return 0;
  49405. fail_not_extensible:
  49406. DUK_DDD(DUK_DDDPRINT("result: error, not extensible"));
  49407. if (throw_flag) {
  49408. DUK_ERROR_TYPE(thr, DUK_STR_NOT_EXTENSIBLE);
  49409. }
  49410. duk_pop_unsafe(thr); /* remove key */
  49411. return 0;
  49412. fail_not_writable:
  49413. DUK_DDD(DUK_DDDPRINT("result: error, not writable"));
  49414. if (throw_flag) {
  49415. DUK_ERROR_TYPE(thr, DUK_STR_NOT_WRITABLE);
  49416. }
  49417. duk_pop_unsafe(thr); /* remove key */
  49418. return 0;
  49419. #if defined(DUK_USE_ROM_OBJECTS)
  49420. fail_not_writable_no_pop:
  49421. DUK_DDD(DUK_DDDPRINT("result: error, not writable"));
  49422. if (throw_flag) {
  49423. DUK_ERROR_TYPE(thr, DUK_STR_NOT_WRITABLE);
  49424. }
  49425. return 0;
  49426. #endif
  49427. fail_array_length_partial:
  49428. DUK_DD(DUK_DDPRINT("result: error, array length write only partially successful"));
  49429. if (throw_flag) {
  49430. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE);
  49431. }
  49432. duk_pop_unsafe(thr); /* remove key */
  49433. return 0;
  49434. fail_no_setter:
  49435. DUK_DDD(DUK_DDDPRINT("result: error, accessor property without setter"));
  49436. if (throw_flag) {
  49437. DUK_ERROR_TYPE(thr, DUK_STR_SETTER_UNDEFINED);
  49438. }
  49439. duk_pop_unsafe(thr); /* remove key */
  49440. return 0;
  49441. fail_internal:
  49442. DUK_DDD(DUK_DDDPRINT("result: error, internal"));
  49443. if (throw_flag) {
  49444. DUK_ERROR_INTERNAL(thr);
  49445. }
  49446. duk_pop_unsafe(thr); /* remove key */
  49447. return 0;
  49448. }
  49449. /*
  49450. * Ecmascript compliant [[Delete]](P, Throw).
  49451. */
  49452. DUK_INTERNAL duk_bool_t duk_hobject_delprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags) {
  49453. duk_propdesc desc;
  49454. duk_tval *tv;
  49455. duk_uint32_t arr_idx;
  49456. duk_bool_t throw_flag;
  49457. duk_bool_t force_flag;
  49458. throw_flag = (flags & DUK_DELPROP_FLAG_THROW);
  49459. force_flag = (flags & DUK_DELPROP_FLAG_FORCE);
  49460. DUK_DDD(DUK_DDDPRINT("delprop_raw: thr=%p, obj=%p, key=%p, throw=%ld, force=%ld (obj -> %!O, key -> %!O)",
  49461. (void *) thr, (void *) obj, (void *) key, (long) throw_flag, (long) force_flag,
  49462. (duk_heaphdr *) obj, (duk_heaphdr *) key));
  49463. DUK_ASSERT(thr != NULL);
  49464. DUK_ASSERT(thr->heap != NULL);
  49465. DUK_ASSERT(obj != NULL);
  49466. DUK_ASSERT(key != NULL);
  49467. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  49468. arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(key);
  49469. /* 0 = don't push current value */
  49470. if (!duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */
  49471. DUK_DDD(DUK_DDDPRINT("property not found, succeed always"));
  49472. goto success;
  49473. }
  49474. #if defined(DUK_USE_ROM_OBJECTS)
  49475. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  49476. DUK_DD(DUK_DDPRINT("attempt to delprop on read-only target object"));
  49477. goto fail_not_configurable;
  49478. }
  49479. #endif
  49480. if ((desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) == 0 && !force_flag) {
  49481. goto fail_not_configurable;
  49482. }
  49483. if (desc.a_idx < 0 && desc.e_idx < 0) {
  49484. /* Currently there are no deletable virtual properties, but
  49485. * with force_flag we might attempt to delete one.
  49486. */
  49487. DUK_DD(DUK_DDPRINT("delete failed: property found, force flag, but virtual (and implicitly non-configurable)"));
  49488. goto fail_virtual;
  49489. }
  49490. if (desc.a_idx >= 0) {
  49491. DUK_ASSERT(desc.e_idx < 0);
  49492. tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, desc.a_idx);
  49493. DUK_TVAL_SET_UNUSED_UPDREF(thr, tv); /* side effects */
  49494. goto success;
  49495. } else {
  49496. DUK_ASSERT(desc.a_idx < 0);
  49497. /* remove hash entry (no decref) */
  49498. #if defined(DUK_USE_HOBJECT_HASH_PART)
  49499. if (desc.h_idx >= 0) {
  49500. duk_uint32_t *h_base = DUK_HOBJECT_H_GET_BASE(thr->heap, obj);
  49501. DUK_DDD(DUK_DDDPRINT("removing hash entry at h_idx %ld", (long) desc.h_idx));
  49502. DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) > 0);
  49503. DUK_ASSERT((duk_uint32_t) desc.h_idx < DUK_HOBJECT_GET_HSIZE(obj));
  49504. h_base[desc.h_idx] = DUK__HASH_DELETED;
  49505. } else {
  49506. DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) == 0);
  49507. }
  49508. #else
  49509. DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) == 0);
  49510. #endif
  49511. /* Remove value. This requires multiple writes so avoid side
  49512. * effects via no-refzero macros so that e_idx is not
  49513. * invalidated.
  49514. */
  49515. DUK_DDD(DUK_DDDPRINT("before removing value, e_idx %ld, key %p, key at slot %p",
  49516. (long) desc.e_idx, (void *) key, (void *) DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx)));
  49517. DUK_DDD(DUK_DDDPRINT("removing value at e_idx %ld", (long) desc.e_idx));
  49518. if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, desc.e_idx)) {
  49519. duk_hobject *tmp;
  49520. tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, desc.e_idx);
  49521. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, desc.e_idx, NULL);
  49522. DUK_UNREF(tmp);
  49523. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp);
  49524. tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, desc.e_idx);
  49525. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, desc.e_idx, NULL);
  49526. DUK_UNREF(tmp);
  49527. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp);
  49528. } else {
  49529. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, desc.e_idx);
  49530. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv);
  49531. }
  49532. #if 0
  49533. /* Not strictly necessary because if key == NULL, flag MUST be ignored. */
  49534. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, desc.e_idx, 0);
  49535. #endif
  49536. /* Remove key. */
  49537. DUK_DDD(DUK_DDDPRINT("before removing key, e_idx %ld, key %p, key at slot %p",
  49538. (long) desc.e_idx, (void *) key, (void *) DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx)));
  49539. DUK_DDD(DUK_DDDPRINT("removing key at e_idx %ld", (long) desc.e_idx));
  49540. DUK_ASSERT(key == DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx));
  49541. DUK_HOBJECT_E_SET_KEY(thr->heap, obj, desc.e_idx, NULL);
  49542. DUK_HSTRING_DECREF_NORZ(thr, key);
  49543. /* Trigger refzero side effects only when we're done as a
  49544. * finalizer might operate on the object and affect the
  49545. * e_idx we're supposed to use.
  49546. */
  49547. DUK_REFZERO_CHECK_SLOW(thr);
  49548. goto success;
  49549. }
  49550. DUK_UNREACHABLE();
  49551. success:
  49552. /*
  49553. * Argument exotic [[Delete]] behavior (E5 Section 10.6) is
  49554. * a post-check, keeping arguments internal 'map' in sync with
  49555. * any successful deletes (note that property does not need to
  49556. * exist for delete to 'succeed').
  49557. *
  49558. * Delete key from 'map'. Since 'map' only contains array index
  49559. * keys, we can use arr_idx for a fast skip.
  49560. */
  49561. DUK_DDD(DUK_DDDPRINT("delete successful, check for arguments exotic behavior"));
  49562. if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)) {
  49563. /* Note: only numbered indices are relevant, so arr_idx fast reject
  49564. * is good (this is valid unless there are more than 4**32-1 arguments).
  49565. */
  49566. DUK_DDD(DUK_DDDPRINT("delete successful, arguments exotic behavior needed"));
  49567. /* Note: we can reuse 'desc' here */
  49568. (void) duk__check_arguments_map_for_delete(thr, obj, key, &desc);
  49569. }
  49570. DUK_DDD(DUK_DDDPRINT("delete successful"));
  49571. return 1;
  49572. fail_virtual: /* just use the same "not configurable" error message */
  49573. fail_not_configurable:
  49574. DUK_DDD(DUK_DDDPRINT("delete failed: property found, not configurable"));
  49575. if (throw_flag) {
  49576. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE);
  49577. }
  49578. return 0;
  49579. }
  49580. /*
  49581. * DELPROP: Ecmascript property deletion.
  49582. */
  49583. DUK_INTERNAL duk_bool_t duk_hobject_delprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_bool_t throw_flag) {
  49584. duk_hstring *key = NULL;
  49585. #if defined(DUK_USE_ES6_PROXY)
  49586. duk_propdesc desc;
  49587. #endif
  49588. duk_int_t entry_top;
  49589. duk_uint32_t arr_idx = DUK__NO_ARRAY_INDEX;
  49590. duk_bool_t rc;
  49591. DUK_DDD(DUK_DDDPRINT("delprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)",
  49592. (void *) thr, (void *) tv_obj, (void *) tv_key,
  49593. (duk_tval *) tv_obj, (duk_tval *) tv_key));
  49594. DUK_ASSERT(thr != NULL);
  49595. DUK_ASSERT(thr->heap != NULL);
  49596. DUK_ASSERT(tv_obj != NULL);
  49597. DUK_ASSERT(tv_key != NULL);
  49598. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  49599. /* Storing the entry top is cheaper here to ensure stack is correct at exit,
  49600. * as there are several paths out.
  49601. */
  49602. entry_top = duk_get_top(thr);
  49603. if (DUK_TVAL_IS_UNDEFINED(tv_obj) ||
  49604. DUK_TVAL_IS_NULL(tv_obj)) {
  49605. DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject"));
  49606. goto fail_invalid_base_uncond;
  49607. }
  49608. duk_push_tval(thr, tv_obj);
  49609. duk_push_tval(thr, tv_key);
  49610. tv_obj = DUK_GET_TVAL_NEGIDX(thr, -2);
  49611. if (DUK_TVAL_IS_OBJECT(tv_obj)) {
  49612. duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv_obj);
  49613. DUK_ASSERT(obj != NULL);
  49614. #if defined(DUK_USE_ES6_PROXY)
  49615. if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(obj))) {
  49616. duk_hobject *h_target;
  49617. duk_bool_t tmp_bool;
  49618. /* Note: proxy handling must happen before key is string coerced. */
  49619. if (duk__proxy_check_prop(thr, obj, DUK_STRIDX_DELETE_PROPERTY, tv_key, &h_target)) {
  49620. /* -> [ ... obj key trap handler ] */
  49621. DUK_DDD(DUK_DDDPRINT("-> proxy object 'deleteProperty' for key %!T", (duk_tval *) tv_key));
  49622. duk_push_hobject(thr, h_target); /* target */
  49623. duk_dup_m4(thr); /* P */
  49624. duk_call_method(thr, 2 /*nargs*/);
  49625. tmp_bool = duk_to_boolean(thr, -1);
  49626. duk_pop_nodecref_unsafe(thr);
  49627. if (!tmp_bool) {
  49628. goto fail_proxy_rejected; /* retval indicates delete failed */
  49629. }
  49630. /* Target object must be checked for a conflicting
  49631. * non-configurable property.
  49632. */
  49633. tv_key = DUK_GET_TVAL_NEGIDX(thr, -1);
  49634. arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key);
  49635. DUK_ASSERT(key != NULL);
  49636. if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */
  49637. duk_small_int_t desc_reject;
  49638. DUK_DDD(DUK_DDDPRINT("proxy 'deleteProperty': target has matching property %!O, check for "
  49639. "conflicting property; desc.flags=0x%08lx, "
  49640. "desc.get=%p, desc.set=%p",
  49641. (duk_heaphdr *) key, (unsigned long) desc.flags,
  49642. (void *) desc.get, (void *) desc.set));
  49643. desc_reject = !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE);
  49644. if (desc_reject) {
  49645. /* unconditional */
  49646. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  49647. }
  49648. }
  49649. rc = 1; /* success */
  49650. goto done_rc;
  49651. }
  49652. obj = h_target; /* resume delete to target */
  49653. }
  49654. #endif /* DUK_USE_ES6_PROXY */
  49655. arr_idx = duk__to_property_key(thr, -1, &key);
  49656. DUK_ASSERT(key != NULL);
  49657. rc = duk_hobject_delprop_raw(thr, obj, key, throw_flag ? DUK_DELPROP_FLAG_THROW : 0);
  49658. goto done_rc;
  49659. } else if (DUK_TVAL_IS_STRING(tv_obj)) {
  49660. /* String has .length and array index virtual properties
  49661. * which can't be deleted. No need for a symbol check;
  49662. * no offending virtual symbols exist.
  49663. */
  49664. /* XXX: unnecessary string coercion for array indices,
  49665. * intentional to keep small.
  49666. */
  49667. duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj);
  49668. DUK_ASSERT(h != NULL);
  49669. arr_idx = duk__to_property_key(thr, -1, &key);
  49670. DUK_ASSERT(key != NULL);
  49671. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  49672. goto fail_not_configurable;
  49673. }
  49674. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  49675. arr_idx < DUK_HSTRING_GET_CHARLEN(h)) {
  49676. goto fail_not_configurable;
  49677. }
  49678. } else if (DUK_TVAL_IS_BUFFER(tv_obj)) {
  49679. /* XXX: unnecessary string coercion for array indices,
  49680. * intentional to keep small; some overlap with string
  49681. * handling.
  49682. */
  49683. duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj);
  49684. DUK_ASSERT(h != NULL);
  49685. arr_idx = duk__to_property_key(thr, -1, &key);
  49686. DUK_ASSERT(key != NULL);
  49687. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  49688. goto fail_not_configurable;
  49689. }
  49690. if (arr_idx != DUK__NO_ARRAY_INDEX &&
  49691. arr_idx < DUK_HBUFFER_GET_SIZE(h)) {
  49692. goto fail_not_configurable;
  49693. }
  49694. } else if (DUK_TVAL_IS_LIGHTFUNC(tv_obj)) {
  49695. /* Lightfunc has no virtual properties since Duktape 2.2
  49696. * so success. Still must coerce key for side effects.
  49697. */
  49698. arr_idx = duk__to_property_key(thr, -1, &key);
  49699. DUK_ASSERT(key != NULL);
  49700. DUK_UNREF(key);
  49701. }
  49702. /* non-object base, no offending virtual property */
  49703. rc = 1;
  49704. goto done_rc;
  49705. done_rc:
  49706. duk_set_top_unsafe(thr, entry_top);
  49707. return rc;
  49708. fail_invalid_base_uncond:
  49709. /* Note: unconditional throw */
  49710. DUK_ASSERT(duk_get_top(thr) == entry_top);
  49711. #if defined(DUK_USE_PARANOID_ERRORS)
  49712. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE);
  49713. #else
  49714. DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot delete property %s of %s",
  49715. duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj));
  49716. #endif
  49717. return 0;
  49718. #if defined(DUK_USE_ES6_PROXY)
  49719. fail_proxy_rejected:
  49720. if (throw_flag) {
  49721. DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED);
  49722. }
  49723. duk_set_top_unsafe(thr, entry_top);
  49724. return 0;
  49725. #endif
  49726. fail_not_configurable:
  49727. if (throw_flag) {
  49728. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE);
  49729. }
  49730. duk_set_top_unsafe(thr, entry_top);
  49731. return 0;
  49732. }
  49733. /*
  49734. * Internal helper to define a property with specific flags, ignoring
  49735. * normal semantics such as extensibility, write protection etc.
  49736. * Overwrites any existing value and attributes unless caller requests
  49737. * that value only be updated if it doesn't already exists.
  49738. *
  49739. * Does not support:
  49740. * - virtual properties (error if write attempted)
  49741. * - getter/setter properties (error if write attempted)
  49742. * - non-default (!= WEC) attributes for array entries (error if attempted)
  49743. * - array abandoning: if array part exists, it is always extended
  49744. * - array 'length' updating
  49745. *
  49746. * Stack: [... in_val] -> []
  49747. *
  49748. * Used for e.g. built-in initialization and environment record
  49749. * operations.
  49750. */
  49751. DUK_INTERNAL void duk_hobject_define_property_internal(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags) {
  49752. duk_propdesc desc;
  49753. duk_uint32_t arr_idx;
  49754. duk_int_t e_idx;
  49755. duk_tval *tv1 = NULL;
  49756. duk_tval *tv2 = NULL;
  49757. duk_small_uint_t propflags = flags & DUK_PROPDESC_FLAGS_MASK; /* mask out flags not actually stored */
  49758. DUK_DDD(DUK_DDDPRINT("define new property (internal): thr=%p, obj=%!O, key=%!O, flags=0x%02lx, val=%!T",
  49759. (void *) thr, (duk_heaphdr *) obj, (duk_heaphdr *) key,
  49760. (unsigned long) flags, (duk_tval *) duk_get_tval(thr, -1)));
  49761. DUK_ASSERT(thr != NULL);
  49762. DUK_ASSERT(thr->heap != NULL);
  49763. DUK_ASSERT(obj != NULL);
  49764. DUK_ASSERT(key != NULL);
  49765. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj));
  49766. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  49767. DUK_ASSERT(duk_is_valid_index(thr, -1)); /* contains value */
  49768. arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key);
  49769. if (duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */
  49770. if (desc.e_idx >= 0) {
  49771. if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) {
  49772. DUK_DDD(DUK_DDDPRINT("property already exists in the entry part -> skip as requested"));
  49773. goto pop_exit;
  49774. }
  49775. DUK_DDD(DUK_DDDPRINT("property already exists in the entry part -> update value and attributes"));
  49776. if (DUK_UNLIKELY(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, desc.e_idx))) {
  49777. DUK_D(DUK_DPRINT("existing property is an accessor, not supported"));
  49778. goto error_internal;
  49779. }
  49780. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, desc.e_idx, propflags);
  49781. tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, desc.e_idx);
  49782. } else if (desc.a_idx >= 0) {
  49783. if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) {
  49784. DUK_DDD(DUK_DDDPRINT("property already exists in the array part -> skip as requested"));
  49785. goto pop_exit;
  49786. }
  49787. DUK_DDD(DUK_DDDPRINT("property already exists in the array part -> update value (assert attributes)"));
  49788. if (propflags != DUK_PROPDESC_FLAGS_WEC) {
  49789. DUK_D(DUK_DPRINT("existing property in array part, but propflags not WEC (0x%02lx)",
  49790. (unsigned long) propflags));
  49791. goto error_internal;
  49792. }
  49793. tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, desc.a_idx);
  49794. } else {
  49795. if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) {
  49796. DUK_DDD(DUK_DDDPRINT("property already exists but is virtual -> skip as requested"));
  49797. goto pop_exit;
  49798. }
  49799. if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  49800. duk_uint32_t new_len;
  49801. #if defined(DUK_USE_DEBUG)
  49802. duk_uint32_t prev_len;
  49803. prev_len = ((duk_harray *) obj)->length;
  49804. #endif
  49805. new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_NEGIDX(thr, -1));
  49806. ((duk_harray *) obj)->length = new_len;
  49807. DUK_D(DUK_DPRINT("internal define property for array .length: %ld -> %ld",
  49808. (long) prev_len, (long) ((duk_harray *) obj)->length));
  49809. goto pop_exit;
  49810. }
  49811. DUK_DD(DUK_DDPRINT("property already exists but is virtual -> failure"));
  49812. goto error_virtual;
  49813. }
  49814. goto write_value;
  49815. }
  49816. if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  49817. if (arr_idx != DUK__NO_ARRAY_INDEX) {
  49818. DUK_DDD(DUK_DDDPRINT("property does not exist, object has array part -> possibly extend array part and write value (assert attributes)"));
  49819. DUK_ASSERT(propflags == DUK_PROPDESC_FLAGS_WEC);
  49820. /* always grow the array, no sparse / abandon support here */
  49821. if (arr_idx >= DUK_HOBJECT_GET_ASIZE(obj)) {
  49822. duk__grow_props_for_array_item(thr, obj, arr_idx);
  49823. }
  49824. DUK_ASSERT(arr_idx < DUK_HOBJECT_GET_ASIZE(obj));
  49825. tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx);
  49826. goto write_value;
  49827. }
  49828. }
  49829. DUK_DDD(DUK_DDDPRINT("property does not exist, object belongs in entry part -> allocate new entry and write value and attributes"));
  49830. e_idx = duk__hobject_alloc_entry_checked(thr, obj, key); /* increases key refcount */
  49831. DUK_ASSERT(e_idx >= 0);
  49832. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, propflags);
  49833. tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx);
  49834. /* new entry: previous value is garbage; set to undefined to share write_value */
  49835. DUK_TVAL_SET_UNDEFINED(tv1);
  49836. goto write_value;
  49837. write_value:
  49838. /* tv1 points to value storage */
  49839. tv2 = duk_require_tval(thr, -1); /* late lookup, avoid side effects */
  49840. DUK_DDD(DUK_DDDPRINT("writing/updating value: %!T -> %!T",
  49841. (duk_tval *) tv1, (duk_tval *) tv2));
  49842. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */
  49843. goto pop_exit;
  49844. pop_exit:
  49845. duk_pop_unsafe(thr); /* remove in_val */
  49846. return;
  49847. error_virtual: /* share error message */
  49848. error_internal:
  49849. DUK_ERROR_INTERNAL(thr);
  49850. return;
  49851. }
  49852. /*
  49853. * Fast path for defining array indexed values without interning the key.
  49854. * This is used by e.g. code for Array prototype and traceback creation so
  49855. * must avoid interning.
  49856. */
  49857. DUK_INTERNAL void duk_hobject_define_property_internal_arridx(duk_hthread *thr, duk_hobject *obj, duk_uarridx_t arr_idx, duk_small_uint_t flags) {
  49858. duk_hstring *key;
  49859. duk_tval *tv1, *tv2;
  49860. DUK_DDD(DUK_DDDPRINT("define new property (internal) arr_idx fast path: thr=%p, obj=%!O, "
  49861. "arr_idx=%ld, flags=0x%02lx, val=%!T",
  49862. (void *) thr, obj, (long) arr_idx, (unsigned long) flags,
  49863. (duk_tval *) duk_get_tval(thr, -1)));
  49864. DUK_ASSERT(thr != NULL);
  49865. DUK_ASSERT(thr->heap != NULL);
  49866. DUK_ASSERT(obj != NULL);
  49867. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj));
  49868. if (DUK_HOBJECT_HAS_ARRAY_PART(obj) &&
  49869. arr_idx != DUK__NO_ARRAY_INDEX &&
  49870. flags == DUK_PROPDESC_FLAGS_WEC) {
  49871. DUK_ASSERT((flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) == 0); /* covered by comparison */
  49872. DUK_DDD(DUK_DDDPRINT("define property to array part (property may or may not exist yet)"));
  49873. /* always grow the array, no sparse / abandon support here */
  49874. if (arr_idx >= DUK_HOBJECT_GET_ASIZE(obj)) {
  49875. duk__grow_props_for_array_item(thr, obj, arr_idx);
  49876. }
  49877. DUK_ASSERT(arr_idx < DUK_HOBJECT_GET_ASIZE(obj));
  49878. tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx);
  49879. tv2 = duk_require_tval(thr, -1);
  49880. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */
  49881. duk_pop_unsafe(thr); /* [ ...val ] -> [ ... ] */
  49882. return;
  49883. }
  49884. DUK_DDD(DUK_DDDPRINT("define property fast path didn't work, use slow path"));
  49885. key = duk_push_uint_to_hstring(thr, (duk_uint_t) arr_idx);
  49886. DUK_ASSERT(key != NULL);
  49887. duk_insert(thr, -2); /* [ ... val key ] -> [ ... key val ] */
  49888. duk_hobject_define_property_internal(thr, obj, key, flags);
  49889. duk_pop_unsafe(thr); /* [ ... key ] -> [ ... ] */
  49890. }
  49891. /*
  49892. * Internal helpers for managing object 'length'
  49893. */
  49894. DUK_INTERNAL duk_size_t duk_hobject_get_length(duk_hthread *thr, duk_hobject *obj) {
  49895. duk_double_t val;
  49896. DUK_ASSERT_CTX_VALID(thr);
  49897. DUK_ASSERT(obj != NULL);
  49898. /* Fast path for Arrays. */
  49899. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  49900. return ((duk_harray *) obj)->length;
  49901. }
  49902. /* Slow path, .length can be e.g. accessor, obj can be a Proxy, etc. */
  49903. duk_push_hobject(thr, obj);
  49904. duk_push_hstring_stridx(thr, DUK_STRIDX_LENGTH);
  49905. (void) duk_hobject_getprop(thr,
  49906. DUK_GET_TVAL_NEGIDX(thr, -2),
  49907. DUK_GET_TVAL_NEGIDX(thr, -1));
  49908. val = duk_to_number_m1(thr);
  49909. duk_pop_3_unsafe(thr);
  49910. /* This isn't part of Ecmascript semantics; return a value within
  49911. * duk_size_t range, or 0 otherwise.
  49912. */
  49913. if (val >= 0.0 && val <= (duk_double_t) DUK_SIZE_MAX) {
  49914. return (duk_size_t) val;
  49915. }
  49916. return 0;
  49917. }
  49918. /*
  49919. * Fast finalizer check for an object. Walks the prototype chain, checking
  49920. * for finalizer presence using DUK_HOBJECT_FLAG_HAVE_FINALIZER which is kept
  49921. * in sync with the actual property when setting/removing the finalizer.
  49922. */
  49923. #if defined(DUK_USE_HEAPPTR16)
  49924. DUK_INTERNAL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_heap *heap, duk_hobject *obj) {
  49925. #else
  49926. DUK_INTERNAL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_hobject *obj) {
  49927. #endif
  49928. duk_uint_t sanity;
  49929. DUK_ASSERT(obj != NULL);
  49930. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  49931. do {
  49932. if (DUK_UNLIKELY(DUK_HOBJECT_HAS_HAVE_FINALIZER(obj))) {
  49933. return 1;
  49934. }
  49935. if (DUK_UNLIKELY(sanity-- == 0)) {
  49936. DUK_D(DUK_DPRINT("prototype loop when checking for finalizer existence; returning false"));
  49937. return 0;
  49938. }
  49939. #if defined(DUK_USE_HEAPPTR16)
  49940. DUK_ASSERT(heap != NULL);
  49941. obj = DUK_HOBJECT_GET_PROTOTYPE(heap, obj);
  49942. #else
  49943. obj = DUK_HOBJECT_GET_PROTOTYPE(NULL, obj); /* 'heap' arg ignored */
  49944. #endif
  49945. } while (obj != NULL);
  49946. return 0;
  49947. }
  49948. /*
  49949. * Object.getOwnPropertyDescriptor() (E5 Sections 15.2.3.3, 8.10.4)
  49950. *
  49951. * [ ... key ] -> [ ... desc/undefined ]
  49952. */
  49953. DUK_INTERNAL void duk_hobject_object_get_own_property_descriptor(duk_hthread *thr, duk_idx_t obj_idx) {
  49954. duk_hobject *obj;
  49955. duk_hstring *key;
  49956. duk_propdesc pd;
  49957. DUK_ASSERT(thr != NULL);
  49958. DUK_ASSERT(thr->heap != NULL);
  49959. obj = duk_require_hobject_promote_mask(thr, obj_idx, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  49960. key = duk_to_property_key_hstring(thr, -1);
  49961. DUK_ASSERT(key != NULL);
  49962. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  49963. if (!duk_hobject_get_own_propdesc(thr, obj, key, &pd, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  49964. duk_push_undefined(thr);
  49965. duk_remove_m2(thr);
  49966. return;
  49967. }
  49968. duk_push_object(thr);
  49969. /* [ ... key value desc ] */
  49970. if (DUK_PROPDESC_IS_ACCESSOR(&pd)) {
  49971. /* If a setter/getter is missing (undefined), the descriptor must
  49972. * still have the property present with the value 'undefined'.
  49973. */
  49974. if (pd.get) {
  49975. duk_push_hobject(thr, pd.get);
  49976. } else {
  49977. duk_push_undefined(thr);
  49978. }
  49979. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_GET);
  49980. if (pd.set) {
  49981. duk_push_hobject(thr, pd.set);
  49982. } else {
  49983. duk_push_undefined(thr);
  49984. }
  49985. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_SET);
  49986. } else {
  49987. duk_dup_m2(thr);
  49988. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_VALUE);
  49989. duk_push_boolean(thr, DUK_PROPDESC_IS_WRITABLE(&pd));
  49990. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_WRITABLE);
  49991. }
  49992. duk_push_boolean(thr, DUK_PROPDESC_IS_ENUMERABLE(&pd));
  49993. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_ENUMERABLE);
  49994. duk_push_boolean(thr, DUK_PROPDESC_IS_CONFIGURABLE(&pd));
  49995. duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_CONFIGURABLE);
  49996. /* [ ... key value desc ] */
  49997. duk_replace(thr, -3);
  49998. duk_pop_unsafe(thr); /* -> [ ... desc ] */
  49999. }
  50000. /*
  50001. * NormalizePropertyDescriptor() related helper.
  50002. *
  50003. * Internal helper which validates and normalizes a property descriptor
  50004. * represented as an Ecmascript object (e.g. argument to defineProperty()).
  50005. * The output of this conversion is a set of defprop_flags and possibly
  50006. * some values pushed on the value stack to (1) ensure borrowed pointers
  50007. * remain valid, and (2) avoid unnecessary pops for footprint reasons.
  50008. * Caller must manage stack top carefully because the number of values
  50009. * pushed depends on the input property descriptor.
  50010. *
  50011. * The original descriptor object must not be altered in the process.
  50012. */
  50013. /* XXX: very basic optimization -> duk_get_prop_stridx_top */
  50014. DUK_INTERNAL
  50015. void duk_hobject_prepare_property_descriptor(duk_hthread *thr,
  50016. duk_idx_t idx_in,
  50017. duk_uint_t *out_defprop_flags,
  50018. duk_idx_t *out_idx_value,
  50019. duk_hobject **out_getter,
  50020. duk_hobject **out_setter) {
  50021. duk_idx_t idx_value = -1;
  50022. duk_hobject *getter = NULL;
  50023. duk_hobject *setter = NULL;
  50024. duk_bool_t is_data_desc = 0;
  50025. duk_bool_t is_acc_desc = 0;
  50026. duk_uint_t defprop_flags = 0;
  50027. DUK_ASSERT(out_defprop_flags != NULL);
  50028. DUK_ASSERT(out_idx_value != NULL);
  50029. DUK_ASSERT(out_getter != NULL);
  50030. DUK_ASSERT(out_setter != NULL);
  50031. DUK_ASSERT(idx_in <= 0x7fffL); /* short variants would be OK, but not used to avoid shifts */
  50032. /* Must be an object, otherwise TypeError (E5.1 Section 8.10.5, step 1). */
  50033. idx_in = duk_require_normalize_index(thr, idx_in);
  50034. (void) duk_require_hobject(thr, idx_in);
  50035. /* The coercion order must match the ToPropertyDescriptor() algorithm
  50036. * so that side effects in coercion happen in the correct order.
  50037. * (This order also happens to be compatible with duk_def_prop(),
  50038. * although it doesn't matter in practice.)
  50039. */
  50040. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_VALUE)) {
  50041. is_data_desc = 1;
  50042. defprop_flags |= DUK_DEFPROP_HAVE_VALUE;
  50043. idx_value = duk_get_top_index(thr);
  50044. }
  50045. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_WRITABLE)) {
  50046. is_data_desc = 1;
  50047. if (duk_to_boolean(thr, -1)) {
  50048. defprop_flags |= DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_WRITABLE;
  50049. } else {
  50050. defprop_flags |= DUK_DEFPROP_HAVE_WRITABLE;
  50051. }
  50052. }
  50053. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_GET)) {
  50054. duk_tval *tv = duk_require_tval(thr, -1);
  50055. duk_hobject *h_get;
  50056. if (DUK_TVAL_IS_UNDEFINED(tv)) {
  50057. /* undefined is accepted */
  50058. DUK_ASSERT(getter == NULL);
  50059. } else {
  50060. /* NOTE: lightfuncs are coerced to full functions because
  50061. * lightfuncs don't fit into a property value slot. This
  50062. * has some side effects, see test-dev-lightfunc-accessor.js.
  50063. */
  50064. h_get = duk_get_hobject_promote_lfunc(thr, -1);
  50065. if (h_get == NULL || !DUK_HOBJECT_IS_CALLABLE(h_get)) {
  50066. goto type_error;
  50067. }
  50068. getter = h_get;
  50069. }
  50070. is_acc_desc = 1;
  50071. defprop_flags |= DUK_DEFPROP_HAVE_GETTER;
  50072. }
  50073. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_SET)) {
  50074. duk_tval *tv = duk_require_tval(thr, -1);
  50075. duk_hobject *h_set;
  50076. if (DUK_TVAL_IS_UNDEFINED(tv)) {
  50077. /* undefined is accepted */
  50078. DUK_ASSERT(setter == NULL);
  50079. } else {
  50080. /* NOTE: lightfuncs are coerced to full functions because
  50081. * lightfuncs don't fit into a property value slot. This
  50082. * has some side effects, see test-dev-lightfunc-accessor.js.
  50083. */
  50084. h_set = duk_get_hobject_promote_lfunc(thr, -1);
  50085. if (h_set == NULL || !DUK_HOBJECT_IS_CALLABLE(h_set)) {
  50086. goto type_error;
  50087. }
  50088. setter = h_set;
  50089. }
  50090. is_acc_desc = 1;
  50091. defprop_flags |= DUK_DEFPROP_HAVE_SETTER;
  50092. }
  50093. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_ENUMERABLE)) {
  50094. if (duk_to_boolean(thr, -1)) {
  50095. defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_ENUMERABLE;
  50096. } else {
  50097. defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE;
  50098. }
  50099. }
  50100. if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_CONFIGURABLE)) {
  50101. if (duk_to_boolean(thr, -1)) {
  50102. defprop_flags |= DUK_DEFPROP_HAVE_CONFIGURABLE | DUK_DEFPROP_CONFIGURABLE;
  50103. } else {
  50104. defprop_flags |= DUK_DEFPROP_HAVE_CONFIGURABLE;
  50105. }
  50106. }
  50107. if (is_data_desc && is_acc_desc) {
  50108. goto type_error;
  50109. }
  50110. *out_defprop_flags = defprop_flags;
  50111. *out_idx_value = idx_value;
  50112. *out_getter = getter;
  50113. *out_setter = setter;
  50114. /* [ ... [multiple values] ] */
  50115. return;
  50116. type_error:
  50117. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_DESCRIPTOR);
  50118. }
  50119. /*
  50120. * Object.defineProperty() related helper (E5 Section 15.2.3.6).
  50121. * Also handles ES2015 Reflect.defineProperty().
  50122. *
  50123. * Inlines all [[DefineOwnProperty]] exotic behaviors.
  50124. *
  50125. * Note: Ecmascript compliant [[DefineOwnProperty]](P, Desc, Throw) is not
  50126. * implemented directly, but Object.defineProperty() serves its purpose.
  50127. * We don't need the [[DefineOwnProperty]] internally and we don't have a
  50128. * property descriptor with 'missing values' so it's easier to avoid it
  50129. * entirely.
  50130. *
  50131. * Note: this is only called for actual objects, not primitive values.
  50132. * This must support virtual properties for full objects (e.g. Strings)
  50133. * but not for plain values (e.g. strings). Lightfuncs, even though
  50134. * primitive in a sense, are treated like objects and accepted as target
  50135. * values.
  50136. */
  50137. /* XXX: this is a major target for size optimization */
  50138. DUK_INTERNAL
  50139. duk_bool_t duk_hobject_define_property_helper(duk_hthread *thr,
  50140. duk_uint_t defprop_flags,
  50141. duk_hobject *obj,
  50142. duk_hstring *key,
  50143. duk_idx_t idx_value,
  50144. duk_hobject *get,
  50145. duk_hobject *set,
  50146. duk_bool_t throw_flag) {
  50147. duk_uint32_t arr_idx;
  50148. duk_tval tv;
  50149. duk_bool_t has_enumerable;
  50150. duk_bool_t has_configurable;
  50151. duk_bool_t has_writable;
  50152. duk_bool_t has_value;
  50153. duk_bool_t has_get;
  50154. duk_bool_t has_set;
  50155. duk_bool_t is_enumerable;
  50156. duk_bool_t is_configurable;
  50157. duk_bool_t is_writable;
  50158. duk_bool_t force_flag;
  50159. duk_small_uint_t new_flags;
  50160. duk_propdesc curr;
  50161. duk_uint32_t arridx_new_array_length; /* != 0 => post-update for array 'length' (used when key is an array index) */
  50162. duk_uint32_t arrlen_old_len;
  50163. duk_uint32_t arrlen_new_len;
  50164. duk_bool_t pending_write_protect;
  50165. DUK_ASSERT(thr != NULL);
  50166. DUK_ASSERT(thr->heap != NULL);
  50167. DUK_ASSERT(obj != NULL);
  50168. DUK_ASSERT(key != NULL);
  50169. /* idx_value may be < 0 (no value), set and get may be NULL */
  50170. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  50171. /* All the flags fit in 16 bits, so will fit into duk_bool_t. */
  50172. has_writable = (defprop_flags & DUK_DEFPROP_HAVE_WRITABLE);
  50173. has_enumerable = (defprop_flags & DUK_DEFPROP_HAVE_ENUMERABLE);
  50174. has_configurable = (defprop_flags & DUK_DEFPROP_HAVE_CONFIGURABLE);
  50175. has_value = (defprop_flags & DUK_DEFPROP_HAVE_VALUE);
  50176. has_get = (defprop_flags & DUK_DEFPROP_HAVE_GETTER);
  50177. has_set = (defprop_flags & DUK_DEFPROP_HAVE_SETTER);
  50178. is_writable = (defprop_flags & DUK_DEFPROP_WRITABLE);
  50179. is_enumerable = (defprop_flags & DUK_DEFPROP_ENUMERABLE);
  50180. is_configurable = (defprop_flags & DUK_DEFPROP_CONFIGURABLE);
  50181. force_flag = (defprop_flags & DUK_DEFPROP_FORCE);
  50182. arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key);
  50183. arridx_new_array_length = 0;
  50184. pending_write_protect = 0;
  50185. arrlen_old_len = 0;
  50186. arrlen_new_len = 0;
  50187. DUK_DDD(DUK_DDDPRINT("has_enumerable=%ld is_enumerable=%ld "
  50188. "has_configurable=%ld is_configurable=%ld "
  50189. "has_writable=%ld is_writable=%ld "
  50190. "has_value=%ld value=%!T "
  50191. "has_get=%ld get=%p=%!O "
  50192. "has_set=%ld set=%p=%!O "
  50193. "arr_idx=%ld throw_flag=!%ld",
  50194. (long) has_enumerable, (long) is_enumerable,
  50195. (long) has_configurable, (long) is_configurable,
  50196. (long) has_writable, (long) is_writable,
  50197. (long) has_value, (duk_tval *) (idx_value >= 0 ? duk_get_tval(thr, idx_value) : NULL),
  50198. (long) has_get, (void *) get, (duk_heaphdr *) get,
  50199. (long) has_set, (void *) set, (duk_heaphdr *) set,
  50200. (long) arr_idx, (long) throw_flag));
  50201. /*
  50202. * Array exotic behaviors can be implemented at this point. The local variables
  50203. * are essentially a 'value copy' of the input descriptor (Desc), which is modified
  50204. * by the Array [[DefineOwnProperty]] (E5 Section 15.4.5.1).
  50205. */
  50206. if (!DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  50207. goto skip_array_exotic;
  50208. }
  50209. if (key == DUK_HTHREAD_STRING_LENGTH(thr)) {
  50210. duk_harray *a;
  50211. /* E5 Section 15.4.5.1, step 3, steps a - i are implemented here, j - n at the end */
  50212. if (!has_value) {
  50213. DUK_DDD(DUK_DDDPRINT("exotic array behavior for 'length', but no value in descriptor -> normal behavior"));
  50214. goto skip_array_exotic;
  50215. }
  50216. DUK_DDD(DUK_DDDPRINT("exotic array behavior for 'length', value present in descriptor -> exotic behavior"));
  50217. /*
  50218. * Get old and new length
  50219. */
  50220. a = (duk_harray *) obj;
  50221. DUK_ASSERT_HARRAY_VALID(a);
  50222. arrlen_old_len = a->length;
  50223. DUK_ASSERT(idx_value >= 0);
  50224. arrlen_new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_POSIDX(thr, idx_value));
  50225. duk_push_u32(thr, arrlen_new_len);
  50226. duk_replace(thr, idx_value); /* step 3.e: replace 'Desc.[[Value]]' */
  50227. DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld", (long) arrlen_old_len, (long) arrlen_new_len));
  50228. if (arrlen_new_len >= arrlen_old_len) {
  50229. /* standard behavior, step 3.f.i */
  50230. DUK_DDD(DUK_DDDPRINT("new length is same or higher as previous => standard behavior"));
  50231. goto skip_array_exotic;
  50232. }
  50233. DUK_DDD(DUK_DDDPRINT("new length is smaller than previous => exotic post behavior"));
  50234. /* XXX: consolidated algorithm step 15.f -> redundant? */
  50235. if (DUK_HARRAY_LENGTH_NONWRITABLE(a) && !force_flag) {
  50236. /* Array .length is always non-configurable; if it's also
  50237. * non-writable, don't allow it to be written.
  50238. */
  50239. goto fail_not_configurable;
  50240. }
  50241. /* steps 3.h and 3.i */
  50242. if (has_writable && !is_writable) {
  50243. DUK_DDD(DUK_DDDPRINT("desc writable is false, force it back to true, and flag pending write protect"));
  50244. is_writable = 1;
  50245. pending_write_protect = 1;
  50246. }
  50247. /* remaining actual steps are carried out if standard DefineOwnProperty succeeds */
  50248. } else if (arr_idx != DUK__NO_ARRAY_INDEX) {
  50249. /* XXX: any chance of unifying this with the 'length' key handling? */
  50250. /* E5 Section 15.4.5.1, step 4 */
  50251. duk_uint32_t old_len;
  50252. duk_harray *a;
  50253. a = (duk_harray *) obj;
  50254. DUK_ASSERT_HARRAY_VALID(a);
  50255. old_len = a->length;
  50256. if (arr_idx >= old_len) {
  50257. DUK_DDD(DUK_DDDPRINT("defineProperty requires array length update "
  50258. "(arr_idx=%ld, old_len=%ld)",
  50259. (long) arr_idx, (long) old_len));
  50260. if (DUK_HARRAY_LENGTH_NONWRITABLE(a) && !force_flag) {
  50261. /* Array .length is always non-configurable, so
  50262. * if it's also non-writable, don't allow a value
  50263. * write. With force flag allow writing.
  50264. */
  50265. goto fail_not_configurable;
  50266. }
  50267. /* actual update happens once write has been completed without
  50268. * error below.
  50269. */
  50270. DUK_ASSERT(arr_idx != 0xffffffffUL);
  50271. arridx_new_array_length = arr_idx + 1;
  50272. } else {
  50273. DUK_DDD(DUK_DDDPRINT("defineProperty does not require length update "
  50274. "(arr_idx=%ld, old_len=%ld) -> standard behavior",
  50275. (long) arr_idx, (long) old_len));
  50276. }
  50277. }
  50278. skip_array_exotic:
  50279. /* XXX: There is currently no support for writing buffer object
  50280. * indexed elements here. Attempt to do so will succeed and
  50281. * write a concrete property into the buffer object. This should
  50282. * be fixed at some point but because buffers are a custom feature
  50283. * anyway, this is relatively unimportant.
  50284. */
  50285. /*
  50286. * Actual Object.defineProperty() default algorithm.
  50287. */
  50288. /*
  50289. * First check whether property exists; if not, simple case. This covers
  50290. * steps 1-4.
  50291. */
  50292. if (!duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE)) {
  50293. DUK_DDD(DUK_DDDPRINT("property does not exist"));
  50294. if (!DUK_HOBJECT_HAS_EXTENSIBLE(obj) && !force_flag) {
  50295. goto fail_not_extensible;
  50296. }
  50297. #if defined(DUK_USE_ROM_OBJECTS)
  50298. /* ROM objects are never extensible but force flag may
  50299. * allow us to come here anyway.
  50300. */
  50301. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj) || !DUK_HOBJECT_HAS_EXTENSIBLE(obj));
  50302. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  50303. DUK_D(DUK_DPRINT("attempt to define property on a read-only target object"));
  50304. goto fail_not_configurable;
  50305. }
  50306. #endif
  50307. /* XXX: share final setting code for value and flags? difficult because
  50308. * refcount code is different. Share entry allocation? But can't allocate
  50309. * until array index checked.
  50310. */
  50311. /* steps 4.a and 4.b are tricky */
  50312. if (has_set || has_get) {
  50313. duk_int_t e_idx;
  50314. DUK_DDD(DUK_DDDPRINT("create new accessor property"));
  50315. DUK_ASSERT(has_set || set == NULL);
  50316. DUK_ASSERT(has_get || get == NULL);
  50317. DUK_ASSERT(!has_value);
  50318. DUK_ASSERT(!has_writable);
  50319. new_flags = DUK_PROPDESC_FLAG_ACCESSOR; /* defaults, E5 Section 8.6.1, Table 7 */
  50320. if (has_enumerable && is_enumerable) {
  50321. new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE;
  50322. }
  50323. if (has_configurable && is_configurable) {
  50324. new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE;
  50325. }
  50326. if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  50327. DUK_DDD(DUK_DDDPRINT("accessor cannot go to array part, abandon array"));
  50328. duk__abandon_array_checked(thr, obj);
  50329. }
  50330. /* write to entry part */
  50331. e_idx = duk__hobject_alloc_entry_checked(thr, obj, key);
  50332. DUK_ASSERT(e_idx >= 0);
  50333. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, e_idx, get);
  50334. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, e_idx, set);
  50335. DUK_HOBJECT_INCREF_ALLOWNULL(thr, get);
  50336. DUK_HOBJECT_INCREF_ALLOWNULL(thr, set);
  50337. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, new_flags);
  50338. goto success_exotics;
  50339. } else {
  50340. duk_int_t e_idx;
  50341. duk_tval *tv2;
  50342. DUK_DDD(DUK_DDDPRINT("create new data property"));
  50343. DUK_ASSERT(!has_set);
  50344. DUK_ASSERT(!has_get);
  50345. new_flags = 0; /* defaults, E5 Section 8.6.1, Table 7 */
  50346. if (has_writable && is_writable) {
  50347. new_flags |= DUK_PROPDESC_FLAG_WRITABLE;
  50348. }
  50349. if (has_enumerable && is_enumerable) {
  50350. new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE;
  50351. }
  50352. if (has_configurable && is_configurable) {
  50353. new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE;
  50354. }
  50355. if (has_value) {
  50356. duk_tval *tv_tmp = duk_require_tval(thr, idx_value);
  50357. DUK_TVAL_SET_TVAL(&tv, tv_tmp);
  50358. } else {
  50359. DUK_TVAL_SET_UNDEFINED(&tv); /* default value */
  50360. }
  50361. if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_ARRAY_PART(obj)) {
  50362. if (new_flags == DUK_PROPDESC_FLAGS_WEC) {
  50363. #if 0
  50364. DUK_DDD(DUK_DDDPRINT("new data property attributes match array defaults, attempt to write to array part"));
  50365. /* may become sparse...*/
  50366. #endif
  50367. /* XXX: handling for array part missing now; this doesn't affect
  50368. * compliance but causes array entry writes using defineProperty()
  50369. * to always abandon array part.
  50370. */
  50371. }
  50372. DUK_DDD(DUK_DDDPRINT("new data property cannot go to array part, abandon array"));
  50373. duk__abandon_array_checked(thr, obj);
  50374. /* fall through */
  50375. }
  50376. /* write to entry part */
  50377. e_idx = duk__hobject_alloc_entry_checked(thr, obj, key);
  50378. DUK_ASSERT(e_idx >= 0);
  50379. tv2 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx);
  50380. DUK_TVAL_SET_TVAL(tv2, &tv);
  50381. DUK_TVAL_INCREF(thr, tv2);
  50382. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, new_flags);
  50383. goto success_exotics;
  50384. }
  50385. DUK_UNREACHABLE();
  50386. }
  50387. /* we currently assume virtual properties are not configurable (as none of them are) */
  50388. DUK_ASSERT((curr.e_idx >= 0 || curr.a_idx >= 0) || !(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE));
  50389. /* [obj key desc value get set curr_value] */
  50390. /*
  50391. * Property already exists. Steps 5-6 detect whether any changes need
  50392. * to be made.
  50393. */
  50394. if (has_enumerable) {
  50395. if (is_enumerable) {
  50396. if (!(curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE)) {
  50397. goto need_check;
  50398. }
  50399. } else {
  50400. if (curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE) {
  50401. goto need_check;
  50402. }
  50403. }
  50404. }
  50405. if (has_configurable) {
  50406. if (is_configurable) {
  50407. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE)) {
  50408. goto need_check;
  50409. }
  50410. } else {
  50411. if (curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) {
  50412. goto need_check;
  50413. }
  50414. }
  50415. }
  50416. if (has_value) {
  50417. duk_tval *tmp1;
  50418. duk_tval *tmp2;
  50419. /* attempt to change from accessor to data property */
  50420. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50421. goto need_check;
  50422. }
  50423. tmp1 = duk_require_tval(thr, -1); /* curr value */
  50424. tmp2 = duk_require_tval(thr, idx_value); /* new value */
  50425. if (!duk_js_samevalue(tmp1, tmp2)) {
  50426. goto need_check;
  50427. }
  50428. }
  50429. if (has_writable) {
  50430. /* attempt to change from accessor to data property */
  50431. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50432. goto need_check;
  50433. }
  50434. if (is_writable) {
  50435. if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE)) {
  50436. goto need_check;
  50437. }
  50438. } else {
  50439. if (curr.flags & DUK_PROPDESC_FLAG_WRITABLE) {
  50440. goto need_check;
  50441. }
  50442. }
  50443. }
  50444. if (has_set) {
  50445. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50446. if (set != curr.set) {
  50447. goto need_check;
  50448. }
  50449. } else {
  50450. goto need_check;
  50451. }
  50452. }
  50453. if (has_get) {
  50454. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50455. if (get != curr.get) {
  50456. goto need_check;
  50457. }
  50458. } else {
  50459. goto need_check;
  50460. }
  50461. }
  50462. /* property exists, either 'desc' is empty, or all values
  50463. * match (SameValue)
  50464. */
  50465. goto success_no_exotics;
  50466. need_check:
  50467. /*
  50468. * Some change(s) need to be made. Steps 7-11.
  50469. */
  50470. /* shared checks for all descriptor types */
  50471. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) {
  50472. if (has_configurable && is_configurable) {
  50473. goto fail_not_configurable;
  50474. }
  50475. if (has_enumerable) {
  50476. if (curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE) {
  50477. if (!is_enumerable) {
  50478. goto fail_not_configurable;
  50479. }
  50480. } else {
  50481. if (is_enumerable) {
  50482. goto fail_not_configurable;
  50483. }
  50484. }
  50485. }
  50486. }
  50487. /* Virtual properties don't have backing so they can't mostly be
  50488. * edited. Some virtual properties are, however, writable: for
  50489. * example, virtual index properties of buffer objects and Array
  50490. * instance .length. These are not configurable so the checks
  50491. * above mostly cover attempts to change them, except when the
  50492. * duk_def_prop() call is used with DUK_DEFPROP_FORCE; even in
  50493. * that case we can't forcibly change the property attributes
  50494. * because they don't have concrete backing.
  50495. */
  50496. /* XXX: for ROM objects too it'd be best if value modify was
  50497. * allowed if the value matches SameValue.
  50498. */
  50499. /* Reject attempt to change a read-only object. */
  50500. #if defined(DUK_USE_ROM_OBJECTS)
  50501. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  50502. DUK_DD(DUK_DDPRINT("attempt to define property on read-only target object"));
  50503. goto fail_not_configurable;
  50504. }
  50505. #endif
  50506. /* descriptor type specific checks */
  50507. if (has_set || has_get) {
  50508. /* IsAccessorDescriptor(desc) == true */
  50509. DUK_ASSERT(!has_writable);
  50510. DUK_ASSERT(!has_value);
  50511. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50512. /* curr and desc are accessors */
  50513. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) {
  50514. if (has_set && set != curr.set) {
  50515. goto fail_not_configurable;
  50516. }
  50517. if (has_get && get != curr.get) {
  50518. goto fail_not_configurable;
  50519. }
  50520. }
  50521. } else {
  50522. duk_bool_t rc;
  50523. duk_tval *tv1;
  50524. /* curr is data, desc is accessor */
  50525. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) {
  50526. goto fail_not_configurable;
  50527. }
  50528. DUK_DDD(DUK_DDDPRINT("convert property to accessor property"));
  50529. if (curr.a_idx >= 0) {
  50530. DUK_DDD(DUK_DDDPRINT("property to convert is stored in an array entry, abandon array and re-lookup"));
  50531. duk__abandon_array_checked(thr, obj);
  50532. duk_pop_unsafe(thr); /* remove old value */
  50533. rc = duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE);
  50534. DUK_UNREF(rc);
  50535. DUK_ASSERT(rc != 0);
  50536. DUK_ASSERT(curr.e_idx >= 0 && curr.a_idx < 0);
  50537. }
  50538. if (curr.e_idx < 0) {
  50539. DUK_ASSERT(curr.a_idx < 0 && curr.e_idx < 0);
  50540. goto fail_virtual; /* safeguard for virtual property */
  50541. }
  50542. DUK_ASSERT(curr.e_idx >= 0);
  50543. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx));
  50544. tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx);
  50545. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv1); /* XXX: just decref */
  50546. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, NULL);
  50547. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, NULL);
  50548. DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(thr->heap, obj, curr.e_idx);
  50549. DUK_HOBJECT_E_SLOT_SET_ACCESSOR(thr->heap, obj, curr.e_idx);
  50550. DUK_DDD(DUK_DDDPRINT("flags after data->accessor conversion: 0x%02lx",
  50551. (unsigned long) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, curr.e_idx)));
  50552. /* Update curr.flags; faster than a re-lookup. */
  50553. curr.flags &= ~DUK_PROPDESC_FLAG_WRITABLE;
  50554. curr.flags |= DUK_PROPDESC_FLAG_ACCESSOR;
  50555. }
  50556. } else if (has_value || has_writable) {
  50557. /* IsDataDescriptor(desc) == true */
  50558. DUK_ASSERT(!has_set);
  50559. DUK_ASSERT(!has_get);
  50560. if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  50561. duk_hobject *tmp;
  50562. /* curr is accessor, desc is data */
  50563. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) {
  50564. goto fail_not_configurable;
  50565. }
  50566. /* curr is accessor -> cannot be in array part. */
  50567. DUK_ASSERT(curr.a_idx < 0);
  50568. if (curr.e_idx < 0) {
  50569. goto fail_virtual; /* safeguard; no virtual accessors now */
  50570. }
  50571. DUK_DDD(DUK_DDDPRINT("convert property to data property"));
  50572. DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx));
  50573. tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, curr.e_idx);
  50574. DUK_UNREF(tmp);
  50575. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, NULL);
  50576. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp);
  50577. tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, curr.e_idx);
  50578. DUK_UNREF(tmp);
  50579. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, NULL);
  50580. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp);
  50581. DUK_TVAL_SET_UNDEFINED(DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx));
  50582. DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(thr->heap, obj, curr.e_idx);
  50583. DUK_HOBJECT_E_SLOT_CLEAR_ACCESSOR(thr->heap, obj, curr.e_idx);
  50584. DUK_DDD(DUK_DDDPRINT("flags after accessor->data conversion: 0x%02lx",
  50585. (unsigned long) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, curr.e_idx)));
  50586. /* Update curr.flags; faster than a re-lookup. */
  50587. curr.flags &= ~(DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_ACCESSOR);
  50588. } else {
  50589. /* curr and desc are data */
  50590. if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) {
  50591. if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE) && has_writable && is_writable) {
  50592. goto fail_not_configurable;
  50593. }
  50594. /* Note: changing from writable to non-writable is OK */
  50595. if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE) && has_value) {
  50596. duk_tval *tmp1 = duk_require_tval(thr, -1); /* curr value */
  50597. duk_tval *tmp2 = duk_require_tval(thr, idx_value); /* new value */
  50598. if (!duk_js_samevalue(tmp1, tmp2)) {
  50599. goto fail_not_configurable;
  50600. }
  50601. }
  50602. }
  50603. }
  50604. } else {
  50605. /* IsGenericDescriptor(desc) == true; this means in practice that 'desc'
  50606. * only has [[Enumerable]] or [[Configurable]] flag updates, which are
  50607. * allowed at this point.
  50608. */
  50609. DUK_ASSERT(!has_value && !has_writable && !has_get && !has_set);
  50610. }
  50611. /*
  50612. * Start doing property attributes updates. Steps 12-13.
  50613. *
  50614. * Start by computing new attribute flags without writing yet.
  50615. * Property type conversion is done above if necessary.
  50616. */
  50617. new_flags = curr.flags;
  50618. if (has_enumerable) {
  50619. if (is_enumerable) {
  50620. new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE;
  50621. } else {
  50622. new_flags &= ~DUK_PROPDESC_FLAG_ENUMERABLE;
  50623. }
  50624. }
  50625. if (has_configurable) {
  50626. if (is_configurable) {
  50627. new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE;
  50628. } else {
  50629. new_flags &= ~DUK_PROPDESC_FLAG_CONFIGURABLE;
  50630. }
  50631. }
  50632. if (has_writable) {
  50633. if (is_writable) {
  50634. new_flags |= DUK_PROPDESC_FLAG_WRITABLE;
  50635. } else {
  50636. new_flags &= ~DUK_PROPDESC_FLAG_WRITABLE;
  50637. }
  50638. }
  50639. /* XXX: write protect after flag? -> any chance of handling it here? */
  50640. DUK_DDD(DUK_DDDPRINT("new flags that we want to write: 0x%02lx",
  50641. (unsigned long) new_flags));
  50642. /*
  50643. * Check whether we need to abandon an array part (if it exists)
  50644. */
  50645. if (curr.a_idx >= 0) {
  50646. duk_bool_t rc;
  50647. DUK_ASSERT(curr.e_idx < 0);
  50648. if (new_flags == DUK_PROPDESC_FLAGS_WEC) {
  50649. duk_tval *tv1, *tv2;
  50650. DUK_DDD(DUK_DDDPRINT("array index, new property attributes match array defaults, update in-place"));
  50651. DUK_ASSERT(curr.flags == DUK_PROPDESC_FLAGS_WEC); /* must have been, since in array part */
  50652. DUK_ASSERT(!has_set);
  50653. DUK_ASSERT(!has_get);
  50654. DUK_ASSERT(idx_value >= 0); /* must be: if attributes match and we get here the value must differ (otherwise no change) */
  50655. tv2 = duk_require_tval(thr, idx_value);
  50656. tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, curr.a_idx);
  50657. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects; may invalidate a_idx */
  50658. goto success_exotics;
  50659. }
  50660. DUK_DDD(DUK_DDDPRINT("array index, new property attributes do not match array defaults, abandon array and re-lookup"));
  50661. duk__abandon_array_checked(thr, obj);
  50662. duk_pop_unsafe(thr); /* remove old value */
  50663. rc = duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE);
  50664. DUK_UNREF(rc);
  50665. DUK_ASSERT(rc != 0);
  50666. DUK_ASSERT(curr.e_idx >= 0 && curr.a_idx < 0);
  50667. }
  50668. DUK_DDD(DUK_DDDPRINT("updating existing property in entry part"));
  50669. /* Array case is handled comprehensively above: either in entry
  50670. * part or a virtual property.
  50671. */
  50672. DUK_ASSERT(curr.a_idx < 0);
  50673. DUK_DDD(DUK_DDDPRINT("update existing property attributes"));
  50674. if (curr.e_idx >= 0) {
  50675. DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, curr.e_idx, new_flags);
  50676. } else {
  50677. /* For Array .length the only allowed transition is for .length
  50678. * to become non-writable.
  50679. */
  50680. if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  50681. duk_harray *a;
  50682. a = (duk_harray *) obj;
  50683. DUK_DD(DUK_DDPRINT("Object.defineProperty() attribute update for duk_harray .length -> %02lx", (unsigned long) new_flags));
  50684. DUK_ASSERT_HARRAY_VALID(a);
  50685. if ((new_flags & DUK_PROPDESC_FLAGS_EC) != (curr.flags & DUK_PROPDESC_FLAGS_EC)) {
  50686. DUK_D(DUK_DPRINT("Object.defineProperty() attempt to change virtual array .length enumerable or configurable attribute, fail"));
  50687. goto fail_virtual;
  50688. }
  50689. if (new_flags & DUK_PROPDESC_FLAG_WRITABLE) {
  50690. DUK_HARRAY_SET_LENGTH_WRITABLE(a);
  50691. } else {
  50692. DUK_HARRAY_SET_LENGTH_NONWRITABLE(a);
  50693. }
  50694. }
  50695. }
  50696. if (has_set) {
  50697. duk_hobject *tmp;
  50698. /* Virtual properties are non-configurable but with a 'force'
  50699. * flag we might come here so check explicitly for virtual.
  50700. */
  50701. if (curr.e_idx < 0) {
  50702. goto fail_virtual;
  50703. }
  50704. DUK_DDD(DUK_DDDPRINT("update existing property setter"));
  50705. DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx));
  50706. tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, curr.e_idx);
  50707. DUK_UNREF(tmp);
  50708. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, set);
  50709. DUK_HOBJECT_INCREF_ALLOWNULL(thr, set);
  50710. DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); /* side effects; may invalidate e_idx */
  50711. }
  50712. if (has_get) {
  50713. duk_hobject *tmp;
  50714. if (curr.e_idx < 0) {
  50715. goto fail_virtual;
  50716. }
  50717. DUK_DDD(DUK_DDDPRINT("update existing property getter"));
  50718. DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx));
  50719. tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, curr.e_idx);
  50720. DUK_UNREF(tmp);
  50721. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, get);
  50722. DUK_HOBJECT_INCREF_ALLOWNULL(thr, get);
  50723. DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); /* side effects; may invalidate e_idx */
  50724. }
  50725. if (has_value) {
  50726. duk_tval *tv1, *tv2;
  50727. DUK_DDD(DUK_DDDPRINT("update existing property value"));
  50728. if (curr.e_idx >= 0) {
  50729. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx));
  50730. tv2 = duk_require_tval(thr, idx_value);
  50731. tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx);
  50732. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects; may invalidate e_idx */
  50733. } else {
  50734. DUK_ASSERT(curr.a_idx < 0); /* array part case handled comprehensively previously */
  50735. DUK_DD(DUK_DDPRINT("Object.defineProperty(), value update for virtual property"));
  50736. /* XXX: Uint8Array and other typed array virtual writes not currently
  50737. * handled.
  50738. */
  50739. if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  50740. duk_harray *a;
  50741. a = (duk_harray *) obj;
  50742. DUK_DD(DUK_DDPRINT("Object.defineProperty() value update for duk_harray .length -> %ld", (long) arrlen_new_len));
  50743. DUK_ASSERT_HARRAY_VALID(a);
  50744. a->length = arrlen_new_len;
  50745. } else {
  50746. goto fail_virtual; /* should not happen */
  50747. }
  50748. }
  50749. }
  50750. /*
  50751. * Standard algorithm succeeded without errors, check for exotic post-behaviors.
  50752. *
  50753. * Arguments exotic behavior in E5 Section 10.6 occurs after the standard
  50754. * [[DefineOwnProperty]] has completed successfully.
  50755. *
  50756. * Array exotic behavior in E5 Section 15.4.5.1 is implemented partly
  50757. * prior to the default [[DefineOwnProperty]], but:
  50758. * - for an array index key (e.g. "10") the final 'length' update occurs here
  50759. * - for 'length' key the element deletion and 'length' update occurs here
  50760. */
  50761. success_exotics:
  50762. /* curr.a_idx or curr.e_idx may have been invalidated by side effects
  50763. * above.
  50764. */
  50765. /* [obj key desc value get set curr_value] */
  50766. if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) {
  50767. duk_harray *a;
  50768. a = (duk_harray *) obj;
  50769. DUK_ASSERT_HARRAY_VALID(a);
  50770. if (arridx_new_array_length > 0) {
  50771. /*
  50772. * Note: zero works as a "no update" marker because the new length
  50773. * can never be zero after a new property is written.
  50774. */
  50775. /* E5 Section 15.4.5.1, steps 4.e.i - 4.e.ii */
  50776. DUK_DDD(DUK_DDDPRINT("defineProperty successful, pending array length update to: %ld",
  50777. (long) arridx_new_array_length));
  50778. a->length = arridx_new_array_length;
  50779. }
  50780. if (key == DUK_HTHREAD_STRING_LENGTH(thr) && arrlen_new_len < arrlen_old_len) {
  50781. /*
  50782. * E5 Section 15.4.5.1, steps 3.k - 3.n. The order at the end combines
  50783. * the error case 3.l.iii and the success case 3.m-3.n.
  50784. */
  50785. /* XXX: investigate whether write protect can be handled above, if we
  50786. * just update length here while ignoring its protected status
  50787. */
  50788. duk_uint32_t result_len;
  50789. duk_bool_t rc;
  50790. DUK_DDD(DUK_DDDPRINT("defineProperty successful, key is 'length', exotic array behavior, "
  50791. "doing array element deletion and length update"));
  50792. rc = duk__handle_put_array_length_smaller(thr, obj, arrlen_old_len, arrlen_new_len, force_flag, &result_len);
  50793. /* update length (curr points to length, and we assume it's still valid) */
  50794. DUK_ASSERT(result_len >= arrlen_new_len && result_len <= arrlen_old_len);
  50795. a->length = result_len;
  50796. if (pending_write_protect) {
  50797. DUK_DDD(DUK_DDDPRINT("setting array length non-writable (pending writability update)"));
  50798. DUK_HARRAY_SET_LENGTH_NONWRITABLE(a);
  50799. }
  50800. /* XXX: shrink array allocation or entries compaction here? */
  50801. if (!rc) {
  50802. DUK_DD(DUK_DDPRINT("array length write only partially successful"));
  50803. goto fail_not_configurable;
  50804. }
  50805. }
  50806. } else if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)) {
  50807. duk_hobject *map;
  50808. duk_hobject *varenv;
  50809. DUK_ASSERT(arridx_new_array_length == 0);
  50810. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)); /* traits are separate; in particular, arguments not an array */
  50811. map = NULL;
  50812. varenv = NULL;
  50813. if (!duk__lookup_arguments_map(thr, obj, key, &curr, &map, &varenv)) {
  50814. goto success_no_exotics;
  50815. }
  50816. DUK_ASSERT(map != NULL);
  50817. DUK_ASSERT(varenv != NULL);
  50818. /* [obj key desc value get set curr_value varname] */
  50819. if (has_set || has_get) {
  50820. /* = IsAccessorDescriptor(Desc) */
  50821. DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map' "
  50822. "changed to an accessor, delete arguments binding"));
  50823. (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */
  50824. } else {
  50825. /* Note: this order matters (final value before deleting map entry must be done) */
  50826. DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', "
  50827. "check for value update / binding deletion"));
  50828. if (has_value) {
  50829. duk_hstring *varname;
  50830. DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', "
  50831. "update bound value (variable/argument)"));
  50832. varname = duk_require_hstring(thr, -1);
  50833. DUK_ASSERT(varname != NULL);
  50834. DUK_DDD(DUK_DDDPRINT("arguments object automatic putvar for a bound variable; "
  50835. "key=%!O, varname=%!O, value=%!T",
  50836. (duk_heaphdr *) key,
  50837. (duk_heaphdr *) varname,
  50838. (duk_tval *) duk_require_tval(thr, idx_value)));
  50839. /* strict flag for putvar comes from our caller (currently: fixed) */
  50840. duk_js_putvar_envrec(thr, varenv, varname, duk_require_tval(thr, idx_value), 1 /*throw_flag*/);
  50841. }
  50842. if (has_writable && !is_writable) {
  50843. DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', "
  50844. "changed to non-writable, delete arguments binding"));
  50845. (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */
  50846. }
  50847. }
  50848. /* 'varname' is in stack in this else branch, leaving an unbalanced stack below,
  50849. * but this doesn't matter now.
  50850. */
  50851. }
  50852. success_no_exotics:
  50853. /* Some code paths use NORZ macros for simplicity, ensure refzero
  50854. * handling is completed.
  50855. */
  50856. DUK_REFZERO_CHECK_SLOW(thr);
  50857. return 1;
  50858. fail_not_extensible:
  50859. if (throw_flag) {
  50860. DUK_ERROR_TYPE(thr, DUK_STR_NOT_EXTENSIBLE);
  50861. }
  50862. return 0;
  50863. fail_virtual: /* just use the same "not configurable" error message" */
  50864. fail_not_configurable:
  50865. if (throw_flag) {
  50866. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE);
  50867. }
  50868. return 0;
  50869. }
  50870. /*
  50871. * Object.prototype.hasOwnProperty() and Object.prototype.propertyIsEnumerable().
  50872. */
  50873. DUK_INTERNAL duk_bool_t duk_hobject_object_ownprop_helper(duk_hthread *thr, duk_small_uint_t required_desc_flags) {
  50874. duk_hstring *h_v;
  50875. duk_hobject *h_obj;
  50876. duk_propdesc desc;
  50877. duk_bool_t ret;
  50878. /* coercion order matters */
  50879. h_v = duk_to_hstring_acceptsymbol(thr, 0);
  50880. DUK_ASSERT(h_v != NULL);
  50881. h_obj = duk_push_this_coercible_to_object(thr);
  50882. DUK_ASSERT(h_obj != NULL);
  50883. ret = duk_hobject_get_own_propdesc(thr, h_obj, h_v, &desc, 0 /*flags*/); /* don't push value */
  50884. duk_push_boolean(thr, ret && ((desc.flags & required_desc_flags) == required_desc_flags));
  50885. return 1;
  50886. }
  50887. /*
  50888. * Object.seal() and Object.freeze() (E5 Sections 15.2.3.8 and 15.2.3.9)
  50889. *
  50890. * Since the algorithms are similar, a helper provides both functions.
  50891. * Freezing is essentially sealing + making plain properties non-writable.
  50892. *
  50893. * Note: virtual (non-concrete) properties which are non-configurable but
  50894. * writable would pose some problems, but such properties do not currently
  50895. * exist (all virtual properties are non-configurable and non-writable).
  50896. * If they did exist, the non-configurability does NOT prevent them from
  50897. * becoming non-writable. However, this change should be recorded somehow
  50898. * so that it would turn up (e.g. when getting the property descriptor),
  50899. * requiring some additional flags in the object.
  50900. */
  50901. DUK_INTERNAL void duk_hobject_object_seal_freeze_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_freeze) {
  50902. duk_uint_fast32_t i;
  50903. DUK_ASSERT(thr != NULL);
  50904. DUK_ASSERT(thr->heap != NULL);
  50905. DUK_ASSERT(obj != NULL);
  50906. DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE);
  50907. #if defined(DUK_USE_ROM_OBJECTS)
  50908. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) {
  50909. DUK_DD(DUK_DDPRINT("attempt to seal/freeze a readonly object, reject"));
  50910. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE);
  50911. }
  50912. #endif
  50913. /*
  50914. * Abandon array part because all properties must become non-configurable.
  50915. * Note that this is now done regardless of whether this is always the case
  50916. * (skips check, but performance problem if caller would do this many times
  50917. * for the same object; not likely).
  50918. */
  50919. duk__abandon_array_checked(thr, obj);
  50920. DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(obj) == 0);
  50921. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  50922. duk_uint8_t *fp;
  50923. /* since duk__abandon_array_checked() causes a resize, there should be no gaps in keys */
  50924. DUK_ASSERT(DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i) != NULL);
  50925. /* avoid multiple computations of flags address; bypasses macros */
  50926. fp = DUK_HOBJECT_E_GET_FLAGS_PTR(thr->heap, obj, i);
  50927. if (is_freeze && !((*fp) & DUK_PROPDESC_FLAG_ACCESSOR)) {
  50928. *fp &= ~(DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_CONFIGURABLE);
  50929. } else {
  50930. *fp &= ~DUK_PROPDESC_FLAG_CONFIGURABLE;
  50931. }
  50932. }
  50933. DUK_HOBJECT_CLEAR_EXTENSIBLE(obj);
  50934. /* no need to compact since we already did that in duk__abandon_array_checked()
  50935. * (regardless of whether an array part existed or not.
  50936. */
  50937. return;
  50938. }
  50939. /*
  50940. * Object.isSealed() and Object.isFrozen() (E5 Sections 15.2.3.11, 15.2.3.13)
  50941. *
  50942. * Since the algorithms are similar, a helper provides both functions.
  50943. * Freezing is essentially sealing + making plain properties non-writable.
  50944. *
  50945. * Note: all virtual (non-concrete) properties are currently non-configurable
  50946. * and non-writable (and there are no accessor virtual properties), so they don't
  50947. * need to be considered here now.
  50948. */
  50949. DUK_INTERNAL duk_bool_t duk_hobject_object_is_sealed_frozen_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_frozen) {
  50950. duk_uint_fast32_t i;
  50951. DUK_ASSERT(obj != NULL);
  50952. DUK_UNREF(thr);
  50953. /* Note: no allocation pressure, no need to check refcounts etc */
  50954. /* must not be extensible */
  50955. if (DUK_HOBJECT_HAS_EXTENSIBLE(obj)) {
  50956. return 0;
  50957. }
  50958. /* all virtual properties are non-configurable and non-writable */
  50959. /* entry part must not contain any configurable properties, or
  50960. * writable properties (if is_frozen).
  50961. */
  50962. for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) {
  50963. duk_small_uint_t flags;
  50964. if (!DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i)) {
  50965. continue;
  50966. }
  50967. /* avoid multiple computations of flags address; bypasses macros */
  50968. flags = (duk_small_uint_t) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, i);
  50969. if (flags & DUK_PROPDESC_FLAG_CONFIGURABLE) {
  50970. return 0;
  50971. }
  50972. if (is_frozen &&
  50973. !(flags & DUK_PROPDESC_FLAG_ACCESSOR) &&
  50974. (flags & DUK_PROPDESC_FLAG_WRITABLE)) {
  50975. return 0;
  50976. }
  50977. }
  50978. /* array part must not contain any non-unused properties, as they would
  50979. * be configurable and writable.
  50980. */
  50981. for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) {
  50982. duk_tval *tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i);
  50983. if (!DUK_TVAL_IS_UNUSED(tv)) {
  50984. return 0;
  50985. }
  50986. }
  50987. return 1;
  50988. }
  50989. /*
  50990. * Object.preventExtensions() and Object.isExtensible() (E5 Sections 15.2.3.10, 15.2.3.13)
  50991. *
  50992. * Not needed, implemented by macros DUK_HOBJECT_{HAS,CLEAR,SET}_EXTENSIBLE
  50993. * and the Object built-in bindings.
  50994. */
  50995. /* automatic undefs */
  50996. #undef DUK__HASH_DELETED
  50997. #undef DUK__HASH_UNUSED
  50998. #undef DUK__NO_ARRAY_INDEX
  50999. #undef DUK__VALSTACK_PROXY_LOOKUP
  51000. #undef DUK__VALSTACK_SPACE
  51001. #line 1 "duk_hstring_misc.c"
  51002. /*
  51003. * Misc support functions
  51004. */
  51005. /* #include duk_internal.h -> already included */
  51006. /*
  51007. * duk_hstring charCodeAt, with and without surrogate awareness
  51008. */
  51009. DUK_INTERNAL duk_ucodepoint_t duk_hstring_char_code_at_raw(duk_hthread *thr, duk_hstring *h, duk_uint_t pos, duk_bool_t surrogate_aware) {
  51010. duk_uint32_t boff;
  51011. const duk_uint8_t *p, *p_start, *p_end;
  51012. duk_ucodepoint_t cp1;
  51013. duk_ucodepoint_t cp2;
  51014. /* Caller must check character offset to be inside the string. */
  51015. DUK_ASSERT(thr != NULL);
  51016. DUK_ASSERT(h != NULL);
  51017. DUK_ASSERT_DISABLE(pos >= 0); /* unsigned */
  51018. DUK_ASSERT(pos < (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h));
  51019. boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint32_t) pos);
  51020. DUK_DDD(DUK_DDDPRINT("charCodeAt: pos=%ld -> boff=%ld, str=%!O",
  51021. (long) pos, (long) boff, (duk_heaphdr *) h));
  51022. DUK_ASSERT_DISABLE(boff >= 0);
  51023. DUK_ASSERT(boff < DUK_HSTRING_GET_BYTELEN(h));
  51024. p_start = DUK_HSTRING_GET_DATA(h);
  51025. p_end = p_start + DUK_HSTRING_GET_BYTELEN(h);
  51026. p = p_start + boff;
  51027. DUK_DDD(DUK_DDDPRINT("p_start=%p, p_end=%p, p=%p",
  51028. (const void *) p_start, (const void *) p_end,
  51029. (const void *) p));
  51030. /* For invalid UTF-8 (never happens for standard Ecmascript strings)
  51031. * return U+FFFD replacement character.
  51032. */
  51033. if (duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp1)) {
  51034. if (surrogate_aware && cp1 >= 0xd800UL && cp1 <= 0xdbffUL) {
  51035. /* The decode helper is memory safe even if 'cp1' was
  51036. * decoded at the end of the string and 'p' is no longer
  51037. * within string memory range.
  51038. */
  51039. cp2 = 0; /* If call fails, this is left untouched and won't match cp2 check. */
  51040. (void) duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp2);
  51041. if (cp2 >= 0xdc00UL && cp2 <= 0xdfffUL) {
  51042. cp1 = (duk_ucodepoint_t) (((cp1 - 0xd800UL) << 10) + (cp2 - 0xdc00UL) + 0x10000UL);
  51043. }
  51044. }
  51045. } else {
  51046. cp1 = DUK_UNICODE_CP_REPLACEMENT_CHARACTER;
  51047. }
  51048. return cp1;
  51049. }
  51050. /*
  51051. * duk_hstring charlen, when lazy charlen disabled
  51052. */
  51053. #if !defined(DUK_USE_HSTRING_LAZY_CLEN)
  51054. #if !defined(DUK_USE_HSTRING_CLEN)
  51055. #error non-lazy duk_hstring charlen but DUK_USE_HSTRING_CLEN not set
  51056. #endif
  51057. DUK_INTERNAL void duk_hstring_init_charlen(duk_hstring *h) {
  51058. duk_uint32_t clen;
  51059. DUK_ASSERT(h != NULL);
  51060. DUK_ASSERT(!DUK_HSTRING_HAS_ASCII(h));
  51061. DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h));
  51062. clen = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  51063. #if defined(DUK_USE_STRLEN16)
  51064. DUK_ASSERT(clen <= 0xffffUL); /* Bytelength checked during interning. */
  51065. h->clen16 = (duk_uint16_t) clen;
  51066. #else
  51067. h->clen = (duk_uint32_t) clen;
  51068. #endif
  51069. if (DUK_LIKELY(clen == DUK_HSTRING_GET_BYTELEN(h))) {
  51070. DUK_HSTRING_SET_ASCII(h);
  51071. }
  51072. }
  51073. DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) {
  51074. #if defined(DUK_USE_STRLEN16)
  51075. return h->clen16;
  51076. #else
  51077. return h->clen;
  51078. #endif
  51079. }
  51080. #endif /* !DUK_USE_HSTRING_LAZY_CLEN */
  51081. /*
  51082. * duk_hstring charlen, when lazy charlen enabled
  51083. */
  51084. #if defined(DUK_USE_HSTRING_LAZY_CLEN)
  51085. #if defined(DUK_USE_HSTRING_CLEN)
  51086. DUK_LOCAL DUK_COLD duk_size_t duk__hstring_get_charlen_slowpath(duk_hstring *h) {
  51087. duk_size_t res;
  51088. DUK_ASSERT(h->clen == 0); /* Checked by caller. */
  51089. #if defined(DUK_USE_ROM_STRINGS)
  51090. /* ROM strings have precomputed clen, but if the computed clen is zero
  51091. * we can still come here and can't write anything.
  51092. */
  51093. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) {
  51094. return 0;
  51095. }
  51096. #endif
  51097. res = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  51098. #if defined(DUK_USE_STRLEN16)
  51099. DUK_ASSERT(res <= 0xffffUL); /* Bytelength checked during interning. */
  51100. h->clen16 = (duk_uint16_t) res;
  51101. #else
  51102. h->clen = (duk_uint32_t) res;
  51103. #endif
  51104. if (DUK_LIKELY(res == DUK_HSTRING_GET_BYTELEN(h))) {
  51105. DUK_HSTRING_SET_ASCII(h);
  51106. }
  51107. return res;
  51108. }
  51109. #else /* DUK_USE_HSTRING_CLEN */
  51110. DUK_LOCAL duk_size_t duk__hstring_get_charlen_slowpath(duk_hstring *h) {
  51111. if (DUK_LIKELY(DUK_HSTRING_HAS_ASCII(h))) {
  51112. /* Most practical strings will go here. */
  51113. return DUK_HSTRING_GET_BYTELEN(h);
  51114. } else {
  51115. /* ASCII flag is lazy, so set it here. */
  51116. duk_size_t res;
  51117. /* XXX: here we could use the strcache to speed up the
  51118. * computation (matters for 'i < str.length' loops).
  51119. */
  51120. res = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h));
  51121. #if defined(DUK_USE_ROM_STRINGS)
  51122. if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) {
  51123. /* For ROM strings, can't write anything; ASCII flag
  51124. * is preset so we don't need to update it.
  51125. */
  51126. return res;
  51127. }
  51128. #endif
  51129. if (DUK_LIKELY(res == DUK_HSTRING_GET_BYTELEN(h))) {
  51130. DUK_HSTRING_SET_ASCII(h);
  51131. }
  51132. return res;
  51133. }
  51134. }
  51135. #endif /* DUK_USE_HSTRING_CLEN */
  51136. #if defined(DUK_USE_HSTRING_CLEN)
  51137. DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) {
  51138. #if defined(DUK_USE_STRLEN16)
  51139. if (DUK_LIKELY(h->clen16 != 0)) {
  51140. return h->clen16;
  51141. }
  51142. #else
  51143. if (DUK_LIKELY(h->clen != 0)) {
  51144. return h->clen;
  51145. }
  51146. #endif
  51147. return duk__hstring_get_charlen_slowpath(h);
  51148. }
  51149. #else /* DUK_USE_HSTRING_CLEN */
  51150. DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) {
  51151. /* Always use slow path. */
  51152. return duk__hstring_get_charlen_slowpath(h);
  51153. }
  51154. #endif /* DUK_USE_HSTRING_CLEN */
  51155. #endif /* DUK_USE_HSTRING_LAZY_CLEN */
  51156. /*
  51157. * Compare duk_hstring to an ASCII cstring.
  51158. */
  51159. DUK_INTERNAL duk_bool_t duk_hstring_equals_ascii_cstring(duk_hstring *h, const char *cstr) {
  51160. duk_size_t len;
  51161. DUK_ASSERT(h != NULL);
  51162. DUK_ASSERT(cstr != NULL);
  51163. len = DUK_STRLEN(cstr);
  51164. if (len != DUK_HSTRING_GET_BYTELEN(h)) {
  51165. return 0;
  51166. }
  51167. if (DUK_MEMCMP((const void *) cstr, (const void *) DUK_HSTRING_GET_DATA(h), len) == 0) {
  51168. return 1;
  51169. }
  51170. return 0;
  51171. }
  51172. #line 1 "duk_hthread_alloc.c"
  51173. /*
  51174. * duk_hthread allocation and freeing.
  51175. */
  51176. /* #include duk_internal.h -> already included */
  51177. /*
  51178. * Allocate initial stacks for a thread. Note that 'thr' must be reachable
  51179. * as a garbage collection may be triggered by the allocation attempts.
  51180. * Returns zero (without leaking memory) if init fails.
  51181. */
  51182. DUK_INTERNAL duk_bool_t duk_hthread_init_stacks(duk_heap *heap, duk_hthread *thr) {
  51183. duk_size_t alloc_size;
  51184. duk_size_t i;
  51185. DUK_ASSERT(heap != NULL);
  51186. DUK_ASSERT(thr != NULL);
  51187. DUK_ASSERT(thr->valstack == NULL);
  51188. DUK_ASSERT(thr->valstack_end == NULL);
  51189. DUK_ASSERT(thr->valstack_alloc_end == NULL);
  51190. DUK_ASSERT(thr->valstack_bottom == NULL);
  51191. DUK_ASSERT(thr->valstack_top == NULL);
  51192. DUK_ASSERT(thr->callstack_curr == NULL);
  51193. /* valstack */
  51194. DUK_ASSERT(DUK_VALSTACK_API_ENTRY_MINIMUM <= DUK_VALSTACK_INITIAL_SIZE);
  51195. alloc_size = sizeof(duk_tval) * DUK_VALSTACK_INITIAL_SIZE;
  51196. thr->valstack = (duk_tval *) DUK_ALLOC(heap, alloc_size);
  51197. if (!thr->valstack) {
  51198. goto fail;
  51199. }
  51200. DUK_MEMZERO(thr->valstack, alloc_size);
  51201. thr->valstack_end = thr->valstack + DUK_VALSTACK_API_ENTRY_MINIMUM;
  51202. thr->valstack_alloc_end = thr->valstack + DUK_VALSTACK_INITIAL_SIZE;
  51203. thr->valstack_bottom = thr->valstack;
  51204. thr->valstack_top = thr->valstack;
  51205. for (i = 0; i < DUK_VALSTACK_INITIAL_SIZE; i++) {
  51206. DUK_TVAL_SET_UNDEFINED(&thr->valstack[i]);
  51207. }
  51208. return 1;
  51209. fail:
  51210. DUK_FREE(heap, thr->valstack);
  51211. DUK_ASSERT(thr->callstack_curr == NULL);
  51212. thr->valstack = NULL;
  51213. return 0;
  51214. }
  51215. /* For indirect allocs. */
  51216. DUK_INTERNAL void *duk_hthread_get_valstack_ptr(duk_heap *heap, void *ud) {
  51217. duk_hthread *thr = (duk_hthread *) ud;
  51218. DUK_UNREF(heap);
  51219. return (void *) thr->valstack;
  51220. }
  51221. #line 1 "duk_hthread_builtins.c"
  51222. /*
  51223. * Initialize built-in objects. Current thread must have a valstack
  51224. * and initialization errors may longjmp, so a setjmp() catch point
  51225. * must exist.
  51226. */
  51227. /* #include duk_internal.h -> already included */
  51228. /*
  51229. * Encoding constants, must match genbuiltins.py
  51230. */
  51231. #define DUK__PROP_FLAGS_BITS 3
  51232. #define DUK__LENGTH_PROP_BITS 3
  51233. #define DUK__NARGS_BITS 3
  51234. #define DUK__PROP_TYPE_BITS 3
  51235. #define DUK__NARGS_VARARGS_MARKER 0x07
  51236. #define DUK__PROP_TYPE_DOUBLE 0
  51237. #define DUK__PROP_TYPE_STRING 1
  51238. #define DUK__PROP_TYPE_STRIDX 2
  51239. #define DUK__PROP_TYPE_BUILTIN 3
  51240. #define DUK__PROP_TYPE_UNDEFINED 4
  51241. #define DUK__PROP_TYPE_BOOLEAN_TRUE 5
  51242. #define DUK__PROP_TYPE_BOOLEAN_FALSE 6
  51243. #define DUK__PROP_TYPE_ACCESSOR 7
  51244. /*
  51245. * Create built-in objects by parsing an init bitstream generated
  51246. * by genbuiltins.py.
  51247. */
  51248. #if defined(DUK_USE_ROM_OBJECTS)
  51249. #if defined(DUK_USE_ROM_GLOBAL_CLONE) || defined(DUK_USE_ROM_GLOBAL_INHERIT)
  51250. DUK_LOCAL void duk__duplicate_ram_global_object(duk_hthread *thr) {
  51251. duk_hobject *h_global;
  51252. #if defined(DUK_USE_ROM_GLOBAL_CLONE)
  51253. duk_hobject *h_oldglobal;
  51254. duk_uint8_t *props;
  51255. duk_size_t alloc_size;
  51256. #endif
  51257. duk_hobject *h_objenv;
  51258. /* XXX: refactor into internal helper, duk_clone_hobject() */
  51259. #if defined(DUK_USE_ROM_GLOBAL_INHERIT)
  51260. /* Inherit from ROM-based global object: less RAM usage, less transparent. */
  51261. h_global = duk_push_object_helper(thr,
  51262. DUK_HOBJECT_FLAG_EXTENSIBLE |
  51263. DUK_HOBJECT_FLAG_FASTREFS |
  51264. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_GLOBAL),
  51265. DUK_BIDX_GLOBAL);
  51266. DUK_ASSERT(h_global != NULL);
  51267. #elif defined(DUK_USE_ROM_GLOBAL_CLONE)
  51268. /* Clone the properties of the ROM-based global object to create a
  51269. * fully RAM-based global object. Uses more memory than the inherit
  51270. * model but more compliant.
  51271. */
  51272. h_global = duk_push_object_helper(thr,
  51273. DUK_HOBJECT_FLAG_EXTENSIBLE |
  51274. DUK_HOBJECT_FLAG_FASTREFS |
  51275. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_GLOBAL),
  51276. DUK_BIDX_OBJECT_PROTOTYPE);
  51277. DUK_ASSERT(h_global != NULL);
  51278. h_oldglobal = thr->builtins[DUK_BIDX_GLOBAL];
  51279. DUK_ASSERT(h_oldglobal != NULL);
  51280. /* Copy the property table verbatim; this handles attributes etc.
  51281. * For ROM objects it's not necessary (or possible) to update
  51282. * refcounts so leave them as is.
  51283. */
  51284. alloc_size = DUK_HOBJECT_P_ALLOC_SIZE(h_oldglobal);
  51285. DUK_ASSERT(alloc_size > 0);
  51286. props = DUK_ALLOC_CHECKED(thr, alloc_size);
  51287. DUK_ASSERT(props != NULL);
  51288. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, h_oldglobal) != NULL);
  51289. DUK_MEMCPY((void *) props, (const void *) DUK_HOBJECT_GET_PROPS(thr->heap, h_oldglobal), alloc_size);
  51290. /* XXX: keep property attributes or tweak them here?
  51291. * Properties will now be non-configurable even when they're
  51292. * normally configurable for the global object.
  51293. */
  51294. DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, h_global) == NULL);
  51295. DUK_HOBJECT_SET_PROPS(thr->heap, h_global, props);
  51296. DUK_HOBJECT_SET_ESIZE(h_global, DUK_HOBJECT_GET_ESIZE(h_oldglobal));
  51297. DUK_HOBJECT_SET_ENEXT(h_global, DUK_HOBJECT_GET_ENEXT(h_oldglobal));
  51298. DUK_HOBJECT_SET_ASIZE(h_global, DUK_HOBJECT_GET_ASIZE(h_oldglobal));
  51299. DUK_HOBJECT_SET_HSIZE(h_global, DUK_HOBJECT_GET_HSIZE(h_oldglobal));
  51300. #else
  51301. #error internal error in config defines
  51302. #endif
  51303. duk_hobject_compact_props(thr, h_global);
  51304. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL);
  51305. DUK_ASSERT(!DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE((duk_heaphdr *) thr->builtins[DUK_BIDX_GLOBAL])); /* no need to decref: ROM object */
  51306. thr->builtins[DUK_BIDX_GLOBAL] = h_global;
  51307. DUK_HOBJECT_INCREF(thr, h_global);
  51308. DUK_D(DUK_DPRINT("duplicated global object: %!O", h_global));
  51309. /* Create a fresh object environment for the global scope. This is
  51310. * needed so that the global scope points to the newly created RAM-based
  51311. * global object.
  51312. */
  51313. h_objenv = (duk_hobject *) duk_hobjenv_alloc(thr,
  51314. DUK_HOBJECT_FLAG_EXTENSIBLE |
  51315. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV));
  51316. DUK_ASSERT(h_objenv != NULL);
  51317. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_objenv) == NULL);
  51318. duk_push_hobject(thr, h_objenv);
  51319. DUK_ASSERT(h_global != NULL);
  51320. ((duk_hobjenv *) h_objenv)->target = h_global;
  51321. DUK_HOBJECT_INCREF(thr, h_global);
  51322. DUK_ASSERT(((duk_hobjenv *) h_objenv)->has_this == 0);
  51323. DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL_ENV] != NULL);
  51324. DUK_ASSERT(!DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE((duk_heaphdr *) thr->builtins[DUK_BIDX_GLOBAL_ENV])); /* no need to decref: ROM object */
  51325. thr->builtins[DUK_BIDX_GLOBAL_ENV] = h_objenv;
  51326. DUK_HOBJECT_INCREF(thr, h_objenv);
  51327. DUK_D(DUK_DPRINT("duplicated global env: %!O", h_objenv));
  51328. DUK_ASSERT_HOBJENV_VALID((duk_hobjenv *) h_objenv);
  51329. duk_pop_2(thr); /* Pop global object and global env. */
  51330. }
  51331. #endif /* DUK_USE_ROM_GLOBAL_CLONE || DUK_USE_ROM_GLOBAL_INHERIT */
  51332. DUK_INTERNAL void duk_hthread_create_builtin_objects(duk_hthread *thr) {
  51333. /* Setup builtins from ROM objects. All heaps/threads will share
  51334. * the same readonly objects.
  51335. */
  51336. duk_small_uint_t i;
  51337. for (i = 0; i < DUK_NUM_BUILTINS; i++) {
  51338. duk_hobject *h;
  51339. h = (duk_hobject *) DUK_LOSE_CONST(duk_rom_builtins_bidx[i]);
  51340. DUK_ASSERT(h != NULL);
  51341. thr->builtins[i] = h;
  51342. }
  51343. #if defined(DUK_USE_ROM_GLOBAL_CLONE) || defined(DUK_USE_ROM_GLOBAL_INHERIT)
  51344. /* By default the global object is read-only which is often much
  51345. * more of an issue than having read-only built-in objects (like
  51346. * RegExp, Date, etc). Use a RAM-based copy of the global object
  51347. * and the global environment object for convenience.
  51348. */
  51349. duk__duplicate_ram_global_object(thr);
  51350. #endif
  51351. }
  51352. #else /* DUK_USE_ROM_OBJECTS */
  51353. DUK_LOCAL void duk__push_stridx(duk_hthread *thr, duk_bitdecoder_ctx *bd) {
  51354. duk_small_uint_t n;
  51355. n = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51356. DUK_ASSERT_DISABLE(n >= 0); /* unsigned */
  51357. DUK_ASSERT(n < DUK_HEAP_NUM_STRINGS);
  51358. duk_push_hstring_stridx(thr, n);
  51359. }
  51360. DUK_LOCAL void duk__push_string(duk_hthread *thr, duk_bitdecoder_ctx *bd) {
  51361. /* XXX: built-ins data could provide a maximum length that is
  51362. * actually needed; bitpacked max length is now 256 bytes.
  51363. */
  51364. duk_uint8_t tmp[DUK_BD_BITPACKED_STRING_MAXLEN];
  51365. duk_small_uint_t len;
  51366. len = duk_bd_decode_bitpacked_string(bd, tmp);
  51367. duk_push_lstring(thr, (const char *) tmp, (duk_size_t) len);
  51368. }
  51369. DUK_LOCAL void duk__push_stridx_or_string(duk_hthread *thr, duk_bitdecoder_ctx *bd) {
  51370. duk_small_uint_t n;
  51371. n = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51372. if (n == 0) {
  51373. duk__push_string(thr, bd);
  51374. } else {
  51375. n--;
  51376. DUK_ASSERT(n < DUK_HEAP_NUM_STRINGS);
  51377. duk_push_hstring_stridx(thr, n);
  51378. }
  51379. }
  51380. DUK_LOCAL void duk__push_double(duk_hthread *thr, duk_bitdecoder_ctx *bd) {
  51381. duk_double_union du;
  51382. duk_small_uint_t i;
  51383. for (i = 0; i < 8; i++) {
  51384. /* Encoding endianness must match target memory layout,
  51385. * build scripts and genbuiltins.py must ensure this.
  51386. */
  51387. du.uc[i] = (duk_uint8_t) duk_bd_decode(bd, 8);
  51388. }
  51389. duk_push_number(thr, du.d); /* push operation normalizes NaNs */
  51390. }
  51391. DUK_INTERNAL void duk_hthread_create_builtin_objects(duk_hthread *thr) {
  51392. duk_bitdecoder_ctx bd_ctx;
  51393. duk_bitdecoder_ctx *bd = &bd_ctx; /* convenience */
  51394. duk_hobject *h;
  51395. duk_small_uint_t i, j;
  51396. DUK_D(DUK_DPRINT("INITBUILTINS BEGIN: DUK_NUM_BUILTINS=%d, DUK_NUM_BUILTINS_ALL=%d", (int) DUK_NUM_BUILTINS, (int) DUK_NUM_ALL_BUILTINS));
  51397. DUK_MEMZERO(&bd_ctx, sizeof(bd_ctx));
  51398. bd->data = (const duk_uint8_t *) duk_builtins_data;
  51399. bd->length = (duk_size_t) DUK_BUILTINS_DATA_LENGTH;
  51400. /*
  51401. * First create all built-in bare objects on the empty valstack.
  51402. *
  51403. * Built-ins in the index range [0,DUK_NUM_BUILTINS-1] have value
  51404. * stack indices matching their eventual thr->builtins[] index.
  51405. *
  51406. * Built-ins in the index range [DUK_NUM_BUILTINS,DUK_NUM_ALL_BUILTINS]
  51407. * will exist on the value stack during init but won't be placed
  51408. * into thr->builtins[]. These are objects referenced in some way
  51409. * from thr->builtins[] roots but which don't need to be indexed by
  51410. * Duktape through thr->builtins[] (e.g. user custom objects).
  51411. *
  51412. * Internal prototypes will be incorrect (NULL) at this stage.
  51413. */
  51414. duk_require_stack(thr, DUK_NUM_ALL_BUILTINS);
  51415. DUK_DD(DUK_DDPRINT("create empty built-ins"));
  51416. DUK_ASSERT_TOP(thr, 0);
  51417. for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) {
  51418. duk_small_uint_t class_num;
  51419. duk_small_int_t len = -1; /* must be signed */
  51420. class_num = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51421. len = (duk_small_int_t) duk_bd_decode_flagged_signed(bd, DUK__LENGTH_PROP_BITS, (duk_int32_t) -1 /*def_value*/);
  51422. if (class_num == DUK_HOBJECT_CLASS_FUNCTION) {
  51423. duk_small_uint_t natidx;
  51424. duk_small_int_t c_nargs; /* must hold DUK_VARARGS */
  51425. duk_c_function c_func;
  51426. duk_int16_t magic;
  51427. DUK_DDD(DUK_DDDPRINT("len=%ld", (long) len));
  51428. DUK_ASSERT(len >= 0);
  51429. natidx = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51430. DUK_ASSERT(natidx != 0);
  51431. c_func = duk_bi_native_functions[natidx];
  51432. DUK_ASSERT(c_func != NULL);
  51433. c_nargs = (duk_small_int_t) duk_bd_decode_flagged_signed(bd, DUK__NARGS_BITS, len /*def_value*/);
  51434. if (c_nargs == DUK__NARGS_VARARGS_MARKER) {
  51435. c_nargs = DUK_VARARGS;
  51436. }
  51437. /* XXX: set magic directly here? (it could share the c_nargs arg) */
  51438. (void) duk_push_c_function_builtin(thr, c_func, c_nargs);
  51439. h = duk_known_hobject(thr, -1);
  51440. /* Currently all built-in native functions are strict.
  51441. * duk_push_c_function() now sets strict flag, so
  51442. * assert for it.
  51443. */
  51444. DUK_ASSERT(DUK_HOBJECT_HAS_STRICT(h));
  51445. /* XXX: function properties */
  51446. duk__push_stridx_or_string(thr, bd);
  51447. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  51448. duk_xdef_prop_stridx_short(thr,
  51449. -2,
  51450. DUK_STRIDX_NAME,
  51451. DUK_PROPDESC_FLAGS_C);
  51452. #else
  51453. duk_pop(thr); /* Not very ideal but good enough for now. */
  51454. #endif
  51455. /* Almost all global level Function objects are constructable
  51456. * but not all: Function.prototype is a non-constructable,
  51457. * callable Function.
  51458. */
  51459. if (duk_bd_decode_flag(bd)) {
  51460. DUK_ASSERT(DUK_HOBJECT_HAS_CONSTRUCTABLE(h));
  51461. } else {
  51462. DUK_HOBJECT_CLEAR_CONSTRUCTABLE(h);
  51463. }
  51464. /* Cast converts magic to 16-bit signed value */
  51465. magic = (duk_int16_t) duk_bd_decode_varuint(bd);
  51466. ((duk_hnatfunc *) h)->magic = magic;
  51467. } else if (class_num == DUK_HOBJECT_CLASS_ARRAY) {
  51468. duk_push_array(thr);
  51469. } else if (class_num == DUK_HOBJECT_CLASS_OBJENV) {
  51470. duk_hobjenv *env;
  51471. duk_hobject *global;
  51472. DUK_ASSERT(i == DUK_BIDX_GLOBAL_ENV);
  51473. DUK_ASSERT(DUK_BIDX_GLOBAL_ENV > DUK_BIDX_GLOBAL);
  51474. env = duk_hobjenv_alloc(thr,
  51475. DUK_HOBJECT_FLAG_EXTENSIBLE |
  51476. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV));
  51477. DUK_ASSERT(env->target == NULL);
  51478. duk_push_hobject(thr, (duk_hobject *) env);
  51479. global = duk_known_hobject(thr, DUK_BIDX_GLOBAL);
  51480. DUK_ASSERT(global != NULL);
  51481. env->target = global;
  51482. DUK_HOBJECT_INCREF(thr, global);
  51483. DUK_ASSERT(env->has_this == 0);
  51484. DUK_ASSERT_HOBJENV_VALID(env);
  51485. } else {
  51486. DUK_ASSERT(class_num != DUK_HOBJECT_CLASS_DECENV);
  51487. (void) duk_push_object_helper(thr,
  51488. DUK_HOBJECT_FLAG_FASTREFS |
  51489. DUK_HOBJECT_FLAG_EXTENSIBLE,
  51490. -1); /* no prototype or class yet */
  51491. }
  51492. h = duk_known_hobject(thr, -1);
  51493. DUK_HOBJECT_SET_CLASS_NUMBER(h, class_num);
  51494. if (i < DUK_NUM_BUILTINS) {
  51495. thr->builtins[i] = h;
  51496. DUK_HOBJECT_INCREF(thr, &h->hdr);
  51497. }
  51498. if (len >= 0) {
  51499. /* In ES2015+ built-in function object .length property
  51500. * has property attributes C (configurable only):
  51501. * http://www.ecma-international.org/ecma-262/7.0/#sec-ecmascript-standard-built-in-objects
  51502. *
  51503. * Array.prototype remains an Array instance in ES2015+
  51504. * and its length has attributes W (writable only).
  51505. * Because .length is now virtual for duk_harray, it is
  51506. * not encoded explicitly in init data.
  51507. */
  51508. DUK_ASSERT(class_num != DUK_HOBJECT_CLASS_ARRAY); /* .length is virtual */
  51509. duk_push_int(thr, len);
  51510. duk_xdef_prop_stridx_short(thr,
  51511. -2,
  51512. DUK_STRIDX_LENGTH,
  51513. DUK_PROPDESC_FLAGS_C);
  51514. }
  51515. /* enable exotic behaviors last */
  51516. if (class_num == DUK_HOBJECT_CLASS_ARRAY) {
  51517. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(h)); /* set by duk_push_array() */
  51518. }
  51519. if (class_num == DUK_HOBJECT_CLASS_STRING) {
  51520. DUK_HOBJECT_SET_EXOTIC_STRINGOBJ(h);
  51521. }
  51522. /* some assertions */
  51523. DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h));
  51524. /* DUK_HOBJECT_FLAG_CONSTRUCTABLE varies */
  51525. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(h));
  51526. DUK_ASSERT(!DUK_HOBJECT_HAS_COMPFUNC(h));
  51527. /* DUK_HOBJECT_FLAG_NATFUNC varies */
  51528. DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(h));
  51529. DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(h) || class_num == DUK_HOBJECT_CLASS_ARRAY);
  51530. /* DUK_HOBJECT_FLAG_STRICT varies */
  51531. DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(h) || /* all native functions have NEWENV */
  51532. DUK_HOBJECT_HAS_NEWENV(h));
  51533. DUK_ASSERT(!DUK_HOBJECT_HAS_NAMEBINDING(h));
  51534. DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(h));
  51535. /* DUK_HOBJECT_FLAG_EXOTIC_ARRAY varies */
  51536. /* DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ varies */
  51537. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h));
  51538. DUK_DDD(DUK_DDDPRINT("created built-in %ld, class=%ld, length=%ld", (long) i, (long) class_num, (long) len));
  51539. }
  51540. /*
  51541. * Then decode the builtins init data (see genbuiltins.py) to
  51542. * init objects. Internal prototypes are set at this stage,
  51543. * with thr->builtins[] populated.
  51544. */
  51545. DUK_DD(DUK_DDPRINT("initialize built-in object properties"));
  51546. for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) {
  51547. duk_small_uint_t t;
  51548. duk_small_uint_t num;
  51549. DUK_DDD(DUK_DDDPRINT("initializing built-in object at index %ld", (long) i));
  51550. h = duk_known_hobject(thr, (duk_idx_t) i);
  51551. t = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51552. if (t > 0) {
  51553. t--;
  51554. DUK_DDD(DUK_DDDPRINT("set internal prototype: built-in %ld", (long) t));
  51555. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, duk_known_hobject(thr, (duk_idx_t) t));
  51556. } else if (DUK_HOBJECT_IS_NATFUNC(h)) {
  51557. /* Standard native built-ins cannot inherit from
  51558. * %NativeFunctionPrototype%, they are required to
  51559. * inherit from Function.prototype directly.
  51560. */
  51561. DUK_ASSERT(thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE] != NULL);
  51562. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  51563. }
  51564. t = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51565. if (t > 0) {
  51566. /* 'prototype' property for all built-in objects (which have it) has attributes:
  51567. * [[Writable]] = false,
  51568. * [[Enumerable]] = false,
  51569. * [[Configurable]] = false
  51570. */
  51571. t--;
  51572. DUK_DDD(DUK_DDDPRINT("set external prototype: built-in %ld", (long) t));
  51573. duk_dup(thr, (duk_idx_t) t);
  51574. duk_xdef_prop_stridx(thr, (duk_idx_t) i, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_NONE);
  51575. }
  51576. t = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51577. if (t > 0) {
  51578. /* 'constructor' property for all built-in objects (which have it) has attributes:
  51579. * [[Writable]] = true,
  51580. * [[Enumerable]] = false,
  51581. * [[Configurable]] = true
  51582. */
  51583. t--;
  51584. DUK_DDD(DUK_DDDPRINT("set external constructor: built-in %ld", (long) t));
  51585. duk_dup(thr, (duk_idx_t) t);
  51586. duk_xdef_prop_stridx(thr, (duk_idx_t) i, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC);
  51587. }
  51588. /* normal valued properties */
  51589. num = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51590. DUK_DDD(DUK_DDDPRINT("built-in object %ld, %ld normal valued properties", (long) i, (long) num));
  51591. for (j = 0; j < num; j++) {
  51592. duk_small_uint_t defprop_flags;
  51593. duk__push_stridx_or_string(thr, bd);
  51594. /*
  51595. * Property attribute defaults are defined in E5 Section 15 (first
  51596. * few pages); there is a default for all properties and a special
  51597. * default for 'length' properties. Variation from the defaults is
  51598. * signaled using a single flag bit in the bitstream.
  51599. */
  51600. if (duk_bd_decode_flag(bd)) {
  51601. defprop_flags = (duk_small_uint_t) duk_bd_decode(bd, DUK__PROP_FLAGS_BITS);
  51602. } else {
  51603. defprop_flags = DUK_PROPDESC_FLAGS_WC;
  51604. }
  51605. defprop_flags |= DUK_DEFPROP_FORCE |
  51606. DUK_DEFPROP_HAVE_VALUE |
  51607. DUK_DEFPROP_HAVE_WRITABLE |
  51608. DUK_DEFPROP_HAVE_ENUMERABLE |
  51609. DUK_DEFPROP_HAVE_CONFIGURABLE; /* Defaults for data properties. */
  51610. /* The writable, enumerable, configurable flags in prop_flags
  51611. * match both duk_def_prop() and internal property flags.
  51612. */
  51613. DUK_ASSERT(DUK_PROPDESC_FLAG_WRITABLE == DUK_DEFPROP_WRITABLE);
  51614. DUK_ASSERT(DUK_PROPDESC_FLAG_ENUMERABLE == DUK_DEFPROP_ENUMERABLE);
  51615. DUK_ASSERT(DUK_PROPDESC_FLAG_CONFIGURABLE == DUK_DEFPROP_CONFIGURABLE);
  51616. t = (duk_small_uint_t) duk_bd_decode(bd, DUK__PROP_TYPE_BITS);
  51617. DUK_DDD(DUK_DDDPRINT("built-in %ld, normal-valued property %ld, key %!T, flags 0x%02lx, type %ld",
  51618. (long) i, (long) j, duk_get_tval(thr, -1), (unsigned long) defprop_flags, (long) t));
  51619. switch (t) {
  51620. case DUK__PROP_TYPE_DOUBLE: {
  51621. duk__push_double(thr, bd);
  51622. break;
  51623. }
  51624. case DUK__PROP_TYPE_STRING: {
  51625. duk__push_string(thr, bd);
  51626. break;
  51627. }
  51628. case DUK__PROP_TYPE_STRIDX: {
  51629. duk__push_stridx(thr, bd);
  51630. break;
  51631. }
  51632. case DUK__PROP_TYPE_BUILTIN: {
  51633. duk_small_uint_t bidx;
  51634. bidx = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51635. duk_dup(thr, (duk_idx_t) bidx);
  51636. break;
  51637. }
  51638. case DUK__PROP_TYPE_UNDEFINED: {
  51639. duk_push_undefined(thr);
  51640. break;
  51641. }
  51642. case DUK__PROP_TYPE_BOOLEAN_TRUE: {
  51643. duk_push_true(thr);
  51644. break;
  51645. }
  51646. case DUK__PROP_TYPE_BOOLEAN_FALSE: {
  51647. duk_push_false(thr);
  51648. break;
  51649. }
  51650. case DUK__PROP_TYPE_ACCESSOR: {
  51651. duk_small_uint_t natidx_getter = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51652. duk_small_uint_t natidx_setter = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51653. duk_small_uint_t accessor_magic = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51654. duk_c_function c_func_getter;
  51655. duk_c_function c_func_setter;
  51656. DUK_DDD(DUK_DDDPRINT("built-in accessor property: objidx=%ld, key=%!T, getteridx=%ld, setteridx=%ld, flags=0x%04lx",
  51657. (long) i, duk_get_tval(thr, -1), (long) natidx_getter, (long) natidx_setter, (unsigned long) defprop_flags));
  51658. c_func_getter = duk_bi_native_functions[natidx_getter];
  51659. if (c_func_getter != NULL) {
  51660. duk_push_c_function_builtin_noconstruct(thr, c_func_getter, 0); /* always 0 args */
  51661. duk_set_magic(thr, -1, (duk_int_t) accessor_magic);
  51662. defprop_flags |= DUK_DEFPROP_HAVE_GETTER;
  51663. }
  51664. c_func_setter = duk_bi_native_functions[natidx_setter];
  51665. if (c_func_setter != NULL) {
  51666. duk_push_c_function_builtin_noconstruct(thr, c_func_setter, 1); /* always 1 arg */
  51667. duk_set_magic(thr, -1, (duk_int_t) accessor_magic);
  51668. defprop_flags |= DUK_DEFPROP_HAVE_SETTER;
  51669. }
  51670. /* Writable flag doesn't make sense for an accessor. */
  51671. DUK_ASSERT((defprop_flags & DUK_PROPDESC_FLAG_WRITABLE) == 0); /* genbuiltins.py ensures */
  51672. defprop_flags &= ~(DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_HAVE_WRITABLE);
  51673. defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_HAVE_CONFIGURABLE;
  51674. break;
  51675. }
  51676. default: {
  51677. /* exhaustive */
  51678. DUK_UNREACHABLE();
  51679. }
  51680. }
  51681. duk_def_prop(thr, (duk_idx_t) i, defprop_flags);
  51682. DUK_ASSERT_TOP(thr, DUK_NUM_ALL_BUILTINS);
  51683. }
  51684. /* native function properties */
  51685. num = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51686. DUK_DDD(DUK_DDDPRINT("built-in object %ld, %ld function valued properties", (long) i, (long) num));
  51687. for (j = 0; j < num; j++) {
  51688. duk_hstring *h_key;
  51689. duk_small_uint_t natidx;
  51690. duk_int_t c_nargs; /* must hold DUK_VARARGS */
  51691. duk_small_uint_t c_length;
  51692. duk_int16_t magic;
  51693. duk_c_function c_func;
  51694. duk_hnatfunc *h_func;
  51695. #if defined(DUK_USE_LIGHTFUNC_BUILTINS)
  51696. duk_small_int_t lightfunc_eligible;
  51697. #endif
  51698. duk__push_stridx_or_string(thr, bd);
  51699. h_key = duk_known_hstring(thr, -1);
  51700. DUK_UNREF(h_key);
  51701. natidx = (duk_small_uint_t) duk_bd_decode_varuint(bd);
  51702. c_length = (duk_small_uint_t) duk_bd_decode(bd, DUK__LENGTH_PROP_BITS);
  51703. c_nargs = (duk_int_t) duk_bd_decode_flagged(bd, DUK__NARGS_BITS, (duk_uint32_t) c_length /*def_value*/);
  51704. if (c_nargs == DUK__NARGS_VARARGS_MARKER) {
  51705. c_nargs = DUK_VARARGS;
  51706. }
  51707. c_func = duk_bi_native_functions[natidx];
  51708. DUK_DDD(DUK_DDDPRINT("built-in %ld, function-valued property %ld, key %!O, natidx %ld, length %ld, nargs %ld",
  51709. (long) i, (long) j, (duk_heaphdr *) h_key, (long) natidx, (long) c_length,
  51710. (c_nargs == DUK_VARARGS ? (long) -1 : (long) c_nargs)));
  51711. /* Cast converts magic to 16-bit signed value */
  51712. magic = (duk_int16_t) duk_bd_decode_varuint(bd);
  51713. #if defined(DUK_USE_LIGHTFUNC_BUILTINS)
  51714. lightfunc_eligible =
  51715. ((c_nargs >= DUK_LFUNC_NARGS_MIN && c_nargs <= DUK_LFUNC_NARGS_MAX) || (c_nargs == DUK_VARARGS)) &&
  51716. (c_length <= DUK_LFUNC_LENGTH_MAX) &&
  51717. (magic >= DUK_LFUNC_MAGIC_MIN && magic <= DUK_LFUNC_MAGIC_MAX);
  51718. /* These functions have trouble working as lightfuncs.
  51719. * Some of them have specific asserts and some may have
  51720. * additional properties (e.g. 'require.id' may be written).
  51721. */
  51722. if (c_func == duk_bi_global_object_eval) {
  51723. lightfunc_eligible = 0;
  51724. }
  51725. #if defined(DUK_USE_COROUTINE_SUPPORT)
  51726. if (c_func == duk_bi_thread_yield ||
  51727. c_func == duk_bi_thread_resume) {
  51728. lightfunc_eligible = 0;
  51729. }
  51730. #endif
  51731. if (c_func == duk_bi_function_prototype_call ||
  51732. c_func == duk_bi_function_prototype_apply ||
  51733. c_func == duk_bi_reflect_apply ||
  51734. c_func == duk_bi_reflect_construct) {
  51735. lightfunc_eligible = 0;
  51736. }
  51737. if (lightfunc_eligible) {
  51738. duk_tval tv_lfunc;
  51739. duk_small_uint_t lf_nargs = (duk_small_uint_t) (c_nargs == DUK_VARARGS ? DUK_LFUNC_NARGS_VARARGS : c_nargs);
  51740. duk_small_uint_t lf_flags = DUK_LFUNC_FLAGS_PACK(magic, c_length, lf_nargs);
  51741. DUK_TVAL_SET_LIGHTFUNC(&tv_lfunc, c_func, lf_flags);
  51742. duk_push_tval(thr, &tv_lfunc);
  51743. DUK_D(DUK_DPRINT("built-in function eligible as light function: i=%d, j=%d c_length=%ld, c_nargs=%ld, magic=%ld -> %!iT", (int) i, (int) j, (long) c_length, (long) c_nargs, (long) magic, duk_get_tval(thr, -1)));
  51744. goto lightfunc_skip;
  51745. }
  51746. DUK_D(DUK_DPRINT("built-in function NOT ELIGIBLE as light function: i=%d, j=%d c_length=%ld, c_nargs=%ld, magic=%ld", (int) i, (int) j, (long) c_length, (long) c_nargs, (long) magic));
  51747. #endif /* DUK_USE_LIGHTFUNC_BUILTINS */
  51748. /* [ (builtin objects) name ] */
  51749. duk_push_c_function_builtin_noconstruct(thr, c_func, c_nargs);
  51750. h_func = duk_known_hnatfunc(thr, -1);
  51751. DUK_UNREF(h_func);
  51752. /* XXX: add into init data? */
  51753. /* Special call handling, not described in init data. */
  51754. if (c_func == duk_bi_global_object_eval ||
  51755. c_func == duk_bi_function_prototype_call ||
  51756. c_func == duk_bi_function_prototype_apply ||
  51757. c_func == duk_bi_reflect_apply ||
  51758. c_func == duk_bi_reflect_construct) {
  51759. DUK_HOBJECT_SET_SPECIAL_CALL((duk_hobject *) h_func);
  51760. }
  51761. /* Currently all built-in native functions are strict.
  51762. * This doesn't matter for many functions, but e.g.
  51763. * String.prototype.charAt (and other string functions)
  51764. * rely on being strict so that their 'this' binding is
  51765. * not automatically coerced.
  51766. */
  51767. DUK_HOBJECT_SET_STRICT((duk_hobject *) h_func);
  51768. /* No built-in functions are constructable except the top
  51769. * level ones (Number, etc).
  51770. */
  51771. DUK_ASSERT(!DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) h_func));
  51772. /* XXX: any way to avoid decoding magic bit; there are quite
  51773. * many function properties and relatively few with magic values.
  51774. */
  51775. h_func->magic = magic;
  51776. /* [ (builtin objects) name func ] */
  51777. duk_push_uint(thr, c_length);
  51778. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C);
  51779. duk_dup_m2(thr);
  51780. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C);
  51781. /* XXX: other properties of function instances; 'arguments', 'caller'. */
  51782. DUK_DD(DUK_DDPRINT("built-in object %ld, function property %ld -> %!T",
  51783. (long) i, (long) j, (duk_tval *) duk_get_tval(thr, -1)));
  51784. /* [ (builtin objects) name func ] */
  51785. /*
  51786. * The default property attributes are correct for all
  51787. * function valued properties of built-in objects now.
  51788. */
  51789. #if defined(DUK_USE_LIGHTFUNC_BUILTINS)
  51790. lightfunc_skip:
  51791. #endif
  51792. /* XXX: So far all ES builtins are 'wc' but e.g.
  51793. * performance.now() should be 'wec'.
  51794. */
  51795. duk_xdef_prop(thr, (duk_idx_t) i, DUK_PROPDESC_FLAGS_WC);
  51796. /* [ (builtin objects) ] */
  51797. }
  51798. }
  51799. /*
  51800. * Special post-tweaks, for cases not covered by the init data format.
  51801. *
  51802. * - Set Date.prototype.toGMTString to Date.prototype.toUTCString.
  51803. * toGMTString is required to have the same Function object as
  51804. * toUTCString in E5 Section B.2.6. Note that while Smjs respects
  51805. * this, V8 does not (the Function objects are distinct).
  51806. *
  51807. * - Make DoubleError non-extensible.
  51808. *
  51809. * - Add info about most important effective compile options to Duktape.
  51810. *
  51811. * - Possibly remove some properties (values or methods) which are not
  51812. * desirable with current feature options but are not currently
  51813. * conditional in init data.
  51814. */
  51815. #if defined(DUK_USE_DATE_BUILTIN)
  51816. duk_get_prop_stridx_short(thr, DUK_BIDX_DATE_PROTOTYPE, DUK_STRIDX_TO_UTC_STRING);
  51817. duk_xdef_prop_stridx_short(thr, DUK_BIDX_DATE_PROTOTYPE, DUK_STRIDX_TO_GMT_STRING, DUK_PROPDESC_FLAGS_WC);
  51818. #endif
  51819. h = duk_known_hobject(thr, DUK_BIDX_DOUBLE_ERROR);
  51820. DUK_HOBJECT_CLEAR_EXTENSIBLE(h);
  51821. #if !defined(DUK_USE_ES6_OBJECT_PROTO_PROPERTY)
  51822. DUK_DD(DUK_DDPRINT("delete Object.prototype.__proto__ built-in which is not enabled in features"));
  51823. (void) duk_hobject_delprop_raw(thr, thr->builtins[DUK_BIDX_OBJECT_PROTOTYPE], DUK_HTHREAD_STRING___PROTO__(thr), DUK_DELPROP_FLAG_THROW);
  51824. #endif
  51825. #if !defined(DUK_USE_ES6_OBJECT_SETPROTOTYPEOF)
  51826. DUK_DD(DUK_DDPRINT("delete Object.setPrototypeOf built-in which is not enabled in features"));
  51827. (void) duk_hobject_delprop_raw(thr, thr->builtins[DUK_BIDX_OBJECT_CONSTRUCTOR], DUK_HTHREAD_STRING_SET_PROTOTYPE_OF(thr), DUK_DELPROP_FLAG_THROW);
  51828. #endif
  51829. /* XXX: relocate */
  51830. duk_push_string(thr,
  51831. /* Endianness indicator */
  51832. #if defined(DUK_USE_INTEGER_LE)
  51833. "l"
  51834. #elif defined(DUK_USE_INTEGER_BE)
  51835. "b"
  51836. #elif defined(DUK_USE_INTEGER_ME) /* integer mixed endian not really used now */
  51837. "m"
  51838. #else
  51839. "?"
  51840. #endif
  51841. #if defined(DUK_USE_DOUBLE_LE)
  51842. "l"
  51843. #elif defined(DUK_USE_DOUBLE_BE)
  51844. "b"
  51845. #elif defined(DUK_USE_DOUBLE_ME)
  51846. "m"
  51847. #else
  51848. "?"
  51849. #endif
  51850. " "
  51851. /* Packed or unpacked tval */
  51852. #if defined(DUK_USE_PACKED_TVAL)
  51853. "p"
  51854. #else
  51855. "u"
  51856. #endif
  51857. #if defined(DUK_USE_FASTINT)
  51858. "f"
  51859. #endif
  51860. " "
  51861. /* Low memory options */
  51862. #if defined(DUK_USE_STRTAB_PTRCOMP)
  51863. "s"
  51864. #endif
  51865. #if !defined(DUK_USE_HEAPPTR16) && !defined(DUK_DATAPTR16) && !defined(DUK_FUNCPTR16)
  51866. "n"
  51867. #endif
  51868. #if defined(DUK_USE_HEAPPTR16)
  51869. "h"
  51870. #endif
  51871. #if defined(DUK_USE_DATAPTR16)
  51872. "d"
  51873. #endif
  51874. #if defined(DUK_USE_FUNCPTR16)
  51875. "f"
  51876. #endif
  51877. #if defined(DUK_USE_REFCOUNT16)
  51878. "R"
  51879. #endif
  51880. #if defined(DUK_USE_STRHASH16)
  51881. "H"
  51882. #endif
  51883. #if defined(DUK_USE_STRLEN16)
  51884. "S"
  51885. #endif
  51886. #if defined(DUK_USE_BUFLEN16)
  51887. "B"
  51888. #endif
  51889. #if defined(DUK_USE_OBJSIZES16)
  51890. "O"
  51891. #endif
  51892. #if defined(DUK_USE_LIGHTFUNC_BUILTINS)
  51893. "L"
  51894. #endif
  51895. #if defined(DUK_USE_ROM_STRINGS) || defined(DUK_USE_ROM_OBJECTS)
  51896. /* XXX: This won't be shown in practice now
  51897. * because this code is not run when builtins
  51898. * are in ROM.
  51899. */
  51900. "Z"
  51901. #endif
  51902. " "
  51903. /* Object property allocation layout */
  51904. #if defined(DUK_USE_HOBJECT_LAYOUT_1)
  51905. "p1"
  51906. #elif defined(DUK_USE_HOBJECT_LAYOUT_2)
  51907. "p2"
  51908. #elif defined(DUK_USE_HOBJECT_LAYOUT_3)
  51909. "p3"
  51910. #else
  51911. "p?"
  51912. #endif
  51913. " "
  51914. /* Alignment guarantee */
  51915. #if (DUK_USE_ALIGN_BY == 4)
  51916. "a4"
  51917. #elif (DUK_USE_ALIGN_BY == 8)
  51918. "a8"
  51919. #elif (DUK_USE_ALIGN_BY == 1)
  51920. "a1"
  51921. #else
  51922. #error invalid DUK_USE_ALIGN_BY
  51923. #endif
  51924. " "
  51925. /* Architecture, OS, and compiler strings */
  51926. DUK_USE_ARCH_STRING
  51927. " "
  51928. DUK_USE_OS_STRING
  51929. " "
  51930. DUK_USE_COMPILER_STRING);
  51931. duk_xdef_prop_stridx_short(thr, DUK_BIDX_DUKTAPE, DUK_STRIDX_ENV, DUK_PROPDESC_FLAGS_WC);
  51932. /*
  51933. * Since built-ins are not often extended, compact them.
  51934. */
  51935. DUK_DD(DUK_DDPRINT("compact built-ins"));
  51936. for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) {
  51937. duk_hobject_compact_props(thr, duk_known_hobject(thr, (duk_idx_t) i));
  51938. }
  51939. DUK_D(DUK_DPRINT("INITBUILTINS END"));
  51940. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1)
  51941. for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) {
  51942. DUK_DD(DUK_DDPRINT("built-in object %ld after initialization and compacting: %!@iO",
  51943. (long) i, (duk_heaphdr *) duk_require_hobject(thr, i)));
  51944. }
  51945. #endif
  51946. /*
  51947. * Pop built-ins from stack: they are now INCREF'd and
  51948. * reachable from the builtins[] array or indirectly
  51949. * through builtins[].
  51950. */
  51951. duk_set_top(thr, 0);
  51952. DUK_ASSERT_TOP(thr, 0);
  51953. }
  51954. #endif /* DUK_USE_ROM_OBJECTS */
  51955. DUK_INTERNAL void duk_hthread_copy_builtin_objects(duk_hthread *thr_from, duk_hthread *thr_to) {
  51956. duk_small_uint_t i;
  51957. for (i = 0; i < DUK_NUM_BUILTINS; i++) {
  51958. thr_to->builtins[i] = thr_from->builtins[i];
  51959. DUK_HOBJECT_INCREF_ALLOWNULL(thr_to, thr_to->builtins[i]); /* side effect free */
  51960. }
  51961. }
  51962. /* automatic undefs */
  51963. #undef DUK__LENGTH_PROP_BITS
  51964. #undef DUK__NARGS_BITS
  51965. #undef DUK__NARGS_VARARGS_MARKER
  51966. #undef DUK__PROP_FLAGS_BITS
  51967. #undef DUK__PROP_TYPE_ACCESSOR
  51968. #undef DUK__PROP_TYPE_BITS
  51969. #undef DUK__PROP_TYPE_BOOLEAN_FALSE
  51970. #undef DUK__PROP_TYPE_BOOLEAN_TRUE
  51971. #undef DUK__PROP_TYPE_BUILTIN
  51972. #undef DUK__PROP_TYPE_DOUBLE
  51973. #undef DUK__PROP_TYPE_STRIDX
  51974. #undef DUK__PROP_TYPE_STRING
  51975. #undef DUK__PROP_TYPE_UNDEFINED
  51976. #line 1 "duk_hthread_misc.c"
  51977. /*
  51978. * Thread support.
  51979. */
  51980. /* #include duk_internal.h -> already included */
  51981. DUK_INTERNAL void duk_hthread_terminate(duk_hthread *thr) {
  51982. DUK_ASSERT(thr != NULL);
  51983. while (thr->callstack_curr != NULL) {
  51984. duk_hthread_activation_unwind_norz(thr);
  51985. }
  51986. thr->valstack_bottom = thr->valstack;
  51987. duk_set_top(thr, 0); /* unwinds valstack, updating refcounts */
  51988. thr->state = DUK_HTHREAD_STATE_TERMINATED;
  51989. /* Here we could remove references to built-ins, but it may not be
  51990. * worth the effort because built-ins are quite likely to be shared
  51991. * with another (unterminated) thread, and terminated threads are also
  51992. * usually garbage collected quite quickly.
  51993. *
  51994. * We could also shrink the value stack here, but that also may not
  51995. * be worth the effort for the same reason.
  51996. */
  51997. DUK_REFZERO_CHECK_SLOW(thr);
  51998. }
  51999. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  52000. DUK_INTERNAL duk_uint_fast32_t duk_hthread_get_act_curr_pc(duk_hthread *thr, duk_activation *act) {
  52001. duk_instr_t *bcode;
  52002. DUK_ASSERT(thr != NULL);
  52003. DUK_ASSERT(act != NULL);
  52004. DUK_UNREF(thr);
  52005. /* XXX: store 'bcode' pointer to activation for faster lookup? */
  52006. if (act->func && DUK_HOBJECT_IS_COMPFUNC(act->func)) {
  52007. bcode = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) (act->func));
  52008. return (duk_uint_fast32_t) (act->curr_pc - bcode);
  52009. }
  52010. return 0;
  52011. }
  52012. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  52013. DUK_INTERNAL duk_uint_fast32_t duk_hthread_get_act_prev_pc(duk_hthread *thr, duk_activation *act) {
  52014. duk_instr_t *bcode;
  52015. duk_uint_fast32_t ret;
  52016. DUK_ASSERT(thr != NULL);
  52017. DUK_ASSERT(act != NULL);
  52018. DUK_UNREF(thr);
  52019. if (act->func && DUK_HOBJECT_IS_COMPFUNC(act->func)) {
  52020. bcode = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) (act->func));
  52021. ret = (duk_uint_fast32_t) (act->curr_pc - bcode);
  52022. if (ret > 0) {
  52023. ret--;
  52024. }
  52025. return ret;
  52026. }
  52027. return 0;
  52028. }
  52029. /* Write bytecode executor's curr_pc back to topmost activation (if any). */
  52030. DUK_INTERNAL void duk_hthread_sync_currpc(duk_hthread *thr) {
  52031. duk_activation *act;
  52032. DUK_ASSERT(thr != NULL);
  52033. if (thr->ptr_curr_pc != NULL) {
  52034. /* ptr_curr_pc != NULL only when bytecode executor is active. */
  52035. DUK_ASSERT(thr->callstack_top > 0);
  52036. DUK_ASSERT(thr->callstack_curr != NULL);
  52037. act = thr->callstack_curr;
  52038. DUK_ASSERT(act != NULL);
  52039. act->curr_pc = *thr->ptr_curr_pc;
  52040. }
  52041. }
  52042. DUK_INTERNAL void duk_hthread_sync_and_null_currpc(duk_hthread *thr) {
  52043. duk_activation *act;
  52044. DUK_ASSERT(thr != NULL);
  52045. if (thr->ptr_curr_pc != NULL) {
  52046. /* ptr_curr_pc != NULL only when bytecode executor is active. */
  52047. DUK_ASSERT(thr->callstack_top > 0);
  52048. DUK_ASSERT(thr->callstack_curr != NULL);
  52049. act = thr->callstack_curr;
  52050. DUK_ASSERT(act != NULL);
  52051. act->curr_pc = *thr->ptr_curr_pc;
  52052. thr->ptr_curr_pc = NULL;
  52053. }
  52054. }
  52055. #line 1 "duk_hthread_stacks.c"
  52056. /*
  52057. * Thread stack (mainly call stack) primitives: allocation of activations,
  52058. * unwinding catchers and activations, etc.
  52059. *
  52060. * Value stack handling is a part of the API implementation.
  52061. */
  52062. /* #include duk_internal.h -> already included */
  52063. /* Unwind the topmost catcher of the current activation (caller must check that
  52064. * both exist) without side effects.
  52065. */
  52066. DUK_INTERNAL void duk_hthread_catcher_unwind_norz(duk_hthread *thr, duk_activation *act) {
  52067. duk_catcher *cat;
  52068. DUK_ASSERT(thr != NULL);
  52069. DUK_ASSERT(act != NULL);
  52070. DUK_ASSERT(act->cat != NULL); /* caller must check */
  52071. cat = act->cat;
  52072. DUK_ASSERT(cat != NULL);
  52073. DUK_DDD(DUK_DDDPRINT("unwinding catch stack entry %p (lexenv check is done)", (void *) cat));
  52074. if (DUK_CAT_HAS_LEXENV_ACTIVE(cat)) {
  52075. duk_hobject *env;
  52076. env = act->lex_env; /* current lex_env of the activation (created for catcher) */
  52077. DUK_ASSERT(env != NULL); /* must be, since env was created when catcher was created */
  52078. act->lex_env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, env); /* prototype is lex_env before catcher created */
  52079. DUK_HOBJECT_INCREF(thr, act->lex_env);
  52080. DUK_HOBJECT_DECREF_NORZ(thr, env);
  52081. /* There is no need to decref anything else than 'env': if 'env'
  52082. * becomes unreachable, refzero will handle decref'ing its prototype.
  52083. */
  52084. }
  52085. act->cat = cat->parent;
  52086. duk_hthread_catcher_free(thr, cat);
  52087. }
  52088. /* Same as above, but caller is certain no catcher-related lexenv may exist. */
  52089. DUK_INTERNAL void duk_hthread_catcher_unwind_nolexenv_norz(duk_hthread *thr, duk_activation *act) {
  52090. duk_catcher *cat;
  52091. DUK_ASSERT(thr != NULL);
  52092. DUK_ASSERT(act != NULL);
  52093. DUK_ASSERT(act->cat != NULL); /* caller must check */
  52094. cat = act->cat;
  52095. DUK_ASSERT(cat != NULL);
  52096. DUK_DDD(DUK_DDDPRINT("unwinding catch stack entry %p (lexenv check is not done)", (void *) cat));
  52097. DUK_ASSERT(!DUK_CAT_HAS_LEXENV_ACTIVE(cat));
  52098. act->cat = cat->parent;
  52099. duk_hthread_catcher_free(thr, cat);
  52100. }
  52101. DUK_LOCAL
  52102. #if defined(DUK_USE_CACHE_CATCHER)
  52103. DUK_NOINLINE
  52104. #endif
  52105. duk_catcher *duk__hthread_catcher_alloc_slow(duk_hthread *thr) {
  52106. duk_catcher *cat;
  52107. cat = (duk_catcher *) DUK_ALLOC_CHECKED(thr, sizeof(duk_catcher));
  52108. DUK_ASSERT(cat != NULL);
  52109. return cat;
  52110. }
  52111. #if defined(DUK_USE_CACHE_CATCHER)
  52112. DUK_INTERNAL DUK_INLINE duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr) {
  52113. duk_catcher *cat;
  52114. DUK_ASSERT(thr != NULL);
  52115. cat = thr->heap->catcher_free;
  52116. if (DUK_LIKELY(cat != NULL)) {
  52117. thr->heap->catcher_free = cat->parent;
  52118. return cat;
  52119. }
  52120. return duk__hthread_catcher_alloc_slow(thr);
  52121. }
  52122. #else /* DUK_USE_CACHE_CATCHER */
  52123. DUK_INTERNAL duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr) {
  52124. return duk__hthread_catcher_alloc_slow(thr);
  52125. }
  52126. #endif /* DUK_USE_CACHE_CATCHER */
  52127. DUK_INTERNAL void duk_hthread_catcher_free(duk_hthread *thr, duk_catcher *cat) {
  52128. DUK_ASSERT(thr != NULL);
  52129. DUK_ASSERT(cat != NULL);
  52130. #if defined(DUK_USE_CACHE_CATCHER)
  52131. /* Unconditional caching for now; freed in mark-and-sweep. */
  52132. cat->parent = thr->heap->catcher_free;
  52133. thr->heap->catcher_free = cat;
  52134. #else
  52135. DUK_FREE_CHECKED(thr, (void *) cat);
  52136. #endif
  52137. }
  52138. DUK_LOCAL
  52139. #if defined(DUK_USE_CACHE_ACTIVATION)
  52140. DUK_NOINLINE
  52141. #endif
  52142. duk_activation *duk__hthread_activation_alloc_slow(duk_hthread *thr) {
  52143. duk_activation *act;
  52144. act = (duk_activation *) DUK_ALLOC_CHECKED(thr, sizeof(duk_activation));
  52145. DUK_ASSERT(act != NULL);
  52146. return act;
  52147. }
  52148. #if defined(DUK_USE_CACHE_ACTIVATION)
  52149. DUK_INTERNAL DUK_INLINE duk_activation *duk_hthread_activation_alloc(duk_hthread *thr) {
  52150. duk_activation *act;
  52151. DUK_ASSERT(thr != NULL);
  52152. act = thr->heap->activation_free;
  52153. if (DUK_LIKELY(act != NULL)) {
  52154. thr->heap->activation_free = act->parent;
  52155. return act;
  52156. }
  52157. return duk__hthread_activation_alloc_slow(thr);
  52158. }
  52159. #else /* DUK_USE_CACHE_ACTIVATION */
  52160. DUK_INTERNAL duk_activation *duk_hthread_activation_alloc(duk_hthread *thr) {
  52161. return duk__hthread_activation_alloc_slow(thr);
  52162. }
  52163. #endif /* DUK_USE_CACHE_ACTIVATION */
  52164. DUK_INTERNAL void duk_hthread_activation_free(duk_hthread *thr, duk_activation *act) {
  52165. DUK_ASSERT(thr != NULL);
  52166. DUK_ASSERT(act != NULL);
  52167. #if defined(DUK_USE_CACHE_ACTIVATION)
  52168. /* Unconditional caching for now; freed in mark-and-sweep. */
  52169. act->parent = thr->heap->activation_free;
  52170. thr->heap->activation_free = act;
  52171. #else
  52172. DUK_FREE_CHECKED(thr, (void *) act);
  52173. #endif
  52174. }
  52175. /* Internal helper: process the unwind for the topmost activation of a thread,
  52176. * but leave the duk_activation in place for possible tailcall reuse.
  52177. */
  52178. DUK_LOCAL void duk__activation_unwind_nofree_norz(duk_hthread *thr) {
  52179. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  52180. duk_heap *heap;
  52181. #endif
  52182. duk_activation *act;
  52183. duk_hobject *func;
  52184. duk_hobject *tmp;
  52185. DUK_ASSERT(thr != NULL);
  52186. DUK_ASSERT(thr->callstack_curr != NULL); /* caller must check */
  52187. DUK_ASSERT(thr->callstack_top > 0);
  52188. act = thr->callstack_curr;
  52189. DUK_ASSERT(act != NULL);
  52190. /* With lightfuncs, act 'func' may be NULL. */
  52191. /* With duk_activation records allocated separately, 'act' is a stable
  52192. * pointer and not affected by side effects.
  52193. */
  52194. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  52195. /*
  52196. * Restore 'caller' property for non-strict callee functions.
  52197. */
  52198. func = DUK_ACT_GET_FUNC(act);
  52199. if (func != NULL && !DUK_HOBJECT_HAS_STRICT(func)) {
  52200. duk_tval *tv_caller;
  52201. duk_tval tv_tmp;
  52202. duk_hobject *h_tmp;
  52203. tv_caller = duk_hobject_find_existing_entry_tval_ptr(thr->heap, func, DUK_HTHREAD_STRING_CALLER(thr));
  52204. /* The act->prev_caller should only be set if the entry for 'caller'
  52205. * exists (as it is only set in that case, and the property is not
  52206. * configurable), but handle all the cases anyway.
  52207. */
  52208. if (tv_caller) {
  52209. DUK_TVAL_SET_TVAL(&tv_tmp, tv_caller);
  52210. if (act->prev_caller) {
  52211. /* Just transfer the refcount from act->prev_caller to tv_caller,
  52212. * so no need for a refcount update. This is the expected case.
  52213. */
  52214. DUK_TVAL_SET_OBJECT(tv_caller, act->prev_caller);
  52215. act->prev_caller = NULL;
  52216. } else {
  52217. DUK_TVAL_SET_NULL(tv_caller); /* no incref needed */
  52218. DUK_ASSERT(act->prev_caller == NULL);
  52219. }
  52220. DUK_TVAL_DECREF_NORZ(thr, &tv_tmp);
  52221. } else {
  52222. h_tmp = act->prev_caller;
  52223. if (h_tmp) {
  52224. act->prev_caller = NULL;
  52225. DUK_HOBJECT_DECREF_NORZ(thr, h_tmp);
  52226. }
  52227. }
  52228. DUK_ASSERT(act->prev_caller == NULL);
  52229. }
  52230. #endif
  52231. /*
  52232. * Unwind debugger state. If we unwind while stepping
  52233. * (for any step type), pause execution. This is the
  52234. * only place explicitly handling a step out.
  52235. */
  52236. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  52237. heap = thr->heap;
  52238. if (heap->dbg_pause_act == thr->callstack_curr) {
  52239. if (heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_EXIT) {
  52240. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function exit"));
  52241. duk_debug_set_paused(heap);
  52242. } else {
  52243. DUK_D(DUK_DPRINT("unwound past dbg_pause_act, set to NULL"));
  52244. heap->dbg_pause_act = NULL; /* avoid stale pointers */
  52245. }
  52246. DUK_ASSERT(heap->dbg_pause_act == NULL);
  52247. }
  52248. #endif
  52249. /*
  52250. * Unwind catchers.
  52251. *
  52252. * Since there are no references in the catcher structure,
  52253. * unwinding is quite simple. The only thing we need to
  52254. * look out for is popping a possible lexical environment
  52255. * established for an active catch clause.
  52256. */
  52257. while (act->cat != NULL) {
  52258. duk_hthread_catcher_unwind_norz(thr, act);
  52259. }
  52260. /*
  52261. * Close environment record(s) if they exist.
  52262. *
  52263. * Only variable environments are closed. If lex_env != var_env, it
  52264. * cannot currently contain any register bound declarations.
  52265. *
  52266. * Only environments created for a NEWENV function are closed. If an
  52267. * environment is created for e.g. an eval call, it must not be closed.
  52268. */
  52269. func = DUK_ACT_GET_FUNC(act);
  52270. if (func != NULL && !DUK_HOBJECT_HAS_NEWENV(func)) {
  52271. DUK_DDD(DUK_DDDPRINT("skip closing environments, envs not owned by this activation"));
  52272. goto skip_env_close;
  52273. }
  52274. /* func is NULL for lightfunc */
  52275. /* Catch sites are required to clean up their environments
  52276. * in FINALLY part before propagating, so this should
  52277. * always hold here.
  52278. */
  52279. DUK_ASSERT(act->lex_env == act->var_env);
  52280. /* XXX: Closing the environment record copies values from registers
  52281. * into the scope object. It's side effect free as such, but may
  52282. * currently run out of memory which causes an error throw. This is
  52283. * an actual sandboxing problem for error unwinds, and needs to be
  52284. * fixed e.g. by preallocating the scope property slots.
  52285. */
  52286. if (act->var_env != NULL) {
  52287. DUK_DDD(DUK_DDDPRINT("closing var_env record %p -> %!O",
  52288. (void *) act->var_env, (duk_heaphdr *) act->var_env));
  52289. duk_js_close_environment_record(thr, act->var_env);
  52290. }
  52291. skip_env_close:
  52292. /*
  52293. * Update preventcount
  52294. */
  52295. if (act->flags & DUK_ACT_FLAG_PREVENT_YIELD) {
  52296. DUK_ASSERT(thr->callstack_preventcount >= 1);
  52297. thr->callstack_preventcount--;
  52298. }
  52299. /*
  52300. * Reference count updates, using NORZ macros so we don't
  52301. * need to handle side effects.
  52302. *
  52303. * duk_activation pointers like act->var_env are intentionally
  52304. * left as garbage and not NULLed. Without side effects they
  52305. * can't be used when the values are dangling/garbage.
  52306. */
  52307. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, act->var_env);
  52308. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, act->lex_env);
  52309. tmp = DUK_ACT_GET_FUNC(act);
  52310. DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp);
  52311. DUK_UNREF(tmp);
  52312. }
  52313. /* Unwind topmost duk_activation of a thread, caller must ensure that an
  52314. * activation exists. The call is side effect free, except that scope
  52315. * closure may currently throw an out-of-memory error.
  52316. */
  52317. DUK_INTERNAL void duk_hthread_activation_unwind_norz(duk_hthread *thr) {
  52318. duk_activation *act;
  52319. duk__activation_unwind_nofree_norz(thr);
  52320. DUK_ASSERT(thr->callstack_curr != NULL);
  52321. DUK_ASSERT(thr->callstack_top > 0);
  52322. act = thr->callstack_curr;
  52323. thr->callstack_curr = act->parent;
  52324. thr->callstack_top--;
  52325. /* Ideally we'd restore value stack reserve here to caller's value.
  52326. * This doesn't work for current unwind call sites however, because
  52327. * the current (unwound) value stack top may be above the reserve.
  52328. * Thus value stack reserve is restored by the call sites.
  52329. */
  52330. /* XXX: inline for performance builds? */
  52331. duk_hthread_activation_free(thr, act);
  52332. /* We could clear the book-keeping variables like retval_byteoff for
  52333. * the topmost activation, but don't do so now as it's not necessary.
  52334. */
  52335. }
  52336. DUK_INTERNAL void duk_hthread_activation_unwind_reuse_norz(duk_hthread *thr) {
  52337. duk__activation_unwind_nofree_norz(thr);
  52338. }
  52339. /* Get duk_activation for given callstack level or NULL if level is invalid
  52340. * or deeper than the call stack. Level -1 refers to current activation, -2
  52341. * to its caller, etc. Starting from Duktape 2.2 finding the activation is
  52342. * a linked list scan which gets more expensive the deeper the lookup is.
  52343. */
  52344. DUK_INTERNAL duk_activation *duk_hthread_get_activation_for_level(duk_hthread *thr, duk_int_t level) {
  52345. duk_activation *act;
  52346. if (level >= 0) {
  52347. return NULL;
  52348. }
  52349. act = thr->callstack_curr;
  52350. for (;;) {
  52351. if (act == NULL) {
  52352. return act;
  52353. }
  52354. if (level == -1) {
  52355. return act;
  52356. }
  52357. level++;
  52358. act = act->parent;
  52359. }
  52360. /* never here */
  52361. }
  52362. #if defined(DUK_USE_FINALIZER_TORTURE)
  52363. DUK_INTERNAL void duk_hthread_valstack_torture_realloc(duk_hthread *thr) {
  52364. duk_size_t alloc_size;
  52365. duk_tval *new_ptr;
  52366. duk_ptrdiff_t alloc_end_off;
  52367. duk_ptrdiff_t end_off;
  52368. duk_ptrdiff_t bottom_off;
  52369. duk_ptrdiff_t top_off;
  52370. if (thr->valstack == NULL) {
  52371. DUK_D(DUK_DPRINT("skip valstack torture realloc, valstack is NULL"));
  52372. return;
  52373. }
  52374. alloc_end_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_alloc_end - (duk_uint8_t *) thr->valstack);
  52375. end_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack);
  52376. bottom_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack);
  52377. top_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack);
  52378. alloc_size = (duk_size_t) alloc_end_off;
  52379. if (alloc_size == 0) {
  52380. DUK_D(DUK_DPRINT("skip valstack torture realloc, alloc_size is zero"));
  52381. return;
  52382. }
  52383. /* Use DUK_ALLOC_RAW() to avoid side effects. */
  52384. new_ptr = (duk_tval *) DUK_ALLOC_RAW(thr->heap, alloc_size);
  52385. if (new_ptr != NULL) {
  52386. DUK_MEMCPY((void *) new_ptr, (const void *) thr->valstack, alloc_size);
  52387. DUK_MEMSET((void *) thr->valstack, 0x55, alloc_size);
  52388. DUK_FREE_CHECKED(thr, (void *) thr->valstack);
  52389. thr->valstack = new_ptr;
  52390. thr->valstack_alloc_end = (duk_tval *) ((duk_uint8_t *) new_ptr + alloc_end_off);
  52391. thr->valstack_end = (duk_tval *) ((duk_uint8_t *) new_ptr + end_off);
  52392. thr->valstack_bottom = (duk_tval *) ((duk_uint8_t *) new_ptr + bottom_off);
  52393. thr->valstack_top = (duk_tval *) ((duk_uint8_t *) new_ptr + top_off);
  52394. } else {
  52395. DUK_D(DUK_DPRINT("failed to realloc valstack for torture, ignore"));
  52396. }
  52397. }
  52398. #endif /* DUK_USE_FINALIZER_TORTURE */
  52399. #line 1 "duk_js_arith.c"
  52400. /*
  52401. * Shared helpers for arithmetic operations
  52402. */
  52403. /* #include duk_internal.h -> already included */
  52404. /* Ecmascript modulus ('%') does not match IEEE 754 "remainder" operation
  52405. * (implemented by remainder() in C99) but does seem to match ANSI C fmod().
  52406. * Compare E5 Section 11.5.3 and "man fmod".
  52407. */
  52408. DUK_INTERNAL double duk_js_arith_mod(double d1, double d2) {
  52409. #if defined(DUK_USE_POW_WORKAROUNDS)
  52410. /* Specific fixes to common fmod() implementation issues:
  52411. * - test-bug-mingw-math-issues.js
  52412. */
  52413. if (DUK_ISINF(d2)) {
  52414. if (DUK_ISINF(d1)) {
  52415. return DUK_DOUBLE_NAN;
  52416. } else {
  52417. return d1;
  52418. }
  52419. } else if (d1 == 0.0) {
  52420. /* d1 +/-0 is returned as is (preserving sign) except when
  52421. * d2 is zero or NaN.
  52422. */
  52423. if (d2 == 0.0 || DUK_ISNAN(d2)) {
  52424. return DUK_DOUBLE_NAN;
  52425. } else {
  52426. return d1;
  52427. }
  52428. }
  52429. #else
  52430. /* Some ISO C assumptions. */
  52431. DUK_ASSERT(DUK_FMOD(1.0, DUK_DOUBLE_INFINITY) == 1.0);
  52432. DUK_ASSERT(DUK_FMOD(-1.0, DUK_DOUBLE_INFINITY) == -1.0);
  52433. DUK_ASSERT(DUK_FMOD(1.0, -DUK_DOUBLE_INFINITY) == 1.0);
  52434. DUK_ASSERT(DUK_FMOD(-1.0, -DUK_DOUBLE_INFINITY) == -1.0);
  52435. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY)));
  52436. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY)));
  52437. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY)));
  52438. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY)));
  52439. DUK_ASSERT(DUK_FMOD(0.0, 1.0) == 0.0 && DUK_SIGNBIT(DUK_FMOD(0.0, 1.0)) == 0);
  52440. DUK_ASSERT(DUK_FMOD(-0.0, 1.0) == 0.0 && DUK_SIGNBIT(DUK_FMOD(-0.0, 1.0)) != 0);
  52441. DUK_ASSERT(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY) == 0.0 && DUK_SIGNBIT(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY)) == 0);
  52442. DUK_ASSERT(DUK_FMOD(-0.0, DUK_DOUBLE_INFINITY) == 0.0 && DUK_SIGNBIT(DUK_FMOD(-0.0, DUK_DOUBLE_INFINITY)) != 0);
  52443. DUK_ASSERT(DUK_FMOD(0.0, -DUK_DOUBLE_INFINITY) == 0.0 && DUK_SIGNBIT(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY)) == 0);
  52444. DUK_ASSERT(DUK_FMOD(-0.0, -DUK_DOUBLE_INFINITY) == 0.0 && DUK_SIGNBIT(DUK_FMOD(-0.0, -DUK_DOUBLE_INFINITY)) != 0);
  52445. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, 0.0)));
  52446. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, 0.0)));
  52447. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, -0.0)));
  52448. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, -0.0)));
  52449. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, DUK_DOUBLE_NAN)));
  52450. DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, DUK_DOUBLE_NAN)));
  52451. #endif
  52452. return (duk_double_t) DUK_FMOD((double) d1, (double) d2);
  52453. }
  52454. /* Shared helper for Math.pow() and exponentiation operator. */
  52455. DUK_INTERNAL double duk_js_arith_pow(double x, double y) {
  52456. /* The ANSI C pow() semantics differ from Ecmascript.
  52457. *
  52458. * E.g. when x==1 and y is +/- infinite, the Ecmascript required
  52459. * result is NaN, while at least Linux pow() returns 1.
  52460. */
  52461. duk_small_int_t cx, cy, sx;
  52462. DUK_UNREF(cx);
  52463. DUK_UNREF(sx);
  52464. cy = (duk_small_int_t) DUK_FPCLASSIFY(y);
  52465. if (cy == DUK_FP_NAN) {
  52466. goto ret_nan;
  52467. }
  52468. if (DUK_FABS(x) == 1.0 && cy == DUK_FP_INFINITE) {
  52469. goto ret_nan;
  52470. }
  52471. #if defined(DUK_USE_POW_WORKAROUNDS)
  52472. /* Specific fixes to common pow() implementation issues:
  52473. * - test-bug-netbsd-math-pow.js: NetBSD 6.0 on x86 (at least)
  52474. * - test-bug-mingw-math-issues.js
  52475. */
  52476. cx = (duk_small_int_t) DUK_FPCLASSIFY(x);
  52477. if (cx == DUK_FP_ZERO && y < 0.0) {
  52478. sx = (duk_small_int_t) DUK_SIGNBIT(x);
  52479. if (sx == 0) {
  52480. /* Math.pow(+0,y) should be Infinity when y<0. NetBSD pow()
  52481. * returns -Infinity instead when y is <0 and finite. The
  52482. * if-clause also catches y == -Infinity (which works even
  52483. * without the fix).
  52484. */
  52485. return DUK_DOUBLE_INFINITY;
  52486. } else {
  52487. /* Math.pow(-0,y) where y<0 should be:
  52488. * - -Infinity if y<0 and an odd integer
  52489. * - Infinity if y<0 but not an odd integer
  52490. * NetBSD pow() returns -Infinity for all finite y<0. The
  52491. * if-clause also catches y == -Infinity (which works even
  52492. * without the fix).
  52493. */
  52494. /* fmod() return value has same sign as input (negative) so
  52495. * the result here will be in the range ]-2,0], -1 indicates
  52496. * odd. If x is -Infinity, NaN is returned and the odd check
  52497. * always concludes "not odd" which results in desired outcome.
  52498. */
  52499. double tmp = DUK_FMOD(y, 2);
  52500. if (tmp == -1.0) {
  52501. return -DUK_DOUBLE_INFINITY;
  52502. } else {
  52503. /* Not odd, or y == -Infinity */
  52504. return DUK_DOUBLE_INFINITY;
  52505. }
  52506. }
  52507. } else if (cx == DUK_FP_NAN) {
  52508. if (y == 0.0) {
  52509. /* NaN ** +/- 0 should always be 1, but is NaN on
  52510. * at least some Cygwin/MinGW versions.
  52511. */
  52512. return 1.0;
  52513. }
  52514. }
  52515. #else
  52516. /* Some ISO C assumptions. */
  52517. DUK_ASSERT(DUK_POW(DUK_DOUBLE_NAN, 0.0) == 1.0);
  52518. DUK_ASSERT(DUK_ISINF(DUK_POW(0.0, -1.0)) && DUK_SIGNBIT(DUK_POW(0.0, -1.0)) == 0);
  52519. DUK_ASSERT(DUK_ISINF(DUK_POW(-0.0, -2.0)) && DUK_SIGNBIT(DUK_POW(-0.0, -2.0)) == 0);
  52520. DUK_ASSERT(DUK_ISINF(DUK_POW(-0.0, -3.0)) && DUK_SIGNBIT(DUK_POW(-0.0, -3.0)) != 0);
  52521. #endif
  52522. return DUK_POW(x, y);
  52523. ret_nan:
  52524. return DUK_DOUBLE_NAN;
  52525. }
  52526. #line 1 "duk_js_call.c"
  52527. /*
  52528. * Call handling.
  52529. *
  52530. * duk_handle_call_unprotected():
  52531. *
  52532. * - Unprotected call to Ecmascript or Duktape/C function, from native
  52533. * code or bytecode executor.
  52534. *
  52535. * - Also handles Ecma-to-Ecma calls which reuses a currently running
  52536. * executor instance to avoid native recursion. Call setup is done
  52537. * normally, but just before calling the bytecode executor a special
  52538. * return code is used to indicate that a calling executor is reused.
  52539. *
  52540. * - Also handles tailcalls, i.e. reuse of current duk_activation.
  52541. *
  52542. * - Also handles setup for initial Duktape.Thread.resume().
  52543. *
  52544. * duk_handle_safe_call():
  52545. *
  52546. * - Protected C call within current activation.
  52547. *
  52548. * setjmp() and local variables have a nasty interaction, see execution.rst;
  52549. * non-volatile locals modified after setjmp() call are not guaranteed to
  52550. * keep their value and can cause compiler or compiler version specific
  52551. * difficult to replicate issues.
  52552. *
  52553. * See 'execution.rst'.
  52554. */
  52555. /* #include duk_internal.h -> already included */
  52556. /* XXX: heap->error_not_allowed for success path too? */
  52557. /*
  52558. * Limit check helpers.
  52559. */
  52560. /* Allow headroom for calls during error augmentation (see GH-191).
  52561. * We allow space for 10 additional recursions, with one extra
  52562. * for, e.g. a print() call at the deepest level, and an extra
  52563. * +1 for protected call wrapping.
  52564. */
  52565. #define DUK__AUGMENT_CALL_RELAX_COUNT (10 + 2)
  52566. DUK_LOCAL DUK_NOINLINE void duk__call_c_recursion_limit_check_slowpath(duk_hthread *thr) {
  52567. /* When augmenting an error, the effective limit is a bit higher.
  52568. * Check for it only if the fast path check fails.
  52569. */
  52570. #if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE)
  52571. if (thr->heap->augmenting_error) {
  52572. if (thr->heap->call_recursion_depth < thr->heap->call_recursion_limit + DUK__AUGMENT_CALL_RELAX_COUNT) {
  52573. DUK_D(DUK_DPRINT("C recursion limit reached but augmenting error and within relaxed limit"));
  52574. return;
  52575. }
  52576. }
  52577. #endif
  52578. DUK_D(DUK_DPRINT("call prevented because C recursion limit reached"));
  52579. DUK_ERROR_RANGE(thr, DUK_STR_C_CALLSTACK_LIMIT);
  52580. }
  52581. DUK_LOCAL DUK_ALWAYS_INLINE void duk__call_c_recursion_limit_check(duk_hthread *thr) {
  52582. DUK_ASSERT(thr->heap->call_recursion_depth >= 0);
  52583. DUK_ASSERT(thr->heap->call_recursion_depth <= thr->heap->call_recursion_limit);
  52584. /* This check is forcibly inlined because it's very cheap and almost
  52585. * always passes. The slow path is forcibly noinline.
  52586. */
  52587. if (DUK_LIKELY(thr->heap->call_recursion_depth < thr->heap->call_recursion_limit)) {
  52588. return;
  52589. }
  52590. duk__call_c_recursion_limit_check_slowpath(thr);
  52591. }
  52592. DUK_LOCAL DUK_NOINLINE void duk__call_callstack_limit_check_slowpath(duk_hthread *thr) {
  52593. /* When augmenting an error, the effective limit is a bit higher.
  52594. * Check for it only if the fast path check fails.
  52595. */
  52596. #if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE)
  52597. if (thr->heap->augmenting_error) {
  52598. if (thr->callstack_top < DUK_USE_CALLSTACK_LIMIT + DUK__AUGMENT_CALL_RELAX_COUNT) {
  52599. DUK_D(DUK_DPRINT("call stack limit reached but augmenting error and within relaxed limit"));
  52600. return;
  52601. }
  52602. }
  52603. #endif
  52604. /* XXX: error message is a bit misleading: we reached a recursion
  52605. * limit which is also essentially the same as a C callstack limit
  52606. * (except perhaps with some relaxed threading assumptions).
  52607. */
  52608. DUK_D(DUK_DPRINT("call prevented because call stack limit reached"));
  52609. DUK_ERROR_RANGE(thr, DUK_STR_CALLSTACK_LIMIT);
  52610. }
  52611. DUK_LOCAL DUK_ALWAYS_INLINE void duk__call_callstack_limit_check(duk_hthread *thr) {
  52612. /* This check is forcibly inlined because it's very cheap and almost
  52613. * always passes. The slow path is forcibly noinline.
  52614. */
  52615. if (DUK_LIKELY(thr->callstack_top < DUK_USE_CALLSTACK_LIMIT)) {
  52616. return;
  52617. }
  52618. duk__call_callstack_limit_check_slowpath(thr);
  52619. }
  52620. /*
  52621. * Interrupt counter fixup (for development only).
  52622. */
  52623. #if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG)
  52624. DUK_LOCAL void duk__interrupt_fixup(duk_hthread *thr, duk_hthread *entry_curr_thread) {
  52625. /* Currently the bytecode executor and executor interrupt
  52626. * instruction counts are off because we don't execute the
  52627. * interrupt handler when we're about to exit from the initial
  52628. * user call into Duktape.
  52629. *
  52630. * If we were to execute the interrupt handler here, the counts
  52631. * would match. You can enable this block manually to check
  52632. * that this is the case.
  52633. */
  52634. DUK_ASSERT(thr != NULL);
  52635. DUK_ASSERT(thr->heap != NULL);
  52636. #if defined(DUK_USE_INTERRUPT_DEBUG_FIXUP)
  52637. if (entry_curr_thread == NULL) {
  52638. thr->interrupt_init = thr->interrupt_init - thr->interrupt_counter;
  52639. thr->heap->inst_count_interrupt += thr->interrupt_init;
  52640. DUK_DD(DUK_DDPRINT("debug test: updated interrupt count on exit to "
  52641. "user code, instruction counts: executor=%ld, interrupt=%ld",
  52642. (long) thr->heap->inst_count_exec, (long) thr->heap->inst_count_interrupt));
  52643. DUK_ASSERT(thr->heap->inst_count_exec == thr->heap->inst_count_interrupt);
  52644. }
  52645. #else
  52646. DUK_UNREF(thr);
  52647. DUK_UNREF(entry_curr_thread);
  52648. #endif
  52649. }
  52650. #endif
  52651. /*
  52652. * Arguments object creation.
  52653. *
  52654. * Creating arguments objects involves many small details, see E5 Section
  52655. * 10.6 for the specific requirements. Much of the arguments object exotic
  52656. * behavior is implemented in duk_hobject_props.c, and is enabled by the
  52657. * object flag DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS.
  52658. */
  52659. DUK_LOCAL void duk__create_arguments_object(duk_hthread *thr,
  52660. duk_hobject *func,
  52661. duk_hobject *varenv,
  52662. duk_idx_t idx_args) {
  52663. duk_hobject *arg; /* 'arguments' */
  52664. duk_hobject *formals; /* formals for 'func' (may be NULL if func is a C function) */
  52665. duk_idx_t i_arg;
  52666. duk_idx_t i_map;
  52667. duk_idx_t i_mappednames;
  52668. duk_idx_t i_formals;
  52669. duk_idx_t i_argbase;
  52670. duk_idx_t n_formals;
  52671. duk_idx_t idx;
  52672. duk_idx_t num_stack_args;
  52673. duk_bool_t need_map;
  52674. DUK_ASSERT(thr != NULL);
  52675. DUK_ASSERT(func != NULL);
  52676. DUK_ASSERT(DUK_HOBJECT_IS_NONBOUND_FUNCTION(func));
  52677. DUK_ASSERT(varenv != NULL);
  52678. /* [ ... func this arg1(@idx_args) ... argN envobj ]
  52679. * [ arg1(@idx_args) ... argN envobj ] (for tailcalls)
  52680. */
  52681. need_map = 0;
  52682. i_argbase = idx_args;
  52683. num_stack_args = duk_get_top(thr) - i_argbase - 1;
  52684. DUK_ASSERT(i_argbase >= 0);
  52685. DUK_ASSERT(num_stack_args >= 0);
  52686. duk_push_hobject(thr, func);
  52687. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_FORMALS);
  52688. formals = duk_get_hobject(thr, -1);
  52689. if (formals) {
  52690. n_formals = (duk_idx_t) duk_get_length(thr, -1);
  52691. } else {
  52692. /* This shouldn't happen without tampering of internal
  52693. * properties: if a function accesses 'arguments', _Formals
  52694. * is kept. Check for the case anyway in case internal
  52695. * properties have been modified manually.
  52696. */
  52697. DUK_D(DUK_DPRINT("_Formals is undefined when creating arguments, use n_formals == 0"));
  52698. n_formals = 0;
  52699. }
  52700. duk_remove_m2(thr); /* leave formals on stack for later use */
  52701. i_formals = duk_require_top_index(thr);
  52702. DUK_ASSERT(n_formals >= 0);
  52703. DUK_ASSERT(formals != NULL || n_formals == 0);
  52704. DUK_DDD(DUK_DDDPRINT("func=%!O, formals=%!O, n_formals=%ld",
  52705. (duk_heaphdr *) func, (duk_heaphdr *) formals,
  52706. (long) n_formals));
  52707. /* [ ... formals ] */
  52708. /*
  52709. * Create required objects:
  52710. * - 'arguments' object: array-like, but not an array
  52711. * - 'map' object: internal object, tied to 'arguments'
  52712. * - 'mappedNames' object: temporary value used during construction
  52713. */
  52714. arg = duk_push_object_helper(thr,
  52715. DUK_HOBJECT_FLAG_EXTENSIBLE |
  52716. DUK_HOBJECT_FLAG_FASTREFS |
  52717. DUK_HOBJECT_FLAG_ARRAY_PART |
  52718. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARGUMENTS),
  52719. DUK_BIDX_OBJECT_PROTOTYPE);
  52720. DUK_ASSERT(arg != NULL);
  52721. (void) duk_push_object_helper(thr,
  52722. DUK_HOBJECT_FLAG_EXTENSIBLE |
  52723. DUK_HOBJECT_FLAG_FASTREFS |
  52724. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  52725. -1); /* no prototype */
  52726. (void) duk_push_object_helper(thr,
  52727. DUK_HOBJECT_FLAG_EXTENSIBLE |
  52728. DUK_HOBJECT_FLAG_FASTREFS |
  52729. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT),
  52730. -1); /* no prototype */
  52731. i_arg = duk_get_top(thr) - 3;
  52732. i_map = i_arg + 1;
  52733. i_mappednames = i_arg + 2;
  52734. /* [ ... formals arguments map mappedNames ] */
  52735. DUK_DDD(DUK_DDDPRINT("created arguments related objects: "
  52736. "arguments at index %ld -> %!O "
  52737. "map at index %ld -> %!O "
  52738. "mappednames at index %ld -> %!O",
  52739. (long) i_arg, (duk_heaphdr *) duk_get_hobject(thr, i_arg),
  52740. (long) i_map, (duk_heaphdr *) duk_get_hobject(thr, i_map),
  52741. (long) i_mappednames, (duk_heaphdr *) duk_get_hobject(thr, i_mappednames)));
  52742. /*
  52743. * Init arguments properties, map, etc.
  52744. */
  52745. duk_push_int(thr, num_stack_args);
  52746. duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_WC);
  52747. /*
  52748. * Init argument related properties.
  52749. */
  52750. /* step 11 */
  52751. idx = num_stack_args - 1;
  52752. while (idx >= 0) {
  52753. DUK_DDD(DUK_DDDPRINT("arg idx %ld, argbase=%ld, argidx=%ld",
  52754. (long) idx, (long) i_argbase, (long) (i_argbase + idx)));
  52755. DUK_DDD(DUK_DDDPRINT("define arguments[%ld]=arg", (long) idx));
  52756. duk_dup(thr, i_argbase + idx);
  52757. duk_xdef_prop_index_wec(thr, i_arg, (duk_uarridx_t) idx);
  52758. DUK_DDD(DUK_DDDPRINT("defined arguments[%ld]=arg", (long) idx));
  52759. /* step 11.c is relevant only if non-strict (checked in 11.c.ii) */
  52760. if (!DUK_HOBJECT_HAS_STRICT(func) && idx < n_formals) {
  52761. DUK_ASSERT(formals != NULL);
  52762. DUK_DDD(DUK_DDDPRINT("strict function, index within formals (%ld < %ld)",
  52763. (long) idx, (long) n_formals));
  52764. duk_get_prop_index(thr, i_formals, (duk_uarridx_t) idx);
  52765. DUK_ASSERT(duk_is_string(thr, -1));
  52766. duk_dup_top(thr); /* [ ... name name ] */
  52767. if (!duk_has_prop(thr, i_mappednames)) {
  52768. /* steps 11.c.ii.1 - 11.c.ii.4, but our internal book-keeping
  52769. * differs from the reference model
  52770. */
  52771. /* [ ... name ] */
  52772. need_map = 1;
  52773. DUK_DDD(DUK_DDDPRINT("set mappednames[%s]=%ld",
  52774. (const char *) duk_get_string(thr, -1),
  52775. (long) idx));
  52776. duk_dup_top(thr); /* name */
  52777. (void) duk_push_uint_to_hstring(thr, (duk_uint_t) idx); /* index */
  52778. duk_xdef_prop_wec(thr, i_mappednames); /* out of spec, must be configurable */
  52779. DUK_DDD(DUK_DDDPRINT("set map[%ld]=%s",
  52780. (long) idx,
  52781. duk_get_string(thr, -1)));
  52782. duk_dup_top(thr); /* name */
  52783. duk_xdef_prop_index_wec(thr, i_map, (duk_uarridx_t) idx); /* out of spec, must be configurable */
  52784. } else {
  52785. /* duk_has_prop() popped the second 'name' */
  52786. }
  52787. /* [ ... name ] */
  52788. duk_pop(thr); /* pop 'name' */
  52789. }
  52790. idx--;
  52791. }
  52792. DUK_DDD(DUK_DDDPRINT("actual arguments processed"));
  52793. /* step 12 */
  52794. if (need_map) {
  52795. DUK_DDD(DUK_DDDPRINT("adding 'map' and 'varenv' to arguments object"));
  52796. /* should never happen for a strict callee */
  52797. DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(func));
  52798. duk_dup(thr, i_map);
  52799. duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_INT_MAP, DUK_PROPDESC_FLAGS_NONE); /* out of spec, don't care */
  52800. /* The variable environment for magic variable bindings needs to be
  52801. * given by the caller and recorded in the arguments object.
  52802. *
  52803. * See E5 Section 10.6, the creation of setters/getters.
  52804. *
  52805. * The variable environment also provides access to the callee, so
  52806. * an explicit (internal) callee property is not needed.
  52807. */
  52808. duk_push_hobject(thr, varenv);
  52809. duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_INT_VARENV, DUK_PROPDESC_FLAGS_NONE); /* out of spec, don't care */
  52810. }
  52811. /* steps 13-14 */
  52812. if (DUK_HOBJECT_HAS_STRICT(func)) {
  52813. /* Callee/caller are throwers and are not deletable etc. They
  52814. * could be implemented as virtual properties, but currently
  52815. * there is no support for virtual properties which are accessors
  52816. * (only plain virtual properties). This would not be difficult
  52817. * to change in duk_hobject_props, but we can make the throwers
  52818. * normal, concrete properties just as easily.
  52819. *
  52820. * Note that the specification requires that the *same* thrower
  52821. * built-in object is used here! See E5 Section 10.6 main
  52822. * algoritm, step 14, and Section 13.2.3 which describes the
  52823. * thrower. See test case test-arguments-throwers.js.
  52824. */
  52825. DUK_DDD(DUK_DDDPRINT("strict function, setting caller/callee to throwers"));
  52826. duk_xdef_prop_stridx_thrower(thr, i_arg, DUK_STRIDX_CALLER);
  52827. duk_xdef_prop_stridx_thrower(thr, i_arg, DUK_STRIDX_CALLEE);
  52828. } else {
  52829. DUK_DDD(DUK_DDDPRINT("non-strict function, setting callee to actual value"));
  52830. duk_push_hobject(thr, func);
  52831. duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_CALLEE, DUK_PROPDESC_FLAGS_WC);
  52832. }
  52833. /* set exotic behavior only after we're done */
  52834. if (need_map) {
  52835. /* Exotic behaviors are only enabled for arguments objects
  52836. * which have a parameter map (see E5 Section 10.6 main
  52837. * algorithm, step 12).
  52838. *
  52839. * In particular, a non-strict arguments object with no
  52840. * mapped formals does *NOT* get exotic behavior, even
  52841. * for e.g. "caller" property. This seems counterintuitive
  52842. * but seems to be the case.
  52843. */
  52844. /* cannot be strict (never mapped variables) */
  52845. DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(func));
  52846. DUK_DDD(DUK_DDDPRINT("enabling exotic behavior for arguments object"));
  52847. DUK_HOBJECT_SET_EXOTIC_ARGUMENTS(arg);
  52848. } else {
  52849. DUK_DDD(DUK_DDDPRINT("not enabling exotic behavior for arguments object"));
  52850. }
  52851. DUK_DDD(DUK_DDDPRINT("final arguments related objects: "
  52852. "arguments at index %ld -> %!O "
  52853. "map at index %ld -> %!O "
  52854. "mappednames at index %ld -> %!O",
  52855. (long) i_arg, (duk_heaphdr *) duk_get_hobject(thr, i_arg),
  52856. (long) i_map, (duk_heaphdr *) duk_get_hobject(thr, i_map),
  52857. (long) i_mappednames, (duk_heaphdr *) duk_get_hobject(thr, i_mappednames)));
  52858. /* [ args(n) envobj formals arguments map mappednames ] */
  52859. duk_pop_2(thr);
  52860. duk_remove_m2(thr);
  52861. /* [ args(n) envobj arguments ] */
  52862. }
  52863. /* Helper for creating the arguments object and adding it to the env record
  52864. * on top of the value stack.
  52865. */
  52866. DUK_LOCAL void duk__handle_createargs_for_call(duk_hthread *thr,
  52867. duk_hobject *func,
  52868. duk_hobject *env,
  52869. duk_idx_t idx_args) {
  52870. DUK_DDD(DUK_DDDPRINT("creating arguments object for function call"));
  52871. DUK_ASSERT(thr != NULL);
  52872. DUK_ASSERT(func != NULL);
  52873. DUK_ASSERT(env != NULL);
  52874. DUK_ASSERT(DUK_HOBJECT_HAS_CREATEARGS(func));
  52875. /* [ ... arg1 ... argN envobj ] */
  52876. duk__create_arguments_object(thr,
  52877. func,
  52878. env,
  52879. idx_args);
  52880. /* [ ... arg1 ... argN envobj argobj ] */
  52881. duk_xdef_prop_stridx_short(thr,
  52882. -2,
  52883. DUK_STRIDX_LC_ARGUMENTS,
  52884. DUK_HOBJECT_HAS_STRICT(func) ? DUK_PROPDESC_FLAGS_E : /* strict: non-deletable, non-writable */
  52885. DUK_PROPDESC_FLAGS_WE); /* non-strict: non-deletable, writable */
  52886. /* [ ... arg1 ... argN envobj ] */
  52887. }
  52888. /*
  52889. * Helpers for constructor call handling.
  52890. *
  52891. * There are two [[Construct]] operations in the specification:
  52892. *
  52893. * - E5 Section 13.2.2: for Function objects
  52894. * - E5 Section 15.3.4.5.2: for "bound" Function objects
  52895. *
  52896. * The chain of bound functions is resolved in Section 15.3.4.5.2,
  52897. * with arguments "piling up" until the [[Construct]] internal
  52898. * method is called on the final, actual Function object. Note
  52899. * that the "prototype" property is looked up *only* from the
  52900. * final object, *before* calling the constructor.
  52901. *
  52902. * Since Duktape 2.2 bound functions are represented with the
  52903. * duk_hboundfunc internal type, and bound function chains are
  52904. * collapsed when a bound function is created. As a result, the
  52905. * direct target of a duk_hboundfunc is always non-bound and the
  52906. * this/argument lists have been resolved.
  52907. *
  52908. * When constructing new Array instances, an unnecessary object is
  52909. * created and discarded now: the standard [[Construct]] creates an
  52910. * object, and calls the Array constructor. The Array constructor
  52911. * returns an Array instance, which is used as the result value for
  52912. * the "new" operation; the object created before the Array constructor
  52913. * call is discarded.
  52914. *
  52915. * This would be easy to fix, e.g. by knowing that the Array constructor
  52916. * will always create a replacement object and skip creating the fallback
  52917. * object in that case.
  52918. */
  52919. /* Update default instance prototype for constructor call. */
  52920. DUK_LOCAL void duk__update_default_instance_proto(duk_hthread *thr, duk_idx_t idx_func) {
  52921. duk_hobject *proto;
  52922. duk_hobject *fallback;
  52923. DUK_ASSERT(duk_is_constructable(thr, idx_func));
  52924. duk_get_prop_stridx_short(thr, idx_func, DUK_STRIDX_PROTOTYPE);
  52925. proto = duk_get_hobject(thr, -1);
  52926. if (proto == NULL) {
  52927. DUK_DDD(DUK_DDDPRINT("constructor has no 'prototype' property, or value not an object "
  52928. "-> leave standard Object prototype as fallback prototype"));
  52929. } else {
  52930. DUK_DDD(DUK_DDDPRINT("constructor has 'prototype' property with object value "
  52931. "-> set fallback prototype to that value: %!iO", (duk_heaphdr *) proto));
  52932. /* Original fallback (default instance) is untouched when
  52933. * resolving bound functions etc.
  52934. */
  52935. fallback = duk_known_hobject(thr, idx_func + 1);
  52936. DUK_ASSERT(fallback != NULL);
  52937. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, fallback, proto);
  52938. }
  52939. duk_pop(thr);
  52940. }
  52941. /* Postprocess: return value special handling, error augmentation. */
  52942. DUK_INTERNAL void duk_call_construct_postprocess(duk_hthread *thr, duk_small_uint_t proxy_invariant) {
  52943. /* Use either fallback (default instance) or retval depending
  52944. * on retval type. Needs to be called before unwind because
  52945. * the default instance is read from the current (immutable)
  52946. * 'this' binding.
  52947. *
  52948. * For Proxy 'construct' calls the return value must be an
  52949. * Object (we accept object-like values like buffers and
  52950. * lightfuncs too). If not, TypeError.
  52951. */
  52952. if (duk_check_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT |
  52953. DUK_TYPE_MASK_BUFFER |
  52954. DUK_TYPE_MASK_LIGHTFUNC)) {
  52955. DUK_DDD(DUK_DDDPRINT("replacement value"));
  52956. } else {
  52957. if (DUK_UNLIKELY(proxy_invariant != 0U)) {
  52958. /* Proxy 'construct' return value invariant violated. */
  52959. DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr);
  52960. }
  52961. /* XXX: direct value stack access */
  52962. duk_pop(thr);
  52963. duk_push_this(thr);
  52964. }
  52965. #if defined(DUK_USE_AUGMENT_ERROR_CREATE)
  52966. /* Augment created errors upon creation, not when they are thrown or
  52967. * rethrown. __FILE__ and __LINE__ are not desirable here; the call
  52968. * stack reflects the caller which is correct. Skip topmost, unwound
  52969. * activation when creating a traceback. If thr->ptr_curr_pc was !=
  52970. * NULL we'd need to sync the current PC so that the traceback comes
  52971. * out right; however it is always synced here so just assert for it.
  52972. */
  52973. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  52974. duk_err_augment_error_create(thr, thr, NULL, 0, DUK_AUGMENT_FLAG_NOBLAME_FILELINE |
  52975. DUK_AUGMENT_FLAG_SKIP_ONE);
  52976. #endif
  52977. }
  52978. /*
  52979. * Helper for handling a bound function when a call is being made.
  52980. *
  52981. * Assumes that bound function chains have been "collapsed" so that either
  52982. * the target is non-bound or there is one bound function that points to a
  52983. * nonbound target.
  52984. *
  52985. * Prepends the bound arguments to the value stack (at idx_func + 2).
  52986. * The 'this' binding is also updated if necessary (at idx_func + 1).
  52987. * Note that for constructor calls the 'this' binding is never updated by
  52988. * [[BoundThis]].
  52989. */
  52990. DUK_LOCAL void duk__handle_bound_chain_for_call(duk_hthread *thr,
  52991. duk_idx_t idx_func,
  52992. duk_bool_t is_constructor_call) {
  52993. duk_tval *tv_func;
  52994. duk_hobject *func;
  52995. duk_idx_t len;
  52996. DUK_ASSERT(thr != NULL);
  52997. /* On entry, item at idx_func is a bound, non-lightweight function,
  52998. * but we don't rely on that below.
  52999. */
  53000. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53001. tv_func = duk_require_tval(thr, idx_func);
  53002. DUK_ASSERT(tv_func != NULL);
  53003. if (DUK_TVAL_IS_OBJECT(tv_func)) {
  53004. func = DUK_TVAL_GET_OBJECT(tv_func);
  53005. /* XXX: separate helper function, out of fast path? */
  53006. if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) {
  53007. duk_hboundfunc *h_bound;
  53008. duk_tval *tv_args;
  53009. duk_tval *tv_gap;
  53010. h_bound = (duk_hboundfunc *) func;
  53011. tv_args = h_bound->args;
  53012. len = h_bound->nargs;
  53013. DUK_ASSERT(len == 0 || tv_args != NULL);
  53014. DUK_DDD(DUK_DDDPRINT("bound function encountered, ptr=%p: %!T",
  53015. (void *) DUK_TVAL_GET_OBJECT(tv_func), tv_func));
  53016. /* [ ... func this arg1 ... argN ] */
  53017. if (is_constructor_call) {
  53018. /* See: tests/ecmascript/test-spec-bound-constructor.js */
  53019. DUK_DDD(DUK_DDDPRINT("constructor call: don't update this binding"));
  53020. } else {
  53021. /* XXX: duk_replace_tval */
  53022. duk_push_tval(thr, &h_bound->this_binding);
  53023. duk_replace(thr, idx_func + 1); /* idx_this = idx_func + 1 */
  53024. }
  53025. /* [ ... func this arg1 ... argN ] */
  53026. duk_require_stack(thr, len);
  53027. tv_gap = duk_reserve_gap(thr, idx_func + 2, len);
  53028. duk_copy_tvals_incref(thr, tv_gap, tv_args, (duk_size_t) len);
  53029. /* [ ... func this <bound args> arg1 ... argN ] */
  53030. duk_push_tval(thr, &h_bound->target);
  53031. duk_replace(thr, idx_func); /* replace in stack */
  53032. DUK_DDD(DUK_DDDPRINT("bound function handled, idx_func=%ld, curr func=%!T",
  53033. (long) idx_func, duk_get_tval(thr, idx_func)));
  53034. }
  53035. } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) {
  53036. /* Lightweight function: never bound, so terminate. */
  53037. ;
  53038. } else {
  53039. /* Shouldn't happen, so ugly error is enough. */
  53040. DUK_ERROR_INTERNAL(thr);
  53041. }
  53042. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53043. DUK_DDD(DUK_DDDPRINT("final non-bound function is: %!T", duk_get_tval(thr, idx_func)));
  53044. #if defined(DUK_USE_ASSERTIONS)
  53045. tv_func = duk_require_tval(thr, idx_func);
  53046. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func) || DUK_TVAL_IS_OBJECT(tv_func));
  53047. if (DUK_TVAL_IS_OBJECT(tv_func)) {
  53048. func = DUK_TVAL_GET_OBJECT(tv_func);
  53049. DUK_ASSERT(func != NULL);
  53050. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func));
  53051. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func) ||
  53052. DUK_HOBJECT_HAS_NATFUNC(func));
  53053. }
  53054. #endif
  53055. }
  53056. /*
  53057. * Helper for inline handling of .call(), .apply(), and .construct().
  53058. */
  53059. DUK_LOCAL duk_bool_t duk__handle_specialfuncs_for_call(duk_hthread *thr, duk_idx_t idx_func, duk_hobject *func, duk_small_uint_t *call_flags, duk_bool_t first) {
  53060. #if defined(DUK_USE_ASSERTIONS)
  53061. duk_c_function natfunc;
  53062. #endif
  53063. duk_tval *tv_args;
  53064. DUK_ASSERT(func != NULL);
  53065. DUK_ASSERT((*call_flags & DUK_CALL_FLAG_CONSTRUCT) == 0); /* Caller. */
  53066. #if defined(DUK_USE_ASSERTIONS)
  53067. natfunc = ((duk_hnatfunc *) func)->func;
  53068. DUK_ASSERT(natfunc != NULL);
  53069. #endif
  53070. /* On every round of function resolution at least target function and
  53071. * 'this' binding are set. We can assume that here, and must guarantee
  53072. * it on exit. Value stack reserve is extended for bound function and
  53073. * .apply() unpacking so we don't need to extend it here when we need a
  53074. * few slots.
  53075. */
  53076. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53077. /* Handle native 'eval' specially. A direct eval check is only made
  53078. * for the first resolution attempt; e.g. a bound eval call is -not-
  53079. * a direct eval call.
  53080. */
  53081. if (DUK_UNLIKELY(((duk_hnatfunc *) func)->magic == 15)) {
  53082. /* For now no special handling except for direct eval
  53083. * detection.
  53084. */
  53085. DUK_ASSERT(((duk_hnatfunc *) func)->func == duk_bi_global_object_eval);
  53086. if (first && (*call_flags & DUK_CALL_FLAG_CALLED_AS_EVAL)) {
  53087. *call_flags = (*call_flags & ~DUK_CALL_FLAG_CALLED_AS_EVAL) | DUK_CALL_FLAG_DIRECT_EVAL;
  53088. }
  53089. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53090. return 1; /* stop resolving */
  53091. }
  53092. /* Handle special functions based on the DUK_HOBJECT_FLAG_SPECIAL_CALL
  53093. * flag; their magic value is used for switch-case.
  53094. *
  53095. * NOTE: duk_unpack_array_like() reserves value stack space
  53096. * for the result values (unlike most other value stack calls).
  53097. */
  53098. switch (((duk_hnatfunc *) func)->magic) {
  53099. case 0: { /* 0=Function.prototype.call() */
  53100. /* Value stack:
  53101. * idx_func + 0: Function.prototype.call() [removed]
  53102. * idx_func + 1: this binding for .call (target function)
  53103. * idx_func + 2: 1st argument to .call, desired 'this' binding
  53104. * idx_func + 3: 2nd argument to .call, desired 1st argument for ultimate target
  53105. * ...
  53106. *
  53107. * Remove idx_func + 0 to get:
  53108. * idx_func + 0: target function
  53109. * idx_func + 1: this binding
  53110. * idx_func + 2: call arguments
  53111. * ...
  53112. */
  53113. DUK_ASSERT(natfunc == duk_bi_function_prototype_call);
  53114. duk_remove_unsafe(thr, idx_func);
  53115. tv_args = thr->valstack_bottom + idx_func + 2;
  53116. if (thr->valstack_top < tv_args) {
  53117. DUK_ASSERT(tv_args <= thr->valstack_end);
  53118. thr->valstack_top = tv_args; /* at least target function and 'this' binding present */
  53119. }
  53120. break;
  53121. }
  53122. case 1: { /* 1=Function.prototype.apply() */
  53123. /* Value stack:
  53124. * idx_func + 0: Function.prototype.apply() [removed]
  53125. * idx_func + 1: this binding for .apply (target function)
  53126. * idx_func + 2: 1st argument to .apply, desired 'this' binding
  53127. * idx_func + 3: 2nd argument to .apply, argArray
  53128. * [anything after this MUST be ignored]
  53129. *
  53130. * Remove idx_func + 0 and unpack the argArray to get:
  53131. * idx_func + 0: target function
  53132. * idx_func + 1: this binding
  53133. * idx_func + 2: call arguments
  53134. * ...
  53135. */
  53136. DUK_ASSERT(natfunc == duk_bi_function_prototype_apply);
  53137. duk_remove_unsafe(thr, idx_func);
  53138. goto apply_shared;
  53139. }
  53140. #if defined(DUK_USE_REFLECT_BUILTIN)
  53141. case 2: { /* 2=Reflect.apply() */
  53142. /* Value stack:
  53143. * idx_func + 0: Reflect.apply() [removed]
  53144. * idx_func + 1: this binding for .apply (ignored, usually Reflect) [removed]
  53145. * idx_func + 2: 1st argument to .apply, target function
  53146. * idx_func + 3: 2nd argument to .apply, desired 'this' binding
  53147. * idx_func + 4: 3rd argument to .apply, argArray
  53148. * [anything after this MUST be ignored]
  53149. *
  53150. * Remove idx_func + 0 and idx_func + 1, and unpack the argArray to get:
  53151. * idx_func + 0: target function
  53152. * idx_func + 1: this binding
  53153. * idx_func + 2: call arguments
  53154. * ...
  53155. */
  53156. DUK_ASSERT(natfunc == duk_bi_reflect_apply);
  53157. duk_remove_n_unsafe(thr, idx_func, 2);
  53158. goto apply_shared;
  53159. }
  53160. case 3: { /* 3=Reflect.construct() */
  53161. /* Value stack:
  53162. * idx_func + 0: Reflect.construct() [removed]
  53163. * idx_func + 1: this binding for .construct (ignored, usually Reflect) [removed]
  53164. * idx_func + 2: 1st argument to .construct, target function
  53165. * idx_func + 3: 2nd argument to .construct, argArray
  53166. * idx_func + 4: 3rd argument to .construct, newTarget
  53167. * [anything after this MUST be ignored]
  53168. *
  53169. * Remove idx_func + 0 and idx_func + 1, unpack the argArray,
  53170. * and insert default instance (prototype not yet updated), to get:
  53171. * idx_func + 0: target function
  53172. * idx_func + 1: this binding (default instance)
  53173. * idx_func + 2: constructor call arguments
  53174. * ...
  53175. *
  53176. * Call flags must be updated to reflect the fact that we're
  53177. * now dealing with a constructor call, and e.g. the 'this'
  53178. * binding cannot be overwritten if the target is bound.
  53179. *
  53180. * newTarget is checked but not yet passed onwards.
  53181. */
  53182. duk_idx_t top;
  53183. DUK_ASSERT(natfunc == duk_bi_reflect_construct);
  53184. *call_flags |= DUK_CALL_FLAG_CONSTRUCT;
  53185. duk_remove_n_unsafe(thr, idx_func, 2);
  53186. top = duk_get_top(thr);
  53187. if (!duk_is_constructable(thr, idx_func)) {
  53188. /* Target constructability must be checked before
  53189. * unpacking argArray (which may cause side effects).
  53190. * Just return; caller will throw the error.
  53191. */
  53192. duk_set_top_unsafe(thr, idx_func + 2); /* satisfy asserts */
  53193. break;
  53194. }
  53195. duk_push_object(thr);
  53196. duk_insert(thr, idx_func + 1); /* default instance */
  53197. /* [ ... func default_instance argArray newTarget? ] */
  53198. top = duk_get_top(thr);
  53199. if (top < idx_func + 3) {
  53200. /* argArray is a mandatory argument for Reflect.construct(). */
  53201. DUK_ERROR_TYPE_INVALID_ARGS(thr);
  53202. }
  53203. if (top > idx_func + 3) {
  53204. if (!duk_strict_equals(thr, idx_func, idx_func + 3)) {
  53205. /* XXX: [[Construct]] newTarget currently unsupported */
  53206. DUK_ERROR_UNSUPPORTED(thr);
  53207. }
  53208. duk_set_top_unsafe(thr, idx_func + 3); /* remove any args beyond argArray */
  53209. }
  53210. DUK_ASSERT(duk_get_top(thr) == idx_func + 3);
  53211. DUK_ASSERT(duk_is_valid_index(thr, idx_func + 2));
  53212. (void) duk_unpack_array_like(thr, idx_func + 2); /* XXX: should also remove target to be symmetric with duk_pack()? */
  53213. duk_remove(thr, idx_func + 2);
  53214. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53215. break;
  53216. }
  53217. #endif /* DUK_USE_REFLECT_BUILTIN */
  53218. default: {
  53219. DUK_ASSERT(0);
  53220. DUK_UNREACHABLE();
  53221. }
  53222. }
  53223. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53224. return 0; /* keep resolving */
  53225. apply_shared:
  53226. tv_args = thr->valstack_bottom + idx_func + 2;
  53227. if (thr->valstack_top <= tv_args) {
  53228. DUK_ASSERT(tv_args <= thr->valstack_end);
  53229. thr->valstack_top = tv_args; /* at least target func and 'this' binding present */
  53230. /* No need to check for argArray. */
  53231. } else {
  53232. DUK_ASSERT(duk_get_top(thr) >= idx_func + 3); /* idx_func + 2 covered above */
  53233. if (thr->valstack_top > tv_args + 1) {
  53234. duk_set_top_unsafe(thr, idx_func + 3); /* remove any args beyond argArray */
  53235. }
  53236. DUK_ASSERT(duk_is_valid_index(thr, idx_func + 2));
  53237. if (!duk_is_callable(thr, idx_func)) {
  53238. /* Avoid unpack side effects if the target isn't callable.
  53239. * Calling code will throw the actual error.
  53240. */
  53241. } else {
  53242. (void) duk_unpack_array_like(thr, idx_func + 2);
  53243. duk_remove(thr, idx_func + 2);
  53244. }
  53245. }
  53246. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53247. return 0; /* keep resolving */
  53248. }
  53249. /*
  53250. * Helper for Proxy handling.
  53251. */
  53252. #if defined(DUK_USE_ES6_PROXY)
  53253. DUK_LOCAL void duk__handle_proxy_for_call(duk_hthread *thr, duk_idx_t idx_func, duk_hproxy *h_proxy, duk_small_uint_t *call_flags) {
  53254. duk_bool_t rc;
  53255. /* Value stack:
  53256. * idx_func + 0: Proxy object
  53257. * idx_func + 1: this binding for call
  53258. * idx_func + 2: 1st argument for call
  53259. * idx_func + 3: 2nd argument for call
  53260. * ...
  53261. *
  53262. * If Proxy doesn't have a trap for the call ('apply' or 'construct'),
  53263. * replace Proxy object with target object.
  53264. *
  53265. * If we're dealing with a normal call and the Proxy has an 'apply'
  53266. * trap, manipulate value stack to:
  53267. *
  53268. * idx_func + 0: trap
  53269. * idx_func + 1: Proxy's handler
  53270. * idx_func + 2: Proxy's target
  53271. * idx_func + 3: this binding for call (from idx_func + 1)
  53272. * idx_func + 4: call arguments packed to an array
  53273. *
  53274. * If we're dealing with a constructor call and the Proxy has a
  53275. * 'construct' trap, manipulate value stack to:
  53276. *
  53277. * idx_func + 0: trap
  53278. * idx_func + 1: Proxy's handler
  53279. * idx_func + 2: Proxy's target
  53280. * idx_func + 3: call arguments packed to an array
  53281. * idx_func + 4: newTarget == Proxy object here
  53282. *
  53283. * As we don't yet have proper newTarget support, the newTarget at
  53284. * idx_func + 3 is just the original constructor being called, i.e.
  53285. * the Proxy object (not the target). Note that the default instance
  53286. * (original 'this' binding) is dropped and ignored.
  53287. */
  53288. duk_push_hobject(thr, h_proxy->handler);
  53289. rc = duk_get_prop_stridx_short(thr, -1, (*call_flags & DUK_CALL_FLAG_CONSTRUCT) ? DUK_STRIDX_CONSTRUCT : DUK_STRIDX_APPLY);
  53290. if (rc == 0) {
  53291. /* Not found, continue to target. If this is a construct
  53292. * call, update default instance prototype using the Proxy,
  53293. * not the target.
  53294. */
  53295. if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  53296. if (!(*call_flags & DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED)) {
  53297. *call_flags |= DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED;
  53298. duk__update_default_instance_proto(thr, idx_func);
  53299. }
  53300. }
  53301. duk_pop_2(thr);
  53302. duk_push_hobject(thr, h_proxy->target);
  53303. duk_replace(thr, idx_func);
  53304. return;
  53305. }
  53306. /* Here we must be careful not to replace idx_func while
  53307. * h_proxy is still needed, otherwise h_proxy may become
  53308. * dangling. This could be improved e.g. using a
  53309. * duk_pack_slice() with a freeform slice.
  53310. */
  53311. /* Here:
  53312. * idx_func + 0: Proxy object
  53313. * idx_func + 1: this binding for call
  53314. * idx_func + 2: 1st argument for call
  53315. * idx_func + 3: 2nd argument for call
  53316. * ...
  53317. * idx_func + N: handler
  53318. * idx_func + N + 1: trap
  53319. */
  53320. duk_insert(thr, idx_func + 1);
  53321. duk_insert(thr, idx_func + 2);
  53322. duk_push_hobject(thr, h_proxy->target);
  53323. duk_insert(thr, idx_func + 3);
  53324. duk_pack(thr, duk_get_top(thr) - (idx_func + 5));
  53325. /* Here:
  53326. * idx_func + 0: Proxy object
  53327. * idx_func + 1: trap
  53328. * idx_func + 2: Proxy's handler
  53329. * idx_func + 3: Proxy's target
  53330. * idx_func + 4: this binding for call
  53331. * idx_func + 5: arguments array
  53332. */
  53333. DUK_ASSERT(duk_get_top(thr) == idx_func + 6);
  53334. if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  53335. *call_flags |= DUK_CALL_FLAG_CONSTRUCT_PROXY; /* Enable 'construct' trap return invariant check. */
  53336. *call_flags &= ~(DUK_CALL_FLAG_CONSTRUCT); /* Resume as non-constructor call to the trap. */
  53337. /* 'apply' args: target, thisArg, argArray
  53338. * 'construct' args: target, argArray, newTarget
  53339. */
  53340. duk_remove(thr, idx_func + 4);
  53341. duk_push_hobject(thr, (duk_hobject *) h_proxy);
  53342. }
  53343. /* Finalize value stack layout by removing Proxy reference. */
  53344. duk_remove(thr, idx_func);
  53345. h_proxy = NULL; /* invalidated */
  53346. DUK_ASSERT(duk_get_top(thr) == idx_func + 5);
  53347. }
  53348. #endif /* DUK_USE_ES6_PROXY */
  53349. /*
  53350. * Helper for setting up var_env and lex_env of an activation,
  53351. * assuming it does NOT have the DUK_HOBJECT_FLAG_NEWENV flag.
  53352. */
  53353. DUK_LOCAL void duk__handle_oldenv_for_call(duk_hthread *thr,
  53354. duk_hobject *func,
  53355. duk_activation *act) {
  53356. duk_hcompfunc *f;
  53357. duk_hobject *h_lex;
  53358. duk_hobject *h_var;
  53359. DUK_ASSERT(thr != NULL);
  53360. DUK_ASSERT(func != NULL);
  53361. DUK_ASSERT(act != NULL);
  53362. DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV(func));
  53363. DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(func));
  53364. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(func));
  53365. DUK_UNREF(thr);
  53366. f = (duk_hcompfunc *) func;
  53367. h_lex = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f);
  53368. h_var = DUK_HCOMPFUNC_GET_VARENV(thr->heap, f);
  53369. DUK_ASSERT(h_lex != NULL); /* Always true for closures (not for templates) */
  53370. DUK_ASSERT(h_var != NULL);
  53371. act->lex_env = h_lex;
  53372. act->var_env = h_var;
  53373. DUK_HOBJECT_INCREF(thr, h_lex);
  53374. DUK_HOBJECT_INCREF(thr, h_var);
  53375. }
  53376. /*
  53377. * Helper for updating callee 'caller' property.
  53378. */
  53379. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  53380. DUK_LOCAL void duk__update_func_caller_prop(duk_hthread *thr, duk_hobject *func) {
  53381. duk_tval *tv_caller;
  53382. duk_hobject *h_tmp;
  53383. duk_activation *act_callee;
  53384. duk_activation *act_caller;
  53385. DUK_ASSERT(thr != NULL);
  53386. DUK_ASSERT(func != NULL);
  53387. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound chain resolved */
  53388. DUK_ASSERT(thr->callstack_top >= 1);
  53389. if (DUK_HOBJECT_HAS_STRICT(func)) {
  53390. /* Strict functions don't get their 'caller' updated. */
  53391. return;
  53392. }
  53393. DUK_ASSERT(thr->callstack_top > 0);
  53394. act_callee = thr->callstack_curr;
  53395. DUK_ASSERT(act_callee != NULL);
  53396. act_caller = (thr->callstack_top >= 2 ? act_callee->parent : NULL);
  53397. /* XXX: check .caller writability? */
  53398. /* Backup 'caller' property and update its value. */
  53399. tv_caller = duk_hobject_find_existing_entry_tval_ptr(thr->heap, func, DUK_HTHREAD_STRING_CALLER(thr));
  53400. if (tv_caller) {
  53401. /* If caller is global/eval code, 'caller' should be set to
  53402. * 'null'.
  53403. *
  53404. * XXX: there is no exotic flag to infer this correctly now.
  53405. * The NEWENV flag is used now which works as intended for
  53406. * everything (global code, non-strict eval code, and functions)
  53407. * except strict eval code. Bound functions are never an issue
  53408. * because 'func' has been resolved to a non-bound function.
  53409. */
  53410. if (act_caller != NULL) {
  53411. /* act_caller->func may be NULL in some finalization cases,
  53412. * just treat like we don't know the caller.
  53413. */
  53414. if (act_caller->func && !DUK_HOBJECT_HAS_NEWENV(act_caller->func)) {
  53415. /* Setting to NULL causes 'caller' to be set to
  53416. * 'null' as desired.
  53417. */
  53418. act_caller = NULL;
  53419. }
  53420. }
  53421. if (DUK_TVAL_IS_OBJECT(tv_caller)) {
  53422. h_tmp = DUK_TVAL_GET_OBJECT(tv_caller);
  53423. DUK_ASSERT(h_tmp != NULL);
  53424. act_callee->prev_caller = h_tmp;
  53425. /* Previous value doesn't need refcount changes because its ownership
  53426. * is transferred to prev_caller.
  53427. */
  53428. if (act_caller != NULL) {
  53429. DUK_ASSERT(act_caller->func != NULL);
  53430. DUK_TVAL_SET_OBJECT(tv_caller, act_caller->func);
  53431. DUK_TVAL_INCREF(thr, tv_caller);
  53432. } else {
  53433. DUK_TVAL_SET_NULL(tv_caller); /* no incref */
  53434. }
  53435. } else {
  53436. /* 'caller' must only take on 'null' or function value */
  53437. DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_caller));
  53438. DUK_ASSERT(act_callee->prev_caller == NULL);
  53439. if (act_caller != NULL && act_caller->func) {
  53440. /* Tolerate act_caller->func == NULL which happens in
  53441. * some finalization cases; treat like unknown caller.
  53442. */
  53443. DUK_TVAL_SET_OBJECT(tv_caller, act_caller->func);
  53444. DUK_TVAL_INCREF(thr, tv_caller);
  53445. } else {
  53446. DUK_TVAL_SET_NULL(tv_caller); /* no incref */
  53447. }
  53448. }
  53449. }
  53450. }
  53451. #endif /* DUK_USE_NONSTD_FUNC_CALLER_PROPERTY */
  53452. /*
  53453. * Shared helpers for resolving the final, non-bound target function of the
  53454. * call and the effective 'this' binding. Resolves bound functions and
  53455. * applies .call(), .apply(), and .construct() inline.
  53456. *
  53457. * Proxy traps are also handled inline so that if the target is a Proxy with
  53458. * a 'call' or 'construct' trap, the trap handler is called with a modified
  53459. * argument list.
  53460. *
  53461. * Once the bound function / .call() / .apply() / .construct() sequence has
  53462. * been resolved, the value at idx_func + 1 may need coercion described in
  53463. * E5 Section 10.4.3.
  53464. *
  53465. * A call that begins as a non-constructor call may be converted into a
  53466. * constructor call during the resolution process if Reflect.construct()
  53467. * is invoked. This is handled by updating the caller's call_flags.
  53468. *
  53469. * For global and eval code (E5 Sections 10.4.1 and 10.4.2), we assume
  53470. * that the caller has provided the correct 'this' binding explicitly
  53471. * when calling, i.e.:
  53472. *
  53473. * - global code: this=global object
  53474. * - direct eval: this=copy from eval() caller's this binding
  53475. * - other eval: this=global object
  53476. *
  53477. * The 'this' coercion may cause a recursive function call with arbitrary
  53478. * side effects, because ToObject() may be called.
  53479. */
  53480. DUK_LOCAL DUK_INLINE void duk__coerce_nonstrict_this_binding(duk_hthread *thr, duk_idx_t idx_this) {
  53481. duk_tval *tv_this;
  53482. duk_hobject *obj_global;
  53483. tv_this = thr->valstack_bottom + idx_this;
  53484. switch (DUK_TVAL_GET_TAG(tv_this)) {
  53485. case DUK_TAG_OBJECT:
  53486. DUK_DDD(DUK_DDDPRINT("this binding: non-strict, object -> use directly"));
  53487. break;
  53488. case DUK_TAG_UNDEFINED:
  53489. case DUK_TAG_NULL:
  53490. DUK_DDD(DUK_DDDPRINT("this binding: non-strict, undefined/null -> use global object"));
  53491. obj_global = thr->builtins[DUK_BIDX_GLOBAL];
  53492. /* XXX: avoid this check somehow */
  53493. if (DUK_LIKELY(obj_global != NULL)) {
  53494. DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_this)); /* no need to decref previous value */
  53495. DUK_TVAL_SET_OBJECT(tv_this, obj_global);
  53496. DUK_HOBJECT_INCREF(thr, obj_global);
  53497. } else {
  53498. /* This may only happen if built-ins are being "torn down".
  53499. * This behavior is out of specification scope.
  53500. */
  53501. DUK_D(DUK_DPRINT("this binding: wanted to use global object, but it is NULL -> using undefined instead"));
  53502. DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_this)); /* no need to decref previous value */
  53503. DUK_TVAL_SET_UNDEFINED(tv_this); /* nothing to incref */
  53504. }
  53505. break;
  53506. default:
  53507. /* Plain buffers and lightfuncs are object coerced. Lightfuncs
  53508. * very rarely come here however, because the call target would
  53509. * need to be a non-strict non-lightfunc (lightfuncs are considered
  53510. * strict) with an explicit lightfunc 'this' binding.
  53511. */
  53512. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_this));
  53513. DUK_DDD(DUK_DDDPRINT("this binding: non-strict, not object/undefined/null -> use ToObject(value)"));
  53514. duk_to_object(thr, idx_this); /* may have side effects */
  53515. break;
  53516. }
  53517. }
  53518. DUK_LOCAL DUK_ALWAYS_INLINE duk_bool_t duk__resolve_target_fastpath_check(duk_hthread *thr, duk_idx_t idx_func, duk_hobject **out_func, duk_small_uint_t call_flags) {
  53519. #if defined(DUK_USE_PREFER_SIZE)
  53520. DUK_UNREF(thr);
  53521. DUK_UNREF(idx_func);
  53522. DUK_UNREF(out_func);
  53523. DUK_UNREF(call_flags);
  53524. #else /* DUK_USE_PREFER_SIZE */
  53525. duk_tval *tv_func;
  53526. duk_hobject *func;
  53527. if (DUK_UNLIKELY(call_flags & DUK_CALL_FLAG_CONSTRUCT)) {
  53528. return 0;
  53529. }
  53530. tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func);
  53531. DUK_ASSERT(tv_func != NULL);
  53532. if (DUK_LIKELY(DUK_TVAL_IS_OBJECT(tv_func))) {
  53533. func = DUK_TVAL_GET_OBJECT(tv_func);
  53534. if (DUK_HOBJECT_IS_CALLABLE(func) &&
  53535. !DUK_HOBJECT_HAS_BOUNDFUNC(func) &&
  53536. !DUK_HOBJECT_HAS_SPECIAL_CALL(func)) {
  53537. *out_func = func;
  53538. if (DUK_HOBJECT_HAS_STRICT(func)) {
  53539. /* Strict function: no 'this' coercion. */
  53540. return 1;
  53541. }
  53542. duk__coerce_nonstrict_this_binding(thr, idx_func + 1);
  53543. return 1;
  53544. }
  53545. } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) {
  53546. *out_func = NULL;
  53547. /* Lightfuncs are considered strict, so 'this' binding is
  53548. * used as is. They're never bound, always constructable,
  53549. * and never special functions.
  53550. */
  53551. return 1;
  53552. }
  53553. #endif /* DUK_USE_PREFER_SIZE */
  53554. return 0; /* let slow path deal with it */
  53555. }
  53556. DUK_LOCAL duk_hobject *duk__resolve_target_func_and_this_binding(duk_hthread *thr,
  53557. duk_idx_t idx_func,
  53558. duk_small_uint_t *call_flags) {
  53559. duk_tval *tv_func;
  53560. duk_hobject *func;
  53561. duk_bool_t first;
  53562. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53563. for (first = 1;; first = 0) {
  53564. DUK_ASSERT(duk_get_top(thr) >= idx_func + 2);
  53565. tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func);
  53566. DUK_ASSERT(tv_func != NULL);
  53567. if (DUK_TVAL_IS_OBJECT(tv_func)) {
  53568. func = DUK_TVAL_GET_OBJECT(tv_func);
  53569. if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  53570. if (DUK_UNLIKELY(!DUK_HOBJECT_HAS_CONSTRUCTABLE(func))) {
  53571. goto not_constructable;
  53572. }
  53573. } else {
  53574. if (DUK_UNLIKELY(!DUK_HOBJECT_IS_CALLABLE(func))) {
  53575. goto not_callable;
  53576. }
  53577. }
  53578. if (DUK_LIKELY(!DUK_HOBJECT_HAS_BOUNDFUNC(func) &&
  53579. !DUK_HOBJECT_HAS_SPECIAL_CALL(func) &&
  53580. !DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(func))) {
  53581. /* Common case, so test for using a single bitfield test.
  53582. * Break out to handle this coercion etc.
  53583. */
  53584. break;
  53585. }
  53586. /* XXX: could set specialcall for boundfuncs too, simplify check above */
  53587. if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) {
  53588. DUK_ASSERT(!DUK_HOBJECT_HAS_SPECIAL_CALL(func));
  53589. DUK_ASSERT(!DUK_HOBJECT_IS_NATFUNC(func));
  53590. /* Callable/constructable flags are the same
  53591. * for the bound function and its target, so
  53592. * we don't need to check them here, we can
  53593. * check them from the target only.
  53594. */
  53595. duk__handle_bound_chain_for_call(thr, idx_func, *call_flags & DUK_CALL_FLAG_CONSTRUCT);
  53596. DUK_ASSERT(DUK_TVAL_IS_OBJECT(duk_require_tval(thr, idx_func)) ||
  53597. DUK_TVAL_IS_LIGHTFUNC(duk_require_tval(thr, idx_func)));
  53598. } else {
  53599. DUK_ASSERT(DUK_HOBJECT_HAS_SPECIAL_CALL(func));
  53600. #if defined(DUK_USE_ES6_PROXY)
  53601. if (DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(func)) {
  53602. /* If no trap, resume processing from Proxy trap.
  53603. * If trap exists, helper converts call into a trap
  53604. * call; this may change a constructor call into a
  53605. * normal (non-constructor) trap call. We must
  53606. * continue processing even when a trap is found as
  53607. * the trap may be bound.
  53608. */
  53609. duk__handle_proxy_for_call(thr, idx_func, (duk_hproxy *) func, call_flags);
  53610. }
  53611. else
  53612. #endif
  53613. {
  53614. DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(func));
  53615. DUK_ASSERT(DUK_HOBJECT_HAS_CALLABLE(func));
  53616. DUK_ASSERT(!DUK_HOBJECT_HAS_CONSTRUCTABLE(func));
  53617. /* Constructable check already done above. */
  53618. if (duk__handle_specialfuncs_for_call(thr, idx_func, func, call_flags, first) != 0) {
  53619. /* Encountered native eval call, normal call
  53620. * context. Break out, handle this coercion etc.
  53621. */
  53622. break;
  53623. }
  53624. }
  53625. }
  53626. /* Retry loop. */
  53627. } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) {
  53628. /* Lightfuncs are:
  53629. * - Always strict, so no 'this' coercion.
  53630. * - Always callable.
  53631. * - Always constructable.
  53632. * - Never specialfuncs.
  53633. */
  53634. func = NULL;
  53635. goto finished;
  53636. } else {
  53637. goto not_callable;
  53638. }
  53639. }
  53640. DUK_ASSERT(func != NULL);
  53641. if (!DUK_HOBJECT_HAS_STRICT(func)) {
  53642. /* Non-strict target needs 'this' coercion.
  53643. * This has potential side effects invalidating
  53644. * 'tv_func'.
  53645. */
  53646. duk__coerce_nonstrict_this_binding(thr, idx_func + 1);
  53647. }
  53648. if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  53649. if (!(*call_flags & DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED)) {
  53650. *call_flags |= DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED;
  53651. duk__update_default_instance_proto(thr, idx_func);
  53652. }
  53653. }
  53654. finished:
  53655. #if defined(DUK_USE_ASSERTIONS)
  53656. {
  53657. duk_tval *tv_tmp;
  53658. tv_tmp = duk_get_tval(thr, idx_func);
  53659. DUK_ASSERT(tv_tmp != NULL);
  53660. DUK_ASSERT((DUK_TVAL_IS_OBJECT(tv_tmp) && DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(tv_tmp))) ||
  53661. DUK_TVAL_IS_LIGHTFUNC(tv_tmp));
  53662. DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func));
  53663. DUK_ASSERT(func == NULL || (DUK_HOBJECT_IS_COMPFUNC(func) ||
  53664. DUK_HOBJECT_IS_NATFUNC(func)));
  53665. DUK_ASSERT(func == NULL || (DUK_HOBJECT_HAS_CONSTRUCTABLE(func) ||
  53666. (*call_flags & DUK_CALL_FLAG_CONSTRUCT) == 0));
  53667. }
  53668. #endif
  53669. return func;
  53670. not_callable:
  53671. DUK_ASSERT(tv_func != NULL);
  53672. #if defined(DUK_USE_VERBOSE_ERRORS)
  53673. /* GETPROPC delayed error handling: when target is not callable,
  53674. * GETPROPC replaces idx_func+0 with an Error (non-callable) with
  53675. * a hidden Symbol to signify it's to be thrown as is here. The
  53676. * hidden Symbol is only checked as an own property, not inherited
  53677. * (which would be dangerous).
  53678. */
  53679. if (DUK_TVAL_IS_OBJECT(tv_func)) {
  53680. if (duk_hobject_find_existing_entry_tval_ptr(thr->heap, DUK_TVAL_GET_OBJECT(tv_func), DUK_HTHREAD_STRING_INT_TARGET(thr)) != NULL) {
  53681. duk_push_tval(thr, tv_func);
  53682. (void) duk_throw(thr);
  53683. }
  53684. }
  53685. #endif
  53686. #if defined(DUK_USE_VERBOSE_ERRORS)
  53687. #if defined(DUK_USE_PARANOID_ERRORS)
  53688. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not callable", duk_get_type_name(thr, idx_func));
  53689. #else
  53690. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not callable", duk_push_string_tval_readable(thr, tv_func));
  53691. #endif
  53692. #else
  53693. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CALLABLE);
  53694. #endif
  53695. DUK_UNREACHABLE();
  53696. return NULL; /* never executed */
  53697. not_constructable:
  53698. /* For now GETPROPC delayed error not needed for constructor calls. */
  53699. #if defined(DUK_USE_VERBOSE_ERRORS)
  53700. #if defined(DUK_USE_PARANOID_ERRORS)
  53701. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not constructable", duk_get_type_name(thr, idx_func));
  53702. #else
  53703. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not constructable", duk_push_string_tval_readable(thr, tv_func));
  53704. #endif
  53705. #else
  53706. DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONSTRUCTABLE);
  53707. #endif
  53708. DUK_UNREACHABLE();
  53709. return NULL; /* never executed */
  53710. }
  53711. /*
  53712. * Manipulate value stack so that exactly 'num_stack_rets' return
  53713. * values are at 'idx_retbase' in every case, assuming there are
  53714. * 'rc' return values on top of stack.
  53715. *
  53716. * This is a bit tricky, because the called C function operates in
  53717. * the same activation record and may have e.g. popped the stack
  53718. * empty (below idx_retbase).
  53719. */
  53720. DUK_LOCAL void duk__safe_call_adjust_valstack(duk_hthread *thr, duk_idx_t idx_retbase, duk_idx_t num_stack_rets, duk_idx_t num_actual_rets) {
  53721. duk_idx_t idx_rcbase;
  53722. DUK_ASSERT(thr != NULL);
  53723. DUK_ASSERT(idx_retbase >= 0);
  53724. DUK_ASSERT(num_stack_rets >= 0);
  53725. DUK_ASSERT(num_actual_rets >= 0);
  53726. idx_rcbase = duk_get_top(thr) - num_actual_rets; /* base of known return values */
  53727. if (DUK_UNLIKELY(idx_rcbase < 0)) {
  53728. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_CFUNC_RC);
  53729. }
  53730. DUK_DDD(DUK_DDDPRINT("adjust valstack after func call: "
  53731. "num_stack_rets=%ld, num_actual_rets=%ld, stack_top=%ld, idx_retbase=%ld, idx_rcbase=%ld",
  53732. (long) num_stack_rets, (long) num_actual_rets, (long) duk_get_top(thr),
  53733. (long) idx_retbase, (long) idx_rcbase));
  53734. DUK_ASSERT(idx_rcbase >= 0); /* caller must check */
  53735. /* Space for num_stack_rets was reserved before the safe call.
  53736. * Because value stack reserve cannot shrink except in call returns,
  53737. * the reserve is still in place. Adjust valstack, carefully
  53738. * ensuring we don't overstep the reserve.
  53739. */
  53740. /* Match idx_rcbase with idx_retbase so that the return values
  53741. * start at the correct index.
  53742. */
  53743. if (idx_rcbase > idx_retbase) {
  53744. duk_idx_t count = idx_rcbase - idx_retbase;
  53745. DUK_DDD(DUK_DDDPRINT("elements at/after idx_retbase have enough to cover func retvals "
  53746. "(idx_retbase=%ld, idx_rcbase=%ld)", (long) idx_retbase, (long) idx_rcbase));
  53747. /* Remove values between irc_rcbase (start of intended return
  53748. * values) and idx_retbase to lower return values to idx_retbase.
  53749. */
  53750. DUK_ASSERT(count > 0);
  53751. duk_remove_n(thr, idx_retbase, count); /* may be NORZ */
  53752. } else {
  53753. duk_idx_t count = idx_retbase - idx_rcbase;
  53754. DUK_DDD(DUK_DDDPRINT("not enough elements at/after idx_retbase to cover func retvals "
  53755. "(idx_retbase=%ld, idx_rcbase=%ld)", (long) idx_retbase, (long) idx_rcbase));
  53756. /* Insert 'undefined' at idx_rcbase (start of intended return
  53757. * values) to lift return values to idx_retbase.
  53758. */
  53759. DUK_ASSERT(count >= 0);
  53760. DUK_ASSERT(thr->valstack_end - thr->valstack_top >= count); /* reserve cannot shrink */
  53761. duk_insert_undefined_n(thr, idx_rcbase, count);
  53762. }
  53763. /* Chop extra retvals away / extend with undefined. */
  53764. duk_set_top_unsafe(thr, idx_retbase + num_stack_rets);
  53765. }
  53766. /*
  53767. * Activation setup for tailcalls and non-tailcalls.
  53768. */
  53769. #if defined(DUK_USE_TAILCALL)
  53770. DUK_LOCAL duk_small_uint_t duk__call_setup_act_attempt_tailcall(duk_hthread *thr,
  53771. duk_small_uint_t call_flags,
  53772. duk_idx_t idx_func,
  53773. duk_hobject *func,
  53774. duk_size_t entry_valstack_bottom_byteoff,
  53775. duk_size_t entry_valstack_end_byteoff,
  53776. duk_idx_t *out_nargs,
  53777. duk_idx_t *out_nregs,
  53778. duk_size_t *out_vs_min_bytes,
  53779. duk_activation **out_act) {
  53780. duk_activation *act;
  53781. duk_tval *tv1, *tv2;
  53782. duk_idx_t idx_args;
  53783. duk_small_uint_t flags1, flags2;
  53784. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  53785. duk_activation *prev_pause_act;
  53786. #endif
  53787. DUK_UNREF(entry_valstack_end_byteoff);
  53788. /* Tailcall cannot be flagged to resume calls, and a
  53789. * previous frame must exist.
  53790. */
  53791. DUK_ASSERT(thr->callstack_top >= 1);
  53792. act = thr->callstack_curr;
  53793. DUK_ASSERT(act != NULL);
  53794. *out_act = act;
  53795. if (func == NULL || !DUK_HOBJECT_IS_COMPFUNC(func)) {
  53796. DUK_DDD(DUK_DDDPRINT("tail call prevented by target not being ecma function"));
  53797. return 0;
  53798. }
  53799. if (act->flags & DUK_ACT_FLAG_PREVENT_YIELD) {
  53800. DUK_DDD(DUK_DDDPRINT("tail call prevented by current activation having DUK_ACT_FLAG_PREVENT_YIELD"));
  53801. return 0;
  53802. }
  53803. /* Tailcall is only allowed if current and candidate
  53804. * function have identical return value handling. There
  53805. * are three possible return value handling cases:
  53806. * 1. Normal function call, no special return value handling.
  53807. * 2. Constructor call, return value replacement object check.
  53808. * 3. Proxy 'construct' trap call, return value invariant check.
  53809. */
  53810. flags1 = (duk_small_uint_t) ((act->flags & DUK_ACT_FLAG_CONSTRUCT) ? 1 : 0)
  53811. #if defined(DUK_USE_ES6_PROXY)
  53812. | (duk_small_uint_t) ((act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) ? 2 : 0)
  53813. #endif
  53814. ;
  53815. flags2 = (duk_small_uint_t) ((call_flags & DUK_CALL_FLAG_CONSTRUCT) ? 1 : 0)
  53816. #if defined(DUK_USE_ES6_PROXY)
  53817. | (duk_small_uint_t) ((call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) ? 2 : 0);
  53818. #endif
  53819. ;
  53820. if (flags1 != flags2) {
  53821. DUK_DDD(DUK_DDDPRINT("tail call prevented by incompatible return value handling"));
  53822. return 0;
  53823. }
  53824. DUK_ASSERT(((act->flags & DUK_ACT_FLAG_CONSTRUCT) && (call_flags & DUK_CALL_FLAG_CONSTRUCT)) ||
  53825. (!(act->flags & DUK_ACT_FLAG_CONSTRUCT) && !(call_flags & DUK_CALL_FLAG_CONSTRUCT)));
  53826. DUK_ASSERT(((act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) && (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY)) ||
  53827. (!(act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) && !(call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY)));
  53828. if (DUK_HOBJECT_HAS_NOTAIL(func)) {
  53829. /* See: test-bug-tailcall-preventyield-assert.c. */
  53830. DUK_DDD(DUK_DDDPRINT("tail call prevented by function having a notail flag"));
  53831. return 0;
  53832. }
  53833. /*
  53834. * Tailcall handling
  53835. *
  53836. * Although the callstack entry is reused, we need to explicitly unwind
  53837. * the current activation (or simulate an unwind). In particular, the
  53838. * current activation must be closed, otherwise something like
  53839. * test-bug-reduce-judofyr.js results. Also catchers need to be unwound
  53840. * because there may be non-error-catching label entries in valid tail calls.
  53841. *
  53842. * Special attention is needed for debugger and pause behavior when
  53843. * reusing an activation.
  53844. * - Disable StepOut processing for the activation unwind because
  53845. * we reuse the activation, see:
  53846. * https://github.com/svaarala/duktape/issues/1684.
  53847. * - Disable line change pause flag permanently (if set) because
  53848. * it would no longer be relevant, see:
  53849. * https://github.com/svaarala/duktape/issues/1726.
  53850. * - Check for function entry (e.g. StepInto) pause flag here, because
  53851. * the executor pause check won't trigger due to shared activation, see:
  53852. * https://github.com/svaarala/duktape/issues/1726.
  53853. */
  53854. DUK_DDD(DUK_DDDPRINT("is tail call, reusing activation at callstack top, at index %ld",
  53855. (long) (thr->callstack_top - 1)));
  53856. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func));
  53857. DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(func));
  53858. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func));
  53859. DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0);
  53860. DUK_ASSERT(call_flags & DUK_CALL_FLAG_ALLOW_ECMATOECMA);
  53861. /* Unwind the topmost callstack entry before reusing it. This
  53862. * also unwinds the catchers related to the topmost entry.
  53863. */
  53864. DUK_ASSERT(thr->callstack_top > 0);
  53865. DUK_ASSERT(thr->callstack_curr != NULL);
  53866. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  53867. prev_pause_act = thr->heap->dbg_pause_act;
  53868. thr->heap->dbg_pause_act = NULL;
  53869. thr->heap->dbg_pause_flags &= ~DUK_PAUSE_FLAG_LINE_CHANGE;
  53870. if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_ENTRY) {
  53871. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function entry (tailcall)"));
  53872. duk_debug_set_paused(thr->heap);
  53873. }
  53874. #endif
  53875. duk_hthread_activation_unwind_reuse_norz(thr);
  53876. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  53877. thr->heap->dbg_pause_act = prev_pause_act;
  53878. #endif
  53879. DUK_ASSERT(act == thr->callstack_curr);
  53880. /* XXX: We could restore the caller's value stack reserve
  53881. * here, as if we did an actual unwind-and-call. Without
  53882. * the restoration, value stack reserve may remain higher
  53883. * than would otherwise be possible until we return to a
  53884. * non-tailcall.
  53885. */
  53886. /* Then reuse the unwound activation. */
  53887. act->cat = NULL;
  53888. act->var_env = NULL;
  53889. act->lex_env = NULL;
  53890. DUK_ASSERT(func != NULL);
  53891. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func));
  53892. act->func = func; /* don't want an intermediate exposed state with func == NULL */
  53893. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  53894. act->prev_caller = NULL;
  53895. #endif
  53896. /* don't want an intermediate exposed state with invalid pc */
  53897. act->curr_pc = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) func);
  53898. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  53899. act->prev_line = 0;
  53900. #endif
  53901. DUK_TVAL_SET_OBJECT(&act->tv_func, func); /* borrowed, no refcount */
  53902. DUK_HOBJECT_INCREF(thr, func);
  53903. act->flags = DUK_ACT_FLAG_TAILCALLED;
  53904. if (DUK_HOBJECT_HAS_STRICT(func)) {
  53905. act->flags |= DUK_ACT_FLAG_STRICT;
  53906. }
  53907. if (call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  53908. act->flags |= DUK_ACT_FLAG_CONSTRUCT;
  53909. }
  53910. #if defined(DUK_USE_ES6_PROXY)
  53911. if (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) {
  53912. act->flags |= DUK_ACT_FLAG_CONSTRUCT_PROXY;
  53913. }
  53914. #endif
  53915. DUK_ASSERT(DUK_ACT_GET_FUNC(act) == func); /* already updated */
  53916. DUK_ASSERT(act->var_env == NULL);
  53917. DUK_ASSERT(act->lex_env == NULL);
  53918. act->bottom_byteoff = entry_valstack_bottom_byteoff; /* tail call -> reuse current "frame" */
  53919. #if 0
  53920. /* Topmost activation retval_byteoff is considered garbage, no need to init. */
  53921. act->retval_byteoff = 0;
  53922. #endif
  53923. /* Filled in when final reserve is known, dummy value doesn't matter
  53924. * even in error unwind because reserve_byteoff is only used when
  53925. * returning to -this- activation.
  53926. */
  53927. act->reserve_byteoff = 0;
  53928. /*
  53929. * Manipulate valstack so that args are on the current bottom and the
  53930. * previous caller's 'this' binding (which is the value preceding the
  53931. * current bottom) is replaced with the new 'this' binding:
  53932. *
  53933. * [ ... this_old | (crud) func this_new arg1 ... argN ]
  53934. * --> [ ... this_new | arg1 ... argN ]
  53935. *
  53936. * For tail calling to work properly, the valstack bottom must not grow
  53937. * here; otherwise crud would accumulate on the valstack.
  53938. */
  53939. tv1 = thr->valstack_bottom - 1;
  53940. tv2 = thr->valstack_bottom + idx_func + 1;
  53941. DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); /* tv1 is -below- valstack_bottom */
  53942. DUK_ASSERT(tv2 >= thr->valstack_bottom && tv2 < thr->valstack_top);
  53943. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */
  53944. idx_args = idx_func + 2;
  53945. duk_remove_n(thr, 0, idx_args); /* may be NORZ */
  53946. idx_func = 0; DUK_UNREF(idx_func); /* really 'not applicable' anymore, should not be referenced after this */
  53947. idx_args = 0;
  53948. *out_nargs = ((duk_hcompfunc *) func)->nargs;
  53949. *out_nregs = ((duk_hcompfunc *) func)->nregs;
  53950. DUK_ASSERT(*out_nregs >= 0);
  53951. DUK_ASSERT(*out_nregs >= *out_nargs);
  53952. *out_vs_min_bytes = entry_valstack_bottom_byteoff + sizeof(duk_tval) * ((duk_size_t) *out_nregs + DUK_VALSTACK_INTERNAL_EXTRA);
  53953. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  53954. #if defined(DUK_USE_TAILCALL)
  53955. #error incorrect options: tail calls enabled with function caller property
  53956. #endif
  53957. /* XXX: This doesn't actually work properly for tail calls, so
  53958. * tail calls are disabled when DUK_USE_NONSTD_FUNC_CALLER_PROPERTY
  53959. * is in use.
  53960. */
  53961. duk__update_func_caller_prop(thr, func);
  53962. #endif
  53963. /* [ ... this_new | arg1 ... argN ] */
  53964. return 1;
  53965. }
  53966. #endif /* DUK_USE_TAILCALL */
  53967. DUK_LOCAL void duk__call_setup_act_not_tailcall(duk_hthread *thr,
  53968. duk_small_uint_t call_flags,
  53969. duk_idx_t idx_func,
  53970. duk_hobject *func,
  53971. duk_size_t entry_valstack_bottom_byteoff,
  53972. duk_size_t entry_valstack_end_byteoff,
  53973. duk_idx_t *out_nargs,
  53974. duk_idx_t *out_nregs,
  53975. duk_size_t *out_vs_min_bytes,
  53976. duk_activation **out_act) {
  53977. duk_activation *act;
  53978. duk_activation *new_act;
  53979. DUK_UNREF(entry_valstack_end_byteoff);
  53980. DUK_DDD(DUK_DDDPRINT("not a tail call, pushing a new activation to callstack, to index %ld",
  53981. (long) (thr->callstack_top)));
  53982. duk__call_callstack_limit_check(thr);
  53983. new_act = duk_hthread_activation_alloc(thr);
  53984. DUK_ASSERT(new_act != NULL);
  53985. act = thr->callstack_curr;
  53986. if (act != NULL) {
  53987. /*
  53988. * Update return value stack index of current activation (if any).
  53989. *
  53990. * Although it might seem this is not necessary (bytecode executor
  53991. * does this for Ecmascript-to-Ecmascript calls; other calls are
  53992. * handled here), this turns out to be necessary for handling yield
  53993. * and resume. For them, an Ecmascript-to-native call happens, and
  53994. * the Ecmascript call's retval_byteoff must be set for things to work.
  53995. */
  53996. act->retval_byteoff = entry_valstack_bottom_byteoff + (duk_size_t) idx_func * sizeof(duk_tval);
  53997. }
  53998. new_act->parent = act;
  53999. thr->callstack_curr = new_act;
  54000. thr->callstack_top++;
  54001. act = new_act;
  54002. *out_act = act;
  54003. DUK_ASSERT(thr->valstack_top > thr->valstack_bottom); /* at least effective 'this' */
  54004. DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func));
  54005. act->cat = NULL;
  54006. act->flags = 0;
  54007. if (call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  54008. act->flags |= DUK_ACT_FLAG_CONSTRUCT;
  54009. }
  54010. #if defined(DUK_USE_ES6_PROXY)
  54011. if (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) {
  54012. act->flags |= DUK_ACT_FLAG_CONSTRUCT_PROXY;
  54013. }
  54014. #endif
  54015. if (call_flags & DUK_CALL_FLAG_DIRECT_EVAL) {
  54016. act->flags |= DUK_ACT_FLAG_DIRECT_EVAL;
  54017. }
  54018. /* start of arguments: idx_func + 2. */
  54019. act->func = func; /* NULL for lightfunc */
  54020. if (DUK_LIKELY(func != NULL)) {
  54021. DUK_TVAL_SET_OBJECT(&act->tv_func, func); /* borrowed, no refcount */
  54022. if (DUK_HOBJECT_HAS_STRICT(func)) {
  54023. act->flags |= DUK_ACT_FLAG_STRICT;
  54024. }
  54025. if (DUK_HOBJECT_IS_COMPFUNC(func)) {
  54026. *out_nargs = ((duk_hcompfunc *) func)->nargs;
  54027. *out_nregs = ((duk_hcompfunc *) func)->nregs;
  54028. DUK_ASSERT(*out_nregs >= 0);
  54029. DUK_ASSERT(*out_nregs >= *out_nargs);
  54030. *out_vs_min_bytes = entry_valstack_bottom_byteoff +
  54031. sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nregs + DUK_VALSTACK_INTERNAL_EXTRA);
  54032. } else {
  54033. /* True because of call target lookup checks. */
  54034. DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(func));
  54035. *out_nargs = ((duk_hnatfunc *) func)->nargs;
  54036. *out_nregs = *out_nargs;
  54037. if (*out_nargs >= 0) {
  54038. *out_vs_min_bytes = entry_valstack_bottom_byteoff +
  54039. sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nregs + DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA);
  54040. } else {
  54041. /* Vararg function. */
  54042. duk_size_t valstack_top_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - ((duk_uint8_t *) thr->valstack));
  54043. *out_vs_min_bytes = valstack_top_byteoff +
  54044. sizeof(duk_tval) * (DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA);
  54045. }
  54046. }
  54047. } else {
  54048. duk_small_uint_t lf_flags;
  54049. duk_tval *tv_func;
  54050. act->flags |= DUK_ACT_FLAG_STRICT;
  54051. tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func);
  54052. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func));
  54053. DUK_TVAL_SET_TVAL(&act->tv_func, tv_func); /* borrowed, no refcount */
  54054. lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv_func);
  54055. *out_nargs = DUK_LFUNC_FLAGS_GET_NARGS(lf_flags);
  54056. if (*out_nargs != DUK_LFUNC_NARGS_VARARGS) {
  54057. *out_vs_min_bytes = entry_valstack_bottom_byteoff +
  54058. sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nargs + DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA);
  54059. } else {
  54060. duk_size_t valstack_top_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - ((duk_uint8_t *) thr->valstack));
  54061. *out_vs_min_bytes = valstack_top_byteoff +
  54062. sizeof(duk_tval) * (DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA);
  54063. *out_nargs = -1; /* vararg */
  54064. }
  54065. *out_nregs = *out_nargs;
  54066. }
  54067. act->var_env = NULL;
  54068. act->lex_env = NULL;
  54069. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  54070. act->prev_caller = NULL;
  54071. #endif
  54072. act->curr_pc = NULL;
  54073. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  54074. act->prev_line = 0;
  54075. #endif
  54076. act->bottom_byteoff = entry_valstack_bottom_byteoff + sizeof(duk_tval) * ((duk_size_t) idx_func + 2U);
  54077. #if 0
  54078. act->retval_byteoff = 0; /* topmost activation retval_byteoff is considered garbage, no need to init */
  54079. #endif
  54080. /* Filled in when final reserve is known, dummy value doesn't matter
  54081. * even in error unwind because reserve_byteoff is only used when
  54082. * returning to -this- activation.
  54083. */
  54084. act->reserve_byteoff = 0; /* filled in by caller */
  54085. /* XXX: Is this INCREF necessary? 'func' is always a borrowed
  54086. * reference reachable through the value stack? If changed, stack
  54087. * unwind code also needs to be fixed to match.
  54088. */
  54089. DUK_HOBJECT_INCREF_ALLOWNULL(thr, func); /* act->func */
  54090. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  54091. if (func) {
  54092. duk__update_func_caller_prop(thr, func);
  54093. }
  54094. #endif
  54095. }
  54096. /*
  54097. * Environment setup.
  54098. */
  54099. DUK_LOCAL void duk__call_env_setup(duk_hthread *thr, duk_hobject *func, duk_activation *act, duk_idx_t idx_args) {
  54100. duk_hobject *env;
  54101. DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound function has already been resolved */
  54102. if (DUK_LIKELY(func != NULL)) {
  54103. if (DUK_LIKELY(DUK_HOBJECT_HAS_NEWENV(func))) {
  54104. if (DUK_LIKELY(!DUK_HOBJECT_HAS_CREATEARGS(func))) {
  54105. /* Use a new environment but there's no 'arguments' object;
  54106. * delayed environment initialization. This is the most
  54107. * common case.
  54108. */
  54109. DUK_ASSERT(act->lex_env == NULL);
  54110. DUK_ASSERT(act->var_env == NULL);
  54111. } else {
  54112. /* Use a new environment and there's an 'arguments' object.
  54113. * We need to initialize it right now.
  54114. */
  54115. /* third arg: absolute index (to entire valstack) of bottom_byteoff of new activation */
  54116. env = duk_create_activation_environment_record(thr, func, act->bottom_byteoff);
  54117. DUK_ASSERT(env != NULL);
  54118. /* [ ... func this arg1 ... argN envobj ] */
  54119. DUK_ASSERT(DUK_HOBJECT_HAS_CREATEARGS(func));
  54120. duk__handle_createargs_for_call(thr, func, env, idx_args);
  54121. /* [ ... func this arg1 ... argN envobj ] */
  54122. act->lex_env = env;
  54123. act->var_env = env;
  54124. DUK_HOBJECT_INCREF(thr, env);
  54125. DUK_HOBJECT_INCREF(thr, env); /* XXX: incref by count (2) directly */
  54126. duk_pop(thr);
  54127. }
  54128. } else {
  54129. /* Use existing env (e.g. for non-strict eval); cannot have
  54130. * an own 'arguments' object (but can refer to an existing one).
  54131. */
  54132. DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(func));
  54133. duk__handle_oldenv_for_call(thr, func, act);
  54134. DUK_ASSERT(act->lex_env != NULL);
  54135. DUK_ASSERT(act->var_env != NULL);
  54136. }
  54137. } else {
  54138. /* Lightfuncs are always native functions and have "newenv". */
  54139. DUK_ASSERT(act->lex_env == NULL);
  54140. DUK_ASSERT(act->var_env == NULL);
  54141. }
  54142. }
  54143. /*
  54144. * Misc shared helpers.
  54145. */
  54146. /* Check thread state, update current thread. */
  54147. DUK_LOCAL void duk__call_thread_state_update(duk_hthread *thr) {
  54148. DUK_ASSERT(thr != NULL);
  54149. if (DUK_LIKELY(thr == thr->heap->curr_thread)) {
  54150. if (DUK_UNLIKELY(thr->state != DUK_HTHREAD_STATE_RUNNING)) {
  54151. /* Should actually never happen, but check anyway. */
  54152. goto thread_state_error;
  54153. }
  54154. } else {
  54155. DUK_ASSERT(thr->heap->curr_thread == NULL ||
  54156. thr->heap->curr_thread->state == DUK_HTHREAD_STATE_RUNNING);
  54157. if (DUK_UNLIKELY(thr->state != DUK_HTHREAD_STATE_INACTIVE)) {
  54158. goto thread_state_error;
  54159. }
  54160. DUK_HEAP_SWITCH_THREAD(thr->heap, thr);
  54161. thr->state = DUK_HTHREAD_STATE_RUNNING;
  54162. /* Multiple threads may be simultaneously in the RUNNING
  54163. * state, but not in the same "resume chain".
  54164. */
  54165. }
  54166. DUK_ASSERT(thr->heap->curr_thread == thr);
  54167. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING);
  54168. return;
  54169. thread_state_error:
  54170. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "invalid thread state (%ld)", (long) thr->state);
  54171. DUK_UNREACHABLE();
  54172. }
  54173. /*
  54174. * Main unprotected call handler, handles:
  54175. *
  54176. * - All combinations of native/Ecmascript caller and native/Ecmascript
  54177. * target.
  54178. *
  54179. * - Optimized Ecmascript-to-Ecmascript call where call handling only
  54180. * sets up a new duk_activation but reuses an existing bytecode executor
  54181. * (the caller) without native recursion.
  54182. *
  54183. * - Tailcalls, where an activation is reused without increasing call
  54184. * stack (duk_activation) depth.
  54185. *
  54186. * - Setup for an initial Duktape.Thread.resume().
  54187. *
  54188. * The call handler doesn't provide any protection guarantees, protected calls
  54189. * must be implemented e.g. by wrapping the call in a duk_safe_call().
  54190. * Call setup may fail at any stage, even when the new activation is in
  54191. * place; the only guarantee is that the state is consistent for unwinding.
  54192. */
  54193. DUK_LOCAL duk_int_t duk__handle_call_raw(duk_hthread *thr,
  54194. duk_idx_t idx_func,
  54195. duk_small_uint_t call_flags) {
  54196. #if defined(DUK_USE_ASSERTIONS)
  54197. duk_activation *entry_act;
  54198. duk_size_t entry_callstack_top;
  54199. #endif
  54200. duk_size_t entry_valstack_bottom_byteoff;
  54201. duk_size_t entry_valstack_end_byteoff;
  54202. duk_int_t entry_call_recursion_depth;
  54203. duk_hthread *entry_curr_thread;
  54204. duk_uint_fast8_t entry_thread_state;
  54205. duk_instr_t **entry_ptr_curr_pc;
  54206. duk_idx_t idx_args;
  54207. duk_idx_t nargs; /* # argument registers target function wants (< 0 => "as is") */
  54208. duk_idx_t nregs; /* # total registers target function wants on entry (< 0 => "as is") */
  54209. duk_size_t vs_min_bytes; /* minimum value stack size (bytes) for handling call */
  54210. duk_hobject *func; /* 'func' on stack (borrowed reference) */
  54211. duk_activation *act;
  54212. duk_ret_t rc;
  54213. duk_small_uint_t use_tailcall;
  54214. DUK_ASSERT(thr != NULL);
  54215. DUK_ASSERT(thr->heap != NULL);
  54216. /* Asserts for heap->curr_thread omitted: it may be NULL, 'thr', or
  54217. * any other thread (e.g. when heap thread is used to run finalizers).
  54218. */
  54219. DUK_ASSERT_CTX_VALID(thr);
  54220. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  54221. DUK_ASSERT(idx_func >= 0);
  54222. DUK_STATS_INC(thr->heap, stats_call_all);
  54223. /* If a tail call:
  54224. * - an Ecmascript activation must be on top of the callstack
  54225. * - there cannot be any catch stack entries that would catch
  54226. * a return
  54227. */
  54228. #if defined(DUK_USE_ASSERTIONS)
  54229. if (call_flags & DUK_CALL_FLAG_TAILCALL) {
  54230. duk_activation *tmp_act;
  54231. duk_catcher *tmp_cat;
  54232. DUK_ASSERT(thr->callstack_top >= 1);
  54233. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL);
  54234. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  54235. /* No entry in the catch stack which would actually catch a
  54236. * throw can refer to the callstack entry being reused.
  54237. * There *can* be catch stack entries referring to the current
  54238. * callstack entry as long as they don't catch (e.g. label sites).
  54239. */
  54240. tmp_act = thr->callstack_curr;
  54241. for (tmp_cat = tmp_act->cat; tmp_cat != NULL; tmp_cat = tmp_cat->parent) {
  54242. DUK_ASSERT(DUK_CAT_GET_TYPE(tmp_cat) == DUK_CAT_TYPE_LABEL); /* a non-catching entry */
  54243. }
  54244. }
  54245. #endif /* DUK_USE_ASSERTIONS */
  54246. /*
  54247. * Store entry state.
  54248. */
  54249. #if defined(DUK_USE_ASSERTIONS)
  54250. entry_act = thr->callstack_curr;
  54251. entry_callstack_top = thr->callstack_top;
  54252. #endif
  54253. entry_valstack_bottom_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack);
  54254. entry_valstack_end_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack);
  54255. entry_call_recursion_depth = thr->heap->call_recursion_depth;
  54256. entry_curr_thread = thr->heap->curr_thread; /* may be NULL if first call */
  54257. entry_thread_state = thr->state;
  54258. entry_ptr_curr_pc = thr->ptr_curr_pc; /* may be NULL */
  54259. /* If thr->ptr_curr_pc is set, sync curr_pc to act->pc. Then NULL
  54260. * thr->ptr_curr_pc so that it's not accidentally used with an incorrect
  54261. * activation when side effects occur.
  54262. */
  54263. duk_hthread_sync_and_null_currpc(thr);
  54264. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  54265. DUK_DD(DUK_DDPRINT("duk__handle_call_raw: thr=%p, idx_func=%ld, "
  54266. "call_flags=0x%08lx (constructor=%ld), "
  54267. "valstack_top=%ld, idx_func=%ld, idx_args=%ld, rec_depth=%ld/%ld, "
  54268. "entry_valstack_bottom_byteoff=%ld, entry_valstack_end_byteoff=%ld, "
  54269. "entry_call_recursion_depth=%ld, "
  54270. "entry_curr_thread=%p, entry_thread_state=%ld",
  54271. (void *) thr,
  54272. (long) idx_func,
  54273. (unsigned long) call_flags,
  54274. (long) ((call_flags & DUK_CALL_FLAG_CONSTRUCT) != 0 ? 1 : 0),
  54275. (long) duk_get_top(thr),
  54276. (long) idx_func,
  54277. (long) (idx_func + 2),
  54278. (long) thr->heap->call_recursion_depth,
  54279. (long) thr->heap->call_recursion_limit,
  54280. (long) entry_valstack_bottom_byteoff,
  54281. (long) entry_valstack_end_byteoff,
  54282. (long) entry_call_recursion_depth,
  54283. (void *) entry_curr_thread,
  54284. (long) entry_thread_state));
  54285. /*
  54286. * Thread state check and book-keeping.
  54287. */
  54288. duk__call_thread_state_update(thr);
  54289. /*
  54290. * Resolve final target function; handle bound functions and special
  54291. * functions like .call() and .apply(). Also figure out the effective
  54292. * 'this' binding, which replaces the current value at idx_func + 1.
  54293. */
  54294. if (DUK_LIKELY(duk__resolve_target_fastpath_check(thr, idx_func, &func, call_flags) != 0U)) {
  54295. DUK_DDD(DUK_DDDPRINT("fast path target resolve"));
  54296. } else {
  54297. DUK_DDD(DUK_DDDPRINT("slow path target resolve"));
  54298. func = duk__resolve_target_func_and_this_binding(thr, idx_func, &call_flags);
  54299. }
  54300. DUK_ASSERT(duk_get_top(thr) - idx_func >= 2); /* at least func and this present */
  54301. DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func));
  54302. DUK_ASSERT(func == NULL || (DUK_HOBJECT_IS_COMPFUNC(func) ||
  54303. DUK_HOBJECT_IS_NATFUNC(func)));
  54304. /* [ ... func this arg1 ... argN ] */
  54305. /*
  54306. * Setup a preliminary activation and figure out nargs/nregs and
  54307. * value stack minimum size.
  54308. *
  54309. * Don't touch valstack_bottom or valstack_top yet so that Duktape API
  54310. * calls work normally.
  54311. *
  54312. * Because 'act' is not zeroed, all fields must be filled in.
  54313. */
  54314. #if defined(DUK_USE_TAILCALL)
  54315. use_tailcall = (call_flags & DUK_CALL_FLAG_TAILCALL);
  54316. if (use_tailcall) {
  54317. use_tailcall = duk__call_setup_act_attempt_tailcall(thr,
  54318. call_flags,
  54319. idx_func,
  54320. func,
  54321. entry_valstack_bottom_byteoff,
  54322. entry_valstack_end_byteoff,
  54323. &nargs,
  54324. &nregs,
  54325. &vs_min_bytes,
  54326. &act);
  54327. }
  54328. #else
  54329. DUK_ASSERT((call_flags & DUK_CALL_FLAG_TAILCALL) == 0); /* compiler ensures this */
  54330. use_tailcall = 0;
  54331. #endif
  54332. if (use_tailcall) {
  54333. idx_args = 0;
  54334. DUK_STATS_INC(thr->heap, stats_call_tailcall);
  54335. } else {
  54336. duk__call_setup_act_not_tailcall(thr,
  54337. call_flags,
  54338. idx_func,
  54339. func,
  54340. entry_valstack_bottom_byteoff,
  54341. entry_valstack_end_byteoff,
  54342. &nargs,
  54343. &nregs,
  54344. &vs_min_bytes,
  54345. &act);
  54346. idx_args = idx_func + 2;
  54347. }
  54348. /* After this point idx_func is no longer valid for tailcalls. */
  54349. DUK_ASSERT(act != NULL);
  54350. /* [ ... func this arg1 ... argN ] */
  54351. /*
  54352. * Environment record creation and 'arguments' object creation.
  54353. * Named function expression name binding is handled by the
  54354. * compiler; the compiled function's parent env will contain
  54355. * the (immutable) binding already.
  54356. *
  54357. * This handling is now identical for C and Ecmascript functions.
  54358. * C functions always have the 'NEWENV' flag set, so their
  54359. * environment record initialization is delayed (which is good).
  54360. *
  54361. * Delayed creation (on demand) is handled in duk_js_var.c.
  54362. */
  54363. duk__call_env_setup(thr, func, act, idx_args);
  54364. /* [ ... func this arg1 ... argN ] */
  54365. /*
  54366. * Setup value stack: clamp to 'nargs', fill up to 'nregs',
  54367. * ensure value stack size matches target requirements, and
  54368. * switch value stack bottom. Valstack top is kept.
  54369. *
  54370. * Value stack can only grow here.
  54371. */
  54372. duk_valstack_grow_check_throw(thr, vs_min_bytes);
  54373. act->reserve_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack);
  54374. if (use_tailcall) {
  54375. DUK_ASSERT(nregs >= 0);
  54376. DUK_ASSERT(nregs >= nargs);
  54377. duk_set_top_and_wipe(thr, nregs, nargs);
  54378. } else {
  54379. if (nregs >= 0) {
  54380. DUK_ASSERT(nregs >= nargs);
  54381. duk_set_top_and_wipe(thr, idx_func + 2 + nregs, idx_func + 2 + nargs);
  54382. } else {
  54383. ;
  54384. }
  54385. thr->valstack_bottom = thr->valstack_bottom + idx_func + 2;
  54386. }
  54387. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  54388. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  54389. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  54390. /*
  54391. * Make the actual call. For Ecma-to-Ecma calls detect that
  54392. * setup is complete, then return with a status code that allows
  54393. * the caller to reuse the running executor.
  54394. */
  54395. if (func != NULL && DUK_HOBJECT_IS_COMPFUNC(func)) {
  54396. /*
  54397. * Ecmascript call.
  54398. */
  54399. DUK_ASSERT(func != NULL);
  54400. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func));
  54401. act->curr_pc = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) func);
  54402. if (call_flags & DUK_CALL_FLAG_ALLOW_ECMATOECMA) {
  54403. DUK_DD(DUK_DDPRINT("avoid native call, use existing executor"));
  54404. DUK_STATS_INC(thr->heap, stats_call_ecmatoecma);
  54405. DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0);
  54406. DUK_REFZERO_CHECK_FAST(thr);
  54407. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  54408. return 1; /* 1=reuse executor */
  54409. }
  54410. DUK_ASSERT(use_tailcall == 0);
  54411. /* duk_hthread_activation_unwind_norz() will decrease this on unwind */
  54412. DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0);
  54413. act->flags |= DUK_ACT_FLAG_PREVENT_YIELD;
  54414. thr->callstack_preventcount++;
  54415. /* XXX: we could just do this on entry regardless of reuse, as long
  54416. * as recursion depth is decreased for e2e case.
  54417. */
  54418. duk__call_c_recursion_limit_check(thr);
  54419. thr->heap->call_recursion_depth++;
  54420. /* [ ... func this | arg1 ... argN ] ('this' must precede new bottom) */
  54421. /*
  54422. * Bytecode executor call.
  54423. *
  54424. * Execute bytecode, handling any recursive function calls and
  54425. * thread resumptions. Returns when execution would return from
  54426. * the entry level activation. When the executor returns, a
  54427. * single return value is left on the stack top.
  54428. *
  54429. * The only possible longjmp() is an error (DUK_LJ_TYPE_THROW),
  54430. * other types are handled internally by the executor.
  54431. */
  54432. /* thr->ptr_curr_pc is set by bytecode executor early on entry */
  54433. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  54434. DUK_DDD(DUK_DDDPRINT("entering bytecode execution"));
  54435. duk_js_execute_bytecode(thr);
  54436. DUK_DDD(DUK_DDDPRINT("returned from bytecode execution"));
  54437. } else {
  54438. /*
  54439. * Native call.
  54440. */
  54441. DUK_ASSERT(func == NULL || ((duk_hnatfunc *) func)->func != NULL);
  54442. DUK_ASSERT(use_tailcall == 0);
  54443. /* [ ... func this | arg1 ... argN ] ('this' must precede new bottom) */
  54444. /* duk_hthread_activation_unwind_norz() will decrease this on unwind */
  54445. DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0);
  54446. act->flags |= DUK_ACT_FLAG_PREVENT_YIELD;
  54447. thr->callstack_preventcount++;
  54448. /* XXX: we could just do this on entry regardless of reuse, as long
  54449. * as recursion depth is decreased for e2e case.
  54450. */
  54451. duk__call_c_recursion_limit_check(thr);
  54452. thr->heap->call_recursion_depth++;
  54453. /* For native calls must be NULL so we don't sync back */
  54454. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  54455. /* XXX: native funcptr could come out of call setup. */
  54456. if (func) {
  54457. rc = ((duk_hnatfunc *) func)->func(thr);
  54458. } else {
  54459. duk_tval *tv_func;
  54460. duk_c_function funcptr;
  54461. tv_func = &act->tv_func;
  54462. DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func));
  54463. funcptr = DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv_func);
  54464. rc = funcptr(thr);
  54465. }
  54466. /* Automatic error throwing, retval check. */
  54467. if (rc == 0) {
  54468. DUK_ASSERT(thr->valstack < thr->valstack_end);
  54469. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top));
  54470. thr->valstack_top++;
  54471. } else if (rc == 1) {
  54472. ;
  54473. } else if (rc < 0) {
  54474. duk_error_throw_from_negative_rc(thr, rc);
  54475. DUK_UNREACHABLE();
  54476. } else {
  54477. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_CFUNC_RC);
  54478. }
  54479. }
  54480. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  54481. DUK_ASSERT(use_tailcall == 0);
  54482. /*
  54483. * Constructor call post processing.
  54484. */
  54485. #if defined(DUK_USE_ES6_PROXY)
  54486. if (call_flags & (DUK_CALL_FLAG_CONSTRUCT | DUK_CALL_FLAG_CONSTRUCT_PROXY)) {
  54487. duk_call_construct_postprocess(thr, call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY);
  54488. }
  54489. #else
  54490. if (call_flags & DUK_CALL_FLAG_CONSTRUCT) {
  54491. duk_call_construct_postprocess(thr, 0);
  54492. }
  54493. #endif
  54494. /*
  54495. * Unwind, restore valstack bottom and other book-keeping.
  54496. */
  54497. DUK_ASSERT(thr->callstack_curr != NULL);
  54498. DUK_ASSERT(thr->callstack_curr->parent == entry_act);
  54499. DUK_ASSERT(thr->callstack_top == entry_callstack_top + 1);
  54500. duk_hthread_activation_unwind_norz(thr);
  54501. DUK_ASSERT(thr->callstack_curr == entry_act);
  54502. DUK_ASSERT(thr->callstack_top == entry_callstack_top);
  54503. thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_bottom_byteoff);
  54504. /* keep current valstack_top */
  54505. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  54506. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  54507. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  54508. DUK_ASSERT(thr->valstack_top - thr->valstack_bottom >= idx_func + 1);
  54509. /* Return value handling. */
  54510. /* [ ... func this (crud) retval ] */
  54511. {
  54512. duk_tval *tv_ret;
  54513. duk_tval *tv_funret;
  54514. tv_ret = thr->valstack_bottom + idx_func;
  54515. tv_funret = thr->valstack_top - 1;
  54516. #if defined(DUK_USE_FASTINT)
  54517. /* Explicit check for fastint downgrade. */
  54518. DUK_TVAL_CHKFAST_INPLACE_FAST(tv_funret);
  54519. #endif
  54520. DUK_TVAL_SET_TVAL_UPDREF(thr, tv_ret, tv_funret); /* side effects */
  54521. }
  54522. duk_set_top_unsafe(thr, idx_func + 1);
  54523. /* [ ... retval ] */
  54524. /* Restore caller's value stack reserve (cannot fail). */
  54525. DUK_ASSERT((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff >= (duk_uint8_t *) thr->valstack_top);
  54526. DUK_ASSERT((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff <= (duk_uint8_t *) thr->valstack_alloc_end);
  54527. thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff);
  54528. /* XXX: Trial value stack shrink would be OK here, but we'd need
  54529. * to prevent side effects of the potential realloc.
  54530. */
  54531. /* Restore entry thread executor curr_pc stack frame pointer. */
  54532. thr->ptr_curr_pc = entry_ptr_curr_pc;
  54533. DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */
  54534. thr->state = (duk_uint8_t) entry_thread_state;
  54535. /* Disabled assert: triggered with some torture tests. */
  54536. #if 0
  54537. DUK_ASSERT((thr->state == DUK_HTHREAD_STATE_INACTIVE && thr->heap->curr_thread == NULL) || /* first call */
  54538. (thr->state == DUK_HTHREAD_STATE_INACTIVE && thr->heap->curr_thread != NULL) || /* other call */
  54539. (thr->state == DUK_HTHREAD_STATE_RUNNING && thr->heap->curr_thread == thr)); /* current thread */
  54540. #endif
  54541. thr->heap->call_recursion_depth = entry_call_recursion_depth;
  54542. /* If the debugger is active we need to force an interrupt so that
  54543. * debugger breakpoints are rechecked. This is important for function
  54544. * calls caused by side effects (e.g. when doing a DUK_OP_GETPROP), see
  54545. * GH-303. Only needed for success path, error path always causes a
  54546. * breakpoint recheck in the executor. It would be enough to set this
  54547. * only when returning to an Ecmascript activation, but setting the flag
  54548. * on every return should have no ill effect.
  54549. */
  54550. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  54551. if (duk_debug_is_attached(thr->heap)) {
  54552. DUK_DD(DUK_DDPRINT("returning with debugger enabled, force interrupt"));
  54553. DUK_ASSERT(thr->interrupt_counter <= thr->interrupt_init);
  54554. thr->interrupt_init -= thr->interrupt_counter;
  54555. thr->interrupt_counter = 0;
  54556. thr->heap->dbg_force_restart = 1;
  54557. }
  54558. #endif
  54559. #if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG)
  54560. duk__interrupt_fixup(thr, entry_curr_thread);
  54561. #endif
  54562. /* Restored by success path. */
  54563. DUK_ASSERT(thr->heap->call_recursion_depth == entry_call_recursion_depth);
  54564. DUK_ASSERT(thr->ptr_curr_pc == entry_ptr_curr_pc);
  54565. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  54566. DUK_REFZERO_CHECK_FAST(thr);
  54567. return 0; /* 0=call handled inline */
  54568. }
  54569. DUK_INTERNAL duk_int_t duk_handle_call_unprotected_nargs(duk_hthread *thr,
  54570. duk_idx_t nargs,
  54571. duk_small_uint_t call_flags) {
  54572. duk_idx_t idx_func;
  54573. DUK_ASSERT(duk_get_top(thr) >= nargs + 2);
  54574. idx_func = duk_get_top(thr) - (nargs + 2);
  54575. DUK_ASSERT(idx_func >= 0);
  54576. return duk_handle_call_unprotected(thr, idx_func, call_flags);
  54577. }
  54578. DUK_INTERNAL duk_int_t duk_handle_call_unprotected(duk_hthread *thr,
  54579. duk_idx_t idx_func,
  54580. duk_small_uint_t call_flags) {
  54581. DUK_ASSERT(duk_is_valid_index(thr, idx_func));
  54582. DUK_ASSERT(idx_func >= 0);
  54583. return duk__handle_call_raw(thr, idx_func, call_flags);
  54584. }
  54585. /*
  54586. * duk_handle_safe_call(): make a "C protected call" within the
  54587. * current activation.
  54588. *
  54589. * The allowed thread states for making a call are the same as for
  54590. * duk_handle_call_protected().
  54591. *
  54592. * Even though this call is protected, errors are thrown for insane arguments
  54593. * and may result in a fatal error unless there's another protected call which
  54594. * catches such errors.
  54595. *
  54596. * The error handling path should be error free, even for out-of-memory
  54597. * errors, to ensure safe sandboxing. (As of Duktape 2.2.0 this is not
  54598. * yet the case for environment closing which may run out of memory, see
  54599. * XXX notes below.)
  54600. */
  54601. DUK_LOCAL void duk__handle_safe_call_inner(duk_hthread *thr,
  54602. duk_safe_call_function func,
  54603. void *udata,
  54604. #if defined(DUK_USE_ASSERTIONS)
  54605. duk_size_t entry_valstack_bottom_byteoff,
  54606. duk_size_t entry_callstack_top,
  54607. #endif
  54608. duk_hthread *entry_curr_thread,
  54609. duk_uint_fast8_t entry_thread_state,
  54610. duk_idx_t idx_retbase,
  54611. duk_idx_t num_stack_rets) {
  54612. duk_ret_t rc;
  54613. DUK_ASSERT(thr != NULL);
  54614. DUK_ASSERT_CTX_VALID(thr);
  54615. /*
  54616. * Thread state check and book-keeping.
  54617. */
  54618. duk__call_thread_state_update(thr);
  54619. /*
  54620. * Recursion limit check.
  54621. */
  54622. duk__call_c_recursion_limit_check(thr);
  54623. thr->heap->call_recursion_depth++;
  54624. /*
  54625. * Make the C call.
  54626. */
  54627. rc = func(thr, udata);
  54628. DUK_DDD(DUK_DDDPRINT("safe_call, func rc=%ld", (long) rc));
  54629. /*
  54630. * Valstack manipulation for results.
  54631. */
  54632. /* we're running inside the caller's activation, so no change in call/catch stack or valstack bottom */
  54633. DUK_ASSERT(thr->callstack_top == entry_callstack_top);
  54634. DUK_ASSERT(thr->valstack_bottom >= thr->valstack);
  54635. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) == entry_valstack_bottom_byteoff);
  54636. DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom);
  54637. DUK_ASSERT(thr->valstack_end >= thr->valstack_top);
  54638. if (DUK_UNLIKELY(rc < 0)) {
  54639. duk_error_throw_from_negative_rc(thr, rc);
  54640. }
  54641. DUK_ASSERT(rc >= 0);
  54642. duk__safe_call_adjust_valstack(thr, idx_retbase, num_stack_rets, rc); /* throws for insane rc */
  54643. DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */
  54644. thr->state = (duk_uint8_t) entry_thread_state;
  54645. }
  54646. DUK_LOCAL void duk__handle_safe_call_error(duk_hthread *thr,
  54647. duk_activation *entry_act,
  54648. #if defined(DUK_USE_ASSERTIONS)
  54649. duk_size_t entry_callstack_top,
  54650. #endif
  54651. duk_hthread *entry_curr_thread,
  54652. duk_uint_fast8_t entry_thread_state,
  54653. duk_idx_t idx_retbase,
  54654. duk_idx_t num_stack_rets,
  54655. duk_size_t entry_valstack_bottom_byteoff,
  54656. duk_jmpbuf *old_jmpbuf_ptr) {
  54657. DUK_ASSERT(thr != NULL);
  54658. DUK_ASSERT_CTX_VALID(thr);
  54659. /*
  54660. * Error during call. The error value is at heap->lj.value1.
  54661. *
  54662. * The very first thing we do is restore the previous setjmp catcher.
  54663. * This means that any error in error handling will propagate outwards
  54664. * instead of causing a setjmp() re-entry above.
  54665. */
  54666. DUK_DDD(DUK_DDDPRINT("error caught during protected duk_handle_safe_call()"));
  54667. /* Other longjmp types are handled by executor before propagating
  54668. * the error here.
  54669. */
  54670. DUK_ASSERT(thr->heap->lj.type == DUK_LJ_TYPE_THROW);
  54671. DUK_ASSERT_LJSTATE_SET(thr->heap);
  54672. /* Either pointer may be NULL (at entry), so don't assert. */
  54673. thr->heap->lj.jmpbuf_ptr = old_jmpbuf_ptr;
  54674. /* XXX: callstack unwind may now throw an error when closing
  54675. * scopes; this is a sandboxing issue, described in:
  54676. * https://github.com/svaarala/duktape/issues/476
  54677. */
  54678. /* XXX: "unwind to" primitive? */
  54679. DUK_ASSERT(thr->callstack_top >= entry_callstack_top);
  54680. while (thr->callstack_curr != entry_act) {
  54681. DUK_ASSERT(thr->callstack_curr != NULL);
  54682. duk_hthread_activation_unwind_norz(thr);
  54683. }
  54684. DUK_ASSERT(thr->callstack_top == entry_callstack_top);
  54685. /* Switch active thread before any side effects to avoid a
  54686. * dangling curr_thread pointer.
  54687. */
  54688. DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */
  54689. thr->state = (duk_uint8_t) entry_thread_state;
  54690. DUK_ASSERT(thr->heap->curr_thread == entry_curr_thread);
  54691. DUK_ASSERT(thr->state == entry_thread_state);
  54692. /* Restore valstack bottom. */
  54693. thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_bottom_byteoff);
  54694. /* [ ... | (crud) ] */
  54695. /* XXX: ensure space in valstack (now relies on internal reserve)? */
  54696. duk_push_tval(thr, &thr->heap->lj.value1);
  54697. /* [ ... | (crud) errobj ] */
  54698. DUK_ASSERT(duk_get_top(thr) >= 1); /* at least errobj must be on stack */
  54699. duk__safe_call_adjust_valstack(thr, idx_retbase, num_stack_rets, 1); /* 1 = num actual 'return values' */
  54700. /* [ ... | ] or [ ... | errobj (M * undefined)] where M = num_stack_rets - 1 */
  54701. /* Reset longjmp state. */
  54702. thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN;
  54703. thr->heap->lj.iserror = 0;
  54704. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, &thr->heap->lj.value1);
  54705. DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, &thr->heap->lj.value2);
  54706. /* Error handling complete, remove side effect protections. Caller
  54707. * will process pending finalizers.
  54708. */
  54709. #if defined(DUK_USE_ASSERTIONS)
  54710. DUK_ASSERT(thr->heap->error_not_allowed == 1);
  54711. thr->heap->error_not_allowed = 0;
  54712. #endif
  54713. DUK_ASSERT(thr->heap->pf_prevent_count > 0);
  54714. thr->heap->pf_prevent_count--;
  54715. DUK_DD(DUK_DDPRINT("safe call error handled, pf_prevent_count updated to %ld", (long) thr->heap->pf_prevent_count));
  54716. /* thr->ptr_curr_pc is restored by
  54717. * duk__handle_safe_call_shared_unwind() which is also used for
  54718. * success path.
  54719. */
  54720. }
  54721. DUK_LOCAL void duk__handle_safe_call_shared_unwind(duk_hthread *thr,
  54722. duk_idx_t idx_retbase,
  54723. duk_idx_t num_stack_rets,
  54724. #if defined(DUK_USE_ASSERTIONS)
  54725. duk_size_t entry_callstack_top,
  54726. #endif
  54727. duk_int_t entry_call_recursion_depth,
  54728. duk_hthread *entry_curr_thread,
  54729. duk_instr_t **entry_ptr_curr_pc) {
  54730. DUK_ASSERT(thr != NULL);
  54731. DUK_ASSERT_CTX_VALID(thr);
  54732. DUK_UNREF(idx_retbase);
  54733. DUK_UNREF(num_stack_rets);
  54734. DUK_UNREF(entry_curr_thread);
  54735. DUK_ASSERT(thr->callstack_top == entry_callstack_top);
  54736. /* Restore entry thread executor curr_pc stack frame pointer.
  54737. * XXX: would be enough to do in error path only, should nest
  54738. * cleanly in success path.
  54739. */
  54740. thr->ptr_curr_pc = entry_ptr_curr_pc;
  54741. thr->heap->call_recursion_depth = entry_call_recursion_depth;
  54742. /* stack discipline consistency check */
  54743. DUK_ASSERT(duk_get_top(thr) == idx_retbase + num_stack_rets);
  54744. /* A debugger forced interrupt check is not needed here, as
  54745. * problematic safe calls are not caused by side effects.
  54746. */
  54747. #if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG)
  54748. duk__interrupt_fixup(thr, entry_curr_thread);
  54749. #endif
  54750. }
  54751. DUK_INTERNAL duk_int_t duk_handle_safe_call(duk_hthread *thr,
  54752. duk_safe_call_function func,
  54753. void *udata,
  54754. duk_idx_t num_stack_args,
  54755. duk_idx_t num_stack_rets) {
  54756. duk_activation *entry_act;
  54757. duk_size_t entry_valstack_bottom_byteoff;
  54758. #if defined(DUK_USE_ASSERTIONS)
  54759. duk_size_t entry_valstack_end_byteoff;
  54760. duk_size_t entry_callstack_top;
  54761. duk_size_t entry_callstack_preventcount;
  54762. #endif
  54763. duk_int_t entry_call_recursion_depth;
  54764. duk_hthread *entry_curr_thread;
  54765. duk_uint_fast8_t entry_thread_state;
  54766. duk_instr_t **entry_ptr_curr_pc;
  54767. duk_jmpbuf *old_jmpbuf_ptr = NULL;
  54768. duk_jmpbuf our_jmpbuf;
  54769. duk_idx_t idx_retbase;
  54770. duk_int_t retval;
  54771. DUK_ASSERT(thr != NULL);
  54772. DUK_ASSERT(duk_get_top(thr) >= num_stack_args); /* Caller ensures. */
  54773. DUK_STATS_INC(thr->heap, stats_safecall_all);
  54774. /* Value stack reserve handling: safe call assumes caller has reserved
  54775. * space for nrets (assuming optimal unwind processing). Value stack
  54776. * reserve is not stored/restored as for normal calls because a safe
  54777. * call conceptually happens in the same activation.
  54778. */
  54779. /* Careful with indices like '-x'; if 'x' is zero, it refers to bottom */
  54780. entry_act = thr->callstack_curr;
  54781. entry_valstack_bottom_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack);
  54782. #if defined(DUK_USE_ASSERTIONS)
  54783. entry_valstack_end_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack);
  54784. entry_callstack_top = thr->callstack_top;
  54785. entry_callstack_preventcount = thr->callstack_preventcount;
  54786. #endif
  54787. entry_call_recursion_depth = thr->heap->call_recursion_depth;
  54788. entry_curr_thread = thr->heap->curr_thread; /* may be NULL if first call */
  54789. entry_thread_state = thr->state;
  54790. entry_ptr_curr_pc = thr->ptr_curr_pc; /* may be NULL */
  54791. idx_retbase = duk_get_top(thr) - num_stack_args; /* not a valid stack index if num_stack_args == 0 */
  54792. DUK_ASSERT(idx_retbase >= 0);
  54793. DUK_ASSERT((duk_idx_t) (thr->valstack_top - thr->valstack_bottom) >= num_stack_args); /* Caller ensures. */
  54794. DUK_ASSERT((duk_idx_t) (thr->valstack_end - (thr->valstack_bottom + idx_retbase)) >= num_stack_rets); /* Caller ensures. */
  54795. /* Cannot portably debug print a function pointer, hence 'func' not printed! */
  54796. DUK_DD(DUK_DDPRINT("duk_handle_safe_call: thr=%p, num_stack_args=%ld, num_stack_rets=%ld, "
  54797. "valstack_top=%ld, idx_retbase=%ld, rec_depth=%ld/%ld, "
  54798. "entry_act=%p, entry_valstack_bottom_byteoff=%ld, entry_call_recursion_depth=%ld, "
  54799. "entry_curr_thread=%p, entry_thread_state=%ld",
  54800. (void *) thr,
  54801. (long) num_stack_args,
  54802. (long) num_stack_rets,
  54803. (long) duk_get_top(thr),
  54804. (long) idx_retbase,
  54805. (long) thr->heap->call_recursion_depth,
  54806. (long) thr->heap->call_recursion_limit,
  54807. (void *) entry_act,
  54808. (long) entry_valstack_bottom_byteoff,
  54809. (long) entry_call_recursion_depth,
  54810. (void *) entry_curr_thread,
  54811. (long) entry_thread_state));
  54812. /* Setjmp catchpoint setup. */
  54813. old_jmpbuf_ptr = thr->heap->lj.jmpbuf_ptr;
  54814. thr->heap->lj.jmpbuf_ptr = &our_jmpbuf;
  54815. /* Prevent yields for the duration of the safe call. This only
  54816. * matters if the executor makes safe calls to functions that
  54817. * yield, this doesn't currently happen.
  54818. */
  54819. thr->callstack_preventcount++;
  54820. #if defined(DUK_USE_CPP_EXCEPTIONS)
  54821. try {
  54822. #else
  54823. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr == &our_jmpbuf);
  54824. if (DUK_SETJMP(our_jmpbuf.jb) == 0) {
  54825. /* Success path. */
  54826. #endif
  54827. DUK_DDD(DUK_DDDPRINT("safe_call setjmp catchpoint setup complete"));
  54828. duk__handle_safe_call_inner(thr,
  54829. func,
  54830. udata,
  54831. #if defined(DUK_USE_ASSERTIONS)
  54832. entry_valstack_bottom_byteoff,
  54833. entry_callstack_top,
  54834. #endif
  54835. entry_curr_thread,
  54836. entry_thread_state,
  54837. idx_retbase,
  54838. num_stack_rets);
  54839. DUK_STATS_INC(thr->heap, stats_safecall_nothrow);
  54840. /* Either pointer may be NULL (at entry), so don't assert */
  54841. thr->heap->lj.jmpbuf_ptr = old_jmpbuf_ptr;
  54842. /* If calls happen inside the safe call, these are restored by
  54843. * whatever calls are made. Reserve cannot decrease.
  54844. */
  54845. DUK_ASSERT(thr->callstack_curr == entry_act);
  54846. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54847. retval = DUK_EXEC_SUCCESS;
  54848. #if defined(DUK_USE_CPP_EXCEPTIONS)
  54849. } catch (duk_internal_exception &exc) {
  54850. DUK_UNREF(exc);
  54851. #else
  54852. } else {
  54853. /* Error path. */
  54854. #endif
  54855. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54856. DUK_STATS_INC(thr->heap, stats_safecall_throw);
  54857. duk__handle_safe_call_error(thr,
  54858. entry_act,
  54859. #if defined(DUK_USE_ASSERTIONS)
  54860. entry_callstack_top,
  54861. #endif
  54862. entry_curr_thread,
  54863. entry_thread_state,
  54864. idx_retbase,
  54865. num_stack_rets,
  54866. entry_valstack_bottom_byteoff,
  54867. old_jmpbuf_ptr);
  54868. retval = DUK_EXEC_ERROR;
  54869. }
  54870. #if defined(DUK_USE_CPP_EXCEPTIONS)
  54871. catch (std::exception &exc) {
  54872. const char *what = exc.what();
  54873. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54874. DUK_STATS_INC(thr->heap, stats_safecall_throw);
  54875. if (!what) {
  54876. what = "unknown";
  54877. }
  54878. DUK_D(DUK_DPRINT("unexpected c++ std::exception (perhaps thrown by user code)"));
  54879. try {
  54880. DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "caught invalid c++ std::exception '%s' (perhaps thrown by user code)", what);
  54881. } catch (duk_internal_exception exc) {
  54882. DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ std::exception"));
  54883. DUK_UNREF(exc);
  54884. duk__handle_safe_call_error(thr,
  54885. entry_act,
  54886. #if defined(DUK_USE_ASSERTIONS)
  54887. entry_callstack_top,
  54888. #endif
  54889. entry_curr_thread,
  54890. entry_thread_state,
  54891. idx_retbase,
  54892. num_stack_rets,
  54893. entry_valstack_bottom_byteoff,
  54894. old_jmpbuf_ptr);
  54895. retval = DUK_EXEC_ERROR;
  54896. }
  54897. } catch (...) {
  54898. DUK_D(DUK_DPRINT("unexpected c++ exception (perhaps thrown by user code)"));
  54899. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54900. DUK_STATS_INC(thr->heap, stats_safecall_throw);
  54901. try {
  54902. DUK_ERROR_TYPE(thr, "caught invalid c++ exception (perhaps thrown by user code)");
  54903. } catch (duk_internal_exception exc) {
  54904. DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ exception"));
  54905. DUK_UNREF(exc);
  54906. duk__handle_safe_call_error(thr,
  54907. entry_act,
  54908. #if defined(DUK_USE_ASSERTIONS)
  54909. entry_callstack_top,
  54910. #endif
  54911. entry_curr_thread,
  54912. entry_thread_state,
  54913. idx_retbase,
  54914. num_stack_rets,
  54915. entry_valstack_bottom_byteoff,
  54916. old_jmpbuf_ptr);
  54917. retval = DUK_EXEC_ERROR;
  54918. }
  54919. }
  54920. #endif
  54921. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr == old_jmpbuf_ptr); /* success/error path both do this */
  54922. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  54923. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54924. duk__handle_safe_call_shared_unwind(thr,
  54925. idx_retbase,
  54926. num_stack_rets,
  54927. #if defined(DUK_USE_ASSERTIONS)
  54928. entry_callstack_top,
  54929. #endif
  54930. entry_call_recursion_depth,
  54931. entry_curr_thread,
  54932. entry_ptr_curr_pc);
  54933. /* Restore preventcount. */
  54934. thr->callstack_preventcount--;
  54935. DUK_ASSERT(thr->callstack_preventcount == entry_callstack_preventcount);
  54936. /* Final asserts. */
  54937. DUK_ASSERT(thr->callstack_curr == entry_act);
  54938. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) == entry_valstack_bottom_byteoff);
  54939. DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff);
  54940. DUK_ASSERT(thr->callstack_top == entry_callstack_top);
  54941. DUK_ASSERT(thr->heap->call_recursion_depth == entry_call_recursion_depth);
  54942. DUK_ASSERT(thr->heap->curr_thread == entry_curr_thread);
  54943. DUK_ASSERT(thr->state == entry_thread_state);
  54944. DUK_ASSERT(thr->ptr_curr_pc == entry_ptr_curr_pc);
  54945. DUK_ASSERT(duk_get_top(thr) == idx_retbase + num_stack_rets);
  54946. DUK_ASSERT_LJSTATE_UNSET(thr->heap);
  54947. /* Pending side effects. */
  54948. DUK_REFZERO_CHECK_FAST(thr);
  54949. return retval;
  54950. }
  54951. /*
  54952. * Property-based call (foo.noSuch()) error setup: replace target function
  54953. * on stack top with a specially tagged (hidden Symbol) error which gets
  54954. * thrown in call handling at the proper spot to follow Ecmascript semantics.
  54955. */
  54956. #if defined(DUK_USE_VERBOSE_ERRORS)
  54957. DUK_INTERNAL DUK_NOINLINE DUK_COLD void duk_call_setup_propcall_error(duk_hthread *thr, duk_tval *tv_targ, duk_tval *tv_base, duk_tval *tv_key) {
  54958. const char *str1, *str2, *str3;
  54959. duk_idx_t entry_top;
  54960. entry_top = duk_get_top(thr);
  54961. /* Must stabilize pointers first. Argument convention is a bit awkward,
  54962. * it comes from the executor call site where some arguments may not be
  54963. * on the value stack (consts).
  54964. */
  54965. duk_push_tval(thr, tv_base);
  54966. duk_push_tval(thr, tv_key);
  54967. duk_push_tval(thr, tv_targ);
  54968. DUK_GC_TORTURE(thr->heap);
  54969. /* We only push an error, replacing the call target (at idx_func)
  54970. * with the error to ensure side effects come out correctly:
  54971. * - Property read
  54972. * - Call argument evaluation
  54973. * - Callability check and error thrown.
  54974. *
  54975. * A hidden Symbol on the error object pushed here is used by
  54976. * call handling to figure out the error is to be thrown as is.
  54977. * It is CRITICAL that the hidden Symbol can never occur on a
  54978. * user visible object that may get thrown.
  54979. */
  54980. #if defined(DUK_USE_PARANOID_ERRORS)
  54981. str1 = duk_get_type_name(thr, -1);
  54982. str2 = duk_get_type_name(thr, -2);
  54983. str3 = duk_get_type_name(thr, -3);
  54984. duk_push_error_object(thr, DUK_ERR_TYPE_ERROR | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, "%s not callable (property %s of %s)", str1, str2, str3);
  54985. #else
  54986. str1 = duk_push_string_readable(thr, -1);
  54987. str2 = duk_push_string_readable(thr, -3);
  54988. str3 = duk_push_string_readable(thr, -5);
  54989. duk_push_error_object(thr, DUK_ERR_TYPE_ERROR | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, "%s not callable (property %s of %s)", str1, str2, str3);
  54990. #endif
  54991. duk_push_true(thr);
  54992. duk_put_prop_stridx(thr, -2, DUK_STRIDX_INT_TARGET); /* Marker property, reuse _Target. */
  54993. /* [ <nregs> propValue <variable> error ] */
  54994. duk_replace(thr, entry_top - 1);
  54995. duk_set_top(thr, entry_top);
  54996. DUK_ASSERT(!duk_is_callable(thr, -1)); /* Critical so that call handling will throw the error. */
  54997. }
  54998. #endif /* DUK_USE_VERBOSE_ERRORS */
  54999. /* automatic undefs */
  55000. #undef DUK__AUGMENT_CALL_RELAX_COUNT
  55001. #line 1 "duk_js_compiler.c"
  55002. /*
  55003. * Ecmascript compiler.
  55004. *
  55005. * Parses an input string and generates a function template result.
  55006. * Compilation may happen in multiple contexts (global code, eval
  55007. * code, function code).
  55008. *
  55009. * The parser uses a traditional top-down recursive parsing for the
  55010. * statement level, and an operator precedence based top-down approach
  55011. * for the expression level. The attempt is to minimize the C stack
  55012. * depth. Bytecode is generated directly without an intermediate
  55013. * representation (tree), at the cost of needing two (and sometimes
  55014. * three) passes over each function.
  55015. *
  55016. * The top-down recursive parser functions are named "duk__parse_XXX".
  55017. *
  55018. * Recursion limits are in key functions to prevent arbitrary C recursion:
  55019. * function body parsing, statement parsing, and expression parsing.
  55020. *
  55021. * See doc/compiler.rst for discussion on the design.
  55022. *
  55023. * A few typing notes:
  55024. *
  55025. * - duk_regconst_t: signed, highest bit set (< 0) means constant,
  55026. * some call sites use -1 for "none" (equivalent to constant 0x7fffffff)
  55027. * - PC values: duk_int_t, negative values used as markers
  55028. */
  55029. /* #include duk_internal.h -> already included */
  55030. /* If highest bit of a register number is set, it refers to a constant instead.
  55031. * When interpreted as a signed value, this means const values are always
  55032. * negative (when interpreted as two's complement). For example DUK__ISREG_TEMP()
  55033. * uses this approach to avoid an explicit DUK__ISREG() check (the condition is
  55034. * logically "'x' is a register AND 'x' >= temp_first").
  55035. */
  55036. #define DUK__CONST_MARKER DUK_REGCONST_CONST_MARKER
  55037. #define DUK__REMOVECONST(x) ((x) & ~DUK__CONST_MARKER)
  55038. #define DUK__ISREG(x) ((x) >= 0)
  55039. #define DUK__ISCONST(x) ((x) < 0)
  55040. #define DUK__ISREG_TEMP(comp_ctx,x) ((duk_int32_t) (x) >= (duk_int32_t) ((comp_ctx)->curr_func.temp_first)) /* Check for x >= temp_first && x >= 0 by comparing as signed. */
  55041. #define DUK__ISREG_NOTTEMP(comp_ctx,x) ((duk_uint32_t) (x) < (duk_uint32_t) ((comp_ctx)->curr_func.temp_first)) /* Check for x >= 0 && x < temp_first by interpreting as unsigned. */
  55042. #define DUK__GETTEMP(comp_ctx) ((comp_ctx)->curr_func.temp_next)
  55043. #define DUK__SETTEMP(comp_ctx,x) ((comp_ctx)->curr_func.temp_next = (x)) /* dangerous: must only lower (temp_max not updated) */
  55044. #define DUK__SETTEMP_CHECKMAX(comp_ctx,x) duk__settemp_checkmax((comp_ctx),(x))
  55045. #define DUK__ALLOCTEMP(comp_ctx) duk__alloctemp((comp_ctx))
  55046. #define DUK__ALLOCTEMPS(comp_ctx,count) duk__alloctemps((comp_ctx),(count))
  55047. /* Init value set size for array and object literals. */
  55048. #define DUK__MAX_ARRAY_INIT_VALUES 20
  55049. #define DUK__MAX_OBJECT_INIT_PAIRS 10
  55050. /* XXX: hack, remove when const lookup is not O(n) */
  55051. #define DUK__GETCONST_MAX_CONSTS_CHECK 256
  55052. /* These limits are based on bytecode limits. Max temps is limited
  55053. * by duk_hcompfunc nargs/nregs fields being 16 bits.
  55054. */
  55055. #define DUK__MAX_CONSTS DUK_BC_BC_MAX
  55056. #define DUK__MAX_FUNCS DUK_BC_BC_MAX
  55057. #define DUK__MAX_TEMPS 0xffffL
  55058. /* Initial bytecode size allocation. */
  55059. #if defined(DUK_USE_PREFER_SIZE)
  55060. #define DUK__BC_INITIAL_INSTS 16
  55061. #else
  55062. #define DUK__BC_INITIAL_INSTS 256
  55063. #endif
  55064. #define DUK__RECURSION_INCREASE(comp_ctx,thr) do { \
  55065. DUK_DDD(DUK_DDDPRINT("RECURSION INCREASE: %s:%ld", (const char *) DUK_FILE_MACRO, (long) DUK_LINE_MACRO)); \
  55066. duk__comp_recursion_increase((comp_ctx)); \
  55067. } while (0)
  55068. #define DUK__RECURSION_DECREASE(comp_ctx,thr) do { \
  55069. DUK_DDD(DUK_DDDPRINT("RECURSION DECREASE: %s:%ld", (const char *) DUK_FILE_MACRO, (long) DUK_LINE_MACRO)); \
  55070. duk__comp_recursion_decrease((comp_ctx)); \
  55071. } while (0)
  55072. /* Value stack slot limits: these are quite approximate right now, and
  55073. * because they overlap in control flow, some could be eliminated.
  55074. */
  55075. #define DUK__COMPILE_ENTRY_SLOTS 8
  55076. #define DUK__FUNCTION_INIT_REQUIRE_SLOTS 16
  55077. #define DUK__FUNCTION_BODY_REQUIRE_SLOTS 16
  55078. #define DUK__PARSE_STATEMENTS_SLOTS 16
  55079. #define DUK__PARSE_EXPR_SLOTS 16
  55080. /* Temporary structure used to pass a stack allocated region through
  55081. * duk_safe_call().
  55082. */
  55083. typedef struct {
  55084. duk_small_uint_t flags;
  55085. duk_compiler_ctx comp_ctx_alloc;
  55086. duk_lexer_point lex_pt_alloc;
  55087. } duk__compiler_stkstate;
  55088. /*
  55089. * Prototypes
  55090. */
  55091. /* lexing */
  55092. DUK_LOCAL_DECL void duk__advance_helper(duk_compiler_ctx *comp_ctx, duk_small_int_t expect);
  55093. DUK_LOCAL_DECL void duk__advance_expect(duk_compiler_ctx *comp_ctx, duk_small_int_t expect);
  55094. DUK_LOCAL_DECL void duk__advance(duk_compiler_ctx *ctx);
  55095. /* function helpers */
  55096. DUK_LOCAL_DECL void duk__init_func_valstack_slots(duk_compiler_ctx *comp_ctx);
  55097. DUK_LOCAL_DECL void duk__reset_func_for_pass2(duk_compiler_ctx *comp_ctx);
  55098. DUK_LOCAL_DECL void duk__init_varmap_and_prologue_for_pass2(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_stmt_value_reg);
  55099. DUK_LOCAL_DECL void duk__convert_to_func_template(duk_compiler_ctx *comp_ctx);
  55100. DUK_LOCAL_DECL duk_int_t duk__cleanup_varmap(duk_compiler_ctx *comp_ctx);
  55101. /* code emission */
  55102. DUK_LOCAL_DECL duk_int_t duk__get_current_pc(duk_compiler_ctx *comp_ctx);
  55103. DUK_LOCAL_DECL duk_compiler_instr *duk__get_instr_ptr(duk_compiler_ctx *comp_ctx, duk_int_t pc);
  55104. DUK_LOCAL_DECL void duk__emit(duk_compiler_ctx *comp_ctx, duk_instr_t ins);
  55105. DUK_LOCAL_DECL void duk__emit_op_only(duk_compiler_ctx *comp_ctx, duk_small_uint_t op);
  55106. DUK_LOCAL_DECL void duk__emit_a_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b, duk_regconst_t c);
  55107. DUK_LOCAL_DECL void duk__emit_a_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b);
  55108. DUK_LOCAL_DECL void duk__emit_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b, duk_regconst_t c);
  55109. #if 0 /* unused */
  55110. DUK_LOCAL_DECL void duk__emit_a(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a);
  55111. DUK_LOCAL_DECL void duk__emit_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b);
  55112. #endif
  55113. DUK_LOCAL_DECL void duk__emit_a_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t bc);
  55114. DUK_LOCAL_DECL void duk__emit_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t bc);
  55115. DUK_LOCAL_DECL void duk__emit_abc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t abc);
  55116. DUK_LOCAL_DECL void duk__emit_load_int32(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val);
  55117. DUK_LOCAL_DECL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val);
  55118. DUK_LOCAL_DECL void duk__emit_jump(duk_compiler_ctx *comp_ctx, duk_int_t target_pc);
  55119. DUK_LOCAL_DECL duk_int_t duk__emit_jump_empty(duk_compiler_ctx *comp_ctx);
  55120. DUK_LOCAL_DECL void duk__insert_jump_entry(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc);
  55121. DUK_LOCAL_DECL void duk__patch_jump(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc, duk_int_t target_pc);
  55122. DUK_LOCAL_DECL void duk__patch_jump_here(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc);
  55123. DUK_LOCAL_DECL void duk__patch_trycatch(duk_compiler_ctx *comp_ctx, duk_int_t ldconst_pc, duk_int_t trycatch_pc, duk_regconst_t reg_catch, duk_regconst_t const_varname, duk_small_uint_t flags);
  55124. DUK_LOCAL_DECL void duk__emit_if_false_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst);
  55125. DUK_LOCAL_DECL void duk__emit_if_true_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst);
  55126. DUK_LOCAL_DECL void duk__emit_invalid(duk_compiler_ctx *comp_ctx);
  55127. /* ivalue/ispec helpers */
  55128. DUK_LOCAL_DECL void duk__ivalue_regconst(duk_ivalue *x, duk_regconst_t regconst);
  55129. DUK_LOCAL_DECL void duk__ivalue_plain_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55130. DUK_LOCAL_DECL void duk__ivalue_var_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55131. DUK_LOCAL_DECL void duk__ivalue_var_hstring(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_hstring *h);
  55132. DUK_LOCAL_DECL void duk__copy_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *src, duk_ispec *dst);
  55133. DUK_LOCAL_DECL void duk__copy_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *src, duk_ivalue *dst);
  55134. DUK_LOCAL_DECL duk_regconst_t duk__alloctemps(duk_compiler_ctx *comp_ctx, duk_small_int_t num);
  55135. DUK_LOCAL_DECL duk_regconst_t duk__alloctemp(duk_compiler_ctx *comp_ctx);
  55136. DUK_LOCAL_DECL void duk__settemp_checkmax(duk_compiler_ctx *comp_ctx, duk_regconst_t temp_next);
  55137. DUK_LOCAL_DECL duk_regconst_t duk__getconst(duk_compiler_ctx *comp_ctx);
  55138. DUK_LOCAL_DECL
  55139. duk_regconst_t duk__ispec_toregconst_raw(duk_compiler_ctx *comp_ctx,
  55140. duk_ispec *x,
  55141. duk_regconst_t forced_reg,
  55142. duk_small_uint_t flags);
  55143. DUK_LOCAL_DECL void duk__ispec_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ispec *x, duk_regconst_t forced_reg);
  55144. DUK_LOCAL_DECL void duk__ivalue_toplain_raw(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_regconst_t forced_reg);
  55145. DUK_LOCAL_DECL void duk__ivalue_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55146. DUK_LOCAL_DECL void duk__ivalue_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55147. DUK_LOCAL_DECL
  55148. duk_regconst_t duk__ivalue_toregconst_raw(duk_compiler_ctx *comp_ctx,
  55149. duk_ivalue *x,
  55150. duk_regconst_t forced_reg,
  55151. duk_small_uint_t flags);
  55152. DUK_LOCAL_DECL duk_regconst_t duk__ivalue_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55153. #if 0 /* unused */
  55154. DUK_LOCAL_DECL duk_regconst_t duk__ivalue_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55155. #endif
  55156. DUK_LOCAL_DECL void duk__ivalue_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_int_t forced_reg);
  55157. DUK_LOCAL_DECL duk_regconst_t duk__ivalue_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55158. DUK_LOCAL_DECL duk_regconst_t duk__ivalue_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x);
  55159. /* identifier handling */
  55160. DUK_LOCAL_DECL duk_regconst_t duk__lookup_active_register_binding(duk_compiler_ctx *comp_ctx);
  55161. DUK_LOCAL_DECL duk_bool_t duk__lookup_lhs(duk_compiler_ctx *ctx, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname);
  55162. /* label handling */
  55163. DUK_LOCAL_DECL void duk__add_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_int_t pc_label, duk_int_t label_id);
  55164. DUK_LOCAL_DECL void duk__update_label_flags(duk_compiler_ctx *comp_ctx, duk_int_t label_id, duk_small_uint_t flags);
  55165. DUK_LOCAL_DECL void duk__lookup_active_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_bool_t is_break, duk_int_t *out_label_id, duk_int_t *out_label_catch_depth, duk_int_t *out_label_pc, duk_bool_t *out_is_closest);
  55166. DUK_LOCAL_DECL void duk__reset_labels_to_length(duk_compiler_ctx *comp_ctx, duk_size_t len);
  55167. /* top-down expression parser */
  55168. DUK_LOCAL_DECL void duk__expr_nud(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55169. DUK_LOCAL_DECL void duk__expr_led(duk_compiler_ctx *comp_ctx, duk_ivalue *left, duk_ivalue *res);
  55170. DUK_LOCAL_DECL duk_small_uint_t duk__expr_lbp(duk_compiler_ctx *comp_ctx);
  55171. DUK_LOCAL_DECL duk_bool_t duk__expr_is_empty(duk_compiler_ctx *comp_ctx);
  55172. /* exprtop is the top level variant which resets nud/led counts */
  55173. DUK_LOCAL_DECL void duk__expr(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55174. DUK_LOCAL_DECL void duk__exprtop(duk_compiler_ctx *ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55175. /* convenience helpers */
  55176. #if 0 /* unused */
  55177. DUK_LOCAL_DECL duk_regconst_t duk__expr_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55178. #endif
  55179. #if 0 /* unused */
  55180. DUK_LOCAL_DECL duk_regconst_t duk__expr_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55181. #endif
  55182. DUK_LOCAL_DECL void duk__expr_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg);
  55183. DUK_LOCAL_DECL duk_regconst_t duk__expr_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55184. #if 0 /* unused */
  55185. DUK_LOCAL_DECL duk_regconst_t duk__expr_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55186. #endif
  55187. DUK_LOCAL_DECL void duk__expr_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55188. DUK_LOCAL_DECL void duk__expr_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55189. DUK_LOCAL_DECL duk_regconst_t duk__exprtop_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55190. #if 0 /* unused */
  55191. DUK_LOCAL_DECL duk_regconst_t duk__exprtop_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55192. #endif
  55193. DUK_LOCAL_DECL void duk__exprtop_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg);
  55194. DUK_LOCAL_DECL duk_regconst_t duk__exprtop_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55195. #if 0 /* unused */
  55196. DUK_LOCAL_DECL void duk__exprtop_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags);
  55197. #endif
  55198. /* expression parsing helpers */
  55199. DUK_LOCAL_DECL duk_int_t duk__parse_arguments(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55200. DUK_LOCAL_DECL void duk__nud_array_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55201. DUK_LOCAL_DECL void duk__nud_object_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55202. /* statement parsing */
  55203. DUK_LOCAL_DECL void duk__parse_var_decl(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname);
  55204. DUK_LOCAL_DECL void duk__parse_var_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags);
  55205. DUK_LOCAL_DECL void duk__parse_for_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site);
  55206. DUK_LOCAL_DECL void duk__parse_switch_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site);
  55207. DUK_LOCAL_DECL void duk__parse_if_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55208. DUK_LOCAL_DECL void duk__parse_do_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site);
  55209. DUK_LOCAL_DECL void duk__parse_while_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site);
  55210. DUK_LOCAL_DECL void duk__parse_break_or_continue_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55211. DUK_LOCAL_DECL void duk__parse_return_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55212. DUK_LOCAL_DECL void duk__parse_throw_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55213. DUK_LOCAL_DECL void duk__parse_try_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55214. DUK_LOCAL_DECL void duk__parse_with_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res);
  55215. DUK_LOCAL_DECL void duk__parse_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_bool_t allow_source_elem);
  55216. DUK_LOCAL_DECL duk_int_t duk__stmt_label_site(duk_compiler_ctx *comp_ctx, duk_int_t label_id);
  55217. DUK_LOCAL_DECL void duk__parse_stmts(duk_compiler_ctx *comp_ctx, duk_bool_t allow_source_elem, duk_bool_t expect_eof);
  55218. DUK_LOCAL_DECL void duk__parse_func_body(duk_compiler_ctx *comp_ctx, duk_bool_t expect_eof, duk_bool_t implicit_return_value, duk_small_int_t expect_token);
  55219. DUK_LOCAL_DECL void duk__parse_func_formals(duk_compiler_ctx *comp_ctx);
  55220. DUK_LOCAL_DECL void duk__parse_func_like_raw(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags);
  55221. DUK_LOCAL_DECL duk_int_t duk__parse_func_like_fnum(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags);
  55222. #define DUK__FUNC_FLAG_DECL (1 << 0) /* Parsing a function declaration. */
  55223. #define DUK__FUNC_FLAG_GETSET (1 << 1) /* Parsing an object literal getter/setter. */
  55224. #define DUK__FUNC_FLAG_METDEF (1 << 2) /* Parsing an object literal method definition shorthand. */
  55225. #define DUK__FUNC_FLAG_PUSHNAME_PASS1 (1 << 3) /* Push function name when creating template (first pass only). */
  55226. #define DUK__FUNC_FLAG_USE_PREVTOKEN (1 << 4) /* Use prev_token to start function parsing (workaround for object literal). */
  55227. /*
  55228. * Parser control values for tokens. The token table is ordered by the
  55229. * DUK_TOK_XXX defines.
  55230. *
  55231. * The binding powers are for lbp() use (i.e. for use in led() context).
  55232. * Binding powers are positive for typing convenience, and bits at the
  55233. * top should be reserved for flags. Binding power step must be higher
  55234. * than 1 so that binding power "lbp - 1" can be used for right associative
  55235. * operators. Currently a step of 2 is used (which frees one more bit for
  55236. * flags).
  55237. */
  55238. /* XXX: actually single step levels would work just fine, clean up */
  55239. /* binding power "levels" (see doc/compiler.rst) */
  55240. #define DUK__BP_INVALID 0 /* always terminates led() */
  55241. #define DUK__BP_EOF 2
  55242. #define DUK__BP_CLOSING 4 /* token closes expression, e.g. ')', ']' */
  55243. #define DUK__BP_FOR_EXPR DUK__BP_CLOSING /* bp to use when parsing a top level Expression */
  55244. #define DUK__BP_COMMA 6
  55245. #define DUK__BP_ASSIGNMENT 8
  55246. #define DUK__BP_CONDITIONAL 10
  55247. #define DUK__BP_LOR 12
  55248. #define DUK__BP_LAND 14
  55249. #define DUK__BP_BOR 16
  55250. #define DUK__BP_BXOR 18
  55251. #define DUK__BP_BAND 20
  55252. #define DUK__BP_EQUALITY 22
  55253. #define DUK__BP_RELATIONAL 24
  55254. #define DUK__BP_SHIFT 26
  55255. #define DUK__BP_ADDITIVE 28
  55256. #define DUK__BP_MULTIPLICATIVE 30
  55257. #define DUK__BP_EXPONENTIATION 32
  55258. #define DUK__BP_POSTFIX 34
  55259. #define DUK__BP_CALL 36
  55260. #define DUK__BP_MEMBER 38
  55261. #define DUK__TOKEN_LBP_BP_MASK 0x1f
  55262. #define DUK__TOKEN_LBP_FLAG_NO_REGEXP (1 << 5) /* regexp literal must not follow this token */
  55263. #define DUK__TOKEN_LBP_FLAG_TERMINATES (1 << 6) /* terminates expression; e.g. post-increment/-decrement */
  55264. #define DUK__TOKEN_LBP_FLAG_UNUSED (1 << 7) /* unused */
  55265. #define DUK__TOKEN_LBP_GET_BP(x) ((duk_small_uint_t) (((x) & DUK__TOKEN_LBP_BP_MASK) * 2))
  55266. #define DUK__MK_LBP(bp) ((bp) >> 1) /* bp is assumed to be even */
  55267. #define DUK__MK_LBP_FLAGS(bp,flags) (((bp) >> 1) | (flags))
  55268. DUK_LOCAL const duk_uint8_t duk__token_lbp[] = {
  55269. DUK__MK_LBP(DUK__BP_EOF), /* DUK_TOK_EOF */
  55270. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_IDENTIFIER */
  55271. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_BREAK */
  55272. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CASE */
  55273. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CATCH */
  55274. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CONTINUE */
  55275. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DEBUGGER */
  55276. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DEFAULT */
  55277. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DELETE */
  55278. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DO */
  55279. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_ELSE */
  55280. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FINALLY */
  55281. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FOR */
  55282. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FUNCTION */
  55283. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IF */
  55284. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_IN */
  55285. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_INSTANCEOF */
  55286. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_NEW */
  55287. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_RETURN */
  55288. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SWITCH */
  55289. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_THIS */
  55290. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_THROW */
  55291. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_TRY */
  55292. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_TYPEOF */
  55293. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_VAR */
  55294. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CONST */
  55295. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_VOID */
  55296. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_WHILE */
  55297. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_WITH */
  55298. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CLASS */
  55299. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_ENUM */
  55300. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_EXPORT */
  55301. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_EXTENDS */
  55302. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IMPORT */
  55303. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SUPER */
  55304. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_NULL */
  55305. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_TRUE */
  55306. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_FALSE */
  55307. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_GET */
  55308. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SET */
  55309. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IMPLEMENTS */
  55310. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_INTERFACE */
  55311. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LET */
  55312. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PACKAGE */
  55313. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PRIVATE */
  55314. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PROTECTED */
  55315. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PUBLIC */
  55316. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_STATIC */
  55317. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_YIELD */
  55318. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LCURLY */
  55319. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RCURLY */
  55320. DUK__MK_LBP(DUK__BP_MEMBER), /* DUK_TOK_LBRACKET */
  55321. DUK__MK_LBP_FLAGS(DUK__BP_CLOSING, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RBRACKET */
  55322. DUK__MK_LBP(DUK__BP_CALL), /* DUK_TOK_LPAREN */
  55323. DUK__MK_LBP_FLAGS(DUK__BP_CLOSING, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RPAREN */
  55324. DUK__MK_LBP(DUK__BP_MEMBER), /* DUK_TOK_PERIOD */
  55325. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SEMICOLON */
  55326. DUK__MK_LBP(DUK__BP_COMMA), /* DUK_TOK_COMMA */
  55327. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_LT */
  55328. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_GT */
  55329. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_LE */
  55330. DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_GE */
  55331. DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_EQ */
  55332. DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_NEQ */
  55333. DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_SEQ */
  55334. DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_SNEQ */
  55335. DUK__MK_LBP(DUK__BP_ADDITIVE), /* DUK_TOK_ADD */
  55336. DUK__MK_LBP(DUK__BP_ADDITIVE), /* DUK_TOK_SUB */
  55337. DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_MUL */
  55338. DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_DIV */
  55339. DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_MOD */
  55340. DUK__MK_LBP(DUK__BP_EXPONENTIATION), /* DUK_TOK_EXP */
  55341. DUK__MK_LBP(DUK__BP_POSTFIX), /* DUK_TOK_INCREMENT */
  55342. DUK__MK_LBP(DUK__BP_POSTFIX), /* DUK_TOK_DECREMENT */
  55343. DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_ALSHIFT */
  55344. DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_ARSHIFT */
  55345. DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_RSHIFT */
  55346. DUK__MK_LBP(DUK__BP_BAND), /* DUK_TOK_BAND */
  55347. DUK__MK_LBP(DUK__BP_BOR), /* DUK_TOK_BOR */
  55348. DUK__MK_LBP(DUK__BP_BXOR), /* DUK_TOK_BXOR */
  55349. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LNOT */
  55350. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_BNOT */
  55351. DUK__MK_LBP(DUK__BP_LAND), /* DUK_TOK_LAND */
  55352. DUK__MK_LBP(DUK__BP_LOR), /* DUK_TOK_LOR */
  55353. DUK__MK_LBP(DUK__BP_CONDITIONAL), /* DUK_TOK_QUESTION */
  55354. DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_COLON */
  55355. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_EQUALSIGN */
  55356. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ADD_EQ */
  55357. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_SUB_EQ */
  55358. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_MUL_EQ */
  55359. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_DIV_EQ */
  55360. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_MOD_EQ */
  55361. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_EXP_EQ */
  55362. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ALSHIFT_EQ */
  55363. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ARSHIFT_EQ */
  55364. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_RSHIFT_EQ */
  55365. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BAND_EQ */
  55366. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BOR_EQ */
  55367. DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BXOR_EQ */
  55368. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_NUMBER */
  55369. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_STRING */
  55370. DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_REGEXP */
  55371. };
  55372. /*
  55373. * Misc helpers
  55374. */
  55375. DUK_LOCAL void duk__comp_recursion_increase(duk_compiler_ctx *comp_ctx) {
  55376. DUK_ASSERT(comp_ctx != NULL);
  55377. DUK_ASSERT(comp_ctx->recursion_depth >= 0);
  55378. if (comp_ctx->recursion_depth >= comp_ctx->recursion_limit) {
  55379. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_COMPILER_RECURSION_LIMIT);
  55380. }
  55381. comp_ctx->recursion_depth++;
  55382. }
  55383. DUK_LOCAL void duk__comp_recursion_decrease(duk_compiler_ctx *comp_ctx) {
  55384. DUK_ASSERT(comp_ctx != NULL);
  55385. DUK_ASSERT(comp_ctx->recursion_depth > 0);
  55386. comp_ctx->recursion_depth--;
  55387. }
  55388. DUK_LOCAL duk_bool_t duk__hstring_is_eval_or_arguments(duk_compiler_ctx *comp_ctx, duk_hstring *h) {
  55389. DUK_UNREF(comp_ctx);
  55390. DUK_ASSERT(h != NULL);
  55391. return DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(h);
  55392. }
  55393. DUK_LOCAL duk_bool_t duk__hstring_is_eval_or_arguments_in_strict_mode(duk_compiler_ctx *comp_ctx, duk_hstring *h) {
  55394. DUK_ASSERT(h != NULL);
  55395. return (comp_ctx->curr_func.is_strict &&
  55396. DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(h));
  55397. }
  55398. /*
  55399. * Parser duk__advance() token eating functions
  55400. */
  55401. /* XXX: valstack handling is awkward. Add a valstack helper which
  55402. * avoids dup():ing; valstack_copy(src, dst)?
  55403. */
  55404. DUK_LOCAL void duk__advance_helper(duk_compiler_ctx *comp_ctx, duk_small_int_t expect) {
  55405. duk_hthread *thr = comp_ctx->thr;
  55406. duk_bool_t regexp;
  55407. DUK_ASSERT_DISABLE(comp_ctx->curr_token.t >= 0); /* unsigned */
  55408. DUK_ASSERT(comp_ctx->curr_token.t <= DUK_TOK_MAXVAL); /* MAXVAL is inclusive */
  55409. /*
  55410. * Use current token to decide whether a RegExp can follow.
  55411. *
  55412. * We can use either 't' or 't_nores'; the latter would not
  55413. * recognize keywords. Some keywords can be followed by a
  55414. * RegExp (e.g. "return"), so using 't' is better. This is
  55415. * not trivial, see doc/compiler.rst.
  55416. */
  55417. regexp = 1;
  55418. if (duk__token_lbp[comp_ctx->curr_token.t] & DUK__TOKEN_LBP_FLAG_NO_REGEXP) {
  55419. regexp = 0;
  55420. }
  55421. if (comp_ctx->curr_func.reject_regexp_in_adv) {
  55422. comp_ctx->curr_func.reject_regexp_in_adv = 0;
  55423. regexp = 0;
  55424. }
  55425. if (expect >= 0 && comp_ctx->curr_token.t != (duk_small_uint_t) expect) {
  55426. DUK_D(DUK_DPRINT("parse error: expect=%ld, got=%ld",
  55427. (long) expect, (long) comp_ctx->curr_token.t));
  55428. DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR);
  55429. }
  55430. /* make current token the previous; need to fiddle with valstack "backing store" */
  55431. DUK_MEMCPY(&comp_ctx->prev_token, &comp_ctx->curr_token, sizeof(duk_token));
  55432. duk_copy(thr, comp_ctx->tok11_idx, comp_ctx->tok21_idx);
  55433. duk_copy(thr, comp_ctx->tok12_idx, comp_ctx->tok22_idx);
  55434. /* parse new token */
  55435. duk_lexer_parse_js_input_element(&comp_ctx->lex,
  55436. &comp_ctx->curr_token,
  55437. comp_ctx->curr_func.is_strict,
  55438. regexp);
  55439. DUK_DDD(DUK_DDDPRINT("advance: curr: tok=%ld/%ld,%ld,term=%ld,%!T,%!T "
  55440. "prev: tok=%ld/%ld,%ld,term=%ld,%!T,%!T",
  55441. (long) comp_ctx->curr_token.t,
  55442. (long) comp_ctx->curr_token.t_nores,
  55443. (long) comp_ctx->curr_token.start_line,
  55444. (long) comp_ctx->curr_token.lineterm,
  55445. (duk_tval *) duk_get_tval(thr, comp_ctx->tok11_idx),
  55446. (duk_tval *) duk_get_tval(thr, comp_ctx->tok12_idx),
  55447. (long) comp_ctx->prev_token.t,
  55448. (long) comp_ctx->prev_token.t_nores,
  55449. (long) comp_ctx->prev_token.start_line,
  55450. (long) comp_ctx->prev_token.lineterm,
  55451. (duk_tval *) duk_get_tval(thr, comp_ctx->tok21_idx),
  55452. (duk_tval *) duk_get_tval(thr, comp_ctx->tok22_idx)));
  55453. }
  55454. /* advance, expecting current token to be a specific token; parse next token in regexp context */
  55455. DUK_LOCAL void duk__advance_expect(duk_compiler_ctx *comp_ctx, duk_small_int_t expect) {
  55456. duk__advance_helper(comp_ctx, expect);
  55457. }
  55458. /* advance, whatever the current token is; parse next token in regexp context */
  55459. DUK_LOCAL void duk__advance(duk_compiler_ctx *comp_ctx) {
  55460. duk__advance_helper(comp_ctx, -1);
  55461. }
  55462. /*
  55463. * Helpers for duk_compiler_func.
  55464. */
  55465. /* init function state: inits valstack allocations */
  55466. DUK_LOCAL void duk__init_func_valstack_slots(duk_compiler_ctx *comp_ctx) {
  55467. duk_compiler_func *func = &comp_ctx->curr_func;
  55468. duk_hthread *thr = comp_ctx->thr;
  55469. duk_idx_t entry_top;
  55470. entry_top = duk_get_top(thr);
  55471. DUK_MEMZERO(func, sizeof(*func)); /* intentional overlap with earlier memzero */
  55472. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  55473. func->h_name = NULL;
  55474. func->h_consts = NULL;
  55475. func->h_funcs = NULL;
  55476. func->h_decls = NULL;
  55477. func->h_labelnames = NULL;
  55478. func->h_labelinfos = NULL;
  55479. func->h_argnames = NULL;
  55480. func->h_varmap = NULL;
  55481. #endif
  55482. duk_require_stack(thr, DUK__FUNCTION_INIT_REQUIRE_SLOTS);
  55483. DUK_BW_INIT_PUSHBUF(thr, &func->bw_code, DUK__BC_INITIAL_INSTS * sizeof(duk_compiler_instr));
  55484. /* code_idx = entry_top + 0 */
  55485. duk_push_array(thr);
  55486. func->consts_idx = entry_top + 1;
  55487. func->h_consts = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 1);
  55488. DUK_ASSERT(func->h_consts != NULL);
  55489. duk_push_array(thr);
  55490. func->funcs_idx = entry_top + 2;
  55491. func->h_funcs = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 2);
  55492. DUK_ASSERT(func->h_funcs != NULL);
  55493. DUK_ASSERT(func->fnum_next == 0);
  55494. duk_push_array(thr);
  55495. func->decls_idx = entry_top + 3;
  55496. func->h_decls = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 3);
  55497. DUK_ASSERT(func->h_decls != NULL);
  55498. duk_push_array(thr);
  55499. func->labelnames_idx = entry_top + 4;
  55500. func->h_labelnames = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 4);
  55501. DUK_ASSERT(func->h_labelnames != NULL);
  55502. duk_push_dynamic_buffer(thr, 0);
  55503. func->labelinfos_idx = entry_top + 5;
  55504. func->h_labelinfos = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, entry_top + 5);
  55505. DUK_ASSERT(func->h_labelinfos != NULL);
  55506. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(func->h_labelinfos) && !DUK_HBUFFER_HAS_EXTERNAL(func->h_labelinfos));
  55507. duk_push_array(thr);
  55508. func->argnames_idx = entry_top + 6;
  55509. func->h_argnames = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 6);
  55510. DUK_ASSERT(func->h_argnames != NULL);
  55511. duk_push_bare_object(thr);
  55512. func->varmap_idx = entry_top + 7;
  55513. func->h_varmap = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 7);
  55514. DUK_ASSERT(func->h_varmap != NULL);
  55515. }
  55516. /* reset function state (prepare for pass 2) */
  55517. DUK_LOCAL void duk__reset_func_for_pass2(duk_compiler_ctx *comp_ctx) {
  55518. duk_compiler_func *func = &comp_ctx->curr_func;
  55519. duk_hthread *thr = comp_ctx->thr;
  55520. /* reset bytecode buffer but keep current size; pass 2 will
  55521. * require same amount or more.
  55522. */
  55523. DUK_BW_RESET_SIZE(thr, &func->bw_code);
  55524. duk_set_length(thr, func->consts_idx, 0);
  55525. /* keep func->h_funcs; inner functions are not reparsed to avoid O(depth^2) parsing */
  55526. func->fnum_next = 0;
  55527. /* duk_set_length(thr, func->funcs_idx, 0); */
  55528. duk_set_length(thr, func->labelnames_idx, 0);
  55529. duk_hbuffer_reset(thr, func->h_labelinfos);
  55530. /* keep func->h_argnames; it is fixed for all passes */
  55531. /* truncated in case pass 3 needed */
  55532. duk_push_bare_object(thr);
  55533. duk_replace(thr, func->varmap_idx);
  55534. func->h_varmap = DUK_GET_HOBJECT_POSIDX(thr, func->varmap_idx);
  55535. DUK_ASSERT(func->h_varmap != NULL);
  55536. }
  55537. /* cleanup varmap from any null entries, compact it, etc; returns number
  55538. * of final entries after cleanup.
  55539. */
  55540. DUK_LOCAL duk_int_t duk__cleanup_varmap(duk_compiler_ctx *comp_ctx) {
  55541. duk_hthread *thr = comp_ctx->thr;
  55542. duk_hobject *h_varmap;
  55543. duk_hstring *h_key;
  55544. duk_tval *tv;
  55545. duk_uint32_t i, e_next;
  55546. duk_int_t ret;
  55547. /* [ ... varmap ] */
  55548. h_varmap = DUK_GET_HOBJECT_NEGIDX(thr, -1);
  55549. DUK_ASSERT(h_varmap != NULL);
  55550. ret = 0;
  55551. e_next = DUK_HOBJECT_GET_ENEXT(h_varmap);
  55552. for (i = 0; i < e_next; i++) {
  55553. h_key = DUK_HOBJECT_E_GET_KEY(thr->heap, h_varmap, i);
  55554. if (!h_key) {
  55555. continue;
  55556. }
  55557. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, h_varmap, i));
  55558. /* The entries can either be register numbers or 'null' values.
  55559. * Thus, no need to DECREF them and get side effects. DECREF'ing
  55560. * the keys (strings) can cause memory to be freed but no side
  55561. * effects as strings don't have finalizers. This is why we can
  55562. * rely on the object properties not changing from underneath us.
  55563. */
  55564. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, h_varmap, i);
  55565. if (!DUK_TVAL_IS_NUMBER(tv)) {
  55566. DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv));
  55567. DUK_HOBJECT_E_SET_KEY(thr->heap, h_varmap, i, NULL);
  55568. DUK_HSTRING_DECREF(thr, h_key);
  55569. /* when key is NULL, value is garbage so no need to set */
  55570. } else {
  55571. ret++;
  55572. }
  55573. }
  55574. duk_compact_m1(thr);
  55575. return ret;
  55576. }
  55577. /* Convert duk_compiler_func into a function template, leaving the result
  55578. * on top of stack.
  55579. */
  55580. /* XXX: awkward and bloated asm -- use faster internal accesses */
  55581. DUK_LOCAL void duk__convert_to_func_template(duk_compiler_ctx *comp_ctx) {
  55582. duk_compiler_func *func = &comp_ctx->curr_func;
  55583. duk_hthread *thr = comp_ctx->thr;
  55584. duk_hcompfunc *h_res;
  55585. duk_hbuffer_fixed *h_data;
  55586. duk_size_t consts_count;
  55587. duk_size_t funcs_count;
  55588. duk_size_t code_count;
  55589. duk_size_t code_size;
  55590. duk_size_t data_size;
  55591. duk_size_t i;
  55592. duk_tval *p_const;
  55593. duk_hobject **p_func;
  55594. duk_instr_t *p_instr;
  55595. duk_compiler_instr *q_instr;
  55596. duk_tval *tv;
  55597. duk_bool_t keep_varmap;
  55598. duk_bool_t keep_formals;
  55599. #if !defined(DUK_USE_DEBUGGER_SUPPORT)
  55600. duk_size_t formals_length;
  55601. #endif
  55602. DUK_DDD(DUK_DDDPRINT("converting duk_compiler_func to function/template"));
  55603. /*
  55604. * Push result object and init its flags
  55605. */
  55606. /* Valstack should suffice here, required on function valstack init */
  55607. h_res = duk_push_hcompfunc(thr);
  55608. DUK_ASSERT(h_res != NULL);
  55609. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_res) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  55610. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, (duk_hobject *) h_res, NULL); /* Function templates are "bare objects". */
  55611. if (func->is_function) {
  55612. DUK_DDD(DUK_DDDPRINT("function -> set NEWENV"));
  55613. DUK_HOBJECT_SET_NEWENV((duk_hobject *) h_res);
  55614. if (!func->is_arguments_shadowed) {
  55615. /* arguments object would be accessible; note that shadowing
  55616. * bindings are arguments or function declarations, neither
  55617. * of which are deletable, so this is safe.
  55618. */
  55619. if (func->id_access_arguments || func->may_direct_eval) {
  55620. DUK_DDD(DUK_DDDPRINT("function may access 'arguments' object directly or "
  55621. "indirectly -> set CREATEARGS"));
  55622. DUK_HOBJECT_SET_CREATEARGS((duk_hobject *) h_res);
  55623. }
  55624. }
  55625. } else if (func->is_eval && func->is_strict) {
  55626. DUK_DDD(DUK_DDDPRINT("strict eval code -> set NEWENV"));
  55627. DUK_HOBJECT_SET_NEWENV((duk_hobject *) h_res);
  55628. } else {
  55629. /* non-strict eval: env is caller's env or global env (direct vs. indirect call)
  55630. * global code: env is is global env
  55631. */
  55632. DUK_DDD(DUK_DDDPRINT("non-strict eval code or global code -> no NEWENV"));
  55633. DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV((duk_hobject *) h_res));
  55634. }
  55635. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  55636. if (func->is_function && func->is_namebinding && func->h_name != NULL) {
  55637. /* Object literal set/get functions have a name (property
  55638. * name) but must not have a lexical name binding, see
  55639. * test-bug-getset-func-name.js.
  55640. */
  55641. DUK_DDD(DUK_DDDPRINT("function expression with a name -> set NAMEBINDING"));
  55642. DUK_HOBJECT_SET_NAMEBINDING((duk_hobject *) h_res);
  55643. }
  55644. #endif
  55645. if (func->is_strict) {
  55646. DUK_DDD(DUK_DDDPRINT("function is strict -> set STRICT"));
  55647. DUK_HOBJECT_SET_STRICT((duk_hobject *) h_res);
  55648. }
  55649. if (func->is_notail) {
  55650. DUK_DDD(DUK_DDDPRINT("function is notail -> set NOTAIL"));
  55651. DUK_HOBJECT_SET_NOTAIL((duk_hobject *) h_res);
  55652. }
  55653. if (func->is_constructable) {
  55654. DUK_DDD(DUK_DDDPRINT("function is constructable -> set CONSTRUCTABLE"));
  55655. DUK_HOBJECT_SET_CONSTRUCTABLE((duk_hobject *) h_res);
  55656. }
  55657. /*
  55658. * Build function fixed size 'data' buffer, which contains bytecode,
  55659. * constants, and inner function references.
  55660. *
  55661. * During the building phase 'data' is reachable but incomplete.
  55662. * Only incref's occur during building (no refzero or GC happens),
  55663. * so the building process is atomic.
  55664. */
  55665. consts_count = duk_hobject_get_length(thr, func->h_consts);
  55666. funcs_count = duk_hobject_get_length(thr, func->h_funcs) / 3;
  55667. code_count = DUK_BW_GET_SIZE(thr, &func->bw_code) / sizeof(duk_compiler_instr);
  55668. code_size = code_count * sizeof(duk_instr_t);
  55669. data_size = consts_count * sizeof(duk_tval) +
  55670. funcs_count * sizeof(duk_hobject *) +
  55671. code_size;
  55672. DUK_DDD(DUK_DDDPRINT("consts_count=%ld, funcs_count=%ld, code_size=%ld -> "
  55673. "data_size=%ld*%ld + %ld*%ld + %ld = %ld",
  55674. (long) consts_count, (long) funcs_count, (long) code_size,
  55675. (long) consts_count, (long) sizeof(duk_tval),
  55676. (long) funcs_count, (long) sizeof(duk_hobject *),
  55677. (long) code_size, (long) data_size));
  55678. duk_push_fixed_buffer_nozero(thr, data_size);
  55679. h_data = (duk_hbuffer_fixed *) duk_known_hbuffer(thr, -1);
  55680. DUK_HCOMPFUNC_SET_DATA(thr->heap, h_res, (duk_hbuffer *) h_data);
  55681. DUK_HEAPHDR_INCREF(thr, h_data);
  55682. p_const = (duk_tval *) (void *) DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, h_data);
  55683. for (i = 0; i < consts_count; i++) {
  55684. DUK_ASSERT(i <= DUK_UARRIDX_MAX); /* const limits */
  55685. tv = duk_hobject_find_existing_array_entry_tval_ptr(thr->heap, func->h_consts, (duk_uarridx_t) i);
  55686. DUK_ASSERT(tv != NULL);
  55687. DUK_TVAL_SET_TVAL(p_const, tv);
  55688. p_const++;
  55689. DUK_TVAL_INCREF(thr, tv); /* may be a string constant */
  55690. DUK_DDD(DUK_DDDPRINT("constant: %!T", (duk_tval *) tv));
  55691. }
  55692. p_func = (duk_hobject **) p_const;
  55693. DUK_HCOMPFUNC_SET_FUNCS(thr->heap, h_res, p_func);
  55694. for (i = 0; i < funcs_count; i++) {
  55695. duk_hobject *h;
  55696. DUK_ASSERT(i * 3 <= DUK_UARRIDX_MAX); /* func limits */
  55697. tv = duk_hobject_find_existing_array_entry_tval_ptr(thr->heap, func->h_funcs, (duk_uarridx_t) (i * 3));
  55698. DUK_ASSERT(tv != NULL);
  55699. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv));
  55700. h = DUK_TVAL_GET_OBJECT(tv);
  55701. DUK_ASSERT(h != NULL);
  55702. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(h));
  55703. *p_func++ = h;
  55704. DUK_HOBJECT_INCREF(thr, h);
  55705. DUK_DDD(DUK_DDDPRINT("inner function: %p -> %!iO",
  55706. (void *) h, (duk_heaphdr *) h));
  55707. }
  55708. p_instr = (duk_instr_t *) p_func;
  55709. DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, h_res, p_instr);
  55710. /* copy bytecode instructions one at a time */
  55711. q_instr = (duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(thr, &func->bw_code);
  55712. for (i = 0; i < code_count; i++) {
  55713. p_instr[i] = q_instr[i].ins;
  55714. }
  55715. /* Note: 'q_instr' is still used below */
  55716. DUK_ASSERT((duk_uint8_t *) (p_instr + code_count) == DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, h_data) + data_size);
  55717. duk_pop(thr); /* 'data' (and everything in it) is reachable through h_res now */
  55718. /*
  55719. * Init non-property result fields
  55720. *
  55721. * 'nregs' controls how large a register frame is allocated.
  55722. *
  55723. * 'nargs' controls how many formal arguments are written to registers:
  55724. * r0, ... r(nargs-1). The remaining registers are initialized to
  55725. * undefined.
  55726. */
  55727. DUK_ASSERT(func->temp_max >= 0);
  55728. h_res->nregs = (duk_uint16_t) func->temp_max;
  55729. h_res->nargs = (duk_uint16_t) duk_hobject_get_length(thr, func->h_argnames);
  55730. DUK_ASSERT(h_res->nregs >= h_res->nargs); /* pass2 allocation handles this */
  55731. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  55732. h_res->start_line = (duk_uint32_t) func->min_line;
  55733. h_res->end_line = (duk_uint32_t) func->max_line;
  55734. #endif
  55735. /*
  55736. * Init object properties
  55737. *
  55738. * Properties should be added in decreasing order of access frequency.
  55739. * (Not very critical for function templates.)
  55740. */
  55741. DUK_DDD(DUK_DDDPRINT("init function properties"));
  55742. /* [ ... res ] */
  55743. /* _Varmap: omitted if function is guaranteed not to do a slow path
  55744. * identifier access that might be caught by locally declared variables.
  55745. * The varmap can also be omitted if it turns out empty of actual
  55746. * register mappings after a cleanup. When debugging is enabled, we
  55747. * always need the varmap to be able to lookup variables at any point.
  55748. */
  55749. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  55750. DUK_DD(DUK_DDPRINT("keeping _Varmap because debugger support is enabled"));
  55751. keep_varmap = 1;
  55752. #else
  55753. if (func->id_access_slow_own || /* directly uses slow accesses that may match own variables */
  55754. func->id_access_arguments || /* accesses 'arguments' directly */
  55755. func->may_direct_eval || /* may indirectly slow access through a direct eval */
  55756. funcs_count > 0) { /* has inner functions which may slow access (XXX: this can be optimized by looking at the inner functions) */
  55757. DUK_DD(DUK_DDPRINT("keeping _Varmap because of direct eval, slow path access that may match local variables, or presence of inner functions"));
  55758. keep_varmap = 1;
  55759. } else {
  55760. DUK_DD(DUK_DDPRINT("dropping _Varmap"));
  55761. keep_varmap = 0;
  55762. }
  55763. #endif
  55764. if (keep_varmap) {
  55765. duk_int_t num_used;
  55766. duk_dup(thr, func->varmap_idx);
  55767. num_used = duk__cleanup_varmap(comp_ctx);
  55768. DUK_DDD(DUK_DDDPRINT("cleaned up varmap: %!T (num_used=%ld)",
  55769. (duk_tval *) duk_get_tval(thr, -1), (long) num_used));
  55770. if (num_used > 0) {
  55771. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VARMAP, DUK_PROPDESC_FLAGS_NONE);
  55772. } else {
  55773. DUK_DD(DUK_DDPRINT("varmap is empty after cleanup -> no need to add"));
  55774. duk_pop(thr);
  55775. }
  55776. }
  55777. /* _Formals: omitted if function is guaranteed not to need a (non-strict)
  55778. * arguments object, and _Formals.length matches nargs exactly.
  55779. *
  55780. * Non-arrow functions can't see an outer function's 'argument' binding
  55781. * (because they have their own), but arrow functions can. When arrow
  55782. * functions are added, this condition would need to be added:
  55783. * inner_arrow_funcs_count > 0 inner arrow functions may access 'arguments'
  55784. */
  55785. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  55786. DUK_DD(DUK_DDPRINT("keeping _Formals because debugger support is enabled"));
  55787. keep_formals = 1;
  55788. #else
  55789. formals_length = duk_get_length(thr, func->argnames_idx);
  55790. if (formals_length != (duk_size_t) h_res->nargs) {
  55791. /* Nargs not enough for closure .length: keep _Formals regardless
  55792. * of its length. Shouldn't happen in practice at the moment.
  55793. */
  55794. DUK_DD(DUK_DDPRINT("keeping _Formals because _Formals.length != nargs"));
  55795. keep_formals = 1;
  55796. } else if ((func->id_access_arguments || func->may_direct_eval) &&
  55797. (formals_length > 0)) {
  55798. /* Direct eval (may access 'arguments') or accesses 'arguments'
  55799. * explicitly: keep _Formals unless it is zero length.
  55800. */
  55801. DUK_DD(DUK_DDPRINT("keeping _Formals because of direct eval or explicit access to 'arguments', and _Formals.length != 0"));
  55802. keep_formals = 1;
  55803. } else {
  55804. DUK_DD(DUK_DDPRINT("omitting _Formals, nargs matches _Formals.length, so no properties added"));
  55805. keep_formals = 0;
  55806. }
  55807. #endif
  55808. if (keep_formals) {
  55809. duk_dup(thr, func->argnames_idx);
  55810. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_FORMALS, DUK_PROPDESC_FLAGS_NONE);
  55811. }
  55812. /* name */
  55813. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  55814. if (func->h_name) {
  55815. duk_push_hstring(thr, func->h_name);
  55816. DUK_DD(DUK_DDPRINT("setting function template .name to %!T", duk_get_tval(thr, -1)));
  55817. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_NONE);
  55818. }
  55819. #endif /* DUK_USE_FUNC_NAME_PROPERTY */
  55820. /* _Source */
  55821. #if defined(DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY)
  55822. if (0) {
  55823. /* XXX: Currently function source code is not stored, as it is not
  55824. * required by the standard. Source code should not be stored by
  55825. * default (user should enable it explicitly), and the source should
  55826. * probably be compressed with a trivial text compressor; average
  55827. * compression of 20-30% is quite easy to achieve even with a trivial
  55828. * compressor (RLE + backwards lookup).
  55829. *
  55830. * Debugging needs source code to be useful: sometimes input code is
  55831. * not found in files as it may be generated and then eval()'d, given
  55832. * by dynamic C code, etc.
  55833. *
  55834. * Other issues:
  55835. *
  55836. * - Need tokenizer indices for start and end to substring
  55837. * - Always normalize function declaration part?
  55838. * - If we keep _Formals, only need to store body
  55839. */
  55840. /*
  55841. * For global or eval code this is straightforward. For functions
  55842. * created with the Function constructor we only get the source for
  55843. * the body and must manufacture the "function ..." part.
  55844. *
  55845. * For instance, for constructed functions (v8):
  55846. *
  55847. * > a = new Function("foo", "bar", "print(foo)");
  55848. * [Function]
  55849. * > a.toString()
  55850. * 'function anonymous(foo,bar) {\nprint(foo)\n}'
  55851. *
  55852. * Similarly for e.g. getters (v8):
  55853. *
  55854. * > x = { get a(foo,bar) { print(foo); } }
  55855. * { a: [Getter] }
  55856. * > Object.getOwnPropertyDescriptor(x, 'a').get.toString()
  55857. * 'function a(foo,bar) { print(foo); }'
  55858. */
  55859. #if 0
  55860. duk_push_string(thr, "XXX");
  55861. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_SOURCE, DUK_PROPDESC_FLAGS_NONE);
  55862. #endif
  55863. }
  55864. #endif /* DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY */
  55865. /* _Pc2line */
  55866. #if defined(DUK_USE_PC2LINE)
  55867. if (1) {
  55868. /*
  55869. * Size-optimized pc->line mapping.
  55870. */
  55871. DUK_ASSERT(code_count <= DUK_COMPILER_MAX_BYTECODE_LENGTH);
  55872. duk_hobject_pc2line_pack(thr, q_instr, (duk_uint_fast32_t) code_count); /* -> pushes fixed buffer */
  55873. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_PC2LINE, DUK_PROPDESC_FLAGS_NONE);
  55874. /* XXX: if assertions enabled, walk through all valid PCs
  55875. * and check line mapping.
  55876. */
  55877. }
  55878. #endif /* DUK_USE_PC2LINE */
  55879. /* fileName */
  55880. #if defined(DUK_USE_FUNC_FILENAME_PROPERTY)
  55881. if (comp_ctx->h_filename) {
  55882. /*
  55883. * Source filename (or equivalent), for identifying thrown errors.
  55884. */
  55885. duk_push_hstring(thr, comp_ctx->h_filename);
  55886. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_NONE);
  55887. }
  55888. #endif
  55889. DUK_DD(DUK_DDPRINT("converted function: %!ixT",
  55890. (duk_tval *) duk_get_tval(thr, -1)));
  55891. /*
  55892. * Compact the function template.
  55893. */
  55894. duk_compact_m1(thr);
  55895. /*
  55896. * Debug dumping
  55897. */
  55898. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  55899. {
  55900. duk_hcompfunc *h;
  55901. duk_instr_t *p, *p_start, *p_end;
  55902. h = (duk_hcompfunc *) duk_get_hobject(thr, -1);
  55903. p_start = (duk_instr_t *) DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, h);
  55904. p_end = (duk_instr_t *) DUK_HCOMPFUNC_GET_CODE_END(thr->heap, h);
  55905. p = p_start;
  55906. while (p < p_end) {
  55907. DUK_DDD(DUK_DDDPRINT("BC %04ld: %!I ; 0x%08lx op=%ld (%!C) a=%ld b=%ld c=%ld",
  55908. (long) (p - p_start),
  55909. (duk_instr_t) (*p),
  55910. (unsigned long) (*p),
  55911. (long) DUK_DEC_OP(*p),
  55912. (long) DUK_DEC_OP(*p),
  55913. (long) DUK_DEC_A(*p),
  55914. (long) DUK_DEC_B(*p),
  55915. (long) DUK_DEC_C(*p)));
  55916. p++;
  55917. }
  55918. }
  55919. #endif
  55920. }
  55921. /*
  55922. * Code emission helpers
  55923. *
  55924. * Some emission helpers understand the range of target and source reg/const
  55925. * values and automatically emit shuffling code if necessary. This is the
  55926. * case when the slot in question (A, B, C) is used in the standard way and
  55927. * for opcodes the emission helpers explicitly understand (like DUK_OP_MPUTOBJ).
  55928. *
  55929. * The standard way is that:
  55930. * - slot A is a target register
  55931. * - slot B is a source register/constant
  55932. * - slot C is a source register/constant
  55933. *
  55934. * If a slot is used in a non-standard way the caller must indicate this
  55935. * somehow. If a slot is used as a target instead of a source (or vice
  55936. * versa), this can be indicated with a flag to trigger proper shuffling
  55937. * (e.g. DUK__EMIT_FLAG_B_IS_TARGET). If the value in the slot is not
  55938. * register/const related at all, the caller must ensure that the raw value
  55939. * fits into the corresponding slot so as to not trigger shuffling. The
  55940. * caller must set a "no shuffle" flag to ensure compilation fails if
  55941. * shuffling were to be triggered because of an internal error.
  55942. *
  55943. * For slots B and C the raw slot size is 9 bits but one bit is reserved for
  55944. * the reg/const indicator. To use the full 9-bit range for a raw value,
  55945. * shuffling must be disabled with the DUK__EMIT_FLAG_NO_SHUFFLE_{B,C} flag.
  55946. * Shuffling is only done for A, B, and C slots, not the larger BC or ABC slots.
  55947. *
  55948. * There is call handling specific understanding in the A-B-C emitter to
  55949. * convert call setup and call instructions into indirect ones if necessary.
  55950. */
  55951. /* Code emission flags, passed in the 'opcode' field. Opcode + flags
  55952. * fit into 16 bits for now, so use duk_small_uint_t.
  55953. */
  55954. #define DUK__EMIT_FLAG_NO_SHUFFLE_A (1 << 8)
  55955. #define DUK__EMIT_FLAG_NO_SHUFFLE_B (1 << 9)
  55956. #define DUK__EMIT_FLAG_NO_SHUFFLE_C (1 << 10)
  55957. #define DUK__EMIT_FLAG_A_IS_SOURCE (1 << 11) /* slot A is a source (default: target) */
  55958. #define DUK__EMIT_FLAG_B_IS_TARGET (1 << 12) /* slot B is a target (default: source) */
  55959. #define DUK__EMIT_FLAG_C_IS_TARGET (1 << 13) /* slot C is a target (default: source) */
  55960. #define DUK__EMIT_FLAG_BC_REGCONST (1 << 14) /* slots B and C are reg/const */
  55961. #define DUK__EMIT_FLAG_RESERVE_JUMPSLOT (1 << 15) /* reserve a jumpslot after instr before target spilling, used for NEXTENUM */
  55962. /* XXX: macro smaller than call? */
  55963. DUK_LOCAL duk_int_t duk__get_current_pc(duk_compiler_ctx *comp_ctx) {
  55964. duk_compiler_func *func;
  55965. func = &comp_ctx->curr_func;
  55966. return (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &func->bw_code) / sizeof(duk_compiler_instr));
  55967. }
  55968. DUK_LOCAL duk_compiler_instr *duk__get_instr_ptr(duk_compiler_ctx *comp_ctx, duk_int_t pc) {
  55969. DUK_ASSERT(pc >= 0);
  55970. DUK_ASSERT((duk_size_t) pc < (duk_size_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr)));
  55971. return ((duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code)) + pc;
  55972. }
  55973. /* emit instruction; could return PC but that's not needed in the majority
  55974. * of cases.
  55975. */
  55976. DUK_LOCAL void duk__emit(duk_compiler_ctx *comp_ctx, duk_instr_t ins) {
  55977. #if defined(DUK_USE_PC2LINE)
  55978. duk_int_t line;
  55979. #endif
  55980. duk_compiler_instr *instr;
  55981. DUK_DDD(DUK_DDDPRINT("duk__emit: 0x%08lx curr_token.start_line=%ld prev_token.start_line=%ld pc=%ld --> %!I",
  55982. (unsigned long) ins,
  55983. (long) comp_ctx->curr_token.start_line,
  55984. (long) comp_ctx->prev_token.start_line,
  55985. (long) duk__get_current_pc(comp_ctx),
  55986. (duk_instr_t) ins));
  55987. instr = (duk_compiler_instr *) (void *) DUK_BW_ENSURE_GETPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr));
  55988. DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr));
  55989. #if defined(DUK_USE_PC2LINE)
  55990. /* The line number tracking is a bit inconsistent right now, which
  55991. * affects debugger accuracy. Mostly call sites emit opcodes when
  55992. * they have parsed a token (say a terminating semicolon) and called
  55993. * duk__advance(). In this case the line number of the previous
  55994. * token is the most accurate one (except in prologue where
  55995. * prev_token.start_line is 0). This is probably not 100% correct
  55996. * right now.
  55997. */
  55998. /* approximation, close enough */
  55999. line = comp_ctx->prev_token.start_line;
  56000. if (line == 0) {
  56001. line = comp_ctx->curr_token.start_line;
  56002. }
  56003. #endif
  56004. instr->ins = ins;
  56005. #if defined(DUK_USE_PC2LINE)
  56006. instr->line = (duk_uint32_t) line;
  56007. #endif
  56008. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  56009. if (line < comp_ctx->curr_func.min_line) {
  56010. comp_ctx->curr_func.min_line = line;
  56011. }
  56012. if (line > comp_ctx->curr_func.max_line) {
  56013. comp_ctx->curr_func.max_line = line;
  56014. }
  56015. #endif
  56016. /* Limit checks for bytecode byte size and line number. */
  56017. if (DUK_UNLIKELY(DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) > DUK_USE_ESBC_MAX_BYTES)) {
  56018. goto fail_bc_limit;
  56019. }
  56020. #if defined(DUK_USE_PC2LINE) && defined(DUK_USE_ESBC_LIMITS)
  56021. #if defined(DUK_USE_BUFLEN16)
  56022. /* Buffer length is bounded to 0xffff automatically, avoid compile warning. */
  56023. if (DUK_UNLIKELY(line > DUK_USE_ESBC_MAX_LINENUMBER)) {
  56024. goto fail_bc_limit;
  56025. }
  56026. #else
  56027. if (DUK_UNLIKELY(line > DUK_USE_ESBC_MAX_LINENUMBER)) {
  56028. goto fail_bc_limit;
  56029. }
  56030. #endif
  56031. #endif
  56032. return;
  56033. fail_bc_limit:
  56034. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_BYTECODE_LIMIT);
  56035. }
  56036. /* Update function min/max line from current token. Needed to improve
  56037. * function line range information for debugging, so that e.g. opening
  56038. * curly brace is covered by line range even when no opcodes are emitted
  56039. * for the line containing the brace.
  56040. */
  56041. DUK_LOCAL void duk__update_lineinfo_currtoken(duk_compiler_ctx *comp_ctx) {
  56042. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  56043. duk_int_t line;
  56044. line = comp_ctx->curr_token.start_line;
  56045. if (line == 0) {
  56046. return;
  56047. }
  56048. if (line < comp_ctx->curr_func.min_line) {
  56049. comp_ctx->curr_func.min_line = line;
  56050. }
  56051. if (line > comp_ctx->curr_func.max_line) {
  56052. comp_ctx->curr_func.max_line = line;
  56053. }
  56054. #else
  56055. DUK_UNREF(comp_ctx);
  56056. #endif
  56057. }
  56058. DUK_LOCAL void duk__emit_op_only(duk_compiler_ctx *comp_ctx, duk_small_uint_t op) {
  56059. duk__emit(comp_ctx, DUK_ENC_OP_ABC(op, 0));
  56060. }
  56061. /* Important main primitive. */
  56062. DUK_LOCAL void duk__emit_a_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b, duk_regconst_t c) {
  56063. duk_instr_t ins = 0;
  56064. duk_int_t a_out = -1;
  56065. duk_int_t b_out = -1;
  56066. duk_int_t c_out = -1;
  56067. duk_int_t tmp;
  56068. duk_small_uint_t op = op_flags & 0xffU;
  56069. DUK_DDD(DUK_DDDPRINT("emit: op_flags=%04lx, a=%ld, b=%ld, c=%ld",
  56070. (unsigned long) op_flags, (long) a, (long) b, (long) c));
  56071. /* We could rely on max temp/const checks: if they don't exceed BC
  56072. * limit, nothing here can either (just asserts would be enough).
  56073. * Currently we check for the limits, which provides additional
  56074. * protection against creating invalid bytecode due to compiler
  56075. * bugs.
  56076. */
  56077. DUK_ASSERT_DISABLE((op_flags & 0xff) >= DUK_BC_OP_MIN); /* unsigned */
  56078. DUK_ASSERT((op_flags & 0xff) <= DUK_BC_OP_MAX);
  56079. DUK_ASSERT(DUK__ISREG(a));
  56080. DUK_ASSERT(b != -1); /* Not 'none'. */
  56081. DUK_ASSERT(c != -1); /* Not 'none'. */
  56082. /* Input shuffling happens before the actual operation, while output
  56083. * shuffling happens afterwards. Output shuffling decisions are still
  56084. * made at the same time to reduce branch clutter; output shuffle decisions
  56085. * are recorded into X_out variables.
  56086. */
  56087. /* Slot A: currently no support for reg/const. */
  56088. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56089. if (a <= DUK_BC_A_MAX && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A)) {
  56090. #else
  56091. if (a <= DUK_BC_A_MAX) {
  56092. #endif
  56093. ;
  56094. } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A) {
  56095. DUK_D(DUK_DPRINT("out of regs: 'a' (reg) needs shuffling but shuffle prohibited, a: %ld", (long) a));
  56096. goto error_outofregs;
  56097. } else if (a <= DUK_BC_BC_MAX) {
  56098. comp_ctx->curr_func.needs_shuffle = 1;
  56099. tmp = comp_ctx->curr_func.shuffle1;
  56100. if (op_flags & DUK__EMIT_FLAG_A_IS_SOURCE) {
  56101. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, a));
  56102. } else {
  56103. /* Output shuffle needed after main operation */
  56104. a_out = a;
  56105. /* The DUK_OP_CSVAR output shuffle assumes shuffle registers are
  56106. * consecutive.
  56107. */
  56108. DUK_ASSERT((comp_ctx->curr_func.shuffle1 == 0 && comp_ctx->curr_func.shuffle2 == 0) ||
  56109. (comp_ctx->curr_func.shuffle2 == comp_ctx->curr_func.shuffle1 + 1));
  56110. if (op == DUK_OP_CSVAR) {
  56111. /* For CSVAR the limit is one smaller because output shuffle
  56112. * must be able to express 'a + 1' in BC.
  56113. */
  56114. if (a + 1 > DUK_BC_BC_MAX) {
  56115. goto error_outofregs;
  56116. }
  56117. }
  56118. }
  56119. a = tmp;
  56120. } else {
  56121. DUK_D(DUK_DPRINT("out of regs: 'a' (reg) needs shuffling but does not fit into BC, a: %ld", (long) a));
  56122. goto error_outofregs;
  56123. }
  56124. /* Slot B: reg/const support, mapped to bit 0 of opcode. */
  56125. if ((b & DUK__CONST_MARKER) != 0) {
  56126. DUK_ASSERT((op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B) == 0);
  56127. DUK_ASSERT((op_flags & DUK__EMIT_FLAG_B_IS_TARGET) == 0);
  56128. b = b & ~DUK__CONST_MARKER;
  56129. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56130. if (0) {
  56131. #else
  56132. if (b <= 0xff) {
  56133. #endif
  56134. if (op_flags & DUK__EMIT_FLAG_BC_REGCONST) {
  56135. /* Opcode follows B/C reg/const convention. */
  56136. DUK_ASSERT((op & 0x01) == 0);
  56137. ins |= DUK_ENC_OP_A_B_C(0x01, 0, 0, 0); /* const flag for B */
  56138. } else {
  56139. DUK_D(DUK_DPRINT("B is const, opcode is not B/C reg/const: %x", op_flags));
  56140. }
  56141. } else if (b <= DUK_BC_BC_MAX) {
  56142. comp_ctx->curr_func.needs_shuffle = 1;
  56143. tmp = comp_ctx->curr_func.shuffle2;
  56144. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDCONST, tmp, b));
  56145. b = tmp;
  56146. } else {
  56147. DUK_D(DUK_DPRINT("out of regs: 'b' (const) needs shuffling but does not fit into BC, b: %ld", (long) b));
  56148. goto error_outofregs;
  56149. }
  56150. } else {
  56151. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56152. if (b <= 0xff && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B)) {
  56153. #else
  56154. if (b <= 0xff) {
  56155. #endif
  56156. ;
  56157. } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B) {
  56158. if (b > DUK_BC_B_MAX) {
  56159. /* Note: 0xff != DUK_BC_B_MAX */
  56160. DUK_D(DUK_DPRINT("out of regs: 'b' (reg) needs shuffling but shuffle prohibited, b: %ld", (long) b));
  56161. goto error_outofregs;
  56162. }
  56163. } else if (b <= DUK_BC_BC_MAX) {
  56164. comp_ctx->curr_func.needs_shuffle = 1;
  56165. tmp = comp_ctx->curr_func.shuffle2;
  56166. if (op_flags & DUK__EMIT_FLAG_B_IS_TARGET) {
  56167. /* Output shuffle needed after main operation */
  56168. b_out = b;
  56169. }
  56170. if (!(op_flags & DUK__EMIT_FLAG_B_IS_TARGET)) {
  56171. if (op == DUK_OP_MPUTOBJ || op == DUK_OP_MPUTARR) {
  56172. /* Special handling for MPUTOBJ/MPUTARR shuffling.
  56173. * For each, slot B identifies the first register of a range
  56174. * of registers, so normal shuffling won't work. Instead,
  56175. * an indirect version of the opcode is used.
  56176. */
  56177. DUK_ASSERT((op_flags & DUK__EMIT_FLAG_B_IS_TARGET) == 0);
  56178. duk__emit_load_int32_noshuffle(comp_ctx, tmp, b);
  56179. DUK_ASSERT(DUK_OP_MPUTOBJI == DUK_OP_MPUTOBJ + 1);
  56180. DUK_ASSERT(DUK_OP_MPUTARRI == DUK_OP_MPUTARR + 1);
  56181. op_flags++; /* indirect opcode follows direct */
  56182. } else {
  56183. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, b));
  56184. }
  56185. }
  56186. b = tmp;
  56187. } else {
  56188. DUK_D(DUK_DPRINT("out of regs: 'b' (reg) needs shuffling but does not fit into BC, b: %ld", (long) b));
  56189. goto error_outofregs;
  56190. }
  56191. }
  56192. /* Slot C: reg/const support, mapped to bit 1 of opcode. */
  56193. if ((c & DUK__CONST_MARKER) != 0) {
  56194. DUK_ASSERT((op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C) == 0);
  56195. DUK_ASSERT((op_flags & DUK__EMIT_FLAG_C_IS_TARGET) == 0);
  56196. c = c & ~DUK__CONST_MARKER;
  56197. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56198. if (0) {
  56199. #else
  56200. if (c <= 0xff) {
  56201. #endif
  56202. if (op_flags & DUK__EMIT_FLAG_BC_REGCONST) {
  56203. /* Opcode follows B/C reg/const convention. */
  56204. DUK_ASSERT((op & 0x02) == 0);
  56205. ins |= DUK_ENC_OP_A_B_C(0x02, 0, 0, 0); /* const flag for C */
  56206. } else {
  56207. DUK_D(DUK_DPRINT("C is const, opcode is not B/C reg/const: %x", op_flags));
  56208. }
  56209. } else if (c <= DUK_BC_BC_MAX) {
  56210. comp_ctx->curr_func.needs_shuffle = 1;
  56211. tmp = comp_ctx->curr_func.shuffle3;
  56212. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDCONST, tmp, c));
  56213. c = tmp;
  56214. } else {
  56215. DUK_D(DUK_DPRINT("out of regs: 'c' (const) needs shuffling but does not fit into BC, c: %ld", (long) c));
  56216. goto error_outofregs;
  56217. }
  56218. } else {
  56219. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56220. if (c <= 0xff && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C)) {
  56221. #else
  56222. if (c <= 0xff) {
  56223. #endif
  56224. ;
  56225. } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C) {
  56226. if (c > DUK_BC_C_MAX) {
  56227. /* Note: 0xff != DUK_BC_C_MAX */
  56228. DUK_D(DUK_DPRINT("out of regs: 'c' (reg) needs shuffling but shuffle prohibited, c: %ld", (long) c));
  56229. goto error_outofregs;
  56230. }
  56231. } else if (c <= DUK_BC_BC_MAX) {
  56232. comp_ctx->curr_func.needs_shuffle = 1;
  56233. tmp = comp_ctx->curr_func.shuffle3;
  56234. if (op_flags & DUK__EMIT_FLAG_C_IS_TARGET) {
  56235. /* Output shuffle needed after main operation */
  56236. c_out = c;
  56237. } else {
  56238. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, c));
  56239. }
  56240. c = tmp;
  56241. } else {
  56242. DUK_D(DUK_DPRINT("out of regs: 'c' (reg) needs shuffling but does not fit into BC, c: %ld", (long) c));
  56243. goto error_outofregs;
  56244. }
  56245. }
  56246. /* Main operation */
  56247. DUK_ASSERT(a >= DUK_BC_A_MIN);
  56248. DUK_ASSERT(a <= DUK_BC_A_MAX);
  56249. DUK_ASSERT(b >= DUK_BC_B_MIN);
  56250. DUK_ASSERT(b <= DUK_BC_B_MAX);
  56251. DUK_ASSERT(c >= DUK_BC_C_MIN);
  56252. DUK_ASSERT(c <= DUK_BC_C_MAX);
  56253. ins |= DUK_ENC_OP_A_B_C(op_flags & 0xff, a, b, c);
  56254. duk__emit(comp_ctx, ins);
  56255. /* NEXTENUM needs a jump slot right after the main instruction.
  56256. * When the JUMP is taken, output spilling is not needed so this
  56257. * workaround is possible. The jump slot PC is exceptionally
  56258. * plumbed through comp_ctx to minimize call sites.
  56259. */
  56260. if (op_flags & DUK__EMIT_FLAG_RESERVE_JUMPSLOT) {
  56261. comp_ctx->emit_jumpslot_pc = duk__get_current_pc(comp_ctx);
  56262. duk__emit_abc(comp_ctx, DUK_OP_JUMP, 0);
  56263. }
  56264. /* Output shuffling: only one output register is realistically possible.
  56265. *
  56266. * (Zero would normally be an OK marker value: if the target register
  56267. * was zero, it would never be shuffled. But with DUK_USE_SHUFFLE_TORTURE
  56268. * this is no longer true, so use -1 as a marker instead.)
  56269. */
  56270. if (a_out >= 0) {
  56271. DUK_ASSERT(b_out < 0);
  56272. DUK_ASSERT(c_out < 0);
  56273. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, a, a_out));
  56274. if (op == DUK_OP_CSVAR) {
  56275. /* Special handling for CSVAR shuffling. The variable lookup
  56276. * results in a <value, this binding> pair in successive
  56277. * registers so use two shuffle registers and two output
  56278. * loads. (In practice this is dead code because temp/const
  56279. * limit is reached first.)
  56280. */
  56281. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, a + 1, a_out + 1));
  56282. }
  56283. } else if (b_out >= 0) {
  56284. DUK_ASSERT(a_out < 0);
  56285. DUK_ASSERT(c_out < 0);
  56286. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, b, b_out));
  56287. } else if (c_out >= 0) {
  56288. DUK_ASSERT(b_out < 0);
  56289. DUK_ASSERT(c_out < 0);
  56290. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, c, c_out));
  56291. }
  56292. return;
  56293. error_outofregs:
  56294. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT);
  56295. }
  56296. /* For many of the helpers below it'd be technically correct to add
  56297. * "no shuffle" flags for parameters passed in as zero. For example,
  56298. * duk__emit_a_b() should call duk__emit_a_b_c() with C set to 0, and
  56299. * DUK__EMIT_FLAG_NO_SHUFFLE_C added to op_flags. However, since the
  56300. * C value is 0, it'll never get shuffled so adding the flag is just
  56301. * unnecessary additional code. This is unfortunately not true for
  56302. * "shuffle torture" mode which needs special handling.
  56303. */
  56304. DUK_LOCAL void duk__emit_a_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b) {
  56305. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56306. op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_C;
  56307. #endif
  56308. duk__emit_a_b_c(comp_ctx, op_flags, a, b, 0);
  56309. }
  56310. DUK_LOCAL void duk__emit_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b, duk_regconst_t c) {
  56311. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56312. op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_A;
  56313. #endif
  56314. duk__emit_a_b_c(comp_ctx, op_flags, 0, b, c);
  56315. }
  56316. #if 0 /* unused */
  56317. DUK_LOCAL void duk__emit_a(duk_compiler_ctx *comp_ctx, int op_flags, int a) {
  56318. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56319. op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_B | DUK__EMIT_FLAG_NO_SHUFFLE_C;
  56320. #endif
  56321. duk__emit_a_b_c(comp_ctx, op_flags, a, 0, 0);
  56322. }
  56323. #endif
  56324. #if 0 /* unused */
  56325. DUK_LOCAL void duk__emit_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b) {
  56326. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56327. op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_NO_SHUFFLE_C;
  56328. #endif
  56329. duk__emit_a_b_c(comp_ctx, op_flags, 0, b, 0);
  56330. }
  56331. #endif
  56332. DUK_LOCAL void duk__emit_a_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t bc) {
  56333. duk_instr_t ins;
  56334. duk_int_t tmp;
  56335. /* allow caller to give a const number with the DUK__CONST_MARKER */
  56336. DUK_ASSERT(bc != -1); /* Not 'none'. */
  56337. bc = bc & (~DUK__CONST_MARKER);
  56338. DUK_ASSERT_DISABLE((op_flags & 0xff) >= DUK_BC_OP_MIN); /* unsigned */
  56339. DUK_ASSERT((op_flags & 0xff) <= DUK_BC_OP_MAX);
  56340. DUK_ASSERT(bc >= DUK_BC_BC_MIN);
  56341. DUK_ASSERT(bc <= DUK_BC_BC_MAX);
  56342. DUK_ASSERT((bc & DUK__CONST_MARKER) == 0);
  56343. if (bc <= DUK_BC_BC_MAX) {
  56344. ;
  56345. } else {
  56346. /* No BC shuffling now. */
  56347. goto error_outofregs;
  56348. }
  56349. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56350. if (a <= DUK_BC_A_MAX && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A)) {
  56351. #else
  56352. if (a <= DUK_BC_A_MAX) {
  56353. #endif
  56354. ins = DUK_ENC_OP_A_BC(op_flags & 0xff, a, bc);
  56355. duk__emit(comp_ctx, ins);
  56356. } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A) {
  56357. goto error_outofregs;
  56358. } else if ((op_flags & 0xf0U) == DUK_OP_CALL0) {
  56359. comp_ctx->curr_func.needs_shuffle = 1;
  56360. tmp = comp_ctx->curr_func.shuffle1;
  56361. duk__emit_load_int32_noshuffle(comp_ctx, tmp, a);
  56362. op_flags |= DUK_BC_CALL_FLAG_INDIRECT;
  56363. ins = DUK_ENC_OP_A_BC(op_flags & 0xff, tmp, bc);
  56364. duk__emit(comp_ctx, ins);
  56365. } else if (a <= DUK_BC_BC_MAX) {
  56366. comp_ctx->curr_func.needs_shuffle = 1;
  56367. tmp = comp_ctx->curr_func.shuffle1;
  56368. ins = DUK_ENC_OP_A_BC(op_flags & 0xff, tmp, bc);
  56369. if (op_flags & DUK__EMIT_FLAG_A_IS_SOURCE) {
  56370. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, a));
  56371. duk__emit(comp_ctx, ins);
  56372. } else {
  56373. duk__emit(comp_ctx, ins);
  56374. duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, tmp, a));
  56375. }
  56376. } else {
  56377. goto error_outofregs;
  56378. }
  56379. return;
  56380. error_outofregs:
  56381. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT);
  56382. }
  56383. DUK_LOCAL void duk__emit_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t bc) {
  56384. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56385. op |= DUK__EMIT_FLAG_NO_SHUFFLE_A;
  56386. #endif
  56387. duk__emit_a_bc(comp_ctx, op, 0, bc);
  56388. }
  56389. DUK_LOCAL void duk__emit_abc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t abc) {
  56390. duk_instr_t ins;
  56391. DUK_ASSERT_DISABLE(op >= DUK_BC_OP_MIN); /* unsigned */
  56392. DUK_ASSERT(op <= DUK_BC_OP_MAX);
  56393. DUK_ASSERT_DISABLE(abc >= DUK_BC_ABC_MIN); /* unsigned */
  56394. DUK_ASSERT(abc <= DUK_BC_ABC_MAX);
  56395. DUK_ASSERT((abc & DUK__CONST_MARKER) == 0);
  56396. DUK_ASSERT(abc != -1); /* Not 'none'. */
  56397. if (abc <= DUK_BC_ABC_MAX) {
  56398. ;
  56399. } else {
  56400. goto error_outofregs;
  56401. }
  56402. ins = DUK_ENC_OP_ABC(op, abc);
  56403. DUK_DDD(DUK_DDDPRINT("duk__emit_abc: 0x%08lx line=%ld pc=%ld op=%ld (%!C) abc=%ld (%!I)",
  56404. (unsigned long) ins, (long) comp_ctx->curr_token.start_line,
  56405. (long) duk__get_current_pc(comp_ctx), (long) op, (long) op,
  56406. (long) abc, (duk_instr_t) ins));
  56407. duk__emit(comp_ctx, ins);
  56408. return;
  56409. error_outofregs:
  56410. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT);
  56411. }
  56412. DUK_LOCAL void duk__emit_load_int32_raw(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val, duk_small_uint_t op_flags) {
  56413. /* XXX: Shuffling support could be implemented here so that LDINT+LDINTX
  56414. * would only shuffle once (instead of twice). The current code works
  56415. * though, and has a smaller compiler footprint.
  56416. */
  56417. if ((val >= (duk_int32_t) DUK_BC_BC_MIN - (duk_int32_t) DUK_BC_LDINT_BIAS) &&
  56418. (val <= (duk_int32_t) DUK_BC_BC_MAX - (duk_int32_t) DUK_BC_LDINT_BIAS)) {
  56419. DUK_DDD(DUK_DDDPRINT("emit LDINT to reg %ld for %ld", (long) reg, (long) val));
  56420. duk__emit_a_bc(comp_ctx, DUK_OP_LDINT | op_flags, reg, (duk_regconst_t) (val + (duk_int32_t) DUK_BC_LDINT_BIAS));
  56421. } else {
  56422. duk_int32_t hi = val >> DUK_BC_LDINTX_SHIFT;
  56423. duk_int32_t lo = val & ((((duk_int32_t) 1) << DUK_BC_LDINTX_SHIFT) - 1);
  56424. DUK_ASSERT(lo >= 0);
  56425. DUK_DDD(DUK_DDDPRINT("emit LDINT+LDINTX to reg %ld for %ld -> hi %ld, lo %ld",
  56426. (long) reg, (long) val, (long) hi, (long) lo));
  56427. duk__emit_a_bc(comp_ctx, DUK_OP_LDINT | op_flags, reg, (duk_regconst_t) (hi + (duk_int32_t) DUK_BC_LDINT_BIAS));
  56428. duk__emit_a_bc(comp_ctx, DUK_OP_LDINTX | op_flags, reg, (duk_regconst_t) lo);
  56429. }
  56430. }
  56431. DUK_LOCAL void duk__emit_load_int32(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) {
  56432. duk__emit_load_int32_raw(comp_ctx, reg, val, 0 /*op_flags*/);
  56433. }
  56434. #if defined(DUK_USE_SHUFFLE_TORTURE)
  56435. /* Used by duk__emit*() calls so that we don't shuffle the loadints that
  56436. * are needed to handle indirect opcodes.
  56437. */
  56438. DUK_LOCAL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) {
  56439. duk__emit_load_int32_raw(comp_ctx, reg, val, DUK__EMIT_FLAG_NO_SHUFFLE_A /*op_flags*/);
  56440. }
  56441. #else
  56442. DUK_LOCAL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) {
  56443. /* When torture not enabled, can just use the same helper because
  56444. * 'reg' won't get spilled.
  56445. */
  56446. DUK_ASSERT(reg <= DUK_BC_A_MAX);
  56447. duk__emit_load_int32(comp_ctx, reg, val);
  56448. }
  56449. #endif
  56450. DUK_LOCAL void duk__emit_jump(duk_compiler_ctx *comp_ctx, duk_int_t target_pc) {
  56451. duk_int_t curr_pc;
  56452. duk_int_t offset;
  56453. curr_pc = (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr));
  56454. offset = (duk_int_t) target_pc - (duk_int_t) curr_pc - 1;
  56455. DUK_ASSERT(offset + DUK_BC_JUMP_BIAS >= DUK_BC_ABC_MIN);
  56456. DUK_ASSERT(offset + DUK_BC_JUMP_BIAS <= DUK_BC_ABC_MAX);
  56457. duk__emit_abc(comp_ctx, DUK_OP_JUMP, (duk_regconst_t) (offset + DUK_BC_JUMP_BIAS));
  56458. }
  56459. DUK_LOCAL duk_int_t duk__emit_jump_empty(duk_compiler_ctx *comp_ctx) {
  56460. duk_int_t ret;
  56461. ret = duk__get_current_pc(comp_ctx); /* useful for patching jumps later */
  56462. duk__emit_op_only(comp_ctx, DUK_OP_JUMP);
  56463. return ret;
  56464. }
  56465. /* Insert an empty jump in the middle of code emitted earlier. This is
  56466. * currently needed for compiling for-in.
  56467. */
  56468. DUK_LOCAL void duk__insert_jump_entry(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc) {
  56469. #if defined(DUK_USE_PC2LINE)
  56470. duk_int_t line;
  56471. #endif
  56472. duk_compiler_instr *instr;
  56473. duk_size_t offset;
  56474. DUK_ASSERT(jump_pc >= 0);
  56475. offset = (duk_size_t) jump_pc * sizeof(duk_compiler_instr);
  56476. instr = (duk_compiler_instr *) (void *)
  56477. DUK_BW_INSERT_ENSURE_AREA(comp_ctx->thr,
  56478. &comp_ctx->curr_func.bw_code,
  56479. offset,
  56480. sizeof(duk_compiler_instr));
  56481. #if defined(DUK_USE_PC2LINE)
  56482. line = comp_ctx->curr_token.start_line; /* approximation, close enough */
  56483. #endif
  56484. instr->ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, 0);
  56485. #if defined(DUK_USE_PC2LINE)
  56486. instr->line = (duk_uint32_t) line;
  56487. #endif
  56488. DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr));
  56489. if (DUK_UNLIKELY(DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) > DUK_USE_ESBC_MAX_BYTES)) {
  56490. goto fail_bc_limit;
  56491. }
  56492. return;
  56493. fail_bc_limit:
  56494. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_BYTECODE_LIMIT);
  56495. }
  56496. /* Does not assume that jump_pc contains a DUK_OP_JUMP previously; this is intentional
  56497. * to allow e.g. an INVALID opcode be overwritten with a JUMP (label management uses this).
  56498. */
  56499. DUK_LOCAL void duk__patch_jump(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc, duk_int_t target_pc) {
  56500. duk_compiler_instr *instr;
  56501. duk_int_t offset;
  56502. /* allow negative PCs, behave as a no-op */
  56503. if (jump_pc < 0) {
  56504. DUK_DDD(DUK_DDDPRINT("duk__patch_jump(): nop call, jump_pc=%ld (<0), target_pc=%ld",
  56505. (long) jump_pc, (long) target_pc));
  56506. return;
  56507. }
  56508. DUK_ASSERT(jump_pc >= 0);
  56509. /* XXX: range assert */
  56510. instr = duk__get_instr_ptr(comp_ctx, jump_pc);
  56511. DUK_ASSERT(instr != NULL);
  56512. /* XXX: range assert */
  56513. offset = target_pc - jump_pc - 1;
  56514. instr->ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, offset + DUK_BC_JUMP_BIAS);
  56515. DUK_DDD(DUK_DDDPRINT("duk__patch_jump(): jump_pc=%ld, target_pc=%ld, offset=%ld",
  56516. (long) jump_pc, (long) target_pc, (long) offset));
  56517. }
  56518. DUK_LOCAL void duk__patch_jump_here(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc) {
  56519. duk__patch_jump(comp_ctx, jump_pc, duk__get_current_pc(comp_ctx));
  56520. }
  56521. DUK_LOCAL void duk__patch_trycatch(duk_compiler_ctx *comp_ctx, duk_int_t ldconst_pc, duk_int_t trycatch_pc, duk_regconst_t reg_catch, duk_regconst_t const_varname, duk_small_uint_t flags) {
  56522. duk_compiler_instr *instr;
  56523. DUK_ASSERT(DUK__ISREG(reg_catch));
  56524. instr = duk__get_instr_ptr(comp_ctx, ldconst_pc);
  56525. DUK_ASSERT(DUK_DEC_OP(instr->ins) == DUK_OP_LDCONST);
  56526. DUK_ASSERT(instr != NULL);
  56527. if (const_varname & DUK__CONST_MARKER) {
  56528. /* Have a catch variable. */
  56529. const_varname = const_varname & (~DUK__CONST_MARKER);
  56530. if (reg_catch > DUK_BC_BC_MAX || const_varname > DUK_BC_BC_MAX) {
  56531. /* Catch attempts to use out-of-range reg/const. Without this
  56532. * check Duktape 0.12.0 could generate invalid code which caused
  56533. * an assert failure on execution. This error is triggered e.g.
  56534. * for functions with a lot of constants and a try-catch statement.
  56535. * Shuffling or opcode semantics change is needed to fix the issue.
  56536. * See: test-bug-trycatch-many-constants.js.
  56537. */
  56538. DUK_D(DUK_DPRINT("failed to patch trycatch: flags=%ld, reg_catch=%ld, const_varname=%ld (0x%08lx)",
  56539. (long) flags, (long) reg_catch, (long) const_varname, (long) const_varname));
  56540. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT);
  56541. }
  56542. instr->ins |= DUK_ENC_OP_A_BC(0, 0, const_varname);
  56543. } else {
  56544. /* No catch variable, e.g. a try-finally; replace LDCONST with
  56545. * NOP to avoid a bogus LDCONST.
  56546. */
  56547. instr->ins = DUK_ENC_OP(DUK_OP_NOP);
  56548. }
  56549. instr = duk__get_instr_ptr(comp_ctx, trycatch_pc);
  56550. DUK_ASSERT(instr != NULL);
  56551. DUK_ASSERT_DISABLE(flags >= DUK_BC_A_MIN);
  56552. DUK_ASSERT(flags <= DUK_BC_A_MAX);
  56553. instr->ins = DUK_ENC_OP_A_BC(DUK_OP_TRYCATCH, flags, reg_catch);
  56554. }
  56555. DUK_LOCAL void duk__emit_if_false_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst) {
  56556. duk_small_uint_t op;
  56557. op = DUK__ISREG(regconst) ? DUK_OP_IFFALSE_R : DUK_OP_IFFALSE_C;
  56558. duk__emit_bc(comp_ctx, op, regconst); /* helper will remove const flag */
  56559. }
  56560. DUK_LOCAL void duk__emit_if_true_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst) {
  56561. duk_small_uint_t op;
  56562. op = DUK__ISREG(regconst) ? DUK_OP_IFTRUE_R : DUK_OP_IFTRUE_C;
  56563. duk__emit_bc(comp_ctx, op, regconst); /* helper will remove const flag */
  56564. }
  56565. DUK_LOCAL void duk__emit_invalid(duk_compiler_ctx *comp_ctx) {
  56566. duk__emit_op_only(comp_ctx, DUK_OP_INVALID);
  56567. }
  56568. /*
  56569. * Peephole optimizer for finished bytecode.
  56570. *
  56571. * Does not remove opcodes; currently only straightens out unconditional
  56572. * jump chains which are generated by several control structures.
  56573. */
  56574. DUK_LOCAL void duk__peephole_optimize_bytecode(duk_compiler_ctx *comp_ctx) {
  56575. duk_compiler_instr *bc;
  56576. duk_small_uint_t iter;
  56577. duk_int_t i, n;
  56578. duk_int_t count_opt;
  56579. bc = (duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code);
  56580. #if defined(DUK_USE_BUFLEN16)
  56581. /* No need to assert, buffer size maximum is 0xffff. */
  56582. #else
  56583. DUK_ASSERT((duk_size_t) DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr) <= (duk_size_t) DUK_INT_MAX); /* bytecode limits */
  56584. #endif
  56585. n = (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr));
  56586. for (iter = 0; iter < DUK_COMPILER_PEEPHOLE_MAXITER; iter++) {
  56587. count_opt = 0;
  56588. for (i = 0; i < n; i++) {
  56589. duk_instr_t ins;
  56590. duk_int_t target_pc1;
  56591. duk_int_t target_pc2;
  56592. ins = bc[i].ins;
  56593. if (DUK_DEC_OP(ins) != DUK_OP_JUMP) {
  56594. continue;
  56595. }
  56596. target_pc1 = i + 1 + (duk_int_t) DUK_DEC_ABC(ins) - (duk_int_t) DUK_BC_JUMP_BIAS;
  56597. DUK_DDD(DUK_DDDPRINT("consider jump at pc %ld; target_pc=%ld", (long) i, (long) target_pc1));
  56598. DUK_ASSERT(target_pc1 >= 0);
  56599. DUK_ASSERT(target_pc1 < n);
  56600. /* Note: if target_pc1 == i, we'll optimize a jump to itself.
  56601. * This does not need to be checked for explicitly; the case
  56602. * is rare and max iter breaks us out.
  56603. */
  56604. ins = bc[target_pc1].ins;
  56605. if (DUK_DEC_OP(ins) != DUK_OP_JUMP) {
  56606. continue;
  56607. }
  56608. target_pc2 = target_pc1 + 1 + (duk_int_t) DUK_DEC_ABC(ins) - (duk_int_t) DUK_BC_JUMP_BIAS;
  56609. DUK_DDD(DUK_DDDPRINT("optimizing jump at pc %ld; old target is %ld -> new target is %ld",
  56610. (long) i, (long) target_pc1, (long) target_pc2));
  56611. bc[i].ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, target_pc2 - (i + 1) + DUK_BC_JUMP_BIAS);
  56612. count_opt++;
  56613. }
  56614. DUK_DD(DUK_DDPRINT("optimized %ld jumps on peephole round %ld", (long) count_opt, (long) (iter + 1)));
  56615. if (count_opt == 0) {
  56616. break;
  56617. }
  56618. }
  56619. }
  56620. /*
  56621. * Intermediate value helpers
  56622. */
  56623. /* Flags for intermediate value coercions. A flag for using a forced reg
  56624. * is not needed, the forced_reg argument suffices and generates better
  56625. * code (it is checked as it is used).
  56626. */
  56627. /* XXX: DUK__IVAL_FLAG_REQUIRE_SHORT is passed but not currently implemented
  56628. * by ispec/ivalue operations.
  56629. */
  56630. #define DUK__IVAL_FLAG_ALLOW_CONST (1 << 0) /* allow a constant to be returned */
  56631. #define DUK__IVAL_FLAG_REQUIRE_TEMP (1 << 1) /* require a (mutable) temporary as a result (or a const if allowed) */
  56632. #define DUK__IVAL_FLAG_REQUIRE_SHORT (1 << 2) /* require a short (8-bit) reg/const which fits into bytecode B/C slot */
  56633. /* XXX: some code might benefit from DUK__SETTEMP_IFTEMP(thr,x) */
  56634. #if 0 /* enable manually for dumping */
  56635. #define DUK__DUMP_ISPEC(compctx,ispec) do { duk__dump_ispec((compctx), (ispec)); } while (0)
  56636. #define DUK__DUMP_IVALUE(compctx,ivalue) do { duk__dump_ivalue((compctx), (ivalue)); } while (0)
  56637. DUK_LOCAL void duk__dump_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *x) {
  56638. DUK_D(DUK_DPRINT("ispec dump: t=%ld regconst=0x%08lx, valstack_idx=%ld, value=%!T",
  56639. (long) x->t, (unsigned long) x->regconst, (long) x->valstack_idx,
  56640. duk_get_tval(comp_ctx->thr, x->valstack_idx)));
  56641. }
  56642. DUK_LOCAL void duk__dump_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  56643. DUK_D(DUK_DPRINT("ivalue dump: t=%ld op=%ld "
  56644. "x1={t=%ld regconst=0x%08lx valstack_idx=%ld value=%!T} "
  56645. "x2={t=%ld regconst=0x%08lx valstack_idx=%ld value=%!T}",
  56646. (long) x->t, (long) x->op,
  56647. (long) x->x1.t, (unsigned long) x->x1.regconst, (long) x->x1.valstack_idx,
  56648. duk_get_tval(comp_ctx->thr, x->x1.valstack_idx),
  56649. (long) x->x2.t, (unsigned long) x->x2.regconst, (long) x->x2.valstack_idx,
  56650. duk_get_tval(comp_ctx->thr, x->x2.valstack_idx)));
  56651. }
  56652. #else
  56653. #define DUK__DUMP_ISPEC(comp_ctx,x) do {} while (0)
  56654. #define DUK__DUMP_IVALUE(comp_ctx,x) do {} while (0)
  56655. #endif
  56656. DUK_LOCAL void duk__ivalue_regconst(duk_ivalue *x, duk_regconst_t regconst) {
  56657. x->t = DUK_IVAL_PLAIN;
  56658. x->x1.t = DUK_ISPEC_REGCONST;
  56659. x->x1.regconst = regconst;
  56660. }
  56661. DUK_LOCAL void duk__ivalue_plain_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  56662. x->t = DUK_IVAL_PLAIN;
  56663. x->x1.t = DUK_ISPEC_VALUE;
  56664. duk_replace(comp_ctx->thr, x->x1.valstack_idx);
  56665. }
  56666. DUK_LOCAL void duk__ivalue_var_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  56667. x->t = DUK_IVAL_VAR;
  56668. x->x1.t = DUK_ISPEC_VALUE;
  56669. duk_replace(comp_ctx->thr, x->x1.valstack_idx);
  56670. }
  56671. DUK_LOCAL_DECL void duk__ivalue_var_hstring(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_hstring *h) {
  56672. DUK_ASSERT(h != NULL);
  56673. duk_push_hstring(comp_ctx->thr, h);
  56674. duk__ivalue_var_fromstack(comp_ctx, x);
  56675. }
  56676. DUK_LOCAL void duk__copy_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *src, duk_ispec *dst) {
  56677. dst->t = src->t;
  56678. dst->regconst = src->regconst;
  56679. duk_copy(comp_ctx->thr, src->valstack_idx, dst->valstack_idx);
  56680. }
  56681. DUK_LOCAL void duk__copy_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *src, duk_ivalue *dst) {
  56682. dst->t = src->t;
  56683. dst->op = src->op;
  56684. dst->x1.t = src->x1.t;
  56685. dst->x1.regconst = src->x1.regconst;
  56686. dst->x2.t = src->x2.t;
  56687. dst->x2.regconst = src->x2.regconst;
  56688. duk_copy(comp_ctx->thr, src->x1.valstack_idx, dst->x1.valstack_idx);
  56689. duk_copy(comp_ctx->thr, src->x2.valstack_idx, dst->x2.valstack_idx);
  56690. }
  56691. DUK_LOCAL duk_regconst_t duk__alloctemps(duk_compiler_ctx *comp_ctx, duk_small_int_t num) {
  56692. duk_regconst_t res;
  56693. res = comp_ctx->curr_func.temp_next;
  56694. comp_ctx->curr_func.temp_next += num;
  56695. if (comp_ctx->curr_func.temp_next > DUK__MAX_TEMPS) { /* == DUK__MAX_TEMPS is OK */
  56696. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_TEMP_LIMIT);
  56697. }
  56698. /* maintain highest 'used' temporary, needed to figure out nregs of function */
  56699. if (comp_ctx->curr_func.temp_next > comp_ctx->curr_func.temp_max) {
  56700. comp_ctx->curr_func.temp_max = comp_ctx->curr_func.temp_next;
  56701. }
  56702. return res;
  56703. }
  56704. DUK_LOCAL duk_regconst_t duk__alloctemp(duk_compiler_ctx *comp_ctx) {
  56705. return duk__alloctemps(comp_ctx, 1);
  56706. }
  56707. DUK_LOCAL void duk__settemp_checkmax(duk_compiler_ctx *comp_ctx, duk_regconst_t temp_next) {
  56708. comp_ctx->curr_func.temp_next = temp_next;
  56709. if (temp_next > comp_ctx->curr_func.temp_max) {
  56710. comp_ctx->curr_func.temp_max = temp_next;
  56711. }
  56712. }
  56713. /* get const for value at valstack top */
  56714. DUK_LOCAL duk_regconst_t duk__getconst(duk_compiler_ctx *comp_ctx) {
  56715. duk_hthread *thr = comp_ctx->thr;
  56716. duk_compiler_func *f = &comp_ctx->curr_func;
  56717. duk_tval *tv1;
  56718. duk_int_t i, n, n_check;
  56719. n = (duk_int_t) duk_get_length(thr, f->consts_idx);
  56720. tv1 = DUK_GET_TVAL_NEGIDX(thr, -1);
  56721. DUK_ASSERT(tv1 != NULL);
  56722. #if defined(DUK_USE_FASTINT)
  56723. /* Explicit check for fastint downgrade. */
  56724. DUK_TVAL_CHKFAST_INPLACE_SLOW(tv1);
  56725. #endif
  56726. /* Sanity workaround for handling functions with a large number of
  56727. * constants at least somewhat reasonably. Otherwise checking whether
  56728. * we already have the constant would grow very slow (as it is O(N^2)).
  56729. */
  56730. n_check = (n > DUK__GETCONST_MAX_CONSTS_CHECK ? DUK__GETCONST_MAX_CONSTS_CHECK : n);
  56731. for (i = 0; i < n_check; i++) {
  56732. duk_tval *tv2 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, f->h_consts, i);
  56733. /* Strict equality is NOT enough, because we cannot use the same
  56734. * constant for e.g. +0 and -0.
  56735. */
  56736. if (duk_js_samevalue(tv1, tv2)) {
  56737. DUK_DDD(DUK_DDDPRINT("reused existing constant for %!T -> const index %ld",
  56738. (duk_tval *) tv1, (long) i));
  56739. duk_pop(thr);
  56740. return (duk_regconst_t) i | (duk_regconst_t) DUK__CONST_MARKER;
  56741. }
  56742. }
  56743. if (n > DUK__MAX_CONSTS) {
  56744. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_CONST_LIMIT);
  56745. }
  56746. DUK_DDD(DUK_DDDPRINT("allocating new constant for %!T -> const index %ld",
  56747. (duk_tval *) tv1, (long) n));
  56748. (void) duk_put_prop_index(thr, f->consts_idx, (duk_uarridx_t) n); /* invalidates tv1, tv2 */
  56749. return (duk_regconst_t) n | (duk_regconst_t) DUK__CONST_MARKER;
  56750. }
  56751. DUK_LOCAL duk_bool_t duk__const_needs_refcount(duk_compiler_ctx *comp_ctx, duk_regconst_t rc) {
  56752. #if defined(DUK_USE_REFERENCE_COUNTING)
  56753. duk_compiler_func *f = &comp_ctx->curr_func;
  56754. duk_bool_t ret;
  56755. DUK_ASSERT((rc & DUK__CONST_MARKER) == 0); /* caller removes const marker */
  56756. (void) duk_get_prop_index(comp_ctx->thr, f->consts_idx, (duk_uarridx_t) rc);
  56757. ret = !duk_is_number(comp_ctx->thr, -1); /* now only number/string, so conservative check */
  56758. duk_pop(comp_ctx->thr);
  56759. return ret;
  56760. #else
  56761. DUK_UNREF(comp_ctx);
  56762. DUK_UNREF(rc);
  56763. DUK_ASSERT((rc & DUK__CONST_MARKER) == 0); /* caller removes const marker */
  56764. return 0;
  56765. #endif
  56766. }
  56767. /* Get the value represented by an duk_ispec to a register or constant.
  56768. * The caller can control the result by indicating whether or not:
  56769. *
  56770. * (1) a constant is allowed (sometimes the caller needs the result to
  56771. * be in a register)
  56772. *
  56773. * (2) a temporary register is required (usually when caller requires
  56774. * the register to be safely mutable; normally either a bound
  56775. * register or a temporary register are both OK)
  56776. *
  56777. * (3) a forced register target needs to be used
  56778. *
  56779. * Bytecode may be emitted to generate the necessary value. The return
  56780. * value is either a register or a constant.
  56781. */
  56782. DUK_LOCAL
  56783. duk_regconst_t duk__ispec_toregconst_raw(duk_compiler_ctx *comp_ctx,
  56784. duk_ispec *x,
  56785. duk_regconst_t forced_reg,
  56786. duk_small_uint_t flags) {
  56787. duk_hthread *thr = comp_ctx->thr;
  56788. DUK_DDD(DUK_DDDPRINT("duk__ispec_toregconst_raw(): x={%ld:%ld:%!T}, "
  56789. "forced_reg=%ld, flags 0x%08lx: allow_const=%ld require_temp=%ld require_short=%ld",
  56790. (long) x->t,
  56791. (long) x->regconst,
  56792. (duk_tval *) duk_get_tval(thr, x->valstack_idx),
  56793. (long) forced_reg,
  56794. (unsigned long) flags,
  56795. (long) ((flags & DUK__IVAL_FLAG_ALLOW_CONST) ? 1 : 0),
  56796. (long) ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) ? 1 : 0),
  56797. (long) ((flags & DUK__IVAL_FLAG_REQUIRE_SHORT) ? 1 : 0)));
  56798. switch (x->t) {
  56799. case DUK_ISPEC_VALUE: {
  56800. duk_tval *tv;
  56801. tv = DUK_GET_TVAL_POSIDX(thr, x->valstack_idx);
  56802. DUK_ASSERT(tv != NULL);
  56803. switch (DUK_TVAL_GET_TAG(tv)) {
  56804. case DUK_TAG_UNDEFINED: {
  56805. /* Note: although there is no 'undefined' literal, undefined
  56806. * values can occur during compilation as a result of e.g.
  56807. * the 'void' operator.
  56808. */
  56809. duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56810. duk__emit_bc(comp_ctx, DUK_OP_LDUNDEF, dest);
  56811. return dest;
  56812. }
  56813. case DUK_TAG_NULL: {
  56814. duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56815. duk__emit_bc(comp_ctx, DUK_OP_LDNULL, dest);
  56816. return dest;
  56817. }
  56818. case DUK_TAG_BOOLEAN: {
  56819. duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56820. duk__emit_bc(comp_ctx,
  56821. (DUK_TVAL_GET_BOOLEAN(tv) ? DUK_OP_LDTRUE : DUK_OP_LDFALSE),
  56822. dest);
  56823. return dest;
  56824. }
  56825. case DUK_TAG_POINTER: {
  56826. DUK_UNREACHABLE();
  56827. break;
  56828. }
  56829. case DUK_TAG_STRING: {
  56830. duk_hstring *h;
  56831. duk_regconst_t dest;
  56832. duk_regconst_t constidx;
  56833. h = DUK_TVAL_GET_STRING(tv);
  56834. DUK_UNREF(h);
  56835. DUK_ASSERT(h != NULL);
  56836. #if 0 /* XXX: to be implemented? */
  56837. /* Use special opcodes to load short strings */
  56838. if (DUK_HSTRING_GET_BYTELEN(h) <= 2) {
  56839. /* Encode into a single opcode (18 bits can encode 1-2 bytes + length indicator) */
  56840. } else if (DUK_HSTRING_GET_BYTELEN(h) <= 6) {
  56841. /* Encode into a double constant (53 bits can encode 6*8 = 48 bits + 3-bit length */
  56842. }
  56843. #endif
  56844. duk_dup(thr, x->valstack_idx);
  56845. constidx = duk__getconst(comp_ctx);
  56846. if (flags & DUK__IVAL_FLAG_ALLOW_CONST) {
  56847. return constidx;
  56848. }
  56849. dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56850. duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, constidx);
  56851. return dest;
  56852. }
  56853. case DUK_TAG_OBJECT: {
  56854. DUK_UNREACHABLE();
  56855. break;
  56856. }
  56857. case DUK_TAG_BUFFER: {
  56858. DUK_UNREACHABLE();
  56859. break;
  56860. }
  56861. case DUK_TAG_LIGHTFUNC: {
  56862. DUK_UNREACHABLE();
  56863. break;
  56864. }
  56865. #if defined(DUK_USE_FASTINT)
  56866. case DUK_TAG_FASTINT:
  56867. #endif
  56868. default: {
  56869. /* number */
  56870. duk_regconst_t dest;
  56871. duk_regconst_t constidx;
  56872. duk_double_t dval;
  56873. duk_int32_t ival;
  56874. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  56875. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  56876. dval = DUK_TVAL_GET_NUMBER(tv);
  56877. if (!(flags & DUK__IVAL_FLAG_ALLOW_CONST)) {
  56878. /* A number can be loaded either through a constant, using
  56879. * LDINT, or using LDINT+LDINTX. LDINT is always a size win,
  56880. * LDINT+LDINTX is not if the constant is used multiple times.
  56881. * Currently always prefer LDINT+LDINTX over a double constant.
  56882. */
  56883. if (duk_is_whole_get_int32_nonegzero(dval, &ival)) {
  56884. dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56885. duk__emit_load_int32(comp_ctx, dest, ival);
  56886. return dest;
  56887. }
  56888. }
  56889. duk_dup(thr, x->valstack_idx);
  56890. constidx = duk__getconst(comp_ctx);
  56891. if (flags & DUK__IVAL_FLAG_ALLOW_CONST) {
  56892. return constidx;
  56893. } else {
  56894. dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  56895. duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, constidx);
  56896. return dest;
  56897. }
  56898. }
  56899. } /* end switch */
  56900. }
  56901. case DUK_ISPEC_REGCONST: {
  56902. if (forced_reg >= 0) {
  56903. if (DUK__ISCONST(x->regconst)) {
  56904. duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, forced_reg, x->regconst);
  56905. } else if (x->regconst != forced_reg) {
  56906. duk__emit_a_bc(comp_ctx, DUK_OP_LDREG, forced_reg, x->regconst);
  56907. } else {
  56908. ; /* already in correct reg */
  56909. }
  56910. return forced_reg;
  56911. }
  56912. DUK_ASSERT(forced_reg < 0);
  56913. if (DUK__ISCONST(x->regconst)) {
  56914. if (!(flags & DUK__IVAL_FLAG_ALLOW_CONST)) {
  56915. duk_regconst_t dest = DUK__ALLOCTEMP(comp_ctx);
  56916. duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, x->regconst);
  56917. return dest;
  56918. }
  56919. return x->regconst;
  56920. }
  56921. DUK_ASSERT(forced_reg < 0 && !DUK__ISCONST(x->regconst));
  56922. if ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) && !DUK__ISREG_TEMP(comp_ctx, x->regconst)) {
  56923. duk_regconst_t dest = DUK__ALLOCTEMP(comp_ctx);
  56924. duk__emit_a_bc(comp_ctx, DUK_OP_LDREG, dest, x->regconst);
  56925. return dest;
  56926. }
  56927. return x->regconst;
  56928. }
  56929. default: {
  56930. break;
  56931. }
  56932. }
  56933. DUK_ERROR_INTERNAL(thr);
  56934. return 0;
  56935. }
  56936. DUK_LOCAL void duk__ispec_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ispec *x, duk_regconst_t forced_reg) {
  56937. DUK_ASSERT(forced_reg >= 0);
  56938. (void) duk__ispec_toregconst_raw(comp_ctx, x, forced_reg, 0 /*flags*/);
  56939. }
  56940. /* Coerce an duk_ivalue to a 'plain' value by generating the necessary
  56941. * arithmetic operations, property access, or variable access bytecode.
  56942. * The duk_ivalue argument ('x') is converted into a plain value as a
  56943. * side effect.
  56944. */
  56945. DUK_LOCAL void duk__ivalue_toplain_raw(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_regconst_t forced_reg) {
  56946. duk_hthread *thr = comp_ctx->thr;
  56947. DUK_DDD(DUK_DDDPRINT("duk__ivalue_toplain_raw(): x={t=%ld,op=%ld,x1={%ld:%ld:%!T},x2={%ld:%ld:%!T}}, "
  56948. "forced_reg=%ld",
  56949. (long) x->t, (long) x->op,
  56950. (long) x->x1.t, (long) x->x1.regconst,
  56951. (duk_tval *) duk_get_tval(thr, x->x1.valstack_idx),
  56952. (long) x->x2.t, (long) x->x2.regconst,
  56953. (duk_tval *) duk_get_tval(thr, x->x2.valstack_idx),
  56954. (long) forced_reg));
  56955. switch (x->t) {
  56956. case DUK_IVAL_PLAIN: {
  56957. return;
  56958. }
  56959. /* XXX: support unary arithmetic ivalues (useful?) */
  56960. case DUK_IVAL_ARITH: {
  56961. duk_regconst_t arg1;
  56962. duk_regconst_t arg2;
  56963. duk_regconst_t dest;
  56964. duk_tval *tv1;
  56965. duk_tval *tv2;
  56966. DUK_DDD(DUK_DDDPRINT("arith to plain conversion"));
  56967. /* inline arithmetic check for constant values */
  56968. /* XXX: use the exactly same arithmetic function here as in executor */
  56969. if (x->x1.t == DUK_ISPEC_VALUE && x->x2.t == DUK_ISPEC_VALUE && x->t == DUK_IVAL_ARITH) {
  56970. tv1 = DUK_GET_TVAL_POSIDX(thr, x->x1.valstack_idx);
  56971. tv2 = DUK_GET_TVAL_POSIDX(thr, x->x2.valstack_idx);
  56972. DUK_ASSERT(tv1 != NULL);
  56973. DUK_ASSERT(tv2 != NULL);
  56974. DUK_DDD(DUK_DDDPRINT("arith: tv1=%!T, tv2=%!T",
  56975. (duk_tval *) tv1,
  56976. (duk_tval *) tv2));
  56977. if (DUK_TVAL_IS_NUMBER(tv1) && DUK_TVAL_IS_NUMBER(tv2)) {
  56978. duk_double_t d1 = DUK_TVAL_GET_NUMBER(tv1);
  56979. duk_double_t d2 = DUK_TVAL_GET_NUMBER(tv2);
  56980. duk_double_t d3;
  56981. duk_bool_t accept_fold = 1;
  56982. DUK_DDD(DUK_DDDPRINT("arith inline check: d1=%lf, d2=%lf, op=%ld",
  56983. (double) d1, (double) d2, (long) x->op));
  56984. switch (x->op) {
  56985. case DUK_OP_ADD: {
  56986. d3 = d1 + d2;
  56987. break;
  56988. }
  56989. case DUK_OP_SUB: {
  56990. d3 = d1 - d2;
  56991. break;
  56992. }
  56993. case DUK_OP_MUL: {
  56994. d3 = d1 * d2;
  56995. break;
  56996. }
  56997. case DUK_OP_DIV: {
  56998. d3 = d1 / d2;
  56999. break;
  57000. }
  57001. case DUK_OP_EXP: {
  57002. d3 = (duk_double_t) duk_js_arith_pow((double) d1, (double) d2);
  57003. break;
  57004. }
  57005. default: {
  57006. d3 = 0.0; /* Won't be used, but silence MSVC /W4 warning. */
  57007. accept_fold = 0;
  57008. break;
  57009. }
  57010. }
  57011. if (accept_fold) {
  57012. duk_double_union du;
  57013. du.d = d3;
  57014. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du);
  57015. d3 = du.d;
  57016. x->t = DUK_IVAL_PLAIN;
  57017. DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE);
  57018. DUK_TVAL_SET_NUMBER(tv1, d3); /* old value is number: no refcount */
  57019. return;
  57020. }
  57021. } else if (x->op == DUK_OP_ADD && DUK_TVAL_IS_STRING(tv1) && DUK_TVAL_IS_STRING(tv2)) {
  57022. /* Inline string concatenation. No need to check for
  57023. * symbols, as all inputs are valid Ecmascript strings.
  57024. */
  57025. duk_dup(thr, x->x1.valstack_idx);
  57026. duk_dup(thr, x->x2.valstack_idx);
  57027. duk_concat(thr, 2);
  57028. duk_replace(thr, x->x1.valstack_idx);
  57029. x->t = DUK_IVAL_PLAIN;
  57030. DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE);
  57031. return;
  57032. }
  57033. }
  57034. arg1 = duk__ispec_toregconst_raw(comp_ctx, &x->x1, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/);
  57035. arg2 = duk__ispec_toregconst_raw(comp_ctx, &x->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/);
  57036. /* If forced reg, use it as destination. Otherwise try to
  57037. * use either coerced ispec if it is a temporary.
  57038. */
  57039. if (forced_reg >= 0) {
  57040. dest = forced_reg;
  57041. } else if (DUK__ISREG_TEMP(comp_ctx, arg1)) {
  57042. dest = arg1;
  57043. } else if (DUK__ISREG_TEMP(comp_ctx, arg2)) {
  57044. dest = arg2;
  57045. } else {
  57046. dest = DUK__ALLOCTEMP(comp_ctx);
  57047. }
  57048. DUK_ASSERT(DUK__ISREG(dest));
  57049. duk__emit_a_b_c(comp_ctx, x->op | DUK__EMIT_FLAG_BC_REGCONST, dest, arg1, arg2);
  57050. duk__ivalue_regconst(x, dest);
  57051. return;
  57052. }
  57053. case DUK_IVAL_PROP: {
  57054. /* XXX: very similar to DUK_IVAL_ARITH - merge? */
  57055. duk_regconst_t arg1;
  57056. duk_regconst_t arg2;
  57057. duk_regconst_t dest;
  57058. /* Need a short reg/const, does not have to be a mutable temp. */
  57059. arg1 = duk__ispec_toregconst_raw(comp_ctx, &x->x1, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/);
  57060. arg2 = duk__ispec_toregconst_raw(comp_ctx, &x->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/);
  57061. /* Pick a destination register. If either base value or key
  57062. * happens to be a temp value, reuse it as the destination.
  57063. *
  57064. * XXX: The temp must be a "mutable" one, i.e. such that no
  57065. * other expression is using it anymore. Here this should be
  57066. * the case because the value of a property access expression
  57067. * is neither the base nor the key, but the lookup result.
  57068. */
  57069. if (forced_reg >= 0) {
  57070. dest = forced_reg;
  57071. } else if (DUK__ISREG_TEMP(comp_ctx, arg1)) {
  57072. dest = arg1;
  57073. } else if (DUK__ISREG_TEMP(comp_ctx, arg2)) {
  57074. dest = arg2;
  57075. } else {
  57076. dest = DUK__ALLOCTEMP(comp_ctx);
  57077. }
  57078. duk__emit_a_b_c(comp_ctx,
  57079. DUK_OP_GETPROP | DUK__EMIT_FLAG_BC_REGCONST,
  57080. dest,
  57081. arg1,
  57082. arg2);
  57083. duk__ivalue_regconst(x, dest);
  57084. return;
  57085. }
  57086. case DUK_IVAL_VAR: {
  57087. /* x1 must be a string */
  57088. duk_regconst_t dest;
  57089. duk_regconst_t reg_varbind;
  57090. duk_regconst_t rc_varname;
  57091. DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE);
  57092. duk_dup(thr, x->x1.valstack_idx);
  57093. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  57094. duk__ivalue_regconst(x, reg_varbind);
  57095. } else {
  57096. dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx));
  57097. duk__emit_a_bc(comp_ctx, DUK_OP_GETVAR, dest, rc_varname);
  57098. duk__ivalue_regconst(x, dest);
  57099. }
  57100. return;
  57101. }
  57102. case DUK_IVAL_NONE:
  57103. default: {
  57104. DUK_D(DUK_DPRINT("invalid ivalue type: %ld", (long) x->t));
  57105. break;
  57106. }
  57107. }
  57108. DUK_ERROR_INTERNAL(thr);
  57109. return;
  57110. }
  57111. /* evaluate to plain value, no forced register (temp/bound reg both ok) */
  57112. DUK_LOCAL void duk__ivalue_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57113. duk__ivalue_toplain_raw(comp_ctx, x, -1 /*forced_reg*/);
  57114. }
  57115. /* evaluate to final form (e.g. coerce GETPROP to code), throw away temp */
  57116. DUK_LOCAL void duk__ivalue_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57117. duk_regconst_t temp;
  57118. /* If duk__ivalue_toplain_raw() allocates a temp, forget it and
  57119. * restore next temp state.
  57120. */
  57121. temp = DUK__GETTEMP(comp_ctx);
  57122. duk__ivalue_toplain_raw(comp_ctx, x, -1 /*forced_reg*/);
  57123. DUK__SETTEMP(comp_ctx, temp);
  57124. }
  57125. /* Coerce an duk_ivalue to a register or constant; result register may
  57126. * be a temp or a bound register.
  57127. *
  57128. * The duk_ivalue argument ('x') is converted into a regconst as a
  57129. * side effect.
  57130. */
  57131. DUK_LOCAL
  57132. duk_regconst_t duk__ivalue_toregconst_raw(duk_compiler_ctx *comp_ctx,
  57133. duk_ivalue *x,
  57134. duk_regconst_t forced_reg,
  57135. duk_small_uint_t flags) {
  57136. duk_hthread *thr = comp_ctx->thr;
  57137. duk_regconst_t reg;
  57138. DUK_UNREF(thr);
  57139. DUK_DDD(DUK_DDDPRINT("duk__ivalue_toregconst_raw(): x={t=%ld,op=%ld,x1={%ld:%ld:%!T},x2={%ld:%ld:%!T}}, "
  57140. "forced_reg=%ld, flags 0x%08lx: allow_const=%ld require_temp=%ld require_short=%ld",
  57141. (long) x->t, (long) x->op,
  57142. (long) x->x1.t, (long) x->x1.regconst,
  57143. (duk_tval *) duk_get_tval(thr, x->x1.valstack_idx),
  57144. (long) x->x2.t, (long) x->x2.regconst,
  57145. (duk_tval *) duk_get_tval(thr, x->x2.valstack_idx),
  57146. (long) forced_reg,
  57147. (unsigned long) flags,
  57148. (long) ((flags & DUK__IVAL_FLAG_ALLOW_CONST) ? 1 : 0),
  57149. (long) ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) ? 1 : 0),
  57150. (long) ((flags & DUK__IVAL_FLAG_REQUIRE_SHORT) ? 1 : 0)));
  57151. /* first coerce to a plain value */
  57152. duk__ivalue_toplain_raw(comp_ctx, x, forced_reg);
  57153. DUK_ASSERT(x->t == DUK_IVAL_PLAIN);
  57154. /* then to a register */
  57155. reg = duk__ispec_toregconst_raw(comp_ctx, &x->x1, forced_reg, flags);
  57156. duk__ivalue_regconst(x, reg);
  57157. return reg;
  57158. }
  57159. DUK_LOCAL duk_regconst_t duk__ivalue_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57160. return duk__ivalue_toregconst_raw(comp_ctx, x, -1, 0 /*flags*/);
  57161. }
  57162. #if 0 /* unused */
  57163. DUK_LOCAL duk_regconst_t duk__ivalue_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57164. return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/);
  57165. }
  57166. #endif
  57167. DUK_LOCAL void duk__ivalue_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_int_t forced_reg) {
  57168. DUK_ASSERT(forced_reg >= 0);
  57169. (void) duk__ivalue_toregconst_raw(comp_ctx, x, forced_reg, 0 /*flags*/);
  57170. }
  57171. DUK_LOCAL duk_regconst_t duk__ivalue_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57172. return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  57173. }
  57174. DUK_LOCAL duk_regconst_t duk__ivalue_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x) {
  57175. return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/);
  57176. }
  57177. /* The issues below can be solved with better flags */
  57178. /* XXX: many operations actually want toforcedtemp() -- brand new temp? */
  57179. /* XXX: need a toplain_ignore() which will only coerce a value to a temp
  57180. * register if it might have a side effect. Side-effect free values do not
  57181. * need to be coerced.
  57182. */
  57183. /*
  57184. * Identifier handling
  57185. */
  57186. DUK_LOCAL duk_regconst_t duk__lookup_active_register_binding(duk_compiler_ctx *comp_ctx) {
  57187. duk_hthread *thr = comp_ctx->thr;
  57188. duk_hstring *h_varname;
  57189. duk_regconst_t ret;
  57190. DUK_DDD(DUK_DDDPRINT("resolving identifier reference to '%!T'",
  57191. (duk_tval *) duk_get_tval(thr, -1)));
  57192. /*
  57193. * Special name handling
  57194. */
  57195. h_varname = duk_known_hstring(thr, -1);
  57196. if (h_varname == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr)) {
  57197. DUK_DDD(DUK_DDDPRINT("flagging function as accessing 'arguments'"));
  57198. comp_ctx->curr_func.id_access_arguments = 1;
  57199. }
  57200. /*
  57201. * Inside one or more 'with' statements fall back to slow path always.
  57202. * (See e.g. test-stmt-with.js.)
  57203. */
  57204. if (comp_ctx->curr_func.with_depth > 0) {
  57205. DUK_DDD(DUK_DDDPRINT("identifier lookup inside a 'with' -> fall back to slow path"));
  57206. goto slow_path_own;
  57207. }
  57208. /*
  57209. * Any catch bindings ("catch (e)") also affect identifier binding.
  57210. *
  57211. * Currently, the varmap is modified for the duration of the catch
  57212. * clause to ensure any identifier accesses with the catch variable
  57213. * name will use slow path.
  57214. */
  57215. duk_get_prop(thr, comp_ctx->curr_func.varmap_idx);
  57216. if (duk_is_number(thr, -1)) {
  57217. ret = duk_to_int(thr, -1);
  57218. duk_pop(thr);
  57219. } else {
  57220. duk_pop(thr);
  57221. if (comp_ctx->curr_func.catch_depth > 0 || comp_ctx->curr_func.with_depth > 0) {
  57222. DUK_DDD(DUK_DDDPRINT("slow path access from inside a try-catch or with needs _Varmap"));
  57223. goto slow_path_own;
  57224. } else {
  57225. /* In this case we're doing a variable lookup that doesn't
  57226. * match our own variables, so _Varmap won't be needed at
  57227. * run time.
  57228. */
  57229. DUK_DDD(DUK_DDDPRINT("slow path access outside of try-catch and with, no need for _Varmap"));
  57230. goto slow_path_notown;
  57231. }
  57232. }
  57233. DUK_DDD(DUK_DDDPRINT("identifier lookup -> reg %ld", (long) ret));
  57234. return ret;
  57235. slow_path_notown:
  57236. DUK_DDD(DUK_DDDPRINT("identifier lookup -> slow path, not own variable"));
  57237. comp_ctx->curr_func.id_access_slow = 1;
  57238. return (duk_regconst_t) -1;
  57239. slow_path_own:
  57240. DUK_DDD(DUK_DDDPRINT("identifier lookup -> slow path, may be own variable"));
  57241. comp_ctx->curr_func.id_access_slow = 1;
  57242. comp_ctx->curr_func.id_access_slow_own = 1;
  57243. return (duk_regconst_t) -1;
  57244. }
  57245. /* Lookup an identifier name in the current varmap, indicating whether the
  57246. * identifier is register-bound and if not, allocating a constant for the
  57247. * identifier name. Returns 1 if register-bound, 0 otherwise. Caller can
  57248. * also check (out_reg_varbind >= 0) to check whether or not identifier is
  57249. * register bound. The caller must NOT use out_rc_varname at all unless
  57250. * return code is 0 or out_reg_varbind is < 0; this is becuase out_rc_varname
  57251. * is unsigned and doesn't have a "unused" / none value.
  57252. */
  57253. DUK_LOCAL duk_bool_t duk__lookup_lhs(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname) {
  57254. duk_hthread *thr = comp_ctx->thr;
  57255. duk_regconst_t reg_varbind;
  57256. duk_regconst_t rc_varname;
  57257. /* [ ... varname ] */
  57258. duk_dup_top(thr);
  57259. reg_varbind = duk__lookup_active_register_binding(comp_ctx);
  57260. if (reg_varbind >= 0) {
  57261. *out_reg_varbind = reg_varbind;
  57262. *out_rc_varname = 0; /* duk_regconst_t is unsigned, so use 0 as dummy value (ignored by caller) */
  57263. duk_pop(thr);
  57264. return 1;
  57265. } else {
  57266. rc_varname = duk__getconst(comp_ctx);
  57267. *out_reg_varbind = -1;
  57268. *out_rc_varname = rc_varname;
  57269. return 0;
  57270. }
  57271. }
  57272. /*
  57273. * Label handling
  57274. *
  57275. * Labels are initially added with flags prohibiting both break and continue.
  57276. * When the statement type is finally uncovered (after potentially multiple
  57277. * labels), all the labels are updated to allow/prohibit break and continue.
  57278. */
  57279. DUK_LOCAL void duk__add_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_int_t pc_label, duk_int_t label_id) {
  57280. duk_hthread *thr = comp_ctx->thr;
  57281. duk_size_t n;
  57282. duk_size_t new_size;
  57283. duk_uint8_t *p;
  57284. duk_labelinfo *li_start, *li;
  57285. /* Duplicate (shadowing) labels are not allowed, except for the empty
  57286. * labels (which are used as default labels for switch and iteration
  57287. * statements).
  57288. *
  57289. * We could also allow shadowing of non-empty pending labels without any
  57290. * other issues than breaking the required label shadowing requirements
  57291. * of the E5 specification, see Section 12.12.
  57292. */
  57293. p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos);
  57294. li_start = (duk_labelinfo *) (void *) p;
  57295. li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos));
  57296. n = (duk_size_t) (li - li_start);
  57297. while (li > li_start) {
  57298. li--;
  57299. if (li->h_label == h_label && h_label != DUK_HTHREAD_STRING_EMPTY_STRING(thr)) {
  57300. DUK_ERROR_SYNTAX(thr, DUK_STR_DUPLICATE_LABEL);
  57301. }
  57302. }
  57303. duk_push_hstring(thr, h_label);
  57304. DUK_ASSERT(n <= DUK_UARRIDX_MAX); /* label limits */
  57305. (void) duk_put_prop_index(thr, comp_ctx->curr_func.labelnames_idx, (duk_uarridx_t) n);
  57306. new_size = (n + 1) * sizeof(duk_labelinfo);
  57307. duk_hbuffer_resize(thr, comp_ctx->curr_func.h_labelinfos, new_size);
  57308. /* XXX: slack handling, slow now */
  57309. /* relookup after possible realloc */
  57310. p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos);
  57311. li_start = (duk_labelinfo *) (void *) p;
  57312. DUK_UNREF(li_start); /* silence scan-build warning */
  57313. li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos));
  57314. li--;
  57315. /* Labels can be used for iteration statements but also for other statements,
  57316. * in particular a label can be used for a block statement. All cases of a
  57317. * named label accept a 'break' so that flag is set here. Iteration statements
  57318. * also allow 'continue', so that flag is updated when we figure out the
  57319. * statement type.
  57320. */
  57321. li->flags = DUK_LABEL_FLAG_ALLOW_BREAK;
  57322. li->label_id = label_id;
  57323. li->h_label = h_label;
  57324. li->catch_depth = comp_ctx->curr_func.catch_depth; /* catch depth from current func */
  57325. li->pc_label = pc_label;
  57326. DUK_DDD(DUK_DDDPRINT("registered label: flags=0x%08lx, id=%ld, name=%!O, catch_depth=%ld, pc_label=%ld",
  57327. (unsigned long) li->flags, (long) li->label_id, (duk_heaphdr *) li->h_label,
  57328. (long) li->catch_depth, (long) li->pc_label));
  57329. }
  57330. /* Update all labels with matching label_id. */
  57331. DUK_LOCAL void duk__update_label_flags(duk_compiler_ctx *comp_ctx, duk_int_t label_id, duk_small_uint_t flags) {
  57332. duk_uint8_t *p;
  57333. duk_labelinfo *li_start, *li;
  57334. p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(comp_ctx->thr->heap, comp_ctx->curr_func.h_labelinfos);
  57335. li_start = (duk_labelinfo *) (void *) p;
  57336. li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos));
  57337. /* Match labels starting from latest; once label_id no longer matches, we can
  57338. * safely exit without checking the rest of the labels (only the topmost labels
  57339. * are ever updated).
  57340. */
  57341. while (li > li_start) {
  57342. li--;
  57343. if (li->label_id != label_id) {
  57344. break;
  57345. }
  57346. DUK_DDD(DUK_DDDPRINT("updating (overwriting) label flags for li=%p, label_id=%ld, flags=%ld",
  57347. (void *) li, (long) label_id, (long) flags));
  57348. li->flags = flags;
  57349. }
  57350. }
  57351. /* Lookup active label information. Break/continue distinction is necessary to handle switch
  57352. * statement related labels correctly: a switch will only catch a 'break', not a 'continue'.
  57353. *
  57354. * An explicit label cannot appear multiple times in the active set, but empty labels (unlabelled
  57355. * iteration and switch statements) can. A break will match the closest unlabelled or labelled
  57356. * statement. A continue will match the closest unlabelled or labelled iteration statement. It is
  57357. * a syntax error if a continue matches a labelled switch statement; because an explicit label cannot
  57358. * be duplicated, the continue cannot match any valid label outside the switch.
  57359. *
  57360. * A side effect of these rules is that a LABEL statement related to a switch should never actually
  57361. * catch a continue abrupt completion at run-time. Hence an INVALID opcode can be placed in the
  57362. * continue slot of the switch's LABEL statement.
  57363. */
  57364. /* XXX: awkward, especially the bunch of separate output values -> output struct? */
  57365. DUK_LOCAL void duk__lookup_active_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_bool_t is_break, duk_int_t *out_label_id, duk_int_t *out_label_catch_depth, duk_int_t *out_label_pc, duk_bool_t *out_is_closest) {
  57366. duk_hthread *thr = comp_ctx->thr;
  57367. duk_uint8_t *p;
  57368. duk_labelinfo *li_start, *li_end, *li;
  57369. duk_bool_t match = 0;
  57370. DUK_DDD(DUK_DDDPRINT("looking up active label: label='%!O', is_break=%ld",
  57371. (duk_heaphdr *) h_label, (long) is_break));
  57372. DUK_UNREF(thr);
  57373. p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos);
  57374. li_start = (duk_labelinfo *) (void *) p;
  57375. li_end = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos));
  57376. li = li_end;
  57377. /* Match labels starting from latest label because there can be duplicate empty
  57378. * labels in the label set.
  57379. */
  57380. while (li > li_start) {
  57381. li--;
  57382. if (li->h_label != h_label) {
  57383. DUK_DDD(DUK_DDDPRINT("labelinfo[%ld] ->'%!O' != %!O",
  57384. (long) (li - li_start),
  57385. (duk_heaphdr *) li->h_label,
  57386. (duk_heaphdr *) h_label));
  57387. continue;
  57388. }
  57389. DUK_DDD(DUK_DDDPRINT("labelinfo[%ld] -> '%!O' label name matches (still need to check type)",
  57390. (long) (li - li_start), (duk_heaphdr *) h_label));
  57391. /* currently all labels accept a break, so no explicit check for it now */
  57392. DUK_ASSERT(li->flags & DUK_LABEL_FLAG_ALLOW_BREAK);
  57393. if (is_break) {
  57394. /* break matches always */
  57395. match = 1;
  57396. break;
  57397. } else if (li->flags & DUK_LABEL_FLAG_ALLOW_CONTINUE) {
  57398. /* iteration statements allow continue */
  57399. match = 1;
  57400. break;
  57401. } else {
  57402. /* continue matched this label -- we can only continue if this is the empty
  57403. * label, for which duplication is allowed, and thus there is hope of
  57404. * finding a match deeper in the label stack.
  57405. */
  57406. if (h_label != DUK_HTHREAD_STRING_EMPTY_STRING(thr)) {
  57407. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LABEL);
  57408. } else {
  57409. DUK_DDD(DUK_DDDPRINT("continue matched an empty label which does not "
  57410. "allow a continue -> continue lookup deeper in label stack"));
  57411. }
  57412. }
  57413. }
  57414. /* XXX: match flag is awkward, rework */
  57415. if (!match) {
  57416. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LABEL);
  57417. }
  57418. DUK_DDD(DUK_DDDPRINT("label match: %!O -> label_id %ld, catch_depth=%ld, pc_label=%ld",
  57419. (duk_heaphdr *) h_label, (long) li->label_id,
  57420. (long) li->catch_depth, (long) li->pc_label));
  57421. *out_label_id = li->label_id;
  57422. *out_label_catch_depth = li->catch_depth;
  57423. *out_label_pc = li->pc_label;
  57424. *out_is_closest = (li == li_end - 1);
  57425. }
  57426. DUK_LOCAL void duk__reset_labels_to_length(duk_compiler_ctx *comp_ctx, duk_size_t len) {
  57427. duk_hthread *thr = comp_ctx->thr;
  57428. duk_set_length(thr, comp_ctx->curr_func.labelnames_idx, len);
  57429. duk_hbuffer_resize(thr, comp_ctx->curr_func.h_labelinfos, sizeof(duk_labelinfo) * len);
  57430. }
  57431. /*
  57432. * Expression parsing: duk__expr_nud(), duk__expr_led(), duk__expr_lbp(), and helpers.
  57433. *
  57434. * - duk__expr_nud(): ("null denotation"): process prev_token as a "start" of an expression (e.g. literal)
  57435. * - duk__expr_led(): ("left denotation"): process prev_token in the "middle" of an expression (e.g. operator)
  57436. * - duk__expr_lbp(): ("left-binding power"): return left-binding power of curr_token
  57437. */
  57438. /* object literal key tracking flags */
  57439. #define DUK__OBJ_LIT_KEY_PLAIN (1 << 0) /* key encountered as a plain property */
  57440. #define DUK__OBJ_LIT_KEY_GET (1 << 1) /* key encountered as a getter */
  57441. #define DUK__OBJ_LIT_KEY_SET (1 << 2) /* key encountered as a setter */
  57442. DUK_LOCAL void duk__nud_array_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  57443. duk_hthread *thr = comp_ctx->thr;
  57444. duk_regconst_t reg_obj; /* result reg */
  57445. duk_regconst_t reg_temp; /* temp reg */
  57446. duk_regconst_t temp_start; /* temp reg value for start of loop */
  57447. duk_small_uint_t max_init_values; /* max # of values initialized in one MPUTARR set */
  57448. duk_small_uint_t num_values; /* number of values in current MPUTARR set */
  57449. duk_uarridx_t curr_idx; /* current (next) array index */
  57450. duk_uarridx_t start_idx; /* start array index of current MPUTARR set */
  57451. duk_uarridx_t init_idx; /* last array index explicitly initialized, +1 */
  57452. duk_bool_t require_comma; /* next loop requires a comma */
  57453. #if !defined(DUK_USE_PREFER_SIZE)
  57454. duk_int_t pc_newarr;
  57455. duk_compiler_instr *instr;
  57456. #endif
  57457. /* DUK_TOK_LBRACKET already eaten, current token is right after that */
  57458. DUK_ASSERT(comp_ctx->prev_token.t == DUK_TOK_LBRACKET);
  57459. max_init_values = DUK__MAX_ARRAY_INIT_VALUES; /* XXX: depend on available temps? */
  57460. reg_obj = DUK__ALLOCTEMP(comp_ctx);
  57461. #if !defined(DUK_USE_PREFER_SIZE)
  57462. pc_newarr = duk__get_current_pc(comp_ctx);
  57463. #endif
  57464. duk__emit_bc(comp_ctx, DUK_OP_NEWARR, reg_obj); /* XXX: patch initial size hint afterwards? */
  57465. temp_start = DUK__GETTEMP(comp_ctx);
  57466. /*
  57467. * Emit initializers in sets of maximum max_init_values.
  57468. * Corner cases such as single value initializers do not have
  57469. * special handling now.
  57470. *
  57471. * Elided elements must not be emitted as 'undefined' values,
  57472. * because such values would be enumerable (which is incorrect).
  57473. * Also note that trailing elisions must be reflected in the
  57474. * length of the final array but cause no elements to be actually
  57475. * inserted.
  57476. */
  57477. curr_idx = 0;
  57478. init_idx = 0; /* tracks maximum initialized index + 1 */
  57479. start_idx = 0;
  57480. require_comma = 0;
  57481. for (;;) {
  57482. num_values = 0;
  57483. DUK__SETTEMP(comp_ctx, temp_start);
  57484. if (comp_ctx->curr_token.t == DUK_TOK_RBRACKET) {
  57485. break;
  57486. }
  57487. for (;;) {
  57488. if (comp_ctx->curr_token.t == DUK_TOK_RBRACKET) {
  57489. /* the outer loop will recheck and exit */
  57490. break;
  57491. }
  57492. /* comma check */
  57493. if (require_comma) {
  57494. if (comp_ctx->curr_token.t == DUK_TOK_COMMA) {
  57495. /* comma after a value, expected */
  57496. duk__advance(comp_ctx);
  57497. require_comma = 0;
  57498. continue;
  57499. } else {
  57500. goto syntax_error;
  57501. }
  57502. } else {
  57503. if (comp_ctx->curr_token.t == DUK_TOK_COMMA) {
  57504. /* elision - flush */
  57505. curr_idx++;
  57506. duk__advance(comp_ctx);
  57507. /* if num_values > 0, MPUTARR emitted by outer loop after break */
  57508. break;
  57509. }
  57510. }
  57511. /* else an array initializer element */
  57512. /* initial index */
  57513. if (num_values == 0) {
  57514. start_idx = curr_idx;
  57515. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  57516. duk__emit_load_int32(comp_ctx, reg_temp, (duk_int32_t) start_idx);
  57517. }
  57518. reg_temp = DUK__ALLOCTEMP(comp_ctx); /* alloc temp just in case, to update max temp */
  57519. DUK__SETTEMP(comp_ctx, reg_temp);
  57520. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/);
  57521. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  57522. num_values++;
  57523. curr_idx++;
  57524. require_comma = 1;
  57525. if (num_values >= max_init_values) {
  57526. /* MPUTARR emitted by outer loop */
  57527. break;
  57528. }
  57529. }
  57530. if (num_values > 0) {
  57531. /* - A is a source register (it's not a write target, but used
  57532. * to identify the target object) but can be shuffled.
  57533. * - B cannot be shuffled normally because it identifies a range
  57534. * of registers, the emitter has special handling for this
  57535. * (the "no shuffle" flag must not be set).
  57536. * - C is a non-register number and cannot be shuffled, but
  57537. * never needs to be.
  57538. */
  57539. duk__emit_a_b_c(comp_ctx,
  57540. DUK_OP_MPUTARR |
  57541. DUK__EMIT_FLAG_NO_SHUFFLE_C |
  57542. DUK__EMIT_FLAG_A_IS_SOURCE,
  57543. reg_obj,
  57544. temp_start,
  57545. (duk_regconst_t) (num_values + 1));
  57546. init_idx = start_idx + num_values;
  57547. /* num_values and temp_start reset at top of outer loop */
  57548. }
  57549. }
  57550. /* Update initil size for NEWARR, doesn't need to be exact and is
  57551. * capped at A field limit.
  57552. */
  57553. #if !defined(DUK_USE_PREFER_SIZE)
  57554. instr = duk__get_instr_ptr(comp_ctx, pc_newarr);
  57555. instr->ins |= DUK_ENC_OP_A(0, curr_idx > DUK_BC_A_MAX ? DUK_BC_A_MAX : curr_idx);
  57556. #endif
  57557. DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RBRACKET);
  57558. duk__advance(comp_ctx);
  57559. DUK_DDD(DUK_DDDPRINT("array literal done, curridx=%ld, initidx=%ld",
  57560. (long) curr_idx, (long) init_idx));
  57561. /* trailing elisions? */
  57562. if (curr_idx > init_idx) {
  57563. /* yes, must set array length explicitly */
  57564. DUK_DDD(DUK_DDDPRINT("array literal has trailing elisions which affect its length"));
  57565. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  57566. duk__emit_load_int32(comp_ctx, reg_temp, (duk_int_t) curr_idx);
  57567. duk__emit_a_bc(comp_ctx,
  57568. DUK_OP_SETALEN | DUK__EMIT_FLAG_A_IS_SOURCE,
  57569. reg_obj,
  57570. reg_temp);
  57571. }
  57572. DUK__SETTEMP(comp_ctx, temp_start);
  57573. duk__ivalue_regconst(res, reg_obj);
  57574. return;
  57575. syntax_error:
  57576. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_ARRAY_LITERAL);
  57577. }
  57578. typedef struct {
  57579. duk_regconst_t reg_obj;
  57580. duk_regconst_t temp_start;
  57581. duk_small_uint_t num_pairs;
  57582. duk_small_uint_t num_total_pairs;
  57583. } duk__objlit_state;
  57584. DUK_LOCAL void duk__objlit_flush_keys(duk_compiler_ctx *comp_ctx, duk__objlit_state *st) {
  57585. if (st->num_pairs > 0) {
  57586. /* - A is a source register (it's not a write target, but used
  57587. * to identify the target object) but can be shuffled.
  57588. * - B cannot be shuffled normally because it identifies a range
  57589. * of registers, the emitter has special handling for this
  57590. * (the "no shuffle" flag must not be set).
  57591. * - C is a non-register number and cannot be shuffled, but
  57592. * never needs to be.
  57593. */
  57594. DUK_ASSERT(st->num_pairs > 0);
  57595. duk__emit_a_b_c(comp_ctx,
  57596. DUK_OP_MPUTOBJ |
  57597. DUK__EMIT_FLAG_NO_SHUFFLE_C |
  57598. DUK__EMIT_FLAG_A_IS_SOURCE,
  57599. st->reg_obj,
  57600. st->temp_start,
  57601. (duk_regconst_t) (st->num_pairs * 2));
  57602. st->num_total_pairs += st->num_pairs;
  57603. st->num_pairs = 0;
  57604. }
  57605. DUK__SETTEMP(comp_ctx, st->temp_start);
  57606. }
  57607. DUK_LOCAL duk_bool_t duk__objlit_load_key(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_token *tok, duk_regconst_t reg_temp) {
  57608. if (tok->t_nores == DUK_TOK_IDENTIFIER || tok->t_nores == DUK_TOK_STRING) {
  57609. /* same handling for identifiers and strings */
  57610. DUK_ASSERT(tok->str1 != NULL);
  57611. duk_push_hstring(comp_ctx->thr, tok->str1);
  57612. } else if (tok->t == DUK_TOK_NUMBER) {
  57613. /* numbers can be loaded as numbers and coerced on the fly */
  57614. duk_push_number(comp_ctx->thr, tok->num);
  57615. } else {
  57616. return 1; /* error */
  57617. }
  57618. duk__ivalue_plain_fromstack(comp_ctx, res);
  57619. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  57620. duk__ivalue_toforcedreg(comp_ctx, res, reg_temp);
  57621. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  57622. return 0;
  57623. }
  57624. DUK_LOCAL void duk__nud_object_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  57625. duk_hthread *thr = comp_ctx->thr;
  57626. duk__objlit_state st;
  57627. duk_regconst_t reg_temp; /* temp reg */
  57628. duk_small_uint_t max_init_pairs; /* max # of key-value pairs initialized in one MPUTOBJ set */
  57629. duk_bool_t first; /* first value: comma must not precede the value */
  57630. duk_bool_t is_set, is_get; /* temps */
  57631. #if !defined(DUK_USE_PREFER_SIZE)
  57632. duk_int_t pc_newobj;
  57633. duk_compiler_instr *instr;
  57634. #endif
  57635. DUK_ASSERT(comp_ctx->prev_token.t == DUK_TOK_LCURLY);
  57636. max_init_pairs = DUK__MAX_OBJECT_INIT_PAIRS; /* XXX: depend on available temps? */
  57637. st.reg_obj = DUK__ALLOCTEMP(comp_ctx); /* target object */
  57638. st.temp_start = DUK__GETTEMP(comp_ctx); /* start of MPUTOBJ argument list */
  57639. st.num_pairs = 0; /* number of key/value pairs emitted for current MPUTOBJ set */
  57640. st.num_total_pairs = 0; /* number of key/value pairs emitted overall */
  57641. #if !defined(DUK_USE_PREFER_SIZE)
  57642. pc_newobj = duk__get_current_pc(comp_ctx);
  57643. #endif
  57644. duk__emit_bc(comp_ctx, DUK_OP_NEWOBJ, st.reg_obj);
  57645. /*
  57646. * Emit initializers in sets of maximum max_init_pairs keys.
  57647. * Setter/getter is handled separately and terminates the
  57648. * current set of initializer values. Corner cases such as
  57649. * single value initializers do not have special handling now.
  57650. */
  57651. first = 1;
  57652. for (;;) {
  57653. /*
  57654. * ES5 and ES2015+ provide a lot of different PropertyDefinition
  57655. * formats, see http://www.ecma-international.org/ecma-262/6.0/#sec-object-initializer.
  57656. *
  57657. * PropertyName can be IdentifierName (includes reserved words), a string
  57658. * literal, or a number literal. Note that IdentifierName allows 'get' and
  57659. * 'set' too, so we need to look ahead to the next token to distinguish:
  57660. *
  57661. * { get : 1 }
  57662. *
  57663. * and
  57664. *
  57665. * { get foo() { return 1 } }
  57666. * { get get() { return 1 } } // 'get' as getter propertyname
  57667. *
  57668. * Finally, a trailing comma is allowed.
  57669. *
  57670. * Key name is coerced to string at compile time (and ends up as a
  57671. * a string constant) even for numeric keys (e.g. "{1:'foo'}").
  57672. * These could be emitted using e.g. LDINT, but that seems hardly
  57673. * worth the effort and would increase code size.
  57674. */
  57675. DUK_DDD(DUK_DDDPRINT("object literal loop, curr_token->t = %ld",
  57676. (long) comp_ctx->curr_token.t));
  57677. if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) {
  57678. break;
  57679. }
  57680. if (first) {
  57681. first = 0;
  57682. } else {
  57683. if (comp_ctx->curr_token.t != DUK_TOK_COMMA) {
  57684. goto syntax_error;
  57685. }
  57686. duk__advance(comp_ctx);
  57687. if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) {
  57688. /* trailing comma followed by rcurly */
  57689. break;
  57690. }
  57691. }
  57692. /* Advance to get one step of lookup. */
  57693. duk__advance(comp_ctx);
  57694. /* Flush current MPUTOBJ if enough many pairs gathered. */
  57695. if (st.num_pairs >= max_init_pairs) {
  57696. duk__objlit_flush_keys(comp_ctx, &st);
  57697. DUK_ASSERT(st.num_pairs == 0);
  57698. }
  57699. /* Reset temp register state and reserve reg_temp and
  57700. * reg_temp + 1 for handling the current property.
  57701. */
  57702. DUK__SETTEMP(comp_ctx, st.temp_start + 2 * (duk_regconst_t) st.num_pairs);
  57703. reg_temp = DUK__ALLOCTEMPS(comp_ctx, 2);
  57704. /* NOTE: "get" and "set" are not officially ReservedWords and the lexer
  57705. * currently treats them always like ordinary identifiers (DUK_TOK_GET
  57706. * and DUK_TOK_SET are unused). They need to be detected based on the
  57707. * identifier string content.
  57708. */
  57709. is_get = (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER &&
  57710. comp_ctx->prev_token.str1 == DUK_HTHREAD_STRING_GET(thr));
  57711. is_set = (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER &&
  57712. comp_ctx->prev_token.str1 == DUK_HTHREAD_STRING_SET(thr));
  57713. if ((is_get || is_set) && comp_ctx->curr_token.t != DUK_TOK_COLON) {
  57714. /* getter/setter */
  57715. duk_int_t fnum;
  57716. duk__objlit_flush_keys(comp_ctx, &st);
  57717. DUK_ASSERT(DUK__GETTEMP(comp_ctx) == st.temp_start); /* 2 regs are guaranteed to be allocated w.r.t. temp_max */
  57718. reg_temp = DUK__ALLOCTEMPS(comp_ctx, 2);
  57719. if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->curr_token, reg_temp) != 0) {
  57720. goto syntax_error;
  57721. }
  57722. /* curr_token = get/set name */
  57723. fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_GETSET);
  57724. duk__emit_a_bc(comp_ctx,
  57725. DUK_OP_CLOSURE,
  57726. st.temp_start + 1,
  57727. (duk_regconst_t) fnum);
  57728. /* Slot C is used in a non-standard fashion (range of regs),
  57729. * emitter code has special handling for it (must not set the
  57730. * "no shuffle" flag).
  57731. */
  57732. duk__emit_a_bc(comp_ctx,
  57733. (is_get ? DUK_OP_INITGET : DUK_OP_INITSET) | DUK__EMIT_FLAG_A_IS_SOURCE,
  57734. st.reg_obj,
  57735. st.temp_start); /* temp_start+0 = key, temp_start+1 = closure */
  57736. DUK_ASSERT(st.num_pairs == 0); /* temp state is reset on next loop */
  57737. #if defined(DUK_USE_ES6)
  57738. } else if (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER &&
  57739. (comp_ctx->curr_token.t == DUK_TOK_COMMA || comp_ctx->curr_token.t == DUK_TOK_RCURLY)) {
  57740. duk_bool_t load_rc;
  57741. load_rc = duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp);
  57742. DUK_UNREF(load_rc);
  57743. DUK_ASSERT(load_rc == 0); /* always succeeds because token is identifier */
  57744. duk__ivalue_var_hstring(comp_ctx, res, comp_ctx->prev_token.str1);
  57745. DUK_ASSERT(DUK__GETTEMP(comp_ctx) == reg_temp + 1);
  57746. duk__ivalue_toforcedreg(comp_ctx, res, reg_temp + 1);
  57747. st.num_pairs++;
  57748. } else if ((comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER ||
  57749. comp_ctx->prev_token.t == DUK_TOK_STRING ||
  57750. comp_ctx->prev_token.t == DUK_TOK_NUMBER) &&
  57751. comp_ctx->curr_token.t == DUK_TOK_LPAREN) {
  57752. duk_int_t fnum;
  57753. /* Parsing-wise there's a small hickup here: the token parsing
  57754. * state is one step too advanced for the function parse helper
  57755. * compared to other cases. The current solution is an extra
  57756. * flag to indicate whether function parsing should use the
  57757. * current or the previous token to starting parsing from.
  57758. */
  57759. if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp) != 0) {
  57760. goto syntax_error;
  57761. }
  57762. fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_USE_PREVTOKEN | DUK__FUNC_FLAG_METDEF);
  57763. duk__emit_a_bc(comp_ctx,
  57764. DUK_OP_CLOSURE,
  57765. reg_temp + 1,
  57766. (duk_regconst_t) fnum);
  57767. st.num_pairs++;
  57768. #endif /* DUK_USE_ES6 */
  57769. } else {
  57770. #if defined(DUK_USE_ES6)
  57771. if (comp_ctx->prev_token.t == DUK_TOK_LBRACKET) {
  57772. /* ES2015 computed property name. Executor ToPropertyKey()
  57773. * coerces the key at runtime.
  57774. */
  57775. DUK__SETTEMP(comp_ctx, reg_temp);
  57776. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_FOR_EXPR, reg_temp);
  57777. duk__advance_expect(comp_ctx, DUK_TOK_RBRACKET);
  57778. /* XXX: If next token is '(' we're dealing with
  57779. * the method shorthand with a computed name,
  57780. * e.g. { [Symbol.for('foo')](a,b) {} }. This
  57781. * form is not yet supported and causes a
  57782. * SyntaxError on the DUK_TOK_COLON check below.
  57783. */
  57784. }
  57785. else
  57786. #endif /* DUK_USE_ES6 */
  57787. {
  57788. if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp) != 0) {
  57789. goto syntax_error;
  57790. }
  57791. }
  57792. duk__advance_expect(comp_ctx, DUK_TOK_COLON);
  57793. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  57794. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp + 1 /*forced_reg*/);
  57795. st.num_pairs++;
  57796. }
  57797. } /* property loop */
  57798. /* Flush remaining properties. */
  57799. duk__objlit_flush_keys(comp_ctx, &st);
  57800. DUK_ASSERT(st.num_pairs == 0);
  57801. DUK_ASSERT(DUK__GETTEMP(comp_ctx) == st.temp_start);
  57802. /* Update initial size for NEWOBJ. The init size doesn't need to be
  57803. * exact as the purpose is just to avoid object resizes in common
  57804. * cases. The size is capped to field A limit, and will be too high
  57805. * if the object literal contains duplicate keys (this is harmless but
  57806. * increases memory traffic if the object is compacted later on).
  57807. */
  57808. #if !defined(DUK_USE_PREFER_SIZE)
  57809. instr = duk__get_instr_ptr(comp_ctx, pc_newobj);
  57810. instr->ins |= DUK_ENC_OP_A(0, st.num_total_pairs > DUK_BC_A_MAX ? DUK_BC_A_MAX : st.num_total_pairs);
  57811. #endif
  57812. DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RCURLY);
  57813. duk__advance(comp_ctx);
  57814. duk__ivalue_regconst(res, st.reg_obj);
  57815. return;
  57816. syntax_error:
  57817. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_OBJECT_LITERAL);
  57818. }
  57819. /* Parse argument list. Arguments are written to temps starting from
  57820. * "next temp". Returns number of arguments parsed. Expects left paren
  57821. * to be already eaten, and eats the right paren before returning.
  57822. */
  57823. DUK_LOCAL duk_int_t duk__parse_arguments(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  57824. duk_int_t nargs = 0;
  57825. duk_regconst_t reg_temp;
  57826. /* Note: expect that caller has already eaten the left paren */
  57827. DUK_DDD(DUK_DDDPRINT("start parsing arguments, prev_token.t=%ld, curr_token.t=%ld",
  57828. (long) comp_ctx->prev_token.t, (long) comp_ctx->curr_token.t));
  57829. for (;;) {
  57830. if (comp_ctx->curr_token.t == DUK_TOK_RPAREN) {
  57831. break;
  57832. }
  57833. if (nargs > 0) {
  57834. duk__advance_expect(comp_ctx, DUK_TOK_COMMA);
  57835. }
  57836. /* We want the argument expression value to go to "next temp"
  57837. * without additional moves. That should almost always be the
  57838. * case, but we double check after expression parsing.
  57839. *
  57840. * This is not the cleanest possible approach.
  57841. */
  57842. reg_temp = DUK__ALLOCTEMP(comp_ctx); /* bump up "allocated" reg count, just in case */
  57843. DUK__SETTEMP(comp_ctx, reg_temp);
  57844. /* binding power must be high enough to NOT allow comma expressions directly */
  57845. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp); /* always allow 'in', coerce to 'tr' just in case */
  57846. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  57847. nargs++;
  57848. DUK_DDD(DUK_DDDPRINT("argument #%ld written into reg %ld", (long) nargs, (long) reg_temp));
  57849. }
  57850. /* eat the right paren */
  57851. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  57852. DUK_DDD(DUK_DDDPRINT("end parsing arguments"));
  57853. return nargs;
  57854. }
  57855. DUK_LOCAL duk_bool_t duk__expr_is_empty(duk_compiler_ctx *comp_ctx) {
  57856. /* empty expressions can be detected conveniently with nud/led counts */
  57857. return (comp_ctx->curr_func.nud_count == 0) &&
  57858. (comp_ctx->curr_func.led_count == 0);
  57859. }
  57860. DUK_LOCAL void duk__expr_nud(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  57861. duk_hthread *thr = comp_ctx->thr;
  57862. duk_token *tk;
  57863. duk_regconst_t temp_at_entry;
  57864. duk_small_uint_t tok;
  57865. duk_uint32_t args; /* temp variable to pass constants and flags to shared code */
  57866. /*
  57867. * ctx->prev_token token to process with duk__expr_nud()
  57868. * ctx->curr_token updated by caller
  57869. *
  57870. * Note: the token in the switch below has already been eaten.
  57871. */
  57872. temp_at_entry = DUK__GETTEMP(comp_ctx);
  57873. comp_ctx->curr_func.nud_count++;
  57874. tk = &comp_ctx->prev_token;
  57875. tok = tk->t;
  57876. res->t = DUK_IVAL_NONE;
  57877. DUK_DDD(DUK_DDDPRINT("duk__expr_nud(), prev_token.t=%ld, allow_in=%ld, paren_level=%ld",
  57878. (long) tk->t, (long) comp_ctx->curr_func.allow_in, (long) comp_ctx->curr_func.paren_level));
  57879. switch (tok) {
  57880. /* PRIMARY EXPRESSIONS */
  57881. case DUK_TOK_THIS: {
  57882. duk_regconst_t reg_temp;
  57883. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  57884. duk__emit_bc(comp_ctx,
  57885. DUK_OP_LDTHIS,
  57886. reg_temp);
  57887. duk__ivalue_regconst(res, reg_temp);
  57888. return;
  57889. }
  57890. case DUK_TOK_IDENTIFIER: {
  57891. duk__ivalue_var_hstring(comp_ctx, res, tk->str1);
  57892. return;
  57893. }
  57894. case DUK_TOK_NULL: {
  57895. duk_push_null(thr);
  57896. goto plain_value;
  57897. }
  57898. case DUK_TOK_TRUE: {
  57899. duk_push_true(thr);
  57900. goto plain_value;
  57901. }
  57902. case DUK_TOK_FALSE: {
  57903. duk_push_false(thr);
  57904. goto plain_value;
  57905. }
  57906. case DUK_TOK_NUMBER: {
  57907. duk_push_number(thr, tk->num);
  57908. goto plain_value;
  57909. }
  57910. case DUK_TOK_STRING: {
  57911. DUK_ASSERT(tk->str1 != NULL);
  57912. duk_push_hstring(thr, tk->str1);
  57913. goto plain_value;
  57914. }
  57915. case DUK_TOK_REGEXP: {
  57916. #if defined(DUK_USE_REGEXP_SUPPORT)
  57917. duk_regconst_t reg_temp;
  57918. duk_regconst_t rc_re_bytecode; /* const */
  57919. duk_regconst_t rc_re_source; /* const */
  57920. DUK_ASSERT(tk->str1 != NULL);
  57921. DUK_ASSERT(tk->str2 != NULL);
  57922. DUK_DDD(DUK_DDDPRINT("emitting regexp op, str1=%!O, str2=%!O",
  57923. (duk_heaphdr *) tk->str1,
  57924. (duk_heaphdr *) tk->str2));
  57925. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  57926. duk_push_hstring(thr, tk->str1);
  57927. duk_push_hstring(thr, tk->str2);
  57928. /* [ ... pattern flags ] */
  57929. duk_regexp_compile(thr);
  57930. /* [ ... escaped_source bytecode ] */
  57931. rc_re_bytecode = duk__getconst(comp_ctx);
  57932. rc_re_source = duk__getconst(comp_ctx);
  57933. duk__emit_a_b_c(comp_ctx,
  57934. DUK_OP_REGEXP | DUK__EMIT_FLAG_BC_REGCONST,
  57935. reg_temp /*a*/,
  57936. rc_re_bytecode /*b*/,
  57937. rc_re_source /*c*/);
  57938. duk__ivalue_regconst(res, reg_temp);
  57939. return;
  57940. #else /* DUK_USE_REGEXP_SUPPORT */
  57941. goto syntax_error;
  57942. #endif /* DUK_USE_REGEXP_SUPPORT */
  57943. }
  57944. case DUK_TOK_LBRACKET: {
  57945. DUK_DDD(DUK_DDDPRINT("parsing array literal"));
  57946. duk__nud_array_literal(comp_ctx, res);
  57947. return;
  57948. }
  57949. case DUK_TOK_LCURLY: {
  57950. DUK_DDD(DUK_DDDPRINT("parsing object literal"));
  57951. duk__nud_object_literal(comp_ctx, res);
  57952. return;
  57953. }
  57954. case DUK_TOK_LPAREN: {
  57955. duk_bool_t prev_allow_in;
  57956. comp_ctx->curr_func.paren_level++;
  57957. prev_allow_in = comp_ctx->curr_func.allow_in;
  57958. comp_ctx->curr_func.allow_in = 1; /* reset 'allow_in' for parenthesized expression */
  57959. duk__expr(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression, terminates at a ')' */
  57960. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  57961. comp_ctx->curr_func.allow_in = prev_allow_in;
  57962. comp_ctx->curr_func.paren_level--;
  57963. return;
  57964. }
  57965. /* MEMBER/NEW/CALL EXPRESSIONS */
  57966. case DUK_TOK_NEW: {
  57967. /*
  57968. * Parsing an expression starting with 'new' is tricky because
  57969. * there are multiple possible productions deriving from
  57970. * LeftHandSideExpression which begin with 'new'.
  57971. *
  57972. * We currently resort to one-token lookahead to distinguish the
  57973. * cases. Hopefully this is correct. The binding power must be
  57974. * such that parsing ends at an LPAREN (CallExpression) but not at
  57975. * a PERIOD or LBRACKET (MemberExpression).
  57976. *
  57977. * See doc/compiler.rst for discussion on the parsing approach,
  57978. * and testcases/test-dev-new.js for a bunch of documented tests.
  57979. */
  57980. duk_regconst_t reg_target;
  57981. duk_int_t nargs;
  57982. DUK_DDD(DUK_DDDPRINT("begin parsing new expression"));
  57983. reg_target = DUK__ALLOCTEMPS(comp_ctx, 2);
  57984. #if defined(DUK_USE_ES6)
  57985. if (comp_ctx->curr_token.t == DUK_TOK_PERIOD) {
  57986. /* new.target */
  57987. DUK_DDD(DUK_DDDPRINT("new.target"));
  57988. duk__advance(comp_ctx);
  57989. if (comp_ctx->curr_token.t_nores != DUK_TOK_IDENTIFIER ||
  57990. !duk_hstring_equals_ascii_cstring(comp_ctx->curr_token.str1, "target")) {
  57991. goto syntax_error_newtarget;
  57992. }
  57993. if (comp_ctx->curr_func.is_global) {
  57994. goto syntax_error_newtarget;
  57995. }
  57996. duk__advance(comp_ctx);
  57997. duk__emit_bc(comp_ctx,
  57998. DUK_OP_NEWTARGET,
  57999. reg_target);
  58000. duk__ivalue_regconst(res, reg_target);
  58001. return;
  58002. }
  58003. #endif /* DUK_USE_ES6 */
  58004. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_CALL /*rbp_flags*/, reg_target /*forced_reg*/);
  58005. duk__emit_bc(comp_ctx, DUK_OP_NEWOBJ, reg_target + 1); /* default instance */
  58006. DUK__SETTEMP(comp_ctx, reg_target + 2);
  58007. /* XXX: 'new obj.noSuch()' doesn't use GETPROPC now which
  58008. * makes the error message worse than for obj.noSuch().
  58009. */
  58010. if (comp_ctx->curr_token.t == DUK_TOK_LPAREN) {
  58011. /* 'new' MemberExpression Arguments */
  58012. DUK_DDD(DUK_DDDPRINT("new expression has argument list"));
  58013. duk__advance(comp_ctx);
  58014. nargs = duk__parse_arguments(comp_ctx, res); /* parse args starting from "next temp", reg_target + 1 */
  58015. /* right paren eaten */
  58016. } else {
  58017. /* 'new' MemberExpression */
  58018. DUK_DDD(DUK_DDDPRINT("new expression has no argument list"));
  58019. nargs = 0;
  58020. }
  58021. duk__emit_a_bc(comp_ctx,
  58022. DUK_OP_CALL0 | DUK_BC_CALL_FLAG_CONSTRUCT,
  58023. nargs /*num_args*/,
  58024. reg_target /*target*/);
  58025. DUK_DDD(DUK_DDDPRINT("end parsing new expression"));
  58026. duk__ivalue_regconst(res, reg_target);
  58027. return;
  58028. }
  58029. /* FUNCTION EXPRESSIONS */
  58030. case DUK_TOK_FUNCTION: {
  58031. /* Function expression. Note that any statement beginning with 'function'
  58032. * is handled by the statement parser as a function declaration, or a
  58033. * non-standard function expression/statement (or a SyntaxError). We only
  58034. * handle actual function expressions (occurring inside an expression) here.
  58035. *
  58036. * O(depth^2) parse count for inner functions is handled by recording a
  58037. * lexer offset on the first compilation pass, so that the function can
  58038. * be efficiently skipped on the second pass. This is encapsulated into
  58039. * duk__parse_func_like_fnum().
  58040. */
  58041. duk_regconst_t reg_temp;
  58042. duk_int_t fnum;
  58043. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58044. /* curr_token follows 'function' */
  58045. fnum = duk__parse_func_like_fnum(comp_ctx, 0 /*flags*/);
  58046. DUK_DDD(DUK_DDDPRINT("parsed inner function -> fnum %ld", (long) fnum));
  58047. duk__emit_a_bc(comp_ctx,
  58048. DUK_OP_CLOSURE,
  58049. reg_temp /*a*/,
  58050. (duk_regconst_t) fnum /*bc*/);
  58051. duk__ivalue_regconst(res, reg_temp);
  58052. return;
  58053. }
  58054. /* UNARY EXPRESSIONS */
  58055. case DUK_TOK_DELETE: {
  58056. /* Delete semantics are a bit tricky. The description in E5 specification
  58057. * is kind of confusing, because it distinguishes between resolvability of
  58058. * a reference (which is only known at runtime) seemingly at compile time
  58059. * (= SyntaxError throwing).
  58060. */
  58061. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58062. if (res->t == DUK_IVAL_VAR) {
  58063. /* not allowed in strict mode, regardless of whether resolves;
  58064. * in non-strict mode DELVAR handles both non-resolving and
  58065. * resolving cases (the specification description is a bit confusing).
  58066. */
  58067. duk_regconst_t reg_temp;
  58068. duk_regconst_t reg_varbind;
  58069. duk_regconst_t rc_varname;
  58070. if (comp_ctx->curr_func.is_strict) {
  58071. DUK_ERROR_SYNTAX(thr, DUK_STR_CANNOT_DELETE_IDENTIFIER);
  58072. }
  58073. DUK__SETTEMP(comp_ctx, temp_at_entry);
  58074. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58075. duk_dup(thr, res->x1.valstack_idx);
  58076. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  58077. /* register bound variables are non-configurable -> always false */
  58078. duk__emit_bc(comp_ctx,
  58079. DUK_OP_LDFALSE,
  58080. reg_temp);
  58081. } else {
  58082. duk_dup(thr, res->x1.valstack_idx);
  58083. rc_varname = duk__getconst(comp_ctx);
  58084. duk__emit_a_bc(comp_ctx,
  58085. DUK_OP_DELVAR,
  58086. reg_temp,
  58087. rc_varname);
  58088. }
  58089. duk__ivalue_regconst(res, reg_temp);
  58090. } else if (res->t == DUK_IVAL_PROP) {
  58091. duk_regconst_t reg_temp;
  58092. duk_regconst_t reg_obj;
  58093. duk_regconst_t rc_key;
  58094. DUK__SETTEMP(comp_ctx, temp_at_entry);
  58095. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58096. reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */
  58097. rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  58098. duk__emit_a_b_c(comp_ctx,
  58099. DUK_OP_DELPROP | DUK__EMIT_FLAG_BC_REGCONST,
  58100. reg_temp,
  58101. reg_obj,
  58102. rc_key);
  58103. duk__ivalue_regconst(res, reg_temp);
  58104. } else {
  58105. /* non-Reference deletion is always 'true', even in strict mode */
  58106. duk_push_true(thr);
  58107. goto plain_value;
  58108. }
  58109. return;
  58110. }
  58111. case DUK_TOK_VOID: {
  58112. duk__expr_toplain_ignore(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58113. duk_push_undefined(thr);
  58114. goto plain_value;
  58115. }
  58116. case DUK_TOK_TYPEOF: {
  58117. /* 'typeof' must handle unresolvable references without throwing
  58118. * a ReferenceError (E5 Section 11.4.3). Register mapped values
  58119. * will never be unresolvable so special handling is only required
  58120. * when an identifier is a "slow path" one.
  58121. */
  58122. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58123. if (res->t == DUK_IVAL_VAR) {
  58124. duk_regconst_t reg_varbind;
  58125. duk_regconst_t rc_varname;
  58126. duk_regconst_t reg_temp;
  58127. duk_dup(thr, res->x1.valstack_idx);
  58128. if (!duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  58129. DUK_DDD(DUK_DDDPRINT("typeof for an identifier name which could not be resolved "
  58130. "at compile time, need to use special run-time handling"));
  58131. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58132. duk__emit_a_bc(comp_ctx,
  58133. DUK_OP_TYPEOFID,
  58134. reg_temp,
  58135. rc_varname);
  58136. duk__ivalue_regconst(res, reg_temp);
  58137. return;
  58138. }
  58139. }
  58140. args = DUK_OP_TYPEOF;
  58141. goto unary;
  58142. }
  58143. case DUK_TOK_INCREMENT: {
  58144. args = (DUK_OP_PREINCP << 8) + DUK_OP_PREINCR;
  58145. goto preincdec;
  58146. }
  58147. case DUK_TOK_DECREMENT: {
  58148. args = (DUK_OP_PREDECP << 8) + DUK_OP_PREDECR;
  58149. goto preincdec;
  58150. }
  58151. case DUK_TOK_ADD: {
  58152. /* unary plus */
  58153. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58154. if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE &&
  58155. duk_is_number(thr, res->x1.valstack_idx)) {
  58156. /* unary plus of a number is identity */
  58157. return;
  58158. }
  58159. args = DUK_OP_UNP;
  58160. goto unary;
  58161. }
  58162. case DUK_TOK_SUB: {
  58163. /* unary minus */
  58164. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58165. if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE &&
  58166. duk_is_number(thr, res->x1.valstack_idx)) {
  58167. /* this optimization is important to handle negative literals
  58168. * (which are not directly provided by the lexical grammar)
  58169. */
  58170. duk_tval *tv_num;
  58171. duk_double_union du;
  58172. tv_num = DUK_GET_TVAL_POSIDX(thr, res->x1.valstack_idx);
  58173. DUK_ASSERT(tv_num != NULL);
  58174. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_num));
  58175. du.d = DUK_TVAL_GET_NUMBER(tv_num);
  58176. du.d = -du.d;
  58177. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du);
  58178. DUK_TVAL_SET_NUMBER(tv_num, du.d);
  58179. return;
  58180. }
  58181. args = DUK_OP_UNM;
  58182. goto unary;
  58183. }
  58184. case DUK_TOK_BNOT: {
  58185. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58186. args = DUK_OP_BNOT;
  58187. goto unary;
  58188. }
  58189. case DUK_TOK_LNOT: {
  58190. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58191. if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE) {
  58192. /* Very minimal inlining to handle common idioms '!0' and '!1',
  58193. * and also boolean arguments like '!false' and '!true'.
  58194. */
  58195. duk_tval *tv_val;
  58196. tv_val = DUK_GET_TVAL_POSIDX(thr, res->x1.valstack_idx);
  58197. DUK_ASSERT(tv_val != NULL);
  58198. if (DUK_TVAL_IS_NUMBER(tv_val)) {
  58199. duk_double_t d;
  58200. d = DUK_TVAL_GET_NUMBER(tv_val);
  58201. if (d == 0.0) {
  58202. /* Matches both +0 and -0 on purpose. */
  58203. DUK_DDD(DUK_DDDPRINT("inlined lnot: !0 -> true"));
  58204. DUK_TVAL_SET_BOOLEAN_TRUE(tv_val);
  58205. return;
  58206. } else if (d == 1.0) {
  58207. DUK_DDD(DUK_DDDPRINT("inlined lnot: !1 -> false"));
  58208. DUK_TVAL_SET_BOOLEAN_FALSE(tv_val);
  58209. return;
  58210. }
  58211. } else if (DUK_TVAL_IS_BOOLEAN(tv_val)) {
  58212. duk_small_uint_t v;
  58213. v = DUK_TVAL_GET_BOOLEAN(tv_val);
  58214. DUK_DDD(DUK_DDDPRINT("inlined lnot boolean: %ld", (long) v));
  58215. DUK_ASSERT(v == 0 || v == 1);
  58216. DUK_TVAL_SET_BOOLEAN(tv_val, v ^ 0x01);
  58217. return;
  58218. }
  58219. }
  58220. args = DUK_OP_LNOT;
  58221. goto unary;
  58222. }
  58223. } /* end switch */
  58224. DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR);
  58225. return;
  58226. unary:
  58227. {
  58228. /* Unary opcodes use just the 'BC' register source because it
  58229. * matches current shuffle limits, and maps cleanly to 16 high
  58230. * bits of the opcode.
  58231. */
  58232. duk_regconst_t reg_src, reg_res;
  58233. reg_src = duk__ivalue_toregconst_raw(comp_ctx, res, -1 /*forced_reg*/, 0 /*flags*/);
  58234. if (DUK__ISREG_TEMP(comp_ctx, reg_src)) {
  58235. reg_res = reg_src;
  58236. } else {
  58237. reg_res = DUK__ALLOCTEMP(comp_ctx);
  58238. }
  58239. duk__emit_a_bc(comp_ctx,
  58240. args,
  58241. reg_res,
  58242. reg_src);
  58243. duk__ivalue_regconst(res, reg_res);
  58244. return;
  58245. }
  58246. preincdec:
  58247. {
  58248. /* preincrement and predecrement */
  58249. duk_regconst_t reg_res;
  58250. duk_small_uint_t args_op1 = args & 0xff; /* DUK_OP_PREINCR/DUK_OP_PREDECR */
  58251. duk_small_uint_t args_op2 = args >> 8; /* DUK_OP_PREINCP_RR/DUK_OP_PREDECP_RR */
  58252. /* Specific assumptions for opcode numbering. */
  58253. DUK_ASSERT(DUK_OP_PREINCR + 4 == DUK_OP_PREINCV);
  58254. DUK_ASSERT(DUK_OP_PREDECR + 4 == DUK_OP_PREDECV);
  58255. reg_res = DUK__ALLOCTEMP(comp_ctx);
  58256. duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */
  58257. if (res->t == DUK_IVAL_VAR) {
  58258. duk_hstring *h_varname;
  58259. duk_regconst_t reg_varbind;
  58260. duk_regconst_t rc_varname;
  58261. h_varname = duk_known_hstring(thr, res->x1.valstack_idx);
  58262. if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) {
  58263. goto syntax_error;
  58264. }
  58265. duk_dup(thr, res->x1.valstack_idx);
  58266. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  58267. duk__emit_a_bc(comp_ctx,
  58268. args_op1, /* e.g. DUK_OP_PREINCR */
  58269. reg_res,
  58270. reg_varbind);
  58271. } else {
  58272. duk__emit_a_bc(comp_ctx,
  58273. args_op1 + 4, /* e.g. DUK_OP_PREINCV */
  58274. reg_res,
  58275. rc_varname);
  58276. }
  58277. DUK_DDD(DUK_DDDPRINT("preincdec to '%!O' -> reg_varbind=%ld, rc_varname=%ld",
  58278. (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname));
  58279. } else if (res->t == DUK_IVAL_PROP) {
  58280. duk_regconst_t reg_obj; /* allocate to reg only (not const) */
  58281. duk_regconst_t rc_key;
  58282. reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */
  58283. rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  58284. duk__emit_a_b_c(comp_ctx,
  58285. args_op2 | DUK__EMIT_FLAG_BC_REGCONST, /* e.g. DUK_OP_PREINCP */
  58286. reg_res,
  58287. reg_obj,
  58288. rc_key);
  58289. } else {
  58290. /* Technically return value is not needed because INVLHS will
  58291. * unconditially throw a ReferenceError. Coercion is necessary
  58292. * for proper semantics (consider ToNumber() called for an object).
  58293. * Use DUK_OP_UNP with a dummy register to get ToNumber().
  58294. */
  58295. duk__ivalue_toforcedreg(comp_ctx, res, reg_res);
  58296. duk__emit_bc(comp_ctx,
  58297. DUK_OP_UNP,
  58298. reg_res); /* for side effects, result ignored */
  58299. duk__emit_op_only(comp_ctx,
  58300. DUK_OP_INVLHS);
  58301. }
  58302. DUK__SETTEMP(comp_ctx, reg_res + 1);
  58303. duk__ivalue_regconst(res, reg_res);
  58304. return;
  58305. }
  58306. plain_value:
  58307. {
  58308. /* Stack top contains plain value */
  58309. duk__ivalue_plain_fromstack(comp_ctx, res);
  58310. return;
  58311. }
  58312. #if defined(DUK_USE_ES6)
  58313. syntax_error_newtarget:
  58314. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_NEWTARGET);
  58315. #endif
  58316. syntax_error:
  58317. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_EXPRESSION);
  58318. }
  58319. /* XXX: add flag to indicate whether caller cares about return value; this
  58320. * affects e.g. handling of assignment expressions. This change needs API
  58321. * changes elsewhere too.
  58322. */
  58323. DUK_LOCAL void duk__expr_led(duk_compiler_ctx *comp_ctx, duk_ivalue *left, duk_ivalue *res) {
  58324. duk_hthread *thr = comp_ctx->thr;
  58325. duk_token *tk;
  58326. duk_small_uint_t tok;
  58327. duk_uint32_t args; /* temp variable to pass constants and flags to shared code */
  58328. /*
  58329. * ctx->prev_token token to process with duk__expr_led()
  58330. * ctx->curr_token updated by caller
  58331. */
  58332. comp_ctx->curr_func.led_count++;
  58333. /* The token in the switch has already been eaten here */
  58334. tk = &comp_ctx->prev_token;
  58335. tok = tk->t;
  58336. DUK_DDD(DUK_DDDPRINT("duk__expr_led(), prev_token.t=%ld, allow_in=%ld, paren_level=%ld",
  58337. (long) tk->t, (long) comp_ctx->curr_func.allow_in, (long) comp_ctx->curr_func.paren_level));
  58338. /* XXX: default priority for infix operators is duk__expr_lbp(tok) -> get it here? */
  58339. switch (tok) {
  58340. /* PRIMARY EXPRESSIONS */
  58341. case DUK_TOK_PERIOD: {
  58342. /* Property access expressions are critical for correct LHS ordering,
  58343. * see comments in duk__expr()!
  58344. *
  58345. * A conservative approach would be to use duk__ivalue_totempconst()
  58346. * for 'left'. However, allowing a reg-bound variable seems safe here
  58347. * and is nice because "foo.bar" is a common expression. If the ivalue
  58348. * is used in an expression a GETPROP will occur before any changes to
  58349. * the base value can occur. If the ivalue is used as an assignment
  58350. * LHS, the assignment code will ensure the base value is safe from
  58351. * RHS mutation.
  58352. */
  58353. /* XXX: This now coerces an identifier into a GETVAR to a temp, which
  58354. * causes an extra LDREG in call setup. It's sufficient to coerce to a
  58355. * unary ivalue?
  58356. */
  58357. duk__ivalue_toplain(comp_ctx, left);
  58358. /* NB: must accept reserved words as property name */
  58359. if (comp_ctx->curr_token.t_nores != DUK_TOK_IDENTIFIER) {
  58360. DUK_ERROR_SYNTAX(thr, DUK_STR_EXPECTED_IDENTIFIER);
  58361. }
  58362. res->t = DUK_IVAL_PROP;
  58363. duk__copy_ispec(comp_ctx, &left->x1, &res->x1); /* left.x1 -> res.x1 */
  58364. DUK_ASSERT(comp_ctx->curr_token.str1 != NULL);
  58365. duk_push_hstring(thr, comp_ctx->curr_token.str1);
  58366. duk_replace(thr, res->x2.valstack_idx);
  58367. res->x2.t = DUK_ISPEC_VALUE;
  58368. /* special RegExp literal handling after IdentifierName */
  58369. comp_ctx->curr_func.reject_regexp_in_adv = 1;
  58370. duk__advance(comp_ctx);
  58371. return;
  58372. }
  58373. case DUK_TOK_LBRACKET: {
  58374. /* Property access expressions are critical for correct LHS ordering,
  58375. * see comments in duk__expr()!
  58376. */
  58377. /* XXX: optimize temp reg use */
  58378. /* XXX: similar coercion issue as in DUK_TOK_PERIOD */
  58379. /* XXX: coerce to regs? it might be better for enumeration use, where the
  58380. * same PROP ivalue is used multiple times. Or perhaps coerce PROP further
  58381. * there?
  58382. */
  58383. /* XXX: for simple cases like x['y'] an unnecessary LDREG is
  58384. * emitted for the base value; could avoid it if we knew that
  58385. * the key expression is safe (e.g. just a single literal).
  58386. */
  58387. /* The 'left' value must not be a register bound variable
  58388. * because it may be mutated during the rest of the expression
  58389. * and E5.1 Section 11.2.1 specifies the order of evaluation
  58390. * so that the base value is evaluated first.
  58391. * See: test-bug-nested-prop-mutate.js.
  58392. */
  58393. duk__ivalue_totempconst(comp_ctx, left);
  58394. duk__expr_toplain(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression, ']' terminates */
  58395. duk__advance_expect(comp_ctx, DUK_TOK_RBRACKET);
  58396. res->t = DUK_IVAL_PROP;
  58397. duk__copy_ispec(comp_ctx, &res->x1, &res->x2); /* res.x1 -> res.x2 */
  58398. duk__copy_ispec(comp_ctx, &left->x1, &res->x1); /* left.x1 -> res.x1 */
  58399. return;
  58400. }
  58401. case DUK_TOK_LPAREN: {
  58402. /* function call */
  58403. duk_regconst_t reg_cs = DUK__ALLOCTEMPS(comp_ctx, 2);
  58404. duk_int_t nargs;
  58405. duk_small_uint_t call_op = DUK_OP_CALL0;
  58406. /* XXX: attempt to get the call result to "next temp" whenever
  58407. * possible to avoid unnecessary register shuffles.
  58408. */
  58409. /*
  58410. * Setup call: target and 'this' binding. Three cases:
  58411. *
  58412. * 1. Identifier base (e.g. "foo()")
  58413. * 2. Property base (e.g. "foo.bar()")
  58414. * 3. Register base (e.g. "foo()()"; i.e. when a return value is a function)
  58415. */
  58416. if (left->t == DUK_IVAL_VAR) {
  58417. duk_hstring *h_varname;
  58418. duk_regconst_t reg_varbind;
  58419. duk_regconst_t rc_varname;
  58420. DUK_DDD(DUK_DDDPRINT("function call with identifier base"));
  58421. h_varname = duk_known_hstring(thr, left->x1.valstack_idx);
  58422. if (h_varname == DUK_HTHREAD_STRING_EVAL(thr)) {
  58423. /* Potential direct eval call detected, flag the CALL
  58424. * so that a run-time "direct eval" check is made and
  58425. * special behavior may be triggered. Note that this
  58426. * does not prevent 'eval' from being register bound.
  58427. */
  58428. DUK_DDD(DUK_DDDPRINT("function call with identifier 'eval' "
  58429. "-> using EVALCALL, marking function "
  58430. "as may_direct_eval"));
  58431. call_op |= DUK_BC_CALL_FLAG_CALLED_AS_EVAL;
  58432. comp_ctx->curr_func.may_direct_eval = 1;
  58433. }
  58434. duk_dup(thr, left->x1.valstack_idx);
  58435. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  58436. duk__emit_a_bc(comp_ctx,
  58437. DUK_OP_CSREG | DUK__EMIT_FLAG_A_IS_SOURCE,
  58438. reg_varbind,
  58439. reg_cs + 0);
  58440. } else {
  58441. /* XXX: expand target register or constant field to
  58442. * reduce shuffling.
  58443. */
  58444. DUK_ASSERT(DUK__ISCONST(rc_varname));
  58445. duk__emit_a_b(comp_ctx,
  58446. DUK_OP_CSVAR | DUK__EMIT_FLAG_BC_REGCONST,
  58447. reg_cs + 0,
  58448. rc_varname);
  58449. }
  58450. } else if (left->t == DUK_IVAL_PROP) {
  58451. /* Call through a property lookup, E5 Section 11.2.3, step 6.a.i,
  58452. * E5 Section 10.4.3. There used to be a separate CSPROP opcode
  58453. * but a typical call setup took 3 opcodes (e.g. LDREG, LDCONST,
  58454. * CSPROP) and the same can be achieved with ordinary loads.
  58455. */
  58456. #if defined(DUK_USE_VERBOSE_ERRORS)
  58457. duk_regconst_t reg_key;
  58458. #endif
  58459. DUK_DDD(DUK_DDDPRINT("function call with property base"));
  58460. /* XXX: For Math.sin() this generates: LDCONST + LDREG +
  58461. * GETPROPC + call. The LDREG is unnecessary because LDCONST
  58462. * could be loaded directly into reg_cs + 1. This doesn't
  58463. * happen now because a variable cannot be in left->x1 of a
  58464. * DUK_IVAL_PROP. We could notice that left->x1 is a temp
  58465. * and reuse, but it would still be in the wrong position
  58466. * (reg_cs + 0 rather than reg_cs + 1).
  58467. */
  58468. duk__ispec_toforcedreg(comp_ctx, &left->x1, reg_cs + 1); /* base */
  58469. #if defined(DUK_USE_VERBOSE_ERRORS)
  58470. reg_key = duk__ispec_toregconst_raw(comp_ctx, &left->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  58471. duk__emit_a_b_c(comp_ctx,
  58472. DUK_OP_GETPROPC | DUK__EMIT_FLAG_BC_REGCONST,
  58473. reg_cs + 0,
  58474. reg_cs + 1,
  58475. reg_key);
  58476. #else
  58477. duk__ivalue_toforcedreg(comp_ctx, left, reg_cs + 0); /* base[key] */
  58478. #endif
  58479. } else {
  58480. DUK_DDD(DUK_DDDPRINT("function call with register base"));
  58481. duk__ivalue_toforcedreg(comp_ctx, left, reg_cs + 0);
  58482. #if 0
  58483. duk__emit_a_bc(comp_ctx,
  58484. DUK_OP_CSREG | DUK__EMIT_FLAG_A_IS_SOURCE,
  58485. reg_cs + 0,
  58486. reg_cs + 0); /* in-place setup */
  58487. #endif
  58488. /* Because of in-place setup, REGCS is equivalent to
  58489. * just this LDUNDEF.
  58490. */
  58491. duk__emit_bc(comp_ctx, DUK_OP_LDUNDEF, reg_cs + 1);
  58492. }
  58493. DUK__SETTEMP(comp_ctx, reg_cs + 2);
  58494. nargs = duk__parse_arguments(comp_ctx, res); /* parse args starting from "next temp" */
  58495. /* Tailcalls are handled by back-patching the already emitted opcode
  58496. * later in return statement parser.
  58497. */
  58498. duk__emit_a_bc(comp_ctx,
  58499. call_op,
  58500. (duk_regconst_t) nargs /*numargs*/,
  58501. reg_cs /*basereg*/);
  58502. DUK__SETTEMP(comp_ctx, reg_cs + 1); /* result in csreg */
  58503. duk__ivalue_regconst(res, reg_cs);
  58504. return;
  58505. }
  58506. /* POSTFIX EXPRESSION */
  58507. case DUK_TOK_INCREMENT: {
  58508. args = (DUK_OP_POSTINCP_RR << 16) + (DUK_OP_POSTINCR << 8) + 0;
  58509. goto postincdec;
  58510. }
  58511. case DUK_TOK_DECREMENT: {
  58512. args = (DUK_OP_POSTDECP_RR << 16) + (DUK_OP_POSTDECR << 8) + 0;
  58513. goto postincdec;
  58514. }
  58515. /* EXPONENTIATION EXPRESSION */
  58516. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  58517. case DUK_TOK_EXP: {
  58518. args = (DUK_OP_EXP << 8) + DUK__BP_EXPONENTIATION - 1; /* UnaryExpression */
  58519. goto binary;
  58520. }
  58521. #endif
  58522. /* MULTIPLICATIVE EXPRESSION */
  58523. case DUK_TOK_MUL: {
  58524. args = (DUK_OP_MUL << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */
  58525. goto binary;
  58526. }
  58527. case DUK_TOK_DIV: {
  58528. args = (DUK_OP_DIV << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */
  58529. goto binary;
  58530. }
  58531. case DUK_TOK_MOD: {
  58532. args = (DUK_OP_MOD << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */
  58533. goto binary;
  58534. }
  58535. /* ADDITIVE EXPRESSION */
  58536. case DUK_TOK_ADD: {
  58537. args = (DUK_OP_ADD << 8) + DUK__BP_ADDITIVE; /* MultiplicativeExpression */
  58538. goto binary;
  58539. }
  58540. case DUK_TOK_SUB: {
  58541. args = (DUK_OP_SUB << 8) + DUK__BP_ADDITIVE; /* MultiplicativeExpression */
  58542. goto binary;
  58543. }
  58544. /* SHIFT EXPRESSION */
  58545. case DUK_TOK_ALSHIFT: {
  58546. /* << */
  58547. args = (DUK_OP_BASL << 8) + DUK__BP_SHIFT;
  58548. goto binary;
  58549. }
  58550. case DUK_TOK_ARSHIFT: {
  58551. /* >> */
  58552. args = (DUK_OP_BASR << 8) + DUK__BP_SHIFT;
  58553. goto binary;
  58554. }
  58555. case DUK_TOK_RSHIFT: {
  58556. /* >>> */
  58557. args = (DUK_OP_BLSR << 8) + DUK__BP_SHIFT;
  58558. goto binary;
  58559. }
  58560. /* RELATIONAL EXPRESSION */
  58561. case DUK_TOK_LT: {
  58562. /* < */
  58563. args = (DUK_OP_LT << 8) + DUK__BP_RELATIONAL;
  58564. goto binary;
  58565. }
  58566. case DUK_TOK_GT: {
  58567. args = (DUK_OP_GT << 8) + DUK__BP_RELATIONAL;
  58568. goto binary;
  58569. }
  58570. case DUK_TOK_LE: {
  58571. args = (DUK_OP_LE << 8) + DUK__BP_RELATIONAL;
  58572. goto binary;
  58573. }
  58574. case DUK_TOK_GE: {
  58575. args = (DUK_OP_GE << 8) + DUK__BP_RELATIONAL;
  58576. goto binary;
  58577. }
  58578. case DUK_TOK_INSTANCEOF: {
  58579. args = (DUK_OP_INSTOF << 8) + DUK__BP_RELATIONAL;
  58580. goto binary;
  58581. }
  58582. case DUK_TOK_IN: {
  58583. args = (DUK_OP_IN << 8) + DUK__BP_RELATIONAL;
  58584. goto binary;
  58585. }
  58586. /* EQUALITY EXPRESSION */
  58587. case DUK_TOK_EQ: {
  58588. args = (DUK_OP_EQ << 8) + DUK__BP_EQUALITY;
  58589. goto binary;
  58590. }
  58591. case DUK_TOK_NEQ: {
  58592. args = (DUK_OP_NEQ << 8) + DUK__BP_EQUALITY;
  58593. goto binary;
  58594. }
  58595. case DUK_TOK_SEQ: {
  58596. args = (DUK_OP_SEQ << 8) + DUK__BP_EQUALITY;
  58597. goto binary;
  58598. }
  58599. case DUK_TOK_SNEQ: {
  58600. args = (DUK_OP_SNEQ << 8) + DUK__BP_EQUALITY;
  58601. goto binary;
  58602. }
  58603. /* BITWISE EXPRESSIONS */
  58604. case DUK_TOK_BAND: {
  58605. args = (DUK_OP_BAND << 8) + DUK__BP_BAND;
  58606. goto binary;
  58607. }
  58608. case DUK_TOK_BXOR: {
  58609. args = (DUK_OP_BXOR << 8) + DUK__BP_BXOR;
  58610. goto binary;
  58611. }
  58612. case DUK_TOK_BOR: {
  58613. args = (DUK_OP_BOR << 8) + DUK__BP_BOR;
  58614. goto binary;
  58615. }
  58616. /* LOGICAL EXPRESSIONS */
  58617. case DUK_TOK_LAND: {
  58618. /* syntactically left-associative but parsed as right-associative */
  58619. args = (1 << 8) + DUK__BP_LAND - 1;
  58620. goto binary_logical;
  58621. }
  58622. case DUK_TOK_LOR: {
  58623. /* syntactically left-associative but parsed as right-associative */
  58624. args = (0 << 8) + DUK__BP_LOR - 1;
  58625. goto binary_logical;
  58626. }
  58627. /* CONDITIONAL EXPRESSION */
  58628. case DUK_TOK_QUESTION: {
  58629. /* XXX: common reg allocation need is to reuse a sub-expression's temp reg,
  58630. * but only if it really is a temp. Nothing fancy here now.
  58631. */
  58632. duk_regconst_t reg_temp;
  58633. duk_int_t pc_jump1;
  58634. duk_int_t pc_jump2;
  58635. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58636. duk__ivalue_toforcedreg(comp_ctx, left, reg_temp);
  58637. duk__emit_if_true_skip(comp_ctx, reg_temp);
  58638. pc_jump1 = duk__emit_jump_empty(comp_ctx); /* jump to false */
  58639. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/); /* AssignmentExpression */
  58640. duk__advance_expect(comp_ctx, DUK_TOK_COLON);
  58641. pc_jump2 = duk__emit_jump_empty(comp_ctx); /* jump to end */
  58642. duk__patch_jump_here(comp_ctx, pc_jump1);
  58643. duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/); /* AssignmentExpression */
  58644. duk__patch_jump_here(comp_ctx, pc_jump2);
  58645. DUK__SETTEMP(comp_ctx, reg_temp + 1);
  58646. duk__ivalue_regconst(res, reg_temp);
  58647. return;
  58648. }
  58649. /* ASSIGNMENT EXPRESSION */
  58650. case DUK_TOK_EQUALSIGN: {
  58651. /*
  58652. * Assignments are right associative, allows e.g.
  58653. * a = 5;
  58654. * a += b = 9; // same as a += (b = 9)
  58655. * -> expression value 14, a = 14, b = 9
  58656. *
  58657. * Right associativiness is reflected in the BP for recursion,
  58658. * "-1" ensures assignment operations are allowed.
  58659. *
  58660. * XXX: just use DUK__BP_COMMA (i.e. no need for 2-step bp levels)?
  58661. */
  58662. args = (DUK_OP_NONE << 8) + DUK__BP_ASSIGNMENT - 1; /* DUK_OP_NONE marks a 'plain' assignment */
  58663. goto assign;
  58664. }
  58665. case DUK_TOK_ADD_EQ: {
  58666. /* right associative */
  58667. args = (DUK_OP_ADD << 8) + DUK__BP_ASSIGNMENT - 1;
  58668. goto assign;
  58669. }
  58670. case DUK_TOK_SUB_EQ: {
  58671. /* right associative */
  58672. args = (DUK_OP_SUB << 8) + DUK__BP_ASSIGNMENT - 1;
  58673. goto assign;
  58674. }
  58675. case DUK_TOK_MUL_EQ: {
  58676. /* right associative */
  58677. args = (DUK_OP_MUL << 8) + DUK__BP_ASSIGNMENT - 1;
  58678. goto assign;
  58679. }
  58680. case DUK_TOK_DIV_EQ: {
  58681. /* right associative */
  58682. args = (DUK_OP_DIV << 8) + DUK__BP_ASSIGNMENT - 1;
  58683. goto assign;
  58684. }
  58685. case DUK_TOK_MOD_EQ: {
  58686. /* right associative */
  58687. args = (DUK_OP_MOD << 8) + DUK__BP_ASSIGNMENT - 1;
  58688. goto assign;
  58689. }
  58690. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  58691. case DUK_TOK_EXP_EQ: {
  58692. /* right associative */
  58693. args = (DUK_OP_EXP << 8) + DUK__BP_ASSIGNMENT - 1;
  58694. goto assign;
  58695. }
  58696. #endif
  58697. case DUK_TOK_ALSHIFT_EQ: {
  58698. /* right associative */
  58699. args = (DUK_OP_BASL << 8) + DUK__BP_ASSIGNMENT - 1;
  58700. goto assign;
  58701. }
  58702. case DUK_TOK_ARSHIFT_EQ: {
  58703. /* right associative */
  58704. args = (DUK_OP_BASR << 8) + DUK__BP_ASSIGNMENT - 1;
  58705. goto assign;
  58706. }
  58707. case DUK_TOK_RSHIFT_EQ: {
  58708. /* right associative */
  58709. args = (DUK_OP_BLSR << 8) + DUK__BP_ASSIGNMENT - 1;
  58710. goto assign;
  58711. }
  58712. case DUK_TOK_BAND_EQ: {
  58713. /* right associative */
  58714. args = (DUK_OP_BAND << 8) + DUK__BP_ASSIGNMENT - 1;
  58715. goto assign;
  58716. }
  58717. case DUK_TOK_BOR_EQ: {
  58718. /* right associative */
  58719. args = (DUK_OP_BOR << 8) + DUK__BP_ASSIGNMENT - 1;
  58720. goto assign;
  58721. }
  58722. case DUK_TOK_BXOR_EQ: {
  58723. /* right associative */
  58724. args = (DUK_OP_BXOR << 8) + DUK__BP_ASSIGNMENT - 1;
  58725. goto assign;
  58726. }
  58727. /* COMMA */
  58728. case DUK_TOK_COMMA: {
  58729. /* right associative */
  58730. duk__ivalue_toplain_ignore(comp_ctx, left); /* need side effects, not value */
  58731. duk__expr_toplain(comp_ctx, res, DUK__BP_COMMA - 1 /*rbp_flags*/);
  58732. /* return 'res' (of right part) as our result */
  58733. return;
  58734. }
  58735. default: {
  58736. break;
  58737. }
  58738. }
  58739. DUK_D(DUK_DPRINT("parse error: unexpected token: %ld", (long) tok));
  58740. DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR);
  58741. return;
  58742. #if 0
  58743. /* XXX: shared handling for 'duk__expr_lhs'? */
  58744. if (comp_ctx->curr_func.paren_level == 0 && XXX) {
  58745. comp_ctx->curr_func.duk__expr_lhs = 0;
  58746. }
  58747. #endif
  58748. binary:
  58749. /*
  58750. * Shared handling of binary operations
  58751. *
  58752. * args = (opcode << 8) + rbp
  58753. */
  58754. {
  58755. duk__ivalue_toplain(comp_ctx, left);
  58756. duk__expr_toplain(comp_ctx, res, args & 0xff /*rbp_flags*/);
  58757. /* combine left->x1 and res->x1 (right->x1, really) -> (left->x1 OP res->x1) */
  58758. DUK_ASSERT(left->t == DUK_IVAL_PLAIN);
  58759. DUK_ASSERT(res->t == DUK_IVAL_PLAIN);
  58760. res->t = DUK_IVAL_ARITH;
  58761. res->op = (args >> 8) & 0xff;
  58762. res->x2.t = res->x1.t;
  58763. res->x2.regconst = res->x1.regconst;
  58764. duk_copy(thr, res->x1.valstack_idx, res->x2.valstack_idx);
  58765. res->x1.t = left->x1.t;
  58766. res->x1.regconst = left->x1.regconst;
  58767. duk_copy(thr, left->x1.valstack_idx, res->x1.valstack_idx);
  58768. DUK_DDD(DUK_DDDPRINT("binary op, res: t=%ld, x1.t=%ld, x1.regconst=0x%08lx, x2.t=%ld, x2.regconst=0x%08lx",
  58769. (long) res->t, (long) res->x1.t, (unsigned long) res->x1.regconst, (long) res->x2.t, (unsigned long) res->x2.regconst));
  58770. return;
  58771. }
  58772. binary_logical:
  58773. /*
  58774. * Shared handling for logical AND and logical OR.
  58775. *
  58776. * args = (truthval << 8) + rbp
  58777. *
  58778. * Truthval determines when to skip right-hand-side.
  58779. * For logical AND truthval=1, for logical OR truthval=0.
  58780. *
  58781. * See doc/compiler.rst for discussion on compiling logical
  58782. * AND and OR expressions. The approach here is very simplistic,
  58783. * generating extra jumps and multiple evaluations of truth values,
  58784. * but generates code on-the-fly with only local back-patching.
  58785. *
  58786. * Both logical AND and OR are syntactically left-associated.
  58787. * However, logical ANDs are compiled as right associative
  58788. * expressions, i.e. "A && B && C" as "A && (B && C)", to allow
  58789. * skip jumps to skip over the entire tail. Similarly for logical OR.
  58790. */
  58791. {
  58792. duk_regconst_t reg_temp;
  58793. duk_int_t pc_jump;
  58794. duk_small_uint_t args_truthval = args >> 8;
  58795. duk_small_uint_t args_rbp = args & 0xff;
  58796. /* XXX: unoptimal use of temps, resetting */
  58797. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58798. duk__ivalue_toforcedreg(comp_ctx, left, reg_temp);
  58799. DUK_ASSERT(DUK__ISREG(reg_temp));
  58800. duk__emit_bc(comp_ctx,
  58801. (args_truthval ? DUK_OP_IFTRUE_R : DUK_OP_IFFALSE_R),
  58802. reg_temp); /* skip jump conditionally */
  58803. pc_jump = duk__emit_jump_empty(comp_ctx);
  58804. duk__expr_toforcedreg(comp_ctx, res, args_rbp /*rbp_flags*/, reg_temp /*forced_reg*/);
  58805. duk__patch_jump_here(comp_ctx, pc_jump);
  58806. duk__ivalue_regconst(res, reg_temp);
  58807. return;
  58808. }
  58809. assign:
  58810. /*
  58811. * Shared assignment expression handling
  58812. *
  58813. * args = (opcode << 8) + rbp
  58814. *
  58815. * If 'opcode' is DUK_OP_NONE, plain assignment without arithmetic.
  58816. * Syntactically valid left-hand-side forms which are not accepted as
  58817. * left-hand-side values (e.g. as in "f() = 1") must NOT cause a
  58818. * SyntaxError, but rather a run-time ReferenceError.
  58819. *
  58820. * When evaluating X <op>= Y, the LHS (X) is conceptually evaluated
  58821. * to a temporary first. The RHS is then evaluated. Finally, the
  58822. * <op> is applied to the initial value of RHS (not the value after
  58823. * RHS evaluation), and written to X. Doing so concretely generates
  58824. * inefficient code so we'd like to avoid the temporary when possible.
  58825. * See: https://github.com/svaarala/duktape/pull/992.
  58826. *
  58827. * The expression value (final LHS value, written to RHS) is
  58828. * conceptually copied into a fresh temporary so that it won't
  58829. * change even if the LHS/RHS values change in outer expressions.
  58830. * For example, it'd be generally incorrect for the expression value
  58831. * to be the RHS register binding, unless there's a guarantee that it
  58832. * won't change during further expression evaluation. Using the
  58833. * temporary concretely produces inefficient bytecode, so we try to
  58834. * avoid the extra temporary for some known-to-be-safe cases.
  58835. * Currently the only safe case we detect is a "top level assignment",
  58836. * for example "x = y + z;", where the assignment expression value is
  58837. * ignored.
  58838. * See: test-dev-assign-expr.js and test-bug-assign-mutate-gh381.js.
  58839. */
  58840. {
  58841. duk_small_uint_t args_op = args >> 8;
  58842. duk_small_uint_t args_rbp = args & 0xff;
  58843. duk_bool_t toplevel_assign;
  58844. /* XXX: here we need to know if 'left' is left-hand-side compatible.
  58845. * That information is no longer available from current expr parsing
  58846. * state; it would need to be carried into the 'left' ivalue or by
  58847. * some other means.
  58848. */
  58849. /* A top-level assignment is e.g. "x = y;". For these it's safe
  58850. * to use the RHS as-is as the expression value, even if the RHS
  58851. * is a reg-bound identifier. The RHS ('res') is right associative
  58852. * so it has consumed all other assignment level operations; the
  58853. * only relevant lower binding power construct is comma operator
  58854. * which will ignore the expression value provided here. Usually
  58855. * the top level assignment expression value is ignored, but it
  58856. * is relevant for e.g. eval code.
  58857. */
  58858. toplevel_assign = (comp_ctx->curr_func.nud_count == 1 && /* one token before */
  58859. comp_ctx->curr_func.led_count == 1); /* one operator (= assign) */
  58860. DUK_DDD(DUK_DDDPRINT("assignment: nud_count=%ld, led_count=%ld, toplevel_assign=%ld",
  58861. (long) comp_ctx->curr_func.nud_count,
  58862. (long) comp_ctx->curr_func.led_count,
  58863. (long) toplevel_assign));
  58864. if (left->t == DUK_IVAL_VAR) {
  58865. duk_hstring *h_varname;
  58866. duk_regconst_t reg_varbind;
  58867. duk_regconst_t rc_varname;
  58868. DUK_ASSERT(left->x1.t == DUK_ISPEC_VALUE); /* LHS is already side effect free */
  58869. h_varname = duk_known_hstring(thr, left->x1.valstack_idx);
  58870. if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) {
  58871. /* E5 Section 11.13.1 (and others for other assignments), step 4. */
  58872. goto syntax_error_lvalue;
  58873. }
  58874. duk_dup(thr, left->x1.valstack_idx);
  58875. (void) duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname);
  58876. if (args_op == DUK_OP_NONE) {
  58877. duk__expr(comp_ctx, res, args_rbp /*rbp_flags*/);
  58878. if (toplevel_assign) {
  58879. /* Any 'res' will do. */
  58880. DUK_DDD(DUK_DDDPRINT("plain assignment, toplevel assign, use as is"));
  58881. } else {
  58882. /* 'res' must be a plain ivalue, and not register-bound variable. */
  58883. DUK_DDD(DUK_DDDPRINT("plain assignment, not toplevel assign, ensure not a reg-bound identifier"));
  58884. if (res->t != DUK_IVAL_PLAIN || (res->x1.t == DUK_ISPEC_REGCONST &&
  58885. DUK__ISREG_NOTTEMP(comp_ctx, res->x1.regconst))) {
  58886. duk__ivalue_totempconst(comp_ctx, res);
  58887. }
  58888. }
  58889. } else {
  58890. /* For X <op>= Y we need to evaluate the pre-op
  58891. * value of X before evaluating the RHS: the RHS
  58892. * can change X, but when we do <op> we must use
  58893. * the pre-op value.
  58894. */
  58895. duk_regconst_t reg_temp;
  58896. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58897. if (reg_varbind >= 0) {
  58898. duk_regconst_t reg_res;
  58899. duk_regconst_t reg_src;
  58900. duk_int_t pc_temp_load;
  58901. duk_int_t pc_before_rhs;
  58902. duk_int_t pc_after_rhs;
  58903. if (toplevel_assign) {
  58904. /* 'reg_varbind' is the operation result and can also
  58905. * become the expression value for top level assignments
  58906. * such as: "var x; x += y;".
  58907. */
  58908. DUK_DD(DUK_DDPRINT("<op>= expression is top level, write directly to reg_varbind"));
  58909. reg_res = reg_varbind;
  58910. } else {
  58911. /* Not safe to use 'reg_varbind' as assignment expression
  58912. * value, so go through a temp.
  58913. */
  58914. DUK_DD(DUK_DDPRINT("<op>= expression is not top level, write to reg_temp"));
  58915. reg_res = reg_temp; /* reg_res should be smallest possible */
  58916. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  58917. }
  58918. /* Try to optimize X <op>= Y for reg-bound
  58919. * variables. Detect side-effect free RHS
  58920. * narrowly by seeing whether it emits code.
  58921. * If not, rewind the code emitter and overwrite
  58922. * the unnecessary temp reg load.
  58923. */
  58924. pc_temp_load = duk__get_current_pc(comp_ctx);
  58925. duk__emit_a_bc(comp_ctx,
  58926. DUK_OP_LDREG,
  58927. reg_temp,
  58928. reg_varbind);
  58929. pc_before_rhs = duk__get_current_pc(comp_ctx);
  58930. duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/);
  58931. DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST);
  58932. pc_after_rhs = duk__get_current_pc(comp_ctx);
  58933. DUK_DD(DUK_DDPRINT("pc_temp_load=%ld, pc_before_rhs=%ld, pc_after_rhs=%ld",
  58934. (long) pc_temp_load, (long) pc_before_rhs,
  58935. (long) pc_after_rhs));
  58936. if (pc_after_rhs == pc_before_rhs) {
  58937. /* Note: if the reg_temp load generated shuffling
  58938. * instructions, we may need to rewind more than
  58939. * one instruction, so use explicit PC computation.
  58940. */
  58941. DUK_DD(DUK_DDPRINT("rhs is side effect free, rewind and avoid unnecessary temp for reg-based <op>="));
  58942. DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, (duk_size_t) (pc_temp_load - pc_before_rhs) * sizeof(duk_compiler_instr));
  58943. reg_src = reg_varbind;
  58944. } else {
  58945. DUK_DD(DUK_DDPRINT("rhs evaluation emitted code, not sure if rhs is side effect free; use temp reg for LHS"));
  58946. reg_src = reg_temp;
  58947. }
  58948. duk__emit_a_b_c(comp_ctx,
  58949. args_op | DUK__EMIT_FLAG_BC_REGCONST,
  58950. reg_res,
  58951. reg_src,
  58952. res->x1.regconst);
  58953. res->x1.regconst = reg_res;
  58954. /* Ensure compact use of temps. */
  58955. if (DUK__ISREG_TEMP(comp_ctx, reg_res)) {
  58956. DUK__SETTEMP(comp_ctx, reg_res + 1);
  58957. }
  58958. } else {
  58959. /* When LHS is not register bound, always go through a
  58960. * temporary. No optimization for top level assignment.
  58961. */
  58962. duk__emit_a_bc(comp_ctx,
  58963. DUK_OP_GETVAR,
  58964. reg_temp,
  58965. rc_varname);
  58966. duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/);
  58967. DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST);
  58968. duk__emit_a_b_c(comp_ctx,
  58969. args_op | DUK__EMIT_FLAG_BC_REGCONST,
  58970. reg_temp,
  58971. reg_temp,
  58972. res->x1.regconst);
  58973. res->x1.regconst = reg_temp;
  58974. }
  58975. DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST);
  58976. }
  58977. /* At this point 'res' holds the potential expression value.
  58978. * It can be basically any ivalue here, including a reg-bound
  58979. * identifier (if code above deems it safe) or a unary/binary
  58980. * operation. Operations must be resolved to a side effect free
  58981. * plain value, and the side effects must happen exactly once.
  58982. */
  58983. if (reg_varbind >= 0) {
  58984. if (res->t != DUK_IVAL_PLAIN) {
  58985. /* Resolve 'res' directly into the LHS binding, and use
  58986. * that as the expression value if safe. If not safe,
  58987. * resolve to a temp/const and copy to LHS.
  58988. */
  58989. if (toplevel_assign) {
  58990. duk__ivalue_toforcedreg(comp_ctx, res, (duk_int_t) reg_varbind);
  58991. } else {
  58992. duk__ivalue_totempconst(comp_ctx, res);
  58993. duk__copy_ivalue(comp_ctx, res, left); /* use 'left' as a temp */
  58994. duk__ivalue_toforcedreg(comp_ctx, left, (duk_int_t) reg_varbind);
  58995. }
  58996. } else {
  58997. /* Use 'res' as the expression value (it's side effect
  58998. * free and may be a plain value, a register, or a
  58999. * constant) and write it to the LHS binding too.
  59000. */
  59001. duk__copy_ivalue(comp_ctx, res, left); /* use 'left' as a temp */
  59002. duk__ivalue_toforcedreg(comp_ctx, left, (duk_int_t) reg_varbind);
  59003. }
  59004. } else {
  59005. /* Only a reg fits into 'A' so coerce 'res' into a register
  59006. * for PUTVAR.
  59007. *
  59008. * XXX: here the current A/B/C split is suboptimal: we could
  59009. * just use 9 bits for reg_res (and support constants) and 17
  59010. * instead of 18 bits for the varname const index.
  59011. */
  59012. duk__ivalue_toreg(comp_ctx, res);
  59013. duk__emit_a_bc(comp_ctx,
  59014. DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE,
  59015. res->x1.regconst,
  59016. rc_varname);
  59017. }
  59018. /* 'res' contains expression value */
  59019. } else if (left->t == DUK_IVAL_PROP) {
  59020. /* E5 Section 11.13.1 (and others) step 4 never matches for prop writes -> no check */
  59021. duk_regconst_t reg_obj;
  59022. duk_regconst_t rc_key;
  59023. duk_regconst_t rc_res;
  59024. duk_regconst_t reg_temp;
  59025. /* Property access expressions ('a[b]') are critical to correct
  59026. * LHS evaluation ordering, see test-dev-assign-eval-order*.js.
  59027. * We must make sure that the LHS target slot (base object and
  59028. * key) don't change during RHS evaluation. The only concrete
  59029. * problem is a register reference to a variable-bound register
  59030. * (i.e., non-temp). Require temp regs for both key and base.
  59031. *
  59032. * Don't allow a constant for the object (even for a number
  59033. * etc), as it goes into the 'A' field of the opcode.
  59034. */
  59035. reg_obj = duk__ispec_toregconst_raw(comp_ctx,
  59036. &left->x1,
  59037. -1 /*forced_reg*/,
  59038. DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/);
  59039. rc_key = duk__ispec_toregconst_raw(comp_ctx,
  59040. &left->x2,
  59041. -1 /*forced_reg*/,
  59042. DUK__IVAL_FLAG_REQUIRE_TEMP | DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  59043. /* Evaluate RHS only when LHS is safe. */
  59044. if (args_op == DUK_OP_NONE) {
  59045. duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/);
  59046. DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST);
  59047. rc_res = res->x1.regconst;
  59048. } else {
  59049. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  59050. duk__emit_a_b_c(comp_ctx,
  59051. DUK_OP_GETPROP | DUK__EMIT_FLAG_BC_REGCONST,
  59052. reg_temp,
  59053. reg_obj,
  59054. rc_key);
  59055. duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/);
  59056. DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST);
  59057. duk__emit_a_b_c(comp_ctx,
  59058. args_op | DUK__EMIT_FLAG_BC_REGCONST,
  59059. reg_temp,
  59060. reg_temp,
  59061. res->x1.regconst);
  59062. rc_res = reg_temp;
  59063. }
  59064. duk__emit_a_b_c(comp_ctx,
  59065. DUK_OP_PUTPROP | DUK__EMIT_FLAG_A_IS_SOURCE | DUK__EMIT_FLAG_BC_REGCONST,
  59066. reg_obj,
  59067. rc_key,
  59068. rc_res);
  59069. duk__ivalue_regconst(res, rc_res);
  59070. } else {
  59071. /* No support for lvalues returned from new or function call expressions.
  59072. * However, these must NOT cause compile-time SyntaxErrors, but run-time
  59073. * ReferenceErrors. Both left and right sides of the assignment must be
  59074. * evaluated before throwing a ReferenceError. For instance:
  59075. *
  59076. * f() = g();
  59077. *
  59078. * must result in f() being evaluated, then g() being evaluated, and
  59079. * finally, a ReferenceError being thrown. See E5 Section 11.13.1.
  59080. */
  59081. duk_regconst_t rc_res;
  59082. /* First evaluate LHS fully to ensure all side effects are out. */
  59083. duk__ivalue_toplain_ignore(comp_ctx, left);
  59084. /* Then evaluate RHS fully (its value becomes the expression value too).
  59085. * Technically we'd need the side effect safety check here too, but because
  59086. * we always throw using INVLHS the result doesn't matter.
  59087. */
  59088. rc_res = duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/);
  59089. duk__emit_op_only(comp_ctx, DUK_OP_INVLHS);
  59090. duk__ivalue_regconst(res, rc_res);
  59091. }
  59092. return;
  59093. }
  59094. postincdec:
  59095. {
  59096. /*
  59097. * Post-increment/decrement will return the original value as its
  59098. * result value. However, even that value will be coerced using
  59099. * ToNumber() which is quite awkward. Specific bytecode opcodes
  59100. * are used to handle these semantics.
  59101. *
  59102. * Note that post increment/decrement has a "no LineTerminator here"
  59103. * restriction. This is handled by duk__expr_lbp(), which forcibly terminates
  59104. * the previous expression if a LineTerminator occurs before '++'/'--'.
  59105. */
  59106. duk_regconst_t reg_res;
  59107. duk_small_uint_t args_op1 = (args >> 8) & 0xff; /* DUK_OP_POSTINCR/DUK_OP_POSTDECR */
  59108. duk_small_uint_t args_op2 = args >> 16; /* DUK_OP_POSTINCP_RR/DUK_OP_POSTDECP_RR */
  59109. /* Specific assumptions for opcode numbering. */
  59110. DUK_ASSERT(DUK_OP_POSTINCR + 4 == DUK_OP_POSTINCV);
  59111. DUK_ASSERT(DUK_OP_POSTDECR + 4 == DUK_OP_POSTDECV);
  59112. reg_res = DUK__ALLOCTEMP(comp_ctx);
  59113. if (left->t == DUK_IVAL_VAR) {
  59114. duk_hstring *h_varname;
  59115. duk_regconst_t reg_varbind;
  59116. duk_regconst_t rc_varname;
  59117. h_varname = duk_known_hstring(thr, left->x1.valstack_idx);
  59118. if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) {
  59119. goto syntax_error;
  59120. }
  59121. duk_dup(thr, left->x1.valstack_idx);
  59122. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  59123. duk__emit_a_bc(comp_ctx,
  59124. args_op1, /* e.g. DUK_OP_POSTINCR */
  59125. reg_res,
  59126. reg_varbind);
  59127. } else {
  59128. duk__emit_a_bc(comp_ctx,
  59129. args_op1 + 4, /* e.g. DUK_OP_POSTINCV */
  59130. reg_res,
  59131. rc_varname);
  59132. }
  59133. DUK_DDD(DUK_DDDPRINT("postincdec to '%!O' -> reg_varbind=%ld, rc_varname=%ld",
  59134. (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname));
  59135. } else if (left->t == DUK_IVAL_PROP) {
  59136. duk_regconst_t reg_obj; /* allocate to reg only (not const) */
  59137. duk_regconst_t rc_key;
  59138. reg_obj = duk__ispec_toregconst_raw(comp_ctx, &left->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */
  59139. rc_key = duk__ispec_toregconst_raw(comp_ctx, &left->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  59140. duk__emit_a_b_c(comp_ctx,
  59141. args_op2 | DUK__EMIT_FLAG_BC_REGCONST, /* e.g. DUK_OP_POSTINCP */
  59142. reg_res,
  59143. reg_obj,
  59144. rc_key);
  59145. } else {
  59146. /* Technically return value is not needed because INVLHS will
  59147. * unconditially throw a ReferenceError. Coercion is necessary
  59148. * for proper semantics (consider ToNumber() called for an object).
  59149. * Use DUK_OP_UNP with a dummy register to get ToNumber().
  59150. */
  59151. duk__ivalue_toforcedreg(comp_ctx, left, reg_res);
  59152. duk__emit_bc(comp_ctx,
  59153. DUK_OP_UNP,
  59154. reg_res); /* for side effects, result ignored */
  59155. duk__emit_op_only(comp_ctx,
  59156. DUK_OP_INVLHS);
  59157. }
  59158. DUK__SETTEMP(comp_ctx, reg_res + 1);
  59159. duk__ivalue_regconst(res, reg_res);
  59160. return;
  59161. }
  59162. syntax_error:
  59163. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_EXPRESSION);
  59164. return;
  59165. syntax_error_lvalue:
  59166. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LVALUE);
  59167. return;
  59168. }
  59169. DUK_LOCAL duk_small_uint_t duk__expr_lbp(duk_compiler_ctx *comp_ctx) {
  59170. duk_small_uint_t tok = comp_ctx->curr_token.t;
  59171. DUK_ASSERT_DISABLE(tok >= DUK_TOK_MINVAL); /* unsigned */
  59172. DUK_ASSERT(tok <= DUK_TOK_MAXVAL);
  59173. DUK_ASSERT(sizeof(duk__token_lbp) == DUK_TOK_MAXVAL + 1);
  59174. /* XXX: integrate support for this into led() instead?
  59175. * Similar issue as post-increment/post-decrement.
  59176. */
  59177. /* prevent duk__expr_led() by using a binding power less than anything valid */
  59178. if (tok == DUK_TOK_IN && !comp_ctx->curr_func.allow_in) {
  59179. return 0;
  59180. }
  59181. if ((tok == DUK_TOK_DECREMENT || tok == DUK_TOK_INCREMENT) &&
  59182. (comp_ctx->curr_token.lineterm)) {
  59183. /* '++' or '--' in a post-increment/decrement position,
  59184. * and a LineTerminator occurs between the operator and
  59185. * the preceding expression. Force the previous expr
  59186. * to terminate, in effect treating e.g. "a,b\n++" as
  59187. * "a,b;++" (= SyntaxError).
  59188. */
  59189. return 0;
  59190. }
  59191. return DUK__TOKEN_LBP_GET_BP(duk__token_lbp[tok]); /* format is bit packed */
  59192. }
  59193. /*
  59194. * Expression parsing.
  59195. *
  59196. * Upon entry to 'expr' and its variants, 'curr_tok' is assumed to be the
  59197. * first token of the expression. Upon exit, 'curr_tok' will be the first
  59198. * token not part of the expression (e.g. semicolon terminating an expression
  59199. * statement).
  59200. */
  59201. #define DUK__EXPR_RBP_MASK 0xff
  59202. #define DUK__EXPR_FLAG_REJECT_IN (1 << 8) /* reject 'in' token (used for for-in) */
  59203. #define DUK__EXPR_FLAG_ALLOW_EMPTY (1 << 9) /* allow empty expression */
  59204. #define DUK__EXPR_FLAG_REQUIRE_INIT (1 << 10) /* require initializer for var/const */
  59205. /* main expression parser function */
  59206. DUK_LOCAL void duk__expr(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59207. duk_hthread *thr = comp_ctx->thr;
  59208. duk_ivalue tmp_alloc; /* 'res' is used for "left", and 'tmp' for "right" */
  59209. duk_ivalue *tmp = &tmp_alloc;
  59210. duk_small_uint_t rbp;
  59211. DUK__RECURSION_INCREASE(comp_ctx, thr);
  59212. duk_require_stack(thr, DUK__PARSE_EXPR_SLOTS);
  59213. /* filter out flags from exprtop rbp_flags here to save space */
  59214. rbp = rbp_flags & DUK__EXPR_RBP_MASK;
  59215. DUK_DDD(DUK_DDDPRINT("duk__expr(), rbp_flags=%ld, rbp=%ld, allow_in=%ld, paren_level=%ld",
  59216. (long) rbp_flags, (long) rbp, (long) comp_ctx->curr_func.allow_in,
  59217. (long) comp_ctx->curr_func.paren_level));
  59218. DUK_MEMZERO(&tmp_alloc, sizeof(tmp_alloc));
  59219. tmp->x1.valstack_idx = duk_get_top(thr);
  59220. tmp->x2.valstack_idx = tmp->x1.valstack_idx + 1;
  59221. duk_push_undefined(thr);
  59222. duk_push_undefined(thr);
  59223. /* XXX: where to release temp regs in intermediate expressions?
  59224. * e.g. 1+2+3 -> don't inflate temp register count when parsing this.
  59225. * that particular expression temp regs can be forced here.
  59226. */
  59227. /* XXX: increase ctx->expr_tokens here for every consumed token
  59228. * (this would be a nice statistic)?
  59229. */
  59230. if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || comp_ctx->curr_token.t == DUK_TOK_RPAREN) {
  59231. /* XXX: possibly incorrect handling of empty expression */
  59232. DUK_DDD(DUK_DDDPRINT("empty expression"));
  59233. if (!(rbp_flags & DUK__EXPR_FLAG_ALLOW_EMPTY)) {
  59234. DUK_ERROR_SYNTAX(thr, DUK_STR_EMPTY_EXPR_NOT_ALLOWED);
  59235. }
  59236. duk_push_undefined(thr);
  59237. duk__ivalue_plain_fromstack(comp_ctx, res);
  59238. goto cleanup;
  59239. }
  59240. duk__advance(comp_ctx);
  59241. duk__expr_nud(comp_ctx, res); /* reuse 'res' as 'left' */
  59242. while (rbp < duk__expr_lbp(comp_ctx)) {
  59243. duk__advance(comp_ctx);
  59244. duk__expr_led(comp_ctx, res, tmp);
  59245. duk__copy_ivalue(comp_ctx, tmp, res); /* tmp -> res */
  59246. }
  59247. cleanup:
  59248. /* final result is already in 'res' */
  59249. duk_pop_2(thr);
  59250. DUK__RECURSION_DECREASE(comp_ctx, thr);
  59251. }
  59252. DUK_LOCAL void duk__exprtop(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59253. duk_hthread *thr = comp_ctx->thr;
  59254. /* Note: these variables must reside in 'curr_func' instead of the global
  59255. * context: when parsing function expressions, expression parsing is nested.
  59256. */
  59257. comp_ctx->curr_func.nud_count = 0;
  59258. comp_ctx->curr_func.led_count = 0;
  59259. comp_ctx->curr_func.paren_level = 0;
  59260. comp_ctx->curr_func.expr_lhs = 1;
  59261. comp_ctx->curr_func.allow_in = (rbp_flags & DUK__EXPR_FLAG_REJECT_IN ? 0 : 1);
  59262. duk__expr(comp_ctx, res, rbp_flags);
  59263. if (!(rbp_flags & DUK__EXPR_FLAG_ALLOW_EMPTY) && duk__expr_is_empty(comp_ctx)) {
  59264. DUK_ERROR_SYNTAX(thr, DUK_STR_EMPTY_EXPR_NOT_ALLOWED);
  59265. }
  59266. }
  59267. /* A bunch of helpers (for size optimization) that combine duk__expr()/duk__exprtop()
  59268. * and result conversions.
  59269. *
  59270. * Each helper needs at least 2-3 calls to make it worth while to wrap.
  59271. */
  59272. #if 0 /* unused */
  59273. DUK_LOCAL duk_regconst_t duk__expr_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59274. duk__expr(comp_ctx, res, rbp_flags);
  59275. return duk__ivalue_toreg(comp_ctx, res);
  59276. }
  59277. #endif
  59278. #if 0 /* unused */
  59279. DUK_LOCAL duk_regconst_t duk__expr_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59280. duk__expr(comp_ctx, res, rbp_flags);
  59281. return duk__ivalue_totemp(comp_ctx, res);
  59282. }
  59283. #endif
  59284. DUK_LOCAL void duk__expr_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg) {
  59285. DUK_ASSERT(forced_reg >= 0);
  59286. duk__expr(comp_ctx, res, rbp_flags);
  59287. duk__ivalue_toforcedreg(comp_ctx, res, forced_reg);
  59288. }
  59289. DUK_LOCAL duk_regconst_t duk__expr_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59290. duk__expr(comp_ctx, res, rbp_flags);
  59291. return duk__ivalue_toregconst(comp_ctx, res);
  59292. }
  59293. #if 0 /* unused */
  59294. DUK_LOCAL duk_regconst_t duk__expr_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59295. duk__expr(comp_ctx, res, rbp_flags);
  59296. return duk__ivalue_totempconst(comp_ctx, res);
  59297. }
  59298. #endif
  59299. DUK_LOCAL void duk__expr_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59300. duk__expr(comp_ctx, res, rbp_flags);
  59301. duk__ivalue_toplain(comp_ctx, res);
  59302. }
  59303. DUK_LOCAL void duk__expr_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59304. duk__expr(comp_ctx, res, rbp_flags);
  59305. duk__ivalue_toplain_ignore(comp_ctx, res);
  59306. }
  59307. DUK_LOCAL duk_regconst_t duk__exprtop_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59308. duk__exprtop(comp_ctx, res, rbp_flags);
  59309. return duk__ivalue_toreg(comp_ctx, res);
  59310. }
  59311. #if 0 /* unused */
  59312. DUK_LOCAL duk_regconst_t duk__exprtop_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59313. duk__exprtop(comp_ctx, res, rbp_flags);
  59314. return duk__ivalue_totemp(comp_ctx, res);
  59315. }
  59316. #endif
  59317. DUK_LOCAL void duk__exprtop_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg) {
  59318. DUK_ASSERT(forced_reg >= 0);
  59319. duk__exprtop(comp_ctx, res, rbp_flags);
  59320. duk__ivalue_toforcedreg(comp_ctx, res, forced_reg);
  59321. }
  59322. DUK_LOCAL duk_regconst_t duk__exprtop_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) {
  59323. duk__exprtop(comp_ctx, res, rbp_flags);
  59324. return duk__ivalue_toregconst(comp_ctx, res);
  59325. }
  59326. #if 0 /* unused */
  59327. DUK_LOCAL void duk__exprtop_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, int rbp_flags) {
  59328. duk__exprtop(comp_ctx, res, rbp_flags);
  59329. duk__ivalue_toplain_ignore(comp_ctx, res);
  59330. }
  59331. #endif
  59332. /*
  59333. * Parse an individual source element (top level statement) or a statement.
  59334. *
  59335. * Handles labeled statements automatically (peeling away labels before
  59336. * parsing an expression that follows the label(s)).
  59337. *
  59338. * Upon entry, 'curr_tok' contains the first token of the statement (parsed
  59339. * in "allow regexp literal" mode). Upon exit, 'curr_tok' contains the first
  59340. * token following the statement (if the statement has a terminator, this is
  59341. * the token after the terminator).
  59342. */
  59343. #define DUK__HAS_VAL (1 << 0) /* stmt has non-empty value */
  59344. #define DUK__HAS_TERM (1 << 1) /* stmt has explicit/implicit semicolon terminator */
  59345. #define DUK__ALLOW_AUTO_SEMI_ALWAYS (1 << 2) /* allow automatic semicolon even without lineterm (compatibility) */
  59346. #define DUK__STILL_PROLOGUE (1 << 3) /* statement does not terminate directive prologue */
  59347. #define DUK__IS_TERMINAL (1 << 4) /* statement is guaranteed to be terminal (control doesn't flow to next statement) */
  59348. /* Parse a single variable declaration (e.g. "i" or "i=10"). A leading 'var'
  59349. * has already been eaten. These is no return value in 'res', it is used only
  59350. * as a temporary.
  59351. *
  59352. * When called from 'for-in' statement parser, the initializer expression must
  59353. * not allow the 'in' token. The caller supply additional expression parsing
  59354. * flags (like DUK__EXPR_FLAG_REJECT_IN) in 'expr_flags'.
  59355. *
  59356. * Finally, out_rc_varname and out_reg_varbind are updated to reflect where
  59357. * the identifier is bound:
  59358. *
  59359. * If register bound: out_reg_varbind >= 0, out_rc_varname == 0 (ignore)
  59360. * If not register bound: out_reg_varbind < 0, out_rc_varname >= 0
  59361. *
  59362. * These allow the caller to use the variable for further assignment, e.g.
  59363. * as is done in 'for-in' parsing.
  59364. */
  59365. DUK_LOCAL void duk__parse_var_decl(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname) {
  59366. duk_hthread *thr = comp_ctx->thr;
  59367. duk_hstring *h_varname;
  59368. duk_regconst_t reg_varbind;
  59369. duk_regconst_t rc_varname;
  59370. /* assume 'var' has been eaten */
  59371. /* Note: Identifier rejects reserved words */
  59372. if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) {
  59373. goto syntax_error;
  59374. }
  59375. h_varname = comp_ctx->curr_token.str1;
  59376. DUK_ASSERT(h_varname != NULL);
  59377. /* strict mode restrictions (E5 Section 12.2.1) */
  59378. if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) {
  59379. goto syntax_error;
  59380. }
  59381. /* register declarations in first pass */
  59382. if (comp_ctx->curr_func.in_scanning) {
  59383. duk_uarridx_t n;
  59384. DUK_DDD(DUK_DDDPRINT("register variable declaration %!O in pass 1",
  59385. (duk_heaphdr *) h_varname));
  59386. n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx);
  59387. duk_push_hstring(thr, h_varname);
  59388. duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n);
  59389. duk_push_int(thr, DUK_DECL_TYPE_VAR + (0 << 8));
  59390. duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n + 1);
  59391. }
  59392. duk_push_hstring(thr, h_varname); /* push before advancing to keep reachable */
  59393. /* register binding lookup is based on varmap (even in first pass) */
  59394. duk_dup_top(thr);
  59395. (void) duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname);
  59396. duk__advance(comp_ctx); /* eat identifier */
  59397. if (comp_ctx->curr_token.t == DUK_TOK_EQUALSIGN) {
  59398. duk__advance(comp_ctx);
  59399. DUK_DDD(DUK_DDDPRINT("vardecl, assign to '%!O' -> reg_varbind=%ld, rc_varname=%ld",
  59400. (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname));
  59401. duk__exprtop(comp_ctx, res, DUK__BP_COMMA | expr_flags /*rbp_flags*/); /* AssignmentExpression */
  59402. if (reg_varbind >= 0) {
  59403. duk__ivalue_toforcedreg(comp_ctx, res, reg_varbind);
  59404. } else {
  59405. duk_regconst_t reg_val;
  59406. reg_val = duk__ivalue_toreg(comp_ctx, res);
  59407. duk__emit_a_bc(comp_ctx,
  59408. DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE,
  59409. reg_val,
  59410. rc_varname);
  59411. }
  59412. } else {
  59413. if (expr_flags & DUK__EXPR_FLAG_REQUIRE_INIT) {
  59414. /* Used for minimal 'const': initializer required. */
  59415. goto syntax_error;
  59416. }
  59417. }
  59418. duk_pop(thr); /* pop varname */
  59419. *out_rc_varname = rc_varname;
  59420. *out_reg_varbind = reg_varbind;
  59421. return;
  59422. syntax_error:
  59423. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_VAR_DECLARATION);
  59424. }
  59425. DUK_LOCAL void duk__parse_var_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags) {
  59426. duk_regconst_t reg_varbind;
  59427. duk_regconst_t rc_varname;
  59428. duk__advance(comp_ctx); /* eat 'var' */
  59429. for (;;) {
  59430. /* rc_varname and reg_varbind are ignored here */
  59431. duk__parse_var_decl(comp_ctx, res, 0 | expr_flags, &reg_varbind, &rc_varname);
  59432. if (comp_ctx->curr_token.t != DUK_TOK_COMMA) {
  59433. break;
  59434. }
  59435. duk__advance(comp_ctx);
  59436. }
  59437. }
  59438. DUK_LOCAL void duk__parse_for_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) {
  59439. duk_hthread *thr = comp_ctx->thr;
  59440. duk_int_t pc_v34_lhs; /* start variant 3/4 left-hand-side code (L1 in doc/compiler.rst example) */
  59441. duk_regconst_t temp_reset; /* knock back "next temp" to this whenever possible */
  59442. duk_regconst_t reg_temps; /* preallocated temporaries (2) for variants 3 and 4 */
  59443. DUK_DDD(DUK_DDDPRINT("start parsing a for/for-in statement"));
  59444. /* Two temporaries are preallocated here for variants 3 and 4 which need
  59445. * registers which are never clobbered by expressions in the loop
  59446. * (concretely: for the enumerator object and the next enumerated value).
  59447. * Variants 1 and 2 "release" these temps.
  59448. */
  59449. reg_temps = DUK__ALLOCTEMPS(comp_ctx, 2);
  59450. temp_reset = DUK__GETTEMP(comp_ctx);
  59451. /*
  59452. * For/for-in main variants are:
  59453. *
  59454. * 1. for (ExpressionNoIn_opt; Expression_opt; Expression_opt) Statement
  59455. * 2. for (var VariableDeclarationNoIn; Expression_opt; Expression_opt) Statement
  59456. * 3. for (LeftHandSideExpression in Expression) Statement
  59457. * 4. for (var VariableDeclarationNoIn in Expression) Statement
  59458. *
  59459. * Parsing these without arbitrary lookahead or backtracking is relatively
  59460. * tricky but we manage to do so for now.
  59461. *
  59462. * See doc/compiler.rst for a detailed discussion of control flow
  59463. * issues, evaluation order issues, etc.
  59464. */
  59465. duk__advance(comp_ctx); /* eat 'for' */
  59466. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  59467. DUK_DDD(DUK_DDDPRINT("detecting for/for-in loop variant, pc=%ld", (long) duk__get_current_pc(comp_ctx)));
  59468. /* a label site has been emitted by duk__parse_stmt() automatically
  59469. * (it will also emit the ENDLABEL).
  59470. */
  59471. if (comp_ctx->curr_token.t == DUK_TOK_VAR) {
  59472. /*
  59473. * Variant 2 or 4
  59474. */
  59475. duk_regconst_t reg_varbind; /* variable binding register if register-bound (otherwise < 0) */
  59476. duk_regconst_t rc_varname; /* variable name reg/const, if variable not register-bound */
  59477. duk__advance(comp_ctx); /* eat 'var' */
  59478. duk__parse_var_decl(comp_ctx, res, DUK__EXPR_FLAG_REJECT_IN, &reg_varbind, &rc_varname);
  59479. DUK__SETTEMP(comp_ctx, temp_reset);
  59480. if (comp_ctx->curr_token.t == DUK_TOK_IN) {
  59481. /*
  59482. * Variant 4
  59483. */
  59484. DUK_DDD(DUK_DDDPRINT("detected for variant 4: for (var VariableDeclarationNoIn in Expression) Statement"));
  59485. pc_v34_lhs = duk__get_current_pc(comp_ctx); /* jump is inserted here */
  59486. if (reg_varbind >= 0) {
  59487. duk__emit_a_bc(comp_ctx,
  59488. DUK_OP_LDREG,
  59489. reg_varbind,
  59490. reg_temps + 0);
  59491. } else {
  59492. duk__emit_a_bc(comp_ctx,
  59493. DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE,
  59494. reg_temps + 0,
  59495. rc_varname);
  59496. }
  59497. goto parse_3_or_4;
  59498. } else {
  59499. /*
  59500. * Variant 2
  59501. */
  59502. DUK_DDD(DUK_DDDPRINT("detected for variant 2: for (var VariableDeclarationNoIn; Expression_opt; Expression_opt) Statement"));
  59503. for (;;) {
  59504. /* more initializers */
  59505. if (comp_ctx->curr_token.t != DUK_TOK_COMMA) {
  59506. break;
  59507. }
  59508. DUK_DDD(DUK_DDDPRINT("variant 2 has another variable initializer"));
  59509. duk__advance(comp_ctx); /* eat comma */
  59510. duk__parse_var_decl(comp_ctx, res, DUK__EXPR_FLAG_REJECT_IN, &reg_varbind, &rc_varname);
  59511. }
  59512. goto parse_1_or_2;
  59513. }
  59514. } else {
  59515. /*
  59516. * Variant 1 or 3
  59517. */
  59518. pc_v34_lhs = duk__get_current_pc(comp_ctx); /* jump is inserted here (variant 3) */
  59519. /* Note that duk__exprtop() here can clobber any reg above current temp_next,
  59520. * so any loop variables (e.g. enumerator) must be "preallocated".
  59521. */
  59522. /* don't coerce yet to a plain value (variant 3 needs special handling) */
  59523. duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_REJECT_IN | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression */
  59524. if (comp_ctx->curr_token.t == DUK_TOK_IN) {
  59525. /*
  59526. * Variant 3
  59527. */
  59528. /* XXX: need to determine LHS type, and check that it is LHS compatible */
  59529. DUK_DDD(DUK_DDDPRINT("detected for variant 3: for (LeftHandSideExpression in Expression) Statement"));
  59530. if (duk__expr_is_empty(comp_ctx)) {
  59531. goto syntax_error; /* LeftHandSideExpression does not allow empty expression */
  59532. }
  59533. if (res->t == DUK_IVAL_VAR) {
  59534. duk_regconst_t reg_varbind;
  59535. duk_regconst_t rc_varname;
  59536. duk_dup(thr, res->x1.valstack_idx);
  59537. if (duk__lookup_lhs(comp_ctx, &reg_varbind, &rc_varname)) {
  59538. duk__emit_a_bc(comp_ctx,
  59539. DUK_OP_LDREG,
  59540. reg_varbind,
  59541. reg_temps + 0);
  59542. } else {
  59543. duk__emit_a_bc(comp_ctx,
  59544. DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE,
  59545. reg_temps + 0,
  59546. rc_varname);
  59547. }
  59548. } else if (res->t == DUK_IVAL_PROP) {
  59549. /* Don't allow a constant for the object (even for a number etc), as
  59550. * it goes into the 'A' field of the opcode.
  59551. */
  59552. duk_regconst_t reg_obj;
  59553. duk_regconst_t rc_key;
  59554. reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */
  59555. rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/);
  59556. duk__emit_a_b_c(comp_ctx,
  59557. DUK_OP_PUTPROP | DUK__EMIT_FLAG_A_IS_SOURCE | DUK__EMIT_FLAG_BC_REGCONST,
  59558. reg_obj,
  59559. rc_key,
  59560. reg_temps + 0);
  59561. } else {
  59562. duk__ivalue_toplain_ignore(comp_ctx, res); /* just in case */
  59563. duk__emit_op_only(comp_ctx,
  59564. DUK_OP_INVLHS);
  59565. }
  59566. goto parse_3_or_4;
  59567. } else {
  59568. /*
  59569. * Variant 1
  59570. */
  59571. DUK_DDD(DUK_DDDPRINT("detected for variant 1: for (ExpressionNoIn_opt; Expression_opt; Expression_opt) Statement"));
  59572. duk__ivalue_toplain_ignore(comp_ctx, res);
  59573. goto parse_1_or_2;
  59574. }
  59575. }
  59576. parse_1_or_2:
  59577. /*
  59578. * Parse variant 1 or 2. The first part expression (which differs
  59579. * in the variants) has already been parsed and its code emitted.
  59580. *
  59581. * reg_temps + 0: unused
  59582. * reg_temps + 1: unused
  59583. */
  59584. {
  59585. duk_regconst_t rc_cond;
  59586. duk_int_t pc_l1, pc_l2, pc_l3, pc_l4;
  59587. duk_int_t pc_jumpto_l3, pc_jumpto_l4;
  59588. duk_bool_t expr_c_empty;
  59589. DUK_DDD(DUK_DDDPRINT("shared code for parsing variants 1 and 2"));
  59590. /* "release" preallocated temps since we won't need them */
  59591. temp_reset = reg_temps + 0;
  59592. DUK__SETTEMP(comp_ctx, temp_reset);
  59593. duk__advance_expect(comp_ctx, DUK_TOK_SEMICOLON);
  59594. pc_l1 = duk__get_current_pc(comp_ctx);
  59595. duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression_opt */
  59596. if (duk__expr_is_empty(comp_ctx)) {
  59597. /* no need to coerce */
  59598. pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* to body */
  59599. pc_jumpto_l4 = -1; /* omitted */
  59600. } else {
  59601. rc_cond = duk__ivalue_toregconst(comp_ctx, res);
  59602. duk__emit_if_false_skip(comp_ctx, rc_cond);
  59603. pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* to body */
  59604. pc_jumpto_l4 = duk__emit_jump_empty(comp_ctx); /* to exit */
  59605. }
  59606. DUK__SETTEMP(comp_ctx, temp_reset);
  59607. duk__advance_expect(comp_ctx, DUK_TOK_SEMICOLON);
  59608. pc_l2 = duk__get_current_pc(comp_ctx);
  59609. duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression_opt */
  59610. if (duk__expr_is_empty(comp_ctx)) {
  59611. /* no need to coerce */
  59612. expr_c_empty = 1;
  59613. /* JUMP L1 omitted */
  59614. } else {
  59615. duk__ivalue_toplain_ignore(comp_ctx, res);
  59616. expr_c_empty = 0;
  59617. duk__emit_jump(comp_ctx, pc_l1);
  59618. }
  59619. DUK__SETTEMP(comp_ctx, temp_reset);
  59620. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59621. pc_l3 = duk__get_current_pc(comp_ctx);
  59622. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59623. if (expr_c_empty) {
  59624. duk__emit_jump(comp_ctx, pc_l1);
  59625. } else {
  59626. duk__emit_jump(comp_ctx, pc_l2);
  59627. }
  59628. /* temp reset is not necessary after duk__parse_stmt(), which already does it */
  59629. pc_l4 = duk__get_current_pc(comp_ctx);
  59630. DUK_DDD(DUK_DDDPRINT("patching jumps: jumpto_l3: %ld->%ld, jumpto_l4: %ld->%ld, "
  59631. "break: %ld->%ld, continue: %ld->%ld",
  59632. (long) pc_jumpto_l3, (long) pc_l3, (long) pc_jumpto_l4, (long) pc_l4,
  59633. (long) (pc_label_site + 1), (long) pc_l4, (long) (pc_label_site + 2), (long) pc_l2));
  59634. duk__patch_jump(comp_ctx, pc_jumpto_l3, pc_l3);
  59635. duk__patch_jump(comp_ctx, pc_jumpto_l4, pc_l4);
  59636. duk__patch_jump(comp_ctx,
  59637. pc_label_site + 1,
  59638. pc_l4); /* break jump */
  59639. duk__patch_jump(comp_ctx,
  59640. pc_label_site + 2,
  59641. expr_c_empty ? pc_l1 : pc_l2); /* continue jump */
  59642. }
  59643. goto finished;
  59644. parse_3_or_4:
  59645. /*
  59646. * Parse variant 3 or 4.
  59647. *
  59648. * For variant 3 (e.g. "for (A in C) D;") the code for A (except the
  59649. * final property/variable write) has already been emitted. The first
  59650. * instruction of that code is at pc_v34_lhs; a JUMP needs to be inserted
  59651. * there to satisfy control flow needs.
  59652. *
  59653. * For variant 4, if the variable declaration had an initializer
  59654. * (e.g. "for (var A = B in C) D;") the code for the assignment
  59655. * (B) has already been emitted.
  59656. *
  59657. * Variables set before entering here:
  59658. *
  59659. * pc_v34_lhs: insert a "JUMP L2" here (see doc/compiler.rst example).
  59660. * reg_temps + 0: iteration target value (written to LHS)
  59661. * reg_temps + 1: enumerator object
  59662. */
  59663. {
  59664. duk_int_t pc_l1, pc_l2, pc_l3, pc_l4, pc_l5;
  59665. duk_int_t pc_jumpto_l2, pc_jumpto_l3, pc_jumpto_l4, pc_jumpto_l5;
  59666. duk_regconst_t reg_target;
  59667. DUK_DDD(DUK_DDDPRINT("shared code for parsing variants 3 and 4, pc_v34_lhs=%ld", (long) pc_v34_lhs));
  59668. DUK__SETTEMP(comp_ctx, temp_reset);
  59669. /* First we need to insert a jump in the middle of previously
  59670. * emitted code to get the control flow right. No jumps can
  59671. * cross the position where the jump is inserted. See doc/compiler.rst
  59672. * for discussion on the intricacies of control flow and side effects
  59673. * for variants 3 and 4.
  59674. */
  59675. duk__insert_jump_entry(comp_ctx, pc_v34_lhs);
  59676. pc_jumpto_l2 = pc_v34_lhs; /* inserted jump */
  59677. pc_l1 = pc_v34_lhs + 1; /* +1, right after inserted jump */
  59678. /* The code for writing reg_temps + 0 to the left hand side has already
  59679. * been emitted.
  59680. */
  59681. pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* -> loop body */
  59682. duk__advance(comp_ctx); /* eat 'in' */
  59683. /* Parse enumeration target and initialize enumerator. For 'null' and 'undefined',
  59684. * INITENUM will creates a 'null' enumerator which works like an empty enumerator
  59685. * (E5 Section 12.6.4, step 3). Note that INITENUM requires the value to be in a
  59686. * register (constant not allowed).
  59687. */
  59688. pc_l2 = duk__get_current_pc(comp_ctx);
  59689. reg_target = duk__exprtop_toreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression */
  59690. duk__emit_b_c(comp_ctx,
  59691. DUK_OP_INITENUM | DUK__EMIT_FLAG_B_IS_TARGET,
  59692. reg_temps + 1,
  59693. reg_target);
  59694. pc_jumpto_l4 = duk__emit_jump_empty(comp_ctx);
  59695. DUK__SETTEMP(comp_ctx, temp_reset);
  59696. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59697. pc_l3 = duk__get_current_pc(comp_ctx);
  59698. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59699. /* temp reset is not necessary after duk__parse_stmt(), which already does it */
  59700. /* NEXTENUM needs a jump slot right after the main opcode.
  59701. * We need the code emitter to reserve the slot: if there's
  59702. * target shuffling, the target shuffle opcodes must happen
  59703. * after the jump slot (for NEXTENUM the shuffle opcodes are
  59704. * not needed if the enum is finished).
  59705. */
  59706. pc_l4 = duk__get_current_pc(comp_ctx);
  59707. duk__emit_b_c(comp_ctx,
  59708. DUK_OP_NEXTENUM | DUK__EMIT_FLAG_B_IS_TARGET | DUK__EMIT_FLAG_RESERVE_JUMPSLOT,
  59709. reg_temps + 0,
  59710. reg_temps + 1);
  59711. pc_jumpto_l5 = comp_ctx->emit_jumpslot_pc; /* NEXTENUM jump slot: executed when enum finished */
  59712. duk__emit_jump(comp_ctx, pc_l1); /* jump to next loop, using reg_v34_iter as iterated value */
  59713. pc_l5 = duk__get_current_pc(comp_ctx);
  59714. /* XXX: since the enumerator may be a memory expensive object,
  59715. * perhaps clear it explicitly here? If so, break jump must
  59716. * go through this clearing operation.
  59717. */
  59718. DUK_DDD(DUK_DDDPRINT("patching jumps: jumpto_l2: %ld->%ld, jumpto_l3: %ld->%ld, "
  59719. "jumpto_l4: %ld->%ld, jumpto_l5: %ld->%ld, "
  59720. "break: %ld->%ld, continue: %ld->%ld",
  59721. (long) pc_jumpto_l2, (long) pc_l2, (long) pc_jumpto_l3, (long) pc_l3,
  59722. (long) pc_jumpto_l4, (long) pc_l4, (long) pc_jumpto_l5, (long) pc_l5,
  59723. (long) (pc_label_site + 1), (long) pc_l5, (long) (pc_label_site + 2), (long) pc_l4));
  59724. duk__patch_jump(comp_ctx, pc_jumpto_l2, pc_l2);
  59725. duk__patch_jump(comp_ctx, pc_jumpto_l3, pc_l3);
  59726. duk__patch_jump(comp_ctx, pc_jumpto_l4, pc_l4);
  59727. duk__patch_jump(comp_ctx, pc_jumpto_l5, pc_l5);
  59728. duk__patch_jump(comp_ctx, pc_label_site + 1, pc_l5); /* break jump */
  59729. duk__patch_jump(comp_ctx, pc_label_site + 2, pc_l4); /* continue jump */
  59730. }
  59731. goto finished;
  59732. finished:
  59733. DUK_DDD(DUK_DDDPRINT("end parsing a for/for-in statement"));
  59734. return;
  59735. syntax_error:
  59736. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_FOR);
  59737. }
  59738. DUK_LOCAL void duk__parse_switch_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) {
  59739. duk_hthread *thr = comp_ctx->thr;
  59740. duk_regconst_t temp_at_loop;
  59741. duk_regconst_t rc_switch; /* reg/const for switch value */
  59742. duk_regconst_t rc_case; /* reg/const for case value */
  59743. duk_regconst_t reg_temp; /* general temp register */
  59744. duk_int_t pc_prevcase = -1;
  59745. duk_int_t pc_prevstmt = -1;
  59746. duk_int_t pc_default = -1; /* -1 == not set, -2 == pending (next statement list) */
  59747. /* Note: negative pc values are ignored when patching jumps, so no explicit checks needed */
  59748. /*
  59749. * Switch is pretty complicated because of several conflicting concerns:
  59750. *
  59751. * - Want to generate code without an intermediate representation,
  59752. * i.e., in one go
  59753. *
  59754. * - Case selectors are expressions, not values, and may thus e.g. throw
  59755. * exceptions (which causes evaluation order concerns)
  59756. *
  59757. * - Evaluation semantics of case selectors and default clause need to be
  59758. * carefully implemented to provide correct behavior even with case value
  59759. * side effects
  59760. *
  59761. * - Fall through case and default clauses; avoiding dead JUMPs if case
  59762. * ends with an unconditional jump (a break or a continue)
  59763. *
  59764. * - The same case value may occur multiple times, but evaluation rules
  59765. * only process the first match before switching to a "propagation" mode
  59766. * where case values are no longer evaluated
  59767. *
  59768. * See E5 Section 12.11. Also see doc/compiler.rst for compilation
  59769. * discussion.
  59770. */
  59771. duk__advance(comp_ctx);
  59772. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  59773. rc_switch = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  59774. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59775. duk__advance_expect(comp_ctx, DUK_TOK_LCURLY);
  59776. DUK_DDD(DUK_DDDPRINT("switch value in register %ld", (long) rc_switch));
  59777. temp_at_loop = DUK__GETTEMP(comp_ctx);
  59778. for (;;) {
  59779. duk_int_t num_stmts;
  59780. duk_small_uint_t tok;
  59781. /* sufficient for keeping temp reg numbers in check */
  59782. DUK__SETTEMP(comp_ctx, temp_at_loop);
  59783. if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) {
  59784. break;
  59785. }
  59786. /*
  59787. * Parse a case or default clause.
  59788. */
  59789. if (comp_ctx->curr_token.t == DUK_TOK_CASE) {
  59790. /*
  59791. * Case clause.
  59792. *
  59793. * Note: cannot use reg_case as a temp register (for SEQ target)
  59794. * because it may be a constant.
  59795. */
  59796. duk__patch_jump_here(comp_ctx, pc_prevcase); /* chain jumps for case
  59797. * evaluation and checking
  59798. */
  59799. duk__advance(comp_ctx);
  59800. rc_case = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  59801. duk__advance_expect(comp_ctx, DUK_TOK_COLON);
  59802. reg_temp = DUK__ALLOCTEMP(comp_ctx);
  59803. duk__emit_a_b_c(comp_ctx,
  59804. DUK_OP_SEQ | DUK__EMIT_FLAG_BC_REGCONST,
  59805. reg_temp,
  59806. rc_switch,
  59807. rc_case);
  59808. duk__emit_if_true_skip(comp_ctx, reg_temp);
  59809. /* jump to next case clause */
  59810. pc_prevcase = duk__emit_jump_empty(comp_ctx); /* no match, next case */
  59811. /* statements go here (if any) on next loop */
  59812. } else if (comp_ctx->curr_token.t == DUK_TOK_DEFAULT) {
  59813. /*
  59814. * Default clause.
  59815. */
  59816. if (pc_default >= 0) {
  59817. goto syntax_error;
  59818. }
  59819. duk__advance(comp_ctx);
  59820. duk__advance_expect(comp_ctx, DUK_TOK_COLON);
  59821. /* Fix for https://github.com/svaarala/duktape/issues/155:
  59822. * If 'default' is first clause (detected by pc_prevcase < 0)
  59823. * we need to ensure we stay in the matching chain.
  59824. */
  59825. if (pc_prevcase < 0) {
  59826. DUK_DD(DUK_DDPRINT("default clause is first, emit prevcase jump"));
  59827. pc_prevcase = duk__emit_jump_empty(comp_ctx);
  59828. }
  59829. /* default clause matches next statement list (if any) */
  59830. pc_default = -2;
  59831. } else {
  59832. /* Code is not accepted before the first case/default clause */
  59833. goto syntax_error;
  59834. }
  59835. /*
  59836. * Parse code after the clause. Possible terminators are
  59837. * 'case', 'default', and '}'.
  59838. *
  59839. * Note that there may be no code at all, not even an empty statement,
  59840. * between case clauses. This must be handled just like an empty statement
  59841. * (omitting seemingly pointless JUMPs), to avoid situations like
  59842. * test-bug-case-fallthrough.js.
  59843. */
  59844. num_stmts = 0;
  59845. if (pc_default == -2) {
  59846. pc_default = duk__get_current_pc(comp_ctx);
  59847. }
  59848. /* Note: this is correct even for default clause statements:
  59849. * they participate in 'fall-through' behavior even if the
  59850. * default clause is in the middle.
  59851. */
  59852. duk__patch_jump_here(comp_ctx, pc_prevstmt); /* chain jumps for 'fall-through'
  59853. * after a case matches.
  59854. */
  59855. for (;;) {
  59856. tok = comp_ctx->curr_token.t;
  59857. if (tok == DUK_TOK_CASE || tok == DUK_TOK_DEFAULT ||
  59858. tok == DUK_TOK_RCURLY) {
  59859. break;
  59860. }
  59861. num_stmts++;
  59862. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59863. }
  59864. /* fall-through jump to next code of next case (backpatched) */
  59865. pc_prevstmt = duk__emit_jump_empty(comp_ctx);
  59866. /* XXX: would be nice to omit this jump when the jump is not
  59867. * reachable, at least in the obvious cases (such as the case
  59868. * ending with a 'break'.
  59869. *
  59870. * Perhaps duk__parse_stmt() could provide some info on whether
  59871. * the statement is a "dead end"?
  59872. *
  59873. * If implemented, just set pc_prevstmt to -1 when not needed.
  59874. */
  59875. }
  59876. DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RCURLY);
  59877. duk__advance(comp_ctx);
  59878. /* default case control flow patchup; note that if pc_prevcase < 0
  59879. * (i.e. no case clauses), control enters default case automatically.
  59880. */
  59881. if (pc_default >= 0) {
  59882. /* default case exists: go there if no case matches */
  59883. duk__patch_jump(comp_ctx, pc_prevcase, pc_default);
  59884. } else {
  59885. /* default case does not exist, or no statements present
  59886. * after default case: finish case evaluation
  59887. */
  59888. duk__patch_jump_here(comp_ctx, pc_prevcase);
  59889. }
  59890. /* fall-through control flow patchup; note that pc_prevstmt may be
  59891. * < 0 (i.e. no case clauses), in which case this is a no-op.
  59892. */
  59893. duk__patch_jump_here(comp_ctx, pc_prevstmt);
  59894. /* continue jump not patched, an INVALID opcode remains there */
  59895. duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */
  59896. /* Note: 'fast' breaks will jump to pc_label_site + 1, which will
  59897. * then jump here. The double jump will be eliminated by a
  59898. * peephole pass, resulting in an optimal jump here. The label
  59899. * site jumps will remain in bytecode and will waste code size.
  59900. */
  59901. return;
  59902. syntax_error:
  59903. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_SWITCH);
  59904. }
  59905. DUK_LOCAL void duk__parse_if_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  59906. duk_regconst_t temp_reset;
  59907. duk_regconst_t rc_cond;
  59908. duk_int_t pc_jump_false;
  59909. DUK_DDD(DUK_DDDPRINT("begin parsing if statement"));
  59910. temp_reset = DUK__GETTEMP(comp_ctx);
  59911. duk__advance(comp_ctx); /* eat 'if' */
  59912. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  59913. rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  59914. duk__emit_if_true_skip(comp_ctx, rc_cond);
  59915. pc_jump_false = duk__emit_jump_empty(comp_ctx); /* jump to end or else part */
  59916. DUK__SETTEMP(comp_ctx, temp_reset);
  59917. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59918. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59919. /* The 'else' ambiguity is resolved by 'else' binding to the innermost
  59920. * construct, so greedy matching is correct here.
  59921. */
  59922. if (comp_ctx->curr_token.t == DUK_TOK_ELSE) {
  59923. duk_int_t pc_jump_end;
  59924. DUK_DDD(DUK_DDDPRINT("if has else part"));
  59925. duk__advance(comp_ctx);
  59926. pc_jump_end = duk__emit_jump_empty(comp_ctx); /* jump from true part to end */
  59927. duk__patch_jump_here(comp_ctx, pc_jump_false);
  59928. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59929. duk__patch_jump_here(comp_ctx, pc_jump_end);
  59930. } else {
  59931. DUK_DDD(DUK_DDDPRINT("if does not have else part"));
  59932. duk__patch_jump_here(comp_ctx, pc_jump_false);
  59933. }
  59934. DUK_DDD(DUK_DDDPRINT("end parsing if statement"));
  59935. }
  59936. DUK_LOCAL void duk__parse_do_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) {
  59937. duk_regconst_t rc_cond;
  59938. duk_int_t pc_start;
  59939. DUK_DDD(DUK_DDDPRINT("begin parsing do statement"));
  59940. duk__advance(comp_ctx); /* eat 'do' */
  59941. pc_start = duk__get_current_pc(comp_ctx);
  59942. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59943. duk__patch_jump_here(comp_ctx, pc_label_site + 2); /* continue jump */
  59944. duk__advance_expect(comp_ctx, DUK_TOK_WHILE);
  59945. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  59946. rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  59947. duk__emit_if_false_skip(comp_ctx, rc_cond);
  59948. duk__emit_jump(comp_ctx, pc_start);
  59949. /* no need to reset temps, as we're finished emitting code */
  59950. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59951. duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */
  59952. DUK_DDD(DUK_DDDPRINT("end parsing do statement"));
  59953. }
  59954. DUK_LOCAL void duk__parse_while_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) {
  59955. duk_regconst_t temp_reset;
  59956. duk_regconst_t rc_cond;
  59957. duk_int_t pc_start;
  59958. duk_int_t pc_jump_false;
  59959. DUK_DDD(DUK_DDDPRINT("begin parsing while statement"));
  59960. temp_reset = DUK__GETTEMP(comp_ctx);
  59961. duk__advance(comp_ctx); /* eat 'while' */
  59962. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  59963. pc_start = duk__get_current_pc(comp_ctx);
  59964. duk__patch_jump_here(comp_ctx, pc_label_site + 2); /* continue jump */
  59965. rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  59966. duk__emit_if_true_skip(comp_ctx, rc_cond);
  59967. pc_jump_false = duk__emit_jump_empty(comp_ctx);
  59968. DUK__SETTEMP(comp_ctx, temp_reset);
  59969. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  59970. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  59971. duk__emit_jump(comp_ctx, pc_start);
  59972. duk__patch_jump_here(comp_ctx, pc_jump_false);
  59973. duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */
  59974. DUK_DDD(DUK_DDDPRINT("end parsing while statement"));
  59975. }
  59976. DUK_LOCAL void duk__parse_break_or_continue_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  59977. duk_hthread *thr = comp_ctx->thr;
  59978. duk_bool_t is_break = (comp_ctx->curr_token.t == DUK_TOK_BREAK);
  59979. duk_int_t label_id;
  59980. duk_int_t label_catch_depth;
  59981. duk_int_t label_pc; /* points to LABEL; pc+1 = jump site for break; pc+2 = jump site for continue */
  59982. duk_bool_t label_is_closest;
  59983. DUK_UNREF(res);
  59984. duk__advance(comp_ctx); /* eat 'break' or 'continue' */
  59985. if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || /* explicit semi follows */
  59986. comp_ctx->curr_token.lineterm || /* automatic semi will be inserted */
  59987. comp_ctx->curr_token.allow_auto_semi) { /* automatic semi will be inserted */
  59988. /* break/continue without label */
  59989. duk__lookup_active_label(comp_ctx, DUK_HTHREAD_STRING_EMPTY_STRING(thr), is_break, &label_id, &label_catch_depth, &label_pc, &label_is_closest);
  59990. } else if (comp_ctx->curr_token.t == DUK_TOK_IDENTIFIER) {
  59991. /* break/continue with label (label cannot be a reserved word, production is 'Identifier' */
  59992. DUK_ASSERT(comp_ctx->curr_token.str1 != NULL);
  59993. duk__lookup_active_label(comp_ctx, comp_ctx->curr_token.str1, is_break, &label_id, &label_catch_depth, &label_pc, &label_is_closest);
  59994. duk__advance(comp_ctx);
  59995. } else {
  59996. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_BREAK_CONT_LABEL);
  59997. }
  59998. /* Use a fast break/continue when possible. A fast break/continue is
  59999. * just a jump to the LABEL break/continue jump slot, which then jumps
  60000. * to an appropriate place (for break, going through ENDLABEL correctly).
  60001. * The peephole optimizer will optimize the jump to a direct one.
  60002. */
  60003. if (label_catch_depth == comp_ctx->curr_func.catch_depth &&
  60004. label_is_closest) {
  60005. DUK_DDD(DUK_DDDPRINT("break/continue: is_break=%ld, label_id=%ld, label_is_closest=%ld, "
  60006. "label_catch_depth=%ld, catch_depth=%ld "
  60007. "-> use fast variant (direct jump)",
  60008. (long) is_break, (long) label_id, (long) label_is_closest,
  60009. (long) label_catch_depth, (long) comp_ctx->curr_func.catch_depth));
  60010. duk__emit_jump(comp_ctx, label_pc + (is_break ? 1 : 2));
  60011. } else {
  60012. DUK_DDD(DUK_DDDPRINT("break/continue: is_break=%ld, label_id=%ld, label_is_closest=%ld, "
  60013. "label_catch_depth=%ld, catch_depth=%ld "
  60014. "-> use slow variant (longjmp)",
  60015. (long) is_break, (long) label_id, (long) label_is_closest,
  60016. (long) label_catch_depth, (long) comp_ctx->curr_func.catch_depth));
  60017. duk__emit_bc(comp_ctx,
  60018. is_break ? DUK_OP_BREAK : DUK_OP_CONTINUE,
  60019. (duk_regconst_t) label_id);
  60020. }
  60021. }
  60022. DUK_LOCAL void duk__parse_return_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  60023. duk_hthread *thr = comp_ctx->thr;
  60024. duk_regconst_t rc_val;
  60025. duk__advance(comp_ctx); /* eat 'return' */
  60026. /* A 'return' statement is only allowed inside an actual function body,
  60027. * not as part of eval or global code.
  60028. */
  60029. if (!comp_ctx->curr_func.is_function) {
  60030. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_RETURN);
  60031. }
  60032. if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || /* explicit semi follows */
  60033. comp_ctx->curr_token.lineterm || /* automatic semi will be inserted */
  60034. comp_ctx->curr_token.allow_auto_semi) { /* automatic semi will be inserted */
  60035. DUK_DDD(DUK_DDDPRINT("empty return value -> undefined"));
  60036. duk__emit_op_only(comp_ctx, DUK_OP_RETUNDEF);
  60037. } else {
  60038. duk_int_t pc_before_expr;
  60039. duk_int_t pc_after_expr;
  60040. DUK_DDD(DUK_DDDPRINT("return with a value"));
  60041. DUK_UNREF(pc_before_expr);
  60042. DUK_UNREF(pc_after_expr);
  60043. pc_before_expr = duk__get_current_pc(comp_ctx);
  60044. rc_val = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  60045. pc_after_expr = duk__get_current_pc(comp_ctx);
  60046. /* Tail call check: if last opcode emitted was CALL, and
  60047. * the context allows it, add a tailcall flag to the CALL.
  60048. * This doesn't guarantee that a tail call will be allowed at
  60049. * runtime, so the RETURN must still be emitted. (Duktape
  60050. * 0.10.0 avoided this and simulated a RETURN if a tail call
  60051. * couldn't be used at runtime; but this didn't work
  60052. * correctly with a thread yield/resume, see
  60053. * test-bug-tailcall-thread-yield-resume.js for discussion.)
  60054. *
  60055. * In addition to the last opcode being CALL, we also need to
  60056. * be sure that 'rc_val' is the result register of the CALL.
  60057. * For instance, for the expression 'return 0, (function ()
  60058. * { return 1; }), 2' the last opcode emitted is CALL (no
  60059. * bytecode is emitted for '2') but 'rc_val' indicates
  60060. * constant '2'. Similarly if '2' is replaced by a register
  60061. * bound variable, no opcodes are emitted but tail call would
  60062. * be incorrect.
  60063. *
  60064. * This is tricky and easy to get wrong. It would be best to
  60065. * track enough expression metadata to check that 'rc_val' came
  60066. * from that last CALL instruction. We don't have that metadata
  60067. * now, so we check that 'rc_val' is a temporary register result
  60068. * (not a constant or a register bound variable). There should
  60069. * be no way currently for 'rc_val' to be a temporary for an
  60070. * expression following the CALL instruction without emitting
  60071. * some opcodes following the CALL. This proxy check is used
  60072. * below.
  60073. *
  60074. * See: test-bug-comma-expr-gh131.js.
  60075. *
  60076. * The non-standard 'caller' property disables tail calls
  60077. * because they pose some special cases which haven't been
  60078. * fixed yet.
  60079. */
  60080. #if defined(DUK_USE_TAILCALL)
  60081. if (comp_ctx->curr_func.catch_depth == 0 && /* no catchers */
  60082. pc_after_expr > pc_before_expr) { /* at least one opcode emitted */
  60083. duk_compiler_instr *instr;
  60084. duk_instr_t ins;
  60085. duk_small_uint_t op;
  60086. instr = duk__get_instr_ptr(comp_ctx, pc_after_expr - 1);
  60087. DUK_ASSERT(instr != NULL);
  60088. ins = instr->ins;
  60089. op = (duk_small_uint_t) DUK_DEC_OP(ins);
  60090. if ((op & ~0x0fU) == DUK_OP_CALL0 &&
  60091. DUK__ISREG_TEMP(comp_ctx, rc_val) /* see above */) {
  60092. DUK_DDD(DUK_DDDPRINT("return statement detected a tail call opportunity: "
  60093. "catch depth is 0, duk__exprtop() emitted >= 1 instructions, "
  60094. "and last instruction is a CALL "
  60095. "-> change to TAILCALL"));
  60096. ins |= DUK_ENC_OP(DUK_BC_CALL_FLAG_TAILCALL);
  60097. instr->ins = ins;
  60098. }
  60099. }
  60100. #endif /* DUK_USE_TAILCALL */
  60101. if (DUK__ISREG(rc_val)) {
  60102. duk__emit_bc(comp_ctx, DUK_OP_RETREG, rc_val);
  60103. } else {
  60104. rc_val = DUK__REMOVECONST(rc_val);
  60105. if (duk__const_needs_refcount(comp_ctx, rc_val)) {
  60106. duk__emit_bc(comp_ctx, DUK_OP_RETCONST, rc_val);
  60107. } else {
  60108. duk__emit_bc(comp_ctx, DUK_OP_RETCONSTN, rc_val);
  60109. }
  60110. }
  60111. }
  60112. }
  60113. DUK_LOCAL void duk__parse_throw_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  60114. duk_regconst_t reg_val;
  60115. duk__advance(comp_ctx); /* eat 'throw' */
  60116. /* Unlike break/continue, throw statement does not allow an empty value. */
  60117. if (comp_ctx->curr_token.lineterm) {
  60118. DUK_ERROR_SYNTAX(comp_ctx->thr, DUK_STR_INVALID_THROW);
  60119. }
  60120. reg_val = duk__exprtop_toreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  60121. duk__emit_bc(comp_ctx,
  60122. DUK_OP_THROW,
  60123. reg_val);
  60124. }
  60125. DUK_LOCAL void duk__parse_try_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  60126. duk_hthread *thr = comp_ctx->thr;
  60127. duk_regconst_t reg_catch; /* reg_catch+0 and reg_catch+1 are reserved for TRYCATCH */
  60128. duk_regconst_t rc_varname = 0;
  60129. duk_small_uint_t trycatch_flags = 0;
  60130. duk_int_t pc_ldconst = -1;
  60131. duk_int_t pc_trycatch = -1;
  60132. duk_int_t pc_catch = -1;
  60133. duk_int_t pc_finally = -1;
  60134. DUK_UNREF(res);
  60135. /*
  60136. * See the following documentation for discussion:
  60137. *
  60138. * doc/execution.rst: control flow details
  60139. *
  60140. * Try, catch, and finally "parts" are Blocks, not Statements, so
  60141. * they must always be delimited by curly braces. This is unlike e.g.
  60142. * the if statement, which accepts any Statement. This eliminates any
  60143. * questions of matching parts of nested try statements. The Block
  60144. * parsing is implemented inline here (instead of calling out).
  60145. *
  60146. * Finally part has a 'let scoped' variable, which requires a few kinks
  60147. * here.
  60148. */
  60149. comp_ctx->curr_func.catch_depth++;
  60150. duk__advance(comp_ctx); /* eat 'try' */
  60151. reg_catch = DUK__ALLOCTEMPS(comp_ctx, 2);
  60152. /* The target for this LDCONST may need output shuffling, but we assume
  60153. * that 'pc_ldconst' will be the LDCONST that we can patch later. This
  60154. * should be the case because there's no input shuffling. (If there's
  60155. * no catch clause, this LDCONST will be replaced with a NOP.)
  60156. */
  60157. pc_ldconst = duk__get_current_pc(comp_ctx);
  60158. duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, reg_catch, 0 /*patched later*/);
  60159. pc_trycatch = duk__get_current_pc(comp_ctx);
  60160. duk__emit_invalid(comp_ctx); /* TRYCATCH, cannot emit now (not enough info) */
  60161. duk__emit_invalid(comp_ctx); /* jump for 'catch' case */
  60162. duk__emit_invalid(comp_ctx); /* jump for 'finally' case or end (if no finally) */
  60163. /* try part */
  60164. duk__advance_expect(comp_ctx, DUK_TOK_LCURLY);
  60165. duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/);
  60166. /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */
  60167. duk__emit_op_only(comp_ctx,
  60168. DUK_OP_ENDTRY);
  60169. if (comp_ctx->curr_token.t == DUK_TOK_CATCH) {
  60170. /*
  60171. * The catch variable must be updated to reflect the new allocated
  60172. * register for the duration of the catch clause. We need to store
  60173. * and restore the original value for the varmap entry (if any).
  60174. */
  60175. /*
  60176. * Note: currently register bindings must be fixed for the entire
  60177. * function. So, even though the catch variable is in a register
  60178. * we know, we must use an explicit environment record and slow path
  60179. * accesses to read/write the catch binding to make closures created
  60180. * within the catch clause work correctly. This restriction should
  60181. * be fixable (at least in common cases) later.
  60182. *
  60183. * See: test-bug-catch-binding-2.js.
  60184. *
  60185. * XXX: improve to get fast path access to most catch clauses.
  60186. */
  60187. duk_hstring *h_var;
  60188. duk_int_t varmap_value; /* for storing/restoring the varmap binding for catch variable */
  60189. DUK_DDD(DUK_DDDPRINT("stack top at start of catch clause: %ld", (long) duk_get_top(thr)));
  60190. trycatch_flags |= DUK_BC_TRYCATCH_FLAG_HAVE_CATCH;
  60191. pc_catch = duk__get_current_pc(comp_ctx);
  60192. duk__advance(comp_ctx);
  60193. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  60194. if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) {
  60195. /* Identifier, i.e. don't allow reserved words */
  60196. goto syntax_error;
  60197. }
  60198. h_var = comp_ctx->curr_token.str1;
  60199. DUK_ASSERT(h_var != NULL);
  60200. duk_push_hstring(thr, h_var); /* keep in on valstack, use borrowed ref below */
  60201. if (comp_ctx->curr_func.is_strict &&
  60202. ((h_var == DUK_HTHREAD_STRING_EVAL(thr)) ||
  60203. (h_var == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr)))) {
  60204. DUK_DDD(DUK_DDDPRINT("catch identifier 'eval' or 'arguments' in strict mode -> SyntaxError"));
  60205. goto syntax_error;
  60206. }
  60207. duk_dup_top(thr);
  60208. rc_varname = duk__getconst(comp_ctx);
  60209. DUK_DDD(DUK_DDDPRINT("catch clause, rc_varname=0x%08lx (%ld)",
  60210. (unsigned long) rc_varname, (long) rc_varname));
  60211. duk__advance(comp_ctx);
  60212. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  60213. duk__advance_expect(comp_ctx, DUK_TOK_LCURLY);
  60214. DUK_DDD(DUK_DDDPRINT("varmap before modifying for catch clause: %!iT",
  60215. (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx)));
  60216. duk_dup_top(thr);
  60217. duk_get_prop(thr, comp_ctx->curr_func.varmap_idx);
  60218. if (duk_is_undefined(thr, -1)) {
  60219. varmap_value = -2;
  60220. } else if (duk_is_null(thr, -1)) {
  60221. varmap_value = -1;
  60222. } else {
  60223. DUK_ASSERT(duk_is_number(thr, -1));
  60224. varmap_value = duk_get_int(thr, -1);
  60225. DUK_ASSERT(varmap_value >= 0);
  60226. }
  60227. duk_pop(thr);
  60228. #if 0
  60229. /* It'd be nice to do something like this - but it doesn't
  60230. * work for closures created inside the catch clause.
  60231. */
  60232. duk_dup_top(thr);
  60233. duk_push_int(thr, (duk_int_t) (reg_catch + 0));
  60234. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx);
  60235. #endif
  60236. duk_dup_top(thr);
  60237. duk_push_null(thr);
  60238. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx);
  60239. duk__emit_a_bc(comp_ctx,
  60240. DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE,
  60241. reg_catch + 0 /*value*/,
  60242. rc_varname /*varname*/);
  60243. DUK_DDD(DUK_DDDPRINT("varmap before parsing catch clause: %!iT",
  60244. (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx)));
  60245. duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/);
  60246. /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */
  60247. if (varmap_value == -2) {
  60248. /* not present */
  60249. duk_del_prop(thr, comp_ctx->curr_func.varmap_idx);
  60250. } else {
  60251. if (varmap_value == -1) {
  60252. duk_push_null(thr);
  60253. } else {
  60254. DUK_ASSERT(varmap_value >= 0);
  60255. duk_push_int(thr, varmap_value);
  60256. }
  60257. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx);
  60258. }
  60259. /* varname is popped by above code */
  60260. DUK_DDD(DUK_DDDPRINT("varmap after restore catch clause: %!iT",
  60261. (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx)));
  60262. duk__emit_op_only(comp_ctx,
  60263. DUK_OP_ENDCATCH);
  60264. /*
  60265. * XXX: for now, indicate that an expensive catch binding
  60266. * declarative environment is always needed. If we don't
  60267. * need it, we don't need the const_varname either.
  60268. */
  60269. trycatch_flags |= DUK_BC_TRYCATCH_FLAG_CATCH_BINDING;
  60270. DUK_DDD(DUK_DDDPRINT("stack top at end of catch clause: %ld", (long) duk_get_top(thr)));
  60271. }
  60272. if (comp_ctx->curr_token.t == DUK_TOK_FINALLY) {
  60273. trycatch_flags |= DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY;
  60274. pc_finally = duk__get_current_pc(comp_ctx);
  60275. duk__advance(comp_ctx);
  60276. duk__advance_expect(comp_ctx, DUK_TOK_LCURLY);
  60277. duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/);
  60278. /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */
  60279. duk__emit_abc(comp_ctx,
  60280. DUK_OP_ENDFIN,
  60281. reg_catch); /* rethrow */
  60282. }
  60283. if (!(trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) &&
  60284. !(trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY)) {
  60285. /* must have catch and/or finally */
  60286. goto syntax_error;
  60287. }
  60288. /* If there's no catch block, rc_varname will be 0 and duk__patch_trycatch()
  60289. * will replace the LDCONST with a NOP. For any actual constant (including
  60290. * constant 0) the DUK__CONST_MARKER flag will be set in rc_varname.
  60291. */
  60292. duk__patch_trycatch(comp_ctx,
  60293. pc_ldconst,
  60294. pc_trycatch,
  60295. reg_catch,
  60296. rc_varname,
  60297. trycatch_flags);
  60298. if (trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) {
  60299. DUK_ASSERT(pc_catch >= 0);
  60300. duk__patch_jump(comp_ctx, pc_trycatch + 1, pc_catch);
  60301. }
  60302. if (trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY) {
  60303. DUK_ASSERT(pc_finally >= 0);
  60304. duk__patch_jump(comp_ctx, pc_trycatch + 2, pc_finally);
  60305. } else {
  60306. /* without finally, the second jump slot is used to jump to end of stmt */
  60307. duk__patch_jump_here(comp_ctx, pc_trycatch + 2);
  60308. }
  60309. comp_ctx->curr_func.catch_depth--;
  60310. return;
  60311. syntax_error:
  60312. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_TRY);
  60313. }
  60314. DUK_LOCAL void duk__parse_with_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) {
  60315. duk_int_t pc_trycatch;
  60316. duk_int_t pc_finished;
  60317. duk_regconst_t reg_catch;
  60318. duk_small_uint_t trycatch_flags;
  60319. if (comp_ctx->curr_func.is_strict) {
  60320. DUK_ERROR_SYNTAX(comp_ctx->thr, DUK_STR_WITH_IN_STRICT_MODE);
  60321. }
  60322. comp_ctx->curr_func.catch_depth++;
  60323. duk__advance(comp_ctx); /* eat 'with' */
  60324. reg_catch = DUK__ALLOCTEMPS(comp_ctx, 2);
  60325. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  60326. duk__exprtop_toforcedreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/, reg_catch);
  60327. duk__advance_expect(comp_ctx, DUK_TOK_RPAREN);
  60328. pc_trycatch = duk__get_current_pc(comp_ctx);
  60329. trycatch_flags = DUK_BC_TRYCATCH_FLAG_WITH_BINDING;
  60330. duk__emit_a_bc(comp_ctx,
  60331. DUK_OP_TRYCATCH | DUK__EMIT_FLAG_NO_SHUFFLE_A,
  60332. (duk_regconst_t) trycatch_flags /*a*/,
  60333. reg_catch /*bc*/);
  60334. duk__emit_invalid(comp_ctx); /* catch jump */
  60335. duk__emit_invalid(comp_ctx); /* finished jump */
  60336. duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/);
  60337. duk__emit_op_only(comp_ctx,
  60338. DUK_OP_ENDTRY);
  60339. pc_finished = duk__get_current_pc(comp_ctx);
  60340. duk__patch_jump(comp_ctx, pc_trycatch + 2, pc_finished);
  60341. comp_ctx->curr_func.catch_depth--;
  60342. }
  60343. DUK_LOCAL duk_int_t duk__stmt_label_site(duk_compiler_ctx *comp_ctx, duk_int_t label_id) {
  60344. /* if a site already exists, nop: max one label site per statement */
  60345. if (label_id >= 0) {
  60346. return label_id;
  60347. }
  60348. label_id = comp_ctx->curr_func.label_next++;
  60349. DUK_DDD(DUK_DDDPRINT("allocated new label id for label site: %ld", (long) label_id));
  60350. duk__emit_bc(comp_ctx,
  60351. DUK_OP_LABEL,
  60352. (duk_regconst_t) label_id);
  60353. duk__emit_invalid(comp_ctx);
  60354. duk__emit_invalid(comp_ctx);
  60355. return label_id;
  60356. }
  60357. /* Parse a single statement.
  60358. *
  60359. * Creates a label site (with an empty label) automatically for iteration
  60360. * statements. Also "peels off" any label statements for explicit labels.
  60361. */
  60362. DUK_LOCAL void duk__parse_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_bool_t allow_source_elem) {
  60363. duk_hthread *thr = comp_ctx->thr;
  60364. duk_bool_t dir_prol_at_entry; /* directive prologue status at entry */
  60365. duk_regconst_t temp_at_entry;
  60366. duk_size_t labels_len_at_entry;
  60367. duk_int_t pc_at_entry; /* assumed to also be PC of "LABEL" */
  60368. duk_int_t stmt_id;
  60369. duk_small_uint_t stmt_flags = 0;
  60370. duk_int_t label_id = -1;
  60371. duk_small_uint_t tok;
  60372. duk_bool_t test_func_decl;
  60373. DUK__RECURSION_INCREASE(comp_ctx, thr);
  60374. temp_at_entry = DUK__GETTEMP(comp_ctx);
  60375. pc_at_entry = duk__get_current_pc(comp_ctx);
  60376. labels_len_at_entry = duk_get_length(thr, comp_ctx->curr_func.labelnames_idx);
  60377. stmt_id = comp_ctx->curr_func.stmt_next++;
  60378. dir_prol_at_entry = comp_ctx->curr_func.in_directive_prologue;
  60379. DUK_UNREF(stmt_id);
  60380. DUK_DDD(DUK_DDDPRINT("parsing a statement, stmt_id=%ld, temp_at_entry=%ld, labels_len_at_entry=%ld, "
  60381. "is_strict=%ld, in_directive_prologue=%ld, catch_depth=%ld",
  60382. (long) stmt_id, (long) temp_at_entry, (long) labels_len_at_entry,
  60383. (long) comp_ctx->curr_func.is_strict, (long) comp_ctx->curr_func.in_directive_prologue,
  60384. (long) comp_ctx->curr_func.catch_depth));
  60385. /* The directive prologue flag is cleared by default so that it is
  60386. * unset for any recursive statement parsing. It is only "revived"
  60387. * if a directive is detected. (We could also make directives only
  60388. * allowed if 'allow_source_elem' was true.)
  60389. */
  60390. comp_ctx->curr_func.in_directive_prologue = 0;
  60391. retry_parse:
  60392. DUK_DDD(DUK_DDDPRINT("try stmt parse, stmt_id=%ld, label_id=%ld, allow_source_elem=%ld, catch_depth=%ld",
  60393. (long) stmt_id, (long) label_id, (long) allow_source_elem,
  60394. (long) comp_ctx->curr_func.catch_depth));
  60395. /*
  60396. * Detect iteration statements; if encountered, establish an
  60397. * empty label.
  60398. */
  60399. tok = comp_ctx->curr_token.t;
  60400. if (tok == DUK_TOK_FOR || tok == DUK_TOK_DO || tok == DUK_TOK_WHILE ||
  60401. tok == DUK_TOK_SWITCH) {
  60402. DUK_DDD(DUK_DDDPRINT("iteration/switch statement -> add empty label"));
  60403. label_id = duk__stmt_label_site(comp_ctx, label_id);
  60404. duk__add_label(comp_ctx,
  60405. DUK_HTHREAD_STRING_EMPTY_STRING(thr),
  60406. pc_at_entry /*pc_label*/,
  60407. label_id);
  60408. }
  60409. /*
  60410. * Main switch for statement / source element type.
  60411. */
  60412. switch (comp_ctx->curr_token.t) {
  60413. case DUK_TOK_FUNCTION: {
  60414. /*
  60415. * Function declaration, function expression, or (non-standard)
  60416. * function statement.
  60417. *
  60418. * The E5 specification only allows function declarations at
  60419. * the top level (in "source elements"). An ExpressionStatement
  60420. * is explicitly not allowed to begin with a "function" keyword
  60421. * (E5 Section 12.4). Hence any non-error semantics for such
  60422. * non-top-level statements are non-standard. Duktape semantics
  60423. * for function statements are modelled after V8, see
  60424. * test-dev-func-decl-outside-top.js.
  60425. */
  60426. test_func_decl = allow_source_elem;
  60427. #if defined(DUK_USE_NONSTD_FUNC_STMT)
  60428. /* Lenient: allow function declarations outside top level in
  60429. * non-strict mode but reject them in strict mode.
  60430. */
  60431. test_func_decl = test_func_decl || !comp_ctx->curr_func.is_strict;
  60432. #endif /* DUK_USE_NONSTD_FUNC_STMT */
  60433. /* Strict: never allow function declarations outside top level. */
  60434. if (test_func_decl) {
  60435. /* FunctionDeclaration: not strictly a statement but handled as such.
  60436. *
  60437. * O(depth^2) parse count for inner functions is handled by recording a
  60438. * lexer offset on the first compilation pass, so that the function can
  60439. * be efficiently skipped on the second pass. This is encapsulated into
  60440. * duk__parse_func_like_fnum().
  60441. */
  60442. duk_int_t fnum;
  60443. #if defined(DUK_USE_ASSERTIONS)
  60444. duk_idx_t top_before;
  60445. #endif
  60446. DUK_DDD(DUK_DDDPRINT("function declaration statement"));
  60447. #if defined(DUK_USE_ASSERTIONS)
  60448. top_before = duk_get_top(thr);
  60449. #endif
  60450. duk__advance(comp_ctx); /* eat 'function' */
  60451. fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_DECL | DUK__FUNC_FLAG_PUSHNAME_PASS1);
  60452. /* The value stack convention here is a bit odd: the function
  60453. * name is only pushed on pass 1 (in_scanning), and is needed
  60454. * to process function declarations.
  60455. */
  60456. if (comp_ctx->curr_func.in_scanning) {
  60457. duk_uarridx_t n;
  60458. #if defined(DUK_USE_ASSERTIONS)
  60459. DUK_ASSERT(duk_get_top(thr) == top_before + 1);
  60460. #endif
  60461. DUK_DDD(DUK_DDDPRINT("register function declaration %!T in pass 1, fnum %ld",
  60462. duk_get_tval(thr, -1), (long) fnum));
  60463. n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx);
  60464. /* funcname is at index -1 */
  60465. duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n);
  60466. duk_push_int(thr, (duk_int_t) (DUK_DECL_TYPE_FUNC + (fnum << 8)));
  60467. duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n + 1);
  60468. } else {
  60469. #if defined(DUK_USE_ASSERTIONS)
  60470. DUK_ASSERT(duk_get_top(thr) == top_before);
  60471. #endif
  60472. }
  60473. /* no statement value (unlike function expression) */
  60474. stmt_flags = 0;
  60475. break;
  60476. } else {
  60477. DUK_ERROR_SYNTAX(thr, DUK_STR_FUNC_STMT_NOT_ALLOWED);
  60478. }
  60479. break;
  60480. }
  60481. case DUK_TOK_LCURLY: {
  60482. DUK_DDD(DUK_DDDPRINT("block statement"));
  60483. duk__advance(comp_ctx);
  60484. duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/);
  60485. /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */
  60486. if (label_id >= 0) {
  60487. duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */
  60488. }
  60489. stmt_flags = 0;
  60490. break;
  60491. }
  60492. case DUK_TOK_CONST: {
  60493. DUK_DDD(DUK_DDDPRINT("constant declaration statement"));
  60494. duk__parse_var_stmt(comp_ctx, res, DUK__EXPR_FLAG_REQUIRE_INIT /*expr_flags*/);
  60495. stmt_flags = DUK__HAS_TERM;
  60496. break;
  60497. }
  60498. case DUK_TOK_VAR: {
  60499. DUK_DDD(DUK_DDDPRINT("variable declaration statement"));
  60500. duk__parse_var_stmt(comp_ctx, res, 0 /*expr_flags*/);
  60501. stmt_flags = DUK__HAS_TERM;
  60502. break;
  60503. }
  60504. case DUK_TOK_SEMICOLON: {
  60505. /* empty statement with an explicit semicolon */
  60506. DUK_DDD(DUK_DDDPRINT("empty statement"));
  60507. stmt_flags = DUK__HAS_TERM;
  60508. break;
  60509. }
  60510. case DUK_TOK_IF: {
  60511. DUK_DDD(DUK_DDDPRINT("if statement"));
  60512. duk__parse_if_stmt(comp_ctx, res);
  60513. if (label_id >= 0) {
  60514. duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */
  60515. }
  60516. stmt_flags = 0;
  60517. break;
  60518. }
  60519. case DUK_TOK_DO: {
  60520. /*
  60521. * Do-while statement is mostly trivial, but there is special
  60522. * handling for automatic semicolon handling (triggered by the
  60523. * DUK__ALLOW_AUTO_SEMI_ALWAYS) flag related to a bug filed at:
  60524. *
  60525. * https://bugs.ecmascript.org/show_bug.cgi?id=8
  60526. *
  60527. * See doc/compiler.rst for details.
  60528. */
  60529. DUK_DDD(DUK_DDDPRINT("do statement"));
  60530. DUK_ASSERT(label_id >= 0);
  60531. duk__update_label_flags(comp_ctx,
  60532. label_id,
  60533. DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE);
  60534. duk__parse_do_stmt(comp_ctx, res, pc_at_entry);
  60535. stmt_flags = DUK__HAS_TERM | DUK__ALLOW_AUTO_SEMI_ALWAYS; /* DUK__ALLOW_AUTO_SEMI_ALWAYS workaround */
  60536. break;
  60537. }
  60538. case DUK_TOK_WHILE: {
  60539. DUK_DDD(DUK_DDDPRINT("while statement"));
  60540. DUK_ASSERT(label_id >= 0);
  60541. duk__update_label_flags(comp_ctx,
  60542. label_id,
  60543. DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE);
  60544. duk__parse_while_stmt(comp_ctx, res, pc_at_entry);
  60545. stmt_flags = 0;
  60546. break;
  60547. }
  60548. case DUK_TOK_FOR: {
  60549. /*
  60550. * For/for-in statement is complicated to parse because
  60551. * determining the statement type (three-part for vs. a
  60552. * for-in) requires potential backtracking.
  60553. *
  60554. * See the helper for the messy stuff.
  60555. */
  60556. DUK_DDD(DUK_DDDPRINT("for/for-in statement"));
  60557. DUK_ASSERT(label_id >= 0);
  60558. duk__update_label_flags(comp_ctx,
  60559. label_id,
  60560. DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE);
  60561. duk__parse_for_stmt(comp_ctx, res, pc_at_entry);
  60562. stmt_flags = 0;
  60563. break;
  60564. }
  60565. case DUK_TOK_CONTINUE:
  60566. case DUK_TOK_BREAK: {
  60567. DUK_DDD(DUK_DDDPRINT("break/continue statement"));
  60568. duk__parse_break_or_continue_stmt(comp_ctx, res);
  60569. stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL;
  60570. break;
  60571. }
  60572. case DUK_TOK_RETURN: {
  60573. DUK_DDD(DUK_DDDPRINT("return statement"));
  60574. duk__parse_return_stmt(comp_ctx, res);
  60575. stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL;
  60576. break;
  60577. }
  60578. case DUK_TOK_WITH: {
  60579. DUK_DDD(DUK_DDDPRINT("with statement"));
  60580. comp_ctx->curr_func.with_depth++;
  60581. duk__parse_with_stmt(comp_ctx, res);
  60582. if (label_id >= 0) {
  60583. duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */
  60584. }
  60585. comp_ctx->curr_func.with_depth--;
  60586. stmt_flags = 0;
  60587. break;
  60588. }
  60589. case DUK_TOK_SWITCH: {
  60590. /*
  60591. * The switch statement is pretty messy to compile.
  60592. * See the helper for details.
  60593. */
  60594. DUK_DDD(DUK_DDDPRINT("switch statement"));
  60595. DUK_ASSERT(label_id >= 0);
  60596. duk__update_label_flags(comp_ctx,
  60597. label_id,
  60598. DUK_LABEL_FLAG_ALLOW_BREAK); /* don't allow continue */
  60599. duk__parse_switch_stmt(comp_ctx, res, pc_at_entry);
  60600. stmt_flags = 0;
  60601. break;
  60602. }
  60603. case DUK_TOK_THROW: {
  60604. DUK_DDD(DUK_DDDPRINT("throw statement"));
  60605. duk__parse_throw_stmt(comp_ctx, res);
  60606. stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL;
  60607. break;
  60608. }
  60609. case DUK_TOK_TRY: {
  60610. DUK_DDD(DUK_DDDPRINT("try statement"));
  60611. duk__parse_try_stmt(comp_ctx, res);
  60612. stmt_flags = 0;
  60613. break;
  60614. }
  60615. case DUK_TOK_DEBUGGER: {
  60616. duk__advance(comp_ctx);
  60617. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  60618. DUK_DDD(DUK_DDDPRINT("debugger statement: debugging enabled, emit debugger opcode"));
  60619. duk__emit_op_only(comp_ctx, DUK_OP_DEBUGGER);
  60620. #else
  60621. DUK_DDD(DUK_DDDPRINT("debugger statement: ignored"));
  60622. #endif
  60623. stmt_flags = DUK__HAS_TERM;
  60624. break;
  60625. }
  60626. default: {
  60627. /*
  60628. * Else, must be one of:
  60629. * - ExpressionStatement, possibly a directive (String)
  60630. * - LabelledStatement (Identifier followed by ':')
  60631. *
  60632. * Expressions beginning with 'function' keyword are covered by a case
  60633. * above (such expressions are not allowed in standard E5 anyway).
  60634. * Also expressions starting with '{' are interpreted as block
  60635. * statements. See E5 Section 12.4.
  60636. *
  60637. * Directive detection is tricky; see E5 Section 14.1 on directive
  60638. * prologue. A directive is an expression statement with a single
  60639. * string literal and an explicit or automatic semicolon. Escape
  60640. * characters are significant and no parens etc are allowed:
  60641. *
  60642. * 'use strict'; // valid 'use strict' directive
  60643. * 'use\u0020strict'; // valid directive, not a 'use strict' directive
  60644. * ('use strict'); // not a valid directive
  60645. *
  60646. * The expression is determined to consist of a single string literal
  60647. * based on duk__expr_nud() and duk__expr_led() call counts. The string literal
  60648. * of a 'use strict' directive is determined to lack any escapes based
  60649. * num_escapes count from the lexer. Note that other directives may be
  60650. * allowed to contain escapes, so a directive with escapes does not
  60651. * terminate a directive prologue.
  60652. *
  60653. * We rely on the fact that the expression parser will not emit any
  60654. * code for a single token expression. However, it will generate an
  60655. * intermediate value which we will then successfully ignore.
  60656. *
  60657. * A similar approach is used for labels.
  60658. */
  60659. duk_bool_t single_token;
  60660. DUK_DDD(DUK_DDDPRINT("expression statement"));
  60661. duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/);
  60662. single_token = (comp_ctx->curr_func.nud_count == 1 && /* one token */
  60663. comp_ctx->curr_func.led_count == 0); /* no operators */
  60664. if (single_token &&
  60665. comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER &&
  60666. comp_ctx->curr_token.t == DUK_TOK_COLON) {
  60667. /*
  60668. * Detected label
  60669. */
  60670. duk_hstring *h_lab;
  60671. /* expected ival */
  60672. DUK_ASSERT(res->t == DUK_IVAL_VAR);
  60673. DUK_ASSERT(res->x1.t == DUK_ISPEC_VALUE);
  60674. DUK_ASSERT(DUK_TVAL_IS_STRING(duk_get_tval(thr, res->x1.valstack_idx)));
  60675. h_lab = comp_ctx->prev_token.str1;
  60676. DUK_ASSERT(h_lab != NULL);
  60677. DUK_DDD(DUK_DDDPRINT("explicit label site for label '%!O'",
  60678. (duk_heaphdr *) h_lab));
  60679. duk__advance(comp_ctx); /* eat colon */
  60680. label_id = duk__stmt_label_site(comp_ctx, label_id);
  60681. duk__add_label(comp_ctx,
  60682. h_lab,
  60683. pc_at_entry /*pc_label*/,
  60684. label_id);
  60685. /* a statement following a label cannot be a source element
  60686. * (a function declaration).
  60687. */
  60688. allow_source_elem = 0;
  60689. DUK_DDD(DUK_DDDPRINT("label handled, retry statement parsing"));
  60690. goto retry_parse;
  60691. }
  60692. stmt_flags = 0;
  60693. if (dir_prol_at_entry && /* still in prologue */
  60694. single_token && /* single string token */
  60695. comp_ctx->prev_token.t == DUK_TOK_STRING) {
  60696. /*
  60697. * Detected a directive
  60698. */
  60699. duk_hstring *h_dir;
  60700. /* expected ival */
  60701. DUK_ASSERT(res->t == DUK_IVAL_PLAIN);
  60702. DUK_ASSERT(res->x1.t == DUK_ISPEC_VALUE);
  60703. DUK_ASSERT(DUK_TVAL_IS_STRING(duk_get_tval(thr, res->x1.valstack_idx)));
  60704. h_dir = comp_ctx->prev_token.str1;
  60705. DUK_ASSERT(h_dir != NULL);
  60706. DUK_DDD(DUK_DDDPRINT("potential directive: %!O", h_dir));
  60707. stmt_flags |= DUK__STILL_PROLOGUE;
  60708. /* Note: escaped characters differentiate directives */
  60709. if (comp_ctx->prev_token.num_escapes > 0) {
  60710. DUK_DDD(DUK_DDDPRINT("directive contains escapes: valid directive "
  60711. "but we ignore such directives"));
  60712. } else {
  60713. /*
  60714. * The length comparisons are present to handle
  60715. * strings like "use strict\u0000foo" as required.
  60716. */
  60717. if (DUK_HSTRING_GET_BYTELEN(h_dir) == 10 &&
  60718. DUK_STRNCMP((const char *) DUK_HSTRING_GET_DATA(h_dir), "use strict", 10) == 0) {
  60719. #if defined(DUK_USE_STRICT_DECL)
  60720. DUK_DDD(DUK_DDDPRINT("use strict directive detected: strict flag %ld -> %ld",
  60721. (long) comp_ctx->curr_func.is_strict, (long) 1));
  60722. comp_ctx->curr_func.is_strict = 1;
  60723. #else
  60724. DUK_DDD(DUK_DDDPRINT("use strict detected but strict declarations disabled, ignoring"));
  60725. #endif
  60726. } else if (DUK_HSTRING_GET_BYTELEN(h_dir) == 14 &&
  60727. DUK_STRNCMP((const char *) DUK_HSTRING_GET_DATA(h_dir), "use duk notail", 14) == 0) {
  60728. DUK_DDD(DUK_DDDPRINT("use duk notail directive detected: notail flag %ld -> %ld",
  60729. (long) comp_ctx->curr_func.is_notail, (long) 1));
  60730. comp_ctx->curr_func.is_notail = 1;
  60731. } else {
  60732. DUK_DD(DUK_DDPRINT("unknown directive: '%!O', ignoring but not terminating "
  60733. "directive prologue", (duk_hobject *) h_dir));
  60734. }
  60735. }
  60736. } else {
  60737. DUK_DDD(DUK_DDDPRINT("non-directive expression statement or no longer in prologue; "
  60738. "prologue terminated if still active"));
  60739. }
  60740. stmt_flags |= DUK__HAS_VAL | DUK__HAS_TERM;
  60741. }
  60742. } /* end switch (tok) */
  60743. /*
  60744. * Statement value handling.
  60745. *
  60746. * Global code and eval code has an implicit return value
  60747. * which comes from the last statement with a value
  60748. * (technically a non-"empty" continuation, which is
  60749. * different from an empty statement).
  60750. *
  60751. * Since we don't know whether a later statement will
  60752. * override the value of the current statement, we need
  60753. * to coerce the statement value to a register allocated
  60754. * for implicit return values. In other cases we need
  60755. * to coerce the statement value to a plain value to get
  60756. * any side effects out (consider e.g. "foo.bar;").
  60757. */
  60758. /* XXX: what about statements which leave a half-cooked value in 'res'
  60759. * but have no stmt value? Any such statements?
  60760. */
  60761. if (stmt_flags & DUK__HAS_VAL) {
  60762. duk_regconst_t reg_stmt_value = comp_ctx->curr_func.reg_stmt_value;
  60763. if (reg_stmt_value >= 0) {
  60764. duk__ivalue_toforcedreg(comp_ctx, res, reg_stmt_value);
  60765. } else {
  60766. duk__ivalue_toplain_ignore(comp_ctx, res);
  60767. }
  60768. } else {
  60769. ;
  60770. }
  60771. /*
  60772. * Statement terminator check, including automatic semicolon
  60773. * handling. After this step, 'curr_tok' should be the first
  60774. * token after a possible statement terminator.
  60775. */
  60776. if (stmt_flags & DUK__HAS_TERM) {
  60777. if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON) {
  60778. DUK_DDD(DUK_DDDPRINT("explicit semicolon terminates statement"));
  60779. duk__advance(comp_ctx);
  60780. } else {
  60781. if (comp_ctx->curr_token.allow_auto_semi) {
  60782. DUK_DDD(DUK_DDDPRINT("automatic semicolon terminates statement"));
  60783. } else if (stmt_flags & DUK__ALLOW_AUTO_SEMI_ALWAYS) {
  60784. /* XXX: make this lenience dependent on flags or strictness? */
  60785. DUK_DDD(DUK_DDDPRINT("automatic semicolon terminates statement (allowed for compatibility "
  60786. "even though no lineterm present before next token)"));
  60787. } else {
  60788. DUK_ERROR_SYNTAX(thr, DUK_STR_UNTERMINATED_STMT);
  60789. }
  60790. }
  60791. } else {
  60792. DUK_DDD(DUK_DDDPRINT("statement has no terminator"));
  60793. }
  60794. /*
  60795. * Directive prologue tracking.
  60796. */
  60797. if (stmt_flags & DUK__STILL_PROLOGUE) {
  60798. DUK_DDD(DUK_DDDPRINT("setting in_directive_prologue"));
  60799. comp_ctx->curr_func.in_directive_prologue = 1;
  60800. }
  60801. /*
  60802. * Cleanups (all statement parsing flows through here).
  60803. *
  60804. * Pop label site and reset labels. Reset 'next temp' to value at
  60805. * entry to reuse temps.
  60806. */
  60807. if (label_id >= 0) {
  60808. duk__emit_bc(comp_ctx,
  60809. DUK_OP_ENDLABEL,
  60810. (duk_regconst_t) label_id);
  60811. }
  60812. DUK__SETTEMP(comp_ctx, temp_at_entry);
  60813. duk__reset_labels_to_length(comp_ctx, labels_len_at_entry);
  60814. /* XXX: return indication of "terminalness" (e.g. a 'throw' is terminal) */
  60815. DUK__RECURSION_DECREASE(comp_ctx, thr);
  60816. }
  60817. /*
  60818. * Parse a statement list.
  60819. *
  60820. * Handles automatic semicolon insertion and implicit return value.
  60821. *
  60822. * Upon entry, 'curr_tok' should contain the first token of the first
  60823. * statement (parsed in the "allow regexp literal" mode). Upon exit,
  60824. * 'curr_tok' contains the token following the statement list terminator
  60825. * (EOF or closing brace).
  60826. */
  60827. DUK_LOCAL void duk__parse_stmts(duk_compiler_ctx *comp_ctx, duk_bool_t allow_source_elem, duk_bool_t expect_eof) {
  60828. duk_hthread *thr = comp_ctx->thr;
  60829. duk_ivalue res_alloc;
  60830. duk_ivalue *res = &res_alloc;
  60831. /* Setup state. Initial ivalue is 'undefined'. */
  60832. duk_require_stack(thr, DUK__PARSE_STATEMENTS_SLOTS);
  60833. /* XXX: 'res' setup can be moved to function body level; in fact, two 'res'
  60834. * intermediate values suffice for parsing of each function. Nesting is needed
  60835. * for nested functions (which may occur inside expressions).
  60836. */
  60837. DUK_MEMZERO(&res_alloc, sizeof(res_alloc));
  60838. res->t = DUK_IVAL_PLAIN;
  60839. res->x1.t = DUK_ISPEC_VALUE;
  60840. res->x1.valstack_idx = duk_get_top(thr);
  60841. res->x2.valstack_idx = res->x1.valstack_idx + 1;
  60842. duk_push_undefined(thr);
  60843. duk_push_undefined(thr);
  60844. /* Parse statements until a closing token (EOF or '}') is found. */
  60845. for (;;) {
  60846. /* Check whether statement list ends. */
  60847. if (expect_eof) {
  60848. if (comp_ctx->curr_token.t == DUK_TOK_EOF) {
  60849. break;
  60850. }
  60851. } else {
  60852. if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) {
  60853. break;
  60854. }
  60855. }
  60856. /* Check statement type based on the first token type.
  60857. *
  60858. * Note: expression parsing helpers expect 'curr_tok' to
  60859. * contain the first token of the expression upon entry.
  60860. */
  60861. DUK_DDD(DUK_DDDPRINT("TOKEN %ld (non-whitespace, non-comment)", (long) comp_ctx->curr_token.t));
  60862. duk__parse_stmt(comp_ctx, res, allow_source_elem);
  60863. }
  60864. duk__advance(comp_ctx);
  60865. /* Tear down state. */
  60866. duk_pop_2(thr);
  60867. }
  60868. /*
  60869. * Declaration binding instantiation conceptually happens when calling a
  60870. * function; for us it essentially means that function prologue. The
  60871. * conceptual process is described in E5 Section 10.5.
  60872. *
  60873. * We need to keep track of all encountered identifiers to (1) create an
  60874. * identifier-to-register map ("varmap"); and (2) detect duplicate
  60875. * declarations. Identifiers which are not bound to registers still need
  60876. * to be tracked for detecting duplicates. Currently such identifiers
  60877. * are put into the varmap with a 'null' value, which is later cleaned up.
  60878. *
  60879. * To support functions with a large number of variable and function
  60880. * declarations, registers are not allocated beyond a certain limit;
  60881. * after that limit, variables and functions need slow path access.
  60882. * Arguments are currently always register bound, which imposes a hard
  60883. * (and relatively small) argument count limit.
  60884. *
  60885. * Some bindings in E5 are not configurable (= deletable) and almost all
  60886. * are mutable (writable). Exceptions are:
  60887. *
  60888. * - The 'arguments' binding, established only if no shadowing argument
  60889. * or function declaration exists. We handle 'arguments' creation
  60890. * and binding through an explicit slow path environment record.
  60891. *
  60892. * - The "name" binding for a named function expression. This is also
  60893. * handled through an explicit slow path environment record.
  60894. */
  60895. /* XXX: add support for variables to not be register bound always, to
  60896. * handle cases with a very large number of variables?
  60897. */
  60898. DUK_LOCAL void duk__init_varmap_and_prologue_for_pass2(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_stmt_value_reg) {
  60899. duk_hthread *thr = comp_ctx->thr;
  60900. duk_hstring *h_name;
  60901. duk_bool_t configurable_bindings;
  60902. duk_uarridx_t num_args;
  60903. duk_uarridx_t num_decls;
  60904. duk_regconst_t rc_name;
  60905. duk_small_uint_t declvar_flags;
  60906. duk_uarridx_t i;
  60907. #if defined(DUK_USE_ASSERTIONS)
  60908. duk_idx_t entry_top;
  60909. #endif
  60910. #if defined(DUK_USE_ASSERTIONS)
  60911. entry_top = duk_get_top(thr);
  60912. #endif
  60913. /*
  60914. * Preliminaries
  60915. */
  60916. configurable_bindings = comp_ctx->curr_func.is_eval;
  60917. DUK_DDD(DUK_DDDPRINT("configurable_bindings=%ld", (long) configurable_bindings));
  60918. /* varmap is already in comp_ctx->curr_func.varmap_idx */
  60919. /*
  60920. * Function formal arguments, always bound to registers
  60921. * (there's no support for shuffling them now).
  60922. */
  60923. num_args = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.argnames_idx);
  60924. DUK_DDD(DUK_DDDPRINT("num_args=%ld", (long) num_args));
  60925. /* XXX: check num_args */
  60926. for (i = 0; i < num_args; i++) {
  60927. duk_get_prop_index(thr, comp_ctx->curr_func.argnames_idx, i);
  60928. h_name = duk_known_hstring(thr, -1);
  60929. if (comp_ctx->curr_func.is_strict) {
  60930. if (duk__hstring_is_eval_or_arguments(comp_ctx, h_name)) {
  60931. DUK_DDD(DUK_DDDPRINT("arg named 'eval' or 'arguments' in strict mode -> SyntaxError"));
  60932. goto error_argname;
  60933. }
  60934. duk_dup_top(thr);
  60935. if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) {
  60936. DUK_DDD(DUK_DDDPRINT("duplicate arg name in strict mode -> SyntaxError"));
  60937. goto error_argname;
  60938. }
  60939. /* Ensure argument name is not a reserved word in current
  60940. * (final) strictness. Formal argument parsing may not
  60941. * catch reserved names if strictness changes during
  60942. * parsing.
  60943. *
  60944. * We only need to do this in strict mode because non-strict
  60945. * keyword are always detected in formal argument parsing.
  60946. */
  60947. if (DUK_HSTRING_HAS_STRICT_RESERVED_WORD(h_name)) {
  60948. goto error_argname;
  60949. }
  60950. }
  60951. /* overwrite any previous binding of the same name; the effect is
  60952. * that last argument of a certain name wins.
  60953. */
  60954. /* only functions can have arguments */
  60955. DUK_ASSERT(comp_ctx->curr_func.is_function);
  60956. duk_push_uarridx(thr, i); /* -> [ ... name index ] */
  60957. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* -> [ ... ] */
  60958. /* no code needs to be emitted, the regs already have values */
  60959. }
  60960. /* use temp_next for tracking register allocations */
  60961. DUK__SETTEMP_CHECKMAX(comp_ctx, (duk_regconst_t) num_args);
  60962. /*
  60963. * After arguments, allocate special registers (like shuffling temps)
  60964. */
  60965. if (out_stmt_value_reg) {
  60966. *out_stmt_value_reg = DUK__ALLOCTEMP(comp_ctx);
  60967. }
  60968. if (comp_ctx->curr_func.needs_shuffle) {
  60969. duk_regconst_t shuffle_base = DUK__ALLOCTEMPS(comp_ctx, 3);
  60970. comp_ctx->curr_func.shuffle1 = shuffle_base;
  60971. comp_ctx->curr_func.shuffle2 = shuffle_base + 1;
  60972. comp_ctx->curr_func.shuffle3 = shuffle_base + 2;
  60973. DUK_D(DUK_DPRINT("shuffle registers needed by function, allocated: %ld %ld %ld",
  60974. (long) comp_ctx->curr_func.shuffle1,
  60975. (long) comp_ctx->curr_func.shuffle2,
  60976. (long) comp_ctx->curr_func.shuffle3));
  60977. }
  60978. if (comp_ctx->curr_func.temp_next > 0x100) {
  60979. DUK_D(DUK_DPRINT("not enough 8-bit regs: temp_next=%ld", (long) comp_ctx->curr_func.temp_next));
  60980. goto error_outofregs;
  60981. }
  60982. /*
  60983. * Function declarations
  60984. */
  60985. num_decls = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx);
  60986. DUK_DDD(DUK_DDDPRINT("num_decls=%ld -> %!T",
  60987. (long) num_decls,
  60988. (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.decls_idx)));
  60989. for (i = 0; i < num_decls; i += 2) {
  60990. duk_int_t decl_type;
  60991. duk_int_t fnum;
  60992. duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i + 1); /* decl type */
  60993. decl_type = duk_to_int(thr, -1);
  60994. fnum = decl_type >> 8; /* XXX: macros */
  60995. decl_type = decl_type & 0xff;
  60996. duk_pop(thr);
  60997. if (decl_type != DUK_DECL_TYPE_FUNC) {
  60998. continue;
  60999. }
  61000. duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */
  61001. /* XXX: spilling */
  61002. if (comp_ctx->curr_func.is_function) {
  61003. duk_regconst_t reg_bind;
  61004. duk_dup_top(thr);
  61005. if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) {
  61006. /* shadowed; update value */
  61007. duk_dup_top(thr);
  61008. duk_get_prop(thr, comp_ctx->curr_func.varmap_idx);
  61009. reg_bind = duk_to_int(thr, -1); /* [ ... name reg_bind ] */
  61010. duk__emit_a_bc(comp_ctx,
  61011. DUK_OP_CLOSURE,
  61012. reg_bind,
  61013. (duk_regconst_t) fnum);
  61014. } else {
  61015. /* function: always register bound */
  61016. reg_bind = DUK__ALLOCTEMP(comp_ctx);
  61017. duk__emit_a_bc(comp_ctx,
  61018. DUK_OP_CLOSURE,
  61019. reg_bind,
  61020. (duk_regconst_t) fnum);
  61021. duk_push_int(thr, (duk_int_t) reg_bind);
  61022. }
  61023. } else {
  61024. /* Function declaration for global/eval code is emitted even
  61025. * for duplicates, because of E5 Section 10.5, step 5.e of
  61026. * E5.1 (special behavior for variable bound to global object).
  61027. *
  61028. * DECLVAR will not re-declare a variable as such, but will
  61029. * update the binding value.
  61030. */
  61031. duk_regconst_t reg_temp = DUK__ALLOCTEMP(comp_ctx);
  61032. duk_dup_top(thr);
  61033. rc_name = duk__getconst(comp_ctx);
  61034. duk_push_null(thr);
  61035. duk__emit_a_bc(comp_ctx,
  61036. DUK_OP_CLOSURE,
  61037. reg_temp,
  61038. (duk_regconst_t) fnum);
  61039. declvar_flags = DUK_PROPDESC_FLAG_WRITABLE |
  61040. DUK_PROPDESC_FLAG_ENUMERABLE |
  61041. DUK_BC_DECLVAR_FLAG_FUNC_DECL;
  61042. if (configurable_bindings) {
  61043. declvar_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE;
  61044. }
  61045. duk__emit_a_b_c(comp_ctx,
  61046. DUK_OP_DECLVAR | DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_BC_REGCONST,
  61047. (duk_regconst_t) declvar_flags /*flags*/,
  61048. rc_name /*name*/,
  61049. reg_temp /*value*/);
  61050. DUK__SETTEMP(comp_ctx, reg_temp); /* forget temp */
  61051. }
  61052. DUK_DDD(DUK_DDDPRINT("function declaration to varmap: %!T -> %!T",
  61053. (duk_tval *) duk_get_tval(thr, -2),
  61054. (duk_tval *) duk_get_tval(thr, -1)));
  61055. #if defined(DUK_USE_FASTINT)
  61056. DUK_ASSERT(DUK_TVAL_IS_NULL(duk_get_tval(thr, -1)) || DUK_TVAL_IS_FASTINT(duk_get_tval(thr, -1)));
  61057. #endif
  61058. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* [ ... name reg/null ] -> [ ... ] */
  61059. }
  61060. /*
  61061. * 'arguments' binding is special; if a shadowing argument or
  61062. * function declaration exists, an arguments object will
  61063. * definitely not be needed, regardless of whether the identifier
  61064. * 'arguments' is referenced inside the function body.
  61065. */
  61066. if (duk_has_prop_stridx(thr, comp_ctx->curr_func.varmap_idx, DUK_STRIDX_LC_ARGUMENTS)) {
  61067. DUK_DDD(DUK_DDDPRINT("'arguments' is shadowed by argument or function declaration "
  61068. "-> arguments object creation can be skipped"));
  61069. comp_ctx->curr_func.is_arguments_shadowed = 1;
  61070. }
  61071. /*
  61072. * Variable declarations.
  61073. *
  61074. * Unlike function declarations, variable declaration values don't get
  61075. * assigned on entry. If a binding of the same name already exists, just
  61076. * ignore it silently.
  61077. */
  61078. for (i = 0; i < num_decls; i += 2) {
  61079. duk_int_t decl_type;
  61080. duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i + 1); /* decl type */
  61081. decl_type = duk_to_int(thr, -1);
  61082. decl_type = decl_type & 0xff;
  61083. duk_pop(thr);
  61084. if (decl_type != DUK_DECL_TYPE_VAR) {
  61085. continue;
  61086. }
  61087. duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */
  61088. if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) {
  61089. /* shadowed, ignore */
  61090. } else {
  61091. duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */
  61092. h_name = duk_known_hstring(thr, -1);
  61093. if (h_name == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr) &&
  61094. !comp_ctx->curr_func.is_arguments_shadowed) {
  61095. /* E5 Section steps 7-8 */
  61096. DUK_DDD(DUK_DDDPRINT("'arguments' not shadowed by a function declaration, "
  61097. "but appears as a variable declaration -> treat as "
  61098. "a no-op for variable declaration purposes"));
  61099. duk_pop(thr);
  61100. continue;
  61101. }
  61102. /* XXX: spilling */
  61103. if (comp_ctx->curr_func.is_function) {
  61104. duk_regconst_t reg_bind = DUK__ALLOCTEMP(comp_ctx);
  61105. /* no need to init reg, it will be undefined on entry */
  61106. duk_push_int(thr, (duk_int_t) reg_bind);
  61107. } else {
  61108. duk_dup_top(thr);
  61109. rc_name = duk__getconst(comp_ctx);
  61110. duk_push_null(thr);
  61111. declvar_flags = DUK_PROPDESC_FLAG_WRITABLE |
  61112. DUK_PROPDESC_FLAG_ENUMERABLE;
  61113. if (configurable_bindings) {
  61114. declvar_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE;
  61115. }
  61116. duk__emit_a_b_c(comp_ctx,
  61117. DUK_OP_DECLVAR | DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_BC_REGCONST,
  61118. (duk_regconst_t) declvar_flags /*flags*/,
  61119. rc_name /*name*/,
  61120. 0 /*value*/);
  61121. }
  61122. duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* [ ... name reg/null ] -> [ ... ] */
  61123. }
  61124. }
  61125. /*
  61126. * Wrap up
  61127. */
  61128. DUK_DDD(DUK_DDDPRINT("varmap: %!T, is_arguments_shadowed=%ld",
  61129. (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx),
  61130. (long) comp_ctx->curr_func.is_arguments_shadowed));
  61131. DUK_ASSERT_TOP(thr, entry_top);
  61132. return;
  61133. error_outofregs:
  61134. DUK_ERROR_RANGE(thr, DUK_STR_REG_LIMIT);
  61135. DUK_UNREACHABLE();
  61136. return;
  61137. error_argname:
  61138. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_ARG_NAME);
  61139. DUK_UNREACHABLE();
  61140. return;
  61141. }
  61142. /*
  61143. * Parse a function-body-like expression (FunctionBody or Program
  61144. * in E5 grammar) using a two-pass parse. The productions appear
  61145. * in the following contexts:
  61146. *
  61147. * - function expression
  61148. * - function statement
  61149. * - function declaration
  61150. * - getter in object literal
  61151. * - setter in object literal
  61152. * - global code
  61153. * - eval code
  61154. * - Function constructor body
  61155. *
  61156. * This function only parses the statement list of the body; the argument
  61157. * list and possible function name must be initialized by the caller.
  61158. * For instance, for Function constructor, the argument names are originally
  61159. * on the value stack. The parsing of statements ends either at an EOF or
  61160. * a closing brace; this is controlled by an input flag.
  61161. *
  61162. * Note that there are many differences affecting parsing and even code
  61163. * generation:
  61164. *
  61165. * - Global and eval code have an implicit return value generated
  61166. * by the last statement; function code does not
  61167. *
  61168. * - Global code, eval code, and Function constructor body end in
  61169. * an EOF, other bodies in a closing brace ('}')
  61170. *
  61171. * Upon entry, 'curr_tok' is ignored and the function will pull in the
  61172. * first token on its own. Upon exit, 'curr_tok' is the terminating
  61173. * token (EOF or closing brace).
  61174. */
  61175. DUK_LOCAL void duk__parse_func_body(duk_compiler_ctx *comp_ctx, duk_bool_t expect_eof, duk_bool_t implicit_return_value, duk_small_int_t expect_token) {
  61176. duk_compiler_func *func;
  61177. duk_hthread *thr;
  61178. duk_regconst_t reg_stmt_value = -1;
  61179. duk_lexer_point lex_pt;
  61180. duk_regconst_t temp_first;
  61181. duk_small_int_t compile_round = 1;
  61182. DUK_ASSERT(comp_ctx != NULL);
  61183. thr = comp_ctx->thr;
  61184. DUK_ASSERT(thr != NULL);
  61185. func = &comp_ctx->curr_func;
  61186. DUK_ASSERT(func != NULL);
  61187. DUK__RECURSION_INCREASE(comp_ctx, thr);
  61188. duk_require_stack(thr, DUK__FUNCTION_BODY_REQUIRE_SLOTS);
  61189. /*
  61190. * Store lexer position for a later rewind
  61191. */
  61192. DUK_LEXER_GETPOINT(&comp_ctx->lex, &lex_pt);
  61193. /*
  61194. * Program code (global and eval code) has an implicit return value
  61195. * from the last statement value (e.g. eval("1; 2+3;") returns 3).
  61196. * This is not the case with functions. If implicit statement return
  61197. * value is requested, all statements are coerced to a register
  61198. * allocated here, and used in the implicit return statement below.
  61199. */
  61200. /* XXX: this is pointless here because pass 1 is throw-away */
  61201. if (implicit_return_value) {
  61202. reg_stmt_value = DUK__ALLOCTEMP(comp_ctx);
  61203. /* If an implicit return value is needed by caller, it must be
  61204. * initialized to 'undefined' because we don't know whether any
  61205. * non-empty (where "empty" is a continuation type, and different
  61206. * from an empty statement) statements will be executed.
  61207. *
  61208. * However, since 1st pass is a throwaway one, no need to emit
  61209. * it here.
  61210. */
  61211. #if 0
  61212. duk__emit_bc(comp_ctx,
  61213. DUK_OP_LDUNDEF,
  61214. 0);
  61215. #endif
  61216. }
  61217. /*
  61218. * First pass.
  61219. *
  61220. * Gather variable/function declarations needed for second pass.
  61221. * Code generated is dummy and discarded.
  61222. */
  61223. func->in_directive_prologue = 1;
  61224. func->in_scanning = 1;
  61225. func->may_direct_eval = 0;
  61226. func->id_access_arguments = 0;
  61227. func->id_access_slow = 0;
  61228. func->id_access_slow_own = 0;
  61229. func->reg_stmt_value = reg_stmt_value;
  61230. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  61231. func->min_line = DUK_INT_MAX;
  61232. func->max_line = 0;
  61233. #endif
  61234. /* duk__parse_stmts() expects curr_tok to be set; parse in "allow regexp literal" mode with current strictness */
  61235. if (expect_token >= 0) {
  61236. /* Eating a left curly; regexp mode is allowed by left curly
  61237. * based on duk__token_lbp[] automatically.
  61238. */
  61239. DUK_ASSERT(expect_token == DUK_TOK_LCURLY);
  61240. duk__update_lineinfo_currtoken(comp_ctx);
  61241. duk__advance_expect(comp_ctx, expect_token);
  61242. } else {
  61243. /* Need to set curr_token.t because lexing regexp mode depends on current
  61244. * token type. Zero value causes "allow regexp" mode.
  61245. */
  61246. comp_ctx->curr_token.t = 0;
  61247. duk__advance(comp_ctx);
  61248. }
  61249. DUK_DDD(DUK_DDDPRINT("begin 1st pass"));
  61250. duk__parse_stmts(comp_ctx,
  61251. 1, /* allow source elements */
  61252. expect_eof); /* expect EOF instead of } */
  61253. DUK_DDD(DUK_DDDPRINT("end 1st pass"));
  61254. /*
  61255. * Second (and possibly third) pass.
  61256. *
  61257. * Generate actual code. In most cases the need for shuffle
  61258. * registers is detected during pass 1, but in some corner cases
  61259. * we'll only detect it during pass 2 and a third pass is then
  61260. * needed (see GH-115).
  61261. */
  61262. for (;;) {
  61263. duk_bool_t needs_shuffle_before = comp_ctx->curr_func.needs_shuffle;
  61264. compile_round++;
  61265. /*
  61266. * Rewind lexer.
  61267. *
  61268. * duk__parse_stmts() expects curr_tok to be set; parse in "allow regexp
  61269. * literal" mode with current strictness.
  61270. *
  61271. * curr_token line number info should be initialized for pass 2 before
  61272. * generating prologue, to ensure prologue bytecode gets nice line numbers.
  61273. */
  61274. DUK_DDD(DUK_DDDPRINT("rewind lexer"));
  61275. DUK_LEXER_SETPOINT(&comp_ctx->lex, &lex_pt);
  61276. comp_ctx->curr_token.t = 0; /* this is needed for regexp mode */
  61277. comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */
  61278. duk__advance(comp_ctx);
  61279. /*
  61280. * Reset function state and perform register allocation, which creates
  61281. * 'varmap' for second pass. Function prologue for variable declarations,
  61282. * binding value initializations etc is emitted as a by-product.
  61283. *
  61284. * Strict mode restrictions for duplicate and invalid argument
  61285. * names are checked here now that we know whether the function
  61286. * is actually strict. See: test-dev-strict-mode-boundary.js.
  61287. *
  61288. * Inner functions are compiled during pass 1 and are not reset.
  61289. */
  61290. duk__reset_func_for_pass2(comp_ctx);
  61291. func->in_directive_prologue = 1;
  61292. func->in_scanning = 0;
  61293. /* must be able to emit code, alloc consts, etc. */
  61294. duk__init_varmap_and_prologue_for_pass2(comp_ctx,
  61295. (implicit_return_value ? &reg_stmt_value : NULL));
  61296. func->reg_stmt_value = reg_stmt_value;
  61297. temp_first = DUK__GETTEMP(comp_ctx);
  61298. func->temp_first = temp_first;
  61299. func->temp_next = temp_first;
  61300. func->stmt_next = 0;
  61301. func->label_next = 0;
  61302. /* XXX: init or assert catch depth etc -- all values */
  61303. func->id_access_arguments = 0;
  61304. func->id_access_slow = 0;
  61305. func->id_access_slow_own = 0;
  61306. /*
  61307. * Check function name validity now that we know strictness.
  61308. * This only applies to function declarations and expressions,
  61309. * not setter/getter name.
  61310. *
  61311. * See: test-dev-strict-mode-boundary.js
  61312. */
  61313. if (func->is_function && !func->is_setget && func->h_name != NULL) {
  61314. if (func->is_strict) {
  61315. if (duk__hstring_is_eval_or_arguments(comp_ctx, func->h_name)) {
  61316. DUK_DDD(DUK_DDDPRINT("func name is 'eval' or 'arguments' in strict mode"));
  61317. goto error_funcname;
  61318. }
  61319. if (DUK_HSTRING_HAS_STRICT_RESERVED_WORD(func->h_name)) {
  61320. DUK_DDD(DUK_DDDPRINT("func name is a reserved word in strict mode"));
  61321. goto error_funcname;
  61322. }
  61323. } else {
  61324. if (DUK_HSTRING_HAS_RESERVED_WORD(func->h_name) &&
  61325. !DUK_HSTRING_HAS_STRICT_RESERVED_WORD(func->h_name)) {
  61326. DUK_DDD(DUK_DDDPRINT("func name is a reserved word in non-strict mode"));
  61327. goto error_funcname;
  61328. }
  61329. }
  61330. }
  61331. /*
  61332. * Second pass parsing.
  61333. */
  61334. if (implicit_return_value) {
  61335. /* Default implicit return value. */
  61336. duk__emit_bc(comp_ctx,
  61337. DUK_OP_LDUNDEF,
  61338. 0);
  61339. }
  61340. DUK_DDD(DUK_DDDPRINT("begin 2nd pass"));
  61341. duk__parse_stmts(comp_ctx,
  61342. 1, /* allow source elements */
  61343. expect_eof); /* expect EOF instead of } */
  61344. DUK_DDD(DUK_DDDPRINT("end 2nd pass"));
  61345. duk__update_lineinfo_currtoken(comp_ctx);
  61346. if (needs_shuffle_before == comp_ctx->curr_func.needs_shuffle) {
  61347. /* Shuffle decision not changed. */
  61348. break;
  61349. }
  61350. if (compile_round >= 3) {
  61351. /* Should never happen but avoid infinite loop just in case. */
  61352. DUK_D(DUK_DPRINT("more than 3 compile passes needed, should never happen"));
  61353. DUK_ERROR_INTERNAL(thr);
  61354. }
  61355. DUK_D(DUK_DPRINT("need additional round to compile function, round now %d", (int) compile_round));
  61356. }
  61357. /*
  61358. * Emit a final RETURN.
  61359. *
  61360. * It would be nice to avoid emitting an unnecessary "return" opcode
  61361. * if the current PC is not reachable. However, this cannot be reliably
  61362. * detected; even if the previous instruction is an unconditional jump,
  61363. * there may be a previous jump which jumps to current PC (which is the
  61364. * case for iteration and conditional statements, for instance).
  61365. */
  61366. /* XXX: request a "last statement is terminal" from duk__parse_stmt() and duk__parse_stmts();
  61367. * we could avoid the last RETURN if we could ensure there is no way to get here
  61368. * (directly or via a jump)
  61369. */
  61370. DUK_ASSERT(comp_ctx->curr_func.catch_depth == 0);
  61371. if (reg_stmt_value >= 0) {
  61372. DUK_ASSERT(DUK__ISREG(reg_stmt_value));
  61373. duk__emit_bc(comp_ctx, DUK_OP_RETREG, reg_stmt_value /*reg*/);
  61374. } else {
  61375. duk__emit_op_only(comp_ctx, DUK_OP_RETUNDEF);
  61376. }
  61377. /*
  61378. * Peephole optimize JUMP chains.
  61379. */
  61380. duk__peephole_optimize_bytecode(comp_ctx);
  61381. /*
  61382. * comp_ctx->curr_func is now ready to be converted into an actual
  61383. * function template.
  61384. */
  61385. DUK__RECURSION_DECREASE(comp_ctx, thr);
  61386. return;
  61387. error_funcname:
  61388. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_FUNC_NAME);
  61389. }
  61390. /*
  61391. * Parse a function-like expression:
  61392. *
  61393. * - function expression
  61394. * - function declaration
  61395. * - function statement (non-standard)
  61396. * - setter/getter
  61397. *
  61398. * Adds the function to comp_ctx->curr_func function table and returns the
  61399. * function number.
  61400. *
  61401. * On entry, curr_token points to:
  61402. *
  61403. * - the token after 'function' for function expression/declaration/statement
  61404. * - the token after 'set' or 'get' for setter/getter
  61405. */
  61406. /* Parse formals. */
  61407. DUK_LOCAL void duk__parse_func_formals(duk_compiler_ctx *comp_ctx) {
  61408. duk_hthread *thr = comp_ctx->thr;
  61409. duk_bool_t first = 1;
  61410. duk_uarridx_t n;
  61411. for (;;) {
  61412. if (comp_ctx->curr_token.t == DUK_TOK_RPAREN) {
  61413. break;
  61414. }
  61415. if (first) {
  61416. /* no comma */
  61417. first = 0;
  61418. } else {
  61419. duk__advance_expect(comp_ctx, DUK_TOK_COMMA);
  61420. }
  61421. /* Note: when parsing a formal list in non-strict context, e.g.
  61422. * "implements" is parsed as an identifier. When the function is
  61423. * later detected to be strict, the argument list must be rechecked
  61424. * against a larger set of reserved words (that of strict mode).
  61425. * This is handled by duk__parse_func_body(). Here we recognize
  61426. * whatever tokens are considered reserved in current strictness
  61427. * (which is not always enough).
  61428. */
  61429. if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) {
  61430. DUK_ERROR_SYNTAX(thr, DUK_STR_EXPECTED_IDENTIFIER);
  61431. }
  61432. DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_IDENTIFIER);
  61433. DUK_ASSERT(comp_ctx->curr_token.str1 != NULL);
  61434. DUK_DDD(DUK_DDDPRINT("formal argument: %!O",
  61435. (duk_heaphdr *) comp_ctx->curr_token.str1));
  61436. /* XXX: append primitive */
  61437. duk_push_hstring(thr, comp_ctx->curr_token.str1);
  61438. n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.argnames_idx);
  61439. duk_put_prop_index(thr, comp_ctx->curr_func.argnames_idx, n);
  61440. duk__advance(comp_ctx); /* eat identifier */
  61441. }
  61442. }
  61443. /* Parse a function-like expression, assuming that 'comp_ctx->curr_func' is
  61444. * correctly set up. Assumes that curr_token is just after 'function' (or
  61445. * 'set'/'get' etc).
  61446. */
  61447. DUK_LOCAL void duk__parse_func_like_raw(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags) {
  61448. duk_hthread *thr = comp_ctx->thr;
  61449. duk_token *tok;
  61450. duk_bool_t no_advance;
  61451. DUK_ASSERT(comp_ctx->curr_func.num_formals == 0);
  61452. DUK_ASSERT(comp_ctx->curr_func.is_function == 1);
  61453. DUK_ASSERT(comp_ctx->curr_func.is_eval == 0);
  61454. DUK_ASSERT(comp_ctx->curr_func.is_global == 0);
  61455. DUK_ASSERT(comp_ctx->curr_func.is_setget == ((flags & DUK__FUNC_FLAG_GETSET) != 0));
  61456. duk__update_lineinfo_currtoken(comp_ctx);
  61457. /*
  61458. * Function name (if any)
  61459. *
  61460. * We don't check for prohibited names here, because we don't
  61461. * yet know whether the function will be strict. Function body
  61462. * parsing handles this retroactively.
  61463. *
  61464. * For function expressions and declarations function name must
  61465. * be an Identifer (excludes reserved words). For setter/getter
  61466. * it is a PropertyName which allows reserved words and also
  61467. * strings and numbers (e.g. "{ get 1() { ... } }").
  61468. *
  61469. * Function parsing may start either from prev_token or curr_token
  61470. * (object literal method definition uses prev_token for example).
  61471. * This is dealt with for the initial token.
  61472. */
  61473. no_advance = (flags & DUK__FUNC_FLAG_USE_PREVTOKEN);
  61474. if (no_advance) {
  61475. tok = &comp_ctx->prev_token;
  61476. } else {
  61477. tok = &comp_ctx->curr_token;
  61478. }
  61479. if (flags & DUK__FUNC_FLAG_GETSET) {
  61480. /* PropertyName -> IdentifierName | StringLiteral | NumericLiteral */
  61481. if (tok->t_nores == DUK_TOK_IDENTIFIER || tok->t == DUK_TOK_STRING) {
  61482. duk_push_hstring(thr, tok->str1); /* keep in valstack */
  61483. } else if (tok->t == DUK_TOK_NUMBER) {
  61484. duk_push_number(thr, tok->num);
  61485. duk_to_string(thr, -1);
  61486. } else {
  61487. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_GETSET_NAME);
  61488. }
  61489. comp_ctx->curr_func.h_name = duk_known_hstring(thr, -1); /* borrowed reference */
  61490. } else {
  61491. /* Function name is an Identifier (not IdentifierName), but we get
  61492. * the raw name (not recognizing keywords) here and perform the name
  61493. * checks only after pass 1.
  61494. */
  61495. if (tok->t_nores == DUK_TOK_IDENTIFIER) {
  61496. duk_push_hstring(thr, tok->str1); /* keep in valstack */
  61497. comp_ctx->curr_func.h_name = duk_known_hstring(thr, -1); /* borrowed reference */
  61498. } else {
  61499. /* valstack will be unbalanced, which is OK */
  61500. DUK_ASSERT((flags & DUK__FUNC_FLAG_GETSET) == 0);
  61501. DUK_ASSERT(comp_ctx->curr_func.h_name == NULL);
  61502. no_advance = 1;
  61503. if (flags & DUK__FUNC_FLAG_DECL) {
  61504. DUK_ERROR_SYNTAX(thr, DUK_STR_FUNC_NAME_REQUIRED);
  61505. }
  61506. }
  61507. }
  61508. DUK_DD(DUK_DDPRINT("function name: %!O",
  61509. (duk_heaphdr *) comp_ctx->curr_func.h_name));
  61510. if (!no_advance) {
  61511. duk__advance(comp_ctx);
  61512. }
  61513. /*
  61514. * Formal argument list
  61515. *
  61516. * We don't check for prohibited names or for duplicate argument
  61517. * names here, becase we don't yet know whether the function will
  61518. * be strict. Function body parsing handles this retroactively.
  61519. */
  61520. duk__advance_expect(comp_ctx, DUK_TOK_LPAREN);
  61521. duk__parse_func_formals(comp_ctx);
  61522. DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RPAREN);
  61523. duk__advance(comp_ctx);
  61524. /*
  61525. * Parse function body
  61526. */
  61527. duk__parse_func_body(comp_ctx,
  61528. 0, /* expect_eof */
  61529. 0, /* implicit_return_value */
  61530. DUK_TOK_LCURLY); /* expect_token */
  61531. /*
  61532. * Convert duk_compiler_func to a function template and add it
  61533. * to the parent function table.
  61534. */
  61535. duk__convert_to_func_template(comp_ctx); /* -> [ ... func ] */
  61536. }
  61537. /* Parse an inner function, adding the function template to the current function's
  61538. * function table. Return a function number to be used by the outer function.
  61539. *
  61540. * Avoiding O(depth^2) inner function parsing is handled here. On the first pass,
  61541. * compile and register the function normally into the 'funcs' array, also recording
  61542. * a lexer point (offset/line) to the closing brace of the function. On the second
  61543. * pass, skip the function and return the same 'fnum' as on the first pass by using
  61544. * a running counter.
  61545. *
  61546. * An unfortunate side effect of this is that when parsing the inner function, almost
  61547. * nothing is known of the outer function, i.e. the inner function's scope. We don't
  61548. * need that information at the moment, but it would allow some optimizations if it
  61549. * were used.
  61550. */
  61551. DUK_LOCAL duk_int_t duk__parse_func_like_fnum(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags) {
  61552. duk_hthread *thr = comp_ctx->thr;
  61553. duk_compiler_func old_func;
  61554. duk_idx_t entry_top;
  61555. duk_int_t fnum;
  61556. /*
  61557. * On second pass, skip the function.
  61558. */
  61559. if (!comp_ctx->curr_func.in_scanning) {
  61560. duk_lexer_point lex_pt;
  61561. fnum = comp_ctx->curr_func.fnum_next++;
  61562. duk_get_prop_index(thr, comp_ctx->curr_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 1));
  61563. lex_pt.offset = (duk_size_t) duk_to_uint(thr, -1);
  61564. duk_pop(thr);
  61565. duk_get_prop_index(thr, comp_ctx->curr_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 2));
  61566. lex_pt.line = duk_to_int(thr, -1);
  61567. duk_pop(thr);
  61568. DUK_DDD(DUK_DDDPRINT("second pass of an inner func, skip the function, reparse closing brace; lex offset=%ld, line=%ld",
  61569. (long) lex_pt.offset, (long) lex_pt.line));
  61570. DUK_LEXER_SETPOINT(&comp_ctx->lex, &lex_pt);
  61571. comp_ctx->curr_token.t = 0; /* this is needed for regexp mode */
  61572. comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */
  61573. duk__advance(comp_ctx);
  61574. duk__advance_expect(comp_ctx, DUK_TOK_RCURLY);
  61575. return fnum;
  61576. }
  61577. /*
  61578. * On first pass, perform actual parsing. Remember valstack top on entry
  61579. * to restore it later, and switch to using a new function in comp_ctx.
  61580. */
  61581. entry_top = duk_get_top(thr);
  61582. DUK_DDD(DUK_DDDPRINT("before func: entry_top=%ld, curr_tok.start_offset=%ld",
  61583. (long) entry_top, (long) comp_ctx->curr_token.start_offset));
  61584. DUK_MEMCPY(&old_func, &comp_ctx->curr_func, sizeof(duk_compiler_func));
  61585. DUK_MEMZERO(&comp_ctx->curr_func, sizeof(duk_compiler_func));
  61586. duk__init_func_valstack_slots(comp_ctx);
  61587. DUK_ASSERT(comp_ctx->curr_func.num_formals == 0);
  61588. /* inherit initial strictness from parent */
  61589. comp_ctx->curr_func.is_strict = old_func.is_strict;
  61590. /* XXX: It might be better to just store the flags into the curr_func
  61591. * struct and use them as is without this flag interpretation step
  61592. * here.
  61593. */
  61594. DUK_ASSERT(comp_ctx->curr_func.is_notail == 0);
  61595. comp_ctx->curr_func.is_function = 1;
  61596. DUK_ASSERT(comp_ctx->curr_func.is_eval == 0);
  61597. DUK_ASSERT(comp_ctx->curr_func.is_global == 0);
  61598. comp_ctx->curr_func.is_setget = ((flags & DUK__FUNC_FLAG_GETSET) != 0);
  61599. comp_ctx->curr_func.is_namebinding = !(flags & (DUK__FUNC_FLAG_GETSET |
  61600. DUK__FUNC_FLAG_METDEF |
  61601. DUK__FUNC_FLAG_DECL)); /* no name binding for: declarations, objlit getset, objlit method def */
  61602. comp_ctx->curr_func.is_constructable = !(flags & (DUK__FUNC_FLAG_GETSET |
  61603. DUK__FUNC_FLAG_METDEF)); /* not constructable: objlit getset, objlit method def */
  61604. /*
  61605. * Parse inner function
  61606. */
  61607. duk__parse_func_like_raw(comp_ctx, flags); /* pushes function template */
  61608. /* prev_token.start_offset points to the closing brace here; when skipping
  61609. * we're going to reparse the closing brace to ensure semicolon insertion
  61610. * etc work as expected.
  61611. */
  61612. DUK_DDD(DUK_DDDPRINT("after func: prev_tok.start_offset=%ld, curr_tok.start_offset=%ld",
  61613. (long) comp_ctx->prev_token.start_offset, (long) comp_ctx->curr_token.start_offset));
  61614. DUK_ASSERT(comp_ctx->lex.input[comp_ctx->prev_token.start_offset] == (duk_uint8_t) DUK_ASC_RCURLY);
  61615. /* XXX: append primitive */
  61616. DUK_ASSERT(duk_get_length(thr, old_func.funcs_idx) == (duk_size_t) (old_func.fnum_next * 3));
  61617. fnum = old_func.fnum_next++;
  61618. if (fnum > DUK__MAX_FUNCS) {
  61619. DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_FUNC_LIMIT);
  61620. }
  61621. /* array writes autoincrement length */
  61622. (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3));
  61623. duk_push_size_t(thr, comp_ctx->prev_token.start_offset);
  61624. (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 1));
  61625. duk_push_int(thr, comp_ctx->prev_token.start_line);
  61626. (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 2));
  61627. /*
  61628. * Cleanup: restore original function, restore valstack state.
  61629. *
  61630. * Function declaration handling needs the function name to be pushed
  61631. * on the value stack.
  61632. */
  61633. if (flags & DUK__FUNC_FLAG_PUSHNAME_PASS1) {
  61634. DUK_ASSERT(comp_ctx->curr_func.h_name != NULL);
  61635. duk_push_hstring(thr, comp_ctx->curr_func.h_name);
  61636. duk_replace(thr, entry_top);
  61637. duk_set_top(thr, entry_top + 1);
  61638. } else {
  61639. duk_set_top(thr, entry_top);
  61640. }
  61641. DUK_MEMCPY((void *) &comp_ctx->curr_func, (void *) &old_func, sizeof(duk_compiler_func));
  61642. return fnum;
  61643. }
  61644. /*
  61645. * Compile input string into an executable function template without
  61646. * arguments.
  61647. *
  61648. * The string is parsed as the "Program" production of Ecmascript E5.
  61649. * Compilation context can be either global code or eval code (see E5
  61650. * Sections 14 and 15.1.2.1).
  61651. *
  61652. * Input stack: [ ... filename ]
  61653. * Output stack: [ ... func_template ]
  61654. */
  61655. /* XXX: source code property */
  61656. DUK_LOCAL duk_ret_t duk__js_compile_raw(duk_hthread *thr, void *udata) {
  61657. duk_hstring *h_filename;
  61658. duk__compiler_stkstate *comp_stk;
  61659. duk_compiler_ctx *comp_ctx;
  61660. duk_lexer_point *lex_pt;
  61661. duk_compiler_func *func;
  61662. duk_idx_t entry_top;
  61663. duk_bool_t is_strict;
  61664. duk_bool_t is_eval;
  61665. duk_bool_t is_funcexpr;
  61666. duk_small_uint_t flags;
  61667. DUK_ASSERT(thr != NULL);
  61668. DUK_ASSERT(udata != NULL);
  61669. /*
  61670. * Arguments check
  61671. */
  61672. entry_top = duk_get_top(thr);
  61673. DUK_ASSERT(entry_top >= 1);
  61674. comp_stk = (duk__compiler_stkstate *) udata;
  61675. comp_ctx = &comp_stk->comp_ctx_alloc;
  61676. lex_pt = &comp_stk->lex_pt_alloc;
  61677. DUK_ASSERT(comp_ctx != NULL);
  61678. DUK_ASSERT(lex_pt != NULL);
  61679. flags = comp_stk->flags;
  61680. is_eval = (flags & DUK_COMPILE_EVAL ? 1 : 0);
  61681. is_strict = (flags & DUK_COMPILE_STRICT ? 1 : 0);
  61682. is_funcexpr = (flags & DUK_COMPILE_FUNCEXPR ? 1 : 0);
  61683. h_filename = duk_get_hstring(thr, -1); /* may be undefined */
  61684. /*
  61685. * Init compiler and lexer contexts
  61686. */
  61687. func = &comp_ctx->curr_func;
  61688. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  61689. comp_ctx->thr = NULL;
  61690. comp_ctx->h_filename = NULL;
  61691. comp_ctx->prev_token.str1 = NULL;
  61692. comp_ctx->prev_token.str2 = NULL;
  61693. comp_ctx->curr_token.str1 = NULL;
  61694. comp_ctx->curr_token.str2 = NULL;
  61695. #endif
  61696. duk_require_stack(thr, DUK__COMPILE_ENTRY_SLOTS);
  61697. duk_push_dynamic_buffer(thr, 0); /* entry_top + 0 */
  61698. duk_push_undefined(thr); /* entry_top + 1 */
  61699. duk_push_undefined(thr); /* entry_top + 2 */
  61700. duk_push_undefined(thr); /* entry_top + 3 */
  61701. duk_push_undefined(thr); /* entry_top + 4 */
  61702. comp_ctx->thr = thr;
  61703. comp_ctx->h_filename = h_filename;
  61704. comp_ctx->tok11_idx = entry_top + 1;
  61705. comp_ctx->tok12_idx = entry_top + 2;
  61706. comp_ctx->tok21_idx = entry_top + 3;
  61707. comp_ctx->tok22_idx = entry_top + 4;
  61708. comp_ctx->recursion_limit = DUK_USE_COMPILER_RECLIMIT;
  61709. /* comp_ctx->lex has been pre-initialized by caller: it has been
  61710. * zeroed and input/input_length has been set.
  61711. */
  61712. comp_ctx->lex.thr = thr;
  61713. /* comp_ctx->lex.input and comp_ctx->lex.input_length filled by caller */
  61714. comp_ctx->lex.slot1_idx = comp_ctx->tok11_idx;
  61715. comp_ctx->lex.slot2_idx = comp_ctx->tok12_idx;
  61716. comp_ctx->lex.buf_idx = entry_top + 0;
  61717. comp_ctx->lex.buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, entry_top + 0);
  61718. DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(comp_ctx->lex.buf) && !DUK_HBUFFER_HAS_EXTERNAL(comp_ctx->lex.buf));
  61719. comp_ctx->lex.token_limit = DUK_COMPILER_TOKEN_LIMIT;
  61720. lex_pt->offset = 0;
  61721. lex_pt->line = 1;
  61722. DUK_LEXER_SETPOINT(&comp_ctx->lex, lex_pt); /* fills window */
  61723. comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */
  61724. /*
  61725. * Initialize function state for a zero-argument function
  61726. */
  61727. duk__init_func_valstack_slots(comp_ctx);
  61728. DUK_ASSERT(func->num_formals == 0);
  61729. if (is_funcexpr) {
  61730. /* Name will be filled from function expression, not by caller.
  61731. * This case is used by Function constructor and duk_compile()
  61732. * API with the DUK_COMPILE_FUNCTION option.
  61733. */
  61734. DUK_ASSERT(func->h_name == NULL);
  61735. } else {
  61736. duk_push_hstring_stridx(thr, (is_eval ? DUK_STRIDX_EVAL :
  61737. DUK_STRIDX_GLOBAL));
  61738. func->h_name = duk_get_hstring(thr, -1);
  61739. }
  61740. /*
  61741. * Parse a function body or a function-like expression, depending
  61742. * on flags.
  61743. */
  61744. DUK_ASSERT(func->is_setget == 0);
  61745. func->is_strict = (duk_uint8_t) is_strict;
  61746. DUK_ASSERT(func->is_notail == 0);
  61747. if (is_funcexpr) {
  61748. func->is_function = 1;
  61749. DUK_ASSERT(func->is_eval == 0);
  61750. DUK_ASSERT(func->is_global == 0);
  61751. func->is_namebinding = 1;
  61752. func->is_constructable = 1;
  61753. duk__advance(comp_ctx); /* init 'curr_token' */
  61754. duk__advance_expect(comp_ctx, DUK_TOK_FUNCTION);
  61755. (void) duk__parse_func_like_raw(comp_ctx, 0 /*flags*/);
  61756. } else {
  61757. DUK_ASSERT(func->is_function == 0);
  61758. DUK_ASSERT(is_eval == 0 || is_eval == 1);
  61759. func->is_eval = (duk_uint8_t) is_eval;
  61760. func->is_global = (duk_uint8_t) !is_eval;
  61761. DUK_ASSERT(func->is_namebinding == 0);
  61762. DUK_ASSERT(func->is_constructable == 0);
  61763. duk__parse_func_body(comp_ctx,
  61764. 1, /* expect_eof */
  61765. 1, /* implicit_return_value */
  61766. -1); /* expect_token */
  61767. }
  61768. /*
  61769. * Convert duk_compiler_func to a function template
  61770. */
  61771. duk__convert_to_func_template(comp_ctx);
  61772. /*
  61773. * Wrapping duk_safe_call() will mangle the stack, just return stack top
  61774. */
  61775. /* [ ... filename (temps) func ] */
  61776. return 1;
  61777. }
  61778. DUK_INTERNAL void duk_js_compile(duk_hthread *thr, const duk_uint8_t *src_buffer, duk_size_t src_length, duk_small_uint_t flags) {
  61779. duk__compiler_stkstate comp_stk;
  61780. duk_compiler_ctx *prev_ctx;
  61781. duk_ret_t safe_rc;
  61782. DUK_ASSERT(thr != NULL);
  61783. DUK_ASSERT(src_buffer != NULL);
  61784. /* preinitialize lexer state partially */
  61785. DUK_MEMZERO(&comp_stk, sizeof(comp_stk));
  61786. comp_stk.flags = flags;
  61787. DUK_LEXER_INITCTX(&comp_stk.comp_ctx_alloc.lex);
  61788. comp_stk.comp_ctx_alloc.lex.input = src_buffer;
  61789. comp_stk.comp_ctx_alloc.lex.input_length = src_length;
  61790. comp_stk.comp_ctx_alloc.lex.flags = flags; /* Forward flags directly for now. */
  61791. /* [ ... filename ] */
  61792. prev_ctx = thr->compile_ctx;
  61793. thr->compile_ctx = &comp_stk.comp_ctx_alloc; /* for duk_error_augment.c */
  61794. safe_rc = duk_safe_call(thr, duk__js_compile_raw, (void *) &comp_stk /*udata*/, 1 /*nargs*/, 1 /*nrets*/);
  61795. thr->compile_ctx = prev_ctx; /* must restore reliably before returning */
  61796. if (safe_rc != DUK_EXEC_SUCCESS) {
  61797. DUK_D(DUK_DPRINT("compilation failed: %!T", duk_get_tval(thr, -1)));
  61798. (void) duk_throw(thr);
  61799. }
  61800. /* [ ... template ] */
  61801. }
  61802. /* automatic undefs */
  61803. #undef DUK__ALLOCTEMP
  61804. #undef DUK__ALLOCTEMPS
  61805. #undef DUK__ALLOW_AUTO_SEMI_ALWAYS
  61806. #undef DUK__BC_INITIAL_INSTS
  61807. #undef DUK__BP_ADDITIVE
  61808. #undef DUK__BP_ASSIGNMENT
  61809. #undef DUK__BP_BAND
  61810. #undef DUK__BP_BOR
  61811. #undef DUK__BP_BXOR
  61812. #undef DUK__BP_CALL
  61813. #undef DUK__BP_CLOSING
  61814. #undef DUK__BP_COMMA
  61815. #undef DUK__BP_CONDITIONAL
  61816. #undef DUK__BP_EOF
  61817. #undef DUK__BP_EQUALITY
  61818. #undef DUK__BP_EXPONENTIATION
  61819. #undef DUK__BP_FOR_EXPR
  61820. #undef DUK__BP_INVALID
  61821. #undef DUK__BP_LAND
  61822. #undef DUK__BP_LOR
  61823. #undef DUK__BP_MEMBER
  61824. #undef DUK__BP_MULTIPLICATIVE
  61825. #undef DUK__BP_POSTFIX
  61826. #undef DUK__BP_RELATIONAL
  61827. #undef DUK__BP_SHIFT
  61828. #undef DUK__COMPILE_ENTRY_SLOTS
  61829. #undef DUK__CONST_MARKER
  61830. #undef DUK__DUMP_ISPEC
  61831. #undef DUK__DUMP_IVALUE
  61832. #undef DUK__EMIT_FLAG_A_IS_SOURCE
  61833. #undef DUK__EMIT_FLAG_BC_REGCONST
  61834. #undef DUK__EMIT_FLAG_B_IS_TARGET
  61835. #undef DUK__EMIT_FLAG_C_IS_TARGET
  61836. #undef DUK__EMIT_FLAG_NO_SHUFFLE_A
  61837. #undef DUK__EMIT_FLAG_NO_SHUFFLE_B
  61838. #undef DUK__EMIT_FLAG_NO_SHUFFLE_C
  61839. #undef DUK__EMIT_FLAG_RESERVE_JUMPSLOT
  61840. #undef DUK__EXPR_FLAG_ALLOW_EMPTY
  61841. #undef DUK__EXPR_FLAG_REJECT_IN
  61842. #undef DUK__EXPR_FLAG_REQUIRE_INIT
  61843. #undef DUK__EXPR_RBP_MASK
  61844. #undef DUK__FUNCTION_BODY_REQUIRE_SLOTS
  61845. #undef DUK__FUNCTION_INIT_REQUIRE_SLOTS
  61846. #undef DUK__FUNC_FLAG_DECL
  61847. #undef DUK__FUNC_FLAG_GETSET
  61848. #undef DUK__FUNC_FLAG_METDEF
  61849. #undef DUK__FUNC_FLAG_PUSHNAME_PASS1
  61850. #undef DUK__FUNC_FLAG_USE_PREVTOKEN
  61851. #undef DUK__GETCONST_MAX_CONSTS_CHECK
  61852. #undef DUK__GETTEMP
  61853. #undef DUK__HAS_TERM
  61854. #undef DUK__HAS_VAL
  61855. #undef DUK__ISCONST
  61856. #undef DUK__ISREG
  61857. #undef DUK__ISREG_NOTTEMP
  61858. #undef DUK__ISREG_TEMP
  61859. #undef DUK__IS_TERMINAL
  61860. #undef DUK__IVAL_FLAG_ALLOW_CONST
  61861. #undef DUK__IVAL_FLAG_REQUIRE_SHORT
  61862. #undef DUK__IVAL_FLAG_REQUIRE_TEMP
  61863. #undef DUK__MAX_ARRAY_INIT_VALUES
  61864. #undef DUK__MAX_CONSTS
  61865. #undef DUK__MAX_FUNCS
  61866. #undef DUK__MAX_OBJECT_INIT_PAIRS
  61867. #undef DUK__MAX_TEMPS
  61868. #undef DUK__MK_LBP
  61869. #undef DUK__MK_LBP_FLAGS
  61870. #undef DUK__OBJ_LIT_KEY_GET
  61871. #undef DUK__OBJ_LIT_KEY_PLAIN
  61872. #undef DUK__OBJ_LIT_KEY_SET
  61873. #undef DUK__PARSE_EXPR_SLOTS
  61874. #undef DUK__PARSE_STATEMENTS_SLOTS
  61875. #undef DUK__RECURSION_DECREASE
  61876. #undef DUK__RECURSION_INCREASE
  61877. #undef DUK__REMOVECONST
  61878. #undef DUK__SETTEMP
  61879. #undef DUK__SETTEMP_CHECKMAX
  61880. #undef DUK__STILL_PROLOGUE
  61881. #undef DUK__TOKEN_LBP_BP_MASK
  61882. #undef DUK__TOKEN_LBP_FLAG_NO_REGEXP
  61883. #undef DUK__TOKEN_LBP_FLAG_TERMINATES
  61884. #undef DUK__TOKEN_LBP_FLAG_UNUSED
  61885. #undef DUK__TOKEN_LBP_GET_BP
  61886. #line 1 "duk_js_executor.c"
  61887. /*
  61888. * Ecmascript bytecode executor.
  61889. */
  61890. /* #include duk_internal.h -> already included */
  61891. /*
  61892. * Local declarations.
  61893. */
  61894. DUK_LOCAL_DECL void duk__js_execute_bytecode_inner(duk_hthread *entry_thread, duk_activation *entry_act);
  61895. /*
  61896. * Misc helpers.
  61897. */
  61898. /* Forced inline declaration, only applied for performance oriented build. */
  61899. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  61900. #define DUK__INLINE_PERF
  61901. #define DUK__NOINLINE_PERF
  61902. #else
  61903. #define DUK__INLINE_PERF DUK_ALWAYS_INLINE
  61904. #define DUK__NOINLINE_PERF DUK_NOINLINE
  61905. #endif
  61906. /* Replace value stack top to value at 'tv_ptr'. Optimize for
  61907. * performance by only applying the net refcount change.
  61908. */
  61909. #define DUK__REPLACE_TO_TVPTR(thr,tv_ptr) do { \
  61910. duk_hthread *duk__thr; \
  61911. duk_tval *duk__tvsrc; \
  61912. duk_tval *duk__tvdst; \
  61913. duk_tval duk__tvtmp; \
  61914. duk__thr = (thr); \
  61915. duk__tvsrc = DUK_GET_TVAL_NEGIDX(duk__thr, -1); \
  61916. duk__tvdst = (tv_ptr); \
  61917. DUK_TVAL_SET_TVAL(&duk__tvtmp, duk__tvdst); \
  61918. DUK_TVAL_SET_TVAL(duk__tvdst, duk__tvsrc); \
  61919. DUK_TVAL_SET_UNDEFINED(duk__tvsrc); /* value stack init policy */ \
  61920. duk__thr->valstack_top = duk__tvsrc; \
  61921. DUK_TVAL_DECREF(duk__thr, &duk__tvtmp); \
  61922. } while (0)
  61923. /* XXX: candidate of being an internal shared API call */
  61924. #if 0 /* unused */
  61925. DUK_LOCAL void duk__push_tvals_incref_only(duk_hthread *thr, duk_tval *tv_src, duk_small_uint_fast_t count) {
  61926. duk_tval *tv_dst;
  61927. duk_size_t copy_size;
  61928. duk_size_t i;
  61929. tv_dst = thr->valstack_top;
  61930. copy_size = sizeof(duk_tval) * count;
  61931. DUK_MEMCPY((void *) tv_dst, (const void *) tv_src, copy_size);
  61932. for (i = 0; i < count; i++) {
  61933. DUK_TVAL_INCREF(thr, tv_dst);
  61934. tv_dst++;
  61935. }
  61936. thr->valstack_top = tv_dst;
  61937. }
  61938. #endif
  61939. /*
  61940. * Arithmetic, binary, and logical helpers.
  61941. *
  61942. * Note: there is no opcode for logical AND or logical OR; this is on
  61943. * purpose, because the evalution order semantics for them make such
  61944. * opcodes pretty pointless: short circuiting means they are most
  61945. * comfortably implemented as jumps. However, a logical NOT opcode
  61946. * is useful.
  61947. *
  61948. * Note: careful with duk_tval pointers here: they are potentially
  61949. * invalidated by any DECREF and almost any API call. It's still
  61950. * preferable to work without making a copy but that's not always
  61951. * possible.
  61952. */
  61953. DUK_LOCAL DUK__INLINE_PERF duk_double_t duk__compute_mod(duk_double_t d1, duk_double_t d2) {
  61954. return (duk_double_t) duk_js_arith_mod((double) d1, (double) d2);
  61955. }
  61956. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  61957. DUK_LOCAL DUK__INLINE_PERF duk_double_t duk__compute_exp(duk_double_t d1, duk_double_t d2) {
  61958. return (duk_double_t) duk_js_arith_pow((double) d1, (double) d2);
  61959. }
  61960. #endif
  61961. DUK_LOCAL DUK__INLINE_PERF void duk__vm_arith_add(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_fast_t idx_z) {
  61962. /*
  61963. * Addition operator is different from other arithmetic
  61964. * operations in that it also provides string concatenation.
  61965. * Hence it is implemented separately.
  61966. *
  61967. * There is a fast path for number addition. Other cases go
  61968. * through potentially multiple coercions as described in the
  61969. * E5 specification. It may be possible to reduce the number
  61970. * of coercions, but this must be done carefully to preserve
  61971. * the exact semantics.
  61972. *
  61973. * E5 Section 11.6.1.
  61974. *
  61975. * Custom types also have special behavior implemented here.
  61976. */
  61977. duk_double_union du;
  61978. DUK_ASSERT(thr != NULL);
  61979. DUK_ASSERT(tv_x != NULL); /* may be reg or const */
  61980. DUK_ASSERT(tv_y != NULL); /* may be reg or const */
  61981. DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */
  61982. DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr));
  61983. /*
  61984. * Fast paths
  61985. */
  61986. #if defined(DUK_USE_FASTINT)
  61987. if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) {
  61988. duk_int64_t v1, v2, v3;
  61989. duk_int32_t v3_hi;
  61990. duk_tval *tv_z;
  61991. /* Input values are signed 48-bit so we can detect overflow
  61992. * reliably from high bits or just a comparison.
  61993. */
  61994. v1 = DUK_TVAL_GET_FASTINT(tv_x);
  61995. v2 = DUK_TVAL_GET_FASTINT(tv_y);
  61996. v3 = v1 + v2;
  61997. v3_hi = (duk_int32_t) (v3 >> 32);
  61998. if (DUK_LIKELY(v3_hi >= DUK_I64_CONSTANT(-0x8000) && v3_hi <= DUK_I64_CONSTANT(0x7fff))) {
  61999. tv_z = thr->valstack_bottom + idx_z;
  62000. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, v3); /* side effects */
  62001. return;
  62002. } else {
  62003. /* overflow, fall through */
  62004. ;
  62005. }
  62006. }
  62007. #endif /* DUK_USE_FASTINT */
  62008. if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) {
  62009. #if !defined(DUK_USE_EXEC_PREFER_SIZE)
  62010. duk_tval *tv_z;
  62011. #endif
  62012. du.d = DUK_TVAL_GET_NUMBER(tv_x) + DUK_TVAL_GET_NUMBER(tv_y);
  62013. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  62014. duk_push_number(thr, du.d); /* will NaN normalize result */
  62015. duk_replace(thr, (duk_idx_t) idx_z);
  62016. #else /* DUK_USE_EXEC_PREFER_SIZE */
  62017. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du);
  62018. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  62019. tv_z = thr->valstack_bottom + idx_z;
  62020. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, du.d); /* side effects */
  62021. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  62022. return;
  62023. }
  62024. /*
  62025. * Slow path: potentially requires function calls for coercion
  62026. */
  62027. duk_push_tval(thr, tv_x);
  62028. duk_push_tval(thr, tv_y);
  62029. duk_to_primitive(thr, -2, DUK_HINT_NONE); /* side effects -> don't use tv_x, tv_y after */
  62030. duk_to_primitive(thr, -1, DUK_HINT_NONE);
  62031. /* Since Duktape 2.x plain buffers are treated like ArrayBuffer. */
  62032. if (duk_is_string(thr, -2) || duk_is_string(thr, -1)) {
  62033. /* Symbols shouldn't technically be handled here, but should
  62034. * go into the default ToNumber() coercion path instead and
  62035. * fail there with a TypeError. However, there's a ToString()
  62036. * in duk_concat_2() which also fails with TypeError so no
  62037. * explicit check is needed.
  62038. */
  62039. duk_concat_2(thr); /* [... s1 s2] -> [... s1+s2] */
  62040. } else {
  62041. duk_double_t d1, d2;
  62042. d1 = duk_to_number_m2(thr);
  62043. d2 = duk_to_number_m1(thr);
  62044. DUK_ASSERT(duk_is_number(thr, -2));
  62045. DUK_ASSERT(duk_is_number(thr, -1));
  62046. DUK_ASSERT_DOUBLE_IS_NORMALIZED(d1);
  62047. DUK_ASSERT_DOUBLE_IS_NORMALIZED(d2);
  62048. du.d = d1 + d2;
  62049. duk_pop_2_unsafe(thr);
  62050. duk_push_number(thr, du.d); /* will NaN normalize result */
  62051. }
  62052. duk_replace(thr, (duk_idx_t) idx_z); /* side effects */
  62053. }
  62054. DUK_LOCAL DUK__INLINE_PERF void duk__vm_arith_binary_op(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_uint_fast_t idx_z, duk_small_uint_fast_t opcode) {
  62055. /*
  62056. * Arithmetic operations other than '+' have number-only semantics
  62057. * and are implemented here. The separate switch-case here means a
  62058. * "double dispatch" of the arithmetic opcode, but saves code space.
  62059. *
  62060. * E5 Sections 11.5, 11.5.1, 11.5.2, 11.5.3, 11.6, 11.6.1, 11.6.2, 11.6.3.
  62061. */
  62062. duk_double_t d1, d2;
  62063. duk_double_union du;
  62064. duk_small_uint_fast_t opcode_shifted;
  62065. #if defined(DUK_USE_FASTINT) || !defined(DUK_USE_EXEC_PREFER_SIZE)
  62066. duk_tval *tv_z;
  62067. #endif
  62068. DUK_ASSERT(thr != NULL);
  62069. DUK_ASSERT(tv_x != NULL); /* may be reg or const */
  62070. DUK_ASSERT(tv_y != NULL); /* may be reg or const */
  62071. DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */
  62072. DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr));
  62073. opcode_shifted = opcode >> 2; /* Get base opcode without reg/const modifiers. */
  62074. #if defined(DUK_USE_FASTINT)
  62075. if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) {
  62076. duk_int64_t v1, v2, v3;
  62077. duk_int32_t v3_hi;
  62078. v1 = DUK_TVAL_GET_FASTINT(tv_x);
  62079. v2 = DUK_TVAL_GET_FASTINT(tv_y);
  62080. switch (opcode_shifted) {
  62081. case DUK_OP_SUB >> 2: {
  62082. v3 = v1 - v2;
  62083. break;
  62084. }
  62085. case DUK_OP_MUL >> 2: {
  62086. /* Must ensure result is 64-bit (no overflow); a
  62087. * simple and sufficient fast path is to allow only
  62088. * 32-bit inputs. Avoid zero inputs to avoid
  62089. * negative zero issues (-1 * 0 = -0, for instance).
  62090. */
  62091. if (v1 >= DUK_I64_CONSTANT(-0x80000000) && v1 <= DUK_I64_CONSTANT(0x7fffffff) && v1 != 0 &&
  62092. v2 >= DUK_I64_CONSTANT(-0x80000000) && v2 <= DUK_I64_CONSTANT(0x7fffffff) && v2 != 0) {
  62093. v3 = v1 * v2;
  62094. } else {
  62095. goto skip_fastint;
  62096. }
  62097. break;
  62098. }
  62099. case DUK_OP_DIV >> 2: {
  62100. /* Don't allow a zero divisor. Fast path check by
  62101. * "verifying" with multiplication. Also avoid zero
  62102. * dividend to avoid negative zero issues (0 / -1 = -0
  62103. * for instance).
  62104. */
  62105. if (v1 == 0 || v2 == 0) {
  62106. goto skip_fastint;
  62107. }
  62108. v3 = v1 / v2;
  62109. if (v3 * v2 != v1) {
  62110. goto skip_fastint;
  62111. }
  62112. break;
  62113. }
  62114. case DUK_OP_MOD >> 2: {
  62115. /* Don't allow a zero divisor. Restrict both v1 and
  62116. * v2 to positive values to avoid compiler specific
  62117. * behavior.
  62118. */
  62119. if (v1 < 1 || v2 < 1) {
  62120. goto skip_fastint;
  62121. }
  62122. v3 = v1 % v2;
  62123. DUK_ASSERT(v3 >= 0);
  62124. DUK_ASSERT(v3 < v2);
  62125. DUK_ASSERT(v1 - (v1 / v2) * v2 == v3);
  62126. break;
  62127. }
  62128. default: {
  62129. /* Possible with DUK_OP_EXP. */
  62130. goto skip_fastint;
  62131. }
  62132. }
  62133. v3_hi = (duk_int32_t) (v3 >> 32);
  62134. if (DUK_LIKELY(v3_hi >= DUK_I64_CONSTANT(-0x8000) && v3_hi <= DUK_I64_CONSTANT(0x7fff))) {
  62135. tv_z = thr->valstack_bottom + idx_z;
  62136. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, v3); /* side effects */
  62137. return;
  62138. }
  62139. /* fall through if overflow etc */
  62140. }
  62141. skip_fastint:
  62142. #endif /* DUK_USE_FASTINT */
  62143. if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) {
  62144. /* fast path */
  62145. d1 = DUK_TVAL_GET_NUMBER(tv_x);
  62146. d2 = DUK_TVAL_GET_NUMBER(tv_y);
  62147. } else {
  62148. duk_push_tval(thr, tv_x);
  62149. duk_push_tval(thr, tv_y);
  62150. d1 = duk_to_number_m2(thr); /* side effects */
  62151. d2 = duk_to_number_m1(thr);
  62152. DUK_ASSERT(duk_is_number(thr, -2));
  62153. DUK_ASSERT(duk_is_number(thr, -1));
  62154. DUK_ASSERT_DOUBLE_IS_NORMALIZED(d1);
  62155. DUK_ASSERT_DOUBLE_IS_NORMALIZED(d2);
  62156. duk_pop_2_unsafe(thr);
  62157. }
  62158. switch (opcode_shifted) {
  62159. case DUK_OP_SUB >> 2: {
  62160. du.d = d1 - d2;
  62161. break;
  62162. }
  62163. case DUK_OP_MUL >> 2: {
  62164. du.d = d1 * d2;
  62165. break;
  62166. }
  62167. case DUK_OP_DIV >> 2: {
  62168. du.d = d1 / d2;
  62169. break;
  62170. }
  62171. case DUK_OP_MOD >> 2: {
  62172. du.d = duk__compute_mod(d1, d2);
  62173. break;
  62174. }
  62175. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  62176. case DUK_OP_EXP >> 2: {
  62177. du.d = duk__compute_exp(d1, d2);
  62178. break;
  62179. }
  62180. #endif
  62181. default: {
  62182. DUK_UNREACHABLE();
  62183. du.d = DUK_DOUBLE_NAN; /* should not happen */
  62184. break;
  62185. }
  62186. }
  62187. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  62188. duk_push_number(thr, du.d); /* will NaN normalize result */
  62189. duk_replace(thr, (duk_idx_t) idx_z);
  62190. #else /* DUK_USE_EXEC_PREFER_SIZE */
  62191. /* important to use normalized NaN with 8-byte tagged types */
  62192. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du);
  62193. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  62194. tv_z = thr->valstack_bottom + idx_z;
  62195. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, du.d); /* side effects */
  62196. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  62197. }
  62198. DUK_LOCAL DUK__INLINE_PERF void duk__vm_bitwise_binary_op(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_fast_t idx_z, duk_small_uint_fast_t opcode) {
  62199. /*
  62200. * Binary bitwise operations use different coercions (ToInt32, ToUint32)
  62201. * depending on the operation. We coerce the arguments first using
  62202. * ToInt32(), and then cast to an 32-bit value if necessary. Note that
  62203. * such casts must be correct even if there is no native 32-bit type
  62204. * (e.g., duk_int32_t and duk_uint32_t are 64-bit).
  62205. *
  62206. * E5 Sections 11.10, 11.7.1, 11.7.2, 11.7.3
  62207. */
  62208. duk_int32_t i1, i2, i3;
  62209. duk_uint32_t u1, u2, u3;
  62210. #if defined(DUK_USE_FASTINT)
  62211. duk_int64_t fi3;
  62212. #else
  62213. duk_double_t d3;
  62214. #endif
  62215. duk_small_uint_fast_t opcode_shifted;
  62216. #if defined(DUK_USE_FASTINT) || !defined(DUK_USE_EXEC_PREFER_SIZE)
  62217. duk_tval *tv_z;
  62218. #endif
  62219. DUK_ASSERT(thr != NULL);
  62220. DUK_ASSERT(tv_x != NULL); /* may be reg or const */
  62221. DUK_ASSERT(tv_y != NULL); /* may be reg or const */
  62222. DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */
  62223. DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr));
  62224. opcode_shifted = opcode >> 2; /* Get base opcode without reg/const modifiers. */
  62225. #if defined(DUK_USE_FASTINT)
  62226. if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) {
  62227. i1 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv_x);
  62228. i2 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv_y);
  62229. }
  62230. else
  62231. #endif /* DUK_USE_FASTINT */
  62232. {
  62233. duk_push_tval(thr, tv_x);
  62234. duk_push_tval(thr, tv_y);
  62235. i1 = duk_to_int32(thr, -2);
  62236. i2 = duk_to_int32(thr, -1);
  62237. duk_pop_2_unsafe(thr);
  62238. }
  62239. switch (opcode_shifted) {
  62240. case DUK_OP_BAND >> 2: {
  62241. i3 = i1 & i2;
  62242. break;
  62243. }
  62244. case DUK_OP_BOR >> 2: {
  62245. i3 = i1 | i2;
  62246. break;
  62247. }
  62248. case DUK_OP_BXOR >> 2: {
  62249. i3 = i1 ^ i2;
  62250. break;
  62251. }
  62252. case DUK_OP_BASL >> 2: {
  62253. /* Signed shift, named "arithmetic" (asl) because the result
  62254. * is signed, e.g. 4294967295 << 1 -> -2. Note that result
  62255. * must be masked.
  62256. */
  62257. u2 = ((duk_uint32_t) i2) & 0xffffffffUL;
  62258. i3 = (duk_int32_t) (((duk_uint32_t) i1) << (u2 & 0x1fUL)); /* E5 Section 11.7.1, steps 7 and 8 */
  62259. i3 = i3 & ((duk_int32_t) 0xffffffffUL); /* Note: left shift, should mask */
  62260. break;
  62261. }
  62262. case DUK_OP_BASR >> 2: {
  62263. /* signed shift */
  62264. u2 = ((duk_uint32_t) i2) & 0xffffffffUL;
  62265. i3 = i1 >> (u2 & 0x1fUL); /* E5 Section 11.7.2, steps 7 and 8 */
  62266. break;
  62267. }
  62268. case DUK_OP_BLSR >> 2: {
  62269. /* unsigned shift */
  62270. u1 = ((duk_uint32_t) i1) & 0xffffffffUL;
  62271. u2 = ((duk_uint32_t) i2) & 0xffffffffUL;
  62272. /* special result value handling */
  62273. u3 = u1 >> (u2 & 0x1fUL); /* E5 Section 11.7.2, steps 7 and 8 */
  62274. #if defined(DUK_USE_FASTINT)
  62275. fi3 = (duk_int64_t) u3;
  62276. goto fastint_result_set;
  62277. #else
  62278. d3 = (duk_double_t) u3;
  62279. goto result_set;
  62280. #endif
  62281. }
  62282. default: {
  62283. DUK_UNREACHABLE();
  62284. i3 = 0; /* should not happen */
  62285. break;
  62286. }
  62287. }
  62288. #if defined(DUK_USE_FASTINT)
  62289. /* Result is always fastint compatible. */
  62290. /* XXX: Set 32-bit result (but must then handle signed and
  62291. * unsigned results separately).
  62292. */
  62293. fi3 = (duk_int64_t) i3;
  62294. fastint_result_set:
  62295. tv_z = thr->valstack_bottom + idx_z;
  62296. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, fi3); /* side effects */
  62297. #else /* DUK_USE_FASTINT */
  62298. d3 = (duk_double_t) i3;
  62299. result_set:
  62300. DUK_ASSERT(!DUK_ISNAN(d3)); /* 'd3' is never NaN, so no need to normalize */
  62301. DUK_ASSERT_DOUBLE_IS_NORMALIZED(d3); /* always normalized */
  62302. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  62303. duk_push_number(thr, d3); /* would NaN normalize result, but unnecessary */
  62304. duk_replace(thr, (duk_idx_t) idx_z);
  62305. #else /* DUK_USE_EXEC_PREFER_SIZE */
  62306. tv_z = thr->valstack_bottom + idx_z;
  62307. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, d3); /* side effects */
  62308. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  62309. #endif /* DUK_USE_FASTINT */
  62310. }
  62311. /* In-place unary operation. */
  62312. DUK_LOCAL DUK__INLINE_PERF void duk__vm_arith_unary_op(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst, duk_small_uint_fast_t opcode) {
  62313. /*
  62314. * Arithmetic operations other than '+' have number-only semantics
  62315. * and are implemented here. The separate switch-case here means a
  62316. * "double dispatch" of the arithmetic opcode, but saves code space.
  62317. *
  62318. * E5 Sections 11.5, 11.5.1, 11.5.2, 11.5.3, 11.6, 11.6.1, 11.6.2, 11.6.3.
  62319. */
  62320. duk_tval *tv;
  62321. duk_double_t d1;
  62322. duk_double_union du;
  62323. DUK_ASSERT(thr != NULL);
  62324. DUK_ASSERT(opcode == DUK_OP_UNM || opcode == DUK_OP_UNP);
  62325. DUK_ASSERT_DISABLE(idx_src >= 0);
  62326. DUK_ASSERT_DISABLE(idx_dst >= 0);
  62327. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src);
  62328. #if defined(DUK_USE_FASTINT)
  62329. if (DUK_TVAL_IS_FASTINT(tv)) {
  62330. duk_int64_t v1, v2;
  62331. v1 = DUK_TVAL_GET_FASTINT(tv);
  62332. if (opcode == DUK_OP_UNM) {
  62333. /* The smallest fastint is no longer 48-bit when
  62334. * negated. Positive zero becames negative zero
  62335. * (cannot be represented) when negated.
  62336. */
  62337. if (DUK_LIKELY(v1 != DUK_FASTINT_MIN && v1 != 0)) {
  62338. v2 = -v1;
  62339. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62340. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv, v2);
  62341. return;
  62342. }
  62343. } else {
  62344. /* ToNumber() for a fastint is a no-op. */
  62345. DUK_ASSERT(opcode == DUK_OP_UNP);
  62346. v2 = v1;
  62347. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62348. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv, v2);
  62349. return;
  62350. }
  62351. /* fall through if overflow etc */
  62352. }
  62353. #endif /* DUK_USE_FASTINT */
  62354. if (DUK_TVAL_IS_NUMBER(tv)) {
  62355. d1 = DUK_TVAL_GET_NUMBER(tv);
  62356. } else {
  62357. d1 = duk_to_number_tval(thr, tv); /* side effects */
  62358. }
  62359. if (opcode == DUK_OP_UNP) {
  62360. /* ToNumber() for a double is a no-op, but unary plus is
  62361. * used to force a fastint check so do that here.
  62362. */
  62363. du.d = d1;
  62364. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  62365. #if defined(DUK_USE_FASTINT)
  62366. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62367. DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF(thr, tv, du.d); /* always 'fast', i.e. inlined */
  62368. return;
  62369. #endif
  62370. } else {
  62371. DUK_ASSERT(opcode == DUK_OP_UNM);
  62372. du.d = -d1;
  62373. DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); /* mandatory if du.d is a NaN */
  62374. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  62375. }
  62376. /* XXX: size optimize: push+replace? */
  62377. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62378. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, du.d);
  62379. }
  62380. DUK_LOCAL DUK__INLINE_PERF void duk__vm_bitwise_not(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst) {
  62381. /*
  62382. * E5 Section 11.4.8
  62383. */
  62384. duk_tval *tv;
  62385. duk_int32_t i1, i2;
  62386. DUK_ASSERT(thr != NULL);
  62387. DUK_ASSERT_DISABLE(idx_src >= 0);
  62388. DUK_ASSERT_DISABLE(idx_dst >= 0);
  62389. DUK_ASSERT((duk_uint_t) idx_src < (duk_uint_t) duk_get_top(thr));
  62390. DUK_ASSERT((duk_uint_t) idx_dst < (duk_uint_t) duk_get_top(thr));
  62391. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src);
  62392. #if defined(DUK_USE_FASTINT)
  62393. if (DUK_TVAL_IS_FASTINT(tv)) {
  62394. i1 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv);
  62395. }
  62396. else
  62397. #endif /* DUK_USE_FASTINT */
  62398. {
  62399. duk_push_tval(thr, tv);
  62400. i1 = duk_to_int32(thr, -1); /* side effects */
  62401. duk_pop_unsafe(thr);
  62402. }
  62403. /* Result is always fastint compatible. */
  62404. i2 = ~i1;
  62405. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62406. DUK_TVAL_SET_I32_UPDREF(thr, tv, i2); /* side effects */
  62407. }
  62408. DUK_LOCAL DUK__INLINE_PERF void duk__vm_logical_not(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst) {
  62409. /*
  62410. * E5 Section 11.4.9
  62411. */
  62412. duk_tval *tv;
  62413. duk_bool_t res;
  62414. DUK_ASSERT(thr != NULL);
  62415. DUK_ASSERT_DISABLE(idx_src >= 0);
  62416. DUK_ASSERT_DISABLE(idx_dst >= 0);
  62417. DUK_ASSERT((duk_uint_t) idx_src < (duk_uint_t) duk_get_top(thr));
  62418. DUK_ASSERT((duk_uint_t) idx_dst < (duk_uint_t) duk_get_top(thr));
  62419. /* ToBoolean() does not require any operations with side effects so
  62420. * we can do it efficiently. For footprint it would be better to use
  62421. * duk_js_toboolean() and then push+replace to the result slot.
  62422. */
  62423. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src);
  62424. res = duk_js_toboolean(tv); /* does not modify 'tv' */
  62425. DUK_ASSERT(res == 0 || res == 1);
  62426. res ^= 1;
  62427. tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst);
  62428. /* XXX: size optimize: push+replace? */
  62429. DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv, res); /* side effects */
  62430. }
  62431. /* XXX: size optimized variant */
  62432. DUK_LOCAL DUK__INLINE_PERF void duk__prepost_incdec_reg_helper(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_small_uint_t op) {
  62433. duk_double_t x, y, z;
  62434. /* Two lowest bits of opcode are used to distinguish
  62435. * variants. Bit 0 = inc(0)/dec(1), bit 1 = pre(0)/post(1).
  62436. */
  62437. DUK_ASSERT((DUK_OP_PREINCR & 0x03) == 0x00);
  62438. DUK_ASSERT((DUK_OP_PREDECR & 0x03) == 0x01);
  62439. DUK_ASSERT((DUK_OP_POSTINCR & 0x03) == 0x02);
  62440. DUK_ASSERT((DUK_OP_POSTDECR & 0x03) == 0x03);
  62441. #if defined(DUK_USE_FASTINT)
  62442. if (DUK_TVAL_IS_FASTINT(tv_src)) {
  62443. duk_int64_t x_fi, y_fi, z_fi;
  62444. x_fi = DUK_TVAL_GET_FASTINT(tv_src);
  62445. if (op & 0x01) {
  62446. if (DUK_UNLIKELY(x_fi == DUK_FASTINT_MIN)) {
  62447. goto skip_fastint;
  62448. }
  62449. y_fi = x_fi - 1;
  62450. } else {
  62451. if (DUK_UNLIKELY(x_fi == DUK_FASTINT_MAX)) {
  62452. goto skip_fastint;
  62453. }
  62454. y_fi = x_fi + 1;
  62455. }
  62456. DUK_TVAL_SET_FASTINT(tv_src, y_fi); /* no need for refcount update */
  62457. z_fi = (op & 0x02) ? x_fi : y_fi;
  62458. DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_dst, z_fi); /* side effects */
  62459. return;
  62460. }
  62461. skip_fastint:
  62462. #endif
  62463. if (DUK_TVAL_IS_NUMBER(tv_src)) {
  62464. /* Fast path for the case where the register
  62465. * is a number (e.g. loop counter).
  62466. */
  62467. x = DUK_TVAL_GET_NUMBER(tv_src);
  62468. if (op & 0x01) {
  62469. y = x - 1.0;
  62470. } else {
  62471. y = x + 1.0;
  62472. }
  62473. DUK_TVAL_SET_NUMBER(tv_src, y); /* no need for refcount update */
  62474. } else {
  62475. /* Preserve duk_tval pointer(s) across a potential valstack
  62476. * resize by converting them into offsets temporarily.
  62477. */
  62478. duk_idx_t bc;
  62479. duk_size_t off_dst;
  62480. off_dst = (duk_size_t) ((duk_uint8_t *) tv_dst - (duk_uint8_t *) thr->valstack_bottom);
  62481. bc = (duk_idx_t) (tv_src - thr->valstack_bottom); /* XXX: pass index explicitly? */
  62482. tv_src = NULL; /* no longer referenced */
  62483. x = duk_to_number(thr, bc);
  62484. if (op & 0x01) {
  62485. y = x - 1.0;
  62486. } else {
  62487. y = x + 1.0;
  62488. }
  62489. duk_push_number(thr, y);
  62490. duk_replace(thr, bc);
  62491. tv_dst = (duk_tval *) (void *) (((duk_uint8_t *) thr->valstack_bottom) + off_dst);
  62492. }
  62493. z = (op & 0x02) ? x : y;
  62494. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_dst, z); /* side effects */
  62495. }
  62496. DUK_LOCAL DUK__INLINE_PERF void duk__prepost_incdec_var_helper(duk_hthread *thr, duk_small_uint_t idx_dst, duk_tval *tv_id, duk_small_uint_t op, duk_small_uint_t is_strict) {
  62497. duk_activation *act;
  62498. duk_double_t x, y;
  62499. duk_hstring *name;
  62500. /* XXX: The pre/post inc/dec for an identifier lookup is
  62501. * missing the important fast path where the identifier
  62502. * has a storage location e.g. in a scope object so that
  62503. * it can be updated in-place. In particular, the case
  62504. * where the identifier has a storage location AND the
  62505. * previous value is a number should be optimized because
  62506. * it's side effect free.
  62507. */
  62508. /* Two lowest bits of opcode are used to distinguish
  62509. * variants. Bit 0 = inc(0)/dec(1), bit 1 = pre(0)/post(1).
  62510. */
  62511. DUK_ASSERT((DUK_OP_PREINCV & 0x03) == 0x00);
  62512. DUK_ASSERT((DUK_OP_PREDECV & 0x03) == 0x01);
  62513. DUK_ASSERT((DUK_OP_POSTINCV & 0x03) == 0x02);
  62514. DUK_ASSERT((DUK_OP_POSTDECV & 0x03) == 0x03);
  62515. DUK_ASSERT(DUK_TVAL_IS_STRING(tv_id));
  62516. name = DUK_TVAL_GET_STRING(tv_id);
  62517. DUK_ASSERT(name != NULL);
  62518. act = thr->callstack_curr;
  62519. (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [ ... val this ] */
  62520. /* XXX: Fastint fast path would be useful here. Also fastints
  62521. * now lose their fastint status in current handling which is
  62522. * not intuitive.
  62523. */
  62524. x = duk_to_number_m2(thr);
  62525. if (op & 0x01) {
  62526. y = x - 1.0;
  62527. } else {
  62528. y = x + 1.0;
  62529. }
  62530. /* [... x this] */
  62531. if (op & 0x02) {
  62532. duk_push_number(thr, y); /* -> [ ... x this y ] */
  62533. DUK_ASSERT(act == thr->callstack_curr);
  62534. duk_js_putvar_activation(thr, act, name, DUK_GET_TVAL_NEGIDX(thr, -1), is_strict);
  62535. duk_pop_2_unsafe(thr); /* -> [ ... x ] */
  62536. } else {
  62537. duk_pop_2_unsafe(thr); /* -> [ ... ] */
  62538. duk_push_number(thr, y); /* -> [ ... y ] */
  62539. DUK_ASSERT(act == thr->callstack_curr);
  62540. duk_js_putvar_activation(thr, act, name, DUK_GET_TVAL_NEGIDX(thr, -1), is_strict);
  62541. }
  62542. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  62543. duk_replace(thr, (duk_idx_t) idx_dst);
  62544. #else /* DUK_USE_EXEC_PREFER_SIZE */
  62545. DUK__REPLACE_TO_TVPTR(thr, DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst));
  62546. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  62547. }
  62548. /*
  62549. * Longjmp and other control flow transfer for the bytecode executor.
  62550. *
  62551. * The longjmp handler can handle all longjmp types: error, yield, and
  62552. * resume (pseudotypes are never actually thrown).
  62553. *
  62554. * Error policy for longjmp: should not ordinarily throw errors; if errors
  62555. * occur (e.g. due to out-of-memory) they bubble outwards rather than being
  62556. * handled recursively.
  62557. */
  62558. #define DUK__LONGJMP_RESTART 0 /* state updated, restart bytecode execution */
  62559. #define DUK__LONGJMP_RETHROW 1 /* exit bytecode executor by rethrowing an error to caller */
  62560. #define DUK__RETHAND_RESTART 0 /* state updated, restart bytecode execution */
  62561. #define DUK__RETHAND_FINISHED 1 /* exit bytecode execution with return value */
  62562. /* XXX: optimize reconfig valstack operations so that resize, clamp, and setting
  62563. * top are combined into one pass.
  62564. */
  62565. /* Reconfigure value stack for return to an Ecmascript function at
  62566. * callstack top (caller unwinds).
  62567. */
  62568. DUK_LOCAL void duk__reconfig_valstack_ecma_return(duk_hthread *thr) {
  62569. duk_activation *act;
  62570. duk_hcompfunc *h_func;
  62571. duk_idx_t clamp_top;
  62572. DUK_ASSERT(thr != NULL);
  62573. act = thr->callstack_curr;
  62574. DUK_ASSERT(act != NULL);
  62575. DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL);
  62576. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act)));
  62577. /* Clamp so that values at 'clamp_top' and above are wiped and won't
  62578. * retain reachable garbage. Then extend to 'nregs' because we're
  62579. * returning to an Ecmascript function.
  62580. */
  62581. h_func = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  62582. thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff);
  62583. DUK_ASSERT(act->retval_byteoff >= act->bottom_byteoff);
  62584. clamp_top = (duk_idx_t) ((act->retval_byteoff - act->bottom_byteoff + sizeof(duk_tval)) / sizeof(duk_tval)); /* +1 = one retval */
  62585. duk_set_top_and_wipe(thr, h_func->nregs, clamp_top);
  62586. DUK_ASSERT((duk_uint8_t *) thr->valstack_end >= (duk_uint8_t *) thr->valstack + act->reserve_byteoff);
  62587. thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->reserve_byteoff);
  62588. /* XXX: a best effort shrink check would be OK here */
  62589. }
  62590. /* Reconfigure value stack for an Ecmascript catcher. Use topmost catcher
  62591. * in 'act'.
  62592. */
  62593. DUK_LOCAL void duk__reconfig_valstack_ecma_catcher(duk_hthread *thr, duk_activation *act) {
  62594. duk_catcher *cat;
  62595. duk_hcompfunc *h_func;
  62596. duk_size_t idx_bottom;
  62597. duk_idx_t clamp_top;
  62598. DUK_ASSERT(thr != NULL);
  62599. DUK_ASSERT(act != NULL);
  62600. DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL);
  62601. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act)));
  62602. cat = act->cat;
  62603. DUK_ASSERT(cat != NULL);
  62604. h_func = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  62605. thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff);
  62606. idx_bottom = (duk_size_t) (thr->valstack_bottom - thr->valstack);
  62607. DUK_ASSERT(cat->idx_base >= idx_bottom);
  62608. clamp_top = (duk_idx_t) (cat->idx_base - idx_bottom + 2); /* +2 = catcher value, catcher lj_type */
  62609. duk_set_top_and_wipe(thr, h_func->nregs, clamp_top);
  62610. DUK_ASSERT((duk_uint8_t *) thr->valstack_end >= (duk_uint8_t *) thr->valstack + act->reserve_byteoff);
  62611. thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->reserve_byteoff);
  62612. /* XXX: a best effort shrink check would be OK here */
  62613. }
  62614. /* Set catcher regs: idx_base+0 = value, idx_base+1 = lj_type.
  62615. * No side effects.
  62616. */
  62617. DUK_LOCAL void duk__set_catcher_regs_norz(duk_hthread *thr, duk_catcher *cat, duk_tval *tv_val_unstable, duk_small_uint_t lj_type) {
  62618. duk_tval *tv1;
  62619. DUK_ASSERT(thr != NULL);
  62620. DUK_ASSERT(tv_val_unstable != NULL);
  62621. tv1 = thr->valstack + cat->idx_base;
  62622. DUK_ASSERT(tv1 < thr->valstack_top);
  62623. DUK_TVAL_SET_TVAL_UPDREF_NORZ(thr, tv1, tv_val_unstable);
  62624. tv1++;
  62625. DUK_ASSERT(tv1 == thr->valstack + cat->idx_base + 1);
  62626. DUK_ASSERT(tv1 < thr->valstack_top);
  62627. DUK_TVAL_SET_U32_UPDREF_NORZ(thr, tv1, (duk_uint32_t) lj_type);
  62628. }
  62629. DUK_LOCAL void duk__handle_catch(duk_hthread *thr, duk_tval *tv_val_unstable, duk_small_uint_t lj_type) {
  62630. duk_activation *act;
  62631. duk_catcher *cat;
  62632. DUK_ASSERT(thr != NULL);
  62633. DUK_ASSERT(tv_val_unstable != NULL);
  62634. act = thr->callstack_curr;
  62635. DUK_ASSERT(act != NULL);
  62636. DUK_ASSERT(act->cat != NULL);
  62637. DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF);
  62638. duk__set_catcher_regs_norz(thr, act->cat, tv_val_unstable, lj_type);
  62639. DUK_ASSERT(thr->callstack_top >= 1);
  62640. DUK_ASSERT(thr->callstack_curr != NULL);
  62641. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL);
  62642. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  62643. DUK_ASSERT(thr->callstack_top >= 1);
  62644. DUK_ASSERT(act == thr->callstack_curr);
  62645. DUK_ASSERT(act != NULL);
  62646. duk__reconfig_valstack_ecma_catcher(thr, act);
  62647. DUK_ASSERT(thr->callstack_top >= 1);
  62648. DUK_ASSERT(act == thr->callstack_curr);
  62649. DUK_ASSERT(act != NULL);
  62650. cat = act->cat;
  62651. DUK_ASSERT(cat != NULL);
  62652. act->curr_pc = cat->pc_base + 0; /* +0 = catch */
  62653. /*
  62654. * If entering a 'catch' block which requires an automatic
  62655. * catch variable binding, create the lexical environment.
  62656. *
  62657. * The binding is mutable (= writable) but not deletable.
  62658. * Step 4 for the catch production in E5 Section 12.14;
  62659. * no value is given for CreateMutableBinding 'D' argument,
  62660. * which implies the binding is not deletable.
  62661. */
  62662. if (DUK_CAT_HAS_CATCH_BINDING_ENABLED(cat)) {
  62663. duk_hdecenv *new_env;
  62664. DUK_DDD(DUK_DDDPRINT("catcher has an automatic catch binding"));
  62665. DUK_ASSERT(thr->callstack_top >= 1);
  62666. DUK_ASSERT(act == thr->callstack_curr);
  62667. DUK_ASSERT(act != NULL);
  62668. if (act->lex_env == NULL) {
  62669. DUK_ASSERT(act->var_env == NULL);
  62670. DUK_DDD(DUK_DDDPRINT("delayed environment initialization"));
  62671. duk_js_init_activation_environment_records_delayed(thr, act);
  62672. DUK_ASSERT(act == thr->callstack_curr);
  62673. DUK_ASSERT(act != NULL);
  62674. }
  62675. DUK_ASSERT(act->lex_env != NULL);
  62676. DUK_ASSERT(act->var_env != NULL);
  62677. DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL);
  62678. /* XXX: If an out-of-memory happens here, longjmp state asserts
  62679. * will be triggered at present and a try-catch fails to catch.
  62680. * That's not sandboxing fatal (C API protected calls are what
  62681. * matters), and script catch code can immediately throw anyway
  62682. * for almost any operation.
  62683. */
  62684. new_env = duk_hdecenv_alloc(thr,
  62685. DUK_HOBJECT_FLAG_EXTENSIBLE |
  62686. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV));
  62687. DUK_ASSERT(new_env != NULL);
  62688. duk_push_hobject(thr, (duk_hobject *) new_env);
  62689. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL);
  62690. DUK_DDD(DUK_DDDPRINT("new_env allocated: %!iO", (duk_heaphdr *) new_env));
  62691. /* Note: currently the catch binding is handled without a register
  62692. * binding because we don't support dynamic register bindings (they
  62693. * must be fixed for an entire function). So, there is no need to
  62694. * record regbases etc.
  62695. */
  62696. /* XXX: duk_xdef_prop() may cause an out-of-memory, see above. */
  62697. DUK_ASSERT(cat->h_varname != NULL);
  62698. duk_push_hstring(thr, cat->h_varname);
  62699. duk_push_tval(thr, thr->valstack + cat->idx_base);
  62700. duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_W); /* writable, not configurable */
  62701. DUK_ASSERT(act == thr->callstack_curr);
  62702. DUK_ASSERT(act != NULL);
  62703. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, act->lex_env);
  62704. act->lex_env = (duk_hobject *) new_env;
  62705. DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env); /* reachable through activation */
  62706. /* Net refcount change to act->lex_env is 0: incref for new_env's
  62707. * prototype, decref for act->lex_env overwrite.
  62708. */
  62709. DUK_CAT_SET_LEXENV_ACTIVE(cat);
  62710. duk_pop_unsafe(thr);
  62711. DUK_DDD(DUK_DDDPRINT("new_env finished: %!iO", (duk_heaphdr *) new_env));
  62712. }
  62713. DUK_CAT_CLEAR_CATCH_ENABLED(cat);
  62714. }
  62715. DUK_LOCAL void duk__handle_finally(duk_hthread *thr, duk_tval *tv_val_unstable, duk_small_uint_t lj_type) {
  62716. duk_activation *act;
  62717. duk_catcher *cat;
  62718. DUK_ASSERT(thr != NULL);
  62719. DUK_ASSERT(tv_val_unstable != NULL);
  62720. act = thr->callstack_curr;
  62721. DUK_ASSERT(act != NULL);
  62722. DUK_ASSERT(act->cat != NULL);
  62723. DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF);
  62724. duk__set_catcher_regs_norz(thr, act->cat, tv_val_unstable, lj_type);
  62725. DUK_ASSERT(thr->callstack_top >= 1);
  62726. DUK_ASSERT(thr->callstack_curr != NULL);
  62727. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL);
  62728. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  62729. DUK_ASSERT(thr->callstack_top >= 1);
  62730. DUK_ASSERT(act == thr->callstack_curr);
  62731. DUK_ASSERT(act != NULL);
  62732. duk__reconfig_valstack_ecma_catcher(thr, act);
  62733. DUK_ASSERT(thr->callstack_top >= 1);
  62734. DUK_ASSERT(act == thr->callstack_curr);
  62735. DUK_ASSERT(act != NULL);
  62736. cat = act->cat;
  62737. DUK_ASSERT(cat != NULL);
  62738. act->curr_pc = cat->pc_base + 1; /* +1 = finally */
  62739. DUK_CAT_CLEAR_FINALLY_ENABLED(cat);
  62740. }
  62741. DUK_LOCAL void duk__handle_label(duk_hthread *thr, duk_small_uint_t lj_type) {
  62742. duk_activation *act;
  62743. duk_catcher *cat;
  62744. DUK_ASSERT(thr != NULL);
  62745. DUK_ASSERT(thr->callstack_top >= 1);
  62746. act = thr->callstack_curr;
  62747. DUK_ASSERT(act != NULL);
  62748. DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL);
  62749. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(DUK_ACT_GET_FUNC(act)));
  62750. /* +0 = break, +1 = continue */
  62751. cat = act->cat;
  62752. DUK_ASSERT(cat != NULL);
  62753. DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_LABEL);
  62754. act->curr_pc = cat->pc_base + (lj_type == DUK_LJ_TYPE_CONTINUE ? 1 : 0);
  62755. /* valstack should not need changes */
  62756. #if defined(DUK_USE_ASSERTIONS)
  62757. DUK_ASSERT(thr->callstack_top >= 1);
  62758. DUK_ASSERT(act == thr->callstack_curr);
  62759. DUK_ASSERT(act != NULL);
  62760. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) ==
  62761. (duk_size_t) ((duk_hcompfunc *) DUK_ACT_GET_FUNC(act))->nregs);
  62762. #endif
  62763. }
  62764. /* Called for handling both a longjmp() with type DUK_LJ_TYPE_YIELD and
  62765. * when a RETURN opcode terminates a thread and yields to the resumer.
  62766. * Caller unwinds so that top of callstack is the activation we return to.
  62767. */
  62768. #if defined(DUK_USE_COROUTINE_SUPPORT)
  62769. DUK_LOCAL void duk__handle_yield(duk_hthread *thr, duk_hthread *resumer, duk_tval *tv_val_unstable) {
  62770. duk_activation *act_resumer;
  62771. duk_tval *tv1;
  62772. DUK_ASSERT(thr != NULL);
  62773. DUK_ASSERT(resumer != NULL);
  62774. DUK_ASSERT(tv_val_unstable != NULL);
  62775. act_resumer = resumer->callstack_curr;
  62776. DUK_ASSERT(act_resumer != NULL);
  62777. DUK_ASSERT(DUK_ACT_GET_FUNC(act_resumer) != NULL);
  62778. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act_resumer))); /* resume caller must be an ecmascript func */
  62779. tv1 = (duk_tval *) (void *) ((duk_uint8_t *) resumer->valstack + act_resumer->retval_byteoff); /* return value from Duktape.Thread.resume() */
  62780. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv_val_unstable); /* side effects */ /* XXX: avoid side effects */
  62781. duk__reconfig_valstack_ecma_return(resumer);
  62782. /* caller must change active thread, and set thr->resumer to NULL */
  62783. }
  62784. #endif /* DUK_USE_COROUTINE_SUPPORT */
  62785. DUK_LOCAL duk_small_uint_t duk__handle_longjmp(duk_hthread *thr, duk_activation *entry_act) {
  62786. duk_small_uint_t retval = DUK__LONGJMP_RESTART;
  62787. DUK_ASSERT(thr != NULL);
  62788. DUK_ASSERT(entry_act != NULL);
  62789. /* 'thr' is the current thread, as no-one resumes except us and we
  62790. * switch 'thr' in that case.
  62791. */
  62792. DUK_ASSERT(thr == thr->heap->curr_thread);
  62793. /*
  62794. * (Re)try handling the longjmp.
  62795. *
  62796. * A longjmp handler may convert the longjmp to a different type and
  62797. * "virtually" rethrow by goto'ing to 'check_longjmp'. Before the goto,
  62798. * the following must be updated:
  62799. * - the heap 'lj' state
  62800. * - 'thr' must reflect the "throwing" thread
  62801. */
  62802. check_longjmp:
  62803. DUK_DD(DUK_DDPRINT("handling longjmp: type=%ld, value1=%!T, value2=%!T, iserror=%ld",
  62804. (long) thr->heap->lj.type,
  62805. (duk_tval *) &thr->heap->lj.value1,
  62806. (duk_tval *) &thr->heap->lj.value2,
  62807. (long) thr->heap->lj.iserror));
  62808. switch (thr->heap->lj.type) {
  62809. #if defined(DUK_USE_COROUTINE_SUPPORT)
  62810. case DUK_LJ_TYPE_RESUME: {
  62811. /*
  62812. * Note: lj.value1 is 'value', lj.value2 is 'resumee'.
  62813. * This differs from YIELD.
  62814. */
  62815. duk_tval *tv;
  62816. duk_tval *tv2;
  62817. duk_hthread *resumee;
  62818. /* duk_bi_duk_object_yield() and duk_bi_duk_object_resume() ensure all of these are met */
  62819. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); /* unchanged by Duktape.Thread.resume() */
  62820. DUK_ASSERT(thr->callstack_top >= 2); /* Ecmascript activation + Duktape.Thread.resume() activation */
  62821. DUK_ASSERT(thr->callstack_curr != NULL);
  62822. DUK_ASSERT(thr->callstack_curr->parent != NULL);
  62823. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL &&
  62824. DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)) &&
  62825. ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->callstack_curr))->func == duk_bi_thread_resume);
  62826. tv = &thr->heap->lj.value2; /* resumee */
  62827. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv));
  62828. DUK_ASSERT(DUK_TVAL_GET_OBJECT(tv) != NULL);
  62829. DUK_ASSERT(DUK_HOBJECT_IS_THREAD(DUK_TVAL_GET_OBJECT(tv)));
  62830. resumee = (duk_hthread *) DUK_TVAL_GET_OBJECT(tv);
  62831. DUK_ASSERT(resumee != NULL);
  62832. DUK_ASSERT(resumee->resumer == NULL);
  62833. DUK_ASSERT(resumee->state == DUK_HTHREAD_STATE_INACTIVE ||
  62834. resumee->state == DUK_HTHREAD_STATE_YIELDED); /* checked by Duktape.Thread.resume() */
  62835. DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_YIELDED ||
  62836. resumee->callstack_top >= 2); /* YIELDED: Ecmascript activation + Duktape.Thread.yield() activation */
  62837. DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_YIELDED ||
  62838. (DUK_ACT_GET_FUNC(resumee->callstack_curr) != NULL &&
  62839. DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(resumee->callstack_curr)) &&
  62840. ((duk_hnatfunc *) DUK_ACT_GET_FUNC(resumee->callstack_curr))->func == duk_bi_thread_yield));
  62841. DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_INACTIVE ||
  62842. resumee->callstack_top == 0); /* INACTIVE: no activation, single function value on valstack */
  62843. if (thr->heap->lj.iserror) {
  62844. /*
  62845. * Throw the error in the resumed thread's context; the
  62846. * error value is pushed onto the resumee valstack.
  62847. *
  62848. * Note: the callstack of the target may empty in this case
  62849. * too (i.e. the target thread has never been resumed). The
  62850. * value stack will contain the initial function in that case,
  62851. * which we simply ignore.
  62852. */
  62853. DUK_ASSERT(resumee->resumer == NULL);
  62854. resumee->resumer = thr;
  62855. DUK_HTHREAD_INCREF(thr, thr);
  62856. resumee->state = DUK_HTHREAD_STATE_RUNNING;
  62857. thr->state = DUK_HTHREAD_STATE_RESUMED;
  62858. DUK_HEAP_SWITCH_THREAD(thr->heap, resumee);
  62859. thr = resumee;
  62860. thr->heap->lj.type = DUK_LJ_TYPE_THROW;
  62861. /* thr->heap->lj.value1 is already the value to throw */
  62862. /* thr->heap->lj.value2 is 'thread', will be wiped out at the end */
  62863. DUK_ASSERT(thr->heap->lj.iserror); /* already set */
  62864. DUK_DD(DUK_DDPRINT("-> resume with an error, converted to a throw in the resumee, propagate"));
  62865. goto check_longjmp;
  62866. } else if (resumee->state == DUK_HTHREAD_STATE_YIELDED) {
  62867. /* Unwind previous Duktape.Thread.yield() call. The
  62868. * activation remaining must always be an Ecmascript
  62869. * call now (yield() accepts calls from Ecmascript
  62870. * only).
  62871. */
  62872. duk_activation *act_resumee;
  62873. DUK_ASSERT(resumee->callstack_top >= 2);
  62874. act_resumee = resumee->callstack_curr; /* Duktape.Thread.yield() */
  62875. DUK_ASSERT(act_resumee != NULL);
  62876. act_resumee = act_resumee->parent; /* Ecmascript call site for yield() */
  62877. DUK_ASSERT(act_resumee != NULL);
  62878. tv = (duk_tval *) (void *) ((duk_uint8_t *) resumee->valstack + act_resumee->retval_byteoff); /* return value from Duktape.Thread.yield() */
  62879. DUK_ASSERT(tv >= resumee->valstack && tv < resumee->valstack_top);
  62880. tv2 = &thr->heap->lj.value1;
  62881. DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv2); /* side effects */ /* XXX: avoid side effects */
  62882. duk_hthread_activation_unwind_norz(resumee); /* unwind to 'yield' caller */
  62883. /* no need to unwind catch stack */
  62884. duk__reconfig_valstack_ecma_return(resumee);
  62885. DUK_ASSERT(resumee->resumer == NULL);
  62886. resumee->resumer = thr;
  62887. DUK_HTHREAD_INCREF(thr, thr);
  62888. resumee->state = DUK_HTHREAD_STATE_RUNNING;
  62889. thr->state = DUK_HTHREAD_STATE_RESUMED;
  62890. DUK_HEAP_SWITCH_THREAD(thr->heap, resumee);
  62891. #if 0
  62892. thr = resumee; /* not needed, as we exit right away */
  62893. #endif
  62894. DUK_DD(DUK_DDPRINT("-> resume with a value, restart execution in resumee"));
  62895. retval = DUK__LONGJMP_RESTART;
  62896. goto wipe_and_return;
  62897. } else {
  62898. /* Initial resume call. */
  62899. duk_small_uint_t call_flags;
  62900. duk_int_t setup_rc;
  62901. /* resumee: [... initial_func] (currently actually: [initial_func]) */
  62902. duk_push_undefined(resumee);
  62903. tv = &thr->heap->lj.value1;
  62904. duk_push_tval(resumee, tv);
  62905. /* resumee: [... initial_func undefined(= this) resume_value ] */
  62906. call_flags = DUK_CALL_FLAG_ALLOW_ECMATOECMA; /* not tailcall, ecma-to-ecma (assumed to succeed) */
  62907. setup_rc = duk_handle_call_unprotected_nargs(resumee, 1 /*nargs*/, call_flags);
  62908. if (setup_rc == 0) {
  62909. /* This shouldn't happen; Duktape.Thread.resume()
  62910. * should make sure of that. If it does happen
  62911. * this internal error will propagate out of the
  62912. * executor which can be quite misleading.
  62913. */
  62914. DUK_ERROR_INTERNAL(thr);
  62915. }
  62916. DUK_ASSERT(resumee->resumer == NULL);
  62917. resumee->resumer = thr;
  62918. DUK_HTHREAD_INCREF(thr, thr);
  62919. resumee->state = DUK_HTHREAD_STATE_RUNNING;
  62920. thr->state = DUK_HTHREAD_STATE_RESUMED;
  62921. DUK_HEAP_SWITCH_THREAD(thr->heap, resumee);
  62922. #if 0
  62923. thr = resumee; /* not needed, as we exit right away */
  62924. #endif
  62925. DUK_DD(DUK_DDPRINT("-> resume with a value, restart execution in resumee"));
  62926. retval = DUK__LONGJMP_RESTART;
  62927. goto wipe_and_return;
  62928. }
  62929. DUK_UNREACHABLE();
  62930. break; /* never here */
  62931. }
  62932. case DUK_LJ_TYPE_YIELD: {
  62933. /*
  62934. * Currently only allowed only if yielding thread has only
  62935. * Ecmascript activations (except for the Duktape.Thread.yield()
  62936. * call at the callstack top) and none of them constructor
  62937. * calls.
  62938. *
  62939. * This excludes the 'entry' thread which will always have
  62940. * a preventcount > 0.
  62941. */
  62942. duk_hthread *resumer;
  62943. /* duk_bi_duk_object_yield() and duk_bi_duk_object_resume() ensure all of these are met */
  62944. #if 0 /* entry_thread not available for assert */
  62945. DUK_ASSERT(thr != entry_thread); /* Duktape.Thread.yield() should prevent */
  62946. #endif
  62947. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); /* unchanged from Duktape.Thread.yield() */
  62948. DUK_ASSERT(thr->callstack_top >= 2); /* Ecmascript activation + Duktape.Thread.yield() activation */
  62949. DUK_ASSERT(thr->callstack_curr != NULL);
  62950. DUK_ASSERT(thr->callstack_curr->parent != NULL);
  62951. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL &&
  62952. DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)) &&
  62953. ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->callstack_curr))->func == duk_bi_thread_yield);
  62954. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL &&
  62955. DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr->parent))); /* an Ecmascript function */
  62956. resumer = thr->resumer;
  62957. DUK_ASSERT(resumer != NULL);
  62958. DUK_ASSERT(resumer->state == DUK_HTHREAD_STATE_RESUMED); /* written by a previous RESUME handling */
  62959. DUK_ASSERT(resumer->callstack_top >= 2); /* Ecmascript activation + Duktape.Thread.resume() activation */
  62960. DUK_ASSERT(resumer->callstack_curr != NULL);
  62961. DUK_ASSERT(resumer->callstack_curr->parent != NULL);
  62962. DUK_ASSERT(DUK_ACT_GET_FUNC(resumer->callstack_curr) != NULL &&
  62963. DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(resumer->callstack_curr)) &&
  62964. ((duk_hnatfunc *) DUK_ACT_GET_FUNC(resumer->callstack_curr))->func == duk_bi_thread_resume);
  62965. DUK_ASSERT(DUK_ACT_GET_FUNC(resumer->callstack_curr->parent) != NULL &&
  62966. DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(resumer->callstack_curr->parent))); /* an Ecmascript function */
  62967. if (thr->heap->lj.iserror) {
  62968. thr->state = DUK_HTHREAD_STATE_YIELDED;
  62969. thr->resumer = NULL;
  62970. DUK_HTHREAD_DECREF_NORZ(thr, resumer);
  62971. resumer->state = DUK_HTHREAD_STATE_RUNNING;
  62972. DUK_HEAP_SWITCH_THREAD(thr->heap, resumer);
  62973. thr = resumer;
  62974. thr->heap->lj.type = DUK_LJ_TYPE_THROW;
  62975. /* lj.value1 is already set */
  62976. DUK_ASSERT(thr->heap->lj.iserror); /* already set */
  62977. DUK_DD(DUK_DDPRINT("-> yield an error, converted to a throw in the resumer, propagate"));
  62978. goto check_longjmp;
  62979. } else {
  62980. duk_hthread_activation_unwind_norz(resumer);
  62981. duk__handle_yield(thr, resumer, &thr->heap->lj.value1);
  62982. thr->state = DUK_HTHREAD_STATE_YIELDED;
  62983. thr->resumer = NULL;
  62984. DUK_HTHREAD_DECREF_NORZ(thr, resumer);
  62985. resumer->state = DUK_HTHREAD_STATE_RUNNING;
  62986. DUK_HEAP_SWITCH_THREAD(thr->heap, resumer);
  62987. #if 0
  62988. thr = resumer; /* not needed, as we exit right away */
  62989. #endif
  62990. DUK_DD(DUK_DDPRINT("-> yield a value, restart execution in resumer"));
  62991. retval = DUK__LONGJMP_RESTART;
  62992. goto wipe_and_return;
  62993. }
  62994. DUK_UNREACHABLE();
  62995. break; /* never here */
  62996. }
  62997. #endif /* DUK_USE_COROUTINE_SUPPORT */
  62998. case DUK_LJ_TYPE_THROW: {
  62999. /*
  63000. * Three possible outcomes:
  63001. * * A try or finally catcher is found => resume there.
  63002. * (or)
  63003. * * The error propagates to the bytecode executor entry
  63004. * level (and we're in the entry thread) => rethrow
  63005. * with a new longjmp(), after restoring the previous
  63006. * catchpoint.
  63007. * * The error is not caught in the current thread, so
  63008. * the thread finishes with an error. This works like
  63009. * a yielded error, except that the thread is finished
  63010. * and can no longer be resumed. (There is always a
  63011. * resumer in this case.)
  63012. *
  63013. * Note: until we hit the entry level, there can only be
  63014. * Ecmascript activations.
  63015. */
  63016. duk_activation *act;
  63017. duk_catcher *cat;
  63018. duk_hthread *resumer;
  63019. for (;;) {
  63020. act = thr->callstack_curr;
  63021. if (act == NULL) {
  63022. break;
  63023. }
  63024. for (;;) {
  63025. cat = act->cat;
  63026. if (cat == NULL) {
  63027. break;
  63028. }
  63029. if (DUK_CAT_HAS_CATCH_ENABLED(cat)) {
  63030. DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF);
  63031. duk__handle_catch(thr,
  63032. &thr->heap->lj.value1,
  63033. DUK_LJ_TYPE_THROW);
  63034. DUK_DD(DUK_DDPRINT("-> throw caught by a 'catch' clause, restart execution"));
  63035. retval = DUK__LONGJMP_RESTART;
  63036. goto wipe_and_return;
  63037. }
  63038. if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) {
  63039. DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF);
  63040. DUK_ASSERT(!DUK_CAT_HAS_CATCH_ENABLED(cat));
  63041. duk__handle_finally(thr,
  63042. &thr->heap->lj.value1,
  63043. DUK_LJ_TYPE_THROW);
  63044. DUK_DD(DUK_DDPRINT("-> throw caught by a 'finally' clause, restart execution"));
  63045. retval = DUK__LONGJMP_RESTART;
  63046. goto wipe_and_return;
  63047. }
  63048. duk_hthread_catcher_unwind_norz(thr, act);
  63049. }
  63050. if (act == entry_act) {
  63051. /* Not caught by anything before entry level; rethrow and let the
  63052. * final catcher finish unwinding (esp. value stack).
  63053. */
  63054. DUK_D(DUK_DPRINT("-> throw propagated up to entry level, rethrow and exit bytecode executor"));
  63055. retval = DUK__LONGJMP_RETHROW;
  63056. goto just_return;
  63057. }
  63058. duk_hthread_activation_unwind_norz(thr);
  63059. }
  63060. DUK_DD(DUK_DDPRINT("-> throw not caught by current thread, yield error to resumer and recheck longjmp"));
  63061. /* Not caught by current thread, thread terminates (yield error to resumer);
  63062. * note that this may cause a cascade if the resumer terminates with an uncaught
  63063. * exception etc (this is OK, but needs careful testing).
  63064. */
  63065. DUK_ASSERT(thr->resumer != NULL);
  63066. DUK_ASSERT(thr->resumer->callstack_top >= 2); /* Ecmascript activation + Duktape.Thread.resume() activation */
  63067. DUK_ASSERT(thr->resumer->callstack_curr != NULL);
  63068. DUK_ASSERT(thr->resumer->callstack_curr->parent != NULL);
  63069. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent) != NULL &&
  63070. DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent))); /* an Ecmascript function */
  63071. resumer = thr->resumer;
  63072. /* reset longjmp */
  63073. DUK_ASSERT(thr->heap->lj.type == DUK_LJ_TYPE_THROW); /* already set */
  63074. /* lj.value1 already set */
  63075. duk_hthread_terminate(thr); /* updates thread state, minimizes its allocations */
  63076. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_TERMINATED);
  63077. thr->resumer = NULL;
  63078. DUK_HTHREAD_DECREF_NORZ(thr, resumer);
  63079. resumer->state = DUK_HTHREAD_STATE_RUNNING;
  63080. DUK_HEAP_SWITCH_THREAD(thr->heap, resumer);
  63081. thr = resumer;
  63082. goto check_longjmp;
  63083. }
  63084. case DUK_LJ_TYPE_BREAK: /* pseudotypes, not used in actual longjmps */
  63085. case DUK_LJ_TYPE_CONTINUE:
  63086. case DUK_LJ_TYPE_RETURN:
  63087. case DUK_LJ_TYPE_NORMAL:
  63088. default: {
  63089. /* should never happen, but be robust */
  63090. DUK_D(DUK_DPRINT("caught unknown longjmp type %ld, treat as internal error", (long) thr->heap->lj.type));
  63091. goto convert_to_internal_error;
  63092. }
  63093. } /* end switch */
  63094. DUK_UNREACHABLE();
  63095. wipe_and_return:
  63096. /* this is not strictly necessary, but helps debugging */
  63097. thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN;
  63098. thr->heap->lj.iserror = 0;
  63099. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, &thr->heap->lj.value1); /* side effects */
  63100. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, &thr->heap->lj.value2); /* side effects */
  63101. DUK_GC_TORTURE(thr->heap);
  63102. just_return:
  63103. return retval;
  63104. convert_to_internal_error:
  63105. /* This could also be thrown internally (set the error, goto check_longjmp),
  63106. * but it's better for internal errors to bubble outwards so that we won't
  63107. * infinite loop in this catchpoint.
  63108. */
  63109. DUK_ERROR_INTERNAL(thr);
  63110. DUK_UNREACHABLE();
  63111. return retval;
  63112. }
  63113. /* Handle a BREAK/CONTINUE opcode. Avoid using longjmp() for BREAK/CONTINUE
  63114. * handling because it has a measurable performance impact in ordinary
  63115. * environments and an extreme impact in Emscripten (GH-342).
  63116. */
  63117. DUK_LOCAL DUK__NOINLINE_PERF void duk__handle_break_or_continue(duk_hthread *thr,
  63118. duk_uint_t label_id,
  63119. duk_small_uint_t lj_type) {
  63120. duk_activation *act;
  63121. duk_catcher *cat;
  63122. DUK_ASSERT(thr != NULL);
  63123. /* Find a matching label catcher or 'finally' catcher in
  63124. * the same function, unwinding catchers as we go.
  63125. *
  63126. * A label catcher must always exist and will match unless
  63127. * a 'finally' captures the break/continue first. It is the
  63128. * compiler's responsibility to ensure that labels are used
  63129. * correctly.
  63130. */
  63131. act = thr->callstack_curr;
  63132. DUK_ASSERT(act != NULL);
  63133. for (;;) {
  63134. cat = act->cat;
  63135. if (cat == NULL) {
  63136. break;
  63137. }
  63138. DUK_DDD(DUK_DDDPRINT("considering catcher %p: type=%ld label=%ld",
  63139. (void *) cat,
  63140. (long) DUK_CAT_GET_TYPE(cat),
  63141. (long) DUK_CAT_GET_LABEL(cat)));
  63142. /* XXX: bit mask test; FINALLY <-> TCF, single bit mask would suffice? */
  63143. if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF &&
  63144. DUK_CAT_HAS_FINALLY_ENABLED(cat)) {
  63145. duk_tval tv_tmp;
  63146. DUK_TVAL_SET_U32(&tv_tmp, (duk_uint32_t) label_id);
  63147. duk__handle_finally(thr, &tv_tmp, lj_type);
  63148. DUK_DD(DUK_DDPRINT("-> break/continue caught by 'finally', restart execution"));
  63149. return;
  63150. }
  63151. if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_LABEL &&
  63152. (duk_uint_t) DUK_CAT_GET_LABEL(cat) == label_id) {
  63153. duk__handle_label(thr, lj_type);
  63154. DUK_DD(DUK_DDPRINT("-> break/continue caught by a label catcher (in the same function), restart execution"));
  63155. return;
  63156. }
  63157. duk_hthread_catcher_unwind_norz(thr, act);
  63158. }
  63159. /* Should never happen, but be robust. */
  63160. DUK_D(DUK_DPRINT("-> break/continue not caught by anything in the current function (should never happen), throw internal error"));
  63161. DUK_ERROR_INTERNAL(thr);
  63162. return;
  63163. }
  63164. /* Handle a RETURN opcode. Avoid using longjmp() for return handling because
  63165. * it has a measurable performance impact in ordinary environments and an extreme
  63166. * impact in Emscripten (GH-342). Return value is on value stack top.
  63167. */
  63168. DUK_LOCAL duk_small_uint_t duk__handle_return(duk_hthread *thr, duk_activation *entry_act) {
  63169. duk_tval *tv1;
  63170. duk_tval *tv2;
  63171. #if defined(DUK_USE_COROUTINE_SUPPORT)
  63172. duk_hthread *resumer;
  63173. #endif
  63174. duk_activation *act;
  63175. duk_catcher *cat;
  63176. /* We can directly access value stack here. */
  63177. DUK_ASSERT(thr != NULL);
  63178. DUK_ASSERT(entry_act != NULL);
  63179. DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom);
  63180. tv1 = thr->valstack_top - 1;
  63181. DUK_TVAL_CHKFAST_INPLACE_FAST(tv1); /* fastint downgrade check for return values */
  63182. /*
  63183. * Four possible outcomes:
  63184. *
  63185. * 1. A 'finally' in the same function catches the 'return'.
  63186. * It may continue to propagate when 'finally' is finished,
  63187. * or it may be neutralized by 'finally' (both handled by
  63188. * ENDFIN).
  63189. *
  63190. * 2. The return happens at the entry level of the bytecode
  63191. * executor, so return from the executor (in C stack).
  63192. *
  63193. * 3. There is a calling (Ecmascript) activation in the call
  63194. * stack => return to it, in the same executor instance.
  63195. *
  63196. * 4. There is no calling activation, and the thread is
  63197. * terminated. There is always a resumer in this case,
  63198. * which gets the return value similarly to a 'yield'
  63199. * (except that the current thread can no longer be
  63200. * resumed).
  63201. */
  63202. DUK_ASSERT(thr != NULL);
  63203. DUK_ASSERT(thr->callstack_top >= 1);
  63204. act = thr->callstack_curr;
  63205. DUK_ASSERT(act != NULL);
  63206. for (;;) {
  63207. cat = act->cat;
  63208. if (cat == NULL) {
  63209. break;
  63210. }
  63211. if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF &&
  63212. DUK_CAT_HAS_FINALLY_ENABLED(cat)) {
  63213. DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom);
  63214. duk__handle_finally(thr, thr->valstack_top - 1, DUK_LJ_TYPE_RETURN);
  63215. DUK_DD(DUK_DDPRINT("-> return caught by 'finally', restart execution"));
  63216. return DUK__RETHAND_RESTART;
  63217. }
  63218. duk_hthread_catcher_unwind_norz(thr, act);
  63219. }
  63220. if (act == entry_act) {
  63221. /* Return to the bytecode executor caller who will unwind stacks
  63222. * and handle constructor post-processing.
  63223. * Return value is already on the stack top: [ ... retval ].
  63224. */
  63225. DUK_DDD(DUK_DDDPRINT("-> return propagated up to entry level, exit bytecode executor"));
  63226. return DUK__RETHAND_FINISHED;
  63227. }
  63228. if (thr->callstack_top >= 2) {
  63229. /* There is a caller; it MUST be an Ecmascript caller (otherwise it would
  63230. * match entry_act check).
  63231. */
  63232. DUK_DDD(DUK_DDDPRINT("return to Ecmascript caller, retval_byteoff=%ld, lj_value1=%!T",
  63233. (long) (thr->callstack_curr->parent->retval_byteoff),
  63234. (duk_tval *) &thr->heap->lj.value1));
  63235. DUK_ASSERT(thr->callstack_curr != NULL);
  63236. DUK_ASSERT(thr->callstack_curr->parent != NULL);
  63237. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr->parent))); /* must be ecmascript */
  63238. #if defined(DUK_USE_ES6_PROXY)
  63239. if (thr->callstack_curr->flags & (DUK_ACT_FLAG_CONSTRUCT | DUK_ACT_FLAG_CONSTRUCT_PROXY)) {
  63240. duk_call_construct_postprocess(thr, thr->callstack_curr->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY); /* side effects */
  63241. }
  63242. #else
  63243. if (thr->callstack_curr->flags & DUK_ACT_FLAG_CONSTRUCT) {
  63244. duk_call_construct_postprocess(thr, 0); /* side effects */
  63245. }
  63246. #endif
  63247. tv1 = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + thr->callstack_curr->parent->retval_byteoff);
  63248. DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom);
  63249. tv2 = thr->valstack_top - 1;
  63250. DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */
  63251. /* Catch stack unwind happens inline in callstack unwind. */
  63252. duk_hthread_activation_unwind_norz(thr);
  63253. duk__reconfig_valstack_ecma_return(thr);
  63254. DUK_DD(DUK_DDPRINT("-> return not intercepted, restart execution in caller"));
  63255. return DUK__RETHAND_RESTART;
  63256. }
  63257. #if defined(DUK_USE_COROUTINE_SUPPORT)
  63258. DUK_DD(DUK_DDPRINT("no calling activation, thread finishes (similar to yield)"));
  63259. DUK_ASSERT(thr->resumer != NULL);
  63260. DUK_ASSERT(thr->resumer->callstack_top >= 2); /* Ecmascript activation + Duktape.Thread.resume() activation */
  63261. DUK_ASSERT(thr->resumer->callstack_curr != NULL);
  63262. DUK_ASSERT(thr->resumer->callstack_curr->parent != NULL);
  63263. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr) != NULL &&
  63264. DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr)) &&
  63265. ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->resumer->callstack_curr))->func == duk_bi_thread_resume); /* Duktape.Thread.resume() */
  63266. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent) != NULL &&
  63267. DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent))); /* an Ecmascript function */
  63268. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING);
  63269. DUK_ASSERT(thr->resumer->state == DUK_HTHREAD_STATE_RESUMED);
  63270. resumer = thr->resumer;
  63271. /* Share yield longjmp handler. */
  63272. DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom);
  63273. duk_hthread_activation_unwind_norz(resumer);
  63274. duk__handle_yield(thr, resumer, thr->valstack_top - 1);
  63275. duk_hthread_terminate(thr); /* updates thread state, minimizes its allocations */
  63276. DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_TERMINATED);
  63277. thr->resumer = NULL;
  63278. DUK_HTHREAD_DECREF(thr, resumer);
  63279. resumer->state = DUK_HTHREAD_STATE_RUNNING;
  63280. DUK_HEAP_SWITCH_THREAD(thr->heap, resumer);
  63281. #if 0
  63282. thr = resumer; /* not needed */
  63283. #endif
  63284. DUK_DD(DUK_DDPRINT("-> return not caught, thread terminated; handle like yield, restart execution in resumer"));
  63285. return DUK__RETHAND_RESTART;
  63286. #else
  63287. /* Without coroutine support this case should never happen. */
  63288. DUK_ERROR_INTERNAL(thr);
  63289. return DUK__RETHAND_FINISHED; /* not executed */
  63290. #endif
  63291. }
  63292. /*
  63293. * Executor interrupt handling
  63294. *
  63295. * The handler is called whenever the interrupt countdown reaches zero
  63296. * (or below). The handler must perform whatever checks are activated,
  63297. * e.g. check for cumulative step count to impose an execution step
  63298. * limit or check for breakpoints or other debugger interaction.
  63299. *
  63300. * When the actions are done, the handler must reinit the interrupt
  63301. * init and counter values. The 'init' value must indicate how many
  63302. * bytecode instructions are executed before the next interrupt. The
  63303. * counter must interface with the bytecode executor loop. Concretely,
  63304. * the new init value is normally one higher than the new counter value.
  63305. * For instance, to execute exactly one bytecode instruction the init
  63306. * value is set to 1 and the counter to 0. If an error is thrown by the
  63307. * interrupt handler, the counters are set to the same value (e.g. both
  63308. * to 0 to cause an interrupt when the next bytecode instruction is about
  63309. * to be executed after error handling).
  63310. *
  63311. * Maintaining the init/counter value properly is important for accurate
  63312. * behavior. For instance, executor step limit needs a cumulative step
  63313. * count which is simply computed as a sum of 'init' values. This must
  63314. * work accurately even when single stepping.
  63315. */
  63316. #if defined(DUK_USE_INTERRUPT_COUNTER)
  63317. #define DUK__INT_NOACTION 0 /* no specific action, resume normal execution */
  63318. #define DUK__INT_RESTART 1 /* must "goto restart_execution", e.g. breakpoints changed */
  63319. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  63320. DUK_LOCAL void duk__interrupt_handle_debugger(duk_hthread *thr, duk_bool_t *out_immediate, duk_small_uint_t *out_interrupt_retval) {
  63321. duk_activation *act;
  63322. duk_breakpoint *bp;
  63323. duk_breakpoint **bp_active;
  63324. duk_uint_fast32_t line = 0;
  63325. duk_bool_t process_messages;
  63326. duk_bool_t processed_messages = 0;
  63327. DUK_ASSERT(thr->heap->dbg_processing == 0); /* don't re-enter e.g. during Eval */
  63328. act = thr->callstack_curr;
  63329. DUK_ASSERT(act != NULL);
  63330. /* It might seem that replacing 'thr->heap' with just 'heap' below
  63331. * might be a good idea, but it increases code size slightly
  63332. * (probably due to unnecessary spilling) at least on x64.
  63333. */
  63334. /*
  63335. * Single opcode step check
  63336. */
  63337. if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE) {
  63338. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by one opcode step"));
  63339. duk_debug_set_paused(thr->heap);
  63340. }
  63341. /*
  63342. * Breakpoint and step state checks
  63343. */
  63344. if (act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE ||
  63345. (thr->heap->dbg_pause_act == thr->callstack_curr)) {
  63346. line = duk_debug_curr_line(thr);
  63347. if (act->prev_line != line) {
  63348. /* Stepped? Step out is handled by callstack unwind. */
  63349. if ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) &&
  63350. (thr->heap->dbg_pause_act == thr->callstack_curr) &&
  63351. (line != thr->heap->dbg_pause_startline)) {
  63352. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by line change, at line %ld",
  63353. (long) line));
  63354. duk_debug_set_paused(thr->heap);
  63355. }
  63356. /* Check for breakpoints only on line transition.
  63357. * Breakpoint is triggered when we enter the target
  63358. * line from a different line, and the previous line
  63359. * was within the same function.
  63360. *
  63361. * This condition is tricky: the condition used to be
  63362. * that transition to -or across- the breakpoint line
  63363. * triggered the breakpoint. This seems intuitively
  63364. * better because it handles breakpoints on lines with
  63365. * no emitted opcodes; but this leads to the issue
  63366. * described in: https://github.com/svaarala/duktape/issues/263.
  63367. */
  63368. bp_active = thr->heap->dbg_breakpoints_active;
  63369. for (;;) {
  63370. bp = *bp_active++;
  63371. if (bp == NULL) {
  63372. break;
  63373. }
  63374. DUK_ASSERT(bp->filename != NULL);
  63375. if (act->prev_line != bp->line && line == bp->line) {
  63376. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by breakpoint at %!O:%ld",
  63377. (duk_heaphdr *) bp->filename, (long) bp->line));
  63378. duk_debug_set_paused(thr->heap);
  63379. }
  63380. }
  63381. } else {
  63382. ;
  63383. }
  63384. act->prev_line = (duk_uint32_t) line;
  63385. }
  63386. /*
  63387. * Rate limit check for sending status update or peeking into
  63388. * the debug transport. Both can be expensive operations that
  63389. * we don't want to do on every opcode.
  63390. *
  63391. * Making sure the interval remains reasonable on a wide variety
  63392. * of targets and bytecode is difficult without a timestamp, so
  63393. * we use a Date-provided timestamp for the rate limit check.
  63394. * But since it's also expensive to get a timestamp, a bytecode
  63395. * counter is used to rate limit getting timestamps.
  63396. */
  63397. process_messages = 0;
  63398. if (thr->heap->dbg_state_dirty || DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || thr->heap->dbg_detaching) {
  63399. /* Enter message processing loop for sending Status notifys and
  63400. * to finish a pending detach.
  63401. */
  63402. process_messages = 1;
  63403. }
  63404. /* XXX: remove heap->dbg_exec_counter, use heap->inst_count_interrupt instead? */
  63405. DUK_ASSERT(thr->interrupt_init >= 0);
  63406. thr->heap->dbg_exec_counter += (duk_uint_t) thr->interrupt_init;
  63407. if (thr->heap->dbg_exec_counter - thr->heap->dbg_last_counter >= DUK_HEAP_DBG_RATELIMIT_OPCODES) {
  63408. /* Overflow of the execution counter is fine and doesn't break
  63409. * anything here.
  63410. */
  63411. duk_double_t now, diff_last;
  63412. thr->heap->dbg_last_counter = thr->heap->dbg_exec_counter;
  63413. now = duk_time_get_monotonic_time(thr);
  63414. diff_last = now - thr->heap->dbg_last_time;
  63415. if (diff_last < 0.0 || diff_last >= (duk_double_t) DUK_HEAP_DBG_RATELIMIT_MILLISECS) {
  63416. /* Monotonic time should not experience time jumps,
  63417. * but the provider may be missing and we're actually
  63418. * using Ecmascript time. So, tolerate negative values
  63419. * so that a time jump works reasonably.
  63420. *
  63421. * Same interval is now used for status sending and
  63422. * peeking.
  63423. */
  63424. thr->heap->dbg_last_time = now;
  63425. thr->heap->dbg_state_dirty = 1;
  63426. process_messages = 1;
  63427. }
  63428. }
  63429. /*
  63430. * Process messages and send status if necessary.
  63431. *
  63432. * If we're paused, we'll block for new messages. If we're not
  63433. * paused, we'll process anything we can peek but won't block
  63434. * for more. Detach (and re-attach) handling is all localized
  63435. * to duk_debug_process_messages() too.
  63436. *
  63437. * Debugger writes outside the message loop may cause debugger
  63438. * detach1 phase to run, after which dbg_read_cb == NULL and
  63439. * dbg_detaching != 0. The message loop will finish the detach
  63440. * by running detach2 phase, so enter the message loop also when
  63441. * detaching.
  63442. */
  63443. if (process_messages) {
  63444. DUK_ASSERT(thr->heap->dbg_processing == 0);
  63445. processed_messages = duk_debug_process_messages(thr, 0 /*no_block*/);
  63446. DUK_ASSERT(thr->heap->dbg_processing == 0);
  63447. }
  63448. /* Continue checked execution if there are breakpoints or we're stepping.
  63449. * Also use checked execution if paused flag is active - it shouldn't be
  63450. * because the debug message loop shouldn't terminate if it was. Step out
  63451. * is handled by callstack unwind and doesn't need checked execution.
  63452. * Note that debugger may have detached due to error or explicit request
  63453. * above, so we must recheck attach status.
  63454. */
  63455. if (duk_debug_is_attached(thr->heap)) {
  63456. DUK_ASSERT(act == thr->callstack_curr);
  63457. DUK_ASSERT(act != NULL);
  63458. if (act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE ||
  63459. (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE) ||
  63460. ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) &&
  63461. thr->heap->dbg_pause_act == thr->callstack_curr) ||
  63462. DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap)) {
  63463. *out_immediate = 1;
  63464. }
  63465. /* If we processed any debug messages breakpoints may have
  63466. * changed; restart execution to re-check active breakpoints.
  63467. */
  63468. if (processed_messages) {
  63469. DUK_D(DUK_DPRINT("processed debug messages, restart execution to recheck possibly changed breakpoints"));
  63470. *out_interrupt_retval = DUK__INT_RESTART;
  63471. } else {
  63472. if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE) {
  63473. /* Set 'pause after one opcode' active only when we're
  63474. * actually just about to execute code.
  63475. */
  63476. thr->heap->dbg_pause_flags |= DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE;
  63477. }
  63478. }
  63479. } else {
  63480. DUK_D(DUK_DPRINT("debugger became detached, resume normal execution"));
  63481. }
  63482. }
  63483. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  63484. DUK_LOCAL DUK__NOINLINE_PERF DUK_COLD duk_small_uint_t duk__executor_interrupt(duk_hthread *thr) {
  63485. duk_int_t ctr;
  63486. duk_activation *act;
  63487. duk_hcompfunc *fun;
  63488. duk_bool_t immediate = 0;
  63489. duk_small_uint_t retval;
  63490. DUK_ASSERT(thr != NULL);
  63491. DUK_ASSERT(thr->heap != NULL);
  63492. DUK_ASSERT(thr->callstack_top > 0);
  63493. #if defined(DUK_USE_DEBUG)
  63494. thr->heap->inst_count_interrupt += thr->interrupt_init;
  63495. DUK_DD(DUK_DDPRINT("execution interrupt, counter=%ld, init=%ld, "
  63496. "instruction counts: executor=%ld, interrupt=%ld",
  63497. (long) thr->interrupt_counter, (long) thr->interrupt_init,
  63498. (long) thr->heap->inst_count_exec, (long) thr->heap->inst_count_interrupt));
  63499. #endif
  63500. retval = DUK__INT_NOACTION;
  63501. ctr = DUK_HTHREAD_INTCTR_DEFAULT;
  63502. /*
  63503. * Avoid nested calls. Concretely this happens during debugging, e.g.
  63504. * when we eval() an expression.
  63505. *
  63506. * Also don't interrupt if we're currently doing debug processing
  63507. * (which can be initiated outside the bytecode executor) as this
  63508. * may cause the debugger to be called recursively. Check required
  63509. * for correct operation of throw intercept and other "exotic" halting
  63510. * scenarios.
  63511. */
  63512. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  63513. if (DUK_HEAP_HAS_INTERRUPT_RUNNING(thr->heap) || thr->heap->dbg_processing) {
  63514. #else
  63515. if (DUK_HEAP_HAS_INTERRUPT_RUNNING(thr->heap)) {
  63516. #endif
  63517. DUK_DD(DUK_DDPRINT("nested executor interrupt, ignoring"));
  63518. /* Set a high interrupt counter; the original executor
  63519. * interrupt invocation will rewrite before exiting.
  63520. */
  63521. thr->interrupt_init = ctr;
  63522. thr->interrupt_counter = ctr - 1;
  63523. return DUK__INT_NOACTION;
  63524. }
  63525. DUK_HEAP_SET_INTERRUPT_RUNNING(thr->heap);
  63526. act = thr->callstack_curr;
  63527. DUK_ASSERT(act != NULL);
  63528. fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  63529. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC((duk_hobject *) fun));
  63530. DUK_UNREF(fun);
  63531. #if defined(DUK_USE_EXEC_TIMEOUT_CHECK)
  63532. /*
  63533. * Execution timeout check
  63534. */
  63535. if (DUK_USE_EXEC_TIMEOUT_CHECK(thr->heap->heap_udata)) {
  63536. /* Keep throwing an error whenever we get here. The unusual values
  63537. * are set this way because no instruction is ever executed, we just
  63538. * throw an error until all try/catch/finally and other catchpoints
  63539. * have been exhausted. Duktape/C code gets control at each protected
  63540. * call but whenever it enters back into Duktape the RangeError gets
  63541. * raised. User exec timeout check must consistently indicate a timeout
  63542. * until we've fully bubbled out of Duktape.
  63543. */
  63544. DUK_D(DUK_DPRINT("execution timeout, throwing a RangeError"));
  63545. thr->interrupt_init = 0;
  63546. thr->interrupt_counter = 0;
  63547. DUK_HEAP_CLEAR_INTERRUPT_RUNNING(thr->heap);
  63548. DUK_ERROR_RANGE(thr, "execution timeout");
  63549. }
  63550. #endif /* DUK_USE_EXEC_TIMEOUT_CHECK */
  63551. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  63552. if (!thr->heap->dbg_processing &&
  63553. (thr->heap->dbg_read_cb != NULL || thr->heap->dbg_detaching)) {
  63554. /* Avoid recursive re-entry; enter when we're attached or
  63555. * detaching (to finish off the pending detach).
  63556. */
  63557. duk__interrupt_handle_debugger(thr, &immediate, &retval);
  63558. DUK_ASSERT(act == thr->callstack_curr);
  63559. }
  63560. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  63561. /*
  63562. * Update the interrupt counter
  63563. */
  63564. if (immediate) {
  63565. /* Cause an interrupt after executing one instruction. */
  63566. ctr = 1;
  63567. }
  63568. /* The counter value is one less than the init value: init value should
  63569. * indicate how many instructions are executed before interrupt. To
  63570. * execute 1 instruction (after interrupt handler return), counter must
  63571. * be 0.
  63572. */
  63573. DUK_ASSERT(ctr >= 1);
  63574. thr->interrupt_init = ctr;
  63575. thr->interrupt_counter = ctr - 1;
  63576. DUK_HEAP_CLEAR_INTERRUPT_RUNNING(thr->heap);
  63577. return retval;
  63578. }
  63579. #endif /* DUK_USE_INTERRUPT_COUNTER */
  63580. /*
  63581. * Debugger handling for executor restart
  63582. *
  63583. * Check for breakpoints, stepping, etc, and figure out if we should execute
  63584. * in checked or normal mode. Note that we can't do this when an activation
  63585. * is created, because breakpoint status (and stepping status) may change
  63586. * later, so we must recheck every time we're executing an activation.
  63587. * This primitive should be side effect free to avoid changes during check.
  63588. */
  63589. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  63590. DUK_LOCAL void duk__executor_recheck_debugger(duk_hthread *thr, duk_activation *act, duk_hcompfunc *fun) {
  63591. duk_heap *heap;
  63592. duk_tval *tv_tmp;
  63593. duk_hstring *filename;
  63594. duk_small_uint_t bp_idx;
  63595. duk_breakpoint **bp_active;
  63596. DUK_ASSERT(thr != NULL);
  63597. DUK_ASSERT(act != NULL);
  63598. DUK_ASSERT(fun != NULL);
  63599. heap = thr->heap;
  63600. bp_active = heap->dbg_breakpoints_active;
  63601. act->flags &= ~DUK_ACT_FLAG_BREAKPOINT_ACTIVE;
  63602. tv_tmp = duk_hobject_find_existing_entry_tval_ptr(thr->heap, (duk_hobject *) fun, DUK_HTHREAD_STRING_FILE_NAME(thr));
  63603. if (tv_tmp && DUK_TVAL_IS_STRING(tv_tmp)) {
  63604. filename = DUK_TVAL_GET_STRING(tv_tmp);
  63605. /* Figure out all active breakpoints. A breakpoint is
  63606. * considered active if the current function's fileName
  63607. * matches the breakpoint's fileName, AND there is no
  63608. * inner function that has matching line numbers
  63609. * (otherwise a breakpoint would be triggered both
  63610. * inside and outside of the inner function which would
  63611. * be confusing). Example:
  63612. *
  63613. * function foo() {
  63614. * print('foo');
  63615. * function bar() { <-. breakpoints in these
  63616. * print('bar'); | lines should not affect
  63617. * } <-' foo() execution
  63618. * bar();
  63619. * }
  63620. *
  63621. * We need a few things that are only available when
  63622. * debugger support is enabled: (1) a line range for
  63623. * each function, and (2) access to the function
  63624. * template to access the inner functions (and their
  63625. * line ranges).
  63626. *
  63627. * It's important to have a narrow match for active
  63628. * breakpoints so that we don't enter checked execution
  63629. * when that's not necessary. For instance, if we're
  63630. * running inside a certain function and there's
  63631. * breakpoint outside in (after the call site), we
  63632. * don't want to slow down execution of the function.
  63633. */
  63634. for (bp_idx = 0; bp_idx < heap->dbg_breakpoint_count; bp_idx++) {
  63635. duk_breakpoint *bp = heap->dbg_breakpoints + bp_idx;
  63636. duk_hobject **funcs, **funcs_end;
  63637. duk_hcompfunc *inner_fun;
  63638. duk_bool_t bp_match;
  63639. if (bp->filename == filename &&
  63640. bp->line >= fun->start_line && bp->line <= fun->end_line) {
  63641. bp_match = 1;
  63642. DUK_DD(DUK_DDPRINT("breakpoint filename and line match: "
  63643. "%s:%ld vs. %s (line %ld vs. %ld-%ld)",
  63644. DUK_HSTRING_GET_DATA(bp->filename),
  63645. (long) bp->line,
  63646. DUK_HSTRING_GET_DATA(filename),
  63647. (long) bp->line,
  63648. (long) fun->start_line,
  63649. (long) fun->end_line));
  63650. funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, fun);
  63651. funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, fun);
  63652. while (funcs != funcs_end) {
  63653. inner_fun = (duk_hcompfunc *) *funcs;
  63654. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) inner_fun));
  63655. if (bp->line >= inner_fun->start_line && bp->line <= inner_fun->end_line) {
  63656. DUK_DD(DUK_DDPRINT("inner function masks ('captures') breakpoint"));
  63657. bp_match = 0;
  63658. break;
  63659. }
  63660. funcs++;
  63661. }
  63662. if (bp_match) {
  63663. /* No need to check for size of bp_active list,
  63664. * it's always larger than maximum number of
  63665. * breakpoints.
  63666. */
  63667. act->flags |= DUK_ACT_FLAG_BREAKPOINT_ACTIVE;
  63668. *bp_active = heap->dbg_breakpoints + bp_idx;
  63669. bp_active++;
  63670. }
  63671. }
  63672. }
  63673. }
  63674. *bp_active = NULL; /* terminate */
  63675. DUK_DD(DUK_DDPRINT("ACTIVE BREAKPOINTS: %ld", (long) (bp_active - thr->heap->dbg_breakpoints_active)));
  63676. /* Force pause if we were doing "step into" in another activation. */
  63677. if ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_ENTRY) &&
  63678. thr->heap->dbg_pause_act != thr->callstack_curr) {
  63679. DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function entry"));
  63680. duk_debug_set_paused(thr->heap);
  63681. }
  63682. /* Force interrupt right away if we're paused or in "checked mode".
  63683. * Step out is handled by callstack unwind.
  63684. */
  63685. if ((act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE) ||
  63686. DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) ||
  63687. ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) &&
  63688. thr->heap->dbg_pause_act == thr->callstack_curr)) {
  63689. /* We'll need to interrupt early so recompute the init
  63690. * counter to reflect the number of bytecode instructions
  63691. * executed so that step counts for e.g. debugger rate
  63692. * limiting are accurate.
  63693. */
  63694. DUK_ASSERT(thr->interrupt_counter <= thr->interrupt_init);
  63695. thr->interrupt_init = thr->interrupt_init - thr->interrupt_counter;
  63696. thr->interrupt_counter = 0;
  63697. }
  63698. }
  63699. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  63700. /*
  63701. * Opcode handlers for opcodes with a lot of code and which are relatively
  63702. * rare; NOINLINE to reduce amount of code in main bytecode dispatcher.
  63703. */
  63704. DUK_LOCAL DUK__NOINLINE_PERF void duk__handle_op_initset_initget(duk_hthread *thr, duk_uint_fast32_t ins) {
  63705. duk_bool_t is_set = (DUK_DEC_OP(ins) == DUK_OP_INITSET);
  63706. duk_uint_fast_t idx;
  63707. duk_uint_t defprop_flags;
  63708. /* A -> object register (acts as a source)
  63709. * BC -> BC+0 contains key, BC+1 closure (value)
  63710. */
  63711. /* INITSET/INITGET are only used to initialize object literal keys.
  63712. * There may be a previous propery in ES2015 because duplicate property
  63713. * names are allowed.
  63714. */
  63715. /* This could be made more optimal by accessing internals directly. */
  63716. idx = (duk_uint_fast_t) DUK_DEC_BC(ins);
  63717. duk_dup(thr, (duk_idx_t) (idx + 0)); /* key */
  63718. duk_dup(thr, (duk_idx_t) (idx + 1)); /* getter/setter */
  63719. if (is_set) {
  63720. defprop_flags = DUK_DEFPROP_HAVE_SETTER |
  63721. DUK_DEFPROP_FORCE |
  63722. DUK_DEFPROP_SET_ENUMERABLE |
  63723. DUK_DEFPROP_SET_CONFIGURABLE;
  63724. } else {
  63725. defprop_flags = DUK_DEFPROP_HAVE_GETTER |
  63726. DUK_DEFPROP_FORCE |
  63727. DUK_DEFPROP_SET_ENUMERABLE |
  63728. DUK_DEFPROP_SET_CONFIGURABLE;
  63729. }
  63730. duk_def_prop(thr, (duk_idx_t) DUK_DEC_A(ins), defprop_flags);
  63731. }
  63732. DUK_LOCAL DUK__NOINLINE_PERF void duk__handle_op_trycatch(duk_hthread *thr, duk_uint_fast32_t ins, duk_instr_t *curr_pc) {
  63733. duk_activation *act;
  63734. duk_catcher *cat;
  63735. duk_tval *tv1;
  63736. duk_small_uint_fast_t a;
  63737. duk_small_uint_fast_t bc;
  63738. /* A -> flags
  63739. * BC -> reg_catch; base register for two registers used both during
  63740. * trycatch setup and when catch is triggered
  63741. *
  63742. * If DUK_BC_TRYCATCH_FLAG_CATCH_BINDING set:
  63743. * reg_catch + 0: catch binding variable name (string).
  63744. * Automatic declarative environment is established for
  63745. * the duration of the 'catch' clause.
  63746. *
  63747. * If DUK_BC_TRYCATCH_FLAG_WITH_BINDING set:
  63748. * reg_catch + 0: with 'target value', which is coerced to
  63749. * an object and then used as a bindind object for an
  63750. * environment record. The binding is initialized here, for
  63751. * the 'try' clause.
  63752. *
  63753. * Note that a TRYCATCH generated for a 'with' statement has no
  63754. * catch or finally parts.
  63755. */
  63756. /* XXX: TRYCATCH handling should be reworked to avoid creating
  63757. * an explicit scope unless it is actually needed (e.g. function
  63758. * instances or eval is executed inside the catch block). This
  63759. * rework is not trivial because the compiler doesn't have an
  63760. * intermediate representation. When the rework is done, the
  63761. * opcode format can also be made more straightforward.
  63762. */
  63763. /* XXX: side effect handling is quite awkward here */
  63764. DUK_DDD(DUK_DDDPRINT("TRYCATCH: reg_catch=%ld, have_catch=%ld, "
  63765. "have_finally=%ld, catch_binding=%ld, with_binding=%ld (flags=0x%02lx)",
  63766. (long) DUK_DEC_BC(ins),
  63767. (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH ? 1 : 0),
  63768. (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY ? 1 : 0),
  63769. (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_CATCH_BINDING ? 1 : 0),
  63770. (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_WITH_BINDING ? 1 : 0),
  63771. (unsigned long) DUK_DEC_A(ins)));
  63772. a = DUK_DEC_A(ins);
  63773. bc = DUK_DEC_BC(ins);
  63774. /* Registers 'bc' and 'bc + 1' are written in longjmp handling
  63775. * and if their previous values (which are temporaries) become
  63776. * unreachable -and- have a finalizer, there'll be a function
  63777. * call during error handling which is not supported now (GH-287).
  63778. * Ensure that both 'bc' and 'bc + 1' have primitive values to
  63779. * guarantee no finalizer calls in error handling. Scrubbing also
  63780. * ensures finalizers for the previous values run here rather than
  63781. * later. Error handling related values are also written to 'bc'
  63782. * and 'bc + 1' but those values never become unreachable during
  63783. * error handling, so there's no side effect problem even if the
  63784. * error value has a finalizer.
  63785. */
  63786. duk_dup(thr, (duk_idx_t) bc); /* Stabilize value. */
  63787. duk_to_undefined(thr, (duk_idx_t) bc);
  63788. duk_to_undefined(thr, (duk_idx_t) (bc + 1));
  63789. /* Allocate catcher and populate it. Doesn't have to
  63790. * be fully atomic, but the catcher must be in a
  63791. * consistent state if side effects (such as finalizer
  63792. * calls) occur.
  63793. */
  63794. cat = duk_hthread_catcher_alloc(thr);
  63795. DUK_ASSERT(cat != NULL);
  63796. cat->flags = DUK_CAT_TYPE_TCF;
  63797. cat->h_varname = NULL;
  63798. cat->pc_base = (duk_instr_t *) curr_pc; /* pre-incremented, points to first jump slot */
  63799. cat->idx_base = (duk_size_t) (thr->valstack_bottom - thr->valstack) + bc;
  63800. act = thr->callstack_curr;
  63801. DUK_ASSERT(act != NULL);
  63802. cat->parent = act->cat;
  63803. act->cat = cat;
  63804. if (a & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) {
  63805. cat->flags |= DUK_CAT_FLAG_CATCH_ENABLED;
  63806. }
  63807. if (a & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY) {
  63808. cat->flags |= DUK_CAT_FLAG_FINALLY_ENABLED;
  63809. }
  63810. if (a & DUK_BC_TRYCATCH_FLAG_CATCH_BINDING) {
  63811. DUK_DDD(DUK_DDDPRINT("catch binding flag set to catcher"));
  63812. cat->flags |= DUK_CAT_FLAG_CATCH_BINDING_ENABLED;
  63813. tv1 = DUK_GET_TVAL_NEGIDX(thr, -1);
  63814. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  63815. /* borrowed reference; although 'tv1' comes from a register,
  63816. * its value was loaded using LDCONST so the constant will
  63817. * also exist and be reachable.
  63818. */
  63819. cat->h_varname = DUK_TVAL_GET_STRING(tv1);
  63820. } else if (a & DUK_BC_TRYCATCH_FLAG_WITH_BINDING) {
  63821. duk_hobjenv *env;
  63822. duk_hobject *target;
  63823. /* Delayed env initialization for activation (if needed). */
  63824. DUK_ASSERT(thr->callstack_top >= 1);
  63825. DUK_ASSERT(act == thr->callstack_curr);
  63826. DUK_ASSERT(act != NULL);
  63827. if (act->lex_env == NULL) {
  63828. DUK_DDD(DUK_DDDPRINT("delayed environment initialization"));
  63829. DUK_ASSERT(act->var_env == NULL);
  63830. duk_js_init_activation_environment_records_delayed(thr, act);
  63831. DUK_ASSERT(act == thr->callstack_curr);
  63832. DUK_UNREF(act); /* 'act' is no longer accessed, scanbuild fix */
  63833. }
  63834. DUK_ASSERT(act->lex_env != NULL);
  63835. DUK_ASSERT(act->var_env != NULL);
  63836. /* Coerce 'with' target. */
  63837. target = duk_to_hobject(thr, -1);
  63838. DUK_ASSERT(target != NULL);
  63839. /* Create an object environment; it is not pushed
  63840. * so avoid side effects very carefully until it is
  63841. * referenced.
  63842. */
  63843. env = duk_hobjenv_alloc(thr,
  63844. DUK_HOBJECT_FLAG_EXTENSIBLE |
  63845. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV));
  63846. DUK_ASSERT(env != NULL);
  63847. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL);
  63848. env->target = target; /* always provideThis=true */
  63849. DUK_HOBJECT_INCREF(thr, target);
  63850. env->has_this = 1;
  63851. DUK_ASSERT_HOBJENV_VALID(env);
  63852. DUK_DDD(DUK_DDDPRINT("environment for with binding: %!iO", env));
  63853. DUK_ASSERT(act == thr->callstack_curr);
  63854. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL);
  63855. DUK_ASSERT(act->lex_env != NULL);
  63856. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) env, act->lex_env);
  63857. act->lex_env = (duk_hobject *) env; /* Now reachable. */
  63858. DUK_HOBJECT_INCREF(thr, (duk_hobject *) env);
  63859. /* Net refcount change to act->lex_env is 0: incref for env's
  63860. * prototype, decref for act->lex_env overwrite.
  63861. */
  63862. /* Set catcher lex_env active (affects unwind)
  63863. * only when the whole setup is complete.
  63864. */
  63865. cat = act->cat; /* XXX: better to relookup? not mandatory because 'cat' is stable */
  63866. cat->flags |= DUK_CAT_FLAG_LEXENV_ACTIVE;
  63867. } else {
  63868. ;
  63869. }
  63870. DUK_DDD(DUK_DDDPRINT("TRYCATCH catcher: flags=0x%08lx, pc_base=%ld, "
  63871. "idx_base=%ld, h_varname=%!O",
  63872. (unsigned long) cat->flags,
  63873. (long) cat->pc_base, (long) cat->idx_base, (duk_heaphdr *) cat->h_varname));
  63874. duk_pop_unsafe(thr);
  63875. }
  63876. DUK_LOCAL DUK__NOINLINE_PERF duk_instr_t *duk__handle_op_endtry(duk_hthread *thr, duk_uint_fast32_t ins) {
  63877. duk_activation *act;
  63878. duk_catcher *cat;
  63879. duk_tval *tv1;
  63880. duk_instr_t *pc_base;
  63881. DUK_UNREF(ins);
  63882. DUK_ASSERT(thr->callstack_top >= 1);
  63883. act = thr->callstack_curr;
  63884. DUK_ASSERT(act != NULL);
  63885. cat = act->cat;
  63886. DUK_ASSERT(cat != NULL);
  63887. DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF);
  63888. DUK_DDD(DUK_DDDPRINT("ENDTRY: clearing catch active flag (regardless of whether it was set or not)"));
  63889. DUK_CAT_CLEAR_CATCH_ENABLED(cat);
  63890. pc_base = cat->pc_base;
  63891. if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) {
  63892. DUK_DDD(DUK_DDDPRINT("ENDTRY: finally part is active, jump through 2nd jump slot with 'normal continuation'"));
  63893. tv1 = thr->valstack + cat->idx_base;
  63894. DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top);
  63895. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */
  63896. tv1 = NULL;
  63897. tv1 = thr->valstack + cat->idx_base + 1;
  63898. DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top);
  63899. DUK_TVAL_SET_U32_UPDREF(thr, tv1, (duk_uint32_t) DUK_LJ_TYPE_NORMAL); /* side effects */
  63900. tv1 = NULL;
  63901. DUK_CAT_CLEAR_FINALLY_ENABLED(cat);
  63902. } else {
  63903. DUK_DDD(DUK_DDDPRINT("ENDTRY: no finally part, dismantle catcher, jump through 2nd jump slot (to end of statement)"));
  63904. duk_hthread_catcher_unwind_norz(thr, act); /* lexenv may be set for 'with' binding */
  63905. /* no need to unwind callstack */
  63906. }
  63907. return pc_base + 1; /* new curr_pc value */
  63908. }
  63909. DUK_LOCAL DUK__NOINLINE_PERF duk_instr_t *duk__handle_op_endcatch(duk_hthread *thr, duk_uint_fast32_t ins) {
  63910. duk_activation *act;
  63911. duk_catcher *cat;
  63912. duk_tval *tv1;
  63913. duk_instr_t *pc_base;
  63914. DUK_UNREF(ins);
  63915. DUK_ASSERT(thr->callstack_top >= 1);
  63916. act = thr->callstack_curr;
  63917. DUK_ASSERT(act != NULL);
  63918. cat = act->cat;
  63919. DUK_ASSERT(cat != NULL);
  63920. DUK_ASSERT(!DUK_CAT_HAS_CATCH_ENABLED(cat)); /* cleared before entering catch part */
  63921. if (DUK_CAT_HAS_LEXENV_ACTIVE(cat)) {
  63922. duk_hobject *prev_env;
  63923. /* 'with' binding has no catch clause, so can't be here unless a normal try-catch */
  63924. DUK_ASSERT(DUK_CAT_HAS_CATCH_BINDING_ENABLED(cat));
  63925. DUK_ASSERT(act->lex_env != NULL);
  63926. DUK_DDD(DUK_DDDPRINT("ENDCATCH: popping catcher part lexical environment"));
  63927. prev_env = act->lex_env;
  63928. DUK_ASSERT(prev_env != NULL);
  63929. act->lex_env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, prev_env);
  63930. DUK_CAT_CLEAR_LEXENV_ACTIVE(cat);
  63931. DUK_HOBJECT_INCREF(thr, act->lex_env);
  63932. DUK_HOBJECT_DECREF(thr, prev_env); /* side effects */
  63933. DUK_ASSERT(act == thr->callstack_curr);
  63934. DUK_ASSERT(act != NULL);
  63935. }
  63936. pc_base = cat->pc_base;
  63937. if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) {
  63938. DUK_DDD(DUK_DDDPRINT("ENDCATCH: finally part is active, jump through 2nd jump slot with 'normal continuation'"));
  63939. tv1 = thr->valstack + cat->idx_base;
  63940. DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top);
  63941. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */
  63942. tv1 = NULL;
  63943. tv1 = thr->valstack + cat->idx_base + 1;
  63944. DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top);
  63945. DUK_TVAL_SET_U32_UPDREF(thr, tv1, (duk_uint32_t) DUK_LJ_TYPE_NORMAL); /* side effects */
  63946. tv1 = NULL;
  63947. DUK_CAT_CLEAR_FINALLY_ENABLED(cat);
  63948. } else {
  63949. DUK_DDD(DUK_DDDPRINT("ENDCATCH: no finally part, dismantle catcher, jump through 2nd jump slot (to end of statement)"));
  63950. duk_hthread_catcher_unwind_norz(thr, act);
  63951. /* no need to unwind callstack */
  63952. }
  63953. return pc_base + 1; /* new curr_pc value */
  63954. }
  63955. DUK_LOCAL DUK__NOINLINE_PERF duk_small_uint_t duk__handle_op_endfin(duk_hthread *thr, duk_uint_fast32_t ins, duk_activation *entry_act) {
  63956. duk_activation *act;
  63957. duk_tval *tv1;
  63958. duk_uint_t reg_catch;
  63959. duk_small_uint_t cont_type;
  63960. duk_small_uint_t ret_result;
  63961. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  63962. DUK_ASSERT(thr->callstack_top >= 1);
  63963. act = thr->callstack_curr;
  63964. DUK_ASSERT(act != NULL);
  63965. reg_catch = DUK_DEC_ABC(ins);
  63966. /* CATCH flag may be enabled or disabled here; it may be enabled if
  63967. * the statement has a catch block but the try block does not throw
  63968. * an error.
  63969. */
  63970. DUK_DDD(DUK_DDDPRINT("ENDFIN: completion value=%!T, type=%!T",
  63971. (duk_tval *) (thr->valstack_bottom + reg_catch + 0),
  63972. (duk_tval *) (thr->valstack_bottom + reg_catch + 1)));
  63973. tv1 = thr->valstack_bottom + reg_catch + 1; /* type */
  63974. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1));
  63975. #if defined(DUK_USE_FASTINT)
  63976. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1));
  63977. cont_type = (duk_small_uint_t) DUK_TVAL_GET_FASTINT_U32(tv1);
  63978. #else
  63979. cont_type = (duk_small_uint_t) DUK_TVAL_GET_NUMBER(tv1);
  63980. #endif
  63981. tv1--; /* value */
  63982. switch (cont_type) {
  63983. case DUK_LJ_TYPE_NORMAL: {
  63984. DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with 'normal' (non-abrupt) completion -> "
  63985. "dismantle catcher, resume execution after ENDFIN"));
  63986. duk_hthread_catcher_unwind_norz(thr, act);
  63987. /* no need to unwind callstack */
  63988. return 0; /* restart execution */
  63989. }
  63990. case DUK_LJ_TYPE_RETURN: {
  63991. DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with 'return' complation -> dismantle "
  63992. "catcher, handle return, lj.value1=%!T", tv1));
  63993. /* Not necessary to unwind catch stack: return handling will
  63994. * do it. The finally flag of 'cat' is no longer set. The
  63995. * catch flag may be set, but it's not checked by return handling.
  63996. */
  63997. duk_push_tval(thr, tv1);
  63998. ret_result = duk__handle_return(thr, entry_act);
  63999. if (ret_result == DUK__RETHAND_RESTART) {
  64000. return 0; /* restart execution */
  64001. }
  64002. DUK_ASSERT(ret_result == DUK__RETHAND_FINISHED);
  64003. DUK_DDD(DUK_DDDPRINT("exiting executor after ENDFIN and RETURN (pseudo) longjmp type"));
  64004. return 1; /* exit executor */
  64005. }
  64006. case DUK_LJ_TYPE_BREAK:
  64007. case DUK_LJ_TYPE_CONTINUE: {
  64008. duk_uint_t label_id;
  64009. duk_small_uint_t lj_type;
  64010. /* Not necessary to unwind catch stack: break/continue
  64011. * handling will do it. The finally flag of 'cat' is
  64012. * no longer set. The catch flag may be set, but it's
  64013. * not checked by break/continue handling.
  64014. */
  64015. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1));
  64016. #if defined(DUK_USE_FASTINT)
  64017. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1));
  64018. label_id = (duk_small_uint_t) DUK_TVAL_GET_FASTINT_U32(tv1);
  64019. #else
  64020. label_id = (duk_small_uint_t) DUK_TVAL_GET_NUMBER(tv1);
  64021. #endif
  64022. lj_type = cont_type;
  64023. duk__handle_break_or_continue(thr, label_id, lj_type);
  64024. return 0; /* restart execution */
  64025. }
  64026. default: {
  64027. DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with abrupt completion, lj_type=%ld -> "
  64028. "dismantle catcher, re-throw error",
  64029. (long) cont_type));
  64030. duk_err_setup_ljstate1(thr, (duk_small_uint_t) cont_type, tv1);
  64031. /* No debugger Throw notify check on purpose (rethrow). */
  64032. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* always in executor */
  64033. duk_err_longjmp(thr);
  64034. DUK_UNREACHABLE();
  64035. }
  64036. }
  64037. DUK_UNREACHABLE();
  64038. return 0;
  64039. }
  64040. DUK_LOCAL DUK__NOINLINE_PERF void duk__handle_op_initenum(duk_hthread *thr, duk_uint_fast32_t ins) {
  64041. duk_small_uint_t b;
  64042. duk_small_uint_t c;
  64043. /*
  64044. * Enumeration semantics come from for-in statement, E5 Section 12.6.4.
  64045. * If called with 'null' or 'undefined', this opcode returns 'null' as
  64046. * the enumerator, which is special cased in NEXTENUM. This simplifies
  64047. * the compiler part
  64048. */
  64049. /* B -> register for writing enumerator object
  64050. * C -> value to be enumerated (register)
  64051. */
  64052. b = DUK_DEC_B(ins);
  64053. c = DUK_DEC_C(ins);
  64054. if (duk_is_null_or_undefined(thr, (duk_idx_t) c)) {
  64055. duk_push_null(thr);
  64056. duk_replace(thr, (duk_idx_t) b);
  64057. } else {
  64058. duk_dup(thr, (duk_idx_t) c);
  64059. duk_to_object(thr, -1);
  64060. duk_hobject_enumerator_create(thr, 0 /*enum_flags*/); /* [ ... val ] --> [ ... enum ] */
  64061. duk_replace(thr, (duk_idx_t) b);
  64062. }
  64063. }
  64064. DUK_LOCAL DUK__NOINLINE_PERF duk_small_uint_t duk__handle_op_nextenum(duk_hthread *thr, duk_uint_fast32_t ins) {
  64065. duk_small_uint_t b;
  64066. duk_small_uint_t c;
  64067. duk_small_uint_t pc_skip = 0;
  64068. /*
  64069. * NEXTENUM checks whether the enumerator still has unenumerated
  64070. * keys. If so, the next key is loaded to the target register
  64071. * and the next instruction is skipped. Otherwise the next instruction
  64072. * will be executed, jumping out of the enumeration loop.
  64073. */
  64074. /* B -> target register for next key
  64075. * C -> enum register
  64076. */
  64077. b = DUK_DEC_B(ins);
  64078. c = DUK_DEC_C(ins);
  64079. DUK_DDD(DUK_DDDPRINT("NEXTENUM: b->%!T, c->%!T",
  64080. (duk_tval *) duk_get_tval(thr, (duk_idx_t) b),
  64081. (duk_tval *) duk_get_tval(thr, (duk_idx_t) c)));
  64082. if (duk_is_object(thr, (duk_idx_t) c)) {
  64083. /* XXX: assert 'c' is an enumerator */
  64084. duk_dup(thr, (duk_idx_t) c);
  64085. if (duk_hobject_enumerator_next(thr, 0 /*get_value*/)) {
  64086. /* [ ... enum ] -> [ ... next_key ] */
  64087. DUK_DDD(DUK_DDDPRINT("enum active, next key is %!T, skip jump slot ",
  64088. (duk_tval *) duk_get_tval(thr, -1)));
  64089. pc_skip = 1;
  64090. } else {
  64091. /* [ ... enum ] -> [ ... ] */
  64092. DUK_DDD(DUK_DDDPRINT("enum finished, execute jump slot"));
  64093. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */
  64094. thr->valstack_top++;
  64095. }
  64096. duk_replace(thr, (duk_idx_t) b);
  64097. } else {
  64098. /* 'null' enumerator case -> behave as with an empty enumerator */
  64099. DUK_ASSERT(duk_is_null(thr, (duk_idx_t) c));
  64100. DUK_DDD(DUK_DDDPRINT("enum is null, execute jump slot"));
  64101. }
  64102. return pc_skip;
  64103. }
  64104. /*
  64105. * Call handling helpers.
  64106. */
  64107. DUK_LOCAL duk_bool_t duk__executor_handle_call(duk_hthread *thr, duk_idx_t idx, duk_idx_t nargs, duk_small_uint_t call_flags) {
  64108. duk_bool_t rc;
  64109. duk_set_top_unsafe(thr, (duk_idx_t) (idx + nargs + 2)); /* [ ... func this arg1 ... argN ] */
  64110. /* Attempt an Ecma-to-Ecma call setup. If the call
  64111. * target is (directly or indirectly) Reflect.construct(),
  64112. * the call may change into a constructor call on the fly.
  64113. */
  64114. rc = (duk_bool_t) duk_handle_call_unprotected(thr, idx, call_flags);
  64115. if (rc != 0) {
  64116. /* Ecma-to-ecma call possible, may or may not
  64117. * be a tail call. Avoid C recursion by
  64118. * reusing current executor instance.
  64119. */
  64120. DUK_DDD(DUK_DDDPRINT("ecma-to-ecma call setup possible, restart execution"));
  64121. /* curr_pc synced by duk_handle_call_unprotected() */
  64122. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  64123. return rc;
  64124. } else {
  64125. /* Call was handled inline. */
  64126. }
  64127. DUK_ASSERT(thr->ptr_curr_pc != NULL);
  64128. return rc;
  64129. }
  64130. /*
  64131. * Ecmascript bytecode executor.
  64132. *
  64133. * Resume execution for the current thread from its current activation.
  64134. * Returns when execution would return from the entry level activation,
  64135. * leaving a single return value on top of the stack. Function calls
  64136. * and thread resumptions are handled internally. If an error occurs,
  64137. * a longjmp() with type DUK_LJ_TYPE_THROW is called on the entry level
  64138. * setjmp() jmpbuf.
  64139. *
  64140. * Ecmascript function calls and coroutine resumptions are handled
  64141. * internally (by the outer executor function) without recursive C calls.
  64142. * Other function calls are handled using duk_handle_call(), increasing
  64143. * C recursion depth.
  64144. *
  64145. * Abrupt completions (= long control tranfers) are handled either
  64146. * directly by reconfiguring relevant stacks and restarting execution,
  64147. * or via a longjmp. Longjmp-free handling is preferable for performance
  64148. * (especially Emscripten performance), and is used for: break, continue,
  64149. * and return.
  64150. *
  64151. * For more detailed notes, see doc/execution.rst.
  64152. *
  64153. * Also see doc/code-issues.rst for discussion of setjmp(), longjmp(),
  64154. * and volatile.
  64155. */
  64156. /* Presence of 'fun' is config based, there's a marginal performance
  64157. * difference and the best option is architecture dependent.
  64158. */
  64159. #if defined(DUK_USE_EXEC_FUN_LOCAL)
  64160. #define DUK__FUN() fun
  64161. #else
  64162. #define DUK__FUN() ((duk_hcompfunc *) DUK_ACT_GET_FUNC((thr)->callstack_curr))
  64163. #endif
  64164. /* Strict flag. */
  64165. #define DUK__STRICT() ((duk_small_uint_t) DUK_HOBJECT_HAS_STRICT((duk_hobject *) DUK__FUN()))
  64166. /* Reg/const access macros: these are very footprint and performance sensitive
  64167. * so modify with care. Arguments are sometimes evaluated multiple times which
  64168. * is not ideal.
  64169. */
  64170. #define DUK__REG(x) (*(thr->valstack_bottom + (x)))
  64171. #define DUK__REGP(x) (thr->valstack_bottom + (x))
  64172. #define DUK__CONST(x) (*(consts + (x)))
  64173. #define DUK__CONSTP(x) (consts + (x))
  64174. /* Reg/const access macros which take the 32-bit instruction and avoid an
  64175. * explicit field decoding step by using shifts and masks. These must be
  64176. * kept in sync with duk_js_bytecode.h. The shift/mask values are chosen
  64177. * so that 'ins' can be shifted and masked and used as a -byte- offset
  64178. * instead of a duk_tval offset which needs further shifting (which is an
  64179. * issue on some, but not all, CPUs).
  64180. */
  64181. #define DUK__RCBIT_B DUK_BC_REGCONST_B
  64182. #define DUK__RCBIT_C DUK_BC_REGCONST_C
  64183. #if defined(DUK_USE_EXEC_REGCONST_OPTIMIZE)
  64184. #if defined(DUK_USE_PACKED_TVAL)
  64185. #define DUK__TVAL_SHIFT 3 /* sizeof(duk_tval) == 8 */
  64186. #else
  64187. #define DUK__TVAL_SHIFT 4 /* sizeof(duk_tval) == 16; not always the case so also asserted for */
  64188. #endif
  64189. #define DUK__SHIFT_A (DUK_BC_SHIFT_A - DUK__TVAL_SHIFT)
  64190. #define DUK__SHIFT_B (DUK_BC_SHIFT_B - DUK__TVAL_SHIFT)
  64191. #define DUK__SHIFT_C (DUK_BC_SHIFT_C - DUK__TVAL_SHIFT)
  64192. #define DUK__SHIFT_BC (DUK_BC_SHIFT_BC - DUK__TVAL_SHIFT)
  64193. #define DUK__MASK_A (DUK_BC_UNSHIFTED_MASK_A << DUK__TVAL_SHIFT)
  64194. #define DUK__MASK_B (DUK_BC_UNSHIFTED_MASK_B << DUK__TVAL_SHIFT)
  64195. #define DUK__MASK_C (DUK_BC_UNSHIFTED_MASK_C << DUK__TVAL_SHIFT)
  64196. #define DUK__MASK_BC (DUK_BC_UNSHIFTED_MASK_BC << DUK__TVAL_SHIFT)
  64197. #define DUK__BYTEOFF_A(ins) (((ins) >> DUK__SHIFT_A) & DUK__MASK_A)
  64198. #define DUK__BYTEOFF_B(ins) (((ins) >> DUK__SHIFT_B) & DUK__MASK_B)
  64199. #define DUK__BYTEOFF_C(ins) (((ins) >> DUK__SHIFT_C) & DUK__MASK_C)
  64200. #define DUK__BYTEOFF_BC(ins) (((ins) >> DUK__SHIFT_BC) & DUK__MASK_BC)
  64201. #define DUK__REGP_A(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_A((ins))))
  64202. #define DUK__REGP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_B((ins))))
  64203. #define DUK__REGP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_C((ins))))
  64204. #define DUK__REGP_BC(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_BC((ins))))
  64205. #define DUK__CONSTP_A(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_A((ins))))
  64206. #define DUK__CONSTP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_B((ins))))
  64207. #define DUK__CONSTP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_C((ins))))
  64208. #define DUK__CONSTP_BC(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_BC((ins))))
  64209. #define DUK__REGCONSTP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) (((ins) & DUK__RCBIT_B) ? consts : thr->valstack_bottom) + DUK__BYTEOFF_B((ins))))
  64210. #define DUK__REGCONSTP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) (((ins) & DUK__RCBIT_C) ? consts : thr->valstack_bottom) + DUK__BYTEOFF_C((ins))))
  64211. #else /* DUK_USE_EXEC_REGCONST_OPTIMIZE */
  64212. /* Safe alternatives, no assumption about duk_tval size. */
  64213. #define DUK__REGP_A(ins) DUK__REGP(DUK_DEC_A((ins)))
  64214. #define DUK__REGP_B(ins) DUK__REGP(DUK_DEC_B((ins)))
  64215. #define DUK__REGP_C(ins) DUK__REGP(DUK_DEC_C((ins)))
  64216. #define DUK__REGP_BC(ins) DUK__REGP(DUK_DEC_BC((ins)))
  64217. #define DUK__CONSTP_A(ins) DUK__CONSTP(DUK_DEC_A((ins)))
  64218. #define DUK__CONSTP_B(ins) DUK__CONSTP(DUK_DEC_B((ins)))
  64219. #define DUK__CONSTP_C(ins) DUK__CONSTP(DUK_DEC_C((ins)))
  64220. #define DUK__CONSTP_BC(ins) DUK__CONSTP(DUK_DEC_BC((ins)))
  64221. #define DUK__REGCONSTP_B(ins) ((((ins) & DUK__RCBIT_B) ? consts : thr->valstack_bottom) + DUK_DEC_B((ins)))
  64222. #define DUK__REGCONSTP_C(ins) ((((ins) & DUK__RCBIT_C) ? consts : thr->valstack_bottom) + DUK_DEC_C((ins)))
  64223. #endif /* DUK_USE_EXEC_REGCONST_OPTIMIZE */
  64224. #if defined(DUK_USE_VERBOSE_EXECUTOR_ERRORS)
  64225. #define DUK__INTERNAL_ERROR(msg) do { \
  64226. DUK_ERROR_ERROR(thr, (msg)); \
  64227. } while (0)
  64228. #else
  64229. #define DUK__INTERNAL_ERROR(msg) do { \
  64230. goto internal_error; \
  64231. } while (0)
  64232. #endif
  64233. #define DUK__SYNC_CURR_PC() do { \
  64234. duk_activation *duk__act; \
  64235. duk__act = thr->callstack_curr; \
  64236. duk__act->curr_pc = curr_pc; \
  64237. } while (0)
  64238. #define DUK__SYNC_AND_NULL_CURR_PC() do { \
  64239. duk_activation *duk__act; \
  64240. duk__act = thr->callstack_curr; \
  64241. duk__act->curr_pc = curr_pc; \
  64242. thr->ptr_curr_pc = NULL; \
  64243. } while (0)
  64244. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64245. #define DUK__LOOKUP_INDIRECT(idx) do { \
  64246. (idx) = (duk_uint_fast_t) duk_get_uint(thr, (duk_idx_t) (idx)); \
  64247. } while (0)
  64248. #elif defined(DUK_USE_FASTINT)
  64249. #define DUK__LOOKUP_INDIRECT(idx) do { \
  64250. duk_tval *tv_ind; \
  64251. tv_ind = DUK__REGP((idx)); \
  64252. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_ind)); \
  64253. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv_ind)); /* compiler guarantees */ \
  64254. (idx) = (duk_uint_fast_t) DUK_TVAL_GET_FASTINT_U32(tv_ind); \
  64255. } while (0)
  64256. #else
  64257. #define DUK__LOOKUP_INDIRECT(idx) do { \
  64258. duk_tval *tv_ind; \
  64259. tv_ind = DUK__REGP(idx); \
  64260. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_ind)); \
  64261. idx = (duk_uint_fast_t) DUK_TVAL_GET_NUMBER(tv_ind); \
  64262. } while (0)
  64263. #endif
  64264. DUK_LOCAL void duk__handle_executor_error(duk_heap *heap,
  64265. duk_activation *entry_act,
  64266. duk_int_t entry_call_recursion_depth,
  64267. duk_jmpbuf *entry_jmpbuf_ptr) {
  64268. duk_small_uint_t lj_ret;
  64269. /* Longjmp callers are required to sync-and-null thr->ptr_curr_pc
  64270. * before longjmp.
  64271. */
  64272. DUK_ASSERT(heap->curr_thread != NULL);
  64273. DUK_ASSERT(heap->curr_thread->ptr_curr_pc == NULL);
  64274. /* XXX: signalling the need to shrink check (only if unwound) */
  64275. /* Must be restored here to handle e.g. yields properly. */
  64276. heap->call_recursion_depth = entry_call_recursion_depth;
  64277. /* Switch to caller's setjmp() catcher so that if an error occurs
  64278. * during error handling, it is always propagated outwards instead
  64279. * of causing an infinite loop in our own handler.
  64280. */
  64281. heap->lj.jmpbuf_ptr = (duk_jmpbuf *) entry_jmpbuf_ptr;
  64282. lj_ret = duk__handle_longjmp(heap->curr_thread, entry_act);
  64283. /* Error handling complete, remove side effect protections.
  64284. */
  64285. #if defined(DUK_USE_ASSERTIONS)
  64286. DUK_ASSERT(heap->error_not_allowed == 1);
  64287. heap->error_not_allowed = 0;
  64288. #endif
  64289. DUK_ASSERT(heap->pf_prevent_count > 0);
  64290. heap->pf_prevent_count--;
  64291. DUK_DD(DUK_DDPRINT("executor error handled, pf_prevent_count updated to %ld", (long) heap->pf_prevent_count));
  64292. if (lj_ret == DUK__LONGJMP_RESTART) {
  64293. /* Restart bytecode execution, possibly with a changed thread. */
  64294. DUK_REFZERO_CHECK_SLOW(heap->curr_thread);
  64295. } else {
  64296. /* If an error is propagated, don't run refzero checks here.
  64297. * The next catcher will deal with that. Pf_prevent_count
  64298. * will be re-bumped by the longjmp.
  64299. */
  64300. DUK_ASSERT(lj_ret == DUK__LONGJMP_RETHROW); /* Rethrow error to calling state. */
  64301. DUK_ASSERT(heap->lj.jmpbuf_ptr == entry_jmpbuf_ptr); /* Longjmp handling has restored jmpbuf_ptr. */
  64302. /* Thread may have changed, e.g. YIELD converted to THROW. */
  64303. duk_err_longjmp(heap->curr_thread);
  64304. DUK_UNREACHABLE();
  64305. }
  64306. }
  64307. /* Outer executor with setjmp/longjmp handling. */
  64308. DUK_INTERNAL void duk_js_execute_bytecode(duk_hthread *exec_thr) {
  64309. /* Entry level info. */
  64310. duk_hthread *entry_thread;
  64311. duk_activation *entry_act;
  64312. duk_int_t entry_call_recursion_depth;
  64313. duk_jmpbuf *entry_jmpbuf_ptr;
  64314. duk_jmpbuf our_jmpbuf;
  64315. duk_heap *heap;
  64316. DUK_ASSERT(exec_thr != NULL);
  64317. DUK_ASSERT(exec_thr->heap != NULL);
  64318. DUK_ASSERT(exec_thr->heap->curr_thread != NULL);
  64319. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR((duk_heaphdr *) exec_thr);
  64320. DUK_ASSERT(exec_thr->callstack_top >= 1); /* at least one activation, ours */
  64321. DUK_ASSERT(exec_thr->callstack_curr != NULL);
  64322. DUK_ASSERT(DUK_ACT_GET_FUNC(exec_thr->callstack_curr) != NULL);
  64323. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(exec_thr->callstack_curr)));
  64324. DUK_GC_TORTURE(exec_thr->heap);
  64325. entry_thread = exec_thr;
  64326. heap = entry_thread->heap;
  64327. entry_act = entry_thread->callstack_curr;
  64328. DUK_ASSERT(entry_act != NULL);
  64329. entry_call_recursion_depth = entry_thread->heap->call_recursion_depth;
  64330. entry_jmpbuf_ptr = entry_thread->heap->lj.jmpbuf_ptr;
  64331. /*
  64332. * Note: we currently assume that the setjmp() catchpoint is
  64333. * not re-entrant (longjmp() cannot be called more than once
  64334. * for a single setjmp()).
  64335. *
  64336. * See doc/code-issues.rst for notes on variable assignment
  64337. * before and after setjmp().
  64338. */
  64339. for (;;) {
  64340. heap->lj.jmpbuf_ptr = &our_jmpbuf;
  64341. DUK_ASSERT(heap->lj.jmpbuf_ptr != NULL);
  64342. #if defined(DUK_USE_CPP_EXCEPTIONS)
  64343. try {
  64344. #else
  64345. DUK_ASSERT(heap->lj.jmpbuf_ptr == &our_jmpbuf);
  64346. if (DUK_SETJMP(our_jmpbuf.jb) == 0) {
  64347. #endif
  64348. /* Execute bytecode until returned or longjmp(). */
  64349. duk__js_execute_bytecode_inner(entry_thread, entry_act);
  64350. /* Successful return: restore jmpbuf and return to caller. */
  64351. heap->lj.jmpbuf_ptr = entry_jmpbuf_ptr;
  64352. return;
  64353. #if defined(DUK_USE_CPP_EXCEPTIONS)
  64354. } catch (duk_internal_exception &exc) {
  64355. #else
  64356. } else {
  64357. #endif
  64358. #if defined(DUK_USE_CPP_EXCEPTIONS)
  64359. DUK_UNREF(exc);
  64360. #endif
  64361. DUK_DDD(DUK_DDDPRINT("longjmp caught by bytecode executor"));
  64362. DUK_STATS_INC(exec_thr->heap, stats_exec_throw);
  64363. duk__handle_executor_error(heap,
  64364. entry_act,
  64365. entry_call_recursion_depth,
  64366. entry_jmpbuf_ptr);
  64367. }
  64368. #if defined(DUK_USE_CPP_EXCEPTIONS)
  64369. catch (std::exception &exc) {
  64370. const char *what = exc.what();
  64371. if (!what) {
  64372. what = "unknown";
  64373. }
  64374. DUK_D(DUK_DPRINT("unexpected c++ std::exception (perhaps thrown by user code)"));
  64375. DUK_STATS_INC(exec_thr->heap, stats_exec_throw);
  64376. try {
  64377. DUK_ASSERT(heap->curr_thread != NULL);
  64378. DUK_ERROR_FMT1(heap->curr_thread, DUK_ERR_TYPE_ERROR, "caught invalid c++ std::exception '%s' (perhaps thrown by user code)", what);
  64379. } catch (duk_internal_exception exc) {
  64380. DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ std::exception"));
  64381. DUK_UNREF(exc);
  64382. duk__handle_executor_error(heap,
  64383. entry_act,
  64384. entry_call_recursion_depth,
  64385. entry_jmpbuf_ptr);
  64386. }
  64387. } catch (...) {
  64388. DUK_D(DUK_DPRINT("unexpected c++ exception (perhaps thrown by user code)"));
  64389. DUK_STATS_INC(exec_thr->heap, stats_exec_throw);
  64390. try {
  64391. DUK_ASSERT(heap->curr_thread != NULL);
  64392. DUK_ERROR_TYPE(heap->curr_thread, "caught invalid c++ exception (perhaps thrown by user code)");
  64393. } catch (duk_internal_exception exc) {
  64394. DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ exception"));
  64395. DUK_UNREF(exc);
  64396. duk__handle_executor_error(heap,
  64397. entry_act,
  64398. entry_call_recursion_depth,
  64399. entry_jmpbuf_ptr);
  64400. }
  64401. }
  64402. #endif
  64403. }
  64404. DUK_UNREACHABLE();
  64405. }
  64406. /* Inner executor, performance critical. */
  64407. DUK_LOCAL DUK_NOINLINE DUK_HOT void duk__js_execute_bytecode_inner(duk_hthread *entry_thread, duk_activation *entry_act) {
  64408. /* Current PC, accessed by other functions through thr->ptr_to_curr_pc.
  64409. * Critical for performance. It would be safest to make this volatile,
  64410. * but that eliminates performance benefits; aliasing guarantees
  64411. * should be enough though.
  64412. */
  64413. duk_instr_t *curr_pc; /* bytecode has a stable pointer */
  64414. /* Hot variables for interpretation. Critical for performance,
  64415. * but must add sparingly to minimize register shuffling.
  64416. */
  64417. duk_hthread *thr; /* stable */
  64418. duk_tval *consts; /* stable */
  64419. duk_uint_fast32_t ins;
  64420. /* 'funcs' is quite rarely used, so no local for it */
  64421. #if defined(DUK_USE_EXEC_FUN_LOCAL)
  64422. duk_hcompfunc *fun;
  64423. #else
  64424. /* 'fun' is quite rarely used, so no local for it */
  64425. #endif
  64426. #if defined(DUK_USE_INTERRUPT_COUNTER)
  64427. duk_int_t int_ctr;
  64428. #endif
  64429. #if defined(DUK_USE_ASSERTIONS)
  64430. duk_size_t valstack_top_base; /* valstack top, should match before interpreting each op (no leftovers) */
  64431. #endif
  64432. /* Optimized reg/const access macros assume sizeof(duk_tval) to be
  64433. * either 8 or 16. Heap allocation checks this even without asserts
  64434. * enabled now because it can't be autodetected in duk_config.h.
  64435. */
  64436. #if 1
  64437. #if defined(DUK_USE_PACKED_TVAL)
  64438. DUK_ASSERT(sizeof(duk_tval) == 8);
  64439. #else
  64440. DUK_ASSERT(sizeof(duk_tval) == 16);
  64441. #endif
  64442. #endif
  64443. DUK_GC_TORTURE(entry_thread->heap);
  64444. /*
  64445. * Restart execution by reloading thread state.
  64446. *
  64447. * Note that 'thr' and any thread configuration may have changed,
  64448. * so all local variables are suspect and we need to reinitialize.
  64449. *
  64450. * The number of local variables should be kept to a minimum: if
  64451. * the variables are spilled, they will need to be loaded from
  64452. * memory anyway.
  64453. *
  64454. * Any 'goto restart_execution;' code path in opcode dispatch must
  64455. * ensure 'curr_pc' is synced back to act->curr_pc before the goto
  64456. * takes place.
  64457. *
  64458. * The interpreter must be very careful with memory pointers, as
  64459. * many pointers are not guaranteed to be 'stable' and may be
  64460. * reallocated and relocated on-the-fly quite easily (e.g. by a
  64461. * memory allocation or a property access).
  64462. *
  64463. * The following are assumed to have stable pointers:
  64464. * - the current thread
  64465. * - the current function
  64466. * - the bytecode, constant table, inner function table of the
  64467. * current function (as they are a part of the function allocation)
  64468. *
  64469. * The following are assumed to have semi-stable pointers:
  64470. * - the current activation entry: stable as long as callstack
  64471. * is not changed (reallocated by growing or shrinking), or
  64472. * by any garbage collection invocation (through finalizers)
  64473. * - Note in particular that ANY DECREF can invalidate the
  64474. * activation pointer, so for the most part a fresh lookup
  64475. * is required
  64476. *
  64477. * The following are not assumed to have stable pointers at all:
  64478. * - the value stack (registers) of the current thread
  64479. *
  64480. * See execution.rst for discussion.
  64481. */
  64482. restart_execution:
  64483. /* Lookup current thread; use the stable 'entry_thread' for this to
  64484. * avoid clobber warnings. Any valid, reachable 'thr' value would be
  64485. * fine for this, so using 'entry_thread' is just to silence warnings.
  64486. */
  64487. thr = entry_thread->heap->curr_thread;
  64488. DUK_ASSERT(thr != NULL);
  64489. DUK_ASSERT(thr->callstack_top >= 1);
  64490. DUK_ASSERT(thr->callstack_curr != NULL);
  64491. DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL);
  64492. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)));
  64493. DUK_GC_TORTURE(thr->heap);
  64494. thr->ptr_curr_pc = &curr_pc;
  64495. /* Relookup and initialize dispatch loop variables. Debugger check. */
  64496. {
  64497. duk_activation *act;
  64498. #if !defined(DUK_USE_EXEC_FUN_LOCAL)
  64499. duk_hcompfunc *fun;
  64500. #endif
  64501. /* Assume interrupt init/counter are properly initialized here. */
  64502. /* Assume that thr->valstack_bottom has been set-up before getting here. */
  64503. act = thr->callstack_curr;
  64504. DUK_ASSERT(act != NULL);
  64505. fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  64506. DUK_ASSERT(fun != NULL);
  64507. DUK_ASSERT(thr->valstack_top - thr->valstack_bottom == fun->nregs);
  64508. consts = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, fun);
  64509. DUK_ASSERT(consts != NULL);
  64510. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  64511. if (DUK_UNLIKELY(duk_debug_is_attached(thr->heap) && !thr->heap->dbg_processing)) {
  64512. duk__executor_recheck_debugger(thr, act, fun);
  64513. DUK_ASSERT(act == thr->callstack_curr);
  64514. DUK_ASSERT(act != NULL);
  64515. }
  64516. #endif /* DUK_USE_DEBUGGER_SUPPORT */
  64517. #if defined(DUK_USE_ASSERTIONS)
  64518. valstack_top_base = (duk_size_t) (thr->valstack_top - thr->valstack);
  64519. #endif
  64520. /* Set up curr_pc for opcode dispatch. */
  64521. curr_pc = act->curr_pc;
  64522. }
  64523. DUK_DD(DUK_DDPRINT("restarting execution, thr %p, act idx %ld, fun %p,"
  64524. "consts %p, funcs %p, lev %ld, regbot %ld, regtop %ld, "
  64525. "preventcount=%ld",
  64526. (void *) thr,
  64527. (long) (thr->callstack_top - 1),
  64528. (void *) DUK__FUN(),
  64529. (void *) DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, DUK__FUN()),
  64530. (void *) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, DUK__FUN()),
  64531. (long) (thr->callstack_top - 1),
  64532. (long) (thr->valstack_bottom - thr->valstack),
  64533. (long) (thr->valstack_top - thr->valstack),
  64534. (long) thr->callstack_preventcount));
  64535. /* Dispatch loop. */
  64536. for (;;) {
  64537. duk_uint8_t op;
  64538. DUK_ASSERT(thr->callstack_top >= 1);
  64539. DUK_ASSERT(thr->valstack_top - thr->valstack_bottom == DUK__FUN()->nregs);
  64540. DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack) == valstack_top_base);
  64541. /* Executor interrupt counter check, used to implement breakpoints,
  64542. * debugging interface, execution timeouts, etc. The counter is heap
  64543. * specific but is maintained in the current thread to make the check
  64544. * as fast as possible. The counter is copied back to the heap struct
  64545. * whenever a thread switch occurs by the DUK_HEAP_SWITCH_THREAD() macro.
  64546. */
  64547. #if defined(DUK_USE_INTERRUPT_COUNTER)
  64548. int_ctr = thr->interrupt_counter;
  64549. if (DUK_LIKELY(int_ctr > 0)) {
  64550. thr->interrupt_counter = int_ctr - 1;
  64551. } else {
  64552. /* Trigger at zero or below */
  64553. duk_small_uint_t exec_int_ret;
  64554. DUK_STATS_INC(thr->heap, stats_exec_interrupt);
  64555. /* Write curr_pc back for the debugger. */
  64556. {
  64557. duk_activation *act;
  64558. DUK_ASSERT(thr->callstack_top > 0);
  64559. act = thr->callstack_curr;
  64560. DUK_ASSERT(act != NULL);
  64561. act->curr_pc = (duk_instr_t *) curr_pc;
  64562. }
  64563. /* Forced restart caused by a function return; must recheck
  64564. * debugger breakpoints before checking line transitions,
  64565. * see GH-303. Restart and then handle interrupt_counter
  64566. * zero again.
  64567. */
  64568. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  64569. if (thr->heap->dbg_force_restart) {
  64570. DUK_DD(DUK_DDPRINT("dbg_force_restart flag forced restart execution")); /* GH-303 */
  64571. thr->heap->dbg_force_restart = 0;
  64572. goto restart_execution;
  64573. }
  64574. #endif
  64575. exec_int_ret = duk__executor_interrupt(thr);
  64576. if (exec_int_ret == DUK__INT_RESTART) {
  64577. /* curr_pc synced back above */
  64578. goto restart_execution;
  64579. }
  64580. }
  64581. #endif /* DUK_USE_INTERRUPT_COUNTER */
  64582. #if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG)
  64583. /* For cross-checking during development: ensure dispatch count
  64584. * matches cumulative interrupt counter init value sums.
  64585. */
  64586. thr->heap->inst_count_exec++;
  64587. #endif
  64588. #if defined(DUK_USE_ASSERTIONS) || defined(DUK_USE_DEBUG)
  64589. {
  64590. duk_activation *act;
  64591. act = thr->callstack_curr;
  64592. DUK_ASSERT(curr_pc >= DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, DUK__FUN()));
  64593. DUK_ASSERT(curr_pc < DUK_HCOMPFUNC_GET_CODE_END(thr->heap, DUK__FUN()));
  64594. DUK_UNREF(act); /* if debugging disabled */
  64595. DUK_DDD(DUK_DDDPRINT("executing bytecode: pc=%ld, ins=0x%08lx, op=%ld, valstack_top=%ld/%ld, nregs=%ld --> %!I",
  64596. (long) (curr_pc - DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, DUK__FUN())),
  64597. (unsigned long) *curr_pc,
  64598. (long) DUK_DEC_OP(*curr_pc),
  64599. (long) (thr->valstack_top - thr->valstack),
  64600. (long) (thr->valstack_end - thr->valstack),
  64601. (long) (DUK__FUN() ? DUK__FUN()->nregs : -1),
  64602. (duk_instr_t) *curr_pc));
  64603. }
  64604. #endif
  64605. #if defined(DUK_USE_ASSERTIONS)
  64606. /* Quite heavy assert: check valstack policy. Improper
  64607. * shuffle instructions can write beyond valstack_top/end
  64608. * so this check catches them in the act.
  64609. */
  64610. {
  64611. duk_tval *tv;
  64612. tv = thr->valstack_top;
  64613. while (tv != thr->valstack_end) {
  64614. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv));
  64615. tv++;
  64616. }
  64617. }
  64618. #endif
  64619. ins = *curr_pc++;
  64620. DUK_STATS_INC(thr->heap, stats_exec_opcodes);
  64621. /* Typing: use duk_small_(u)int_fast_t when decoding small
  64622. * opcode fields (op, A, B, C, BC) which fit into 16 bits
  64623. * and duk_(u)int_fast_t when decoding larger fields (e.g.
  64624. * ABC). Use unsigned variant by default, signed when the
  64625. * value is used in signed arithmetic. Using variable names
  64626. * such as 'a', 'b', 'c', 'bc', etc makes it easier to spot
  64627. * typing mismatches.
  64628. */
  64629. /* Switch based on opcode. Cast to 8-bit unsigned value and
  64630. * use a fully populated case clauses so that the compiler
  64631. * will (at least usually) omit a bounds check.
  64632. */
  64633. op = (duk_uint8_t) DUK_DEC_OP(ins);
  64634. switch (op) {
  64635. /* Some useful macros. These access inner executor variables
  64636. * directly so they only apply within the executor.
  64637. */
  64638. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64639. #define DUK__REPLACE_TOP_A_BREAK() { goto replace_top_a; }
  64640. #define DUK__REPLACE_TOP_BC_BREAK() { goto replace_top_bc; }
  64641. #define DUK__REPLACE_BOOL_A_BREAK(bval) { \
  64642. duk_bool_t duk__bval; \
  64643. duk__bval = (bval); \
  64644. DUK_ASSERT(duk__bval == 0 || duk__bval == 1); \
  64645. duk_push_boolean(thr, duk__bval); \
  64646. DUK__REPLACE_TOP_A_BREAK(); \
  64647. }
  64648. #else
  64649. #define DUK__REPLACE_TOP_A_BREAK() { DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_A(ins)); break; }
  64650. #define DUK__REPLACE_TOP_BC_BREAK() { DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_BC(ins)); break; }
  64651. #define DUK__REPLACE_BOOL_A_BREAK(bval) { \
  64652. duk_bool_t duk__bval; \
  64653. duk_tval *duk__tvdst; \
  64654. duk__bval = (bval); \
  64655. DUK_ASSERT(duk__bval == 0 || duk__bval == 1); \
  64656. duk__tvdst = DUK__REGP_A(ins); \
  64657. DUK_TVAL_SET_BOOLEAN_UPDREF(thr, duk__tvdst, duk__bval); \
  64658. break; \
  64659. }
  64660. #endif
  64661. /* XXX: 12 + 12 bit variant might make sense too, for both reg and
  64662. * const loads.
  64663. */
  64664. /* For LDREG, STREG, LDCONST footprint optimized variants would just
  64665. * duk_dup() + duk_replace(), but because they're used quite a lot
  64666. * they're currently intentionally not size optimized.
  64667. */
  64668. case DUK_OP_LDREG: {
  64669. duk_tval *tv1, *tv2;
  64670. tv1 = DUK__REGP_A(ins);
  64671. tv2 = DUK__REGP_BC(ins);
  64672. DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */
  64673. break;
  64674. }
  64675. case DUK_OP_STREG: {
  64676. duk_tval *tv1, *tv2;
  64677. tv1 = DUK__REGP_A(ins);
  64678. tv2 = DUK__REGP_BC(ins);
  64679. DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv2, tv1); /* side effects */
  64680. break;
  64681. }
  64682. case DUK_OP_LDCONST: {
  64683. duk_tval *tv1, *tv2;
  64684. tv1 = DUK__REGP_A(ins);
  64685. tv2 = DUK__CONSTP_BC(ins);
  64686. DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */
  64687. break;
  64688. }
  64689. /* LDINT and LDINTX are intended to load an arbitrary signed
  64690. * 32-bit value. Only an LDINT+LDINTX sequence is supported.
  64691. * This also guarantees all values remain fastints.
  64692. */
  64693. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64694. case DUK_OP_LDINT: {
  64695. duk_int32_t val;
  64696. val = (duk_int32_t) DUK_DEC_BC(ins) - (duk_int32_t) DUK_BC_LDINT_BIAS;
  64697. duk_push_int(thr, val);
  64698. DUK__REPLACE_TOP_A_BREAK();
  64699. }
  64700. case DUK_OP_LDINTX: {
  64701. duk_int32_t val;
  64702. val = (duk_int32_t) duk_get_int(thr, DUK_DEC_A(ins));
  64703. val = (val << DUK_BC_LDINTX_SHIFT) + (duk_int32_t) DUK_DEC_BC(ins); /* no bias */
  64704. duk_push_int(thr, val);
  64705. DUK__REPLACE_TOP_A_BREAK();
  64706. }
  64707. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64708. case DUK_OP_LDINT: {
  64709. duk_tval *tv1;
  64710. duk_int32_t val;
  64711. val = (duk_int32_t) DUK_DEC_BC(ins) - (duk_int32_t) DUK_BC_LDINT_BIAS;
  64712. tv1 = DUK__REGP_A(ins);
  64713. DUK_TVAL_SET_I32_UPDREF(thr, tv1, val); /* side effects */
  64714. break;
  64715. }
  64716. case DUK_OP_LDINTX: {
  64717. duk_tval *tv1;
  64718. duk_int32_t val;
  64719. tv1 = DUK__REGP_A(ins);
  64720. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1));
  64721. #if defined(DUK_USE_FASTINT)
  64722. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1));
  64723. val = DUK_TVAL_GET_FASTINT_I32(tv1);
  64724. #else
  64725. /* XXX: fast double-to-int conversion, we know number is integer in [-0x80000000,0xffffffff]. */
  64726. val = (duk_int32_t) DUK_TVAL_GET_NUMBER(tv1);
  64727. #endif
  64728. val = (val << DUK_BC_LDINTX_SHIFT) + (duk_int32_t) DUK_DEC_BC(ins); /* no bias */
  64729. DUK_TVAL_SET_I32_UPDREF(thr, tv1, val); /* side effects */
  64730. break;
  64731. }
  64732. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64733. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64734. case DUK_OP_LDTHIS: {
  64735. duk_push_this(thr);
  64736. DUK__REPLACE_TOP_BC_BREAK();
  64737. }
  64738. case DUK_OP_LDUNDEF: {
  64739. duk_to_undefined(thr, (duk_idx_t) DUK_DEC_BC(ins));
  64740. break;
  64741. }
  64742. case DUK_OP_LDNULL: {
  64743. duk_to_null(thr, (duk_idx_t) DUK_DEC_BC(ins));
  64744. break;
  64745. }
  64746. case DUK_OP_LDTRUE: {
  64747. duk_push_true(thr);
  64748. DUK__REPLACE_TOP_BC_BREAK();
  64749. }
  64750. case DUK_OP_LDFALSE: {
  64751. duk_push_false(thr);
  64752. DUK__REPLACE_TOP_BC_BREAK();
  64753. }
  64754. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64755. case DUK_OP_LDTHIS: {
  64756. /* Note: 'this' may be bound to any value, not just an object */
  64757. duk_tval *tv1, *tv2;
  64758. tv1 = DUK__REGP_BC(ins);
  64759. tv2 = thr->valstack_bottom - 1; /* 'this binding' is just under bottom */
  64760. DUK_ASSERT(tv2 >= thr->valstack);
  64761. DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */
  64762. break;
  64763. }
  64764. case DUK_OP_LDUNDEF: {
  64765. duk_tval *tv1;
  64766. tv1 = DUK__REGP_BC(ins);
  64767. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */
  64768. break;
  64769. }
  64770. case DUK_OP_LDNULL: {
  64771. duk_tval *tv1;
  64772. tv1 = DUK__REGP_BC(ins);
  64773. DUK_TVAL_SET_NULL_UPDREF(thr, tv1); /* side effects */
  64774. break;
  64775. }
  64776. case DUK_OP_LDTRUE: {
  64777. duk_tval *tv1;
  64778. tv1 = DUK__REGP_BC(ins);
  64779. DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv1, 1); /* side effects */
  64780. break;
  64781. }
  64782. case DUK_OP_LDFALSE: {
  64783. duk_tval *tv1;
  64784. tv1 = DUK__REGP_BC(ins);
  64785. DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv1, 0); /* side effects */
  64786. break;
  64787. }
  64788. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64789. case DUK_OP_BNOT: {
  64790. duk__vm_bitwise_not(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins));
  64791. break;
  64792. }
  64793. case DUK_OP_LNOT: {
  64794. duk__vm_logical_not(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins));
  64795. break;
  64796. }
  64797. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64798. case DUK_OP_UNM:
  64799. case DUK_OP_UNP: {
  64800. duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), op);
  64801. break;
  64802. }
  64803. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64804. case DUK_OP_UNM: {
  64805. duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), DUK_OP_UNM);
  64806. break;
  64807. }
  64808. case DUK_OP_UNP: {
  64809. duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), DUK_OP_UNP);
  64810. break;
  64811. }
  64812. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64813. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64814. case DUK_OP_TYPEOF: {
  64815. duk_small_uint_t stridx;
  64816. stridx = duk_js_typeof_stridx(DUK__REGP_BC(ins));
  64817. DUK_ASSERT_STRIDX_VALID(stridx);
  64818. duk_push_hstring_stridx(thr, stridx);
  64819. DUK__REPLACE_TOP_A_BREAK();
  64820. }
  64821. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64822. case DUK_OP_TYPEOF: {
  64823. duk_tval *tv;
  64824. duk_small_uint_t stridx;
  64825. duk_hstring *h_str;
  64826. tv = DUK__REGP_BC(ins);
  64827. stridx = duk_js_typeof_stridx(tv);
  64828. DUK_ASSERT_STRIDX_VALID(stridx);
  64829. h_str = DUK_HTHREAD_GET_STRING(thr, stridx);
  64830. tv = DUK__REGP_A(ins);
  64831. DUK_TVAL_SET_STRING_UPDREF(thr, tv, h_str);
  64832. break;
  64833. }
  64834. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64835. case DUK_OP_TYPEOFID: {
  64836. duk_small_uint_t stridx;
  64837. #if !defined(DUK_USE_EXEC_PREFER_SIZE)
  64838. duk_hstring *h_str;
  64839. #endif
  64840. duk_activation *act;
  64841. duk_hstring *name;
  64842. duk_tval *tv;
  64843. /* A -> target register
  64844. * BC -> constant index of identifier name
  64845. */
  64846. tv = DUK__CONSTP_BC(ins);
  64847. DUK_ASSERT(DUK_TVAL_IS_STRING(tv));
  64848. name = DUK_TVAL_GET_STRING(tv);
  64849. tv = NULL; /* lookup has side effects */
  64850. act = thr->callstack_curr;
  64851. if (duk_js_getvar_activation(thr, act, name, 0 /*throw*/)) {
  64852. /* -> [... val this] */
  64853. tv = DUK_GET_TVAL_NEGIDX(thr, -2);
  64854. stridx = duk_js_typeof_stridx(tv);
  64855. tv = NULL; /* no longer needed */
  64856. duk_pop_2_unsafe(thr);
  64857. } else {
  64858. /* unresolvable, no stack changes */
  64859. stridx = DUK_STRIDX_LC_UNDEFINED;
  64860. }
  64861. DUK_ASSERT_STRIDX_VALID(stridx);
  64862. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64863. duk_push_hstring_stridx(thr, stridx);
  64864. DUK__REPLACE_TOP_A_BREAK();
  64865. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64866. h_str = DUK_HTHREAD_GET_STRING(thr, stridx);
  64867. tv = DUK__REGP_A(ins);
  64868. DUK_TVAL_SET_STRING_UPDREF(thr, tv, h_str);
  64869. break;
  64870. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64871. }
  64872. /* Equality: E5 Sections 11.9.1, 11.9.3 */
  64873. #define DUK__EQ_BODY(barg,carg) { \
  64874. duk_bool_t tmp; \
  64875. tmp = duk_js_equals(thr, (barg), (carg)); \
  64876. DUK_ASSERT(tmp == 0 || tmp == 1); \
  64877. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  64878. }
  64879. #define DUK__NEQ_BODY(barg,carg) { \
  64880. duk_bool_t tmp; \
  64881. tmp = duk_js_equals(thr, (barg), (carg)); \
  64882. DUK_ASSERT(tmp == 0 || tmp == 1); \
  64883. tmp ^= 1; \
  64884. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  64885. }
  64886. #define DUK__SEQ_BODY(barg,carg) { \
  64887. duk_bool_t tmp; \
  64888. tmp = duk_js_strict_equals((barg), (carg)); \
  64889. DUK_ASSERT(tmp == 0 || tmp == 1); \
  64890. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  64891. }
  64892. #define DUK__SNEQ_BODY(barg,carg) { \
  64893. duk_bool_t tmp; \
  64894. tmp = duk_js_strict_equals((barg), (carg)); \
  64895. DUK_ASSERT(tmp == 0 || tmp == 1); \
  64896. tmp ^= 1; \
  64897. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  64898. }
  64899. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64900. case DUK_OP_EQ_RR:
  64901. case DUK_OP_EQ_CR:
  64902. case DUK_OP_EQ_RC:
  64903. case DUK_OP_EQ_CC:
  64904. DUK__EQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64905. case DUK_OP_NEQ_RR:
  64906. case DUK_OP_NEQ_CR:
  64907. case DUK_OP_NEQ_RC:
  64908. case DUK_OP_NEQ_CC:
  64909. DUK__NEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64910. case DUK_OP_SEQ_RR:
  64911. case DUK_OP_SEQ_CR:
  64912. case DUK_OP_SEQ_RC:
  64913. case DUK_OP_SEQ_CC:
  64914. DUK__SEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64915. case DUK_OP_SNEQ_RR:
  64916. case DUK_OP_SNEQ_CR:
  64917. case DUK_OP_SNEQ_RC:
  64918. case DUK_OP_SNEQ_CC:
  64919. DUK__SNEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64920. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64921. case DUK_OP_EQ_RR:
  64922. DUK__EQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64923. case DUK_OP_EQ_CR:
  64924. DUK__EQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64925. case DUK_OP_EQ_RC:
  64926. DUK__EQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  64927. case DUK_OP_EQ_CC:
  64928. DUK__EQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  64929. case DUK_OP_NEQ_RR:
  64930. DUK__NEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64931. case DUK_OP_NEQ_CR:
  64932. DUK__NEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64933. case DUK_OP_NEQ_RC:
  64934. DUK__NEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  64935. case DUK_OP_NEQ_CC:
  64936. DUK__NEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  64937. case DUK_OP_SEQ_RR:
  64938. DUK__SEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64939. case DUK_OP_SEQ_CR:
  64940. DUK__SEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64941. case DUK_OP_SEQ_RC:
  64942. DUK__SEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  64943. case DUK_OP_SEQ_CC:
  64944. DUK__SEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  64945. case DUK_OP_SNEQ_RR:
  64946. DUK__SNEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64947. case DUK_OP_SNEQ_CR:
  64948. DUK__SNEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64949. case DUK_OP_SNEQ_RC:
  64950. DUK__SNEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  64951. case DUK_OP_SNEQ_CC:
  64952. DUK__SNEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  64953. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  64954. #define DUK__COMPARE_BODY(arg1,arg2,flags) { \
  64955. duk_bool_t tmp; \
  64956. tmp = duk_js_compare_helper(thr, (arg1), (arg2), (flags)); \
  64957. DUK_ASSERT(tmp == 0 || tmp == 1); \
  64958. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  64959. }
  64960. #define DUK__GT_BODY(barg,carg) DUK__COMPARE_BODY((carg), (barg), 0)
  64961. #define DUK__GE_BODY(barg,carg) DUK__COMPARE_BODY((barg), (carg), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST | DUK_COMPARE_FLAG_NEGATE)
  64962. #define DUK__LT_BODY(barg,carg) DUK__COMPARE_BODY((barg), (carg), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST)
  64963. #define DUK__LE_BODY(barg,carg) DUK__COMPARE_BODY((carg), (barg), DUK_COMPARE_FLAG_NEGATE)
  64964. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  64965. case DUK_OP_GT_RR:
  64966. case DUK_OP_GT_CR:
  64967. case DUK_OP_GT_RC:
  64968. case DUK_OP_GT_CC:
  64969. DUK__GT_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64970. case DUK_OP_GE_RR:
  64971. case DUK_OP_GE_CR:
  64972. case DUK_OP_GE_RC:
  64973. case DUK_OP_GE_CC:
  64974. DUK__GE_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64975. case DUK_OP_LT_RR:
  64976. case DUK_OP_LT_CR:
  64977. case DUK_OP_LT_RC:
  64978. case DUK_OP_LT_CC:
  64979. DUK__LT_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64980. case DUK_OP_LE_RR:
  64981. case DUK_OP_LE_CR:
  64982. case DUK_OP_LE_RC:
  64983. case DUK_OP_LE_CC:
  64984. DUK__LE_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  64985. #else /* DUK_USE_EXEC_PREFER_SIZE */
  64986. case DUK_OP_GT_RR:
  64987. DUK__GT_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64988. case DUK_OP_GT_CR:
  64989. DUK__GT_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64990. case DUK_OP_GT_RC:
  64991. DUK__GT_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  64992. case DUK_OP_GT_CC:
  64993. DUK__GT_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  64994. case DUK_OP_GE_RR:
  64995. DUK__GE_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  64996. case DUK_OP_GE_CR:
  64997. DUK__GE_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  64998. case DUK_OP_GE_RC:
  64999. DUK__GE_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65000. case DUK_OP_GE_CC:
  65001. DUK__GE_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65002. case DUK_OP_LT_RR:
  65003. DUK__LT_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65004. case DUK_OP_LT_CR:
  65005. DUK__LT_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65006. case DUK_OP_LT_RC:
  65007. DUK__LT_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65008. case DUK_OP_LT_CC:
  65009. DUK__LT_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65010. case DUK_OP_LE_RR:
  65011. DUK__LE_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65012. case DUK_OP_LE_CR:
  65013. DUK__LE_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65014. case DUK_OP_LE_RC:
  65015. DUK__LE_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65016. case DUK_OP_LE_CC:
  65017. DUK__LE_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65018. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65019. /* No size optimized variant at present for IF. */
  65020. case DUK_OP_IFTRUE_R: {
  65021. if (duk_js_toboolean(DUK__REGP_BC(ins)) != 0) {
  65022. curr_pc++;
  65023. }
  65024. break;
  65025. }
  65026. case DUK_OP_IFTRUE_C: {
  65027. if (duk_js_toboolean(DUK__CONSTP_BC(ins)) != 0) {
  65028. curr_pc++;
  65029. }
  65030. break;
  65031. }
  65032. case DUK_OP_IFFALSE_R: {
  65033. if (duk_js_toboolean(DUK__REGP_BC(ins)) == 0) {
  65034. curr_pc++;
  65035. }
  65036. break;
  65037. }
  65038. case DUK_OP_IFFALSE_C: {
  65039. if (duk_js_toboolean(DUK__CONSTP_BC(ins)) == 0) {
  65040. curr_pc++;
  65041. }
  65042. break;
  65043. }
  65044. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65045. case DUK_OP_ADD_RR:
  65046. case DUK_OP_ADD_CR:
  65047. case DUK_OP_ADD_RC:
  65048. case DUK_OP_ADD_CC: {
  65049. /* XXX: could leave value on stack top and goto replace_top_a; */
  65050. duk__vm_arith_add(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins));
  65051. break;
  65052. }
  65053. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65054. case DUK_OP_ADD_RR: {
  65055. duk__vm_arith_add(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins));
  65056. break;
  65057. }
  65058. case DUK_OP_ADD_CR: {
  65059. duk__vm_arith_add(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins));
  65060. break;
  65061. }
  65062. case DUK_OP_ADD_RC: {
  65063. duk__vm_arith_add(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins));
  65064. break;
  65065. }
  65066. case DUK_OP_ADD_CC: {
  65067. duk__vm_arith_add(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins));
  65068. break;
  65069. }
  65070. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65071. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65072. case DUK_OP_SUB_RR:
  65073. case DUK_OP_SUB_CR:
  65074. case DUK_OP_SUB_RC:
  65075. case DUK_OP_SUB_CC:
  65076. case DUK_OP_MUL_RR:
  65077. case DUK_OP_MUL_CR:
  65078. case DUK_OP_MUL_RC:
  65079. case DUK_OP_MUL_CC:
  65080. case DUK_OP_DIV_RR:
  65081. case DUK_OP_DIV_CR:
  65082. case DUK_OP_DIV_RC:
  65083. case DUK_OP_DIV_CC:
  65084. case DUK_OP_MOD_RR:
  65085. case DUK_OP_MOD_CR:
  65086. case DUK_OP_MOD_RC:
  65087. case DUK_OP_MOD_CC:
  65088. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  65089. case DUK_OP_EXP_RR:
  65090. case DUK_OP_EXP_CR:
  65091. case DUK_OP_EXP_RC:
  65092. case DUK_OP_EXP_CC:
  65093. #endif /* DUK_USE_ES7_EXP_OPERATOR */
  65094. {
  65095. /* XXX: could leave value on stack top and goto replace_top_a; */
  65096. duk__vm_arith_binary_op(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins), op);
  65097. break;
  65098. }
  65099. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65100. case DUK_OP_SUB_RR: {
  65101. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB);
  65102. break;
  65103. }
  65104. case DUK_OP_SUB_CR: {
  65105. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB);
  65106. break;
  65107. }
  65108. case DUK_OP_SUB_RC: {
  65109. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB);
  65110. break;
  65111. }
  65112. case DUK_OP_SUB_CC: {
  65113. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB);
  65114. break;
  65115. }
  65116. case DUK_OP_MUL_RR: {
  65117. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL);
  65118. break;
  65119. }
  65120. case DUK_OP_MUL_CR: {
  65121. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL);
  65122. break;
  65123. }
  65124. case DUK_OP_MUL_RC: {
  65125. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL);
  65126. break;
  65127. }
  65128. case DUK_OP_MUL_CC: {
  65129. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL);
  65130. break;
  65131. }
  65132. case DUK_OP_DIV_RR: {
  65133. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV);
  65134. break;
  65135. }
  65136. case DUK_OP_DIV_CR: {
  65137. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV);
  65138. break;
  65139. }
  65140. case DUK_OP_DIV_RC: {
  65141. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV);
  65142. break;
  65143. }
  65144. case DUK_OP_DIV_CC: {
  65145. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV);
  65146. break;
  65147. }
  65148. case DUK_OP_MOD_RR: {
  65149. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD);
  65150. break;
  65151. }
  65152. case DUK_OP_MOD_CR: {
  65153. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD);
  65154. break;
  65155. }
  65156. case DUK_OP_MOD_RC: {
  65157. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD);
  65158. break;
  65159. }
  65160. case DUK_OP_MOD_CC: {
  65161. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD);
  65162. break;
  65163. }
  65164. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  65165. case DUK_OP_EXP_RR: {
  65166. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP);
  65167. break;
  65168. }
  65169. case DUK_OP_EXP_CR: {
  65170. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP);
  65171. break;
  65172. }
  65173. case DUK_OP_EXP_RC: {
  65174. duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP);
  65175. break;
  65176. }
  65177. case DUK_OP_EXP_CC: {
  65178. duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP);
  65179. break;
  65180. }
  65181. #endif /* DUK_USE_ES7_EXP_OPERATOR */
  65182. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65183. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65184. case DUK_OP_BAND_RR:
  65185. case DUK_OP_BAND_CR:
  65186. case DUK_OP_BAND_RC:
  65187. case DUK_OP_BAND_CC:
  65188. case DUK_OP_BOR_RR:
  65189. case DUK_OP_BOR_CR:
  65190. case DUK_OP_BOR_RC:
  65191. case DUK_OP_BOR_CC:
  65192. case DUK_OP_BXOR_RR:
  65193. case DUK_OP_BXOR_CR:
  65194. case DUK_OP_BXOR_RC:
  65195. case DUK_OP_BXOR_CC:
  65196. case DUK_OP_BASL_RR:
  65197. case DUK_OP_BASL_CR:
  65198. case DUK_OP_BASL_RC:
  65199. case DUK_OP_BASL_CC:
  65200. case DUK_OP_BLSR_RR:
  65201. case DUK_OP_BLSR_CR:
  65202. case DUK_OP_BLSR_RC:
  65203. case DUK_OP_BLSR_CC:
  65204. case DUK_OP_BASR_RR:
  65205. case DUK_OP_BASR_CR:
  65206. case DUK_OP_BASR_RC:
  65207. case DUK_OP_BASR_CC: {
  65208. /* XXX: could leave value on stack top and goto replace_top_a; */
  65209. duk__vm_bitwise_binary_op(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins), op);
  65210. break;
  65211. }
  65212. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65213. case DUK_OP_BAND_RR: {
  65214. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND);
  65215. break;
  65216. }
  65217. case DUK_OP_BAND_CR: {
  65218. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND);
  65219. break;
  65220. }
  65221. case DUK_OP_BAND_RC: {
  65222. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND);
  65223. break;
  65224. }
  65225. case DUK_OP_BAND_CC: {
  65226. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND);
  65227. break;
  65228. }
  65229. case DUK_OP_BOR_RR: {
  65230. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR);
  65231. break;
  65232. }
  65233. case DUK_OP_BOR_CR: {
  65234. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR);
  65235. break;
  65236. }
  65237. case DUK_OP_BOR_RC: {
  65238. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR);
  65239. break;
  65240. }
  65241. case DUK_OP_BOR_CC: {
  65242. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR);
  65243. break;
  65244. }
  65245. case DUK_OP_BXOR_RR: {
  65246. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR);
  65247. break;
  65248. }
  65249. case DUK_OP_BXOR_CR: {
  65250. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR);
  65251. break;
  65252. }
  65253. case DUK_OP_BXOR_RC: {
  65254. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR);
  65255. break;
  65256. }
  65257. case DUK_OP_BXOR_CC: {
  65258. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR);
  65259. break;
  65260. }
  65261. case DUK_OP_BASL_RR: {
  65262. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL);
  65263. break;
  65264. }
  65265. case DUK_OP_BASL_CR: {
  65266. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL);
  65267. break;
  65268. }
  65269. case DUK_OP_BASL_RC: {
  65270. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL);
  65271. break;
  65272. }
  65273. case DUK_OP_BASL_CC: {
  65274. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL);
  65275. break;
  65276. }
  65277. case DUK_OP_BLSR_RR: {
  65278. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR);
  65279. break;
  65280. }
  65281. case DUK_OP_BLSR_CR: {
  65282. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR);
  65283. break;
  65284. }
  65285. case DUK_OP_BLSR_RC: {
  65286. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR);
  65287. break;
  65288. }
  65289. case DUK_OP_BLSR_CC: {
  65290. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR);
  65291. break;
  65292. }
  65293. case DUK_OP_BASR_RR: {
  65294. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR);
  65295. break;
  65296. }
  65297. case DUK_OP_BASR_CR: {
  65298. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR);
  65299. break;
  65300. }
  65301. case DUK_OP_BASR_RC: {
  65302. duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR);
  65303. break;
  65304. }
  65305. case DUK_OP_BASR_CC: {
  65306. duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR);
  65307. break;
  65308. }
  65309. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65310. /* For INSTOF and IN, B is always a register. */
  65311. #define DUK__INSTOF_BODY(barg,carg) { \
  65312. duk_bool_t tmp; \
  65313. tmp = duk_js_instanceof(thr, (barg), (carg)); \
  65314. DUK_ASSERT(tmp == 0 || tmp == 1); \
  65315. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  65316. }
  65317. #define DUK__IN_BODY(barg,carg) { \
  65318. duk_bool_t tmp; \
  65319. tmp = duk_js_in(thr, (barg), (carg)); \
  65320. DUK_ASSERT(tmp == 0 || tmp == 1); \
  65321. DUK__REPLACE_BOOL_A_BREAK(tmp); \
  65322. }
  65323. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65324. case DUK_OP_INSTOF_RR:
  65325. case DUK_OP_INSTOF_CR:
  65326. case DUK_OP_INSTOF_RC:
  65327. case DUK_OP_INSTOF_CC:
  65328. DUK__INSTOF_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  65329. case DUK_OP_IN_RR:
  65330. case DUK_OP_IN_CR:
  65331. case DUK_OP_IN_RC:
  65332. case DUK_OP_IN_CC:
  65333. DUK__IN_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  65334. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65335. case DUK_OP_INSTOF_RR:
  65336. DUK__INSTOF_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65337. case DUK_OP_INSTOF_CR:
  65338. DUK__INSTOF_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65339. case DUK_OP_INSTOF_RC:
  65340. DUK__INSTOF_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65341. case DUK_OP_INSTOF_CC:
  65342. DUK__INSTOF_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65343. case DUK_OP_IN_RR:
  65344. DUK__IN_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65345. case DUK_OP_IN_CR:
  65346. DUK__IN_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65347. case DUK_OP_IN_RC:
  65348. DUK__IN_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65349. case DUK_OP_IN_CC:
  65350. DUK__IN_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65351. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65352. /* Pre/post inc/dec for register variables, important for loops. */
  65353. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65354. case DUK_OP_PREINCR:
  65355. case DUK_OP_PREDECR:
  65356. case DUK_OP_POSTINCR:
  65357. case DUK_OP_POSTDECR: {
  65358. duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), op);
  65359. break;
  65360. }
  65361. case DUK_OP_PREINCV:
  65362. case DUK_OP_PREDECV:
  65363. case DUK_OP_POSTINCV:
  65364. case DUK_OP_POSTDECV: {
  65365. duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), op, DUK__STRICT());
  65366. break;
  65367. }
  65368. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65369. case DUK_OP_PREINCR: {
  65370. duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_PREINCR);
  65371. break;
  65372. }
  65373. case DUK_OP_PREDECR: {
  65374. duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_PREDECR);
  65375. break;
  65376. }
  65377. case DUK_OP_POSTINCR: {
  65378. duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_POSTINCR);
  65379. break;
  65380. }
  65381. case DUK_OP_POSTDECR: {
  65382. duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_POSTDECR);
  65383. break;
  65384. }
  65385. case DUK_OP_PREINCV: {
  65386. duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_PREINCV, DUK__STRICT());
  65387. break;
  65388. }
  65389. case DUK_OP_PREDECV: {
  65390. duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_PREDECV, DUK__STRICT());
  65391. break;
  65392. }
  65393. case DUK_OP_POSTINCV: {
  65394. duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_POSTINCV, DUK__STRICT());
  65395. break;
  65396. }
  65397. case DUK_OP_POSTDECV: {
  65398. duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_POSTDECV, DUK__STRICT());
  65399. break;
  65400. }
  65401. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65402. /* XXX: Move to separate helper, optimize for perf/size separately. */
  65403. /* Preinc/predec for object properties. */
  65404. case DUK_OP_PREINCP_RR:
  65405. case DUK_OP_PREINCP_CR:
  65406. case DUK_OP_PREINCP_RC:
  65407. case DUK_OP_PREINCP_CC:
  65408. case DUK_OP_PREDECP_RR:
  65409. case DUK_OP_PREDECP_CR:
  65410. case DUK_OP_PREDECP_RC:
  65411. case DUK_OP_PREDECP_CC:
  65412. case DUK_OP_POSTINCP_RR:
  65413. case DUK_OP_POSTINCP_CR:
  65414. case DUK_OP_POSTINCP_RC:
  65415. case DUK_OP_POSTINCP_CC:
  65416. case DUK_OP_POSTDECP_RR:
  65417. case DUK_OP_POSTDECP_CR:
  65418. case DUK_OP_POSTDECP_RC:
  65419. case DUK_OP_POSTDECP_CC: {
  65420. duk_tval *tv_obj;
  65421. duk_tval *tv_key;
  65422. duk_tval *tv_val;
  65423. duk_bool_t rc;
  65424. duk_double_t x, y, z;
  65425. #if !defined(DUK_USE_EXEC_PREFER_SIZE)
  65426. duk_tval *tv_dst;
  65427. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65428. /* A -> target reg
  65429. * B -> object reg/const (may be const e.g. in "'foo'[1]")
  65430. * C -> key reg/const
  65431. */
  65432. /* Opcode bits 0-1 are used to distinguish reg/const variants.
  65433. * Opcode bits 2-3 are used to distinguish inc/dec variants:
  65434. * Bit 2 = inc(0)/dec(1), bit 3 = pre(0)/post(1).
  65435. */
  65436. DUK_ASSERT((DUK_OP_PREINCP_RR & 0x0c) == 0x00);
  65437. DUK_ASSERT((DUK_OP_PREDECP_RR & 0x0c) == 0x04);
  65438. DUK_ASSERT((DUK_OP_POSTINCP_RR & 0x0c) == 0x08);
  65439. DUK_ASSERT((DUK_OP_POSTDECP_RR & 0x0c) == 0x0c);
  65440. tv_obj = DUK__REGCONSTP_B(ins);
  65441. tv_key = DUK__REGCONSTP_C(ins);
  65442. rc = duk_hobject_getprop(thr, tv_obj, tv_key); /* -> [val] */
  65443. DUK_UNREF(rc); /* ignore */
  65444. tv_obj = NULL; /* invalidated */
  65445. tv_key = NULL; /* invalidated */
  65446. /* XXX: Fastint fast path would be useful here. Also fastints
  65447. * now lose their fastint status in current handling which is
  65448. * not intuitive.
  65449. */
  65450. x = duk_to_number_m1(thr);
  65451. duk_pop_unsafe(thr);
  65452. if (ins & DUK_BC_INCDECP_FLAG_DEC) {
  65453. y = x - 1.0;
  65454. } else {
  65455. y = x + 1.0;
  65456. }
  65457. duk_push_number(thr, y);
  65458. tv_val = DUK_GET_TVAL_NEGIDX(thr, -1);
  65459. DUK_ASSERT(tv_val != NULL);
  65460. tv_obj = DUK__REGCONSTP_B(ins);
  65461. tv_key = DUK__REGCONSTP_C(ins);
  65462. rc = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, DUK__STRICT());
  65463. DUK_UNREF(rc); /* ignore */
  65464. tv_obj = NULL; /* invalidated */
  65465. tv_key = NULL; /* invalidated */
  65466. duk_pop_unsafe(thr);
  65467. z = (ins & DUK_BC_INCDECP_FLAG_POST) ? x : y;
  65468. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65469. duk_push_number(thr, z);
  65470. DUK__REPLACE_TOP_A_BREAK();
  65471. #else
  65472. tv_dst = DUK__REGP_A(ins);
  65473. DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_dst, z);
  65474. break;
  65475. #endif
  65476. }
  65477. /* XXX: GETPROP where object is 'this', GETPROPT?
  65478. * Occurs relatively often in object oriented code.
  65479. */
  65480. #define DUK__GETPROP_BODY(barg,carg) { \
  65481. /* A -> target reg \
  65482. * B -> object reg/const (may be const e.g. in "'foo'[1]") \
  65483. * C -> key reg/const \
  65484. */ \
  65485. (void) duk_hobject_getprop(thr, (barg), (carg)); \
  65486. DUK__REPLACE_TOP_A_BREAK(); \
  65487. }
  65488. #define DUK__GETPROPC_BODY(barg,carg) { \
  65489. /* Same as GETPROP but callability check for property-based calls. */ \
  65490. duk_tval *tv__targ; \
  65491. (void) duk_hobject_getprop(thr, (barg), (carg)); \
  65492. DUK_GC_TORTURE(thr->heap); \
  65493. tv__targ = DUK_GET_TVAL_NEGIDX(thr, -1); \
  65494. if (DUK_UNLIKELY(!duk_is_callable_tval(thr, tv__targ))) { \
  65495. /* Here we intentionally re-evaluate the macro \
  65496. * arguments to deal with potentially changed \
  65497. * valstack base pointer! \
  65498. */ \
  65499. duk_call_setup_propcall_error(thr, tv__targ, (barg), (carg)); \
  65500. } \
  65501. DUK__REPLACE_TOP_A_BREAK(); \
  65502. }
  65503. #define DUK__PUTPROP_BODY(aarg,barg,carg) { \
  65504. /* A -> object reg \
  65505. * B -> key reg/const \
  65506. * C -> value reg/const \
  65507. * \
  65508. * Note: intentional difference to register arrangement \
  65509. * of e.g. GETPROP; 'A' must contain a register-only value. \
  65510. */ \
  65511. (void) duk_hobject_putprop(thr, (aarg), (barg), (carg), DUK__STRICT()); \
  65512. break; \
  65513. }
  65514. #define DUK__DELPROP_BODY(barg,carg) { \
  65515. /* A -> result reg \
  65516. * B -> object reg \
  65517. * C -> key reg/const \
  65518. */ \
  65519. duk_bool_t rc; \
  65520. rc = duk_hobject_delprop(thr, (barg), (carg), DUK__STRICT()); \
  65521. DUK_ASSERT(rc == 0 || rc == 1); \
  65522. DUK__REPLACE_BOOL_A_BREAK(rc); \
  65523. }
  65524. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65525. case DUK_OP_GETPROP_RR:
  65526. case DUK_OP_GETPROP_CR:
  65527. case DUK_OP_GETPROP_RC:
  65528. case DUK_OP_GETPROP_CC:
  65529. DUK__GETPROP_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  65530. #if defined(DUK_USE_VERBOSE_ERRORS)
  65531. case DUK_OP_GETPROPC_RR:
  65532. case DUK_OP_GETPROPC_CR:
  65533. case DUK_OP_GETPROPC_RC:
  65534. case DUK_OP_GETPROPC_CC:
  65535. DUK__GETPROPC_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  65536. #endif
  65537. case DUK_OP_PUTPROP_RR:
  65538. case DUK_OP_PUTPROP_CR:
  65539. case DUK_OP_PUTPROP_RC:
  65540. case DUK_OP_PUTPROP_CC:
  65541. DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins));
  65542. case DUK_OP_DELPROP_RR:
  65543. case DUK_OP_DELPROP_RC: /* B is always reg */
  65544. DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__REGCONSTP_C(ins));
  65545. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65546. case DUK_OP_GETPROP_RR:
  65547. DUK__GETPROP_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65548. case DUK_OP_GETPROP_CR:
  65549. DUK__GETPROP_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65550. case DUK_OP_GETPROP_RC:
  65551. DUK__GETPROP_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65552. case DUK_OP_GETPROP_CC:
  65553. DUK__GETPROP_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65554. #if defined(DUK_USE_VERBOSE_ERRORS)
  65555. case DUK_OP_GETPROPC_RR:
  65556. DUK__GETPROPC_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65557. case DUK_OP_GETPROPC_CR:
  65558. DUK__GETPROPC_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65559. case DUK_OP_GETPROPC_RC:
  65560. DUK__GETPROPC_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65561. case DUK_OP_GETPROPC_CC:
  65562. DUK__GETPROPC_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65563. #endif
  65564. case DUK_OP_PUTPROP_RR:
  65565. DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGP_B(ins), DUK__REGP_C(ins));
  65566. case DUK_OP_PUTPROP_CR:
  65567. DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__CONSTP_B(ins), DUK__REGP_C(ins));
  65568. case DUK_OP_PUTPROP_RC:
  65569. DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65570. case DUK_OP_PUTPROP_CC:
  65571. DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__CONSTP_B(ins), DUK__CONSTP_C(ins));
  65572. case DUK_OP_DELPROP_RR: /* B is always reg */
  65573. DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins));
  65574. case DUK_OP_DELPROP_RC:
  65575. DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins));
  65576. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65577. /* No fast path for DECLVAR now, it's quite a rare instruction. */
  65578. case DUK_OP_DECLVAR_RR:
  65579. case DUK_OP_DECLVAR_CR:
  65580. case DUK_OP_DECLVAR_RC:
  65581. case DUK_OP_DECLVAR_CC: {
  65582. duk_activation *act;
  65583. duk_small_uint_fast_t a = DUK_DEC_A(ins);
  65584. duk_tval *tv1;
  65585. duk_hstring *name;
  65586. duk_small_uint_t prop_flags;
  65587. duk_bool_t is_func_decl;
  65588. tv1 = DUK__REGCONSTP_B(ins);
  65589. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  65590. name = DUK_TVAL_GET_STRING(tv1);
  65591. DUK_ASSERT(name != NULL);
  65592. is_func_decl = ((a & DUK_BC_DECLVAR_FLAG_FUNC_DECL) != 0);
  65593. /* XXX: declvar takes an duk_tval pointer, which is awkward and
  65594. * should be reworked.
  65595. */
  65596. /* Compiler is responsible for selecting property flags (configurability,
  65597. * writability, etc).
  65598. */
  65599. prop_flags = a & DUK_PROPDESC_FLAGS_MASK;
  65600. if (is_func_decl) {
  65601. duk_push_tval(thr, DUK__REGCONSTP_C(ins));
  65602. } else {
  65603. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */
  65604. thr->valstack_top++;
  65605. }
  65606. tv1 = DUK_GET_TVAL_NEGIDX(thr, -1);
  65607. act = thr->callstack_curr;
  65608. if (duk_js_declvar_activation(thr, act, name, tv1, prop_flags, is_func_decl)) {
  65609. if (is_func_decl) {
  65610. /* Already declared, update value. */
  65611. tv1 = DUK_GET_TVAL_NEGIDX(thr, -1);
  65612. duk_js_putvar_activation(thr, act, name, tv1, DUK__STRICT());
  65613. } else {
  65614. /* Already declared but no initializer value
  65615. * (e.g. 'var xyz;'), no-op.
  65616. */
  65617. }
  65618. }
  65619. duk_pop_unsafe(thr);
  65620. break;
  65621. }
  65622. #if defined(DUK_USE_REGEXP_SUPPORT)
  65623. /* The compiler should never emit DUK_OP_REGEXP if there is no
  65624. * regexp support.
  65625. */
  65626. case DUK_OP_REGEXP_RR:
  65627. case DUK_OP_REGEXP_CR:
  65628. case DUK_OP_REGEXP_RC:
  65629. case DUK_OP_REGEXP_CC: {
  65630. /* A -> target register
  65631. * B -> bytecode (also contains flags)
  65632. * C -> escaped source
  65633. */
  65634. duk_push_tval(thr, DUK__REGCONSTP_C(ins));
  65635. duk_push_tval(thr, DUK__REGCONSTP_B(ins)); /* -> [ ... escaped_source bytecode ] */
  65636. duk_regexp_create_instance(thr); /* -> [ ... regexp_instance ] */
  65637. DUK__REPLACE_TOP_A_BREAK();
  65638. }
  65639. #endif /* DUK_USE_REGEXP_SUPPORT */
  65640. /* XXX: 'c' is unused, use whole BC, etc. */
  65641. case DUK_OP_CSVAR_RR:
  65642. case DUK_OP_CSVAR_CR:
  65643. case DUK_OP_CSVAR_RC:
  65644. case DUK_OP_CSVAR_CC: {
  65645. /* The speciality of calling through a variable binding is that the
  65646. * 'this' value may be provided by the variable lookup: E5 Section 6.b.i.
  65647. *
  65648. * The only (standard) case where the 'this' binding is non-null is when
  65649. * (1) the variable is found in an object environment record, and
  65650. * (2) that object environment record is a 'with' block.
  65651. */
  65652. duk_activation *act;
  65653. duk_uint_fast_t idx;
  65654. duk_tval *tv1;
  65655. duk_hstring *name;
  65656. /* A -> target registers (A, A + 1) for call setup
  65657. * B -> identifier name, usually constant but can be a register due to shuffling
  65658. */
  65659. tv1 = DUK__REGCONSTP_B(ins);
  65660. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  65661. name = DUK_TVAL_GET_STRING(tv1);
  65662. DUK_ASSERT(name != NULL);
  65663. act = thr->callstack_curr;
  65664. (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [... val this] */
  65665. idx = (duk_uint_fast_t) DUK_DEC_A(ins);
  65666. /* Could add direct value stack handling. */
  65667. duk_replace(thr, (duk_idx_t) (idx + 1)); /* 'this' binding */
  65668. duk_replace(thr, (duk_idx_t) idx); /* variable value (function, we hope, not checked here) */
  65669. break;
  65670. }
  65671. case DUK_OP_CLOSURE: {
  65672. duk_activation *act;
  65673. duk_hcompfunc *fun_act;
  65674. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65675. duk_hobject *fun_temp;
  65676. /* A -> target reg
  65677. * BC -> inner function index
  65678. */
  65679. DUK_DDD(DUK_DDDPRINT("CLOSURE to target register %ld, fnum %ld (count %ld)",
  65680. (long) DUK_DEC_A(ins), (long) DUK_DEC_BC(ins), (long) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, DUK__FUN())));
  65681. DUK_ASSERT_DISABLE(bc >= 0); /* unsigned */
  65682. DUK_ASSERT((duk_uint_t) bc < (duk_uint_t) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, DUK__FUN()));
  65683. act = thr->callstack_curr;
  65684. fun_act = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act);
  65685. fun_temp = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, fun_act)[bc];
  65686. DUK_ASSERT(fun_temp != NULL);
  65687. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(fun_temp));
  65688. DUK_DDD(DUK_DDDPRINT("CLOSURE: function template is: %p -> %!O",
  65689. (void *) fun_temp, (duk_heaphdr *) fun_temp));
  65690. if (act->lex_env == NULL) {
  65691. DUK_ASSERT(act->var_env == NULL);
  65692. duk_js_init_activation_environment_records_delayed(thr, act);
  65693. act = thr->callstack_curr;
  65694. }
  65695. DUK_ASSERT(act->lex_env != NULL);
  65696. DUK_ASSERT(act->var_env != NULL);
  65697. /* functions always have a NEWENV flag, i.e. they get a
  65698. * new variable declaration environment, so only lex_env
  65699. * matters here.
  65700. */
  65701. duk_js_push_closure(thr,
  65702. (duk_hcompfunc *) fun_temp,
  65703. act->var_env,
  65704. act->lex_env,
  65705. 1 /*add_auto_proto*/);
  65706. DUK__REPLACE_TOP_A_BREAK();
  65707. }
  65708. case DUK_OP_GETVAR: {
  65709. duk_activation *act;
  65710. duk_tval *tv1;
  65711. duk_hstring *name;
  65712. tv1 = DUK__CONSTP_BC(ins);
  65713. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  65714. name = DUK_TVAL_GET_STRING(tv1);
  65715. DUK_ASSERT(name != NULL);
  65716. act = thr->callstack_curr;
  65717. DUK_ASSERT(act != NULL);
  65718. (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [... val this] */
  65719. duk_pop_unsafe(thr); /* 'this' binding is not needed here */
  65720. DUK__REPLACE_TOP_A_BREAK();
  65721. }
  65722. case DUK_OP_PUTVAR: {
  65723. duk_activation *act;
  65724. duk_tval *tv1;
  65725. duk_hstring *name;
  65726. tv1 = DUK__CONSTP_BC(ins);
  65727. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  65728. name = DUK_TVAL_GET_STRING(tv1);
  65729. DUK_ASSERT(name != NULL);
  65730. /* XXX: putvar takes a duk_tval pointer, which is awkward and
  65731. * should be reworked.
  65732. */
  65733. tv1 = DUK__REGP_A(ins); /* val */
  65734. act = thr->callstack_curr;
  65735. duk_js_putvar_activation(thr, act, name, tv1, DUK__STRICT());
  65736. break;
  65737. }
  65738. case DUK_OP_DELVAR: {
  65739. duk_activation *act;
  65740. duk_tval *tv1;
  65741. duk_hstring *name;
  65742. duk_bool_t rc;
  65743. tv1 = DUK__CONSTP_BC(ins);
  65744. DUK_ASSERT(DUK_TVAL_IS_STRING(tv1));
  65745. name = DUK_TVAL_GET_STRING(tv1);
  65746. DUK_ASSERT(name != NULL);
  65747. act = thr->callstack_curr;
  65748. rc = duk_js_delvar_activation(thr, act, name);
  65749. DUK__REPLACE_BOOL_A_BREAK(rc);
  65750. }
  65751. case DUK_OP_JUMP: {
  65752. /* Note: without explicit cast to signed, MSVC will
  65753. * apparently generate a large positive jump when the
  65754. * bias-corrected value would normally be negative.
  65755. */
  65756. curr_pc += (duk_int_fast_t) DUK_DEC_ABC(ins) - (duk_int_fast_t) DUK_BC_JUMP_BIAS;
  65757. break;
  65758. }
  65759. #define DUK__RETURN_SHARED() do { \
  65760. duk_small_uint_t ret_result; \
  65761. /* duk__handle_return() is guaranteed never to throw, except \
  65762. * for potential out-of-memory situations which will then \
  65763. * propagate out of the executor longjmp handler. \
  65764. */ \
  65765. DUK_ASSERT(thr->ptr_curr_pc == NULL); \
  65766. ret_result = duk__handle_return(thr, entry_act); \
  65767. if (ret_result == DUK__RETHAND_RESTART) { \
  65768. goto restart_execution; \
  65769. } \
  65770. DUK_ASSERT(ret_result == DUK__RETHAND_FINISHED); \
  65771. return; \
  65772. } while (0)
  65773. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  65774. case DUK_OP_RETREG:
  65775. case DUK_OP_RETCONST:
  65776. case DUK_OP_RETCONSTN:
  65777. case DUK_OP_RETUNDEF: {
  65778. /* BC -> return value reg/const */
  65779. DUK__SYNC_AND_NULL_CURR_PC();
  65780. if (op == DUK_OP_RETREG) {
  65781. duk_push_tval(thr, DUK__REGP_BC(ins));
  65782. } else if (op == DUK_OP_RETUNDEF) {
  65783. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */
  65784. thr->valstack_top++;
  65785. } else {
  65786. DUK_ASSERT(op == DUK_OP_RETCONST || op == DUK_OP_RETCONSTN);
  65787. duk_push_tval(thr, DUK__CONSTP_BC(ins));
  65788. }
  65789. DUK__RETURN_SHARED();
  65790. }
  65791. #else /* DUK_USE_EXEC_PREFER_SIZE */
  65792. case DUK_OP_RETREG: {
  65793. duk_tval *tv;
  65794. DUK__SYNC_AND_NULL_CURR_PC();
  65795. tv = DUK__REGP_BC(ins);
  65796. DUK_TVAL_SET_TVAL(thr->valstack_top, tv);
  65797. DUK_TVAL_INCREF(thr, tv);
  65798. thr->valstack_top++;
  65799. DUK__RETURN_SHARED();
  65800. }
  65801. /* This will be unused without refcounting. */
  65802. case DUK_OP_RETCONST: {
  65803. duk_tval *tv;
  65804. DUK__SYNC_AND_NULL_CURR_PC();
  65805. tv = DUK__CONSTP_BC(ins);
  65806. DUK_TVAL_SET_TVAL(thr->valstack_top, tv);
  65807. DUK_TVAL_INCREF(thr, tv);
  65808. thr->valstack_top++;
  65809. DUK__RETURN_SHARED();
  65810. }
  65811. case DUK_OP_RETCONSTN: {
  65812. duk_tval *tv;
  65813. DUK__SYNC_AND_NULL_CURR_PC();
  65814. tv = DUK__CONSTP_BC(ins);
  65815. DUK_TVAL_SET_TVAL(thr->valstack_top, tv);
  65816. #if defined(DUK_USE_REFERENCE_COUNTING)
  65817. /* Without refcounting only RETCONSTN is used. */
  65818. DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv)); /* no INCREF for this constant */
  65819. #endif
  65820. thr->valstack_top++;
  65821. DUK__RETURN_SHARED();
  65822. }
  65823. case DUK_OP_RETUNDEF: {
  65824. DUK__SYNC_AND_NULL_CURR_PC();
  65825. thr->valstack_top++; /* value at valstack top is already undefined by valstack policy */
  65826. DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top));
  65827. DUK__RETURN_SHARED();
  65828. }
  65829. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  65830. case DUK_OP_LABEL: {
  65831. duk_activation *act;
  65832. duk_catcher *cat;
  65833. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65834. /* Allocate catcher and populate it (must be atomic). */
  65835. cat = duk_hthread_catcher_alloc(thr);
  65836. DUK_ASSERT(cat != NULL);
  65837. cat->flags = (duk_uint32_t) (DUK_CAT_TYPE_LABEL | (bc << DUK_CAT_LABEL_SHIFT));
  65838. cat->pc_base = (duk_instr_t *) curr_pc; /* pre-incremented, points to first jump slot */
  65839. cat->idx_base = 0; /* unused for label */
  65840. cat->h_varname = NULL;
  65841. act = thr->callstack_curr;
  65842. DUK_ASSERT(act != NULL);
  65843. cat->parent = act->cat;
  65844. act->cat = cat;
  65845. DUK_DDD(DUK_DDDPRINT("LABEL catcher: flags=0x%08lx, pc_base=%ld, "
  65846. "idx_base=%ld, h_varname=%!O, label_id=%ld",
  65847. (long) cat->flags, (long) cat->pc_base,
  65848. (long) cat->idx_base, (duk_heaphdr *) cat->h_varname, (long) DUK_CAT_GET_LABEL(cat)));
  65849. curr_pc += 2; /* skip jump slots */
  65850. break;
  65851. }
  65852. case DUK_OP_ENDLABEL: {
  65853. duk_activation *act;
  65854. #if (defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)) || defined(DUK_USE_ASSERTIONS)
  65855. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65856. #endif
  65857. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  65858. DUK_DDD(DUK_DDDPRINT("ENDLABEL %ld", (long) bc));
  65859. #endif
  65860. act = thr->callstack_curr;
  65861. DUK_ASSERT(act->cat != NULL);
  65862. DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_LABEL);
  65863. DUK_ASSERT((duk_uint_fast_t) DUK_CAT_GET_LABEL(act->cat) == bc);
  65864. duk_hthread_catcher_unwind_nolexenv_norz(thr, act);
  65865. /* no need to unwind callstack */
  65866. break;
  65867. }
  65868. case DUK_OP_BREAK: {
  65869. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65870. DUK__SYNC_AND_NULL_CURR_PC();
  65871. duk__handle_break_or_continue(thr, (duk_uint_t) bc, DUK_LJ_TYPE_BREAK);
  65872. goto restart_execution;
  65873. }
  65874. case DUK_OP_CONTINUE: {
  65875. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65876. DUK__SYNC_AND_NULL_CURR_PC();
  65877. duk__handle_break_or_continue(thr, (duk_uint_t) bc, DUK_LJ_TYPE_CONTINUE);
  65878. goto restart_execution;
  65879. }
  65880. /* XXX: move to helper, too large to be inline here */
  65881. case DUK_OP_TRYCATCH: {
  65882. duk__handle_op_trycatch(thr, ins, curr_pc);
  65883. curr_pc += 2; /* skip jump slots */
  65884. break;
  65885. }
  65886. case DUK_OP_ENDTRY: {
  65887. curr_pc = duk__handle_op_endtry(thr, ins);
  65888. break;
  65889. }
  65890. case DUK_OP_ENDCATCH: {
  65891. duk__handle_op_endcatch(thr, ins);
  65892. break;
  65893. }
  65894. case DUK_OP_ENDFIN: {
  65895. /* Sync and NULL early. */
  65896. DUK__SYNC_AND_NULL_CURR_PC();
  65897. if (duk__handle_op_endfin(thr, ins, entry_act) != 0) {
  65898. return;
  65899. }
  65900. /* Must restart because we NULLed out curr_pc. */
  65901. goto restart_execution;
  65902. }
  65903. case DUK_OP_THROW: {
  65904. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65905. /* Note: errors are augmented when they are created, not
  65906. * when they are thrown. So, don't augment here, it would
  65907. * break re-throwing for instance.
  65908. */
  65909. /* Sync so that augmentation sees up-to-date activations, NULL
  65910. * thr->ptr_curr_pc so that it's not used if side effects occur
  65911. * in augmentation or longjmp handling.
  65912. */
  65913. DUK__SYNC_AND_NULL_CURR_PC();
  65914. duk_dup(thr, (duk_idx_t) bc);
  65915. DUK_DDD(DUK_DDDPRINT("THROW ERROR (BYTECODE): %!dT (before throw augment)",
  65916. (duk_tval *) duk_get_tval(thr, -1)));
  65917. #if defined(DUK_USE_AUGMENT_ERROR_THROW)
  65918. duk_err_augment_error_throw(thr);
  65919. DUK_DDD(DUK_DDDPRINT("THROW ERROR (BYTECODE): %!dT (after throw augment)",
  65920. (duk_tval *) duk_get_tval(thr, -1)));
  65921. #endif
  65922. duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, DUK_GET_TVAL_NEGIDX(thr, -1));
  65923. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  65924. duk_err_check_debugger_integration(thr);
  65925. #endif
  65926. DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* always in executor */
  65927. duk_err_longjmp(thr);
  65928. DUK_UNREACHABLE();
  65929. break;
  65930. }
  65931. case DUK_OP_CSREG: {
  65932. /*
  65933. * Assuming a register binds to a variable declared within this
  65934. * function (a declarative binding), the 'this' for the call
  65935. * setup is always 'undefined'. E5 Section 10.2.1.1.6.
  65936. */
  65937. duk_small_uint_fast_t a = DUK_DEC_A(ins);
  65938. duk_small_uint_fast_t bc = DUK_DEC_BC(ins);
  65939. /* A -> register containing target function (not type checked here)
  65940. * BC -> target registers (BC, BC + 1) for call setup
  65941. */
  65942. #if defined(DUK_USE_PREFER_SIZE)
  65943. duk_dup(thr, (duk_idx_t) a);
  65944. duk_replace(thr, (duk_idx_t) bc);
  65945. duk_to_undefined(thr, (duk_idx_t) (bc + 1));
  65946. #else
  65947. duk_tval *tv1;
  65948. duk_tval *tv2;
  65949. duk_tval *tv3;
  65950. duk_tval tv_tmp1;
  65951. duk_tval tv_tmp2;
  65952. tv1 = DUK__REGP(bc);
  65953. tv2 = tv1 + 1;
  65954. DUK_TVAL_SET_TVAL(&tv_tmp1, tv1);
  65955. DUK_TVAL_SET_TVAL(&tv_tmp2, tv2);
  65956. tv3 = DUK__REGP(a);
  65957. DUK_TVAL_SET_TVAL(tv1, tv3);
  65958. DUK_TVAL_INCREF(thr, tv1); /* no side effects */
  65959. DUK_TVAL_SET_UNDEFINED(tv2); /* no need for incref */
  65960. DUK_TVAL_DECREF(thr, &tv_tmp1);
  65961. DUK_TVAL_DECREF(thr, &tv_tmp2);
  65962. #endif
  65963. break;
  65964. }
  65965. /* XXX: in some cases it's faster NOT to reuse the value
  65966. * stack but rather copy the arguments on top of the stack
  65967. * (mainly when the calling value stack is large and the value
  65968. * stack resize would be large).
  65969. */
  65970. case DUK_OP_CALL0:
  65971. case DUK_OP_CALL1:
  65972. case DUK_OP_CALL2:
  65973. case DUK_OP_CALL3:
  65974. case DUK_OP_CALL4:
  65975. case DUK_OP_CALL5:
  65976. case DUK_OP_CALL6:
  65977. case DUK_OP_CALL7: {
  65978. /* Opcode packs 4 flag bits: 1 for indirect, 3 map
  65979. * 1:1 to three lowest call handling flags.
  65980. *
  65981. * A -> nargs or register with nargs (indirect)
  65982. * BC -> base register for call (base -> func, base+1 -> this, base+2 -> arg1 ... base+2+N-1 -> argN)
  65983. */
  65984. duk_idx_t nargs;
  65985. duk_idx_t idx;
  65986. duk_small_uint_t call_flags;
  65987. #if !defined(DUK_USE_EXEC_FUN_LOCAL)
  65988. duk_hcompfunc *fun;
  65989. #endif
  65990. DUK_ASSERT((DUK_OP_CALL0 & 0x0fU) == 0);
  65991. DUK_ASSERT((ins & DUK_BC_CALL_FLAG_INDIRECT) == 0);
  65992. nargs = (duk_idx_t) DUK_DEC_A(ins);
  65993. call_flags = (ins & 0x07U) | DUK_CALL_FLAG_ALLOW_ECMATOECMA;
  65994. idx = (duk_idx_t) DUK_DEC_BC(ins);
  65995. if (duk__executor_handle_call(thr, idx, nargs, call_flags)) {
  65996. /* curr_pc synced by duk_handle_call_unprotected() */
  65997. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  65998. goto restart_execution;
  65999. }
  66000. DUK_ASSERT(thr->ptr_curr_pc != NULL);
  66001. /* duk_js_call.c is required to restore the stack reserve
  66002. * so we only need to reset the top.
  66003. */
  66004. #if !defined(DUK_USE_EXEC_FUN_LOCAL)
  66005. fun = DUK__FUN();
  66006. #endif
  66007. duk_set_top_unsafe(thr, (duk_idx_t) fun->nregs);
  66008. /* No need to reinit setjmp() catchpoint, as call handling
  66009. * will store and restore our state.
  66010. *
  66011. * When debugger is enabled, we need to recheck the activation
  66012. * status after returning. This is now handled by call handling
  66013. * and heap->dbg_force_restart.
  66014. */
  66015. break;
  66016. }
  66017. case DUK_OP_CALL8:
  66018. case DUK_OP_CALL9:
  66019. case DUK_OP_CALL10:
  66020. case DUK_OP_CALL11:
  66021. case DUK_OP_CALL12:
  66022. case DUK_OP_CALL13:
  66023. case DUK_OP_CALL14:
  66024. case DUK_OP_CALL15: {
  66025. /* Indirect variant. */
  66026. duk_uint_fast_t nargs;
  66027. duk_idx_t idx;
  66028. duk_small_uint_t call_flags;
  66029. #if !defined(DUK_USE_EXEC_FUN_LOCAL)
  66030. duk_hcompfunc *fun;
  66031. #endif
  66032. DUK_ASSERT((DUK_OP_CALL0 & 0x0fU) == 0);
  66033. DUK_ASSERT((ins & DUK_BC_CALL_FLAG_INDIRECT) != 0);
  66034. nargs = (duk_uint_fast_t) DUK_DEC_A(ins);
  66035. DUK__LOOKUP_INDIRECT(nargs);
  66036. call_flags = (ins & 0x07U) | DUK_CALL_FLAG_ALLOW_ECMATOECMA;
  66037. idx = (duk_idx_t) DUK_DEC_BC(ins);
  66038. if (duk__executor_handle_call(thr, idx, (duk_idx_t) nargs, call_flags)) {
  66039. DUK_ASSERT(thr->ptr_curr_pc == NULL);
  66040. goto restart_execution;
  66041. }
  66042. DUK_ASSERT(thr->ptr_curr_pc != NULL);
  66043. #if !defined(DUK_USE_EXEC_FUN_LOCAL)
  66044. fun = DUK__FUN();
  66045. #endif
  66046. duk_set_top_unsafe(thr, (duk_idx_t) fun->nregs);
  66047. break;
  66048. }
  66049. case DUK_OP_NEWOBJ: {
  66050. duk_push_object(thr);
  66051. #if defined(DUK_USE_ASSERTIONS)
  66052. {
  66053. duk_hobject *h;
  66054. h = duk_require_hobject(thr, -1);
  66055. DUK_ASSERT(DUK_HOBJECT_GET_ESIZE(h) == 0);
  66056. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(h) == 0);
  66057. DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0);
  66058. DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(h) == 0);
  66059. }
  66060. #endif
  66061. #if !defined(DUK_USE_PREFER_SIZE)
  66062. /* XXX: could do a direct props realloc, but need hash size */
  66063. duk_hobject_resize_entrypart(thr, duk_known_hobject(thr, -1), DUK_DEC_A(ins));
  66064. #endif
  66065. DUK__REPLACE_TOP_BC_BREAK();
  66066. }
  66067. case DUK_OP_NEWARR: {
  66068. duk_push_array(thr);
  66069. #if defined(DUK_USE_ASSERTIONS)
  66070. {
  66071. duk_hobject *h;
  66072. h = duk_require_hobject(thr, -1);
  66073. DUK_ASSERT(DUK_HOBJECT_GET_ESIZE(h) == 0);
  66074. DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(h) == 0);
  66075. DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0);
  66076. DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(h) == 0);
  66077. DUK_ASSERT(DUK_HOBJECT_HAS_ARRAY_PART(h));
  66078. }
  66079. #endif
  66080. #if !defined(DUK_USE_PREFER_SIZE)
  66081. duk_hobject_realloc_props(thr,
  66082. duk_known_hobject(thr, -1),
  66083. 0 /*new_e_size*/,
  66084. DUK_DEC_A(ins) /*new_a_size*/,
  66085. 0 /*new_h_size*/,
  66086. 0 /*abandon_array*/);
  66087. #if 0
  66088. duk_hobject_resize_arraypart(thr, duk_known_hobject(thr, -1), DUK_DEC_A(ins));
  66089. #endif
  66090. #endif
  66091. DUK__REPLACE_TOP_BC_BREAK();
  66092. }
  66093. case DUK_OP_MPUTOBJ:
  66094. case DUK_OP_MPUTOBJI: {
  66095. duk_idx_t obj_idx;
  66096. duk_uint_fast_t idx, idx_end;
  66097. duk_small_uint_fast_t count;
  66098. /* A -> register of target object
  66099. * B -> first register of key/value pair list
  66100. * or register containing first register number if indirect
  66101. * C -> number of key/value pairs * 2
  66102. * (= number of value stack indices used starting from 'B')
  66103. */
  66104. obj_idx = DUK_DEC_A(ins);
  66105. DUK_ASSERT(duk_is_object(thr, obj_idx));
  66106. idx = (duk_uint_fast_t) DUK_DEC_B(ins);
  66107. if (DUK_DEC_OP(ins) == DUK_OP_MPUTOBJI) {
  66108. DUK__LOOKUP_INDIRECT(idx);
  66109. }
  66110. count = (duk_small_uint_fast_t) DUK_DEC_C(ins);
  66111. DUK_ASSERT(count > 0); /* compiler guarantees */
  66112. idx_end = idx + count;
  66113. #if defined(DUK_USE_EXEC_INDIRECT_BOUND_CHECK)
  66114. if (DUK_UNLIKELY(idx_end > (duk_uint_fast_t) duk_get_top(thr))) {
  66115. /* XXX: use duk_is_valid_index() instead? */
  66116. /* XXX: improve check; check against nregs, not against top */
  66117. DUK__INTERNAL_ERROR("MPUTOBJ out of bounds");
  66118. }
  66119. #endif
  66120. /* Use 'force' flag to duk_def_prop() to ensure that any
  66121. * inherited properties don't prevent the operation.
  66122. * With ES2015 duplicate properties are allowed, so that we
  66123. * must overwrite any previous data or accessor property.
  66124. *
  66125. * With ES2015 computed property names the literal keys
  66126. * may be arbitrary values and need to be ToPropertyKey()
  66127. * coerced at runtime.
  66128. */
  66129. do {
  66130. /* XXX: faster initialization (direct access or better primitives) */
  66131. duk_dup(thr, (duk_idx_t) idx);
  66132. duk_dup(thr, (duk_idx_t) (idx + 1));
  66133. duk_def_prop(thr, obj_idx, DUK_DEFPROP_HAVE_VALUE |
  66134. DUK_DEFPROP_FORCE |
  66135. DUK_DEFPROP_SET_WRITABLE |
  66136. DUK_DEFPROP_SET_ENUMERABLE |
  66137. DUK_DEFPROP_SET_CONFIGURABLE);
  66138. idx += 2;
  66139. } while (idx < idx_end);
  66140. break;
  66141. }
  66142. case DUK_OP_INITSET:
  66143. case DUK_OP_INITGET: {
  66144. duk__handle_op_initset_initget(thr, ins);
  66145. break;
  66146. }
  66147. case DUK_OP_MPUTARR:
  66148. case DUK_OP_MPUTARRI: {
  66149. duk_idx_t obj_idx;
  66150. duk_uint_fast_t idx, idx_end;
  66151. duk_small_uint_fast_t count;
  66152. duk_tval *tv1;
  66153. duk_uint32_t arr_idx;
  66154. /* A -> register of target object
  66155. * B -> first register of value data (start_index, value1, value2, ..., valueN)
  66156. * or register containing first register number if indirect
  66157. * C -> number of key/value pairs (N)
  66158. */
  66159. obj_idx = DUK_DEC_A(ins);
  66160. DUK_ASSERT(duk_is_object(thr, obj_idx));
  66161. idx = (duk_uint_fast_t) DUK_DEC_B(ins);
  66162. if (DUK_DEC_OP(ins) == DUK_OP_MPUTARRI) {
  66163. DUK__LOOKUP_INDIRECT(idx);
  66164. }
  66165. count = (duk_small_uint_fast_t) DUK_DEC_C(ins);
  66166. DUK_ASSERT(count > 0 + 1); /* compiler guarantees */
  66167. idx_end = idx + count;
  66168. #if defined(DUK_USE_EXEC_INDIRECT_BOUND_CHECK)
  66169. if (idx_end > (duk_uint_fast_t) duk_get_top(thr)) {
  66170. /* XXX: use duk_is_valid_index() instead? */
  66171. /* XXX: improve check; check against nregs, not against top */
  66172. DUK__INTERNAL_ERROR("MPUTARR out of bounds");
  66173. }
  66174. #endif
  66175. tv1 = DUK__REGP(idx);
  66176. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1));
  66177. #if defined(DUK_USE_FASTINT)
  66178. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1));
  66179. arr_idx = (duk_uint32_t) DUK_TVAL_GET_FASTINT_U32(tv1);
  66180. #else
  66181. arr_idx = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv1);
  66182. #endif
  66183. idx++;
  66184. do {
  66185. /* duk_xdef_prop() will define an own property without any array
  66186. * special behaviors. We'll need to set the array length explicitly
  66187. * in the end. For arrays with elisions, the compiler will emit an
  66188. * explicit SETALEN which will update the length.
  66189. */
  66190. /* XXX: because we're dealing with 'own' properties of a fresh array,
  66191. * the array initializer should just ensure that the array has a large
  66192. * enough array part and write the values directly into array part,
  66193. * and finally set 'length' manually in the end (as already happens now).
  66194. */
  66195. duk_dup(thr, (duk_idx_t) idx);
  66196. duk_xdef_prop_index_wec(thr, obj_idx, arr_idx);
  66197. idx++;
  66198. arr_idx++;
  66199. } while (idx < idx_end);
  66200. /* XXX: E5.1 Section 11.1.4 coerces the final length through
  66201. * ToUint32() which is odd but happens now as a side effect of
  66202. * 'arr_idx' type.
  66203. */
  66204. duk_set_length(thr, obj_idx, (duk_size_t) (duk_uarridx_t) arr_idx);
  66205. break;
  66206. }
  66207. case DUK_OP_SETALEN: {
  66208. duk_tval *tv1;
  66209. duk_hobject *h;
  66210. duk_uint32_t len;
  66211. tv1 = DUK__REGP_A(ins);
  66212. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv1));
  66213. h = DUK_TVAL_GET_OBJECT(tv1);
  66214. DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(h));
  66215. tv1 = DUK__REGP_BC(ins);
  66216. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1));
  66217. #if defined(DUK_USE_FASTINT)
  66218. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1));
  66219. len = (duk_uint32_t) DUK_TVAL_GET_FASTINT_U32(tv1);
  66220. #else
  66221. len = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv1);
  66222. #endif
  66223. ((duk_harray *) h)->length = len;
  66224. break;
  66225. }
  66226. case DUK_OP_INITENUM: {
  66227. duk__handle_op_initenum(thr, ins);
  66228. break;
  66229. }
  66230. case DUK_OP_NEXTENUM: {
  66231. curr_pc += duk__handle_op_nextenum(thr, ins);
  66232. break;
  66233. }
  66234. case DUK_OP_INVLHS: {
  66235. DUK_ERROR_REFERENCE(thr, DUK_STR_INVALID_LVALUE);
  66236. DUK_UNREACHABLE();
  66237. break;
  66238. }
  66239. case DUK_OP_DEBUGGER: {
  66240. /* Opcode only emitted by compiler when debugger
  66241. * support is enabled. Ignore it silently without
  66242. * debugger support, in case it has been loaded
  66243. * from precompiled bytecode.
  66244. */
  66245. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  66246. if (duk_debug_is_attached(thr->heap)) {
  66247. DUK_D(DUK_DPRINT("DEBUGGER statement encountered, halt execution"));
  66248. DUK__SYNC_AND_NULL_CURR_PC();
  66249. duk_debug_halt_execution(thr, 1 /*use_prev_pc*/);
  66250. DUK_D(DUK_DPRINT("DEBUGGER statement finished, resume execution"));
  66251. goto restart_execution;
  66252. } else {
  66253. DUK_D(DUK_DPRINT("DEBUGGER statement ignored, debugger not attached"));
  66254. }
  66255. #else
  66256. DUK_D(DUK_DPRINT("DEBUGGER statement ignored, no debugger support"));
  66257. #endif
  66258. break;
  66259. }
  66260. case DUK_OP_NOP: {
  66261. /* Nop, ignored, but ABC fields may carry a value e.g.
  66262. * for indirect opcode handling.
  66263. */
  66264. break;
  66265. }
  66266. case DUK_OP_INVALID: {
  66267. DUK_ERROR_FMT1(thr, DUK_ERR_ERROR, "INVALID opcode (%ld)", (long) DUK_DEC_ABC(ins));
  66268. break;
  66269. }
  66270. #if defined(DUK_USE_ES6)
  66271. case DUK_OP_NEWTARGET: {
  66272. /* https://www.ecma-international.org/ecma-262/6.0/#sec-meta-properties-runtime-semantics-evaluation
  66273. * https://www.ecma-international.org/ecma-262/6.0/#sec-getnewtarget
  66274. *
  66275. * No newTarget support now, so as a first approximation
  66276. * use the resolved (non-bound) target function.
  66277. */
  66278. /* XXX: C API: push_new_target()? */
  66279. duk_activation *act;
  66280. act = thr->callstack_curr;
  66281. DUK_ASSERT(act != NULL);
  66282. /* Check CONSTRUCT flag from current function, or if running
  66283. * direct eval, from a non-direct-eval parent (with possibly
  66284. * more than one nested direct eval). An alternative to this
  66285. * would be to store [[NewTarget]] as a hidden symbol of the
  66286. * lexical scope, and then just look up that variable.
  66287. */
  66288. for (;;) {
  66289. if (act == NULL) {
  66290. duk_push_undefined(thr);
  66291. break;
  66292. }
  66293. if (act->flags & DUK_ACT_FLAG_CONSTRUCT) {
  66294. duk_push_tval(thr, &act->tv_func);
  66295. break;
  66296. } else if (act->flags & DUK_ACT_FLAG_DIRECT_EVAL) {
  66297. act = act->parent;
  66298. } else {
  66299. duk_push_undefined(thr);
  66300. break;
  66301. }
  66302. }
  66303. DUK__REPLACE_TOP_BC_BREAK();
  66304. }
  66305. #endif /* DUK_USE_ES6 */
  66306. #if !defined(DUK_USE_EXEC_PREFER_SIZE)
  66307. #if !defined(DUK_USE_ES7_EXP_OPERATOR)
  66308. case DUK_OP_EXP_RR:
  66309. case DUK_OP_EXP_CR:
  66310. case DUK_OP_EXP_RC:
  66311. case DUK_OP_EXP_CC:
  66312. #endif
  66313. #if !defined(DUK_USE_ES6)
  66314. case DUK_OP_NEWTARGET:
  66315. #endif
  66316. #if !defined(DUK_USE_VERBOSE_ERRORS)
  66317. case DUK_OP_GETPROPC_RR:
  66318. case DUK_OP_GETPROPC_CR:
  66319. case DUK_OP_GETPROPC_RC:
  66320. case DUK_OP_GETPROPC_CC:
  66321. #endif
  66322. case DUK_OP_UNUSED207:
  66323. case DUK_OP_UNUSED212:
  66324. case DUK_OP_UNUSED213:
  66325. case DUK_OP_UNUSED214:
  66326. case DUK_OP_UNUSED215:
  66327. case DUK_OP_UNUSED216:
  66328. case DUK_OP_UNUSED217:
  66329. case DUK_OP_UNUSED218:
  66330. case DUK_OP_UNUSED219:
  66331. case DUK_OP_UNUSED220:
  66332. case DUK_OP_UNUSED221:
  66333. case DUK_OP_UNUSED222:
  66334. case DUK_OP_UNUSED223:
  66335. case DUK_OP_UNUSED224:
  66336. case DUK_OP_UNUSED225:
  66337. case DUK_OP_UNUSED226:
  66338. case DUK_OP_UNUSED227:
  66339. case DUK_OP_UNUSED228:
  66340. case DUK_OP_UNUSED229:
  66341. case DUK_OP_UNUSED230:
  66342. case DUK_OP_UNUSED231:
  66343. case DUK_OP_UNUSED232:
  66344. case DUK_OP_UNUSED233:
  66345. case DUK_OP_UNUSED234:
  66346. case DUK_OP_UNUSED235:
  66347. case DUK_OP_UNUSED236:
  66348. case DUK_OP_UNUSED237:
  66349. case DUK_OP_UNUSED238:
  66350. case DUK_OP_UNUSED239:
  66351. case DUK_OP_UNUSED240:
  66352. case DUK_OP_UNUSED241:
  66353. case DUK_OP_UNUSED242:
  66354. case DUK_OP_UNUSED243:
  66355. case DUK_OP_UNUSED244:
  66356. case DUK_OP_UNUSED245:
  66357. case DUK_OP_UNUSED246:
  66358. case DUK_OP_UNUSED247:
  66359. case DUK_OP_UNUSED248:
  66360. case DUK_OP_UNUSED249:
  66361. case DUK_OP_UNUSED250:
  66362. case DUK_OP_UNUSED251:
  66363. case DUK_OP_UNUSED252:
  66364. case DUK_OP_UNUSED253:
  66365. case DUK_OP_UNUSED254:
  66366. case DUK_OP_UNUSED255:
  66367. /* Force all case clauses to map to an actual handler
  66368. * so that the compiler can emit a jump without a bounds
  66369. * check: the switch argument is a duk_uint8_t so that
  66370. * the compiler may be able to figure it out. This is
  66371. * a small detail and obviously compiler dependent.
  66372. */
  66373. /* default: clause omitted on purpose */
  66374. #else /* DUK_USE_EXEC_PREFER_SIZE */
  66375. default:
  66376. #endif /* DUK_USE_EXEC_PREFER_SIZE */
  66377. {
  66378. /* Default case catches invalid/unsupported opcodes. */
  66379. DUK_D(DUK_DPRINT("invalid opcode: %ld - %!I", (long) op, ins));
  66380. DUK__INTERNAL_ERROR("invalid opcode");
  66381. break;
  66382. }
  66383. } /* end switch */
  66384. continue;
  66385. /* Some shared exit paths for opcode handling below. These
  66386. * are mostly useful to reduce code footprint when multiple
  66387. * opcodes have a similar epilogue (like replacing stack top
  66388. * with index 'a').
  66389. */
  66390. #if defined(DUK_USE_EXEC_PREFER_SIZE)
  66391. replace_top_a:
  66392. DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_A(ins));
  66393. continue;
  66394. replace_top_bc:
  66395. DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_BC(ins));
  66396. continue;
  66397. #endif
  66398. }
  66399. DUK_UNREACHABLE();
  66400. #if !defined(DUK_USE_VERBOSE_EXECUTOR_ERRORS)
  66401. internal_error:
  66402. DUK_ERROR_INTERNAL(thr);
  66403. #endif
  66404. }
  66405. /* automatic undefs */
  66406. #undef DUK__BYTEOFF_A
  66407. #undef DUK__BYTEOFF_B
  66408. #undef DUK__BYTEOFF_BC
  66409. #undef DUK__BYTEOFF_C
  66410. #undef DUK__COMPARE_BODY
  66411. #undef DUK__CONST
  66412. #undef DUK__CONSTP
  66413. #undef DUK__CONSTP_A
  66414. #undef DUK__CONSTP_B
  66415. #undef DUK__CONSTP_BC
  66416. #undef DUK__CONSTP_C
  66417. #undef DUK__DELPROP_BODY
  66418. #undef DUK__EQ_BODY
  66419. #undef DUK__FUN
  66420. #undef DUK__GETPROPC_BODY
  66421. #undef DUK__GETPROP_BODY
  66422. #undef DUK__GE_BODY
  66423. #undef DUK__GT_BODY
  66424. #undef DUK__INLINE_PERF
  66425. #undef DUK__INSTOF_BODY
  66426. #undef DUK__INTERNAL_ERROR
  66427. #undef DUK__INT_NOACTION
  66428. #undef DUK__INT_RESTART
  66429. #undef DUK__IN_BODY
  66430. #undef DUK__LE_BODY
  66431. #undef DUK__LONGJMP_RESTART
  66432. #undef DUK__LONGJMP_RETHROW
  66433. #undef DUK__LOOKUP_INDIRECT
  66434. #undef DUK__LT_BODY
  66435. #undef DUK__MASK_A
  66436. #undef DUK__MASK_B
  66437. #undef DUK__MASK_BC
  66438. #undef DUK__MASK_C
  66439. #undef DUK__NEQ_BODY
  66440. #undef DUK__NOINLINE_PERF
  66441. #undef DUK__PUTPROP_BODY
  66442. #undef DUK__RCBIT_B
  66443. #undef DUK__RCBIT_C
  66444. #undef DUK__REG
  66445. #undef DUK__REGCONSTP_B
  66446. #undef DUK__REGCONSTP_C
  66447. #undef DUK__REGP
  66448. #undef DUK__REGP_A
  66449. #undef DUK__REGP_B
  66450. #undef DUK__REGP_BC
  66451. #undef DUK__REGP_C
  66452. #undef DUK__REPLACE_BOOL_A_BREAK
  66453. #undef DUK__REPLACE_TOP_A_BREAK
  66454. #undef DUK__REPLACE_TOP_BC_BREAK
  66455. #undef DUK__REPLACE_TO_TVPTR
  66456. #undef DUK__RETHAND_FINISHED
  66457. #undef DUK__RETHAND_RESTART
  66458. #undef DUK__RETURN_SHARED
  66459. #undef DUK__SEQ_BODY
  66460. #undef DUK__SHIFT_A
  66461. #undef DUK__SHIFT_B
  66462. #undef DUK__SHIFT_BC
  66463. #undef DUK__SHIFT_C
  66464. #undef DUK__SNEQ_BODY
  66465. #undef DUK__STRICT
  66466. #undef DUK__SYNC_AND_NULL_CURR_PC
  66467. #undef DUK__SYNC_CURR_PC
  66468. #undef DUK__TVAL_SHIFT
  66469. #line 1 "duk_js_ops.c"
  66470. /*
  66471. * Ecmascript specification algorithm and conversion helpers.
  66472. *
  66473. * These helpers encapsulate the primitive Ecmascript operation semantics,
  66474. * and are used by the bytecode executor and the API (among other places).
  66475. * Some primitives are only implemented as part of the API and have no
  66476. * "internal" helper. This is the case when an internal helper would not
  66477. * really be useful; e.g. the operation is rare, uses value stack heavily,
  66478. * etc.
  66479. *
  66480. * The operation arguments depend on what is required to implement
  66481. * the operation:
  66482. *
  66483. * - If an operation is simple and stateless, and has no side
  66484. * effects, it won't take an duk_hthread argument and its
  66485. * arguments may be duk_tval pointers (which are safe as long
  66486. * as no side effects take place).
  66487. *
  66488. * - If complex coercions are required (e.g. a "ToNumber" coercion)
  66489. * or errors may be thrown, the operation takes an duk_hthread
  66490. * argument. This also implies that the operation may have
  66491. * arbitrary side effects, invalidating any duk_tval pointers.
  66492. *
  66493. * - For operations with potential side effects, arguments can be
  66494. * taken in several ways:
  66495. *
  66496. * a) as duk_tval pointers, which makes sense if the "common case"
  66497. * can be resolved without side effects (e.g. coercion); the
  66498. * arguments are pushed to the valstack for coercion if
  66499. * necessary
  66500. *
  66501. * b) as duk_tval values
  66502. *
  66503. * c) implicitly on value stack top
  66504. *
  66505. * d) as indices to the value stack
  66506. *
  66507. * Future work:
  66508. *
  66509. * - Argument styles may not be the most sensible in every case now.
  66510. *
  66511. * - In-place coercions might be useful for several operations, if
  66512. * in-place coercion is OK for the bytecode executor and the API.
  66513. */
  66514. /* #include duk_internal.h -> already included */
  66515. /*
  66516. * ToPrimitive() (E5 Section 9.1)
  66517. *
  66518. * ==> implemented in the API.
  66519. */
  66520. /*
  66521. * ToBoolean() (E5 Section 9.2)
  66522. */
  66523. DUK_INTERNAL duk_bool_t duk_js_toboolean(duk_tval *tv) {
  66524. switch (DUK_TVAL_GET_TAG(tv)) {
  66525. case DUK_TAG_UNDEFINED:
  66526. case DUK_TAG_NULL:
  66527. return 0;
  66528. case DUK_TAG_BOOLEAN:
  66529. DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv) == 0 || DUK_TVAL_GET_BOOLEAN(tv) == 1);
  66530. return DUK_TVAL_GET_BOOLEAN(tv);
  66531. case DUK_TAG_STRING: {
  66532. /* Symbols ToBoolean() coerce to true, regardless of their
  66533. * description. This happens with no explicit check because
  66534. * of the symbol representation byte prefix.
  66535. */
  66536. duk_hstring *h = DUK_TVAL_GET_STRING(tv);
  66537. DUK_ASSERT(h != NULL);
  66538. return (DUK_HSTRING_GET_BYTELEN(h) > 0 ? 1 : 0);
  66539. }
  66540. case DUK_TAG_OBJECT: {
  66541. return 1;
  66542. }
  66543. case DUK_TAG_BUFFER: {
  66544. /* Mimic Uint8Array semantics: objects coerce true, regardless
  66545. * of buffer length (zero or not) or context.
  66546. */
  66547. return 1;
  66548. }
  66549. case DUK_TAG_POINTER: {
  66550. void *p = DUK_TVAL_GET_POINTER(tv);
  66551. return (p != NULL ? 1 : 0);
  66552. }
  66553. case DUK_TAG_LIGHTFUNC: {
  66554. return 1;
  66555. }
  66556. #if defined(DUK_USE_FASTINT)
  66557. case DUK_TAG_FASTINT:
  66558. if (DUK_TVAL_GET_FASTINT(tv) != 0) {
  66559. return 1;
  66560. } else {
  66561. return 0;
  66562. }
  66563. #endif
  66564. default: {
  66565. /* number */
  66566. duk_double_t d;
  66567. #if defined(DUK_USE_PREFER_SIZE)
  66568. int c;
  66569. #endif
  66570. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  66571. DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv));
  66572. d = DUK_TVAL_GET_DOUBLE(tv);
  66573. #if defined(DUK_USE_PREFER_SIZE)
  66574. c = DUK_FPCLASSIFY((double) d);
  66575. if (c == DUK_FP_ZERO || c == DUK_FP_NAN) {
  66576. return 0;
  66577. } else {
  66578. return 1;
  66579. }
  66580. #else
  66581. DUK_ASSERT(duk_double_is_nan_or_zero(d) == 0 || duk_double_is_nan_or_zero(d) == 1);
  66582. return duk_double_is_nan_or_zero(d) ^ 1;
  66583. #endif
  66584. }
  66585. }
  66586. DUK_UNREACHABLE();
  66587. }
  66588. /*
  66589. * ToNumber() (E5 Section 9.3)
  66590. *
  66591. * Value to convert must be on stack top, and is popped before exit.
  66592. *
  66593. * See: http://www.cs.indiana.edu/~burger/FP-Printing-PLDI96.pdf
  66594. * http://www.cs.indiana.edu/~burger/fp/index.html
  66595. *
  66596. * Notes on the conversion:
  66597. *
  66598. * - There are specific requirements on the accuracy of the conversion
  66599. * through a "Mathematical Value" (MV), so this conversion is not
  66600. * trivial.
  66601. *
  66602. * - Quick rejects (e.g. based on first char) are difficult because
  66603. * the grammar allows leading and trailing white space.
  66604. *
  66605. * - Quick reject based on string length is difficult even after
  66606. * accounting for white space; there may be arbitrarily many
  66607. * decimal digits.
  66608. *
  66609. * - Standard grammar allows decimal values ("123"), hex values
  66610. * ("0x123") and infinities
  66611. *
  66612. * - Unlike source code literals, ToNumber() coerces empty strings
  66613. * and strings with only whitespace to zero (not NaN).
  66614. */
  66615. /* E5 Section 9.3.1 */
  66616. DUK_LOCAL duk_double_t duk__tonumber_string_raw(duk_hthread *thr) {
  66617. duk_small_uint_t s2n_flags;
  66618. duk_double_t d;
  66619. DUK_ASSERT(duk_is_string(thr, -1));
  66620. /* Quite lenient, e.g. allow empty as zero, but don't allow trailing
  66621. * garbage.
  66622. */
  66623. s2n_flags = DUK_S2N_FLAG_TRIM_WHITE |
  66624. DUK_S2N_FLAG_ALLOW_EXP |
  66625. DUK_S2N_FLAG_ALLOW_PLUS |
  66626. DUK_S2N_FLAG_ALLOW_MINUS |
  66627. DUK_S2N_FLAG_ALLOW_INF |
  66628. DUK_S2N_FLAG_ALLOW_FRAC |
  66629. DUK_S2N_FLAG_ALLOW_NAKED_FRAC |
  66630. DUK_S2N_FLAG_ALLOW_EMPTY_FRAC |
  66631. DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO |
  66632. DUK_S2N_FLAG_ALLOW_LEADING_ZERO |
  66633. DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT |
  66634. DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT |
  66635. DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT;
  66636. duk_numconv_parse(thr, 10 /*radix*/, s2n_flags);
  66637. #if defined(DUK_USE_PREFER_SIZE)
  66638. d = duk_get_number(thr, -1);
  66639. duk_pop_unsafe(thr);
  66640. #else
  66641. thr->valstack_top--;
  66642. DUK_ASSERT(DUK_TVAL_IS_NUMBER(thr->valstack_top));
  66643. DUK_ASSERT(DUK_TVAL_IS_DOUBLE(thr->valstack_top)); /* no fastint conversion in numconv now */
  66644. DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(thr->valstack_top));
  66645. d = DUK_TVAL_GET_DOUBLE(thr->valstack_top); /* assumes not a fastint */
  66646. DUK_TVAL_SET_UNDEFINED(thr->valstack_top);
  66647. #endif
  66648. return d;
  66649. }
  66650. DUK_INTERNAL duk_double_t duk_js_tonumber(duk_hthread *thr, duk_tval *tv) {
  66651. DUK_ASSERT(thr != NULL);
  66652. DUK_ASSERT(tv != NULL);
  66653. switch (DUK_TVAL_GET_TAG(tv)) {
  66654. case DUK_TAG_UNDEFINED: {
  66655. /* return a specific NaN (although not strictly necessary) */
  66656. duk_double_union du;
  66657. DUK_DBLUNION_SET_NAN(&du);
  66658. DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du));
  66659. return du.d;
  66660. }
  66661. case DUK_TAG_NULL: {
  66662. /* +0.0 */
  66663. return 0.0;
  66664. }
  66665. case DUK_TAG_BOOLEAN: {
  66666. if (DUK_TVAL_IS_BOOLEAN_TRUE(tv)) {
  66667. return 1.0;
  66668. }
  66669. return 0.0;
  66670. }
  66671. case DUK_TAG_STRING: {
  66672. /* For Symbols ToNumber() is always a TypeError. */
  66673. duk_hstring *h = DUK_TVAL_GET_STRING(tv);
  66674. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) {
  66675. DUK_ERROR_TYPE(thr, DUK_STR_CANNOT_NUMBER_COERCE_SYMBOL);
  66676. }
  66677. duk_push_hstring(thr, h);
  66678. return duk__tonumber_string_raw(thr);
  66679. }
  66680. case DUK_TAG_BUFFER: /* plain buffer treated like object */
  66681. case DUK_TAG_OBJECT: {
  66682. duk_double_t d;
  66683. duk_push_tval(thr, tv);
  66684. duk_to_primitive(thr, -1, DUK_HINT_NUMBER); /* 'tv' becomes invalid */
  66685. /* recursive call for a primitive value (guaranteed not to cause second
  66686. * recursion).
  66687. */
  66688. DUK_ASSERT(duk_get_tval(thr, -1) != NULL);
  66689. d = duk_js_tonumber(thr, duk_get_tval(thr, -1));
  66690. duk_pop_unsafe(thr);
  66691. return d;
  66692. }
  66693. case DUK_TAG_POINTER: {
  66694. /* Coerce like boolean */
  66695. void *p = DUK_TVAL_GET_POINTER(tv);
  66696. return (p != NULL ? 1.0 : 0.0);
  66697. }
  66698. case DUK_TAG_LIGHTFUNC: {
  66699. /* +(function(){}) -> NaN */
  66700. return DUK_DOUBLE_NAN;
  66701. }
  66702. #if defined(DUK_USE_FASTINT)
  66703. case DUK_TAG_FASTINT:
  66704. return (duk_double_t) DUK_TVAL_GET_FASTINT(tv);
  66705. #endif
  66706. default: {
  66707. /* number */
  66708. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv));
  66709. DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv));
  66710. return DUK_TVAL_GET_DOUBLE(tv);
  66711. }
  66712. }
  66713. DUK_UNREACHABLE();
  66714. }
  66715. /*
  66716. * ToInteger() (E5 Section 9.4)
  66717. */
  66718. /* exposed, used by e.g. duk_bi_date.c */
  66719. DUK_INTERNAL duk_double_t duk_js_tointeger_number(duk_double_t x) {
  66720. #if defined(DUK_USE_PREFER_SIZE)
  66721. duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x);
  66722. if (DUK_UNLIKELY(c == DUK_FP_NAN)) {
  66723. return 0.0;
  66724. } else if (DUK_UNLIKELY(c == DUK_FP_INFINITE)) {
  66725. return x;
  66726. } else {
  66727. /* Finite, including neg/pos zero. Neg zero sign must be
  66728. * preserved.
  66729. */
  66730. return duk_double_trunc_towards_zero(x);
  66731. }
  66732. #else /* DUK_USE_PREFER_SIZE */
  66733. /* NaN and Infinity have the same exponent so it's a cheap
  66734. * initial check for the rare path.
  66735. */
  66736. if (DUK_UNLIKELY(duk_double_is_nan_or_inf(x) != 0U)) {
  66737. if (duk_double_is_nan(x)) {
  66738. return 0.0;
  66739. } else {
  66740. return x;
  66741. }
  66742. } else {
  66743. return duk_double_trunc_towards_zero(x);
  66744. }
  66745. #endif /* DUK_USE_PREFER_SIZE */
  66746. }
  66747. DUK_INTERNAL duk_double_t duk_js_tointeger(duk_hthread *thr, duk_tval *tv) {
  66748. /* XXX: fastint */
  66749. duk_double_t d = duk_js_tonumber(thr, tv); /* invalidates tv */
  66750. return duk_js_tointeger_number(d);
  66751. }
  66752. /*
  66753. * ToInt32(), ToUint32(), ToUint16() (E5 Sections 9.5, 9.6, 9.7)
  66754. */
  66755. /* combined algorithm matching E5 Sections 9.5 and 9.6 */
  66756. DUK_LOCAL duk_double_t duk__toint32_touint32_helper(duk_double_t x, duk_bool_t is_toint32) {
  66757. #if defined (DUK_USE_PREFER_SIZE)
  66758. duk_small_int_t c;
  66759. #endif
  66760. #if defined (DUK_USE_PREFER_SIZE)
  66761. c = (duk_small_int_t) DUK_FPCLASSIFY(x);
  66762. if (c == DUK_FP_NAN || c == DUK_FP_ZERO || c == DUK_FP_INFINITE) {
  66763. return 0.0;
  66764. }
  66765. #else
  66766. if (duk_double_is_nan_zero_inf(x)) {
  66767. return 0.0;
  66768. }
  66769. #endif
  66770. /* x = sign(x) * floor(abs(x)), i.e. truncate towards zero, keep sign */
  66771. x = duk_double_trunc_towards_zero(x);
  66772. /* NOTE: fmod(x) result sign is same as sign of x, which
  66773. * differs from what Javascript wants (see Section 9.6).
  66774. */
  66775. x = DUK_FMOD(x, DUK_DOUBLE_2TO32); /* -> x in ]-2**32, 2**32[ */
  66776. if (x < 0.0) {
  66777. x += DUK_DOUBLE_2TO32;
  66778. }
  66779. DUK_ASSERT(x >= 0 && x < DUK_DOUBLE_2TO32); /* -> x in [0, 2**32[ */
  66780. if (is_toint32) {
  66781. if (x >= DUK_DOUBLE_2TO31) {
  66782. /* x in [2**31, 2**32[ */
  66783. x -= DUK_DOUBLE_2TO32; /* -> x in [-2**31,2**31[ */
  66784. }
  66785. }
  66786. return x;
  66787. }
  66788. DUK_INTERNAL duk_int32_t duk_js_toint32(duk_hthread *thr, duk_tval *tv) {
  66789. duk_double_t d;
  66790. #if defined(DUK_USE_FASTINT)
  66791. if (DUK_TVAL_IS_FASTINT(tv)) {
  66792. return DUK_TVAL_GET_FASTINT_I32(tv);
  66793. }
  66794. #endif
  66795. d = duk_js_tonumber(thr, tv); /* invalidates tv */
  66796. d = duk__toint32_touint32_helper(d, 1);
  66797. DUK_ASSERT(DUK_FPCLASSIFY(d) == DUK_FP_ZERO || DUK_FPCLASSIFY(d) == DUK_FP_NORMAL);
  66798. DUK_ASSERT(d >= -2147483648.0 && d <= 2147483647.0); /* [-0x80000000,0x7fffffff] */
  66799. DUK_ASSERT(d == ((duk_double_t) ((duk_int32_t) d))); /* whole, won't clip */
  66800. return (duk_int32_t) d;
  66801. }
  66802. DUK_INTERNAL duk_uint32_t duk_js_touint32(duk_hthread *thr, duk_tval *tv) {
  66803. duk_double_t d;
  66804. #if defined(DUK_USE_FASTINT)
  66805. if (DUK_TVAL_IS_FASTINT(tv)) {
  66806. return DUK_TVAL_GET_FASTINT_U32(tv);
  66807. }
  66808. #endif
  66809. d = duk_js_tonumber(thr, tv); /* invalidates tv */
  66810. d = duk__toint32_touint32_helper(d, 0);
  66811. DUK_ASSERT(DUK_FPCLASSIFY(d) == DUK_FP_ZERO || DUK_FPCLASSIFY(d) == DUK_FP_NORMAL);
  66812. DUK_ASSERT(d >= 0.0 && d <= 4294967295.0); /* [0x00000000, 0xffffffff] */
  66813. DUK_ASSERT(d == ((duk_double_t) ((duk_uint32_t) d))); /* whole, won't clip */
  66814. return (duk_uint32_t) d;
  66815. }
  66816. DUK_INTERNAL duk_uint16_t duk_js_touint16(duk_hthread *thr, duk_tval *tv) {
  66817. /* should be a safe way to compute this */
  66818. return (duk_uint16_t) (duk_js_touint32(thr, tv) & 0x0000ffffU);
  66819. }
  66820. /*
  66821. * ToString() (E5 Section 9.8)
  66822. * ToObject() (E5 Section 9.9)
  66823. * CheckObjectCoercible() (E5 Section 9.10)
  66824. * IsCallable() (E5 Section 9.11)
  66825. *
  66826. * ==> implemented in the API.
  66827. */
  66828. /*
  66829. * Loose equality, strict equality, and SameValue (E5 Sections 11.9.1, 11.9.4,
  66830. * 9.12). These have much in common so they can share some helpers.
  66831. *
  66832. * Future work notes:
  66833. *
  66834. * - Current implementation (and spec definition) has recursion; this should
  66835. * be fixed if possible.
  66836. *
  66837. * - String-to-number coercion should be possible without going through the
  66838. * value stack (and be more compact) if a shared helper is invoked.
  66839. */
  66840. /* Note that this is the same operation for strict and loose equality:
  66841. * - E5 Section 11.9.3, step 1.c (loose)
  66842. * - E5 Section 11.9.6, step 4 (strict)
  66843. */
  66844. DUK_LOCAL duk_bool_t duk__js_equals_number(duk_double_t x, duk_double_t y) {
  66845. #if defined(DUK_USE_PARANOID_MATH)
  66846. /* Straightforward algorithm, makes fewer compiler assumptions. */
  66847. duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x);
  66848. duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y);
  66849. if (cx == DUK_FP_NAN || cy == DUK_FP_NAN) {
  66850. return 0;
  66851. }
  66852. if (cx == DUK_FP_ZERO && cy == DUK_FP_ZERO) {
  66853. return 1;
  66854. }
  66855. if (x == y) {
  66856. return 1;
  66857. }
  66858. return 0;
  66859. #else /* DUK_USE_PARANOID_MATH */
  66860. /* Better equivalent algorithm. If the compiler is compliant, C and
  66861. * Ecmascript semantics are identical for this particular comparison.
  66862. * In particular, NaNs must never compare equal and zeroes must compare
  66863. * equal regardless of sign. Could also use a macro, but this inlines
  66864. * already nicely (no difference on gcc, for instance).
  66865. */
  66866. if (x == y) {
  66867. /* IEEE requires that NaNs compare false */
  66868. DUK_ASSERT(DUK_FPCLASSIFY(x) != DUK_FP_NAN);
  66869. DUK_ASSERT(DUK_FPCLASSIFY(y) != DUK_FP_NAN);
  66870. return 1;
  66871. } else {
  66872. /* IEEE requires that zeros compare the same regardless
  66873. * of their signed, so if both x and y are zeroes, they
  66874. * are caught above.
  66875. */
  66876. DUK_ASSERT(!(DUK_FPCLASSIFY(x) == DUK_FP_ZERO && DUK_FPCLASSIFY(y) == DUK_FP_ZERO));
  66877. return 0;
  66878. }
  66879. #endif /* DUK_USE_PARANOID_MATH */
  66880. }
  66881. DUK_LOCAL duk_bool_t duk__js_samevalue_number(duk_double_t x, duk_double_t y) {
  66882. #if defined(DUK_USE_PARANOID_MATH)
  66883. duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x);
  66884. duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y);
  66885. if (cx == DUK_FP_NAN && cy == DUK_FP_NAN) {
  66886. /* SameValue(NaN, NaN) = true, regardless of NaN sign or extra bits */
  66887. return 1;
  66888. }
  66889. if (cx == DUK_FP_ZERO && cy == DUK_FP_ZERO) {
  66890. /* Note: cannot assume that a non-zero return value of signbit() would
  66891. * always be the same -- hence cannot (portably) use something like:
  66892. *
  66893. * signbit(x) == signbit(y)
  66894. */
  66895. duk_small_int_t sx = DUK_SIGNBIT(x) ? 1 : 0;
  66896. duk_small_int_t sy = DUK_SIGNBIT(y) ? 1 : 0;
  66897. return (sx == sy);
  66898. }
  66899. /* normal comparison; known:
  66900. * - both x and y are not NaNs (but one of them can be)
  66901. * - both x and y are not zero (but one of them can be)
  66902. * - x and y may be denormal or infinite
  66903. */
  66904. return (x == y);
  66905. #else /* DUK_USE_PARANOID_MATH */
  66906. duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x);
  66907. duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y);
  66908. if (x == y) {
  66909. /* IEEE requires that NaNs compare false */
  66910. DUK_ASSERT(DUK_FPCLASSIFY(x) != DUK_FP_NAN);
  66911. DUK_ASSERT(DUK_FPCLASSIFY(y) != DUK_FP_NAN);
  66912. /* Using classification has smaller footprint than direct comparison. */
  66913. if (DUK_UNLIKELY(cx == DUK_FP_ZERO && cy == DUK_FP_ZERO)) {
  66914. /* Note: cannot assume that a non-zero return value of signbit() would
  66915. * always be the same -- hence cannot (portably) use something like:
  66916. *
  66917. * signbit(x) == signbit(y)
  66918. */
  66919. return duk_double_same_sign(x, y);
  66920. }
  66921. return 1;
  66922. } else {
  66923. /* IEEE requires that zeros compare the same regardless
  66924. * of their sign, so if both x and y are zeroes, they
  66925. * are caught above.
  66926. */
  66927. DUK_ASSERT(!(DUK_FPCLASSIFY(x) == DUK_FP_ZERO && DUK_FPCLASSIFY(y) == DUK_FP_ZERO));
  66928. /* Difference to non-strict/strict comparison is that NaNs compare
  66929. * equal and signed zero signs matter.
  66930. */
  66931. if (DUK_UNLIKELY(cx == DUK_FP_NAN && cy == DUK_FP_NAN)) {
  66932. /* SameValue(NaN, NaN) = true, regardless of NaN sign or extra bits */
  66933. return 1;
  66934. }
  66935. return 0;
  66936. }
  66937. #endif /* DUK_USE_PARANOID_MATH */
  66938. }
  66939. DUK_INTERNAL duk_bool_t duk_js_equals_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags) {
  66940. duk_uint_t type_mask_x;
  66941. duk_uint_t type_mask_y;
  66942. /* If flags != 0 (strict or SameValue), thr can be NULL. For loose
  66943. * equals comparison it must be != NULL.
  66944. */
  66945. DUK_ASSERT(flags != 0 || thr != NULL);
  66946. /*
  66947. * Same type?
  66948. *
  66949. * Note: since number values have no explicit tag in the 8-byte
  66950. * representation, need the awkward if + switch.
  66951. */
  66952. #if defined(DUK_USE_FASTINT)
  66953. if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) {
  66954. if (DUK_TVAL_GET_FASTINT(tv_x) == DUK_TVAL_GET_FASTINT(tv_y)) {
  66955. return 1;
  66956. } else {
  66957. return 0;
  66958. }
  66959. }
  66960. else
  66961. #endif
  66962. if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) {
  66963. duk_double_t d1, d2;
  66964. /* Catches both doubles and cases where only one argument is
  66965. * a fastint so can't assume a double.
  66966. */
  66967. d1 = DUK_TVAL_GET_NUMBER(tv_x);
  66968. d2 = DUK_TVAL_GET_NUMBER(tv_y);
  66969. if (DUK_UNLIKELY((flags & DUK_EQUALS_FLAG_SAMEVALUE) != 0)) {
  66970. /* SameValue */
  66971. return duk__js_samevalue_number(d1, d2);
  66972. } else {
  66973. /* equals and strict equals */
  66974. return duk__js_equals_number(d1, d2);
  66975. }
  66976. } else if (DUK_TVAL_GET_TAG(tv_x) == DUK_TVAL_GET_TAG(tv_y)) {
  66977. switch (DUK_TVAL_GET_TAG(tv_x)) {
  66978. case DUK_TAG_UNDEFINED:
  66979. case DUK_TAG_NULL: {
  66980. return 1;
  66981. }
  66982. case DUK_TAG_BOOLEAN: {
  66983. return DUK_TVAL_GET_BOOLEAN(tv_x) == DUK_TVAL_GET_BOOLEAN(tv_y);
  66984. }
  66985. case DUK_TAG_POINTER: {
  66986. return DUK_TVAL_GET_POINTER(tv_x) == DUK_TVAL_GET_POINTER(tv_y);
  66987. }
  66988. case DUK_TAG_STRING:
  66989. case DUK_TAG_OBJECT: {
  66990. /* Heap pointer comparison suffices for strings and objects.
  66991. * Symbols compare equal if they have the same internal
  66992. * representation; again heap pointer comparison suffices.
  66993. */
  66994. return DUK_TVAL_GET_HEAPHDR(tv_x) == DUK_TVAL_GET_HEAPHDR(tv_y);
  66995. }
  66996. case DUK_TAG_BUFFER: {
  66997. /* In Duktape 2.x plain buffers mimic Uint8Array objects
  66998. * so always compare by heap pointer. In Duktape 1.x
  66999. * strict comparison would compare heap pointers and
  67000. * non-strict would compare contents.
  67001. */
  67002. return DUK_TVAL_GET_HEAPHDR(tv_x) == DUK_TVAL_GET_HEAPHDR(tv_y);
  67003. }
  67004. case DUK_TAG_LIGHTFUNC: {
  67005. /* At least 'magic' has a significant impact on function
  67006. * identity.
  67007. */
  67008. duk_small_uint_t lf_flags_x;
  67009. duk_small_uint_t lf_flags_y;
  67010. duk_c_function func_x;
  67011. duk_c_function func_y;
  67012. DUK_TVAL_GET_LIGHTFUNC(tv_x, func_x, lf_flags_x);
  67013. DUK_TVAL_GET_LIGHTFUNC(tv_y, func_y, lf_flags_y);
  67014. return ((func_x == func_y) && (lf_flags_x == lf_flags_y)) ? 1 : 0;
  67015. }
  67016. #if defined(DUK_USE_FASTINT)
  67017. case DUK_TAG_FASTINT:
  67018. #endif
  67019. default: {
  67020. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_x));
  67021. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_y));
  67022. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_x));
  67023. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_y));
  67024. DUK_UNREACHABLE();
  67025. return 0;
  67026. }
  67027. }
  67028. }
  67029. if ((flags & (DUK_EQUALS_FLAG_STRICT | DUK_EQUALS_FLAG_SAMEVALUE)) != 0) {
  67030. return 0;
  67031. }
  67032. DUK_ASSERT(flags == 0); /* non-strict equality from here on */
  67033. /*
  67034. * Types are different; various cases for non-strict comparison
  67035. *
  67036. * Since comparison is symmetric, we use a "swap trick" to reduce
  67037. * code size.
  67038. */
  67039. type_mask_x = duk_get_type_mask_tval(tv_x);
  67040. type_mask_y = duk_get_type_mask_tval(tv_y);
  67041. /* Undefined/null are considered equal (e.g. "null == undefined" -> true). */
  67042. if ((type_mask_x & (DUK_TYPE_MASK_UNDEFINED | DUK_TYPE_MASK_NULL)) &&
  67043. (type_mask_y & (DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_UNDEFINED))) {
  67044. return 1;
  67045. }
  67046. /* Number/string -> coerce string to number (e.g. "'1.5' == 1.5" -> true). */
  67047. if ((type_mask_x & DUK_TYPE_MASK_NUMBER) && (type_mask_y & DUK_TYPE_MASK_STRING)) {
  67048. if (!DUK_TVAL_STRING_IS_SYMBOL(tv_y)) {
  67049. duk_double_t d1, d2;
  67050. d1 = DUK_TVAL_GET_NUMBER(tv_x);
  67051. d2 = duk_to_number_tval(thr, tv_y);
  67052. return duk__js_equals_number(d1, d2);
  67053. }
  67054. }
  67055. if ((type_mask_x & DUK_TYPE_MASK_STRING) && (type_mask_y & DUK_TYPE_MASK_NUMBER)) {
  67056. if (!DUK_TVAL_STRING_IS_SYMBOL(tv_x)) {
  67057. duk_double_t d1, d2;
  67058. d1 = DUK_TVAL_GET_NUMBER(tv_y);
  67059. d2 = duk_to_number_tval(thr, tv_x);
  67060. return duk__js_equals_number(d1, d2);
  67061. }
  67062. }
  67063. /* Boolean/any -> coerce boolean to number and try again. If boolean is
  67064. * compared to a pointer, the final comparison after coercion now always
  67065. * yields false (as pointer vs. number compares to false), but this is
  67066. * not special cased.
  67067. *
  67068. * ToNumber(bool) is +1.0 or 0.0. Tagged boolean value is always 0 or 1.
  67069. */
  67070. if (type_mask_x & DUK_TYPE_MASK_BOOLEAN) {
  67071. DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv_x) == 0 || DUK_TVAL_GET_BOOLEAN(tv_x) == 1);
  67072. duk_push_uint(thr, DUK_TVAL_GET_BOOLEAN(tv_x));
  67073. duk_push_tval(thr, tv_y);
  67074. goto recursive_call;
  67075. }
  67076. if (type_mask_y & DUK_TYPE_MASK_BOOLEAN) {
  67077. DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv_y) == 0 || DUK_TVAL_GET_BOOLEAN(tv_y) == 1);
  67078. duk_push_tval(thr, tv_x);
  67079. duk_push_uint(thr, DUK_TVAL_GET_BOOLEAN(tv_y));
  67080. goto recursive_call;
  67081. }
  67082. /* String-number-symbol/object -> coerce object to primitive (apparently without hint), then try again. */
  67083. if ((type_mask_x & (DUK_TYPE_MASK_STRING | DUK_TYPE_MASK_NUMBER)) &&
  67084. (type_mask_y & DUK_TYPE_MASK_OBJECT)) {
  67085. /* No symbol check needed because symbols and strings are accepted. */
  67086. duk_push_tval(thr, tv_x);
  67087. duk_push_tval(thr, tv_y);
  67088. duk_to_primitive(thr, -1, DUK_HINT_NONE); /* apparently no hint? */
  67089. goto recursive_call;
  67090. }
  67091. if ((type_mask_x & DUK_TYPE_MASK_OBJECT) &&
  67092. (type_mask_y & (DUK_TYPE_MASK_STRING | DUK_TYPE_MASK_NUMBER))) {
  67093. /* No symbol check needed because symbols and strings are accepted. */
  67094. duk_push_tval(thr, tv_x);
  67095. duk_push_tval(thr, tv_y);
  67096. duk_to_primitive(thr, -2, DUK_HINT_NONE); /* apparently no hint? */
  67097. goto recursive_call;
  67098. }
  67099. /* Nothing worked -> not equal. */
  67100. return 0;
  67101. recursive_call:
  67102. /* Shared code path to call the helper again with arguments on stack top. */
  67103. {
  67104. duk_bool_t rc;
  67105. rc = duk_js_equals_helper(thr,
  67106. DUK_GET_TVAL_NEGIDX(thr, -2),
  67107. DUK_GET_TVAL_NEGIDX(thr, -1),
  67108. 0 /*flags:nonstrict*/);
  67109. duk_pop_2_unsafe(thr);
  67110. return rc;
  67111. }
  67112. }
  67113. /*
  67114. * Comparisons (x >= y, x > y, x <= y, x < y)
  67115. *
  67116. * E5 Section 11.8.5: implement 'x < y' and then use negate and eval_left_first
  67117. * flags to get the rest.
  67118. */
  67119. /* XXX: this should probably just operate on the stack top, because it
  67120. * needs to push stuff on the stack anyway...
  67121. */
  67122. DUK_INTERNAL duk_small_int_t duk_js_data_compare(const duk_uint8_t *buf1, const duk_uint8_t *buf2, duk_size_t len1, duk_size_t len2) {
  67123. duk_size_t prefix_len;
  67124. duk_small_int_t rc;
  67125. prefix_len = (len1 <= len2 ? len1 : len2);
  67126. /* DUK_MEMCMP() is guaranteed to return zero (equal) for zero length
  67127. * inputs so no zero length check is needed.
  67128. */
  67129. rc = DUK_MEMCMP((const void *) buf1,
  67130. (const void *) buf2,
  67131. (size_t) prefix_len);
  67132. if (rc < 0) {
  67133. return -1;
  67134. } else if (rc > 0) {
  67135. return 1;
  67136. }
  67137. /* prefix matches, lengths matter now */
  67138. if (len1 < len2) {
  67139. /* e.g. "x" < "xx" */
  67140. return -1;
  67141. } else if (len1 > len2) {
  67142. return 1;
  67143. }
  67144. return 0;
  67145. }
  67146. DUK_INTERNAL duk_small_int_t duk_js_string_compare(duk_hstring *h1, duk_hstring *h2) {
  67147. /*
  67148. * String comparison (E5 Section 11.8.5, step 4), which
  67149. * needs to compare codepoint by codepoint.
  67150. *
  67151. * However, UTF-8 allows us to use strcmp directly: the shared
  67152. * prefix will be encoded identically (UTF-8 has unique encoding)
  67153. * and the first differing character can be compared with a simple
  67154. * unsigned byte comparison (which strcmp does).
  67155. *
  67156. * This will not work properly for non-xutf-8 strings, but this
  67157. * is not an issue for compliance.
  67158. */
  67159. DUK_ASSERT(h1 != NULL);
  67160. DUK_ASSERT(h2 != NULL);
  67161. return duk_js_data_compare((const duk_uint8_t *) DUK_HSTRING_GET_DATA(h1),
  67162. (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h2),
  67163. (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1),
  67164. (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2));
  67165. }
  67166. #if 0 /* unused */
  67167. DUK_INTERNAL duk_small_int_t duk_js_buffer_compare(duk_heap *heap, duk_hbuffer *h1, duk_hbuffer *h2) {
  67168. /* Similar to String comparison. */
  67169. DUK_ASSERT(h1 != NULL);
  67170. DUK_ASSERT(h2 != NULL);
  67171. DUK_UNREF(heap);
  67172. return duk_js_data_compare((const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(heap, h1),
  67173. (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(heap, h2),
  67174. (duk_size_t) DUK_HBUFFER_GET_SIZE(h1),
  67175. (duk_size_t) DUK_HBUFFER_GET_SIZE(h2));
  67176. }
  67177. #endif
  67178. #if defined(DUK_USE_FASTINT)
  67179. DUK_LOCAL duk_bool_t duk__compare_fastint(duk_bool_t retval, duk_int64_t v1, duk_int64_t v2) {
  67180. DUK_ASSERT(retval == 0 || retval == 1);
  67181. if (v1 < v2) {
  67182. return retval ^ 1;
  67183. } else {
  67184. return retval;
  67185. }
  67186. }
  67187. #endif
  67188. #if defined(DUK_USE_PARANOID_MATH)
  67189. DUK_LOCAL duk_bool_t duk__compare_number(duk_bool_t retval, duk_double_t d1, duk_double_t d2) {
  67190. duk_small_int_t c1, s1, c2, s2;
  67191. DUK_ASSERT(retval == 0 || retval == 1);
  67192. c1 = (duk_small_int_t) DUK_FPCLASSIFY(d1);
  67193. s1 = (duk_small_int_t) DUK_SIGNBIT(d1);
  67194. c2 = (duk_small_int_t) DUK_FPCLASSIFY(d2);
  67195. s2 = (duk_small_int_t) DUK_SIGNBIT(d2);
  67196. if (c1 == DUK_FP_NAN || c2 == DUK_FP_NAN) {
  67197. return 0; /* Always false, regardless of negation. */
  67198. }
  67199. if (c1 == DUK_FP_ZERO && c2 == DUK_FP_ZERO) {
  67200. /* For all combinations: +0 < +0, +0 < -0, -0 < +0, -0 < -0,
  67201. * steps e, f, and g.
  67202. */
  67203. return retval; /* false */
  67204. }
  67205. if (d1 == d2) {
  67206. return retval; /* false */
  67207. }
  67208. if (c1 == DUK_FP_INFINITE && s1 == 0) {
  67209. /* x == +Infinity */
  67210. return retval; /* false */
  67211. }
  67212. if (c2 == DUK_FP_INFINITE && s2 == 0) {
  67213. /* y == +Infinity */
  67214. return retval ^ 1; /* true */
  67215. }
  67216. if (c2 == DUK_FP_INFINITE && s2 != 0) {
  67217. /* y == -Infinity */
  67218. return retval; /* false */
  67219. }
  67220. if (c1 == DUK_FP_INFINITE && s1 != 0) {
  67221. /* x == -Infinity */
  67222. return retval ^ 1; /* true */
  67223. }
  67224. if (d1 < d2) {
  67225. return retval ^ 1; /* true */
  67226. }
  67227. return retval; /* false */
  67228. }
  67229. #else /* DUK_USE_PARANOID_MATH */
  67230. DUK_LOCAL duk_bool_t duk__compare_number(duk_bool_t retval, duk_double_t d1, duk_double_t d2) {
  67231. /* This comparison tree relies doesn't match the exact steps in
  67232. * E5 Section 11.8.5 but should produce the same results. The
  67233. * steps rely on exact IEEE semantics for NaNs, etc.
  67234. */
  67235. DUK_ASSERT(retval == 0 || retval == 1);
  67236. if (d1 < d2) {
  67237. /* In no case should both (d1 < d2) and (d2 < d1) be true.
  67238. * It's possible that neither is true though, and that's
  67239. * handled below.
  67240. */
  67241. DUK_ASSERT(!(d2 < d1));
  67242. /* - d1 < d2, both d1/d2 are normals (not Infinity, not NaN)
  67243. * - d2 is +Infinity, d1 != +Infinity and NaN
  67244. * - d1 is -Infinity, d2 != -Infinity and NaN
  67245. */
  67246. return retval ^ 1;
  67247. } else {
  67248. if (d2 < d1) {
  67249. /* - !(d1 < d2), both d1/d2 are normals (not Infinity, not NaN)
  67250. * - d1 is +Infinity, d2 != +Infinity and NaN
  67251. * - d2 is -Infinity, d1 != -Infinity and NaN
  67252. */
  67253. return retval;
  67254. } else {
  67255. /* - d1 and/or d2 is NaN
  67256. * - d1 and d2 are both +/- 0
  67257. * - d1 == d2 (including infinities)
  67258. */
  67259. if (duk_double_is_nan(d1) || duk_double_is_nan(d2)) {
  67260. /* Note: undefined from Section 11.8.5 always
  67261. * results in false return (see e.g. Section
  67262. * 11.8.3) - hence special treatment here.
  67263. */
  67264. return 0; /* zero regardless of negation */
  67265. } else {
  67266. return retval;
  67267. }
  67268. }
  67269. }
  67270. }
  67271. #endif /* DUK_USE_PARANOID_MATH */
  67272. DUK_INTERNAL duk_bool_t duk_js_compare_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags) {
  67273. duk_double_t d1, d2;
  67274. duk_small_int_t rc;
  67275. duk_bool_t retval;
  67276. DUK_ASSERT(DUK_COMPARE_FLAG_NEGATE == 1); /* Rely on this flag being lowest. */
  67277. retval = flags & DUK_COMPARE_FLAG_NEGATE;
  67278. DUK_ASSERT(retval == 0 || retval == 1);
  67279. /* Fast path for fastints */
  67280. #if defined(DUK_USE_FASTINT)
  67281. if (DUK_LIKELY(DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y))) {
  67282. return duk__compare_fastint(retval,
  67283. DUK_TVAL_GET_FASTINT(tv_x),
  67284. DUK_TVAL_GET_FASTINT(tv_y));
  67285. }
  67286. #endif /* DUK_USE_FASTINT */
  67287. /* Fast path for numbers (one of which may be a fastint) */
  67288. #if !defined(DUK_USE_PREFER_SIZE)
  67289. if (DUK_LIKELY(DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y))) {
  67290. return duk__compare_number(retval,
  67291. DUK_TVAL_GET_NUMBER(tv_x),
  67292. DUK_TVAL_GET_NUMBER(tv_y));
  67293. }
  67294. #endif
  67295. /* Slow path */
  67296. duk_push_tval(thr, tv_x);
  67297. duk_push_tval(thr, tv_y);
  67298. if (flags & DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) {
  67299. duk_to_primitive(thr, -2, DUK_HINT_NUMBER);
  67300. duk_to_primitive(thr, -1, DUK_HINT_NUMBER);
  67301. } else {
  67302. duk_to_primitive(thr, -1, DUK_HINT_NUMBER);
  67303. duk_to_primitive(thr, -2, DUK_HINT_NUMBER);
  67304. }
  67305. /* Note: reuse variables */
  67306. tv_x = DUK_GET_TVAL_NEGIDX(thr, -2);
  67307. tv_y = DUK_GET_TVAL_NEGIDX(thr, -1);
  67308. if (DUK_TVAL_IS_STRING(tv_x) && DUK_TVAL_IS_STRING(tv_y)) {
  67309. duk_hstring *h1 = DUK_TVAL_GET_STRING(tv_x);
  67310. duk_hstring *h2 = DUK_TVAL_GET_STRING(tv_y);
  67311. DUK_ASSERT(h1 != NULL);
  67312. DUK_ASSERT(h2 != NULL);
  67313. if (DUK_LIKELY(!DUK_HSTRING_HAS_SYMBOL(h1) && !DUK_HSTRING_HAS_SYMBOL(h2))) {
  67314. rc = duk_js_string_compare(h1, h2);
  67315. duk_pop_2_unsafe(thr);
  67316. if (rc < 0) {
  67317. return retval ^ 1;
  67318. } else {
  67319. return retval;
  67320. }
  67321. }
  67322. /* One or both are Symbols: fall through to handle in the
  67323. * generic path. Concretely, ToNumber() will fail.
  67324. */
  67325. }
  67326. /* Ordering should not matter (E5 Section 11.8.5, step 3.a). */
  67327. #if 0
  67328. if (flags & DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) {
  67329. d1 = duk_to_number_m2(thr);
  67330. d2 = duk_to_number_m1(thr);
  67331. } else {
  67332. d2 = duk_to_number_m1(thr);
  67333. d1 = duk_to_number_m2(thr);
  67334. }
  67335. #endif
  67336. d1 = duk_to_number_m2(thr);
  67337. d2 = duk_to_number_m1(thr);
  67338. /* We want to duk_pop_2_unsafe(thr); because the values are numbers
  67339. * no decref check is needed.
  67340. */
  67341. #if defined(DUK_USE_PREFER_SIZE)
  67342. duk_pop_2_nodecref_unsafe(thr);
  67343. #else
  67344. DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk_get_tval(thr, -2)));
  67345. DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk_get_tval(thr, -1)));
  67346. DUK_ASSERT(duk_get_top(thr) >= 2);
  67347. thr->valstack_top -= 2;
  67348. tv_x = thr->valstack_top;
  67349. tv_y = tv_x + 1;
  67350. DUK_TVAL_SET_UNDEFINED(tv_x); /* Value stack policy */
  67351. DUK_TVAL_SET_UNDEFINED(tv_y);
  67352. #endif
  67353. return duk__compare_number(retval, d1, d2);
  67354. }
  67355. /*
  67356. * instanceof
  67357. */
  67358. /*
  67359. * E5 Section 11.8.6 describes the main algorithm, which uses
  67360. * [[HasInstance]]. [[HasInstance]] is defined for only
  67361. * function objects:
  67362. *
  67363. * - Normal functions:
  67364. * E5 Section 15.3.5.3
  67365. * - Functions established with Function.prototype.bind():
  67366. * E5 Section 15.3.4.5.3
  67367. *
  67368. * For other objects, a TypeError is thrown.
  67369. *
  67370. * Limited Proxy support: don't support 'getPrototypeOf' trap but
  67371. * continue lookup in Proxy target if the value is a Proxy.
  67372. */
  67373. DUK_INTERNAL duk_bool_t duk_js_instanceof(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y) {
  67374. duk_hobject *func;
  67375. duk_hobject *val;
  67376. duk_hobject *proto;
  67377. duk_tval *tv;
  67378. duk_bool_t skip_first;
  67379. duk_uint_t sanity;
  67380. /*
  67381. * Get the values onto the stack first. It would be possible to cover
  67382. * some normal cases without resorting to the value stack.
  67383. *
  67384. * The right hand side could be a light function (as they generally
  67385. * behave like objects). Light functions never have a 'prototype'
  67386. * property so E5.1 Section 15.3.5.3 step 3 always throws a TypeError.
  67387. * Using duk_require_hobject() is thus correct (except for error msg).
  67388. */
  67389. duk_push_tval(thr, tv_x);
  67390. duk_push_tval(thr, tv_y);
  67391. func = duk_require_hobject(thr, -1);
  67392. DUK_ASSERT(func != NULL);
  67393. /*
  67394. * For bound objects, [[HasInstance]] just calls the target function
  67395. * [[HasInstance]]. If that is again a bound object, repeat until
  67396. * we find a non-bound Function object.
  67397. *
  67398. * The bound function chain is now "collapsed" so there can be only
  67399. * one bound function in the chain.
  67400. */
  67401. if (!DUK_HOBJECT_IS_CALLABLE(func)) {
  67402. /*
  67403. * Note: of native Ecmascript objects, only Function instances
  67404. * have a [[HasInstance]] internal property. Custom objects might
  67405. * also have it, but not in current implementation.
  67406. *
  67407. * XXX: add a separate flag, DUK_HOBJECT_FLAG_ALLOW_INSTANCEOF?
  67408. */
  67409. goto error_invalid_rval;
  67410. }
  67411. if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) {
  67412. duk_push_tval(thr, &((duk_hboundfunc *) func)->target);
  67413. duk_replace(thr, -2);
  67414. func = duk_require_hobject(thr, -1); /* lightfunc throws */
  67415. /* Rely on Function.prototype.bind() never creating bound
  67416. * functions whose target is not proper.
  67417. */
  67418. DUK_ASSERT(func != NULL);
  67419. DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(func));
  67420. }
  67421. /*
  67422. * 'func' is now a non-bound object which supports [[HasInstance]]
  67423. * (which here just means DUK_HOBJECT_FLAG_CALLABLE). Move on
  67424. * to execute E5 Section 15.3.5.3.
  67425. */
  67426. DUK_ASSERT(func != NULL);
  67427. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func));
  67428. DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(func));
  67429. /* [ ... lval rval(func) ] */
  67430. /* For lightfuncs, buffers, and pointers start the comparison directly
  67431. * from the virtual prototype object.
  67432. */
  67433. skip_first = 0;
  67434. tv = DUK_GET_TVAL_NEGIDX(thr, -2);
  67435. switch (DUK_TVAL_GET_TAG(tv)) {
  67436. case DUK_TAG_LIGHTFUNC:
  67437. val = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE];
  67438. DUK_ASSERT(val != NULL);
  67439. break;
  67440. case DUK_TAG_BUFFER:
  67441. val = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE];
  67442. DUK_ASSERT(val != NULL);
  67443. break;
  67444. case DUK_TAG_POINTER:
  67445. val = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE];
  67446. DUK_ASSERT(val != NULL);
  67447. break;
  67448. case DUK_TAG_OBJECT:
  67449. skip_first = 1; /* Ignore object itself on first round. */
  67450. val = DUK_TVAL_GET_OBJECT(tv);
  67451. DUK_ASSERT(val != NULL);
  67452. break;
  67453. default:
  67454. goto pop2_and_false;
  67455. }
  67456. DUK_ASSERT(val != NULL); /* Loop doesn't actually rely on this. */
  67457. /* Look up .prototype of rval. Leave it on the value stack in case it
  67458. * has been virtualized (e.g. getter, Proxy trap).
  67459. */
  67460. duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_PROTOTYPE); /* -> [ ... lval rval rval.prototype ] */
  67461. #if defined(DUK_USE_VERBOSE_ERRORS)
  67462. proto = duk_get_hobject(thr, -1);
  67463. if (proto == NULL) {
  67464. goto error_invalid_rval_noproto;
  67465. }
  67466. #else
  67467. proto = duk_require_hobject(thr, -1);
  67468. #endif
  67469. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  67470. do {
  67471. /*
  67472. * Note: prototype chain is followed BEFORE first comparison. This
  67473. * means that the instanceof lval is never itself compared to the
  67474. * rval.prototype property. This is apparently intentional, see E5
  67475. * Section 15.3.5.3, step 4.a.
  67476. *
  67477. * Also note:
  67478. *
  67479. * js> (function() {}) instanceof Function
  67480. * true
  67481. * js> Function instanceof Function
  67482. * true
  67483. *
  67484. * For the latter, h_proto will be Function.prototype, which is the
  67485. * built-in Function prototype. Because Function.[[Prototype]] is
  67486. * also the built-in Function prototype, the result is true.
  67487. */
  67488. if (!val) {
  67489. goto pop3_and_false;
  67490. }
  67491. DUK_ASSERT(val != NULL);
  67492. #if defined(DUK_USE_ES6_PROXY)
  67493. val = duk_hobject_resolve_proxy_target(val);
  67494. #endif
  67495. if (skip_first) {
  67496. skip_first = 0;
  67497. } else if (val == proto) {
  67498. goto pop3_and_true;
  67499. }
  67500. DUK_ASSERT(val != NULL);
  67501. val = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, val);
  67502. } while (--sanity > 0);
  67503. if (DUK_UNLIKELY(sanity == 0)) {
  67504. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  67505. }
  67506. DUK_UNREACHABLE();
  67507. pop2_and_false:
  67508. duk_pop_2_unsafe(thr);
  67509. return 0;
  67510. pop3_and_false:
  67511. duk_pop_3_unsafe(thr);
  67512. return 0;
  67513. pop3_and_true:
  67514. duk_pop_3_unsafe(thr);
  67515. return 1;
  67516. error_invalid_rval:
  67517. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_INSTANCEOF_RVAL);
  67518. return 0;
  67519. #if defined(DUK_USE_VERBOSE_ERRORS)
  67520. error_invalid_rval_noproto:
  67521. DUK_ERROR_TYPE(thr, DUK_STR_INVALID_INSTANCEOF_RVAL_NOPROTO);
  67522. return 0;
  67523. #endif
  67524. }
  67525. /*
  67526. * in
  67527. */
  67528. /*
  67529. * E5 Sections 11.8.7, 8.12.6.
  67530. *
  67531. * Basically just a property existence check using [[HasProperty]].
  67532. */
  67533. DUK_INTERNAL duk_bool_t duk_js_in(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y) {
  67534. duk_bool_t retval;
  67535. /*
  67536. * Get the values onto the stack first. It would be possible to cover
  67537. * some normal cases without resorting to the value stack (e.g. if
  67538. * lval is already a string).
  67539. */
  67540. /* XXX: The ES5/5.1/6 specifications require that the key in 'key in obj'
  67541. * must be string coerced before the internal HasProperty() algorithm is
  67542. * invoked. A fast path skipping coercion could be safely implemented for
  67543. * numbers (as number-to-string coercion has no side effects). For ES2015
  67544. * proxy behavior, the trap 'key' argument must be in a string coerced
  67545. * form (which is a shame).
  67546. */
  67547. /* TypeError if rval is not an object or object like (e.g. lightfunc
  67548. * or plain buffer).
  67549. */
  67550. duk_push_tval(thr, tv_x);
  67551. duk_push_tval(thr, tv_y);
  67552. duk_require_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT | DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER);
  67553. (void) duk_to_property_key_hstring(thr, -2);
  67554. retval = duk_hobject_hasprop(thr,
  67555. DUK_GET_TVAL_NEGIDX(thr, -1),
  67556. DUK_GET_TVAL_NEGIDX(thr, -2));
  67557. duk_pop_2_unsafe(thr);
  67558. return retval;
  67559. }
  67560. /*
  67561. * typeof
  67562. *
  67563. * E5 Section 11.4.3.
  67564. *
  67565. * Very straightforward. The only question is what to return for our
  67566. * non-standard tag / object types.
  67567. *
  67568. * There is an unfortunate string constant define naming problem with
  67569. * typeof return values for e.g. "Object" and "object"; careful with
  67570. * the built-in string defines. The LC_XXX defines are used for the
  67571. * lowercase variants now.
  67572. */
  67573. DUK_INTERNAL duk_small_uint_t duk_js_typeof_stridx(duk_tval *tv_x) {
  67574. duk_small_uint_t stridx = 0;
  67575. switch (DUK_TVAL_GET_TAG(tv_x)) {
  67576. case DUK_TAG_UNDEFINED: {
  67577. stridx = DUK_STRIDX_LC_UNDEFINED;
  67578. break;
  67579. }
  67580. case DUK_TAG_NULL: {
  67581. /* Note: not a typo, "object" is returned for a null value. */
  67582. stridx = DUK_STRIDX_LC_OBJECT;
  67583. break;
  67584. }
  67585. case DUK_TAG_BOOLEAN: {
  67586. stridx = DUK_STRIDX_LC_BOOLEAN;
  67587. break;
  67588. }
  67589. case DUK_TAG_POINTER: {
  67590. /* Implementation specific. */
  67591. stridx = DUK_STRIDX_LC_POINTER;
  67592. break;
  67593. }
  67594. case DUK_TAG_STRING: {
  67595. duk_hstring *str;
  67596. /* All internal keys are identified as Symbols. */
  67597. str = DUK_TVAL_GET_STRING(tv_x);
  67598. DUK_ASSERT(str != NULL);
  67599. if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(str))) {
  67600. stridx = DUK_STRIDX_LC_SYMBOL;
  67601. } else {
  67602. stridx = DUK_STRIDX_LC_STRING;
  67603. }
  67604. break;
  67605. }
  67606. case DUK_TAG_OBJECT: {
  67607. duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv_x);
  67608. DUK_ASSERT(obj != NULL);
  67609. if (DUK_HOBJECT_IS_CALLABLE(obj)) {
  67610. stridx = DUK_STRIDX_LC_FUNCTION;
  67611. } else {
  67612. stridx = DUK_STRIDX_LC_OBJECT;
  67613. }
  67614. break;
  67615. }
  67616. case DUK_TAG_BUFFER: {
  67617. /* Implementation specific. In Duktape 1.x this would be
  67618. * 'buffer', in Duktape 2.x changed to 'object' because plain
  67619. * buffers now mimic Uint8Array objects.
  67620. */
  67621. stridx = DUK_STRIDX_LC_OBJECT;
  67622. break;
  67623. }
  67624. case DUK_TAG_LIGHTFUNC: {
  67625. stridx = DUK_STRIDX_LC_FUNCTION;
  67626. break;
  67627. }
  67628. #if defined(DUK_USE_FASTINT)
  67629. case DUK_TAG_FASTINT:
  67630. #endif
  67631. default: {
  67632. /* number */
  67633. DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_x));
  67634. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_x));
  67635. stridx = DUK_STRIDX_LC_NUMBER;
  67636. break;
  67637. }
  67638. }
  67639. DUK_ASSERT_STRIDX_VALID(stridx);
  67640. return stridx;
  67641. }
  67642. /*
  67643. * Array index and length
  67644. *
  67645. * Array index: E5 Section 15.4
  67646. * Array length: E5 Section 15.4.5.1 steps 3.c - 3.d (array length write)
  67647. */
  67648. /* Compure array index from string context, or return a "not array index"
  67649. * indicator.
  67650. */
  67651. DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_string(const duk_uint8_t *str, duk_uint32_t blen) {
  67652. duk_uarridx_t res;
  67653. /* Only strings with byte length 1-10 can be 32-bit array indices.
  67654. * Leading zeroes (except '0' alone), plus/minus signs are not allowed.
  67655. * We could do a lot of prechecks here, but since most strings won't
  67656. * start with any digits, it's simpler to just parse the number and
  67657. * fail quickly.
  67658. */
  67659. res = 0;
  67660. if (blen == 0) {
  67661. goto parse_fail;
  67662. }
  67663. do {
  67664. duk_uarridx_t dig;
  67665. dig = (duk_uarridx_t) (*str++) - DUK_ASC_0;
  67666. if (dig <= 9U) {
  67667. /* Careful overflow handling. When multiplying by 10:
  67668. * - 0x19999998 x 10 = 0xfffffff0: no overflow, and adding
  67669. * 0...9 is safe.
  67670. * - 0x19999999 x 10 = 0xfffffffa: no overflow, adding
  67671. * 0...5 is safe, 6...9 overflows.
  67672. * - 0x1999999a x 10 = 0x100000004: always overflow.
  67673. */
  67674. if (DUK_UNLIKELY(res >= 0x19999999UL)) {
  67675. if (res >= 0x1999999aUL) {
  67676. /* Always overflow. */
  67677. goto parse_fail;
  67678. }
  67679. DUK_ASSERT(res == 0x19999999UL);
  67680. if (dig >= 6U) {
  67681. goto parse_fail;
  67682. }
  67683. res = 0xfffffffaUL + dig;
  67684. DUK_ASSERT(res >= 0xfffffffaUL);
  67685. DUK_ASSERT_DISABLE(res <= 0xffffffffUL); /* range */
  67686. } else {
  67687. res = res * 10U + dig;
  67688. if (DUK_UNLIKELY(res == 0)) {
  67689. /* If 'res' is 0, previous 'res' must
  67690. * have been 0 and we scanned in a zero.
  67691. * This is only allowed if blen == 1,
  67692. * i.e. the exact string '0'.
  67693. */
  67694. if (blen == (duk_uint32_t) 1) {
  67695. return 0;
  67696. }
  67697. goto parse_fail;
  67698. }
  67699. }
  67700. } else {
  67701. /* Because 'dig' is unsigned, catches both values
  67702. * above '9' and below '0'.
  67703. */
  67704. goto parse_fail;
  67705. }
  67706. } while (--blen > 0);
  67707. return res;
  67708. parse_fail:
  67709. return DUK_HSTRING_NO_ARRAY_INDEX;
  67710. }
  67711. #if !defined(DUK_USE_HSTRING_ARRIDX)
  67712. /* Get array index for a string which is known to be an array index. This helper
  67713. * is needed when duk_hstring doesn't concretely store the array index, but strings
  67714. * are flagged as array indices at intern time.
  67715. */
  67716. DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_hstring_fast_known(duk_hstring *h) {
  67717. const duk_uint8_t *p;
  67718. duk_uarridx_t res;
  67719. duk_uint8_t t;
  67720. DUK_ASSERT(h != NULL);
  67721. DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(h));
  67722. p = DUK_HSTRING_GET_DATA(h);
  67723. res = 0;
  67724. for (;;) {
  67725. t = *p++;
  67726. if (DUK_UNLIKELY(t == 0)) {
  67727. /* Scanning to NUL is always safe for interned strings. */
  67728. break;
  67729. }
  67730. DUK_ASSERT(t >= (duk_uint8_t) DUK_ASC_0 && t <= (duk_uint8_t) DUK_ASC_9);
  67731. res = res * 10U + (duk_uarridx_t) t - (duk_uarridx_t) DUK_ASC_0;
  67732. }
  67733. return res;
  67734. }
  67735. DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_hstring_fast(duk_hstring *h) {
  67736. DUK_ASSERT(h != NULL);
  67737. if (!DUK_HSTRING_HAS_ARRIDX(h)) {
  67738. return DUK_HSTRING_NO_ARRAY_INDEX;
  67739. }
  67740. return duk_js_to_arrayindex_hstring_fast_known(h);
  67741. }
  67742. #endif /* DUK_USE_HSTRING_ARRIDX */
  67743. #line 1 "duk_js_var.c"
  67744. /*
  67745. * Identifier access and function closure handling.
  67746. *
  67747. * Provides the primitives for slow path identifier accesses: GETVAR,
  67748. * PUTVAR, DELVAR, etc. The fast path, direct register accesses, should
  67749. * be used for most identifier accesses. Consequently, these slow path
  67750. * primitives should be optimized for maximum compactness.
  67751. *
  67752. * Ecmascript environment records (declarative and object) are represented
  67753. * as internal objects with control keys. Environment records have a
  67754. * parent record ("outer environment reference") which is represented by
  67755. * the implicit prototype for technical reasons (in other words, it is a
  67756. * convenient field). The prototype chain is not followed in the ordinary
  67757. * sense for variable lookups.
  67758. *
  67759. * See identifier-handling.rst for more details on the identifier algorithms
  67760. * and the internal representation. See function-objects.rst for details on
  67761. * what function templates and instances are expected to look like.
  67762. *
  67763. * Care must be taken to avoid duk_tval pointer invalidation caused by
  67764. * e.g. value stack or object resizing.
  67765. *
  67766. * TODO: properties for function instances could be initialized much more
  67767. * efficiently by creating a property allocation for a certain size and
  67768. * filling in keys and values directly (and INCREFing both with "bulk incref"
  67769. * primitives.
  67770. *
  67771. * XXX: duk_hobject_getprop() and duk_hobject_putprop() calls are a bit
  67772. * awkward (especially because they follow the prototype chain); rework
  67773. * if "raw" own property helpers are added.
  67774. */
  67775. /* #include duk_internal.h -> already included */
  67776. /*
  67777. * Local result type for duk__get_identifier_reference() lookup.
  67778. */
  67779. typedef struct {
  67780. duk_hobject *env;
  67781. duk_hobject *holder; /* for object-bound identifiers */
  67782. duk_tval *value; /* for register-bound and declarative env identifiers */
  67783. duk_uint_t attrs; /* property attributes for identifier (relevant if value != NULL) */
  67784. duk_bool_t has_this; /* for object-bound identifiers: provide 'this' binding */
  67785. } duk__id_lookup_result;
  67786. /*
  67787. * Create a new function object based on a "template function" which contains
  67788. * compiled bytecode, constants, etc, but lacks a lexical environment.
  67789. *
  67790. * Ecmascript requires that each created closure is a separate object, with
  67791. * its own set of editable properties. However, structured property values
  67792. * (such as the formal arguments list and the variable map) are shared.
  67793. * Also the bytecode, constants, and inner functions are shared.
  67794. *
  67795. * See E5 Section 13.2 for detailed requirements on the function objects;
  67796. * there are no similar requirements for function "templates" which are an
  67797. * implementation dependent internal feature. Also see function-objects.rst
  67798. * for a discussion on the function instance properties provided by this
  67799. * implementation.
  67800. *
  67801. * Notes:
  67802. *
  67803. * * Order of internal properties should match frequency of use, since the
  67804. * properties will be linearly scanned on lookup (functions usually don't
  67805. * have enough properties to warrant a hash part).
  67806. *
  67807. * * The created closure is independent of its template; they do share the
  67808. * same 'data' buffer object, but the template object itself can be freed
  67809. * even if the closure object remains reachable.
  67810. */
  67811. DUK_LOCAL void duk__inc_data_inner_refcounts(duk_hthread *thr, duk_hcompfunc *f) {
  67812. duk_tval *tv, *tv_end;
  67813. duk_hobject **funcs, **funcs_end;
  67814. DUK_UNREF(thr);
  67815. /* If function creation fails due to out-of-memory, the data buffer
  67816. * pointer may be NULL in some cases. That's actually possible for
  67817. * GC code, but shouldn't be possible here because the incomplete
  67818. * function will be unwound from the value stack and never instantiated.
  67819. */
  67820. DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, f) != NULL);
  67821. tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, f);
  67822. tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, f);
  67823. while (tv < tv_end) {
  67824. DUK_TVAL_INCREF(thr, tv);
  67825. tv++;
  67826. }
  67827. funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, f);
  67828. funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, f);
  67829. while (funcs < funcs_end) {
  67830. DUK_HEAPHDR_INCREF(thr, (duk_heaphdr *) *funcs);
  67831. funcs++;
  67832. }
  67833. }
  67834. /* Push a new closure on the stack.
  67835. *
  67836. * Note: if fun_temp has NEWENV, i.e. a new lexical and variable declaration
  67837. * is created when the function is called, only outer_lex_env matters
  67838. * (outer_var_env is ignored and may or may not be same as outer_lex_env).
  67839. */
  67840. DUK_LOCAL const duk_uint16_t duk__closure_copy_proplist[] = {
  67841. /* order: most frequent to least frequent */
  67842. DUK_STRIDX_INT_VARMAP,
  67843. DUK_STRIDX_INT_FORMALS,
  67844. #if defined(DUK_USE_PC2LINE)
  67845. DUK_STRIDX_INT_PC2LINE,
  67846. #endif
  67847. #if defined(DUK_USE_FUNC_FILENAME_PROPERTY)
  67848. DUK_STRIDX_FILE_NAME,
  67849. #endif
  67850. #if defined(DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY)
  67851. DUK_STRIDX_INT_SOURCE
  67852. #endif
  67853. };
  67854. DUK_INTERNAL
  67855. void duk_js_push_closure(duk_hthread *thr,
  67856. duk_hcompfunc *fun_temp,
  67857. duk_hobject *outer_var_env,
  67858. duk_hobject *outer_lex_env,
  67859. duk_bool_t add_auto_proto) {
  67860. duk_hcompfunc *fun_clos;
  67861. duk_small_uint_t i;
  67862. duk_uint_t len_value;
  67863. DUK_ASSERT(fun_temp != NULL);
  67864. DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_temp) != NULL);
  67865. DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_temp) != NULL);
  67866. DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_temp) != NULL);
  67867. DUK_ASSERT(outer_var_env != NULL);
  67868. DUK_ASSERT(outer_lex_env != NULL);
  67869. DUK_UNREF(len_value);
  67870. fun_clos = duk_push_hcompfunc(thr);
  67871. DUK_ASSERT(fun_clos != NULL);
  67872. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) fun_clos) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  67873. duk_push_hobject(thr, &fun_temp->obj); /* -> [ ... closure template ] */
  67874. DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun_clos));
  67875. DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos) == NULL);
  67876. DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_clos) == NULL);
  67877. DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_clos) == NULL);
  67878. DUK_HCOMPFUNC_SET_DATA(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_temp));
  67879. DUK_HCOMPFUNC_SET_FUNCS(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_temp));
  67880. DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_temp));
  67881. /* Note: all references inside 'data' need to get their refcounts
  67882. * upped too. This is the case because refcounts are decreased
  67883. * through every function referencing 'data' independently.
  67884. */
  67885. DUK_HBUFFER_INCREF(thr, DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos));
  67886. duk__inc_data_inner_refcounts(thr, fun_temp);
  67887. fun_clos->nregs = fun_temp->nregs;
  67888. fun_clos->nargs = fun_temp->nargs;
  67889. #if defined(DUK_USE_DEBUGGER_SUPPORT)
  67890. fun_clos->start_line = fun_temp->start_line;
  67891. fun_clos->end_line = fun_temp->end_line;
  67892. #endif
  67893. DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos) != NULL);
  67894. DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_clos) != NULL);
  67895. DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_clos) != NULL);
  67896. /* XXX: Could also copy from template, but there's no way to have any
  67897. * other value here now (used code has no access to the template).
  67898. * Prototype is set by duk_push_hcompfunc().
  67899. */
  67900. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, &fun_clos->obj) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  67901. #if 0
  67902. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, &fun_clos->obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  67903. #endif
  67904. /* Copy duk_hobject flags as is from the template using a mask.
  67905. * Leave out duk_heaphdr owned flags just in case (e.g. if there's
  67906. * some GC flag or similar). Some flags can then be adjusted
  67907. * separately if necessary.
  67908. */
  67909. /* DUK_HEAPHDR_SET_FLAGS() masks changes to non-duk_heaphdr flags only. */
  67910. DUK_HEAPHDR_SET_FLAGS((duk_heaphdr *) fun_clos, DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_temp));
  67911. DUK_DD(DUK_DDPRINT("fun_temp heaphdr flags: 0x%08lx, fun_clos heaphdr flags: 0x%08lx",
  67912. (unsigned long) DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_temp),
  67913. (unsigned long) DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_clos)));
  67914. DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(&fun_clos->obj));
  67915. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&fun_clos->obj));
  67916. DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(&fun_clos->obj));
  67917. DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(&fun_clos->obj));
  67918. DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(&fun_clos->obj));
  67919. /* DUK_HOBJECT_FLAG_ARRAY_PART: don't care */
  67920. /* DUK_HOBJECT_FLAG_NEWENV: handled below */
  67921. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(&fun_clos->obj));
  67922. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(&fun_clos->obj));
  67923. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(&fun_clos->obj));
  67924. if (!DUK_HOBJECT_HAS_CONSTRUCTABLE(&fun_clos->obj)) {
  67925. /* If the template is not constructable don't add an automatic
  67926. * .prototype property. This is the case for e.g. ES2015 object
  67927. * literal getters/setters and method definitions.
  67928. */
  67929. add_auto_proto = 0;
  67930. }
  67931. /*
  67932. * Setup environment record properties based on the template and
  67933. * its flags.
  67934. *
  67935. * If DUK_HOBJECT_HAS_NEWENV(fun_temp) is true, the environment
  67936. * records represent identifiers "outside" the function; the
  67937. * "inner" environment records are created on demand. Otherwise,
  67938. * the environment records are those that will be directly used
  67939. * (e.g. for declarations).
  67940. *
  67941. * _Lexenv is always set; _Varenv defaults to _Lexenv if missing,
  67942. * so _Varenv is only set if _Lexenv != _Varenv.
  67943. *
  67944. * This is relatively complex, see doc/identifier-handling.rst.
  67945. */
  67946. if (DUK_HOBJECT_HAS_NEWENV(&fun_clos->obj)) {
  67947. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  67948. if (DUK_HOBJECT_HAS_NAMEBINDING(&fun_clos->obj)) {
  67949. duk_hobject *proto;
  67950. duk_hdecenv *new_env;
  67951. /*
  67952. * Named function expression, name needs to be bound
  67953. * in an intermediate environment record. The "outer"
  67954. * lexical/variable environment will thus be:
  67955. *
  67956. * a) { funcname: <func>, __prototype: outer_lex_env }
  67957. * b) { funcname: <func>, __prototype: <globalenv> } (if outer_lex_env missing)
  67958. */
  67959. if (outer_lex_env) {
  67960. proto = outer_lex_env;
  67961. } else {
  67962. proto = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  67963. }
  67964. /* -> [ ... closure template env ] */
  67965. new_env = duk_hdecenv_alloc(thr,
  67966. DUK_HOBJECT_FLAG_EXTENSIBLE |
  67967. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV));
  67968. DUK_ASSERT(new_env != NULL);
  67969. duk_push_hobject(thr, (duk_hobject *) new_env);
  67970. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL);
  67971. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, proto);
  67972. DUK_HOBJECT_INCREF_ALLOWNULL(thr, proto);
  67973. DUK_ASSERT(new_env->thread == NULL); /* Closed. */
  67974. DUK_ASSERT(new_env->varmap == NULL);
  67975. /* It's important that duk_xdef_prop() is a 'raw define' so that any
  67976. * properties in an ancestor are never an issue (they should never be
  67977. * e.g. non-writable, but just in case).
  67978. *
  67979. * Because template objects are not visible to user code, the case
  67980. * where .name is missing shouldn't happen in practice. It it does,
  67981. * the name 'undefined' gets bound and maps to the closure (which is
  67982. * a bit odd, but safe).
  67983. */
  67984. (void) duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME);
  67985. /* -> [ ... closure template env funcname ] */
  67986. duk_dup_m4(thr); /* -> [ ... closure template env funcname closure ] */
  67987. duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_NONE); /* -> [ ... closure template env ] */
  67988. /* env[funcname] = closure */
  67989. /* [ ... closure template env ] */
  67990. DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, (duk_hobject *) new_env);
  67991. DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, (duk_hobject *) new_env);
  67992. DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env);
  67993. DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env);
  67994. duk_pop_unsafe(thr);
  67995. /* [ ... closure template ] */
  67996. }
  67997. else
  67998. #endif /* DUK_USE_FUNC_NAME_PROPERTY */
  67999. {
  68000. /*
  68001. * Other cases (function declaration, anonymous function expression,
  68002. * strict direct eval code). The "outer" environment will be whatever
  68003. * the caller gave us.
  68004. */
  68005. DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, outer_lex_env);
  68006. DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, outer_lex_env);
  68007. DUK_HOBJECT_INCREF(thr, outer_lex_env);
  68008. DUK_HOBJECT_INCREF(thr, outer_lex_env);
  68009. /* [ ... closure template ] */
  68010. }
  68011. } else {
  68012. /*
  68013. * Function gets no new environment when called. This is the
  68014. * case for global code, indirect eval code, and non-strict
  68015. * direct eval code. There is no direct correspondence to the
  68016. * E5 specification, as global/eval code is not exposed as a
  68017. * function.
  68018. */
  68019. DUK_ASSERT(!DUK_HOBJECT_HAS_NAMEBINDING(&fun_temp->obj));
  68020. DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, outer_lex_env);
  68021. DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, outer_var_env);
  68022. DUK_HOBJECT_INCREF(thr, outer_lex_env); /* NULLs not allowed; asserted on entry */
  68023. DUK_HOBJECT_INCREF(thr, outer_var_env);
  68024. }
  68025. DUK_DDD(DUK_DDDPRINT("closure varenv -> %!ipO, lexenv -> %!ipO",
  68026. (duk_heaphdr *) fun_clos->var_env,
  68027. (duk_heaphdr *) fun_clos->lex_env));
  68028. /* Call handling assumes this for all callable closures. */
  68029. DUK_ASSERT(DUK_HCOMPFUNC_GET_LEXENV(thr->heap, fun_clos) != NULL);
  68030. DUK_ASSERT(DUK_HCOMPFUNC_GET_VARENV(thr->heap, fun_clos) != NULL);
  68031. /*
  68032. * Copy some internal properties directly
  68033. *
  68034. * The properties will be non-writable and non-enumerable, but
  68035. * configurable.
  68036. */
  68037. /* [ ... closure template ] */
  68038. DUK_DDD(DUK_DDDPRINT("copying properties: closure=%!iT, template=%!iT",
  68039. (duk_tval *) duk_get_tval(thr, -2),
  68040. (duk_tval *) duk_get_tval(thr, -1)));
  68041. for (i = 0; i < (duk_small_uint_t) (sizeof(duk__closure_copy_proplist) / sizeof(duk_uint16_t)); i++) {
  68042. duk_small_int_t stridx = (duk_small_int_t) duk__closure_copy_proplist[i];
  68043. if (duk_get_prop_stridx_short(thr, -1, stridx)) {
  68044. /* [ ... closure template val ] */
  68045. DUK_DDD(DUK_DDDPRINT("copying property, stridx=%ld -> found", (long) stridx));
  68046. duk_xdef_prop_stridx_short(thr, -3, stridx, DUK_PROPDESC_FLAGS_C);
  68047. } else {
  68048. DUK_DDD(DUK_DDDPRINT("copying property, stridx=%ld -> not found", (long) stridx));
  68049. duk_pop_unsafe(thr);
  68050. }
  68051. }
  68052. /*
  68053. * "length" maps to number of formals (E5 Section 13.2) for function
  68054. * declarations/expressions (non-bound functions). Note that 'nargs'
  68055. * is NOT necessarily equal to the number of arguments. Use length
  68056. * of _Formals; if missing, assume nargs matches .length.
  68057. */
  68058. /* [ ... closure template ] */
  68059. /* XXX: these lookups should be just own property lookups instead of
  68060. * looking up the inheritance chain.
  68061. */
  68062. if (duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_FORMALS)) {
  68063. /* [ ... closure template formals ] */
  68064. len_value = (duk_uint_t) duk_get_length(thr, -1); /* could access duk_harray directly, not important */
  68065. DUK_DD(DUK_DDPRINT("closure length from _Formals -> %ld", (long) len_value));
  68066. } else {
  68067. len_value = fun_temp->nargs;
  68068. DUK_DD(DUK_DDPRINT("closure length defaulted from nargs -> %ld", (long) len_value));
  68069. }
  68070. duk_pop_unsafe(thr);
  68071. duk_push_uint(thr, len_value); /* [ ... closure template len_value ] */
  68072. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C);
  68073. /*
  68074. * "prototype" is, by default, a fresh object with the "constructor"
  68075. * property.
  68076. *
  68077. * Note that this creates a circular reference for every function
  68078. * instance (closure) which prevents refcount-based collection of
  68079. * function instances.
  68080. *
  68081. * XXX: Try to avoid creating the default prototype object, because
  68082. * many functions are not used as constructors and the default
  68083. * prototype is unnecessary. Perhaps it could be created on-demand
  68084. * when it is first accessed?
  68085. */
  68086. /* [ ... closure template ] */
  68087. if (add_auto_proto) {
  68088. duk_push_object(thr); /* -> [ ... closure template newobj ] */
  68089. duk_dup_m3(thr); /* -> [ ... closure template newobj closure ] */
  68090. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC); /* -> [ ... closure template newobj ] */
  68091. duk_compact(thr, -1); /* compact the prototype */
  68092. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_W); /* -> [ ... closure template ] */
  68093. }
  68094. /*
  68095. * "arguments" and "caller" must be mapped to throwers for strict
  68096. * mode and bound functions (E5 Section 15.3.5).
  68097. *
  68098. * XXX: This is expensive to have for every strict function instance.
  68099. * Try to implement as virtual properties or on-demand created properties.
  68100. */
  68101. /* [ ... closure template ] */
  68102. if (DUK_HOBJECT_HAS_STRICT(&fun_clos->obj)) {
  68103. duk_xdef_prop_stridx_thrower(thr, -2, DUK_STRIDX_CALLER);
  68104. duk_xdef_prop_stridx_thrower(thr, -2, DUK_STRIDX_LC_ARGUMENTS);
  68105. } else {
  68106. #if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY)
  68107. DUK_DDD(DUK_DDDPRINT("function is non-strict and non-standard 'caller' property in use, add initial 'null' value"));
  68108. duk_push_null(thr);
  68109. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_CALLER, DUK_PROPDESC_FLAGS_NONE);
  68110. #else
  68111. DUK_DDD(DUK_DDDPRINT("function is non-strict and non-standard 'caller' property not used"));
  68112. #endif
  68113. }
  68114. /*
  68115. * "name" used to be non-standard but is now defined by ES2015.
  68116. * In ES2015/ES2016 the .name property is configurable.
  68117. */
  68118. /* [ ... closure template ] */
  68119. #if defined(DUK_USE_FUNC_NAME_PROPERTY)
  68120. /* XXX: Look for own property only; doesn't matter much because
  68121. * templates are bare objects.
  68122. */
  68123. if (duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME)) {
  68124. /* [ ... closure template name ] */
  68125. DUK_ASSERT(duk_is_string(thr, -1));
  68126. DUK_DD(DUK_DDPRINT("setting function instance name to %!T", duk_get_tval(thr, -1)));
  68127. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); /* -> [ ... closure template ] */
  68128. } else {
  68129. /* Anonymous functions don't have a .name in ES2015, so don't set
  68130. * it on the instance either. The instance will then inherit
  68131. * it from Function.prototype.name.
  68132. */
  68133. DUK_DD(DUK_DDPRINT("not setting function instance .name"));
  68134. duk_pop_unsafe(thr);
  68135. }
  68136. #endif
  68137. /*
  68138. * Compact the closure, in most cases no properties will be added later.
  68139. * Also, without this the closures end up having unused property slots
  68140. * (e.g. in Duktape 0.9.0, 8 slots would be allocated and only 7 used).
  68141. * A better future solution would be to allocate the closure directly
  68142. * to correct size (and setup the properties directly without going
  68143. * through the API).
  68144. */
  68145. duk_compact(thr, -2);
  68146. /*
  68147. * Some assertions (E5 Section 13.2).
  68148. */
  68149. DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(&fun_clos->obj) == DUK_HOBJECT_CLASS_FUNCTION);
  68150. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, &fun_clos->obj) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]);
  68151. DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(&fun_clos->obj));
  68152. DUK_ASSERT(duk_has_prop_stridx(thr, -2, DUK_STRIDX_LENGTH) != 0);
  68153. DUK_ASSERT(add_auto_proto == 0 || duk_has_prop_stridx(thr, -2, DUK_STRIDX_PROTOTYPE) != 0);
  68154. /* May be missing .name */
  68155. DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(&fun_clos->obj) ||
  68156. duk_has_prop_stridx(thr, -2, DUK_STRIDX_CALLER) != 0);
  68157. DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(&fun_clos->obj) ||
  68158. duk_has_prop_stridx(thr, -2, DUK_STRIDX_LC_ARGUMENTS) != 0);
  68159. /*
  68160. * Finish
  68161. */
  68162. /* [ ... closure template ] */
  68163. DUK_DDD(DUK_DDDPRINT("created function instance: template=%!iT -> closure=%!iT",
  68164. (duk_tval *) duk_get_tval(thr, -1),
  68165. (duk_tval *) duk_get_tval(thr, -2)));
  68166. duk_pop_unsafe(thr);
  68167. /* [ ... closure ] */
  68168. }
  68169. /*
  68170. * Delayed activation environment record initialization (for functions
  68171. * with NEWENV).
  68172. *
  68173. * The non-delayed initialization is handled by duk_handle_call().
  68174. */
  68175. /* shared helper */
  68176. DUK_INTERNAL
  68177. duk_hobject *duk_create_activation_environment_record(duk_hthread *thr,
  68178. duk_hobject *func,
  68179. duk_size_t bottom_byteoff) {
  68180. duk_hdecenv *env;
  68181. duk_hobject *parent;
  68182. duk_hcompfunc *f;
  68183. DUK_ASSERT(thr != NULL);
  68184. DUK_ASSERT(func != NULL);
  68185. f = (duk_hcompfunc *) func;
  68186. parent = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f);
  68187. if (!parent) {
  68188. parent = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  68189. }
  68190. env = duk_hdecenv_alloc(thr,
  68191. DUK_HOBJECT_FLAG_EXTENSIBLE |
  68192. DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV));
  68193. DUK_ASSERT(env != NULL);
  68194. duk_push_hobject(thr, (duk_hobject *) env);
  68195. DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL);
  68196. DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) env, parent);
  68197. DUK_HOBJECT_INCREF_ALLOWNULL(thr, parent); /* parent env is the prototype */
  68198. /* open scope information, for compiled functions only */
  68199. DUK_ASSERT(env->thread == NULL);
  68200. DUK_ASSERT(env->varmap == NULL);
  68201. DUK_ASSERT(env->regbase_byteoff == 0);
  68202. if (DUK_HOBJECT_IS_COMPFUNC(func)) {
  68203. duk_hobject *varmap;
  68204. duk_tval *tv;
  68205. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, func, DUK_HTHREAD_STRING_INT_VARMAP(thr));
  68206. if (tv != NULL && DUK_TVAL_IS_OBJECT(tv)) {
  68207. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv));
  68208. varmap = DUK_TVAL_GET_OBJECT(tv);
  68209. DUK_ASSERT(varmap != NULL);
  68210. env->varmap = varmap;
  68211. DUK_HOBJECT_INCREF(thr, varmap);
  68212. env->thread = thr;
  68213. DUK_HTHREAD_INCREF(thr, thr);
  68214. env->regbase_byteoff = bottom_byteoff;
  68215. } else {
  68216. /* If function has no _Varmap, leave the environment closed. */
  68217. DUK_ASSERT(env->thread == NULL);
  68218. DUK_ASSERT(env->varmap == NULL);
  68219. DUK_ASSERT(env->regbase_byteoff == 0);
  68220. }
  68221. }
  68222. return (duk_hobject *) env;
  68223. }
  68224. DUK_INTERNAL
  68225. void duk_js_init_activation_environment_records_delayed(duk_hthread *thr,
  68226. duk_activation *act) {
  68227. duk_hobject *func;
  68228. duk_hobject *env;
  68229. DUK_ASSERT(thr != NULL);
  68230. func = DUK_ACT_GET_FUNC(act);
  68231. DUK_ASSERT(func != NULL);
  68232. DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound functions are never in act 'func' */
  68233. /*
  68234. * Delayed initialization only occurs for 'NEWENV' functions.
  68235. */
  68236. DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func));
  68237. DUK_ASSERT(act->lex_env == NULL);
  68238. DUK_ASSERT(act->var_env == NULL);
  68239. env = duk_create_activation_environment_record(thr, func, act->bottom_byteoff);
  68240. DUK_ASSERT(env != NULL);
  68241. /* 'act' is a stable pointer, so still OK. */
  68242. DUK_DDD(DUK_DDDPRINT("created delayed fresh env: %!ipO", (duk_heaphdr *) env));
  68243. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  68244. {
  68245. duk_hobject *p = env;
  68246. while (p) {
  68247. DUK_DDD(DUK_DDDPRINT(" -> %!ipO", (duk_heaphdr *) p));
  68248. p = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, p);
  68249. }
  68250. }
  68251. #endif
  68252. act->lex_env = env;
  68253. act->var_env = env;
  68254. DUK_HOBJECT_INCREF(thr, env); /* XXX: incref by count (here 2 times) */
  68255. DUK_HOBJECT_INCREF(thr, env);
  68256. duk_pop_unsafe(thr);
  68257. }
  68258. /*
  68259. * Closing environment records.
  68260. *
  68261. * The environment record MUST be closed with the thread where its activation
  68262. * is; i.e. if 'env' is open, 'thr' must match env->thread, and the regbase
  68263. * and varmap must still be valid. On entry, 'env' must be reachable.
  68264. */
  68265. DUK_INTERNAL void duk_js_close_environment_record(duk_hthread *thr, duk_hobject *env) {
  68266. duk_uint_fast32_t i;
  68267. duk_hobject *varmap;
  68268. duk_hstring *key;
  68269. duk_tval *tv;
  68270. duk_uint_t regnum;
  68271. DUK_ASSERT(thr != NULL);
  68272. DUK_ASSERT(env != NULL);
  68273. if (DUK_UNLIKELY(!DUK_HOBJECT_IS_DECENV(env))) {
  68274. DUK_DDD(DUK_DDDPRINT("env not a declarative record: %!iO", (duk_heaphdr *) env));
  68275. return;
  68276. }
  68277. varmap = ((duk_hdecenv *) env)->varmap;
  68278. if (varmap == NULL) {
  68279. DUK_DDD(DUK_DDDPRINT("env already closed: %!iO", (duk_heaphdr *) env));
  68280. return;
  68281. }
  68282. DUK_ASSERT(((duk_hdecenv *) env)->thread != NULL);
  68283. DUK_ASSERT_HDECENV_VALID((duk_hdecenv *) env);
  68284. DUK_DDD(DUK_DDDPRINT("closing env: %!iO", (duk_heaphdr *) env));
  68285. DUK_DDD(DUK_DDDPRINT("varmap: %!O", (duk_heaphdr *) varmap));
  68286. /* Env must be closed in the same thread as where it runs. */
  68287. DUK_ASSERT(((duk_hdecenv *) env)->thread == thr);
  68288. /* XXX: additional conditions when to close variables? we don't want to do it
  68289. * unless the environment may have "escaped" (referenced in a function closure).
  68290. * With delayed environments, the existence is probably good enough of a check.
  68291. */
  68292. /* Note: we rely on the _Varmap having a bunch of nice properties, like:
  68293. * - being compacted and unmodified during this process
  68294. * - not containing an array part
  68295. * - having correct value types
  68296. */
  68297. DUK_DDD(DUK_DDDPRINT("copying bound register values, %ld bound regs", (long) DUK_HOBJECT_GET_ENEXT(varmap)));
  68298. /* Copy over current variable values from value stack to the
  68299. * environment record. The scope object is empty but may
  68300. * inherit from another scope which has conflicting names.
  68301. */
  68302. /* XXX: Do this using a once allocated entry area, no side effects.
  68303. * Hash part would need special treatment however (maybe copy, and
  68304. * then realloc with hash part if large enough).
  68305. */
  68306. for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(varmap); i++) {
  68307. duk_size_t regbase_byteoff;
  68308. key = DUK_HOBJECT_E_GET_KEY(thr->heap, varmap, i);
  68309. DUK_ASSERT(key != NULL); /* assume keys are compact in _Varmap */
  68310. DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, varmap, i)); /* assume plain values */
  68311. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, varmap, i);
  68312. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  68313. DUK_ASSERT(DUK_TVAL_GET_NUMBER(tv) <= (duk_double_t) DUK_UINT32_MAX); /* limits */
  68314. #if defined(DUK_USE_FASTINT)
  68315. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv));
  68316. regnum = (duk_uint_t) DUK_TVAL_GET_FASTINT_U32(tv);
  68317. #else
  68318. regnum = (duk_uint_t) DUK_TVAL_GET_NUMBER(tv);
  68319. #endif
  68320. regbase_byteoff = ((duk_hdecenv *) env)->regbase_byteoff;
  68321. DUK_ASSERT((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum >= (duk_uint8_t *) thr->valstack);
  68322. DUK_ASSERT((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum < (duk_uint8_t *) thr->valstack_top);
  68323. /* If property already exists, overwrites silently.
  68324. * Property is writable, but not deletable (not configurable
  68325. * in terms of property attributes).
  68326. */
  68327. duk_push_tval(thr, (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum));
  68328. DUK_DDD(DUK_DDDPRINT("closing identifier %!O -> reg %ld, value %!T",
  68329. (duk_heaphdr *) key,
  68330. (long) regnum,
  68331. (duk_tval *) duk_get_tval(thr, -1)));
  68332. duk_hobject_define_property_internal(thr, env, key, DUK_PROPDESC_FLAGS_WE);
  68333. }
  68334. /* NULL atomically to avoid inconsistent state + side effects. */
  68335. DUK_HOBJECT_DECREF_NORZ(thr, ((duk_hdecenv *) env)->thread);
  68336. DUK_HOBJECT_DECREF_NORZ(thr, ((duk_hdecenv *) env)->varmap);
  68337. ((duk_hdecenv *) env)->thread = NULL;
  68338. ((duk_hdecenv *) env)->varmap = NULL;
  68339. DUK_DDD(DUK_DDDPRINT("env after closing: %!O", (duk_heaphdr *) env));
  68340. }
  68341. /*
  68342. * GETIDREF: a GetIdentifierReference-like helper.
  68343. *
  68344. * Provides a parent traversing lookup and a single level lookup
  68345. * (for HasBinding).
  68346. *
  68347. * Instead of returning the value, returns a bunch of values allowing
  68348. * the caller to read, write, or delete the binding. Value pointers
  68349. * are duk_tval pointers which can be mutated directly as long as
  68350. * refcounts are properly updated. Note that any operation which may
  68351. * reallocate valstacks or compact objects may invalidate the returned
  68352. * duk_tval (but not object) pointers, so caller must be very careful.
  68353. *
  68354. * If starting environment record 'env' is given, 'act' is ignored.
  68355. * However, if 'env' is NULL, the caller may identify, in 'act', an
  68356. * activation which hasn't had its declarative environment initialized
  68357. * yet. The activation registers are then looked up, and its parent
  68358. * traversed normally.
  68359. *
  68360. * The 'out' structure values are only valid if the function returns
  68361. * success (non-zero).
  68362. */
  68363. /* lookup name from an open declarative record's registers */
  68364. DUK_LOCAL
  68365. duk_bool_t duk__getid_open_decl_env_regs(duk_hthread *thr,
  68366. duk_hstring *name,
  68367. duk_hdecenv *env,
  68368. duk__id_lookup_result *out) {
  68369. duk_tval *tv;
  68370. duk_size_t reg_rel;
  68371. DUK_ASSERT(thr != NULL);
  68372. DUK_ASSERT(name != NULL);
  68373. DUK_ASSERT(env != NULL);
  68374. DUK_ASSERT(out != NULL);
  68375. DUK_ASSERT(DUK_HOBJECT_IS_DECENV((duk_hobject *) env));
  68376. DUK_ASSERT_HDECENV_VALID(env);
  68377. if (env->thread == NULL) {
  68378. /* already closed */
  68379. return 0;
  68380. }
  68381. DUK_ASSERT(env->varmap != NULL);
  68382. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, env->varmap, name);
  68383. if (DUK_UNLIKELY(tv == NULL)) {
  68384. return 0;
  68385. }
  68386. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  68387. DUK_ASSERT(DUK_TVAL_GET_NUMBER(tv) <= (duk_double_t) DUK_UINT32_MAX); /* limits */
  68388. #if defined(DUK_USE_FASTINT)
  68389. DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv));
  68390. reg_rel = (duk_size_t) DUK_TVAL_GET_FASTINT_U32(tv);
  68391. #else
  68392. reg_rel = (duk_size_t) DUK_TVAL_GET_NUMBER(tv);
  68393. #endif
  68394. DUK_ASSERT_DISABLE(reg_rel >= 0); /* unsigned */
  68395. tv = (duk_tval *) (void *) ((duk_uint8_t *) env->thread->valstack + env->regbase_byteoff + sizeof(duk_tval) * reg_rel);
  68396. DUK_ASSERT(tv >= env->thread->valstack && tv < env->thread->valstack_end); /* XXX: more accurate? */
  68397. out->value = tv;
  68398. out->attrs = DUK_PROPDESC_FLAGS_W; /* registers are mutable, non-deletable */
  68399. out->env = (duk_hobject *) env;
  68400. out->holder = NULL;
  68401. out->has_this = 0;
  68402. return 1;
  68403. }
  68404. /* lookup name from current activation record's functions' registers */
  68405. DUK_LOCAL
  68406. duk_bool_t duk__getid_activation_regs(duk_hthread *thr,
  68407. duk_hstring *name,
  68408. duk_activation *act,
  68409. duk__id_lookup_result *out) {
  68410. duk_tval *tv;
  68411. duk_hobject *func;
  68412. duk_hobject *varmap;
  68413. duk_size_t reg_rel;
  68414. DUK_ASSERT(thr != NULL);
  68415. DUK_ASSERT(name != NULL);
  68416. DUK_ASSERT(act != NULL);
  68417. DUK_ASSERT(out != NULL);
  68418. func = DUK_ACT_GET_FUNC(act);
  68419. DUK_ASSERT(func != NULL);
  68420. DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func));
  68421. if (!DUK_HOBJECT_IS_COMPFUNC(func)) {
  68422. return 0;
  68423. }
  68424. /* XXX: move varmap to duk_hcompfunc struct field. */
  68425. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, func, DUK_HTHREAD_STRING_INT_VARMAP(thr));
  68426. if (!tv) {
  68427. return 0;
  68428. }
  68429. DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv));
  68430. varmap = DUK_TVAL_GET_OBJECT(tv);
  68431. DUK_ASSERT(varmap != NULL);
  68432. tv = duk_hobject_find_existing_entry_tval_ptr(thr->heap, varmap, name);
  68433. if (!tv) {
  68434. return 0;
  68435. }
  68436. DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv));
  68437. reg_rel = (duk_size_t) DUK_TVAL_GET_NUMBER(tv);
  68438. DUK_ASSERT_DISABLE(reg_rel >= 0);
  68439. DUK_ASSERT(reg_rel < ((duk_hcompfunc *) func)->nregs);
  68440. tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff);
  68441. tv += reg_rel;
  68442. out->value = tv;
  68443. out->attrs = DUK_PROPDESC_FLAGS_W; /* registers are mutable, non-deletable */
  68444. out->env = NULL;
  68445. out->holder = NULL;
  68446. out->has_this = 0;
  68447. return 1;
  68448. }
  68449. DUK_LOCAL
  68450. duk_bool_t duk__get_identifier_reference(duk_hthread *thr,
  68451. duk_hobject *env,
  68452. duk_hstring *name,
  68453. duk_activation *act,
  68454. duk_bool_t parents,
  68455. duk__id_lookup_result *out) {
  68456. duk_tval *tv;
  68457. duk_uint_t sanity;
  68458. DUK_ASSERT(thr != NULL);
  68459. DUK_ASSERT(env != NULL || act != NULL);
  68460. DUK_ASSERT(name != NULL);
  68461. DUK_ASSERT(out != NULL);
  68462. DUK_ASSERT(!env || DUK_HOBJECT_IS_ENV(env));
  68463. DUK_ASSERT(!env || !DUK_HOBJECT_HAS_ARRAY_PART(env));
  68464. /*
  68465. * Conceptually, we look for the identifier binding by starting from
  68466. * 'env' and following to chain of environment records (represented
  68467. * by the prototype chain).
  68468. *
  68469. * If 'env' is NULL, the current activation does not yet have an
  68470. * allocated declarative environment record; this should be treated
  68471. * exactly as if the environment record existed but had no bindings
  68472. * other than register bindings.
  68473. *
  68474. * Note: we assume that with the DUK_HOBJECT_FLAG_NEWENV cleared
  68475. * the environment will always be initialized immediately; hence
  68476. * a NULL 'env' should only happen with the flag set. This is the
  68477. * case for: (1) function calls, and (2) strict, direct eval calls.
  68478. */
  68479. if (env == NULL && act != NULL) {
  68480. duk_hobject *func;
  68481. duk_hcompfunc *f;
  68482. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference: env is NULL, activation is non-NULL -> "
  68483. "delayed env case, look up activation regs first"));
  68484. /*
  68485. * Try registers
  68486. */
  68487. if (duk__getid_activation_regs(thr, name, act, out)) {
  68488. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: "
  68489. "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O "
  68490. "(found from register bindings when env=NULL)",
  68491. (duk_heaphdr *) name, (duk_tval *) out->value,
  68492. (long) out->attrs, (long) out->has_this,
  68493. (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder));
  68494. return 1;
  68495. }
  68496. DUK_DDD(DUK_DDDPRINT("not found in current activation regs"));
  68497. /*
  68498. * Not found in registers, proceed to the parent record.
  68499. * Here we need to determine what the parent would be,
  68500. * if 'env' was not NULL (i.e. same logic as when initializing
  68501. * the record).
  68502. *
  68503. * Note that environment initialization is only deferred when
  68504. * DUK_HOBJECT_HAS_NEWENV is set, and this only happens for:
  68505. * - Function code
  68506. * - Strict eval code
  68507. *
  68508. * We only need to check _Lexenv here; _Varenv exists only if it
  68509. * differs from _Lexenv (and thus _Lexenv will also be present).
  68510. */
  68511. if (!parents) {
  68512. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference failed, no parent traversal "
  68513. "(not found from register bindings when env=NULL)"));
  68514. goto fail_not_found;
  68515. }
  68516. func = DUK_ACT_GET_FUNC(act);
  68517. DUK_ASSERT(func != NULL);
  68518. DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func));
  68519. f = (duk_hcompfunc *) func;
  68520. env = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f);
  68521. if (!env) {
  68522. env = thr->builtins[DUK_BIDX_GLOBAL_ENV];
  68523. }
  68524. DUK_DDD(DUK_DDDPRINT("continue lookup from env: %!iO",
  68525. (duk_heaphdr *) env));
  68526. }
  68527. /*
  68528. * Prototype walking starting from 'env'.
  68529. *
  68530. * ('act' is not needed anywhere here.)
  68531. */
  68532. sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY;
  68533. while (env != NULL) {
  68534. duk_small_uint_t cl;
  68535. duk_uint_t attrs;
  68536. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference, name=%!O, considering env=%p -> %!iO",
  68537. (duk_heaphdr *) name,
  68538. (void *) env,
  68539. (duk_heaphdr *) env));
  68540. DUK_ASSERT(env != NULL);
  68541. DUK_ASSERT(DUK_HOBJECT_IS_ENV(env));
  68542. DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(env));
  68543. cl = DUK_HOBJECT_GET_CLASS_NUMBER(env);
  68544. DUK_ASSERT(cl == DUK_HOBJECT_CLASS_OBJENV || cl == DUK_HOBJECT_CLASS_DECENV);
  68545. if (cl == DUK_HOBJECT_CLASS_DECENV) {
  68546. /*
  68547. * Declarative environment record.
  68548. *
  68549. * Identifiers can never be stored in ancestors and are
  68550. * always plain values, so we can use an internal helper
  68551. * and access the value directly with an duk_tval ptr.
  68552. *
  68553. * A closed environment is only indicated by it missing
  68554. * the "book-keeping" properties required for accessing
  68555. * register-bound variables.
  68556. */
  68557. DUK_ASSERT_HDECENV_VALID((duk_hdecenv *) env);
  68558. if (duk__getid_open_decl_env_regs(thr, name, (duk_hdecenv *) env, out)) {
  68559. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: "
  68560. "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O "
  68561. "(declarative environment record, scope open, found in regs)",
  68562. (duk_heaphdr *) name, (duk_tval *) out->value,
  68563. (long) out->attrs, (long) out->has_this,
  68564. (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder));
  68565. return 1;
  68566. }
  68567. tv = duk_hobject_find_existing_entry_tval_ptr_and_attrs(thr->heap, env, name, &attrs);
  68568. if (tv) {
  68569. out->value = tv;
  68570. out->attrs = attrs;
  68571. out->env = env;
  68572. out->holder = env;
  68573. out->has_this = 0;
  68574. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: "
  68575. "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O "
  68576. "(declarative environment record, found in properties)",
  68577. (duk_heaphdr *) name, (duk_tval *) out->value,
  68578. (long) out->attrs, (long) out->has_this,
  68579. (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder));
  68580. return 1;
  68581. }
  68582. } else {
  68583. /*
  68584. * Object environment record.
  68585. *
  68586. * Binding (target) object is an external, uncontrolled object.
  68587. * Identifier may be bound in an ancestor property, and may be
  68588. * an accessor. Target can also be a Proxy which we must support
  68589. * here.
  68590. */
  68591. /* XXX: we could save space by using _Target OR _This. If _Target, assume
  68592. * this binding is undefined. If _This, assumes this binding is _This, and
  68593. * target is also _This. One property would then be enough.
  68594. */
  68595. duk_hobject *target;
  68596. duk_bool_t found;
  68597. DUK_ASSERT(cl == DUK_HOBJECT_CLASS_OBJENV);
  68598. DUK_ASSERT_HOBJENV_VALID((duk_hobjenv *) env);
  68599. target = ((duk_hobjenv *) env)->target;
  68600. DUK_ASSERT(target != NULL);
  68601. /* Target may be a Proxy or property may be an accessor, so we must
  68602. * use an actual, Proxy-aware hasprop check here.
  68603. *
  68604. * out->holder is NOT set to the actual duk_hobject where the
  68605. * property is found, but rather the object binding target object.
  68606. */
  68607. #if defined(DUK_USE_ES6_PROXY)
  68608. if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(target))) {
  68609. duk_tval tv_name;
  68610. duk_tval tv_target_tmp;
  68611. DUK_ASSERT(name != NULL);
  68612. DUK_TVAL_SET_STRING(&tv_name, name);
  68613. DUK_TVAL_SET_OBJECT(&tv_target_tmp, target);
  68614. found = duk_hobject_hasprop(thr, &tv_target_tmp, &tv_name);
  68615. } else
  68616. #endif /* DUK_USE_ES6_PROXY */
  68617. {
  68618. /* XXX: duk_hobject_hasprop() would be correct for
  68619. * non-Proxy objects too, but it is about ~20-25%
  68620. * slower at present so separate code paths for
  68621. * Proxy and non-Proxy now.
  68622. */
  68623. found = duk_hobject_hasprop_raw(thr, target, name);
  68624. }
  68625. if (found) {
  68626. out->value = NULL; /* can't get value, may be accessor */
  68627. out->attrs = 0; /* irrelevant when out->value == NULL */
  68628. out->env = env;
  68629. out->holder = target;
  68630. out->has_this = ((duk_hobjenv *) env)->has_this;
  68631. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: "
  68632. "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O "
  68633. "(object environment record)",
  68634. (duk_heaphdr *) name, (duk_tval *) out->value,
  68635. (long) out->attrs, (long) out->has_this,
  68636. (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder));
  68637. return 1;
  68638. }
  68639. }
  68640. if (!parents) {
  68641. DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference failed, no parent traversal "
  68642. "(not found from first traversed env)"));
  68643. goto fail_not_found;
  68644. }
  68645. if (DUK_UNLIKELY(sanity-- == 0)) {
  68646. DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT);
  68647. }
  68648. env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, env);
  68649. }
  68650. /*
  68651. * Not found (even in global object)
  68652. */
  68653. fail_not_found:
  68654. return 0;
  68655. }
  68656. /*
  68657. * HASVAR: check identifier binding from a given environment record
  68658. * without traversing its parents.
  68659. *
  68660. * This primitive is not exposed to user code as such, but is used
  68661. * internally for e.g. declaration binding instantiation.
  68662. *
  68663. * See E5 Sections:
  68664. * 10.2.1.1.1 HasBinding(N)
  68665. * 10.2.1.2.1 HasBinding(N)
  68666. *
  68667. * Note: strictness has no bearing on this check. Hence we don't take
  68668. * a 'strict' parameter.
  68669. */
  68670. #if 0 /*unused*/
  68671. DUK_INTERNAL
  68672. duk_bool_t duk_js_hasvar_envrec(duk_hthread *thr,
  68673. duk_hobject *env,
  68674. duk_hstring *name) {
  68675. duk__id_lookup_result ref;
  68676. duk_bool_t parents;
  68677. DUK_DDD(DUK_DDDPRINT("hasvar: thr=%p, env=%p, name=%!O "
  68678. "(env -> %!dO)",
  68679. (void *) thr, (void *) env, (duk_heaphdr *) name,
  68680. (duk_heaphdr *) env));
  68681. DUK_ASSERT(thr != NULL);
  68682. DUK_ASSERT(env != NULL);
  68683. DUK_ASSERT(name != NULL);
  68684. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env);
  68685. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name);
  68686. DUK_ASSERT(DUK_HOBJECT_IS_ENV(env));
  68687. DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(env));
  68688. /* lookup results is ignored */
  68689. parents = 0;
  68690. return duk__get_identifier_reference(thr, env, name, NULL, parents, &ref);
  68691. }
  68692. #endif
  68693. /*
  68694. * GETVAR
  68695. *
  68696. * See E5 Sections:
  68697. * 11.1.2 Identifier Reference
  68698. * 10.3.1 Identifier Resolution
  68699. * 11.13.1 Simple Assignment [example of where the Reference is GetValue'd]
  68700. * 8.7.1 GetValue (V)
  68701. * 8.12.1 [[GetOwnProperty]] (P)
  68702. * 8.12.2 [[GetProperty]] (P)
  68703. * 8.12.3 [[Get]] (P)
  68704. *
  68705. * If 'throw' is true, always leaves two values on top of stack: [val this].
  68706. *
  68707. * If 'throw' is false, returns 0 if identifier cannot be resolved, and the
  68708. * stack will be unaffected in this case. If identifier is resolved, returns
  68709. * 1 and leaves [val this] on top of stack.
  68710. *
  68711. * Note: the 'strict' flag of a reference returned by GetIdentifierReference
  68712. * is ignored by GetValue. Hence we don't take a 'strict' parameter.
  68713. *
  68714. * The 'throw' flag is needed for implementing 'typeof' for an unreferenced
  68715. * identifier. An unreference identifier in other contexts generates a
  68716. * ReferenceError.
  68717. */
  68718. DUK_LOCAL
  68719. duk_bool_t duk__getvar_helper(duk_hthread *thr,
  68720. duk_hobject *env,
  68721. duk_activation *act,
  68722. duk_hstring *name,
  68723. duk_bool_t throw_flag) {
  68724. duk__id_lookup_result ref;
  68725. duk_tval tv_tmp_obj;
  68726. duk_tval tv_tmp_key;
  68727. duk_bool_t parents;
  68728. DUK_DDD(DUK_DDDPRINT("getvar: thr=%p, env=%p, act=%p, name=%!O "
  68729. "(env -> %!dO)",
  68730. (void *) thr, (void *) env, (void *) act,
  68731. (duk_heaphdr *) name, (duk_heaphdr *) env));
  68732. DUK_ASSERT(thr != NULL);
  68733. DUK_ASSERT(name != NULL);
  68734. /* env and act may be NULL */
  68735. DUK_STATS_INC(thr->heap, stats_getvar_all);
  68736. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env);
  68737. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name);
  68738. parents = 1; /* follow parent chain */
  68739. if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) {
  68740. if (ref.value) {
  68741. duk_push_tval(thr, ref.value);
  68742. duk_push_undefined(thr);
  68743. } else {
  68744. DUK_ASSERT(ref.holder != NULL);
  68745. /* ref.holder is safe across the getprop call (even
  68746. * with side effects) because 'env' is reachable and
  68747. * ref.holder is a direct heap pointer.
  68748. */
  68749. DUK_TVAL_SET_OBJECT(&tv_tmp_obj, ref.holder);
  68750. DUK_TVAL_SET_STRING(&tv_tmp_key, name);
  68751. (void) duk_hobject_getprop(thr, &tv_tmp_obj, &tv_tmp_key); /* [value] */
  68752. if (ref.has_this) {
  68753. duk_push_hobject(thr, ref.holder);
  68754. } else {
  68755. duk_push_undefined(thr);
  68756. }
  68757. /* [value this] */
  68758. }
  68759. return 1;
  68760. } else {
  68761. if (throw_flag) {
  68762. DUK_ERROR_FMT1(thr, DUK_ERR_REFERENCE_ERROR,
  68763. "identifier '%s' undefined",
  68764. (const char *) DUK_HSTRING_GET_DATA(name));
  68765. }
  68766. return 0;
  68767. }
  68768. }
  68769. DUK_INTERNAL
  68770. duk_bool_t duk_js_getvar_envrec(duk_hthread *thr,
  68771. duk_hobject *env,
  68772. duk_hstring *name,
  68773. duk_bool_t throw_flag) {
  68774. return duk__getvar_helper(thr, env, NULL, name, throw_flag);
  68775. }
  68776. DUK_INTERNAL
  68777. duk_bool_t duk_js_getvar_activation(duk_hthread *thr,
  68778. duk_activation *act,
  68779. duk_hstring *name,
  68780. duk_bool_t throw_flag) {
  68781. DUK_ASSERT(act != NULL);
  68782. return duk__getvar_helper(thr, act->lex_env, act, name, throw_flag);
  68783. }
  68784. /*
  68785. * PUTVAR
  68786. *
  68787. * See E5 Sections:
  68788. * 11.1.2 Identifier Reference
  68789. * 10.3.1 Identifier Resolution
  68790. * 11.13.1 Simple Assignment [example of where the Reference is PutValue'd]
  68791. * 8.7.2 PutValue (V,W) [see especially step 3.b, undefined -> automatic global in non-strict mode]
  68792. * 8.12.4 [[CanPut]] (P)
  68793. * 8.12.5 [[Put]] (P)
  68794. *
  68795. * Note: may invalidate any valstack (or object) duk_tval pointers because
  68796. * putting a value may reallocate any object or any valstack. Caller beware.
  68797. */
  68798. DUK_LOCAL
  68799. void duk__putvar_helper(duk_hthread *thr,
  68800. duk_hobject *env,
  68801. duk_activation *act,
  68802. duk_hstring *name,
  68803. duk_tval *val,
  68804. duk_bool_t strict) {
  68805. duk__id_lookup_result ref;
  68806. duk_tval tv_tmp_obj;
  68807. duk_tval tv_tmp_key;
  68808. duk_bool_t parents;
  68809. DUK_STATS_INC(thr->heap, stats_putvar_all);
  68810. DUK_DDD(DUK_DDDPRINT("putvar: thr=%p, env=%p, act=%p, name=%!O, val=%p, strict=%ld "
  68811. "(env -> %!dO, val -> %!T)",
  68812. (void *) thr, (void *) env, (void *) act,
  68813. (duk_heaphdr *) name, (void *) val, (long) strict,
  68814. (duk_heaphdr *) env, (duk_tval *) val));
  68815. DUK_ASSERT(thr != NULL);
  68816. DUK_ASSERT(name != NULL);
  68817. DUK_ASSERT(val != NULL);
  68818. /* env and act may be NULL */
  68819. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env);
  68820. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name);
  68821. DUK_ASSERT_REFCOUNT_NONZERO_TVAL(val);
  68822. /*
  68823. * In strict mode E5 protects 'eval' and 'arguments' from being
  68824. * assigned to (or even declared anywhere). Attempt to do so
  68825. * should result in a compile time SyntaxError. See the internal
  68826. * design documentation for details.
  68827. *
  68828. * Thus, we should never come here, run-time, for strict code,
  68829. * and name 'eval' or 'arguments'.
  68830. */
  68831. DUK_ASSERT(!strict ||
  68832. (name != DUK_HTHREAD_STRING_EVAL(thr) &&
  68833. name != DUK_HTHREAD_STRING_LC_ARGUMENTS(thr)));
  68834. /*
  68835. * Lookup variable and update in-place if found.
  68836. */
  68837. parents = 1; /* follow parent chain */
  68838. if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) {
  68839. if (ref.value && (ref.attrs & DUK_PROPDESC_FLAG_WRITABLE)) {
  68840. /* Update duk_tval in-place if pointer provided and the
  68841. * property is writable. If the property is not writable
  68842. * (immutable binding), use duk_hobject_putprop() which
  68843. * will respect mutability.
  68844. */
  68845. duk_tval *tv_val;
  68846. tv_val = ref.value;
  68847. DUK_ASSERT(tv_val != NULL);
  68848. DUK_TVAL_SET_TVAL_UPDREF(thr, tv_val, val); /* side effects */
  68849. /* ref.value invalidated here */
  68850. } else {
  68851. DUK_ASSERT(ref.holder != NULL);
  68852. DUK_TVAL_SET_OBJECT(&tv_tmp_obj, ref.holder);
  68853. DUK_TVAL_SET_STRING(&tv_tmp_key, name);
  68854. (void) duk_hobject_putprop(thr, &tv_tmp_obj, &tv_tmp_key, val, strict);
  68855. /* ref.value invalidated here */
  68856. }
  68857. return;
  68858. }
  68859. /*
  68860. * Not found: write to global object (non-strict) or ReferenceError
  68861. * (strict); see E5 Section 8.7.2, step 3.
  68862. */
  68863. if (strict) {
  68864. DUK_DDD(DUK_DDDPRINT("identifier binding not found, strict => reference error"));
  68865. DUK_ERROR_FMT1(thr, DUK_ERR_REFERENCE_ERROR,
  68866. "identifier '%s' undefined",
  68867. (const char *) DUK_HSTRING_GET_DATA(name));
  68868. }
  68869. DUK_DDD(DUK_DDDPRINT("identifier binding not found, not strict => set to global"));
  68870. DUK_TVAL_SET_OBJECT(&tv_tmp_obj, thr->builtins[DUK_BIDX_GLOBAL]);
  68871. DUK_TVAL_SET_STRING(&tv_tmp_key, name);
  68872. (void) duk_hobject_putprop(thr, &tv_tmp_obj, &tv_tmp_key, val, 0); /* 0 = no throw */
  68873. /* NB: 'val' may be invalidated here because put_value may realloc valstack,
  68874. * caller beware.
  68875. */
  68876. }
  68877. DUK_INTERNAL
  68878. void duk_js_putvar_envrec(duk_hthread *thr,
  68879. duk_hobject *env,
  68880. duk_hstring *name,
  68881. duk_tval *val,
  68882. duk_bool_t strict) {
  68883. duk__putvar_helper(thr, env, NULL, name, val, strict);
  68884. }
  68885. DUK_INTERNAL
  68886. void duk_js_putvar_activation(duk_hthread *thr,
  68887. duk_activation *act,
  68888. duk_hstring *name,
  68889. duk_tval *val,
  68890. duk_bool_t strict) {
  68891. DUK_ASSERT(act != NULL);
  68892. duk__putvar_helper(thr, act->lex_env, act, name, val, strict);
  68893. }
  68894. /*
  68895. * DELVAR
  68896. *
  68897. * See E5 Sections:
  68898. * 11.4.1 The delete operator
  68899. * 10.2.1.1.5 DeleteBinding (N) [declarative environment record]
  68900. * 10.2.1.2.5 DeleteBinding (N) [object environment record]
  68901. *
  68902. * Variable bindings established inside eval() are deletable (configurable),
  68903. * other bindings are not, including variables declared in global level.
  68904. * Registers are always non-deletable, and the deletion of other bindings
  68905. * is controlled by the configurable flag.
  68906. *
  68907. * For strict mode code, the 'delete' operator should fail with a compile
  68908. * time SyntaxError if applied to identifiers. Hence, no strict mode
  68909. * run-time deletion of identifiers should ever happen. This function
  68910. * should never be called from strict mode code!
  68911. */
  68912. DUK_LOCAL
  68913. duk_bool_t duk__delvar_helper(duk_hthread *thr,
  68914. duk_hobject *env,
  68915. duk_activation *act,
  68916. duk_hstring *name) {
  68917. duk__id_lookup_result ref;
  68918. duk_bool_t parents;
  68919. DUK_DDD(DUK_DDDPRINT("delvar: thr=%p, env=%p, act=%p, name=%!O "
  68920. "(env -> %!dO)",
  68921. (void *) thr, (void *) env, (void *) act,
  68922. (duk_heaphdr *) name, (duk_heaphdr *) env));
  68923. DUK_ASSERT(thr != NULL);
  68924. DUK_ASSERT(name != NULL);
  68925. /* env and act may be NULL */
  68926. DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name);
  68927. parents = 1; /* follow parent chain */
  68928. if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) {
  68929. if (ref.value && !(ref.attrs & DUK_PROPDESC_FLAG_CONFIGURABLE)) {
  68930. /* Identifier found in registers (always non-deletable)
  68931. * or declarative environment record and non-configurable.
  68932. */
  68933. return 0;
  68934. }
  68935. DUK_ASSERT(ref.holder != NULL);
  68936. return duk_hobject_delprop_raw(thr, ref.holder, name, 0);
  68937. }
  68938. /*
  68939. * Not found (even in global object).
  68940. *
  68941. * In non-strict mode this is a silent SUCCESS (!), see E5 Section 11.4.1,
  68942. * step 3.b. In strict mode this case is a compile time SyntaxError so
  68943. * we should not come here.
  68944. */
  68945. DUK_DDD(DUK_DDDPRINT("identifier to be deleted not found: name=%!O "
  68946. "(treated as silent success)",
  68947. (duk_heaphdr *) name));
  68948. return 1;
  68949. }
  68950. #if 0 /*unused*/
  68951. DUK_INTERNAL
  68952. duk_bool_t duk_js_delvar_envrec(duk_hthread *thr,
  68953. duk_hobject *env,
  68954. duk_hstring *name) {
  68955. return duk__delvar_helper(thr, env, NULL, name);
  68956. }
  68957. #endif
  68958. DUK_INTERNAL
  68959. duk_bool_t duk_js_delvar_activation(duk_hthread *thr,
  68960. duk_activation *act,
  68961. duk_hstring *name) {
  68962. DUK_ASSERT(act != NULL);
  68963. return duk__delvar_helper(thr, act->lex_env, act, name);
  68964. }
  68965. /*
  68966. * DECLVAR
  68967. *
  68968. * See E5 Sections:
  68969. * 10.4.3 Entering Function Code
  68970. * 10.5 Declaration Binding Instantion
  68971. * 12.2 Variable Statement
  68972. * 11.1.2 Identifier Reference
  68973. * 10.3.1 Identifier Resolution
  68974. *
  68975. * Variable declaration behavior is mainly discussed in Section 10.5,
  68976. * and is not discussed in the execution semantics (Sections 11-13).
  68977. *
  68978. * Conceptually declarations happen when code (global, eval, function)
  68979. * is entered, before any user code is executed. In practice, register-
  68980. * bound identifiers are 'declared' automatically (by virtue of being
  68981. * allocated to registers with the initial value 'undefined'). Other
  68982. * identifiers are declared in the function prologue with this primitive.
  68983. *
  68984. * Since non-register bindings eventually back to an internal object's
  68985. * properties, the 'prop_flags' argument is used to specify binding
  68986. * type:
  68987. *
  68988. * - Immutable binding: set DUK_PROPDESC_FLAG_WRITABLE to false
  68989. * - Non-deletable binding: set DUK_PROPDESC_FLAG_CONFIGURABLE to false
  68990. * - The flag DUK_PROPDESC_FLAG_ENUMERABLE should be set, although it
  68991. * doesn't really matter for internal objects
  68992. *
  68993. * All bindings are non-deletable mutable bindings except:
  68994. *
  68995. * - Declarations in eval code (mutable, deletable)
  68996. * - 'arguments' binding in strict function code (immutable)
  68997. * - Function name binding of a function expression (immutable)
  68998. *
  68999. * Declarations may go to declarative environment records (always
  69000. * so for functions), but may also go to object environment records
  69001. * (e.g. global code). The global object environment has special
  69002. * behavior when re-declaring a function (but not a variable); see
  69003. * E5.1 specification, Section 10.5, step 5.e.
  69004. *
  69005. * Declarations always go to the 'top-most' environment record, i.e.
  69006. * we never check the record chain. It's not an error even if a
  69007. * property (even an immutable or non-deletable one) of the same name
  69008. * already exists.
  69009. *
  69010. * If a declared variable already exists, its value needs to be updated
  69011. * (if possible). Returns 1 if a PUTVAR needs to be done by the caller;
  69012. * otherwise returns 0.
  69013. */
  69014. DUK_LOCAL
  69015. duk_bool_t duk__declvar_helper(duk_hthread *thr,
  69016. duk_hobject *env,
  69017. duk_hstring *name,
  69018. duk_tval *val,
  69019. duk_small_uint_t prop_flags,
  69020. duk_bool_t is_func_decl) {
  69021. duk_hobject *holder;
  69022. duk_bool_t parents;
  69023. duk__id_lookup_result ref;
  69024. duk_tval *tv;
  69025. DUK_DDD(DUK_DDDPRINT("declvar: thr=%p, env=%p, name=%!O, val=%!T, prop_flags=0x%08lx, is_func_decl=%ld "
  69026. "(env -> %!iO)",
  69027. (void *) thr, (void *) env, (duk_heaphdr *) name,
  69028. (duk_tval *) val, (unsigned long) prop_flags,
  69029. (unsigned int) is_func_decl, (duk_heaphdr *) env));
  69030. DUK_ASSERT(thr != NULL);
  69031. DUK_ASSERT(env != NULL);
  69032. DUK_ASSERT(name != NULL);
  69033. DUK_ASSERT(val != NULL);
  69034. /* Note: in strict mode the compiler should reject explicit
  69035. * declaration of 'eval' or 'arguments'. However, internal
  69036. * bytecode may declare 'arguments' in the function prologue.
  69037. * We don't bother checking (or asserting) for these now.
  69038. */
  69039. /* Note: val is a stable duk_tval pointer. The caller makes
  69040. * a value copy into its stack frame, so 'tv_val' is not subject
  69041. * to side effects here.
  69042. */
  69043. /*
  69044. * Check whether already declared.
  69045. *
  69046. * We need to check whether the binding exists in the environment
  69047. * without walking its parents. However, we still need to check
  69048. * register-bound identifiers and the prototype chain of an object
  69049. * environment target object.
  69050. */
  69051. parents = 0; /* just check 'env' */
  69052. if (duk__get_identifier_reference(thr, env, name, NULL, parents, &ref)) {
  69053. duk_int_t e_idx;
  69054. duk_int_t h_idx;
  69055. duk_small_uint_t flags;
  69056. /*
  69057. * Variable already declared, ignore re-declaration.
  69058. * The only exception is the updated behavior of E5.1 for
  69059. * global function declarations, E5.1 Section 10.5, step 5.e.
  69060. * This behavior does not apply to global variable declarations.
  69061. */
  69062. if (!(is_func_decl && env == thr->builtins[DUK_BIDX_GLOBAL_ENV])) {
  69063. DUK_DDD(DUK_DDDPRINT("re-declare a binding, ignoring"));
  69064. return 1; /* 1 -> needs a PUTVAR */
  69065. }
  69066. /*
  69067. * Special behavior in E5.1.
  69068. *
  69069. * Note that even though parents == 0, the conflicting property
  69070. * may be an inherited property (currently our global object's
  69071. * prototype is Object.prototype). Step 5.e first operates on
  69072. * the existing property (which is potentially in an ancestor)
  69073. * and then defines a new property in the global object (and
  69074. * never modifies the ancestor).
  69075. *
  69076. * Also note that this logic would become even more complicated
  69077. * if the conflicting property might be a virtual one. Object
  69078. * prototype has no virtual properties, though.
  69079. *
  69080. * XXX: this is now very awkward, rework.
  69081. */
  69082. DUK_DDD(DUK_DDDPRINT("re-declare a function binding in global object, "
  69083. "updated E5.1 processing"));
  69084. DUK_ASSERT(ref.holder != NULL);
  69085. holder = ref.holder;
  69086. /* holder will be set to the target object, not the actual object
  69087. * where the property was found (see duk__get_identifier_reference()).
  69088. */
  69089. DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(holder) == DUK_HOBJECT_CLASS_GLOBAL);
  69090. DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(holder)); /* global object doesn't have array part */
  69091. /* XXX: use a helper for prototype traversal; no loop check here */
  69092. /* must be found: was found earlier, and cannot be inherited */
  69093. for (;;) {
  69094. DUK_ASSERT(holder != NULL);
  69095. if (duk_hobject_find_existing_entry(thr->heap, holder, name, &e_idx, &h_idx)) {
  69096. DUK_ASSERT(e_idx >= 0);
  69097. break;
  69098. }
  69099. /* SCANBUILD: NULL pointer dereference, doesn't actually trigger,
  69100. * asserted above.
  69101. */
  69102. holder = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, holder);
  69103. }
  69104. DUK_ASSERT(holder != NULL);
  69105. DUK_ASSERT(e_idx >= 0);
  69106. /* SCANBUILD: scan-build produces a NULL pointer dereference warning
  69107. * below; it never actually triggers because holder is actually never
  69108. * NULL.
  69109. */
  69110. /* ref.holder is global object, holder is the object with the
  69111. * conflicting property.
  69112. */
  69113. flags = DUK_HOBJECT_E_GET_FLAGS(thr->heap, holder, e_idx);
  69114. if (!(flags & DUK_PROPDESC_FLAG_CONFIGURABLE)) {
  69115. if (flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  69116. DUK_DDD(DUK_DDDPRINT("existing property is a non-configurable "
  69117. "accessor -> reject"));
  69118. goto fail_existing_attributes;
  69119. }
  69120. if (!((flags & DUK_PROPDESC_FLAG_WRITABLE) &&
  69121. (flags & DUK_PROPDESC_FLAG_ENUMERABLE))) {
  69122. DUK_DDD(DUK_DDDPRINT("existing property is a non-configurable "
  69123. "plain property which is not writable and "
  69124. "enumerable -> reject"));
  69125. goto fail_existing_attributes;
  69126. }
  69127. DUK_DDD(DUK_DDDPRINT("existing property is not configurable but "
  69128. "is plain, enumerable, and writable -> "
  69129. "allow redeclaration"));
  69130. }
  69131. if (holder == ref.holder) {
  69132. /* XXX: if duk_hobject_define_property_internal() was updated
  69133. * to handle a pre-existing accessor property, this would be
  69134. * a simple call (like for the ancestor case).
  69135. */
  69136. DUK_DDD(DUK_DDDPRINT("redefine, offending property in global object itself"));
  69137. if (flags & DUK_PROPDESC_FLAG_ACCESSOR) {
  69138. duk_hobject *tmp;
  69139. tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, holder, e_idx);
  69140. DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, holder, e_idx, NULL);
  69141. DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp);
  69142. DUK_UNREF(tmp);
  69143. tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, holder, e_idx);
  69144. DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, holder, e_idx, NULL);
  69145. DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp);
  69146. DUK_UNREF(tmp);
  69147. } else {
  69148. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx);
  69149. DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv);
  69150. }
  69151. /* Here val would be potentially invalid if we didn't make
  69152. * a value copy at the caller.
  69153. */
  69154. tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx);
  69155. DUK_TVAL_SET_TVAL(tv, val);
  69156. DUK_TVAL_INCREF(thr, tv);
  69157. DUK_HOBJECT_E_SET_FLAGS(thr->heap, holder, e_idx, prop_flags);
  69158. DUK_DDD(DUK_DDDPRINT("updated global binding, final result: "
  69159. "value -> %!T, prop_flags=0x%08lx",
  69160. (duk_tval *) DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx),
  69161. (unsigned long) prop_flags));
  69162. } else {
  69163. DUK_DDD(DUK_DDDPRINT("redefine, offending property in ancestor"));
  69164. DUK_ASSERT(ref.holder == thr->builtins[DUK_BIDX_GLOBAL]);
  69165. duk_push_tval(thr, val);
  69166. duk_hobject_define_property_internal(thr, ref.holder, name, prop_flags);
  69167. }
  69168. return 0;
  69169. }
  69170. /*
  69171. * Not found (in registers or record objects). Declare
  69172. * to current variable environment.
  69173. */
  69174. /*
  69175. * Get holder object
  69176. */
  69177. if (DUK_HOBJECT_IS_DECENV(env)) {
  69178. DUK_ASSERT_HDECENV_VALID((duk_hdecenv *) env);
  69179. holder = env;
  69180. } else {
  69181. DUK_ASSERT_HOBJENV_VALID((duk_hobjenv *) env);
  69182. holder = ((duk_hobjenv *) env)->target;
  69183. DUK_ASSERT(holder != NULL);
  69184. }
  69185. /*
  69186. * Define new property
  69187. *
  69188. * Note: this may fail if the holder is not extensible.
  69189. */
  69190. /* XXX: this is awkward as we use an internal method which doesn't handle
  69191. * extensibility etc correctly. Basically we'd want to do a [[DefineOwnProperty]]
  69192. * or Object.defineProperty() here.
  69193. */
  69194. if (!DUK_HOBJECT_HAS_EXTENSIBLE(holder)) {
  69195. goto fail_not_extensible;
  69196. }
  69197. duk_push_hobject(thr, holder);
  69198. duk_push_hstring(thr, name);
  69199. duk_push_tval(thr, val);
  69200. duk_xdef_prop(thr, -3, prop_flags); /* [holder name val] -> [holder] */
  69201. duk_pop_unsafe(thr);
  69202. return 0;
  69203. fail_existing_attributes:
  69204. fail_not_extensible:
  69205. DUK_ERROR_TYPE(thr, "declaration failed");
  69206. return 0;
  69207. }
  69208. DUK_INTERNAL
  69209. duk_bool_t duk_js_declvar_activation(duk_hthread *thr,
  69210. duk_activation *act,
  69211. duk_hstring *name,
  69212. duk_tval *val,
  69213. duk_small_uint_t prop_flags,
  69214. duk_bool_t is_func_decl) {
  69215. duk_hobject *env;
  69216. duk_tval tv_val_copy;
  69217. DUK_ASSERT(act != NULL);
  69218. /*
  69219. * Make a value copy of the input val. This ensures that
  69220. * side effects cannot invalidate the pointer.
  69221. */
  69222. DUK_TVAL_SET_TVAL(&tv_val_copy, val);
  69223. val = &tv_val_copy;
  69224. /*
  69225. * Delayed env creation check
  69226. */
  69227. if (!act->var_env) {
  69228. DUK_ASSERT(act->lex_env == NULL);
  69229. duk_js_init_activation_environment_records_delayed(thr, act);
  69230. /* 'act' is a stable pointer, so still OK. */
  69231. }
  69232. DUK_ASSERT(act->lex_env != NULL);
  69233. DUK_ASSERT(act->var_env != NULL);
  69234. env = act->var_env;
  69235. DUK_ASSERT(env != NULL);
  69236. DUK_ASSERT(DUK_HOBJECT_IS_ENV(env));
  69237. return duk__declvar_helper(thr, env, name, val, prop_flags, is_func_decl);
  69238. }
  69239. #line 1 "duk_lexer.c"
  69240. /*
  69241. * Lexer for source files, ToNumber() string conversions, RegExp expressions,
  69242. * and JSON.
  69243. *
  69244. * Provides a stream of Ecmascript tokens from an UTF-8/CESU-8 buffer. The
  69245. * caller can also rewind the token stream into a certain position which is
  69246. * needed by the compiler part for multi-pass scanning. Tokens are
  69247. * represented as duk_token structures, and contain line number information.
  69248. * Token types are identified with DUK_TOK_* defines.
  69249. *
  69250. * Characters are decoded into a fixed size lookup window consisting of
  69251. * decoded Unicode code points, with window positions past the end of the
  69252. * input filled with an invalid codepoint (-1). The tokenizer can thus
  69253. * perform multiple character lookups efficiently and with few sanity
  69254. * checks (such as access outside the end of the input), which keeps the
  69255. * tokenization code small at the cost of performance.
  69256. *
  69257. * Character data in tokens, such as identifier names and string literals,
  69258. * is encoded into CESU-8 format on-the-fly while parsing the token in
  69259. * question. The string data is made reachable to garbage collection by
  69260. * placing the token-related values in value stack entries allocated for
  69261. * this purpose by the caller. The characters exist in Unicode code point
  69262. * form only in the fixed size lookup window, which keeps character data
  69263. * expansion (of especially ASCII data) low.
  69264. *
  69265. * Token parsing supports the full range of Unicode characters as described
  69266. * in the E5 specification. Parsing has been optimized for ASCII characters
  69267. * because ordinary Ecmascript code consists almost entirely of ASCII
  69268. * characters. Matching of complex Unicode codepoint sets (such as in the
  69269. * IdentifierStart and IdentifierPart productions) is optimized for size,
  69270. * and is done using a linear scan of a bit-packed list of ranges. This is
  69271. * very slow, but should never be entered unless the source code actually
  69272. * contains Unicode characters.
  69273. *
  69274. * Ecmascript tokenization is partially context sensitive. First,
  69275. * additional future reserved words are recognized in strict mode (see E5
  69276. * Section 7.6.1.2). Second, a forward slash character ('/') can be
  69277. * recognized either as starting a RegExp literal or as a division operator,
  69278. * depending on context. The caller must provide necessary context flags
  69279. * when requesting a new token.
  69280. *
  69281. * Future work:
  69282. *
  69283. * * Make line number tracking optional, as it consumes space.
  69284. *
  69285. * * Add a feature flag for disabling UTF-8 decoding of input, as most
  69286. * source code is ASCII. Because of Unicode escapes written in ASCII,
  69287. * this does not allow Unicode support to be removed from e.g.
  69288. * duk_unicode_is_identifier_start() nor does it allow removal of CESU-8
  69289. * encoding of e.g. string literals.
  69290. *
  69291. * * Add a feature flag for disabling Unicode compliance of e.g. identifier
  69292. * names. This allows for a build more than a kilobyte smaller, because
  69293. * Unicode ranges needed by duk_unicode_is_identifier_start() and
  69294. * duk_unicode_is_identifier_part() can be dropped. String literals
  69295. * should still be allowed to contain escaped Unicode, so this still does
  69296. * not allow removal of CESU-8 encoding of e.g. string literals.
  69297. *
  69298. * * Character lookup tables for codepoints above BMP could be stripped.
  69299. *
  69300. * * Strictly speaking, E5 specification requires that source code consists
  69301. * of 16-bit code units, and if not, must be conceptually converted to
  69302. * that format first. The current lexer processes Unicode code points
  69303. * and allows characters outside the BMP. These should be converted to
  69304. * surrogate pairs while reading the source characters into the window,
  69305. * not after tokens have been formed (as is done now). However, the fix
  69306. * is not trivial because two characters are decoded from one codepoint.
  69307. *
  69308. * * Optimize for speed as well as size. Large if-else ladders are (at
  69309. * least potentially) slow.
  69310. */
  69311. /* #include duk_internal.h -> already included */
  69312. /*
  69313. * Various defines and file specific helper macros
  69314. */
  69315. #define DUK__MAX_RE_DECESC_DIGITS 9
  69316. #define DUK__MAX_RE_QUANT_DIGITS 9 /* Does not allow e.g. 2**31-1, but one more would allow overflows of u32. */
  69317. /* whether to use macros or helper function depends on call count */
  69318. #define DUK__ISDIGIT(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_9)
  69319. #define DUK__ISHEXDIGIT(x) duk__is_hex_digit((x))
  69320. #define DUK__ISOCTDIGIT(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_7)
  69321. #define DUK__ISDIGIT03(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_3)
  69322. #define DUK__ISDIGIT47(x) ((x) >= DUK_ASC_4 && (x) <= DUK_ASC_7)
  69323. /* lexer character window helpers */
  69324. #define DUK__LOOKUP(lex_ctx,idx) ((lex_ctx)->window[(idx)].codepoint)
  69325. #define DUK__ADVANCECHARS(lex_ctx,count) duk__advance_chars((lex_ctx), (count))
  69326. #define DUK__ADVANCEBYTES(lex_ctx,count) duk__advance_bytes((lex_ctx), (count))
  69327. #define DUK__INITBUFFER(lex_ctx) duk__initbuffer((lex_ctx))
  69328. #define DUK__APPENDBUFFER(lex_ctx,x) duk__appendbuffer((lex_ctx), (duk_codepoint_t) (x))
  69329. #define DUK__APPENDBUFFER_ASCII(lex_ctx,x) duk__appendbuffer_ascii((lex_ctx), (duk_codepoint_t) (x))
  69330. /* lookup shorthands (note: assume context variable is named 'lex_ctx') */
  69331. #define DUK__L0() DUK__LOOKUP(lex_ctx, 0)
  69332. #define DUK__L1() DUK__LOOKUP(lex_ctx, 1)
  69333. #define DUK__L2() DUK__LOOKUP(lex_ctx, 2)
  69334. #define DUK__L3() DUK__LOOKUP(lex_ctx, 3)
  69335. #define DUK__L4() DUK__LOOKUP(lex_ctx, 4)
  69336. #define DUK__L5() DUK__LOOKUP(lex_ctx, 5)
  69337. /* packed advance/token number macro used by multiple functions */
  69338. #define DUK__ADVTOK(advbytes,tok) ((((advbytes) * sizeof(duk_lexer_codepoint)) << 8) + (tok))
  69339. /*
  69340. * Advance lookup window by N characters, filling in new characters as
  69341. * necessary. After returning caller is guaranteed a character window of
  69342. * at least DUK_LEXER_WINDOW_SIZE characters.
  69343. *
  69344. * The main function duk__advance_bytes() is called at least once per every
  69345. * token so it has a major lexer/compiler performance impact. There are two
  69346. * variants for the main duk__advance_bytes() algorithm: a sliding window
  69347. * approach which is slightly faster at the cost of larger code footprint,
  69348. * and a simple copying one.
  69349. *
  69350. * Decoding directly from the source string would be another lexing option.
  69351. * But the lookup window based approach has the advantage of hiding the
  69352. * source string and its encoding effectively which gives more flexibility
  69353. * going forward to e.g. support chunked streaming of source from flash.
  69354. *
  69355. * Decodes UTF-8/CESU-8 leniently with support for code points from U+0000 to
  69356. * U+10FFFF, causing an error if the input is unparseable. Leniency means:
  69357. *
  69358. * * Unicode code point validation is intentionally not performed,
  69359. * except to check that the codepoint does not exceed 0x10ffff.
  69360. *
  69361. * * In particular, surrogate pairs are allowed and not combined, which
  69362. * allows source files to represent all SourceCharacters with CESU-8.
  69363. * Broken surrogate pairs are allowed, as Ecmascript does not mandate
  69364. * their validation.
  69365. *
  69366. * * Allow non-shortest UTF-8 encodings.
  69367. *
  69368. * Leniency here causes few security concerns because all character data is
  69369. * decoded into Unicode codepoints before lexer processing, and is then
  69370. * re-encoded into CESU-8. The source can be parsed as strict UTF-8 with
  69371. * a compiler option. However, Ecmascript source characters include -all-
  69372. * 16-bit unsigned integer codepoints, so leniency seems to be appropriate.
  69373. *
  69374. * Note that codepoints above the BMP are not strictly SourceCharacters,
  69375. * but the lexer still accepts them as such. Before ending up in a string
  69376. * or an identifier name, codepoints above BMP are converted into surrogate
  69377. * pairs and then CESU-8 encoded, resulting in 16-bit Unicode data as
  69378. * expected by Ecmascript.
  69379. *
  69380. * An alternative approach to dealing with invalid or partial sequences
  69381. * would be to skip them and replace them with e.g. the Unicode replacement
  69382. * character U+FFFD. This has limited utility because a replacement character
  69383. * will most likely cause a parse error, unless it occurs inside a string.
  69384. * Further, Ecmascript source is typically pure ASCII.
  69385. *
  69386. * See:
  69387. *
  69388. * http://en.wikipedia.org/wiki/UTF-8
  69389. * http://en.wikipedia.org/wiki/CESU-8
  69390. * http://tools.ietf.org/html/rfc3629
  69391. * http://en.wikipedia.org/wiki/UTF-8#Invalid_byte_sequences
  69392. *
  69393. * Future work:
  69394. *
  69395. * * Reject other invalid Unicode sequences (see Wikipedia entry for examples)
  69396. * in strict UTF-8 mode.
  69397. *
  69398. * * Size optimize. An attempt to use a 16-byte lookup table for the first
  69399. * byte resulted in a code increase though.
  69400. *
  69401. * * Is checking against maximum 0x10ffff really useful? 4-byte encoding
  69402. * imposes a certain limit anyway.
  69403. *
  69404. * * Support chunked streaming of source code. Can be implemented either
  69405. * by streaming chunks of bytes or chunks of codepoints.
  69406. */
  69407. #if defined(DUK_USE_LEXER_SLIDING_WINDOW)
  69408. DUK_LOCAL void duk__fill_lexer_buffer(duk_lexer_ctx *lex_ctx, duk_small_uint_t start_offset_bytes) {
  69409. duk_lexer_codepoint *cp, *cp_end;
  69410. duk_ucodepoint_t x;
  69411. duk_small_uint_t contlen;
  69412. const duk_uint8_t *p, *p_end;
  69413. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69414. duk_ucodepoint_t mincp;
  69415. #endif
  69416. duk_int_t input_line;
  69417. /* Use temporaries and update lex_ctx only when finished. */
  69418. input_line = lex_ctx->input_line;
  69419. p = lex_ctx->input + lex_ctx->input_offset;
  69420. p_end = lex_ctx->input + lex_ctx->input_length;
  69421. cp = (duk_lexer_codepoint *) (void *) ((duk_uint8_t *) lex_ctx->buffer + start_offset_bytes);
  69422. cp_end = lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE;
  69423. for (; cp != cp_end; cp++) {
  69424. cp->offset = (duk_size_t) (p - lex_ctx->input);
  69425. cp->line = input_line;
  69426. /* XXX: potential issue with signed pointers, p_end < p. */
  69427. if (DUK_UNLIKELY(p >= p_end)) {
  69428. /* If input_offset were assigned a negative value, it would
  69429. * result in a large positive value. Most likely it would be
  69430. * larger than input_length and be caught here. In any case
  69431. * no memory unsafe behavior would happen.
  69432. */
  69433. cp->codepoint = -1;
  69434. continue;
  69435. }
  69436. x = (duk_ucodepoint_t) (*p++);
  69437. /* Fast path. */
  69438. if (DUK_LIKELY(x < 0x80UL)) {
  69439. DUK_ASSERT(x != 0x2028UL && x != 0x2029UL); /* not LS/PS */
  69440. if (DUK_UNLIKELY(x <= 0x000dUL)) {
  69441. if ((x == 0x000aUL) ||
  69442. ((x == 0x000dUL) && (p >= p_end || *p != 0x000aUL))) {
  69443. /* lookup for 0x000a above assumes shortest encoding now */
  69444. /* E5 Section 7.3, treat the following as newlines:
  69445. * LF
  69446. * CR [not followed by LF]
  69447. * LS
  69448. * PS
  69449. *
  69450. * For CR LF, CR is ignored if it is followed by LF, and the LF will bump
  69451. * the line number.
  69452. */
  69453. input_line++;
  69454. }
  69455. }
  69456. cp->codepoint = (duk_codepoint_t) x;
  69457. continue;
  69458. }
  69459. /* Slow path. */
  69460. if (x < 0xc0UL) {
  69461. /* 10xx xxxx -> invalid */
  69462. goto error_encoding;
  69463. } else if (x < 0xe0UL) {
  69464. /* 110x xxxx 10xx xxxx */
  69465. contlen = 1;
  69466. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69467. mincp = 0x80UL;
  69468. #endif
  69469. x = x & 0x1fUL;
  69470. } else if (x < 0xf0UL) {
  69471. /* 1110 xxxx 10xx xxxx 10xx xxxx */
  69472. contlen = 2;
  69473. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69474. mincp = 0x800UL;
  69475. #endif
  69476. x = x & 0x0fUL;
  69477. } else if (x < 0xf8UL) {
  69478. /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx */
  69479. contlen = 3;
  69480. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69481. mincp = 0x10000UL;
  69482. #endif
  69483. x = x & 0x07UL;
  69484. } else {
  69485. /* no point in supporting encodings of 5 or more bytes */
  69486. goto error_encoding;
  69487. }
  69488. DUK_ASSERT(p_end >= p);
  69489. if ((duk_size_t) contlen > (duk_size_t) (p_end - p)) {
  69490. goto error_clipped;
  69491. }
  69492. while (contlen > 0) {
  69493. duk_small_uint_t y;
  69494. y = *p++;
  69495. if ((y & 0xc0U) != 0x80U) {
  69496. /* check that byte has the form 10xx xxxx */
  69497. goto error_encoding;
  69498. }
  69499. x = x << 6;
  69500. x += y & 0x3fUL;
  69501. contlen--;
  69502. }
  69503. /* check final character validity */
  69504. if (x > 0x10ffffUL) {
  69505. goto error_encoding;
  69506. }
  69507. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69508. if (x < mincp || (x >= 0xd800UL && x <= 0xdfffUL) || x == 0xfffeUL) {
  69509. goto error_encoding;
  69510. }
  69511. #endif
  69512. DUK_ASSERT(x != 0x000aUL && x != 0x000dUL);
  69513. if ((x == 0x2028UL) || (x == 0x2029UL)) {
  69514. input_line++;
  69515. }
  69516. cp->codepoint = (duk_codepoint_t) x;
  69517. }
  69518. lex_ctx->input_offset = (duk_size_t) (p - lex_ctx->input);
  69519. lex_ctx->input_line = input_line;
  69520. return;
  69521. error_clipped: /* clipped codepoint */
  69522. error_encoding: /* invalid codepoint encoding or codepoint */
  69523. lex_ctx->input_offset = (duk_size_t) (p - lex_ctx->input);
  69524. lex_ctx->input_line = input_line;
  69525. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_SOURCE_DECODE_FAILED);
  69526. }
  69527. DUK_LOCAL void duk__advance_bytes(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_bytes) {
  69528. duk_small_uint_t used_bytes, avail_bytes;
  69529. DUK_ASSERT_DISABLE(count_bytes >= 0); /* unsigned */
  69530. DUK_ASSERT(count_bytes <= (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint)));
  69531. DUK_ASSERT(lex_ctx->window >= lex_ctx->buffer);
  69532. DUK_ASSERT(lex_ctx->window < lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE);
  69533. DUK_ASSERT((duk_uint8_t *) lex_ctx->window + count_bytes <= (duk_uint8_t *) lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE * sizeof(duk_lexer_codepoint));
  69534. /* Zero 'count' is also allowed to make call sites easier.
  69535. * Arithmetic in bytes generates better code in GCC.
  69536. */
  69537. lex_ctx->window = (duk_lexer_codepoint *) (void *) ((duk_uint8_t *) lex_ctx->window + count_bytes); /* avoid multiply */
  69538. used_bytes = (duk_small_uint_t) ((duk_uint8_t *) lex_ctx->window - (duk_uint8_t *) lex_ctx->buffer);
  69539. avail_bytes = DUK_LEXER_BUFFER_SIZE * sizeof(duk_lexer_codepoint) - used_bytes;
  69540. if (avail_bytes < (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint))) {
  69541. /* Not enough data to provide a full window, so "scroll" window to
  69542. * start of buffer and fill up the rest.
  69543. */
  69544. DUK_MEMMOVE((void *) lex_ctx->buffer,
  69545. (const void *) lex_ctx->window,
  69546. (size_t) avail_bytes);
  69547. lex_ctx->window = lex_ctx->buffer;
  69548. duk__fill_lexer_buffer(lex_ctx, avail_bytes);
  69549. }
  69550. }
  69551. DUK_LOCAL void duk__init_lexer_window(duk_lexer_ctx *lex_ctx) {
  69552. lex_ctx->window = lex_ctx->buffer;
  69553. duk__fill_lexer_buffer(lex_ctx, 0);
  69554. }
  69555. #else /* DUK_USE_LEXER_SLIDING_WINDOW */
  69556. DUK_LOCAL duk_codepoint_t duk__read_char(duk_lexer_ctx *lex_ctx) {
  69557. duk_ucodepoint_t x;
  69558. duk_small_uint_t len;
  69559. duk_small_uint_t i;
  69560. const duk_uint8_t *p;
  69561. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69562. duk_ucodepoint_t mincp;
  69563. #endif
  69564. duk_size_t input_offset;
  69565. input_offset = lex_ctx->input_offset;
  69566. if (DUK_UNLIKELY(input_offset >= lex_ctx->input_length)) {
  69567. /* If input_offset were assigned a negative value, it would
  69568. * result in a large positive value. Most likely it would be
  69569. * larger than input_length and be caught here. In any case
  69570. * no memory unsafe behavior would happen.
  69571. */
  69572. return -1;
  69573. }
  69574. p = lex_ctx->input + input_offset;
  69575. x = (duk_ucodepoint_t) (*p);
  69576. if (DUK_LIKELY(x < 0x80UL)) {
  69577. /* 0xxx xxxx -> fast path */
  69578. /* input offset tracking */
  69579. lex_ctx->input_offset++;
  69580. DUK_ASSERT(x != 0x2028UL && x != 0x2029UL); /* not LS/PS */
  69581. if (DUK_UNLIKELY(x <= 0x000dUL)) {
  69582. if ((x == 0x000aUL) ||
  69583. ((x == 0x000dUL) && (lex_ctx->input_offset >= lex_ctx->input_length ||
  69584. lex_ctx->input[lex_ctx->input_offset] != 0x000aUL))) {
  69585. /* lookup for 0x000a above assumes shortest encoding now */
  69586. /* E5 Section 7.3, treat the following as newlines:
  69587. * LF
  69588. * CR [not followed by LF]
  69589. * LS
  69590. * PS
  69591. *
  69592. * For CR LF, CR is ignored if it is followed by LF, and the LF will bump
  69593. * the line number.
  69594. */
  69595. lex_ctx->input_line++;
  69596. }
  69597. }
  69598. return (duk_codepoint_t) x;
  69599. }
  69600. /* Slow path. */
  69601. if (x < 0xc0UL) {
  69602. /* 10xx xxxx -> invalid */
  69603. goto error_encoding;
  69604. } else if (x < 0xe0UL) {
  69605. /* 110x xxxx 10xx xxxx */
  69606. len = 2;
  69607. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69608. mincp = 0x80UL;
  69609. #endif
  69610. x = x & 0x1fUL;
  69611. } else if (x < 0xf0UL) {
  69612. /* 1110 xxxx 10xx xxxx 10xx xxxx */
  69613. len = 3;
  69614. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69615. mincp = 0x800UL;
  69616. #endif
  69617. x = x & 0x0fUL;
  69618. } else if (x < 0xf8UL) {
  69619. /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx */
  69620. len = 4;
  69621. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69622. mincp = 0x10000UL;
  69623. #endif
  69624. x = x & 0x07UL;
  69625. } else {
  69626. /* no point in supporting encodings of 5 or more bytes */
  69627. goto error_encoding;
  69628. }
  69629. DUK_ASSERT(lex_ctx->input_length >= lex_ctx->input_offset);
  69630. if ((duk_size_t) len > (duk_size_t) (lex_ctx->input_length - lex_ctx->input_offset)) {
  69631. goto error_clipped;
  69632. }
  69633. p++;
  69634. for (i = 1; i < len; i++) {
  69635. duk_small_uint_t y;
  69636. y = *p++;
  69637. if ((y & 0xc0U) != 0x80U) {
  69638. /* check that byte has the form 10xx xxxx */
  69639. goto error_encoding;
  69640. }
  69641. x = x << 6;
  69642. x += y & 0x3fUL;
  69643. }
  69644. /* check final character validity */
  69645. if (x > 0x10ffffUL) {
  69646. goto error_encoding;
  69647. }
  69648. #if defined(DUK_USE_STRICT_UTF8_SOURCE)
  69649. if (x < mincp || (x >= 0xd800UL && x <= 0xdfffUL) || x == 0xfffeUL) {
  69650. goto error_encoding;
  69651. }
  69652. #endif
  69653. /* input offset tracking */
  69654. lex_ctx->input_offset += len;
  69655. /* line tracking */
  69656. DUK_ASSERT(x != 0x000aUL && x != 0x000dUL);
  69657. if ((x == 0x2028UL) || (x == 0x2029UL)) {
  69658. lex_ctx->input_line++;
  69659. }
  69660. return (duk_codepoint_t) x;
  69661. error_clipped: /* clipped codepoint */
  69662. error_encoding: /* invalid codepoint encoding or codepoint */
  69663. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_SOURCE_DECODE_FAILED);
  69664. return 0;
  69665. }
  69666. DUK_LOCAL void duk__advance_bytes(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_bytes) {
  69667. duk_small_uint_t keep_bytes;
  69668. duk_lexer_codepoint *cp, *cp_end;
  69669. DUK_ASSERT_DISABLE(count_bytes >= 0); /* unsigned */
  69670. DUK_ASSERT(count_bytes <= (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint)));
  69671. /* Zero 'count' is also allowed to make call sites easier. */
  69672. keep_bytes = DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint) - count_bytes;
  69673. DUK_MEMMOVE((void *) lex_ctx->window,
  69674. (const void *) ((duk_uint8_t *) lex_ctx->window + count_bytes),
  69675. (size_t) keep_bytes);
  69676. cp = (duk_lexer_codepoint *) ((duk_uint8_t *) lex_ctx->window + keep_bytes);
  69677. cp_end = lex_ctx->window + DUK_LEXER_WINDOW_SIZE;
  69678. for (; cp != cp_end; cp++) {
  69679. cp->offset = lex_ctx->input_offset;
  69680. cp->line = lex_ctx->input_line;
  69681. cp->codepoint = duk__read_char(lex_ctx);
  69682. }
  69683. }
  69684. DUK_LOCAL void duk__init_lexer_window(duk_lexer_ctx *lex_ctx) {
  69685. /* Call with count == DUK_LEXER_WINDOW_SIZE to fill buffer initially. */
  69686. duk__advance_bytes(lex_ctx, DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint)); /* fill window */
  69687. }
  69688. #endif /* DUK_USE_LEXER_SLIDING_WINDOW */
  69689. DUK_LOCAL void duk__advance_chars(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_chars) {
  69690. duk__advance_bytes(lex_ctx, count_chars * sizeof(duk_lexer_codepoint));
  69691. }
  69692. /*
  69693. * (Re)initialize the temporary byte buffer. May be called extra times
  69694. * with little impact.
  69695. */
  69696. DUK_LOCAL void duk__initbuffer(duk_lexer_ctx *lex_ctx) {
  69697. /* Reuse buffer as is unless buffer has grown large. */
  69698. if (DUK_HBUFFER_DYNAMIC_GET_SIZE(lex_ctx->buf) < DUK_LEXER_TEMP_BUF_LIMIT) {
  69699. /* Keep current size */
  69700. } else {
  69701. duk_hbuffer_resize(lex_ctx->thr, lex_ctx->buf, DUK_LEXER_TEMP_BUF_LIMIT);
  69702. }
  69703. DUK_BW_INIT_WITHBUF(lex_ctx->thr, &lex_ctx->bw, lex_ctx->buf);
  69704. }
  69705. /*
  69706. * Append a Unicode codepoint to the temporary byte buffer. Performs
  69707. * CESU-8 surrogate pair encoding for codepoints above the BMP.
  69708. * Existing surrogate pairs are allowed and also encoded into CESU-8.
  69709. */
  69710. DUK_LOCAL void duk__appendbuffer(duk_lexer_ctx *lex_ctx, duk_codepoint_t x) {
  69711. /*
  69712. * Since character data is only generated by decoding the source or by
  69713. * the compiler itself, we rely on the input codepoints being correct
  69714. * and avoid a check here.
  69715. *
  69716. * Character data can also come here through decoding of Unicode
  69717. * escapes ("\udead\ubeef") so all 16-but unsigned values can be
  69718. * present, even when the source file itself is strict UTF-8.
  69719. */
  69720. DUK_ASSERT(x >= 0 && x <= 0x10ffffL);
  69721. DUK_BW_WRITE_ENSURE_CESU8(lex_ctx->thr, &lex_ctx->bw, (duk_ucodepoint_t) x);
  69722. }
  69723. DUK_LOCAL void duk__appendbuffer_ascii(duk_lexer_ctx *lex_ctx, duk_codepoint_t x) {
  69724. /* ASCII characters can be emitted as a single byte without encoding
  69725. * which matters for some fast paths.
  69726. */
  69727. DUK_ASSERT(x >= 0 && x <= 0x7f);
  69728. DUK_BW_WRITE_ENSURE_U8(lex_ctx->thr, &lex_ctx->bw, (duk_uint8_t) x);
  69729. }
  69730. /*
  69731. * Intern the temporary byte buffer into a valstack slot
  69732. * (in practice, slot1 or slot2).
  69733. */
  69734. DUK_LOCAL duk_hstring *duk__internbuffer(duk_lexer_ctx *lex_ctx, duk_idx_t valstack_idx) {
  69735. DUK_ASSERT(valstack_idx == lex_ctx->slot1_idx || valstack_idx == lex_ctx->slot2_idx);
  69736. DUK_BW_PUSH_AS_STRING(lex_ctx->thr, &lex_ctx->bw);
  69737. duk_replace(lex_ctx->thr, valstack_idx);
  69738. return duk_known_hstring(lex_ctx->thr, valstack_idx);
  69739. }
  69740. /*
  69741. * Init lexer context
  69742. */
  69743. DUK_INTERNAL void duk_lexer_initctx(duk_lexer_ctx *lex_ctx) {
  69744. DUK_ASSERT(lex_ctx != NULL);
  69745. DUK_MEMZERO(lex_ctx, sizeof(*lex_ctx));
  69746. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  69747. #if defined(DUK_USE_LEXER_SLIDING_WINDOW)
  69748. lex_ctx->window = NULL;
  69749. #endif
  69750. lex_ctx->thr = NULL;
  69751. lex_ctx->input = NULL;
  69752. lex_ctx->buf = NULL;
  69753. #endif
  69754. }
  69755. /*
  69756. * Set lexer input position and reinitialize lookup window.
  69757. */
  69758. DUK_INTERNAL void duk_lexer_getpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt) {
  69759. pt->offset = lex_ctx->window[0].offset;
  69760. pt->line = lex_ctx->window[0].line;
  69761. }
  69762. DUK_INTERNAL void duk_lexer_setpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt) {
  69763. DUK_ASSERT_DISABLE(pt->offset >= 0); /* unsigned */
  69764. DUK_ASSERT(pt->line >= 1);
  69765. lex_ctx->input_offset = pt->offset;
  69766. lex_ctx->input_line = pt->line;
  69767. duk__init_lexer_window(lex_ctx);
  69768. }
  69769. /*
  69770. * Lexing helpers
  69771. */
  69772. /* Numeric value of a hex digit (also covers octal and decimal digits) or
  69773. * -1 if not a valid hex digit.
  69774. */
  69775. DUK_LOCAL duk_codepoint_t duk__hexval_validate(duk_codepoint_t x) {
  69776. duk_small_int_t t;
  69777. /* Here 'x' is a Unicode codepoint */
  69778. if (DUK_LIKELY(x >= 0 && x <= 0xff)) {
  69779. t = duk_hex_dectab[x];
  69780. if (DUK_LIKELY(t >= 0)) {
  69781. return t;
  69782. }
  69783. }
  69784. return -1;
  69785. }
  69786. /* Just a wrapper for call sites where 'x' is known to be valid so
  69787. * we assert for it before decoding.
  69788. */
  69789. DUK_LOCAL duk_codepoint_t duk__hexval(duk_codepoint_t x) {
  69790. duk_codepoint_t ret;
  69791. DUK_ASSERT((x >= DUK_ASC_0 && x <= DUK_ASC_9) ||
  69792. (x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_F) ||
  69793. (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_F));
  69794. ret = duk__hexval_validate(x);
  69795. DUK_ASSERT(ret >= 0 && ret <= 15);
  69796. return ret;
  69797. }
  69798. /* having this as a separate function provided a size benefit */
  69799. DUK_LOCAL duk_bool_t duk__is_hex_digit(duk_codepoint_t x) {
  69800. if (DUK_LIKELY(x >= 0 && x <= 0xff)) {
  69801. return (duk_hex_dectab[x] >= 0);
  69802. }
  69803. return 0;
  69804. }
  69805. /* Parse a Unicode escape of the form \xHH, \uHHHH, or \u{H+}. Shared by
  69806. * source and RegExp parsing.
  69807. */
  69808. DUK_LOCAL duk_codepoint_t duk__lexer_parse_escape(duk_lexer_ctx *lex_ctx, duk_bool_t allow_es6) {
  69809. duk_small_int_t digits; /* Initial value 2 or 4 for fixed length escapes, 0 for ES2015 \u{H+}. */
  69810. duk_codepoint_t escval;
  69811. duk_codepoint_t x;
  69812. duk_small_uint_t adv;
  69813. DUK_ASSERT(DUK__L0() == DUK_ASC_BACKSLASH); /* caller responsibilities */
  69814. DUK_ASSERT(DUK__L1() == DUK_ASC_LC_X || DUK__L1() == DUK_ASC_LC_U);
  69815. DUK_UNREF(allow_es6);
  69816. adv = 2;
  69817. digits = 2;
  69818. if (DUK__L1() == DUK_ASC_LC_U) {
  69819. digits = 4;
  69820. #if defined(DUK_USE_ES6_UNICODE_ESCAPE)
  69821. if (DUK__L2() == DUK_ASC_LCURLY && allow_es6) {
  69822. digits = 0;
  69823. adv = 3;
  69824. }
  69825. #endif
  69826. }
  69827. DUK__ADVANCECHARS(lex_ctx, adv);
  69828. escval = 0;
  69829. for (;;) {
  69830. /* One of the escape forms: \xHH, \uHHHH, \u{H+}.
  69831. * The 'digits' variable tracks parsing state and is
  69832. * initialized to:
  69833. *
  69834. * \xHH 2
  69835. * \uHH 4
  69836. * \u{H+} 0 first time, updated to -1 to indicate
  69837. * at least one digit has been parsed
  69838. *
  69839. * Octal parsing is handled separately because it can be
  69840. * done with fixed lookahead and also has validation
  69841. * rules which depend on the escape length (which is
  69842. * variable).
  69843. *
  69844. * We don't need a specific check for x < 0 (end of
  69845. * input) or duk_unicode_is_line_terminator(x)
  69846. * because the 'dig' decode will fail and lead to a
  69847. * SyntaxError.
  69848. */
  69849. duk_codepoint_t dig;
  69850. x = DUK__L0();
  69851. DUK__ADVANCECHARS(lex_ctx, 1);
  69852. dig = duk__hexval_validate(x);
  69853. if (digits > 0) {
  69854. digits--;
  69855. if (dig < 0) {
  69856. goto fail_escape;
  69857. }
  69858. DUK_ASSERT(dig >= 0x00 && dig <= 0x0f);
  69859. escval = (escval << 4) + dig;
  69860. if (digits == 0) {
  69861. DUK_ASSERT(escval >= 0 && escval <= 0xffffL);
  69862. break;
  69863. }
  69864. } else {
  69865. #if defined(DUK_USE_ES6_UNICODE_ESCAPE)
  69866. DUK_ASSERT(digits == 0 /* first time */ || digits == -1 /* others */);
  69867. if (dig >= 0) {
  69868. DUK_ASSERT(dig >= 0x00 && dig <= 0x0f);
  69869. escval = (escval << 4) + dig;
  69870. if (escval > 0x10ffffL) {
  69871. goto fail_escape;
  69872. }
  69873. } else if (x == DUK_ASC_RCURLY) {
  69874. if (digits == 0) {
  69875. /* Empty escape, \u{}. */
  69876. goto fail_escape;
  69877. }
  69878. DUK_ASSERT(escval >= 0 && escval <= 0x10ffffL);
  69879. break;
  69880. } else {
  69881. goto fail_escape;
  69882. }
  69883. digits = -1; /* Indicate we have at least one digit. */
  69884. #else /* DUK_USE_ES6_UNICODE_ESCAPE */
  69885. DUK_ASSERT(0); /* Never happens if \u{H+} support disabled. */
  69886. #endif /* DUK_USE_ES6_UNICODE_ESCAPE */
  69887. }
  69888. }
  69889. return escval;
  69890. fail_escape:
  69891. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE);
  69892. }
  69893. /* Parse legacy octal escape of the form \N{1,3}, e.g. \0, \5, \0377. Maximum
  69894. * allowed value is \0377 (U+00FF), longest match is used. Used for both string
  69895. * RegExp octal escape parsing. Window[0] must be the slash '\' and the first
  69896. * digit must already be validated to be in [0-9] by the caller.
  69897. */
  69898. DUK_LOCAL duk_codepoint_t duk__lexer_parse_legacy_octal(duk_lexer_ctx *lex_ctx, duk_small_uint_t *out_adv, duk_bool_t reject_annex_b) {
  69899. duk_codepoint_t cp;
  69900. duk_small_uint_t lookup_idx;
  69901. duk_small_uint_t adv;
  69902. duk_codepoint_t tmp;
  69903. DUK_ASSERT(out_adv != NULL);
  69904. DUK_ASSERT(DUK__LOOKUP(lex_ctx, 0) == DUK_ASC_BACKSLASH);
  69905. DUK_ASSERT(DUK__LOOKUP(lex_ctx, 1) >= DUK_ASC_0 && DUK__LOOKUP(lex_ctx, 1) <= DUK_ASC_9);
  69906. cp = 0;
  69907. tmp = 0;
  69908. for (lookup_idx = 1; lookup_idx <= 3; lookup_idx++) {
  69909. DUK_DDD(DUK_DDDPRINT("lookup_idx=%ld, cp=%ld", (long) lookup_idx, (long) cp));
  69910. tmp = DUK__LOOKUP(lex_ctx, lookup_idx);
  69911. if (tmp < DUK_ASC_0 || tmp > DUK_ASC_7) {
  69912. /* No more valid digits. */
  69913. break;
  69914. }
  69915. tmp = (cp << 3) + (tmp - DUK_ASC_0);
  69916. if (tmp > 0xff) {
  69917. /* Three digit octal escapes above \377 (= 0xff)
  69918. * are not allowed.
  69919. */
  69920. break;
  69921. }
  69922. cp = tmp;
  69923. }
  69924. DUK_DDD(DUK_DDDPRINT("final lookup_idx=%ld, cp=%ld", (long) lookup_idx, (long) cp));
  69925. adv = lookup_idx;
  69926. if (lookup_idx == 1) {
  69927. DUK_DDD(DUK_DDDPRINT("\\8 or \\9 -> treat as literal, accept in strict mode too"));
  69928. DUK_ASSERT(tmp == DUK_ASC_8 || tmp == DUK_ASC_9);
  69929. cp = tmp;
  69930. adv++; /* correction to above, eat offending character */
  69931. } else if (lookup_idx == 2 && cp == 0) {
  69932. /* Note: 'foo\0bar' is OK in strict mode, but 'foo\00bar' is not.
  69933. * It won't be interpreted as 'foo\u{0}0bar' but as a SyntaxError.
  69934. */
  69935. DUK_DDD(DUK_DDDPRINT("\\0 -> accept in strict mode too"));
  69936. } else {
  69937. /* This clause also handles non-shortest zero, e.g. \00. */
  69938. if (reject_annex_b) {
  69939. DUK_DDD(DUK_DDDPRINT("non-zero octal literal %ld -> reject in strict-mode", (long) cp));
  69940. cp = -1;
  69941. } else {
  69942. DUK_DDD(DUK_DDDPRINT("non-zero octal literal %ld -> accepted", (long) cp));
  69943. DUK_ASSERT(cp >= 0 && cp <= 0xff);
  69944. }
  69945. }
  69946. *out_adv = adv;
  69947. DUK_ASSERT((cp >= 0 && cp <= 0xff) || (cp == -1 && reject_annex_b));
  69948. return cp;
  69949. }
  69950. /* XXX: move strict mode to lex_ctx? */
  69951. DUK_LOCAL void duk__lexer_parse_string_literal(duk_lexer_ctx *lex_ctx, duk_token *out_token, duk_small_int_t quote, duk_bool_t strict_mode) {
  69952. duk_small_uint_t adv;
  69953. for (adv = 1 /* initial quote */ ;;) {
  69954. duk_codepoint_t x;
  69955. DUK__ADVANCECHARS(lex_ctx, adv); /* eat opening quote on first loop */
  69956. x = DUK__L0();
  69957. adv = 1;
  69958. if (x == quote) {
  69959. DUK__ADVANCECHARS(lex_ctx, 1); /* eat closing quote */
  69960. break;
  69961. } else if (x == '\\') {
  69962. /* DUK__L0 -> '\' char
  69963. * DUK__L1 ... DUK__L5 -> more lookup
  69964. */
  69965. duk_small_int_t emitcp = -1;
  69966. x = DUK__L1();
  69967. /* How much to advance before next loop. */
  69968. adv = 2; /* note: long live range */
  69969. switch (x) {
  69970. case '\'':
  69971. emitcp = 0x0027;
  69972. break;
  69973. case '"':
  69974. emitcp = 0x0022;
  69975. break;
  69976. case '\\':
  69977. emitcp = 0x005c;
  69978. break;
  69979. case 'b':
  69980. emitcp = 0x0008;
  69981. break;
  69982. case 'f':
  69983. emitcp = 0x000c;
  69984. break;
  69985. case 'n':
  69986. emitcp = 0x000a;
  69987. break;
  69988. case 'r':
  69989. emitcp = 0x000d;
  69990. break;
  69991. case 't':
  69992. emitcp = 0x0009;
  69993. break;
  69994. case 'v':
  69995. emitcp = 0x000b;
  69996. break;
  69997. case 'x':
  69998. case 'u': {
  69999. duk_codepoint_t esc_cp;
  70000. esc_cp = duk__lexer_parse_escape(lex_ctx, 1 /*allow_es6*/);
  70001. DUK__APPENDBUFFER(lex_ctx, esc_cp);
  70002. adv = 0;
  70003. break;
  70004. }
  70005. default: {
  70006. if (duk_unicode_is_line_terminator(x)) {
  70007. /* line continuation */
  70008. if (x == 0x000d && DUK__L2() == 0x000a) {
  70009. /* CR LF again a special case */
  70010. adv = 3; /* line terminator, CR, LF */
  70011. }
  70012. } else if (DUK__ISDIGIT(x)) {
  70013. /*
  70014. * Octal escape or zero escape:
  70015. * \0 (lookahead not OctalDigit)
  70016. * \1 ... \7 (lookahead not OctalDigit)
  70017. * \ZeroToThree OctalDigit (lookahead not OctalDigit)
  70018. * \FourToSeven OctalDigit (no lookahead restrictions)
  70019. * \ZeroToThree OctalDigit OctalDigit (no lookahead restrictions)
  70020. *
  70021. * Zero escape is part of the standard syntax. Octal escapes are
  70022. * defined in E5 Section B.1.2, and are only allowed in non-strict mode.
  70023. * Any other productions starting with a decimal digit are invalid
  70024. * but are in practice treated like identity escapes.
  70025. *
  70026. * Parse octal (up to 3 digits) from the lookup window.
  70027. */
  70028. emitcp = duk__lexer_parse_legacy_octal(lex_ctx, &adv, strict_mode /*reject_annex_b*/);
  70029. if (emitcp < 0) {
  70030. goto fail_escape;
  70031. }
  70032. } else if (x < 0) {
  70033. goto fail_unterminated;
  70034. } else {
  70035. /* escaped NonEscapeCharacter */
  70036. DUK__APPENDBUFFER(lex_ctx, x);
  70037. }
  70038. } /* end default clause */
  70039. } /* end switch */
  70040. /* Shared handling for single codepoint escapes. */
  70041. if (emitcp >= 0) {
  70042. DUK__APPENDBUFFER(lex_ctx, emitcp);
  70043. }
  70044. /* Track number of escapes; count not really needed but directive
  70045. * prologues need to detect whether there were any escapes or line
  70046. * continuations or not.
  70047. */
  70048. out_token->num_escapes++;
  70049. } else if (x >= 0x20 && x <= 0x7f) {
  70050. /* Fast path for ASCII case, avoids line terminator
  70051. * check and CESU-8 encoding.
  70052. */
  70053. DUK_ASSERT(x >= 0);
  70054. DUK_ASSERT(!duk_unicode_is_line_terminator(x));
  70055. DUK_ASSERT(x != quote);
  70056. DUK_ASSERT(x != DUK_ASC_BACKSLASH);
  70057. DUK__APPENDBUFFER_ASCII(lex_ctx, x);
  70058. } else if (x < 0 || duk_unicode_is_line_terminator(x)) {
  70059. goto fail_unterminated;
  70060. } else {
  70061. /* Character which is part of the string but wasn't handled
  70062. * by the fast path.
  70063. */
  70064. DUK__APPENDBUFFER(lex_ctx, x);
  70065. }
  70066. } /* string parse loop */
  70067. return;
  70068. fail_escape:
  70069. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE);
  70070. return;
  70071. fail_unterminated:
  70072. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_STRING);
  70073. return;
  70074. }
  70075. /* Skip to end-of-line (or end-of-file), used for single line comments. */
  70076. DUK_LOCAL void duk__lexer_skip_to_endofline(duk_lexer_ctx *lex_ctx) {
  70077. for (;;) {
  70078. duk_codepoint_t x;
  70079. x = DUK__L0();
  70080. if (x < 0 || duk_unicode_is_line_terminator(x)) {
  70081. break;
  70082. }
  70083. DUK__ADVANCECHARS(lex_ctx, 1);
  70084. }
  70085. }
  70086. /*
  70087. * Parse Ecmascript source InputElementDiv or InputElementRegExp
  70088. * (E5 Section 7), skipping whitespace, comments, and line terminators.
  70089. *
  70090. * Possible results are:
  70091. * (1) a token
  70092. * (2) a line terminator (skipped)
  70093. * (3) a comment (skipped)
  70094. * (4) EOF
  70095. *
  70096. * White space is automatically skipped from the current position (but
  70097. * not after the input element). If input has already ended, returns
  70098. * DUK_TOK_EOF indefinitely. If a parse error occurs, uses an DUK_ERROR()
  70099. * macro call (and hence a longjmp through current heap longjmp context).
  70100. * Comments and line terminator tokens are automatically skipped.
  70101. *
  70102. * The input element being matched is determined by regexp_mode; if set,
  70103. * parses a InputElementRegExp, otherwise a InputElementDiv. The
  70104. * difference between these are handling of productions starting with a
  70105. * forward slash.
  70106. *
  70107. * If strict_mode is set, recognizes additional future reserved words
  70108. * specific to strict mode, and refuses to parse octal literals.
  70109. *
  70110. * The matching strategy below is to (currently) use a six character
  70111. * lookup window to quickly determine which production is the -longest-
  70112. * matching one, and then parse that. The top-level if-else clauses
  70113. * match the first character, and the code blocks for each clause
  70114. * handle -all- alternatives for that first character. Ecmascript
  70115. * specification uses the "longest match wins" semantics, so the order
  70116. * of the if-clauses matters.
  70117. *
  70118. * Misc notes:
  70119. *
  70120. * * Ecmascript numeric literals do not accept a sign character.
  70121. * Consequently e.g. "-1.0" is parsed as two tokens: a negative
  70122. * sign and a positive numeric literal. The compiler performs
  70123. * the negation during compilation, so this has no adverse impact.
  70124. *
  70125. * * There is no token for "undefined": it is just a value available
  70126. * from the global object (or simply established by doing a reference
  70127. * to an undefined value).
  70128. *
  70129. * * Some contexts want Identifier tokens, which are IdentifierNames
  70130. * excluding reserved words, while some contexts want IdentifierNames
  70131. * directly. In the latter case e.g. "while" is interpreted as an
  70132. * identifier name, not a DUK_TOK_WHILE token. The solution here is
  70133. * to provide both token types: DUK_TOK_WHILE goes to 't' while
  70134. * DUK_TOK_IDENTIFIER goes to 't_nores', and 'slot1' always contains
  70135. * the identifier / keyword name.
  70136. *
  70137. * * Directive prologue needs to identify string literals such as
  70138. * "use strict" and 'use strict', which are sensitive to line
  70139. * continuations and escape sequences. For instance, "use\u0020strict"
  70140. * is a valid directive but is distinct from "use strict". The solution
  70141. * here is to decode escapes while tokenizing, but to keep track of the
  70142. * number of escapes. Directive detection can then check that the
  70143. * number of escapes is zero.
  70144. *
  70145. * * Multi-line comments with one or more internal LineTerminator are
  70146. * treated like a line terminator to comply with automatic semicolon
  70147. * insertion.
  70148. */
  70149. DUK_INTERNAL
  70150. void duk_lexer_parse_js_input_element(duk_lexer_ctx *lex_ctx,
  70151. duk_token *out_token,
  70152. duk_bool_t strict_mode,
  70153. duk_bool_t regexp_mode) {
  70154. duk_codepoint_t x; /* temporary, must be signed and 32-bit to hold Unicode code points */
  70155. duk_small_uint_t advtok = 0; /* (advance << 8) + token_type, updated at function end,
  70156. * init is unnecessary but suppresses "may be used uninitialized" warnings.
  70157. */
  70158. duk_bool_t got_lineterm = 0; /* got lineterm preceding non-whitespace, non-lineterm token */
  70159. if (++lex_ctx->token_count >= lex_ctx->token_limit) {
  70160. goto fail_token_limit;
  70161. }
  70162. out_token->t = DUK_TOK_EOF;
  70163. out_token->t_nores = DUK_TOK_INVALID; /* marker: copy t if not changed */
  70164. #if 0 /* not necessary to init, disabled for faster parsing */
  70165. out_token->num = DUK_DOUBLE_NAN;
  70166. out_token->str1 = NULL;
  70167. out_token->str2 = NULL;
  70168. #endif
  70169. out_token->num_escapes = 0;
  70170. /* out_token->lineterm set by caller */
  70171. /* This would be nice, but parsing is faster without resetting the
  70172. * value slots. The only side effect is that references to temporary
  70173. * string values may linger until lexing is finished; they're then
  70174. * freed normally.
  70175. */
  70176. #if 0
  70177. duk_to_undefined(lex_ctx->thr, lex_ctx->slot1_idx);
  70178. duk_to_undefined(lex_ctx->thr, lex_ctx->slot2_idx);
  70179. #endif
  70180. /* 'advtok' indicates how much to advance and which token id to assign
  70181. * at the end. This shared functionality minimizes code size. All
  70182. * code paths are required to set 'advtok' to some value, so no default
  70183. * init value is used. Code paths calling DUK_ERROR() never return so
  70184. * they don't need to set advtok.
  70185. */
  70186. /*
  70187. * Matching order:
  70188. *
  70189. * Punctuator first chars, also covers comments, regexps
  70190. * LineTerminator
  70191. * Identifier or reserved word, also covers null/true/false literals
  70192. * NumericLiteral
  70193. * StringLiteral
  70194. * EOF
  70195. *
  70196. * The order does not matter as long as the longest match is
  70197. * always correctly identified. There are order dependencies
  70198. * in the clauses, so it's not trivial to convert to a switch.
  70199. */
  70200. restart_lineupdate:
  70201. out_token->start_line = lex_ctx->window[0].line;
  70202. restart:
  70203. out_token->start_offset = lex_ctx->window[0].offset;
  70204. x = DUK__L0();
  70205. switch (x) {
  70206. case DUK_ASC_SPACE:
  70207. case DUK_ASC_HT: /* fast paths for space and tab */
  70208. DUK__ADVANCECHARS(lex_ctx, 1);
  70209. goto restart;
  70210. case DUK_ASC_LF: /* LF line terminator; CR LF and Unicode lineterms are handled in slow path */
  70211. DUK__ADVANCECHARS(lex_ctx, 1);
  70212. got_lineterm = 1;
  70213. goto restart_lineupdate;
  70214. #if defined(DUK_USE_SHEBANG_COMMENTS)
  70215. case DUK_ASC_HASH: /* '#' */
  70216. if (DUK__L1() == DUK_ASC_EXCLAMATION && lex_ctx->window[0].offset == 0 &&
  70217. (lex_ctx->flags & DUK_COMPILE_SHEBANG)) {
  70218. /* "Shebang" comment ('#! ...') on first line. */
  70219. /* DUK__ADVANCECHARS(lex_ctx, 2) would be correct here, but not necessary */
  70220. duk__lexer_skip_to_endofline(lex_ctx);
  70221. goto restart; /* line terminator will be handled on next round */
  70222. }
  70223. goto fail_token;
  70224. #endif /* DUK_USE_SHEBANG_COMMENTS */
  70225. case DUK_ASC_SLASH: /* '/' */
  70226. if (DUK__L1() == DUK_ASC_SLASH) {
  70227. /*
  70228. * E5 Section 7.4, allow SourceCharacter (which is any 16-bit
  70229. * code point).
  70230. */
  70231. /* DUK__ADVANCECHARS(lex_ctx, 2) would be correct here, but not necessary */
  70232. duk__lexer_skip_to_endofline(lex_ctx);
  70233. goto restart; /* line terminator will be handled on next round */
  70234. } else if (DUK__L1() == DUK_ASC_STAR) {
  70235. /*
  70236. * E5 Section 7.4. If the multi-line comment contains a newline,
  70237. * it is treated like a single line terminator for automatic
  70238. * semicolon insertion.
  70239. */
  70240. duk_bool_t last_asterisk = 0;
  70241. DUK__ADVANCECHARS(lex_ctx, 2);
  70242. for (;;) {
  70243. x = DUK__L0();
  70244. if (x < 0) {
  70245. goto fail_unterm_comment;
  70246. }
  70247. DUK__ADVANCECHARS(lex_ctx, 1);
  70248. if (last_asterisk && x == DUK_ASC_SLASH) {
  70249. break;
  70250. }
  70251. if (duk_unicode_is_line_terminator(x)) {
  70252. got_lineterm = 1;
  70253. }
  70254. last_asterisk = (x == DUK_ASC_STAR);
  70255. }
  70256. goto restart_lineupdate;
  70257. } else if (regexp_mode) {
  70258. #if defined(DUK_USE_REGEXP_SUPPORT)
  70259. /*
  70260. * "/" followed by something in regexp mode. See E5 Section 7.8.5.
  70261. *
  70262. * RegExp parsing is a bit complex. First, the regexp body is delimited
  70263. * by forward slashes, but the body may also contain forward slashes as
  70264. * part of an escape sequence or inside a character class (delimited by
  70265. * square brackets). A mini state machine is used to implement these.
  70266. *
  70267. * Further, an early (parse time) error must be thrown if the regexp
  70268. * would cause a run-time error when used in the expression new RegExp(...).
  70269. * Parsing here simply extracts the (candidate) regexp, and also accepts
  70270. * invalid regular expressions (which are delimited properly). The caller
  70271. * (compiler) must perform final validation and regexp compilation.
  70272. *
  70273. * RegExp first char may not be '/' (single line comment) or '*' (multi-
  70274. * line comment). These have already been checked above, so there is no
  70275. * need below for special handling of the first regexp character as in
  70276. * the E5 productions.
  70277. *
  70278. * About unicode escapes within regexp literals:
  70279. *
  70280. * E5 Section 7.8.5 grammar does NOT accept \uHHHH escapes.
  70281. * However, Section 6 states that regexps accept the escapes,
  70282. * see paragraph starting with "In string literals...".
  70283. * The regexp grammar, which sees the decoded regexp literal
  70284. * (after lexical parsing) DOES have a \uHHHH unicode escape.
  70285. * So, for instance:
  70286. *
  70287. * /\u1234/
  70288. *
  70289. * should first be parsed by the lexical grammar as:
  70290. *
  70291. * '\' 'u' RegularExpressionBackslashSequence
  70292. * '1' RegularExpressionNonTerminator
  70293. * '2' RegularExpressionNonTerminator
  70294. * '3' RegularExpressionNonTerminator
  70295. * '4' RegularExpressionNonTerminator
  70296. *
  70297. * and the escape itself is then parsed by the regexp engine.
  70298. * This is the current implementation.
  70299. *
  70300. * Minor spec inconsistency:
  70301. *
  70302. * E5 Section 7.8.5 RegularExpressionBackslashSequence is:
  70303. *
  70304. * \ RegularExpressionNonTerminator
  70305. *
  70306. * while Section A.1 RegularExpressionBackslashSequence is:
  70307. *
  70308. * \ NonTerminator
  70309. *
  70310. * The latter is not normative and a typo.
  70311. *
  70312. */
  70313. /* first, parse regexp body roughly */
  70314. duk_small_int_t state = 0; /* 0=base, 1=esc, 2=class, 3=class+esc */
  70315. DUK__INITBUFFER(lex_ctx);
  70316. for (;;) {
  70317. DUK__ADVANCECHARS(lex_ctx, 1); /* skip opening slash on first loop */
  70318. x = DUK__L0();
  70319. if (x < 0 || duk_unicode_is_line_terminator(x)) {
  70320. goto fail_unterm_regexp;
  70321. }
  70322. x = DUK__L0(); /* re-read to avoid spill / fetch */
  70323. if (state == 0) {
  70324. if (x == DUK_ASC_SLASH) {
  70325. DUK__ADVANCECHARS(lex_ctx, 1); /* eat closing slash */
  70326. break;
  70327. } else if (x == DUK_ASC_BACKSLASH) {
  70328. state = 1;
  70329. } else if (x == DUK_ASC_LBRACKET) {
  70330. state = 2;
  70331. }
  70332. } else if (state == 1) {
  70333. state = 0;
  70334. } else if (state == 2) {
  70335. if (x == DUK_ASC_RBRACKET) {
  70336. state = 0;
  70337. } else if (x == DUK_ASC_BACKSLASH) {
  70338. state = 3;
  70339. }
  70340. } else { /* state == 3 */
  70341. state = 2;
  70342. }
  70343. DUK__APPENDBUFFER(lex_ctx, x);
  70344. }
  70345. out_token->str1 = duk__internbuffer(lex_ctx, lex_ctx->slot1_idx);
  70346. /* second, parse flags */
  70347. DUK__INITBUFFER(lex_ctx);
  70348. for (;;) {
  70349. x = DUK__L0();
  70350. if (!duk_unicode_is_identifier_part(x)) {
  70351. break;
  70352. }
  70353. x = DUK__L0(); /* re-read to avoid spill / fetch */
  70354. DUK__APPENDBUFFER(lex_ctx, x);
  70355. DUK__ADVANCECHARS(lex_ctx, 1);
  70356. }
  70357. out_token->str2 = duk__internbuffer(lex_ctx, lex_ctx->slot2_idx);
  70358. DUK__INITBUFFER(lex_ctx); /* free some memory */
  70359. /* validation of the regexp is caller's responsibility */
  70360. advtok = DUK__ADVTOK(0, DUK_TOK_REGEXP);
  70361. #else /* DUK_USE_REGEXP_SUPPORT */
  70362. goto fail_regexp_support;
  70363. #endif /* DUK_USE_REGEXP_SUPPORT */
  70364. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70365. /* "/=" and not in regexp mode */
  70366. advtok = DUK__ADVTOK(2, DUK_TOK_DIV_EQ);
  70367. } else {
  70368. /* "/" and not in regexp mode */
  70369. advtok = DUK__ADVTOK(1, DUK_TOK_DIV);
  70370. }
  70371. break;
  70372. case DUK_ASC_LCURLY: /* '{' */
  70373. advtok = DUK__ADVTOK(1, DUK_TOK_LCURLY);
  70374. break;
  70375. case DUK_ASC_RCURLY: /* '}' */
  70376. advtok = DUK__ADVTOK(1, DUK_TOK_RCURLY);
  70377. break;
  70378. case DUK_ASC_LPAREN: /* '(' */
  70379. advtok = DUK__ADVTOK(1, DUK_TOK_LPAREN);
  70380. break;
  70381. case DUK_ASC_RPAREN: /* ')' */
  70382. advtok = DUK__ADVTOK(1, DUK_TOK_RPAREN);
  70383. break;
  70384. case DUK_ASC_LBRACKET: /* '[' */
  70385. advtok = DUK__ADVTOK(1, DUK_TOK_LBRACKET);
  70386. break;
  70387. case DUK_ASC_RBRACKET: /* ']' */
  70388. advtok = DUK__ADVTOK(1, DUK_TOK_RBRACKET);
  70389. break;
  70390. case DUK_ASC_PERIOD: /* '.' */
  70391. if (DUK__ISDIGIT(DUK__L1())) {
  70392. /* Period followed by a digit can only start DecimalLiteral
  70393. * (handled in slow path). We could jump straight into the
  70394. * DecimalLiteral handling but should avoid goto to inside
  70395. * a block.
  70396. */
  70397. goto slow_path;
  70398. }
  70399. advtok = DUK__ADVTOK(1, DUK_TOK_PERIOD);
  70400. break;
  70401. case DUK_ASC_SEMICOLON: /* ';' */
  70402. advtok = DUK__ADVTOK(1, DUK_TOK_SEMICOLON);
  70403. break;
  70404. case DUK_ASC_COMMA: /* ',' */
  70405. advtok = DUK__ADVTOK(1, DUK_TOK_COMMA);
  70406. break;
  70407. case DUK_ASC_LANGLE: /* '<' */
  70408. #if defined(DUK_USE_HTML_COMMENTS)
  70409. if (DUK__L1() == DUK_ASC_EXCLAMATION && DUK__L2() == DUK_ASC_MINUS && DUK__L3() == DUK_ASC_MINUS) {
  70410. /*
  70411. * ES2015: B.1.3, handle "<!--" SingleLineHTMLOpenComment
  70412. */
  70413. /* DUK__ADVANCECHARS(lex_ctx, 4) would be correct here, but not necessary */
  70414. duk__lexer_skip_to_endofline(lex_ctx);
  70415. goto restart; /* line terminator will be handled on next round */
  70416. }
  70417. else
  70418. #endif /* DUK_USE_HTML_COMMENTS */
  70419. if (DUK__L1() == DUK_ASC_LANGLE && DUK__L2() == DUK_ASC_EQUALS) {
  70420. advtok = DUK__ADVTOK(3, DUK_TOK_ALSHIFT_EQ);
  70421. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70422. advtok = DUK__ADVTOK(2, DUK_TOK_LE);
  70423. } else if (DUK__L1() == DUK_ASC_LANGLE) {
  70424. advtok = DUK__ADVTOK(2, DUK_TOK_ALSHIFT);
  70425. } else {
  70426. advtok = DUK__ADVTOK(1, DUK_TOK_LT);
  70427. }
  70428. break;
  70429. case DUK_ASC_RANGLE: /* '>' */
  70430. if (DUK__L1() == DUK_ASC_RANGLE && DUK__L2() == DUK_ASC_RANGLE && DUK__L3() == DUK_ASC_EQUALS) {
  70431. advtok = DUK__ADVTOK(4, DUK_TOK_RSHIFT_EQ);
  70432. } else if (DUK__L1() == DUK_ASC_RANGLE && DUK__L2() == DUK_ASC_RANGLE) {
  70433. advtok = DUK__ADVTOK(3, DUK_TOK_RSHIFT);
  70434. } else if (DUK__L1() == DUK_ASC_RANGLE && DUK__L2() == DUK_ASC_EQUALS) {
  70435. advtok = DUK__ADVTOK(3, DUK_TOK_ARSHIFT_EQ);
  70436. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70437. advtok = DUK__ADVTOK(2, DUK_TOK_GE);
  70438. } else if (DUK__L1() == DUK_ASC_RANGLE) {
  70439. advtok = DUK__ADVTOK(2, DUK_TOK_ARSHIFT);
  70440. } else {
  70441. advtok = DUK__ADVTOK(1, DUK_TOK_GT);
  70442. }
  70443. break;
  70444. case DUK_ASC_EQUALS: /* '=' */
  70445. if (DUK__L1() == DUK_ASC_EQUALS && DUK__L2() == DUK_ASC_EQUALS) {
  70446. advtok = DUK__ADVTOK(3, DUK_TOK_SEQ);
  70447. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70448. advtok = DUK__ADVTOK(2, DUK_TOK_EQ);
  70449. } else {
  70450. advtok = DUK__ADVTOK(1, DUK_TOK_EQUALSIGN);
  70451. }
  70452. break;
  70453. case DUK_ASC_EXCLAMATION: /* '!' */
  70454. if (DUK__L1() == DUK_ASC_EQUALS && DUK__L2() == DUK_ASC_EQUALS) {
  70455. advtok = DUK__ADVTOK(3, DUK_TOK_SNEQ);
  70456. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70457. advtok = DUK__ADVTOK(2, DUK_TOK_NEQ);
  70458. } else {
  70459. advtok = DUK__ADVTOK(1, DUK_TOK_LNOT);
  70460. }
  70461. break;
  70462. case DUK_ASC_PLUS: /* '+' */
  70463. if (DUK__L1() == DUK_ASC_PLUS) {
  70464. advtok = DUK__ADVTOK(2, DUK_TOK_INCREMENT);
  70465. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70466. advtok = DUK__ADVTOK(2, DUK_TOK_ADD_EQ);
  70467. } else {
  70468. advtok = DUK__ADVTOK(1, DUK_TOK_ADD);
  70469. }
  70470. break;
  70471. case DUK_ASC_MINUS: /* '-' */
  70472. #if defined(DUK_USE_HTML_COMMENTS)
  70473. if (got_lineterm && DUK__L1() == DUK_ASC_MINUS && DUK__L2() == DUK_ASC_RANGLE) {
  70474. /*
  70475. * ES2015: B.1.3, handle "-->" SingleLineHTMLCloseComment
  70476. * Only allowed:
  70477. * - on new line
  70478. * - preceded only by whitespace
  70479. * - preceded by end of multiline comment and optional whitespace
  70480. *
  70481. * Since whitespace generates no tokens, and multiline comments
  70482. * are treated as a line ending, consulting `got_lineterm` is
  70483. * sufficient to test for these three options.
  70484. */
  70485. /* DUK__ADVANCECHARS(lex_ctx, 3) would be correct here, but not necessary */
  70486. duk__lexer_skip_to_endofline(lex_ctx);
  70487. goto restart; /* line terminator will be handled on next round */
  70488. } else
  70489. #endif /* DUK_USE_HTML_COMMENTS */
  70490. if (DUK__L1() == DUK_ASC_MINUS) {
  70491. advtok = DUK__ADVTOK(2, DUK_TOK_DECREMENT);
  70492. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70493. advtok = DUK__ADVTOK(2, DUK_TOK_SUB_EQ);
  70494. } else {
  70495. advtok = DUK__ADVTOK(1, DUK_TOK_SUB);
  70496. }
  70497. break;
  70498. case DUK_ASC_STAR: /* '*' */
  70499. #if defined(DUK_USE_ES7_EXP_OPERATOR)
  70500. if (DUK__L1() == DUK_ASC_STAR && DUK__L2() == DUK_ASC_EQUALS) {
  70501. advtok = DUK__ADVTOK(3, DUK_TOK_EXP_EQ);
  70502. } else if (DUK__L1() == DUK_ASC_STAR) {
  70503. advtok = DUK__ADVTOK(2, DUK_TOK_EXP);
  70504. } else
  70505. #endif
  70506. if (DUK__L1() == DUK_ASC_EQUALS) {
  70507. advtok = DUK__ADVTOK(2, DUK_TOK_MUL_EQ);
  70508. } else {
  70509. advtok = DUK__ADVTOK(1, DUK_TOK_MUL);
  70510. }
  70511. break;
  70512. case DUK_ASC_PERCENT: /* '%' */
  70513. if (DUK__L1() == DUK_ASC_EQUALS) {
  70514. advtok = DUK__ADVTOK(2, DUK_TOK_MOD_EQ);
  70515. } else {
  70516. advtok = DUK__ADVTOK(1, DUK_TOK_MOD);
  70517. }
  70518. break;
  70519. case DUK_ASC_AMP: /* '&' */
  70520. if (DUK__L1() == DUK_ASC_AMP) {
  70521. advtok = DUK__ADVTOK(2, DUK_TOK_LAND);
  70522. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70523. advtok = DUK__ADVTOK(2, DUK_TOK_BAND_EQ);
  70524. } else {
  70525. advtok = DUK__ADVTOK(1, DUK_TOK_BAND);
  70526. }
  70527. break;
  70528. case DUK_ASC_PIPE: /* '|' */
  70529. if (DUK__L1() == DUK_ASC_PIPE) {
  70530. advtok = DUK__ADVTOK(2, DUK_TOK_LOR);
  70531. } else if (DUK__L1() == DUK_ASC_EQUALS) {
  70532. advtok = DUK__ADVTOK(2, DUK_TOK_BOR_EQ);
  70533. } else {
  70534. advtok = DUK__ADVTOK(1, DUK_TOK_BOR);
  70535. }
  70536. break;
  70537. case DUK_ASC_CARET: /* '^' */
  70538. if (DUK__L1() == DUK_ASC_EQUALS) {
  70539. advtok = DUK__ADVTOK(2, DUK_TOK_BXOR_EQ);
  70540. } else {
  70541. advtok = DUK__ADVTOK(1, DUK_TOK_BXOR);
  70542. }
  70543. break;
  70544. case DUK_ASC_TILDE: /* '~' */
  70545. advtok = DUK__ADVTOK(1, DUK_TOK_BNOT);
  70546. break;
  70547. case DUK_ASC_QUESTION: /* '?' */
  70548. advtok = DUK__ADVTOK(1, DUK_TOK_QUESTION);
  70549. break;
  70550. case DUK_ASC_COLON: /* ':' */
  70551. advtok = DUK__ADVTOK(1, DUK_TOK_COLON);
  70552. break;
  70553. case DUK_ASC_DOUBLEQUOTE: /* '"' */
  70554. case DUK_ASC_SINGLEQUOTE: { /* '\'' */
  70555. DUK__INITBUFFER(lex_ctx);
  70556. duk__lexer_parse_string_literal(lex_ctx, out_token, x /*quote*/, strict_mode);
  70557. duk__internbuffer(lex_ctx, lex_ctx->slot1_idx);
  70558. out_token->str1 = duk_known_hstring(lex_ctx->thr, lex_ctx->slot1_idx);
  70559. DUK__INITBUFFER(lex_ctx); /* free some memory */
  70560. advtok = DUK__ADVTOK(0, DUK_TOK_STRING);
  70561. break;
  70562. }
  70563. default:
  70564. goto slow_path;
  70565. } /* switch */
  70566. goto skip_slow_path;
  70567. slow_path:
  70568. if (duk_unicode_is_line_terminator(x)) {
  70569. if (x == 0x000d && DUK__L1() == 0x000a) {
  70570. /*
  70571. * E5 Section 7.3: CR LF is detected as a single line terminator for
  70572. * line numbers. Here we also detect it as a single line terminator
  70573. * token.
  70574. */
  70575. DUK__ADVANCECHARS(lex_ctx, 2);
  70576. } else {
  70577. DUK__ADVANCECHARS(lex_ctx, 1);
  70578. }
  70579. got_lineterm = 1;
  70580. goto restart_lineupdate;
  70581. } else if (duk_unicode_is_identifier_start(x) || x == DUK_ASC_BACKSLASH) {
  70582. /*
  70583. * Parse an identifier and then check whether it is:
  70584. * - reserved word (keyword or other reserved word)
  70585. * - "null" (NullLiteral)
  70586. * - "true" (BooleanLiteral)
  70587. * - "false" (BooleanLiteral)
  70588. * - anything else => identifier
  70589. *
  70590. * This does not follow the E5 productions cleanly, but is
  70591. * useful and compact.
  70592. *
  70593. * Note that identifiers may contain Unicode escapes,
  70594. * see E5 Sections 6 and 7.6. They must be decoded first,
  70595. * and the result checked against allowed characters.
  70596. * The above if-clause accepts an identifier start and an
  70597. * '\' character -- no other token can begin with a '\'.
  70598. *
  70599. * Note that "get" and "set" are not reserved words in E5
  70600. * specification so they are recognized as plain identifiers
  70601. * (the tokens DUK_TOK_GET and DUK_TOK_SET are actually not
  70602. * used now). The compiler needs to work around this.
  70603. *
  70604. * Strictly speaking, following Ecmascript longest match
  70605. * specification, an invalid escape for the first character
  70606. * should cause a syntax error. However, an invalid escape
  70607. * for IdentifierParts should just terminate the identifier
  70608. * early (longest match), and let the next tokenization
  70609. * fail. For instance Rhino croaks with 'foo\z' when
  70610. * parsing the identifier. This has little practical impact.
  70611. */
  70612. duk_small_uint_t i, i_end;
  70613. duk_bool_t first = 1;
  70614. duk_hstring *str;
  70615. DUK__INITBUFFER(lex_ctx);
  70616. for (;;) {
  70617. /* re-lookup first char on first loop */
  70618. if (DUK__L0() == DUK_ASC_BACKSLASH) {
  70619. duk_codepoint_t esc_cp;
  70620. if (DUK__L1() != DUK_ASC_LC_U) {
  70621. goto fail_escape;
  70622. }
  70623. esc_cp = duk__lexer_parse_escape(lex_ctx, 1 /*allow_es6*/);
  70624. DUK__APPENDBUFFER(lex_ctx, esc_cp);
  70625. /* IdentifierStart is stricter than IdentifierPart, so if the first
  70626. * character is escaped, must have a stricter check here.
  70627. */
  70628. if (!(first ? duk_unicode_is_identifier_start(esc_cp) : duk_unicode_is_identifier_part(esc_cp))) {
  70629. goto fail_escape;
  70630. }
  70631. /* Track number of escapes: necessary for proper keyword
  70632. * detection.
  70633. */
  70634. out_token->num_escapes++;
  70635. } else {
  70636. /* Note: first character is checked against this. But because
  70637. * IdentifierPart includes all IdentifierStart characters, and
  70638. * the first character (if unescaped) has already been checked
  70639. * in the if condition, this is OK.
  70640. */
  70641. if (!duk_unicode_is_identifier_part(DUK__L0())) {
  70642. break;
  70643. }
  70644. DUK__APPENDBUFFER(lex_ctx, DUK__L0());
  70645. DUK__ADVANCECHARS(lex_ctx, 1);
  70646. }
  70647. first = 0;
  70648. }
  70649. out_token->str1 = duk__internbuffer(lex_ctx, lex_ctx->slot1_idx);
  70650. str = out_token->str1;
  70651. out_token->t_nores = DUK_TOK_IDENTIFIER;
  70652. DUK__INITBUFFER(lex_ctx); /* free some memory */
  70653. /*
  70654. * Interned identifier is compared against reserved words, which are
  70655. * currently interned into the heap context. See genbuiltins.py.
  70656. *
  70657. * Note that an escape in the identifier disables recognition of
  70658. * keywords; e.g. "\u0069f = 1;" is a valid statement (assigns to
  70659. * identifier named "if"). This is not necessarily compliant,
  70660. * see test-dec-escaped-char-in-keyword.js.
  70661. *
  70662. * Note: "get" and "set" are awkward. They are not officially
  70663. * ReservedWords (and indeed e.g. "var set = 1;" is valid), and
  70664. * must come out as DUK_TOK_IDENTIFIER. The compiler needs to
  70665. * work around this a bit.
  70666. */
  70667. /* XXX: optimize by adding the token numbers directly into the
  70668. * always interned duk_hstring objects (there should be enough
  70669. * flag bits free for that)?
  70670. */
  70671. i_end = (strict_mode ? DUK_STRIDX_END_RESERVED : DUK_STRIDX_START_STRICT_RESERVED);
  70672. advtok = DUK__ADVTOK(0, DUK_TOK_IDENTIFIER);
  70673. if (out_token->num_escapes == 0) {
  70674. for (i = DUK_STRIDX_START_RESERVED; i < i_end; i++) {
  70675. DUK_ASSERT_DISABLE(i >= 0); /* unsigned */
  70676. DUK_ASSERT(i < DUK_HEAP_NUM_STRINGS);
  70677. if (DUK_HTHREAD_GET_STRING(lex_ctx->thr, i) == str) {
  70678. advtok = DUK__ADVTOK(0, DUK_STRIDX_TO_TOK(i));
  70679. break;
  70680. }
  70681. }
  70682. }
  70683. } else if (DUK__ISDIGIT(x) || (x == DUK_ASC_PERIOD)) {
  70684. /* Note: decimal number may start with a period, but must be followed by a digit */
  70685. /*
  70686. * Pre-parsing for decimal, hex, octal (both legacy and ES2015),
  70687. * and binary literals, followed by an actual parser step
  70688. * provided by numconv.
  70689. *
  70690. * Note: the leading sign character ('+' or '-') is -not- part of
  70691. * the production in E5 grammar, and that the a DecimalLiteral
  70692. * starting with a '0' must be followed by a non-digit.
  70693. *
  70694. * XXX: the two step parsing process is quite awkward, it would
  70695. * be more straightforward to allow numconv to parse the longest
  70696. * valid prefix (it already does that, it only needs to indicate
  70697. * where the input ended). However, the lexer decodes characters
  70698. * using a limited lookup window, so this is not a trivial change.
  70699. */
  70700. /* XXX: because of the final check below (that the literal is not
  70701. * followed by a digit), this could maybe be simplified, if we bail
  70702. * out early from a leading zero (and if there are no periods etc).
  70703. * Maybe too complex.
  70704. */
  70705. duk_double_t val;
  70706. duk_bool_t legacy_oct = 0;
  70707. duk_small_int_t state; /* 0=before period/exp,
  70708. * 1=after period, before exp
  70709. * 2=after exp, allow '+' or '-'
  70710. * 3=after exp and exp sign
  70711. */
  70712. duk_small_uint_t s2n_flags;
  70713. duk_codepoint_t y, z;
  70714. duk_small_int_t s2n_radix = 10;
  70715. duk_small_uint_t pre_adv = 0;
  70716. DUK__INITBUFFER(lex_ctx);
  70717. y = DUK__L1();
  70718. if (x == DUK_ASC_0) {
  70719. z = DUK_LOWERCASE_CHAR_ASCII(y);
  70720. pre_adv = 2; /* default for 0xNNN, 0oNNN, 0bNNN. */
  70721. if (z == DUK_ASC_LC_X) {
  70722. s2n_radix = 16;
  70723. } else if (z == DUK_ASC_LC_O) {
  70724. s2n_radix = 8;
  70725. } else if (z == DUK_ASC_LC_B) {
  70726. s2n_radix = 2;
  70727. } else {
  70728. pre_adv = 0;
  70729. if (DUK__ISDIGIT(y)) {
  70730. if (strict_mode) {
  70731. /* Reject octal like \07 but also octal-lookalike
  70732. * decimal like \08 in strict mode.
  70733. */
  70734. goto fail_number_literal;
  70735. } else {
  70736. /* Legacy OctalIntegerLiteral or octal-lookalice
  70737. * decimal. Deciding between the two happens below
  70738. * in digit scanning.
  70739. */
  70740. DUK__APPENDBUFFER(lex_ctx, x);
  70741. pre_adv = 1;
  70742. legacy_oct = 1;
  70743. s2n_radix = 8; /* tentative unless conflicting digits found */
  70744. }
  70745. }
  70746. }
  70747. }
  70748. DUK__ADVANCECHARS(lex_ctx, pre_adv);
  70749. /* XXX: we could parse integers here directly, and fall back
  70750. * to numconv only when encountering a fractional expression
  70751. * or when an octal literal turned out to be decimal (0778 etc).
  70752. */
  70753. state = 0;
  70754. for (;;) {
  70755. x = DUK__L0(); /* re-lookup curr char on first round */
  70756. if (DUK__ISDIGIT(x)) {
  70757. /* Note: intentionally allow leading zeroes here, as the
  70758. * actual parser will check for them.
  70759. */
  70760. if (state == 0 && legacy_oct && (x == DUK_ASC_8 || x == DUK_ASC_9)) {
  70761. /* Started out as an octal-lookalike
  70762. * but interpreted as decimal, e.g.
  70763. * '0779' -> 779. This also means
  70764. * that fractions are allowed, e.g.
  70765. * '0779.123' is allowed but '0777.123'
  70766. * is not!
  70767. */
  70768. s2n_radix = 10;
  70769. }
  70770. if (state == 2) {
  70771. state = 3;
  70772. }
  70773. } else if (s2n_radix == 16 && DUK__ISHEXDIGIT(x)) {
  70774. /* Note: 'e' and 'E' are also accepted here. */
  70775. ;
  70776. } else if (x == DUK_ASC_PERIOD) {
  70777. if (state >= 1 || s2n_radix != 10) {
  70778. break;
  70779. } else {
  70780. state = 1;
  70781. }
  70782. } else if (x == DUK_ASC_LC_E || x == DUK_ASC_UC_E) {
  70783. if (state >= 2 || s2n_radix != 10) {
  70784. break;
  70785. } else {
  70786. state = 2;
  70787. }
  70788. } else if (x == DUK_ASC_MINUS || x == DUK_ASC_PLUS) {
  70789. if (state != 2) {
  70790. break;
  70791. } else {
  70792. state = 3;
  70793. }
  70794. } else {
  70795. break;
  70796. }
  70797. DUK__APPENDBUFFER(lex_ctx, x);
  70798. DUK__ADVANCECHARS(lex_ctx, 1);
  70799. }
  70800. /* XXX: better coercion */
  70801. (void) duk__internbuffer(lex_ctx, lex_ctx->slot1_idx);
  70802. if (s2n_radix != 10) {
  70803. /* For bases other than 10, integer only. */
  70804. s2n_flags = DUK_S2N_FLAG_ALLOW_LEADING_ZERO;
  70805. } else {
  70806. s2n_flags = DUK_S2N_FLAG_ALLOW_EXP |
  70807. DUK_S2N_FLAG_ALLOW_FRAC |
  70808. DUK_S2N_FLAG_ALLOW_NAKED_FRAC |
  70809. DUK_S2N_FLAG_ALLOW_EMPTY_FRAC |
  70810. DUK_S2N_FLAG_ALLOW_LEADING_ZERO;
  70811. }
  70812. duk_dup(lex_ctx->thr, lex_ctx->slot1_idx);
  70813. duk_numconv_parse(lex_ctx->thr, s2n_radix, s2n_flags);
  70814. val = duk_to_number_m1(lex_ctx->thr);
  70815. if (DUK_ISNAN(val)) {
  70816. goto fail_number_literal;
  70817. }
  70818. duk_replace(lex_ctx->thr, lex_ctx->slot1_idx); /* could also just pop? */
  70819. DUK__INITBUFFER(lex_ctx); /* free some memory */
  70820. /* Section 7.8.3 (note): NumericLiteral must be followed by something other than
  70821. * IdentifierStart or DecimalDigit.
  70822. */
  70823. if (DUK__ISDIGIT(DUK__L0()) || duk_unicode_is_identifier_start(DUK__L0())) {
  70824. goto fail_number_literal;
  70825. }
  70826. out_token->num = val;
  70827. advtok = DUK__ADVTOK(0, DUK_TOK_NUMBER);
  70828. } else if (duk_unicode_is_whitespace(DUK__LOOKUP(lex_ctx, 0))) {
  70829. DUK__ADVANCECHARS(lex_ctx, 1);
  70830. goto restart;
  70831. } else if (x < 0) {
  70832. advtok = DUK__ADVTOK(0, DUK_TOK_EOF);
  70833. } else {
  70834. goto fail_token;
  70835. }
  70836. skip_slow_path:
  70837. /*
  70838. * Shared exit path
  70839. */
  70840. DUK__ADVANCEBYTES(lex_ctx, advtok >> 8);
  70841. out_token->t = advtok & 0xff;
  70842. if (out_token->t_nores == DUK_TOK_INVALID) {
  70843. out_token->t_nores = out_token->t;
  70844. }
  70845. out_token->lineterm = got_lineterm;
  70846. /* Automatic semicolon insertion is allowed if a token is preceded
  70847. * by line terminator(s), or terminates a statement list (right curly
  70848. * or EOF).
  70849. */
  70850. if (got_lineterm || out_token->t == DUK_TOK_RCURLY || out_token->t == DUK_TOK_EOF) {
  70851. out_token->allow_auto_semi = 1;
  70852. } else {
  70853. out_token->allow_auto_semi = 0;
  70854. }
  70855. return;
  70856. fail_token_limit:
  70857. DUK_ERROR_RANGE(lex_ctx->thr, DUK_STR_TOKEN_LIMIT);
  70858. return;
  70859. fail_token:
  70860. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_TOKEN);
  70861. return;
  70862. fail_number_literal:
  70863. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_NUMBER_LITERAL);
  70864. return;
  70865. fail_escape:
  70866. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE);
  70867. return;
  70868. fail_unterm_regexp:
  70869. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_REGEXP);
  70870. return;
  70871. fail_unterm_comment:
  70872. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_COMMENT);
  70873. return;
  70874. #if !defined(DUK_USE_REGEXP_SUPPORT)
  70875. fail_regexp_support:
  70876. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_REGEXP_SUPPORT_DISABLED);
  70877. return;
  70878. #endif
  70879. }
  70880. #if defined(DUK_USE_REGEXP_SUPPORT)
  70881. /*
  70882. * Parse a RegExp token. The grammar is described in E5 Section 15.10.
  70883. * Terminal constructions (such as quantifiers) are parsed directly here.
  70884. *
  70885. * 0xffffffffU is used as a marker for "infinity" in quantifiers. Further,
  70886. * DUK__MAX_RE_QUANT_DIGITS limits the maximum number of digits that
  70887. * will be accepted for a quantifier.
  70888. */
  70889. DUK_INTERNAL void duk_lexer_parse_re_token(duk_lexer_ctx *lex_ctx, duk_re_token *out_token) {
  70890. duk_small_uint_t advtok = 0; /* init is unnecessary but suppresses "may be used uninitialized" warnings */
  70891. duk_codepoint_t x, y;
  70892. if (++lex_ctx->token_count >= lex_ctx->token_limit) {
  70893. goto fail_token_limit;
  70894. }
  70895. DUK_MEMZERO(out_token, sizeof(*out_token));
  70896. x = DUK__L0();
  70897. y = DUK__L1();
  70898. DUK_DDD(DUK_DDDPRINT("parsing regexp token, L0=%ld, L1=%ld", (long) x, (long) y));
  70899. switch (x) {
  70900. case DUK_ASC_PIPE: {
  70901. advtok = DUK__ADVTOK(1, DUK_RETOK_DISJUNCTION);
  70902. break;
  70903. }
  70904. case DUK_ASC_CARET: {
  70905. advtok = DUK__ADVTOK(1, DUK_RETOK_ASSERT_START);
  70906. break;
  70907. }
  70908. case DUK_ASC_DOLLAR: {
  70909. advtok = DUK__ADVTOK(1, DUK_RETOK_ASSERT_END);
  70910. break;
  70911. }
  70912. case DUK_ASC_QUESTION: {
  70913. out_token->qmin = 0;
  70914. out_token->qmax = 1;
  70915. if (y == DUK_ASC_QUESTION) {
  70916. advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER);
  70917. out_token->greedy = 0;
  70918. } else {
  70919. advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER);
  70920. out_token->greedy = 1;
  70921. }
  70922. break;
  70923. }
  70924. case DUK_ASC_STAR: {
  70925. out_token->qmin = 0;
  70926. out_token->qmax = DUK_RE_QUANTIFIER_INFINITE;
  70927. if (y == DUK_ASC_QUESTION) {
  70928. advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER);
  70929. out_token->greedy = 0;
  70930. } else {
  70931. advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER);
  70932. out_token->greedy = 1;
  70933. }
  70934. break;
  70935. }
  70936. case DUK_ASC_PLUS: {
  70937. out_token->qmin = 1;
  70938. out_token->qmax = DUK_RE_QUANTIFIER_INFINITE;
  70939. if (y == DUK_ASC_QUESTION) {
  70940. advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER);
  70941. out_token->greedy = 0;
  70942. } else {
  70943. advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER);
  70944. out_token->greedy = 1;
  70945. }
  70946. break;
  70947. }
  70948. case DUK_ASC_LCURLY: {
  70949. /* Production allows 'DecimalDigits', including leading zeroes */
  70950. duk_uint32_t val1 = 0;
  70951. duk_uint32_t val2 = DUK_RE_QUANTIFIER_INFINITE;
  70952. duk_small_int_t digits = 0;
  70953. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  70954. duk_lexer_point lex_pt;
  70955. #endif
  70956. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  70957. /* Store lexer position, restoring if quantifier is invalid. */
  70958. DUK_LEXER_GETPOINT(lex_ctx, &lex_pt);
  70959. #endif
  70960. for (;;) {
  70961. DUK__ADVANCECHARS(lex_ctx, 1); /* eat '{' on entry */
  70962. x = DUK__L0();
  70963. if (DUK__ISDIGIT(x)) {
  70964. digits++;
  70965. val1 = val1 * 10 + (duk_uint32_t) duk__hexval(x);
  70966. } else if (x == DUK_ASC_COMMA) {
  70967. if (digits > DUK__MAX_RE_QUANT_DIGITS) {
  70968. goto invalid_quantifier;
  70969. }
  70970. if (val2 != DUK_RE_QUANTIFIER_INFINITE) {
  70971. goto invalid_quantifier;
  70972. }
  70973. if (DUK__L1() == DUK_ASC_RCURLY) {
  70974. /* form: { DecimalDigits , }, val1 = min count */
  70975. if (digits == 0) {
  70976. goto invalid_quantifier;
  70977. }
  70978. out_token->qmin = val1;
  70979. out_token->qmax = DUK_RE_QUANTIFIER_INFINITE;
  70980. DUK__ADVANCECHARS(lex_ctx, 2);
  70981. break;
  70982. }
  70983. val2 = val1;
  70984. val1 = 0;
  70985. digits = 0; /* not strictly necessary because of lookahead '}' above */
  70986. } else if (x == DUK_ASC_RCURLY) {
  70987. if (digits > DUK__MAX_RE_QUANT_DIGITS) {
  70988. goto invalid_quantifier;
  70989. }
  70990. if (digits == 0) {
  70991. goto invalid_quantifier;
  70992. }
  70993. if (val2 != DUK_RE_QUANTIFIER_INFINITE) {
  70994. /* val2 = min count, val1 = max count */
  70995. out_token->qmin = val2;
  70996. out_token->qmax = val1;
  70997. } else {
  70998. /* val1 = count */
  70999. out_token->qmin = val1;
  71000. out_token->qmax = val1;
  71001. }
  71002. DUK__ADVANCECHARS(lex_ctx, 1);
  71003. break;
  71004. } else {
  71005. goto invalid_quantifier;
  71006. }
  71007. }
  71008. if (DUK__L0() == DUK_ASC_QUESTION) {
  71009. out_token->greedy = 0;
  71010. DUK__ADVANCECHARS(lex_ctx, 1);
  71011. } else {
  71012. out_token->greedy = 1;
  71013. }
  71014. advtok = DUK__ADVTOK(0, DUK_RETOK_QUANTIFIER);
  71015. break;
  71016. invalid_quantifier:
  71017. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71018. /* Failed to match the quantifier, restore lexer and parse
  71019. * opening brace as a literal.
  71020. */
  71021. DUK_LEXER_SETPOINT(lex_ctx, &lex_pt);
  71022. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_CHAR);
  71023. out_token->num = DUK_ASC_LCURLY;
  71024. #else
  71025. goto fail_quantifier;
  71026. #endif
  71027. break;
  71028. }
  71029. case DUK_ASC_PERIOD: {
  71030. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_PERIOD);
  71031. break;
  71032. }
  71033. case DUK_ASC_BACKSLASH: {
  71034. /* The E5.1 specification does not seem to allow IdentifierPart characters
  71035. * to be used as identity escapes. Unfortunately this includes '$', which
  71036. * cannot be escaped as '\$'; it needs to be escaped e.g. as '\u0024'.
  71037. * Many other implementations (including V8 and Rhino, for instance) do
  71038. * accept '\$' as a valid identity escape, which is quite pragmatic, and
  71039. * ES2015 Annex B relaxes the rules to allow these (and other) real world forms.
  71040. */
  71041. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_CHAR); /* default: char escape (two chars) */
  71042. if (y == DUK_ASC_LC_B) {
  71043. advtok = DUK__ADVTOK(2, DUK_RETOK_ASSERT_WORD_BOUNDARY);
  71044. } else if (y == DUK_ASC_UC_B) {
  71045. advtok = DUK__ADVTOK(2, DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY);
  71046. } else if (y == DUK_ASC_LC_F) {
  71047. out_token->num = 0x000c;
  71048. } else if (y == DUK_ASC_LC_N) {
  71049. out_token->num = 0x000a;
  71050. } else if (y == DUK_ASC_LC_T) {
  71051. out_token->num = 0x0009;
  71052. } else if (y == DUK_ASC_LC_R) {
  71053. out_token->num = 0x000d;
  71054. } else if (y == DUK_ASC_LC_V) {
  71055. out_token->num = 0x000b;
  71056. } else if (y == DUK_ASC_LC_C) {
  71057. x = DUK__L2();
  71058. if ((x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_Z) ||
  71059. (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_Z)) {
  71060. out_token->num = (duk_uint32_t) (x % 32);
  71061. advtok = DUK__ADVTOK(3, DUK_RETOK_ATOM_CHAR);
  71062. } else {
  71063. goto fail_escape;
  71064. }
  71065. } else if (y == DUK_ASC_LC_X || y == DUK_ASC_LC_U) {
  71066. /* The token value is the Unicode codepoint without
  71067. * it being decode into surrogate pair characters
  71068. * here. The \u{H+} is only allowed in Unicode mode
  71069. * which we don't support yet.
  71070. */
  71071. out_token->num = (duk_uint32_t) duk__lexer_parse_escape(lex_ctx, 0 /*allow_es6*/);
  71072. advtok = DUK__ADVTOK(0, DUK_RETOK_ATOM_CHAR);
  71073. } else if (y == DUK_ASC_LC_D) {
  71074. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_DIGIT);
  71075. } else if (y == DUK_ASC_UC_D) {
  71076. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_DIGIT);
  71077. } else if (y == DUK_ASC_LC_S) {
  71078. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_WHITE);
  71079. } else if (y == DUK_ASC_UC_S) {
  71080. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_WHITE);
  71081. } else if (y == DUK_ASC_LC_W) {
  71082. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_WORD_CHAR);
  71083. } else if (y == DUK_ASC_UC_W) {
  71084. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_WORD_CHAR);
  71085. } else if (DUK__ISDIGIT(y)) {
  71086. /* E5 Section 15.10.2.11 */
  71087. if (y == DUK_ASC_0) {
  71088. if (DUK__ISDIGIT(DUK__L2())) {
  71089. goto fail_escape;
  71090. }
  71091. out_token->num = 0x0000;
  71092. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_CHAR);
  71093. } else {
  71094. /* XXX: shared parsing? */
  71095. duk_uint32_t val = 0;
  71096. duk_small_int_t i;
  71097. for (i = 0; ; i++) {
  71098. if (i >= DUK__MAX_RE_DECESC_DIGITS) {
  71099. goto fail_escape;
  71100. }
  71101. DUK__ADVANCECHARS(lex_ctx, 1); /* eat backslash on entry */
  71102. x = DUK__L0();
  71103. if (!DUK__ISDIGIT(x)) {
  71104. break;
  71105. }
  71106. val = val * 10 + (duk_uint32_t) duk__hexval(x);
  71107. }
  71108. /* DUK__L0() cannot be a digit, because the loop doesn't terminate if it is */
  71109. advtok = DUK__ADVTOK(0, DUK_RETOK_ATOM_BACKREFERENCE);
  71110. out_token->num = val;
  71111. }
  71112. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71113. } else if (y >= 0) {
  71114. /* For ES2015 Annex B, accept any source character as identity
  71115. * escape except 'c' which is used for control characters.
  71116. * http://www.ecma-international.org/ecma-262/6.0/#sec-regular-expressions-patterns
  71117. * Careful not to match end-of-buffer (<0) here.
  71118. * This is not yet full ES2015 Annex B because cases above
  71119. * (like hex escape) won't backtrack.
  71120. */
  71121. DUK_ASSERT(y != DUK_ASC_LC_C); /* covered above */
  71122. #else /* DUK_USE_ES6_REGEXP_SYNTAX */
  71123. } else if ((y >= 0 && !duk_unicode_is_identifier_part(y)) ||
  71124. y == DUK_UNICODE_CP_ZWNJ ||
  71125. y == DUK_UNICODE_CP_ZWJ) {
  71126. /* For ES5.1 identity escapes are not allowed for identifier
  71127. * parts. This conflicts with a lot of real world code as this
  71128. * doesn't e.g. allow escaping a dollar sign as /\$/, see
  71129. * test-regexp-identity-escape-dollar.js.
  71130. */
  71131. #endif /* DUK_USE_ES6_REGEXP_SYNTAX */
  71132. out_token->num = (duk_uint32_t) y;
  71133. } else {
  71134. goto fail_escape;
  71135. }
  71136. break;
  71137. }
  71138. case DUK_ASC_LPAREN: {
  71139. /* XXX: naming is inconsistent: ATOM_END_GROUP ends an ASSERT_START_LOOKAHEAD */
  71140. if (y == DUK_ASC_QUESTION) {
  71141. if (DUK__L2() == DUK_ASC_EQUALS) {
  71142. /* (?= */
  71143. advtok = DUK__ADVTOK(3, DUK_RETOK_ASSERT_START_POS_LOOKAHEAD);
  71144. } else if (DUK__L2() == DUK_ASC_EXCLAMATION) {
  71145. /* (?! */
  71146. advtok = DUK__ADVTOK(3, DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD);
  71147. } else if (DUK__L2() == DUK_ASC_COLON) {
  71148. /* (?: */
  71149. advtok = DUK__ADVTOK(3, DUK_RETOK_ATOM_START_NONCAPTURE_GROUP);
  71150. } else {
  71151. goto fail_group;
  71152. }
  71153. } else {
  71154. /* ( */
  71155. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_START_CAPTURE_GROUP);
  71156. }
  71157. break;
  71158. }
  71159. case DUK_ASC_RPAREN: {
  71160. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_END_GROUP);
  71161. break;
  71162. }
  71163. case DUK_ASC_LBRACKET: {
  71164. /*
  71165. * To avoid creating a heavy intermediate value for the list of ranges,
  71166. * only the start token ('[' or '[^') is parsed here. The regexp
  71167. * compiler parses the ranges itself.
  71168. */
  71169. /* XXX: with DUK_USE_ES6_REGEXP_SYNTAX we should allow left bracket
  71170. * literal too, but it's not easy to parse without backtracking.
  71171. */
  71172. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_START_CHARCLASS);
  71173. if (y == DUK_ASC_CARET) {
  71174. advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_START_CHARCLASS_INVERTED);
  71175. }
  71176. break;
  71177. }
  71178. #if !defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71179. case DUK_ASC_RCURLY:
  71180. case DUK_ASC_RBRACKET: {
  71181. /* Although these could be parsed as PatternCharacters unambiguously (here),
  71182. * E5 Section 15.10.1 grammar explicitly forbids these as PatternCharacters.
  71183. */
  71184. goto fail_invalid_char;
  71185. break;
  71186. }
  71187. #endif
  71188. case -1: {
  71189. /* EOF */
  71190. advtok = DUK__ADVTOK(0, DUK_TOK_EOF);
  71191. break;
  71192. }
  71193. default: {
  71194. /* PatternCharacter, all excluded characters are matched by cases above */
  71195. advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_CHAR);
  71196. out_token->num = (duk_uint32_t) x;
  71197. break;
  71198. }
  71199. }
  71200. /*
  71201. * Shared exit path
  71202. */
  71203. DUK__ADVANCEBYTES(lex_ctx, advtok >> 8);
  71204. out_token->t = advtok & 0xff;
  71205. return;
  71206. fail_token_limit:
  71207. DUK_ERROR_RANGE(lex_ctx->thr, DUK_STR_TOKEN_LIMIT);
  71208. return;
  71209. fail_escape:
  71210. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_ESCAPE);
  71211. return;
  71212. fail_group:
  71213. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_GROUP);
  71214. return;
  71215. #if !defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71216. fail_invalid_char:
  71217. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_CHARACTER);
  71218. return;
  71219. fail_quantifier:
  71220. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_QUANTIFIER);
  71221. return;
  71222. #endif
  71223. }
  71224. /*
  71225. * Special parser for character classes; calls callback for every
  71226. * range parsed and returns the number of ranges present.
  71227. */
  71228. /* XXX: this duplicates functionality in duk_regexp.c where a similar loop is
  71229. * required anyway. We could use that BUT we need to update the regexp compiler
  71230. * 'nranges' too. Work this out a bit more cleanly to save space.
  71231. */
  71232. /* XXX: the handling of character range detection is a bit convoluted.
  71233. * Try to simplify and make smaller.
  71234. */
  71235. /* XXX: logic for handling character ranges is now incorrect, it will accept
  71236. * e.g. [\d-z] whereas it should croak from it? SMJS accepts this too, though.
  71237. *
  71238. * Needs a read through and a lot of additional tests.
  71239. */
  71240. DUK_LOCAL
  71241. void duk__emit_u16_direct_ranges(duk_lexer_ctx *lex_ctx,
  71242. duk_re_range_callback gen_range,
  71243. void *userdata,
  71244. const duk_uint16_t *ranges,
  71245. duk_small_int_t num) {
  71246. const duk_uint16_t *ranges_end;
  71247. DUK_UNREF(lex_ctx);
  71248. ranges_end = ranges + num;
  71249. while (ranges < ranges_end) {
  71250. /* mark range 'direct', bypass canonicalization (see Wiki) */
  71251. gen_range(userdata, (duk_codepoint_t) ranges[0], (duk_codepoint_t) ranges[1], 1);
  71252. ranges += 2;
  71253. }
  71254. }
  71255. DUK_INTERNAL void duk_lexer_parse_re_ranges(duk_lexer_ctx *lex_ctx, duk_re_range_callback gen_range, void *userdata) {
  71256. duk_codepoint_t start = -1;
  71257. duk_codepoint_t ch;
  71258. duk_codepoint_t x;
  71259. duk_bool_t dash = 0;
  71260. duk_small_uint_t adv = 0;
  71261. DUK_DD(DUK_DDPRINT("parsing regexp ranges"));
  71262. for (;;) {
  71263. DUK__ADVANCECHARS(lex_ctx, adv);
  71264. adv = 1;
  71265. x = DUK__L0();
  71266. ch = -1; /* not strictly necessary, but avoids "uninitialized variable" warnings */
  71267. DUK_UNREF(ch);
  71268. if (x < 0) {
  71269. goto fail_unterm_charclass;
  71270. } else if (x == DUK_ASC_RBRACKET) {
  71271. if (start >= 0) {
  71272. gen_range(userdata, start, start, 0);
  71273. }
  71274. DUK__ADVANCECHARS(lex_ctx, 1); /* eat ']' before finishing */
  71275. break;
  71276. } else if (x == DUK_ASC_MINUS) {
  71277. if (start >= 0 && !dash && DUK__L1() != DUK_ASC_RBRACKET) {
  71278. /* '-' as a range indicator */
  71279. dash = 1;
  71280. continue;
  71281. } else {
  71282. /* '-' verbatim */
  71283. ch = x;
  71284. }
  71285. } else if (x == DUK_ASC_BACKSLASH) {
  71286. /*
  71287. * The escapes are same as outside a character class, except that \b has a
  71288. * different meaning, and \B and backreferences are prohibited (see E5
  71289. * Section 15.10.2.19). However, it's difficult to share code because we
  71290. * handle e.g. "\n" very differently: here we generate a single character
  71291. * range for it.
  71292. */
  71293. /* XXX: ES2015 surrogate pair handling. */
  71294. x = DUK__L1();
  71295. adv = 2;
  71296. if (x == DUK_ASC_LC_B) {
  71297. /* Note: '\b' in char class is different than outside (assertion),
  71298. * '\B' is not allowed and is caught by the duk_unicode_is_identifier_part()
  71299. * check below.
  71300. */
  71301. ch = 0x0008;
  71302. } else if (x == DUK_ASC_LC_F) {
  71303. ch = 0x000c;
  71304. } else if (x == DUK_ASC_LC_N) {
  71305. ch = 0x000a;
  71306. } else if (x == DUK_ASC_LC_T) {
  71307. ch = 0x0009;
  71308. } else if (x == DUK_ASC_LC_R) {
  71309. ch = 0x000d;
  71310. } else if (x == DUK_ASC_LC_V) {
  71311. ch = 0x000b;
  71312. } else if (x == DUK_ASC_LC_C) {
  71313. x = DUK__L2();
  71314. adv = 3;
  71315. if ((x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_Z) ||
  71316. (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_Z)) {
  71317. ch = (x % 32);
  71318. } else {
  71319. goto fail_escape;
  71320. }
  71321. } else if (x == DUK_ASC_LC_X || x == DUK_ASC_LC_U) {
  71322. /* The \u{H+} form is only allowed in Unicode mode which
  71323. * we don't support yet.
  71324. */
  71325. ch = duk__lexer_parse_escape(lex_ctx, 0 /*allow_es6*/);
  71326. adv = 0;
  71327. } else if (x == DUK_ASC_LC_D) {
  71328. duk__emit_u16_direct_ranges(lex_ctx,
  71329. gen_range,
  71330. userdata,
  71331. duk_unicode_re_ranges_digit,
  71332. sizeof(duk_unicode_re_ranges_digit) / sizeof(duk_uint16_t));
  71333. ch = -1;
  71334. } else if (x == DUK_ASC_UC_D) {
  71335. duk__emit_u16_direct_ranges(lex_ctx,
  71336. gen_range,
  71337. userdata,
  71338. duk_unicode_re_ranges_not_digit,
  71339. sizeof(duk_unicode_re_ranges_not_digit) / sizeof(duk_uint16_t));
  71340. ch = -1;
  71341. } else if (x == DUK_ASC_LC_S) {
  71342. duk__emit_u16_direct_ranges(lex_ctx,
  71343. gen_range,
  71344. userdata,
  71345. duk_unicode_re_ranges_white,
  71346. sizeof(duk_unicode_re_ranges_white) / sizeof(duk_uint16_t));
  71347. ch = -1;
  71348. } else if (x == DUK_ASC_UC_S) {
  71349. duk__emit_u16_direct_ranges(lex_ctx,
  71350. gen_range,
  71351. userdata,
  71352. duk_unicode_re_ranges_not_white,
  71353. sizeof(duk_unicode_re_ranges_not_white) / sizeof(duk_uint16_t));
  71354. ch = -1;
  71355. } else if (x == DUK_ASC_LC_W) {
  71356. duk__emit_u16_direct_ranges(lex_ctx,
  71357. gen_range,
  71358. userdata,
  71359. duk_unicode_re_ranges_wordchar,
  71360. sizeof(duk_unicode_re_ranges_wordchar) / sizeof(duk_uint16_t));
  71361. ch = -1;
  71362. } else if (x == DUK_ASC_UC_W) {
  71363. duk__emit_u16_direct_ranges(lex_ctx,
  71364. gen_range,
  71365. userdata,
  71366. duk_unicode_re_ranges_not_wordchar,
  71367. sizeof(duk_unicode_re_ranges_not_wordchar) / sizeof(duk_uint16_t));
  71368. ch = -1;
  71369. } else if (DUK__ISDIGIT(x)) {
  71370. /* DecimalEscape, only \0 is allowed, no leading
  71371. * zeroes are allowed.
  71372. *
  71373. * ES2015 Annex B also allows (maximal match) legacy
  71374. * octal escapes up to \377 and \8 and \9 are
  71375. * accepted as literal '8' and '9', also in strict mode.
  71376. */
  71377. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71378. ch = duk__lexer_parse_legacy_octal(lex_ctx, &adv, 0 /*reject_annex_b*/);
  71379. DUK_ASSERT(ch >= 0); /* no rejections */
  71380. #else
  71381. if (x == DUK_ASC_0 && !DUK__ISDIGIT(DUK__L2())) {
  71382. ch = 0x0000;
  71383. } else {
  71384. goto fail_escape;
  71385. }
  71386. #endif
  71387. #if defined(DUK_USE_ES6_REGEXP_SYNTAX)
  71388. } else if (x >= 0) {
  71389. /* IdentityEscape: ES2015 Annex B allows almost all
  71390. * source characters here. Match anything except
  71391. * EOF here.
  71392. */
  71393. ch = x;
  71394. #else /* DUK_USE_ES6_REGEXP_SYNTAX */
  71395. } else if (!duk_unicode_is_identifier_part(x)) {
  71396. /* IdentityEscape: ES5.1 doesn't allow identity escape
  71397. * for identifier part characters, which conflicts with
  71398. * some real world code. For example, it doesn't allow
  71399. * /[\$]/ which is awkward.
  71400. */
  71401. ch = x;
  71402. #endif /* DUK_USE_ES6_REGEXP_SYNTAX */
  71403. } else {
  71404. goto fail_escape;
  71405. }
  71406. } else {
  71407. /* character represents itself */
  71408. ch = x;
  71409. }
  71410. /* ch is a literal character here or -1 if parsed entity was
  71411. * an escape such as "\s".
  71412. */
  71413. if (ch < 0) {
  71414. /* multi-character sets not allowed as part of ranges, see
  71415. * E5 Section 15.10.2.15, abstract operation CharacterRange.
  71416. */
  71417. if (start >= 0) {
  71418. if (dash) {
  71419. goto fail_range;
  71420. } else {
  71421. gen_range(userdata, start, start, 0);
  71422. start = -1;
  71423. /* dash is already 0 */
  71424. }
  71425. }
  71426. } else {
  71427. if (start >= 0) {
  71428. if (dash) {
  71429. if (start > ch) {
  71430. goto fail_range;
  71431. }
  71432. gen_range(userdata, start, ch, 0);
  71433. start = -1;
  71434. dash = 0;
  71435. } else {
  71436. gen_range(userdata, start, start, 0);
  71437. start = ch;
  71438. /* dash is already 0 */
  71439. }
  71440. } else {
  71441. start = ch;
  71442. }
  71443. }
  71444. }
  71445. return;
  71446. fail_escape:
  71447. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_ESCAPE);
  71448. return;
  71449. fail_range:
  71450. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_RANGE);
  71451. return;
  71452. fail_unterm_charclass:
  71453. DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_CHARCLASS);
  71454. return;
  71455. }
  71456. #endif /* DUK_USE_REGEXP_SUPPORT */
  71457. /* automatic undefs */
  71458. #undef DUK__ADVANCEBYTES
  71459. #undef DUK__ADVANCECHARS
  71460. #undef DUK__ADVTOK
  71461. #undef DUK__APPENDBUFFER
  71462. #undef DUK__APPENDBUFFER_ASCII
  71463. #undef DUK__INITBUFFER
  71464. #undef DUK__ISDIGIT
  71465. #undef DUK__ISDIGIT03
  71466. #undef DUK__ISDIGIT47
  71467. #undef DUK__ISHEXDIGIT
  71468. #undef DUK__ISOCTDIGIT
  71469. #undef DUK__L0
  71470. #undef DUK__L1
  71471. #undef DUK__L2
  71472. #undef DUK__L3
  71473. #undef DUK__L4
  71474. #undef DUK__L5
  71475. #undef DUK__LOOKUP
  71476. #undef DUK__MAX_RE_DECESC_DIGITS
  71477. #undef DUK__MAX_RE_QUANT_DIGITS
  71478. #line 1 "duk_numconv.c"
  71479. /*
  71480. * Number-to-string and string-to-number conversions.
  71481. *
  71482. * Slow path number-to-string and string-to-number conversion is based on
  71483. * a Dragon4 variant, with fast paths for small integers. Big integer
  71484. * arithmetic is needed for guaranteeing that the conversion is correct
  71485. * and uses a minimum number of digits. The big number arithmetic has a
  71486. * fixed maximum size and does not require dynamic allocations.
  71487. *
  71488. * See: doc/number-conversion.rst.
  71489. */
  71490. /* #include duk_internal.h -> already included */
  71491. #define DUK__IEEE_DOUBLE_EXP_BIAS 1023
  71492. #define DUK__IEEE_DOUBLE_EXP_MIN (-1022) /* biased exp == 0 -> denormal, exp -1022 */
  71493. #define DUK__DIGITCHAR(x) duk_lc_digits[(x)]
  71494. /*
  71495. * Tables generated with util/gennumdigits.py.
  71496. *
  71497. * duk__str2num_digits_for_radix indicates, for each radix, how many input
  71498. * digits should be considered significant for string-to-number conversion.
  71499. * The input is also padded to this many digits to give the Dragon4
  71500. * conversion enough (apparent) precision to work with.
  71501. *
  71502. * duk__str2num_exp_limits indicates, for each radix, the radix-specific
  71503. * minimum/maximum exponent values (for a Dragon4 integer mantissa)
  71504. * below and above which the number is guaranteed to underflow to zero
  71505. * or overflow to Infinity. This allows parsing to keep bigint values
  71506. * bounded.
  71507. */
  71508. DUK_LOCAL const duk_uint8_t duk__str2num_digits_for_radix[] = {
  71509. 69, 44, 35, 30, 27, 25, 23, 22, 20, 20, /* 2 to 11 */
  71510. 20, 19, 19, 18, 18, 17, 17, 17, 16, 16, /* 12 to 21 */
  71511. 16, 16, 16, 15, 15, 15, 15, 15, 15, 14, /* 22 to 31 */
  71512. 14, 14, 14, 14, 14 /* 31 to 36 */
  71513. };
  71514. typedef struct {
  71515. duk_int16_t upper;
  71516. duk_int16_t lower;
  71517. } duk__exp_limits;
  71518. DUK_LOCAL const duk__exp_limits duk__str2num_exp_limits[] = {
  71519. { 957, -1147 }, { 605, -725 }, { 479, -575 }, { 414, -496 },
  71520. { 372, -446 }, { 342, -411 }, { 321, -384 }, { 304, -364 },
  71521. { 291, -346 }, { 279, -334 }, { 268, -323 }, { 260, -312 },
  71522. { 252, -304 }, { 247, -296 }, { 240, -289 }, { 236, -283 },
  71523. { 231, -278 }, { 227, -273 }, { 223, -267 }, { 220, -263 },
  71524. { 216, -260 }, { 213, -256 }, { 210, -253 }, { 208, -249 },
  71525. { 205, -246 }, { 203, -244 }, { 201, -241 }, { 198, -239 },
  71526. { 196, -237 }, { 195, -234 }, { 193, -232 }, { 191, -230 },
  71527. { 190, -228 }, { 188, -226 }, { 187, -225 },
  71528. };
  71529. /*
  71530. * Limited functionality bigint implementation.
  71531. *
  71532. * Restricted to non-negative numbers with less than 32 * DUK__BI_MAX_PARTS bits,
  71533. * with the caller responsible for ensuring this is never exceeded. No memory
  71534. * allocation (except stack) is needed for bigint computation. Operations
  71535. * have been tailored for number conversion needs.
  71536. *
  71537. * Argument order is "assignment order", i.e. target first, then arguments:
  71538. * x <- y * z --> duk__bi_mul(x, y, z);
  71539. */
  71540. /* This upper value has been experimentally determined; debug build will check
  71541. * bigint size with assertions.
  71542. */
  71543. #define DUK__BI_MAX_PARTS 37 /* 37x32 = 1184 bits */
  71544. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  71545. #define DUK__BI_PRINT(name,x) duk__bi_print((name),(x))
  71546. #else
  71547. #define DUK__BI_PRINT(name,x)
  71548. #endif
  71549. /* Current size is about 152 bytes. */
  71550. typedef struct {
  71551. duk_small_int_t n;
  71552. duk_uint32_t v[DUK__BI_MAX_PARTS]; /* low to high */
  71553. } duk__bigint;
  71554. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  71555. DUK_LOCAL void duk__bi_print(const char *name, duk__bigint *x) {
  71556. /* Overestimate required size; debug code so not critical to be tight. */
  71557. char buf[DUK__BI_MAX_PARTS * 9 + 64];
  71558. char *p = buf;
  71559. duk_small_int_t i;
  71560. /* No NUL term checks in this debug code. */
  71561. p += DUK_SPRINTF(p, "%p n=%ld", (void *) x, (long) x->n);
  71562. if (x->n == 0) {
  71563. p += DUK_SPRINTF(p, " 0");
  71564. }
  71565. for (i = x->n - 1; i >= 0; i--) {
  71566. p += DUK_SPRINTF(p, " %08lx", (unsigned long) x->v[i]);
  71567. }
  71568. DUK_DDD(DUK_DDDPRINT("%s: %s", (const char *) name, (const char *) buf));
  71569. }
  71570. #endif
  71571. #if defined(DUK_USE_ASSERTIONS)
  71572. DUK_LOCAL duk_small_int_t duk__bi_is_valid(duk__bigint *x) {
  71573. return (duk_small_int_t)
  71574. ( ((x->n >= 0) && (x->n <= DUK__BI_MAX_PARTS)) /* is valid size */ &&
  71575. ((x->n == 0) || (x->v[x->n - 1] != 0)) /* is normalized */ );
  71576. }
  71577. #endif
  71578. DUK_LOCAL void duk__bi_normalize(duk__bigint *x) {
  71579. duk_small_int_t i;
  71580. for (i = x->n - 1; i >= 0; i--) {
  71581. if (x->v[i] != 0) {
  71582. break;
  71583. }
  71584. }
  71585. /* Note: if 'x' is zero, x->n becomes 0 here */
  71586. x->n = i + 1;
  71587. DUK_ASSERT(duk__bi_is_valid(x));
  71588. }
  71589. /* x <- y */
  71590. DUK_LOCAL void duk__bi_copy(duk__bigint *x, duk__bigint *y) {
  71591. duk_small_int_t n;
  71592. n = y->n;
  71593. x->n = n;
  71594. if (n == 0) {
  71595. return;
  71596. }
  71597. DUK_MEMCPY((void *) x->v, (const void *) y->v, (size_t) (sizeof(duk_uint32_t) * (size_t) n));
  71598. }
  71599. DUK_LOCAL void duk__bi_set_small(duk__bigint *x, duk_uint32_t v) {
  71600. if (v == 0U) {
  71601. x->n = 0;
  71602. } else {
  71603. x->n = 1;
  71604. x->v[0] = v;
  71605. }
  71606. DUK_ASSERT(duk__bi_is_valid(x));
  71607. }
  71608. /* Return value: <0 <=> x < y
  71609. * 0 <=> x == y
  71610. * >0 <=> x > y
  71611. */
  71612. DUK_LOCAL int duk__bi_compare(duk__bigint *x, duk__bigint *y) {
  71613. duk_small_int_t i, nx, ny;
  71614. duk_uint32_t tx, ty;
  71615. DUK_ASSERT(duk__bi_is_valid(x));
  71616. DUK_ASSERT(duk__bi_is_valid(y));
  71617. nx = x->n;
  71618. ny = y->n;
  71619. if (nx > ny) {
  71620. goto ret_gt;
  71621. }
  71622. if (nx < ny) {
  71623. goto ret_lt;
  71624. }
  71625. for (i = nx - 1; i >= 0; i--) {
  71626. tx = x->v[i];
  71627. ty = y->v[i];
  71628. if (tx > ty) {
  71629. goto ret_gt;
  71630. }
  71631. if (tx < ty) {
  71632. goto ret_lt;
  71633. }
  71634. }
  71635. return 0;
  71636. ret_gt:
  71637. return 1;
  71638. ret_lt:
  71639. return -1;
  71640. }
  71641. /* x <- y + z */
  71642. #if defined(DUK_USE_64BIT_OPS)
  71643. DUK_LOCAL void duk__bi_add(duk__bigint *x, duk__bigint *y, duk__bigint *z) {
  71644. duk_uint64_t tmp;
  71645. duk_small_int_t i, ny, nz;
  71646. DUK_ASSERT(duk__bi_is_valid(y));
  71647. DUK_ASSERT(duk__bi_is_valid(z));
  71648. if (z->n > y->n) {
  71649. duk__bigint *t;
  71650. t = y; y = z; z = t;
  71651. }
  71652. DUK_ASSERT(y->n >= z->n);
  71653. ny = y->n; nz = z->n;
  71654. tmp = 0U;
  71655. for (i = 0; i < ny; i++) {
  71656. DUK_ASSERT(i < DUK__BI_MAX_PARTS);
  71657. tmp += y->v[i];
  71658. if (i < nz) {
  71659. tmp += z->v[i];
  71660. }
  71661. x->v[i] = (duk_uint32_t) (tmp & 0xffffffffUL);
  71662. tmp = tmp >> 32;
  71663. }
  71664. if (tmp != 0U) {
  71665. DUK_ASSERT(i < DUK__BI_MAX_PARTS);
  71666. x->v[i++] = (duk_uint32_t) tmp;
  71667. }
  71668. x->n = i;
  71669. DUK_ASSERT(x->n <= DUK__BI_MAX_PARTS);
  71670. /* no need to normalize */
  71671. DUK_ASSERT(duk__bi_is_valid(x));
  71672. }
  71673. #else /* DUK_USE_64BIT_OPS */
  71674. DUK_LOCAL void duk__bi_add(duk__bigint *x, duk__bigint *y, duk__bigint *z) {
  71675. duk_uint32_t carry, tmp1, tmp2;
  71676. duk_small_int_t i, ny, nz;
  71677. DUK_ASSERT(duk__bi_is_valid(y));
  71678. DUK_ASSERT(duk__bi_is_valid(z));
  71679. if (z->n > y->n) {
  71680. duk__bigint *t;
  71681. t = y; y = z; z = t;
  71682. }
  71683. DUK_ASSERT(y->n >= z->n);
  71684. ny = y->n; nz = z->n;
  71685. carry = 0U;
  71686. for (i = 0; i < ny; i++) {
  71687. /* Carry is detected based on wrapping which relies on exact 32-bit
  71688. * types.
  71689. */
  71690. DUK_ASSERT(i < DUK__BI_MAX_PARTS);
  71691. tmp1 = y->v[i];
  71692. tmp2 = tmp1;
  71693. if (i < nz) {
  71694. tmp2 += z->v[i];
  71695. }
  71696. /* Careful with carry condition:
  71697. * - If carry not added: 0x12345678 + 0 + 0xffffffff = 0x12345677 (< 0x12345678)
  71698. * - If carry added: 0x12345678 + 1 + 0xffffffff = 0x12345678 (== 0x12345678)
  71699. */
  71700. if (carry) {
  71701. tmp2++;
  71702. carry = (tmp2 <= tmp1 ? 1U : 0U);
  71703. } else {
  71704. carry = (tmp2 < tmp1 ? 1U : 0U);
  71705. }
  71706. x->v[i] = tmp2;
  71707. }
  71708. if (carry) {
  71709. DUK_ASSERT(i < DUK__BI_MAX_PARTS);
  71710. DUK_ASSERT(carry == 1U);
  71711. x->v[i++] = carry;
  71712. }
  71713. x->n = i;
  71714. DUK_ASSERT(x->n <= DUK__BI_MAX_PARTS);
  71715. /* no need to normalize */
  71716. DUK_ASSERT(duk__bi_is_valid(x));
  71717. }
  71718. #endif /* DUK_USE_64BIT_OPS */
  71719. /* x <- y + z */
  71720. DUK_LOCAL void duk__bi_add_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) {
  71721. duk__bigint tmp;
  71722. DUK_ASSERT(duk__bi_is_valid(y));
  71723. /* XXX: this could be optimized; there is only one call site now though */
  71724. duk__bi_set_small(&tmp, z);
  71725. duk__bi_add(x, y, &tmp);
  71726. DUK_ASSERT(duk__bi_is_valid(x));
  71727. }
  71728. #if 0 /* unused */
  71729. /* x <- x + y, use t as temp */
  71730. DUK_LOCAL void duk__bi_add_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) {
  71731. duk__bi_add(t, x, y);
  71732. duk__bi_copy(x, t);
  71733. }
  71734. #endif
  71735. /* x <- y - z, require x >= y => z >= 0, i.e. y >= z */
  71736. #if defined(DUK_USE_64BIT_OPS)
  71737. DUK_LOCAL void duk__bi_sub(duk__bigint *x, duk__bigint *y, duk__bigint *z) {
  71738. duk_small_int_t i, ny, nz;
  71739. duk_uint32_t ty, tz;
  71740. duk_int64_t tmp;
  71741. DUK_ASSERT(duk__bi_is_valid(y));
  71742. DUK_ASSERT(duk__bi_is_valid(z));
  71743. DUK_ASSERT(duk__bi_compare(y, z) >= 0);
  71744. DUK_ASSERT(y->n >= z->n);
  71745. ny = y->n; nz = z->n;
  71746. tmp = 0;
  71747. for (i = 0; i < ny; i++) {
  71748. ty = y->v[i];
  71749. if (i < nz) {
  71750. tz = z->v[i];
  71751. } else {
  71752. tz = 0;
  71753. }
  71754. tmp = (duk_int64_t) ty - (duk_int64_t) tz + tmp;
  71755. x->v[i] = (duk_uint32_t) ((duk_uint64_t) tmp & 0xffffffffUL);
  71756. tmp = tmp >> 32; /* 0 or -1 */
  71757. }
  71758. DUK_ASSERT(tmp == 0);
  71759. x->n = i;
  71760. duk__bi_normalize(x); /* need to normalize, may even cancel to 0 */
  71761. DUK_ASSERT(duk__bi_is_valid(x));
  71762. }
  71763. #else
  71764. DUK_LOCAL void duk__bi_sub(duk__bigint *x, duk__bigint *y, duk__bigint *z) {
  71765. duk_small_int_t i, ny, nz;
  71766. duk_uint32_t tmp1, tmp2, borrow;
  71767. DUK_ASSERT(duk__bi_is_valid(y));
  71768. DUK_ASSERT(duk__bi_is_valid(z));
  71769. DUK_ASSERT(duk__bi_compare(y, z) >= 0);
  71770. DUK_ASSERT(y->n >= z->n);
  71771. ny = y->n; nz = z->n;
  71772. borrow = 0U;
  71773. for (i = 0; i < ny; i++) {
  71774. /* Borrow is detected based on wrapping which relies on exact 32-bit
  71775. * types.
  71776. */
  71777. tmp1 = y->v[i];
  71778. tmp2 = tmp1;
  71779. if (i < nz) {
  71780. tmp2 -= z->v[i];
  71781. }
  71782. /* Careful with borrow condition:
  71783. * - If borrow not subtracted: 0x12345678 - 0 - 0xffffffff = 0x12345679 (> 0x12345678)
  71784. * - If borrow subtracted: 0x12345678 - 1 - 0xffffffff = 0x12345678 (== 0x12345678)
  71785. */
  71786. if (borrow) {
  71787. tmp2--;
  71788. borrow = (tmp2 >= tmp1 ? 1U : 0U);
  71789. } else {
  71790. borrow = (tmp2 > tmp1 ? 1U : 0U);
  71791. }
  71792. x->v[i] = tmp2;
  71793. }
  71794. DUK_ASSERT(borrow == 0U);
  71795. x->n = i;
  71796. duk__bi_normalize(x); /* need to normalize, may even cancel to 0 */
  71797. DUK_ASSERT(duk__bi_is_valid(x));
  71798. }
  71799. #endif
  71800. #if 0 /* unused */
  71801. /* x <- y - z */
  71802. DUK_LOCAL void duk__bi_sub_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) {
  71803. duk__bigint tmp;
  71804. DUK_ASSERT(duk__bi_is_valid(y));
  71805. /* XXX: this could be optimized */
  71806. duk__bi_set_small(&tmp, z);
  71807. duk__bi_sub(x, y, &tmp);
  71808. DUK_ASSERT(duk__bi_is_valid(x));
  71809. }
  71810. #endif
  71811. /* x <- x - y, use t as temp */
  71812. DUK_LOCAL void duk__bi_sub_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) {
  71813. duk__bi_sub(t, x, y);
  71814. duk__bi_copy(x, t);
  71815. }
  71816. /* x <- y * z */
  71817. DUK_LOCAL void duk__bi_mul(duk__bigint *x, duk__bigint *y, duk__bigint *z) {
  71818. duk_small_int_t i, j, nx, nz;
  71819. DUK_ASSERT(duk__bi_is_valid(y));
  71820. DUK_ASSERT(duk__bi_is_valid(z));
  71821. nx = y->n + z->n; /* max possible */
  71822. DUK_ASSERT(nx <= DUK__BI_MAX_PARTS);
  71823. if (nx == 0) {
  71824. /* Both inputs are zero; cases where only one is zero can go
  71825. * through main algorithm.
  71826. */
  71827. x->n = 0;
  71828. return;
  71829. }
  71830. DUK_MEMZERO((void *) x->v, (size_t) (sizeof(duk_uint32_t) * (size_t) nx));
  71831. x->n = nx;
  71832. nz = z->n;
  71833. for (i = 0; i < y->n; i++) {
  71834. #if defined(DUK_USE_64BIT_OPS)
  71835. duk_uint64_t tmp = 0U;
  71836. for (j = 0; j < nz; j++) {
  71837. tmp += (duk_uint64_t) y->v[i] * (duk_uint64_t) z->v[j] + x->v[i+j];
  71838. x->v[i+j] = (duk_uint32_t) (tmp & 0xffffffffUL);
  71839. tmp = tmp >> 32;
  71840. }
  71841. if (tmp > 0) {
  71842. DUK_ASSERT(i + j < nx);
  71843. DUK_ASSERT(i + j < DUK__BI_MAX_PARTS);
  71844. DUK_ASSERT(x->v[i+j] == 0U);
  71845. x->v[i+j] = (duk_uint32_t) tmp;
  71846. }
  71847. #else
  71848. /*
  71849. * Multiply + add + carry for 32-bit components using only 16x16->32
  71850. * multiplies and carry detection based on unsigned overflow.
  71851. *
  71852. * 1st mult, 32-bit: (A*2^16 + B)
  71853. * 2nd mult, 32-bit: (C*2^16 + D)
  71854. * 3rd add, 32-bit: E
  71855. * 4th add, 32-bit: F
  71856. *
  71857. * (AC*2^16 + B) * (C*2^16 + D) + E + F
  71858. * = AC*2^32 + AD*2^16 + BC*2^16 + BD + E + F
  71859. * = AC*2^32 + (AD + BC)*2^16 + (BD + E + F)
  71860. * = AC*2^32 + AD*2^16 + BC*2^16 + (BD + E + F)
  71861. */
  71862. duk_uint32_t a, b, c, d, e, f;
  71863. duk_uint32_t r, s, t;
  71864. a = y->v[i]; b = a & 0xffffUL; a = a >> 16;
  71865. f = 0;
  71866. for (j = 0; j < nz; j++) {
  71867. c = z->v[j]; d = c & 0xffffUL; c = c >> 16;
  71868. e = x->v[i+j];
  71869. /* build result as: (r << 32) + s: start with (BD + E + F) */
  71870. r = 0;
  71871. s = b * d;
  71872. /* add E */
  71873. t = s + e;
  71874. if (t < s) { r++; } /* carry */
  71875. s = t;
  71876. /* add F */
  71877. t = s + f;
  71878. if (t < s) { r++; } /* carry */
  71879. s = t;
  71880. /* add BC*2^16 */
  71881. t = b * c;
  71882. r += (t >> 16);
  71883. t = s + ((t & 0xffffUL) << 16);
  71884. if (t < s) { r++; } /* carry */
  71885. s = t;
  71886. /* add AD*2^16 */
  71887. t = a * d;
  71888. r += (t >> 16);
  71889. t = s + ((t & 0xffffUL) << 16);
  71890. if (t < s) { r++; } /* carry */
  71891. s = t;
  71892. /* add AC*2^32 */
  71893. t = a * c;
  71894. r += t;
  71895. DUK_DDD(DUK_DDDPRINT("ab=%08lx cd=%08lx ef=%08lx -> rs=%08lx %08lx",
  71896. (unsigned long) y->v[i], (unsigned long) z->v[j],
  71897. (unsigned long) x->v[i+j], (unsigned long) r,
  71898. (unsigned long) s));
  71899. x->v[i+j] = s;
  71900. f = r;
  71901. }
  71902. if (f > 0U) {
  71903. DUK_ASSERT(i + j < nx);
  71904. DUK_ASSERT(i + j < DUK__BI_MAX_PARTS);
  71905. DUK_ASSERT(x->v[i+j] == 0U);
  71906. x->v[i+j] = (duk_uint32_t) f;
  71907. }
  71908. #endif /* DUK_USE_64BIT_OPS */
  71909. }
  71910. duk__bi_normalize(x);
  71911. DUK_ASSERT(duk__bi_is_valid(x));
  71912. }
  71913. /* x <- y * z */
  71914. DUK_LOCAL void duk__bi_mul_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) {
  71915. duk__bigint tmp;
  71916. DUK_ASSERT(duk__bi_is_valid(y));
  71917. /* XXX: this could be optimized */
  71918. duk__bi_set_small(&tmp, z);
  71919. duk__bi_mul(x, y, &tmp);
  71920. DUK_ASSERT(duk__bi_is_valid(x));
  71921. }
  71922. /* x <- x * y, use t as temp */
  71923. DUK_LOCAL void duk__bi_mul_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) {
  71924. duk__bi_mul(t, x, y);
  71925. duk__bi_copy(x, t);
  71926. }
  71927. /* x <- x * y, use t as temp */
  71928. DUK_LOCAL void duk__bi_mul_small_copy(duk__bigint *x, duk_uint32_t y, duk__bigint *t) {
  71929. duk__bi_mul_small(t, x, y);
  71930. duk__bi_copy(x, t);
  71931. }
  71932. DUK_LOCAL int duk__bi_is_even(duk__bigint *x) {
  71933. DUK_ASSERT(duk__bi_is_valid(x));
  71934. return (x->n == 0) || ((x->v[0] & 0x01) == 0);
  71935. }
  71936. DUK_LOCAL int duk__bi_is_zero(duk__bigint *x) {
  71937. DUK_ASSERT(duk__bi_is_valid(x));
  71938. return (x->n == 0); /* this is the case for normalized numbers */
  71939. }
  71940. /* Bigint is 2^52. Used to detect normalized IEEE double mantissa values
  71941. * which are at the lowest edge (next floating point value downwards has
  71942. * a different exponent). The lowest mantissa has the form:
  71943. *
  71944. * 1000........000 (52 zeroes; only "hidden bit" is set)
  71945. */
  71946. DUK_LOCAL duk_small_int_t duk__bi_is_2to52(duk__bigint *x) {
  71947. DUK_ASSERT(duk__bi_is_valid(x));
  71948. return (duk_small_int_t)
  71949. (x->n == 2) && (x->v[0] == 0U) && (x->v[1] == (1U << (52-32)));
  71950. }
  71951. /* x <- (1<<y) */
  71952. DUK_LOCAL void duk__bi_twoexp(duk__bigint *x, duk_small_int_t y) {
  71953. duk_small_int_t n, r;
  71954. n = (y / 32) + 1;
  71955. DUK_ASSERT(n > 0);
  71956. r = y % 32;
  71957. DUK_MEMZERO((void *) x->v, sizeof(duk_uint32_t) * (size_t) n);
  71958. x->n = n;
  71959. x->v[n - 1] = (((duk_uint32_t) 1) << r);
  71960. }
  71961. /* x <- b^y; use t1 and t2 as temps */
  71962. DUK_LOCAL void duk__bi_exp_small(duk__bigint *x, duk_small_int_t b, duk_small_int_t y, duk__bigint *t1, duk__bigint *t2) {
  71963. /* Fast path the binary case */
  71964. DUK_ASSERT(x != t1 && x != t2 && t1 != t2); /* distinct bignums, easy mistake to make */
  71965. DUK_ASSERT(b >= 0);
  71966. DUK_ASSERT(y >= 0);
  71967. if (b == 2) {
  71968. duk__bi_twoexp(x, y);
  71969. return;
  71970. }
  71971. /* http://en.wikipedia.org/wiki/Exponentiation_by_squaring */
  71972. DUK_DDD(DUK_DDDPRINT("exp_small: b=%ld, y=%ld", (long) b, (long) y));
  71973. duk__bi_set_small(x, 1);
  71974. duk__bi_set_small(t1, (duk_uint32_t) b);
  71975. for (;;) {
  71976. /* Loop structure ensures that we don't compute t1^2 unnecessarily
  71977. * on the final round, as that might create a bignum exceeding the
  71978. * current DUK__BI_MAX_PARTS limit.
  71979. */
  71980. if (y & 0x01) {
  71981. duk__bi_mul_copy(x, t1, t2);
  71982. }
  71983. y = y >> 1;
  71984. if (y == 0) {
  71985. break;
  71986. }
  71987. duk__bi_mul_copy(t1, t1, t2);
  71988. }
  71989. DUK__BI_PRINT("exp_small result", x);
  71990. }
  71991. /*
  71992. * A Dragon4 number-to-string variant, based on:
  71993. *
  71994. * Guy L. Steele Jr., Jon L. White: "How to Print Floating-Point Numbers
  71995. * Accurately"
  71996. *
  71997. * Robert G. Burger, R. Kent Dybvig: "Printing Floating-Point Numbers
  71998. * Quickly and Accurately"
  71999. *
  72000. * The current algorithm is based on Figure 1 of the Burger-Dybvig paper,
  72001. * i.e. the base implementation without logarithm estimation speedups
  72002. * (these would increase code footprint considerably). Fixed-format output
  72003. * does not follow the suggestions in the paper; instead, we generate an
  72004. * extra digit and round-with-carry.
  72005. *
  72006. * The same algorithm is used for number parsing (with b=10 and B=2)
  72007. * by generating one extra digit and doing rounding manually.
  72008. *
  72009. * See doc/number-conversion.rst for limitations.
  72010. */
  72011. /* Maximum number of digits generated. */
  72012. #define DUK__MAX_OUTPUT_DIGITS 1040 /* (Number.MAX_VALUE).toString(2).length == 1024, + slack */
  72013. /* Maximum number of characters in formatted value. */
  72014. #define DUK__MAX_FORMATTED_LENGTH 1040 /* (-Number.MAX_VALUE).toString(2).length == 1025, + slack */
  72015. /* Number and (minimum) size of bigints in the nc_ctx structure. */
  72016. #define DUK__NUMCONV_CTX_NUM_BIGINTS 7
  72017. #define DUK__NUMCONV_CTX_BIGINTS_SIZE (sizeof(duk__bigint) * DUK__NUMCONV_CTX_NUM_BIGINTS)
  72018. typedef struct {
  72019. /* Currently about 7*152 = 1064 bytes. The space for these
  72020. * duk__bigints is used also as a temporary buffer for generating
  72021. * the final string. This is a bit awkard; a union would be
  72022. * more correct.
  72023. */
  72024. duk__bigint f, r, s, mp, mm, t1, t2;
  72025. duk_small_int_t is_s2n; /* if 1, doing a string-to-number; else doing a number-to-string */
  72026. duk_small_int_t is_fixed; /* if 1, doing a fixed format output (not free format) */
  72027. duk_small_int_t req_digits; /* requested number of output digits; 0 = free-format */
  72028. duk_small_int_t abs_pos; /* digit position is absolute, not relative */
  72029. duk_small_int_t e; /* exponent for 'f' */
  72030. duk_small_int_t b; /* input radix */
  72031. duk_small_int_t B; /* output radix */
  72032. duk_small_int_t k; /* see algorithm */
  72033. duk_small_int_t low_ok; /* see algorithm */
  72034. duk_small_int_t high_ok; /* see algorithm */
  72035. duk_small_int_t unequal_gaps; /* m+ != m- (very rarely) */
  72036. /* Buffer used for generated digits, values are in the range [0,B-1]. */
  72037. duk_uint8_t digits[DUK__MAX_OUTPUT_DIGITS];
  72038. duk_small_int_t count; /* digit count */
  72039. } duk__numconv_stringify_ctx;
  72040. /* Note: computes with 'idx' in assertions, so caller beware.
  72041. * 'idx' is preincremented, i.e. '1' on first call, because it
  72042. * is more convenient for the caller.
  72043. */
  72044. #define DUK__DRAGON4_OUTPUT_PREINC(nc_ctx,preinc_idx,x) do { \
  72045. DUK_ASSERT((preinc_idx) - 1 >= 0); \
  72046. DUK_ASSERT((preinc_idx) - 1 < DUK__MAX_OUTPUT_DIGITS); \
  72047. ((nc_ctx)->digits[(preinc_idx) - 1]) = (duk_uint8_t) (x); \
  72048. } while (0)
  72049. DUK_LOCAL duk_size_t duk__dragon4_format_uint32(duk_uint8_t *buf, duk_uint32_t x, duk_small_int_t radix) {
  72050. duk_uint8_t *p;
  72051. duk_size_t len;
  72052. duk_small_int_t dig;
  72053. duk_uint32_t t;
  72054. DUK_ASSERT(radix >= 2 && radix <= 36);
  72055. /* A 32-bit unsigned integer formats to at most 32 digits (the
  72056. * worst case happens with radix == 2). Output the digits backwards,
  72057. * and use a memmove() to get them in the right place.
  72058. */
  72059. p = buf + 32;
  72060. for (;;) {
  72061. t = x / (duk_uint32_t) radix;
  72062. dig = (duk_small_int_t) (x - t * (duk_uint32_t) radix);
  72063. x = t;
  72064. DUK_ASSERT(dig >= 0 && dig < 36);
  72065. *(--p) = DUK__DIGITCHAR(dig);
  72066. if (x == 0) {
  72067. break;
  72068. }
  72069. }
  72070. len = (duk_size_t) ((buf + 32) - p);
  72071. DUK_MEMMOVE((void *) buf, (const void *) p, (size_t) len);
  72072. return len;
  72073. }
  72074. DUK_LOCAL void duk__dragon4_prepare(duk__numconv_stringify_ctx *nc_ctx) {
  72075. duk_small_int_t lowest_mantissa;
  72076. #if 1
  72077. /* Assume IEEE round-to-even, so that shorter encoding can be used
  72078. * when round-to-even would produce correct result. By removing
  72079. * this check (and having low_ok == high_ok == 0) the results would
  72080. * still be accurate but in some cases longer than necessary.
  72081. */
  72082. if (duk__bi_is_even(&nc_ctx->f)) {
  72083. DUK_DDD(DUK_DDDPRINT("f is even"));
  72084. nc_ctx->low_ok = 1;
  72085. nc_ctx->high_ok = 1;
  72086. } else {
  72087. DUK_DDD(DUK_DDDPRINT("f is odd"));
  72088. nc_ctx->low_ok = 0;
  72089. nc_ctx->high_ok = 0;
  72090. }
  72091. #else
  72092. /* Note: not honoring round-to-even should work but now generates incorrect
  72093. * results. For instance, 1e23 serializes to "a000...", i.e. the first digit
  72094. * equals the radix (10). Scaling stops one step too early in this case.
  72095. * Don't know why this is the case, but since this code path is unused, it
  72096. * doesn't matter.
  72097. */
  72098. nc_ctx->low_ok = 0;
  72099. nc_ctx->high_ok = 0;
  72100. #endif
  72101. /* For string-to-number, pretend we never have the lowest mantissa as there
  72102. * is no natural "precision" for inputs. Having lowest_mantissa == 0, we'll
  72103. * fall into the base cases for both e >= 0 and e < 0.
  72104. */
  72105. if (nc_ctx->is_s2n) {
  72106. lowest_mantissa = 0;
  72107. } else {
  72108. lowest_mantissa = duk__bi_is_2to52(&nc_ctx->f);
  72109. }
  72110. nc_ctx->unequal_gaps = 0;
  72111. if (nc_ctx->e >= 0) {
  72112. /* exponent non-negative (and thus not minimum exponent) */
  72113. if (lowest_mantissa) {
  72114. /* (>= e 0) AND (= f (expt b (- p 1)))
  72115. *
  72116. * be <- (expt b e) == b^e
  72117. * be1 <- (* be b) == (expt b (+ e 1)) == b^(e+1)
  72118. * r <- (* f be1 2) == 2 * f * b^(e+1) [if b==2 -> f * b^(e+2)]
  72119. * s <- (* b 2) [if b==2 -> 4]
  72120. * m+ <- be1 == b^(e+1)
  72121. * m- <- be == b^e
  72122. * k <- 0
  72123. * B <- B
  72124. * low_ok <- round
  72125. * high_ok <- round
  72126. */
  72127. DUK_DDD(DUK_DDDPRINT("non-negative exponent (not smallest exponent); "
  72128. "lowest mantissa value for this exponent -> "
  72129. "unequal gaps"));
  72130. duk__bi_exp_small(&nc_ctx->mm, nc_ctx->b, nc_ctx->e, &nc_ctx->t1, &nc_ctx->t2); /* mm <- b^e */
  72131. duk__bi_mul_small(&nc_ctx->mp, &nc_ctx->mm, (duk_uint32_t) nc_ctx->b); /* mp <- b^(e+1) */
  72132. duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, 2);
  72133. duk__bi_mul(&nc_ctx->r, &nc_ctx->t1, &nc_ctx->mp); /* r <- (2 * f) * b^(e+1) */
  72134. duk__bi_set_small(&nc_ctx->s, (duk_uint32_t) (nc_ctx->b * 2)); /* s <- 2 * b */
  72135. nc_ctx->unequal_gaps = 1;
  72136. } else {
  72137. /* (>= e 0) AND (not (= f (expt b (- p 1))))
  72138. *
  72139. * be <- (expt b e) == b^e
  72140. * r <- (* f be 2) == 2 * f * b^e [if b==2 -> f * b^(e+1)]
  72141. * s <- 2
  72142. * m+ <- be == b^e
  72143. * m- <- be == b^e
  72144. * k <- 0
  72145. * B <- B
  72146. * low_ok <- round
  72147. * high_ok <- round
  72148. */
  72149. DUK_DDD(DUK_DDDPRINT("non-negative exponent (not smallest exponent); "
  72150. "not lowest mantissa for this exponent -> "
  72151. "equal gaps"));
  72152. duk__bi_exp_small(&nc_ctx->mm, nc_ctx->b, nc_ctx->e, &nc_ctx->t1, &nc_ctx->t2); /* mm <- b^e */
  72153. duk__bi_copy(&nc_ctx->mp, &nc_ctx->mm); /* mp <- b^e */
  72154. duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, 2);
  72155. duk__bi_mul(&nc_ctx->r, &nc_ctx->t1, &nc_ctx->mp); /* r <- (2 * f) * b^e */
  72156. duk__bi_set_small(&nc_ctx->s, 2); /* s <- 2 */
  72157. }
  72158. } else {
  72159. /* When doing string-to-number, lowest_mantissa is always 0 so
  72160. * the exponent check, while incorrect, won't matter.
  72161. */
  72162. if (nc_ctx->e > DUK__IEEE_DOUBLE_EXP_MIN /*not minimum exponent*/ &&
  72163. lowest_mantissa /* lowest mantissa for this exponent*/) {
  72164. /* r <- (* f b 2) [if b==2 -> (* f 4)]
  72165. * s <- (* (expt b (- 1 e)) 2) == b^(1-e) * 2 [if b==2 -> b^(2-e)]
  72166. * m+ <- b == 2
  72167. * m- <- 1
  72168. * k <- 0
  72169. * B <- B
  72170. * low_ok <- round
  72171. * high_ok <- round
  72172. */
  72173. DUK_DDD(DUK_DDDPRINT("negative exponent; not minimum exponent and "
  72174. "lowest mantissa for this exponent -> "
  72175. "unequal gaps"));
  72176. duk__bi_mul_small(&nc_ctx->r, &nc_ctx->f, (duk_uint32_t) (nc_ctx->b * 2)); /* r <- (2 * b) * f */
  72177. duk__bi_exp_small(&nc_ctx->t1, nc_ctx->b, 1 - nc_ctx->e, &nc_ctx->s, &nc_ctx->t2); /* NB: use 's' as temp on purpose */
  72178. duk__bi_mul_small(&nc_ctx->s, &nc_ctx->t1, 2); /* s <- b^(1-e) * 2 */
  72179. duk__bi_set_small(&nc_ctx->mp, 2);
  72180. duk__bi_set_small(&nc_ctx->mm, 1);
  72181. nc_ctx->unequal_gaps = 1;
  72182. } else {
  72183. /* r <- (* f 2)
  72184. * s <- (* (expt b (- e)) 2) == b^(-e) * 2 [if b==2 -> b^(1-e)]
  72185. * m+ <- 1
  72186. * m- <- 1
  72187. * k <- 0
  72188. * B <- B
  72189. * low_ok <- round
  72190. * high_ok <- round
  72191. */
  72192. DUK_DDD(DUK_DDDPRINT("negative exponent; minimum exponent or not "
  72193. "lowest mantissa for this exponent -> "
  72194. "equal gaps"));
  72195. duk__bi_mul_small(&nc_ctx->r, &nc_ctx->f, 2); /* r <- 2 * f */
  72196. duk__bi_exp_small(&nc_ctx->t1, nc_ctx->b, -nc_ctx->e, &nc_ctx->s, &nc_ctx->t2); /* NB: use 's' as temp on purpose */
  72197. duk__bi_mul_small(&nc_ctx->s, &nc_ctx->t1, 2); /* s <- b^(-e) * 2 */
  72198. duk__bi_set_small(&nc_ctx->mp, 1);
  72199. duk__bi_set_small(&nc_ctx->mm, 1);
  72200. }
  72201. }
  72202. }
  72203. DUK_LOCAL void duk__dragon4_scale(duk__numconv_stringify_ctx *nc_ctx) {
  72204. duk_small_int_t k = 0;
  72205. /* This is essentially the 'scale' algorithm, with recursion removed.
  72206. * Note that 'k' is either correct immediately, or will move in one
  72207. * direction in the loop. There's no need to do the low/high checks
  72208. * on every round (like the Scheme algorithm does).
  72209. *
  72210. * The scheme algorithm finds 'k' and updates 's' simultaneously,
  72211. * while the logical algorithm finds 'k' with 's' having its initial
  72212. * value, after which 's' is updated separately (see the Burger-Dybvig
  72213. * paper, Section 3.1, steps 2 and 3).
  72214. *
  72215. * The case where m+ == m- (almost always) is optimized for, because
  72216. * it reduces the bigint operations considerably and almost always
  72217. * applies. The scale loop only needs to work with m+, so this works.
  72218. */
  72219. /* XXX: this algorithm could be optimized quite a lot by using e.g.
  72220. * a logarithm based estimator for 'k' and performing B^n multiplication
  72221. * using a lookup table or using some bit-representation based exp
  72222. * algorithm. Currently we just loop, with significant performance
  72223. * impact for very large and very small numbers.
  72224. */
  72225. DUK_DDD(DUK_DDDPRINT("scale: B=%ld, low_ok=%ld, high_ok=%ld",
  72226. (long) nc_ctx->B, (long) nc_ctx->low_ok, (long) nc_ctx->high_ok));
  72227. DUK__BI_PRINT("r(init)", &nc_ctx->r);
  72228. DUK__BI_PRINT("s(init)", &nc_ctx->s);
  72229. DUK__BI_PRINT("mp(init)", &nc_ctx->mp);
  72230. DUK__BI_PRINT("mm(init)", &nc_ctx->mm);
  72231. for (;;) {
  72232. DUK_DDD(DUK_DDDPRINT("scale loop (inc k), k=%ld", (long) k));
  72233. DUK__BI_PRINT("r", &nc_ctx->r);
  72234. DUK__BI_PRINT("s", &nc_ctx->s);
  72235. DUK__BI_PRINT("m+", &nc_ctx->mp);
  72236. DUK__BI_PRINT("m-", &nc_ctx->mm);
  72237. duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 = (+ r m+) */
  72238. if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) >= (nc_ctx->high_ok ? 0 : 1)) {
  72239. DUK_DDD(DUK_DDDPRINT("k is too low"));
  72240. /* r <- r
  72241. * s <- (* s B)
  72242. * m+ <- m+
  72243. * m- <- m-
  72244. * k <- (+ k 1)
  72245. */
  72246. duk__bi_mul_small_copy(&nc_ctx->s, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1);
  72247. k++;
  72248. } else {
  72249. break;
  72250. }
  72251. }
  72252. /* k > 0 -> k was too low, and cannot be too high */
  72253. if (k > 0) {
  72254. goto skip_dec_k;
  72255. }
  72256. for (;;) {
  72257. DUK_DDD(DUK_DDDPRINT("scale loop (dec k), k=%ld", (long) k));
  72258. DUK__BI_PRINT("r", &nc_ctx->r);
  72259. DUK__BI_PRINT("s", &nc_ctx->s);
  72260. DUK__BI_PRINT("m+", &nc_ctx->mp);
  72261. DUK__BI_PRINT("m-", &nc_ctx->mm);
  72262. duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 = (+ r m+) */
  72263. duk__bi_mul_small(&nc_ctx->t2, &nc_ctx->t1, (duk_uint32_t) nc_ctx->B); /* t2 = (* (+ r m+) B) */
  72264. if (duk__bi_compare(&nc_ctx->t2, &nc_ctx->s) <= (nc_ctx->high_ok ? -1 : 0)) {
  72265. DUK_DDD(DUK_DDDPRINT("k is too high"));
  72266. /* r <- (* r B)
  72267. * s <- s
  72268. * m+ <- (* m+ B)
  72269. * m- <- (* m- B)
  72270. * k <- (- k 1)
  72271. */
  72272. duk__bi_mul_small_copy(&nc_ctx->r, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1);
  72273. duk__bi_mul_small_copy(&nc_ctx->mp, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1);
  72274. if (nc_ctx->unequal_gaps) {
  72275. DUK_DDD(DUK_DDDPRINT("m+ != m- -> need to update m- too"));
  72276. duk__bi_mul_small_copy(&nc_ctx->mm, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1);
  72277. }
  72278. k--;
  72279. } else {
  72280. break;
  72281. }
  72282. }
  72283. skip_dec_k:
  72284. if (!nc_ctx->unequal_gaps) {
  72285. DUK_DDD(DUK_DDDPRINT("equal gaps, copy m- from m+"));
  72286. duk__bi_copy(&nc_ctx->mm, &nc_ctx->mp); /* mm <- mp */
  72287. }
  72288. nc_ctx->k = k;
  72289. DUK_DDD(DUK_DDDPRINT("final k: %ld", (long) k));
  72290. DUK__BI_PRINT("r(final)", &nc_ctx->r);
  72291. DUK__BI_PRINT("s(final)", &nc_ctx->s);
  72292. DUK__BI_PRINT("mp(final)", &nc_ctx->mp);
  72293. DUK__BI_PRINT("mm(final)", &nc_ctx->mm);
  72294. }
  72295. DUK_LOCAL void duk__dragon4_generate(duk__numconv_stringify_ctx *nc_ctx) {
  72296. duk_small_int_t tc1, tc2; /* terminating conditions */
  72297. duk_small_int_t d; /* current digit */
  72298. duk_small_int_t count = 0; /* digit count */
  72299. /*
  72300. * Digit generation loop.
  72301. *
  72302. * Different termination conditions:
  72303. *
  72304. * 1. Free format output. Terminate when shortest accurate
  72305. * representation found.
  72306. *
  72307. * 2. Fixed format output, with specific number of digits.
  72308. * Ignore termination conditions, terminate when digits
  72309. * generated. Caller requests an extra digit and rounds.
  72310. *
  72311. * 3. Fixed format output, with a specific absolute cut-off
  72312. * position (e.g. 10 digits after decimal point). Note
  72313. * that we always generate at least one digit, even if
  72314. * the digit is below the cut-off point already.
  72315. */
  72316. for (;;) {
  72317. DUK_DDD(DUK_DDDPRINT("generate loop, count=%ld, k=%ld, B=%ld, low_ok=%ld, high_ok=%ld",
  72318. (long) count, (long) nc_ctx->k, (long) nc_ctx->B,
  72319. (long) nc_ctx->low_ok, (long) nc_ctx->high_ok));
  72320. DUK__BI_PRINT("r", &nc_ctx->r);
  72321. DUK__BI_PRINT("s", &nc_ctx->s);
  72322. DUK__BI_PRINT("m+", &nc_ctx->mp);
  72323. DUK__BI_PRINT("m-", &nc_ctx->mm);
  72324. /* (quotient-remainder (* r B) s) using a dummy subtraction loop */
  72325. duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->r, (duk_uint32_t) nc_ctx->B); /* t1 <- (* r B) */
  72326. d = 0;
  72327. for (;;) {
  72328. if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) < 0) {
  72329. break;
  72330. }
  72331. duk__bi_sub_copy(&nc_ctx->t1, &nc_ctx->s, &nc_ctx->t2); /* t1 <- t1 - s */
  72332. d++;
  72333. }
  72334. duk__bi_copy(&nc_ctx->r, &nc_ctx->t1); /* r <- (remainder (* r B) s) */
  72335. /* d <- (quotient (* r B) s) (in range 0...B-1) */
  72336. DUK_DDD(DUK_DDDPRINT("-> d(quot)=%ld", (long) d));
  72337. DUK__BI_PRINT("r(rem)", &nc_ctx->r);
  72338. duk__bi_mul_small_copy(&nc_ctx->mp, (duk_uint32_t) nc_ctx->B, &nc_ctx->t2); /* m+ <- (* m+ B) */
  72339. duk__bi_mul_small_copy(&nc_ctx->mm, (duk_uint32_t) nc_ctx->B, &nc_ctx->t2); /* m- <- (* m- B) */
  72340. DUK__BI_PRINT("mp(upd)", &nc_ctx->mp);
  72341. DUK__BI_PRINT("mm(upd)", &nc_ctx->mm);
  72342. /* Terminating conditions. For fixed width output, we just ignore the
  72343. * terminating conditions (and pretend that tc1 == tc2 == false). The
  72344. * the current shortcut for fixed-format output is to generate a few
  72345. * extra digits and use rounding (with carry) to finish the output.
  72346. */
  72347. if (nc_ctx->is_fixed == 0) {
  72348. /* free-form */
  72349. tc1 = (duk__bi_compare(&nc_ctx->r, &nc_ctx->mm) <= (nc_ctx->low_ok ? 0 : -1));
  72350. duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 <- (+ r m+) */
  72351. tc2 = (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) >= (nc_ctx->high_ok ? 0 : 1));
  72352. DUK_DDD(DUK_DDDPRINT("tc1=%ld, tc2=%ld", (long) tc1, (long) tc2));
  72353. } else {
  72354. /* fixed-format */
  72355. tc1 = 0;
  72356. tc2 = 0;
  72357. }
  72358. /* Count is incremented before DUK__DRAGON4_OUTPUT_PREINC() call
  72359. * on purpose, which is taken into account by the macro.
  72360. */
  72361. count++;
  72362. if (tc1) {
  72363. if (tc2) {
  72364. /* tc1 = true, tc2 = true */
  72365. duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->r, 2);
  72366. if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) < 0) { /* (< (* r 2) s) */
  72367. DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=true, 2r > s: output d --> %ld (k=%ld)",
  72368. (long) d, (long) nc_ctx->k));
  72369. DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d);
  72370. } else {
  72371. DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=true, 2r <= s: output d+1 --> %ld (k=%ld)",
  72372. (long) (d + 1), (long) nc_ctx->k));
  72373. DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d + 1);
  72374. }
  72375. break;
  72376. } else {
  72377. /* tc1 = true, tc2 = false */
  72378. DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=false: output d --> %ld (k=%ld)",
  72379. (long) d, (long) nc_ctx->k));
  72380. DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d);
  72381. break;
  72382. }
  72383. } else {
  72384. if (tc2) {
  72385. /* tc1 = false, tc2 = true */
  72386. DUK_DDD(DUK_DDDPRINT("tc1=false, tc2=true: output d+1 --> %ld (k=%ld)",
  72387. (long) (d + 1), (long) nc_ctx->k));
  72388. DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d + 1);
  72389. break;
  72390. } else {
  72391. /* tc1 = false, tc2 = false */
  72392. DUK_DDD(DUK_DDDPRINT("tc1=false, tc2=false: output d --> %ld (k=%ld)",
  72393. (long) d, (long) nc_ctx->k));
  72394. DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d);
  72395. /* r <- r (updated above: r <- (remainder (* r B) s)
  72396. * s <- s
  72397. * m+ <- m+ (updated above: m+ <- (* m+ B)
  72398. * m- <- m- (updated above: m- <- (* m- B)
  72399. * B, low_ok, high_ok are fixed
  72400. */
  72401. /* fall through and continue for-loop */
  72402. }
  72403. }
  72404. /* fixed-format termination conditions */
  72405. if (nc_ctx->is_fixed) {
  72406. if (nc_ctx->abs_pos) {
  72407. int pos = nc_ctx->k - count + 1; /* count is already incremented, take into account */
  72408. DUK_DDD(DUK_DDDPRINT("fixed format, absolute: abs pos=%ld, k=%ld, count=%ld, req=%ld",
  72409. (long) pos, (long) nc_ctx->k, (long) count, (long) nc_ctx->req_digits));
  72410. if (pos <= nc_ctx->req_digits) {
  72411. DUK_DDD(DUK_DDDPRINT("digit position reached req_digits, end generate loop"));
  72412. break;
  72413. }
  72414. } else {
  72415. DUK_DDD(DUK_DDDPRINT("fixed format, relative: k=%ld, count=%ld, req=%ld",
  72416. (long) nc_ctx->k, (long) count, (long) nc_ctx->req_digits));
  72417. if (count >= nc_ctx->req_digits) {
  72418. DUK_DDD(DUK_DDDPRINT("digit count reached req_digits, end generate loop"));
  72419. break;
  72420. }
  72421. }
  72422. }
  72423. } /* for */
  72424. nc_ctx->count = count;
  72425. DUK_DDD(DUK_DDDPRINT("generate finished"));
  72426. #if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)
  72427. {
  72428. duk_uint8_t buf[2048];
  72429. duk_small_int_t i, t;
  72430. DUK_MEMZERO(buf, sizeof(buf));
  72431. for (i = 0; i < nc_ctx->count; i++) {
  72432. t = nc_ctx->digits[i];
  72433. if (t < 0 || t > 36) {
  72434. buf[i] = (duk_uint8_t) '?';
  72435. } else {
  72436. buf[i] = (duk_uint8_t) DUK__DIGITCHAR(t);
  72437. }
  72438. }
  72439. DUK_DDD(DUK_DDDPRINT("-> generated digits; k=%ld, digits='%s'",
  72440. (long) nc_ctx->k, (const char *) buf));
  72441. }
  72442. #endif
  72443. }
  72444. /* Round up digits to a given position. If position is out-of-bounds,
  72445. * does nothing. If carry propagates over the first digit, a '1' is
  72446. * prepended to digits and 'k' will be updated. Return value indicates
  72447. * whether carry propagated over the first digit.
  72448. *
  72449. * Note that nc_ctx->count is NOT updated based on the rounding position
  72450. * (it is updated only if carry overflows over the first digit and an
  72451. * extra digit is prepended).
  72452. */
  72453. DUK_LOCAL duk_small_int_t duk__dragon4_fixed_format_round(duk__numconv_stringify_ctx *nc_ctx, duk_small_int_t round_idx) {
  72454. duk_small_int_t t;
  72455. duk_uint8_t *p;
  72456. duk_uint8_t roundup_limit;
  72457. duk_small_int_t ret = 0;
  72458. /*
  72459. * round_idx points to the digit which is considered for rounding; the
  72460. * digit to its left is the final digit of the rounded value. If round_idx
  72461. * is zero, rounding will be performed; the result will either be an empty
  72462. * rounded value or if carry happens a '1' digit is generated.
  72463. */
  72464. if (round_idx >= nc_ctx->count) {
  72465. DUK_DDD(DUK_DDDPRINT("round_idx out of bounds (%ld >= %ld (count)) -> no rounding",
  72466. (long) round_idx, (long) nc_ctx->count));
  72467. return 0;
  72468. } else if (round_idx < 0) {
  72469. DUK_DDD(DUK_DDDPRINT("round_idx out of bounds (%ld < 0) -> no rounding",
  72470. (long) round_idx));
  72471. return 0;
  72472. }
  72473. /*
  72474. * Round-up limit.
  72475. *
  72476. * For even values, divides evenly, e.g. 10 -> roundup_limit=5.
  72477. *
  72478. * For odd values, rounds up, e.g. 3 -> roundup_limit=2.
  72479. * If radix is 3, 0/3 -> down, 1/3 -> down, 2/3 -> up.
  72480. */
  72481. roundup_limit = (duk_uint8_t) ((nc_ctx->B + 1) / 2);
  72482. p = &nc_ctx->digits[round_idx];
  72483. if (*p >= roundup_limit) {
  72484. DUK_DDD(DUK_DDDPRINT("fixed-format rounding carry required"));
  72485. /* carry */
  72486. for (;;) {
  72487. *p = 0;
  72488. if (p == &nc_ctx->digits[0]) {
  72489. DUK_DDD(DUK_DDDPRINT("carry propagated to first digit -> special case handling"));
  72490. DUK_MEMMOVE((void *) (&nc_ctx->digits[1]),
  72491. (const void *) (&nc_ctx->digits[0]),
  72492. (size_t) (sizeof(char) * (size_t) nc_ctx->count));
  72493. nc_ctx->digits[0] = 1; /* don't increase 'count' */
  72494. nc_ctx->k++; /* position of highest digit changed */
  72495. nc_ctx->count++; /* number of digits changed */
  72496. ret = 1;
  72497. break;
  72498. }
  72499. DUK_DDD(DUK_DDDPRINT("fixed-format rounding carry: B=%ld, roundup_limit=%ld, p=%p, digits=%p",
  72500. (long) nc_ctx->B, (long) roundup_limit, (void *) p, (void *) nc_ctx->digits));
  72501. p--;
  72502. t = *p;
  72503. DUK_DDD(DUK_DDDPRINT("digit before carry: %ld", (long) t));
  72504. if (++t < nc_ctx->B) {
  72505. DUK_DDD(DUK_DDDPRINT("rounding carry terminated"));
  72506. *p = (duk_uint8_t) t;
  72507. break;
  72508. }
  72509. DUK_DDD(DUK_DDDPRINT("wraps, carry to next digit"));
  72510. }
  72511. }
  72512. return ret;
  72513. }
  72514. #define DUK__NO_EXP (65536) /* arbitrary marker, outside valid exp range */
  72515. DUK_LOCAL void duk__dragon4_convert_and_push(duk__numconv_stringify_ctx *nc_ctx,
  72516. duk_hthread *thr,
  72517. duk_small_int_t radix,
  72518. duk_small_int_t digits,
  72519. duk_small_uint_t flags,
  72520. duk_small_int_t neg) {
  72521. duk_small_int_t k;
  72522. duk_small_int_t pos, pos_end;
  72523. duk_small_int_t expt;
  72524. duk_small_int_t dig;
  72525. duk_uint8_t *q;
  72526. duk_uint8_t *buf;
  72527. /*
  72528. * The string conversion here incorporates all the necessary Ecmascript
  72529. * semantics without attempting to be generic. nc_ctx->digits contains
  72530. * nc_ctx->count digits (>= 1), with the topmost digit's 'position'
  72531. * indicated by nc_ctx->k as follows:
  72532. *
  72533. * digits="123" count=3 k=0 --> 0.123
  72534. * digits="123" count=3 k=1 --> 1.23
  72535. * digits="123" count=3 k=5 --> 12300
  72536. * digits="123" count=3 k=-1 --> 0.0123
  72537. *
  72538. * Note that the identifier names used for format selection are different
  72539. * in Burger-Dybvig paper and Ecmascript specification (quite confusingly
  72540. * so, because e.g. 'k' has a totally different meaning in each). See
  72541. * documentation for discussion.
  72542. *
  72543. * Ecmascript doesn't specify any specific behavior for format selection
  72544. * (e.g. when to use exponent notation) for non-base-10 numbers.
  72545. *
  72546. * The bigint space in the context is reused for string output, as there
  72547. * is more than enough space for that (>1kB at the moment), and we avoid
  72548. * allocating even more stack.
  72549. */
  72550. DUK_ASSERT(DUK__NUMCONV_CTX_BIGINTS_SIZE >= DUK__MAX_FORMATTED_LENGTH);
  72551. DUK_ASSERT(nc_ctx->count >= 1);
  72552. k = nc_ctx->k;
  72553. buf = (duk_uint8_t *) &nc_ctx->f; /* XXX: union would be more correct */
  72554. q = buf;
  72555. /* Exponent handling: if exponent format is used, record exponent value and
  72556. * fake k such that one leading digit is generated (e.g. digits=123 -> "1.23").
  72557. *
  72558. * toFixed() prevents exponent use; otherwise apply a set of criteria to
  72559. * match the other API calls (toString(), toPrecision, etc).
  72560. */
  72561. expt = DUK__NO_EXP;
  72562. if (!nc_ctx->abs_pos /* toFixed() */) {
  72563. if ((flags & DUK_N2S_FLAG_FORCE_EXP) || /* exponential notation forced */
  72564. ((flags & DUK_N2S_FLAG_NO_ZERO_PAD) && /* fixed precision and zero padding would be required */
  72565. (k - digits >= 1)) || /* (e.g. k=3, digits=2 -> "12X") */
  72566. ((k > 21 || k <= -6) && (radix == 10))) { /* toString() conditions */
  72567. DUK_DDD(DUK_DDDPRINT("use exponential notation: k=%ld -> expt=%ld",
  72568. (long) k, (long) (k - 1)));
  72569. expt = k - 1; /* e.g. 12.3 -> digits="123" k=2 -> 1.23e1 */
  72570. k = 1; /* generate mantissa with a single leading whole number digit */
  72571. }
  72572. }
  72573. if (neg) {
  72574. *q++ = '-';
  72575. }
  72576. /* Start position (inclusive) and end position (exclusive) */
  72577. pos = (k >= 1 ? k : 1);
  72578. if (nc_ctx->is_fixed) {
  72579. if (nc_ctx->abs_pos) {
  72580. /* toFixed() */
  72581. pos_end = -digits;
  72582. } else {
  72583. pos_end = k - digits;
  72584. }
  72585. } else {
  72586. pos_end = k - nc_ctx->count;
  72587. }
  72588. if (pos_end > 0) {
  72589. pos_end = 0;
  72590. }
  72591. DUK_DDD(DUK_DDDPRINT("expt=%ld, k=%ld, count=%ld, pos=%ld, pos_end=%ld, is_fixed=%ld, "
  72592. "digits=%ld, abs_pos=%ld",
  72593. (long) expt, (long) k, (long) nc_ctx->count, (long) pos, (long) pos_end,
  72594. (long) nc_ctx->is_fixed, (long) digits, (long) nc_ctx->abs_pos));
  72595. /* Digit generation */
  72596. while (pos > pos_end) {
  72597. DUK_DDD(DUK_DDDPRINT("digit generation: pos=%ld, pos_end=%ld",
  72598. (long) pos, (long) pos_end));
  72599. if (pos == 0) {
  72600. *q++ = (duk_uint8_t) '.';
  72601. }
  72602. if (pos > k) {
  72603. *q++ = (duk_uint8_t) '0';
  72604. } else if (pos <= k - nc_ctx->count) {
  72605. *q++ = (duk_uint8_t) '0';
  72606. } else {
  72607. dig = nc_ctx->digits[k - pos];
  72608. DUK_ASSERT(dig >= 0 && dig < nc_ctx->B);
  72609. *q++ = (duk_uint8_t) DUK__DIGITCHAR(dig);
  72610. }
  72611. pos--;
  72612. }
  72613. DUK_ASSERT(pos <= 1);
  72614. /* Exponent */
  72615. if (expt != DUK__NO_EXP) {
  72616. /*
  72617. * Exponent notation for non-base-10 numbers isn't specified in Ecmascript
  72618. * specification, as it never explicitly turns up: non-decimal numbers can
  72619. * only be formatted with Number.prototype.toString([radix]) and for that,
  72620. * behavior is not explicitly specified.
  72621. *
  72622. * Logical choices include formatting the exponent as decimal (e.g. binary
  72623. * 100000 as 1e+5) or in current radix (e.g. binary 100000 as 1e+101).
  72624. * The Dragon4 algorithm (in the original paper) prints the exponent value
  72625. * in the target radix B. However, for radix values 15 and above, the
  72626. * exponent separator 'e' is no longer easily parseable. Consider, for
  72627. * instance, the number "1.faecee+1c".
  72628. */
  72629. duk_size_t len;
  72630. char expt_sign;
  72631. *q++ = 'e';
  72632. if (expt >= 0) {
  72633. expt_sign = '+';
  72634. } else {
  72635. expt_sign = '-';
  72636. expt = -expt;
  72637. }
  72638. *q++ = (duk_uint8_t) expt_sign;
  72639. len = duk__dragon4_format_uint32(q, (duk_uint32_t) expt, radix);
  72640. q += len;
  72641. }
  72642. duk_push_lstring(thr, (const char *) buf, (size_t) (q - buf));
  72643. }
  72644. /*
  72645. * Conversion helpers
  72646. */
  72647. DUK_LOCAL void duk__dragon4_double_to_ctx(duk__numconv_stringify_ctx *nc_ctx, duk_double_t x) {
  72648. duk_double_union u;
  72649. duk_uint32_t tmp;
  72650. duk_small_int_t expt;
  72651. /*
  72652. * seeeeeee eeeeffff ffffffff ffffffff ffffffff ffffffff ffffffff ffffffff
  72653. * A B C D E F G H
  72654. *
  72655. * s sign bit
  72656. * eee... exponent field
  72657. * fff... fraction
  72658. *
  72659. * ieee value = 1.ffff... * 2^(e - 1023) (normal)
  72660. * = 0.ffff... * 2^(-1022) (denormal)
  72661. *
  72662. * algorithm v = f * b^e
  72663. */
  72664. DUK_DBLUNION_SET_DOUBLE(&u, x);
  72665. nc_ctx->f.n = 2;
  72666. tmp = DUK_DBLUNION_GET_LOW32(&u);
  72667. nc_ctx->f.v[0] = tmp;
  72668. tmp = DUK_DBLUNION_GET_HIGH32(&u);
  72669. nc_ctx->f.v[1] = tmp & 0x000fffffUL;
  72670. expt = (duk_small_int_t) ((tmp >> 20) & 0x07ffUL);
  72671. if (expt == 0) {
  72672. /* denormal */
  72673. expt = DUK__IEEE_DOUBLE_EXP_MIN - 52;
  72674. duk__bi_normalize(&nc_ctx->f);
  72675. } else {
  72676. /* normal: implicit leading 1-bit */
  72677. nc_ctx->f.v[1] |= 0x00100000UL;
  72678. expt = expt - DUK__IEEE_DOUBLE_EXP_BIAS - 52;
  72679. DUK_ASSERT(duk__bi_is_valid(&nc_ctx->f)); /* true, because v[1] has at least one bit set */
  72680. }
  72681. DUK_ASSERT(duk__bi_is_valid(&nc_ctx->f));
  72682. nc_ctx->e = expt;
  72683. }
  72684. DUK_LOCAL void duk__dragon4_ctx_to_double(duk__numconv_stringify_ctx *nc_ctx, duk_double_t *x) {
  72685. duk_double_union u;
  72686. duk_small_int_t expt;
  72687. duk_small_int_t i;
  72688. duk_small_int_t bitstart;
  72689. duk_small_int_t bitround;
  72690. duk_small_int_t bitidx;
  72691. duk_small_int_t skip_round;
  72692. duk_uint32_t t, v;
  72693. DUK_ASSERT(nc_ctx->count == 53 + 1);
  72694. /* Sometimes this assert is not true right now; it will be true after
  72695. * rounding. See: test-bug-numconv-mantissa-assert.js.
  72696. */
  72697. DUK_ASSERT_DISABLE(nc_ctx->digits[0] == 1); /* zero handled by caller */
  72698. /* Should not be required because the code below always sets both high
  72699. * and low parts, but at least gcc-4.4.5 fails to deduce this correctly
  72700. * (perhaps because the low part is set (seemingly) conditionally in a
  72701. * loop), so this is here to avoid the bogus warning.
  72702. */
  72703. DUK_MEMZERO((void *) &u, sizeof(u));
  72704. /*
  72705. * Figure out how generated digits match up with the mantissa,
  72706. * and then perform rounding. If mantissa overflows, need to
  72707. * recompute the exponent (it is bumped and may overflow to
  72708. * infinity).
  72709. *
  72710. * For normal numbers the leading '1' is hidden and ignored,
  72711. * and the last bit is used for rounding:
  72712. *
  72713. * rounding pt
  72714. * <--------52------->|
  72715. * 1 x x x x ... x x x x|y ==> x x x x ... x x x x
  72716. *
  72717. * For denormals, the leading '1' is included in the number,
  72718. * and the rounding point is different:
  72719. *
  72720. * rounding pt
  72721. * <--52 or less--->|
  72722. * 1 x x x x ... x x|x x y ==> 0 0 ... 1 x x ... x x
  72723. *
  72724. * The largest denormals will have a mantissa beginning with
  72725. * a '1' (the explicit leading bit); smaller denormals will
  72726. * have leading zero bits.
  72727. *
  72728. * If the exponent would become too high, the result becomes
  72729. * Infinity. If the exponent is so small that the entire
  72730. * mantissa becomes zero, the result becomes zero.
  72731. *
  72732. * Note: the Dragon4 'k' is off-by-one with respect to the IEEE
  72733. * exponent. For instance, k==0 indicates that the leading '1'
  72734. * digit is at the first binary fraction position (0.1xxx...);
  72735. * the corresponding IEEE exponent would be -1.
  72736. */
  72737. skip_round = 0;
  72738. recheck_exp:
  72739. expt = nc_ctx->k - 1; /* IEEE exp without bias */
  72740. if (expt > 1023) {
  72741. /* Infinity */
  72742. bitstart = -255; /* needed for inf: causes mantissa to become zero,
  72743. * and rounding to be skipped.
  72744. */
  72745. expt = 2047;
  72746. } else if (expt >= -1022) {
  72747. /* normal */
  72748. bitstart = 1; /* skip leading digit */
  72749. expt += DUK__IEEE_DOUBLE_EXP_BIAS;
  72750. DUK_ASSERT(expt >= 1 && expt <= 2046);
  72751. } else {
  72752. /* denormal or zero */
  72753. bitstart = 1023 + expt; /* expt==-1023 -> bitstart=0 (leading 1);
  72754. * expt==-1024 -> bitstart=-1 (one left of leading 1), etc
  72755. */
  72756. expt = 0;
  72757. }
  72758. bitround = bitstart + 52;
  72759. DUK_DDD(DUK_DDDPRINT("ieee expt=%ld, bitstart=%ld, bitround=%ld",
  72760. (long) expt, (long) bitstart, (long) bitround));
  72761. if (!skip_round) {
  72762. if (duk__dragon4_fixed_format_round(nc_ctx, bitround)) {
  72763. /* Corner case: see test-numconv-parse-mant-carry.js. We could
  72764. * just bump the exponent and update bitstart, but it's more robust
  72765. * to recompute (but avoid rounding twice).
  72766. */
  72767. DUK_DDD(DUK_DDDPRINT("rounding caused exponent to be bumped, recheck exponent"));
  72768. skip_round = 1;
  72769. goto recheck_exp;
  72770. }
  72771. }
  72772. /*
  72773. * Create mantissa
  72774. */
  72775. t = 0;
  72776. for (i = 0; i < 52; i++) {
  72777. bitidx = bitstart + 52 - 1 - i;
  72778. if (bitidx >= nc_ctx->count) {
  72779. v = 0;
  72780. } else if (bitidx < 0) {
  72781. v = 0;
  72782. } else {
  72783. v = nc_ctx->digits[bitidx];
  72784. }
  72785. DUK_ASSERT(v == 0 || v == 1);
  72786. t += v << (i % 32);
  72787. if (i == 31) {
  72788. /* low 32 bits is complete */
  72789. DUK_DBLUNION_SET_LOW32(&u, t);
  72790. t = 0;
  72791. }
  72792. }
  72793. /* t has high mantissa */
  72794. DUK_DDD(DUK_DDDPRINT("mantissa is complete: %08lx %08lx",
  72795. (unsigned long) t,
  72796. (unsigned long) DUK_DBLUNION_GET_LOW32(&u)));
  72797. DUK_ASSERT(expt >= 0 && expt <= 0x7ffL);
  72798. t += ((duk_uint32_t) expt) << 20;
  72799. #if 0 /* caller handles sign change */
  72800. if (negative) {
  72801. t |= 0x80000000U;
  72802. }
  72803. #endif
  72804. DUK_DBLUNION_SET_HIGH32(&u, t);
  72805. DUK_DDD(DUK_DDDPRINT("number is complete: %08lx %08lx",
  72806. (unsigned long) DUK_DBLUNION_GET_HIGH32(&u),
  72807. (unsigned long) DUK_DBLUNION_GET_LOW32(&u)));
  72808. *x = DUK_DBLUNION_GET_DOUBLE(&u);
  72809. }
  72810. /*
  72811. * Exposed number-to-string API
  72812. *
  72813. * Input: [ number ]
  72814. * Output: [ string ]
  72815. */
  72816. DUK_INTERNAL void duk_numconv_stringify(duk_hthread *thr, duk_small_int_t radix, duk_small_int_t digits, duk_small_uint_t flags) {
  72817. duk_double_t x;
  72818. duk_small_int_t c;
  72819. duk_small_int_t neg;
  72820. duk_uint32_t uval;
  72821. duk__numconv_stringify_ctx nc_ctx_alloc; /* large context; around 2kB now */
  72822. duk__numconv_stringify_ctx *nc_ctx = &nc_ctx_alloc;
  72823. x = (duk_double_t) duk_require_number(thr, -1);
  72824. duk_pop(thr);
  72825. /*
  72826. * Handle special cases (NaN, infinity, zero).
  72827. */
  72828. c = (duk_small_int_t) DUK_FPCLASSIFY(x);
  72829. if (DUK_SIGNBIT((double) x)) {
  72830. x = -x;
  72831. neg = 1;
  72832. } else {
  72833. neg = 0;
  72834. }
  72835. /* NaN sign bit is platform specific with unpacked, un-normalized NaNs */
  72836. DUK_ASSERT(c == DUK_FP_NAN || DUK_SIGNBIT((double) x) == 0);
  72837. if (c == DUK_FP_NAN) {
  72838. duk_push_hstring_stridx(thr, DUK_STRIDX_NAN);
  72839. return;
  72840. } else if (c == DUK_FP_INFINITE) {
  72841. if (neg) {
  72842. /* -Infinity */
  72843. duk_push_hstring_stridx(thr, DUK_STRIDX_MINUS_INFINITY);
  72844. } else {
  72845. /* Infinity */
  72846. duk_push_hstring_stridx(thr, DUK_STRIDX_INFINITY);
  72847. }
  72848. return;
  72849. } else if (c == DUK_FP_ZERO) {
  72850. /* We can't shortcut zero here if it goes through special formatting
  72851. * (such as forced exponential notation).
  72852. */
  72853. ;
  72854. }
  72855. /*
  72856. * Handle integers in 32-bit range (that is, [-(2**32-1),2**32-1])
  72857. * specially, as they're very likely for embedded programs. This
  72858. * is now done for all radix values. We must be careful not to use
  72859. * the fast path when special formatting (e.g. forced exponential)
  72860. * is in force.
  72861. *
  72862. * XXX: could save space by supporting radix 10 only and using
  72863. * sprintf "%lu" for the fast path and for exponent formatting.
  72864. */
  72865. uval = (unsigned int) x;
  72866. if (((double) uval) == x && /* integer number in range */
  72867. flags == 0) { /* no special formatting */
  72868. /* use bigint area as a temp */
  72869. duk_uint8_t *buf = (duk_uint8_t *) (&nc_ctx->f);
  72870. duk_uint8_t *p = buf;
  72871. DUK_ASSERT(DUK__NUMCONV_CTX_BIGINTS_SIZE >= 32 + 1); /* max size: radix=2 + sign */
  72872. if (neg && uval != 0) {
  72873. /* no negative sign for zero */
  72874. *p++ = (duk_uint8_t) '-';
  72875. }
  72876. p += duk__dragon4_format_uint32(p, uval, radix);
  72877. duk_push_lstring(thr, (const char *) buf, (duk_size_t) (p - buf));
  72878. return;
  72879. }
  72880. /*
  72881. * Dragon4 setup.
  72882. *
  72883. * Convert double from IEEE representation for conversion;
  72884. * normal finite values have an implicit leading 1-bit. The
  72885. * slow path algorithm doesn't handle zero, so zero is special
  72886. * cased here but still creates a valid nc_ctx, and goes
  72887. * through normal formatting in case special formatting has
  72888. * been requested (e.g. forced exponential format: 0 -> "0e+0").
  72889. */
  72890. /* Would be nice to bulk clear the allocation, but the context
  72891. * is 1-2 kilobytes and nothing should rely on it being zeroed.
  72892. */
  72893. #if 0
  72894. DUK_MEMZERO((void *) nc_ctx, sizeof(*nc_ctx)); /* slow init, do only for slow path cases */
  72895. #endif
  72896. nc_ctx->is_s2n = 0;
  72897. nc_ctx->b = 2;
  72898. nc_ctx->B = radix;
  72899. nc_ctx->abs_pos = 0;
  72900. if (flags & DUK_N2S_FLAG_FIXED_FORMAT) {
  72901. nc_ctx->is_fixed = 1;
  72902. if (flags & DUK_N2S_FLAG_FRACTION_DIGITS) {
  72903. /* absolute req_digits; e.g. digits = 1 -> last digit is 0,
  72904. * but add an extra digit for rounding.
  72905. */
  72906. nc_ctx->abs_pos = 1;
  72907. nc_ctx->req_digits = (-digits + 1) - 1;
  72908. } else {
  72909. nc_ctx->req_digits = digits + 1;
  72910. }
  72911. } else {
  72912. nc_ctx->is_fixed = 0;
  72913. nc_ctx->req_digits = 0;
  72914. }
  72915. if (c == DUK_FP_ZERO) {
  72916. /* Zero special case: fake requested number of zero digits; ensure
  72917. * no sign bit is printed. Relative and absolute fixed format
  72918. * require separate handling.
  72919. */
  72920. duk_small_int_t count;
  72921. if (nc_ctx->is_fixed) {
  72922. if (nc_ctx->abs_pos) {
  72923. count = digits + 2; /* lead zero + 'digits' fractions + 1 for rounding */
  72924. } else {
  72925. count = digits + 1; /* + 1 for rounding */
  72926. }
  72927. } else {
  72928. count = 1;
  72929. }
  72930. DUK_DDD(DUK_DDDPRINT("count=%ld", (long) count));
  72931. DUK_ASSERT(count >= 1);
  72932. DUK_MEMZERO((void *) nc_ctx->digits, (size_t) count);
  72933. nc_ctx->count = count;
  72934. nc_ctx->k = 1; /* 0.000... */
  72935. neg = 0;
  72936. goto zero_skip;
  72937. }
  72938. duk__dragon4_double_to_ctx(nc_ctx, x); /* -> sets 'f' and 'e' */
  72939. DUK__BI_PRINT("f", &nc_ctx->f);
  72940. DUK_DDD(DUK_DDDPRINT("e=%ld", (long) nc_ctx->e));
  72941. /*
  72942. * Dragon4 slow path digit generation.
  72943. */
  72944. duk__dragon4_prepare(nc_ctx); /* setup many variables in nc_ctx */
  72945. DUK_DDD(DUK_DDDPRINT("after prepare:"));
  72946. DUK__BI_PRINT("r", &nc_ctx->r);
  72947. DUK__BI_PRINT("s", &nc_ctx->s);
  72948. DUK__BI_PRINT("mp", &nc_ctx->mp);
  72949. DUK__BI_PRINT("mm", &nc_ctx->mm);
  72950. duk__dragon4_scale(nc_ctx);
  72951. DUK_DDD(DUK_DDDPRINT("after scale; k=%ld", (long) nc_ctx->k));
  72952. DUK__BI_PRINT("r", &nc_ctx->r);
  72953. DUK__BI_PRINT("s", &nc_ctx->s);
  72954. DUK__BI_PRINT("mp", &nc_ctx->mp);
  72955. DUK__BI_PRINT("mm", &nc_ctx->mm);
  72956. duk__dragon4_generate(nc_ctx);
  72957. /*
  72958. * Convert and push final string.
  72959. */
  72960. zero_skip:
  72961. if (flags & DUK_N2S_FLAG_FIXED_FORMAT) {
  72962. /* Perform fixed-format rounding. */
  72963. duk_small_int_t roundpos;
  72964. if (flags & DUK_N2S_FLAG_FRACTION_DIGITS) {
  72965. /* 'roundpos' is relative to nc_ctx->k and increases to the right
  72966. * (opposite of how 'k' changes).
  72967. */
  72968. roundpos = -digits; /* absolute position for digit considered for rounding */
  72969. roundpos = nc_ctx->k - roundpos;
  72970. } else {
  72971. roundpos = digits;
  72972. }
  72973. DUK_DDD(DUK_DDDPRINT("rounding: k=%ld, count=%ld, digits=%ld, roundpos=%ld",
  72974. (long) nc_ctx->k, (long) nc_ctx->count, (long) digits, (long) roundpos));
  72975. (void) duk__dragon4_fixed_format_round(nc_ctx, roundpos);
  72976. /* Note: 'count' is currently not adjusted by rounding (i.e. the
  72977. * digits are not "chopped off". That shouldn't matter because
  72978. * the digit position (absolute or relative) is passed on to the
  72979. * convert-and-push function.
  72980. */
  72981. }
  72982. duk__dragon4_convert_and_push(nc_ctx, thr, radix, digits, flags, neg);
  72983. }
  72984. /*
  72985. * Exposed string-to-number API
  72986. *
  72987. * Input: [ string ]
  72988. * Output: [ number ]
  72989. *
  72990. * If number parsing fails, a NaN is pushed as the result. If number parsing
  72991. * fails due to an internal error, an InternalError is thrown.
  72992. */
  72993. DUK_INTERNAL void duk_numconv_parse(duk_hthread *thr, duk_small_int_t radix, duk_small_uint_t flags) {
  72994. duk__numconv_stringify_ctx nc_ctx_alloc; /* large context; around 2kB now */
  72995. duk__numconv_stringify_ctx *nc_ctx = &nc_ctx_alloc;
  72996. duk_double_t res;
  72997. duk_hstring *h_str;
  72998. duk_small_int_t expt;
  72999. duk_small_int_t expt_neg;
  73000. duk_small_int_t expt_adj;
  73001. duk_small_int_t neg;
  73002. duk_small_int_t dig;
  73003. duk_small_int_t dig_whole;
  73004. duk_small_int_t dig_lzero;
  73005. duk_small_int_t dig_frac;
  73006. duk_small_int_t dig_expt;
  73007. duk_small_int_t dig_prec;
  73008. const duk__exp_limits *explim;
  73009. const duk_uint8_t *p;
  73010. duk_small_int_t ch;
  73011. DUK_DDD(DUK_DDDPRINT("parse number: %!T, radix=%ld, flags=0x%08lx",
  73012. (duk_tval *) duk_get_tval(thr, -1),
  73013. (long) radix, (unsigned long) flags));
  73014. DUK_ASSERT(radix >= 2 && radix <= 36);
  73015. DUK_ASSERT(radix - 2 < (duk_small_int_t) sizeof(duk__str2num_digits_for_radix));
  73016. /*
  73017. * Preliminaries: trim, sign, Infinity check
  73018. *
  73019. * We rely on the interned string having a NUL terminator, which will
  73020. * cause a parse failure wherever it is encountered. As a result, we
  73021. * don't need separate pointer checks.
  73022. *
  73023. * There is no special parsing for 'NaN' in the specification although
  73024. * 'Infinity' (with an optional sign) is allowed in some contexts.
  73025. * Some contexts allow plus/minus sign, while others only allow the
  73026. * minus sign (like JSON.parse()).
  73027. *
  73028. * Automatic hex number detection (leading '0x' or '0X') and octal
  73029. * number detection (leading '0' followed by at least one octal digit)
  73030. * is done here too.
  73031. *
  73032. * Symbols are not explicitly rejected here (that's up to the caller).
  73033. * If a symbol were passed here, it should ultimately safely fail
  73034. * parsing due to a syntax error.
  73035. */
  73036. if (flags & DUK_S2N_FLAG_TRIM_WHITE) {
  73037. /* Leading / trailing whitespace is sometimes accepted and
  73038. * sometimes not. After white space trimming, all valid input
  73039. * characters are pure ASCII.
  73040. */
  73041. duk_trim(thr, -1);
  73042. }
  73043. h_str = duk_require_hstring(thr, -1);
  73044. DUK_ASSERT(h_str != NULL);
  73045. p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_str);
  73046. neg = 0;
  73047. ch = *p;
  73048. if (ch == (duk_small_int_t) '+') {
  73049. if ((flags & DUK_S2N_FLAG_ALLOW_PLUS) == 0) {
  73050. DUK_DDD(DUK_DDDPRINT("parse failed: leading plus sign not allowed"));
  73051. goto parse_fail;
  73052. }
  73053. p++;
  73054. } else if (ch == (duk_small_int_t) '-') {
  73055. if ((flags & DUK_S2N_FLAG_ALLOW_MINUS) == 0) {
  73056. DUK_DDD(DUK_DDDPRINT("parse failed: leading minus sign not allowed"));
  73057. goto parse_fail;
  73058. }
  73059. p++;
  73060. neg = 1;
  73061. }
  73062. if ((flags & DUK_S2N_FLAG_ALLOW_INF) && DUK_STRNCMP((const char *) p, "Infinity", 8) == 0) {
  73063. /* Don't check for Infinity unless the context allows it.
  73064. * 'Infinity' is a valid integer literal in e.g. base-36:
  73065. *
  73066. * parseInt('Infinity', 36)
  73067. * 1461559270678
  73068. */
  73069. if ((flags & DUK_S2N_FLAG_ALLOW_GARBAGE) == 0 && p[8] != DUK_ASC_NUL) {
  73070. DUK_DDD(DUK_DDDPRINT("parse failed: trailing garbage after matching 'Infinity' not allowed"));
  73071. goto parse_fail;
  73072. } else {
  73073. res = DUK_DOUBLE_INFINITY;
  73074. goto negcheck_and_ret;
  73075. }
  73076. }
  73077. ch = *p;
  73078. if (ch == (duk_small_int_t) '0') {
  73079. duk_small_int_t detect_radix = 0;
  73080. ch = DUK_LOWERCASE_CHAR_ASCII(p[1]); /* 'x' or 'X' -> 'x' */
  73081. if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT) && ch == DUK_ASC_LC_X) {
  73082. DUK_DDD(DUK_DDDPRINT("detected 0x/0X hex prefix, changing radix and preventing fractions and exponent"));
  73083. detect_radix = 16;
  73084. #if 0
  73085. } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_LEGACY_OCT_INT) &&
  73086. (ch >= (duk_small_int_t) '0' && ch <= (duk_small_int_t) '9')) {
  73087. DUK_DDD(DUK_DDDPRINT("detected 0n oct prefix, changing radix and preventing fractions and exponent"));
  73088. detect_radix = 8;
  73089. /* NOTE: if this legacy octal case is added back, it has
  73090. * different flags and 'p' advance so this needs to be
  73091. * reworked.
  73092. */
  73093. flags |= DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO; /* interpret e.g. '09' as '0', not NaN */
  73094. p += 1;
  73095. #endif
  73096. } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT) && ch == DUK_ASC_LC_O) {
  73097. DUK_DDD(DUK_DDDPRINT("detected 0o oct prefix, changing radix and preventing fractions and exponent"));
  73098. detect_radix = 8;
  73099. } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT) && ch == DUK_ASC_LC_B) {
  73100. DUK_DDD(DUK_DDDPRINT("detected 0b bin prefix, changing radix and preventing fractions and exponent"));
  73101. detect_radix = 2;
  73102. }
  73103. if (detect_radix > 0) {
  73104. radix = detect_radix;
  73105. /* Clear empty as zero flag: interpret e.g. '0x' and '0xg' as a NaN (= parse error) */
  73106. flags &= ~(DUK_S2N_FLAG_ALLOW_EXP | DUK_S2N_FLAG_ALLOW_EMPTY_FRAC |
  73107. DUK_S2N_FLAG_ALLOW_FRAC | DUK_S2N_FLAG_ALLOW_NAKED_FRAC |
  73108. DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO);
  73109. flags |= DUK_S2N_FLAG_ALLOW_LEADING_ZERO; /* allow e.g. '0x0009' and '0b00010001' */
  73110. p += 2;
  73111. }
  73112. }
  73113. /*
  73114. * Scan number and setup for Dragon4.
  73115. *
  73116. * The fast path case is detected during setup: an integer which
  73117. * can be converted without rounding, no net exponent. The fast
  73118. * path could be implemented as a separate scan, but may not really
  73119. * be worth it: the multiplications for building 'f' are not
  73120. * expensive when 'f' is small.
  73121. *
  73122. * The significand ('f') must contain enough bits of (apparent)
  73123. * accuracy, so that Dragon4 will generate enough binary output digits.
  73124. * For decimal numbers, this means generating a 20-digit significand,
  73125. * which should yield enough practical accuracy to parse IEEE doubles.
  73126. * In fact, the Ecmascript specification explicitly allows an
  73127. * implementation to treat digits beyond 20 as zeroes (and even
  73128. * to round the 20th digit upwards). For non-decimal numbers, the
  73129. * appropriate number of digits has been precomputed for comparable
  73130. * accuracy.
  73131. *
  73132. * Digit counts:
  73133. *
  73134. * [ dig_lzero ]
  73135. * |
  73136. * .+-..---[ dig_prec ]----.
  73137. * | || |
  73138. * 0000123.456789012345678901234567890e+123456
  73139. * | | | | | |
  73140. * `--+--' `------[ dig_frac ]-------' `-+--'
  73141. * | |
  73142. * [ dig_whole ] [ dig_expt ]
  73143. *
  73144. * dig_frac and dig_expt are -1 if not present
  73145. * dig_lzero is only computed for whole number part
  73146. *
  73147. * Parsing state
  73148. *
  73149. * Parsing whole part dig_frac < 0 AND dig_expt < 0
  73150. * Parsing fraction part dig_frac >= 0 AND dig_expt < 0
  73151. * Parsing exponent part dig_expt >= 0 (dig_frac may be < 0 or >= 0)
  73152. *
  73153. * Note: in case we hit an implementation limit (like exponent range),
  73154. * we should throw an error, NOT return NaN or Infinity. Even with
  73155. * very large exponent (or significand) values the final result may be
  73156. * finite, so NaN/Infinity would be incorrect.
  73157. */
  73158. duk__bi_set_small(&nc_ctx->f, 0);
  73159. dig_prec = 0;
  73160. dig_lzero = 0;
  73161. dig_whole = 0;
  73162. dig_frac = -1;
  73163. dig_expt = -1;
  73164. expt = 0;
  73165. expt_adj = 0; /* essentially tracks digit position of lowest 'f' digit */
  73166. expt_neg = 0;
  73167. for (;;) {
  73168. ch = *p++;
  73169. DUK_DDD(DUK_DDDPRINT("parse digits: p=%p, ch='%c' (%ld), expt=%ld, expt_adj=%ld, "
  73170. "dig_whole=%ld, dig_frac=%ld, dig_expt=%ld, dig_lzero=%ld, dig_prec=%ld",
  73171. (const void *) p, (int) ((ch >= 0x20 && ch <= 0x7e) ? ch : '?'), (long) ch,
  73172. (long) expt, (long) expt_adj, (long) dig_whole, (long) dig_frac,
  73173. (long) dig_expt, (long) dig_lzero, (long) dig_prec));
  73174. DUK__BI_PRINT("f", &nc_ctx->f);
  73175. /* Most common cases first. */
  73176. if (ch >= (duk_small_int_t) '0' && ch <= (duk_small_int_t) '9') {
  73177. dig = (duk_small_int_t) ch - '0' + 0;
  73178. } else if (ch == (duk_small_int_t) '.') {
  73179. /* A leading digit is not required in some cases, e.g. accept ".123".
  73180. * In other cases (JSON.parse()) a leading digit is required. This
  73181. * is checked for after the loop.
  73182. */
  73183. if (dig_frac >= 0 || dig_expt >= 0) {
  73184. if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) {
  73185. DUK_DDD(DUK_DDDPRINT("garbage termination (invalid period)"));
  73186. break;
  73187. } else {
  73188. DUK_DDD(DUK_DDDPRINT("parse failed: period not allowed"));
  73189. goto parse_fail;
  73190. }
  73191. }
  73192. if ((flags & DUK_S2N_FLAG_ALLOW_FRAC) == 0) {
  73193. /* Some contexts don't allow fractions at all; this can't be a
  73194. * post-check because the state ('f' and expt) would be incorrect.
  73195. */
  73196. if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) {
  73197. DUK_DDD(DUK_DDDPRINT("garbage termination (invalid first period)"));
  73198. break;
  73199. } else {
  73200. DUK_DDD(DUK_DDDPRINT("parse failed: fraction part not allowed"));
  73201. }
  73202. }
  73203. DUK_DDD(DUK_DDDPRINT("start fraction part"));
  73204. dig_frac = 0;
  73205. continue;
  73206. } else if (ch == (duk_small_int_t) 0) {
  73207. DUK_DDD(DUK_DDDPRINT("NUL termination"));
  73208. break;
  73209. } else if ((flags & DUK_S2N_FLAG_ALLOW_EXP) &&
  73210. dig_expt < 0 && (ch == (duk_small_int_t) 'e' || ch == (duk_small_int_t) 'E')) {
  73211. /* Note: we don't parse back exponent notation for anything else
  73212. * than radix 10, so this is not an ambiguous check (e.g. hex
  73213. * exponent values may have 'e' either as a significand digit
  73214. * or as an exponent separator).
  73215. *
  73216. * If the exponent separator occurs twice, 'e' will be interpreted
  73217. * as a digit (= 14) and will be rejected as an invalid decimal
  73218. * digit.
  73219. */
  73220. DUK_DDD(DUK_DDDPRINT("start exponent part"));
  73221. /* Exponent without a sign or with a +/- sign is accepted
  73222. * by all call sites (even JSON.parse()).
  73223. */
  73224. ch = *p;
  73225. if (ch == (duk_small_int_t) '-') {
  73226. expt_neg = 1;
  73227. p++;
  73228. } else if (ch == (duk_small_int_t) '+') {
  73229. p++;
  73230. }
  73231. dig_expt = 0;
  73232. continue;
  73233. } else if (ch >= (duk_small_int_t) 'a' && ch <= (duk_small_int_t) 'z') {
  73234. dig = (duk_small_int_t) (ch - (duk_small_int_t) 'a' + 0x0a);
  73235. } else if (ch >= (duk_small_int_t) 'A' && ch <= (duk_small_int_t) 'Z') {
  73236. dig = (duk_small_int_t) (ch - (duk_small_int_t) 'A' + 0x0a);
  73237. } else {
  73238. dig = 255; /* triggers garbage digit check below */
  73239. }
  73240. DUK_ASSERT((dig >= 0 && dig <= 35) || dig == 255);
  73241. if (dig >= radix) {
  73242. if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) {
  73243. DUK_DDD(DUK_DDDPRINT("garbage termination"));
  73244. break;
  73245. } else {
  73246. DUK_DDD(DUK_DDDPRINT("parse failed: trailing garbage or invalid digit"));
  73247. goto parse_fail;
  73248. }
  73249. }
  73250. if (dig_expt < 0) {
  73251. /* whole or fraction digit */
  73252. if (dig_prec < duk__str2num_digits_for_radix[radix - 2]) {
  73253. /* significant from precision perspective */
  73254. duk_small_int_t f_zero = duk__bi_is_zero(&nc_ctx->f);
  73255. if (f_zero && dig == 0) {
  73256. /* Leading zero is not counted towards precision digits; not
  73257. * in the integer part, nor in the fraction part.
  73258. */
  73259. if (dig_frac < 0) {
  73260. dig_lzero++;
  73261. }
  73262. } else {
  73263. /* XXX: join these ops (multiply-accumulate), but only if
  73264. * code footprint decreases.
  73265. */
  73266. duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, (duk_uint32_t) radix);
  73267. duk__bi_add_small(&nc_ctx->f, &nc_ctx->t1, (duk_uint32_t) dig);
  73268. dig_prec++;
  73269. }
  73270. } else {
  73271. /* Ignore digits beyond a radix-specific limit, but note them
  73272. * in expt_adj.
  73273. */
  73274. expt_adj++;
  73275. }
  73276. if (dig_frac >= 0) {
  73277. dig_frac++;
  73278. expt_adj--;
  73279. } else {
  73280. dig_whole++;
  73281. }
  73282. } else {
  73283. /* exponent digit */
  73284. expt = expt * radix + dig;
  73285. if (expt > DUK_S2N_MAX_EXPONENT) {
  73286. /* impose a reasonable exponent limit, so that exp
  73287. * doesn't need to get tracked using a bigint.
  73288. */
  73289. DUK_DDD(DUK_DDDPRINT("parse failed: exponent too large"));
  73290. goto parse_explimit_error;
  73291. }
  73292. dig_expt++;
  73293. }
  73294. }
  73295. /* Leading zero. */
  73296. if (dig_lzero > 0 && dig_whole > 1) {
  73297. if ((flags & DUK_S2N_FLAG_ALLOW_LEADING_ZERO) == 0) {
  73298. DUK_DDD(DUK_DDDPRINT("parse failed: leading zeroes not allowed in integer part"));
  73299. goto parse_fail;
  73300. }
  73301. }
  73302. /* Validity checks for various fraction formats ("0.1", ".1", "1.", "."). */
  73303. if (dig_whole == 0) {
  73304. if (dig_frac == 0) {
  73305. /* "." is not accepted in any format */
  73306. DUK_DDD(DUK_DDDPRINT("parse failed: plain period without leading or trailing digits"));
  73307. goto parse_fail;
  73308. } else if (dig_frac > 0) {
  73309. /* ".123" */
  73310. if ((flags & DUK_S2N_FLAG_ALLOW_NAKED_FRAC) == 0) {
  73311. DUK_DDD(DUK_DDDPRINT("parse failed: fraction part not allowed without "
  73312. "leading integer digit(s)"));
  73313. goto parse_fail;
  73314. }
  73315. } else {
  73316. /* empty ("") is allowed in some formats (e.g. Number(''), as zero */
  73317. if ((flags & DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO) == 0) {
  73318. DUK_DDD(DUK_DDDPRINT("parse failed: empty string not allowed (as zero)"));
  73319. goto parse_fail;
  73320. }
  73321. }
  73322. } else {
  73323. if (dig_frac == 0) {
  73324. /* "123." is allowed in some formats */
  73325. if ((flags & DUK_S2N_FLAG_ALLOW_EMPTY_FRAC) == 0) {
  73326. DUK_DDD(DUK_DDDPRINT("parse failed: empty fractions"));
  73327. goto parse_fail;
  73328. }
  73329. } else if (dig_frac > 0) {
  73330. /* "123.456" */
  73331. ;
  73332. } else {
  73333. /* "123" */
  73334. ;
  73335. }
  73336. }
  73337. /* Exponent without digits (e.g. "1e" or "1e+"). If trailing garbage is
  73338. * allowed, ignore exponent part as garbage (= parse as "1", i.e. exp 0).
  73339. */
  73340. if (dig_expt == 0) {
  73341. if ((flags & DUK_S2N_FLAG_ALLOW_GARBAGE) == 0) {
  73342. DUK_DDD(DUK_DDDPRINT("parse failed: empty exponent"));
  73343. goto parse_fail;
  73344. }
  73345. DUK_ASSERT(expt == 0);
  73346. }
  73347. if (expt_neg) {
  73348. expt = -expt;
  73349. }
  73350. DUK_DDD(DUK_DDDPRINT("expt=%ld, expt_adj=%ld, net exponent -> %ld",
  73351. (long) expt, (long) expt_adj, (long) (expt + expt_adj)));
  73352. expt += expt_adj;
  73353. /* Fast path check. */
  73354. if (nc_ctx->f.n <= 1 && /* 32-bit value */
  73355. expt == 0 /* no net exponent */) {
  73356. /* Fast path is triggered for no exponent and also for balanced exponent
  73357. * and fraction parts, e.g. for "1.23e2" == "123". Remember to respect
  73358. * zero sign.
  73359. */
  73360. /* XXX: could accept numbers larger than 32 bits, e.g. up to 53 bits? */
  73361. DUK_DDD(DUK_DDDPRINT("fast path number parse"));
  73362. if (nc_ctx->f.n == 1) {
  73363. res = (double) nc_ctx->f.v[0];
  73364. } else {
  73365. res = 0.0;
  73366. }
  73367. goto negcheck_and_ret;
  73368. }
  73369. /* Significand ('f') padding. */
  73370. while (dig_prec < duk__str2num_digits_for_radix[radix - 2]) {
  73371. /* Pad significand with "virtual" zero digits so that Dragon4 will
  73372. * have enough (apparent) precision to work with.
  73373. */
  73374. DUK_DDD(DUK_DDDPRINT("dig_prec=%ld, pad significand with zero", (long) dig_prec));
  73375. duk__bi_mul_small_copy(&nc_ctx->f, (duk_uint32_t) radix, &nc_ctx->t1);
  73376. DUK__BI_PRINT("f", &nc_ctx->f);
  73377. expt--;
  73378. dig_prec++;
  73379. }
  73380. DUK_DDD(DUK_DDDPRINT("final exponent: %ld", (long) expt));
  73381. /* Detect zero special case. */
  73382. if (nc_ctx->f.n == 0) {
  73383. /* This may happen even after the fast path check, if exponent is
  73384. * not balanced (e.g. "0e1"). Remember to respect zero sign.
  73385. */
  73386. DUK_DDD(DUK_DDDPRINT("significand is zero"));
  73387. res = 0.0;
  73388. goto negcheck_and_ret;
  73389. }
  73390. /* Quick reject of too large or too small exponents. This check
  73391. * would be incorrect for zero (e.g. "0e1000" is zero, not Infinity)
  73392. * so zero check must be above.
  73393. */
  73394. explim = &duk__str2num_exp_limits[radix - 2];
  73395. if (expt > explim->upper) {
  73396. DUK_DDD(DUK_DDDPRINT("exponent too large -> infinite"));
  73397. res = (duk_double_t) DUK_DOUBLE_INFINITY;
  73398. goto negcheck_and_ret;
  73399. } else if (expt < explim->lower) {
  73400. DUK_DDD(DUK_DDDPRINT("exponent too small -> zero"));
  73401. res = (duk_double_t) 0.0;
  73402. goto negcheck_and_ret;
  73403. }
  73404. nc_ctx->is_s2n = 1;
  73405. nc_ctx->e = expt;
  73406. nc_ctx->b = radix;
  73407. nc_ctx->B = 2;
  73408. nc_ctx->is_fixed = 1;
  73409. nc_ctx->abs_pos = 0;
  73410. nc_ctx->req_digits = 53 + 1;
  73411. DUK__BI_PRINT("f", &nc_ctx->f);
  73412. DUK_DDD(DUK_DDDPRINT("e=%ld", (long) nc_ctx->e));
  73413. /*
  73414. * Dragon4 slow path (binary) digit generation.
  73415. * An extra digit is generated for rounding.
  73416. */
  73417. duk__dragon4_prepare(nc_ctx); /* setup many variables in nc_ctx */
  73418. DUK_DDD(DUK_DDDPRINT("after prepare:"));
  73419. DUK__BI_PRINT("r", &nc_ctx->r);
  73420. DUK__BI_PRINT("s", &nc_ctx->s);
  73421. DUK__BI_PRINT("mp", &nc_ctx->mp);
  73422. DUK__BI_PRINT("mm", &nc_ctx->mm);
  73423. duk__dragon4_scale(nc_ctx);
  73424. DUK_DDD(DUK_DDDPRINT("after scale; k=%ld", (long) nc_ctx->k));
  73425. DUK__BI_PRINT("r", &nc_ctx->r);
  73426. DUK__BI_PRINT("s", &nc_ctx->s);
  73427. DUK__BI_PRINT("mp", &nc_ctx->mp);
  73428. DUK__BI_PRINT("mm", &nc_ctx->mm);
  73429. duk__dragon4_generate(nc_ctx);
  73430. DUK_ASSERT(nc_ctx->count == 53 + 1);
  73431. /*
  73432. * Convert binary digits into an IEEE double. Need to handle
  73433. * denormals and rounding correctly.
  73434. *
  73435. * Some call sites currently assume the result is always a
  73436. * non-fastint double. If this is changed, check all call
  73437. * sites.
  73438. */
  73439. duk__dragon4_ctx_to_double(nc_ctx, &res);
  73440. goto negcheck_and_ret;
  73441. negcheck_and_ret:
  73442. if (neg) {
  73443. res = -res;
  73444. }
  73445. duk_pop(thr);
  73446. duk_push_number(thr, (double) res);
  73447. DUK_DDD(DUK_DDDPRINT("result: %!T", (duk_tval *) duk_get_tval(thr, -1)));
  73448. return;
  73449. parse_fail:
  73450. DUK_DDD(DUK_DDDPRINT("parse failed"));
  73451. duk_pop(thr);
  73452. duk_push_nan(thr);
  73453. return;
  73454. parse_explimit_error:
  73455. DUK_DDD(DUK_DDDPRINT("parse failed, internal error, can't return a value"));
  73456. DUK_ERROR_RANGE(thr, "exponent too large");
  73457. return;
  73458. }
  73459. /* automatic undefs */
  73460. #undef DUK__BI_MAX_PARTS
  73461. #undef DUK__BI_PRINT
  73462. #undef DUK__DIGITCHAR
  73463. #undef DUK__DRAGON4_OUTPUT_PREINC
  73464. #undef DUK__IEEE_DOUBLE_EXP_BIAS
  73465. #undef DUK__IEEE_DOUBLE_EXP_MIN
  73466. #undef DUK__MAX_FORMATTED_LENGTH
  73467. #undef DUK__MAX_OUTPUT_DIGITS
  73468. #undef DUK__NO_EXP
  73469. #undef DUK__NUMCONV_CTX_BIGINTS_SIZE
  73470. #undef DUK__NUMCONV_CTX_NUM_BIGINTS
  73471. #line 1 "duk_regexp_compiler.c"
  73472. /*
  73473. * Regexp compilation.
  73474. *
  73475. * See doc/regexp.rst for a discussion of the compilation approach and
  73476. * current limitations.
  73477. *
  73478. * Regexp bytecode assumes jumps can be expressed with signed 32-bit
  73479. * integers. Consequently the bytecode size must not exceed 0x7fffffffL.
  73480. * The implementation casts duk_size_t (buffer size) to duk_(u)int32_t
  73481. * in many places. Although this could be changed, the bytecode format
  73482. * limit would still prevent regexps exceeding the signed 32-bit limit
  73483. * from working.
  73484. *
  73485. * XXX: The implementation does not prevent bytecode from exceeding the
  73486. * maximum supported size. This could be done by limiting the maximum
  73487. * input string size (assuming an upper bound can be computed for number
  73488. * of bytecode bytes emitted per input byte) or checking buffer maximum
  73489. * size when emitting bytecode (slower).
  73490. */
  73491. /* #include duk_internal.h -> already included */
  73492. #if defined(DUK_USE_REGEXP_SUPPORT)
  73493. /*
  73494. * Helper macros
  73495. */
  73496. #define DUK__RE_INITIAL_BUFSIZE 64
  73497. #define DUK__RE_BUFLEN(re_ctx) \
  73498. DUK_BW_GET_SIZE(re_ctx->thr, &re_ctx->bw)
  73499. /*
  73500. * Disjunction struct: result of parsing a disjunction
  73501. */
  73502. typedef struct {
  73503. /* Number of characters that the atom matches (e.g. 3 for 'abc'),
  73504. * -1 if atom is complex and number of matched characters either
  73505. * varies or is not known.
  73506. */
  73507. duk_int32_t charlen;
  73508. #if 0
  73509. /* These are not needed to implement quantifier capture handling,
  73510. * but might be needed at some point.
  73511. */
  73512. /* re_ctx->captures at start and end of atom parsing.
  73513. * Since 'captures' indicates highest capture number emitted
  73514. * so far in a DUK_REOP_SAVE, the captures numbers saved by
  73515. * the atom are: ]start_captures,end_captures].
  73516. */
  73517. duk_uint32_t start_captures;
  73518. duk_uint32_t end_captures;
  73519. #endif
  73520. } duk__re_disjunction_info;
  73521. /*
  73522. * Encoding helpers
  73523. *
  73524. * Some of the typing is bytecode based, e.g. slice sizes are unsigned 32-bit
  73525. * even though the buffer operations will use duk_size_t.
  73526. */
  73527. /* XXX: the insert helpers should ensure that the bytecode result is not
  73528. * larger than expected (or at least assert for it). Many things in the
  73529. * bytecode, like skip offsets, won't work correctly if the bytecode is
  73530. * larger than say 2G.
  73531. */
  73532. DUK_LOCAL duk_uint32_t duk__encode_i32(duk_int32_t x) {
  73533. if (x < 0) {
  73534. return ((duk_uint32_t) (-x)) * 2 + 1;
  73535. } else {
  73536. return ((duk_uint32_t) x) * 2;
  73537. }
  73538. }
  73539. /* XXX: return type should probably be duk_size_t, or explicit checks are needed for
  73540. * maximum size.
  73541. */
  73542. DUK_LOCAL duk_uint32_t duk__insert_u32(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_uint32_t x) {
  73543. duk_uint8_t buf[DUK_UNICODE_MAX_XUTF8_LENGTH];
  73544. duk_small_int_t len;
  73545. len = duk_unicode_encode_xutf8((duk_ucodepoint_t) x, buf);
  73546. DUK_ASSERT(len >= 0);
  73547. DUK_BW_INSERT_ENSURE_BYTES(re_ctx->thr, &re_ctx->bw, offset, buf, (duk_size_t) len);
  73548. return (duk_uint32_t) len;
  73549. }
  73550. DUK_LOCAL void duk__append_u32(duk_re_compiler_ctx *re_ctx, duk_uint32_t x) {
  73551. DUK_BW_WRITE_ENSURE_XUTF8(re_ctx->thr, &re_ctx->bw, x);
  73552. }
  73553. DUK_LOCAL void duk__append_7bit(duk_re_compiler_ctx *re_ctx, duk_uint32_t x) {
  73554. #if defined(DUK_USE_PREFER_SIZE)
  73555. duk__append_u32(re_ctx, x);
  73556. #else
  73557. DUK_ASSERT(x <= 0x7fU);
  73558. DUK_BW_WRITE_ENSURE_U8(re_ctx->thr, &re_ctx->bw, (duk_uint8_t) x);
  73559. #endif
  73560. }
  73561. #if 0
  73562. DUK_LOCAL void duk__append_2bytes(duk_re_compiler_ctx *re_ctx, duk_uint8_t x, duk_uint8_t y) {
  73563. DUK_BW_WRITE_ENSURE_U8_2(re_ctx->thr, &re_ctx->bw, x, y);
  73564. }
  73565. #endif
  73566. DUK_LOCAL duk_uint32_t duk__insert_i32(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_int32_t x) {
  73567. return duk__insert_u32(re_ctx, offset, duk__encode_i32(x));
  73568. }
  73569. DUK_LOCAL void duk__append_reop(duk_re_compiler_ctx *re_ctx, duk_uint32_t reop) {
  73570. DUK_ASSERT(reop <= 0x7fU);
  73571. (void) duk__append_7bit(re_ctx, reop);
  73572. }
  73573. #if 0 /* unused */
  73574. DUK_LOCAL void duk__append_i32(duk_re_compiler_ctx *re_ctx, duk_int32_t x) {
  73575. duk__append_u32(re_ctx, duk__encode_i32(x));
  73576. }
  73577. #endif
  73578. /* special helper for emitting u16 lists (used for character ranges for built-in char classes) */
  73579. DUK_LOCAL void duk__append_u16_list(duk_re_compiler_ctx *re_ctx, const duk_uint16_t *values, duk_uint32_t count) {
  73580. /* Call sites don't need the result length so it's not accumulated. */
  73581. while (count-- > 0) {
  73582. duk__append_u32(re_ctx, (duk_uint32_t) (*values++));
  73583. }
  73584. }
  73585. DUK_LOCAL void duk__insert_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_uint32_t data_offset, duk_uint32_t data_length) {
  73586. DUK_BW_INSERT_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, offset, data_offset, data_length);
  73587. }
  73588. DUK_LOCAL void duk__append_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t data_offset, duk_uint32_t data_length) {
  73589. DUK_BW_WRITE_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, data_offset, data_length);
  73590. }
  73591. DUK_LOCAL void duk__remove_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t data_offset, duk_uint32_t data_length) {
  73592. DUK_BW_REMOVE_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, data_offset, data_length);
  73593. }
  73594. /*
  73595. * Insert a jump offset at 'offset' to complete an instruction
  73596. * (the jump offset is always the last component of an instruction).
  73597. * The 'skip' argument must be computed relative to 'offset',
  73598. * -without- taking into account the skip field being inserted.
  73599. *
  73600. * ... A B C ins X Y Z ... (ins may be a JUMP, SPLIT1/SPLIT2, etc)
  73601. * => ... A B C ins SKIP X Y Z
  73602. *
  73603. * Computing the final (adjusted) skip value, which is relative to the
  73604. * first byte of the next instruction, is a bit tricky because of the
  73605. * variable length UTF-8 encoding. See doc/regexp.rst for discussion.
  73606. */
  73607. DUK_LOCAL duk_uint32_t duk__insert_jump_offset(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_int32_t skip) {
  73608. #if 0
  73609. /* Iterative solution. */
  73610. if (skip < 0) {
  73611. duk_small_int_t len;
  73612. /* two encoding attempts suffices */
  73613. len = duk_unicode_get_xutf8_length((duk_codepoint_t) duk__encode_i32(skip));
  73614. len = duk_unicode_get_xutf8_length((duk_codepoint_t) duk__encode_i32(skip - (duk_int32_t) len));
  73615. DUK_ASSERT(duk_unicode_get_xutf8_length(duk__encode_i32(skip - (duk_int32_t) len)) == len); /* no change */
  73616. skip -= (duk_int32_t) len;
  73617. }
  73618. #endif
  73619. #if defined(DUK_USE_PREFER_SIZE)
  73620. /* Closed form solution, this produces smallest code.
  73621. * See re_neg_jump_offset (closed2).
  73622. */
  73623. if (skip < 0) {
  73624. skip--;
  73625. if (skip < -0x3fL) {
  73626. skip--;
  73627. }
  73628. if (skip < -0x3ffL) {
  73629. skip--;
  73630. }
  73631. if (skip < -0x7fffL) {
  73632. skip--;
  73633. }
  73634. if (skip < -0xfffffL) {
  73635. skip--;
  73636. }
  73637. if (skip < -0x1ffffffL) {
  73638. skip--;
  73639. }
  73640. if (skip < -0x3fffffffL) {
  73641. skip--;
  73642. }
  73643. }
  73644. #else /* DUK_USE_PREFER_SIZE */
  73645. /* Closed form solution, this produces fastest code.
  73646. * See re_neg_jump_offset (closed1).
  73647. */
  73648. if (skip < 0) {
  73649. if (skip >= -0x3eL) {
  73650. skip -= 1;
  73651. } else if (skip >= -0x3fdL) {
  73652. skip -= 2;
  73653. } else if (skip >= -0x7ffcL) {
  73654. skip -= 3;
  73655. } else if (skip >= -0xffffbL) {
  73656. skip -= 4;
  73657. } else if (skip >= -0x1fffffaL) {
  73658. skip -= 5;
  73659. } else if (skip >= -0x3ffffff9L) {
  73660. skip -= 6;
  73661. } else {
  73662. skip -= 7;
  73663. }
  73664. }
  73665. #endif /* DUK_USE_PREFER_SIZE */
  73666. return duk__insert_i32(re_ctx, offset, skip);
  73667. }
  73668. DUK_LOCAL duk_uint32_t duk__append_jump_offset(duk_re_compiler_ctx *re_ctx, duk_int32_t skip) {
  73669. return (duk_uint32_t) duk__insert_jump_offset(re_ctx, (duk_uint32_t) DUK__RE_BUFLEN(re_ctx), skip);
  73670. }
  73671. /*
  73672. * duk_re_range_callback for generating character class ranges.
  73673. *
  73674. * When ignoreCase is false, the range is simply emitted as is. We don't,
  73675. * for instance, eliminate duplicates or overlapping ranges in a character
  73676. * class.
  73677. *
  73678. * When ignoreCase is true but the 'direct' flag is set, the caller knows
  73679. * that the range canonicalizes to itself for case insensitive matching,
  73680. * so the range is emitted as is. This is mainly useful for built-in ranges
  73681. * like \W.
  73682. *
  73683. * Otherwise, when ignoreCase is true, the range needs to be normalized
  73684. * through canonicalization. Unfortunately a canonicalized version of a
  73685. * continuous range is not necessarily continuous (e.g. [x-{] is continuous
  73686. * but [X-{] is not). As a result, a single input range may expand to a lot
  73687. * of output ranges. The current algorithm creates the canonicalized ranges
  73688. * footprint efficiently at the cost of compile time execution time; see
  73689. * doc/regexp.rst for discussion, and some more details below.
  73690. *
  73691. * Note that the ctx->nranges is a context-wide temporary value. This is OK
  73692. * because there cannot be multiple character classes being parsed
  73693. * simultaneously.
  73694. *
  73695. * More detail on canonicalization:
  73696. *
  73697. * Conceptually, a range is canonicalized by scanning the entire range,
  73698. * normalizing each codepoint by converting it to uppercase, and generating
  73699. * a set of result ranges.
  73700. *
  73701. * Ideally a minimal set of output ranges would be emitted by merging all
  73702. * possible ranges even if they're emitted out of sequence. Because the
  73703. * input string is also case normalized during matching, some codepoints
  73704. * never occur at runtime; these "don't care" codepoints can be included or
  73705. * excluded from ranges when merging/optimizing ranges.
  73706. *
  73707. * The current algorithm does not do optimal range merging. Rather, output
  73708. * codepoints are generated in sequence, and when the output codepoints are
  73709. * continuous (CP, CP+1, CP+2, ...), they are merged locally into as large a
  73710. * range as possible. A small canonicalization bitmap is used to reduce
  73711. * actual codepoint canonicalizations which are quite slow at present. The
  73712. * bitmap provides a "codepoint block is continuous with respect to
  73713. * canonicalization" for N-codepoint blocks. This allows blocks to be
  73714. * skipped quickly.
  73715. *
  73716. * There are a number of shortcomings and future work here:
  73717. *
  73718. * - Individual codepoint normalizations are slow because they involve
  73719. * walking bit-packed rules without a lookup index.
  73720. *
  73721. * - The conceptual algorithm needs to canonicalize every codepoint in the
  73722. * input range to figure out the output range(s). Even with the small
  73723. * canonicalization bitmap the algorithm runs quite slowly for worst case
  73724. * inputs. There are many data structure alternatives to improve this.
  73725. *
  73726. * - While the current algorithm generates maximal output ranges when the
  73727. * output codepoints are emitted linearly, output ranges are not sorted or
  73728. * merged otherwise. In the worst case a lot of ranges are emitted when
  73729. * most of the ranges could be merged. In this process one could take
  73730. * advantage of "don't care" codepoints, which are never matched against at
  73731. * runtime due to canonicalization of input codepoints before comparison,
  73732. * to merge otherwise discontinuous output ranges.
  73733. *
  73734. * - The runtime data structure is just a linear list of ranges to match
  73735. * against. This can be quite slow if there are a lot of output ranges.
  73736. * There are various ways to make matching against the ranges faster,
  73737. * e.g. sorting the ranges and using a binary search; skip lists; tree
  73738. * based representations; full or approximate codepoint bitmaps, etc.
  73739. *
  73740. * - Only BMP is supported, codepoints above BMP are assumed to canonicalize
  73741. * to themselves. For now this is one place where we don't want to
  73742. * support chars outside the BMP, because the exhaustive search would be
  73743. * massively larger. It would be possible to support non-BMP with a
  73744. * different algorithm, or perhaps doing case normalization only at match
  73745. * time.
  73746. */
  73747. DUK_LOCAL void duk__regexp_emit_range(duk_re_compiler_ctx *re_ctx, duk_codepoint_t r1, duk_codepoint_t r2) {
  73748. DUK_ASSERT(r2 >= r1);
  73749. duk__append_u32(re_ctx, (duk_uint32_t) r1);
  73750. duk__append_u32(re_ctx, (duk_uint32_t) r2);
  73751. re_ctx->nranges++;
  73752. }
  73753. #if defined(DUK_USE_REGEXP_CANON_BITMAP)
  73754. /* Find next canonicalization discontinuity (conservative estimate) starting
  73755. * from 'start', not exceeding 'end'. If continuity is fine up to 'end'
  73756. * inclusive, returns end. Minimum possible return value is start.
  73757. */
  73758. DUK_LOCAL duk_codepoint_t duk__re_canon_next_discontinuity(duk_codepoint_t start, duk_codepoint_t end) {
  73759. duk_uint_t start_blk;
  73760. duk_uint_t end_blk;
  73761. duk_uint_t blk;
  73762. duk_uint_t offset;
  73763. duk_uint8_t mask;
  73764. /* Inclusive block range. */
  73765. DUK_ASSERT(start >= 0);
  73766. DUK_ASSERT(end >= 0);
  73767. DUK_ASSERT(end >= start);
  73768. start_blk = (duk_uint_t) (start >> DUK_CANON_BITMAP_BLKSHIFT);
  73769. end_blk = (duk_uint_t) (end >> DUK_CANON_BITMAP_BLKSHIFT);
  73770. for (blk = start_blk; blk <= end_blk; blk++) {
  73771. offset = blk >> 3;
  73772. mask = 1U << (blk & 0x07);
  73773. if (offset >= sizeof(duk_unicode_re_canon_bitmap)) {
  73774. /* Reached non-BMP range which is assumed continuous. */
  73775. return end;
  73776. }
  73777. DUK_ASSERT(offset < sizeof(duk_unicode_re_canon_bitmap));
  73778. if ((duk_unicode_re_canon_bitmap[offset] & mask) == 0) {
  73779. /* Block is discontinuous, continuity is guaranteed
  73780. * only up to end of previous block (+1 for exclusive
  73781. * return value => start of current block). Start
  73782. * block requires special handling.
  73783. */
  73784. if (blk > start_blk) {
  73785. return (duk_codepoint_t) (blk << DUK_CANON_BITMAP_BLKSHIFT);
  73786. } else {
  73787. return start;
  73788. }
  73789. }
  73790. }
  73791. DUK_ASSERT(blk == end_blk + 1); /* Reached end block which is continuous. */
  73792. return end;
  73793. }
  73794. #else /* DUK_USE_REGEXP_CANON_BITMAP */
  73795. DUK_LOCAL duk_codepoint_t duk__re_canon_next_discontinuity(duk_codepoint_t start, duk_codepoint_t end) {
  73796. DUK_ASSERT(start >= 0);
  73797. DUK_ASSERT(end >= 0);
  73798. DUK_ASSERT(end >= start);
  73799. if (start >= 0x10000) {
  73800. /* Even without the bitmap, treat non-BMP as continuous. */
  73801. return end;
  73802. }
  73803. return start;
  73804. }
  73805. #endif /* DUK_USE_REGEXP_CANON_BITMAP */
  73806. DUK_LOCAL void duk__regexp_generate_ranges(void *userdata, duk_codepoint_t r1, duk_codepoint_t r2, duk_bool_t direct) {
  73807. duk_re_compiler_ctx *re_ctx = (duk_re_compiler_ctx *) userdata;
  73808. duk_codepoint_t r_start;
  73809. duk_codepoint_t r_end;
  73810. duk_codepoint_t i;
  73811. duk_codepoint_t t;
  73812. duk_codepoint_t r_disc;
  73813. DUK_DD(DUK_DDPRINT("duk__regexp_generate_ranges(): re_ctx=%p, range=[%ld,%ld] direct=%ld",
  73814. (void *) re_ctx, (long) r1, (long) r2, (long) direct));
  73815. DUK_ASSERT(r2 >= r1); /* SyntaxError for out of order range. */
  73816. if (direct || (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) == 0) {
  73817. DUK_DD(DUK_DDPRINT("direct or not case sensitive, emit range: [%ld,%ld]", (long) r1, (long) r2));
  73818. duk__regexp_emit_range(re_ctx, r1, r2);
  73819. return;
  73820. }
  73821. DUK_DD(DUK_DDPRINT("case sensitive, process range: [%ld,%ld]", (long) r1, (long) r2));
  73822. r_start = duk_unicode_re_canonicalize_char(re_ctx->thr, r1);
  73823. r_end = r_start;
  73824. for (i = r1 + 1; i <= r2;) {
  73825. /* Input codepoint space processed up to i-1, and
  73826. * current range in r_{start,end} is up-to-date
  73827. * (inclusive) and may either break or continue.
  73828. */
  73829. r_disc = duk__re_canon_next_discontinuity(i, r2);
  73830. DUK_ASSERT(r_disc >= i);
  73831. DUK_ASSERT(r_disc <= r2);
  73832. r_end += r_disc - i; /* May be zero. */
  73833. t = duk_unicode_re_canonicalize_char(re_ctx->thr, r_disc);
  73834. if (t == r_end + 1) {
  73835. /* Not actually a discontinuity, continue range
  73836. * to r_disc and recheck.
  73837. */
  73838. r_end = t;
  73839. } else {
  73840. duk__regexp_emit_range(re_ctx, r_start, r_end);
  73841. r_start = t;
  73842. r_end = t;
  73843. }
  73844. i = r_disc + 1; /* Guarantees progress. */
  73845. }
  73846. duk__regexp_emit_range(re_ctx, r_start, r_end);
  73847. #if 0 /* Exhaustive search, very slow. */
  73848. r_start = duk_unicode_re_canonicalize_char(re_ctx->thr, r1);
  73849. r_end = r_start;
  73850. for (i = r1 + 1; i <= r2; i++) {
  73851. t = duk_unicode_re_canonicalize_char(re_ctx->thr, i);
  73852. if (t == r_end + 1) {
  73853. r_end = t;
  73854. } else {
  73855. DUK_DD(DUK_DDPRINT("canonicalized, emit range: [%ld,%ld]", (long) r_start, (long) r_end));
  73856. duk__append_u32(re_ctx, (duk_uint32_t) r_start);
  73857. duk__append_u32(re_ctx, (duk_uint32_t) r_end);
  73858. re_ctx->nranges++;
  73859. r_start = t;
  73860. r_end = t;
  73861. }
  73862. }
  73863. DUK_DD(DUK_DDPRINT("canonicalized, emit range: [%ld,%ld]", (long) r_start, (long) r_end));
  73864. duk__append_u32(re_ctx, (duk_uint32_t) r_start);
  73865. duk__append_u32(re_ctx, (duk_uint32_t) r_end);
  73866. re_ctx->nranges++;
  73867. #endif
  73868. }
  73869. /*
  73870. * Parse regexp Disjunction. Most of regexp compilation happens here.
  73871. *
  73872. * Handles Disjunction, Alternative, and Term productions directly without
  73873. * recursion. The only constructs requiring recursion are positive/negative
  73874. * lookaheads, capturing parentheses, and non-capturing parentheses.
  73875. *
  73876. * The function determines whether the entire disjunction is a 'simple atom'
  73877. * (see doc/regexp.rst discussion on 'simple quantifiers') and if so,
  73878. * returns the atom character length which is needed by the caller to keep
  73879. * track of its own atom character length. A disjunction with more than one
  73880. * alternative is never considered a simple atom (although in some cases
  73881. * that might be the case).
  73882. *
  73883. * Return value: simple atom character length or < 0 if not a simple atom.
  73884. * Appends the bytecode for the disjunction matcher to the end of the temp
  73885. * buffer.
  73886. *
  73887. * Regexp top level structure is:
  73888. *
  73889. * Disjunction = Term*
  73890. * | Term* | Disjunction
  73891. *
  73892. * Term = Assertion
  73893. * | Atom
  73894. * | Atom Quantifier
  73895. *
  73896. * An empty Term sequence is a valid disjunction alternative (e.g. /|||c||/).
  73897. *
  73898. * Notes:
  73899. *
  73900. * * Tracking of the 'simple-ness' of the current atom vs. the entire
  73901. * disjunction are separate matters. For instance, the disjunction
  73902. * may be complex, but individual atoms may be simple. Furthermore,
  73903. * simple quantifiers are used whenever possible, even if the
  73904. * disjunction as a whole is complex.
  73905. *
  73906. * * The estimate of whether an atom is simple is conservative now,
  73907. * and it would be possible to expand it. For instance, captures
  73908. * cause the disjunction to be marked complex, even though captures
  73909. * -can- be handled by simple quantifiers with some minor modifications.
  73910. *
  73911. * * Disjunction 'tainting' as 'complex' is handled at the end of the
  73912. * main for loop collectively for atoms. Assertions, quantifiers,
  73913. * and '|' tokens need to taint the result manually if necessary.
  73914. * Assertions cannot add to result char length, only atoms (and
  73915. * quantifiers) can; currently quantifiers will taint the result
  73916. * as complex though.
  73917. */
  73918. DUK_LOCAL const duk_uint16_t * const duk__re_range_lookup1[3] = {
  73919. duk_unicode_re_ranges_digit,
  73920. duk_unicode_re_ranges_white,
  73921. duk_unicode_re_ranges_wordchar
  73922. };
  73923. DUK_LOCAL const duk_uint8_t duk__re_range_lookup2[3] = {
  73924. sizeof(duk_unicode_re_ranges_digit) / (2 * sizeof(duk_uint16_t)),
  73925. sizeof(duk_unicode_re_ranges_white) / (2 * sizeof(duk_uint16_t)),
  73926. sizeof(duk_unicode_re_ranges_wordchar) / (2 * sizeof(duk_uint16_t))
  73927. };
  73928. DUK_LOCAL void duk__append_range_atom_matcher(duk_re_compiler_ctx *re_ctx, duk_small_uint_t re_op, const duk_uint16_t *ranges, duk_small_uint_t count) {
  73929. #if 0
  73930. DUK_ASSERT(re_op <= 0x7fUL);
  73931. DUK_ASSERT(count <= 0x7fUL);
  73932. duk__append_2bytes(re_ctx, (duk_uint8_t) re_op, (duk_uint8_t) count);
  73933. #endif
  73934. duk__append_reop(re_ctx, re_op);
  73935. duk__append_7bit(re_ctx, count);
  73936. duk__append_u16_list(re_ctx, ranges, count * 2);
  73937. }
  73938. DUK_LOCAL void duk__parse_disjunction(duk_re_compiler_ctx *re_ctx, duk_bool_t expect_eof, duk__re_disjunction_info *out_atom_info) {
  73939. duk_int32_t atom_start_offset = -1; /* negative -> no atom matched on previous round */
  73940. duk_int32_t atom_char_length = 0; /* negative -> complex atom */
  73941. duk_uint32_t atom_start_captures = re_ctx->captures; /* value of re_ctx->captures at start of atom */
  73942. duk_int32_t unpatched_disjunction_split = -1;
  73943. duk_int32_t unpatched_disjunction_jump = -1;
  73944. duk_uint32_t entry_offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx);
  73945. duk_int32_t res_charlen = 0; /* -1 if disjunction is complex, char length if simple */
  73946. duk__re_disjunction_info tmp_disj;
  73947. DUK_ASSERT(out_atom_info != NULL);
  73948. if (re_ctx->recursion_depth >= re_ctx->recursion_limit) {
  73949. DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_COMPILER_RECURSION_LIMIT);
  73950. }
  73951. re_ctx->recursion_depth++;
  73952. #if 0
  73953. out_atom_info->start_captures = re_ctx->captures;
  73954. #endif
  73955. for (;;) {
  73956. /* atom_char_length, atom_start_offset, atom_start_offset reflect the
  73957. * atom matched on the previous loop. If a quantifier is encountered
  73958. * on this loop, these are needed to handle the quantifier correctly.
  73959. * new_atom_char_length etc are for the atom parsed on this round;
  73960. * they're written to atom_char_length etc at the end of the round.
  73961. */
  73962. duk_int32_t new_atom_char_length; /* char length of the atom parsed in this loop */
  73963. duk_int32_t new_atom_start_offset; /* bytecode start offset of the atom parsed in this loop
  73964. * (allows quantifiers to copy the atom bytecode)
  73965. */
  73966. duk_uint32_t new_atom_start_captures; /* re_ctx->captures at the start of the atom parsed in this loop */
  73967. duk_lexer_parse_re_token(&re_ctx->lex, &re_ctx->curr_token);
  73968. DUK_DD(DUK_DDPRINT("re token: %ld (num=%ld, char=%c)",
  73969. (long) re_ctx->curr_token.t,
  73970. (long) re_ctx->curr_token.num,
  73971. (re_ctx->curr_token.num >= 0x20 && re_ctx->curr_token.num <= 0x7e) ?
  73972. (int) re_ctx->curr_token.num : (int) '?'));
  73973. /* set by atom case clauses */
  73974. new_atom_start_offset = -1;
  73975. new_atom_char_length = -1;
  73976. new_atom_start_captures = re_ctx->captures;
  73977. switch (re_ctx->curr_token.t) {
  73978. case DUK_RETOK_DISJUNCTION: {
  73979. /*
  73980. * The handling here is a bit tricky. If a previous '|' has been processed,
  73981. * we have a pending split1 and a pending jump (for a previous match). These
  73982. * need to be back-patched carefully. See docs for a detailed example.
  73983. */
  73984. /* patch pending jump and split */
  73985. if (unpatched_disjunction_jump >= 0) {
  73986. duk_uint32_t offset;
  73987. DUK_ASSERT(unpatched_disjunction_split >= 0);
  73988. offset = (duk_uint32_t) unpatched_disjunction_jump;
  73989. offset += duk__insert_jump_offset(re_ctx,
  73990. offset,
  73991. (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - offset));
  73992. /* offset is now target of the pending split (right after jump) */
  73993. duk__insert_jump_offset(re_ctx,
  73994. (duk_uint32_t) unpatched_disjunction_split,
  73995. (duk_int32_t) offset - unpatched_disjunction_split);
  73996. }
  73997. /* add a new pending split to the beginning of the entire disjunction */
  73998. (void) duk__insert_u32(re_ctx,
  73999. entry_offset,
  74000. DUK_REOP_SPLIT1); /* prefer direct execution */
  74001. unpatched_disjunction_split = (duk_int32_t) (entry_offset + 1); /* +1 for opcode */
  74002. /* add a new pending match jump for latest finished alternative */
  74003. duk__append_reop(re_ctx, DUK_REOP_JUMP);
  74004. unpatched_disjunction_jump = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74005. /* 'taint' result as complex */
  74006. res_charlen = -1;
  74007. break;
  74008. }
  74009. case DUK_RETOK_QUANTIFIER: {
  74010. if (atom_start_offset < 0) {
  74011. DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_INVALID_QUANTIFIER_NO_ATOM);
  74012. }
  74013. if (re_ctx->curr_token.qmin > re_ctx->curr_token.qmax) {
  74014. DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_INVALID_QUANTIFIER_VALUES);
  74015. }
  74016. if (atom_char_length >= 0) {
  74017. /*
  74018. * Simple atom
  74019. *
  74020. * If atom_char_length is zero, we'll have unbounded execution time for e.g.
  74021. * /()*x/.exec('x'). We can't just skip the match because it might have some
  74022. * side effects (for instance, if we allowed captures in simple atoms, the
  74023. * capture needs to happen). The simple solution below is to force the
  74024. * quantifier to match at most once, since the additional matches have no effect.
  74025. *
  74026. * With a simple atom there can be no capture groups, so no captures need
  74027. * to be reset.
  74028. */
  74029. duk_int32_t atom_code_length;
  74030. duk_uint32_t offset;
  74031. duk_uint32_t qmin, qmax;
  74032. qmin = re_ctx->curr_token.qmin;
  74033. qmax = re_ctx->curr_token.qmax;
  74034. if (atom_char_length == 0) {
  74035. /* qmin and qmax will be 0 or 1 */
  74036. if (qmin > 1) {
  74037. qmin = 1;
  74038. }
  74039. if (qmax > 1) {
  74040. qmax = 1;
  74041. }
  74042. }
  74043. duk__append_reop(re_ctx, DUK_REOP_MATCH); /* complete 'sub atom' */
  74044. atom_code_length = (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (duk_size_t) atom_start_offset);
  74045. offset = (duk_uint32_t) atom_start_offset;
  74046. if (re_ctx->curr_token.greedy) {
  74047. offset += duk__insert_u32(re_ctx, offset, DUK_REOP_SQGREEDY);
  74048. offset += duk__insert_u32(re_ctx, offset, qmin);
  74049. offset += duk__insert_u32(re_ctx, offset, qmax);
  74050. offset += duk__insert_u32(re_ctx, offset, (duk_uint32_t) atom_char_length);
  74051. offset += duk__insert_jump_offset(re_ctx, offset, atom_code_length);
  74052. } else {
  74053. offset += duk__insert_u32(re_ctx, offset, DUK_REOP_SQMINIMAL);
  74054. offset += duk__insert_u32(re_ctx, offset, qmin);
  74055. offset += duk__insert_u32(re_ctx, offset, qmax);
  74056. offset += duk__insert_jump_offset(re_ctx, offset, atom_code_length);
  74057. }
  74058. DUK_UNREF(offset); /* silence scan-build warning */
  74059. } else {
  74060. /*
  74061. * Complex atom
  74062. *
  74063. * The original code is used as a template, and removed at the end
  74064. * (this differs from the handling of simple quantifiers).
  74065. *
  74066. * NOTE: there is no current solution for empty atoms in complex
  74067. * quantifiers. This would need some sort of a 'progress' instruction.
  74068. *
  74069. * XXX: impose limit on maximum result size, i.e. atom_code_len * atom_copies?
  74070. */
  74071. duk_int32_t atom_code_length;
  74072. duk_uint32_t atom_copies;
  74073. duk_uint32_t tmp_qmin, tmp_qmax;
  74074. /* pre-check how many atom copies we're willing to make (atom_copies not needed below) */
  74075. atom_copies = (re_ctx->curr_token.qmax == DUK_RE_QUANTIFIER_INFINITE) ?
  74076. re_ctx->curr_token.qmin : re_ctx->curr_token.qmax;
  74077. if (atom_copies > DUK_RE_MAX_ATOM_COPIES) {
  74078. DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_QUANTIFIER_TOO_MANY_COPIES);
  74079. }
  74080. /* wipe the capture range made by the atom (if any) */
  74081. DUK_ASSERT(atom_start_captures <= re_ctx->captures);
  74082. if (atom_start_captures != re_ctx->captures) {
  74083. DUK_ASSERT(atom_start_captures < re_ctx->captures);
  74084. DUK_DDD(DUK_DDDPRINT("must wipe ]atom_start_captures,re_ctx->captures]: ]%ld,%ld]",
  74085. (long) atom_start_captures, (long) re_ctx->captures));
  74086. /* insert (DUK_REOP_WIPERANGE, start, count) in reverse order so the order ends up right */
  74087. duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, (re_ctx->captures - atom_start_captures) * 2U);
  74088. duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, (atom_start_captures + 1) * 2);
  74089. duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, DUK_REOP_WIPERANGE);
  74090. } else {
  74091. DUK_DDD(DUK_DDDPRINT("no need to wipe captures: atom_start_captures == re_ctx->captures == %ld",
  74092. (long) atom_start_captures));
  74093. }
  74094. atom_code_length = (duk_int32_t) DUK__RE_BUFLEN(re_ctx) - atom_start_offset;
  74095. /* insert the required matches (qmin) by copying the atom */
  74096. tmp_qmin = re_ctx->curr_token.qmin;
  74097. tmp_qmax = re_ctx->curr_token.qmax;
  74098. while (tmp_qmin > 0) {
  74099. duk__append_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length);
  74100. tmp_qmin--;
  74101. if (tmp_qmax != DUK_RE_QUANTIFIER_INFINITE) {
  74102. tmp_qmax--;
  74103. }
  74104. }
  74105. DUK_ASSERT(tmp_qmin == 0);
  74106. /* insert code for matching the remainder - infinite or finite */
  74107. if (tmp_qmax == DUK_RE_QUANTIFIER_INFINITE) {
  74108. /* reuse last emitted atom for remaining 'infinite' quantifier */
  74109. if (re_ctx->curr_token.qmin == 0) {
  74110. /* Special case: original qmin was zero so there is nothing
  74111. * to repeat. Emit an atom copy but jump over it here.
  74112. */
  74113. duk__append_reop(re_ctx, DUK_REOP_JUMP);
  74114. duk__append_jump_offset(re_ctx, atom_code_length);
  74115. duk__append_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length);
  74116. }
  74117. if (re_ctx->curr_token.greedy) {
  74118. duk__append_reop(re_ctx, DUK_REOP_SPLIT2); /* prefer jump */
  74119. } else {
  74120. duk__append_reop(re_ctx, DUK_REOP_SPLIT1); /* prefer direct */
  74121. }
  74122. duk__append_jump_offset(re_ctx, -atom_code_length - 1); /* -1 for opcode */
  74123. } else {
  74124. /*
  74125. * The remaining matches are emitted as sequence of SPLITs and atom
  74126. * copies; the SPLITs skip the remaining copies and match the sequel.
  74127. * This sequence needs to be emitted starting from the last copy
  74128. * because the SPLITs are variable length due to the variable length
  74129. * skip offset. This causes a lot of memory copying now.
  74130. *
  74131. * Example structure (greedy, match maximum # atoms):
  74132. *
  74133. * SPLIT1 LSEQ
  74134. * (atom)
  74135. * SPLIT1 LSEQ ; <- the byte length of this instruction is needed
  74136. * (atom) ; to encode the above SPLIT1 correctly
  74137. * ...
  74138. * LSEQ:
  74139. */
  74140. duk_uint32_t offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx);
  74141. while (tmp_qmax > 0) {
  74142. duk__insert_slice(re_ctx, offset, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length);
  74143. if (re_ctx->curr_token.greedy) {
  74144. duk__insert_u32(re_ctx, offset, DUK_REOP_SPLIT1); /* prefer direct */
  74145. } else {
  74146. duk__insert_u32(re_ctx, offset, DUK_REOP_SPLIT2); /* prefer jump */
  74147. }
  74148. duk__insert_jump_offset(re_ctx,
  74149. offset + 1, /* +1 for opcode */
  74150. (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (offset + 1)));
  74151. tmp_qmax--;
  74152. }
  74153. }
  74154. /* remove the original 'template' atom */
  74155. duk__remove_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length);
  74156. }
  74157. /* 'taint' result as complex */
  74158. res_charlen = -1;
  74159. break;
  74160. }
  74161. case DUK_RETOK_ASSERT_START: {
  74162. duk__append_reop(re_ctx, DUK_REOP_ASSERT_START);
  74163. break;
  74164. }
  74165. case DUK_RETOK_ASSERT_END: {
  74166. duk__append_reop(re_ctx, DUK_REOP_ASSERT_END);
  74167. break;
  74168. }
  74169. case DUK_RETOK_ASSERT_WORD_BOUNDARY: {
  74170. duk__append_reop(re_ctx, DUK_REOP_ASSERT_WORD_BOUNDARY);
  74171. break;
  74172. }
  74173. case DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY: {
  74174. duk__append_reop(re_ctx, DUK_REOP_ASSERT_NOT_WORD_BOUNDARY);
  74175. break;
  74176. }
  74177. case DUK_RETOK_ASSERT_START_POS_LOOKAHEAD:
  74178. case DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD: {
  74179. duk_uint32_t offset;
  74180. duk_uint32_t opcode = (re_ctx->curr_token.t == DUK_RETOK_ASSERT_START_POS_LOOKAHEAD) ?
  74181. DUK_REOP_LOOKPOS : DUK_REOP_LOOKNEG;
  74182. offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx);
  74183. duk__parse_disjunction(re_ctx, 0, &tmp_disj);
  74184. duk__append_reop(re_ctx, DUK_REOP_MATCH);
  74185. (void) duk__insert_u32(re_ctx, offset, opcode);
  74186. (void) duk__insert_jump_offset(re_ctx,
  74187. offset + 1, /* +1 for opcode */
  74188. (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (offset + 1)));
  74189. /* 'taint' result as complex -- this is conservative,
  74190. * as lookaheads do not backtrack.
  74191. */
  74192. res_charlen = -1;
  74193. break;
  74194. }
  74195. case DUK_RETOK_ATOM_PERIOD: {
  74196. new_atom_char_length = 1;
  74197. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74198. duk__append_reop(re_ctx, DUK_REOP_PERIOD);
  74199. break;
  74200. }
  74201. case DUK_RETOK_ATOM_CHAR: {
  74202. /* Note: successive characters could be joined into string matches
  74203. * but this is not trivial (consider e.g. '/xyz+/); see docs for
  74204. * more discussion.
  74205. *
  74206. * No support for \u{H+} yet. While only BMP Unicode escapes are
  74207. * supported for RegExps at present, 'ch' may still be a non-BMP
  74208. * codepoint if it is decoded straight from source text UTF-8.
  74209. * There's no non-BMP support yet so this is handled simply by
  74210. * matching the non-BMP character (which is custom behavior).
  74211. */
  74212. duk_uint32_t ch;
  74213. new_atom_char_length = 1;
  74214. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74215. duk__append_reop(re_ctx, DUK_REOP_CHAR);
  74216. ch = re_ctx->curr_token.num;
  74217. if (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) {
  74218. ch = (duk_uint32_t) duk_unicode_re_canonicalize_char(re_ctx->thr, (duk_codepoint_t) ch);
  74219. }
  74220. duk__append_u32(re_ctx, ch);
  74221. break;
  74222. }
  74223. case DUK_RETOK_ATOM_DIGIT:
  74224. case DUK_RETOK_ATOM_NOT_DIGIT:
  74225. case DUK_RETOK_ATOM_WHITE:
  74226. case DUK_RETOK_ATOM_NOT_WHITE:
  74227. case DUK_RETOK_ATOM_WORD_CHAR:
  74228. case DUK_RETOK_ATOM_NOT_WORD_CHAR: {
  74229. duk_small_uint_t re_op;
  74230. duk_small_uint_t idx;
  74231. new_atom_char_length = 1;
  74232. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74233. DUK_ASSERT((DUK_RETOK_ATOM_DIGIT & 0x01) != 0);
  74234. DUK_ASSERT((DUK_RETOK_ATOM_WHITE & 0x01) != 0);
  74235. DUK_ASSERT((DUK_RETOK_ATOM_WORD_CHAR & 0x01) != 0);
  74236. DUK_ASSERT((DUK_RETOK_ATOM_NOT_DIGIT & 0x01) == 0);
  74237. DUK_ASSERT((DUK_RETOK_ATOM_NOT_WHITE & 0x01) == 0);
  74238. DUK_ASSERT((DUK_RETOK_ATOM_NOT_WORD_CHAR & 0x01) == 0);
  74239. re_op = (re_ctx->curr_token.t & 0x01) ? DUK_REOP_RANGES : DUK_REOP_INVRANGES;
  74240. DUK_ASSERT(DUK_RETOK_ATOM_WHITE == DUK_RETOK_ATOM_DIGIT + 2);
  74241. DUK_ASSERT(DUK_RETOK_ATOM_WORD_CHAR == DUK_RETOK_ATOM_DIGIT + 4);
  74242. idx = (duk_small_uint_t) ((re_ctx->curr_token.t - DUK_RETOK_ATOM_DIGIT) >> 1U);
  74243. DUK_ASSERT(idx <= 2U); /* Assume continuous token numbers; also checks negative underflow. */
  74244. duk__append_range_atom_matcher(re_ctx, re_op, duk__re_range_lookup1[idx], duk__re_range_lookup2[idx]);
  74245. break;
  74246. }
  74247. case DUK_RETOK_ATOM_BACKREFERENCE: {
  74248. duk_uint32_t backref = (duk_uint32_t) re_ctx->curr_token.num;
  74249. if (backref > re_ctx->highest_backref) {
  74250. re_ctx->highest_backref = backref;
  74251. }
  74252. new_atom_char_length = -1; /* mark as complex */
  74253. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74254. duk__append_reop(re_ctx, DUK_REOP_BACKREFERENCE);
  74255. duk__append_u32(re_ctx, backref);
  74256. break;
  74257. }
  74258. case DUK_RETOK_ATOM_START_CAPTURE_GROUP: {
  74259. duk_uint32_t cap;
  74260. new_atom_char_length = -1; /* mark as complex (capture handling) */
  74261. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74262. cap = ++re_ctx->captures;
  74263. duk__append_reop(re_ctx, DUK_REOP_SAVE);
  74264. duk__append_u32(re_ctx, cap * 2);
  74265. duk__parse_disjunction(re_ctx, 0, &tmp_disj); /* retval (sub-atom char length) unused, tainted as complex above */
  74266. duk__append_reop(re_ctx, DUK_REOP_SAVE);
  74267. duk__append_u32(re_ctx, cap * 2 + 1);
  74268. break;
  74269. }
  74270. case DUK_RETOK_ATOM_START_NONCAPTURE_GROUP: {
  74271. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74272. duk__parse_disjunction(re_ctx, 0, &tmp_disj);
  74273. new_atom_char_length = tmp_disj.charlen;
  74274. break;
  74275. }
  74276. case DUK_RETOK_ATOM_START_CHARCLASS:
  74277. case DUK_RETOK_ATOM_START_CHARCLASS_INVERTED: {
  74278. /*
  74279. * Range parsing is done with a special lexer function which calls
  74280. * us for every range parsed. This is different from how rest of
  74281. * the parsing works, but avoids a heavy, arbitrary size intermediate
  74282. * value type to hold the ranges.
  74283. *
  74284. * Another complication is the handling of character ranges when
  74285. * case insensitive matching is used (see docs for discussion).
  74286. * The range handler callback given to the lexer takes care of this
  74287. * as well.
  74288. *
  74289. * Note that duplicate ranges are not eliminated when parsing character
  74290. * classes, so that canonicalization of
  74291. *
  74292. * [0-9a-fA-Fx-{]
  74293. *
  74294. * creates the result (note the duplicate ranges):
  74295. *
  74296. * [0-9A-FA-FX-Z{-{]
  74297. *
  74298. * where [x-{] is split as a result of canonicalization. The duplicate
  74299. * ranges are not a semantics issue: they work correctly.
  74300. */
  74301. duk_uint32_t offset;
  74302. DUK_DD(DUK_DDPRINT("character class"));
  74303. /* insert ranges instruction, range count patched in later */
  74304. new_atom_char_length = 1;
  74305. new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx);
  74306. duk__append_reop(re_ctx,
  74307. (re_ctx->curr_token.t == DUK_RETOK_ATOM_START_CHARCLASS) ?
  74308. DUK_REOP_RANGES : DUK_REOP_INVRANGES);
  74309. offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx); /* patch in range count later */
  74310. /* parse ranges until character class ends */
  74311. re_ctx->nranges = 0; /* note: ctx-wide temporary */
  74312. duk_lexer_parse_re_ranges(&re_ctx->lex, duk__regexp_generate_ranges, (void *) re_ctx);
  74313. /* insert range count */
  74314. duk__insert_u32(re_ctx, offset, re_ctx->nranges);
  74315. break;
  74316. }
  74317. case DUK_RETOK_ATOM_END_GROUP: {
  74318. if (expect_eof) {
  74319. DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_CLOSING_PAREN);
  74320. }
  74321. goto done;
  74322. }
  74323. case DUK_RETOK_EOF: {
  74324. if (!expect_eof) {
  74325. DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_END_OF_PATTERN);
  74326. }
  74327. goto done;
  74328. }
  74329. default: {
  74330. DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_REGEXP_TOKEN);
  74331. }
  74332. }
  74333. /* a complex (new) atom taints the result */
  74334. if (new_atom_start_offset >= 0) {
  74335. if (new_atom_char_length < 0) {
  74336. res_charlen = -1;
  74337. } else if (res_charlen >= 0) {
  74338. /* only advance if not tainted */
  74339. res_charlen += new_atom_char_length;
  74340. }
  74341. }
  74342. /* record previous atom info in case next token is a quantifier */
  74343. atom_start_offset = new_atom_start_offset;
  74344. atom_char_length = new_atom_char_length;
  74345. atom_start_captures = new_atom_start_captures;
  74346. }
  74347. done:
  74348. /* finish up pending jump and split for last alternative */
  74349. if (unpatched_disjunction_jump >= 0) {
  74350. duk_uint32_t offset;
  74351. DUK_ASSERT(unpatched_disjunction_split >= 0);
  74352. offset = (duk_uint32_t) unpatched_disjunction_jump;
  74353. offset += duk__insert_jump_offset(re_ctx,
  74354. offset,
  74355. (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - offset));
  74356. /* offset is now target of the pending split (right after jump) */
  74357. duk__insert_jump_offset(re_ctx,
  74358. (duk_uint32_t) unpatched_disjunction_split,
  74359. (duk_int32_t) offset - unpatched_disjunction_split);
  74360. }
  74361. #if 0
  74362. out_atom_info->end_captures = re_ctx->captures;
  74363. #endif
  74364. out_atom_info->charlen = res_charlen;
  74365. DUK_DDD(DUK_DDDPRINT("parse disjunction finished: charlen=%ld",
  74366. (long) out_atom_info->charlen));
  74367. re_ctx->recursion_depth--;
  74368. }
  74369. /*
  74370. * Flags parsing (see E5 Section 15.10.4.1).
  74371. */
  74372. DUK_LOCAL duk_uint32_t duk__parse_regexp_flags(duk_hthread *thr, duk_hstring *h) {
  74373. const duk_uint8_t *p;
  74374. const duk_uint8_t *p_end;
  74375. duk_uint32_t flags = 0;
  74376. p = DUK_HSTRING_GET_DATA(h);
  74377. p_end = p + DUK_HSTRING_GET_BYTELEN(h);
  74378. /* Note: can be safely scanned as bytes (undecoded) */
  74379. while (p < p_end) {
  74380. duk_uint8_t c = *p++;
  74381. switch (c) {
  74382. case (duk_uint8_t) 'g': {
  74383. if (flags & DUK_RE_FLAG_GLOBAL) {
  74384. goto flags_error;
  74385. }
  74386. flags |= DUK_RE_FLAG_GLOBAL;
  74387. break;
  74388. }
  74389. case (duk_uint8_t) 'i': {
  74390. if (flags & DUK_RE_FLAG_IGNORE_CASE) {
  74391. goto flags_error;
  74392. }
  74393. flags |= DUK_RE_FLAG_IGNORE_CASE;
  74394. break;
  74395. }
  74396. case (duk_uint8_t) 'm': {
  74397. if (flags & DUK_RE_FLAG_MULTILINE) {
  74398. goto flags_error;
  74399. }
  74400. flags |= DUK_RE_FLAG_MULTILINE;
  74401. break;
  74402. }
  74403. default: {
  74404. goto flags_error;
  74405. }
  74406. }
  74407. }
  74408. return flags;
  74409. flags_error:
  74410. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_REGEXP_FLAGS);
  74411. return 0; /* never here */
  74412. }
  74413. /*
  74414. * Create escaped RegExp source (E5 Section 15.10.3).
  74415. *
  74416. * The current approach is to special case the empty RegExp
  74417. * ('' -> '(?:)') and otherwise replace unescaped '/' characters
  74418. * with '\/' regardless of where they occur in the regexp.
  74419. *
  74420. * Note that normalization does not seem to be necessary for
  74421. * RegExp literals (e.g. '/foo/') because to be acceptable as
  74422. * a RegExp literal, the text between forward slashes must
  74423. * already match the escaping requirements (e.g. must not contain
  74424. * unescaped forward slashes or be empty). Escaping IS needed
  74425. * for expressions like 'new Regexp("...", "")' however.
  74426. * Currently, we re-escape in either case.
  74427. *
  74428. * Also note that we process the source here in UTF-8 encoded
  74429. * form. This is correct, because any non-ASCII characters are
  74430. * passed through without change.
  74431. */
  74432. DUK_LOCAL void duk__create_escaped_source(duk_hthread *thr, int idx_pattern) {
  74433. duk_hstring *h;
  74434. const duk_uint8_t *p;
  74435. duk_bufwriter_ctx bw_alloc;
  74436. duk_bufwriter_ctx *bw;
  74437. duk_uint8_t *q;
  74438. duk_size_t i, n;
  74439. duk_uint_fast8_t c_prev, c;
  74440. h = duk_known_hstring(thr, idx_pattern);
  74441. p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h);
  74442. n = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h);
  74443. if (n == 0) {
  74444. duk_push_string(thr, "(?:)");
  74445. return;
  74446. }
  74447. bw = &bw_alloc;
  74448. DUK_BW_INIT_PUSHBUF(thr, bw, n);
  74449. q = DUK_BW_GET_PTR(thr, bw);
  74450. c_prev = (duk_uint_fast8_t) 0;
  74451. for (i = 0; i < n; i++) {
  74452. c = p[i];
  74453. q = DUK_BW_ENSURE_RAW(thr, bw, 2, q);
  74454. if (c == (duk_uint_fast8_t) '/' && c_prev != (duk_uint_fast8_t) '\\') {
  74455. /* Unescaped '/' ANYWHERE in the regexp (in disjunction,
  74456. * inside a character class, ...) => same escape works.
  74457. */
  74458. *q++ = DUK_ASC_BACKSLASH;
  74459. }
  74460. *q++ = (duk_uint8_t) c;
  74461. c_prev = c;
  74462. }
  74463. DUK_BW_SETPTR_AND_COMPACT(thr, bw, q);
  74464. (void) duk_buffer_to_string(thr, -1); /* Safe if input is safe. */
  74465. /* [ ... escaped_source ] */
  74466. }
  74467. /*
  74468. * Exposed regexp compilation primitive.
  74469. *
  74470. * Sets up a regexp compilation context, and calls duk__parse_disjunction() to do the
  74471. * actual parsing. Handles generation of the compiled regexp header and the
  74472. * "boilerplate" capture of the matching substring (save 0 and 1). Also does some
  74473. * global level regexp checks after recursive compilation has finished.
  74474. *
  74475. * An escaped version of the regexp source, suitable for use as a RegExp instance
  74476. * 'source' property (see E5 Section 15.10.3), is also left on the stack.
  74477. *
  74478. * Input stack: [ pattern flags ]
  74479. * Output stack: [ bytecode escaped_source ] (both as strings)
  74480. */
  74481. DUK_INTERNAL void duk_regexp_compile(duk_hthread *thr) {
  74482. duk_re_compiler_ctx re_ctx;
  74483. duk_lexer_point lex_point;
  74484. duk_hstring *h_pattern;
  74485. duk_hstring *h_flags;
  74486. duk__re_disjunction_info ign_disj;
  74487. DUK_ASSERT(thr != NULL);
  74488. /*
  74489. * Args validation
  74490. */
  74491. /* TypeError if fails */
  74492. h_pattern = duk_require_hstring_notsymbol(thr, -2);
  74493. h_flags = duk_require_hstring_notsymbol(thr, -1);
  74494. /*
  74495. * Create normalized 'source' property (E5 Section 15.10.3).
  74496. */
  74497. /* [ ... pattern flags ] */
  74498. duk__create_escaped_source(thr, -2);
  74499. /* [ ... pattern flags escaped_source ] */
  74500. /*
  74501. * Init compilation context
  74502. */
  74503. /* [ ... pattern flags escaped_source buffer ] */
  74504. DUK_MEMZERO(&re_ctx, sizeof(re_ctx));
  74505. DUK_LEXER_INITCTX(&re_ctx.lex); /* duplicate zeroing, expect for (possible) NULL inits */
  74506. re_ctx.thr = thr;
  74507. re_ctx.lex.thr = thr;
  74508. re_ctx.lex.input = DUK_HSTRING_GET_DATA(h_pattern);
  74509. re_ctx.lex.input_length = DUK_HSTRING_GET_BYTELEN(h_pattern);
  74510. re_ctx.lex.token_limit = DUK_RE_COMPILE_TOKEN_LIMIT;
  74511. re_ctx.recursion_limit = DUK_USE_REGEXP_COMPILER_RECLIMIT;
  74512. re_ctx.re_flags = duk__parse_regexp_flags(thr, h_flags);
  74513. DUK_BW_INIT_PUSHBUF(thr, &re_ctx.bw, DUK__RE_INITIAL_BUFSIZE);
  74514. DUK_DD(DUK_DDPRINT("regexp compiler ctx initialized, flags=0x%08lx, recursion_limit=%ld",
  74515. (unsigned long) re_ctx.re_flags, (long) re_ctx.recursion_limit));
  74516. /*
  74517. * Init lexer
  74518. */
  74519. lex_point.offset = 0; /* expensive init, just want to fill window */
  74520. lex_point.line = 1;
  74521. DUK_LEXER_SETPOINT(&re_ctx.lex, &lex_point);
  74522. /*
  74523. * Compilation
  74524. */
  74525. DUK_DD(DUK_DDPRINT("starting regexp compilation"));
  74526. duk__append_reop(&re_ctx, DUK_REOP_SAVE);
  74527. duk__append_7bit(&re_ctx, 0);
  74528. duk__parse_disjunction(&re_ctx, 1 /*expect_eof*/, &ign_disj);
  74529. duk__append_reop(&re_ctx, DUK_REOP_SAVE);
  74530. duk__append_7bit(&re_ctx, 1);
  74531. duk__append_reop(&re_ctx, DUK_REOP_MATCH);
  74532. /*
  74533. * Check for invalid backreferences; note that it is NOT an error
  74534. * to back-reference a capture group which has not yet been introduced
  74535. * in the pattern (as in /\1(foo)/); in fact, the backreference will
  74536. * always match! It IS an error to back-reference a capture group
  74537. * which will never be introduced in the pattern. Thus, we can check
  74538. * for such references only after parsing is complete.
  74539. */
  74540. if (re_ctx.highest_backref > re_ctx.captures) {
  74541. DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_BACKREFS);
  74542. }
  74543. /*
  74544. * Emit compiled regexp header: flags, ncaptures
  74545. * (insertion order inverted on purpose)
  74546. */
  74547. duk__insert_u32(&re_ctx, 0, (re_ctx.captures + 1) * 2);
  74548. duk__insert_u32(&re_ctx, 0, re_ctx.re_flags);
  74549. /* [ ... pattern flags escaped_source buffer ] */
  74550. DUK_BW_COMPACT(thr, &re_ctx.bw);
  74551. (void) duk_buffer_to_string(thr, -1); /* Safe because flags is at most 7 bit. */
  74552. /* [ ... pattern flags escaped_source bytecode ] */
  74553. /*
  74554. * Finalize stack
  74555. */
  74556. duk_remove(thr, -4); /* -> [ ... flags escaped_source bytecode ] */
  74557. duk_remove(thr, -3); /* -> [ ... escaped_source bytecode ] */
  74558. DUK_DD(DUK_DDPRINT("regexp compilation successful, bytecode: %!T, escaped source: %!T",
  74559. (duk_tval *) duk_get_tval(thr, -1), (duk_tval *) duk_get_tval(thr, -2)));
  74560. }
  74561. /*
  74562. * Create a RegExp instance (E5 Section 15.10.7).
  74563. *
  74564. * Note: the output stack left by duk_regexp_compile() is directly compatible
  74565. * with the input here.
  74566. *
  74567. * Input stack: [ escaped_source bytecode ] (both as strings)
  74568. * Output stack: [ RegExp ]
  74569. */
  74570. DUK_INTERNAL void duk_regexp_create_instance(duk_hthread *thr) {
  74571. duk_hobject *h;
  74572. /* [ ... escaped_source bytecode ] */
  74573. duk_push_object(thr);
  74574. h = duk_known_hobject(thr, -1);
  74575. duk_insert(thr, -3);
  74576. /* [ ... regexp_object escaped_source bytecode ] */
  74577. DUK_HOBJECT_SET_CLASS_NUMBER(h, DUK_HOBJECT_CLASS_REGEXP);
  74578. DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, thr->builtins[DUK_BIDX_REGEXP_PROTOTYPE]);
  74579. duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_BYTECODE, DUK_PROPDESC_FLAGS_NONE);
  74580. /* [ ... regexp_object escaped_source ] */
  74581. /* In ES2015 .source, and the .global, .multiline, etc flags are
  74582. * inherited getters. Store the escaped source as an internal
  74583. * property for the getter.
  74584. */
  74585. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_SOURCE, DUK_PROPDESC_FLAGS_NONE);
  74586. /* [ ... regexp_object ] */
  74587. duk_push_int(thr, 0);
  74588. duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LAST_INDEX, DUK_PROPDESC_FLAGS_W);
  74589. /* [ ... regexp_object ] */
  74590. }
  74591. #else /* DUK_USE_REGEXP_SUPPORT */
  74592. /* regexp support disabled */
  74593. #endif /* DUK_USE_REGEXP_SUPPORT */
  74594. /* automatic undefs */
  74595. #undef DUK__RE_BUFLEN
  74596. #undef DUK__RE_INITIAL_BUFSIZE
  74597. #line 1 "duk_regexp_executor.c"
  74598. /*
  74599. * Regexp executor.
  74600. *
  74601. * Safety: the Ecmascript executor should prevent user from reading and
  74602. * replacing regexp bytecode. Even so, the executor must validate all
  74603. * memory accesses etc. When an invalid access is detected (e.g. a 'save'
  74604. * opcode to invalid, unallocated index) it should fail with an internal
  74605. * error but not cause a segmentation fault.
  74606. *
  74607. * Notes:
  74608. *
  74609. * - Backtrack counts are limited to unsigned 32 bits but should
  74610. * technically be duk_size_t for strings longer than 4G chars.
  74611. * This also requires a regexp bytecode change.
  74612. */
  74613. /* #include duk_internal.h -> already included */
  74614. #if defined(DUK_USE_REGEXP_SUPPORT)
  74615. /*
  74616. * Helpers for UTF-8 handling
  74617. *
  74618. * For bytecode readers the duk_uint32_t and duk_int32_t types are correct
  74619. * because they're used for more than just codepoints.
  74620. */
  74621. DUK_LOCAL duk_uint32_t duk__bc_get_u32(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **pc) {
  74622. return (duk_uint32_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, pc, re_ctx->bytecode, re_ctx->bytecode_end);
  74623. }
  74624. DUK_LOCAL duk_int32_t duk__bc_get_i32(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **pc) {
  74625. duk_uint32_t t;
  74626. /* signed integer encoding needed to work with UTF-8 */
  74627. t = (duk_uint32_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, pc, re_ctx->bytecode, re_ctx->bytecode_end);
  74628. if (t & 1) {
  74629. return -((duk_int32_t) (t >> 1));
  74630. } else {
  74631. return (duk_int32_t) (t >> 1);
  74632. }
  74633. }
  74634. DUK_LOCAL const duk_uint8_t *duk__utf8_backtrack(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_uint_fast32_t count) {
  74635. const duk_uint8_t *p;
  74636. /* Note: allow backtracking from p == ptr_end */
  74637. p = *ptr;
  74638. if (p < ptr_start || p > ptr_end) {
  74639. goto fail;
  74640. }
  74641. while (count > 0) {
  74642. for (;;) {
  74643. p--;
  74644. if (p < ptr_start) {
  74645. goto fail;
  74646. }
  74647. if ((*p & 0xc0) != 0x80) {
  74648. /* utf-8 continuation bytes have the form 10xx xxxx */
  74649. break;
  74650. }
  74651. }
  74652. count--;
  74653. }
  74654. *ptr = p;
  74655. return p;
  74656. fail:
  74657. DUK_ERROR_INTERNAL(thr);
  74658. return NULL; /* never here */
  74659. }
  74660. DUK_LOCAL const duk_uint8_t *duk__utf8_advance(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_uint_fast32_t count) {
  74661. const duk_uint8_t *p;
  74662. p = *ptr;
  74663. if (p < ptr_start || p >= ptr_end) {
  74664. goto fail;
  74665. }
  74666. while (count > 0) {
  74667. for (;;) {
  74668. p++;
  74669. /* Note: if encoding ends by hitting end of input, we don't check that
  74670. * the encoding is valid, we just assume it is.
  74671. */
  74672. if (p >= ptr_end || ((*p & 0xc0) != 0x80)) {
  74673. /* utf-8 continuation bytes have the form 10xx xxxx */
  74674. break;
  74675. }
  74676. }
  74677. count--;
  74678. }
  74679. *ptr = p;
  74680. return p;
  74681. fail:
  74682. DUK_ERROR_INTERNAL(thr);
  74683. return NULL; /* never here */
  74684. }
  74685. /*
  74686. * Helpers for dealing with the input string
  74687. */
  74688. /* Get a (possibly canonicalized) input character from current sp. The input
  74689. * itself is never modified, and captures always record non-canonicalized
  74690. * characters even in case-insensitive matching. Return <0 if out of input.
  74691. */
  74692. DUK_LOCAL duk_codepoint_t duk__inp_get_cp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **sp) {
  74693. duk_codepoint_t res;
  74694. if (*sp >= re_ctx->input_end) {
  74695. return -1;
  74696. }
  74697. res = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, sp, re_ctx->input, re_ctx->input_end);
  74698. if (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) {
  74699. res = duk_unicode_re_canonicalize_char(re_ctx->thr, res);
  74700. }
  74701. return res;
  74702. }
  74703. DUK_LOCAL const duk_uint8_t *duk__inp_backtrack(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **sp, duk_uint_fast32_t count) {
  74704. return duk__utf8_backtrack(re_ctx->thr, sp, re_ctx->input, re_ctx->input_end, count);
  74705. }
  74706. /* Backtrack utf-8 input and return a (possibly canonicalized) input character. */
  74707. DUK_LOCAL duk_codepoint_t duk__inp_get_prev_cp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t *sp) {
  74708. /* note: caller 'sp' is intentionally not updated here */
  74709. (void) duk__inp_backtrack(re_ctx, &sp, (duk_uint_fast32_t) 1);
  74710. return duk__inp_get_cp(re_ctx, &sp);
  74711. }
  74712. /*
  74713. * Regexp recursive matching function.
  74714. *
  74715. * Returns 'sp' on successful match (points to character after last matched one),
  74716. * NULL otherwise.
  74717. *
  74718. * The C recursion depth limit check is only performed in this function, this
  74719. * suffices because the function is present in all true recursion required by
  74720. * regexp execution.
  74721. */
  74722. DUK_LOCAL const duk_uint8_t *duk__match_regexp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t *pc, const duk_uint8_t *sp) {
  74723. if (re_ctx->recursion_depth >= re_ctx->recursion_limit) {
  74724. DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_EXECUTOR_RECURSION_LIMIT);
  74725. }
  74726. re_ctx->recursion_depth++;
  74727. for (;;) {
  74728. duk_small_int_t op;
  74729. if (re_ctx->steps_count >= re_ctx->steps_limit) {
  74730. DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_EXECUTOR_STEP_LIMIT);
  74731. }
  74732. re_ctx->steps_count++;
  74733. /* Opcodes are at most 7 bits now so they encode to one byte. If this
  74734. * were not the case or 'pc' is invalid here (due to a bug etc) we'll
  74735. * still fail safely through the switch default case.
  74736. */
  74737. DUK_ASSERT(pc[0] <= 0x7fU);
  74738. #if 0
  74739. op = (duk_small_int_t) duk__bc_get_u32(re_ctx, &pc);
  74740. #endif
  74741. op = *pc++;
  74742. DUK_DDD(DUK_DDDPRINT("match: rec=%ld, steps=%ld, pc (after op)=%ld, sp=%ld, op=%ld",
  74743. (long) re_ctx->recursion_depth,
  74744. (long) re_ctx->steps_count,
  74745. (long) (pc - re_ctx->bytecode),
  74746. (long) (sp - re_ctx->input),
  74747. (long) op));
  74748. switch (op) {
  74749. case DUK_REOP_MATCH: {
  74750. goto match;
  74751. }
  74752. case DUK_REOP_CHAR: {
  74753. /*
  74754. * Byte-based matching would be possible for case-sensitive
  74755. * matching but not for case-insensitive matching. So, we
  74756. * match by decoding the input and bytecode character normally.
  74757. *
  74758. * Bytecode characters are assumed to be already canonicalized.
  74759. * Input characters are canonicalized automatically by
  74760. * duk__inp_get_cp() if necessary.
  74761. *
  74762. * There is no opcode for matching multiple characters. The
  74763. * regexp compiler has trouble joining strings efficiently
  74764. * during compilation. See doc/regexp.rst for more discussion.
  74765. */
  74766. duk_codepoint_t c1, c2;
  74767. c1 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc);
  74768. DUK_ASSERT(!(re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) ||
  74769. c1 == duk_unicode_re_canonicalize_char(re_ctx->thr, c1)); /* canonicalized by compiler */
  74770. c2 = duk__inp_get_cp(re_ctx, &sp);
  74771. /* No need to check for c2 < 0 (end of input): because c1 >= 0, it
  74772. * will fail the match below automatically and cause goto fail.
  74773. */
  74774. #if 0
  74775. if (c2 < 0) {
  74776. goto fail;
  74777. }
  74778. #endif
  74779. DUK_ASSERT(c1 >= 0);
  74780. DUK_DDD(DUK_DDDPRINT("char match, c1=%ld, c2=%ld", (long) c1, (long) c2));
  74781. if (c1 != c2) {
  74782. goto fail;
  74783. }
  74784. break;
  74785. }
  74786. case DUK_REOP_PERIOD: {
  74787. duk_codepoint_t c;
  74788. c = duk__inp_get_cp(re_ctx, &sp);
  74789. if (c < 0 || duk_unicode_is_line_terminator(c)) {
  74790. /* E5 Sections 15.10.2.8, 7.3 */
  74791. goto fail;
  74792. }
  74793. break;
  74794. }
  74795. case DUK_REOP_RANGES:
  74796. case DUK_REOP_INVRANGES: {
  74797. duk_uint32_t n;
  74798. duk_codepoint_t c;
  74799. duk_small_int_t match;
  74800. n = duk__bc_get_u32(re_ctx, &pc);
  74801. c = duk__inp_get_cp(re_ctx, &sp);
  74802. if (c < 0) {
  74803. goto fail;
  74804. }
  74805. match = 0;
  74806. while (n) {
  74807. duk_codepoint_t r1, r2;
  74808. r1 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc);
  74809. r2 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc);
  74810. DUK_DDD(DUK_DDDPRINT("matching ranges/invranges, n=%ld, r1=%ld, r2=%ld, c=%ld",
  74811. (long) n, (long) r1, (long) r2, (long) c));
  74812. if (c >= r1 && c <= r2) {
  74813. /* Note: don't bail out early, we must read all the ranges from
  74814. * bytecode. Another option is to skip them efficiently after
  74815. * breaking out of here. Prefer smallest code.
  74816. */
  74817. match = 1;
  74818. }
  74819. n--;
  74820. }
  74821. if (op == DUK_REOP_RANGES) {
  74822. if (!match) {
  74823. goto fail;
  74824. }
  74825. } else {
  74826. DUK_ASSERT(op == DUK_REOP_INVRANGES);
  74827. if (match) {
  74828. goto fail;
  74829. }
  74830. }
  74831. break;
  74832. }
  74833. case DUK_REOP_ASSERT_START: {
  74834. duk_codepoint_t c;
  74835. if (sp <= re_ctx->input) {
  74836. break;
  74837. }
  74838. if (!(re_ctx->re_flags & DUK_RE_FLAG_MULTILINE)) {
  74839. goto fail;
  74840. }
  74841. c = duk__inp_get_prev_cp(re_ctx, sp);
  74842. if (duk_unicode_is_line_terminator(c)) {
  74843. /* E5 Sections 15.10.2.8, 7.3 */
  74844. break;
  74845. }
  74846. goto fail;
  74847. }
  74848. case DUK_REOP_ASSERT_END: {
  74849. duk_codepoint_t c;
  74850. const duk_uint8_t *tmp_sp;
  74851. tmp_sp = sp;
  74852. c = duk__inp_get_cp(re_ctx, &tmp_sp);
  74853. if (c < 0) {
  74854. break;
  74855. }
  74856. if (!(re_ctx->re_flags & DUK_RE_FLAG_MULTILINE)) {
  74857. goto fail;
  74858. }
  74859. if (duk_unicode_is_line_terminator(c)) {
  74860. /* E5 Sections 15.10.2.8, 7.3 */
  74861. break;
  74862. }
  74863. goto fail;
  74864. }
  74865. case DUK_REOP_ASSERT_WORD_BOUNDARY:
  74866. case DUK_REOP_ASSERT_NOT_WORD_BOUNDARY: {
  74867. /*
  74868. * E5 Section 15.10.2.6. The previous and current character
  74869. * should -not- be canonicalized as they are now. However,
  74870. * canonicalization does not affect the result of IsWordChar()
  74871. * (which depends on Unicode characters never canonicalizing
  74872. * into ASCII characters) so this does not matter.
  74873. */
  74874. duk_small_int_t w1, w2;
  74875. if (sp <= re_ctx->input) {
  74876. w1 = 0; /* not a wordchar */
  74877. } else {
  74878. duk_codepoint_t c;
  74879. c = duk__inp_get_prev_cp(re_ctx, sp);
  74880. w1 = duk_unicode_re_is_wordchar(c);
  74881. }
  74882. if (sp >= re_ctx->input_end) {
  74883. w2 = 0; /* not a wordchar */
  74884. } else {
  74885. const duk_uint8_t *tmp_sp = sp; /* dummy so sp won't get updated */
  74886. duk_codepoint_t c;
  74887. c = duk__inp_get_cp(re_ctx, &tmp_sp);
  74888. w2 = duk_unicode_re_is_wordchar(c);
  74889. }
  74890. if (op == DUK_REOP_ASSERT_WORD_BOUNDARY) {
  74891. if (w1 == w2) {
  74892. goto fail;
  74893. }
  74894. } else {
  74895. DUK_ASSERT(op == DUK_REOP_ASSERT_NOT_WORD_BOUNDARY);
  74896. if (w1 != w2) {
  74897. goto fail;
  74898. }
  74899. }
  74900. break;
  74901. }
  74902. case DUK_REOP_JUMP: {
  74903. duk_int32_t skip;
  74904. skip = duk__bc_get_i32(re_ctx, &pc);
  74905. pc += skip;
  74906. break;
  74907. }
  74908. case DUK_REOP_SPLIT1: {
  74909. /* split1: prefer direct execution (no jump) */
  74910. const duk_uint8_t *sub_sp;
  74911. duk_int32_t skip;
  74912. skip = duk__bc_get_i32(re_ctx, &pc);
  74913. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  74914. if (sub_sp) {
  74915. sp = sub_sp;
  74916. goto match;
  74917. }
  74918. pc += skip;
  74919. break;
  74920. }
  74921. case DUK_REOP_SPLIT2: {
  74922. /* split2: prefer jump execution (not direct) */
  74923. const duk_uint8_t *sub_sp;
  74924. duk_int32_t skip;
  74925. skip = duk__bc_get_i32(re_ctx, &pc);
  74926. sub_sp = duk__match_regexp(re_ctx, pc + skip, sp);
  74927. if (sub_sp) {
  74928. sp = sub_sp;
  74929. goto match;
  74930. }
  74931. break;
  74932. }
  74933. case DUK_REOP_SQMINIMAL: {
  74934. duk_uint32_t q, qmin, qmax;
  74935. duk_int32_t skip;
  74936. const duk_uint8_t *sub_sp;
  74937. qmin = duk__bc_get_u32(re_ctx, &pc);
  74938. qmax = duk__bc_get_u32(re_ctx, &pc);
  74939. skip = duk__bc_get_i32(re_ctx, &pc);
  74940. DUK_DDD(DUK_DDDPRINT("minimal quantifier, qmin=%lu, qmax=%lu, skip=%ld",
  74941. (unsigned long) qmin, (unsigned long) qmax, (long) skip));
  74942. q = 0;
  74943. while (q <= qmax) {
  74944. if (q >= qmin) {
  74945. sub_sp = duk__match_regexp(re_ctx, pc + skip, sp);
  74946. if (sub_sp) {
  74947. sp = sub_sp;
  74948. goto match;
  74949. }
  74950. }
  74951. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  74952. if (!sub_sp) {
  74953. break;
  74954. }
  74955. sp = sub_sp;
  74956. q++;
  74957. }
  74958. goto fail;
  74959. }
  74960. case DUK_REOP_SQGREEDY: {
  74961. duk_uint32_t q, qmin, qmax, atomlen;
  74962. duk_int32_t skip;
  74963. const duk_uint8_t *sub_sp;
  74964. qmin = duk__bc_get_u32(re_ctx, &pc);
  74965. qmax = duk__bc_get_u32(re_ctx, &pc);
  74966. atomlen = duk__bc_get_u32(re_ctx, &pc);
  74967. skip = duk__bc_get_i32(re_ctx, &pc);
  74968. DUK_DDD(DUK_DDDPRINT("greedy quantifier, qmin=%lu, qmax=%lu, atomlen=%lu, skip=%ld",
  74969. (unsigned long) qmin, (unsigned long) qmax, (unsigned long) atomlen, (long) skip));
  74970. q = 0;
  74971. while (q < qmax) {
  74972. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  74973. if (!sub_sp) {
  74974. break;
  74975. }
  74976. sp = sub_sp;
  74977. q++;
  74978. }
  74979. while (q >= qmin) {
  74980. sub_sp = duk__match_regexp(re_ctx, pc + skip, sp);
  74981. if (sub_sp) {
  74982. sp = sub_sp;
  74983. goto match;
  74984. }
  74985. if (q == qmin) {
  74986. break;
  74987. }
  74988. /* Note: if atom were to contain e.g. captures, we would need to
  74989. * re-match the atom to get correct captures. Simply quantifiers
  74990. * do not allow captures in their atom now, so this is not an issue.
  74991. */
  74992. DUK_DDD(DUK_DDDPRINT("greedy quantifier, backtrack %ld characters (atomlen)",
  74993. (long) atomlen));
  74994. sp = duk__inp_backtrack(re_ctx, &sp, (duk_uint_fast32_t) atomlen);
  74995. q--;
  74996. }
  74997. goto fail;
  74998. }
  74999. case DUK_REOP_SAVE: {
  75000. duk_uint32_t idx;
  75001. const duk_uint8_t *old;
  75002. const duk_uint8_t *sub_sp;
  75003. idx = duk__bc_get_u32(re_ctx, &pc);
  75004. if (idx >= re_ctx->nsaved) {
  75005. /* idx is unsigned, < 0 check is not necessary */
  75006. DUK_D(DUK_DPRINT("internal error, regexp save index insane: idx=%ld", (long) idx));
  75007. goto internal_error;
  75008. }
  75009. old = re_ctx->saved[idx];
  75010. re_ctx->saved[idx] = sp;
  75011. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  75012. if (sub_sp) {
  75013. sp = sub_sp;
  75014. goto match;
  75015. }
  75016. re_ctx->saved[idx] = old;
  75017. goto fail;
  75018. }
  75019. case DUK_REOP_WIPERANGE: {
  75020. /* Wipe capture range and save old values for backtracking.
  75021. *
  75022. * XXX: this typically happens with a relatively small idx_count.
  75023. * It might be useful to handle cases where the count is small
  75024. * (say <= 8) by saving the values in stack instead. This would
  75025. * reduce memory churn and improve performance, at the cost of a
  75026. * slightly higher code footprint.
  75027. */
  75028. duk_uint32_t idx_start, idx_count;
  75029. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  75030. duk_uint32_t idx_end, idx;
  75031. #endif
  75032. duk_uint8_t **range_save;
  75033. const duk_uint8_t *sub_sp;
  75034. idx_start = duk__bc_get_u32(re_ctx, &pc);
  75035. idx_count = duk__bc_get_u32(re_ctx, &pc);
  75036. DUK_DDD(DUK_DDDPRINT("wipe saved range: start=%ld, count=%ld -> [%ld,%ld] (captures [%ld,%ld])",
  75037. (long) idx_start, (long) idx_count,
  75038. (long) idx_start, (long) (idx_start + idx_count - 1),
  75039. (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2)));
  75040. if (idx_start + idx_count > re_ctx->nsaved || idx_count == 0) {
  75041. /* idx is unsigned, < 0 check is not necessary */
  75042. DUK_D(DUK_DPRINT("internal error, regexp wipe indices insane: idx_start=%ld, idx_count=%ld",
  75043. (long) idx_start, (long) idx_count));
  75044. goto internal_error;
  75045. }
  75046. DUK_ASSERT(idx_count > 0);
  75047. duk_require_stack(re_ctx->thr, 1);
  75048. range_save = (duk_uint8_t **) duk_push_fixed_buffer_nozero(re_ctx->thr,
  75049. sizeof(duk_uint8_t *) * idx_count);
  75050. DUK_ASSERT(range_save != NULL);
  75051. DUK_MEMCPY(range_save, re_ctx->saved + idx_start, sizeof(duk_uint8_t *) * idx_count);
  75052. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  75053. idx_end = idx_start + idx_count;
  75054. for (idx = idx_start; idx < idx_end; idx++) {
  75055. re_ctx->saved[idx] = NULL;
  75056. }
  75057. #else
  75058. DUK_MEMZERO((void *) (re_ctx->saved + idx_start), sizeof(duk_uint8_t *) * idx_count);
  75059. #endif
  75060. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  75061. if (sub_sp) {
  75062. /* match: keep wiped/resaved values */
  75063. DUK_DDD(DUK_DDDPRINT("match: keep wiped/resaved values [%ld,%ld] (captures [%ld,%ld])",
  75064. (long) idx_start, (long) (idx_start + idx_count - 1),
  75065. (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2)));
  75066. duk_pop_unsafe(re_ctx->thr);
  75067. sp = sub_sp;
  75068. goto match;
  75069. }
  75070. /* fail: restore saves */
  75071. DUK_DDD(DUK_DDDPRINT("fail: restore wiped/resaved values [%ld,%ld] (captures [%ld,%ld])",
  75072. (long) idx_start, (long) (idx_start + idx_count - 1),
  75073. (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2)));
  75074. DUK_MEMCPY((void *) (re_ctx->saved + idx_start),
  75075. (const void *) range_save,
  75076. sizeof(duk_uint8_t *) * idx_count);
  75077. duk_pop_unsafe(re_ctx->thr);
  75078. goto fail;
  75079. }
  75080. case DUK_REOP_LOOKPOS:
  75081. case DUK_REOP_LOOKNEG: {
  75082. /*
  75083. * Needs a save of multiple saved[] entries depending on what range
  75084. * may be overwritten. Because the regexp parser does no such analysis,
  75085. * we currently save the entire saved array here. Lookaheads are thus
  75086. * a bit expensive. Note that the saved array is not needed for just
  75087. * the lookahead sub-match, but for the matching of the entire sequel.
  75088. *
  75089. * The temporary save buffer is pushed on to the valstack to handle
  75090. * errors correctly. Each lookahead causes a C recursion and pushes
  75091. * more stuff on the value stack. If the C recursion limit is less
  75092. * than the value stack slack, there is no need to check the stack.
  75093. * We do so regardless, just in case.
  75094. */
  75095. duk_int32_t skip;
  75096. duk_uint8_t **full_save;
  75097. const duk_uint8_t *sub_sp;
  75098. DUK_ASSERT(re_ctx->nsaved > 0);
  75099. duk_require_stack(re_ctx->thr, 1);
  75100. full_save = (duk_uint8_t **) duk_push_fixed_buffer_nozero(re_ctx->thr,
  75101. sizeof(duk_uint8_t *) * re_ctx->nsaved);
  75102. DUK_ASSERT(full_save != NULL);
  75103. DUK_MEMCPY(full_save, re_ctx->saved, sizeof(duk_uint8_t *) * re_ctx->nsaved);
  75104. skip = duk__bc_get_i32(re_ctx, &pc);
  75105. sub_sp = duk__match_regexp(re_ctx, pc, sp);
  75106. if (op == DUK_REOP_LOOKPOS) {
  75107. if (!sub_sp) {
  75108. goto lookahead_fail;
  75109. }
  75110. } else {
  75111. if (sub_sp) {
  75112. goto lookahead_fail;
  75113. }
  75114. }
  75115. sub_sp = duk__match_regexp(re_ctx, pc + skip, sp);
  75116. if (sub_sp) {
  75117. /* match: keep saves */
  75118. duk_pop_unsafe(re_ctx->thr);
  75119. sp = sub_sp;
  75120. goto match;
  75121. }
  75122. /* fall through */
  75123. lookahead_fail:
  75124. /* fail: restore saves */
  75125. DUK_MEMCPY((void *) re_ctx->saved,
  75126. (const void *) full_save,
  75127. sizeof(duk_uint8_t *) * re_ctx->nsaved);
  75128. duk_pop_unsafe(re_ctx->thr);
  75129. goto fail;
  75130. }
  75131. case DUK_REOP_BACKREFERENCE: {
  75132. /*
  75133. * Byte matching for back-references would be OK in case-
  75134. * sensitive matching. In case-insensitive matching we need
  75135. * to canonicalize characters, so back-reference matching needs
  75136. * to be done with codepoints instead. So, we just decode
  75137. * everything normally here, too.
  75138. *
  75139. * Note: back-reference index which is 0 or higher than
  75140. * NCapturingParens (= number of capturing parens in the
  75141. * -entire- regexp) is a compile time error. However, a
  75142. * backreference referring to a valid capture which has
  75143. * not matched anything always succeeds! See E5 Section
  75144. * 15.10.2.9, step 5, sub-step 3.
  75145. */
  75146. duk_uint32_t idx;
  75147. const duk_uint8_t *p;
  75148. idx = duk__bc_get_u32(re_ctx, &pc);
  75149. idx = idx << 1; /* backref n -> saved indices [n*2, n*2+1] */
  75150. if (idx < 2 || idx + 1 >= re_ctx->nsaved) {
  75151. /* regexp compiler should catch these */
  75152. DUK_D(DUK_DPRINT("internal error, backreference index insane"));
  75153. goto internal_error;
  75154. }
  75155. if (!re_ctx->saved[idx] || !re_ctx->saved[idx+1]) {
  75156. /* capture is 'undefined', always matches! */
  75157. DUK_DDD(DUK_DDDPRINT("backreference: saved[%ld,%ld] not complete, always match",
  75158. (long) idx, (long) (idx + 1)));
  75159. break;
  75160. }
  75161. DUK_DDD(DUK_DDDPRINT("backreference: match saved[%ld,%ld]", (long) idx, (long) (idx + 1)));
  75162. p = re_ctx->saved[idx];
  75163. while (p < re_ctx->saved[idx+1]) {
  75164. duk_codepoint_t c1, c2;
  75165. /* Note: not necessary to check p against re_ctx->input_end:
  75166. * the memory access is checked by duk__inp_get_cp(), while
  75167. * valid compiled regexps cannot write a saved[] entry
  75168. * which points to outside the string.
  75169. */
  75170. c1 = duk__inp_get_cp(re_ctx, &p);
  75171. DUK_ASSERT(c1 >= 0);
  75172. c2 = duk__inp_get_cp(re_ctx, &sp);
  75173. /* No need for an explicit c2 < 0 check: because c1 >= 0,
  75174. * the comparison will always fail if c2 < 0.
  75175. */
  75176. #if 0
  75177. if (c2 < 0) {
  75178. goto fail;
  75179. }
  75180. #endif
  75181. if (c1 != c2) {
  75182. goto fail;
  75183. }
  75184. }
  75185. break;
  75186. }
  75187. default: {
  75188. DUK_D(DUK_DPRINT("internal error, regexp opcode error: %ld", (long) op));
  75189. goto internal_error;
  75190. }
  75191. }
  75192. }
  75193. match:
  75194. re_ctx->recursion_depth--;
  75195. return sp;
  75196. fail:
  75197. re_ctx->recursion_depth--;
  75198. return NULL;
  75199. internal_error:
  75200. DUK_ERROR_INTERNAL(re_ctx->thr);
  75201. return NULL; /* never here */
  75202. }
  75203. /*
  75204. * Exposed matcher function which provides the semantics of RegExp.prototype.exec().
  75205. *
  75206. * RegExp.prototype.test() has the same semantics as exec() but does not return the
  75207. * result object (which contains the matching string and capture groups). Currently
  75208. * there is no separate test() helper, so a temporary result object is created and
  75209. * discarded if test() is needed. This is intentional, to save code space.
  75210. *
  75211. * Input stack: [ ... re_obj input ]
  75212. * Output stack: [ ... result ]
  75213. */
  75214. DUK_LOCAL void duk__regexp_match_helper(duk_hthread *thr, duk_small_int_t force_global) {
  75215. duk_re_matcher_ctx re_ctx;
  75216. duk_hobject *h_regexp;
  75217. duk_hstring *h_bytecode;
  75218. duk_hstring *h_input;
  75219. duk_uint8_t *p_buf;
  75220. const duk_uint8_t *pc;
  75221. const duk_uint8_t *sp;
  75222. duk_small_int_t match = 0;
  75223. duk_small_int_t global;
  75224. duk_uint_fast32_t i;
  75225. double d;
  75226. duk_uint32_t char_offset;
  75227. DUK_ASSERT(thr != NULL);
  75228. DUK_DD(DUK_DDPRINT("regexp match: regexp=%!T, input=%!T",
  75229. (duk_tval *) duk_get_tval(thr, -2),
  75230. (duk_tval *) duk_get_tval(thr, -1)));
  75231. /*
  75232. * Regexp instance check, bytecode check, input coercion.
  75233. *
  75234. * See E5 Section 15.10.6.
  75235. */
  75236. /* TypeError if wrong; class check, see E5 Section 15.10.6 */
  75237. h_regexp = duk_require_hobject_with_class(thr, -2, DUK_HOBJECT_CLASS_REGEXP);
  75238. DUK_ASSERT(h_regexp != NULL);
  75239. DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_regexp) == DUK_HOBJECT_CLASS_REGEXP);
  75240. DUK_UNREF(h_regexp);
  75241. h_input = duk_to_hstring(thr, -1);
  75242. DUK_ASSERT(h_input != NULL);
  75243. duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_INT_BYTECODE); /* [ ... re_obj input ] -> [ ... re_obj input bc ] */
  75244. h_bytecode = duk_require_hstring(thr, -1); /* no regexp instance should exist without a non-configurable bytecode property */
  75245. DUK_ASSERT(h_bytecode != NULL);
  75246. /*
  75247. * Basic context initialization.
  75248. *
  75249. * Some init values are read from the bytecode header
  75250. * whose format is (UTF-8 codepoints):
  75251. *
  75252. * uint flags
  75253. * uint nsaved (even, 2n+2 where n = num captures)
  75254. */
  75255. /* [ ... re_obj input bc ] */
  75256. DUK_MEMZERO(&re_ctx, sizeof(re_ctx));
  75257. re_ctx.thr = thr;
  75258. re_ctx.input = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input);
  75259. re_ctx.input_end = re_ctx.input + DUK_HSTRING_GET_BYTELEN(h_input);
  75260. re_ctx.bytecode = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_bytecode);
  75261. re_ctx.bytecode_end = re_ctx.bytecode + DUK_HSTRING_GET_BYTELEN(h_bytecode);
  75262. re_ctx.saved = NULL;
  75263. re_ctx.recursion_limit = DUK_USE_REGEXP_EXECUTOR_RECLIMIT;
  75264. re_ctx.steps_limit = DUK_RE_EXECUTE_STEPS_LIMIT;
  75265. /* read header */
  75266. pc = re_ctx.bytecode;
  75267. re_ctx.re_flags = duk__bc_get_u32(&re_ctx, &pc);
  75268. re_ctx.nsaved = duk__bc_get_u32(&re_ctx, &pc);
  75269. re_ctx.bytecode = pc;
  75270. DUK_ASSERT(DUK_RE_FLAG_GLOBAL < 0x10000UL); /* must fit into duk_small_int_t */
  75271. global = (duk_small_int_t) (force_global | (duk_small_int_t) (re_ctx.re_flags & DUK_RE_FLAG_GLOBAL));
  75272. DUK_ASSERT(re_ctx.nsaved >= 2);
  75273. DUK_ASSERT((re_ctx.nsaved % 2) == 0);
  75274. p_buf = (duk_uint8_t *) duk_push_fixed_buffer(thr, sizeof(duk_uint8_t *) * re_ctx.nsaved); /* rely on zeroing */
  75275. DUK_UNREF(p_buf);
  75276. re_ctx.saved = (const duk_uint8_t **) duk_get_buffer(thr, -1, NULL);
  75277. DUK_ASSERT(re_ctx.saved != NULL);
  75278. /* [ ... re_obj input bc saved_buf ] */
  75279. #if defined(DUK_USE_EXPLICIT_NULL_INIT)
  75280. for (i = 0; i < re_ctx.nsaved; i++) {
  75281. re_ctx.saved[i] = (duk_uint8_t *) NULL;
  75282. }
  75283. #elif defined(DUK_USE_ZERO_BUFFER_DATA)
  75284. /* buffer is automatically zeroed */
  75285. #else
  75286. DUK_MEMZERO((void *) p_buf, sizeof(duk_uint8_t *) * re_ctx.nsaved);
  75287. #endif
  75288. DUK_DDD(DUK_DDDPRINT("regexp ctx initialized, flags=0x%08lx, nsaved=%ld, recursion_limit=%ld, steps_limit=%ld",
  75289. (unsigned long) re_ctx.re_flags, (long) re_ctx.nsaved, (long) re_ctx.recursion_limit,
  75290. (long) re_ctx.steps_limit));
  75291. /*
  75292. * Get starting character offset for match, and initialize 'sp' based on it.
  75293. *
  75294. * Note: lastIndex is non-configurable so it must be present (we check the
  75295. * internal class of the object above, so we know it is). User code can set
  75296. * its value to an arbitrary (garbage) value though; E5 requires that lastIndex
  75297. * be coerced to a number before using. The code below works even if the
  75298. * property is missing: the value will then be coerced to zero.
  75299. *
  75300. * Note: lastIndex may be outside Uint32 range even after ToInteger() coercion.
  75301. * For instance, ToInteger(+Infinity) = +Infinity. We track the match offset
  75302. * as an integer, but pre-check it to be inside the 32-bit range before the loop.
  75303. * If not, the check in E5 Section 15.10.6.2, step 9.a applies.
  75304. */
  75305. /* XXX: lastIndex handling produces a lot of asm */
  75306. /* [ ... re_obj input bc saved_buf ] */
  75307. duk_get_prop_stridx_short(thr, -4, DUK_STRIDX_LAST_INDEX); /* -> [ ... re_obj input bc saved_buf lastIndex ] */
  75308. (void) duk_to_int(thr, -1); /* ToInteger(lastIndex) */
  75309. d = duk_get_number(thr, -1); /* integer, but may be +/- Infinite, +/- zero (not NaN, though) */
  75310. duk_pop_nodecref_unsafe(thr);
  75311. if (global) {
  75312. if (d < 0.0 || d > (double) DUK_HSTRING_GET_CHARLEN(h_input)) {
  75313. /* match fail */
  75314. char_offset = 0; /* not really necessary */
  75315. DUK_ASSERT(match == 0);
  75316. goto match_over;
  75317. }
  75318. char_offset = (duk_uint32_t) d;
  75319. } else {
  75320. /* lastIndex must be ignored for non-global regexps, but get the
  75321. * value for (theoretical) side effects. No side effects can
  75322. * really occur, because lastIndex is a normal property and is
  75323. * always non-configurable for RegExp instances.
  75324. */
  75325. char_offset = (duk_uint32_t) 0;
  75326. }
  75327. DUK_ASSERT(char_offset <= DUK_HSTRING_GET_CHARLEN(h_input));
  75328. sp = re_ctx.input + duk_heap_strcache_offset_char2byte(thr, h_input, char_offset);
  75329. /*
  75330. * Match loop.
  75331. *
  75332. * Try matching at different offsets until match found or input exhausted.
  75333. */
  75334. /* [ ... re_obj input bc saved_buf ] */
  75335. DUK_ASSERT(match == 0);
  75336. for (;;) {
  75337. /* char offset in [0, h_input->clen] (both ends inclusive), checked before entry */
  75338. DUK_ASSERT_DISABLE(char_offset >= 0);
  75339. DUK_ASSERT(char_offset <= DUK_HSTRING_GET_CHARLEN(h_input));
  75340. /* Note: re_ctx.steps is intentionally not reset, it applies to the entire unanchored match */
  75341. DUK_ASSERT(re_ctx.recursion_depth == 0);
  75342. DUK_DDD(DUK_DDDPRINT("attempt match at char offset %ld; %p [%p,%p]",
  75343. (long) char_offset, (const void *) sp,
  75344. (const void *) re_ctx.input, (const void *) re_ctx.input_end));
  75345. /*
  75346. * Note:
  75347. *
  75348. * - duk__match_regexp() is required not to longjmp() in ordinary "non-match"
  75349. * conditions; a longjmp() will terminate the entire matching process.
  75350. *
  75351. * - Clearing saved[] is not necessary because backtracking does it
  75352. *
  75353. * - Backtracking also rewinds re_ctx.recursion back to zero, unless an
  75354. * internal/limit error occurs (which causes a longjmp())
  75355. *
  75356. * - If we supported anchored matches, we would break out here
  75357. * unconditionally; however, Ecmascript regexps don't have anchored
  75358. * matches. It might make sense to implement a fast bail-out if
  75359. * the regexp begins with '^' and sp is not 0: currently we'll just
  75360. * run through the entire input string, trivially failing the match
  75361. * at every non-zero offset.
  75362. */
  75363. if (duk__match_regexp(&re_ctx, re_ctx.bytecode, sp) != NULL) {
  75364. DUK_DDD(DUK_DDDPRINT("match at offset %ld", (long) char_offset));
  75365. match = 1;
  75366. break;
  75367. }
  75368. /* advance by one character (code point) and one char_offset */
  75369. char_offset++;
  75370. if (char_offset > DUK_HSTRING_GET_CHARLEN(h_input)) {
  75371. /*
  75372. * Note:
  75373. *
  75374. * - Intentionally attempt (empty) match at char_offset == k_input->clen
  75375. *
  75376. * - Negative char_offsets have been eliminated and char_offset is duk_uint32_t
  75377. * -> no need or use for a negative check
  75378. */
  75379. DUK_DDD(DUK_DDDPRINT("no match after trying all sp offsets"));
  75380. break;
  75381. }
  75382. /* avoid calling at end of input, will DUK_ERROR (above check suffices to avoid this) */
  75383. (void) duk__utf8_advance(thr, &sp, re_ctx.input, re_ctx.input_end, (duk_uint_fast32_t) 1);
  75384. }
  75385. match_over:
  75386. /*
  75387. * Matching complete, create result array or return a 'null'. Update lastIndex
  75388. * if necessary. See E5 Section 15.10.6.2.
  75389. *
  75390. * Because lastIndex is a character (not byte) offset, we need the character
  75391. * length of the match which we conveniently get as a side effect of interning
  75392. * the matching substring (0th index of result array).
  75393. *
  75394. * saved[0] start pointer (~ byte offset) of current match
  75395. * saved[1] end pointer (~ byte offset) of current match (exclusive)
  75396. * char_offset start character offset of current match (-> .index of result)
  75397. * char_end_offset end character offset (computed below)
  75398. */
  75399. /* [ ... re_obj input bc saved_buf ] */
  75400. if (match) {
  75401. #if defined(DUK_USE_ASSERTIONS)
  75402. duk_hobject *h_res;
  75403. #endif
  75404. duk_uint32_t char_end_offset = 0;
  75405. DUK_DDD(DUK_DDDPRINT("regexp matches at char_offset %ld", (long) char_offset));
  75406. DUK_ASSERT(re_ctx.nsaved >= 2); /* must have start and end */
  75407. DUK_ASSERT((re_ctx.nsaved % 2) == 0); /* and even number */
  75408. /* XXX: Array size is known before and (2 * re_ctx.nsaved) but not taken
  75409. * advantage of now. The array is not compacted either, as regexp match
  75410. * objects are usually short lived.
  75411. */
  75412. duk_push_array(thr);
  75413. #if defined(DUK_USE_ASSERTIONS)
  75414. h_res = duk_require_hobject(thr, -1);
  75415. DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h_res));
  75416. DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(h_res));
  75417. DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_res) == DUK_HOBJECT_CLASS_ARRAY);
  75418. #endif
  75419. /* [ ... re_obj input bc saved_buf res_obj ] */
  75420. duk_push_u32(thr, char_offset);
  75421. duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INDEX);
  75422. duk_dup_m4(thr);
  75423. duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INPUT);
  75424. for (i = 0; i < re_ctx.nsaved; i += 2) {
  75425. /* Captures which are undefined have NULL pointers and are returned
  75426. * as 'undefined'. The same is done when saved[] pointers are insane
  75427. * (this should, of course, never happen in practice).
  75428. */
  75429. if (re_ctx.saved[i] && re_ctx.saved[i + 1] && re_ctx.saved[i + 1] >= re_ctx.saved[i]) {
  75430. duk_push_lstring(thr,
  75431. (const char *) re_ctx.saved[i],
  75432. (duk_size_t) (re_ctx.saved[i+1] - re_ctx.saved[i]));
  75433. if (i == 0) {
  75434. /* Assumes that saved[0] and saved[1] are always
  75435. * set by regexp bytecode (if not, char_end_offset
  75436. * will be zero). Also assumes clen reflects the
  75437. * correct char length.
  75438. */
  75439. char_end_offset = char_offset + (duk_uint32_t) duk_get_length(thr, -1); /* add charlen */
  75440. }
  75441. } else {
  75442. duk_push_undefined(thr);
  75443. }
  75444. /* [ ... re_obj input bc saved_buf res_obj val ] */
  75445. duk_put_prop_index(thr, -2, (duk_uarridx_t) (i / 2));
  75446. }
  75447. /* [ ... re_obj input bc saved_buf res_obj ] */
  75448. /* NB: 'length' property is automatically updated by the array setup loop */
  75449. if (global) {
  75450. /* global regexp: lastIndex updated on match */
  75451. duk_push_u32(thr, char_end_offset);
  75452. duk_put_prop_stridx_short(thr, -6, DUK_STRIDX_LAST_INDEX);
  75453. } else {
  75454. /* non-global regexp: lastIndex never updated on match */
  75455. ;
  75456. }
  75457. } else {
  75458. /*
  75459. * No match, E5 Section 15.10.6.2, step 9.a.i - 9.a.ii apply, regardless
  75460. * of 'global' flag of the RegExp. In particular, if lastIndex is invalid
  75461. * initially, it is reset to zero.
  75462. */
  75463. DUK_DDD(DUK_DDDPRINT("regexp does not match"));
  75464. duk_push_null(thr);
  75465. /* [ ... re_obj input bc saved_buf res_obj ] */
  75466. duk_push_int(thr, 0);
  75467. duk_put_prop_stridx_short(thr, -6, DUK_STRIDX_LAST_INDEX);
  75468. }
  75469. /* [ ... re_obj input bc saved_buf res_obj ] */
  75470. duk_insert(thr, -5);
  75471. /* [ ... res_obj re_obj input bc saved_buf ] */
  75472. duk_pop_n_unsafe(thr, 4);
  75473. /* [ ... res_obj ] */
  75474. /* XXX: these last tricks are unnecessary if the function is made
  75475. * a genuine native function.
  75476. */
  75477. }
  75478. DUK_INTERNAL void duk_regexp_match(duk_hthread *thr) {
  75479. duk__regexp_match_helper(thr, 0 /*force_global*/);
  75480. }
  75481. /* This variant is needed by String.prototype.split(); it needs to perform
  75482. * global-style matching on a cloned RegExp which is potentially non-global.
  75483. */
  75484. DUK_INTERNAL void duk_regexp_match_force_global(duk_hthread *thr) {
  75485. duk__regexp_match_helper(thr, 1 /*force_global*/);
  75486. }
  75487. #else /* DUK_USE_REGEXP_SUPPORT */
  75488. /* regexp support disabled */
  75489. #endif /* DUK_USE_REGEXP_SUPPORT */
  75490. #line 1 "duk_selftest.c"
  75491. /*
  75492. * Self tests to ensure execution environment is sane. Intended to catch
  75493. * compiler/platform problems which cannot be detected at compile time.
  75494. */
  75495. /* #include duk_internal.h -> already included */
  75496. #if defined(DUK_USE_SELF_TESTS)
  75497. /*
  75498. * Unions and structs for self tests
  75499. */
  75500. typedef union {
  75501. double d;
  75502. duk_uint8_t x[8];
  75503. } duk__test_double_union;
  75504. /* Self test failed. Expects a local variable 'error_count' to exist. */
  75505. #define DUK__FAILED(msg) do { \
  75506. DUK_D(DUK_DPRINT("self test failed: " #msg " at " DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO))); \
  75507. error_count++; \
  75508. } while (0)
  75509. #define DUK__DBLUNION_CMP_TRUE(a,b) do { \
  75510. if (DUK_MEMCMP((const void *) (a), (const void *) (b), sizeof(duk__test_double_union)) != 0) { \
  75511. DUK__FAILED("double union compares false (expected true)"); \
  75512. } \
  75513. } while (0)
  75514. #define DUK__DBLUNION_CMP_FALSE(a,b) do { \
  75515. if (DUK_MEMCMP((const void *) (a), (const void *) (b), sizeof(duk__test_double_union)) == 0) { \
  75516. DUK__FAILED("double union compares true (expected false)"); \
  75517. } \
  75518. } while (0)
  75519. typedef union {
  75520. duk_uint32_t i;
  75521. duk_uint8_t x[8];
  75522. } duk__test_u32_union;
  75523. #if defined(DUK_USE_INTEGER_LE)
  75524. #define DUK__U32_INIT(u, a, b, c, d) do { \
  75525. (u)->x[0] = (d); (u)->x[1] = (c); (u)->x[2] = (b); (u)->x[3] = (a); \
  75526. } while (0)
  75527. #elif defined(DUK_USE_INTEGER_ME)
  75528. #error integer mixed endian not supported now
  75529. #elif defined(DUK_USE_INTEGER_BE)
  75530. #define DUK__U32_INIT(u, a, b, c, d) do { \
  75531. (u)->x[0] = (a); (u)->x[1] = (b); (u)->x[2] = (c); (u)->x[3] = (d); \
  75532. } while (0)
  75533. #else
  75534. #error unknown integer endianness
  75535. #endif
  75536. #if defined(DUK_USE_DOUBLE_LE)
  75537. #define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \
  75538. (u)->x[0] = (h); (u)->x[1] = (g); (u)->x[2] = (f); (u)->x[3] = (e); \
  75539. (u)->x[4] = (d); (u)->x[5] = (c); (u)->x[6] = (b); (u)->x[7] = (a); \
  75540. } while (0)
  75541. #define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \
  75542. ((u)->x[0] == (h) && (u)->x[1] == (g) && (u)->x[2] == (f) && (u)->x[3] == (e) && \
  75543. (u)->x[4] == (d) && (u)->x[5] == (c) && (u)->x[6] == (b) && (u)->x[7] == (a))
  75544. #elif defined(DUK_USE_DOUBLE_ME)
  75545. #define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \
  75546. (u)->x[0] = (d); (u)->x[1] = (c); (u)->x[2] = (b); (u)->x[3] = (a); \
  75547. (u)->x[4] = (h); (u)->x[5] = (g); (u)->x[6] = (f); (u)->x[7] = (e); \
  75548. } while (0)
  75549. #define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \
  75550. ((u)->x[0] == (d) && (u)->x[1] == (c) && (u)->x[2] == (b) && (u)->x[3] == (a) && \
  75551. (u)->x[4] == (h) && (u)->x[5] == (g) && (u)->x[6] == (f) && (u)->x[7] == (e))
  75552. #elif defined(DUK_USE_DOUBLE_BE)
  75553. #define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \
  75554. (u)->x[0] = (a); (u)->x[1] = (b); (u)->x[2] = (c); (u)->x[3] = (d); \
  75555. (u)->x[4] = (e); (u)->x[5] = (f); (u)->x[6] = (g); (u)->x[7] = (h); \
  75556. } while (0)
  75557. #define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \
  75558. ((u)->x[0] == (a) && (u)->x[1] == (b) && (u)->x[2] == (c) && (u)->x[3] == (d) && \
  75559. (u)->x[4] == (e) && (u)->x[5] == (f) && (u)->x[6] == (g) && (u)->x[7] == (h))
  75560. #else
  75561. #error unknown double endianness
  75562. #endif
  75563. /*
  75564. * Various sanity checks for typing
  75565. */
  75566. DUK_LOCAL duk_uint_t duk__selftest_types(void) {
  75567. duk_uint_t error_count = 0;
  75568. if (!(sizeof(duk_int8_t) == 1 &&
  75569. sizeof(duk_uint8_t) == 1 &&
  75570. sizeof(duk_int16_t) == 2 &&
  75571. sizeof(duk_uint16_t) == 2 &&
  75572. sizeof(duk_int32_t) == 4 &&
  75573. sizeof(duk_uint32_t) == 4)) {
  75574. DUK__FAILED("duk_(u)int{8,16,32}_t size");
  75575. }
  75576. #if defined(DUK_USE_64BIT_OPS)
  75577. if (!(sizeof(duk_int64_t) == 8 &&
  75578. sizeof(duk_uint64_t) == 8)) {
  75579. DUK__FAILED("duk_(u)int64_t size");
  75580. }
  75581. #endif
  75582. if (!(sizeof(duk_size_t) >= sizeof(duk_uint_t))) {
  75583. /* Some internal code now assumes that all duk_uint_t values
  75584. * can be expressed with a duk_size_t.
  75585. */
  75586. DUK__FAILED("duk_size_t is smaller than duk_uint_t");
  75587. }
  75588. if (!(sizeof(duk_int_t) >= 4)) {
  75589. DUK__FAILED("duk_int_t is not 32 bits");
  75590. }
  75591. return error_count;
  75592. }
  75593. /*
  75594. * Packed tval sanity
  75595. */
  75596. DUK_LOCAL duk_uint_t duk__selftest_packed_tval(void) {
  75597. duk_uint_t error_count = 0;
  75598. #if defined(DUK_USE_PACKED_TVAL)
  75599. if (sizeof(void *) > 4) {
  75600. DUK__FAILED("packed duk_tval in use but sizeof(void *) > 4");
  75601. }
  75602. #endif
  75603. return error_count;
  75604. }
  75605. /*
  75606. * Two's complement arithmetic.
  75607. */
  75608. DUK_LOCAL duk_uint_t duk__selftest_twos_complement(void) {
  75609. duk_uint_t error_count = 0;
  75610. volatile int test;
  75611. test = -1;
  75612. /* Note that byte order doesn't affect this test: all bytes in
  75613. * 'test' will be 0xFF for two's complement.
  75614. */
  75615. if (((volatile duk_uint8_t *) &test)[0] != (duk_uint8_t) 0xff) {
  75616. DUK__FAILED("two's complement arithmetic");
  75617. }
  75618. return error_count;
  75619. }
  75620. /*
  75621. * Byte order. Important to self check, because on some exotic platforms
  75622. * there is no actual detection but rather assumption based on platform
  75623. * defines.
  75624. */
  75625. DUK_LOCAL duk_uint_t duk__selftest_byte_order(void) {
  75626. duk_uint_t error_count = 0;
  75627. duk__test_u32_union u1;
  75628. duk__test_double_union u2;
  75629. /*
  75630. * >>> struct.pack('>d', 102030405060).encode('hex')
  75631. * '4237c17c6dc40000'
  75632. */
  75633. DUK__U32_INIT(&u1, 0xde, 0xad, 0xbe, 0xef);
  75634. DUK__DOUBLE_INIT(&u2, 0x42, 0x37, 0xc1, 0x7c, 0x6d, 0xc4, 0x00, 0x00);
  75635. if (u1.i != (duk_uint32_t) 0xdeadbeefUL) {
  75636. DUK__FAILED("duk_uint32_t byte order");
  75637. }
  75638. if (u2.d != (double) 102030405060.0) {
  75639. DUK__FAILED("double byte order");
  75640. }
  75641. return error_count;
  75642. }
  75643. /*
  75644. * DUK_BSWAP macros
  75645. */
  75646. DUK_LOCAL duk_uint_t duk__selftest_bswap_macros(void) {
  75647. duk_uint_t error_count = 0;
  75648. duk_uint32_t x32;
  75649. duk_uint16_t x16;
  75650. duk_double_union du;
  75651. duk_double_t du_diff;
  75652. x16 = 0xbeefUL;
  75653. x16 = DUK_BSWAP16(x16);
  75654. if (x16 != (duk_uint16_t) 0xefbeUL) {
  75655. DUK__FAILED("DUK_BSWAP16");
  75656. }
  75657. x32 = 0xdeadbeefUL;
  75658. x32 = DUK_BSWAP32(x32);
  75659. if (x32 != (duk_uint32_t) 0xefbeaddeUL) {
  75660. DUK__FAILED("DUK_BSWAP32");
  75661. }
  75662. /* >>> struct.unpack('>d', '4000112233445566'.decode('hex'))
  75663. * (2.008366013071895,)
  75664. */
  75665. du.uc[0] = 0x40; du.uc[1] = 0x00; du.uc[2] = 0x11; du.uc[3] = 0x22;
  75666. du.uc[4] = 0x33; du.uc[5] = 0x44; du.uc[6] = 0x55; du.uc[7] = 0x66;
  75667. DUK_DBLUNION_DOUBLE_NTOH(&du);
  75668. du_diff = du.d - 2.008366013071895;
  75669. #if 0
  75670. DUK_D(DUK_DPRINT("du_diff: %lg\n", (double) du_diff));
  75671. #endif
  75672. if (du_diff > 1e-15) {
  75673. /* Allow very small lenience because some compilers won't parse
  75674. * exact IEEE double constants (happened in matrix testing with
  75675. * Linux gcc-4.8 -m32 at least).
  75676. */
  75677. #if 0
  75678. DUK_D(DUK_DPRINT("Result of DUK_DBLUNION_DOUBLE_NTOH: %02x %02x %02x %02x %02x %02x %02x %02x\n",
  75679. (unsigned int) du.uc[0], (unsigned int) du.uc[1],
  75680. (unsigned int) du.uc[2], (unsigned int) du.uc[3],
  75681. (unsigned int) du.uc[4], (unsigned int) du.uc[5],
  75682. (unsigned int) du.uc[6], (unsigned int) du.uc[7]));
  75683. #endif
  75684. DUK__FAILED("DUK_DBLUNION_DOUBLE_NTOH");
  75685. }
  75686. return error_count;
  75687. }
  75688. /*
  75689. * Basic double / byte union memory layout.
  75690. */
  75691. DUK_LOCAL duk_uint_t duk__selftest_double_union_size(void) {
  75692. duk_uint_t error_count = 0;
  75693. if (sizeof(duk__test_double_union) != 8) {
  75694. DUK__FAILED("invalid union size");
  75695. }
  75696. return error_count;
  75697. }
  75698. /*
  75699. * Union aliasing, see misc/clang_aliasing.c.
  75700. */
  75701. DUK_LOCAL duk_uint_t duk__selftest_double_aliasing(void) {
  75702. /* This testcase fails when Emscripten-generated code runs on Firefox.
  75703. * It's not an issue because the failure should only affect packed
  75704. * duk_tval representation, which is not used with Emscripten.
  75705. */
  75706. #if defined(DUK_USE_PACKED_TVAL)
  75707. duk_uint_t error_count = 0;
  75708. duk__test_double_union a, b;
  75709. /* Test signaling NaN and alias assignment in all endianness combinations.
  75710. */
  75711. /* little endian */
  75712. a.x[0] = 0x11; a.x[1] = 0x22; a.x[2] = 0x33; a.x[3] = 0x44;
  75713. a.x[4] = 0x00; a.x[5] = 0x00; a.x[6] = 0xf1; a.x[7] = 0xff;
  75714. b = a;
  75715. DUK__DBLUNION_CMP_TRUE(&a, &b);
  75716. /* big endian */
  75717. a.x[0] = 0xff; a.x[1] = 0xf1; a.x[2] = 0x00; a.x[3] = 0x00;
  75718. a.x[4] = 0x44; a.x[5] = 0x33; a.x[6] = 0x22; a.x[7] = 0x11;
  75719. b = a;
  75720. DUK__DBLUNION_CMP_TRUE(&a, &b);
  75721. /* mixed endian */
  75722. a.x[0] = 0x00; a.x[1] = 0x00; a.x[2] = 0xf1; a.x[3] = 0xff;
  75723. a.x[4] = 0x11; a.x[5] = 0x22; a.x[6] = 0x33; a.x[7] = 0x44;
  75724. b = a;
  75725. DUK__DBLUNION_CMP_TRUE(&a, &b);
  75726. return error_count;
  75727. #else
  75728. DUK_D(DUK_DPRINT("skip double aliasing self test when duk_tval is not packed"));
  75729. return 0;
  75730. #endif
  75731. }
  75732. /*
  75733. * Zero sign, see misc/tcc_zerosign2.c.
  75734. */
  75735. DUK_LOCAL duk_uint_t duk__selftest_double_zero_sign(void) {
  75736. duk_uint_t error_count = 0;
  75737. duk__test_double_union a, b;
  75738. a.d = 0.0;
  75739. b.d = -a.d;
  75740. DUK__DBLUNION_CMP_FALSE(&a, &b);
  75741. return error_count;
  75742. }
  75743. /*
  75744. * Rounding mode: Duktape assumes round-to-nearest, check that this is true.
  75745. * If we had C99 fenv.h we could check that fegetround() == FE_TONEAREST,
  75746. * but we don't want to rely on that header; and even if we did, it's good
  75747. * to ensure the rounding actually works.
  75748. */
  75749. DUK_LOCAL duk_uint_t duk__selftest_double_rounding(void) {
  75750. duk_uint_t error_count = 0;
  75751. duk__test_double_union a, b, c;
  75752. #if 0
  75753. /* Include <fenv.h> and test manually; these trigger failures: */
  75754. fesetround(FE_UPWARD);
  75755. fesetround(FE_DOWNWARD);
  75756. fesetround(FE_TOWARDZERO);
  75757. /* This is the default and passes. */
  75758. fesetround(FE_TONEAREST);
  75759. #endif
  75760. /* Rounding tests check that none of the other modes (round to
  75761. * +Inf, round to -Inf, round to zero) can be active:
  75762. * http://www.gnu.org/software/libc/manual/html_node/Rounding.html
  75763. */
  75764. /* 1.0 + 2^(-53): result is midway between 1.0 and 1.0 + ulp.
  75765. * Round to nearest: 1.0
  75766. * Round to +Inf: 1.0 + ulp
  75767. * Round to -Inf: 1.0
  75768. * Round to zero: 1.0
  75769. * => Correct result eliminates round to +Inf.
  75770. */
  75771. DUK__DOUBLE_INIT(&a, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
  75772. DUK__DOUBLE_INIT(&b, 0x3c, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
  75773. DUK_MEMSET((void *) &c, 0, sizeof(c));
  75774. c.d = a.d + b.d;
  75775. if (!DUK__DOUBLE_COMPARE(&c, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)) {
  75776. DUK_D(DUK_DPRINT("broken result (native endiannesss): %02x %02x %02x %02x %02x %02x %02x %02x",
  75777. (unsigned int) c.x[0], (unsigned int) c.x[1],
  75778. (unsigned int) c.x[2], (unsigned int) c.x[3],
  75779. (unsigned int) c.x[4], (unsigned int) c.x[5],
  75780. (unsigned int) c.x[6], (unsigned int) c.x[7]));
  75781. DUK__FAILED("invalid result from 1.0 + 0.5ulp");
  75782. }
  75783. /* (1.0 + ulp) + 2^(-53): result is midway between 1.0 + ulp and 1.0 + 2*ulp.
  75784. * Round to nearest: 1.0 + 2*ulp (round to even mantissa)
  75785. * Round to +Inf: 1.0 + 2*ulp
  75786. * Round to -Inf: 1.0 + ulp
  75787. * Round to zero: 1.0 + ulp
  75788. * => Correct result eliminates round to -Inf and round to zero.
  75789. */
  75790. DUK__DOUBLE_INIT(&a, 0x3f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01);
  75791. DUK__DOUBLE_INIT(&b, 0x3c, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
  75792. DUK_MEMSET((void *) &c, 0, sizeof(c));
  75793. c.d = a.d + b.d;
  75794. if (!DUK__DOUBLE_COMPARE(&c, 0x3f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02)) {
  75795. DUK_D(DUK_DPRINT("broken result (native endiannesss): %02x %02x %02x %02x %02x %02x %02x %02x",
  75796. (unsigned int) c.x[0], (unsigned int) c.x[1],
  75797. (unsigned int) c.x[2], (unsigned int) c.x[3],
  75798. (unsigned int) c.x[4], (unsigned int) c.x[5],
  75799. (unsigned int) c.x[6], (unsigned int) c.x[7]));
  75800. DUK__FAILED("invalid result from (1.0 + ulp) + 0.5ulp");
  75801. }
  75802. /* Could do negative number testing too, but the tests above should
  75803. * differentiate between IEEE 754 rounding modes.
  75804. */
  75805. return error_count;
  75806. }
  75807. /*
  75808. * fmod(): often a portability issue in embedded or bare platform targets.
  75809. * Check for at least minimally correct behavior. Unlike some other math
  75810. * functions (like cos()) Duktape relies on fmod() internally too.
  75811. */
  75812. DUK_LOCAL duk_uint_t duk__selftest_fmod(void) {
  75813. duk_uint_t error_count = 0;
  75814. duk__test_double_union u1, u2;
  75815. volatile duk_double_t t1, t2, t3;
  75816. /* fmod() with integer argument and exponent 2^32 is used by e.g.
  75817. * ToUint32() and some Duktape internals.
  75818. */
  75819. u1.d = DUK_FMOD(10.0, 4294967296.0);
  75820. u2.d = 10.0;
  75821. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75822. u1.d = DUK_FMOD(4294967306.0, 4294967296.0);
  75823. u2.d = 10.0;
  75824. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75825. u1.d = DUK_FMOD(73014444042.0, 4294967296.0);
  75826. u2.d = 10.0;
  75827. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75828. /* 52-bit integer split into two parts:
  75829. * >>> 0x1fedcba9876543
  75830. * 8987183256397123
  75831. * >>> float(0x1fedcba9876543) / float(2**53)
  75832. * 0.9977777777777778
  75833. */
  75834. u1.d = DUK_FMOD(8987183256397123.0, 4294967296.0);
  75835. u2.d = (duk_double_t) 0xa9876543UL;
  75836. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75837. t1 = 8987183256397123.0;
  75838. t2 = 4294967296.0;
  75839. t3 = t1 / t2;
  75840. u1.d = DUK_FLOOR(t3);
  75841. u2.d = (duk_double_t) 0x1fedcbUL;
  75842. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75843. /* C99 behavior is for fmod() result sign to mathc argument sign. */
  75844. u1.d = DUK_FMOD(-10.0, 4294967296.0);
  75845. u2.d = -10.0;
  75846. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75847. u1.d = DUK_FMOD(-4294967306.0, 4294967296.0);
  75848. u2.d = -10.0;
  75849. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75850. u1.d = DUK_FMOD(-73014444042.0, 4294967296.0);
  75851. u2.d = -10.0;
  75852. DUK__DBLUNION_CMP_TRUE(&u1, &u2);
  75853. return error_count;
  75854. }
  75855. /*
  75856. * Struct size/alignment if platform requires it
  75857. *
  75858. * There are some compiler specific struct padding pragmas etc in use, this
  75859. * selftest ensures they're correctly detected and used.
  75860. */
  75861. DUK_LOCAL duk_uint_t duk__selftest_struct_align(void) {
  75862. duk_uint_t error_count = 0;
  75863. #if (DUK_USE_ALIGN_BY == 4)
  75864. if ((sizeof(duk_hbuffer_fixed) % 4) != 0) {
  75865. DUK__FAILED("sizeof(duk_hbuffer_fixed) not aligned to 4");
  75866. }
  75867. #elif (DUK_USE_ALIGN_BY == 8)
  75868. if ((sizeof(duk_hbuffer_fixed) % 8) != 0) {
  75869. DUK__FAILED("sizeof(duk_hbuffer_fixed) not aligned to 8");
  75870. }
  75871. #elif (DUK_USE_ALIGN_BY == 1)
  75872. /* no check */
  75873. #else
  75874. #error invalid DUK_USE_ALIGN_BY
  75875. #endif
  75876. return error_count;
  75877. }
  75878. /*
  75879. * 64-bit arithmetic
  75880. *
  75881. * There are some platforms/compilers where 64-bit types are available
  75882. * but don't work correctly. Test for known cases.
  75883. */
  75884. DUK_LOCAL duk_uint_t duk__selftest_64bit_arithmetic(void) {
  75885. duk_uint_t error_count = 0;
  75886. #if defined(DUK_USE_64BIT_OPS)
  75887. volatile duk_int64_t i;
  75888. volatile duk_double_t d;
  75889. /* Catch a double-to-int64 cast issue encountered in practice. */
  75890. d = 2147483648.0;
  75891. i = (duk_int64_t) d;
  75892. if (i != DUK_I64_CONSTANT(0x80000000)) {
  75893. DUK__FAILED("casting 2147483648.0 to duk_int64_t failed");
  75894. }
  75895. #else
  75896. /* nop */
  75897. #endif
  75898. return error_count;
  75899. }
  75900. /*
  75901. * Casting
  75902. */
  75903. DUK_LOCAL duk_uint_t duk__selftest_cast_double_to_small_uint(void) {
  75904. /*
  75905. * https://github.com/svaarala/duktape/issues/127#issuecomment-77863473
  75906. */
  75907. duk_uint_t error_count = 0;
  75908. duk_double_t d1, d2;
  75909. duk_small_uint_t u;
  75910. duk_double_t d1v, d2v;
  75911. duk_small_uint_t uv;
  75912. /* Test without volatiles */
  75913. d1 = 1.0;
  75914. u = (duk_small_uint_t) d1;
  75915. d2 = (duk_double_t) u;
  75916. if (!(d1 == 1.0 && u == 1 && d2 == 1.0 && d1 == d2)) {
  75917. DUK__FAILED("double to duk_small_uint_t cast failed");
  75918. }
  75919. /* Same test with volatiles */
  75920. d1v = 1.0;
  75921. uv = (duk_small_uint_t) d1v;
  75922. d2v = (duk_double_t) uv;
  75923. if (!(d1v == 1.0 && uv == 1 && d2v == 1.0 && d1v == d2v)) {
  75924. DUK__FAILED("double to duk_small_uint_t cast failed");
  75925. }
  75926. return error_count;
  75927. }
  75928. DUK_LOCAL duk_uint_t duk__selftest_cast_double_to_uint32(void) {
  75929. /*
  75930. * This test fails on an exotic ARM target; double-to-uint
  75931. * cast is incorrectly clamped to -signed- int highest value.
  75932. *
  75933. * https://github.com/svaarala/duktape/issues/336
  75934. */
  75935. duk_uint_t error_count = 0;
  75936. duk_double_t dv;
  75937. duk_uint32_t uv;
  75938. dv = 3735928559.0; /* 0xdeadbeef in decimal */
  75939. uv = (duk_uint32_t) dv;
  75940. if (uv != 0xdeadbeefUL) {
  75941. DUK__FAILED("double to duk_uint32_t cast failed");
  75942. }
  75943. return error_count;
  75944. }
  75945. /*
  75946. * Minimal test of user supplied allocation functions
  75947. *
  75948. * - Basic alloc + realloc + free cycle
  75949. *
  75950. * - Realloc to significantly larger size to (hopefully) trigger a
  75951. * relocation and check that relocation copying works
  75952. */
  75953. DUK_LOCAL duk_uint_t duk__selftest_alloc_funcs(duk_alloc_function alloc_func,
  75954. duk_realloc_function realloc_func,
  75955. duk_free_function free_func,
  75956. void *udata) {
  75957. duk_uint_t error_count = 0;
  75958. void *ptr;
  75959. void *new_ptr;
  75960. duk_small_int_t i, j;
  75961. unsigned char x;
  75962. if (alloc_func == NULL || realloc_func == NULL || free_func == NULL) {
  75963. return 0;
  75964. }
  75965. for (i = 1; i <= 256; i++) {
  75966. ptr = alloc_func(udata, (duk_size_t) i);
  75967. if (ptr == NULL) {
  75968. DUK_D(DUK_DPRINT("alloc failed, ignore"));
  75969. continue; /* alloc failed, ignore */
  75970. }
  75971. for (j = 0; j < i; j++) {
  75972. ((unsigned char *) ptr)[j] = (unsigned char) (0x80 + j);
  75973. }
  75974. new_ptr = realloc_func(udata, ptr, 1024);
  75975. if (new_ptr == NULL) {
  75976. DUK_D(DUK_DPRINT("realloc failed, ignore"));
  75977. free_func(udata, ptr);
  75978. continue; /* realloc failed, ignore */
  75979. }
  75980. ptr = new_ptr;
  75981. for (j = 0; j < i; j++) {
  75982. x = ((unsigned char *) ptr)[j];
  75983. if (x != (unsigned char) (0x80 + j)) {
  75984. DUK_D(DUK_DPRINT("byte at index %ld doesn't match after realloc: %02lx",
  75985. (long) j, (unsigned long) x));
  75986. DUK__FAILED("byte compare after realloc");
  75987. break;
  75988. }
  75989. }
  75990. free_func(udata, ptr);
  75991. }
  75992. return error_count;
  75993. }
  75994. /*
  75995. * Self test main
  75996. */
  75997. DUK_INTERNAL duk_uint_t duk_selftest_run_tests(duk_alloc_function alloc_func,
  75998. duk_realloc_function realloc_func,
  75999. duk_free_function free_func,
  76000. void *udata) {
  76001. duk_uint_t error_count = 0;
  76002. DUK_D(DUK_DPRINT("self test starting"));
  76003. error_count += duk__selftest_types();
  76004. error_count += duk__selftest_packed_tval();
  76005. error_count += duk__selftest_twos_complement();
  76006. error_count += duk__selftest_byte_order();
  76007. error_count += duk__selftest_bswap_macros();
  76008. error_count += duk__selftest_double_union_size();
  76009. error_count += duk__selftest_double_aliasing();
  76010. error_count += duk__selftest_double_zero_sign();
  76011. error_count += duk__selftest_double_rounding();
  76012. error_count += duk__selftest_fmod();
  76013. error_count += duk__selftest_struct_align();
  76014. error_count += duk__selftest_64bit_arithmetic();
  76015. error_count += duk__selftest_cast_double_to_small_uint();
  76016. error_count += duk__selftest_cast_double_to_uint32();
  76017. error_count += duk__selftest_alloc_funcs(alloc_func, realloc_func, free_func, udata);
  76018. DUK_D(DUK_DPRINT("self test complete, total error count: %ld", (long) error_count));
  76019. return error_count;
  76020. }
  76021. #endif /* DUK_USE_SELF_TESTS */
  76022. /* automatic undefs */
  76023. #undef DUK__DBLUNION_CMP_FALSE
  76024. #undef DUK__DBLUNION_CMP_TRUE
  76025. #undef DUK__DOUBLE_COMPARE
  76026. #undef DUK__DOUBLE_INIT
  76027. #undef DUK__FAILED
  76028. #undef DUK__U32_INIT
  76029. /* #include duk_internal.h -> already included */
  76030. #line 2 "duk_tval.c"
  76031. #if defined(DUK_USE_FASTINT)
  76032. /*
  76033. * Manually optimized double-to-fastint downgrade check.
  76034. *
  76035. * This check has a large impact on performance, especially for fastint
  76036. * slow paths, so must be changed carefully. The code should probably be
  76037. * optimized for the case where the result does not fit into a fastint,
  76038. * to minimize the penalty for "slow path code" dealing with fractions etc.
  76039. *
  76040. * At least on one tested soft float ARM platform double-to-int64 coercion
  76041. * is very slow (and sometimes produces incorrect results, see self tests).
  76042. * This algorithm combines a fastint compatibility check and extracting the
  76043. * integer value from an IEEE double for setting the tagged fastint. For
  76044. * other platforms a more naive approach might be better.
  76045. *
  76046. * See doc/fastint.rst for details.
  76047. */
  76048. DUK_INTERNAL DUK_ALWAYS_INLINE void duk_tval_set_number_chkfast_fast(duk_tval *tv, duk_double_t x) {
  76049. duk_double_union du;
  76050. duk_int64_t i;
  76051. duk_small_int_t expt;
  76052. duk_small_int_t shift;
  76053. /* XXX: optimize for packed duk_tval directly? */
  76054. du.d = x;
  76055. i = (duk_int64_t) DUK_DBLUNION_GET_INT64(&du);
  76056. expt = (duk_small_int_t) ((i >> 52) & 0x07ff);
  76057. shift = expt - 1023;
  76058. if (shift >= 0 && shift <= 46) { /* exponents 1023 to 1069 */
  76059. duk_int64_t t;
  76060. if (((DUK_I64_CONSTANT(0x000fffffffffffff) >> shift) & i) == 0) {
  76061. t = i | DUK_I64_CONSTANT(0x0010000000000000); /* implicit leading one */
  76062. t = t & DUK_I64_CONSTANT(0x001fffffffffffff);
  76063. t = t >> (52 - shift);
  76064. if (i < 0) {
  76065. t = -t;
  76066. }
  76067. DUK_TVAL_SET_FASTINT(tv, t);
  76068. return;
  76069. }
  76070. } else if (shift == -1023) { /* exponent 0 */
  76071. if (i >= 0 && (i & DUK_I64_CONSTANT(0x000fffffffffffff)) == 0) {
  76072. /* Note: reject negative zero. */
  76073. DUK_TVAL_SET_FASTINT(tv, (duk_int64_t) 0);
  76074. return;
  76075. }
  76076. } else if (shift == 47) { /* exponent 1070 */
  76077. if (i < 0 && (i & DUK_I64_CONSTANT(0x000fffffffffffff)) == 0) {
  76078. DUK_TVAL_SET_FASTINT(tv, (duk_int64_t) DUK_FASTINT_MIN);
  76079. return;
  76080. }
  76081. }
  76082. DUK_TVAL_SET_DOUBLE(tv, x);
  76083. return;
  76084. }
  76085. DUK_INTERNAL DUK_NOINLINE void duk_tval_set_number_chkfast_slow(duk_tval *tv, duk_double_t x) {
  76086. duk_tval_set_number_chkfast_fast(tv, x);
  76087. }
  76088. /*
  76089. * Manually optimized number-to-double conversion
  76090. */
  76091. #if defined(DUK_USE_FASTINT) && defined(DUK_USE_PACKED_TVAL)
  76092. DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_packed(duk_tval *tv) {
  76093. duk_double_union du;
  76094. duk_uint64_t t;
  76095. t = (duk_uint64_t) DUK_DBLUNION_GET_UINT64(tv);
  76096. if ((t >> 48) != DUK_TAG_FASTINT) {
  76097. return tv->d;
  76098. } else if (t & DUK_U64_CONSTANT(0x0000800000000000)) {
  76099. t = (duk_uint64_t) (-((duk_int64_t) t)); /* avoid unary minus on unsigned */
  76100. t = t & DUK_U64_CONSTANT(0x0000ffffffffffff); /* negative */
  76101. t |= DUK_U64_CONSTANT(0xc330000000000000);
  76102. DUK_DBLUNION_SET_UINT64(&du, t);
  76103. return du.d + 4503599627370496.0; /* 1 << 52 */
  76104. } else if (t != 0) {
  76105. t &= DUK_U64_CONSTANT(0x0000ffffffffffff); /* positive */
  76106. t |= DUK_U64_CONSTANT(0x4330000000000000);
  76107. DUK_DBLUNION_SET_UINT64(&du, t);
  76108. return du.d - 4503599627370496.0; /* 1 << 52 */
  76109. } else {
  76110. return 0.0; /* zero */
  76111. }
  76112. }
  76113. #endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */
  76114. #if 0 /* unused */
  76115. #if defined(DUK_USE_FASTINT) && !defined(DUK_USE_PACKED_TVAL)
  76116. DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_unpacked(duk_tval *tv) {
  76117. duk_double_union du;
  76118. duk_uint64_t t;
  76119. DUK_ASSERT(tv->t == DUK_TAG_NUMBER || tv->t == DUK_TAG_FASTINT);
  76120. if (tv->t == DUK_TAG_FASTINT) {
  76121. if (tv->v.fi >= 0) {
  76122. t = DUK_U64_CONSTANT(0x4330000000000000) | (duk_uint64_t) tv->v.fi;
  76123. DUK_DBLUNION_SET_UINT64(&du, t);
  76124. return du.d - 4503599627370496.0; /* 1 << 52 */
  76125. } else {
  76126. t = DUK_U64_CONSTANT(0xc330000000000000) | (duk_uint64_t) (-tv->v.fi);
  76127. DUK_DBLUNION_SET_UINT64(&du, t);
  76128. return du.d + 4503599627370496.0; /* 1 << 52 */
  76129. }
  76130. } else {
  76131. return tv->v.d;
  76132. }
  76133. }
  76134. #endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */
  76135. #endif /* 0 */
  76136. #if defined(DUK_USE_FASTINT) && !defined(DUK_USE_PACKED_TVAL)
  76137. DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_unpacked_fastint(duk_tval *tv) {
  76138. duk_double_union du;
  76139. duk_uint64_t t;
  76140. DUK_ASSERT(tv->t == DUK_TAG_FASTINT);
  76141. if (tv->v.fi >= 0) {
  76142. t = DUK_U64_CONSTANT(0x4330000000000000) | (duk_uint64_t) tv->v.fi;
  76143. DUK_DBLUNION_SET_UINT64(&du, t);
  76144. return du.d - 4503599627370496.0; /* 1 << 52 */
  76145. } else {
  76146. t = DUK_U64_CONSTANT(0xc330000000000000) | (duk_uint64_t) (-tv->v.fi);
  76147. DUK_DBLUNION_SET_UINT64(&du, t);
  76148. return du.d + 4503599627370496.0; /* 1 << 52 */
  76149. }
  76150. }
  76151. #endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */
  76152. #endif /* DUK_USE_FASTINT */
  76153. #line 1 "duk_unicode_tables.c"
  76154. /*
  76155. * Unicode support tables automatically generated during build.
  76156. */
  76157. /* #include duk_internal.h -> already included */
  76158. /*
  76159. * Unicode tables containing ranges of Unicode characters in a
  76160. * packed format. These tables are used to match non-ASCII
  76161. * characters of complex productions by resorting to a linear
  76162. * range-by-range comparison. This is very slow, but is expected
  76163. * to be very rare in practical Ecmascript source code, and thus
  76164. * compactness is most important.
  76165. *
  76166. * The tables are matched using uni_range_match() and the format
  76167. * is described in tools/extract_chars.py.
  76168. */
  76169. #if defined(DUK_USE_SOURCE_NONBMP)
  76170. /* IdentifierStart production with ASCII excluded */
  76171. /* duk_unicode_ids_noa[] */
  76172. /*
  76173. * Automatically generated by extract_chars.py, do not edit!
  76174. */
  76175. const duk_uint8_t duk_unicode_ids_noa[1036] = {
  76176. 249,176,176,80,111,7,47,15,47,254,11,197,191,0,72,2,15,115,66,19,50,7,2,34,
  76177. 2,240,66,244,50,247,185,249,98,241,99,8,241,127,58,240,182,47,31,241,191,
  76178. 21,18,245,50,15,1,24,27,35,15,2,2,240,239,15,244,156,15,10,241,26,21,6,240,
  76179. 101,10,4,15,9,240,159,57,240,82,127,56,242,100,15,4,8,159,1,240,5,115,19,
  76180. 240,98,98,4,52,15,2,14,18,47,0,31,5,85,19,240,98,98,18,18,31,17,50,15,5,47,
  76181. 2,130,34,240,98,98,18,68,15,4,15,1,31,9,12,115,19,240,98,98,18,68,15,16,18,
  76182. 47,1,15,3,2,84,34,52,18,2,20,20,36,191,8,15,38,114,34,240,114,240,4,15,12,
  76183. 38,31,16,5,114,34,240,114,146,68,15,18,2,31,1,31,4,114,34,241,147,15,2,6,
  76184. 41,47,10,86,240,36,240,130,130,3,111,44,242,2,29,111,44,18,3,18,3,7,50,98,
  76185. 34,2,3,18,50,26,3,66,15,7,63,18,15,49,114,241,79,13,79,101,241,191,6,15,2,
  76186. 85,52,4,24,37,205,15,3,241,98,6,3,241,178,255,224,63,35,54,32,35,63,25,35,
  76187. 63,17,35,54,32,35,62,47,41,35,63,51,241,127,0,240,47,70,53,79,254,21,227,
  76188. 240,18,240,166,243,180,168,194,63,0,240,47,0,240,47,0,194,47,1,242,79,21,5,
  76189. 15,53,244,137,67,241,34,6,243,107,240,255,35,240,227,76,241,197,240,175,40,
  76190. 240,122,242,95,68,15,79,241,255,3,111,41,240,238,27,241,207,12,241,79,27,
  76191. 43,241,67,143,82,50,52,26,251,15,50,255,224,8,53,63,22,53,55,32,32,32,47,
  76192. 15,63,37,38,32,66,38,67,53,92,98,38,246,96,224,240,44,245,112,80,57,32,68,
  76193. 112,32,32,35,42,51,100,80,240,63,25,255,233,107,241,242,241,242,247,87,52,
  76194. 29,241,98,6,3,242,136,15,2,240,122,98,98,98,98,98,98,98,111,66,15,254,12,
  76195. 146,240,184,132,52,95,70,114,47,74,35,111,25,79,78,240,63,11,242,127,0,255,
  76196. 224,244,255,240,0,138,143,60,255,240,4,12,143,28,255,227,127,243,95,30,63,
  76197. 253,79,0,177,240,111,31,240,47,15,63,64,241,152,63,87,63,20,39,243,26,34,
  76198. 35,47,7,240,255,36,240,15,34,243,5,64,32,223,12,191,7,240,191,13,143,31,
  76199. 240,224,240,36,41,180,47,25,240,146,39,240,111,7,64,79,34,32,65,52,48,32,
  76200. 240,162,58,130,213,53,53,166,38,47,27,41,191,99,240,255,255,0,26,150,223,7,
  76201. 95,33,255,240,0,255,143,254,6,3,245,175,24,109,70,2,146,194,66,2,18,18,245,
  76202. 207,19,255,224,93,240,79,48,63,38,241,171,246,100,47,119,241,111,10,127,10,
  76203. 207,73,69,53,53,50,241,91,47,10,47,3,33,46,61,241,79,107,243,127,37,255,
  76204. 223,13,79,33,242,31,16,240,47,11,111,22,191,14,63,20,87,36,241,207,142,240,
  76205. 79,20,95,20,95,24,159,36,248,239,254,2,154,240,107,127,138,83,2,241,194,20,
  76206. 3,240,123,240,122,240,255,51,240,50,27,240,107,240,175,56,242,135,31,50,15,
  76207. 1,50,34,240,191,30,240,212,240,223,21,114,240,207,13,242,107,240,107,240,
  76208. 62,240,47,96,243,159,41,242,62,242,63,254,32,79,37,243,223,29,241,47,9,240,
  76209. 207,20,241,191,19,64,223,32,240,3,240,112,32,241,95,2,47,9,244,102,32,35,
  76210. 46,41,143,31,241,135,49,63,6,38,33,36,64,240,64,212,249,15,37,240,67,242,
  76211. 127,32,240,97,32,250,175,31,241,179,241,111,32,240,96,242,223,27,244,127,
  76212. 10,255,224,122,243,15,17,15,254,11,79,41,255,152,47,21,240,48,242,63,14,
  76213. 255,226,100,255,226,140,245,143,95,240,63,180,255,233,176,255,227,33,255,
  76214. 238,197,255,225,57,255,240,1,10,223,254,18,184,240,255,99,240,239,4,242,15,
  76215. 2,63,17,240,86,240,63,254,38,79,53,192,243,76,243,32,241,31,255,0,6,223,
  76216. 240,95,254,30,95,255,0,20,1,31,254,175,47,91,108,72,137,255,240,0,101,175,
  76217. 69,47,55,33,48,49,51,43,32,38,47,49,35,55,38,47,12,35,36,32,70,47,254,4,99,
  76218. 240,146,240,146,240,242,240,146,240,242,240,146,240,242,240,146,240,242,
  76219. 240,146,127,254,242,143,181,242,223,52,255,227,176,50,240,178,18,3,2,146,
  76220. 50,2,7,5,2,2,2,34,18,3,2,2,2,2,2,18,3,50,98,50,50,2,146,240,22,34,66,240,
  76221. 31,255,0,0,56,255,240,9,92,159,27,255,239,39,207,206,63,255,0,5,116,255,
  76222. 240,1,133,47,254,17,0,
  76223. };
  76224. #else
  76225. /* IdentifierStart production with ASCII and non-BMP excluded */
  76226. /* duk_unicode_ids_noabmp[] */
  76227. /*
  76228. * Automatically generated by extract_chars.py, do not edit!
  76229. */
  76230. const duk_uint8_t duk_unicode_ids_noabmp[625] = {
  76231. 249,176,176,80,111,7,47,15,47,254,11,197,191,0,72,2,15,115,66,19,50,7,2,34,
  76232. 2,240,66,244,50,247,185,249,98,241,99,8,241,127,58,240,182,47,31,241,191,
  76233. 21,18,245,50,15,1,24,27,35,15,2,2,240,239,15,244,156,15,10,241,26,21,6,240,
  76234. 101,10,4,15,9,240,159,57,240,82,127,56,242,100,15,4,8,159,1,240,5,115,19,
  76235. 240,98,98,4,52,15,2,14,18,47,0,31,5,85,19,240,98,98,18,18,31,17,50,15,5,47,
  76236. 2,130,34,240,98,98,18,68,15,4,15,1,31,9,12,115,19,240,98,98,18,68,15,16,18,
  76237. 47,1,15,3,2,84,34,52,18,2,20,20,36,191,8,15,38,114,34,240,114,240,4,15,12,
  76238. 38,31,16,5,114,34,240,114,146,68,15,18,2,31,1,31,4,114,34,241,147,15,2,6,
  76239. 41,47,10,86,240,36,240,130,130,3,111,44,242,2,29,111,44,18,3,18,3,7,50,98,
  76240. 34,2,3,18,50,26,3,66,15,7,63,18,15,49,114,241,79,13,79,101,241,191,6,15,2,
  76241. 85,52,4,24,37,205,15,3,241,98,6,3,241,178,255,224,63,35,54,32,35,63,25,35,
  76242. 63,17,35,54,32,35,62,47,41,35,63,51,241,127,0,240,47,70,53,79,254,21,227,
  76243. 240,18,240,166,243,180,168,194,63,0,240,47,0,240,47,0,194,47,1,242,79,21,5,
  76244. 15,53,244,137,67,241,34,6,243,107,240,255,35,240,227,76,241,197,240,175,40,
  76245. 240,122,242,95,68,15,79,241,255,3,111,41,240,238,27,241,207,12,241,79,27,
  76246. 43,241,67,143,82,50,52,26,251,15,50,255,224,8,53,63,22,53,55,32,32,32,47,
  76247. 15,63,37,38,32,66,38,67,53,92,98,38,246,96,224,240,44,245,112,80,57,32,68,
  76248. 112,32,32,35,42,51,100,80,240,63,25,255,233,107,241,242,241,242,247,87,52,
  76249. 29,241,98,6,3,242,136,15,2,240,122,98,98,98,98,98,98,98,111,66,15,254,12,
  76250. 146,240,184,132,52,95,70,114,47,74,35,111,25,79,78,240,63,11,242,127,0,255,
  76251. 224,244,255,240,0,138,143,60,255,240,4,12,143,28,255,227,127,243,95,30,63,
  76252. 253,79,0,177,240,111,31,240,47,15,63,64,241,152,63,87,63,20,39,243,26,34,
  76253. 35,47,7,240,255,36,240,15,34,243,5,64,32,223,12,191,7,240,191,13,143,31,
  76254. 240,224,240,36,41,180,47,25,240,146,39,240,111,7,64,79,34,32,65,52,48,32,
  76255. 240,162,58,130,213,53,53,166,38,47,27,41,191,99,240,255,255,0,26,150,223,7,
  76256. 95,33,255,240,0,255,143,254,6,3,245,175,24,109,70,2,146,194,66,2,18,18,245,
  76257. 207,19,255,224,93,240,79,48,63,38,241,171,246,100,47,119,241,111,10,127,10,
  76258. 207,73,69,53,53,50,0,
  76259. };
  76260. #endif
  76261. #if defined(DUK_USE_SOURCE_NONBMP)
  76262. /* IdentifierStart production with Letter and ASCII excluded */
  76263. /* duk_unicode_ids_m_let_noa[] */
  76264. /*
  76265. * Automatically generated by extract_chars.py, do not edit!
  76266. */
  76267. const duk_uint8_t duk_unicode_ids_m_let_noa[42] = {
  76268. 255,240,0,94,18,255,233,99,241,51,63,254,215,32,240,184,240,2,255,240,6,89,
  76269. 249,255,240,4,148,79,37,255,224,192,9,15,120,79,255,0,15,30,245,240,
  76270. };
  76271. #else
  76272. /* IdentifierStart production with Letter, ASCII, and non-BMP excluded */
  76273. /* duk_unicode_ids_m_let_noabmp[] */
  76274. /*
  76275. * Automatically generated by extract_chars.py, do not edit!
  76276. */
  76277. const duk_uint8_t duk_unicode_ids_m_let_noabmp[24] = {
  76278. 255,240,0,94,18,255,233,99,241,51,63,254,215,32,240,184,240,2,255,240,6,89,
  76279. 249,0,
  76280. };
  76281. #endif
  76282. #if defined(DUK_USE_SOURCE_NONBMP)
  76283. /* IdentifierPart production with IdentifierStart and ASCII excluded */
  76284. /* duk_unicode_idp_m_ids_noa[] */
  76285. /*
  76286. * Automatically generated by extract_chars.py, do not edit!
  76287. */
  76288. const duk_uint8_t duk_unicode_idp_m_ids_noa[530] = {
  76289. 255,225,243,246,15,254,0,116,255,191,29,32,33,33,32,243,170,242,47,15,112,
  76290. 245,118,53,49,35,57,240,144,241,15,11,244,218,240,25,241,56,241,67,40,34,
  76291. 36,241,210,246,173,47,17,242,130,47,2,38,177,57,240,50,242,160,38,49,50,
  76292. 160,177,57,240,50,242,160,36,81,50,64,240,107,64,194,242,160,39,34,34,240,
  76293. 97,57,240,50,242,160,38,49,50,145,177,57,240,64,242,212,66,35,160,240,9,
  76294. 240,35,242,198,34,35,129,193,57,240,50,242,160,38,34,35,129,193,57,240,50,
  76295. 242,198,34,35,160,177,57,240,65,243,128,85,32,39,121,49,242,240,54,215,41,
  76296. 244,144,53,33,197,57,243,1,121,192,32,32,81,242,63,4,33,106,47,20,160,245,
  76297. 111,4,41,211,82,34,54,67,235,46,255,225,179,47,254,42,98,240,242,240,241,
  76298. 241,1,243,47,16,160,57,241,50,57,245,209,241,64,246,139,91,185,247,41,242,
  76299. 244,242,185,47,13,58,121,240,141,243,68,242,31,1,201,240,56,210,241,12,57,
  76300. 241,237,242,47,4,153,121,246,130,47,5,80,82,65,251,143,38,100,255,225,0,31,
  76301. 35,31,5,15,109,197,4,191,254,175,34,247,240,245,47,16,255,225,30,95,91,31,
  76302. 255,0,100,121,159,55,5,159,18,31,66,31,254,0,64,64,80,240,148,244,161,242,
  76303. 79,2,185,127,2,240,9,240,231,240,188,241,227,242,29,240,25,192,185,242,29,
  76304. 208,145,57,241,50,242,64,34,49,97,32,241,180,97,253,231,33,57,255,240,3,
  76305. 225,128,255,225,213,240,15,2,240,4,31,10,47,178,159,23,15,254,27,16,253,64,
  76306. 248,116,255,224,25,159,254,68,178,33,99,241,162,80,249,113,255,228,13,47,
  76307. 39,239,17,159,1,63,31,175,39,151,47,22,210,159,37,13,47,34,218,36,159,68,
  76308. 183,15,146,182,151,63,42,2,99,19,42,11,19,100,79,178,240,42,159,72,240,77,
  76309. 159,199,99,143,13,31,68,240,31,1,159,67,201,159,69,229,159,254,9,169,255,
  76310. 226,57,114,127,2,159,42,240,98,223,255,0,60,157,159,120,79,45,111,11,159,
  76311. 254,46,191,30,240,35,255,240,3,191,225,255,240,0,59,164,69,151,54,241,3,
  76312. 248,98,255,228,125,242,47,254,15,79,39,95,34,144,240,0,240,132,46,255,228,
  76313. 68,98,240,19,98,18,79,254,121,150,245,246,105,255,240,192,105,175,224,0,
  76314. };
  76315. #else
  76316. /* IdentifierPart production with IdentifierStart, ASCII, and non-BMP excluded */
  76317. /* duk_unicode_idp_m_ids_noabmp[] */
  76318. /*
  76319. * Automatically generated by extract_chars.py, do not edit!
  76320. */
  76321. const duk_uint8_t duk_unicode_idp_m_ids_noabmp[357] = {
  76322. 255,225,243,246,15,254,0,116,255,191,29,32,33,33,32,243,170,242,47,15,112,
  76323. 245,118,53,49,35,57,240,144,241,15,11,244,218,240,25,241,56,241,67,40,34,
  76324. 36,241,210,246,173,47,17,242,130,47,2,38,177,57,240,50,242,160,38,49,50,
  76325. 160,177,57,240,50,242,160,36,81,50,64,240,107,64,194,242,160,39,34,34,240,
  76326. 97,57,240,50,242,160,38,49,50,145,177,57,240,64,242,212,66,35,160,240,9,
  76327. 240,35,242,198,34,35,129,193,57,240,50,242,160,38,34,35,129,193,57,240,50,
  76328. 242,198,34,35,160,177,57,240,65,243,128,85,32,39,121,49,242,240,54,215,41,
  76329. 244,144,53,33,197,57,243,1,121,192,32,32,81,242,63,4,33,106,47,20,160,245,
  76330. 111,4,41,211,82,34,54,67,235,46,255,225,179,47,254,42,98,240,242,240,241,
  76331. 241,1,243,47,16,160,57,241,50,57,245,209,241,64,246,139,91,185,247,41,242,
  76332. 244,242,185,47,13,58,121,240,141,243,68,242,31,1,201,240,56,210,241,12,57,
  76333. 241,237,242,47,4,153,121,246,130,47,5,80,82,65,251,143,38,100,255,225,0,31,
  76334. 35,31,5,15,109,197,4,191,254,175,34,247,240,245,47,16,255,225,30,95,91,31,
  76335. 255,0,100,121,159,55,5,159,18,31,66,31,254,0,64,64,80,240,148,244,161,242,
  76336. 79,2,185,127,2,240,9,240,231,240,188,241,227,242,29,240,25,192,185,242,29,
  76337. 208,145,57,241,50,242,64,34,49,97,32,241,180,97,253,231,33,57,255,240,3,
  76338. 225,128,255,225,213,240,15,2,240,4,31,10,47,178,159,23,0,
  76339. };
  76340. #endif
  76341. /*
  76342. * Case conversion tables generated using tools/extract_caseconv.py.
  76343. */
  76344. /* duk_unicode_caseconv_uc[] */
  76345. /* duk_unicode_caseconv_lc[] */
  76346. /*
  76347. * Automatically generated by extract_caseconv.py, do not edit!
  76348. */
  76349. const duk_uint8_t duk_unicode_caseconv_uc[1386] = {
  76350. 144,3,128,3,0,184,7,192,6,192,112,35,242,199,224,64,74,192,49,32,128,162,
  76351. 128,108,65,1,189,129,254,131,3,173,3,136,6,7,98,7,34,68,15,12,14,140,72,30,
  76352. 104,28,112,32,67,0,65,4,0,138,0,128,4,1,88,65,76,83,9,252,9,248,6,28,131,4,
  76353. 33,4,62,0,62,16,32,124,64,124,96,48,249,0,249,64,129,243,1,243,129,3,232,3,
  76354. 233,1,135,216,7,218,4,15,184,15,221,2,31,114,31,200,8,62,236,63,180,8,125,
  76355. 224,127,224,16,251,208,255,80,33,247,193,255,160,67,246,3,247,0,135,244,7,
  76356. 246,1,15,240,15,244,2,33,112,33,96,32,73,160,73,108,104,176,192,176,1,121,
  76357. 104,0,133,2,106,183,1,58,10,31,232,63,228,38,162,1,1,1,0,48,2,102,2,100,12,
  76358. 4,232,4,228,64,10,88,10,81,112,23,160,23,144,96,48,96,48,64,128,104,64,104,
  76359. 1,128,218,0,217,130,1,206,1,205,16,3,190,3,188,36,7,228,7,224,160,17,24,17,
  76360. 16,144,36,112,36,96,160,110,32,110,0,128,246,64,246,6,2,48,130,48,17,4,139,
  76361. 4,138,54,9,132,9,130,28,19,68,19,65,128,240,8,240,4,177,234,17,234,6,3,234,
  76362. 35,235,33,11,26,11,25,193,150,64,150,64,50,44,236,44,235,5,76,131,76,128,
  76363. 94,154,6,154,0,117,57,29,57,16,122,115,58,115,35,244,239,84,239,32,169,223,
  76364. 233,223,130,211,200,211,200,2,167,151,167,150,21,79,107,79,104,8,112,26,
  76365. 208,26,192,64,56,160,56,128,192,113,128,113,1,128,249,0,248,130,2,128,1,
  76366. 166,4,7,240,7,238,8,177,204,177,200,16,96,49,0,48,224,128,110,64,110,1,1,
  76367. 51,83,213,2,0,48,35,192,35,176,64,77,32,50,192,139,73,196,49,193,127,48,2,
  76368. 212,14,112,3,252,5,224,4,196,1,36,5,252,1,76,6,0,9,12,6,72,6,68,6,84,7,216,
  76369. 6,100,6,96,6,104,8,244,6,120,8,128,6,160,6,156,6,252,7,220,7,116,6,56,7,
  76370. 204,7,196,9,64,177,188,9,68,177,180,9,72,177,192,9,76,6,4,9,80,6,24,9,100,
  76371. 6,60,9,108,6,64,9,114,158,172,9,128,6,76,9,134,158,176,9,140,6,80,9,150,
  76372. 158,52,9,160,6,92,9,172,177,136,9,178,158,180,9,196,177,184,9,200,6,116,9,
  76373. 212,6,124,9,244,177,144,10,30,158,196,10,32,6,184,10,36,9,16,10,48,9,20,10,
  76374. 72,6,220,10,118,158,200,10,122,158,192,13,20,14,100,13,220,13,216,14,176,
  76375. 14,24,15,8,14,140,15,48,14,48,15,64,14,72,15,68,14,96,15,84,14,152,15,88,
  76376. 14,128,15,92,15,60,15,192,14,104,15,196,14,132,15,200,15,228,15,204,13,252,
  76377. 15,212,14,84,19,60,19,0,114,0,16,72,114,4,16,80,114,8,16,120,114,20,16,136,
  76378. 114,24,16,168,114,28,17,136,114,34,153,40,117,230,157,244,117,244,177,140,
  76379. 122,108,121,128,126,248,14,100,127,148,127,176,133,56,132,200,134,16,134,
  76380. 12,177,132,177,128,177,148,8,232,177,152,8,248,179,204,179,202,158,50,158,
  76381. 46,173,78,158,207,48,6,252,0,166,0,166,2,147,1,94,0,39,0,248,64,9,64,97,
  76382. 128,114,24,28,200,24,64,24,8,29,134,7,74,6,16,6,2,11,15,2,154,130,169,15,
  76383. 75,64,9,0,102,35,210,240,2,160,24,64,244,196,0,174,6,20,61,51,0,44,129,133,
  76384. 15,77,64,8,32,87,195,234,16,29,40,24,152,250,150,7,74,6,38,6,0,62,169,129,
  76385. 210,129,137,129,128,143,171,96,116,160,98,96,104,67,240,16,248,64,28,200,
  76386. 252,12,62,18,7,50,63,5,15,133,1,204,143,193,195,225,96,115,35,240,144,248,
  76387. 96,28,200,252,44,62,26,7,50,63,13,15,135,1,204,143,195,195,225,224,115,35,
  76388. 241,16,248,64,28,200,252,76,62,18,7,50,63,21,15,133,1,204,143,197,195,225,
  76389. 96,115,35,241,144,248,96,28,200,252,108,62,26,7,50,63,29,15,135,1,204,143,
  76390. 199,195,225,224,115,35,242,16,249,64,28,200,252,140,62,82,7,50,63,37,15,
  76391. 149,1,204,143,201,195,229,96,115,35,242,144,249,96,28,200,252,172,62,90,7,
  76392. 50,63,45,15,151,1,204,143,203,195,229,224,115,35,243,16,249,64,28,200,252,
  76393. 204,62,82,7,50,63,53,15,149,1,204,143,205,195,229,96,115,35,243,144,249,96,
  76394. 28,200,252,236,62,90,7,50,63,61,15,151,1,204,143,207,195,229,224,115,35,
  76395. 244,16,251,64,28,200,253,12,62,210,7,50,63,69,15,181,1,204,143,209,195,237,
  76396. 96,115,35,244,144,251,96,28,200,253,44,62,218,7,50,63,77,15,183,1,204,143,
  76397. 211,195,237,224,115,35,245,16,251,64,28,200,253,76,62,210,7,50,63,85,15,
  76398. 181,1,204,143,213,195,237,96,115,35,245,144,251,96,28,200,253,108,62,218,7,
  76399. 50,63,93,15,183,1,204,143,215,195,237,224,115,35,246,80,253,208,28,200,253,
  76400. 156,7,34,7,50,63,105,1,195,1,204,143,219,64,114,32,104,67,246,248,28,136,
  76401. 26,16,28,200,253,228,7,34,7,50,63,133,15,229,1,204,143,225,192,114,224,115,
  76402. 35,248,144,28,72,28,200,254,52,7,46,6,132,63,143,129,203,129,161,1,204,143,
  76403. 230,64,114,224,115,35,250,88,28,200,24,64,24,0,254,158,7,50,6,16,6,2,63,
  76404. 173,1,204,129,161,15,235,224,115,32,97,0,104,67,252,88,29,40,24,64,24,0,
  76405. 255,30,7,74,6,16,6,2,63,201,1,208,129,137,143,243,64,116,160,104,67,252,
  76406. 248,29,40,24,64,26,16,255,148,63,244,7,50,63,231,1,212,129,204,143,250,64,
  76407. 113,224,115,35,254,208,29,72,26,16,255,190,7,82,6,132,7,50,63,249,1,212,
  76408. 129,204,253,128,64,8,192,8,223,96,48,2,48,2,79,216,20,0,140,0,153,246,7,
  76409. 128,35,0,35,0,36,253,130,96,8,192,8,192,9,159,96,176,2,152,2,167,216,52,0,
  76410. 166,0,169,246,39,2,162,2,163,125,138,64,168,128,166,191,98,176,42,32,41,
  76411. 223,216,180,10,156,10,141,246,47,2,162,2,158,128,
  76412. };
  76413. const duk_uint8_t duk_unicode_caseconv_lc[680] = {
  76414. 152,3,0,3,128,184,6,192,7,192,112,24,144,37,96,64,54,32,81,64,128,226,0,
  76415. 235,65,129,199,1,230,130,3,145,3,177,34,7,70,7,134,36,15,244,13,236,24,32,
  76416. 0,34,129,0,65,0,67,4,0,166,32,172,41,132,40,11,64,19,9,208,85,184,80,19,
  76417. 240,19,248,12,62,16,62,0,32,124,96,124,64,48,249,64,249,0,129,243,129,243,
  76418. 1,3,233,3,232,1,135,218,7,216,4,15,196,15,192,8,31,152,31,144,16,63,80,63,
  76419. 64,32,126,224,126,192,16,253,208,251,128,33,252,129,247,32,131,251,3,250,0,
  76420. 135,246,135,221,129,15,244,15,240,2,31,234,31,122,4,63,240,62,240,8,127,
  76421. 232,125,240,17,11,1,11,129,2,75,98,77,3,69,128,5,134,11,203,31,128,143,193,
  76422. 127,144,255,160,154,140,4,0,4,4,192,9,144,9,152,48,19,144,19,161,0,41,64,
  76423. 41,101,192,94,64,94,129,128,193,0,193,130,1,160,1,161,6,3,102,3,104,8,7,44,
  76424. 7,48,72,14,240,14,248,144,31,32,31,48,64,63,0,63,37,0,136,128,136,196,129,
  76425. 35,1,35,133,3,112,3,113,4,7,176,7,178,48,17,128,17,132,136,36,80,36,89,176,
  76426. 76,16,76,32,224,154,0,154,44,7,128,7,128,101,143,80,15,80,176,31,89,31,81,
  76427. 8,88,206,88,208,12,178,0,178,5,145,103,89,103,96,42,100,10,100,18,244,208,
  76428. 20,208,35,169,200,169,200,195,211,153,83,153,159,167,121,167,122,5,78,253,
  76429. 78,254,22,158,66,158,68,21,60,181,60,184,170,123,74,123,80,67,0,211,1,64,2,
  76430. 1,172,1,173,4,3,136,3,140,12,7,20,7,24,16,31,184,31,192,34,199,34,199,48,
  76431. 65,128,195,128,196,2,1,184,1,185,5,79,84,4,204,8,0,192,101,128,154,65,1,29,
  76432. 129,30,2,16,199,45,39,5,251,240,23,128,15,240,24,16,37,48,24,96,37,64,24,
  76433. 224,29,208,24,240,37,144,25,0,37,176,25,16,25,32,25,48,38,0,25,64,38,48,25,
  76434. 112,38,128,25,128,25,144,25,208,39,32,25,240,39,80,26,112,26,128,26,224,40,
  76435. 128,27,112,41,32,31,16,31,48,31,96,25,80,31,112,27,240,34,0,25,224,35,162,
  76436. 198,80,35,208,25,160,35,226,198,96,36,48,24,0,36,64,40,144,36,80,40,192,55,
  76437. 96,55,112,55,240,63,48,56,96,58,192,56,192,60,192,60,240,61,112,63,64,59,
  76438. 128,63,144,63,32,76,0,76,241,233,224,13,241,251,193,251,49,252,193,252,49,
  76439. 254,193,254,81,255,193,255,50,18,96,60,146,18,160,6,178,18,176,14,82,19,34,
  76440. 20,226,24,50,24,66,198,2,198,18,198,32,38,178,198,49,215,210,198,64,39,210,
  76441. 198,208,37,18,198,224,39,18,198,240,37,2,199,0,37,34,207,34,207,58,119,209,
  76442. 215,154,120,186,120,202,120,208,38,90,122,176,37,202,122,192,38,26,122,208,
  76443. 38,202,123,0,41,234,123,16,40,122,123,32,41,218,123,58,181,48,32,38,16,3,
  76444. 72,24,56,
  76445. };
  76446. #if defined(DUK_USE_REGEXP_CANON_WORKAROUND)
  76447. /*
  76448. * Automatically generated by extract_caseconv.py, do not edit!
  76449. */
  76450. const duk_uint16_t duk_unicode_re_canon_lookup[65536] = {
  76451. 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,
  76452. 28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,
  76453. 53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,
  76454. 78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,65,66,67,68,69,70,
  76455. 71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,123,124,125,
  76456. 126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  76457. 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,
  76458. 162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,
  76459. 180,924,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,
  76460. 198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,
  76461. 216,217,218,219,220,221,222,223,192,193,194,195,196,197,198,199,200,201,
  76462. 202,203,204,205,206,207,208,209,210,211,212,213,214,247,216,217,218,219,
  76463. 220,221,222,376,256,256,258,258,260,260,262,262,264,264,266,266,268,268,
  76464. 270,270,272,272,274,274,276,276,278,278,280,280,282,282,284,284,286,286,
  76465. 288,288,290,290,292,292,294,294,296,296,298,298,300,300,302,302,304,305,
  76466. 306,306,308,308,310,310,312,313,313,315,315,317,317,319,319,321,321,323,
  76467. 323,325,325,327,327,329,330,330,332,332,334,334,336,336,338,338,340,340,
  76468. 342,342,344,344,346,346,348,348,350,350,352,352,354,354,356,356,358,358,
  76469. 360,360,362,362,364,364,366,366,368,368,370,370,372,372,374,374,376,377,
  76470. 377,379,379,381,381,383,579,385,386,386,388,388,390,391,391,393,394,395,
  76471. 395,397,398,399,400,401,401,403,404,502,406,407,408,408,573,411,412,413,
  76472. 544,415,416,416,418,418,420,420,422,423,423,425,426,427,428,428,430,431,
  76473. 431,433,434,435,435,437,437,439,440,440,442,443,444,444,446,503,448,449,
  76474. 450,451,452,452,452,455,455,455,458,458,458,461,461,463,463,465,465,467,
  76475. 467,469,469,471,471,473,473,475,475,398,478,478,480,480,482,482,484,484,
  76476. 486,486,488,488,490,490,492,492,494,494,496,497,497,497,500,500,502,503,
  76477. 504,504,506,506,508,508,510,510,512,512,514,514,516,516,518,518,520,520,
  76478. 522,522,524,524,526,526,528,528,530,530,532,532,534,534,536,536,538,538,
  76479. 540,540,542,542,544,545,546,546,548,548,550,550,552,552,554,554,556,556,
  76480. 558,558,560,560,562,562,564,565,566,567,568,569,570,571,571,573,574,11390,
  76481. 11391,577,577,579,580,581,582,582,584,584,586,586,588,588,590,590,11375,
  76482. 11373,11376,385,390,597,393,394,600,399,602,400,42923L,605,606,607,403,
  76483. 42924L,610,404,612,42893L,42922L,615,407,406,42926L,11362,42925L,621,622,
  76484. 412,624,11374,413,627,628,415,630,631,632,633,634,635,636,11364,638,639,
  76485. 422,641,642,425,644,645,646,42929L,430,580,433,434,581,653,654,655,656,657,
  76486. 439,659,660,661,662,663,664,665,666,667,668,42930L,42928L,671,672,673,674,
  76487. 675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,
  76488. 693,694,695,696,697,698,699,700,701,702,703,704,705,706,707,708,709,710,
  76489. 711,712,713,714,715,716,717,718,719,720,721,722,723,724,725,726,727,728,
  76490. 729,730,731,732,733,734,735,736,737,738,739,740,741,742,743,744,745,746,
  76491. 747,748,749,750,751,752,753,754,755,756,757,758,759,760,761,762,763,764,
  76492. 765,766,767,768,769,770,771,772,773,774,775,776,777,778,779,780,781,782,
  76493. 783,784,785,786,787,788,789,790,791,792,793,794,795,796,797,798,799,800,
  76494. 801,802,803,804,805,806,807,808,809,810,811,812,813,814,815,816,817,818,
  76495. 819,820,821,822,823,824,825,826,827,828,829,830,831,832,833,834,835,836,
  76496. 921,838,839,840,841,842,843,844,845,846,847,848,849,850,851,852,853,854,
  76497. 855,856,857,858,859,860,861,862,863,864,865,866,867,868,869,870,871,872,
  76498. 873,874,875,876,877,878,879,880,880,882,882,884,885,886,886,888,889,890,
  76499. 1021,1022,1023,894,895,896,897,898,899,900,901,902,903,904,905,906,907,908,
  76500. 909,910,911,912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,
  76501. 927,928,929,930,931,932,933,934,935,936,937,938,939,902,904,905,906,944,
  76502. 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928,929,931,
  76503. 931,932,933,934,935,936,937,938,939,908,910,911,975,914,920,978,979,980,
  76504. 934,928,975,984,984,986,986,988,988,990,990,992,992,994,994,996,996,998,
  76505. 998,1000,1000,1002,1002,1004,1004,1006,1006,922,929,1017,895,1012,917,1014,
  76506. 1015,1015,1017,1018,1018,1020,1021,1022,1023,1024,1025,1026,1027,1028,1029,
  76507. 1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,1040,1041,1042,1043,1044,
  76508. 1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,1058,1059,
  76509. 1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071,1040,1041,1042,
  76510. 1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,
  76511. 1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071,1024,
  76512. 1025,1026,1027,1028,1029,1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,
  76513. 1120,1120,1122,1122,1124,1124,1126,1126,1128,1128,1130,1130,1132,1132,1134,
  76514. 1134,1136,1136,1138,1138,1140,1140,1142,1142,1144,1144,1146,1146,1148,1148,
  76515. 1150,1150,1152,1152,1154,1155,1156,1157,1158,1159,1160,1161,1162,1162,1164,
  76516. 1164,1166,1166,1168,1168,1170,1170,1172,1172,1174,1174,1176,1176,1178,1178,
  76517. 1180,1180,1182,1182,1184,1184,1186,1186,1188,1188,1190,1190,1192,1192,1194,
  76518. 1194,1196,1196,1198,1198,1200,1200,1202,1202,1204,1204,1206,1206,1208,1208,
  76519. 1210,1210,1212,1212,1214,1214,1216,1217,1217,1219,1219,1221,1221,1223,1223,
  76520. 1225,1225,1227,1227,1229,1229,1216,1232,1232,1234,1234,1236,1236,1238,1238,
  76521. 1240,1240,1242,1242,1244,1244,1246,1246,1248,1248,1250,1250,1252,1252,1254,
  76522. 1254,1256,1256,1258,1258,1260,1260,1262,1262,1264,1264,1266,1266,1268,1268,
  76523. 1270,1270,1272,1272,1274,1274,1276,1276,1278,1278,1280,1280,1282,1282,1284,
  76524. 1284,1286,1286,1288,1288,1290,1290,1292,1292,1294,1294,1296,1296,1298,1298,
  76525. 1300,1300,1302,1302,1304,1304,1306,1306,1308,1308,1310,1310,1312,1312,1314,
  76526. 1314,1316,1316,1318,1318,1320,1320,1322,1322,1324,1324,1326,1326,1328,1329,
  76527. 1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,
  76528. 1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,
  76529. 1360,1361,1362,1363,1364,1365,1366,1367,1368,1369,1370,1371,1372,1373,1374,
  76530. 1375,1376,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,
  76531. 1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,
  76532. 1357,1358,1359,1360,1361,1362,1363,1364,1365,1366,1415,1416,1417,1418,1419,
  76533. 1420,1421,1422,1423,1424,1425,1426,1427,1428,1429,1430,1431,1432,1433,1434,
  76534. 1435,1436,1437,1438,1439,1440,1441,1442,1443,1444,1445,1446,1447,1448,1449,
  76535. 1450,1451,1452,1453,1454,1455,1456,1457,1458,1459,1460,1461,1462,1463,1464,
  76536. 1465,1466,1467,1468,1469,1470,1471,1472,1473,1474,1475,1476,1477,1478,1479,
  76537. 1480,1481,1482,1483,1484,1485,1486,1487,1488,1489,1490,1491,1492,1493,1494,
  76538. 1495,1496,1497,1498,1499,1500,1501,1502,1503,1504,1505,1506,1507,1508,1509,
  76539. 1510,1511,1512,1513,1514,1515,1516,1517,1518,1519,1520,1521,1522,1523,1524,
  76540. 1525,1526,1527,1528,1529,1530,1531,1532,1533,1534,1535,1536,1537,1538,1539,
  76541. 1540,1541,1542,1543,1544,1545,1546,1547,1548,1549,1550,1551,1552,1553,1554,
  76542. 1555,1556,1557,1558,1559,1560,1561,1562,1563,1564,1565,1566,1567,1568,1569,
  76543. 1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583,1584,
  76544. 1585,1586,1587,1588,1589,1590,1591,1592,1593,1594,1595,1596,1597,1598,1599,
  76545. 1600,1601,1602,1603,1604,1605,1606,1607,1608,1609,1610,1611,1612,1613,1614,
  76546. 1615,1616,1617,1618,1619,1620,1621,1622,1623,1624,1625,1626,1627,1628,1629,
  76547. 1630,1631,1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,1642,1643,1644,
  76548. 1645,1646,1647,1648,1649,1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,
  76549. 1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,1674,
  76550. 1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,
  76551. 1690,1691,1692,1693,1694,1695,1696,1697,1698,1699,1700,1701,1702,1703,1704,
  76552. 1705,1706,1707,1708,1709,1710,1711,1712,1713,1714,1715,1716,1717,1718,1719,
  76553. 1720,1721,1722,1723,1724,1725,1726,1727,1728,1729,1730,1731,1732,1733,1734,
  76554. 1735,1736,1737,1738,1739,1740,1741,1742,1743,1744,1745,1746,1747,1748,1749,
  76555. 1750,1751,1752,1753,1754,1755,1756,1757,1758,1759,1760,1761,1762,1763,1764,
  76556. 1765,1766,1767,1768,1769,1770,1771,1772,1773,1774,1775,1776,1777,1778,1779,
  76557. 1780,1781,1782,1783,1784,1785,1786,1787,1788,1789,1790,1791,1792,1793,1794,
  76558. 1795,1796,1797,1798,1799,1800,1801,1802,1803,1804,1805,1806,1807,1808,1809,
  76559. 1810,1811,1812,1813,1814,1815,1816,1817,1818,1819,1820,1821,1822,1823,1824,
  76560. 1825,1826,1827,1828,1829,1830,1831,1832,1833,1834,1835,1836,1837,1838,1839,
  76561. 1840,1841,1842,1843,1844,1845,1846,1847,1848,1849,1850,1851,1852,1853,1854,
  76562. 1855,1856,1857,1858,1859,1860,1861,1862,1863,1864,1865,1866,1867,1868,1869,
  76563. 1870,1871,1872,1873,1874,1875,1876,1877,1878,1879,1880,1881,1882,1883,1884,
  76564. 1885,1886,1887,1888,1889,1890,1891,1892,1893,1894,1895,1896,1897,1898,1899,
  76565. 1900,1901,1902,1903,1904,1905,1906,1907,1908,1909,1910,1911,1912,1913,1914,
  76566. 1915,1916,1917,1918,1919,1920,1921,1922,1923,1924,1925,1926,1927,1928,1929,
  76567. 1930,1931,1932,1933,1934,1935,1936,1937,1938,1939,1940,1941,1942,1943,1944,
  76568. 1945,1946,1947,1948,1949,1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,
  76569. 1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,
  76570. 1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,
  76571. 1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,
  76572. 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,
  76573. 2020,2021,2022,2023,2024,2025,2026,2027,2028,2029,2030,2031,2032,2033,2034,
  76574. 2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,
  76575. 2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,
  76576. 2065,2066,2067,2068,2069,2070,2071,2072,2073,2074,2075,2076,2077,2078,2079,
  76577. 2080,2081,2082,2083,2084,2085,2086,2087,2088,2089,2090,2091,2092,2093,2094,
  76578. 2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,
  76579. 2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,
  76580. 2125,2126,2127,2128,2129,2130,2131,2132,2133,2134,2135,2136,2137,2138,2139,
  76581. 2140,2141,2142,2143,2144,2145,2146,2147,2148,2149,2150,2151,2152,2153,2154,
  76582. 2155,2156,2157,2158,2159,2160,2161,2162,2163,2164,2165,2166,2167,2168,2169,
  76583. 2170,2171,2172,2173,2174,2175,2176,2177,2178,2179,2180,2181,2182,2183,2184,
  76584. 2185,2186,2187,2188,2189,2190,2191,2192,2193,2194,2195,2196,2197,2198,2199,
  76585. 2200,2201,2202,2203,2204,2205,2206,2207,2208,2209,2210,2211,2212,2213,2214,
  76586. 2215,2216,2217,2218,2219,2220,2221,2222,2223,2224,2225,2226,2227,2228,2229,
  76587. 2230,2231,2232,2233,2234,2235,2236,2237,2238,2239,2240,2241,2242,2243,2244,
  76588. 2245,2246,2247,2248,2249,2250,2251,2252,2253,2254,2255,2256,2257,2258,2259,
  76589. 2260,2261,2262,2263,2264,2265,2266,2267,2268,2269,2270,2271,2272,2273,2274,
  76590. 2275,2276,2277,2278,2279,2280,2281,2282,2283,2284,2285,2286,2287,2288,2289,
  76591. 2290,2291,2292,2293,2294,2295,2296,2297,2298,2299,2300,2301,2302,2303,2304,
  76592. 2305,2306,2307,2308,2309,2310,2311,2312,2313,2314,2315,2316,2317,2318,2319,
  76593. 2320,2321,2322,2323,2324,2325,2326,2327,2328,2329,2330,2331,2332,2333,2334,
  76594. 2335,2336,2337,2338,2339,2340,2341,2342,2343,2344,2345,2346,2347,2348,2349,
  76595. 2350,2351,2352,2353,2354,2355,2356,2357,2358,2359,2360,2361,2362,2363,2364,
  76596. 2365,2366,2367,2368,2369,2370,2371,2372,2373,2374,2375,2376,2377,2378,2379,
  76597. 2380,2381,2382,2383,2384,2385,2386,2387,2388,2389,2390,2391,2392,2393,2394,
  76598. 2395,2396,2397,2398,2399,2400,2401,2402,2403,2404,2405,2406,2407,2408,2409,
  76599. 2410,2411,2412,2413,2414,2415,2416,2417,2418,2419,2420,2421,2422,2423,2424,
  76600. 2425,2426,2427,2428,2429,2430,2431,2432,2433,2434,2435,2436,2437,2438,2439,
  76601. 2440,2441,2442,2443,2444,2445,2446,2447,2448,2449,2450,2451,2452,2453,2454,
  76602. 2455,2456,2457,2458,2459,2460,2461,2462,2463,2464,2465,2466,2467,2468,2469,
  76603. 2470,2471,2472,2473,2474,2475,2476,2477,2478,2479,2480,2481,2482,2483,2484,
  76604. 2485,2486,2487,2488,2489,2490,2491,2492,2493,2494,2495,2496,2497,2498,2499,
  76605. 2500,2501,2502,2503,2504,2505,2506,2507,2508,2509,2510,2511,2512,2513,2514,
  76606. 2515,2516,2517,2518,2519,2520,2521,2522,2523,2524,2525,2526,2527,2528,2529,
  76607. 2530,2531,2532,2533,2534,2535,2536,2537,2538,2539,2540,2541,2542,2543,2544,
  76608. 2545,2546,2547,2548,2549,2550,2551,2552,2553,2554,2555,2556,2557,2558,2559,
  76609. 2560,2561,2562,2563,2564,2565,2566,2567,2568,2569,2570,2571,2572,2573,2574,
  76610. 2575,2576,2577,2578,2579,2580,2581,2582,2583,2584,2585,2586,2587,2588,2589,
  76611. 2590,2591,2592,2593,2594,2595,2596,2597,2598,2599,2600,2601,2602,2603,2604,
  76612. 2605,2606,2607,2608,2609,2610,2611,2612,2613,2614,2615,2616,2617,2618,2619,
  76613. 2620,2621,2622,2623,2624,2625,2626,2627,2628,2629,2630,2631,2632,2633,2634,
  76614. 2635,2636,2637,2638,2639,2640,2641,2642,2643,2644,2645,2646,2647,2648,2649,
  76615. 2650,2651,2652,2653,2654,2655,2656,2657,2658,2659,2660,2661,2662,2663,2664,
  76616. 2665,2666,2667,2668,2669,2670,2671,2672,2673,2674,2675,2676,2677,2678,2679,
  76617. 2680,2681,2682,2683,2684,2685,2686,2687,2688,2689,2690,2691,2692,2693,2694,
  76618. 2695,2696,2697,2698,2699,2700,2701,2702,2703,2704,2705,2706,2707,2708,2709,
  76619. 2710,2711,2712,2713,2714,2715,2716,2717,2718,2719,2720,2721,2722,2723,2724,
  76620. 2725,2726,2727,2728,2729,2730,2731,2732,2733,2734,2735,2736,2737,2738,2739,
  76621. 2740,2741,2742,2743,2744,2745,2746,2747,2748,2749,2750,2751,2752,2753,2754,
  76622. 2755,2756,2757,2758,2759,2760,2761,2762,2763,2764,2765,2766,2767,2768,2769,
  76623. 2770,2771,2772,2773,2774,2775,2776,2777,2778,2779,2780,2781,2782,2783,2784,
  76624. 2785,2786,2787,2788,2789,2790,2791,2792,2793,2794,2795,2796,2797,2798,2799,
  76625. 2800,2801,2802,2803,2804,2805,2806,2807,2808,2809,2810,2811,2812,2813,2814,
  76626. 2815,2816,2817,2818,2819,2820,2821,2822,2823,2824,2825,2826,2827,2828,2829,
  76627. 2830,2831,2832,2833,2834,2835,2836,2837,2838,2839,2840,2841,2842,2843,2844,
  76628. 2845,2846,2847,2848,2849,2850,2851,2852,2853,2854,2855,2856,2857,2858,2859,
  76629. 2860,2861,2862,2863,2864,2865,2866,2867,2868,2869,2870,2871,2872,2873,2874,
  76630. 2875,2876,2877,2878,2879,2880,2881,2882,2883,2884,2885,2886,2887,2888,2889,
  76631. 2890,2891,2892,2893,2894,2895,2896,2897,2898,2899,2900,2901,2902,2903,2904,
  76632. 2905,2906,2907,2908,2909,2910,2911,2912,2913,2914,2915,2916,2917,2918,2919,
  76633. 2920,2921,2922,2923,2924,2925,2926,2927,2928,2929,2930,2931,2932,2933,2934,
  76634. 2935,2936,2937,2938,2939,2940,2941,2942,2943,2944,2945,2946,2947,2948,2949,
  76635. 2950,2951,2952,2953,2954,2955,2956,2957,2958,2959,2960,2961,2962,2963,2964,
  76636. 2965,2966,2967,2968,2969,2970,2971,2972,2973,2974,2975,2976,2977,2978,2979,
  76637. 2980,2981,2982,2983,2984,2985,2986,2987,2988,2989,2990,2991,2992,2993,2994,
  76638. 2995,2996,2997,2998,2999,3000,3001,3002,3003,3004,3005,3006,3007,3008,3009,
  76639. 3010,3011,3012,3013,3014,3015,3016,3017,3018,3019,3020,3021,3022,3023,3024,
  76640. 3025,3026,3027,3028,3029,3030,3031,3032,3033,3034,3035,3036,3037,3038,3039,
  76641. 3040,3041,3042,3043,3044,3045,3046,3047,3048,3049,3050,3051,3052,3053,3054,
  76642. 3055,3056,3057,3058,3059,3060,3061,3062,3063,3064,3065,3066,3067,3068,3069,
  76643. 3070,3071,3072,3073,3074,3075,3076,3077,3078,3079,3080,3081,3082,3083,3084,
  76644. 3085,3086,3087,3088,3089,3090,3091,3092,3093,3094,3095,3096,3097,3098,3099,
  76645. 3100,3101,3102,3103,3104,3105,3106,3107,3108,3109,3110,3111,3112,3113,3114,
  76646. 3115,3116,3117,3118,3119,3120,3121,3122,3123,3124,3125,3126,3127,3128,3129,
  76647. 3130,3131,3132,3133,3134,3135,3136,3137,3138,3139,3140,3141,3142,3143,3144,
  76648. 3145,3146,3147,3148,3149,3150,3151,3152,3153,3154,3155,3156,3157,3158,3159,
  76649. 3160,3161,3162,3163,3164,3165,3166,3167,3168,3169,3170,3171,3172,3173,3174,
  76650. 3175,3176,3177,3178,3179,3180,3181,3182,3183,3184,3185,3186,3187,3188,3189,
  76651. 3190,3191,3192,3193,3194,3195,3196,3197,3198,3199,3200,3201,3202,3203,3204,
  76652. 3205,3206,3207,3208,3209,3210,3211,3212,3213,3214,3215,3216,3217,3218,3219,
  76653. 3220,3221,3222,3223,3224,3225,3226,3227,3228,3229,3230,3231,3232,3233,3234,
  76654. 3235,3236,3237,3238,3239,3240,3241,3242,3243,3244,3245,3246,3247,3248,3249,
  76655. 3250,3251,3252,3253,3254,3255,3256,3257,3258,3259,3260,3261,3262,3263,3264,
  76656. 3265,3266,3267,3268,3269,3270,3271,3272,3273,3274,3275,3276,3277,3278,3279,
  76657. 3280,3281,3282,3283,3284,3285,3286,3287,3288,3289,3290,3291,3292,3293,3294,
  76658. 3295,3296,3297,3298,3299,3300,3301,3302,3303,3304,3305,3306,3307,3308,3309,
  76659. 3310,3311,3312,3313,3314,3315,3316,3317,3318,3319,3320,3321,3322,3323,3324,
  76660. 3325,3326,3327,3328,3329,3330,3331,3332,3333,3334,3335,3336,3337,3338,3339,
  76661. 3340,3341,3342,3343,3344,3345,3346,3347,3348,3349,3350,3351,3352,3353,3354,
  76662. 3355,3356,3357,3358,3359,3360,3361,3362,3363,3364,3365,3366,3367,3368,3369,
  76663. 3370,3371,3372,3373,3374,3375,3376,3377,3378,3379,3380,3381,3382,3383,3384,
  76664. 3385,3386,3387,3388,3389,3390,3391,3392,3393,3394,3395,3396,3397,3398,3399,
  76665. 3400,3401,3402,3403,3404,3405,3406,3407,3408,3409,3410,3411,3412,3413,3414,
  76666. 3415,3416,3417,3418,3419,3420,3421,3422,3423,3424,3425,3426,3427,3428,3429,
  76667. 3430,3431,3432,3433,3434,3435,3436,3437,3438,3439,3440,3441,3442,3443,3444,
  76668. 3445,3446,3447,3448,3449,3450,3451,3452,3453,3454,3455,3456,3457,3458,3459,
  76669. 3460,3461,3462,3463,3464,3465,3466,3467,3468,3469,3470,3471,3472,3473,3474,
  76670. 3475,3476,3477,3478,3479,3480,3481,3482,3483,3484,3485,3486,3487,3488,3489,
  76671. 3490,3491,3492,3493,3494,3495,3496,3497,3498,3499,3500,3501,3502,3503,3504,
  76672. 3505,3506,3507,3508,3509,3510,3511,3512,3513,3514,3515,3516,3517,3518,3519,
  76673. 3520,3521,3522,3523,3524,3525,3526,3527,3528,3529,3530,3531,3532,3533,3534,
  76674. 3535,3536,3537,3538,3539,3540,3541,3542,3543,3544,3545,3546,3547,3548,3549,
  76675. 3550,3551,3552,3553,3554,3555,3556,3557,3558,3559,3560,3561,3562,3563,3564,
  76676. 3565,3566,3567,3568,3569,3570,3571,3572,3573,3574,3575,3576,3577,3578,3579,
  76677. 3580,3581,3582,3583,3584,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,
  76678. 3595,3596,3597,3598,3599,3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,
  76679. 3610,3611,3612,3613,3614,3615,3616,3617,3618,3619,3620,3621,3622,3623,3624,
  76680. 3625,3626,3627,3628,3629,3630,3631,3632,3633,3634,3635,3636,3637,3638,3639,
  76681. 3640,3641,3642,3643,3644,3645,3646,3647,3648,3649,3650,3651,3652,3653,3654,
  76682. 3655,3656,3657,3658,3659,3660,3661,3662,3663,3664,3665,3666,3667,3668,3669,
  76683. 3670,3671,3672,3673,3674,3675,3676,3677,3678,3679,3680,3681,3682,3683,3684,
  76684. 3685,3686,3687,3688,3689,3690,3691,3692,3693,3694,3695,3696,3697,3698,3699,
  76685. 3700,3701,3702,3703,3704,3705,3706,3707,3708,3709,3710,3711,3712,3713,3714,
  76686. 3715,3716,3717,3718,3719,3720,3721,3722,3723,3724,3725,3726,3727,3728,3729,
  76687. 3730,3731,3732,3733,3734,3735,3736,3737,3738,3739,3740,3741,3742,3743,3744,
  76688. 3745,3746,3747,3748,3749,3750,3751,3752,3753,3754,3755,3756,3757,3758,3759,
  76689. 3760,3761,3762,3763,3764,3765,3766,3767,3768,3769,3770,3771,3772,3773,3774,
  76690. 3775,3776,3777,3778,3779,3780,3781,3782,3783,3784,3785,3786,3787,3788,3789,
  76691. 3790,3791,3792,3793,3794,3795,3796,3797,3798,3799,3800,3801,3802,3803,3804,
  76692. 3805,3806,3807,3808,3809,3810,3811,3812,3813,3814,3815,3816,3817,3818,3819,
  76693. 3820,3821,3822,3823,3824,3825,3826,3827,3828,3829,3830,3831,3832,3833,3834,
  76694. 3835,3836,3837,3838,3839,3840,3841,3842,3843,3844,3845,3846,3847,3848,3849,
  76695. 3850,3851,3852,3853,3854,3855,3856,3857,3858,3859,3860,3861,3862,3863,3864,
  76696. 3865,3866,3867,3868,3869,3870,3871,3872,3873,3874,3875,3876,3877,3878,3879,
  76697. 3880,3881,3882,3883,3884,3885,3886,3887,3888,3889,3890,3891,3892,3893,3894,
  76698. 3895,3896,3897,3898,3899,3900,3901,3902,3903,3904,3905,3906,3907,3908,3909,
  76699. 3910,3911,3912,3913,3914,3915,3916,3917,3918,3919,3920,3921,3922,3923,3924,
  76700. 3925,3926,3927,3928,3929,3930,3931,3932,3933,3934,3935,3936,3937,3938,3939,
  76701. 3940,3941,3942,3943,3944,3945,3946,3947,3948,3949,3950,3951,3952,3953,3954,
  76702. 3955,3956,3957,3958,3959,3960,3961,3962,3963,3964,3965,3966,3967,3968,3969,
  76703. 3970,3971,3972,3973,3974,3975,3976,3977,3978,3979,3980,3981,3982,3983,3984,
  76704. 3985,3986,3987,3988,3989,3990,3991,3992,3993,3994,3995,3996,3997,3998,3999,
  76705. 4000,4001,4002,4003,4004,4005,4006,4007,4008,4009,4010,4011,4012,4013,4014,
  76706. 4015,4016,4017,4018,4019,4020,4021,4022,4023,4024,4025,4026,4027,4028,4029,
  76707. 4030,4031,4032,4033,4034,4035,4036,4037,4038,4039,4040,4041,4042,4043,4044,
  76708. 4045,4046,4047,4048,4049,4050,4051,4052,4053,4054,4055,4056,4057,4058,4059,
  76709. 4060,4061,4062,4063,4064,4065,4066,4067,4068,4069,4070,4071,4072,4073,4074,
  76710. 4075,4076,4077,4078,4079,4080,4081,4082,4083,4084,4085,4086,4087,4088,4089,
  76711. 4090,4091,4092,4093,4094,4095,4096,4097,4098,4099,4100,4101,4102,4103,4104,
  76712. 4105,4106,4107,4108,4109,4110,4111,4112,4113,4114,4115,4116,4117,4118,4119,
  76713. 4120,4121,4122,4123,4124,4125,4126,4127,4128,4129,4130,4131,4132,4133,4134,
  76714. 4135,4136,4137,4138,4139,4140,4141,4142,4143,4144,4145,4146,4147,4148,4149,
  76715. 4150,4151,4152,4153,4154,4155,4156,4157,4158,4159,4160,4161,4162,4163,4164,
  76716. 4165,4166,4167,4168,4169,4170,4171,4172,4173,4174,4175,4176,4177,4178,4179,
  76717. 4180,4181,4182,4183,4184,4185,4186,4187,4188,4189,4190,4191,4192,4193,4194,
  76718. 4195,4196,4197,4198,4199,4200,4201,4202,4203,4204,4205,4206,4207,4208,4209,
  76719. 4210,4211,4212,4213,4214,4215,4216,4217,4218,4219,4220,4221,4222,4223,4224,
  76720. 4225,4226,4227,4228,4229,4230,4231,4232,4233,4234,4235,4236,4237,4238,4239,
  76721. 4240,4241,4242,4243,4244,4245,4246,4247,4248,4249,4250,4251,4252,4253,4254,
  76722. 4255,4256,4257,4258,4259,4260,4261,4262,4263,4264,4265,4266,4267,4268,4269,
  76723. 4270,4271,4272,4273,4274,4275,4276,4277,4278,4279,4280,4281,4282,4283,4284,
  76724. 4285,4286,4287,4288,4289,4290,4291,4292,4293,4294,4295,4296,4297,4298,4299,
  76725. 4300,4301,4302,4303,4304,4305,4306,4307,4308,4309,4310,4311,4312,4313,4314,
  76726. 4315,4316,4317,4318,4319,4320,4321,4322,4323,4324,4325,4326,4327,4328,4329,
  76727. 4330,4331,4332,4333,4334,4335,4336,4337,4338,4339,4340,4341,4342,4343,4344,
  76728. 4345,4346,4347,4348,4349,4350,4351,4352,4353,4354,4355,4356,4357,4358,4359,
  76729. 4360,4361,4362,4363,4364,4365,4366,4367,4368,4369,4370,4371,4372,4373,4374,
  76730. 4375,4376,4377,4378,4379,4380,4381,4382,4383,4384,4385,4386,4387,4388,4389,
  76731. 4390,4391,4392,4393,4394,4395,4396,4397,4398,4399,4400,4401,4402,4403,4404,
  76732. 4405,4406,4407,4408,4409,4410,4411,4412,4413,4414,4415,4416,4417,4418,4419,
  76733. 4420,4421,4422,4423,4424,4425,4426,4427,4428,4429,4430,4431,4432,4433,4434,
  76734. 4435,4436,4437,4438,4439,4440,4441,4442,4443,4444,4445,4446,4447,4448,4449,
  76735. 4450,4451,4452,4453,4454,4455,4456,4457,4458,4459,4460,4461,4462,4463,4464,
  76736. 4465,4466,4467,4468,4469,4470,4471,4472,4473,4474,4475,4476,4477,4478,4479,
  76737. 4480,4481,4482,4483,4484,4485,4486,4487,4488,4489,4490,4491,4492,4493,4494,
  76738. 4495,4496,4497,4498,4499,4500,4501,4502,4503,4504,4505,4506,4507,4508,4509,
  76739. 4510,4511,4512,4513,4514,4515,4516,4517,4518,4519,4520,4521,4522,4523,4524,
  76740. 4525,4526,4527,4528,4529,4530,4531,4532,4533,4534,4535,4536,4537,4538,4539,
  76741. 4540,4541,4542,4543,4544,4545,4546,4547,4548,4549,4550,4551,4552,4553,4554,
  76742. 4555,4556,4557,4558,4559,4560,4561,4562,4563,4564,4565,4566,4567,4568,4569,
  76743. 4570,4571,4572,4573,4574,4575,4576,4577,4578,4579,4580,4581,4582,4583,4584,
  76744. 4585,4586,4587,4588,4589,4590,4591,4592,4593,4594,4595,4596,4597,4598,4599,
  76745. 4600,4601,4602,4603,4604,4605,4606,4607,4608,4609,4610,4611,4612,4613,4614,
  76746. 4615,4616,4617,4618,4619,4620,4621,4622,4623,4624,4625,4626,4627,4628,4629,
  76747. 4630,4631,4632,4633,4634,4635,4636,4637,4638,4639,4640,4641,4642,4643,4644,
  76748. 4645,4646,4647,4648,4649,4650,4651,4652,4653,4654,4655,4656,4657,4658,4659,
  76749. 4660,4661,4662,4663,4664,4665,4666,4667,4668,4669,4670,4671,4672,4673,4674,
  76750. 4675,4676,4677,4678,4679,4680,4681,4682,4683,4684,4685,4686,4687,4688,4689,
  76751. 4690,4691,4692,4693,4694,4695,4696,4697,4698,4699,4700,4701,4702,4703,4704,
  76752. 4705,4706,4707,4708,4709,4710,4711,4712,4713,4714,4715,4716,4717,4718,4719,
  76753. 4720,4721,4722,4723,4724,4725,4726,4727,4728,4729,4730,4731,4732,4733,4734,
  76754. 4735,4736,4737,4738,4739,4740,4741,4742,4743,4744,4745,4746,4747,4748,4749,
  76755. 4750,4751,4752,4753,4754,4755,4756,4757,4758,4759,4760,4761,4762,4763,4764,
  76756. 4765,4766,4767,4768,4769,4770,4771,4772,4773,4774,4775,4776,4777,4778,4779,
  76757. 4780,4781,4782,4783,4784,4785,4786,4787,4788,4789,4790,4791,4792,4793,4794,
  76758. 4795,4796,4797,4798,4799,4800,4801,4802,4803,4804,4805,4806,4807,4808,4809,
  76759. 4810,4811,4812,4813,4814,4815,4816,4817,4818,4819,4820,4821,4822,4823,4824,
  76760. 4825,4826,4827,4828,4829,4830,4831,4832,4833,4834,4835,4836,4837,4838,4839,
  76761. 4840,4841,4842,4843,4844,4845,4846,4847,4848,4849,4850,4851,4852,4853,4854,
  76762. 4855,4856,4857,4858,4859,4860,4861,4862,4863,4864,4865,4866,4867,4868,4869,
  76763. 4870,4871,4872,4873,4874,4875,4876,4877,4878,4879,4880,4881,4882,4883,4884,
  76764. 4885,4886,4887,4888,4889,4890,4891,4892,4893,4894,4895,4896,4897,4898,4899,
  76765. 4900,4901,4902,4903,4904,4905,4906,4907,4908,4909,4910,4911,4912,4913,4914,
  76766. 4915,4916,4917,4918,4919,4920,4921,4922,4923,4924,4925,4926,4927,4928,4929,
  76767. 4930,4931,4932,4933,4934,4935,4936,4937,4938,4939,4940,4941,4942,4943,4944,
  76768. 4945,4946,4947,4948,4949,4950,4951,4952,4953,4954,4955,4956,4957,4958,4959,
  76769. 4960,4961,4962,4963,4964,4965,4966,4967,4968,4969,4970,4971,4972,4973,4974,
  76770. 4975,4976,4977,4978,4979,4980,4981,4982,4983,4984,4985,4986,4987,4988,4989,
  76771. 4990,4991,4992,4993,4994,4995,4996,4997,4998,4999,5000,5001,5002,5003,5004,
  76772. 5005,5006,5007,5008,5009,5010,5011,5012,5013,5014,5015,5016,5017,5018,5019,
  76773. 5020,5021,5022,5023,5024,5025,5026,5027,5028,5029,5030,5031,5032,5033,5034,
  76774. 5035,5036,5037,5038,5039,5040,5041,5042,5043,5044,5045,5046,5047,5048,5049,
  76775. 5050,5051,5052,5053,5054,5055,5056,5057,5058,5059,5060,5061,5062,5063,5064,
  76776. 5065,5066,5067,5068,5069,5070,5071,5072,5073,5074,5075,5076,5077,5078,5079,
  76777. 5080,5081,5082,5083,5084,5085,5086,5087,5088,5089,5090,5091,5092,5093,5094,
  76778. 5095,5096,5097,5098,5099,5100,5101,5102,5103,5104,5105,5106,5107,5108,5109,
  76779. 5110,5111,5104,5105,5106,5107,5108,5109,5118,5119,5120,5121,5122,5123,5124,
  76780. 5125,5126,5127,5128,5129,5130,5131,5132,5133,5134,5135,5136,5137,5138,5139,
  76781. 5140,5141,5142,5143,5144,5145,5146,5147,5148,5149,5150,5151,5152,5153,5154,
  76782. 5155,5156,5157,5158,5159,5160,5161,5162,5163,5164,5165,5166,5167,5168,5169,
  76783. 5170,5171,5172,5173,5174,5175,5176,5177,5178,5179,5180,5181,5182,5183,5184,
  76784. 5185,5186,5187,5188,5189,5190,5191,5192,5193,5194,5195,5196,5197,5198,5199,
  76785. 5200,5201,5202,5203,5204,5205,5206,5207,5208,5209,5210,5211,5212,5213,5214,
  76786. 5215,5216,5217,5218,5219,5220,5221,5222,5223,5224,5225,5226,5227,5228,5229,
  76787. 5230,5231,5232,5233,5234,5235,5236,5237,5238,5239,5240,5241,5242,5243,5244,
  76788. 5245,5246,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258,5259,
  76789. 5260,5261,5262,5263,5264,5265,5266,5267,5268,5269,5270,5271,5272,5273,5274,
  76790. 5275,5276,5277,5278,5279,5280,5281,5282,5283,5284,5285,5286,5287,5288,5289,
  76791. 5290,5291,5292,5293,5294,5295,5296,5297,5298,5299,5300,5301,5302,5303,5304,
  76792. 5305,5306,5307,5308,5309,5310,5311,5312,5313,5314,5315,5316,5317,5318,5319,
  76793. 5320,5321,5322,5323,5324,5325,5326,5327,5328,5329,5330,5331,5332,5333,5334,
  76794. 5335,5336,5337,5338,5339,5340,5341,5342,5343,5344,5345,5346,5347,5348,5349,
  76795. 5350,5351,5352,5353,5354,5355,5356,5357,5358,5359,5360,5361,5362,5363,5364,
  76796. 5365,5366,5367,5368,5369,5370,5371,5372,5373,5374,5375,5376,5377,5378,5379,
  76797. 5380,5381,5382,5383,5384,5385,5386,5387,5388,5389,5390,5391,5392,5393,5394,
  76798. 5395,5396,5397,5398,5399,5400,5401,5402,5403,5404,5405,5406,5407,5408,5409,
  76799. 5410,5411,5412,5413,5414,5415,5416,5417,5418,5419,5420,5421,5422,5423,5424,
  76800. 5425,5426,5427,5428,5429,5430,5431,5432,5433,5434,5435,5436,5437,5438,5439,
  76801. 5440,5441,5442,5443,5444,5445,5446,5447,5448,5449,5450,5451,5452,5453,5454,
  76802. 5455,5456,5457,5458,5459,5460,5461,5462,5463,5464,5465,5466,5467,5468,5469,
  76803. 5470,5471,5472,5473,5474,5475,5476,5477,5478,5479,5480,5481,5482,5483,5484,
  76804. 5485,5486,5487,5488,5489,5490,5491,5492,5493,5494,5495,5496,5497,5498,5499,
  76805. 5500,5501,5502,5503,5504,5505,5506,5507,5508,5509,5510,5511,5512,5513,5514,
  76806. 5515,5516,5517,5518,5519,5520,5521,5522,5523,5524,5525,5526,5527,5528,5529,
  76807. 5530,5531,5532,5533,5534,5535,5536,5537,5538,5539,5540,5541,5542,5543,5544,
  76808. 5545,5546,5547,5548,5549,5550,5551,5552,5553,5554,5555,5556,5557,5558,5559,
  76809. 5560,5561,5562,5563,5564,5565,5566,5567,5568,5569,5570,5571,5572,5573,5574,
  76810. 5575,5576,5577,5578,5579,5580,5581,5582,5583,5584,5585,5586,5587,5588,5589,
  76811. 5590,5591,5592,5593,5594,5595,5596,5597,5598,5599,5600,5601,5602,5603,5604,
  76812. 5605,5606,5607,5608,5609,5610,5611,5612,5613,5614,5615,5616,5617,5618,5619,
  76813. 5620,5621,5622,5623,5624,5625,5626,5627,5628,5629,5630,5631,5632,5633,5634,
  76814. 5635,5636,5637,5638,5639,5640,5641,5642,5643,5644,5645,5646,5647,5648,5649,
  76815. 5650,5651,5652,5653,5654,5655,5656,5657,5658,5659,5660,5661,5662,5663,5664,
  76816. 5665,5666,5667,5668,5669,5670,5671,5672,5673,5674,5675,5676,5677,5678,5679,
  76817. 5680,5681,5682,5683,5684,5685,5686,5687,5688,5689,5690,5691,5692,5693,5694,
  76818. 5695,5696,5697,5698,5699,5700,5701,5702,5703,5704,5705,5706,5707,5708,5709,
  76819. 5710,5711,5712,5713,5714,5715,5716,5717,5718,5719,5720,5721,5722,5723,5724,
  76820. 5725,5726,5727,5728,5729,5730,5731,5732,5733,5734,5735,5736,5737,5738,5739,
  76821. 5740,5741,5742,5743,5744,5745,5746,5747,5748,5749,5750,5751,5752,5753,5754,
  76822. 5755,5756,5757,5758,5759,5760,5761,5762,5763,5764,5765,5766,5767,5768,5769,
  76823. 5770,5771,5772,5773,5774,5775,5776,5777,5778,5779,5780,5781,5782,5783,5784,
  76824. 5785,5786,5787,5788,5789,5790,5791,5792,5793,5794,5795,5796,5797,5798,5799,
  76825. 5800,5801,5802,5803,5804,5805,5806,5807,5808,5809,5810,5811,5812,5813,5814,
  76826. 5815,5816,5817,5818,5819,5820,5821,5822,5823,5824,5825,5826,5827,5828,5829,
  76827. 5830,5831,5832,5833,5834,5835,5836,5837,5838,5839,5840,5841,5842,5843,5844,
  76828. 5845,5846,5847,5848,5849,5850,5851,5852,5853,5854,5855,5856,5857,5858,5859,
  76829. 5860,5861,5862,5863,5864,5865,5866,5867,5868,5869,5870,5871,5872,5873,5874,
  76830. 5875,5876,5877,5878,5879,5880,5881,5882,5883,5884,5885,5886,5887,5888,5889,
  76831. 5890,5891,5892,5893,5894,5895,5896,5897,5898,5899,5900,5901,5902,5903,5904,
  76832. 5905,5906,5907,5908,5909,5910,5911,5912,5913,5914,5915,5916,5917,5918,5919,
  76833. 5920,5921,5922,5923,5924,5925,5926,5927,5928,5929,5930,5931,5932,5933,5934,
  76834. 5935,5936,5937,5938,5939,5940,5941,5942,5943,5944,5945,5946,5947,5948,5949,
  76835. 5950,5951,5952,5953,5954,5955,5956,5957,5958,5959,5960,5961,5962,5963,5964,
  76836. 5965,5966,5967,5968,5969,5970,5971,5972,5973,5974,5975,5976,5977,5978,5979,
  76837. 5980,5981,5982,5983,5984,5985,5986,5987,5988,5989,5990,5991,5992,5993,5994,
  76838. 5995,5996,5997,5998,5999,6000,6001,6002,6003,6004,6005,6006,6007,6008,6009,
  76839. 6010,6011,6012,6013,6014,6015,6016,6017,6018,6019,6020,6021,6022,6023,6024,
  76840. 6025,6026,6027,6028,6029,6030,6031,6032,6033,6034,6035,6036,6037,6038,6039,
  76841. 6040,6041,6042,6043,6044,6045,6046,6047,6048,6049,6050,6051,6052,6053,6054,
  76842. 6055,6056,6057,6058,6059,6060,6061,6062,6063,6064,6065,6066,6067,6068,6069,
  76843. 6070,6071,6072,6073,6074,6075,6076,6077,6078,6079,6080,6081,6082,6083,6084,
  76844. 6085,6086,6087,6088,6089,6090,6091,6092,6093,6094,6095,6096,6097,6098,6099,
  76845. 6100,6101,6102,6103,6104,6105,6106,6107,6108,6109,6110,6111,6112,6113,6114,
  76846. 6115,6116,6117,6118,6119,6120,6121,6122,6123,6124,6125,6126,6127,6128,6129,
  76847. 6130,6131,6132,6133,6134,6135,6136,6137,6138,6139,6140,6141,6142,6143,6144,
  76848. 6145,6146,6147,6148,6149,6150,6151,6152,6153,6154,6155,6156,6157,6158,6159,
  76849. 6160,6161,6162,6163,6164,6165,6166,6167,6168,6169,6170,6171,6172,6173,6174,
  76850. 6175,6176,6177,6178,6179,6180,6181,6182,6183,6184,6185,6186,6187,6188,6189,
  76851. 6190,6191,6192,6193,6194,6195,6196,6197,6198,6199,6200,6201,6202,6203,6204,
  76852. 6205,6206,6207,6208,6209,6210,6211,6212,6213,6214,6215,6216,6217,6218,6219,
  76853. 6220,6221,6222,6223,6224,6225,6226,6227,6228,6229,6230,6231,6232,6233,6234,
  76854. 6235,6236,6237,6238,6239,6240,6241,6242,6243,6244,6245,6246,6247,6248,6249,
  76855. 6250,6251,6252,6253,6254,6255,6256,6257,6258,6259,6260,6261,6262,6263,6264,
  76856. 6265,6266,6267,6268,6269,6270,6271,6272,6273,6274,6275,6276,6277,6278,6279,
  76857. 6280,6281,6282,6283,6284,6285,6286,6287,6288,6289,6290,6291,6292,6293,6294,
  76858. 6295,6296,6297,6298,6299,6300,6301,6302,6303,6304,6305,6306,6307,6308,6309,
  76859. 6310,6311,6312,6313,6314,6315,6316,6317,6318,6319,6320,6321,6322,6323,6324,
  76860. 6325,6326,6327,6328,6329,6330,6331,6332,6333,6334,6335,6336,6337,6338,6339,
  76861. 6340,6341,6342,6343,6344,6345,6346,6347,6348,6349,6350,6351,6352,6353,6354,
  76862. 6355,6356,6357,6358,6359,6360,6361,6362,6363,6364,6365,6366,6367,6368,6369,
  76863. 6370,6371,6372,6373,6374,6375,6376,6377,6378,6379,6380,6381,6382,6383,6384,
  76864. 6385,6386,6387,6388,6389,6390,6391,6392,6393,6394,6395,6396,6397,6398,6399,
  76865. 6400,6401,6402,6403,6404,6405,6406,6407,6408,6409,6410,6411,6412,6413,6414,
  76866. 6415,6416,6417,6418,6419,6420,6421,6422,6423,6424,6425,6426,6427,6428,6429,
  76867. 6430,6431,6432,6433,6434,6435,6436,6437,6438,6439,6440,6441,6442,6443,6444,
  76868. 6445,6446,6447,6448,6449,6450,6451,6452,6453,6454,6455,6456,6457,6458,6459,
  76869. 6460,6461,6462,6463,6464,6465,6466,6467,6468,6469,6470,6471,6472,6473,6474,
  76870. 6475,6476,6477,6478,6479,6480,6481,6482,6483,6484,6485,6486,6487,6488,6489,
  76871. 6490,6491,6492,6493,6494,6495,6496,6497,6498,6499,6500,6501,6502,6503,6504,
  76872. 6505,6506,6507,6508,6509,6510,6511,6512,6513,6514,6515,6516,6517,6518,6519,
  76873. 6520,6521,6522,6523,6524,6525,6526,6527,6528,6529,6530,6531,6532,6533,6534,
  76874. 6535,6536,6537,6538,6539,6540,6541,6542,6543,6544,6545,6546,6547,6548,6549,
  76875. 6550,6551,6552,6553,6554,6555,6556,6557,6558,6559,6560,6561,6562,6563,6564,
  76876. 6565,6566,6567,6568,6569,6570,6571,6572,6573,6574,6575,6576,6577,6578,6579,
  76877. 6580,6581,6582,6583,6584,6585,6586,6587,6588,6589,6590,6591,6592,6593,6594,
  76878. 6595,6596,6597,6598,6599,6600,6601,6602,6603,6604,6605,6606,6607,6608,6609,
  76879. 6610,6611,6612,6613,6614,6615,6616,6617,6618,6619,6620,6621,6622,6623,6624,
  76880. 6625,6626,6627,6628,6629,6630,6631,6632,6633,6634,6635,6636,6637,6638,6639,
  76881. 6640,6641,6642,6643,6644,6645,6646,6647,6648,6649,6650,6651,6652,6653,6654,
  76882. 6655,6656,6657,6658,6659,6660,6661,6662,6663,6664,6665,6666,6667,6668,6669,
  76883. 6670,6671,6672,6673,6674,6675,6676,6677,6678,6679,6680,6681,6682,6683,6684,
  76884. 6685,6686,6687,6688,6689,6690,6691,6692,6693,6694,6695,6696,6697,6698,6699,
  76885. 6700,6701,6702,6703,6704,6705,6706,6707,6708,6709,6710,6711,6712,6713,6714,
  76886. 6715,6716,6717,6718,6719,6720,6721,6722,6723,6724,6725,6726,6727,6728,6729,
  76887. 6730,6731,6732,6733,6734,6735,6736,6737,6738,6739,6740,6741,6742,6743,6744,
  76888. 6745,6746,6747,6748,6749,6750,6751,6752,6753,6754,6755,6756,6757,6758,6759,
  76889. 6760,6761,6762,6763,6764,6765,6766,6767,6768,6769,6770,6771,6772,6773,6774,
  76890. 6775,6776,6777,6778,6779,6780,6781,6782,6783,6784,6785,6786,6787,6788,6789,
  76891. 6790,6791,6792,6793,6794,6795,6796,6797,6798,6799,6800,6801,6802,6803,6804,
  76892. 6805,6806,6807,6808,6809,6810,6811,6812,6813,6814,6815,6816,6817,6818,6819,
  76893. 6820,6821,6822,6823,6824,6825,6826,6827,6828,6829,6830,6831,6832,6833,6834,
  76894. 6835,6836,6837,6838,6839,6840,6841,6842,6843,6844,6845,6846,6847,6848,6849,
  76895. 6850,6851,6852,6853,6854,6855,6856,6857,6858,6859,6860,6861,6862,6863,6864,
  76896. 6865,6866,6867,6868,6869,6870,6871,6872,6873,6874,6875,6876,6877,6878,6879,
  76897. 6880,6881,6882,6883,6884,6885,6886,6887,6888,6889,6890,6891,6892,6893,6894,
  76898. 6895,6896,6897,6898,6899,6900,6901,6902,6903,6904,6905,6906,6907,6908,6909,
  76899. 6910,6911,6912,6913,6914,6915,6916,6917,6918,6919,6920,6921,6922,6923,6924,
  76900. 6925,6926,6927,6928,6929,6930,6931,6932,6933,6934,6935,6936,6937,6938,6939,
  76901. 6940,6941,6942,6943,6944,6945,6946,6947,6948,6949,6950,6951,6952,6953,6954,
  76902. 6955,6956,6957,6958,6959,6960,6961,6962,6963,6964,6965,6966,6967,6968,6969,
  76903. 6970,6971,6972,6973,6974,6975,6976,6977,6978,6979,6980,6981,6982,6983,6984,
  76904. 6985,6986,6987,6988,6989,6990,6991,6992,6993,6994,6995,6996,6997,6998,6999,
  76905. 7000,7001,7002,7003,7004,7005,7006,7007,7008,7009,7010,7011,7012,7013,7014,
  76906. 7015,7016,7017,7018,7019,7020,7021,7022,7023,7024,7025,7026,7027,7028,7029,
  76907. 7030,7031,7032,7033,7034,7035,7036,7037,7038,7039,7040,7041,7042,7043,7044,
  76908. 7045,7046,7047,7048,7049,7050,7051,7052,7053,7054,7055,7056,7057,7058,7059,
  76909. 7060,7061,7062,7063,7064,7065,7066,7067,7068,7069,7070,7071,7072,7073,7074,
  76910. 7075,7076,7077,7078,7079,7080,7081,7082,7083,7084,7085,7086,7087,7088,7089,
  76911. 7090,7091,7092,7093,7094,7095,7096,7097,7098,7099,7100,7101,7102,7103,7104,
  76912. 7105,7106,7107,7108,7109,7110,7111,7112,7113,7114,7115,7116,7117,7118,7119,
  76913. 7120,7121,7122,7123,7124,7125,7126,7127,7128,7129,7130,7131,7132,7133,7134,
  76914. 7135,7136,7137,7138,7139,7140,7141,7142,7143,7144,7145,7146,7147,7148,7149,
  76915. 7150,7151,7152,7153,7154,7155,7156,7157,7158,7159,7160,7161,7162,7163,7164,
  76916. 7165,7166,7167,7168,7169,7170,7171,7172,7173,7174,7175,7176,7177,7178,7179,
  76917. 7180,7181,7182,7183,7184,7185,7186,7187,7188,7189,7190,7191,7192,7193,7194,
  76918. 7195,7196,7197,7198,7199,7200,7201,7202,7203,7204,7205,7206,7207,7208,7209,
  76919. 7210,7211,7212,7213,7214,7215,7216,7217,7218,7219,7220,7221,7222,7223,7224,
  76920. 7225,7226,7227,7228,7229,7230,7231,7232,7233,7234,7235,7236,7237,7238,7239,
  76921. 7240,7241,7242,7243,7244,7245,7246,7247,7248,7249,7250,7251,7252,7253,7254,
  76922. 7255,7256,7257,7258,7259,7260,7261,7262,7263,7264,7265,7266,7267,7268,7269,
  76923. 7270,7271,7272,7273,7274,7275,7276,7277,7278,7279,7280,7281,7282,7283,7284,
  76924. 7285,7286,7287,7288,7289,7290,7291,7292,7293,7294,7295,1042,1044,1054,1057,
  76925. 1058,1058,1066,1122,42570L,7305,7306,7307,7308,7309,7310,7311,7312,7313,
  76926. 7314,7315,7316,7317,7318,7319,7320,7321,7322,7323,7324,7325,7326,7327,7328,
  76927. 7329,7330,7331,7332,7333,7334,7335,7336,7337,7338,7339,7340,7341,7342,7343,
  76928. 7344,7345,7346,7347,7348,7349,7350,7351,7352,7353,7354,7355,7356,7357,7358,
  76929. 7359,7360,7361,7362,7363,7364,7365,7366,7367,7368,7369,7370,7371,7372,7373,
  76930. 7374,7375,7376,7377,7378,7379,7380,7381,7382,7383,7384,7385,7386,7387,7388,
  76931. 7389,7390,7391,7392,7393,7394,7395,7396,7397,7398,7399,7400,7401,7402,7403,
  76932. 7404,7405,7406,7407,7408,7409,7410,7411,7412,7413,7414,7415,7416,7417,7418,
  76933. 7419,7420,7421,7422,7423,7424,7425,7426,7427,7428,7429,7430,7431,7432,7433,
  76934. 7434,7435,7436,7437,7438,7439,7440,7441,7442,7443,7444,7445,7446,7447,7448,
  76935. 7449,7450,7451,7452,7453,7454,7455,7456,7457,7458,7459,7460,7461,7462,7463,
  76936. 7464,7465,7466,7467,7468,7469,7470,7471,7472,7473,7474,7475,7476,7477,7478,
  76937. 7479,7480,7481,7482,7483,7484,7485,7486,7487,7488,7489,7490,7491,7492,7493,
  76938. 7494,7495,7496,7497,7498,7499,7500,7501,7502,7503,7504,7505,7506,7507,7508,
  76939. 7509,7510,7511,7512,7513,7514,7515,7516,7517,7518,7519,7520,7521,7522,7523,
  76940. 7524,7525,7526,7527,7528,7529,7530,7531,7532,7533,7534,7535,7536,7537,7538,
  76941. 7539,7540,7541,7542,7543,7544,42877L,7546,7547,7548,11363,7550,7551,7552,
  76942. 7553,7554,7555,7556,7557,7558,7559,7560,7561,7562,7563,7564,7565,7566,7567,
  76943. 7568,7569,7570,7571,7572,7573,7574,7575,7576,7577,7578,7579,7580,7581,7582,
  76944. 7583,7584,7585,7586,7587,7588,7589,7590,7591,7592,7593,7594,7595,7596,7597,
  76945. 7598,7599,7600,7601,7602,7603,7604,7605,7606,7607,7608,7609,7610,7611,7612,
  76946. 7613,7614,7615,7616,7617,7618,7619,7620,7621,7622,7623,7624,7625,7626,7627,
  76947. 7628,7629,7630,7631,7632,7633,7634,7635,7636,7637,7638,7639,7640,7641,7642,
  76948. 7643,7644,7645,7646,7647,7648,7649,7650,7651,7652,7653,7654,7655,7656,7657,
  76949. 7658,7659,7660,7661,7662,7663,7664,7665,7666,7667,7668,7669,7670,7671,7672,
  76950. 7673,7674,7675,7676,7677,7678,7679,7680,7680,7682,7682,7684,7684,7686,7686,
  76951. 7688,7688,7690,7690,7692,7692,7694,7694,7696,7696,7698,7698,7700,7700,7702,
  76952. 7702,7704,7704,7706,7706,7708,7708,7710,7710,7712,7712,7714,7714,7716,7716,
  76953. 7718,7718,7720,7720,7722,7722,7724,7724,7726,7726,7728,7728,7730,7730,7732,
  76954. 7732,7734,7734,7736,7736,7738,7738,7740,7740,7742,7742,7744,7744,7746,7746,
  76955. 7748,7748,7750,7750,7752,7752,7754,7754,7756,7756,7758,7758,7760,7760,7762,
  76956. 7762,7764,7764,7766,7766,7768,7768,7770,7770,7772,7772,7774,7774,7776,7776,
  76957. 7778,7778,7780,7780,7782,7782,7784,7784,7786,7786,7788,7788,7790,7790,7792,
  76958. 7792,7794,7794,7796,7796,7798,7798,7800,7800,7802,7802,7804,7804,7806,7806,
  76959. 7808,7808,7810,7810,7812,7812,7814,7814,7816,7816,7818,7818,7820,7820,7822,
  76960. 7822,7824,7824,7826,7826,7828,7828,7830,7831,7832,7833,7834,7776,7836,7837,
  76961. 7838,7839,7840,7840,7842,7842,7844,7844,7846,7846,7848,7848,7850,7850,7852,
  76962. 7852,7854,7854,7856,7856,7858,7858,7860,7860,7862,7862,7864,7864,7866,7866,
  76963. 7868,7868,7870,7870,7872,7872,7874,7874,7876,7876,7878,7878,7880,7880,7882,
  76964. 7882,7884,7884,7886,7886,7888,7888,7890,7890,7892,7892,7894,7894,7896,7896,
  76965. 7898,7898,7900,7900,7902,7902,7904,7904,7906,7906,7908,7908,7910,7910,7912,
  76966. 7912,7914,7914,7916,7916,7918,7918,7920,7920,7922,7922,7924,7924,7926,7926,
  76967. 7928,7928,7930,7930,7932,7932,7934,7934,7944,7945,7946,7947,7948,7949,7950,
  76968. 7951,7944,7945,7946,7947,7948,7949,7950,7951,7960,7961,7962,7963,7964,7965,
  76969. 7958,7959,7960,7961,7962,7963,7964,7965,7966,7967,7976,7977,7978,7979,7980,
  76970. 7981,7982,7983,7976,7977,7978,7979,7980,7981,7982,7983,7992,7993,7994,7995,
  76971. 7996,7997,7998,7999,7992,7993,7994,7995,7996,7997,7998,7999,8008,8009,8010,
  76972. 8011,8012,8013,8006,8007,8008,8009,8010,8011,8012,8013,8014,8015,8016,8025,
  76973. 8018,8027,8020,8029,8022,8031,8024,8025,8026,8027,8028,8029,8030,8031,8040,
  76974. 8041,8042,8043,8044,8045,8046,8047,8040,8041,8042,8043,8044,8045,8046,8047,
  76975. 8122,8123,8136,8137,8138,8139,8154,8155,8184,8185,8170,8171,8186,8187,8062,
  76976. 8063,8064,8065,8066,8067,8068,8069,8070,8071,8072,8073,8074,8075,8076,8077,
  76977. 8078,8079,8080,8081,8082,8083,8084,8085,8086,8087,8088,8089,8090,8091,8092,
  76978. 8093,8094,8095,8096,8097,8098,8099,8100,8101,8102,8103,8104,8105,8106,8107,
  76979. 8108,8109,8110,8111,8120,8121,8114,8115,8116,8117,8118,8119,8120,8121,8122,
  76980. 8123,8124,8125,921,8127,8128,8129,8130,8131,8132,8133,8134,8135,8136,8137,
  76981. 8138,8139,8140,8141,8142,8143,8152,8153,8146,8147,8148,8149,8150,8151,8152,
  76982. 8153,8154,8155,8156,8157,8158,8159,8168,8169,8162,8163,8164,8172,8166,8167,
  76983. 8168,8169,8170,8171,8172,8173,8174,8175,8176,8177,8178,8179,8180,8181,8182,
  76984. 8183,8184,8185,8186,8187,8188,8189,8190,8191,8192,8193,8194,8195,8196,8197,
  76985. 8198,8199,8200,8201,8202,8203,8204,8205,8206,8207,8208,8209,8210,8211,8212,
  76986. 8213,8214,8215,8216,8217,8218,8219,8220,8221,8222,8223,8224,8225,8226,8227,
  76987. 8228,8229,8230,8231,8232,8233,8234,8235,8236,8237,8238,8239,8240,8241,8242,
  76988. 8243,8244,8245,8246,8247,8248,8249,8250,8251,8252,8253,8254,8255,8256,8257,
  76989. 8258,8259,8260,8261,8262,8263,8264,8265,8266,8267,8268,8269,8270,8271,8272,
  76990. 8273,8274,8275,8276,8277,8278,8279,8280,8281,8282,8283,8284,8285,8286,8287,
  76991. 8288,8289,8290,8291,8292,8293,8294,8295,8296,8297,8298,8299,8300,8301,8302,
  76992. 8303,8304,8305,8306,8307,8308,8309,8310,8311,8312,8313,8314,8315,8316,8317,
  76993. 8318,8319,8320,8321,8322,8323,8324,8325,8326,8327,8328,8329,8330,8331,8332,
  76994. 8333,8334,8335,8336,8337,8338,8339,8340,8341,8342,8343,8344,8345,8346,8347,
  76995. 8348,8349,8350,8351,8352,8353,8354,8355,8356,8357,8358,8359,8360,8361,8362,
  76996. 8363,8364,8365,8366,8367,8368,8369,8370,8371,8372,8373,8374,8375,8376,8377,
  76997. 8378,8379,8380,8381,8382,8383,8384,8385,8386,8387,8388,8389,8390,8391,8392,
  76998. 8393,8394,8395,8396,8397,8398,8399,8400,8401,8402,8403,8404,8405,8406,8407,
  76999. 8408,8409,8410,8411,8412,8413,8414,8415,8416,8417,8418,8419,8420,8421,8422,
  77000. 8423,8424,8425,8426,8427,8428,8429,8430,8431,8432,8433,8434,8435,8436,8437,
  77001. 8438,8439,8440,8441,8442,8443,8444,8445,8446,8447,8448,8449,8450,8451,8452,
  77002. 8453,8454,8455,8456,8457,8458,8459,8460,8461,8462,8463,8464,8465,8466,8467,
  77003. 8468,8469,8470,8471,8472,8473,8474,8475,8476,8477,8478,8479,8480,8481,8482,
  77004. 8483,8484,8485,8486,8487,8488,8489,8490,8491,8492,8493,8494,8495,8496,8497,
  77005. 8498,8499,8500,8501,8502,8503,8504,8505,8506,8507,8508,8509,8510,8511,8512,
  77006. 8513,8514,8515,8516,8517,8518,8519,8520,8521,8522,8523,8524,8525,8498,8527,
  77007. 8528,8529,8530,8531,8532,8533,8534,8535,8536,8537,8538,8539,8540,8541,8542,
  77008. 8543,8544,8545,8546,8547,8548,8549,8550,8551,8552,8553,8554,8555,8556,8557,
  77009. 8558,8559,8544,8545,8546,8547,8548,8549,8550,8551,8552,8553,8554,8555,8556,
  77010. 8557,8558,8559,8576,8577,8578,8579,8579,8581,8582,8583,8584,8585,8586,8587,
  77011. 8588,8589,8590,8591,8592,8593,8594,8595,8596,8597,8598,8599,8600,8601,8602,
  77012. 8603,8604,8605,8606,8607,8608,8609,8610,8611,8612,8613,8614,8615,8616,8617,
  77013. 8618,8619,8620,8621,8622,8623,8624,8625,8626,8627,8628,8629,8630,8631,8632,
  77014. 8633,8634,8635,8636,8637,8638,8639,8640,8641,8642,8643,8644,8645,8646,8647,
  77015. 8648,8649,8650,8651,8652,8653,8654,8655,8656,8657,8658,8659,8660,8661,8662,
  77016. 8663,8664,8665,8666,8667,8668,8669,8670,8671,8672,8673,8674,8675,8676,8677,
  77017. 8678,8679,8680,8681,8682,8683,8684,8685,8686,8687,8688,8689,8690,8691,8692,
  77018. 8693,8694,8695,8696,8697,8698,8699,8700,8701,8702,8703,8704,8705,8706,8707,
  77019. 8708,8709,8710,8711,8712,8713,8714,8715,8716,8717,8718,8719,8720,8721,8722,
  77020. 8723,8724,8725,8726,8727,8728,8729,8730,8731,8732,8733,8734,8735,8736,8737,
  77021. 8738,8739,8740,8741,8742,8743,8744,8745,8746,8747,8748,8749,8750,8751,8752,
  77022. 8753,8754,8755,8756,8757,8758,8759,8760,8761,8762,8763,8764,8765,8766,8767,
  77023. 8768,8769,8770,8771,8772,8773,8774,8775,8776,8777,8778,8779,8780,8781,8782,
  77024. 8783,8784,8785,8786,8787,8788,8789,8790,8791,8792,8793,8794,8795,8796,8797,
  77025. 8798,8799,8800,8801,8802,8803,8804,8805,8806,8807,8808,8809,8810,8811,8812,
  77026. 8813,8814,8815,8816,8817,8818,8819,8820,8821,8822,8823,8824,8825,8826,8827,
  77027. 8828,8829,8830,8831,8832,8833,8834,8835,8836,8837,8838,8839,8840,8841,8842,
  77028. 8843,8844,8845,8846,8847,8848,8849,8850,8851,8852,8853,8854,8855,8856,8857,
  77029. 8858,8859,8860,8861,8862,8863,8864,8865,8866,8867,8868,8869,8870,8871,8872,
  77030. 8873,8874,8875,8876,8877,8878,8879,8880,8881,8882,8883,8884,8885,8886,8887,
  77031. 8888,8889,8890,8891,8892,8893,8894,8895,8896,8897,8898,8899,8900,8901,8902,
  77032. 8903,8904,8905,8906,8907,8908,8909,8910,8911,8912,8913,8914,8915,8916,8917,
  77033. 8918,8919,8920,8921,8922,8923,8924,8925,8926,8927,8928,8929,8930,8931,8932,
  77034. 8933,8934,8935,8936,8937,8938,8939,8940,8941,8942,8943,8944,8945,8946,8947,
  77035. 8948,8949,8950,8951,8952,8953,8954,8955,8956,8957,8958,8959,8960,8961,8962,
  77036. 8963,8964,8965,8966,8967,8968,8969,8970,8971,8972,8973,8974,8975,8976,8977,
  77037. 8978,8979,8980,8981,8982,8983,8984,8985,8986,8987,8988,8989,8990,8991,8992,
  77038. 8993,8994,8995,8996,8997,8998,8999,9000,9001,9002,9003,9004,9005,9006,9007,
  77039. 9008,9009,9010,9011,9012,9013,9014,9015,9016,9017,9018,9019,9020,9021,9022,
  77040. 9023,9024,9025,9026,9027,9028,9029,9030,9031,9032,9033,9034,9035,9036,9037,
  77041. 9038,9039,9040,9041,9042,9043,9044,9045,9046,9047,9048,9049,9050,9051,9052,
  77042. 9053,9054,9055,9056,9057,9058,9059,9060,9061,9062,9063,9064,9065,9066,9067,
  77043. 9068,9069,9070,9071,9072,9073,9074,9075,9076,9077,9078,9079,9080,9081,9082,
  77044. 9083,9084,9085,9086,9087,9088,9089,9090,9091,9092,9093,9094,9095,9096,9097,
  77045. 9098,9099,9100,9101,9102,9103,9104,9105,9106,9107,9108,9109,9110,9111,9112,
  77046. 9113,9114,9115,9116,9117,9118,9119,9120,9121,9122,9123,9124,9125,9126,9127,
  77047. 9128,9129,9130,9131,9132,9133,9134,9135,9136,9137,9138,9139,9140,9141,9142,
  77048. 9143,9144,9145,9146,9147,9148,9149,9150,9151,9152,9153,9154,9155,9156,9157,
  77049. 9158,9159,9160,9161,9162,9163,9164,9165,9166,9167,9168,9169,9170,9171,9172,
  77050. 9173,9174,9175,9176,9177,9178,9179,9180,9181,9182,9183,9184,9185,9186,9187,
  77051. 9188,9189,9190,9191,9192,9193,9194,9195,9196,9197,9198,9199,9200,9201,9202,
  77052. 9203,9204,9205,9206,9207,9208,9209,9210,9211,9212,9213,9214,9215,9216,9217,
  77053. 9218,9219,9220,9221,9222,9223,9224,9225,9226,9227,9228,9229,9230,9231,9232,
  77054. 9233,9234,9235,9236,9237,9238,9239,9240,9241,9242,9243,9244,9245,9246,9247,
  77055. 9248,9249,9250,9251,9252,9253,9254,9255,9256,9257,9258,9259,9260,9261,9262,
  77056. 9263,9264,9265,9266,9267,9268,9269,9270,9271,9272,9273,9274,9275,9276,9277,
  77057. 9278,9279,9280,9281,9282,9283,9284,9285,9286,9287,9288,9289,9290,9291,9292,
  77058. 9293,9294,9295,9296,9297,9298,9299,9300,9301,9302,9303,9304,9305,9306,9307,
  77059. 9308,9309,9310,9311,9312,9313,9314,9315,9316,9317,9318,9319,9320,9321,9322,
  77060. 9323,9324,9325,9326,9327,9328,9329,9330,9331,9332,9333,9334,9335,9336,9337,
  77061. 9338,9339,9340,9341,9342,9343,9344,9345,9346,9347,9348,9349,9350,9351,9352,
  77062. 9353,9354,9355,9356,9357,9358,9359,9360,9361,9362,9363,9364,9365,9366,9367,
  77063. 9368,9369,9370,9371,9372,9373,9374,9375,9376,9377,9378,9379,9380,9381,9382,
  77064. 9383,9384,9385,9386,9387,9388,9389,9390,9391,9392,9393,9394,9395,9396,9397,
  77065. 9398,9399,9400,9401,9402,9403,9404,9405,9406,9407,9408,9409,9410,9411,9412,
  77066. 9413,9414,9415,9416,9417,9418,9419,9420,9421,9422,9423,9398,9399,9400,9401,
  77067. 9402,9403,9404,9405,9406,9407,9408,9409,9410,9411,9412,9413,9414,9415,9416,
  77068. 9417,9418,9419,9420,9421,9422,9423,9450,9451,9452,9453,9454,9455,9456,9457,
  77069. 9458,9459,9460,9461,9462,9463,9464,9465,9466,9467,9468,9469,9470,9471,9472,
  77070. 9473,9474,9475,9476,9477,9478,9479,9480,9481,9482,9483,9484,9485,9486,9487,
  77071. 9488,9489,9490,9491,9492,9493,9494,9495,9496,9497,9498,9499,9500,9501,9502,
  77072. 9503,9504,9505,9506,9507,9508,9509,9510,9511,9512,9513,9514,9515,9516,9517,
  77073. 9518,9519,9520,9521,9522,9523,9524,9525,9526,9527,9528,9529,9530,9531,9532,
  77074. 9533,9534,9535,9536,9537,9538,9539,9540,9541,9542,9543,9544,9545,9546,9547,
  77075. 9548,9549,9550,9551,9552,9553,9554,9555,9556,9557,9558,9559,9560,9561,9562,
  77076. 9563,9564,9565,9566,9567,9568,9569,9570,9571,9572,9573,9574,9575,9576,9577,
  77077. 9578,9579,9580,9581,9582,9583,9584,9585,9586,9587,9588,9589,9590,9591,9592,
  77078. 9593,9594,9595,9596,9597,9598,9599,9600,9601,9602,9603,9604,9605,9606,9607,
  77079. 9608,9609,9610,9611,9612,9613,9614,9615,9616,9617,9618,9619,9620,9621,9622,
  77080. 9623,9624,9625,9626,9627,9628,9629,9630,9631,9632,9633,9634,9635,9636,9637,
  77081. 9638,9639,9640,9641,9642,9643,9644,9645,9646,9647,9648,9649,9650,9651,9652,
  77082. 9653,9654,9655,9656,9657,9658,9659,9660,9661,9662,9663,9664,9665,9666,9667,
  77083. 9668,9669,9670,9671,9672,9673,9674,9675,9676,9677,9678,9679,9680,9681,9682,
  77084. 9683,9684,9685,9686,9687,9688,9689,9690,9691,9692,9693,9694,9695,9696,9697,
  77085. 9698,9699,9700,9701,9702,9703,9704,9705,9706,9707,9708,9709,9710,9711,9712,
  77086. 9713,9714,9715,9716,9717,9718,9719,9720,9721,9722,9723,9724,9725,9726,9727,
  77087. 9728,9729,9730,9731,9732,9733,9734,9735,9736,9737,9738,9739,9740,9741,9742,
  77088. 9743,9744,9745,9746,9747,9748,9749,9750,9751,9752,9753,9754,9755,9756,9757,
  77089. 9758,9759,9760,9761,9762,9763,9764,9765,9766,9767,9768,9769,9770,9771,9772,
  77090. 9773,9774,9775,9776,9777,9778,9779,9780,9781,9782,9783,9784,9785,9786,9787,
  77091. 9788,9789,9790,9791,9792,9793,9794,9795,9796,9797,9798,9799,9800,9801,9802,
  77092. 9803,9804,9805,9806,9807,9808,9809,9810,9811,9812,9813,9814,9815,9816,9817,
  77093. 9818,9819,9820,9821,9822,9823,9824,9825,9826,9827,9828,9829,9830,9831,9832,
  77094. 9833,9834,9835,9836,9837,9838,9839,9840,9841,9842,9843,9844,9845,9846,9847,
  77095. 9848,9849,9850,9851,9852,9853,9854,9855,9856,9857,9858,9859,9860,9861,9862,
  77096. 9863,9864,9865,9866,9867,9868,9869,9870,9871,9872,9873,9874,9875,9876,9877,
  77097. 9878,9879,9880,9881,9882,9883,9884,9885,9886,9887,9888,9889,9890,9891,9892,
  77098. 9893,9894,9895,9896,9897,9898,9899,9900,9901,9902,9903,9904,9905,9906,9907,
  77099. 9908,9909,9910,9911,9912,9913,9914,9915,9916,9917,9918,9919,9920,9921,9922,
  77100. 9923,9924,9925,9926,9927,9928,9929,9930,9931,9932,9933,9934,9935,9936,9937,
  77101. 9938,9939,9940,9941,9942,9943,9944,9945,9946,9947,9948,9949,9950,9951,9952,
  77102. 9953,9954,9955,9956,9957,9958,9959,9960,9961,9962,9963,9964,9965,9966,9967,
  77103. 9968,9969,9970,9971,9972,9973,9974,9975,9976,9977,9978,9979,9980,9981,9982,
  77104. 9983,9984,9985,9986,9987,9988,9989,9990,9991,9992,9993,9994,9995,9996,9997,
  77105. 9998,9999,10000,10001,10002,10003,10004,10005,10006,10007,10008,10009,
  77106. 10010,10011,10012,10013,10014,10015,10016,10017,10018,10019,10020,10021,
  77107. 10022,10023,10024,10025,10026,10027,10028,10029,10030,10031,10032,10033,
  77108. 10034,10035,10036,10037,10038,10039,10040,10041,10042,10043,10044,10045,
  77109. 10046,10047,10048,10049,10050,10051,10052,10053,10054,10055,10056,10057,
  77110. 10058,10059,10060,10061,10062,10063,10064,10065,10066,10067,10068,10069,
  77111. 10070,10071,10072,10073,10074,10075,10076,10077,10078,10079,10080,10081,
  77112. 10082,10083,10084,10085,10086,10087,10088,10089,10090,10091,10092,10093,
  77113. 10094,10095,10096,10097,10098,10099,10100,10101,10102,10103,10104,10105,
  77114. 10106,10107,10108,10109,10110,10111,10112,10113,10114,10115,10116,10117,
  77115. 10118,10119,10120,10121,10122,10123,10124,10125,10126,10127,10128,10129,
  77116. 10130,10131,10132,10133,10134,10135,10136,10137,10138,10139,10140,10141,
  77117. 10142,10143,10144,10145,10146,10147,10148,10149,10150,10151,10152,10153,
  77118. 10154,10155,10156,10157,10158,10159,10160,10161,10162,10163,10164,10165,
  77119. 10166,10167,10168,10169,10170,10171,10172,10173,10174,10175,10176,10177,
  77120. 10178,10179,10180,10181,10182,10183,10184,10185,10186,10187,10188,10189,
  77121. 10190,10191,10192,10193,10194,10195,10196,10197,10198,10199,10200,10201,
  77122. 10202,10203,10204,10205,10206,10207,10208,10209,10210,10211,10212,10213,
  77123. 10214,10215,10216,10217,10218,10219,10220,10221,10222,10223,10224,10225,
  77124. 10226,10227,10228,10229,10230,10231,10232,10233,10234,10235,10236,10237,
  77125. 10238,10239,10240,10241,10242,10243,10244,10245,10246,10247,10248,10249,
  77126. 10250,10251,10252,10253,10254,10255,10256,10257,10258,10259,10260,10261,
  77127. 10262,10263,10264,10265,10266,10267,10268,10269,10270,10271,10272,10273,
  77128. 10274,10275,10276,10277,10278,10279,10280,10281,10282,10283,10284,10285,
  77129. 10286,10287,10288,10289,10290,10291,10292,10293,10294,10295,10296,10297,
  77130. 10298,10299,10300,10301,10302,10303,10304,10305,10306,10307,10308,10309,
  77131. 10310,10311,10312,10313,10314,10315,10316,10317,10318,10319,10320,10321,
  77132. 10322,10323,10324,10325,10326,10327,10328,10329,10330,10331,10332,10333,
  77133. 10334,10335,10336,10337,10338,10339,10340,10341,10342,10343,10344,10345,
  77134. 10346,10347,10348,10349,10350,10351,10352,10353,10354,10355,10356,10357,
  77135. 10358,10359,10360,10361,10362,10363,10364,10365,10366,10367,10368,10369,
  77136. 10370,10371,10372,10373,10374,10375,10376,10377,10378,10379,10380,10381,
  77137. 10382,10383,10384,10385,10386,10387,10388,10389,10390,10391,10392,10393,
  77138. 10394,10395,10396,10397,10398,10399,10400,10401,10402,10403,10404,10405,
  77139. 10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,
  77140. 10418,10419,10420,10421,10422,10423,10424,10425,10426,10427,10428,10429,
  77141. 10430,10431,10432,10433,10434,10435,10436,10437,10438,10439,10440,10441,
  77142. 10442,10443,10444,10445,10446,10447,10448,10449,10450,10451,10452,10453,
  77143. 10454,10455,10456,10457,10458,10459,10460,10461,10462,10463,10464,10465,
  77144. 10466,10467,10468,10469,10470,10471,10472,10473,10474,10475,10476,10477,
  77145. 10478,10479,10480,10481,10482,10483,10484,10485,10486,10487,10488,10489,
  77146. 10490,10491,10492,10493,10494,10495,10496,10497,10498,10499,10500,10501,
  77147. 10502,10503,10504,10505,10506,10507,10508,10509,10510,10511,10512,10513,
  77148. 10514,10515,10516,10517,10518,10519,10520,10521,10522,10523,10524,10525,
  77149. 10526,10527,10528,10529,10530,10531,10532,10533,10534,10535,10536,10537,
  77150. 10538,10539,10540,10541,10542,10543,10544,10545,10546,10547,10548,10549,
  77151. 10550,10551,10552,10553,10554,10555,10556,10557,10558,10559,10560,10561,
  77152. 10562,10563,10564,10565,10566,10567,10568,10569,10570,10571,10572,10573,
  77153. 10574,10575,10576,10577,10578,10579,10580,10581,10582,10583,10584,10585,
  77154. 10586,10587,10588,10589,10590,10591,10592,10593,10594,10595,10596,10597,
  77155. 10598,10599,10600,10601,10602,10603,10604,10605,10606,10607,10608,10609,
  77156. 10610,10611,10612,10613,10614,10615,10616,10617,10618,10619,10620,10621,
  77157. 10622,10623,10624,10625,10626,10627,10628,10629,10630,10631,10632,10633,
  77158. 10634,10635,10636,10637,10638,10639,10640,10641,10642,10643,10644,10645,
  77159. 10646,10647,10648,10649,10650,10651,10652,10653,10654,10655,10656,10657,
  77160. 10658,10659,10660,10661,10662,10663,10664,10665,10666,10667,10668,10669,
  77161. 10670,10671,10672,10673,10674,10675,10676,10677,10678,10679,10680,10681,
  77162. 10682,10683,10684,10685,10686,10687,10688,10689,10690,10691,10692,10693,
  77163. 10694,10695,10696,10697,10698,10699,10700,10701,10702,10703,10704,10705,
  77164. 10706,10707,10708,10709,10710,10711,10712,10713,10714,10715,10716,10717,
  77165. 10718,10719,10720,10721,10722,10723,10724,10725,10726,10727,10728,10729,
  77166. 10730,10731,10732,10733,10734,10735,10736,10737,10738,10739,10740,10741,
  77167. 10742,10743,10744,10745,10746,10747,10748,10749,10750,10751,10752,10753,
  77168. 10754,10755,10756,10757,10758,10759,10760,10761,10762,10763,10764,10765,
  77169. 10766,10767,10768,10769,10770,10771,10772,10773,10774,10775,10776,10777,
  77170. 10778,10779,10780,10781,10782,10783,10784,10785,10786,10787,10788,10789,
  77171. 10790,10791,10792,10793,10794,10795,10796,10797,10798,10799,10800,10801,
  77172. 10802,10803,10804,10805,10806,10807,10808,10809,10810,10811,10812,10813,
  77173. 10814,10815,10816,10817,10818,10819,10820,10821,10822,10823,10824,10825,
  77174. 10826,10827,10828,10829,10830,10831,10832,10833,10834,10835,10836,10837,
  77175. 10838,10839,10840,10841,10842,10843,10844,10845,10846,10847,10848,10849,
  77176. 10850,10851,10852,10853,10854,10855,10856,10857,10858,10859,10860,10861,
  77177. 10862,10863,10864,10865,10866,10867,10868,10869,10870,10871,10872,10873,
  77178. 10874,10875,10876,10877,10878,10879,10880,10881,10882,10883,10884,10885,
  77179. 10886,10887,10888,10889,10890,10891,10892,10893,10894,10895,10896,10897,
  77180. 10898,10899,10900,10901,10902,10903,10904,10905,10906,10907,10908,10909,
  77181. 10910,10911,10912,10913,10914,10915,10916,10917,10918,10919,10920,10921,
  77182. 10922,10923,10924,10925,10926,10927,10928,10929,10930,10931,10932,10933,
  77183. 10934,10935,10936,10937,10938,10939,10940,10941,10942,10943,10944,10945,
  77184. 10946,10947,10948,10949,10950,10951,10952,10953,10954,10955,10956,10957,
  77185. 10958,10959,10960,10961,10962,10963,10964,10965,10966,10967,10968,10969,
  77186. 10970,10971,10972,10973,10974,10975,10976,10977,10978,10979,10980,10981,
  77187. 10982,10983,10984,10985,10986,10987,10988,10989,10990,10991,10992,10993,
  77188. 10994,10995,10996,10997,10998,10999,11000,11001,11002,11003,11004,11005,
  77189. 11006,11007,11008,11009,11010,11011,11012,11013,11014,11015,11016,11017,
  77190. 11018,11019,11020,11021,11022,11023,11024,11025,11026,11027,11028,11029,
  77191. 11030,11031,11032,11033,11034,11035,11036,11037,11038,11039,11040,11041,
  77192. 11042,11043,11044,11045,11046,11047,11048,11049,11050,11051,11052,11053,
  77193. 11054,11055,11056,11057,11058,11059,11060,11061,11062,11063,11064,11065,
  77194. 11066,11067,11068,11069,11070,11071,11072,11073,11074,11075,11076,11077,
  77195. 11078,11079,11080,11081,11082,11083,11084,11085,11086,11087,11088,11089,
  77196. 11090,11091,11092,11093,11094,11095,11096,11097,11098,11099,11100,11101,
  77197. 11102,11103,11104,11105,11106,11107,11108,11109,11110,11111,11112,11113,
  77198. 11114,11115,11116,11117,11118,11119,11120,11121,11122,11123,11124,11125,
  77199. 11126,11127,11128,11129,11130,11131,11132,11133,11134,11135,11136,11137,
  77200. 11138,11139,11140,11141,11142,11143,11144,11145,11146,11147,11148,11149,
  77201. 11150,11151,11152,11153,11154,11155,11156,11157,11158,11159,11160,11161,
  77202. 11162,11163,11164,11165,11166,11167,11168,11169,11170,11171,11172,11173,
  77203. 11174,11175,11176,11177,11178,11179,11180,11181,11182,11183,11184,11185,
  77204. 11186,11187,11188,11189,11190,11191,11192,11193,11194,11195,11196,11197,
  77205. 11198,11199,11200,11201,11202,11203,11204,11205,11206,11207,11208,11209,
  77206. 11210,11211,11212,11213,11214,11215,11216,11217,11218,11219,11220,11221,
  77207. 11222,11223,11224,11225,11226,11227,11228,11229,11230,11231,11232,11233,
  77208. 11234,11235,11236,11237,11238,11239,11240,11241,11242,11243,11244,11245,
  77209. 11246,11247,11248,11249,11250,11251,11252,11253,11254,11255,11256,11257,
  77210. 11258,11259,11260,11261,11262,11263,11264,11265,11266,11267,11268,11269,
  77211. 11270,11271,11272,11273,11274,11275,11276,11277,11278,11279,11280,11281,
  77212. 11282,11283,11284,11285,11286,11287,11288,11289,11290,11291,11292,11293,
  77213. 11294,11295,11296,11297,11298,11299,11300,11301,11302,11303,11304,11305,
  77214. 11306,11307,11308,11309,11310,11311,11264,11265,11266,11267,11268,11269,
  77215. 11270,11271,11272,11273,11274,11275,11276,11277,11278,11279,11280,11281,
  77216. 11282,11283,11284,11285,11286,11287,11288,11289,11290,11291,11292,11293,
  77217. 11294,11295,11296,11297,11298,11299,11300,11301,11302,11303,11304,11305,
  77218. 11306,11307,11308,11309,11310,11359,11360,11360,11362,11363,11364,570,574,
  77219. 11367,11367,11369,11369,11371,11371,11373,11374,11375,11376,11377,11378,
  77220. 11378,11380,11381,11381,11383,11384,11385,11386,11387,11388,11389,11390,
  77221. 11391,11392,11392,11394,11394,11396,11396,11398,11398,11400,11400,11402,
  77222. 11402,11404,11404,11406,11406,11408,11408,11410,11410,11412,11412,11414,
  77223. 11414,11416,11416,11418,11418,11420,11420,11422,11422,11424,11424,11426,
  77224. 11426,11428,11428,11430,11430,11432,11432,11434,11434,11436,11436,11438,
  77225. 11438,11440,11440,11442,11442,11444,11444,11446,11446,11448,11448,11450,
  77226. 11450,11452,11452,11454,11454,11456,11456,11458,11458,11460,11460,11462,
  77227. 11462,11464,11464,11466,11466,11468,11468,11470,11470,11472,11472,11474,
  77228. 11474,11476,11476,11478,11478,11480,11480,11482,11482,11484,11484,11486,
  77229. 11486,11488,11488,11490,11490,11492,11493,11494,11495,11496,11497,11498,
  77230. 11499,11499,11501,11501,11503,11504,11505,11506,11506,11508,11509,11510,
  77231. 11511,11512,11513,11514,11515,11516,11517,11518,11519,4256,4257,4258,4259,
  77232. 4260,4261,4262,4263,4264,4265,4266,4267,4268,4269,4270,4271,4272,4273,4274,
  77233. 4275,4276,4277,4278,4279,4280,4281,4282,4283,4284,4285,4286,4287,4288,4289,
  77234. 4290,4291,4292,4293,11558,4295,11560,11561,11562,11563,11564,4301,11566,
  77235. 11567,11568,11569,11570,11571,11572,11573,11574,11575,11576,11577,11578,
  77236. 11579,11580,11581,11582,11583,11584,11585,11586,11587,11588,11589,11590,
  77237. 11591,11592,11593,11594,11595,11596,11597,11598,11599,11600,11601,11602,
  77238. 11603,11604,11605,11606,11607,11608,11609,11610,11611,11612,11613,11614,
  77239. 11615,11616,11617,11618,11619,11620,11621,11622,11623,11624,11625,11626,
  77240. 11627,11628,11629,11630,11631,11632,11633,11634,11635,11636,11637,11638,
  77241. 11639,11640,11641,11642,11643,11644,11645,11646,11647,11648,11649,11650,
  77242. 11651,11652,11653,11654,11655,11656,11657,11658,11659,11660,11661,11662,
  77243. 11663,11664,11665,11666,11667,11668,11669,11670,11671,11672,11673,11674,
  77244. 11675,11676,11677,11678,11679,11680,11681,11682,11683,11684,11685,11686,
  77245. 11687,11688,11689,11690,11691,11692,11693,11694,11695,11696,11697,11698,
  77246. 11699,11700,11701,11702,11703,11704,11705,11706,11707,11708,11709,11710,
  77247. 11711,11712,11713,11714,11715,11716,11717,11718,11719,11720,11721,11722,
  77248. 11723,11724,11725,11726,11727,11728,11729,11730,11731,11732,11733,11734,
  77249. 11735,11736,11737,11738,11739,11740,11741,11742,11743,11744,11745,11746,
  77250. 11747,11748,11749,11750,11751,11752,11753,11754,11755,11756,11757,11758,
  77251. 11759,11760,11761,11762,11763,11764,11765,11766,11767,11768,11769,11770,
  77252. 11771,11772,11773,11774,11775,11776,11777,11778,11779,11780,11781,11782,
  77253. 11783,11784,11785,11786,11787,11788,11789,11790,11791,11792,11793,11794,
  77254. 11795,11796,11797,11798,11799,11800,11801,11802,11803,11804,11805,11806,
  77255. 11807,11808,11809,11810,11811,11812,11813,11814,11815,11816,11817,11818,
  77256. 11819,11820,11821,11822,11823,11824,11825,11826,11827,11828,11829,11830,
  77257. 11831,11832,11833,11834,11835,11836,11837,11838,11839,11840,11841,11842,
  77258. 11843,11844,11845,11846,11847,11848,11849,11850,11851,11852,11853,11854,
  77259. 11855,11856,11857,11858,11859,11860,11861,11862,11863,11864,11865,11866,
  77260. 11867,11868,11869,11870,11871,11872,11873,11874,11875,11876,11877,11878,
  77261. 11879,11880,11881,11882,11883,11884,11885,11886,11887,11888,11889,11890,
  77262. 11891,11892,11893,11894,11895,11896,11897,11898,11899,11900,11901,11902,
  77263. 11903,11904,11905,11906,11907,11908,11909,11910,11911,11912,11913,11914,
  77264. 11915,11916,11917,11918,11919,11920,11921,11922,11923,11924,11925,11926,
  77265. 11927,11928,11929,11930,11931,11932,11933,11934,11935,11936,11937,11938,
  77266. 11939,11940,11941,11942,11943,11944,11945,11946,11947,11948,11949,11950,
  77267. 11951,11952,11953,11954,11955,11956,11957,11958,11959,11960,11961,11962,
  77268. 11963,11964,11965,11966,11967,11968,11969,11970,11971,11972,11973,11974,
  77269. 11975,11976,11977,11978,11979,11980,11981,11982,11983,11984,11985,11986,
  77270. 11987,11988,11989,11990,11991,11992,11993,11994,11995,11996,11997,11998,
  77271. 11999,12000,12001,12002,12003,12004,12005,12006,12007,12008,12009,12010,
  77272. 12011,12012,12013,12014,12015,12016,12017,12018,12019,12020,12021,12022,
  77273. 12023,12024,12025,12026,12027,12028,12029,12030,12031,12032,12033,12034,
  77274. 12035,12036,12037,12038,12039,12040,12041,12042,12043,12044,12045,12046,
  77275. 12047,12048,12049,12050,12051,12052,12053,12054,12055,12056,12057,12058,
  77276. 12059,12060,12061,12062,12063,12064,12065,12066,12067,12068,12069,12070,
  77277. 12071,12072,12073,12074,12075,12076,12077,12078,12079,12080,12081,12082,
  77278. 12083,12084,12085,12086,12087,12088,12089,12090,12091,12092,12093,12094,
  77279. 12095,12096,12097,12098,12099,12100,12101,12102,12103,12104,12105,12106,
  77280. 12107,12108,12109,12110,12111,12112,12113,12114,12115,12116,12117,12118,
  77281. 12119,12120,12121,12122,12123,12124,12125,12126,12127,12128,12129,12130,
  77282. 12131,12132,12133,12134,12135,12136,12137,12138,12139,12140,12141,12142,
  77283. 12143,12144,12145,12146,12147,12148,12149,12150,12151,12152,12153,12154,
  77284. 12155,12156,12157,12158,12159,12160,12161,12162,12163,12164,12165,12166,
  77285. 12167,12168,12169,12170,12171,12172,12173,12174,12175,12176,12177,12178,
  77286. 12179,12180,12181,12182,12183,12184,12185,12186,12187,12188,12189,12190,
  77287. 12191,12192,12193,12194,12195,12196,12197,12198,12199,12200,12201,12202,
  77288. 12203,12204,12205,12206,12207,12208,12209,12210,12211,12212,12213,12214,
  77289. 12215,12216,12217,12218,12219,12220,12221,12222,12223,12224,12225,12226,
  77290. 12227,12228,12229,12230,12231,12232,12233,12234,12235,12236,12237,12238,
  77291. 12239,12240,12241,12242,12243,12244,12245,12246,12247,12248,12249,12250,
  77292. 12251,12252,12253,12254,12255,12256,12257,12258,12259,12260,12261,12262,
  77293. 12263,12264,12265,12266,12267,12268,12269,12270,12271,12272,12273,12274,
  77294. 12275,12276,12277,12278,12279,12280,12281,12282,12283,12284,12285,12286,
  77295. 12287,12288,12289,12290,12291,12292,12293,12294,12295,12296,12297,12298,
  77296. 12299,12300,12301,12302,12303,12304,12305,12306,12307,12308,12309,12310,
  77297. 12311,12312,12313,12314,12315,12316,12317,12318,12319,12320,12321,12322,
  77298. 12323,12324,12325,12326,12327,12328,12329,12330,12331,12332,12333,12334,
  77299. 12335,12336,12337,12338,12339,12340,12341,12342,12343,12344,12345,12346,
  77300. 12347,12348,12349,12350,12351,12352,12353,12354,12355,12356,12357,12358,
  77301. 12359,12360,12361,12362,12363,12364,12365,12366,12367,12368,12369,12370,
  77302. 12371,12372,12373,12374,12375,12376,12377,12378,12379,12380,12381,12382,
  77303. 12383,12384,12385,12386,12387,12388,12389,12390,12391,12392,12393,12394,
  77304. 12395,12396,12397,12398,12399,12400,12401,12402,12403,12404,12405,12406,
  77305. 12407,12408,12409,12410,12411,12412,12413,12414,12415,12416,12417,12418,
  77306. 12419,12420,12421,12422,12423,12424,12425,12426,12427,12428,12429,12430,
  77307. 12431,12432,12433,12434,12435,12436,12437,12438,12439,12440,12441,12442,
  77308. 12443,12444,12445,12446,12447,12448,12449,12450,12451,12452,12453,12454,
  77309. 12455,12456,12457,12458,12459,12460,12461,12462,12463,12464,12465,12466,
  77310. 12467,12468,12469,12470,12471,12472,12473,12474,12475,12476,12477,12478,
  77311. 12479,12480,12481,12482,12483,12484,12485,12486,12487,12488,12489,12490,
  77312. 12491,12492,12493,12494,12495,12496,12497,12498,12499,12500,12501,12502,
  77313. 12503,12504,12505,12506,12507,12508,12509,12510,12511,12512,12513,12514,
  77314. 12515,12516,12517,12518,12519,12520,12521,12522,12523,12524,12525,12526,
  77315. 12527,12528,12529,12530,12531,12532,12533,12534,12535,12536,12537,12538,
  77316. 12539,12540,12541,12542,12543,12544,12545,12546,12547,12548,12549,12550,
  77317. 12551,12552,12553,12554,12555,12556,12557,12558,12559,12560,12561,12562,
  77318. 12563,12564,12565,12566,12567,12568,12569,12570,12571,12572,12573,12574,
  77319. 12575,12576,12577,12578,12579,12580,12581,12582,12583,12584,12585,12586,
  77320. 12587,12588,12589,12590,12591,12592,12593,12594,12595,12596,12597,12598,
  77321. 12599,12600,12601,12602,12603,12604,12605,12606,12607,12608,12609,12610,
  77322. 12611,12612,12613,12614,12615,12616,12617,12618,12619,12620,12621,12622,
  77323. 12623,12624,12625,12626,12627,12628,12629,12630,12631,12632,12633,12634,
  77324. 12635,12636,12637,12638,12639,12640,12641,12642,12643,12644,12645,12646,
  77325. 12647,12648,12649,12650,12651,12652,12653,12654,12655,12656,12657,12658,
  77326. 12659,12660,12661,12662,12663,12664,12665,12666,12667,12668,12669,12670,
  77327. 12671,12672,12673,12674,12675,12676,12677,12678,12679,12680,12681,12682,
  77328. 12683,12684,12685,12686,12687,12688,12689,12690,12691,12692,12693,12694,
  77329. 12695,12696,12697,12698,12699,12700,12701,12702,12703,12704,12705,12706,
  77330. 12707,12708,12709,12710,12711,12712,12713,12714,12715,12716,12717,12718,
  77331. 12719,12720,12721,12722,12723,12724,12725,12726,12727,12728,12729,12730,
  77332. 12731,12732,12733,12734,12735,12736,12737,12738,12739,12740,12741,12742,
  77333. 12743,12744,12745,12746,12747,12748,12749,12750,12751,12752,12753,12754,
  77334. 12755,12756,12757,12758,12759,12760,12761,12762,12763,12764,12765,12766,
  77335. 12767,12768,12769,12770,12771,12772,12773,12774,12775,12776,12777,12778,
  77336. 12779,12780,12781,12782,12783,12784,12785,12786,12787,12788,12789,12790,
  77337. 12791,12792,12793,12794,12795,12796,12797,12798,12799,12800,12801,12802,
  77338. 12803,12804,12805,12806,12807,12808,12809,12810,12811,12812,12813,12814,
  77339. 12815,12816,12817,12818,12819,12820,12821,12822,12823,12824,12825,12826,
  77340. 12827,12828,12829,12830,12831,12832,12833,12834,12835,12836,12837,12838,
  77341. 12839,12840,12841,12842,12843,12844,12845,12846,12847,12848,12849,12850,
  77342. 12851,12852,12853,12854,12855,12856,12857,12858,12859,12860,12861,12862,
  77343. 12863,12864,12865,12866,12867,12868,12869,12870,12871,12872,12873,12874,
  77344. 12875,12876,12877,12878,12879,12880,12881,12882,12883,12884,12885,12886,
  77345. 12887,12888,12889,12890,12891,12892,12893,12894,12895,12896,12897,12898,
  77346. 12899,12900,12901,12902,12903,12904,12905,12906,12907,12908,12909,12910,
  77347. 12911,12912,12913,12914,12915,12916,12917,12918,12919,12920,12921,12922,
  77348. 12923,12924,12925,12926,12927,12928,12929,12930,12931,12932,12933,12934,
  77349. 12935,12936,12937,12938,12939,12940,12941,12942,12943,12944,12945,12946,
  77350. 12947,12948,12949,12950,12951,12952,12953,12954,12955,12956,12957,12958,
  77351. 12959,12960,12961,12962,12963,12964,12965,12966,12967,12968,12969,12970,
  77352. 12971,12972,12973,12974,12975,12976,12977,12978,12979,12980,12981,12982,
  77353. 12983,12984,12985,12986,12987,12988,12989,12990,12991,12992,12993,12994,
  77354. 12995,12996,12997,12998,12999,13000,13001,13002,13003,13004,13005,13006,
  77355. 13007,13008,13009,13010,13011,13012,13013,13014,13015,13016,13017,13018,
  77356. 13019,13020,13021,13022,13023,13024,13025,13026,13027,13028,13029,13030,
  77357. 13031,13032,13033,13034,13035,13036,13037,13038,13039,13040,13041,13042,
  77358. 13043,13044,13045,13046,13047,13048,13049,13050,13051,13052,13053,13054,
  77359. 13055,13056,13057,13058,13059,13060,13061,13062,13063,13064,13065,13066,
  77360. 13067,13068,13069,13070,13071,13072,13073,13074,13075,13076,13077,13078,
  77361. 13079,13080,13081,13082,13083,13084,13085,13086,13087,13088,13089,13090,
  77362. 13091,13092,13093,13094,13095,13096,13097,13098,13099,13100,13101,13102,
  77363. 13103,13104,13105,13106,13107,13108,13109,13110,13111,13112,13113,13114,
  77364. 13115,13116,13117,13118,13119,13120,13121,13122,13123,13124,13125,13126,
  77365. 13127,13128,13129,13130,13131,13132,13133,13134,13135,13136,13137,13138,
  77366. 13139,13140,13141,13142,13143,13144,13145,13146,13147,13148,13149,13150,
  77367. 13151,13152,13153,13154,13155,13156,13157,13158,13159,13160,13161,13162,
  77368. 13163,13164,13165,13166,13167,13168,13169,13170,13171,13172,13173,13174,
  77369. 13175,13176,13177,13178,13179,13180,13181,13182,13183,13184,13185,13186,
  77370. 13187,13188,13189,13190,13191,13192,13193,13194,13195,13196,13197,13198,
  77371. 13199,13200,13201,13202,13203,13204,13205,13206,13207,13208,13209,13210,
  77372. 13211,13212,13213,13214,13215,13216,13217,13218,13219,13220,13221,13222,
  77373. 13223,13224,13225,13226,13227,13228,13229,13230,13231,13232,13233,13234,
  77374. 13235,13236,13237,13238,13239,13240,13241,13242,13243,13244,13245,13246,
  77375. 13247,13248,13249,13250,13251,13252,13253,13254,13255,13256,13257,13258,
  77376. 13259,13260,13261,13262,13263,13264,13265,13266,13267,13268,13269,13270,
  77377. 13271,13272,13273,13274,13275,13276,13277,13278,13279,13280,13281,13282,
  77378. 13283,13284,13285,13286,13287,13288,13289,13290,13291,13292,13293,13294,
  77379. 13295,13296,13297,13298,13299,13300,13301,13302,13303,13304,13305,13306,
  77380. 13307,13308,13309,13310,13311,13312,13313,13314,13315,13316,13317,13318,
  77381. 13319,13320,13321,13322,13323,13324,13325,13326,13327,13328,13329,13330,
  77382. 13331,13332,13333,13334,13335,13336,13337,13338,13339,13340,13341,13342,
  77383. 13343,13344,13345,13346,13347,13348,13349,13350,13351,13352,13353,13354,
  77384. 13355,13356,13357,13358,13359,13360,13361,13362,13363,13364,13365,13366,
  77385. 13367,13368,13369,13370,13371,13372,13373,13374,13375,13376,13377,13378,
  77386. 13379,13380,13381,13382,13383,13384,13385,13386,13387,13388,13389,13390,
  77387. 13391,13392,13393,13394,13395,13396,13397,13398,13399,13400,13401,13402,
  77388. 13403,13404,13405,13406,13407,13408,13409,13410,13411,13412,13413,13414,
  77389. 13415,13416,13417,13418,13419,13420,13421,13422,13423,13424,13425,13426,
  77390. 13427,13428,13429,13430,13431,13432,13433,13434,13435,13436,13437,13438,
  77391. 13439,13440,13441,13442,13443,13444,13445,13446,13447,13448,13449,13450,
  77392. 13451,13452,13453,13454,13455,13456,13457,13458,13459,13460,13461,13462,
  77393. 13463,13464,13465,13466,13467,13468,13469,13470,13471,13472,13473,13474,
  77394. 13475,13476,13477,13478,13479,13480,13481,13482,13483,13484,13485,13486,
  77395. 13487,13488,13489,13490,13491,13492,13493,13494,13495,13496,13497,13498,
  77396. 13499,13500,13501,13502,13503,13504,13505,13506,13507,13508,13509,13510,
  77397. 13511,13512,13513,13514,13515,13516,13517,13518,13519,13520,13521,13522,
  77398. 13523,13524,13525,13526,13527,13528,13529,13530,13531,13532,13533,13534,
  77399. 13535,13536,13537,13538,13539,13540,13541,13542,13543,13544,13545,13546,
  77400. 13547,13548,13549,13550,13551,13552,13553,13554,13555,13556,13557,13558,
  77401. 13559,13560,13561,13562,13563,13564,13565,13566,13567,13568,13569,13570,
  77402. 13571,13572,13573,13574,13575,13576,13577,13578,13579,13580,13581,13582,
  77403. 13583,13584,13585,13586,13587,13588,13589,13590,13591,13592,13593,13594,
  77404. 13595,13596,13597,13598,13599,13600,13601,13602,13603,13604,13605,13606,
  77405. 13607,13608,13609,13610,13611,13612,13613,13614,13615,13616,13617,13618,
  77406. 13619,13620,13621,13622,13623,13624,13625,13626,13627,13628,13629,13630,
  77407. 13631,13632,13633,13634,13635,13636,13637,13638,13639,13640,13641,13642,
  77408. 13643,13644,13645,13646,13647,13648,13649,13650,13651,13652,13653,13654,
  77409. 13655,13656,13657,13658,13659,13660,13661,13662,13663,13664,13665,13666,
  77410. 13667,13668,13669,13670,13671,13672,13673,13674,13675,13676,13677,13678,
  77411. 13679,13680,13681,13682,13683,13684,13685,13686,13687,13688,13689,13690,
  77412. 13691,13692,13693,13694,13695,13696,13697,13698,13699,13700,13701,13702,
  77413. 13703,13704,13705,13706,13707,13708,13709,13710,13711,13712,13713,13714,
  77414. 13715,13716,13717,13718,13719,13720,13721,13722,13723,13724,13725,13726,
  77415. 13727,13728,13729,13730,13731,13732,13733,13734,13735,13736,13737,13738,
  77416. 13739,13740,13741,13742,13743,13744,13745,13746,13747,13748,13749,13750,
  77417. 13751,13752,13753,13754,13755,13756,13757,13758,13759,13760,13761,13762,
  77418. 13763,13764,13765,13766,13767,13768,13769,13770,13771,13772,13773,13774,
  77419. 13775,13776,13777,13778,13779,13780,13781,13782,13783,13784,13785,13786,
  77420. 13787,13788,13789,13790,13791,13792,13793,13794,13795,13796,13797,13798,
  77421. 13799,13800,13801,13802,13803,13804,13805,13806,13807,13808,13809,13810,
  77422. 13811,13812,13813,13814,13815,13816,13817,13818,13819,13820,13821,13822,
  77423. 13823,13824,13825,13826,13827,13828,13829,13830,13831,13832,13833,13834,
  77424. 13835,13836,13837,13838,13839,13840,13841,13842,13843,13844,13845,13846,
  77425. 13847,13848,13849,13850,13851,13852,13853,13854,13855,13856,13857,13858,
  77426. 13859,13860,13861,13862,13863,13864,13865,13866,13867,13868,13869,13870,
  77427. 13871,13872,13873,13874,13875,13876,13877,13878,13879,13880,13881,13882,
  77428. 13883,13884,13885,13886,13887,13888,13889,13890,13891,13892,13893,13894,
  77429. 13895,13896,13897,13898,13899,13900,13901,13902,13903,13904,13905,13906,
  77430. 13907,13908,13909,13910,13911,13912,13913,13914,13915,13916,13917,13918,
  77431. 13919,13920,13921,13922,13923,13924,13925,13926,13927,13928,13929,13930,
  77432. 13931,13932,13933,13934,13935,13936,13937,13938,13939,13940,13941,13942,
  77433. 13943,13944,13945,13946,13947,13948,13949,13950,13951,13952,13953,13954,
  77434. 13955,13956,13957,13958,13959,13960,13961,13962,13963,13964,13965,13966,
  77435. 13967,13968,13969,13970,13971,13972,13973,13974,13975,13976,13977,13978,
  77436. 13979,13980,13981,13982,13983,13984,13985,13986,13987,13988,13989,13990,
  77437. 13991,13992,13993,13994,13995,13996,13997,13998,13999,14000,14001,14002,
  77438. 14003,14004,14005,14006,14007,14008,14009,14010,14011,14012,14013,14014,
  77439. 14015,14016,14017,14018,14019,14020,14021,14022,14023,14024,14025,14026,
  77440. 14027,14028,14029,14030,14031,14032,14033,14034,14035,14036,14037,14038,
  77441. 14039,14040,14041,14042,14043,14044,14045,14046,14047,14048,14049,14050,
  77442. 14051,14052,14053,14054,14055,14056,14057,14058,14059,14060,14061,14062,
  77443. 14063,14064,14065,14066,14067,14068,14069,14070,14071,14072,14073,14074,
  77444. 14075,14076,14077,14078,14079,14080,14081,14082,14083,14084,14085,14086,
  77445. 14087,14088,14089,14090,14091,14092,14093,14094,14095,14096,14097,14098,
  77446. 14099,14100,14101,14102,14103,14104,14105,14106,14107,14108,14109,14110,
  77447. 14111,14112,14113,14114,14115,14116,14117,14118,14119,14120,14121,14122,
  77448. 14123,14124,14125,14126,14127,14128,14129,14130,14131,14132,14133,14134,
  77449. 14135,14136,14137,14138,14139,14140,14141,14142,14143,14144,14145,14146,
  77450. 14147,14148,14149,14150,14151,14152,14153,14154,14155,14156,14157,14158,
  77451. 14159,14160,14161,14162,14163,14164,14165,14166,14167,14168,14169,14170,
  77452. 14171,14172,14173,14174,14175,14176,14177,14178,14179,14180,14181,14182,
  77453. 14183,14184,14185,14186,14187,14188,14189,14190,14191,14192,14193,14194,
  77454. 14195,14196,14197,14198,14199,14200,14201,14202,14203,14204,14205,14206,
  77455. 14207,14208,14209,14210,14211,14212,14213,14214,14215,14216,14217,14218,
  77456. 14219,14220,14221,14222,14223,14224,14225,14226,14227,14228,14229,14230,
  77457. 14231,14232,14233,14234,14235,14236,14237,14238,14239,14240,14241,14242,
  77458. 14243,14244,14245,14246,14247,14248,14249,14250,14251,14252,14253,14254,
  77459. 14255,14256,14257,14258,14259,14260,14261,14262,14263,14264,14265,14266,
  77460. 14267,14268,14269,14270,14271,14272,14273,14274,14275,14276,14277,14278,
  77461. 14279,14280,14281,14282,14283,14284,14285,14286,14287,14288,14289,14290,
  77462. 14291,14292,14293,14294,14295,14296,14297,14298,14299,14300,14301,14302,
  77463. 14303,14304,14305,14306,14307,14308,14309,14310,14311,14312,14313,14314,
  77464. 14315,14316,14317,14318,14319,14320,14321,14322,14323,14324,14325,14326,
  77465. 14327,14328,14329,14330,14331,14332,14333,14334,14335,14336,14337,14338,
  77466. 14339,14340,14341,14342,14343,14344,14345,14346,14347,14348,14349,14350,
  77467. 14351,14352,14353,14354,14355,14356,14357,14358,14359,14360,14361,14362,
  77468. 14363,14364,14365,14366,14367,14368,14369,14370,14371,14372,14373,14374,
  77469. 14375,14376,14377,14378,14379,14380,14381,14382,14383,14384,14385,14386,
  77470. 14387,14388,14389,14390,14391,14392,14393,14394,14395,14396,14397,14398,
  77471. 14399,14400,14401,14402,14403,14404,14405,14406,14407,14408,14409,14410,
  77472. 14411,14412,14413,14414,14415,14416,14417,14418,14419,14420,14421,14422,
  77473. 14423,14424,14425,14426,14427,14428,14429,14430,14431,14432,14433,14434,
  77474. 14435,14436,14437,14438,14439,14440,14441,14442,14443,14444,14445,14446,
  77475. 14447,14448,14449,14450,14451,14452,14453,14454,14455,14456,14457,14458,
  77476. 14459,14460,14461,14462,14463,14464,14465,14466,14467,14468,14469,14470,
  77477. 14471,14472,14473,14474,14475,14476,14477,14478,14479,14480,14481,14482,
  77478. 14483,14484,14485,14486,14487,14488,14489,14490,14491,14492,14493,14494,
  77479. 14495,14496,14497,14498,14499,14500,14501,14502,14503,14504,14505,14506,
  77480. 14507,14508,14509,14510,14511,14512,14513,14514,14515,14516,14517,14518,
  77481. 14519,14520,14521,14522,14523,14524,14525,14526,14527,14528,14529,14530,
  77482. 14531,14532,14533,14534,14535,14536,14537,14538,14539,14540,14541,14542,
  77483. 14543,14544,14545,14546,14547,14548,14549,14550,14551,14552,14553,14554,
  77484. 14555,14556,14557,14558,14559,14560,14561,14562,14563,14564,14565,14566,
  77485. 14567,14568,14569,14570,14571,14572,14573,14574,14575,14576,14577,14578,
  77486. 14579,14580,14581,14582,14583,14584,14585,14586,14587,14588,14589,14590,
  77487. 14591,14592,14593,14594,14595,14596,14597,14598,14599,14600,14601,14602,
  77488. 14603,14604,14605,14606,14607,14608,14609,14610,14611,14612,14613,14614,
  77489. 14615,14616,14617,14618,14619,14620,14621,14622,14623,14624,14625,14626,
  77490. 14627,14628,14629,14630,14631,14632,14633,14634,14635,14636,14637,14638,
  77491. 14639,14640,14641,14642,14643,14644,14645,14646,14647,14648,14649,14650,
  77492. 14651,14652,14653,14654,14655,14656,14657,14658,14659,14660,14661,14662,
  77493. 14663,14664,14665,14666,14667,14668,14669,14670,14671,14672,14673,14674,
  77494. 14675,14676,14677,14678,14679,14680,14681,14682,14683,14684,14685,14686,
  77495. 14687,14688,14689,14690,14691,14692,14693,14694,14695,14696,14697,14698,
  77496. 14699,14700,14701,14702,14703,14704,14705,14706,14707,14708,14709,14710,
  77497. 14711,14712,14713,14714,14715,14716,14717,14718,14719,14720,14721,14722,
  77498. 14723,14724,14725,14726,14727,14728,14729,14730,14731,14732,14733,14734,
  77499. 14735,14736,14737,14738,14739,14740,14741,14742,14743,14744,14745,14746,
  77500. 14747,14748,14749,14750,14751,14752,14753,14754,14755,14756,14757,14758,
  77501. 14759,14760,14761,14762,14763,14764,14765,14766,14767,14768,14769,14770,
  77502. 14771,14772,14773,14774,14775,14776,14777,14778,14779,14780,14781,14782,
  77503. 14783,14784,14785,14786,14787,14788,14789,14790,14791,14792,14793,14794,
  77504. 14795,14796,14797,14798,14799,14800,14801,14802,14803,14804,14805,14806,
  77505. 14807,14808,14809,14810,14811,14812,14813,14814,14815,14816,14817,14818,
  77506. 14819,14820,14821,14822,14823,14824,14825,14826,14827,14828,14829,14830,
  77507. 14831,14832,14833,14834,14835,14836,14837,14838,14839,14840,14841,14842,
  77508. 14843,14844,14845,14846,14847,14848,14849,14850,14851,14852,14853,14854,
  77509. 14855,14856,14857,14858,14859,14860,14861,14862,14863,14864,14865,14866,
  77510. 14867,14868,14869,14870,14871,14872,14873,14874,14875,14876,14877,14878,
  77511. 14879,14880,14881,14882,14883,14884,14885,14886,14887,14888,14889,14890,
  77512. 14891,14892,14893,14894,14895,14896,14897,14898,14899,14900,14901,14902,
  77513. 14903,14904,14905,14906,14907,14908,14909,14910,14911,14912,14913,14914,
  77514. 14915,14916,14917,14918,14919,14920,14921,14922,14923,14924,14925,14926,
  77515. 14927,14928,14929,14930,14931,14932,14933,14934,14935,14936,14937,14938,
  77516. 14939,14940,14941,14942,14943,14944,14945,14946,14947,14948,14949,14950,
  77517. 14951,14952,14953,14954,14955,14956,14957,14958,14959,14960,14961,14962,
  77518. 14963,14964,14965,14966,14967,14968,14969,14970,14971,14972,14973,14974,
  77519. 14975,14976,14977,14978,14979,14980,14981,14982,14983,14984,14985,14986,
  77520. 14987,14988,14989,14990,14991,14992,14993,14994,14995,14996,14997,14998,
  77521. 14999,15000,15001,15002,15003,15004,15005,15006,15007,15008,15009,15010,
  77522. 15011,15012,15013,15014,15015,15016,15017,15018,15019,15020,15021,15022,
  77523. 15023,15024,15025,15026,15027,15028,15029,15030,15031,15032,15033,15034,
  77524. 15035,15036,15037,15038,15039,15040,15041,15042,15043,15044,15045,15046,
  77525. 15047,15048,15049,15050,15051,15052,15053,15054,15055,15056,15057,15058,
  77526. 15059,15060,15061,15062,15063,15064,15065,15066,15067,15068,15069,15070,
  77527. 15071,15072,15073,15074,15075,15076,15077,15078,15079,15080,15081,15082,
  77528. 15083,15084,15085,15086,15087,15088,15089,15090,15091,15092,15093,15094,
  77529. 15095,15096,15097,15098,15099,15100,15101,15102,15103,15104,15105,15106,
  77530. 15107,15108,15109,15110,15111,15112,15113,15114,15115,15116,15117,15118,
  77531. 15119,15120,15121,15122,15123,15124,15125,15126,15127,15128,15129,15130,
  77532. 15131,15132,15133,15134,15135,15136,15137,15138,15139,15140,15141,15142,
  77533. 15143,15144,15145,15146,15147,15148,15149,15150,15151,15152,15153,15154,
  77534. 15155,15156,15157,15158,15159,15160,15161,15162,15163,15164,15165,15166,
  77535. 15167,15168,15169,15170,15171,15172,15173,15174,15175,15176,15177,15178,
  77536. 15179,15180,15181,15182,15183,15184,15185,15186,15187,15188,15189,15190,
  77537. 15191,15192,15193,15194,15195,15196,15197,15198,15199,15200,15201,15202,
  77538. 15203,15204,15205,15206,15207,15208,15209,15210,15211,15212,15213,15214,
  77539. 15215,15216,15217,15218,15219,15220,15221,15222,15223,15224,15225,15226,
  77540. 15227,15228,15229,15230,15231,15232,15233,15234,15235,15236,15237,15238,
  77541. 15239,15240,15241,15242,15243,15244,15245,15246,15247,15248,15249,15250,
  77542. 15251,15252,15253,15254,15255,15256,15257,15258,15259,15260,15261,15262,
  77543. 15263,15264,15265,15266,15267,15268,15269,15270,15271,15272,15273,15274,
  77544. 15275,15276,15277,15278,15279,15280,15281,15282,15283,15284,15285,15286,
  77545. 15287,15288,15289,15290,15291,15292,15293,15294,15295,15296,15297,15298,
  77546. 15299,15300,15301,15302,15303,15304,15305,15306,15307,15308,15309,15310,
  77547. 15311,15312,15313,15314,15315,15316,15317,15318,15319,15320,15321,15322,
  77548. 15323,15324,15325,15326,15327,15328,15329,15330,15331,15332,15333,15334,
  77549. 15335,15336,15337,15338,15339,15340,15341,15342,15343,15344,15345,15346,
  77550. 15347,15348,15349,15350,15351,15352,15353,15354,15355,15356,15357,15358,
  77551. 15359,15360,15361,15362,15363,15364,15365,15366,15367,15368,15369,15370,
  77552. 15371,15372,15373,15374,15375,15376,15377,15378,15379,15380,15381,15382,
  77553. 15383,15384,15385,15386,15387,15388,15389,15390,15391,15392,15393,15394,
  77554. 15395,15396,15397,15398,15399,15400,15401,15402,15403,15404,15405,15406,
  77555. 15407,15408,15409,15410,15411,15412,15413,15414,15415,15416,15417,15418,
  77556. 15419,15420,15421,15422,15423,15424,15425,15426,15427,15428,15429,15430,
  77557. 15431,15432,15433,15434,15435,15436,15437,15438,15439,15440,15441,15442,
  77558. 15443,15444,15445,15446,15447,15448,15449,15450,15451,15452,15453,15454,
  77559. 15455,15456,15457,15458,15459,15460,15461,15462,15463,15464,15465,15466,
  77560. 15467,15468,15469,15470,15471,15472,15473,15474,15475,15476,15477,15478,
  77561. 15479,15480,15481,15482,15483,15484,15485,15486,15487,15488,15489,15490,
  77562. 15491,15492,15493,15494,15495,15496,15497,15498,15499,15500,15501,15502,
  77563. 15503,15504,15505,15506,15507,15508,15509,15510,15511,15512,15513,15514,
  77564. 15515,15516,15517,15518,15519,15520,15521,15522,15523,15524,15525,15526,
  77565. 15527,15528,15529,15530,15531,15532,15533,15534,15535,15536,15537,15538,
  77566. 15539,15540,15541,15542,15543,15544,15545,15546,15547,15548,15549,15550,
  77567. 15551,15552,15553,15554,15555,15556,15557,15558,15559,15560,15561,15562,
  77568. 15563,15564,15565,15566,15567,15568,15569,15570,15571,15572,15573,15574,
  77569. 15575,15576,15577,15578,15579,15580,15581,15582,15583,15584,15585,15586,
  77570. 15587,15588,15589,15590,15591,15592,15593,15594,15595,15596,15597,15598,
  77571. 15599,15600,15601,15602,15603,15604,15605,15606,15607,15608,15609,15610,
  77572. 15611,15612,15613,15614,15615,15616,15617,15618,15619,15620,15621,15622,
  77573. 15623,15624,15625,15626,15627,15628,15629,15630,15631,15632,15633,15634,
  77574. 15635,15636,15637,15638,15639,15640,15641,15642,15643,15644,15645,15646,
  77575. 15647,15648,15649,15650,15651,15652,15653,15654,15655,15656,15657,15658,
  77576. 15659,15660,15661,15662,15663,15664,15665,15666,15667,15668,15669,15670,
  77577. 15671,15672,15673,15674,15675,15676,15677,15678,15679,15680,15681,15682,
  77578. 15683,15684,15685,15686,15687,15688,15689,15690,15691,15692,15693,15694,
  77579. 15695,15696,15697,15698,15699,15700,15701,15702,15703,15704,15705,15706,
  77580. 15707,15708,15709,15710,15711,15712,15713,15714,15715,15716,15717,15718,
  77581. 15719,15720,15721,15722,15723,15724,15725,15726,15727,15728,15729,15730,
  77582. 15731,15732,15733,15734,15735,15736,15737,15738,15739,15740,15741,15742,
  77583. 15743,15744,15745,15746,15747,15748,15749,15750,15751,15752,15753,15754,
  77584. 15755,15756,15757,15758,15759,15760,15761,15762,15763,15764,15765,15766,
  77585. 15767,15768,15769,15770,15771,15772,15773,15774,15775,15776,15777,15778,
  77586. 15779,15780,15781,15782,15783,15784,15785,15786,15787,15788,15789,15790,
  77587. 15791,15792,15793,15794,15795,15796,15797,15798,15799,15800,15801,15802,
  77588. 15803,15804,15805,15806,15807,15808,15809,15810,15811,15812,15813,15814,
  77589. 15815,15816,15817,15818,15819,15820,15821,15822,15823,15824,15825,15826,
  77590. 15827,15828,15829,15830,15831,15832,15833,15834,15835,15836,15837,15838,
  77591. 15839,15840,15841,15842,15843,15844,15845,15846,15847,15848,15849,15850,
  77592. 15851,15852,15853,15854,15855,15856,15857,15858,15859,15860,15861,15862,
  77593. 15863,15864,15865,15866,15867,15868,15869,15870,15871,15872,15873,15874,
  77594. 15875,15876,15877,15878,15879,15880,15881,15882,15883,15884,15885,15886,
  77595. 15887,15888,15889,15890,15891,15892,15893,15894,15895,15896,15897,15898,
  77596. 15899,15900,15901,15902,15903,15904,15905,15906,15907,15908,15909,15910,
  77597. 15911,15912,15913,15914,15915,15916,15917,15918,15919,15920,15921,15922,
  77598. 15923,15924,15925,15926,15927,15928,15929,15930,15931,15932,15933,15934,
  77599. 15935,15936,15937,15938,15939,15940,15941,15942,15943,15944,15945,15946,
  77600. 15947,15948,15949,15950,15951,15952,15953,15954,15955,15956,15957,15958,
  77601. 15959,15960,15961,15962,15963,15964,15965,15966,15967,15968,15969,15970,
  77602. 15971,15972,15973,15974,15975,15976,15977,15978,15979,15980,15981,15982,
  77603. 15983,15984,15985,15986,15987,15988,15989,15990,15991,15992,15993,15994,
  77604. 15995,15996,15997,15998,15999,16000,16001,16002,16003,16004,16005,16006,
  77605. 16007,16008,16009,16010,16011,16012,16013,16014,16015,16016,16017,16018,
  77606. 16019,16020,16021,16022,16023,16024,16025,16026,16027,16028,16029,16030,
  77607. 16031,16032,16033,16034,16035,16036,16037,16038,16039,16040,16041,16042,
  77608. 16043,16044,16045,16046,16047,16048,16049,16050,16051,16052,16053,16054,
  77609. 16055,16056,16057,16058,16059,16060,16061,16062,16063,16064,16065,16066,
  77610. 16067,16068,16069,16070,16071,16072,16073,16074,16075,16076,16077,16078,
  77611. 16079,16080,16081,16082,16083,16084,16085,16086,16087,16088,16089,16090,
  77612. 16091,16092,16093,16094,16095,16096,16097,16098,16099,16100,16101,16102,
  77613. 16103,16104,16105,16106,16107,16108,16109,16110,16111,16112,16113,16114,
  77614. 16115,16116,16117,16118,16119,16120,16121,16122,16123,16124,16125,16126,
  77615. 16127,16128,16129,16130,16131,16132,16133,16134,16135,16136,16137,16138,
  77616. 16139,16140,16141,16142,16143,16144,16145,16146,16147,16148,16149,16150,
  77617. 16151,16152,16153,16154,16155,16156,16157,16158,16159,16160,16161,16162,
  77618. 16163,16164,16165,16166,16167,16168,16169,16170,16171,16172,16173,16174,
  77619. 16175,16176,16177,16178,16179,16180,16181,16182,16183,16184,16185,16186,
  77620. 16187,16188,16189,16190,16191,16192,16193,16194,16195,16196,16197,16198,
  77621. 16199,16200,16201,16202,16203,16204,16205,16206,16207,16208,16209,16210,
  77622. 16211,16212,16213,16214,16215,16216,16217,16218,16219,16220,16221,16222,
  77623. 16223,16224,16225,16226,16227,16228,16229,16230,16231,16232,16233,16234,
  77624. 16235,16236,16237,16238,16239,16240,16241,16242,16243,16244,16245,16246,
  77625. 16247,16248,16249,16250,16251,16252,16253,16254,16255,16256,16257,16258,
  77626. 16259,16260,16261,16262,16263,16264,16265,16266,16267,16268,16269,16270,
  77627. 16271,16272,16273,16274,16275,16276,16277,16278,16279,16280,16281,16282,
  77628. 16283,16284,16285,16286,16287,16288,16289,16290,16291,16292,16293,16294,
  77629. 16295,16296,16297,16298,16299,16300,16301,16302,16303,16304,16305,16306,
  77630. 16307,16308,16309,16310,16311,16312,16313,16314,16315,16316,16317,16318,
  77631. 16319,16320,16321,16322,16323,16324,16325,16326,16327,16328,16329,16330,
  77632. 16331,16332,16333,16334,16335,16336,16337,16338,16339,16340,16341,16342,
  77633. 16343,16344,16345,16346,16347,16348,16349,16350,16351,16352,16353,16354,
  77634. 16355,16356,16357,16358,16359,16360,16361,16362,16363,16364,16365,16366,
  77635. 16367,16368,16369,16370,16371,16372,16373,16374,16375,16376,16377,16378,
  77636. 16379,16380,16381,16382,16383,16384,16385,16386,16387,16388,16389,16390,
  77637. 16391,16392,16393,16394,16395,16396,16397,16398,16399,16400,16401,16402,
  77638. 16403,16404,16405,16406,16407,16408,16409,16410,16411,16412,16413,16414,
  77639. 16415,16416,16417,16418,16419,16420,16421,16422,16423,16424,16425,16426,
  77640. 16427,16428,16429,16430,16431,16432,16433,16434,16435,16436,16437,16438,
  77641. 16439,16440,16441,16442,16443,16444,16445,16446,16447,16448,16449,16450,
  77642. 16451,16452,16453,16454,16455,16456,16457,16458,16459,16460,16461,16462,
  77643. 16463,16464,16465,16466,16467,16468,16469,16470,16471,16472,16473,16474,
  77644. 16475,16476,16477,16478,16479,16480,16481,16482,16483,16484,16485,16486,
  77645. 16487,16488,16489,16490,16491,16492,16493,16494,16495,16496,16497,16498,
  77646. 16499,16500,16501,16502,16503,16504,16505,16506,16507,16508,16509,16510,
  77647. 16511,16512,16513,16514,16515,16516,16517,16518,16519,16520,16521,16522,
  77648. 16523,16524,16525,16526,16527,16528,16529,16530,16531,16532,16533,16534,
  77649. 16535,16536,16537,16538,16539,16540,16541,16542,16543,16544,16545,16546,
  77650. 16547,16548,16549,16550,16551,16552,16553,16554,16555,16556,16557,16558,
  77651. 16559,16560,16561,16562,16563,16564,16565,16566,16567,16568,16569,16570,
  77652. 16571,16572,16573,16574,16575,16576,16577,16578,16579,16580,16581,16582,
  77653. 16583,16584,16585,16586,16587,16588,16589,16590,16591,16592,16593,16594,
  77654. 16595,16596,16597,16598,16599,16600,16601,16602,16603,16604,16605,16606,
  77655. 16607,16608,16609,16610,16611,16612,16613,16614,16615,16616,16617,16618,
  77656. 16619,16620,16621,16622,16623,16624,16625,16626,16627,16628,16629,16630,
  77657. 16631,16632,16633,16634,16635,16636,16637,16638,16639,16640,16641,16642,
  77658. 16643,16644,16645,16646,16647,16648,16649,16650,16651,16652,16653,16654,
  77659. 16655,16656,16657,16658,16659,16660,16661,16662,16663,16664,16665,16666,
  77660. 16667,16668,16669,16670,16671,16672,16673,16674,16675,16676,16677,16678,
  77661. 16679,16680,16681,16682,16683,16684,16685,16686,16687,16688,16689,16690,
  77662. 16691,16692,16693,16694,16695,16696,16697,16698,16699,16700,16701,16702,
  77663. 16703,16704,16705,16706,16707,16708,16709,16710,16711,16712,16713,16714,
  77664. 16715,16716,16717,16718,16719,16720,16721,16722,16723,16724,16725,16726,
  77665. 16727,16728,16729,16730,16731,16732,16733,16734,16735,16736,16737,16738,
  77666. 16739,16740,16741,16742,16743,16744,16745,16746,16747,16748,16749,16750,
  77667. 16751,16752,16753,16754,16755,16756,16757,16758,16759,16760,16761,16762,
  77668. 16763,16764,16765,16766,16767,16768,16769,16770,16771,16772,16773,16774,
  77669. 16775,16776,16777,16778,16779,16780,16781,16782,16783,16784,16785,16786,
  77670. 16787,16788,16789,16790,16791,16792,16793,16794,16795,16796,16797,16798,
  77671. 16799,16800,16801,16802,16803,16804,16805,16806,16807,16808,16809,16810,
  77672. 16811,16812,16813,16814,16815,16816,16817,16818,16819,16820,16821,16822,
  77673. 16823,16824,16825,16826,16827,16828,16829,16830,16831,16832,16833,16834,
  77674. 16835,16836,16837,16838,16839,16840,16841,16842,16843,16844,16845,16846,
  77675. 16847,16848,16849,16850,16851,16852,16853,16854,16855,16856,16857,16858,
  77676. 16859,16860,16861,16862,16863,16864,16865,16866,16867,16868,16869,16870,
  77677. 16871,16872,16873,16874,16875,16876,16877,16878,16879,16880,16881,16882,
  77678. 16883,16884,16885,16886,16887,16888,16889,16890,16891,16892,16893,16894,
  77679. 16895,16896,16897,16898,16899,16900,16901,16902,16903,16904,16905,16906,
  77680. 16907,16908,16909,16910,16911,16912,16913,16914,16915,16916,16917,16918,
  77681. 16919,16920,16921,16922,16923,16924,16925,16926,16927,16928,16929,16930,
  77682. 16931,16932,16933,16934,16935,16936,16937,16938,16939,16940,16941,16942,
  77683. 16943,16944,16945,16946,16947,16948,16949,16950,16951,16952,16953,16954,
  77684. 16955,16956,16957,16958,16959,16960,16961,16962,16963,16964,16965,16966,
  77685. 16967,16968,16969,16970,16971,16972,16973,16974,16975,16976,16977,16978,
  77686. 16979,16980,16981,16982,16983,16984,16985,16986,16987,16988,16989,16990,
  77687. 16991,16992,16993,16994,16995,16996,16997,16998,16999,17000,17001,17002,
  77688. 17003,17004,17005,17006,17007,17008,17009,17010,17011,17012,17013,17014,
  77689. 17015,17016,17017,17018,17019,17020,17021,17022,17023,17024,17025,17026,
  77690. 17027,17028,17029,17030,17031,17032,17033,17034,17035,17036,17037,17038,
  77691. 17039,17040,17041,17042,17043,17044,17045,17046,17047,17048,17049,17050,
  77692. 17051,17052,17053,17054,17055,17056,17057,17058,17059,17060,17061,17062,
  77693. 17063,17064,17065,17066,17067,17068,17069,17070,17071,17072,17073,17074,
  77694. 17075,17076,17077,17078,17079,17080,17081,17082,17083,17084,17085,17086,
  77695. 17087,17088,17089,17090,17091,17092,17093,17094,17095,17096,17097,17098,
  77696. 17099,17100,17101,17102,17103,17104,17105,17106,17107,17108,17109,17110,
  77697. 17111,17112,17113,17114,17115,17116,17117,17118,17119,17120,17121,17122,
  77698. 17123,17124,17125,17126,17127,17128,17129,17130,17131,17132,17133,17134,
  77699. 17135,17136,17137,17138,17139,17140,17141,17142,17143,17144,17145,17146,
  77700. 17147,17148,17149,17150,17151,17152,17153,17154,17155,17156,17157,17158,
  77701. 17159,17160,17161,17162,17163,17164,17165,17166,17167,17168,17169,17170,
  77702. 17171,17172,17173,17174,17175,17176,17177,17178,17179,17180,17181,17182,
  77703. 17183,17184,17185,17186,17187,17188,17189,17190,17191,17192,17193,17194,
  77704. 17195,17196,17197,17198,17199,17200,17201,17202,17203,17204,17205,17206,
  77705. 17207,17208,17209,17210,17211,17212,17213,17214,17215,17216,17217,17218,
  77706. 17219,17220,17221,17222,17223,17224,17225,17226,17227,17228,17229,17230,
  77707. 17231,17232,17233,17234,17235,17236,17237,17238,17239,17240,17241,17242,
  77708. 17243,17244,17245,17246,17247,17248,17249,17250,17251,17252,17253,17254,
  77709. 17255,17256,17257,17258,17259,17260,17261,17262,17263,17264,17265,17266,
  77710. 17267,17268,17269,17270,17271,17272,17273,17274,17275,17276,17277,17278,
  77711. 17279,17280,17281,17282,17283,17284,17285,17286,17287,17288,17289,17290,
  77712. 17291,17292,17293,17294,17295,17296,17297,17298,17299,17300,17301,17302,
  77713. 17303,17304,17305,17306,17307,17308,17309,17310,17311,17312,17313,17314,
  77714. 17315,17316,17317,17318,17319,17320,17321,17322,17323,17324,17325,17326,
  77715. 17327,17328,17329,17330,17331,17332,17333,17334,17335,17336,17337,17338,
  77716. 17339,17340,17341,17342,17343,17344,17345,17346,17347,17348,17349,17350,
  77717. 17351,17352,17353,17354,17355,17356,17357,17358,17359,17360,17361,17362,
  77718. 17363,17364,17365,17366,17367,17368,17369,17370,17371,17372,17373,17374,
  77719. 17375,17376,17377,17378,17379,17380,17381,17382,17383,17384,17385,17386,
  77720. 17387,17388,17389,17390,17391,17392,17393,17394,17395,17396,17397,17398,
  77721. 17399,17400,17401,17402,17403,17404,17405,17406,17407,17408,17409,17410,
  77722. 17411,17412,17413,17414,17415,17416,17417,17418,17419,17420,17421,17422,
  77723. 17423,17424,17425,17426,17427,17428,17429,17430,17431,17432,17433,17434,
  77724. 17435,17436,17437,17438,17439,17440,17441,17442,17443,17444,17445,17446,
  77725. 17447,17448,17449,17450,17451,17452,17453,17454,17455,17456,17457,17458,
  77726. 17459,17460,17461,17462,17463,17464,17465,17466,17467,17468,17469,17470,
  77727. 17471,17472,17473,17474,17475,17476,17477,17478,17479,17480,17481,17482,
  77728. 17483,17484,17485,17486,17487,17488,17489,17490,17491,17492,17493,17494,
  77729. 17495,17496,17497,17498,17499,17500,17501,17502,17503,17504,17505,17506,
  77730. 17507,17508,17509,17510,17511,17512,17513,17514,17515,17516,17517,17518,
  77731. 17519,17520,17521,17522,17523,17524,17525,17526,17527,17528,17529,17530,
  77732. 17531,17532,17533,17534,17535,17536,17537,17538,17539,17540,17541,17542,
  77733. 17543,17544,17545,17546,17547,17548,17549,17550,17551,17552,17553,17554,
  77734. 17555,17556,17557,17558,17559,17560,17561,17562,17563,17564,17565,17566,
  77735. 17567,17568,17569,17570,17571,17572,17573,17574,17575,17576,17577,17578,
  77736. 17579,17580,17581,17582,17583,17584,17585,17586,17587,17588,17589,17590,
  77737. 17591,17592,17593,17594,17595,17596,17597,17598,17599,17600,17601,17602,
  77738. 17603,17604,17605,17606,17607,17608,17609,17610,17611,17612,17613,17614,
  77739. 17615,17616,17617,17618,17619,17620,17621,17622,17623,17624,17625,17626,
  77740. 17627,17628,17629,17630,17631,17632,17633,17634,17635,17636,17637,17638,
  77741. 17639,17640,17641,17642,17643,17644,17645,17646,17647,17648,17649,17650,
  77742. 17651,17652,17653,17654,17655,17656,17657,17658,17659,17660,17661,17662,
  77743. 17663,17664,17665,17666,17667,17668,17669,17670,17671,17672,17673,17674,
  77744. 17675,17676,17677,17678,17679,17680,17681,17682,17683,17684,17685,17686,
  77745. 17687,17688,17689,17690,17691,17692,17693,17694,17695,17696,17697,17698,
  77746. 17699,17700,17701,17702,17703,17704,17705,17706,17707,17708,17709,17710,
  77747. 17711,17712,17713,17714,17715,17716,17717,17718,17719,17720,17721,17722,
  77748. 17723,17724,17725,17726,17727,17728,17729,17730,17731,17732,17733,17734,
  77749. 17735,17736,17737,17738,17739,17740,17741,17742,17743,17744,17745,17746,
  77750. 17747,17748,17749,17750,17751,17752,17753,17754,17755,17756,17757,17758,
  77751. 17759,17760,17761,17762,17763,17764,17765,17766,17767,17768,17769,17770,
  77752. 17771,17772,17773,17774,17775,17776,17777,17778,17779,17780,17781,17782,
  77753. 17783,17784,17785,17786,17787,17788,17789,17790,17791,17792,17793,17794,
  77754. 17795,17796,17797,17798,17799,17800,17801,17802,17803,17804,17805,17806,
  77755. 17807,17808,17809,17810,17811,17812,17813,17814,17815,17816,17817,17818,
  77756. 17819,17820,17821,17822,17823,17824,17825,17826,17827,17828,17829,17830,
  77757. 17831,17832,17833,17834,17835,17836,17837,17838,17839,17840,17841,17842,
  77758. 17843,17844,17845,17846,17847,17848,17849,17850,17851,17852,17853,17854,
  77759. 17855,17856,17857,17858,17859,17860,17861,17862,17863,17864,17865,17866,
  77760. 17867,17868,17869,17870,17871,17872,17873,17874,17875,17876,17877,17878,
  77761. 17879,17880,17881,17882,17883,17884,17885,17886,17887,17888,17889,17890,
  77762. 17891,17892,17893,17894,17895,17896,17897,17898,17899,17900,17901,17902,
  77763. 17903,17904,17905,17906,17907,17908,17909,17910,17911,17912,17913,17914,
  77764. 17915,17916,17917,17918,17919,17920,17921,17922,17923,17924,17925,17926,
  77765. 17927,17928,17929,17930,17931,17932,17933,17934,17935,17936,17937,17938,
  77766. 17939,17940,17941,17942,17943,17944,17945,17946,17947,17948,17949,17950,
  77767. 17951,17952,17953,17954,17955,17956,17957,17958,17959,17960,17961,17962,
  77768. 17963,17964,17965,17966,17967,17968,17969,17970,17971,17972,17973,17974,
  77769. 17975,17976,17977,17978,17979,17980,17981,17982,17983,17984,17985,17986,
  77770. 17987,17988,17989,17990,17991,17992,17993,17994,17995,17996,17997,17998,
  77771. 17999,18000,18001,18002,18003,18004,18005,18006,18007,18008,18009,18010,
  77772. 18011,18012,18013,18014,18015,18016,18017,18018,18019,18020,18021,18022,
  77773. 18023,18024,18025,18026,18027,18028,18029,18030,18031,18032,18033,18034,
  77774. 18035,18036,18037,18038,18039,18040,18041,18042,18043,18044,18045,18046,
  77775. 18047,18048,18049,18050,18051,18052,18053,18054,18055,18056,18057,18058,
  77776. 18059,18060,18061,18062,18063,18064,18065,18066,18067,18068,18069,18070,
  77777. 18071,18072,18073,18074,18075,18076,18077,18078,18079,18080,18081,18082,
  77778. 18083,18084,18085,18086,18087,18088,18089,18090,18091,18092,18093,18094,
  77779. 18095,18096,18097,18098,18099,18100,18101,18102,18103,18104,18105,18106,
  77780. 18107,18108,18109,18110,18111,18112,18113,18114,18115,18116,18117,18118,
  77781. 18119,18120,18121,18122,18123,18124,18125,18126,18127,18128,18129,18130,
  77782. 18131,18132,18133,18134,18135,18136,18137,18138,18139,18140,18141,18142,
  77783. 18143,18144,18145,18146,18147,18148,18149,18150,18151,18152,18153,18154,
  77784. 18155,18156,18157,18158,18159,18160,18161,18162,18163,18164,18165,18166,
  77785. 18167,18168,18169,18170,18171,18172,18173,18174,18175,18176,18177,18178,
  77786. 18179,18180,18181,18182,18183,18184,18185,18186,18187,18188,18189,18190,
  77787. 18191,18192,18193,18194,18195,18196,18197,18198,18199,18200,18201,18202,
  77788. 18203,18204,18205,18206,18207,18208,18209,18210,18211,18212,18213,18214,
  77789. 18215,18216,18217,18218,18219,18220,18221,18222,18223,18224,18225,18226,
  77790. 18227,18228,18229,18230,18231,18232,18233,18234,18235,18236,18237,18238,
  77791. 18239,18240,18241,18242,18243,18244,18245,18246,18247,18248,18249,18250,
  77792. 18251,18252,18253,18254,18255,18256,18257,18258,18259,18260,18261,18262,
  77793. 18263,18264,18265,18266,18267,18268,18269,18270,18271,18272,18273,18274,
  77794. 18275,18276,18277,18278,18279,18280,18281,18282,18283,18284,18285,18286,
  77795. 18287,18288,18289,18290,18291,18292,18293,18294,18295,18296,18297,18298,
  77796. 18299,18300,18301,18302,18303,18304,18305,18306,18307,18308,18309,18310,
  77797. 18311,18312,18313,18314,18315,18316,18317,18318,18319,18320,18321,18322,
  77798. 18323,18324,18325,18326,18327,18328,18329,18330,18331,18332,18333,18334,
  77799. 18335,18336,18337,18338,18339,18340,18341,18342,18343,18344,18345,18346,
  77800. 18347,18348,18349,18350,18351,18352,18353,18354,18355,18356,18357,18358,
  77801. 18359,18360,18361,18362,18363,18364,18365,18366,18367,18368,18369,18370,
  77802. 18371,18372,18373,18374,18375,18376,18377,18378,18379,18380,18381,18382,
  77803. 18383,18384,18385,18386,18387,18388,18389,18390,18391,18392,18393,18394,
  77804. 18395,18396,18397,18398,18399,18400,18401,18402,18403,18404,18405,18406,
  77805. 18407,18408,18409,18410,18411,18412,18413,18414,18415,18416,18417,18418,
  77806. 18419,18420,18421,18422,18423,18424,18425,18426,18427,18428,18429,18430,
  77807. 18431,18432,18433,18434,18435,18436,18437,18438,18439,18440,18441,18442,
  77808. 18443,18444,18445,18446,18447,18448,18449,18450,18451,18452,18453,18454,
  77809. 18455,18456,18457,18458,18459,18460,18461,18462,18463,18464,18465,18466,
  77810. 18467,18468,18469,18470,18471,18472,18473,18474,18475,18476,18477,18478,
  77811. 18479,18480,18481,18482,18483,18484,18485,18486,18487,18488,18489,18490,
  77812. 18491,18492,18493,18494,18495,18496,18497,18498,18499,18500,18501,18502,
  77813. 18503,18504,18505,18506,18507,18508,18509,18510,18511,18512,18513,18514,
  77814. 18515,18516,18517,18518,18519,18520,18521,18522,18523,18524,18525,18526,
  77815. 18527,18528,18529,18530,18531,18532,18533,18534,18535,18536,18537,18538,
  77816. 18539,18540,18541,18542,18543,18544,18545,18546,18547,18548,18549,18550,
  77817. 18551,18552,18553,18554,18555,18556,18557,18558,18559,18560,18561,18562,
  77818. 18563,18564,18565,18566,18567,18568,18569,18570,18571,18572,18573,18574,
  77819. 18575,18576,18577,18578,18579,18580,18581,18582,18583,18584,18585,18586,
  77820. 18587,18588,18589,18590,18591,18592,18593,18594,18595,18596,18597,18598,
  77821. 18599,18600,18601,18602,18603,18604,18605,18606,18607,18608,18609,18610,
  77822. 18611,18612,18613,18614,18615,18616,18617,18618,18619,18620,18621,18622,
  77823. 18623,18624,18625,18626,18627,18628,18629,18630,18631,18632,18633,18634,
  77824. 18635,18636,18637,18638,18639,18640,18641,18642,18643,18644,18645,18646,
  77825. 18647,18648,18649,18650,18651,18652,18653,18654,18655,18656,18657,18658,
  77826. 18659,18660,18661,18662,18663,18664,18665,18666,18667,18668,18669,18670,
  77827. 18671,18672,18673,18674,18675,18676,18677,18678,18679,18680,18681,18682,
  77828. 18683,18684,18685,18686,18687,18688,18689,18690,18691,18692,18693,18694,
  77829. 18695,18696,18697,18698,18699,18700,18701,18702,18703,18704,18705,18706,
  77830. 18707,18708,18709,18710,18711,18712,18713,18714,18715,18716,18717,18718,
  77831. 18719,18720,18721,18722,18723,18724,18725,18726,18727,18728,18729,18730,
  77832. 18731,18732,18733,18734,18735,18736,18737,18738,18739,18740,18741,18742,
  77833. 18743,18744,18745,18746,18747,18748,18749,18750,18751,18752,18753,18754,
  77834. 18755,18756,18757,18758,18759,18760,18761,18762,18763,18764,18765,18766,
  77835. 18767,18768,18769,18770,18771,18772,18773,18774,18775,18776,18777,18778,
  77836. 18779,18780,18781,18782,18783,18784,18785,18786,18787,18788,18789,18790,
  77837. 18791,18792,18793,18794,18795,18796,18797,18798,18799,18800,18801,18802,
  77838. 18803,18804,18805,18806,18807,18808,18809,18810,18811,18812,18813,18814,
  77839. 18815,18816,18817,18818,18819,18820,18821,18822,18823,18824,18825,18826,
  77840. 18827,18828,18829,18830,18831,18832,18833,18834,18835,18836,18837,18838,
  77841. 18839,18840,18841,18842,18843,18844,18845,18846,18847,18848,18849,18850,
  77842. 18851,18852,18853,18854,18855,18856,18857,18858,18859,18860,18861,18862,
  77843. 18863,18864,18865,18866,18867,18868,18869,18870,18871,18872,18873,18874,
  77844. 18875,18876,18877,18878,18879,18880,18881,18882,18883,18884,18885,18886,
  77845. 18887,18888,18889,18890,18891,18892,18893,18894,18895,18896,18897,18898,
  77846. 18899,18900,18901,18902,18903,18904,18905,18906,18907,18908,18909,18910,
  77847. 18911,18912,18913,18914,18915,18916,18917,18918,18919,18920,18921,18922,
  77848. 18923,18924,18925,18926,18927,18928,18929,18930,18931,18932,18933,18934,
  77849. 18935,18936,18937,18938,18939,18940,18941,18942,18943,18944,18945,18946,
  77850. 18947,18948,18949,18950,18951,18952,18953,18954,18955,18956,18957,18958,
  77851. 18959,18960,18961,18962,18963,18964,18965,18966,18967,18968,18969,18970,
  77852. 18971,18972,18973,18974,18975,18976,18977,18978,18979,18980,18981,18982,
  77853. 18983,18984,18985,18986,18987,18988,18989,18990,18991,18992,18993,18994,
  77854. 18995,18996,18997,18998,18999,19000,19001,19002,19003,19004,19005,19006,
  77855. 19007,19008,19009,19010,19011,19012,19013,19014,19015,19016,19017,19018,
  77856. 19019,19020,19021,19022,19023,19024,19025,19026,19027,19028,19029,19030,
  77857. 19031,19032,19033,19034,19035,19036,19037,19038,19039,19040,19041,19042,
  77858. 19043,19044,19045,19046,19047,19048,19049,19050,19051,19052,19053,19054,
  77859. 19055,19056,19057,19058,19059,19060,19061,19062,19063,19064,19065,19066,
  77860. 19067,19068,19069,19070,19071,19072,19073,19074,19075,19076,19077,19078,
  77861. 19079,19080,19081,19082,19083,19084,19085,19086,19087,19088,19089,19090,
  77862. 19091,19092,19093,19094,19095,19096,19097,19098,19099,19100,19101,19102,
  77863. 19103,19104,19105,19106,19107,19108,19109,19110,19111,19112,19113,19114,
  77864. 19115,19116,19117,19118,19119,19120,19121,19122,19123,19124,19125,19126,
  77865. 19127,19128,19129,19130,19131,19132,19133,19134,19135,19136,19137,19138,
  77866. 19139,19140,19141,19142,19143,19144,19145,19146,19147,19148,19149,19150,
  77867. 19151,19152,19153,19154,19155,19156,19157,19158,19159,19160,19161,19162,
  77868. 19163,19164,19165,19166,19167,19168,19169,19170,19171,19172,19173,19174,
  77869. 19175,19176,19177,19178,19179,19180,19181,19182,19183,19184,19185,19186,
  77870. 19187,19188,19189,19190,19191,19192,19193,19194,19195,19196,19197,19198,
  77871. 19199,19200,19201,19202,19203,19204,19205,19206,19207,19208,19209,19210,
  77872. 19211,19212,19213,19214,19215,19216,19217,19218,19219,19220,19221,19222,
  77873. 19223,19224,19225,19226,19227,19228,19229,19230,19231,19232,19233,19234,
  77874. 19235,19236,19237,19238,19239,19240,19241,19242,19243,19244,19245,19246,
  77875. 19247,19248,19249,19250,19251,19252,19253,19254,19255,19256,19257,19258,
  77876. 19259,19260,19261,19262,19263,19264,19265,19266,19267,19268,19269,19270,
  77877. 19271,19272,19273,19274,19275,19276,19277,19278,19279,19280,19281,19282,
  77878. 19283,19284,19285,19286,19287,19288,19289,19290,19291,19292,19293,19294,
  77879. 19295,19296,19297,19298,19299,19300,19301,19302,19303,19304,19305,19306,
  77880. 19307,19308,19309,19310,19311,19312,19313,19314,19315,19316,19317,19318,
  77881. 19319,19320,19321,19322,19323,19324,19325,19326,19327,19328,19329,19330,
  77882. 19331,19332,19333,19334,19335,19336,19337,19338,19339,19340,19341,19342,
  77883. 19343,19344,19345,19346,19347,19348,19349,19350,19351,19352,19353,19354,
  77884. 19355,19356,19357,19358,19359,19360,19361,19362,19363,19364,19365,19366,
  77885. 19367,19368,19369,19370,19371,19372,19373,19374,19375,19376,19377,19378,
  77886. 19379,19380,19381,19382,19383,19384,19385,19386,19387,19388,19389,19390,
  77887. 19391,19392,19393,19394,19395,19396,19397,19398,19399,19400,19401,19402,
  77888. 19403,19404,19405,19406,19407,19408,19409,19410,19411,19412,19413,19414,
  77889. 19415,19416,19417,19418,19419,19420,19421,19422,19423,19424,19425,19426,
  77890. 19427,19428,19429,19430,19431,19432,19433,19434,19435,19436,19437,19438,
  77891. 19439,19440,19441,19442,19443,19444,19445,19446,19447,19448,19449,19450,
  77892. 19451,19452,19453,19454,19455,19456,19457,19458,19459,19460,19461,19462,
  77893. 19463,19464,19465,19466,19467,19468,19469,19470,19471,19472,19473,19474,
  77894. 19475,19476,19477,19478,19479,19480,19481,19482,19483,19484,19485,19486,
  77895. 19487,19488,19489,19490,19491,19492,19493,19494,19495,19496,19497,19498,
  77896. 19499,19500,19501,19502,19503,19504,19505,19506,19507,19508,19509,19510,
  77897. 19511,19512,19513,19514,19515,19516,19517,19518,19519,19520,19521,19522,
  77898. 19523,19524,19525,19526,19527,19528,19529,19530,19531,19532,19533,19534,
  77899. 19535,19536,19537,19538,19539,19540,19541,19542,19543,19544,19545,19546,
  77900. 19547,19548,19549,19550,19551,19552,19553,19554,19555,19556,19557,19558,
  77901. 19559,19560,19561,19562,19563,19564,19565,19566,19567,19568,19569,19570,
  77902. 19571,19572,19573,19574,19575,19576,19577,19578,19579,19580,19581,19582,
  77903. 19583,19584,19585,19586,19587,19588,19589,19590,19591,19592,19593,19594,
  77904. 19595,19596,19597,19598,19599,19600,19601,19602,19603,19604,19605,19606,
  77905. 19607,19608,19609,19610,19611,19612,19613,19614,19615,19616,19617,19618,
  77906. 19619,19620,19621,19622,19623,19624,19625,19626,19627,19628,19629,19630,
  77907. 19631,19632,19633,19634,19635,19636,19637,19638,19639,19640,19641,19642,
  77908. 19643,19644,19645,19646,19647,19648,19649,19650,19651,19652,19653,19654,
  77909. 19655,19656,19657,19658,19659,19660,19661,19662,19663,19664,19665,19666,
  77910. 19667,19668,19669,19670,19671,19672,19673,19674,19675,19676,19677,19678,
  77911. 19679,19680,19681,19682,19683,19684,19685,19686,19687,19688,19689,19690,
  77912. 19691,19692,19693,19694,19695,19696,19697,19698,19699,19700,19701,19702,
  77913. 19703,19704,19705,19706,19707,19708,19709,19710,19711,19712,19713,19714,
  77914. 19715,19716,19717,19718,19719,19720,19721,19722,19723,19724,19725,19726,
  77915. 19727,19728,19729,19730,19731,19732,19733,19734,19735,19736,19737,19738,
  77916. 19739,19740,19741,19742,19743,19744,19745,19746,19747,19748,19749,19750,
  77917. 19751,19752,19753,19754,19755,19756,19757,19758,19759,19760,19761,19762,
  77918. 19763,19764,19765,19766,19767,19768,19769,19770,19771,19772,19773,19774,
  77919. 19775,19776,19777,19778,19779,19780,19781,19782,19783,19784,19785,19786,
  77920. 19787,19788,19789,19790,19791,19792,19793,19794,19795,19796,19797,19798,
  77921. 19799,19800,19801,19802,19803,19804,19805,19806,19807,19808,19809,19810,
  77922. 19811,19812,19813,19814,19815,19816,19817,19818,19819,19820,19821,19822,
  77923. 19823,19824,19825,19826,19827,19828,19829,19830,19831,19832,19833,19834,
  77924. 19835,19836,19837,19838,19839,19840,19841,19842,19843,19844,19845,19846,
  77925. 19847,19848,19849,19850,19851,19852,19853,19854,19855,19856,19857,19858,
  77926. 19859,19860,19861,19862,19863,19864,19865,19866,19867,19868,19869,19870,
  77927. 19871,19872,19873,19874,19875,19876,19877,19878,19879,19880,19881,19882,
  77928. 19883,19884,19885,19886,19887,19888,19889,19890,19891,19892,19893,19894,
  77929. 19895,19896,19897,19898,19899,19900,19901,19902,19903,19904,19905,19906,
  77930. 19907,19908,19909,19910,19911,19912,19913,19914,19915,19916,19917,19918,
  77931. 19919,19920,19921,19922,19923,19924,19925,19926,19927,19928,19929,19930,
  77932. 19931,19932,19933,19934,19935,19936,19937,19938,19939,19940,19941,19942,
  77933. 19943,19944,19945,19946,19947,19948,19949,19950,19951,19952,19953,19954,
  77934. 19955,19956,19957,19958,19959,19960,19961,19962,19963,19964,19965,19966,
  77935. 19967,19968,19969,19970,19971,19972,19973,19974,19975,19976,19977,19978,
  77936. 19979,19980,19981,19982,19983,19984,19985,19986,19987,19988,19989,19990,
  77937. 19991,19992,19993,19994,19995,19996,19997,19998,19999,20000,20001,20002,
  77938. 20003,20004,20005,20006,20007,20008,20009,20010,20011,20012,20013,20014,
  77939. 20015,20016,20017,20018,20019,20020,20021,20022,20023,20024,20025,20026,
  77940. 20027,20028,20029,20030,20031,20032,20033,20034,20035,20036,20037,20038,
  77941. 20039,20040,20041,20042,20043,20044,20045,20046,20047,20048,20049,20050,
  77942. 20051,20052,20053,20054,20055,20056,20057,20058,20059,20060,20061,20062,
  77943. 20063,20064,20065,20066,20067,20068,20069,20070,20071,20072,20073,20074,
  77944. 20075,20076,20077,20078,20079,20080,20081,20082,20083,20084,20085,20086,
  77945. 20087,20088,20089,20090,20091,20092,20093,20094,20095,20096,20097,20098,
  77946. 20099,20100,20101,20102,20103,20104,20105,20106,20107,20108,20109,20110,
  77947. 20111,20112,20113,20114,20115,20116,20117,20118,20119,20120,20121,20122,
  77948. 20123,20124,20125,20126,20127,20128,20129,20130,20131,20132,20133,20134,
  77949. 20135,20136,20137,20138,20139,20140,20141,20142,20143,20144,20145,20146,
  77950. 20147,20148,20149,20150,20151,20152,20153,20154,20155,20156,20157,20158,
  77951. 20159,20160,20161,20162,20163,20164,20165,20166,20167,20168,20169,20170,
  77952. 20171,20172,20173,20174,20175,20176,20177,20178,20179,20180,20181,20182,
  77953. 20183,20184,20185,20186,20187,20188,20189,20190,20191,20192,20193,20194,
  77954. 20195,20196,20197,20198,20199,20200,20201,20202,20203,20204,20205,20206,
  77955. 20207,20208,20209,20210,20211,20212,20213,20214,20215,20216,20217,20218,
  77956. 20219,20220,20221,20222,20223,20224,20225,20226,20227,20228,20229,20230,
  77957. 20231,20232,20233,20234,20235,20236,20237,20238,20239,20240,20241,20242,
  77958. 20243,20244,20245,20246,20247,20248,20249,20250,20251,20252,20253,20254,
  77959. 20255,20256,20257,20258,20259,20260,20261,20262,20263,20264,20265,20266,
  77960. 20267,20268,20269,20270,20271,20272,20273,20274,20275,20276,20277,20278,
  77961. 20279,20280,20281,20282,20283,20284,20285,20286,20287,20288,20289,20290,
  77962. 20291,20292,20293,20294,20295,20296,20297,20298,20299,20300,20301,20302,
  77963. 20303,20304,20305,20306,20307,20308,20309,20310,20311,20312,20313,20314,
  77964. 20315,20316,20317,20318,20319,20320,20321,20322,20323,20324,20325,20326,
  77965. 20327,20328,20329,20330,20331,20332,20333,20334,20335,20336,20337,20338,
  77966. 20339,20340,20341,20342,20343,20344,20345,20346,20347,20348,20349,20350,
  77967. 20351,20352,20353,20354,20355,20356,20357,20358,20359,20360,20361,20362,
  77968. 20363,20364,20365,20366,20367,20368,20369,20370,20371,20372,20373,20374,
  77969. 20375,20376,20377,20378,20379,20380,20381,20382,20383,20384,20385,20386,
  77970. 20387,20388,20389,20390,20391,20392,20393,20394,20395,20396,20397,20398,
  77971. 20399,20400,20401,20402,20403,20404,20405,20406,20407,20408,20409,20410,
  77972. 20411,20412,20413,20414,20415,20416,20417,20418,20419,20420,20421,20422,
  77973. 20423,20424,20425,20426,20427,20428,20429,20430,20431,20432,20433,20434,
  77974. 20435,20436,20437,20438,20439,20440,20441,20442,20443,20444,20445,20446,
  77975. 20447,20448,20449,20450,20451,20452,20453,20454,20455,20456,20457,20458,
  77976. 20459,20460,20461,20462,20463,20464,20465,20466,20467,20468,20469,20470,
  77977. 20471,20472,20473,20474,20475,20476,20477,20478,20479,20480,20481,20482,
  77978. 20483,20484,20485,20486,20487,20488,20489,20490,20491,20492,20493,20494,
  77979. 20495,20496,20497,20498,20499,20500,20501,20502,20503,20504,20505,20506,
  77980. 20507,20508,20509,20510,20511,20512,20513,20514,20515,20516,20517,20518,
  77981. 20519,20520,20521,20522,20523,20524,20525,20526,20527,20528,20529,20530,
  77982. 20531,20532,20533,20534,20535,20536,20537,20538,20539,20540,20541,20542,
  77983. 20543,20544,20545,20546,20547,20548,20549,20550,20551,20552,20553,20554,
  77984. 20555,20556,20557,20558,20559,20560,20561,20562,20563,20564,20565,20566,
  77985. 20567,20568,20569,20570,20571,20572,20573,20574,20575,20576,20577,20578,
  77986. 20579,20580,20581,20582,20583,20584,20585,20586,20587,20588,20589,20590,
  77987. 20591,20592,20593,20594,20595,20596,20597,20598,20599,20600,20601,20602,
  77988. 20603,20604,20605,20606,20607,20608,20609,20610,20611,20612,20613,20614,
  77989. 20615,20616,20617,20618,20619,20620,20621,20622,20623,20624,20625,20626,
  77990. 20627,20628,20629,20630,20631,20632,20633,20634,20635,20636,20637,20638,
  77991. 20639,20640,20641,20642,20643,20644,20645,20646,20647,20648,20649,20650,
  77992. 20651,20652,20653,20654,20655,20656,20657,20658,20659,20660,20661,20662,
  77993. 20663,20664,20665,20666,20667,20668,20669,20670,20671,20672,20673,20674,
  77994. 20675,20676,20677,20678,20679,20680,20681,20682,20683,20684,20685,20686,
  77995. 20687,20688,20689,20690,20691,20692,20693,20694,20695,20696,20697,20698,
  77996. 20699,20700,20701,20702,20703,20704,20705,20706,20707,20708,20709,20710,
  77997. 20711,20712,20713,20714,20715,20716,20717,20718,20719,20720,20721,20722,
  77998. 20723,20724,20725,20726,20727,20728,20729,20730,20731,20732,20733,20734,
  77999. 20735,20736,20737,20738,20739,20740,20741,20742,20743,20744,20745,20746,
  78000. 20747,20748,20749,20750,20751,20752,20753,20754,20755,20756,20757,20758,
  78001. 20759,20760,20761,20762,20763,20764,20765,20766,20767,20768,20769,20770,
  78002. 20771,20772,20773,20774,20775,20776,20777,20778,20779,20780,20781,20782,
  78003. 20783,20784,20785,20786,20787,20788,20789,20790,20791,20792,20793,20794,
  78004. 20795,20796,20797,20798,20799,20800,20801,20802,20803,20804,20805,20806,
  78005. 20807,20808,20809,20810,20811,20812,20813,20814,20815,20816,20817,20818,
  78006. 20819,20820,20821,20822,20823,20824,20825,20826,20827,20828,20829,20830,
  78007. 20831,20832,20833,20834,20835,20836,20837,20838,20839,20840,20841,20842,
  78008. 20843,20844,20845,20846,20847,20848,20849,20850,20851,20852,20853,20854,
  78009. 20855,20856,20857,20858,20859,20860,20861,20862,20863,20864,20865,20866,
  78010. 20867,20868,20869,20870,20871,20872,20873,20874,20875,20876,20877,20878,
  78011. 20879,20880,20881,20882,20883,20884,20885,20886,20887,20888,20889,20890,
  78012. 20891,20892,20893,20894,20895,20896,20897,20898,20899,20900,20901,20902,
  78013. 20903,20904,20905,20906,20907,20908,20909,20910,20911,20912,20913,20914,
  78014. 20915,20916,20917,20918,20919,20920,20921,20922,20923,20924,20925,20926,
  78015. 20927,20928,20929,20930,20931,20932,20933,20934,20935,20936,20937,20938,
  78016. 20939,20940,20941,20942,20943,20944,20945,20946,20947,20948,20949,20950,
  78017. 20951,20952,20953,20954,20955,20956,20957,20958,20959,20960,20961,20962,
  78018. 20963,20964,20965,20966,20967,20968,20969,20970,20971,20972,20973,20974,
  78019. 20975,20976,20977,20978,20979,20980,20981,20982,20983,20984,20985,20986,
  78020. 20987,20988,20989,20990,20991,20992,20993,20994,20995,20996,20997,20998,
  78021. 20999,21000,21001,21002,21003,21004,21005,21006,21007,21008,21009,21010,
  78022. 21011,21012,21013,21014,21015,21016,21017,21018,21019,21020,21021,21022,
  78023. 21023,21024,21025,21026,21027,21028,21029,21030,21031,21032,21033,21034,
  78024. 21035,21036,21037,21038,21039,21040,21041,21042,21043,21044,21045,21046,
  78025. 21047,21048,21049,21050,21051,21052,21053,21054,21055,21056,21057,21058,
  78026. 21059,21060,21061,21062,21063,21064,21065,21066,21067,21068,21069,21070,
  78027. 21071,21072,21073,21074,21075,21076,21077,21078,21079,21080,21081,21082,
  78028. 21083,21084,21085,21086,21087,21088,21089,21090,21091,21092,21093,21094,
  78029. 21095,21096,21097,21098,21099,21100,21101,21102,21103,21104,21105,21106,
  78030. 21107,21108,21109,21110,21111,21112,21113,21114,21115,21116,21117,21118,
  78031. 21119,21120,21121,21122,21123,21124,21125,21126,21127,21128,21129,21130,
  78032. 21131,21132,21133,21134,21135,21136,21137,21138,21139,21140,21141,21142,
  78033. 21143,21144,21145,21146,21147,21148,21149,21150,21151,21152,21153,21154,
  78034. 21155,21156,21157,21158,21159,21160,21161,21162,21163,21164,21165,21166,
  78035. 21167,21168,21169,21170,21171,21172,21173,21174,21175,21176,21177,21178,
  78036. 21179,21180,21181,21182,21183,21184,21185,21186,21187,21188,21189,21190,
  78037. 21191,21192,21193,21194,21195,21196,21197,21198,21199,21200,21201,21202,
  78038. 21203,21204,21205,21206,21207,21208,21209,21210,21211,21212,21213,21214,
  78039. 21215,21216,21217,21218,21219,21220,21221,21222,21223,21224,21225,21226,
  78040. 21227,21228,21229,21230,21231,21232,21233,21234,21235,21236,21237,21238,
  78041. 21239,21240,21241,21242,21243,21244,21245,21246,21247,21248,21249,21250,
  78042. 21251,21252,21253,21254,21255,21256,21257,21258,21259,21260,21261,21262,
  78043. 21263,21264,21265,21266,21267,21268,21269,21270,21271,21272,21273,21274,
  78044. 21275,21276,21277,21278,21279,21280,21281,21282,21283,21284,21285,21286,
  78045. 21287,21288,21289,21290,21291,21292,21293,21294,21295,21296,21297,21298,
  78046. 21299,21300,21301,21302,21303,21304,21305,21306,21307,21308,21309,21310,
  78047. 21311,21312,21313,21314,21315,21316,21317,21318,21319,21320,21321,21322,
  78048. 21323,21324,21325,21326,21327,21328,21329,21330,21331,21332,21333,21334,
  78049. 21335,21336,21337,21338,21339,21340,21341,21342,21343,21344,21345,21346,
  78050. 21347,21348,21349,21350,21351,21352,21353,21354,21355,21356,21357,21358,
  78051. 21359,21360,21361,21362,21363,21364,21365,21366,21367,21368,21369,21370,
  78052. 21371,21372,21373,21374,21375,21376,21377,21378,21379,21380,21381,21382,
  78053. 21383,21384,21385,21386,21387,21388,21389,21390,21391,21392,21393,21394,
  78054. 21395,21396,21397,21398,21399,21400,21401,21402,21403,21404,21405,21406,
  78055. 21407,21408,21409,21410,21411,21412,21413,21414,21415,21416,21417,21418,
  78056. 21419,21420,21421,21422,21423,21424,21425,21426,21427,21428,21429,21430,
  78057. 21431,21432,21433,21434,21435,21436,21437,21438,21439,21440,21441,21442,
  78058. 21443,21444,21445,21446,21447,21448,21449,21450,21451,21452,21453,21454,
  78059. 21455,21456,21457,21458,21459,21460,21461,21462,21463,21464,21465,21466,
  78060. 21467,21468,21469,21470,21471,21472,21473,21474,21475,21476,21477,21478,
  78061. 21479,21480,21481,21482,21483,21484,21485,21486,21487,21488,21489,21490,
  78062. 21491,21492,21493,21494,21495,21496,21497,21498,21499,21500,21501,21502,
  78063. 21503,21504,21505,21506,21507,21508,21509,21510,21511,21512,21513,21514,
  78064. 21515,21516,21517,21518,21519,21520,21521,21522,21523,21524,21525,21526,
  78065. 21527,21528,21529,21530,21531,21532,21533,21534,21535,21536,21537,21538,
  78066. 21539,21540,21541,21542,21543,21544,21545,21546,21547,21548,21549,21550,
  78067. 21551,21552,21553,21554,21555,21556,21557,21558,21559,21560,21561,21562,
  78068. 21563,21564,21565,21566,21567,21568,21569,21570,21571,21572,21573,21574,
  78069. 21575,21576,21577,21578,21579,21580,21581,21582,21583,21584,21585,21586,
  78070. 21587,21588,21589,21590,21591,21592,21593,21594,21595,21596,21597,21598,
  78071. 21599,21600,21601,21602,21603,21604,21605,21606,21607,21608,21609,21610,
  78072. 21611,21612,21613,21614,21615,21616,21617,21618,21619,21620,21621,21622,
  78073. 21623,21624,21625,21626,21627,21628,21629,21630,21631,21632,21633,21634,
  78074. 21635,21636,21637,21638,21639,21640,21641,21642,21643,21644,21645,21646,
  78075. 21647,21648,21649,21650,21651,21652,21653,21654,21655,21656,21657,21658,
  78076. 21659,21660,21661,21662,21663,21664,21665,21666,21667,21668,21669,21670,
  78077. 21671,21672,21673,21674,21675,21676,21677,21678,21679,21680,21681,21682,
  78078. 21683,21684,21685,21686,21687,21688,21689,21690,21691,21692,21693,21694,
  78079. 21695,21696,21697,21698,21699,21700,21701,21702,21703,21704,21705,21706,
  78080. 21707,21708,21709,21710,21711,21712,21713,21714,21715,21716,21717,21718,
  78081. 21719,21720,21721,21722,21723,21724,21725,21726,21727,21728,21729,21730,
  78082. 21731,21732,21733,21734,21735,21736,21737,21738,21739,21740,21741,21742,
  78083. 21743,21744,21745,21746,21747,21748,21749,21750,21751,21752,21753,21754,
  78084. 21755,21756,21757,21758,21759,21760,21761,21762,21763,21764,21765,21766,
  78085. 21767,21768,21769,21770,21771,21772,21773,21774,21775,21776,21777,21778,
  78086. 21779,21780,21781,21782,21783,21784,21785,21786,21787,21788,21789,21790,
  78087. 21791,21792,21793,21794,21795,21796,21797,21798,21799,21800,21801,21802,
  78088. 21803,21804,21805,21806,21807,21808,21809,21810,21811,21812,21813,21814,
  78089. 21815,21816,21817,21818,21819,21820,21821,21822,21823,21824,21825,21826,
  78090. 21827,21828,21829,21830,21831,21832,21833,21834,21835,21836,21837,21838,
  78091. 21839,21840,21841,21842,21843,21844,21845,21846,21847,21848,21849,21850,
  78092. 21851,21852,21853,21854,21855,21856,21857,21858,21859,21860,21861,21862,
  78093. 21863,21864,21865,21866,21867,21868,21869,21870,21871,21872,21873,21874,
  78094. 21875,21876,21877,21878,21879,21880,21881,21882,21883,21884,21885,21886,
  78095. 21887,21888,21889,21890,21891,21892,21893,21894,21895,21896,21897,21898,
  78096. 21899,21900,21901,21902,21903,21904,21905,21906,21907,21908,21909,21910,
  78097. 21911,21912,21913,21914,21915,21916,21917,21918,21919,21920,21921,21922,
  78098. 21923,21924,21925,21926,21927,21928,21929,21930,21931,21932,21933,21934,
  78099. 21935,21936,21937,21938,21939,21940,21941,21942,21943,21944,21945,21946,
  78100. 21947,21948,21949,21950,21951,21952,21953,21954,21955,21956,21957,21958,
  78101. 21959,21960,21961,21962,21963,21964,21965,21966,21967,21968,21969,21970,
  78102. 21971,21972,21973,21974,21975,21976,21977,21978,21979,21980,21981,21982,
  78103. 21983,21984,21985,21986,21987,21988,21989,21990,21991,21992,21993,21994,
  78104. 21995,21996,21997,21998,21999,22000,22001,22002,22003,22004,22005,22006,
  78105. 22007,22008,22009,22010,22011,22012,22013,22014,22015,22016,22017,22018,
  78106. 22019,22020,22021,22022,22023,22024,22025,22026,22027,22028,22029,22030,
  78107. 22031,22032,22033,22034,22035,22036,22037,22038,22039,22040,22041,22042,
  78108. 22043,22044,22045,22046,22047,22048,22049,22050,22051,22052,22053,22054,
  78109. 22055,22056,22057,22058,22059,22060,22061,22062,22063,22064,22065,22066,
  78110. 22067,22068,22069,22070,22071,22072,22073,22074,22075,22076,22077,22078,
  78111. 22079,22080,22081,22082,22083,22084,22085,22086,22087,22088,22089,22090,
  78112. 22091,22092,22093,22094,22095,22096,22097,22098,22099,22100,22101,22102,
  78113. 22103,22104,22105,22106,22107,22108,22109,22110,22111,22112,22113,22114,
  78114. 22115,22116,22117,22118,22119,22120,22121,22122,22123,22124,22125,22126,
  78115. 22127,22128,22129,22130,22131,22132,22133,22134,22135,22136,22137,22138,
  78116. 22139,22140,22141,22142,22143,22144,22145,22146,22147,22148,22149,22150,
  78117. 22151,22152,22153,22154,22155,22156,22157,22158,22159,22160,22161,22162,
  78118. 22163,22164,22165,22166,22167,22168,22169,22170,22171,22172,22173,22174,
  78119. 22175,22176,22177,22178,22179,22180,22181,22182,22183,22184,22185,22186,
  78120. 22187,22188,22189,22190,22191,22192,22193,22194,22195,22196,22197,22198,
  78121. 22199,22200,22201,22202,22203,22204,22205,22206,22207,22208,22209,22210,
  78122. 22211,22212,22213,22214,22215,22216,22217,22218,22219,22220,22221,22222,
  78123. 22223,22224,22225,22226,22227,22228,22229,22230,22231,22232,22233,22234,
  78124. 22235,22236,22237,22238,22239,22240,22241,22242,22243,22244,22245,22246,
  78125. 22247,22248,22249,22250,22251,22252,22253,22254,22255,22256,22257,22258,
  78126. 22259,22260,22261,22262,22263,22264,22265,22266,22267,22268,22269,22270,
  78127. 22271,22272,22273,22274,22275,22276,22277,22278,22279,22280,22281,22282,
  78128. 22283,22284,22285,22286,22287,22288,22289,22290,22291,22292,22293,22294,
  78129. 22295,22296,22297,22298,22299,22300,22301,22302,22303,22304,22305,22306,
  78130. 22307,22308,22309,22310,22311,22312,22313,22314,22315,22316,22317,22318,
  78131. 22319,22320,22321,22322,22323,22324,22325,22326,22327,22328,22329,22330,
  78132. 22331,22332,22333,22334,22335,22336,22337,22338,22339,22340,22341,22342,
  78133. 22343,22344,22345,22346,22347,22348,22349,22350,22351,22352,22353,22354,
  78134. 22355,22356,22357,22358,22359,22360,22361,22362,22363,22364,22365,22366,
  78135. 22367,22368,22369,22370,22371,22372,22373,22374,22375,22376,22377,22378,
  78136. 22379,22380,22381,22382,22383,22384,22385,22386,22387,22388,22389,22390,
  78137. 22391,22392,22393,22394,22395,22396,22397,22398,22399,22400,22401,22402,
  78138. 22403,22404,22405,22406,22407,22408,22409,22410,22411,22412,22413,22414,
  78139. 22415,22416,22417,22418,22419,22420,22421,22422,22423,22424,22425,22426,
  78140. 22427,22428,22429,22430,22431,22432,22433,22434,22435,22436,22437,22438,
  78141. 22439,22440,22441,22442,22443,22444,22445,22446,22447,22448,22449,22450,
  78142. 22451,22452,22453,22454,22455,22456,22457,22458,22459,22460,22461,22462,
  78143. 22463,22464,22465,22466,22467,22468,22469,22470,22471,22472,22473,22474,
  78144. 22475,22476,22477,22478,22479,22480,22481,22482,22483,22484,22485,22486,
  78145. 22487,22488,22489,22490,22491,22492,22493,22494,22495,22496,22497,22498,
  78146. 22499,22500,22501,22502,22503,22504,22505,22506,22507,22508,22509,22510,
  78147. 22511,22512,22513,22514,22515,22516,22517,22518,22519,22520,22521,22522,
  78148. 22523,22524,22525,22526,22527,22528,22529,22530,22531,22532,22533,22534,
  78149. 22535,22536,22537,22538,22539,22540,22541,22542,22543,22544,22545,22546,
  78150. 22547,22548,22549,22550,22551,22552,22553,22554,22555,22556,22557,22558,
  78151. 22559,22560,22561,22562,22563,22564,22565,22566,22567,22568,22569,22570,
  78152. 22571,22572,22573,22574,22575,22576,22577,22578,22579,22580,22581,22582,
  78153. 22583,22584,22585,22586,22587,22588,22589,22590,22591,22592,22593,22594,
  78154. 22595,22596,22597,22598,22599,22600,22601,22602,22603,22604,22605,22606,
  78155. 22607,22608,22609,22610,22611,22612,22613,22614,22615,22616,22617,22618,
  78156. 22619,22620,22621,22622,22623,22624,22625,22626,22627,22628,22629,22630,
  78157. 22631,22632,22633,22634,22635,22636,22637,22638,22639,22640,22641,22642,
  78158. 22643,22644,22645,22646,22647,22648,22649,22650,22651,22652,22653,22654,
  78159. 22655,22656,22657,22658,22659,22660,22661,22662,22663,22664,22665,22666,
  78160. 22667,22668,22669,22670,22671,22672,22673,22674,22675,22676,22677,22678,
  78161. 22679,22680,22681,22682,22683,22684,22685,22686,22687,22688,22689,22690,
  78162. 22691,22692,22693,22694,22695,22696,22697,22698,22699,22700,22701,22702,
  78163. 22703,22704,22705,22706,22707,22708,22709,22710,22711,22712,22713,22714,
  78164. 22715,22716,22717,22718,22719,22720,22721,22722,22723,22724,22725,22726,
  78165. 22727,22728,22729,22730,22731,22732,22733,22734,22735,22736,22737,22738,
  78166. 22739,22740,22741,22742,22743,22744,22745,22746,22747,22748,22749,22750,
  78167. 22751,22752,22753,22754,22755,22756,22757,22758,22759,22760,22761,22762,
  78168. 22763,22764,22765,22766,22767,22768,22769,22770,22771,22772,22773,22774,
  78169. 22775,22776,22777,22778,22779,22780,22781,22782,22783,22784,22785,22786,
  78170. 22787,22788,22789,22790,22791,22792,22793,22794,22795,22796,22797,22798,
  78171. 22799,22800,22801,22802,22803,22804,22805,22806,22807,22808,22809,22810,
  78172. 22811,22812,22813,22814,22815,22816,22817,22818,22819,22820,22821,22822,
  78173. 22823,22824,22825,22826,22827,22828,22829,22830,22831,22832,22833,22834,
  78174. 22835,22836,22837,22838,22839,22840,22841,22842,22843,22844,22845,22846,
  78175. 22847,22848,22849,22850,22851,22852,22853,22854,22855,22856,22857,22858,
  78176. 22859,22860,22861,22862,22863,22864,22865,22866,22867,22868,22869,22870,
  78177. 22871,22872,22873,22874,22875,22876,22877,22878,22879,22880,22881,22882,
  78178. 22883,22884,22885,22886,22887,22888,22889,22890,22891,22892,22893,22894,
  78179. 22895,22896,22897,22898,22899,22900,22901,22902,22903,22904,22905,22906,
  78180. 22907,22908,22909,22910,22911,22912,22913,22914,22915,22916,22917,22918,
  78181. 22919,22920,22921,22922,22923,22924,22925,22926,22927,22928,22929,22930,
  78182. 22931,22932,22933,22934,22935,22936,22937,22938,22939,22940,22941,22942,
  78183. 22943,22944,22945,22946,22947,22948,22949,22950,22951,22952,22953,22954,
  78184. 22955,22956,22957,22958,22959,22960,22961,22962,22963,22964,22965,22966,
  78185. 22967,22968,22969,22970,22971,22972,22973,22974,22975,22976,22977,22978,
  78186. 22979,22980,22981,22982,22983,22984,22985,22986,22987,22988,22989,22990,
  78187. 22991,22992,22993,22994,22995,22996,22997,22998,22999,23000,23001,23002,
  78188. 23003,23004,23005,23006,23007,23008,23009,23010,23011,23012,23013,23014,
  78189. 23015,23016,23017,23018,23019,23020,23021,23022,23023,23024,23025,23026,
  78190. 23027,23028,23029,23030,23031,23032,23033,23034,23035,23036,23037,23038,
  78191. 23039,23040,23041,23042,23043,23044,23045,23046,23047,23048,23049,23050,
  78192. 23051,23052,23053,23054,23055,23056,23057,23058,23059,23060,23061,23062,
  78193. 23063,23064,23065,23066,23067,23068,23069,23070,23071,23072,23073,23074,
  78194. 23075,23076,23077,23078,23079,23080,23081,23082,23083,23084,23085,23086,
  78195. 23087,23088,23089,23090,23091,23092,23093,23094,23095,23096,23097,23098,
  78196. 23099,23100,23101,23102,23103,23104,23105,23106,23107,23108,23109,23110,
  78197. 23111,23112,23113,23114,23115,23116,23117,23118,23119,23120,23121,23122,
  78198. 23123,23124,23125,23126,23127,23128,23129,23130,23131,23132,23133,23134,
  78199. 23135,23136,23137,23138,23139,23140,23141,23142,23143,23144,23145,23146,
  78200. 23147,23148,23149,23150,23151,23152,23153,23154,23155,23156,23157,23158,
  78201. 23159,23160,23161,23162,23163,23164,23165,23166,23167,23168,23169,23170,
  78202. 23171,23172,23173,23174,23175,23176,23177,23178,23179,23180,23181,23182,
  78203. 23183,23184,23185,23186,23187,23188,23189,23190,23191,23192,23193,23194,
  78204. 23195,23196,23197,23198,23199,23200,23201,23202,23203,23204,23205,23206,
  78205. 23207,23208,23209,23210,23211,23212,23213,23214,23215,23216,23217,23218,
  78206. 23219,23220,23221,23222,23223,23224,23225,23226,23227,23228,23229,23230,
  78207. 23231,23232,23233,23234,23235,23236,23237,23238,23239,23240,23241,23242,
  78208. 23243,23244,23245,23246,23247,23248,23249,23250,23251,23252,23253,23254,
  78209. 23255,23256,23257,23258,23259,23260,23261,23262,23263,23264,23265,23266,
  78210. 23267,23268,23269,23270,23271,23272,23273,23274,23275,23276,23277,23278,
  78211. 23279,23280,23281,23282,23283,23284,23285,23286,23287,23288,23289,23290,
  78212. 23291,23292,23293,23294,23295,23296,23297,23298,23299,23300,23301,23302,
  78213. 23303,23304,23305,23306,23307,23308,23309,23310,23311,23312,23313,23314,
  78214. 23315,23316,23317,23318,23319,23320,23321,23322,23323,23324,23325,23326,
  78215. 23327,23328,23329,23330,23331,23332,23333,23334,23335,23336,23337,23338,
  78216. 23339,23340,23341,23342,23343,23344,23345,23346,23347,23348,23349,23350,
  78217. 23351,23352,23353,23354,23355,23356,23357,23358,23359,23360,23361,23362,
  78218. 23363,23364,23365,23366,23367,23368,23369,23370,23371,23372,23373,23374,
  78219. 23375,23376,23377,23378,23379,23380,23381,23382,23383,23384,23385,23386,
  78220. 23387,23388,23389,23390,23391,23392,23393,23394,23395,23396,23397,23398,
  78221. 23399,23400,23401,23402,23403,23404,23405,23406,23407,23408,23409,23410,
  78222. 23411,23412,23413,23414,23415,23416,23417,23418,23419,23420,23421,23422,
  78223. 23423,23424,23425,23426,23427,23428,23429,23430,23431,23432,23433,23434,
  78224. 23435,23436,23437,23438,23439,23440,23441,23442,23443,23444,23445,23446,
  78225. 23447,23448,23449,23450,23451,23452,23453,23454,23455,23456,23457,23458,
  78226. 23459,23460,23461,23462,23463,23464,23465,23466,23467,23468,23469,23470,
  78227. 23471,23472,23473,23474,23475,23476,23477,23478,23479,23480,23481,23482,
  78228. 23483,23484,23485,23486,23487,23488,23489,23490,23491,23492,23493,23494,
  78229. 23495,23496,23497,23498,23499,23500,23501,23502,23503,23504,23505,23506,
  78230. 23507,23508,23509,23510,23511,23512,23513,23514,23515,23516,23517,23518,
  78231. 23519,23520,23521,23522,23523,23524,23525,23526,23527,23528,23529,23530,
  78232. 23531,23532,23533,23534,23535,23536,23537,23538,23539,23540,23541,23542,
  78233. 23543,23544,23545,23546,23547,23548,23549,23550,23551,23552,23553,23554,
  78234. 23555,23556,23557,23558,23559,23560,23561,23562,23563,23564,23565,23566,
  78235. 23567,23568,23569,23570,23571,23572,23573,23574,23575,23576,23577,23578,
  78236. 23579,23580,23581,23582,23583,23584,23585,23586,23587,23588,23589,23590,
  78237. 23591,23592,23593,23594,23595,23596,23597,23598,23599,23600,23601,23602,
  78238. 23603,23604,23605,23606,23607,23608,23609,23610,23611,23612,23613,23614,
  78239. 23615,23616,23617,23618,23619,23620,23621,23622,23623,23624,23625,23626,
  78240. 23627,23628,23629,23630,23631,23632,23633,23634,23635,23636,23637,23638,
  78241. 23639,23640,23641,23642,23643,23644,23645,23646,23647,23648,23649,23650,
  78242. 23651,23652,23653,23654,23655,23656,23657,23658,23659,23660,23661,23662,
  78243. 23663,23664,23665,23666,23667,23668,23669,23670,23671,23672,23673,23674,
  78244. 23675,23676,23677,23678,23679,23680,23681,23682,23683,23684,23685,23686,
  78245. 23687,23688,23689,23690,23691,23692,23693,23694,23695,23696,23697,23698,
  78246. 23699,23700,23701,23702,23703,23704,23705,23706,23707,23708,23709,23710,
  78247. 23711,23712,23713,23714,23715,23716,23717,23718,23719,23720,23721,23722,
  78248. 23723,23724,23725,23726,23727,23728,23729,23730,23731,23732,23733,23734,
  78249. 23735,23736,23737,23738,23739,23740,23741,23742,23743,23744,23745,23746,
  78250. 23747,23748,23749,23750,23751,23752,23753,23754,23755,23756,23757,23758,
  78251. 23759,23760,23761,23762,23763,23764,23765,23766,23767,23768,23769,23770,
  78252. 23771,23772,23773,23774,23775,23776,23777,23778,23779,23780,23781,23782,
  78253. 23783,23784,23785,23786,23787,23788,23789,23790,23791,23792,23793,23794,
  78254. 23795,23796,23797,23798,23799,23800,23801,23802,23803,23804,23805,23806,
  78255. 23807,23808,23809,23810,23811,23812,23813,23814,23815,23816,23817,23818,
  78256. 23819,23820,23821,23822,23823,23824,23825,23826,23827,23828,23829,23830,
  78257. 23831,23832,23833,23834,23835,23836,23837,23838,23839,23840,23841,23842,
  78258. 23843,23844,23845,23846,23847,23848,23849,23850,23851,23852,23853,23854,
  78259. 23855,23856,23857,23858,23859,23860,23861,23862,23863,23864,23865,23866,
  78260. 23867,23868,23869,23870,23871,23872,23873,23874,23875,23876,23877,23878,
  78261. 23879,23880,23881,23882,23883,23884,23885,23886,23887,23888,23889,23890,
  78262. 23891,23892,23893,23894,23895,23896,23897,23898,23899,23900,23901,23902,
  78263. 23903,23904,23905,23906,23907,23908,23909,23910,23911,23912,23913,23914,
  78264. 23915,23916,23917,23918,23919,23920,23921,23922,23923,23924,23925,23926,
  78265. 23927,23928,23929,23930,23931,23932,23933,23934,23935,23936,23937,23938,
  78266. 23939,23940,23941,23942,23943,23944,23945,23946,23947,23948,23949,23950,
  78267. 23951,23952,23953,23954,23955,23956,23957,23958,23959,23960,23961,23962,
  78268. 23963,23964,23965,23966,23967,23968,23969,23970,23971,23972,23973,23974,
  78269. 23975,23976,23977,23978,23979,23980,23981,23982,23983,23984,23985,23986,
  78270. 23987,23988,23989,23990,23991,23992,23993,23994,23995,23996,23997,23998,
  78271. 23999,24000,24001,24002,24003,24004,24005,24006,24007,24008,24009,24010,
  78272. 24011,24012,24013,24014,24015,24016,24017,24018,24019,24020,24021,24022,
  78273. 24023,24024,24025,24026,24027,24028,24029,24030,24031,24032,24033,24034,
  78274. 24035,24036,24037,24038,24039,24040,24041,24042,24043,24044,24045,24046,
  78275. 24047,24048,24049,24050,24051,24052,24053,24054,24055,24056,24057,24058,
  78276. 24059,24060,24061,24062,24063,24064,24065,24066,24067,24068,24069,24070,
  78277. 24071,24072,24073,24074,24075,24076,24077,24078,24079,24080,24081,24082,
  78278. 24083,24084,24085,24086,24087,24088,24089,24090,24091,24092,24093,24094,
  78279. 24095,24096,24097,24098,24099,24100,24101,24102,24103,24104,24105,24106,
  78280. 24107,24108,24109,24110,24111,24112,24113,24114,24115,24116,24117,24118,
  78281. 24119,24120,24121,24122,24123,24124,24125,24126,24127,24128,24129,24130,
  78282. 24131,24132,24133,24134,24135,24136,24137,24138,24139,24140,24141,24142,
  78283. 24143,24144,24145,24146,24147,24148,24149,24150,24151,24152,24153,24154,
  78284. 24155,24156,24157,24158,24159,24160,24161,24162,24163,24164,24165,24166,
  78285. 24167,24168,24169,24170,24171,24172,24173,24174,24175,24176,24177,24178,
  78286. 24179,24180,24181,24182,24183,24184,24185,24186,24187,24188,24189,24190,
  78287. 24191,24192,24193,24194,24195,24196,24197,24198,24199,24200,24201,24202,
  78288. 24203,24204,24205,24206,24207,24208,24209,24210,24211,24212,24213,24214,
  78289. 24215,24216,24217,24218,24219,24220,24221,24222,24223,24224,24225,24226,
  78290. 24227,24228,24229,24230,24231,24232,24233,24234,24235,24236,24237,24238,
  78291. 24239,24240,24241,24242,24243,24244,24245,24246,24247,24248,24249,24250,
  78292. 24251,24252,24253,24254,24255,24256,24257,24258,24259,24260,24261,24262,
  78293. 24263,24264,24265,24266,24267,24268,24269,24270,24271,24272,24273,24274,
  78294. 24275,24276,24277,24278,24279,24280,24281,24282,24283,24284,24285,24286,
  78295. 24287,24288,24289,24290,24291,24292,24293,24294,24295,24296,24297,24298,
  78296. 24299,24300,24301,24302,24303,24304,24305,24306,24307,24308,24309,24310,
  78297. 24311,24312,24313,24314,24315,24316,24317,24318,24319,24320,24321,24322,
  78298. 24323,24324,24325,24326,24327,24328,24329,24330,24331,24332,24333,24334,
  78299. 24335,24336,24337,24338,24339,24340,24341,24342,24343,24344,24345,24346,
  78300. 24347,24348,24349,24350,24351,24352,24353,24354,24355,24356,24357,24358,
  78301. 24359,24360,24361,24362,24363,24364,24365,24366,24367,24368,24369,24370,
  78302. 24371,24372,24373,24374,24375,24376,24377,24378,24379,24380,24381,24382,
  78303. 24383,24384,24385,24386,24387,24388,24389,24390,24391,24392,24393,24394,
  78304. 24395,24396,24397,24398,24399,24400,24401,24402,24403,24404,24405,24406,
  78305. 24407,24408,24409,24410,24411,24412,24413,24414,24415,24416,24417,24418,
  78306. 24419,24420,24421,24422,24423,24424,24425,24426,24427,24428,24429,24430,
  78307. 24431,24432,24433,24434,24435,24436,24437,24438,24439,24440,24441,24442,
  78308. 24443,24444,24445,24446,24447,24448,24449,24450,24451,24452,24453,24454,
  78309. 24455,24456,24457,24458,24459,24460,24461,24462,24463,24464,24465,24466,
  78310. 24467,24468,24469,24470,24471,24472,24473,24474,24475,24476,24477,24478,
  78311. 24479,24480,24481,24482,24483,24484,24485,24486,24487,24488,24489,24490,
  78312. 24491,24492,24493,24494,24495,24496,24497,24498,24499,24500,24501,24502,
  78313. 24503,24504,24505,24506,24507,24508,24509,24510,24511,24512,24513,24514,
  78314. 24515,24516,24517,24518,24519,24520,24521,24522,24523,24524,24525,24526,
  78315. 24527,24528,24529,24530,24531,24532,24533,24534,24535,24536,24537,24538,
  78316. 24539,24540,24541,24542,24543,24544,24545,24546,24547,24548,24549,24550,
  78317. 24551,24552,24553,24554,24555,24556,24557,24558,24559,24560,24561,24562,
  78318. 24563,24564,24565,24566,24567,24568,24569,24570,24571,24572,24573,24574,
  78319. 24575,24576,24577,24578,24579,24580,24581,24582,24583,24584,24585,24586,
  78320. 24587,24588,24589,24590,24591,24592,24593,24594,24595,24596,24597,24598,
  78321. 24599,24600,24601,24602,24603,24604,24605,24606,24607,24608,24609,24610,
  78322. 24611,24612,24613,24614,24615,24616,24617,24618,24619,24620,24621,24622,
  78323. 24623,24624,24625,24626,24627,24628,24629,24630,24631,24632,24633,24634,
  78324. 24635,24636,24637,24638,24639,24640,24641,24642,24643,24644,24645,24646,
  78325. 24647,24648,24649,24650,24651,24652,24653,24654,24655,24656,24657,24658,
  78326. 24659,24660,24661,24662,24663,24664,24665,24666,24667,24668,24669,24670,
  78327. 24671,24672,24673,24674,24675,24676,24677,24678,24679,24680,24681,24682,
  78328. 24683,24684,24685,24686,24687,24688,24689,24690,24691,24692,24693,24694,
  78329. 24695,24696,24697,24698,24699,24700,24701,24702,24703,24704,24705,24706,
  78330. 24707,24708,24709,24710,24711,24712,24713,24714,24715,24716,24717,24718,
  78331. 24719,24720,24721,24722,24723,24724,24725,24726,24727,24728,24729,24730,
  78332. 24731,24732,24733,24734,24735,24736,24737,24738,24739,24740,24741,24742,
  78333. 24743,24744,24745,24746,24747,24748,24749,24750,24751,24752,24753,24754,
  78334. 24755,24756,24757,24758,24759,24760,24761,24762,24763,24764,24765,24766,
  78335. 24767,24768,24769,24770,24771,24772,24773,24774,24775,24776,24777,24778,
  78336. 24779,24780,24781,24782,24783,24784,24785,24786,24787,24788,24789,24790,
  78337. 24791,24792,24793,24794,24795,24796,24797,24798,24799,24800,24801,24802,
  78338. 24803,24804,24805,24806,24807,24808,24809,24810,24811,24812,24813,24814,
  78339. 24815,24816,24817,24818,24819,24820,24821,24822,24823,24824,24825,24826,
  78340. 24827,24828,24829,24830,24831,24832,24833,24834,24835,24836,24837,24838,
  78341. 24839,24840,24841,24842,24843,24844,24845,24846,24847,24848,24849,24850,
  78342. 24851,24852,24853,24854,24855,24856,24857,24858,24859,24860,24861,24862,
  78343. 24863,24864,24865,24866,24867,24868,24869,24870,24871,24872,24873,24874,
  78344. 24875,24876,24877,24878,24879,24880,24881,24882,24883,24884,24885,24886,
  78345. 24887,24888,24889,24890,24891,24892,24893,24894,24895,24896,24897,24898,
  78346. 24899,24900,24901,24902,24903,24904,24905,24906,24907,24908,24909,24910,
  78347. 24911,24912,24913,24914,24915,24916,24917,24918,24919,24920,24921,24922,
  78348. 24923,24924,24925,24926,24927,24928,24929,24930,24931,24932,24933,24934,
  78349. 24935,24936,24937,24938,24939,24940,24941,24942,24943,24944,24945,24946,
  78350. 24947,24948,24949,24950,24951,24952,24953,24954,24955,24956,24957,24958,
  78351. 24959,24960,24961,24962,24963,24964,24965,24966,24967,24968,24969,24970,
  78352. 24971,24972,24973,24974,24975,24976,24977,24978,24979,24980,24981,24982,
  78353. 24983,24984,24985,24986,24987,24988,24989,24990,24991,24992,24993,24994,
  78354. 24995,24996,24997,24998,24999,25000,25001,25002,25003,25004,25005,25006,
  78355. 25007,25008,25009,25010,25011,25012,25013,25014,25015,25016,25017,25018,
  78356. 25019,25020,25021,25022,25023,25024,25025,25026,25027,25028,25029,25030,
  78357. 25031,25032,25033,25034,25035,25036,25037,25038,25039,25040,25041,25042,
  78358. 25043,25044,25045,25046,25047,25048,25049,25050,25051,25052,25053,25054,
  78359. 25055,25056,25057,25058,25059,25060,25061,25062,25063,25064,25065,25066,
  78360. 25067,25068,25069,25070,25071,25072,25073,25074,25075,25076,25077,25078,
  78361. 25079,25080,25081,25082,25083,25084,25085,25086,25087,25088,25089,25090,
  78362. 25091,25092,25093,25094,25095,25096,25097,25098,25099,25100,25101,25102,
  78363. 25103,25104,25105,25106,25107,25108,25109,25110,25111,25112,25113,25114,
  78364. 25115,25116,25117,25118,25119,25120,25121,25122,25123,25124,25125,25126,
  78365. 25127,25128,25129,25130,25131,25132,25133,25134,25135,25136,25137,25138,
  78366. 25139,25140,25141,25142,25143,25144,25145,25146,25147,25148,25149,25150,
  78367. 25151,25152,25153,25154,25155,25156,25157,25158,25159,25160,25161,25162,
  78368. 25163,25164,25165,25166,25167,25168,25169,25170,25171,25172,25173,25174,
  78369. 25175,25176,25177,25178,25179,25180,25181,25182,25183,25184,25185,25186,
  78370. 25187,25188,25189,25190,25191,25192,25193,25194,25195,25196,25197,25198,
  78371. 25199,25200,25201,25202,25203,25204,25205,25206,25207,25208,25209,25210,
  78372. 25211,25212,25213,25214,25215,25216,25217,25218,25219,25220,25221,25222,
  78373. 25223,25224,25225,25226,25227,25228,25229,25230,25231,25232,25233,25234,
  78374. 25235,25236,25237,25238,25239,25240,25241,25242,25243,25244,25245,25246,
  78375. 25247,25248,25249,25250,25251,25252,25253,25254,25255,25256,25257,25258,
  78376. 25259,25260,25261,25262,25263,25264,25265,25266,25267,25268,25269,25270,
  78377. 25271,25272,25273,25274,25275,25276,25277,25278,25279,25280,25281,25282,
  78378. 25283,25284,25285,25286,25287,25288,25289,25290,25291,25292,25293,25294,
  78379. 25295,25296,25297,25298,25299,25300,25301,25302,25303,25304,25305,25306,
  78380. 25307,25308,25309,25310,25311,25312,25313,25314,25315,25316,25317,25318,
  78381. 25319,25320,25321,25322,25323,25324,25325,25326,25327,25328,25329,25330,
  78382. 25331,25332,25333,25334,25335,25336,25337,25338,25339,25340,25341,25342,
  78383. 25343,25344,25345,25346,25347,25348,25349,25350,25351,25352,25353,25354,
  78384. 25355,25356,25357,25358,25359,25360,25361,25362,25363,25364,25365,25366,
  78385. 25367,25368,25369,25370,25371,25372,25373,25374,25375,25376,25377,25378,
  78386. 25379,25380,25381,25382,25383,25384,25385,25386,25387,25388,25389,25390,
  78387. 25391,25392,25393,25394,25395,25396,25397,25398,25399,25400,25401,25402,
  78388. 25403,25404,25405,25406,25407,25408,25409,25410,25411,25412,25413,25414,
  78389. 25415,25416,25417,25418,25419,25420,25421,25422,25423,25424,25425,25426,
  78390. 25427,25428,25429,25430,25431,25432,25433,25434,25435,25436,25437,25438,
  78391. 25439,25440,25441,25442,25443,25444,25445,25446,25447,25448,25449,25450,
  78392. 25451,25452,25453,25454,25455,25456,25457,25458,25459,25460,25461,25462,
  78393. 25463,25464,25465,25466,25467,25468,25469,25470,25471,25472,25473,25474,
  78394. 25475,25476,25477,25478,25479,25480,25481,25482,25483,25484,25485,25486,
  78395. 25487,25488,25489,25490,25491,25492,25493,25494,25495,25496,25497,25498,
  78396. 25499,25500,25501,25502,25503,25504,25505,25506,25507,25508,25509,25510,
  78397. 25511,25512,25513,25514,25515,25516,25517,25518,25519,25520,25521,25522,
  78398. 25523,25524,25525,25526,25527,25528,25529,25530,25531,25532,25533,25534,
  78399. 25535,25536,25537,25538,25539,25540,25541,25542,25543,25544,25545,25546,
  78400. 25547,25548,25549,25550,25551,25552,25553,25554,25555,25556,25557,25558,
  78401. 25559,25560,25561,25562,25563,25564,25565,25566,25567,25568,25569,25570,
  78402. 25571,25572,25573,25574,25575,25576,25577,25578,25579,25580,25581,25582,
  78403. 25583,25584,25585,25586,25587,25588,25589,25590,25591,25592,25593,25594,
  78404. 25595,25596,25597,25598,25599,25600,25601,25602,25603,25604,25605,25606,
  78405. 25607,25608,25609,25610,25611,25612,25613,25614,25615,25616,25617,25618,
  78406. 25619,25620,25621,25622,25623,25624,25625,25626,25627,25628,25629,25630,
  78407. 25631,25632,25633,25634,25635,25636,25637,25638,25639,25640,25641,25642,
  78408. 25643,25644,25645,25646,25647,25648,25649,25650,25651,25652,25653,25654,
  78409. 25655,25656,25657,25658,25659,25660,25661,25662,25663,25664,25665,25666,
  78410. 25667,25668,25669,25670,25671,25672,25673,25674,25675,25676,25677,25678,
  78411. 25679,25680,25681,25682,25683,25684,25685,25686,25687,25688,25689,25690,
  78412. 25691,25692,25693,25694,25695,25696,25697,25698,25699,25700,25701,25702,
  78413. 25703,25704,25705,25706,25707,25708,25709,25710,25711,25712,25713,25714,
  78414. 25715,25716,25717,25718,25719,25720,25721,25722,25723,25724,25725,25726,
  78415. 25727,25728,25729,25730,25731,25732,25733,25734,25735,25736,25737,25738,
  78416. 25739,25740,25741,25742,25743,25744,25745,25746,25747,25748,25749,25750,
  78417. 25751,25752,25753,25754,25755,25756,25757,25758,25759,25760,25761,25762,
  78418. 25763,25764,25765,25766,25767,25768,25769,25770,25771,25772,25773,25774,
  78419. 25775,25776,25777,25778,25779,25780,25781,25782,25783,25784,25785,25786,
  78420. 25787,25788,25789,25790,25791,25792,25793,25794,25795,25796,25797,25798,
  78421. 25799,25800,25801,25802,25803,25804,25805,25806,25807,25808,25809,25810,
  78422. 25811,25812,25813,25814,25815,25816,25817,25818,25819,25820,25821,25822,
  78423. 25823,25824,25825,25826,25827,25828,25829,25830,25831,25832,25833,25834,
  78424. 25835,25836,25837,25838,25839,25840,25841,25842,25843,25844,25845,25846,
  78425. 25847,25848,25849,25850,25851,25852,25853,25854,25855,25856,25857,25858,
  78426. 25859,25860,25861,25862,25863,25864,25865,25866,25867,25868,25869,25870,
  78427. 25871,25872,25873,25874,25875,25876,25877,25878,25879,25880,25881,25882,
  78428. 25883,25884,25885,25886,25887,25888,25889,25890,25891,25892,25893,25894,
  78429. 25895,25896,25897,25898,25899,25900,25901,25902,25903,25904,25905,25906,
  78430. 25907,25908,25909,25910,25911,25912,25913,25914,25915,25916,25917,25918,
  78431. 25919,25920,25921,25922,25923,25924,25925,25926,25927,25928,25929,25930,
  78432. 25931,25932,25933,25934,25935,25936,25937,25938,25939,25940,25941,25942,
  78433. 25943,25944,25945,25946,25947,25948,25949,25950,25951,25952,25953,25954,
  78434. 25955,25956,25957,25958,25959,25960,25961,25962,25963,25964,25965,25966,
  78435. 25967,25968,25969,25970,25971,25972,25973,25974,25975,25976,25977,25978,
  78436. 25979,25980,25981,25982,25983,25984,25985,25986,25987,25988,25989,25990,
  78437. 25991,25992,25993,25994,25995,25996,25997,25998,25999,26000,26001,26002,
  78438. 26003,26004,26005,26006,26007,26008,26009,26010,26011,26012,26013,26014,
  78439. 26015,26016,26017,26018,26019,26020,26021,26022,26023,26024,26025,26026,
  78440. 26027,26028,26029,26030,26031,26032,26033,26034,26035,26036,26037,26038,
  78441. 26039,26040,26041,26042,26043,26044,26045,26046,26047,26048,26049,26050,
  78442. 26051,26052,26053,26054,26055,26056,26057,26058,26059,26060,26061,26062,
  78443. 26063,26064,26065,26066,26067,26068,26069,26070,26071,26072,26073,26074,
  78444. 26075,26076,26077,26078,26079,26080,26081,26082,26083,26084,26085,26086,
  78445. 26087,26088,26089,26090,26091,26092,26093,26094,26095,26096,26097,26098,
  78446. 26099,26100,26101,26102,26103,26104,26105,26106,26107,26108,26109,26110,
  78447. 26111,26112,26113,26114,26115,26116,26117,26118,26119,26120,26121,26122,
  78448. 26123,26124,26125,26126,26127,26128,26129,26130,26131,26132,26133,26134,
  78449. 26135,26136,26137,26138,26139,26140,26141,26142,26143,26144,26145,26146,
  78450. 26147,26148,26149,26150,26151,26152,26153,26154,26155,26156,26157,26158,
  78451. 26159,26160,26161,26162,26163,26164,26165,26166,26167,26168,26169,26170,
  78452. 26171,26172,26173,26174,26175,26176,26177,26178,26179,26180,26181,26182,
  78453. 26183,26184,26185,26186,26187,26188,26189,26190,26191,26192,26193,26194,
  78454. 26195,26196,26197,26198,26199,26200,26201,26202,26203,26204,26205,26206,
  78455. 26207,26208,26209,26210,26211,26212,26213,26214,26215,26216,26217,26218,
  78456. 26219,26220,26221,26222,26223,26224,26225,26226,26227,26228,26229,26230,
  78457. 26231,26232,26233,26234,26235,26236,26237,26238,26239,26240,26241,26242,
  78458. 26243,26244,26245,26246,26247,26248,26249,26250,26251,26252,26253,26254,
  78459. 26255,26256,26257,26258,26259,26260,26261,26262,26263,26264,26265,26266,
  78460. 26267,26268,26269,26270,26271,26272,26273,26274,26275,26276,26277,26278,
  78461. 26279,26280,26281,26282,26283,26284,26285,26286,26287,26288,26289,26290,
  78462. 26291,26292,26293,26294,26295,26296,26297,26298,26299,26300,26301,26302,
  78463. 26303,26304,26305,26306,26307,26308,26309,26310,26311,26312,26313,26314,
  78464. 26315,26316,26317,26318,26319,26320,26321,26322,26323,26324,26325,26326,
  78465. 26327,26328,26329,26330,26331,26332,26333,26334,26335,26336,26337,26338,
  78466. 26339,26340,26341,26342,26343,26344,26345,26346,26347,26348,26349,26350,
  78467. 26351,26352,26353,26354,26355,26356,26357,26358,26359,26360,26361,26362,
  78468. 26363,26364,26365,26366,26367,26368,26369,26370,26371,26372,26373,26374,
  78469. 26375,26376,26377,26378,26379,26380,26381,26382,26383,26384,26385,26386,
  78470. 26387,26388,26389,26390,26391,26392,26393,26394,26395,26396,26397,26398,
  78471. 26399,26400,26401,26402,26403,26404,26405,26406,26407,26408,26409,26410,
  78472. 26411,26412,26413,26414,26415,26416,26417,26418,26419,26420,26421,26422,
  78473. 26423,26424,26425,26426,26427,26428,26429,26430,26431,26432,26433,26434,
  78474. 26435,26436,26437,26438,26439,26440,26441,26442,26443,26444,26445,26446,
  78475. 26447,26448,26449,26450,26451,26452,26453,26454,26455,26456,26457,26458,
  78476. 26459,26460,26461,26462,26463,26464,26465,26466,26467,26468,26469,26470,
  78477. 26471,26472,26473,26474,26475,26476,26477,26478,26479,26480,26481,26482,
  78478. 26483,26484,26485,26486,26487,26488,26489,26490,26491,26492,26493,26494,
  78479. 26495,26496,26497,26498,26499,26500,26501,26502,26503,26504,26505,26506,
  78480. 26507,26508,26509,26510,26511,26512,26513,26514,26515,26516,26517,26518,
  78481. 26519,26520,26521,26522,26523,26524,26525,26526,26527,26528,26529,26530,
  78482. 26531,26532,26533,26534,26535,26536,26537,26538,26539,26540,26541,26542,
  78483. 26543,26544,26545,26546,26547,26548,26549,26550,26551,26552,26553,26554,
  78484. 26555,26556,26557,26558,26559,26560,26561,26562,26563,26564,26565,26566,
  78485. 26567,26568,26569,26570,26571,26572,26573,26574,26575,26576,26577,26578,
  78486. 26579,26580,26581,26582,26583,26584,26585,26586,26587,26588,26589,26590,
  78487. 26591,26592,26593,26594,26595,26596,26597,26598,26599,26600,26601,26602,
  78488. 26603,26604,26605,26606,26607,26608,26609,26610,26611,26612,26613,26614,
  78489. 26615,26616,26617,26618,26619,26620,26621,26622,26623,26624,26625,26626,
  78490. 26627,26628,26629,26630,26631,26632,26633,26634,26635,26636,26637,26638,
  78491. 26639,26640,26641,26642,26643,26644,26645,26646,26647,26648,26649,26650,
  78492. 26651,26652,26653,26654,26655,26656,26657,26658,26659,26660,26661,26662,
  78493. 26663,26664,26665,26666,26667,26668,26669,26670,26671,26672,26673,26674,
  78494. 26675,26676,26677,26678,26679,26680,26681,26682,26683,26684,26685,26686,
  78495. 26687,26688,26689,26690,26691,26692,26693,26694,26695,26696,26697,26698,
  78496. 26699,26700,26701,26702,26703,26704,26705,26706,26707,26708,26709,26710,
  78497. 26711,26712,26713,26714,26715,26716,26717,26718,26719,26720,26721,26722,
  78498. 26723,26724,26725,26726,26727,26728,26729,26730,26731,26732,26733,26734,
  78499. 26735,26736,26737,26738,26739,26740,26741,26742,26743,26744,26745,26746,
  78500. 26747,26748,26749,26750,26751,26752,26753,26754,26755,26756,26757,26758,
  78501. 26759,26760,26761,26762,26763,26764,26765,26766,26767,26768,26769,26770,
  78502. 26771,26772,26773,26774,26775,26776,26777,26778,26779,26780,26781,26782,
  78503. 26783,26784,26785,26786,26787,26788,26789,26790,26791,26792,26793,26794,
  78504. 26795,26796,26797,26798,26799,26800,26801,26802,26803,26804,26805,26806,
  78505. 26807,26808,26809,26810,26811,26812,26813,26814,26815,26816,26817,26818,
  78506. 26819,26820,26821,26822,26823,26824,26825,26826,26827,26828,26829,26830,
  78507. 26831,26832,26833,26834,26835,26836,26837,26838,26839,26840,26841,26842,
  78508. 26843,26844,26845,26846,26847,26848,26849,26850,26851,26852,26853,26854,
  78509. 26855,26856,26857,26858,26859,26860,26861,26862,26863,26864,26865,26866,
  78510. 26867,26868,26869,26870,26871,26872,26873,26874,26875,26876,26877,26878,
  78511. 26879,26880,26881,26882,26883,26884,26885,26886,26887,26888,26889,26890,
  78512. 26891,26892,26893,26894,26895,26896,26897,26898,26899,26900,26901,26902,
  78513. 26903,26904,26905,26906,26907,26908,26909,26910,26911,26912,26913,26914,
  78514. 26915,26916,26917,26918,26919,26920,26921,26922,26923,26924,26925,26926,
  78515. 26927,26928,26929,26930,26931,26932,26933,26934,26935,26936,26937,26938,
  78516. 26939,26940,26941,26942,26943,26944,26945,26946,26947,26948,26949,26950,
  78517. 26951,26952,26953,26954,26955,26956,26957,26958,26959,26960,26961,26962,
  78518. 26963,26964,26965,26966,26967,26968,26969,26970,26971,26972,26973,26974,
  78519. 26975,26976,26977,26978,26979,26980,26981,26982,26983,26984,26985,26986,
  78520. 26987,26988,26989,26990,26991,26992,26993,26994,26995,26996,26997,26998,
  78521. 26999,27000,27001,27002,27003,27004,27005,27006,27007,27008,27009,27010,
  78522. 27011,27012,27013,27014,27015,27016,27017,27018,27019,27020,27021,27022,
  78523. 27023,27024,27025,27026,27027,27028,27029,27030,27031,27032,27033,27034,
  78524. 27035,27036,27037,27038,27039,27040,27041,27042,27043,27044,27045,27046,
  78525. 27047,27048,27049,27050,27051,27052,27053,27054,27055,27056,27057,27058,
  78526. 27059,27060,27061,27062,27063,27064,27065,27066,27067,27068,27069,27070,
  78527. 27071,27072,27073,27074,27075,27076,27077,27078,27079,27080,27081,27082,
  78528. 27083,27084,27085,27086,27087,27088,27089,27090,27091,27092,27093,27094,
  78529. 27095,27096,27097,27098,27099,27100,27101,27102,27103,27104,27105,27106,
  78530. 27107,27108,27109,27110,27111,27112,27113,27114,27115,27116,27117,27118,
  78531. 27119,27120,27121,27122,27123,27124,27125,27126,27127,27128,27129,27130,
  78532. 27131,27132,27133,27134,27135,27136,27137,27138,27139,27140,27141,27142,
  78533. 27143,27144,27145,27146,27147,27148,27149,27150,27151,27152,27153,27154,
  78534. 27155,27156,27157,27158,27159,27160,27161,27162,27163,27164,27165,27166,
  78535. 27167,27168,27169,27170,27171,27172,27173,27174,27175,27176,27177,27178,
  78536. 27179,27180,27181,27182,27183,27184,27185,27186,27187,27188,27189,27190,
  78537. 27191,27192,27193,27194,27195,27196,27197,27198,27199,27200,27201,27202,
  78538. 27203,27204,27205,27206,27207,27208,27209,27210,27211,27212,27213,27214,
  78539. 27215,27216,27217,27218,27219,27220,27221,27222,27223,27224,27225,27226,
  78540. 27227,27228,27229,27230,27231,27232,27233,27234,27235,27236,27237,27238,
  78541. 27239,27240,27241,27242,27243,27244,27245,27246,27247,27248,27249,27250,
  78542. 27251,27252,27253,27254,27255,27256,27257,27258,27259,27260,27261,27262,
  78543. 27263,27264,27265,27266,27267,27268,27269,27270,27271,27272,27273,27274,
  78544. 27275,27276,27277,27278,27279,27280,27281,27282,27283,27284,27285,27286,
  78545. 27287,27288,27289,27290,27291,27292,27293,27294,27295,27296,27297,27298,
  78546. 27299,27300,27301,27302,27303,27304,27305,27306,27307,27308,27309,27310,
  78547. 27311,27312,27313,27314,27315,27316,27317,27318,27319,27320,27321,27322,
  78548. 27323,27324,27325,27326,27327,27328,27329,27330,27331,27332,27333,27334,
  78549. 27335,27336,27337,27338,27339,27340,27341,27342,27343,27344,27345,27346,
  78550. 27347,27348,27349,27350,27351,27352,27353,27354,27355,27356,27357,27358,
  78551. 27359,27360,27361,27362,27363,27364,27365,27366,27367,27368,27369,27370,
  78552. 27371,27372,27373,27374,27375,27376,27377,27378,27379,27380,27381,27382,
  78553. 27383,27384,27385,27386,27387,27388,27389,27390,27391,27392,27393,27394,
  78554. 27395,27396,27397,27398,27399,27400,27401,27402,27403,27404,27405,27406,
  78555. 27407,27408,27409,27410,27411,27412,27413,27414,27415,27416,27417,27418,
  78556. 27419,27420,27421,27422,27423,27424,27425,27426,27427,27428,27429,27430,
  78557. 27431,27432,27433,27434,27435,27436,27437,27438,27439,27440,27441,27442,
  78558. 27443,27444,27445,27446,27447,27448,27449,27450,27451,27452,27453,27454,
  78559. 27455,27456,27457,27458,27459,27460,27461,27462,27463,27464,27465,27466,
  78560. 27467,27468,27469,27470,27471,27472,27473,27474,27475,27476,27477,27478,
  78561. 27479,27480,27481,27482,27483,27484,27485,27486,27487,27488,27489,27490,
  78562. 27491,27492,27493,27494,27495,27496,27497,27498,27499,27500,27501,27502,
  78563. 27503,27504,27505,27506,27507,27508,27509,27510,27511,27512,27513,27514,
  78564. 27515,27516,27517,27518,27519,27520,27521,27522,27523,27524,27525,27526,
  78565. 27527,27528,27529,27530,27531,27532,27533,27534,27535,27536,27537,27538,
  78566. 27539,27540,27541,27542,27543,27544,27545,27546,27547,27548,27549,27550,
  78567. 27551,27552,27553,27554,27555,27556,27557,27558,27559,27560,27561,27562,
  78568. 27563,27564,27565,27566,27567,27568,27569,27570,27571,27572,27573,27574,
  78569. 27575,27576,27577,27578,27579,27580,27581,27582,27583,27584,27585,27586,
  78570. 27587,27588,27589,27590,27591,27592,27593,27594,27595,27596,27597,27598,
  78571. 27599,27600,27601,27602,27603,27604,27605,27606,27607,27608,27609,27610,
  78572. 27611,27612,27613,27614,27615,27616,27617,27618,27619,27620,27621,27622,
  78573. 27623,27624,27625,27626,27627,27628,27629,27630,27631,27632,27633,27634,
  78574. 27635,27636,27637,27638,27639,27640,27641,27642,27643,27644,27645,27646,
  78575. 27647,27648,27649,27650,27651,27652,27653,27654,27655,27656,27657,27658,
  78576. 27659,27660,27661,27662,27663,27664,27665,27666,27667,27668,27669,27670,
  78577. 27671,27672,27673,27674,27675,27676,27677,27678,27679,27680,27681,27682,
  78578. 27683,27684,27685,27686,27687,27688,27689,27690,27691,27692,27693,27694,
  78579. 27695,27696,27697,27698,27699,27700,27701,27702,27703,27704,27705,27706,
  78580. 27707,27708,27709,27710,27711,27712,27713,27714,27715,27716,27717,27718,
  78581. 27719,27720,27721,27722,27723,27724,27725,27726,27727,27728,27729,27730,
  78582. 27731,27732,27733,27734,27735,27736,27737,27738,27739,27740,27741,27742,
  78583. 27743,27744,27745,27746,27747,27748,27749,27750,27751,27752,27753,27754,
  78584. 27755,27756,27757,27758,27759,27760,27761,27762,27763,27764,27765,27766,
  78585. 27767,27768,27769,27770,27771,27772,27773,27774,27775,27776,27777,27778,
  78586. 27779,27780,27781,27782,27783,27784,27785,27786,27787,27788,27789,27790,
  78587. 27791,27792,27793,27794,27795,27796,27797,27798,27799,27800,27801,27802,
  78588. 27803,27804,27805,27806,27807,27808,27809,27810,27811,27812,27813,27814,
  78589. 27815,27816,27817,27818,27819,27820,27821,27822,27823,27824,27825,27826,
  78590. 27827,27828,27829,27830,27831,27832,27833,27834,27835,27836,27837,27838,
  78591. 27839,27840,27841,27842,27843,27844,27845,27846,27847,27848,27849,27850,
  78592. 27851,27852,27853,27854,27855,27856,27857,27858,27859,27860,27861,27862,
  78593. 27863,27864,27865,27866,27867,27868,27869,27870,27871,27872,27873,27874,
  78594. 27875,27876,27877,27878,27879,27880,27881,27882,27883,27884,27885,27886,
  78595. 27887,27888,27889,27890,27891,27892,27893,27894,27895,27896,27897,27898,
  78596. 27899,27900,27901,27902,27903,27904,27905,27906,27907,27908,27909,27910,
  78597. 27911,27912,27913,27914,27915,27916,27917,27918,27919,27920,27921,27922,
  78598. 27923,27924,27925,27926,27927,27928,27929,27930,27931,27932,27933,27934,
  78599. 27935,27936,27937,27938,27939,27940,27941,27942,27943,27944,27945,27946,
  78600. 27947,27948,27949,27950,27951,27952,27953,27954,27955,27956,27957,27958,
  78601. 27959,27960,27961,27962,27963,27964,27965,27966,27967,27968,27969,27970,
  78602. 27971,27972,27973,27974,27975,27976,27977,27978,27979,27980,27981,27982,
  78603. 27983,27984,27985,27986,27987,27988,27989,27990,27991,27992,27993,27994,
  78604. 27995,27996,27997,27998,27999,28000,28001,28002,28003,28004,28005,28006,
  78605. 28007,28008,28009,28010,28011,28012,28013,28014,28015,28016,28017,28018,
  78606. 28019,28020,28021,28022,28023,28024,28025,28026,28027,28028,28029,28030,
  78607. 28031,28032,28033,28034,28035,28036,28037,28038,28039,28040,28041,28042,
  78608. 28043,28044,28045,28046,28047,28048,28049,28050,28051,28052,28053,28054,
  78609. 28055,28056,28057,28058,28059,28060,28061,28062,28063,28064,28065,28066,
  78610. 28067,28068,28069,28070,28071,28072,28073,28074,28075,28076,28077,28078,
  78611. 28079,28080,28081,28082,28083,28084,28085,28086,28087,28088,28089,28090,
  78612. 28091,28092,28093,28094,28095,28096,28097,28098,28099,28100,28101,28102,
  78613. 28103,28104,28105,28106,28107,28108,28109,28110,28111,28112,28113,28114,
  78614. 28115,28116,28117,28118,28119,28120,28121,28122,28123,28124,28125,28126,
  78615. 28127,28128,28129,28130,28131,28132,28133,28134,28135,28136,28137,28138,
  78616. 28139,28140,28141,28142,28143,28144,28145,28146,28147,28148,28149,28150,
  78617. 28151,28152,28153,28154,28155,28156,28157,28158,28159,28160,28161,28162,
  78618. 28163,28164,28165,28166,28167,28168,28169,28170,28171,28172,28173,28174,
  78619. 28175,28176,28177,28178,28179,28180,28181,28182,28183,28184,28185,28186,
  78620. 28187,28188,28189,28190,28191,28192,28193,28194,28195,28196,28197,28198,
  78621. 28199,28200,28201,28202,28203,28204,28205,28206,28207,28208,28209,28210,
  78622. 28211,28212,28213,28214,28215,28216,28217,28218,28219,28220,28221,28222,
  78623. 28223,28224,28225,28226,28227,28228,28229,28230,28231,28232,28233,28234,
  78624. 28235,28236,28237,28238,28239,28240,28241,28242,28243,28244,28245,28246,
  78625. 28247,28248,28249,28250,28251,28252,28253,28254,28255,28256,28257,28258,
  78626. 28259,28260,28261,28262,28263,28264,28265,28266,28267,28268,28269,28270,
  78627. 28271,28272,28273,28274,28275,28276,28277,28278,28279,28280,28281,28282,
  78628. 28283,28284,28285,28286,28287,28288,28289,28290,28291,28292,28293,28294,
  78629. 28295,28296,28297,28298,28299,28300,28301,28302,28303,28304,28305,28306,
  78630. 28307,28308,28309,28310,28311,28312,28313,28314,28315,28316,28317,28318,
  78631. 28319,28320,28321,28322,28323,28324,28325,28326,28327,28328,28329,28330,
  78632. 28331,28332,28333,28334,28335,28336,28337,28338,28339,28340,28341,28342,
  78633. 28343,28344,28345,28346,28347,28348,28349,28350,28351,28352,28353,28354,
  78634. 28355,28356,28357,28358,28359,28360,28361,28362,28363,28364,28365,28366,
  78635. 28367,28368,28369,28370,28371,28372,28373,28374,28375,28376,28377,28378,
  78636. 28379,28380,28381,28382,28383,28384,28385,28386,28387,28388,28389,28390,
  78637. 28391,28392,28393,28394,28395,28396,28397,28398,28399,28400,28401,28402,
  78638. 28403,28404,28405,28406,28407,28408,28409,28410,28411,28412,28413,28414,
  78639. 28415,28416,28417,28418,28419,28420,28421,28422,28423,28424,28425,28426,
  78640. 28427,28428,28429,28430,28431,28432,28433,28434,28435,28436,28437,28438,
  78641. 28439,28440,28441,28442,28443,28444,28445,28446,28447,28448,28449,28450,
  78642. 28451,28452,28453,28454,28455,28456,28457,28458,28459,28460,28461,28462,
  78643. 28463,28464,28465,28466,28467,28468,28469,28470,28471,28472,28473,28474,
  78644. 28475,28476,28477,28478,28479,28480,28481,28482,28483,28484,28485,28486,
  78645. 28487,28488,28489,28490,28491,28492,28493,28494,28495,28496,28497,28498,
  78646. 28499,28500,28501,28502,28503,28504,28505,28506,28507,28508,28509,28510,
  78647. 28511,28512,28513,28514,28515,28516,28517,28518,28519,28520,28521,28522,
  78648. 28523,28524,28525,28526,28527,28528,28529,28530,28531,28532,28533,28534,
  78649. 28535,28536,28537,28538,28539,28540,28541,28542,28543,28544,28545,28546,
  78650. 28547,28548,28549,28550,28551,28552,28553,28554,28555,28556,28557,28558,
  78651. 28559,28560,28561,28562,28563,28564,28565,28566,28567,28568,28569,28570,
  78652. 28571,28572,28573,28574,28575,28576,28577,28578,28579,28580,28581,28582,
  78653. 28583,28584,28585,28586,28587,28588,28589,28590,28591,28592,28593,28594,
  78654. 28595,28596,28597,28598,28599,28600,28601,28602,28603,28604,28605,28606,
  78655. 28607,28608,28609,28610,28611,28612,28613,28614,28615,28616,28617,28618,
  78656. 28619,28620,28621,28622,28623,28624,28625,28626,28627,28628,28629,28630,
  78657. 28631,28632,28633,28634,28635,28636,28637,28638,28639,28640,28641,28642,
  78658. 28643,28644,28645,28646,28647,28648,28649,28650,28651,28652,28653,28654,
  78659. 28655,28656,28657,28658,28659,28660,28661,28662,28663,28664,28665,28666,
  78660. 28667,28668,28669,28670,28671,28672,28673,28674,28675,28676,28677,28678,
  78661. 28679,28680,28681,28682,28683,28684,28685,28686,28687,28688,28689,28690,
  78662. 28691,28692,28693,28694,28695,28696,28697,28698,28699,28700,28701,28702,
  78663. 28703,28704,28705,28706,28707,28708,28709,28710,28711,28712,28713,28714,
  78664. 28715,28716,28717,28718,28719,28720,28721,28722,28723,28724,28725,28726,
  78665. 28727,28728,28729,28730,28731,28732,28733,28734,28735,28736,28737,28738,
  78666. 28739,28740,28741,28742,28743,28744,28745,28746,28747,28748,28749,28750,
  78667. 28751,28752,28753,28754,28755,28756,28757,28758,28759,28760,28761,28762,
  78668. 28763,28764,28765,28766,28767,28768,28769,28770,28771,28772,28773,28774,
  78669. 28775,28776,28777,28778,28779,28780,28781,28782,28783,28784,28785,28786,
  78670. 28787,28788,28789,28790,28791,28792,28793,28794,28795,28796,28797,28798,
  78671. 28799,28800,28801,28802,28803,28804,28805,28806,28807,28808,28809,28810,
  78672. 28811,28812,28813,28814,28815,28816,28817,28818,28819,28820,28821,28822,
  78673. 28823,28824,28825,28826,28827,28828,28829,28830,28831,28832,28833,28834,
  78674. 28835,28836,28837,28838,28839,28840,28841,28842,28843,28844,28845,28846,
  78675. 28847,28848,28849,28850,28851,28852,28853,28854,28855,28856,28857,28858,
  78676. 28859,28860,28861,28862,28863,28864,28865,28866,28867,28868,28869,28870,
  78677. 28871,28872,28873,28874,28875,28876,28877,28878,28879,28880,28881,28882,
  78678. 28883,28884,28885,28886,28887,28888,28889,28890,28891,28892,28893,28894,
  78679. 28895,28896,28897,28898,28899,28900,28901,28902,28903,28904,28905,28906,
  78680. 28907,28908,28909,28910,28911,28912,28913,28914,28915,28916,28917,28918,
  78681. 28919,28920,28921,28922,28923,28924,28925,28926,28927,28928,28929,28930,
  78682. 28931,28932,28933,28934,28935,28936,28937,28938,28939,28940,28941,28942,
  78683. 28943,28944,28945,28946,28947,28948,28949,28950,28951,28952,28953,28954,
  78684. 28955,28956,28957,28958,28959,28960,28961,28962,28963,28964,28965,28966,
  78685. 28967,28968,28969,28970,28971,28972,28973,28974,28975,28976,28977,28978,
  78686. 28979,28980,28981,28982,28983,28984,28985,28986,28987,28988,28989,28990,
  78687. 28991,28992,28993,28994,28995,28996,28997,28998,28999,29000,29001,29002,
  78688. 29003,29004,29005,29006,29007,29008,29009,29010,29011,29012,29013,29014,
  78689. 29015,29016,29017,29018,29019,29020,29021,29022,29023,29024,29025,29026,
  78690. 29027,29028,29029,29030,29031,29032,29033,29034,29035,29036,29037,29038,
  78691. 29039,29040,29041,29042,29043,29044,29045,29046,29047,29048,29049,29050,
  78692. 29051,29052,29053,29054,29055,29056,29057,29058,29059,29060,29061,29062,
  78693. 29063,29064,29065,29066,29067,29068,29069,29070,29071,29072,29073,29074,
  78694. 29075,29076,29077,29078,29079,29080,29081,29082,29083,29084,29085,29086,
  78695. 29087,29088,29089,29090,29091,29092,29093,29094,29095,29096,29097,29098,
  78696. 29099,29100,29101,29102,29103,29104,29105,29106,29107,29108,29109,29110,
  78697. 29111,29112,29113,29114,29115,29116,29117,29118,29119,29120,29121,29122,
  78698. 29123,29124,29125,29126,29127,29128,29129,29130,29131,29132,29133,29134,
  78699. 29135,29136,29137,29138,29139,29140,29141,29142,29143,29144,29145,29146,
  78700. 29147,29148,29149,29150,29151,29152,29153,29154,29155,29156,29157,29158,
  78701. 29159,29160,29161,29162,29163,29164,29165,29166,29167,29168,29169,29170,
  78702. 29171,29172,29173,29174,29175,29176,29177,29178,29179,29180,29181,29182,
  78703. 29183,29184,29185,29186,29187,29188,29189,29190,29191,29192,29193,29194,
  78704. 29195,29196,29197,29198,29199,29200,29201,29202,29203,29204,29205,29206,
  78705. 29207,29208,29209,29210,29211,29212,29213,29214,29215,29216,29217,29218,
  78706. 29219,29220,29221,29222,29223,29224,29225,29226,29227,29228,29229,29230,
  78707. 29231,29232,29233,29234,29235,29236,29237,29238,29239,29240,29241,29242,
  78708. 29243,29244,29245,29246,29247,29248,29249,29250,29251,29252,29253,29254,
  78709. 29255,29256,29257,29258,29259,29260,29261,29262,29263,29264,29265,29266,
  78710. 29267,29268,29269,29270,29271,29272,29273,29274,29275,29276,29277,29278,
  78711. 29279,29280,29281,29282,29283,29284,29285,29286,29287,29288,29289,29290,
  78712. 29291,29292,29293,29294,29295,29296,29297,29298,29299,29300,29301,29302,
  78713. 29303,29304,29305,29306,29307,29308,29309,29310,29311,29312,29313,29314,
  78714. 29315,29316,29317,29318,29319,29320,29321,29322,29323,29324,29325,29326,
  78715. 29327,29328,29329,29330,29331,29332,29333,29334,29335,29336,29337,29338,
  78716. 29339,29340,29341,29342,29343,29344,29345,29346,29347,29348,29349,29350,
  78717. 29351,29352,29353,29354,29355,29356,29357,29358,29359,29360,29361,29362,
  78718. 29363,29364,29365,29366,29367,29368,29369,29370,29371,29372,29373,29374,
  78719. 29375,29376,29377,29378,29379,29380,29381,29382,29383,29384,29385,29386,
  78720. 29387,29388,29389,29390,29391,29392,29393,29394,29395,29396,29397,29398,
  78721. 29399,29400,29401,29402,29403,29404,29405,29406,29407,29408,29409,29410,
  78722. 29411,29412,29413,29414,29415,29416,29417,29418,29419,29420,29421,29422,
  78723. 29423,29424,29425,29426,29427,29428,29429,29430,29431,29432,29433,29434,
  78724. 29435,29436,29437,29438,29439,29440,29441,29442,29443,29444,29445,29446,
  78725. 29447,29448,29449,29450,29451,29452,29453,29454,29455,29456,29457,29458,
  78726. 29459,29460,29461,29462,29463,29464,29465,29466,29467,29468,29469,29470,
  78727. 29471,29472,29473,29474,29475,29476,29477,29478,29479,29480,29481,29482,
  78728. 29483,29484,29485,29486,29487,29488,29489,29490,29491,29492,29493,29494,
  78729. 29495,29496,29497,29498,29499,29500,29501,29502,29503,29504,29505,29506,
  78730. 29507,29508,29509,29510,29511,29512,29513,29514,29515,29516,29517,29518,
  78731. 29519,29520,29521,29522,29523,29524,29525,29526,29527,29528,29529,29530,
  78732. 29531,29532,29533,29534,29535,29536,29537,29538,29539,29540,29541,29542,
  78733. 29543,29544,29545,29546,29547,29548,29549,29550,29551,29552,29553,29554,
  78734. 29555,29556,29557,29558,29559,29560,29561,29562,29563,29564,29565,29566,
  78735. 29567,29568,29569,29570,29571,29572,29573,29574,29575,29576,29577,29578,
  78736. 29579,29580,29581,29582,29583,29584,29585,29586,29587,29588,29589,29590,
  78737. 29591,29592,29593,29594,29595,29596,29597,29598,29599,29600,29601,29602,
  78738. 29603,29604,29605,29606,29607,29608,29609,29610,29611,29612,29613,29614,
  78739. 29615,29616,29617,29618,29619,29620,29621,29622,29623,29624,29625,29626,
  78740. 29627,29628,29629,29630,29631,29632,29633,29634,29635,29636,29637,29638,
  78741. 29639,29640,29641,29642,29643,29644,29645,29646,29647,29648,29649,29650,
  78742. 29651,29652,29653,29654,29655,29656,29657,29658,29659,29660,29661,29662,
  78743. 29663,29664,29665,29666,29667,29668,29669,29670,29671,29672,29673,29674,
  78744. 29675,29676,29677,29678,29679,29680,29681,29682,29683,29684,29685,29686,
  78745. 29687,29688,29689,29690,29691,29692,29693,29694,29695,29696,29697,29698,
  78746. 29699,29700,29701,29702,29703,29704,29705,29706,29707,29708,29709,29710,
  78747. 29711,29712,29713,29714,29715,29716,29717,29718,29719,29720,29721,29722,
  78748. 29723,29724,29725,29726,29727,29728,29729,29730,29731,29732,29733,29734,
  78749. 29735,29736,29737,29738,29739,29740,29741,29742,29743,29744,29745,29746,
  78750. 29747,29748,29749,29750,29751,29752,29753,29754,29755,29756,29757,29758,
  78751. 29759,29760,29761,29762,29763,29764,29765,29766,29767,29768,29769,29770,
  78752. 29771,29772,29773,29774,29775,29776,29777,29778,29779,29780,29781,29782,
  78753. 29783,29784,29785,29786,29787,29788,29789,29790,29791,29792,29793,29794,
  78754. 29795,29796,29797,29798,29799,29800,29801,29802,29803,29804,29805,29806,
  78755. 29807,29808,29809,29810,29811,29812,29813,29814,29815,29816,29817,29818,
  78756. 29819,29820,29821,29822,29823,29824,29825,29826,29827,29828,29829,29830,
  78757. 29831,29832,29833,29834,29835,29836,29837,29838,29839,29840,29841,29842,
  78758. 29843,29844,29845,29846,29847,29848,29849,29850,29851,29852,29853,29854,
  78759. 29855,29856,29857,29858,29859,29860,29861,29862,29863,29864,29865,29866,
  78760. 29867,29868,29869,29870,29871,29872,29873,29874,29875,29876,29877,29878,
  78761. 29879,29880,29881,29882,29883,29884,29885,29886,29887,29888,29889,29890,
  78762. 29891,29892,29893,29894,29895,29896,29897,29898,29899,29900,29901,29902,
  78763. 29903,29904,29905,29906,29907,29908,29909,29910,29911,29912,29913,29914,
  78764. 29915,29916,29917,29918,29919,29920,29921,29922,29923,29924,29925,29926,
  78765. 29927,29928,29929,29930,29931,29932,29933,29934,29935,29936,29937,29938,
  78766. 29939,29940,29941,29942,29943,29944,29945,29946,29947,29948,29949,29950,
  78767. 29951,29952,29953,29954,29955,29956,29957,29958,29959,29960,29961,29962,
  78768. 29963,29964,29965,29966,29967,29968,29969,29970,29971,29972,29973,29974,
  78769. 29975,29976,29977,29978,29979,29980,29981,29982,29983,29984,29985,29986,
  78770. 29987,29988,29989,29990,29991,29992,29993,29994,29995,29996,29997,29998,
  78771. 29999,30000,30001,30002,30003,30004,30005,30006,30007,30008,30009,30010,
  78772. 30011,30012,30013,30014,30015,30016,30017,30018,30019,30020,30021,30022,
  78773. 30023,30024,30025,30026,30027,30028,30029,30030,30031,30032,30033,30034,
  78774. 30035,30036,30037,30038,30039,30040,30041,30042,30043,30044,30045,30046,
  78775. 30047,30048,30049,30050,30051,30052,30053,30054,30055,30056,30057,30058,
  78776. 30059,30060,30061,30062,30063,30064,30065,30066,30067,30068,30069,30070,
  78777. 30071,30072,30073,30074,30075,30076,30077,30078,30079,30080,30081,30082,
  78778. 30083,30084,30085,30086,30087,30088,30089,30090,30091,30092,30093,30094,
  78779. 30095,30096,30097,30098,30099,30100,30101,30102,30103,30104,30105,30106,
  78780. 30107,30108,30109,30110,30111,30112,30113,30114,30115,30116,30117,30118,
  78781. 30119,30120,30121,30122,30123,30124,30125,30126,30127,30128,30129,30130,
  78782. 30131,30132,30133,30134,30135,30136,30137,30138,30139,30140,30141,30142,
  78783. 30143,30144,30145,30146,30147,30148,30149,30150,30151,30152,30153,30154,
  78784. 30155,30156,30157,30158,30159,30160,30161,30162,30163,30164,30165,30166,
  78785. 30167,30168,30169,30170,30171,30172,30173,30174,30175,30176,30177,30178,
  78786. 30179,30180,30181,30182,30183,30184,30185,30186,30187,30188,30189,30190,
  78787. 30191,30192,30193,30194,30195,30196,30197,30198,30199,30200,30201,30202,
  78788. 30203,30204,30205,30206,30207,30208,30209,30210,30211,30212,30213,30214,
  78789. 30215,30216,30217,30218,30219,30220,30221,30222,30223,30224,30225,30226,
  78790. 30227,30228,30229,30230,30231,30232,30233,30234,30235,30236,30237,30238,
  78791. 30239,30240,30241,30242,30243,30244,30245,30246,30247,30248,30249,30250,
  78792. 30251,30252,30253,30254,30255,30256,30257,30258,30259,30260,30261,30262,
  78793. 30263,30264,30265,30266,30267,30268,30269,30270,30271,30272,30273,30274,
  78794. 30275,30276,30277,30278,30279,30280,30281,30282,30283,30284,30285,30286,
  78795. 30287,30288,30289,30290,30291,30292,30293,30294,30295,30296,30297,30298,
  78796. 30299,30300,30301,30302,30303,30304,30305,30306,30307,30308,30309,30310,
  78797. 30311,30312,30313,30314,30315,30316,30317,30318,30319,30320,30321,30322,
  78798. 30323,30324,30325,30326,30327,30328,30329,30330,30331,30332,30333,30334,
  78799. 30335,30336,30337,30338,30339,30340,30341,30342,30343,30344,30345,30346,
  78800. 30347,30348,30349,30350,30351,30352,30353,30354,30355,30356,30357,30358,
  78801. 30359,30360,30361,30362,30363,30364,30365,30366,30367,30368,30369,30370,
  78802. 30371,30372,30373,30374,30375,30376,30377,30378,30379,30380,30381,30382,
  78803. 30383,30384,30385,30386,30387,30388,30389,30390,30391,30392,30393,30394,
  78804. 30395,30396,30397,30398,30399,30400,30401,30402,30403,30404,30405,30406,
  78805. 30407,30408,30409,30410,30411,30412,30413,30414,30415,30416,30417,30418,
  78806. 30419,30420,30421,30422,30423,30424,30425,30426,30427,30428,30429,30430,
  78807. 30431,30432,30433,30434,30435,30436,30437,30438,30439,30440,30441,30442,
  78808. 30443,30444,30445,30446,30447,30448,30449,30450,30451,30452,30453,30454,
  78809. 30455,30456,30457,30458,30459,30460,30461,30462,30463,30464,30465,30466,
  78810. 30467,30468,30469,30470,30471,30472,30473,30474,30475,30476,30477,30478,
  78811. 30479,30480,30481,30482,30483,30484,30485,30486,30487,30488,30489,30490,
  78812. 30491,30492,30493,30494,30495,30496,30497,30498,30499,30500,30501,30502,
  78813. 30503,30504,30505,30506,30507,30508,30509,30510,30511,30512,30513,30514,
  78814. 30515,30516,30517,30518,30519,30520,30521,30522,30523,30524,30525,30526,
  78815. 30527,30528,30529,30530,30531,30532,30533,30534,30535,30536,30537,30538,
  78816. 30539,30540,30541,30542,30543,30544,30545,30546,30547,30548,30549,30550,
  78817. 30551,30552,30553,30554,30555,30556,30557,30558,30559,30560,30561,30562,
  78818. 30563,30564,30565,30566,30567,30568,30569,30570,30571,30572,30573,30574,
  78819. 30575,30576,30577,30578,30579,30580,30581,30582,30583,30584,30585,30586,
  78820. 30587,30588,30589,30590,30591,30592,30593,30594,30595,30596,30597,30598,
  78821. 30599,30600,30601,30602,30603,30604,30605,30606,30607,30608,30609,30610,
  78822. 30611,30612,30613,30614,30615,30616,30617,30618,30619,30620,30621,30622,
  78823. 30623,30624,30625,30626,30627,30628,30629,30630,30631,30632,30633,30634,
  78824. 30635,30636,30637,30638,30639,30640,30641,30642,30643,30644,30645,30646,
  78825. 30647,30648,30649,30650,30651,30652,30653,30654,30655,30656,30657,30658,
  78826. 30659,30660,30661,30662,30663,30664,30665,30666,30667,30668,30669,30670,
  78827. 30671,30672,30673,30674,30675,30676,30677,30678,30679,30680,30681,30682,
  78828. 30683,30684,30685,30686,30687,30688,30689,30690,30691,30692,30693,30694,
  78829. 30695,30696,30697,30698,30699,30700,30701,30702,30703,30704,30705,30706,
  78830. 30707,30708,30709,30710,30711,30712,30713,30714,30715,30716,30717,30718,
  78831. 30719,30720,30721,30722,30723,30724,30725,30726,30727,30728,30729,30730,
  78832. 30731,30732,30733,30734,30735,30736,30737,30738,30739,30740,30741,30742,
  78833. 30743,30744,30745,30746,30747,30748,30749,30750,30751,30752,30753,30754,
  78834. 30755,30756,30757,30758,30759,30760,30761,30762,30763,30764,30765,30766,
  78835. 30767,30768,30769,30770,30771,30772,30773,30774,30775,30776,30777,30778,
  78836. 30779,30780,30781,30782,30783,30784,30785,30786,30787,30788,30789,30790,
  78837. 30791,30792,30793,30794,30795,30796,30797,30798,30799,30800,30801,30802,
  78838. 30803,30804,30805,30806,30807,30808,30809,30810,30811,30812,30813,30814,
  78839. 30815,30816,30817,30818,30819,30820,30821,30822,30823,30824,30825,30826,
  78840. 30827,30828,30829,30830,30831,30832,30833,30834,30835,30836,30837,30838,
  78841. 30839,30840,30841,30842,30843,30844,30845,30846,30847,30848,30849,30850,
  78842. 30851,30852,30853,30854,30855,30856,30857,30858,30859,30860,30861,30862,
  78843. 30863,30864,30865,30866,30867,30868,30869,30870,30871,30872,30873,30874,
  78844. 30875,30876,30877,30878,30879,30880,30881,30882,30883,30884,30885,30886,
  78845. 30887,30888,30889,30890,30891,30892,30893,30894,30895,30896,30897,30898,
  78846. 30899,30900,30901,30902,30903,30904,30905,30906,30907,30908,30909,30910,
  78847. 30911,30912,30913,30914,30915,30916,30917,30918,30919,30920,30921,30922,
  78848. 30923,30924,30925,30926,30927,30928,30929,30930,30931,30932,30933,30934,
  78849. 30935,30936,30937,30938,30939,30940,30941,30942,30943,30944,30945,30946,
  78850. 30947,30948,30949,30950,30951,30952,30953,30954,30955,30956,30957,30958,
  78851. 30959,30960,30961,30962,30963,30964,30965,30966,30967,30968,30969,30970,
  78852. 30971,30972,30973,30974,30975,30976,30977,30978,30979,30980,30981,30982,
  78853. 30983,30984,30985,30986,30987,30988,30989,30990,30991,30992,30993,30994,
  78854. 30995,30996,30997,30998,30999,31000,31001,31002,31003,31004,31005,31006,
  78855. 31007,31008,31009,31010,31011,31012,31013,31014,31015,31016,31017,31018,
  78856. 31019,31020,31021,31022,31023,31024,31025,31026,31027,31028,31029,31030,
  78857. 31031,31032,31033,31034,31035,31036,31037,31038,31039,31040,31041,31042,
  78858. 31043,31044,31045,31046,31047,31048,31049,31050,31051,31052,31053,31054,
  78859. 31055,31056,31057,31058,31059,31060,31061,31062,31063,31064,31065,31066,
  78860. 31067,31068,31069,31070,31071,31072,31073,31074,31075,31076,31077,31078,
  78861. 31079,31080,31081,31082,31083,31084,31085,31086,31087,31088,31089,31090,
  78862. 31091,31092,31093,31094,31095,31096,31097,31098,31099,31100,31101,31102,
  78863. 31103,31104,31105,31106,31107,31108,31109,31110,31111,31112,31113,31114,
  78864. 31115,31116,31117,31118,31119,31120,31121,31122,31123,31124,31125,31126,
  78865. 31127,31128,31129,31130,31131,31132,31133,31134,31135,31136,31137,31138,
  78866. 31139,31140,31141,31142,31143,31144,31145,31146,31147,31148,31149,31150,
  78867. 31151,31152,31153,31154,31155,31156,31157,31158,31159,31160,31161,31162,
  78868. 31163,31164,31165,31166,31167,31168,31169,31170,31171,31172,31173,31174,
  78869. 31175,31176,31177,31178,31179,31180,31181,31182,31183,31184,31185,31186,
  78870. 31187,31188,31189,31190,31191,31192,31193,31194,31195,31196,31197,31198,
  78871. 31199,31200,31201,31202,31203,31204,31205,31206,31207,31208,31209,31210,
  78872. 31211,31212,31213,31214,31215,31216,31217,31218,31219,31220,31221,31222,
  78873. 31223,31224,31225,31226,31227,31228,31229,31230,31231,31232,31233,31234,
  78874. 31235,31236,31237,31238,31239,31240,31241,31242,31243,31244,31245,31246,
  78875. 31247,31248,31249,31250,31251,31252,31253,31254,31255,31256,31257,31258,
  78876. 31259,31260,31261,31262,31263,31264,31265,31266,31267,31268,31269,31270,
  78877. 31271,31272,31273,31274,31275,31276,31277,31278,31279,31280,31281,31282,
  78878. 31283,31284,31285,31286,31287,31288,31289,31290,31291,31292,31293,31294,
  78879. 31295,31296,31297,31298,31299,31300,31301,31302,31303,31304,31305,31306,
  78880. 31307,31308,31309,31310,31311,31312,31313,31314,31315,31316,31317,31318,
  78881. 31319,31320,31321,31322,31323,31324,31325,31326,31327,31328,31329,31330,
  78882. 31331,31332,31333,31334,31335,31336,31337,31338,31339,31340,31341,31342,
  78883. 31343,31344,31345,31346,31347,31348,31349,31350,31351,31352,31353,31354,
  78884. 31355,31356,31357,31358,31359,31360,31361,31362,31363,31364,31365,31366,
  78885. 31367,31368,31369,31370,31371,31372,31373,31374,31375,31376,31377,31378,
  78886. 31379,31380,31381,31382,31383,31384,31385,31386,31387,31388,31389,31390,
  78887. 31391,31392,31393,31394,31395,31396,31397,31398,31399,31400,31401,31402,
  78888. 31403,31404,31405,31406,31407,31408,31409,31410,31411,31412,31413,31414,
  78889. 31415,31416,31417,31418,31419,31420,31421,31422,31423,31424,31425,31426,
  78890. 31427,31428,31429,31430,31431,31432,31433,31434,31435,31436,31437,31438,
  78891. 31439,31440,31441,31442,31443,31444,31445,31446,31447,31448,31449,31450,
  78892. 31451,31452,31453,31454,31455,31456,31457,31458,31459,31460,31461,31462,
  78893. 31463,31464,31465,31466,31467,31468,31469,31470,31471,31472,31473,31474,
  78894. 31475,31476,31477,31478,31479,31480,31481,31482,31483,31484,31485,31486,
  78895. 31487,31488,31489,31490,31491,31492,31493,31494,31495,31496,31497,31498,
  78896. 31499,31500,31501,31502,31503,31504,31505,31506,31507,31508,31509,31510,
  78897. 31511,31512,31513,31514,31515,31516,31517,31518,31519,31520,31521,31522,
  78898. 31523,31524,31525,31526,31527,31528,31529,31530,31531,31532,31533,31534,
  78899. 31535,31536,31537,31538,31539,31540,31541,31542,31543,31544,31545,31546,
  78900. 31547,31548,31549,31550,31551,31552,31553,31554,31555,31556,31557,31558,
  78901. 31559,31560,31561,31562,31563,31564,31565,31566,31567,31568,31569,31570,
  78902. 31571,31572,31573,31574,31575,31576,31577,31578,31579,31580,31581,31582,
  78903. 31583,31584,31585,31586,31587,31588,31589,31590,31591,31592,31593,31594,
  78904. 31595,31596,31597,31598,31599,31600,31601,31602,31603,31604,31605,31606,
  78905. 31607,31608,31609,31610,31611,31612,31613,31614,31615,31616,31617,31618,
  78906. 31619,31620,31621,31622,31623,31624,31625,31626,31627,31628,31629,31630,
  78907. 31631,31632,31633,31634,31635,31636,31637,31638,31639,31640,31641,31642,
  78908. 31643,31644,31645,31646,31647,31648,31649,31650,31651,31652,31653,31654,
  78909. 31655,31656,31657,31658,31659,31660,31661,31662,31663,31664,31665,31666,
  78910. 31667,31668,31669,31670,31671,31672,31673,31674,31675,31676,31677,31678,
  78911. 31679,31680,31681,31682,31683,31684,31685,31686,31687,31688,31689,31690,
  78912. 31691,31692,31693,31694,31695,31696,31697,31698,31699,31700,31701,31702,
  78913. 31703,31704,31705,31706,31707,31708,31709,31710,31711,31712,31713,31714,
  78914. 31715,31716,31717,31718,31719,31720,31721,31722,31723,31724,31725,31726,
  78915. 31727,31728,31729,31730,31731,31732,31733,31734,31735,31736,31737,31738,
  78916. 31739,31740,31741,31742,31743,31744,31745,31746,31747,31748,31749,31750,
  78917. 31751,31752,31753,31754,31755,31756,31757,31758,31759,31760,31761,31762,
  78918. 31763,31764,31765,31766,31767,31768,31769,31770,31771,31772,31773,31774,
  78919. 31775,31776,31777,31778,31779,31780,31781,31782,31783,31784,31785,31786,
  78920. 31787,31788,31789,31790,31791,31792,31793,31794,31795,31796,31797,31798,
  78921. 31799,31800,31801,31802,31803,31804,31805,31806,31807,31808,31809,31810,
  78922. 31811,31812,31813,31814,31815,31816,31817,31818,31819,31820,31821,31822,
  78923. 31823,31824,31825,31826,31827,31828,31829,31830,31831,31832,31833,31834,
  78924. 31835,31836,31837,31838,31839,31840,31841,31842,31843,31844,31845,31846,
  78925. 31847,31848,31849,31850,31851,31852,31853,31854,31855,31856,31857,31858,
  78926. 31859,31860,31861,31862,31863,31864,31865,31866,31867,31868,31869,31870,
  78927. 31871,31872,31873,31874,31875,31876,31877,31878,31879,31880,31881,31882,
  78928. 31883,31884,31885,31886,31887,31888,31889,31890,31891,31892,31893,31894,
  78929. 31895,31896,31897,31898,31899,31900,31901,31902,31903,31904,31905,31906,
  78930. 31907,31908,31909,31910,31911,31912,31913,31914,31915,31916,31917,31918,
  78931. 31919,31920,31921,31922,31923,31924,31925,31926,31927,31928,31929,31930,
  78932. 31931,31932,31933,31934,31935,31936,31937,31938,31939,31940,31941,31942,
  78933. 31943,31944,31945,31946,31947,31948,31949,31950,31951,31952,31953,31954,
  78934. 31955,31956,31957,31958,31959,31960,31961,31962,31963,31964,31965,31966,
  78935. 31967,31968,31969,31970,31971,31972,31973,31974,31975,31976,31977,31978,
  78936. 31979,31980,31981,31982,31983,31984,31985,31986,31987,31988,31989,31990,
  78937. 31991,31992,31993,31994,31995,31996,31997,31998,31999,32000,32001,32002,
  78938. 32003,32004,32005,32006,32007,32008,32009,32010,32011,32012,32013,32014,
  78939. 32015,32016,32017,32018,32019,32020,32021,32022,32023,32024,32025,32026,
  78940. 32027,32028,32029,32030,32031,32032,32033,32034,32035,32036,32037,32038,
  78941. 32039,32040,32041,32042,32043,32044,32045,32046,32047,32048,32049,32050,
  78942. 32051,32052,32053,32054,32055,32056,32057,32058,32059,32060,32061,32062,
  78943. 32063,32064,32065,32066,32067,32068,32069,32070,32071,32072,32073,32074,
  78944. 32075,32076,32077,32078,32079,32080,32081,32082,32083,32084,32085,32086,
  78945. 32087,32088,32089,32090,32091,32092,32093,32094,32095,32096,32097,32098,
  78946. 32099,32100,32101,32102,32103,32104,32105,32106,32107,32108,32109,32110,
  78947. 32111,32112,32113,32114,32115,32116,32117,32118,32119,32120,32121,32122,
  78948. 32123,32124,32125,32126,32127,32128,32129,32130,32131,32132,32133,32134,
  78949. 32135,32136,32137,32138,32139,32140,32141,32142,32143,32144,32145,32146,
  78950. 32147,32148,32149,32150,32151,32152,32153,32154,32155,32156,32157,32158,
  78951. 32159,32160,32161,32162,32163,32164,32165,32166,32167,32168,32169,32170,
  78952. 32171,32172,32173,32174,32175,32176,32177,32178,32179,32180,32181,32182,
  78953. 32183,32184,32185,32186,32187,32188,32189,32190,32191,32192,32193,32194,
  78954. 32195,32196,32197,32198,32199,32200,32201,32202,32203,32204,32205,32206,
  78955. 32207,32208,32209,32210,32211,32212,32213,32214,32215,32216,32217,32218,
  78956. 32219,32220,32221,32222,32223,32224,32225,32226,32227,32228,32229,32230,
  78957. 32231,32232,32233,32234,32235,32236,32237,32238,32239,32240,32241,32242,
  78958. 32243,32244,32245,32246,32247,32248,32249,32250,32251,32252,32253,32254,
  78959. 32255,32256,32257,32258,32259,32260,32261,32262,32263,32264,32265,32266,
  78960. 32267,32268,32269,32270,32271,32272,32273,32274,32275,32276,32277,32278,
  78961. 32279,32280,32281,32282,32283,32284,32285,32286,32287,32288,32289,32290,
  78962. 32291,32292,32293,32294,32295,32296,32297,32298,32299,32300,32301,32302,
  78963. 32303,32304,32305,32306,32307,32308,32309,32310,32311,32312,32313,32314,
  78964. 32315,32316,32317,32318,32319,32320,32321,32322,32323,32324,32325,32326,
  78965. 32327,32328,32329,32330,32331,32332,32333,32334,32335,32336,32337,32338,
  78966. 32339,32340,32341,32342,32343,32344,32345,32346,32347,32348,32349,32350,
  78967. 32351,32352,32353,32354,32355,32356,32357,32358,32359,32360,32361,32362,
  78968. 32363,32364,32365,32366,32367,32368,32369,32370,32371,32372,32373,32374,
  78969. 32375,32376,32377,32378,32379,32380,32381,32382,32383,32384,32385,32386,
  78970. 32387,32388,32389,32390,32391,32392,32393,32394,32395,32396,32397,32398,
  78971. 32399,32400,32401,32402,32403,32404,32405,32406,32407,32408,32409,32410,
  78972. 32411,32412,32413,32414,32415,32416,32417,32418,32419,32420,32421,32422,
  78973. 32423,32424,32425,32426,32427,32428,32429,32430,32431,32432,32433,32434,
  78974. 32435,32436,32437,32438,32439,32440,32441,32442,32443,32444,32445,32446,
  78975. 32447,32448,32449,32450,32451,32452,32453,32454,32455,32456,32457,32458,
  78976. 32459,32460,32461,32462,32463,32464,32465,32466,32467,32468,32469,32470,
  78977. 32471,32472,32473,32474,32475,32476,32477,32478,32479,32480,32481,32482,
  78978. 32483,32484,32485,32486,32487,32488,32489,32490,32491,32492,32493,32494,
  78979. 32495,32496,32497,32498,32499,32500,32501,32502,32503,32504,32505,32506,
  78980. 32507,32508,32509,32510,32511,32512,32513,32514,32515,32516,32517,32518,
  78981. 32519,32520,32521,32522,32523,32524,32525,32526,32527,32528,32529,32530,
  78982. 32531,32532,32533,32534,32535,32536,32537,32538,32539,32540,32541,32542,
  78983. 32543,32544,32545,32546,32547,32548,32549,32550,32551,32552,32553,32554,
  78984. 32555,32556,32557,32558,32559,32560,32561,32562,32563,32564,32565,32566,
  78985. 32567,32568,32569,32570,32571,32572,32573,32574,32575,32576,32577,32578,
  78986. 32579,32580,32581,32582,32583,32584,32585,32586,32587,32588,32589,32590,
  78987. 32591,32592,32593,32594,32595,32596,32597,32598,32599,32600,32601,32602,
  78988. 32603,32604,32605,32606,32607,32608,32609,32610,32611,32612,32613,32614,
  78989. 32615,32616,32617,32618,32619,32620,32621,32622,32623,32624,32625,32626,
  78990. 32627,32628,32629,32630,32631,32632,32633,32634,32635,32636,32637,32638,
  78991. 32639,32640,32641,32642,32643,32644,32645,32646,32647,32648,32649,32650,
  78992. 32651,32652,32653,32654,32655,32656,32657,32658,32659,32660,32661,32662,
  78993. 32663,32664,32665,32666,32667,32668,32669,32670,32671,32672,32673,32674,
  78994. 32675,32676,32677,32678,32679,32680,32681,32682,32683,32684,32685,32686,
  78995. 32687,32688,32689,32690,32691,32692,32693,32694,32695,32696,32697,32698,
  78996. 32699,32700,32701,32702,32703,32704,32705,32706,32707,32708,32709,32710,
  78997. 32711,32712,32713,32714,32715,32716,32717,32718,32719,32720,32721,32722,
  78998. 32723,32724,32725,32726,32727,32728,32729,32730,32731,32732,32733,32734,
  78999. 32735,32736,32737,32738,32739,32740,32741,32742,32743,32744,32745,32746,
  79000. 32747,32748,32749,32750,32751,32752,32753,32754,32755,32756,32757,32758,
  79001. 32759,32760,32761,32762,32763,32764,32765,32766,32767,32768L,32769L,32770L,
  79002. 32771L,32772L,32773L,32774L,32775L,32776L,32777L,32778L,32779L,32780L,
  79003. 32781L,32782L,32783L,32784L,32785L,32786L,32787L,32788L,32789L,32790L,
  79004. 32791L,32792L,32793L,32794L,32795L,32796L,32797L,32798L,32799L,32800L,
  79005. 32801L,32802L,32803L,32804L,32805L,32806L,32807L,32808L,32809L,32810L,
  79006. 32811L,32812L,32813L,32814L,32815L,32816L,32817L,32818L,32819L,32820L,
  79007. 32821L,32822L,32823L,32824L,32825L,32826L,32827L,32828L,32829L,32830L,
  79008. 32831L,32832L,32833L,32834L,32835L,32836L,32837L,32838L,32839L,32840L,
  79009. 32841L,32842L,32843L,32844L,32845L,32846L,32847L,32848L,32849L,32850L,
  79010. 32851L,32852L,32853L,32854L,32855L,32856L,32857L,32858L,32859L,32860L,
  79011. 32861L,32862L,32863L,32864L,32865L,32866L,32867L,32868L,32869L,32870L,
  79012. 32871L,32872L,32873L,32874L,32875L,32876L,32877L,32878L,32879L,32880L,
  79013. 32881L,32882L,32883L,32884L,32885L,32886L,32887L,32888L,32889L,32890L,
  79014. 32891L,32892L,32893L,32894L,32895L,32896L,32897L,32898L,32899L,32900L,
  79015. 32901L,32902L,32903L,32904L,32905L,32906L,32907L,32908L,32909L,32910L,
  79016. 32911L,32912L,32913L,32914L,32915L,32916L,32917L,32918L,32919L,32920L,
  79017. 32921L,32922L,32923L,32924L,32925L,32926L,32927L,32928L,32929L,32930L,
  79018. 32931L,32932L,32933L,32934L,32935L,32936L,32937L,32938L,32939L,32940L,
  79019. 32941L,32942L,32943L,32944L,32945L,32946L,32947L,32948L,32949L,32950L,
  79020. 32951L,32952L,32953L,32954L,32955L,32956L,32957L,32958L,32959L,32960L,
  79021. 32961L,32962L,32963L,32964L,32965L,32966L,32967L,32968L,32969L,32970L,
  79022. 32971L,32972L,32973L,32974L,32975L,32976L,32977L,32978L,32979L,32980L,
  79023. 32981L,32982L,32983L,32984L,32985L,32986L,32987L,32988L,32989L,32990L,
  79024. 32991L,32992L,32993L,32994L,32995L,32996L,32997L,32998L,32999L,33000L,
  79025. 33001L,33002L,33003L,33004L,33005L,33006L,33007L,33008L,33009L,33010L,
  79026. 33011L,33012L,33013L,33014L,33015L,33016L,33017L,33018L,33019L,33020L,
  79027. 33021L,33022L,33023L,33024L,33025L,33026L,33027L,33028L,33029L,33030L,
  79028. 33031L,33032L,33033L,33034L,33035L,33036L,33037L,33038L,33039L,33040L,
  79029. 33041L,33042L,33043L,33044L,33045L,33046L,33047L,33048L,33049L,33050L,
  79030. 33051L,33052L,33053L,33054L,33055L,33056L,33057L,33058L,33059L,33060L,
  79031. 33061L,33062L,33063L,33064L,33065L,33066L,33067L,33068L,33069L,33070L,
  79032. 33071L,33072L,33073L,33074L,33075L,33076L,33077L,33078L,33079L,33080L,
  79033. 33081L,33082L,33083L,33084L,33085L,33086L,33087L,33088L,33089L,33090L,
  79034. 33091L,33092L,33093L,33094L,33095L,33096L,33097L,33098L,33099L,33100L,
  79035. 33101L,33102L,33103L,33104L,33105L,33106L,33107L,33108L,33109L,33110L,
  79036. 33111L,33112L,33113L,33114L,33115L,33116L,33117L,33118L,33119L,33120L,
  79037. 33121L,33122L,33123L,33124L,33125L,33126L,33127L,33128L,33129L,33130L,
  79038. 33131L,33132L,33133L,33134L,33135L,33136L,33137L,33138L,33139L,33140L,
  79039. 33141L,33142L,33143L,33144L,33145L,33146L,33147L,33148L,33149L,33150L,
  79040. 33151L,33152L,33153L,33154L,33155L,33156L,33157L,33158L,33159L,33160L,
  79041. 33161L,33162L,33163L,33164L,33165L,33166L,33167L,33168L,33169L,33170L,
  79042. 33171L,33172L,33173L,33174L,33175L,33176L,33177L,33178L,33179L,33180L,
  79043. 33181L,33182L,33183L,33184L,33185L,33186L,33187L,33188L,33189L,33190L,
  79044. 33191L,33192L,33193L,33194L,33195L,33196L,33197L,33198L,33199L,33200L,
  79045. 33201L,33202L,33203L,33204L,33205L,33206L,33207L,33208L,33209L,33210L,
  79046. 33211L,33212L,33213L,33214L,33215L,33216L,33217L,33218L,33219L,33220L,
  79047. 33221L,33222L,33223L,33224L,33225L,33226L,33227L,33228L,33229L,33230L,
  79048. 33231L,33232L,33233L,33234L,33235L,33236L,33237L,33238L,33239L,33240L,
  79049. 33241L,33242L,33243L,33244L,33245L,33246L,33247L,33248L,33249L,33250L,
  79050. 33251L,33252L,33253L,33254L,33255L,33256L,33257L,33258L,33259L,33260L,
  79051. 33261L,33262L,33263L,33264L,33265L,33266L,33267L,33268L,33269L,33270L,
  79052. 33271L,33272L,33273L,33274L,33275L,33276L,33277L,33278L,33279L,33280L,
  79053. 33281L,33282L,33283L,33284L,33285L,33286L,33287L,33288L,33289L,33290L,
  79054. 33291L,33292L,33293L,33294L,33295L,33296L,33297L,33298L,33299L,33300L,
  79055. 33301L,33302L,33303L,33304L,33305L,33306L,33307L,33308L,33309L,33310L,
  79056. 33311L,33312L,33313L,33314L,33315L,33316L,33317L,33318L,33319L,33320L,
  79057. 33321L,33322L,33323L,33324L,33325L,33326L,33327L,33328L,33329L,33330L,
  79058. 33331L,33332L,33333L,33334L,33335L,33336L,33337L,33338L,33339L,33340L,
  79059. 33341L,33342L,33343L,33344L,33345L,33346L,33347L,33348L,33349L,33350L,
  79060. 33351L,33352L,33353L,33354L,33355L,33356L,33357L,33358L,33359L,33360L,
  79061. 33361L,33362L,33363L,33364L,33365L,33366L,33367L,33368L,33369L,33370L,
  79062. 33371L,33372L,33373L,33374L,33375L,33376L,33377L,33378L,33379L,33380L,
  79063. 33381L,33382L,33383L,33384L,33385L,33386L,33387L,33388L,33389L,33390L,
  79064. 33391L,33392L,33393L,33394L,33395L,33396L,33397L,33398L,33399L,33400L,
  79065. 33401L,33402L,33403L,33404L,33405L,33406L,33407L,33408L,33409L,33410L,
  79066. 33411L,33412L,33413L,33414L,33415L,33416L,33417L,33418L,33419L,33420L,
  79067. 33421L,33422L,33423L,33424L,33425L,33426L,33427L,33428L,33429L,33430L,
  79068. 33431L,33432L,33433L,33434L,33435L,33436L,33437L,33438L,33439L,33440L,
  79069. 33441L,33442L,33443L,33444L,33445L,33446L,33447L,33448L,33449L,33450L,
  79070. 33451L,33452L,33453L,33454L,33455L,33456L,33457L,33458L,33459L,33460L,
  79071. 33461L,33462L,33463L,33464L,33465L,33466L,33467L,33468L,33469L,33470L,
  79072. 33471L,33472L,33473L,33474L,33475L,33476L,33477L,33478L,33479L,33480L,
  79073. 33481L,33482L,33483L,33484L,33485L,33486L,33487L,33488L,33489L,33490L,
  79074. 33491L,33492L,33493L,33494L,33495L,33496L,33497L,33498L,33499L,33500L,
  79075. 33501L,33502L,33503L,33504L,33505L,33506L,33507L,33508L,33509L,33510L,
  79076. 33511L,33512L,33513L,33514L,33515L,33516L,33517L,33518L,33519L,33520L,
  79077. 33521L,33522L,33523L,33524L,33525L,33526L,33527L,33528L,33529L,33530L,
  79078. 33531L,33532L,33533L,33534L,33535L,33536L,33537L,33538L,33539L,33540L,
  79079. 33541L,33542L,33543L,33544L,33545L,33546L,33547L,33548L,33549L,33550L,
  79080. 33551L,33552L,33553L,33554L,33555L,33556L,33557L,33558L,33559L,33560L,
  79081. 33561L,33562L,33563L,33564L,33565L,33566L,33567L,33568L,33569L,33570L,
  79082. 33571L,33572L,33573L,33574L,33575L,33576L,33577L,33578L,33579L,33580L,
  79083. 33581L,33582L,33583L,33584L,33585L,33586L,33587L,33588L,33589L,33590L,
  79084. 33591L,33592L,33593L,33594L,33595L,33596L,33597L,33598L,33599L,33600L,
  79085. 33601L,33602L,33603L,33604L,33605L,33606L,33607L,33608L,33609L,33610L,
  79086. 33611L,33612L,33613L,33614L,33615L,33616L,33617L,33618L,33619L,33620L,
  79087. 33621L,33622L,33623L,33624L,33625L,33626L,33627L,33628L,33629L,33630L,
  79088. 33631L,33632L,33633L,33634L,33635L,33636L,33637L,33638L,33639L,33640L,
  79089. 33641L,33642L,33643L,33644L,33645L,33646L,33647L,33648L,33649L,33650L,
  79090. 33651L,33652L,33653L,33654L,33655L,33656L,33657L,33658L,33659L,33660L,
  79091. 33661L,33662L,33663L,33664L,33665L,33666L,33667L,33668L,33669L,33670L,
  79092. 33671L,33672L,33673L,33674L,33675L,33676L,33677L,33678L,33679L,33680L,
  79093. 33681L,33682L,33683L,33684L,33685L,33686L,33687L,33688L,33689L,33690L,
  79094. 33691L,33692L,33693L,33694L,33695L,33696L,33697L,33698L,33699L,33700L,
  79095. 33701L,33702L,33703L,33704L,33705L,33706L,33707L,33708L,33709L,33710L,
  79096. 33711L,33712L,33713L,33714L,33715L,33716L,33717L,33718L,33719L,33720L,
  79097. 33721L,33722L,33723L,33724L,33725L,33726L,33727L,33728L,33729L,33730L,
  79098. 33731L,33732L,33733L,33734L,33735L,33736L,33737L,33738L,33739L,33740L,
  79099. 33741L,33742L,33743L,33744L,33745L,33746L,33747L,33748L,33749L,33750L,
  79100. 33751L,33752L,33753L,33754L,33755L,33756L,33757L,33758L,33759L,33760L,
  79101. 33761L,33762L,33763L,33764L,33765L,33766L,33767L,33768L,33769L,33770L,
  79102. 33771L,33772L,33773L,33774L,33775L,33776L,33777L,33778L,33779L,33780L,
  79103. 33781L,33782L,33783L,33784L,33785L,33786L,33787L,33788L,33789L,33790L,
  79104. 33791L,33792L,33793L,33794L,33795L,33796L,33797L,33798L,33799L,33800L,
  79105. 33801L,33802L,33803L,33804L,33805L,33806L,33807L,33808L,33809L,33810L,
  79106. 33811L,33812L,33813L,33814L,33815L,33816L,33817L,33818L,33819L,33820L,
  79107. 33821L,33822L,33823L,33824L,33825L,33826L,33827L,33828L,33829L,33830L,
  79108. 33831L,33832L,33833L,33834L,33835L,33836L,33837L,33838L,33839L,33840L,
  79109. 33841L,33842L,33843L,33844L,33845L,33846L,33847L,33848L,33849L,33850L,
  79110. 33851L,33852L,33853L,33854L,33855L,33856L,33857L,33858L,33859L,33860L,
  79111. 33861L,33862L,33863L,33864L,33865L,33866L,33867L,33868L,33869L,33870L,
  79112. 33871L,33872L,33873L,33874L,33875L,33876L,33877L,33878L,33879L,33880L,
  79113. 33881L,33882L,33883L,33884L,33885L,33886L,33887L,33888L,33889L,33890L,
  79114. 33891L,33892L,33893L,33894L,33895L,33896L,33897L,33898L,33899L,33900L,
  79115. 33901L,33902L,33903L,33904L,33905L,33906L,33907L,33908L,33909L,33910L,
  79116. 33911L,33912L,33913L,33914L,33915L,33916L,33917L,33918L,33919L,33920L,
  79117. 33921L,33922L,33923L,33924L,33925L,33926L,33927L,33928L,33929L,33930L,
  79118. 33931L,33932L,33933L,33934L,33935L,33936L,33937L,33938L,33939L,33940L,
  79119. 33941L,33942L,33943L,33944L,33945L,33946L,33947L,33948L,33949L,33950L,
  79120. 33951L,33952L,33953L,33954L,33955L,33956L,33957L,33958L,33959L,33960L,
  79121. 33961L,33962L,33963L,33964L,33965L,33966L,33967L,33968L,33969L,33970L,
  79122. 33971L,33972L,33973L,33974L,33975L,33976L,33977L,33978L,33979L,33980L,
  79123. 33981L,33982L,33983L,33984L,33985L,33986L,33987L,33988L,33989L,33990L,
  79124. 33991L,33992L,33993L,33994L,33995L,33996L,33997L,33998L,33999L,34000L,
  79125. 34001L,34002L,34003L,34004L,34005L,34006L,34007L,34008L,34009L,34010L,
  79126. 34011L,34012L,34013L,34014L,34015L,34016L,34017L,34018L,34019L,34020L,
  79127. 34021L,34022L,34023L,34024L,34025L,34026L,34027L,34028L,34029L,34030L,
  79128. 34031L,34032L,34033L,34034L,34035L,34036L,34037L,34038L,34039L,34040L,
  79129. 34041L,34042L,34043L,34044L,34045L,34046L,34047L,34048L,34049L,34050L,
  79130. 34051L,34052L,34053L,34054L,34055L,34056L,34057L,34058L,34059L,34060L,
  79131. 34061L,34062L,34063L,34064L,34065L,34066L,34067L,34068L,34069L,34070L,
  79132. 34071L,34072L,34073L,34074L,34075L,34076L,34077L,34078L,34079L,34080L,
  79133. 34081L,34082L,34083L,34084L,34085L,34086L,34087L,34088L,34089L,34090L,
  79134. 34091L,34092L,34093L,34094L,34095L,34096L,34097L,34098L,34099L,34100L,
  79135. 34101L,34102L,34103L,34104L,34105L,34106L,34107L,34108L,34109L,34110L,
  79136. 34111L,34112L,34113L,34114L,34115L,34116L,34117L,34118L,34119L,34120L,
  79137. 34121L,34122L,34123L,34124L,34125L,34126L,34127L,34128L,34129L,34130L,
  79138. 34131L,34132L,34133L,34134L,34135L,34136L,34137L,34138L,34139L,34140L,
  79139. 34141L,34142L,34143L,34144L,34145L,34146L,34147L,34148L,34149L,34150L,
  79140. 34151L,34152L,34153L,34154L,34155L,34156L,34157L,34158L,34159L,34160L,
  79141. 34161L,34162L,34163L,34164L,34165L,34166L,34167L,34168L,34169L,34170L,
  79142. 34171L,34172L,34173L,34174L,34175L,34176L,34177L,34178L,34179L,34180L,
  79143. 34181L,34182L,34183L,34184L,34185L,34186L,34187L,34188L,34189L,34190L,
  79144. 34191L,34192L,34193L,34194L,34195L,34196L,34197L,34198L,34199L,34200L,
  79145. 34201L,34202L,34203L,34204L,34205L,34206L,34207L,34208L,34209L,34210L,
  79146. 34211L,34212L,34213L,34214L,34215L,34216L,34217L,34218L,34219L,34220L,
  79147. 34221L,34222L,34223L,34224L,34225L,34226L,34227L,34228L,34229L,34230L,
  79148. 34231L,34232L,34233L,34234L,34235L,34236L,34237L,34238L,34239L,34240L,
  79149. 34241L,34242L,34243L,34244L,34245L,34246L,34247L,34248L,34249L,34250L,
  79150. 34251L,34252L,34253L,34254L,34255L,34256L,34257L,34258L,34259L,34260L,
  79151. 34261L,34262L,34263L,34264L,34265L,34266L,34267L,34268L,34269L,34270L,
  79152. 34271L,34272L,34273L,34274L,34275L,34276L,34277L,34278L,34279L,34280L,
  79153. 34281L,34282L,34283L,34284L,34285L,34286L,34287L,34288L,34289L,34290L,
  79154. 34291L,34292L,34293L,34294L,34295L,34296L,34297L,34298L,34299L,34300L,
  79155. 34301L,34302L,34303L,34304L,34305L,34306L,34307L,34308L,34309L,34310L,
  79156. 34311L,34312L,34313L,34314L,34315L,34316L,34317L,34318L,34319L,34320L,
  79157. 34321L,34322L,34323L,34324L,34325L,34326L,34327L,34328L,34329L,34330L,
  79158. 34331L,34332L,34333L,34334L,34335L,34336L,34337L,34338L,34339L,34340L,
  79159. 34341L,34342L,34343L,34344L,34345L,34346L,34347L,34348L,34349L,34350L,
  79160. 34351L,34352L,34353L,34354L,34355L,34356L,34357L,34358L,34359L,34360L,
  79161. 34361L,34362L,34363L,34364L,34365L,34366L,34367L,34368L,34369L,34370L,
  79162. 34371L,34372L,34373L,34374L,34375L,34376L,34377L,34378L,34379L,34380L,
  79163. 34381L,34382L,34383L,34384L,34385L,34386L,34387L,34388L,34389L,34390L,
  79164. 34391L,34392L,34393L,34394L,34395L,34396L,34397L,34398L,34399L,34400L,
  79165. 34401L,34402L,34403L,34404L,34405L,34406L,34407L,34408L,34409L,34410L,
  79166. 34411L,34412L,34413L,34414L,34415L,34416L,34417L,34418L,34419L,34420L,
  79167. 34421L,34422L,34423L,34424L,34425L,34426L,34427L,34428L,34429L,34430L,
  79168. 34431L,34432L,34433L,34434L,34435L,34436L,34437L,34438L,34439L,34440L,
  79169. 34441L,34442L,34443L,34444L,34445L,34446L,34447L,34448L,34449L,34450L,
  79170. 34451L,34452L,34453L,34454L,34455L,34456L,34457L,34458L,34459L,34460L,
  79171. 34461L,34462L,34463L,34464L,34465L,34466L,34467L,34468L,34469L,34470L,
  79172. 34471L,34472L,34473L,34474L,34475L,34476L,34477L,34478L,34479L,34480L,
  79173. 34481L,34482L,34483L,34484L,34485L,34486L,34487L,34488L,34489L,34490L,
  79174. 34491L,34492L,34493L,34494L,34495L,34496L,34497L,34498L,34499L,34500L,
  79175. 34501L,34502L,34503L,34504L,34505L,34506L,34507L,34508L,34509L,34510L,
  79176. 34511L,34512L,34513L,34514L,34515L,34516L,34517L,34518L,34519L,34520L,
  79177. 34521L,34522L,34523L,34524L,34525L,34526L,34527L,34528L,34529L,34530L,
  79178. 34531L,34532L,34533L,34534L,34535L,34536L,34537L,34538L,34539L,34540L,
  79179. 34541L,34542L,34543L,34544L,34545L,34546L,34547L,34548L,34549L,34550L,
  79180. 34551L,34552L,34553L,34554L,34555L,34556L,34557L,34558L,34559L,34560L,
  79181. 34561L,34562L,34563L,34564L,34565L,34566L,34567L,34568L,34569L,34570L,
  79182. 34571L,34572L,34573L,34574L,34575L,34576L,34577L,34578L,34579L,34580L,
  79183. 34581L,34582L,34583L,34584L,34585L,34586L,34587L,34588L,34589L,34590L,
  79184. 34591L,34592L,34593L,34594L,34595L,34596L,34597L,34598L,34599L,34600L,
  79185. 34601L,34602L,34603L,34604L,34605L,34606L,34607L,34608L,34609L,34610L,
  79186. 34611L,34612L,34613L,34614L,34615L,34616L,34617L,34618L,34619L,34620L,
  79187. 34621L,34622L,34623L,34624L,34625L,34626L,34627L,34628L,34629L,34630L,
  79188. 34631L,34632L,34633L,34634L,34635L,34636L,34637L,34638L,34639L,34640L,
  79189. 34641L,34642L,34643L,34644L,34645L,34646L,34647L,34648L,34649L,34650L,
  79190. 34651L,34652L,34653L,34654L,34655L,34656L,34657L,34658L,34659L,34660L,
  79191. 34661L,34662L,34663L,34664L,34665L,34666L,34667L,34668L,34669L,34670L,
  79192. 34671L,34672L,34673L,34674L,34675L,34676L,34677L,34678L,34679L,34680L,
  79193. 34681L,34682L,34683L,34684L,34685L,34686L,34687L,34688L,34689L,34690L,
  79194. 34691L,34692L,34693L,34694L,34695L,34696L,34697L,34698L,34699L,34700L,
  79195. 34701L,34702L,34703L,34704L,34705L,34706L,34707L,34708L,34709L,34710L,
  79196. 34711L,34712L,34713L,34714L,34715L,34716L,34717L,34718L,34719L,34720L,
  79197. 34721L,34722L,34723L,34724L,34725L,34726L,34727L,34728L,34729L,34730L,
  79198. 34731L,34732L,34733L,34734L,34735L,34736L,34737L,34738L,34739L,34740L,
  79199. 34741L,34742L,34743L,34744L,34745L,34746L,34747L,34748L,34749L,34750L,
  79200. 34751L,34752L,34753L,34754L,34755L,34756L,34757L,34758L,34759L,34760L,
  79201. 34761L,34762L,34763L,34764L,34765L,34766L,34767L,34768L,34769L,34770L,
  79202. 34771L,34772L,34773L,34774L,34775L,34776L,34777L,34778L,34779L,34780L,
  79203. 34781L,34782L,34783L,34784L,34785L,34786L,34787L,34788L,34789L,34790L,
  79204. 34791L,34792L,34793L,34794L,34795L,34796L,34797L,34798L,34799L,34800L,
  79205. 34801L,34802L,34803L,34804L,34805L,34806L,34807L,34808L,34809L,34810L,
  79206. 34811L,34812L,34813L,34814L,34815L,34816L,34817L,34818L,34819L,34820L,
  79207. 34821L,34822L,34823L,34824L,34825L,34826L,34827L,34828L,34829L,34830L,
  79208. 34831L,34832L,34833L,34834L,34835L,34836L,34837L,34838L,34839L,34840L,
  79209. 34841L,34842L,34843L,34844L,34845L,34846L,34847L,34848L,34849L,34850L,
  79210. 34851L,34852L,34853L,34854L,34855L,34856L,34857L,34858L,34859L,34860L,
  79211. 34861L,34862L,34863L,34864L,34865L,34866L,34867L,34868L,34869L,34870L,
  79212. 34871L,34872L,34873L,34874L,34875L,34876L,34877L,34878L,34879L,34880L,
  79213. 34881L,34882L,34883L,34884L,34885L,34886L,34887L,34888L,34889L,34890L,
  79214. 34891L,34892L,34893L,34894L,34895L,34896L,34897L,34898L,34899L,34900L,
  79215. 34901L,34902L,34903L,34904L,34905L,34906L,34907L,34908L,34909L,34910L,
  79216. 34911L,34912L,34913L,34914L,34915L,34916L,34917L,34918L,34919L,34920L,
  79217. 34921L,34922L,34923L,34924L,34925L,34926L,34927L,34928L,34929L,34930L,
  79218. 34931L,34932L,34933L,34934L,34935L,34936L,34937L,34938L,34939L,34940L,
  79219. 34941L,34942L,34943L,34944L,34945L,34946L,34947L,34948L,34949L,34950L,
  79220. 34951L,34952L,34953L,34954L,34955L,34956L,34957L,34958L,34959L,34960L,
  79221. 34961L,34962L,34963L,34964L,34965L,34966L,34967L,34968L,34969L,34970L,
  79222. 34971L,34972L,34973L,34974L,34975L,34976L,34977L,34978L,34979L,34980L,
  79223. 34981L,34982L,34983L,34984L,34985L,34986L,34987L,34988L,34989L,34990L,
  79224. 34991L,34992L,34993L,34994L,34995L,34996L,34997L,34998L,34999L,35000L,
  79225. 35001L,35002L,35003L,35004L,35005L,35006L,35007L,35008L,35009L,35010L,
  79226. 35011L,35012L,35013L,35014L,35015L,35016L,35017L,35018L,35019L,35020L,
  79227. 35021L,35022L,35023L,35024L,35025L,35026L,35027L,35028L,35029L,35030L,
  79228. 35031L,35032L,35033L,35034L,35035L,35036L,35037L,35038L,35039L,35040L,
  79229. 35041L,35042L,35043L,35044L,35045L,35046L,35047L,35048L,35049L,35050L,
  79230. 35051L,35052L,35053L,35054L,35055L,35056L,35057L,35058L,35059L,35060L,
  79231. 35061L,35062L,35063L,35064L,35065L,35066L,35067L,35068L,35069L,35070L,
  79232. 35071L,35072L,35073L,35074L,35075L,35076L,35077L,35078L,35079L,35080L,
  79233. 35081L,35082L,35083L,35084L,35085L,35086L,35087L,35088L,35089L,35090L,
  79234. 35091L,35092L,35093L,35094L,35095L,35096L,35097L,35098L,35099L,35100L,
  79235. 35101L,35102L,35103L,35104L,35105L,35106L,35107L,35108L,35109L,35110L,
  79236. 35111L,35112L,35113L,35114L,35115L,35116L,35117L,35118L,35119L,35120L,
  79237. 35121L,35122L,35123L,35124L,35125L,35126L,35127L,35128L,35129L,35130L,
  79238. 35131L,35132L,35133L,35134L,35135L,35136L,35137L,35138L,35139L,35140L,
  79239. 35141L,35142L,35143L,35144L,35145L,35146L,35147L,35148L,35149L,35150L,
  79240. 35151L,35152L,35153L,35154L,35155L,35156L,35157L,35158L,35159L,35160L,
  79241. 35161L,35162L,35163L,35164L,35165L,35166L,35167L,35168L,35169L,35170L,
  79242. 35171L,35172L,35173L,35174L,35175L,35176L,35177L,35178L,35179L,35180L,
  79243. 35181L,35182L,35183L,35184L,35185L,35186L,35187L,35188L,35189L,35190L,
  79244. 35191L,35192L,35193L,35194L,35195L,35196L,35197L,35198L,35199L,35200L,
  79245. 35201L,35202L,35203L,35204L,35205L,35206L,35207L,35208L,35209L,35210L,
  79246. 35211L,35212L,35213L,35214L,35215L,35216L,35217L,35218L,35219L,35220L,
  79247. 35221L,35222L,35223L,35224L,35225L,35226L,35227L,35228L,35229L,35230L,
  79248. 35231L,35232L,35233L,35234L,35235L,35236L,35237L,35238L,35239L,35240L,
  79249. 35241L,35242L,35243L,35244L,35245L,35246L,35247L,35248L,35249L,35250L,
  79250. 35251L,35252L,35253L,35254L,35255L,35256L,35257L,35258L,35259L,35260L,
  79251. 35261L,35262L,35263L,35264L,35265L,35266L,35267L,35268L,35269L,35270L,
  79252. 35271L,35272L,35273L,35274L,35275L,35276L,35277L,35278L,35279L,35280L,
  79253. 35281L,35282L,35283L,35284L,35285L,35286L,35287L,35288L,35289L,35290L,
  79254. 35291L,35292L,35293L,35294L,35295L,35296L,35297L,35298L,35299L,35300L,
  79255. 35301L,35302L,35303L,35304L,35305L,35306L,35307L,35308L,35309L,35310L,
  79256. 35311L,35312L,35313L,35314L,35315L,35316L,35317L,35318L,35319L,35320L,
  79257. 35321L,35322L,35323L,35324L,35325L,35326L,35327L,35328L,35329L,35330L,
  79258. 35331L,35332L,35333L,35334L,35335L,35336L,35337L,35338L,35339L,35340L,
  79259. 35341L,35342L,35343L,35344L,35345L,35346L,35347L,35348L,35349L,35350L,
  79260. 35351L,35352L,35353L,35354L,35355L,35356L,35357L,35358L,35359L,35360L,
  79261. 35361L,35362L,35363L,35364L,35365L,35366L,35367L,35368L,35369L,35370L,
  79262. 35371L,35372L,35373L,35374L,35375L,35376L,35377L,35378L,35379L,35380L,
  79263. 35381L,35382L,35383L,35384L,35385L,35386L,35387L,35388L,35389L,35390L,
  79264. 35391L,35392L,35393L,35394L,35395L,35396L,35397L,35398L,35399L,35400L,
  79265. 35401L,35402L,35403L,35404L,35405L,35406L,35407L,35408L,35409L,35410L,
  79266. 35411L,35412L,35413L,35414L,35415L,35416L,35417L,35418L,35419L,35420L,
  79267. 35421L,35422L,35423L,35424L,35425L,35426L,35427L,35428L,35429L,35430L,
  79268. 35431L,35432L,35433L,35434L,35435L,35436L,35437L,35438L,35439L,35440L,
  79269. 35441L,35442L,35443L,35444L,35445L,35446L,35447L,35448L,35449L,35450L,
  79270. 35451L,35452L,35453L,35454L,35455L,35456L,35457L,35458L,35459L,35460L,
  79271. 35461L,35462L,35463L,35464L,35465L,35466L,35467L,35468L,35469L,35470L,
  79272. 35471L,35472L,35473L,35474L,35475L,35476L,35477L,35478L,35479L,35480L,
  79273. 35481L,35482L,35483L,35484L,35485L,35486L,35487L,35488L,35489L,35490L,
  79274. 35491L,35492L,35493L,35494L,35495L,35496L,35497L,35498L,35499L,35500L,
  79275. 35501L,35502L,35503L,35504L,35505L,35506L,35507L,35508L,35509L,35510L,
  79276. 35511L,35512L,35513L,35514L,35515L,35516L,35517L,35518L,35519L,35520L,
  79277. 35521L,35522L,35523L,35524L,35525L,35526L,35527L,35528L,35529L,35530L,
  79278. 35531L,35532L,35533L,35534L,35535L,35536L,35537L,35538L,35539L,35540L,
  79279. 35541L,35542L,35543L,35544L,35545L,35546L,35547L,35548L,35549L,35550L,
  79280. 35551L,35552L,35553L,35554L,35555L,35556L,35557L,35558L,35559L,35560L,
  79281. 35561L,35562L,35563L,35564L,35565L,35566L,35567L,35568L,35569L,35570L,
  79282. 35571L,35572L,35573L,35574L,35575L,35576L,35577L,35578L,35579L,35580L,
  79283. 35581L,35582L,35583L,35584L,35585L,35586L,35587L,35588L,35589L,35590L,
  79284. 35591L,35592L,35593L,35594L,35595L,35596L,35597L,35598L,35599L,35600L,
  79285. 35601L,35602L,35603L,35604L,35605L,35606L,35607L,35608L,35609L,35610L,
  79286. 35611L,35612L,35613L,35614L,35615L,35616L,35617L,35618L,35619L,35620L,
  79287. 35621L,35622L,35623L,35624L,35625L,35626L,35627L,35628L,35629L,35630L,
  79288. 35631L,35632L,35633L,35634L,35635L,35636L,35637L,35638L,35639L,35640L,
  79289. 35641L,35642L,35643L,35644L,35645L,35646L,35647L,35648L,35649L,35650L,
  79290. 35651L,35652L,35653L,35654L,35655L,35656L,35657L,35658L,35659L,35660L,
  79291. 35661L,35662L,35663L,35664L,35665L,35666L,35667L,35668L,35669L,35670L,
  79292. 35671L,35672L,35673L,35674L,35675L,35676L,35677L,35678L,35679L,35680L,
  79293. 35681L,35682L,35683L,35684L,35685L,35686L,35687L,35688L,35689L,35690L,
  79294. 35691L,35692L,35693L,35694L,35695L,35696L,35697L,35698L,35699L,35700L,
  79295. 35701L,35702L,35703L,35704L,35705L,35706L,35707L,35708L,35709L,35710L,
  79296. 35711L,35712L,35713L,35714L,35715L,35716L,35717L,35718L,35719L,35720L,
  79297. 35721L,35722L,35723L,35724L,35725L,35726L,35727L,35728L,35729L,35730L,
  79298. 35731L,35732L,35733L,35734L,35735L,35736L,35737L,35738L,35739L,35740L,
  79299. 35741L,35742L,35743L,35744L,35745L,35746L,35747L,35748L,35749L,35750L,
  79300. 35751L,35752L,35753L,35754L,35755L,35756L,35757L,35758L,35759L,35760L,
  79301. 35761L,35762L,35763L,35764L,35765L,35766L,35767L,35768L,35769L,35770L,
  79302. 35771L,35772L,35773L,35774L,35775L,35776L,35777L,35778L,35779L,35780L,
  79303. 35781L,35782L,35783L,35784L,35785L,35786L,35787L,35788L,35789L,35790L,
  79304. 35791L,35792L,35793L,35794L,35795L,35796L,35797L,35798L,35799L,35800L,
  79305. 35801L,35802L,35803L,35804L,35805L,35806L,35807L,35808L,35809L,35810L,
  79306. 35811L,35812L,35813L,35814L,35815L,35816L,35817L,35818L,35819L,35820L,
  79307. 35821L,35822L,35823L,35824L,35825L,35826L,35827L,35828L,35829L,35830L,
  79308. 35831L,35832L,35833L,35834L,35835L,35836L,35837L,35838L,35839L,35840L,
  79309. 35841L,35842L,35843L,35844L,35845L,35846L,35847L,35848L,35849L,35850L,
  79310. 35851L,35852L,35853L,35854L,35855L,35856L,35857L,35858L,35859L,35860L,
  79311. 35861L,35862L,35863L,35864L,35865L,35866L,35867L,35868L,35869L,35870L,
  79312. 35871L,35872L,35873L,35874L,35875L,35876L,35877L,35878L,35879L,35880L,
  79313. 35881L,35882L,35883L,35884L,35885L,35886L,35887L,35888L,35889L,35890L,
  79314. 35891L,35892L,35893L,35894L,35895L,35896L,35897L,35898L,35899L,35900L,
  79315. 35901L,35902L,35903L,35904L,35905L,35906L,35907L,35908L,35909L,35910L,
  79316. 35911L,35912L,35913L,35914L,35915L,35916L,35917L,35918L,35919L,35920L,
  79317. 35921L,35922L,35923L,35924L,35925L,35926L,35927L,35928L,35929L,35930L,
  79318. 35931L,35932L,35933L,35934L,35935L,35936L,35937L,35938L,35939L,35940L,
  79319. 35941L,35942L,35943L,35944L,35945L,35946L,35947L,35948L,35949L,35950L,
  79320. 35951L,35952L,35953L,35954L,35955L,35956L,35957L,35958L,35959L,35960L,
  79321. 35961L,35962L,35963L,35964L,35965L,35966L,35967L,35968L,35969L,35970L,
  79322. 35971L,35972L,35973L,35974L,35975L,35976L,35977L,35978L,35979L,35980L,
  79323. 35981L,35982L,35983L,35984L,35985L,35986L,35987L,35988L,35989L,35990L,
  79324. 35991L,35992L,35993L,35994L,35995L,35996L,35997L,35998L,35999L,36000L,
  79325. 36001L,36002L,36003L,36004L,36005L,36006L,36007L,36008L,36009L,36010L,
  79326. 36011L,36012L,36013L,36014L,36015L,36016L,36017L,36018L,36019L,36020L,
  79327. 36021L,36022L,36023L,36024L,36025L,36026L,36027L,36028L,36029L,36030L,
  79328. 36031L,36032L,36033L,36034L,36035L,36036L,36037L,36038L,36039L,36040L,
  79329. 36041L,36042L,36043L,36044L,36045L,36046L,36047L,36048L,36049L,36050L,
  79330. 36051L,36052L,36053L,36054L,36055L,36056L,36057L,36058L,36059L,36060L,
  79331. 36061L,36062L,36063L,36064L,36065L,36066L,36067L,36068L,36069L,36070L,
  79332. 36071L,36072L,36073L,36074L,36075L,36076L,36077L,36078L,36079L,36080L,
  79333. 36081L,36082L,36083L,36084L,36085L,36086L,36087L,36088L,36089L,36090L,
  79334. 36091L,36092L,36093L,36094L,36095L,36096L,36097L,36098L,36099L,36100L,
  79335. 36101L,36102L,36103L,36104L,36105L,36106L,36107L,36108L,36109L,36110L,
  79336. 36111L,36112L,36113L,36114L,36115L,36116L,36117L,36118L,36119L,36120L,
  79337. 36121L,36122L,36123L,36124L,36125L,36126L,36127L,36128L,36129L,36130L,
  79338. 36131L,36132L,36133L,36134L,36135L,36136L,36137L,36138L,36139L,36140L,
  79339. 36141L,36142L,36143L,36144L,36145L,36146L,36147L,36148L,36149L,36150L,
  79340. 36151L,36152L,36153L,36154L,36155L,36156L,36157L,36158L,36159L,36160L,
  79341. 36161L,36162L,36163L,36164L,36165L,36166L,36167L,36168L,36169L,36170L,
  79342. 36171L,36172L,36173L,36174L,36175L,36176L,36177L,36178L,36179L,36180L,
  79343. 36181L,36182L,36183L,36184L,36185L,36186L,36187L,36188L,36189L,36190L,
  79344. 36191L,36192L,36193L,36194L,36195L,36196L,36197L,36198L,36199L,36200L,
  79345. 36201L,36202L,36203L,36204L,36205L,36206L,36207L,36208L,36209L,36210L,
  79346. 36211L,36212L,36213L,36214L,36215L,36216L,36217L,36218L,36219L,36220L,
  79347. 36221L,36222L,36223L,36224L,36225L,36226L,36227L,36228L,36229L,36230L,
  79348. 36231L,36232L,36233L,36234L,36235L,36236L,36237L,36238L,36239L,36240L,
  79349. 36241L,36242L,36243L,36244L,36245L,36246L,36247L,36248L,36249L,36250L,
  79350. 36251L,36252L,36253L,36254L,36255L,36256L,36257L,36258L,36259L,36260L,
  79351. 36261L,36262L,36263L,36264L,36265L,36266L,36267L,36268L,36269L,36270L,
  79352. 36271L,36272L,36273L,36274L,36275L,36276L,36277L,36278L,36279L,36280L,
  79353. 36281L,36282L,36283L,36284L,36285L,36286L,36287L,36288L,36289L,36290L,
  79354. 36291L,36292L,36293L,36294L,36295L,36296L,36297L,36298L,36299L,36300L,
  79355. 36301L,36302L,36303L,36304L,36305L,36306L,36307L,36308L,36309L,36310L,
  79356. 36311L,36312L,36313L,36314L,36315L,36316L,36317L,36318L,36319L,36320L,
  79357. 36321L,36322L,36323L,36324L,36325L,36326L,36327L,36328L,36329L,36330L,
  79358. 36331L,36332L,36333L,36334L,36335L,36336L,36337L,36338L,36339L,36340L,
  79359. 36341L,36342L,36343L,36344L,36345L,36346L,36347L,36348L,36349L,36350L,
  79360. 36351L,36352L,36353L,36354L,36355L,36356L,36357L,36358L,36359L,36360L,
  79361. 36361L,36362L,36363L,36364L,36365L,36366L,36367L,36368L,36369L,36370L,
  79362. 36371L,36372L,36373L,36374L,36375L,36376L,36377L,36378L,36379L,36380L,
  79363. 36381L,36382L,36383L,36384L,36385L,36386L,36387L,36388L,36389L,36390L,
  79364. 36391L,36392L,36393L,36394L,36395L,36396L,36397L,36398L,36399L,36400L,
  79365. 36401L,36402L,36403L,36404L,36405L,36406L,36407L,36408L,36409L,36410L,
  79366. 36411L,36412L,36413L,36414L,36415L,36416L,36417L,36418L,36419L,36420L,
  79367. 36421L,36422L,36423L,36424L,36425L,36426L,36427L,36428L,36429L,36430L,
  79368. 36431L,36432L,36433L,36434L,36435L,36436L,36437L,36438L,36439L,36440L,
  79369. 36441L,36442L,36443L,36444L,36445L,36446L,36447L,36448L,36449L,36450L,
  79370. 36451L,36452L,36453L,36454L,36455L,36456L,36457L,36458L,36459L,36460L,
  79371. 36461L,36462L,36463L,36464L,36465L,36466L,36467L,36468L,36469L,36470L,
  79372. 36471L,36472L,36473L,36474L,36475L,36476L,36477L,36478L,36479L,36480L,
  79373. 36481L,36482L,36483L,36484L,36485L,36486L,36487L,36488L,36489L,36490L,
  79374. 36491L,36492L,36493L,36494L,36495L,36496L,36497L,36498L,36499L,36500L,
  79375. 36501L,36502L,36503L,36504L,36505L,36506L,36507L,36508L,36509L,36510L,
  79376. 36511L,36512L,36513L,36514L,36515L,36516L,36517L,36518L,36519L,36520L,
  79377. 36521L,36522L,36523L,36524L,36525L,36526L,36527L,36528L,36529L,36530L,
  79378. 36531L,36532L,36533L,36534L,36535L,36536L,36537L,36538L,36539L,36540L,
  79379. 36541L,36542L,36543L,36544L,36545L,36546L,36547L,36548L,36549L,36550L,
  79380. 36551L,36552L,36553L,36554L,36555L,36556L,36557L,36558L,36559L,36560L,
  79381. 36561L,36562L,36563L,36564L,36565L,36566L,36567L,36568L,36569L,36570L,
  79382. 36571L,36572L,36573L,36574L,36575L,36576L,36577L,36578L,36579L,36580L,
  79383. 36581L,36582L,36583L,36584L,36585L,36586L,36587L,36588L,36589L,36590L,
  79384. 36591L,36592L,36593L,36594L,36595L,36596L,36597L,36598L,36599L,36600L,
  79385. 36601L,36602L,36603L,36604L,36605L,36606L,36607L,36608L,36609L,36610L,
  79386. 36611L,36612L,36613L,36614L,36615L,36616L,36617L,36618L,36619L,36620L,
  79387. 36621L,36622L,36623L,36624L,36625L,36626L,36627L,36628L,36629L,36630L,
  79388. 36631L,36632L,36633L,36634L,36635L,36636L,36637L,36638L,36639L,36640L,
  79389. 36641L,36642L,36643L,36644L,36645L,36646L,36647L,36648L,36649L,36650L,
  79390. 36651L,36652L,36653L,36654L,36655L,36656L,36657L,36658L,36659L,36660L,
  79391. 36661L,36662L,36663L,36664L,36665L,36666L,36667L,36668L,36669L,36670L,
  79392. 36671L,36672L,36673L,36674L,36675L,36676L,36677L,36678L,36679L,36680L,
  79393. 36681L,36682L,36683L,36684L,36685L,36686L,36687L,36688L,36689L,36690L,
  79394. 36691L,36692L,36693L,36694L,36695L,36696L,36697L,36698L,36699L,36700L,
  79395. 36701L,36702L,36703L,36704L,36705L,36706L,36707L,36708L,36709L,36710L,
  79396. 36711L,36712L,36713L,36714L,36715L,36716L,36717L,36718L,36719L,36720L,
  79397. 36721L,36722L,36723L,36724L,36725L,36726L,36727L,36728L,36729L,36730L,
  79398. 36731L,36732L,36733L,36734L,36735L,36736L,36737L,36738L,36739L,36740L,
  79399. 36741L,36742L,36743L,36744L,36745L,36746L,36747L,36748L,36749L,36750L,
  79400. 36751L,36752L,36753L,36754L,36755L,36756L,36757L,36758L,36759L,36760L,
  79401. 36761L,36762L,36763L,36764L,36765L,36766L,36767L,36768L,36769L,36770L,
  79402. 36771L,36772L,36773L,36774L,36775L,36776L,36777L,36778L,36779L,36780L,
  79403. 36781L,36782L,36783L,36784L,36785L,36786L,36787L,36788L,36789L,36790L,
  79404. 36791L,36792L,36793L,36794L,36795L,36796L,36797L,36798L,36799L,36800L,
  79405. 36801L,36802L,36803L,36804L,36805L,36806L,36807L,36808L,36809L,36810L,
  79406. 36811L,36812L,36813L,36814L,36815L,36816L,36817L,36818L,36819L,36820L,
  79407. 36821L,36822L,36823L,36824L,36825L,36826L,36827L,36828L,36829L,36830L,
  79408. 36831L,36832L,36833L,36834L,36835L,36836L,36837L,36838L,36839L,36840L,
  79409. 36841L,36842L,36843L,36844L,36845L,36846L,36847L,36848L,36849L,36850L,
  79410. 36851L,36852L,36853L,36854L,36855L,36856L,36857L,36858L,36859L,36860L,
  79411. 36861L,36862L,36863L,36864L,36865L,36866L,36867L,36868L,36869L,36870L,
  79412. 36871L,36872L,36873L,36874L,36875L,36876L,36877L,36878L,36879L,36880L,
  79413. 36881L,36882L,36883L,36884L,36885L,36886L,36887L,36888L,36889L,36890L,
  79414. 36891L,36892L,36893L,36894L,36895L,36896L,36897L,36898L,36899L,36900L,
  79415. 36901L,36902L,36903L,36904L,36905L,36906L,36907L,36908L,36909L,36910L,
  79416. 36911L,36912L,36913L,36914L,36915L,36916L,36917L,36918L,36919L,36920L,
  79417. 36921L,36922L,36923L,36924L,36925L,36926L,36927L,36928L,36929L,36930L,
  79418. 36931L,36932L,36933L,36934L,36935L,36936L,36937L,36938L,36939L,36940L,
  79419. 36941L,36942L,36943L,36944L,36945L,36946L,36947L,36948L,36949L,36950L,
  79420. 36951L,36952L,36953L,36954L,36955L,36956L,36957L,36958L,36959L,36960L,
  79421. 36961L,36962L,36963L,36964L,36965L,36966L,36967L,36968L,36969L,36970L,
  79422. 36971L,36972L,36973L,36974L,36975L,36976L,36977L,36978L,36979L,36980L,
  79423. 36981L,36982L,36983L,36984L,36985L,36986L,36987L,36988L,36989L,36990L,
  79424. 36991L,36992L,36993L,36994L,36995L,36996L,36997L,36998L,36999L,37000L,
  79425. 37001L,37002L,37003L,37004L,37005L,37006L,37007L,37008L,37009L,37010L,
  79426. 37011L,37012L,37013L,37014L,37015L,37016L,37017L,37018L,37019L,37020L,
  79427. 37021L,37022L,37023L,37024L,37025L,37026L,37027L,37028L,37029L,37030L,
  79428. 37031L,37032L,37033L,37034L,37035L,37036L,37037L,37038L,37039L,37040L,
  79429. 37041L,37042L,37043L,37044L,37045L,37046L,37047L,37048L,37049L,37050L,
  79430. 37051L,37052L,37053L,37054L,37055L,37056L,37057L,37058L,37059L,37060L,
  79431. 37061L,37062L,37063L,37064L,37065L,37066L,37067L,37068L,37069L,37070L,
  79432. 37071L,37072L,37073L,37074L,37075L,37076L,37077L,37078L,37079L,37080L,
  79433. 37081L,37082L,37083L,37084L,37085L,37086L,37087L,37088L,37089L,37090L,
  79434. 37091L,37092L,37093L,37094L,37095L,37096L,37097L,37098L,37099L,37100L,
  79435. 37101L,37102L,37103L,37104L,37105L,37106L,37107L,37108L,37109L,37110L,
  79436. 37111L,37112L,37113L,37114L,37115L,37116L,37117L,37118L,37119L,37120L,
  79437. 37121L,37122L,37123L,37124L,37125L,37126L,37127L,37128L,37129L,37130L,
  79438. 37131L,37132L,37133L,37134L,37135L,37136L,37137L,37138L,37139L,37140L,
  79439. 37141L,37142L,37143L,37144L,37145L,37146L,37147L,37148L,37149L,37150L,
  79440. 37151L,37152L,37153L,37154L,37155L,37156L,37157L,37158L,37159L,37160L,
  79441. 37161L,37162L,37163L,37164L,37165L,37166L,37167L,37168L,37169L,37170L,
  79442. 37171L,37172L,37173L,37174L,37175L,37176L,37177L,37178L,37179L,37180L,
  79443. 37181L,37182L,37183L,37184L,37185L,37186L,37187L,37188L,37189L,37190L,
  79444. 37191L,37192L,37193L,37194L,37195L,37196L,37197L,37198L,37199L,37200L,
  79445. 37201L,37202L,37203L,37204L,37205L,37206L,37207L,37208L,37209L,37210L,
  79446. 37211L,37212L,37213L,37214L,37215L,37216L,37217L,37218L,37219L,37220L,
  79447. 37221L,37222L,37223L,37224L,37225L,37226L,37227L,37228L,37229L,37230L,
  79448. 37231L,37232L,37233L,37234L,37235L,37236L,37237L,37238L,37239L,37240L,
  79449. 37241L,37242L,37243L,37244L,37245L,37246L,37247L,37248L,37249L,37250L,
  79450. 37251L,37252L,37253L,37254L,37255L,37256L,37257L,37258L,37259L,37260L,
  79451. 37261L,37262L,37263L,37264L,37265L,37266L,37267L,37268L,37269L,37270L,
  79452. 37271L,37272L,37273L,37274L,37275L,37276L,37277L,37278L,37279L,37280L,
  79453. 37281L,37282L,37283L,37284L,37285L,37286L,37287L,37288L,37289L,37290L,
  79454. 37291L,37292L,37293L,37294L,37295L,37296L,37297L,37298L,37299L,37300L,
  79455. 37301L,37302L,37303L,37304L,37305L,37306L,37307L,37308L,37309L,37310L,
  79456. 37311L,37312L,37313L,37314L,37315L,37316L,37317L,37318L,37319L,37320L,
  79457. 37321L,37322L,37323L,37324L,37325L,37326L,37327L,37328L,37329L,37330L,
  79458. 37331L,37332L,37333L,37334L,37335L,37336L,37337L,37338L,37339L,37340L,
  79459. 37341L,37342L,37343L,37344L,37345L,37346L,37347L,37348L,37349L,37350L,
  79460. 37351L,37352L,37353L,37354L,37355L,37356L,37357L,37358L,37359L,37360L,
  79461. 37361L,37362L,37363L,37364L,37365L,37366L,37367L,37368L,37369L,37370L,
  79462. 37371L,37372L,37373L,37374L,37375L,37376L,37377L,37378L,37379L,37380L,
  79463. 37381L,37382L,37383L,37384L,37385L,37386L,37387L,37388L,37389L,37390L,
  79464. 37391L,37392L,37393L,37394L,37395L,37396L,37397L,37398L,37399L,37400L,
  79465. 37401L,37402L,37403L,37404L,37405L,37406L,37407L,37408L,37409L,37410L,
  79466. 37411L,37412L,37413L,37414L,37415L,37416L,37417L,37418L,37419L,37420L,
  79467. 37421L,37422L,37423L,37424L,37425L,37426L,37427L,37428L,37429L,37430L,
  79468. 37431L,37432L,37433L,37434L,37435L,37436L,37437L,37438L,37439L,37440L,
  79469. 37441L,37442L,37443L,37444L,37445L,37446L,37447L,37448L,37449L,37450L,
  79470. 37451L,37452L,37453L,37454L,37455L,37456L,37457L,37458L,37459L,37460L,
  79471. 37461L,37462L,37463L,37464L,37465L,37466L,37467L,37468L,37469L,37470L,
  79472. 37471L,37472L,37473L,37474L,37475L,37476L,37477L,37478L,37479L,37480L,
  79473. 37481L,37482L,37483L,37484L,37485L,37486L,37487L,37488L,37489L,37490L,
  79474. 37491L,37492L,37493L,37494L,37495L,37496L,37497L,37498L,37499L,37500L,
  79475. 37501L,37502L,37503L,37504L,37505L,37506L,37507L,37508L,37509L,37510L,
  79476. 37511L,37512L,37513L,37514L,37515L,37516L,37517L,37518L,37519L,37520L,
  79477. 37521L,37522L,37523L,37524L,37525L,37526L,37527L,37528L,37529L,37530L,
  79478. 37531L,37532L,37533L,37534L,37535L,37536L,37537L,37538L,37539L,37540L,
  79479. 37541L,37542L,37543L,37544L,37545L,37546L,37547L,37548L,37549L,37550L,
  79480. 37551L,37552L,37553L,37554L,37555L,37556L,37557L,37558L,37559L,37560L,
  79481. 37561L,37562L,37563L,37564L,37565L,37566L,37567L,37568L,37569L,37570L,
  79482. 37571L,37572L,37573L,37574L,37575L,37576L,37577L,37578L,37579L,37580L,
  79483. 37581L,37582L,37583L,37584L,37585L,37586L,37587L,37588L,37589L,37590L,
  79484. 37591L,37592L,37593L,37594L,37595L,37596L,37597L,37598L,37599L,37600L,
  79485. 37601L,37602L,37603L,37604L,37605L,37606L,37607L,37608L,37609L,37610L,
  79486. 37611L,37612L,37613L,37614L,37615L,37616L,37617L,37618L,37619L,37620L,
  79487. 37621L,37622L,37623L,37624L,37625L,37626L,37627L,37628L,37629L,37630L,
  79488. 37631L,37632L,37633L,37634L,37635L,37636L,37637L,37638L,37639L,37640L,
  79489. 37641L,37642L,37643L,37644L,37645L,37646L,37647L,37648L,37649L,37650L,
  79490. 37651L,37652L,37653L,37654L,37655L,37656L,37657L,37658L,37659L,37660L,
  79491. 37661L,37662L,37663L,37664L,37665L,37666L,37667L,37668L,37669L,37670L,
  79492. 37671L,37672L,37673L,37674L,37675L,37676L,37677L,37678L,37679L,37680L,
  79493. 37681L,37682L,37683L,37684L,37685L,37686L,37687L,37688L,37689L,37690L,
  79494. 37691L,37692L,37693L,37694L,37695L,37696L,37697L,37698L,37699L,37700L,
  79495. 37701L,37702L,37703L,37704L,37705L,37706L,37707L,37708L,37709L,37710L,
  79496. 37711L,37712L,37713L,37714L,37715L,37716L,37717L,37718L,37719L,37720L,
  79497. 37721L,37722L,37723L,37724L,37725L,37726L,37727L,37728L,37729L,37730L,
  79498. 37731L,37732L,37733L,37734L,37735L,37736L,37737L,37738L,37739L,37740L,
  79499. 37741L,37742L,37743L,37744L,37745L,37746L,37747L,37748L,37749L,37750L,
  79500. 37751L,37752L,37753L,37754L,37755L,37756L,37757L,37758L,37759L,37760L,
  79501. 37761L,37762L,37763L,37764L,37765L,37766L,37767L,37768L,37769L,37770L,
  79502. 37771L,37772L,37773L,37774L,37775L,37776L,37777L,37778L,37779L,37780L,
  79503. 37781L,37782L,37783L,37784L,37785L,37786L,37787L,37788L,37789L,37790L,
  79504. 37791L,37792L,37793L,37794L,37795L,37796L,37797L,37798L,37799L,37800L,
  79505. 37801L,37802L,37803L,37804L,37805L,37806L,37807L,37808L,37809L,37810L,
  79506. 37811L,37812L,37813L,37814L,37815L,37816L,37817L,37818L,37819L,37820L,
  79507. 37821L,37822L,37823L,37824L,37825L,37826L,37827L,37828L,37829L,37830L,
  79508. 37831L,37832L,37833L,37834L,37835L,37836L,37837L,37838L,37839L,37840L,
  79509. 37841L,37842L,37843L,37844L,37845L,37846L,37847L,37848L,37849L,37850L,
  79510. 37851L,37852L,37853L,37854L,37855L,37856L,37857L,37858L,37859L,37860L,
  79511. 37861L,37862L,37863L,37864L,37865L,37866L,37867L,37868L,37869L,37870L,
  79512. 37871L,37872L,37873L,37874L,37875L,37876L,37877L,37878L,37879L,37880L,
  79513. 37881L,37882L,37883L,37884L,37885L,37886L,37887L,37888L,37889L,37890L,
  79514. 37891L,37892L,37893L,37894L,37895L,37896L,37897L,37898L,37899L,37900L,
  79515. 37901L,37902L,37903L,37904L,37905L,37906L,37907L,37908L,37909L,37910L,
  79516. 37911L,37912L,37913L,37914L,37915L,37916L,37917L,37918L,37919L,37920L,
  79517. 37921L,37922L,37923L,37924L,37925L,37926L,37927L,37928L,37929L,37930L,
  79518. 37931L,37932L,37933L,37934L,37935L,37936L,37937L,37938L,37939L,37940L,
  79519. 37941L,37942L,37943L,37944L,37945L,37946L,37947L,37948L,37949L,37950L,
  79520. 37951L,37952L,37953L,37954L,37955L,37956L,37957L,37958L,37959L,37960L,
  79521. 37961L,37962L,37963L,37964L,37965L,37966L,37967L,37968L,37969L,37970L,
  79522. 37971L,37972L,37973L,37974L,37975L,37976L,37977L,37978L,37979L,37980L,
  79523. 37981L,37982L,37983L,37984L,37985L,37986L,37987L,37988L,37989L,37990L,
  79524. 37991L,37992L,37993L,37994L,37995L,37996L,37997L,37998L,37999L,38000L,
  79525. 38001L,38002L,38003L,38004L,38005L,38006L,38007L,38008L,38009L,38010L,
  79526. 38011L,38012L,38013L,38014L,38015L,38016L,38017L,38018L,38019L,38020L,
  79527. 38021L,38022L,38023L,38024L,38025L,38026L,38027L,38028L,38029L,38030L,
  79528. 38031L,38032L,38033L,38034L,38035L,38036L,38037L,38038L,38039L,38040L,
  79529. 38041L,38042L,38043L,38044L,38045L,38046L,38047L,38048L,38049L,38050L,
  79530. 38051L,38052L,38053L,38054L,38055L,38056L,38057L,38058L,38059L,38060L,
  79531. 38061L,38062L,38063L,38064L,38065L,38066L,38067L,38068L,38069L,38070L,
  79532. 38071L,38072L,38073L,38074L,38075L,38076L,38077L,38078L,38079L,38080L,
  79533. 38081L,38082L,38083L,38084L,38085L,38086L,38087L,38088L,38089L,38090L,
  79534. 38091L,38092L,38093L,38094L,38095L,38096L,38097L,38098L,38099L,38100L,
  79535. 38101L,38102L,38103L,38104L,38105L,38106L,38107L,38108L,38109L,38110L,
  79536. 38111L,38112L,38113L,38114L,38115L,38116L,38117L,38118L,38119L,38120L,
  79537. 38121L,38122L,38123L,38124L,38125L,38126L,38127L,38128L,38129L,38130L,
  79538. 38131L,38132L,38133L,38134L,38135L,38136L,38137L,38138L,38139L,38140L,
  79539. 38141L,38142L,38143L,38144L,38145L,38146L,38147L,38148L,38149L,38150L,
  79540. 38151L,38152L,38153L,38154L,38155L,38156L,38157L,38158L,38159L,38160L,
  79541. 38161L,38162L,38163L,38164L,38165L,38166L,38167L,38168L,38169L,38170L,
  79542. 38171L,38172L,38173L,38174L,38175L,38176L,38177L,38178L,38179L,38180L,
  79543. 38181L,38182L,38183L,38184L,38185L,38186L,38187L,38188L,38189L,38190L,
  79544. 38191L,38192L,38193L,38194L,38195L,38196L,38197L,38198L,38199L,38200L,
  79545. 38201L,38202L,38203L,38204L,38205L,38206L,38207L,38208L,38209L,38210L,
  79546. 38211L,38212L,38213L,38214L,38215L,38216L,38217L,38218L,38219L,38220L,
  79547. 38221L,38222L,38223L,38224L,38225L,38226L,38227L,38228L,38229L,38230L,
  79548. 38231L,38232L,38233L,38234L,38235L,38236L,38237L,38238L,38239L,38240L,
  79549. 38241L,38242L,38243L,38244L,38245L,38246L,38247L,38248L,38249L,38250L,
  79550. 38251L,38252L,38253L,38254L,38255L,38256L,38257L,38258L,38259L,38260L,
  79551. 38261L,38262L,38263L,38264L,38265L,38266L,38267L,38268L,38269L,38270L,
  79552. 38271L,38272L,38273L,38274L,38275L,38276L,38277L,38278L,38279L,38280L,
  79553. 38281L,38282L,38283L,38284L,38285L,38286L,38287L,38288L,38289L,38290L,
  79554. 38291L,38292L,38293L,38294L,38295L,38296L,38297L,38298L,38299L,38300L,
  79555. 38301L,38302L,38303L,38304L,38305L,38306L,38307L,38308L,38309L,38310L,
  79556. 38311L,38312L,38313L,38314L,38315L,38316L,38317L,38318L,38319L,38320L,
  79557. 38321L,38322L,38323L,38324L,38325L,38326L,38327L,38328L,38329L,38330L,
  79558. 38331L,38332L,38333L,38334L,38335L,38336L,38337L,38338L,38339L,38340L,
  79559. 38341L,38342L,38343L,38344L,38345L,38346L,38347L,38348L,38349L,38350L,
  79560. 38351L,38352L,38353L,38354L,38355L,38356L,38357L,38358L,38359L,38360L,
  79561. 38361L,38362L,38363L,38364L,38365L,38366L,38367L,38368L,38369L,38370L,
  79562. 38371L,38372L,38373L,38374L,38375L,38376L,38377L,38378L,38379L,38380L,
  79563. 38381L,38382L,38383L,38384L,38385L,38386L,38387L,38388L,38389L,38390L,
  79564. 38391L,38392L,38393L,38394L,38395L,38396L,38397L,38398L,38399L,38400L,
  79565. 38401L,38402L,38403L,38404L,38405L,38406L,38407L,38408L,38409L,38410L,
  79566. 38411L,38412L,38413L,38414L,38415L,38416L,38417L,38418L,38419L,38420L,
  79567. 38421L,38422L,38423L,38424L,38425L,38426L,38427L,38428L,38429L,38430L,
  79568. 38431L,38432L,38433L,38434L,38435L,38436L,38437L,38438L,38439L,38440L,
  79569. 38441L,38442L,38443L,38444L,38445L,38446L,38447L,38448L,38449L,38450L,
  79570. 38451L,38452L,38453L,38454L,38455L,38456L,38457L,38458L,38459L,38460L,
  79571. 38461L,38462L,38463L,38464L,38465L,38466L,38467L,38468L,38469L,38470L,
  79572. 38471L,38472L,38473L,38474L,38475L,38476L,38477L,38478L,38479L,38480L,
  79573. 38481L,38482L,38483L,38484L,38485L,38486L,38487L,38488L,38489L,38490L,
  79574. 38491L,38492L,38493L,38494L,38495L,38496L,38497L,38498L,38499L,38500L,
  79575. 38501L,38502L,38503L,38504L,38505L,38506L,38507L,38508L,38509L,38510L,
  79576. 38511L,38512L,38513L,38514L,38515L,38516L,38517L,38518L,38519L,38520L,
  79577. 38521L,38522L,38523L,38524L,38525L,38526L,38527L,38528L,38529L,38530L,
  79578. 38531L,38532L,38533L,38534L,38535L,38536L,38537L,38538L,38539L,38540L,
  79579. 38541L,38542L,38543L,38544L,38545L,38546L,38547L,38548L,38549L,38550L,
  79580. 38551L,38552L,38553L,38554L,38555L,38556L,38557L,38558L,38559L,38560L,
  79581. 38561L,38562L,38563L,38564L,38565L,38566L,38567L,38568L,38569L,38570L,
  79582. 38571L,38572L,38573L,38574L,38575L,38576L,38577L,38578L,38579L,38580L,
  79583. 38581L,38582L,38583L,38584L,38585L,38586L,38587L,38588L,38589L,38590L,
  79584. 38591L,38592L,38593L,38594L,38595L,38596L,38597L,38598L,38599L,38600L,
  79585. 38601L,38602L,38603L,38604L,38605L,38606L,38607L,38608L,38609L,38610L,
  79586. 38611L,38612L,38613L,38614L,38615L,38616L,38617L,38618L,38619L,38620L,
  79587. 38621L,38622L,38623L,38624L,38625L,38626L,38627L,38628L,38629L,38630L,
  79588. 38631L,38632L,38633L,38634L,38635L,38636L,38637L,38638L,38639L,38640L,
  79589. 38641L,38642L,38643L,38644L,38645L,38646L,38647L,38648L,38649L,38650L,
  79590. 38651L,38652L,38653L,38654L,38655L,38656L,38657L,38658L,38659L,38660L,
  79591. 38661L,38662L,38663L,38664L,38665L,38666L,38667L,38668L,38669L,38670L,
  79592. 38671L,38672L,38673L,38674L,38675L,38676L,38677L,38678L,38679L,38680L,
  79593. 38681L,38682L,38683L,38684L,38685L,38686L,38687L,38688L,38689L,38690L,
  79594. 38691L,38692L,38693L,38694L,38695L,38696L,38697L,38698L,38699L,38700L,
  79595. 38701L,38702L,38703L,38704L,38705L,38706L,38707L,38708L,38709L,38710L,
  79596. 38711L,38712L,38713L,38714L,38715L,38716L,38717L,38718L,38719L,38720L,
  79597. 38721L,38722L,38723L,38724L,38725L,38726L,38727L,38728L,38729L,38730L,
  79598. 38731L,38732L,38733L,38734L,38735L,38736L,38737L,38738L,38739L,38740L,
  79599. 38741L,38742L,38743L,38744L,38745L,38746L,38747L,38748L,38749L,38750L,
  79600. 38751L,38752L,38753L,38754L,38755L,38756L,38757L,38758L,38759L,38760L,
  79601. 38761L,38762L,38763L,38764L,38765L,38766L,38767L,38768L,38769L,38770L,
  79602. 38771L,38772L,38773L,38774L,38775L,38776L,38777L,38778L,38779L,38780L,
  79603. 38781L,38782L,38783L,38784L,38785L,38786L,38787L,38788L,38789L,38790L,
  79604. 38791L,38792L,38793L,38794L,38795L,38796L,38797L,38798L,38799L,38800L,
  79605. 38801L,38802L,38803L,38804L,38805L,38806L,38807L,38808L,38809L,38810L,
  79606. 38811L,38812L,38813L,38814L,38815L,38816L,38817L,38818L,38819L,38820L,
  79607. 38821L,38822L,38823L,38824L,38825L,38826L,38827L,38828L,38829L,38830L,
  79608. 38831L,38832L,38833L,38834L,38835L,38836L,38837L,38838L,38839L,38840L,
  79609. 38841L,38842L,38843L,38844L,38845L,38846L,38847L,38848L,38849L,38850L,
  79610. 38851L,38852L,38853L,38854L,38855L,38856L,38857L,38858L,38859L,38860L,
  79611. 38861L,38862L,38863L,38864L,38865L,38866L,38867L,38868L,38869L,38870L,
  79612. 38871L,38872L,38873L,38874L,38875L,38876L,38877L,38878L,38879L,38880L,
  79613. 38881L,38882L,38883L,38884L,38885L,38886L,38887L,38888L,38889L,38890L,
  79614. 38891L,38892L,38893L,38894L,38895L,38896L,38897L,38898L,38899L,38900L,
  79615. 38901L,38902L,38903L,38904L,38905L,38906L,38907L,38908L,38909L,38910L,
  79616. 38911L,38912L,38913L,38914L,38915L,38916L,38917L,38918L,38919L,38920L,
  79617. 38921L,38922L,38923L,38924L,38925L,38926L,38927L,38928L,38929L,38930L,
  79618. 38931L,38932L,38933L,38934L,38935L,38936L,38937L,38938L,38939L,38940L,
  79619. 38941L,38942L,38943L,38944L,38945L,38946L,38947L,38948L,38949L,38950L,
  79620. 38951L,38952L,38953L,38954L,38955L,38956L,38957L,38958L,38959L,38960L,
  79621. 38961L,38962L,38963L,38964L,38965L,38966L,38967L,38968L,38969L,38970L,
  79622. 38971L,38972L,38973L,38974L,38975L,38976L,38977L,38978L,38979L,38980L,
  79623. 38981L,38982L,38983L,38984L,38985L,38986L,38987L,38988L,38989L,38990L,
  79624. 38991L,38992L,38993L,38994L,38995L,38996L,38997L,38998L,38999L,39000L,
  79625. 39001L,39002L,39003L,39004L,39005L,39006L,39007L,39008L,39009L,39010L,
  79626. 39011L,39012L,39013L,39014L,39015L,39016L,39017L,39018L,39019L,39020L,
  79627. 39021L,39022L,39023L,39024L,39025L,39026L,39027L,39028L,39029L,39030L,
  79628. 39031L,39032L,39033L,39034L,39035L,39036L,39037L,39038L,39039L,39040L,
  79629. 39041L,39042L,39043L,39044L,39045L,39046L,39047L,39048L,39049L,39050L,
  79630. 39051L,39052L,39053L,39054L,39055L,39056L,39057L,39058L,39059L,39060L,
  79631. 39061L,39062L,39063L,39064L,39065L,39066L,39067L,39068L,39069L,39070L,
  79632. 39071L,39072L,39073L,39074L,39075L,39076L,39077L,39078L,39079L,39080L,
  79633. 39081L,39082L,39083L,39084L,39085L,39086L,39087L,39088L,39089L,39090L,
  79634. 39091L,39092L,39093L,39094L,39095L,39096L,39097L,39098L,39099L,39100L,
  79635. 39101L,39102L,39103L,39104L,39105L,39106L,39107L,39108L,39109L,39110L,
  79636. 39111L,39112L,39113L,39114L,39115L,39116L,39117L,39118L,39119L,39120L,
  79637. 39121L,39122L,39123L,39124L,39125L,39126L,39127L,39128L,39129L,39130L,
  79638. 39131L,39132L,39133L,39134L,39135L,39136L,39137L,39138L,39139L,39140L,
  79639. 39141L,39142L,39143L,39144L,39145L,39146L,39147L,39148L,39149L,39150L,
  79640. 39151L,39152L,39153L,39154L,39155L,39156L,39157L,39158L,39159L,39160L,
  79641. 39161L,39162L,39163L,39164L,39165L,39166L,39167L,39168L,39169L,39170L,
  79642. 39171L,39172L,39173L,39174L,39175L,39176L,39177L,39178L,39179L,39180L,
  79643. 39181L,39182L,39183L,39184L,39185L,39186L,39187L,39188L,39189L,39190L,
  79644. 39191L,39192L,39193L,39194L,39195L,39196L,39197L,39198L,39199L,39200L,
  79645. 39201L,39202L,39203L,39204L,39205L,39206L,39207L,39208L,39209L,39210L,
  79646. 39211L,39212L,39213L,39214L,39215L,39216L,39217L,39218L,39219L,39220L,
  79647. 39221L,39222L,39223L,39224L,39225L,39226L,39227L,39228L,39229L,39230L,
  79648. 39231L,39232L,39233L,39234L,39235L,39236L,39237L,39238L,39239L,39240L,
  79649. 39241L,39242L,39243L,39244L,39245L,39246L,39247L,39248L,39249L,39250L,
  79650. 39251L,39252L,39253L,39254L,39255L,39256L,39257L,39258L,39259L,39260L,
  79651. 39261L,39262L,39263L,39264L,39265L,39266L,39267L,39268L,39269L,39270L,
  79652. 39271L,39272L,39273L,39274L,39275L,39276L,39277L,39278L,39279L,39280L,
  79653. 39281L,39282L,39283L,39284L,39285L,39286L,39287L,39288L,39289L,39290L,
  79654. 39291L,39292L,39293L,39294L,39295L,39296L,39297L,39298L,39299L,39300L,
  79655. 39301L,39302L,39303L,39304L,39305L,39306L,39307L,39308L,39309L,39310L,
  79656. 39311L,39312L,39313L,39314L,39315L,39316L,39317L,39318L,39319L,39320L,
  79657. 39321L,39322L,39323L,39324L,39325L,39326L,39327L,39328L,39329L,39330L,
  79658. 39331L,39332L,39333L,39334L,39335L,39336L,39337L,39338L,39339L,39340L,
  79659. 39341L,39342L,39343L,39344L,39345L,39346L,39347L,39348L,39349L,39350L,
  79660. 39351L,39352L,39353L,39354L,39355L,39356L,39357L,39358L,39359L,39360L,
  79661. 39361L,39362L,39363L,39364L,39365L,39366L,39367L,39368L,39369L,39370L,
  79662. 39371L,39372L,39373L,39374L,39375L,39376L,39377L,39378L,39379L,39380L,
  79663. 39381L,39382L,39383L,39384L,39385L,39386L,39387L,39388L,39389L,39390L,
  79664. 39391L,39392L,39393L,39394L,39395L,39396L,39397L,39398L,39399L,39400L,
  79665. 39401L,39402L,39403L,39404L,39405L,39406L,39407L,39408L,39409L,39410L,
  79666. 39411L,39412L,39413L,39414L,39415L,39416L,39417L,39418L,39419L,39420L,
  79667. 39421L,39422L,39423L,39424L,39425L,39426L,39427L,39428L,39429L,39430L,
  79668. 39431L,39432L,39433L,39434L,39435L,39436L,39437L,39438L,39439L,39440L,
  79669. 39441L,39442L,39443L,39444L,39445L,39446L,39447L,39448L,39449L,39450L,
  79670. 39451L,39452L,39453L,39454L,39455L,39456L,39457L,39458L,39459L,39460L,
  79671. 39461L,39462L,39463L,39464L,39465L,39466L,39467L,39468L,39469L,39470L,
  79672. 39471L,39472L,39473L,39474L,39475L,39476L,39477L,39478L,39479L,39480L,
  79673. 39481L,39482L,39483L,39484L,39485L,39486L,39487L,39488L,39489L,39490L,
  79674. 39491L,39492L,39493L,39494L,39495L,39496L,39497L,39498L,39499L,39500L,
  79675. 39501L,39502L,39503L,39504L,39505L,39506L,39507L,39508L,39509L,39510L,
  79676. 39511L,39512L,39513L,39514L,39515L,39516L,39517L,39518L,39519L,39520L,
  79677. 39521L,39522L,39523L,39524L,39525L,39526L,39527L,39528L,39529L,39530L,
  79678. 39531L,39532L,39533L,39534L,39535L,39536L,39537L,39538L,39539L,39540L,
  79679. 39541L,39542L,39543L,39544L,39545L,39546L,39547L,39548L,39549L,39550L,
  79680. 39551L,39552L,39553L,39554L,39555L,39556L,39557L,39558L,39559L,39560L,
  79681. 39561L,39562L,39563L,39564L,39565L,39566L,39567L,39568L,39569L,39570L,
  79682. 39571L,39572L,39573L,39574L,39575L,39576L,39577L,39578L,39579L,39580L,
  79683. 39581L,39582L,39583L,39584L,39585L,39586L,39587L,39588L,39589L,39590L,
  79684. 39591L,39592L,39593L,39594L,39595L,39596L,39597L,39598L,39599L,39600L,
  79685. 39601L,39602L,39603L,39604L,39605L,39606L,39607L,39608L,39609L,39610L,
  79686. 39611L,39612L,39613L,39614L,39615L,39616L,39617L,39618L,39619L,39620L,
  79687. 39621L,39622L,39623L,39624L,39625L,39626L,39627L,39628L,39629L,39630L,
  79688. 39631L,39632L,39633L,39634L,39635L,39636L,39637L,39638L,39639L,39640L,
  79689. 39641L,39642L,39643L,39644L,39645L,39646L,39647L,39648L,39649L,39650L,
  79690. 39651L,39652L,39653L,39654L,39655L,39656L,39657L,39658L,39659L,39660L,
  79691. 39661L,39662L,39663L,39664L,39665L,39666L,39667L,39668L,39669L,39670L,
  79692. 39671L,39672L,39673L,39674L,39675L,39676L,39677L,39678L,39679L,39680L,
  79693. 39681L,39682L,39683L,39684L,39685L,39686L,39687L,39688L,39689L,39690L,
  79694. 39691L,39692L,39693L,39694L,39695L,39696L,39697L,39698L,39699L,39700L,
  79695. 39701L,39702L,39703L,39704L,39705L,39706L,39707L,39708L,39709L,39710L,
  79696. 39711L,39712L,39713L,39714L,39715L,39716L,39717L,39718L,39719L,39720L,
  79697. 39721L,39722L,39723L,39724L,39725L,39726L,39727L,39728L,39729L,39730L,
  79698. 39731L,39732L,39733L,39734L,39735L,39736L,39737L,39738L,39739L,39740L,
  79699. 39741L,39742L,39743L,39744L,39745L,39746L,39747L,39748L,39749L,39750L,
  79700. 39751L,39752L,39753L,39754L,39755L,39756L,39757L,39758L,39759L,39760L,
  79701. 39761L,39762L,39763L,39764L,39765L,39766L,39767L,39768L,39769L,39770L,
  79702. 39771L,39772L,39773L,39774L,39775L,39776L,39777L,39778L,39779L,39780L,
  79703. 39781L,39782L,39783L,39784L,39785L,39786L,39787L,39788L,39789L,39790L,
  79704. 39791L,39792L,39793L,39794L,39795L,39796L,39797L,39798L,39799L,39800L,
  79705. 39801L,39802L,39803L,39804L,39805L,39806L,39807L,39808L,39809L,39810L,
  79706. 39811L,39812L,39813L,39814L,39815L,39816L,39817L,39818L,39819L,39820L,
  79707. 39821L,39822L,39823L,39824L,39825L,39826L,39827L,39828L,39829L,39830L,
  79708. 39831L,39832L,39833L,39834L,39835L,39836L,39837L,39838L,39839L,39840L,
  79709. 39841L,39842L,39843L,39844L,39845L,39846L,39847L,39848L,39849L,39850L,
  79710. 39851L,39852L,39853L,39854L,39855L,39856L,39857L,39858L,39859L,39860L,
  79711. 39861L,39862L,39863L,39864L,39865L,39866L,39867L,39868L,39869L,39870L,
  79712. 39871L,39872L,39873L,39874L,39875L,39876L,39877L,39878L,39879L,39880L,
  79713. 39881L,39882L,39883L,39884L,39885L,39886L,39887L,39888L,39889L,39890L,
  79714. 39891L,39892L,39893L,39894L,39895L,39896L,39897L,39898L,39899L,39900L,
  79715. 39901L,39902L,39903L,39904L,39905L,39906L,39907L,39908L,39909L,39910L,
  79716. 39911L,39912L,39913L,39914L,39915L,39916L,39917L,39918L,39919L,39920L,
  79717. 39921L,39922L,39923L,39924L,39925L,39926L,39927L,39928L,39929L,39930L,
  79718. 39931L,39932L,39933L,39934L,39935L,39936L,39937L,39938L,39939L,39940L,
  79719. 39941L,39942L,39943L,39944L,39945L,39946L,39947L,39948L,39949L,39950L,
  79720. 39951L,39952L,39953L,39954L,39955L,39956L,39957L,39958L,39959L,39960L,
  79721. 39961L,39962L,39963L,39964L,39965L,39966L,39967L,39968L,39969L,39970L,
  79722. 39971L,39972L,39973L,39974L,39975L,39976L,39977L,39978L,39979L,39980L,
  79723. 39981L,39982L,39983L,39984L,39985L,39986L,39987L,39988L,39989L,39990L,
  79724. 39991L,39992L,39993L,39994L,39995L,39996L,39997L,39998L,39999L,40000L,
  79725. 40001L,40002L,40003L,40004L,40005L,40006L,40007L,40008L,40009L,40010L,
  79726. 40011L,40012L,40013L,40014L,40015L,40016L,40017L,40018L,40019L,40020L,
  79727. 40021L,40022L,40023L,40024L,40025L,40026L,40027L,40028L,40029L,40030L,
  79728. 40031L,40032L,40033L,40034L,40035L,40036L,40037L,40038L,40039L,40040L,
  79729. 40041L,40042L,40043L,40044L,40045L,40046L,40047L,40048L,40049L,40050L,
  79730. 40051L,40052L,40053L,40054L,40055L,40056L,40057L,40058L,40059L,40060L,
  79731. 40061L,40062L,40063L,40064L,40065L,40066L,40067L,40068L,40069L,40070L,
  79732. 40071L,40072L,40073L,40074L,40075L,40076L,40077L,40078L,40079L,40080L,
  79733. 40081L,40082L,40083L,40084L,40085L,40086L,40087L,40088L,40089L,40090L,
  79734. 40091L,40092L,40093L,40094L,40095L,40096L,40097L,40098L,40099L,40100L,
  79735. 40101L,40102L,40103L,40104L,40105L,40106L,40107L,40108L,40109L,40110L,
  79736. 40111L,40112L,40113L,40114L,40115L,40116L,40117L,40118L,40119L,40120L,
  79737. 40121L,40122L,40123L,40124L,40125L,40126L,40127L,40128L,40129L,40130L,
  79738. 40131L,40132L,40133L,40134L,40135L,40136L,40137L,40138L,40139L,40140L,
  79739. 40141L,40142L,40143L,40144L,40145L,40146L,40147L,40148L,40149L,40150L,
  79740. 40151L,40152L,40153L,40154L,40155L,40156L,40157L,40158L,40159L,40160L,
  79741. 40161L,40162L,40163L,40164L,40165L,40166L,40167L,40168L,40169L,40170L,
  79742. 40171L,40172L,40173L,40174L,40175L,40176L,40177L,40178L,40179L,40180L,
  79743. 40181L,40182L,40183L,40184L,40185L,40186L,40187L,40188L,40189L,40190L,
  79744. 40191L,40192L,40193L,40194L,40195L,40196L,40197L,40198L,40199L,40200L,
  79745. 40201L,40202L,40203L,40204L,40205L,40206L,40207L,40208L,40209L,40210L,
  79746. 40211L,40212L,40213L,40214L,40215L,40216L,40217L,40218L,40219L,40220L,
  79747. 40221L,40222L,40223L,40224L,40225L,40226L,40227L,40228L,40229L,40230L,
  79748. 40231L,40232L,40233L,40234L,40235L,40236L,40237L,40238L,40239L,40240L,
  79749. 40241L,40242L,40243L,40244L,40245L,40246L,40247L,40248L,40249L,40250L,
  79750. 40251L,40252L,40253L,40254L,40255L,40256L,40257L,40258L,40259L,40260L,
  79751. 40261L,40262L,40263L,40264L,40265L,40266L,40267L,40268L,40269L,40270L,
  79752. 40271L,40272L,40273L,40274L,40275L,40276L,40277L,40278L,40279L,40280L,
  79753. 40281L,40282L,40283L,40284L,40285L,40286L,40287L,40288L,40289L,40290L,
  79754. 40291L,40292L,40293L,40294L,40295L,40296L,40297L,40298L,40299L,40300L,
  79755. 40301L,40302L,40303L,40304L,40305L,40306L,40307L,40308L,40309L,40310L,
  79756. 40311L,40312L,40313L,40314L,40315L,40316L,40317L,40318L,40319L,40320L,
  79757. 40321L,40322L,40323L,40324L,40325L,40326L,40327L,40328L,40329L,40330L,
  79758. 40331L,40332L,40333L,40334L,40335L,40336L,40337L,40338L,40339L,40340L,
  79759. 40341L,40342L,40343L,40344L,40345L,40346L,40347L,40348L,40349L,40350L,
  79760. 40351L,40352L,40353L,40354L,40355L,40356L,40357L,40358L,40359L,40360L,
  79761. 40361L,40362L,40363L,40364L,40365L,40366L,40367L,40368L,40369L,40370L,
  79762. 40371L,40372L,40373L,40374L,40375L,40376L,40377L,40378L,40379L,40380L,
  79763. 40381L,40382L,40383L,40384L,40385L,40386L,40387L,40388L,40389L,40390L,
  79764. 40391L,40392L,40393L,40394L,40395L,40396L,40397L,40398L,40399L,40400L,
  79765. 40401L,40402L,40403L,40404L,40405L,40406L,40407L,40408L,40409L,40410L,
  79766. 40411L,40412L,40413L,40414L,40415L,40416L,40417L,40418L,40419L,40420L,
  79767. 40421L,40422L,40423L,40424L,40425L,40426L,40427L,40428L,40429L,40430L,
  79768. 40431L,40432L,40433L,40434L,40435L,40436L,40437L,40438L,40439L,40440L,
  79769. 40441L,40442L,40443L,40444L,40445L,40446L,40447L,40448L,40449L,40450L,
  79770. 40451L,40452L,40453L,40454L,40455L,40456L,40457L,40458L,40459L,40460L,
  79771. 40461L,40462L,40463L,40464L,40465L,40466L,40467L,40468L,40469L,40470L,
  79772. 40471L,40472L,40473L,40474L,40475L,40476L,40477L,40478L,40479L,40480L,
  79773. 40481L,40482L,40483L,40484L,40485L,40486L,40487L,40488L,40489L,40490L,
  79774. 40491L,40492L,40493L,40494L,40495L,40496L,40497L,40498L,40499L,40500L,
  79775. 40501L,40502L,40503L,40504L,40505L,40506L,40507L,40508L,40509L,40510L,
  79776. 40511L,40512L,40513L,40514L,40515L,40516L,40517L,40518L,40519L,40520L,
  79777. 40521L,40522L,40523L,40524L,40525L,40526L,40527L,40528L,40529L,40530L,
  79778. 40531L,40532L,40533L,40534L,40535L,40536L,40537L,40538L,40539L,40540L,
  79779. 40541L,40542L,40543L,40544L,40545L,40546L,40547L,40548L,40549L,40550L,
  79780. 40551L,40552L,40553L,40554L,40555L,40556L,40557L,40558L,40559L,40560L,
  79781. 40561L,40562L,40563L,40564L,40565L,40566L,40567L,40568L,40569L,40570L,
  79782. 40571L,40572L,40573L,40574L,40575L,40576L,40577L,40578L,40579L,40580L,
  79783. 40581L,40582L,40583L,40584L,40585L,40586L,40587L,40588L,40589L,40590L,
  79784. 40591L,40592L,40593L,40594L,40595L,40596L,40597L,40598L,40599L,40600L,
  79785. 40601L,40602L,40603L,40604L,40605L,40606L,40607L,40608L,40609L,40610L,
  79786. 40611L,40612L,40613L,40614L,40615L,40616L,40617L,40618L,40619L,40620L,
  79787. 40621L,40622L,40623L,40624L,40625L,40626L,40627L,40628L,40629L,40630L,
  79788. 40631L,40632L,40633L,40634L,40635L,40636L,40637L,40638L,40639L,40640L,
  79789. 40641L,40642L,40643L,40644L,40645L,40646L,40647L,40648L,40649L,40650L,
  79790. 40651L,40652L,40653L,40654L,40655L,40656L,40657L,40658L,40659L,40660L,
  79791. 40661L,40662L,40663L,40664L,40665L,40666L,40667L,40668L,40669L,40670L,
  79792. 40671L,40672L,40673L,40674L,40675L,40676L,40677L,40678L,40679L,40680L,
  79793. 40681L,40682L,40683L,40684L,40685L,40686L,40687L,40688L,40689L,40690L,
  79794. 40691L,40692L,40693L,40694L,40695L,40696L,40697L,40698L,40699L,40700L,
  79795. 40701L,40702L,40703L,40704L,40705L,40706L,40707L,40708L,40709L,40710L,
  79796. 40711L,40712L,40713L,40714L,40715L,40716L,40717L,40718L,40719L,40720L,
  79797. 40721L,40722L,40723L,40724L,40725L,40726L,40727L,40728L,40729L,40730L,
  79798. 40731L,40732L,40733L,40734L,40735L,40736L,40737L,40738L,40739L,40740L,
  79799. 40741L,40742L,40743L,40744L,40745L,40746L,40747L,40748L,40749L,40750L,
  79800. 40751L,40752L,40753L,40754L,40755L,40756L,40757L,40758L,40759L,40760L,
  79801. 40761L,40762L,40763L,40764L,40765L,40766L,40767L,40768L,40769L,40770L,
  79802. 40771L,40772L,40773L,40774L,40775L,40776L,40777L,40778L,40779L,40780L,
  79803. 40781L,40782L,40783L,40784L,40785L,40786L,40787L,40788L,40789L,40790L,
  79804. 40791L,40792L,40793L,40794L,40795L,40796L,40797L,40798L,40799L,40800L,
  79805. 40801L,40802L,40803L,40804L,40805L,40806L,40807L,40808L,40809L,40810L,
  79806. 40811L,40812L,40813L,40814L,40815L,40816L,40817L,40818L,40819L,40820L,
  79807. 40821L,40822L,40823L,40824L,40825L,40826L,40827L,40828L,40829L,40830L,
  79808. 40831L,40832L,40833L,40834L,40835L,40836L,40837L,40838L,40839L,40840L,
  79809. 40841L,40842L,40843L,40844L,40845L,40846L,40847L,40848L,40849L,40850L,
  79810. 40851L,40852L,40853L,40854L,40855L,40856L,40857L,40858L,40859L,40860L,
  79811. 40861L,40862L,40863L,40864L,40865L,40866L,40867L,40868L,40869L,40870L,
  79812. 40871L,40872L,40873L,40874L,40875L,40876L,40877L,40878L,40879L,40880L,
  79813. 40881L,40882L,40883L,40884L,40885L,40886L,40887L,40888L,40889L,40890L,
  79814. 40891L,40892L,40893L,40894L,40895L,40896L,40897L,40898L,40899L,40900L,
  79815. 40901L,40902L,40903L,40904L,40905L,40906L,40907L,40908L,40909L,40910L,
  79816. 40911L,40912L,40913L,40914L,40915L,40916L,40917L,40918L,40919L,40920L,
  79817. 40921L,40922L,40923L,40924L,40925L,40926L,40927L,40928L,40929L,40930L,
  79818. 40931L,40932L,40933L,40934L,40935L,40936L,40937L,40938L,40939L,40940L,
  79819. 40941L,40942L,40943L,40944L,40945L,40946L,40947L,40948L,40949L,40950L,
  79820. 40951L,40952L,40953L,40954L,40955L,40956L,40957L,40958L,40959L,40960L,
  79821. 40961L,40962L,40963L,40964L,40965L,40966L,40967L,40968L,40969L,40970L,
  79822. 40971L,40972L,40973L,40974L,40975L,40976L,40977L,40978L,40979L,40980L,
  79823. 40981L,40982L,40983L,40984L,40985L,40986L,40987L,40988L,40989L,40990L,
  79824. 40991L,40992L,40993L,40994L,40995L,40996L,40997L,40998L,40999L,41000L,
  79825. 41001L,41002L,41003L,41004L,41005L,41006L,41007L,41008L,41009L,41010L,
  79826. 41011L,41012L,41013L,41014L,41015L,41016L,41017L,41018L,41019L,41020L,
  79827. 41021L,41022L,41023L,41024L,41025L,41026L,41027L,41028L,41029L,41030L,
  79828. 41031L,41032L,41033L,41034L,41035L,41036L,41037L,41038L,41039L,41040L,
  79829. 41041L,41042L,41043L,41044L,41045L,41046L,41047L,41048L,41049L,41050L,
  79830. 41051L,41052L,41053L,41054L,41055L,41056L,41057L,41058L,41059L,41060L,
  79831. 41061L,41062L,41063L,41064L,41065L,41066L,41067L,41068L,41069L,41070L,
  79832. 41071L,41072L,41073L,41074L,41075L,41076L,41077L,41078L,41079L,41080L,
  79833. 41081L,41082L,41083L,41084L,41085L,41086L,41087L,41088L,41089L,41090L,
  79834. 41091L,41092L,41093L,41094L,41095L,41096L,41097L,41098L,41099L,41100L,
  79835. 41101L,41102L,41103L,41104L,41105L,41106L,41107L,41108L,41109L,41110L,
  79836. 41111L,41112L,41113L,41114L,41115L,41116L,41117L,41118L,41119L,41120L,
  79837. 41121L,41122L,41123L,41124L,41125L,41126L,41127L,41128L,41129L,41130L,
  79838. 41131L,41132L,41133L,41134L,41135L,41136L,41137L,41138L,41139L,41140L,
  79839. 41141L,41142L,41143L,41144L,41145L,41146L,41147L,41148L,41149L,41150L,
  79840. 41151L,41152L,41153L,41154L,41155L,41156L,41157L,41158L,41159L,41160L,
  79841. 41161L,41162L,41163L,41164L,41165L,41166L,41167L,41168L,41169L,41170L,
  79842. 41171L,41172L,41173L,41174L,41175L,41176L,41177L,41178L,41179L,41180L,
  79843. 41181L,41182L,41183L,41184L,41185L,41186L,41187L,41188L,41189L,41190L,
  79844. 41191L,41192L,41193L,41194L,41195L,41196L,41197L,41198L,41199L,41200L,
  79845. 41201L,41202L,41203L,41204L,41205L,41206L,41207L,41208L,41209L,41210L,
  79846. 41211L,41212L,41213L,41214L,41215L,41216L,41217L,41218L,41219L,41220L,
  79847. 41221L,41222L,41223L,41224L,41225L,41226L,41227L,41228L,41229L,41230L,
  79848. 41231L,41232L,41233L,41234L,41235L,41236L,41237L,41238L,41239L,41240L,
  79849. 41241L,41242L,41243L,41244L,41245L,41246L,41247L,41248L,41249L,41250L,
  79850. 41251L,41252L,41253L,41254L,41255L,41256L,41257L,41258L,41259L,41260L,
  79851. 41261L,41262L,41263L,41264L,41265L,41266L,41267L,41268L,41269L,41270L,
  79852. 41271L,41272L,41273L,41274L,41275L,41276L,41277L,41278L,41279L,41280L,
  79853. 41281L,41282L,41283L,41284L,41285L,41286L,41287L,41288L,41289L,41290L,
  79854. 41291L,41292L,41293L,41294L,41295L,41296L,41297L,41298L,41299L,41300L,
  79855. 41301L,41302L,41303L,41304L,41305L,41306L,41307L,41308L,41309L,41310L,
  79856. 41311L,41312L,41313L,41314L,41315L,41316L,41317L,41318L,41319L,41320L,
  79857. 41321L,41322L,41323L,41324L,41325L,41326L,41327L,41328L,41329L,41330L,
  79858. 41331L,41332L,41333L,41334L,41335L,41336L,41337L,41338L,41339L,41340L,
  79859. 41341L,41342L,41343L,41344L,41345L,41346L,41347L,41348L,41349L,41350L,
  79860. 41351L,41352L,41353L,41354L,41355L,41356L,41357L,41358L,41359L,41360L,
  79861. 41361L,41362L,41363L,41364L,41365L,41366L,41367L,41368L,41369L,41370L,
  79862. 41371L,41372L,41373L,41374L,41375L,41376L,41377L,41378L,41379L,41380L,
  79863. 41381L,41382L,41383L,41384L,41385L,41386L,41387L,41388L,41389L,41390L,
  79864. 41391L,41392L,41393L,41394L,41395L,41396L,41397L,41398L,41399L,41400L,
  79865. 41401L,41402L,41403L,41404L,41405L,41406L,41407L,41408L,41409L,41410L,
  79866. 41411L,41412L,41413L,41414L,41415L,41416L,41417L,41418L,41419L,41420L,
  79867. 41421L,41422L,41423L,41424L,41425L,41426L,41427L,41428L,41429L,41430L,
  79868. 41431L,41432L,41433L,41434L,41435L,41436L,41437L,41438L,41439L,41440L,
  79869. 41441L,41442L,41443L,41444L,41445L,41446L,41447L,41448L,41449L,41450L,
  79870. 41451L,41452L,41453L,41454L,41455L,41456L,41457L,41458L,41459L,41460L,
  79871. 41461L,41462L,41463L,41464L,41465L,41466L,41467L,41468L,41469L,41470L,
  79872. 41471L,41472L,41473L,41474L,41475L,41476L,41477L,41478L,41479L,41480L,
  79873. 41481L,41482L,41483L,41484L,41485L,41486L,41487L,41488L,41489L,41490L,
  79874. 41491L,41492L,41493L,41494L,41495L,41496L,41497L,41498L,41499L,41500L,
  79875. 41501L,41502L,41503L,41504L,41505L,41506L,41507L,41508L,41509L,41510L,
  79876. 41511L,41512L,41513L,41514L,41515L,41516L,41517L,41518L,41519L,41520L,
  79877. 41521L,41522L,41523L,41524L,41525L,41526L,41527L,41528L,41529L,41530L,
  79878. 41531L,41532L,41533L,41534L,41535L,41536L,41537L,41538L,41539L,41540L,
  79879. 41541L,41542L,41543L,41544L,41545L,41546L,41547L,41548L,41549L,41550L,
  79880. 41551L,41552L,41553L,41554L,41555L,41556L,41557L,41558L,41559L,41560L,
  79881. 41561L,41562L,41563L,41564L,41565L,41566L,41567L,41568L,41569L,41570L,
  79882. 41571L,41572L,41573L,41574L,41575L,41576L,41577L,41578L,41579L,41580L,
  79883. 41581L,41582L,41583L,41584L,41585L,41586L,41587L,41588L,41589L,41590L,
  79884. 41591L,41592L,41593L,41594L,41595L,41596L,41597L,41598L,41599L,41600L,
  79885. 41601L,41602L,41603L,41604L,41605L,41606L,41607L,41608L,41609L,41610L,
  79886. 41611L,41612L,41613L,41614L,41615L,41616L,41617L,41618L,41619L,41620L,
  79887. 41621L,41622L,41623L,41624L,41625L,41626L,41627L,41628L,41629L,41630L,
  79888. 41631L,41632L,41633L,41634L,41635L,41636L,41637L,41638L,41639L,41640L,
  79889. 41641L,41642L,41643L,41644L,41645L,41646L,41647L,41648L,41649L,41650L,
  79890. 41651L,41652L,41653L,41654L,41655L,41656L,41657L,41658L,41659L,41660L,
  79891. 41661L,41662L,41663L,41664L,41665L,41666L,41667L,41668L,41669L,41670L,
  79892. 41671L,41672L,41673L,41674L,41675L,41676L,41677L,41678L,41679L,41680L,
  79893. 41681L,41682L,41683L,41684L,41685L,41686L,41687L,41688L,41689L,41690L,
  79894. 41691L,41692L,41693L,41694L,41695L,41696L,41697L,41698L,41699L,41700L,
  79895. 41701L,41702L,41703L,41704L,41705L,41706L,41707L,41708L,41709L,41710L,
  79896. 41711L,41712L,41713L,41714L,41715L,41716L,41717L,41718L,41719L,41720L,
  79897. 41721L,41722L,41723L,41724L,41725L,41726L,41727L,41728L,41729L,41730L,
  79898. 41731L,41732L,41733L,41734L,41735L,41736L,41737L,41738L,41739L,41740L,
  79899. 41741L,41742L,41743L,41744L,41745L,41746L,41747L,41748L,41749L,41750L,
  79900. 41751L,41752L,41753L,41754L,41755L,41756L,41757L,41758L,41759L,41760L,
  79901. 41761L,41762L,41763L,41764L,41765L,41766L,41767L,41768L,41769L,41770L,
  79902. 41771L,41772L,41773L,41774L,41775L,41776L,41777L,41778L,41779L,41780L,
  79903. 41781L,41782L,41783L,41784L,41785L,41786L,41787L,41788L,41789L,41790L,
  79904. 41791L,41792L,41793L,41794L,41795L,41796L,41797L,41798L,41799L,41800L,
  79905. 41801L,41802L,41803L,41804L,41805L,41806L,41807L,41808L,41809L,41810L,
  79906. 41811L,41812L,41813L,41814L,41815L,41816L,41817L,41818L,41819L,41820L,
  79907. 41821L,41822L,41823L,41824L,41825L,41826L,41827L,41828L,41829L,41830L,
  79908. 41831L,41832L,41833L,41834L,41835L,41836L,41837L,41838L,41839L,41840L,
  79909. 41841L,41842L,41843L,41844L,41845L,41846L,41847L,41848L,41849L,41850L,
  79910. 41851L,41852L,41853L,41854L,41855L,41856L,41857L,41858L,41859L,41860L,
  79911. 41861L,41862L,41863L,41864L,41865L,41866L,41867L,41868L,41869L,41870L,
  79912. 41871L,41872L,41873L,41874L,41875L,41876L,41877L,41878L,41879L,41880L,
  79913. 41881L,41882L,41883L,41884L,41885L,41886L,41887L,41888L,41889L,41890L,
  79914. 41891L,41892L,41893L,41894L,41895L,41896L,41897L,41898L,41899L,41900L,
  79915. 41901L,41902L,41903L,41904L,41905L,41906L,41907L,41908L,41909L,41910L,
  79916. 41911L,41912L,41913L,41914L,41915L,41916L,41917L,41918L,41919L,41920L,
  79917. 41921L,41922L,41923L,41924L,41925L,41926L,41927L,41928L,41929L,41930L,
  79918. 41931L,41932L,41933L,41934L,41935L,41936L,41937L,41938L,41939L,41940L,
  79919. 41941L,41942L,41943L,41944L,41945L,41946L,41947L,41948L,41949L,41950L,
  79920. 41951L,41952L,41953L,41954L,41955L,41956L,41957L,41958L,41959L,41960L,
  79921. 41961L,41962L,41963L,41964L,41965L,41966L,41967L,41968L,41969L,41970L,
  79922. 41971L,41972L,41973L,41974L,41975L,41976L,41977L,41978L,41979L,41980L,
  79923. 41981L,41982L,41983L,41984L,41985L,41986L,41987L,41988L,41989L,41990L,
  79924. 41991L,41992L,41993L,41994L,41995L,41996L,41997L,41998L,41999L,42000L,
  79925. 42001L,42002L,42003L,42004L,42005L,42006L,42007L,42008L,42009L,42010L,
  79926. 42011L,42012L,42013L,42014L,42015L,42016L,42017L,42018L,42019L,42020L,
  79927. 42021L,42022L,42023L,42024L,42025L,42026L,42027L,42028L,42029L,42030L,
  79928. 42031L,42032L,42033L,42034L,42035L,42036L,42037L,42038L,42039L,42040L,
  79929. 42041L,42042L,42043L,42044L,42045L,42046L,42047L,42048L,42049L,42050L,
  79930. 42051L,42052L,42053L,42054L,42055L,42056L,42057L,42058L,42059L,42060L,
  79931. 42061L,42062L,42063L,42064L,42065L,42066L,42067L,42068L,42069L,42070L,
  79932. 42071L,42072L,42073L,42074L,42075L,42076L,42077L,42078L,42079L,42080L,
  79933. 42081L,42082L,42083L,42084L,42085L,42086L,42087L,42088L,42089L,42090L,
  79934. 42091L,42092L,42093L,42094L,42095L,42096L,42097L,42098L,42099L,42100L,
  79935. 42101L,42102L,42103L,42104L,42105L,42106L,42107L,42108L,42109L,42110L,
  79936. 42111L,42112L,42113L,42114L,42115L,42116L,42117L,42118L,42119L,42120L,
  79937. 42121L,42122L,42123L,42124L,42125L,42126L,42127L,42128L,42129L,42130L,
  79938. 42131L,42132L,42133L,42134L,42135L,42136L,42137L,42138L,42139L,42140L,
  79939. 42141L,42142L,42143L,42144L,42145L,42146L,42147L,42148L,42149L,42150L,
  79940. 42151L,42152L,42153L,42154L,42155L,42156L,42157L,42158L,42159L,42160L,
  79941. 42161L,42162L,42163L,42164L,42165L,42166L,42167L,42168L,42169L,42170L,
  79942. 42171L,42172L,42173L,42174L,42175L,42176L,42177L,42178L,42179L,42180L,
  79943. 42181L,42182L,42183L,42184L,42185L,42186L,42187L,42188L,42189L,42190L,
  79944. 42191L,42192L,42193L,42194L,42195L,42196L,42197L,42198L,42199L,42200L,
  79945. 42201L,42202L,42203L,42204L,42205L,42206L,42207L,42208L,42209L,42210L,
  79946. 42211L,42212L,42213L,42214L,42215L,42216L,42217L,42218L,42219L,42220L,
  79947. 42221L,42222L,42223L,42224L,42225L,42226L,42227L,42228L,42229L,42230L,
  79948. 42231L,42232L,42233L,42234L,42235L,42236L,42237L,42238L,42239L,42240L,
  79949. 42241L,42242L,42243L,42244L,42245L,42246L,42247L,42248L,42249L,42250L,
  79950. 42251L,42252L,42253L,42254L,42255L,42256L,42257L,42258L,42259L,42260L,
  79951. 42261L,42262L,42263L,42264L,42265L,42266L,42267L,42268L,42269L,42270L,
  79952. 42271L,42272L,42273L,42274L,42275L,42276L,42277L,42278L,42279L,42280L,
  79953. 42281L,42282L,42283L,42284L,42285L,42286L,42287L,42288L,42289L,42290L,
  79954. 42291L,42292L,42293L,42294L,42295L,42296L,42297L,42298L,42299L,42300L,
  79955. 42301L,42302L,42303L,42304L,42305L,42306L,42307L,42308L,42309L,42310L,
  79956. 42311L,42312L,42313L,42314L,42315L,42316L,42317L,42318L,42319L,42320L,
  79957. 42321L,42322L,42323L,42324L,42325L,42326L,42327L,42328L,42329L,42330L,
  79958. 42331L,42332L,42333L,42334L,42335L,42336L,42337L,42338L,42339L,42340L,
  79959. 42341L,42342L,42343L,42344L,42345L,42346L,42347L,42348L,42349L,42350L,
  79960. 42351L,42352L,42353L,42354L,42355L,42356L,42357L,42358L,42359L,42360L,
  79961. 42361L,42362L,42363L,42364L,42365L,42366L,42367L,42368L,42369L,42370L,
  79962. 42371L,42372L,42373L,42374L,42375L,42376L,42377L,42378L,42379L,42380L,
  79963. 42381L,42382L,42383L,42384L,42385L,42386L,42387L,42388L,42389L,42390L,
  79964. 42391L,42392L,42393L,42394L,42395L,42396L,42397L,42398L,42399L,42400L,
  79965. 42401L,42402L,42403L,42404L,42405L,42406L,42407L,42408L,42409L,42410L,
  79966. 42411L,42412L,42413L,42414L,42415L,42416L,42417L,42418L,42419L,42420L,
  79967. 42421L,42422L,42423L,42424L,42425L,42426L,42427L,42428L,42429L,42430L,
  79968. 42431L,42432L,42433L,42434L,42435L,42436L,42437L,42438L,42439L,42440L,
  79969. 42441L,42442L,42443L,42444L,42445L,42446L,42447L,42448L,42449L,42450L,
  79970. 42451L,42452L,42453L,42454L,42455L,42456L,42457L,42458L,42459L,42460L,
  79971. 42461L,42462L,42463L,42464L,42465L,42466L,42467L,42468L,42469L,42470L,
  79972. 42471L,42472L,42473L,42474L,42475L,42476L,42477L,42478L,42479L,42480L,
  79973. 42481L,42482L,42483L,42484L,42485L,42486L,42487L,42488L,42489L,42490L,
  79974. 42491L,42492L,42493L,42494L,42495L,42496L,42497L,42498L,42499L,42500L,
  79975. 42501L,42502L,42503L,42504L,42505L,42506L,42507L,42508L,42509L,42510L,
  79976. 42511L,42512L,42513L,42514L,42515L,42516L,42517L,42518L,42519L,42520L,
  79977. 42521L,42522L,42523L,42524L,42525L,42526L,42527L,42528L,42529L,42530L,
  79978. 42531L,42532L,42533L,42534L,42535L,42536L,42537L,42538L,42539L,42540L,
  79979. 42541L,42542L,42543L,42544L,42545L,42546L,42547L,42548L,42549L,42550L,
  79980. 42551L,42552L,42553L,42554L,42555L,42556L,42557L,42558L,42559L,42560L,
  79981. 42560L,42562L,42562L,42564L,42564L,42566L,42566L,42568L,42568L,42570L,
  79982. 42570L,42572L,42572L,42574L,42574L,42576L,42576L,42578L,42578L,42580L,
  79983. 42580L,42582L,42582L,42584L,42584L,42586L,42586L,42588L,42588L,42590L,
  79984. 42590L,42592L,42592L,42594L,42594L,42596L,42596L,42598L,42598L,42600L,
  79985. 42600L,42602L,42602L,42604L,42604L,42606L,42607L,42608L,42609L,42610L,
  79986. 42611L,42612L,42613L,42614L,42615L,42616L,42617L,42618L,42619L,42620L,
  79987. 42621L,42622L,42623L,42624L,42624L,42626L,42626L,42628L,42628L,42630L,
  79988. 42630L,42632L,42632L,42634L,42634L,42636L,42636L,42638L,42638L,42640L,
  79989. 42640L,42642L,42642L,42644L,42644L,42646L,42646L,42648L,42648L,42650L,
  79990. 42650L,42652L,42653L,42654L,42655L,42656L,42657L,42658L,42659L,42660L,
  79991. 42661L,42662L,42663L,42664L,42665L,42666L,42667L,42668L,42669L,42670L,
  79992. 42671L,42672L,42673L,42674L,42675L,42676L,42677L,42678L,42679L,42680L,
  79993. 42681L,42682L,42683L,42684L,42685L,42686L,42687L,42688L,42689L,42690L,
  79994. 42691L,42692L,42693L,42694L,42695L,42696L,42697L,42698L,42699L,42700L,
  79995. 42701L,42702L,42703L,42704L,42705L,42706L,42707L,42708L,42709L,42710L,
  79996. 42711L,42712L,42713L,42714L,42715L,42716L,42717L,42718L,42719L,42720L,
  79997. 42721L,42722L,42723L,42724L,42725L,42726L,42727L,42728L,42729L,42730L,
  79998. 42731L,42732L,42733L,42734L,42735L,42736L,42737L,42738L,42739L,42740L,
  79999. 42741L,42742L,42743L,42744L,42745L,42746L,42747L,42748L,42749L,42750L,
  80000. 42751L,42752L,42753L,42754L,42755L,42756L,42757L,42758L,42759L,42760L,
  80001. 42761L,42762L,42763L,42764L,42765L,42766L,42767L,42768L,42769L,42770L,
  80002. 42771L,42772L,42773L,42774L,42775L,42776L,42777L,42778L,42779L,42780L,
  80003. 42781L,42782L,42783L,42784L,42785L,42786L,42786L,42788L,42788L,42790L,
  80004. 42790L,42792L,42792L,42794L,42794L,42796L,42796L,42798L,42798L,42800L,
  80005. 42801L,42802L,42802L,42804L,42804L,42806L,42806L,42808L,42808L,42810L,
  80006. 42810L,42812L,42812L,42814L,42814L,42816L,42816L,42818L,42818L,42820L,
  80007. 42820L,42822L,42822L,42824L,42824L,42826L,42826L,42828L,42828L,42830L,
  80008. 42830L,42832L,42832L,42834L,42834L,42836L,42836L,42838L,42838L,42840L,
  80009. 42840L,42842L,42842L,42844L,42844L,42846L,42846L,42848L,42848L,42850L,
  80010. 42850L,42852L,42852L,42854L,42854L,42856L,42856L,42858L,42858L,42860L,
  80011. 42860L,42862L,42862L,42864L,42865L,42866L,42867L,42868L,42869L,42870L,
  80012. 42871L,42872L,42873L,42873L,42875L,42875L,42877L,42878L,42878L,42880L,
  80013. 42880L,42882L,42882L,42884L,42884L,42886L,42886L,42888L,42889L,42890L,
  80014. 42891L,42891L,42893L,42894L,42895L,42896L,42896L,42898L,42898L,42900L,
  80015. 42901L,42902L,42902L,42904L,42904L,42906L,42906L,42908L,42908L,42910L,
  80016. 42910L,42912L,42912L,42914L,42914L,42916L,42916L,42918L,42918L,42920L,
  80017. 42920L,42922L,42923L,42924L,42925L,42926L,42927L,42928L,42929L,42930L,
  80018. 42931L,42932L,42932L,42934L,42934L,42936L,42937L,42938L,42939L,42940L,
  80019. 42941L,42942L,42943L,42944L,42945L,42946L,42947L,42948L,42949L,42950L,
  80020. 42951L,42952L,42953L,42954L,42955L,42956L,42957L,42958L,42959L,42960L,
  80021. 42961L,42962L,42963L,42964L,42965L,42966L,42967L,42968L,42969L,42970L,
  80022. 42971L,42972L,42973L,42974L,42975L,42976L,42977L,42978L,42979L,42980L,
  80023. 42981L,42982L,42983L,42984L,42985L,42986L,42987L,42988L,42989L,42990L,
  80024. 42991L,42992L,42993L,42994L,42995L,42996L,42997L,42998L,42999L,43000L,
  80025. 43001L,43002L,43003L,43004L,43005L,43006L,43007L,43008L,43009L,43010L,
  80026. 43011L,43012L,43013L,43014L,43015L,43016L,43017L,43018L,43019L,43020L,
  80027. 43021L,43022L,43023L,43024L,43025L,43026L,43027L,43028L,43029L,43030L,
  80028. 43031L,43032L,43033L,43034L,43035L,43036L,43037L,43038L,43039L,43040L,
  80029. 43041L,43042L,43043L,43044L,43045L,43046L,43047L,43048L,43049L,43050L,
  80030. 43051L,43052L,43053L,43054L,43055L,43056L,43057L,43058L,43059L,43060L,
  80031. 43061L,43062L,43063L,43064L,43065L,43066L,43067L,43068L,43069L,43070L,
  80032. 43071L,43072L,43073L,43074L,43075L,43076L,43077L,43078L,43079L,43080L,
  80033. 43081L,43082L,43083L,43084L,43085L,43086L,43087L,43088L,43089L,43090L,
  80034. 43091L,43092L,43093L,43094L,43095L,43096L,43097L,43098L,43099L,43100L,
  80035. 43101L,43102L,43103L,43104L,43105L,43106L,43107L,43108L,43109L,43110L,
  80036. 43111L,43112L,43113L,43114L,43115L,43116L,43117L,43118L,43119L,43120L,
  80037. 43121L,43122L,43123L,43124L,43125L,43126L,43127L,43128L,43129L,43130L,
  80038. 43131L,43132L,43133L,43134L,43135L,43136L,43137L,43138L,43139L,43140L,
  80039. 43141L,43142L,43143L,43144L,43145L,43146L,43147L,43148L,43149L,43150L,
  80040. 43151L,43152L,43153L,43154L,43155L,43156L,43157L,43158L,43159L,43160L,
  80041. 43161L,43162L,43163L,43164L,43165L,43166L,43167L,43168L,43169L,43170L,
  80042. 43171L,43172L,43173L,43174L,43175L,43176L,43177L,43178L,43179L,43180L,
  80043. 43181L,43182L,43183L,43184L,43185L,43186L,43187L,43188L,43189L,43190L,
  80044. 43191L,43192L,43193L,43194L,43195L,43196L,43197L,43198L,43199L,43200L,
  80045. 43201L,43202L,43203L,43204L,43205L,43206L,43207L,43208L,43209L,43210L,
  80046. 43211L,43212L,43213L,43214L,43215L,43216L,43217L,43218L,43219L,43220L,
  80047. 43221L,43222L,43223L,43224L,43225L,43226L,43227L,43228L,43229L,43230L,
  80048. 43231L,43232L,43233L,43234L,43235L,43236L,43237L,43238L,43239L,43240L,
  80049. 43241L,43242L,43243L,43244L,43245L,43246L,43247L,43248L,43249L,43250L,
  80050. 43251L,43252L,43253L,43254L,43255L,43256L,43257L,43258L,43259L,43260L,
  80051. 43261L,43262L,43263L,43264L,43265L,43266L,43267L,43268L,43269L,43270L,
  80052. 43271L,43272L,43273L,43274L,43275L,43276L,43277L,43278L,43279L,43280L,
  80053. 43281L,43282L,43283L,43284L,43285L,43286L,43287L,43288L,43289L,43290L,
  80054. 43291L,43292L,43293L,43294L,43295L,43296L,43297L,43298L,43299L,43300L,
  80055. 43301L,43302L,43303L,43304L,43305L,43306L,43307L,43308L,43309L,43310L,
  80056. 43311L,43312L,43313L,43314L,43315L,43316L,43317L,43318L,43319L,43320L,
  80057. 43321L,43322L,43323L,43324L,43325L,43326L,43327L,43328L,43329L,43330L,
  80058. 43331L,43332L,43333L,43334L,43335L,43336L,43337L,43338L,43339L,43340L,
  80059. 43341L,43342L,43343L,43344L,43345L,43346L,43347L,43348L,43349L,43350L,
  80060. 43351L,43352L,43353L,43354L,43355L,43356L,43357L,43358L,43359L,43360L,
  80061. 43361L,43362L,43363L,43364L,43365L,43366L,43367L,43368L,43369L,43370L,
  80062. 43371L,43372L,43373L,43374L,43375L,43376L,43377L,43378L,43379L,43380L,
  80063. 43381L,43382L,43383L,43384L,43385L,43386L,43387L,43388L,43389L,43390L,
  80064. 43391L,43392L,43393L,43394L,43395L,43396L,43397L,43398L,43399L,43400L,
  80065. 43401L,43402L,43403L,43404L,43405L,43406L,43407L,43408L,43409L,43410L,
  80066. 43411L,43412L,43413L,43414L,43415L,43416L,43417L,43418L,43419L,43420L,
  80067. 43421L,43422L,43423L,43424L,43425L,43426L,43427L,43428L,43429L,43430L,
  80068. 43431L,43432L,43433L,43434L,43435L,43436L,43437L,43438L,43439L,43440L,
  80069. 43441L,43442L,43443L,43444L,43445L,43446L,43447L,43448L,43449L,43450L,
  80070. 43451L,43452L,43453L,43454L,43455L,43456L,43457L,43458L,43459L,43460L,
  80071. 43461L,43462L,43463L,43464L,43465L,43466L,43467L,43468L,43469L,43470L,
  80072. 43471L,43472L,43473L,43474L,43475L,43476L,43477L,43478L,43479L,43480L,
  80073. 43481L,43482L,43483L,43484L,43485L,43486L,43487L,43488L,43489L,43490L,
  80074. 43491L,43492L,43493L,43494L,43495L,43496L,43497L,43498L,43499L,43500L,
  80075. 43501L,43502L,43503L,43504L,43505L,43506L,43507L,43508L,43509L,43510L,
  80076. 43511L,43512L,43513L,43514L,43515L,43516L,43517L,43518L,43519L,43520L,
  80077. 43521L,43522L,43523L,43524L,43525L,43526L,43527L,43528L,43529L,43530L,
  80078. 43531L,43532L,43533L,43534L,43535L,43536L,43537L,43538L,43539L,43540L,
  80079. 43541L,43542L,43543L,43544L,43545L,43546L,43547L,43548L,43549L,43550L,
  80080. 43551L,43552L,43553L,43554L,43555L,43556L,43557L,43558L,43559L,43560L,
  80081. 43561L,43562L,43563L,43564L,43565L,43566L,43567L,43568L,43569L,43570L,
  80082. 43571L,43572L,43573L,43574L,43575L,43576L,43577L,43578L,43579L,43580L,
  80083. 43581L,43582L,43583L,43584L,43585L,43586L,43587L,43588L,43589L,43590L,
  80084. 43591L,43592L,43593L,43594L,43595L,43596L,43597L,43598L,43599L,43600L,
  80085. 43601L,43602L,43603L,43604L,43605L,43606L,43607L,43608L,43609L,43610L,
  80086. 43611L,43612L,43613L,43614L,43615L,43616L,43617L,43618L,43619L,43620L,
  80087. 43621L,43622L,43623L,43624L,43625L,43626L,43627L,43628L,43629L,43630L,
  80088. 43631L,43632L,43633L,43634L,43635L,43636L,43637L,43638L,43639L,43640L,
  80089. 43641L,43642L,43643L,43644L,43645L,43646L,43647L,43648L,43649L,43650L,
  80090. 43651L,43652L,43653L,43654L,43655L,43656L,43657L,43658L,43659L,43660L,
  80091. 43661L,43662L,43663L,43664L,43665L,43666L,43667L,43668L,43669L,43670L,
  80092. 43671L,43672L,43673L,43674L,43675L,43676L,43677L,43678L,43679L,43680L,
  80093. 43681L,43682L,43683L,43684L,43685L,43686L,43687L,43688L,43689L,43690L,
  80094. 43691L,43692L,43693L,43694L,43695L,43696L,43697L,43698L,43699L,43700L,
  80095. 43701L,43702L,43703L,43704L,43705L,43706L,43707L,43708L,43709L,43710L,
  80096. 43711L,43712L,43713L,43714L,43715L,43716L,43717L,43718L,43719L,43720L,
  80097. 43721L,43722L,43723L,43724L,43725L,43726L,43727L,43728L,43729L,43730L,
  80098. 43731L,43732L,43733L,43734L,43735L,43736L,43737L,43738L,43739L,43740L,
  80099. 43741L,43742L,43743L,43744L,43745L,43746L,43747L,43748L,43749L,43750L,
  80100. 43751L,43752L,43753L,43754L,43755L,43756L,43757L,43758L,43759L,43760L,
  80101. 43761L,43762L,43763L,43764L,43765L,43766L,43767L,43768L,43769L,43770L,
  80102. 43771L,43772L,43773L,43774L,43775L,43776L,43777L,43778L,43779L,43780L,
  80103. 43781L,43782L,43783L,43784L,43785L,43786L,43787L,43788L,43789L,43790L,
  80104. 43791L,43792L,43793L,43794L,43795L,43796L,43797L,43798L,43799L,43800L,
  80105. 43801L,43802L,43803L,43804L,43805L,43806L,43807L,43808L,43809L,43810L,
  80106. 43811L,43812L,43813L,43814L,43815L,43816L,43817L,43818L,43819L,43820L,
  80107. 43821L,43822L,43823L,43824L,43825L,43826L,43827L,43828L,43829L,43830L,
  80108. 43831L,43832L,43833L,43834L,43835L,43836L,43837L,43838L,43839L,43840L,
  80109. 43841L,43842L,43843L,43844L,43845L,43846L,43847L,43848L,43849L,43850L,
  80110. 43851L,43852L,43853L,43854L,43855L,43856L,43857L,43858L,42931L,43860L,
  80111. 43861L,43862L,43863L,43864L,43865L,43866L,43867L,43868L,43869L,43870L,
  80112. 43871L,43872L,43873L,43874L,43875L,43876L,43877L,43878L,43879L,43880L,
  80113. 43881L,43882L,43883L,43884L,43885L,43886L,43887L,5024,5025,5026,5027,5028,
  80114. 5029,5030,5031,5032,5033,5034,5035,5036,5037,5038,5039,5040,5041,5042,5043,
  80115. 5044,5045,5046,5047,5048,5049,5050,5051,5052,5053,5054,5055,5056,5057,5058,
  80116. 5059,5060,5061,5062,5063,5064,5065,5066,5067,5068,5069,5070,5071,5072,5073,
  80117. 5074,5075,5076,5077,5078,5079,5080,5081,5082,5083,5084,5085,5086,5087,5088,
  80118. 5089,5090,5091,5092,5093,5094,5095,5096,5097,5098,5099,5100,5101,5102,5103,
  80119. 43968L,43969L,43970L,43971L,43972L,43973L,43974L,43975L,43976L,43977L,
  80120. 43978L,43979L,43980L,43981L,43982L,43983L,43984L,43985L,43986L,43987L,
  80121. 43988L,43989L,43990L,43991L,43992L,43993L,43994L,43995L,43996L,43997L,
  80122. 43998L,43999L,44000L,44001L,44002L,44003L,44004L,44005L,44006L,44007L,
  80123. 44008L,44009L,44010L,44011L,44012L,44013L,44014L,44015L,44016L,44017L,
  80124. 44018L,44019L,44020L,44021L,44022L,44023L,44024L,44025L,44026L,44027L,
  80125. 44028L,44029L,44030L,44031L,44032L,44033L,44034L,44035L,44036L,44037L,
  80126. 44038L,44039L,44040L,44041L,44042L,44043L,44044L,44045L,44046L,44047L,
  80127. 44048L,44049L,44050L,44051L,44052L,44053L,44054L,44055L,44056L,44057L,
  80128. 44058L,44059L,44060L,44061L,44062L,44063L,44064L,44065L,44066L,44067L,
  80129. 44068L,44069L,44070L,44071L,44072L,44073L,44074L,44075L,44076L,44077L,
  80130. 44078L,44079L,44080L,44081L,44082L,44083L,44084L,44085L,44086L,44087L,
  80131. 44088L,44089L,44090L,44091L,44092L,44093L,44094L,44095L,44096L,44097L,
  80132. 44098L,44099L,44100L,44101L,44102L,44103L,44104L,44105L,44106L,44107L,
  80133. 44108L,44109L,44110L,44111L,44112L,44113L,44114L,44115L,44116L,44117L,
  80134. 44118L,44119L,44120L,44121L,44122L,44123L,44124L,44125L,44126L,44127L,
  80135. 44128L,44129L,44130L,44131L,44132L,44133L,44134L,44135L,44136L,44137L,
  80136. 44138L,44139L,44140L,44141L,44142L,44143L,44144L,44145L,44146L,44147L,
  80137. 44148L,44149L,44150L,44151L,44152L,44153L,44154L,44155L,44156L,44157L,
  80138. 44158L,44159L,44160L,44161L,44162L,44163L,44164L,44165L,44166L,44167L,
  80139. 44168L,44169L,44170L,44171L,44172L,44173L,44174L,44175L,44176L,44177L,
  80140. 44178L,44179L,44180L,44181L,44182L,44183L,44184L,44185L,44186L,44187L,
  80141. 44188L,44189L,44190L,44191L,44192L,44193L,44194L,44195L,44196L,44197L,
  80142. 44198L,44199L,44200L,44201L,44202L,44203L,44204L,44205L,44206L,44207L,
  80143. 44208L,44209L,44210L,44211L,44212L,44213L,44214L,44215L,44216L,44217L,
  80144. 44218L,44219L,44220L,44221L,44222L,44223L,44224L,44225L,44226L,44227L,
  80145. 44228L,44229L,44230L,44231L,44232L,44233L,44234L,44235L,44236L,44237L,
  80146. 44238L,44239L,44240L,44241L,44242L,44243L,44244L,44245L,44246L,44247L,
  80147. 44248L,44249L,44250L,44251L,44252L,44253L,44254L,44255L,44256L,44257L,
  80148. 44258L,44259L,44260L,44261L,44262L,44263L,44264L,44265L,44266L,44267L,
  80149. 44268L,44269L,44270L,44271L,44272L,44273L,44274L,44275L,44276L,44277L,
  80150. 44278L,44279L,44280L,44281L,44282L,44283L,44284L,44285L,44286L,44287L,
  80151. 44288L,44289L,44290L,44291L,44292L,44293L,44294L,44295L,44296L,44297L,
  80152. 44298L,44299L,44300L,44301L,44302L,44303L,44304L,44305L,44306L,44307L,
  80153. 44308L,44309L,44310L,44311L,44312L,44313L,44314L,44315L,44316L,44317L,
  80154. 44318L,44319L,44320L,44321L,44322L,44323L,44324L,44325L,44326L,44327L,
  80155. 44328L,44329L,44330L,44331L,44332L,44333L,44334L,44335L,44336L,44337L,
  80156. 44338L,44339L,44340L,44341L,44342L,44343L,44344L,44345L,44346L,44347L,
  80157. 44348L,44349L,44350L,44351L,44352L,44353L,44354L,44355L,44356L,44357L,
  80158. 44358L,44359L,44360L,44361L,44362L,44363L,44364L,44365L,44366L,44367L,
  80159. 44368L,44369L,44370L,44371L,44372L,44373L,44374L,44375L,44376L,44377L,
  80160. 44378L,44379L,44380L,44381L,44382L,44383L,44384L,44385L,44386L,44387L,
  80161. 44388L,44389L,44390L,44391L,44392L,44393L,44394L,44395L,44396L,44397L,
  80162. 44398L,44399L,44400L,44401L,44402L,44403L,44404L,44405L,44406L,44407L,
  80163. 44408L,44409L,44410L,44411L,44412L,44413L,44414L,44415L,44416L,44417L,
  80164. 44418L,44419L,44420L,44421L,44422L,44423L,44424L,44425L,44426L,44427L,
  80165. 44428L,44429L,44430L,44431L,44432L,44433L,44434L,44435L,44436L,44437L,
  80166. 44438L,44439L,44440L,44441L,44442L,44443L,44444L,44445L,44446L,44447L,
  80167. 44448L,44449L,44450L,44451L,44452L,44453L,44454L,44455L,44456L,44457L,
  80168. 44458L,44459L,44460L,44461L,44462L,44463L,44464L,44465L,44466L,44467L,
  80169. 44468L,44469L,44470L,44471L,44472L,44473L,44474L,44475L,44476L,44477L,
  80170. 44478L,44479L,44480L,44481L,44482L,44483L,44484L,44485L,44486L,44487L,
  80171. 44488L,44489L,44490L,44491L,44492L,44493L,44494L,44495L,44496L,44497L,
  80172. 44498L,44499L,44500L,44501L,44502L,44503L,44504L,44505L,44506L,44507L,
  80173. 44508L,44509L,44510L,44511L,44512L,44513L,44514L,44515L,44516L,44517L,
  80174. 44518L,44519L,44520L,44521L,44522L,44523L,44524L,44525L,44526L,44527L,
  80175. 44528L,44529L,44530L,44531L,44532L,44533L,44534L,44535L,44536L,44537L,
  80176. 44538L,44539L,44540L,44541L,44542L,44543L,44544L,44545L,44546L,44547L,
  80177. 44548L,44549L,44550L,44551L,44552L,44553L,44554L,44555L,44556L,44557L,
  80178. 44558L,44559L,44560L,44561L,44562L,44563L,44564L,44565L,44566L,44567L,
  80179. 44568L,44569L,44570L,44571L,44572L,44573L,44574L,44575L,44576L,44577L,
  80180. 44578L,44579L,44580L,44581L,44582L,44583L,44584L,44585L,44586L,44587L,
  80181. 44588L,44589L,44590L,44591L,44592L,44593L,44594L,44595L,44596L,44597L,
  80182. 44598L,44599L,44600L,44601L,44602L,44603L,44604L,44605L,44606L,44607L,
  80183. 44608L,44609L,44610L,44611L,44612L,44613L,44614L,44615L,44616L,44617L,
  80184. 44618L,44619L,44620L,44621L,44622L,44623L,44624L,44625L,44626L,44627L,
  80185. 44628L,44629L,44630L,44631L,44632L,44633L,44634L,44635L,44636L,44637L,
  80186. 44638L,44639L,44640L,44641L,44642L,44643L,44644L,44645L,44646L,44647L,
  80187. 44648L,44649L,44650L,44651L,44652L,44653L,44654L,44655L,44656L,44657L,
  80188. 44658L,44659L,44660L,44661L,44662L,44663L,44664L,44665L,44666L,44667L,
  80189. 44668L,44669L,44670L,44671L,44672L,44673L,44674L,44675L,44676L,44677L,
  80190. 44678L,44679L,44680L,44681L,44682L,44683L,44684L,44685L,44686L,44687L,
  80191. 44688L,44689L,44690L,44691L,44692L,44693L,44694L,44695L,44696L,44697L,
  80192. 44698L,44699L,44700L,44701L,44702L,44703L,44704L,44705L,44706L,44707L,
  80193. 44708L,44709L,44710L,44711L,44712L,44713L,44714L,44715L,44716L,44717L,
  80194. 44718L,44719L,44720L,44721L,44722L,44723L,44724L,44725L,44726L,44727L,
  80195. 44728L,44729L,44730L,44731L,44732L,44733L,44734L,44735L,44736L,44737L,
  80196. 44738L,44739L,44740L,44741L,44742L,44743L,44744L,44745L,44746L,44747L,
  80197. 44748L,44749L,44750L,44751L,44752L,44753L,44754L,44755L,44756L,44757L,
  80198. 44758L,44759L,44760L,44761L,44762L,44763L,44764L,44765L,44766L,44767L,
  80199. 44768L,44769L,44770L,44771L,44772L,44773L,44774L,44775L,44776L,44777L,
  80200. 44778L,44779L,44780L,44781L,44782L,44783L,44784L,44785L,44786L,44787L,
  80201. 44788L,44789L,44790L,44791L,44792L,44793L,44794L,44795L,44796L,44797L,
  80202. 44798L,44799L,44800L,44801L,44802L,44803L,44804L,44805L,44806L,44807L,
  80203. 44808L,44809L,44810L,44811L,44812L,44813L,44814L,44815L,44816L,44817L,
  80204. 44818L,44819L,44820L,44821L,44822L,44823L,44824L,44825L,44826L,44827L,
  80205. 44828L,44829L,44830L,44831L,44832L,44833L,44834L,44835L,44836L,44837L,
  80206. 44838L,44839L,44840L,44841L,44842L,44843L,44844L,44845L,44846L,44847L,
  80207. 44848L,44849L,44850L,44851L,44852L,44853L,44854L,44855L,44856L,44857L,
  80208. 44858L,44859L,44860L,44861L,44862L,44863L,44864L,44865L,44866L,44867L,
  80209. 44868L,44869L,44870L,44871L,44872L,44873L,44874L,44875L,44876L,44877L,
  80210. 44878L,44879L,44880L,44881L,44882L,44883L,44884L,44885L,44886L,44887L,
  80211. 44888L,44889L,44890L,44891L,44892L,44893L,44894L,44895L,44896L,44897L,
  80212. 44898L,44899L,44900L,44901L,44902L,44903L,44904L,44905L,44906L,44907L,
  80213. 44908L,44909L,44910L,44911L,44912L,44913L,44914L,44915L,44916L,44917L,
  80214. 44918L,44919L,44920L,44921L,44922L,44923L,44924L,44925L,44926L,44927L,
  80215. 44928L,44929L,44930L,44931L,44932L,44933L,44934L,44935L,44936L,44937L,
  80216. 44938L,44939L,44940L,44941L,44942L,44943L,44944L,44945L,44946L,44947L,
  80217. 44948L,44949L,44950L,44951L,44952L,44953L,44954L,44955L,44956L,44957L,
  80218. 44958L,44959L,44960L,44961L,44962L,44963L,44964L,44965L,44966L,44967L,
  80219. 44968L,44969L,44970L,44971L,44972L,44973L,44974L,44975L,44976L,44977L,
  80220. 44978L,44979L,44980L,44981L,44982L,44983L,44984L,44985L,44986L,44987L,
  80221. 44988L,44989L,44990L,44991L,44992L,44993L,44994L,44995L,44996L,44997L,
  80222. 44998L,44999L,45000L,45001L,45002L,45003L,45004L,45005L,45006L,45007L,
  80223. 45008L,45009L,45010L,45011L,45012L,45013L,45014L,45015L,45016L,45017L,
  80224. 45018L,45019L,45020L,45021L,45022L,45023L,45024L,45025L,45026L,45027L,
  80225. 45028L,45029L,45030L,45031L,45032L,45033L,45034L,45035L,45036L,45037L,
  80226. 45038L,45039L,45040L,45041L,45042L,45043L,45044L,45045L,45046L,45047L,
  80227. 45048L,45049L,45050L,45051L,45052L,45053L,45054L,45055L,45056L,45057L,
  80228. 45058L,45059L,45060L,45061L,45062L,45063L,45064L,45065L,45066L,45067L,
  80229. 45068L,45069L,45070L,45071L,45072L,45073L,45074L,45075L,45076L,45077L,
  80230. 45078L,45079L,45080L,45081L,45082L,45083L,45084L,45085L,45086L,45087L,
  80231. 45088L,45089L,45090L,45091L,45092L,45093L,45094L,45095L,45096L,45097L,
  80232. 45098L,45099L,45100L,45101L,45102L,45103L,45104L,45105L,45106L,45107L,
  80233. 45108L,45109L,45110L,45111L,45112L,45113L,45114L,45115L,45116L,45117L,
  80234. 45118L,45119L,45120L,45121L,45122L,45123L,45124L,45125L,45126L,45127L,
  80235. 45128L,45129L,45130L,45131L,45132L,45133L,45134L,45135L,45136L,45137L,
  80236. 45138L,45139L,45140L,45141L,45142L,45143L,45144L,45145L,45146L,45147L,
  80237. 45148L,45149L,45150L,45151L,45152L,45153L,45154L,45155L,45156L,45157L,
  80238. 45158L,45159L,45160L,45161L,45162L,45163L,45164L,45165L,45166L,45167L,
  80239. 45168L,45169L,45170L,45171L,45172L,45173L,45174L,45175L,45176L,45177L,
  80240. 45178L,45179L,45180L,45181L,45182L,45183L,45184L,45185L,45186L,45187L,
  80241. 45188L,45189L,45190L,45191L,45192L,45193L,45194L,45195L,45196L,45197L,
  80242. 45198L,45199L,45200L,45201L,45202L,45203L,45204L,45205L,45206L,45207L,
  80243. 45208L,45209L,45210L,45211L,45212L,45213L,45214L,45215L,45216L,45217L,
  80244. 45218L,45219L,45220L,45221L,45222L,45223L,45224L,45225L,45226L,45227L,
  80245. 45228L,45229L,45230L,45231L,45232L,45233L,45234L,45235L,45236L,45237L,
  80246. 45238L,45239L,45240L,45241L,45242L,45243L,45244L,45245L,45246L,45247L,
  80247. 45248L,45249L,45250L,45251L,45252L,45253L,45254L,45255L,45256L,45257L,
  80248. 45258L,45259L,45260L,45261L,45262L,45263L,45264L,45265L,45266L,45267L,
  80249. 45268L,45269L,45270L,45271L,45272L,45273L,45274L,45275L,45276L,45277L,
  80250. 45278L,45279L,45280L,45281L,45282L,45283L,45284L,45285L,45286L,45287L,
  80251. 45288L,45289L,45290L,45291L,45292L,45293L,45294L,45295L,45296L,45297L,
  80252. 45298L,45299L,45300L,45301L,45302L,45303L,45304L,45305L,45306L,45307L,
  80253. 45308L,45309L,45310L,45311L,45312L,45313L,45314L,45315L,45316L,45317L,
  80254. 45318L,45319L,45320L,45321L,45322L,45323L,45324L,45325L,45326L,45327L,
  80255. 45328L,45329L,45330L,45331L,45332L,45333L,45334L,45335L,45336L,45337L,
  80256. 45338L,45339L,45340L,45341L,45342L,45343L,45344L,45345L,45346L,45347L,
  80257. 45348L,45349L,45350L,45351L,45352L,45353L,45354L,45355L,45356L,45357L,
  80258. 45358L,45359L,45360L,45361L,45362L,45363L,45364L,45365L,45366L,45367L,
  80259. 45368L,45369L,45370L,45371L,45372L,45373L,45374L,45375L,45376L,45377L,
  80260. 45378L,45379L,45380L,45381L,45382L,45383L,45384L,45385L,45386L,45387L,
  80261. 45388L,45389L,45390L,45391L,45392L,45393L,45394L,45395L,45396L,45397L,
  80262. 45398L,45399L,45400L,45401L,45402L,45403L,45404L,45405L,45406L,45407L,
  80263. 45408L,45409L,45410L,45411L,45412L,45413L,45414L,45415L,45416L,45417L,
  80264. 45418L,45419L,45420L,45421L,45422L,45423L,45424L,45425L,45426L,45427L,
  80265. 45428L,45429L,45430L,45431L,45432L,45433L,45434L,45435L,45436L,45437L,
  80266. 45438L,45439L,45440L,45441L,45442L,45443L,45444L,45445L,45446L,45447L,
  80267. 45448L,45449L,45450L,45451L,45452L,45453L,45454L,45455L,45456L,45457L,
  80268. 45458L,45459L,45460L,45461L,45462L,45463L,45464L,45465L,45466L,45467L,
  80269. 45468L,45469L,45470L,45471L,45472L,45473L,45474L,45475L,45476L,45477L,
  80270. 45478L,45479L,45480L,45481L,45482L,45483L,45484L,45485L,45486L,45487L,
  80271. 45488L,45489L,45490L,45491L,45492L,45493L,45494L,45495L,45496L,45497L,
  80272. 45498L,45499L,45500L,45501L,45502L,45503L,45504L,45505L,45506L,45507L,
  80273. 45508L,45509L,45510L,45511L,45512L,45513L,45514L,45515L,45516L,45517L,
  80274. 45518L,45519L,45520L,45521L,45522L,45523L,45524L,45525L,45526L,45527L,
  80275. 45528L,45529L,45530L,45531L,45532L,45533L,45534L,45535L,45536L,45537L,
  80276. 45538L,45539L,45540L,45541L,45542L,45543L,45544L,45545L,45546L,45547L,
  80277. 45548L,45549L,45550L,45551L,45552L,45553L,45554L,45555L,45556L,45557L,
  80278. 45558L,45559L,45560L,45561L,45562L,45563L,45564L,45565L,45566L,45567L,
  80279. 45568L,45569L,45570L,45571L,45572L,45573L,45574L,45575L,45576L,45577L,
  80280. 45578L,45579L,45580L,45581L,45582L,45583L,45584L,45585L,45586L,45587L,
  80281. 45588L,45589L,45590L,45591L,45592L,45593L,45594L,45595L,45596L,45597L,
  80282. 45598L,45599L,45600L,45601L,45602L,45603L,45604L,45605L,45606L,45607L,
  80283. 45608L,45609L,45610L,45611L,45612L,45613L,45614L,45615L,45616L,45617L,
  80284. 45618L,45619L,45620L,45621L,45622L,45623L,45624L,45625L,45626L,45627L,
  80285. 45628L,45629L,45630L,45631L,45632L,45633L,45634L,45635L,45636L,45637L,
  80286. 45638L,45639L,45640L,45641L,45642L,45643L,45644L,45645L,45646L,45647L,
  80287. 45648L,45649L,45650L,45651L,45652L,45653L,45654L,45655L,45656L,45657L,
  80288. 45658L,45659L,45660L,45661L,45662L,45663L,45664L,45665L,45666L,45667L,
  80289. 45668L,45669L,45670L,45671L,45672L,45673L,45674L,45675L,45676L,45677L,
  80290. 45678L,45679L,45680L,45681L,45682L,45683L,45684L,45685L,45686L,45687L,
  80291. 45688L,45689L,45690L,45691L,45692L,45693L,45694L,45695L,45696L,45697L,
  80292. 45698L,45699L,45700L,45701L,45702L,45703L,45704L,45705L,45706L,45707L,
  80293. 45708L,45709L,45710L,45711L,45712L,45713L,45714L,45715L,45716L,45717L,
  80294. 45718L,45719L,45720L,45721L,45722L,45723L,45724L,45725L,45726L,45727L,
  80295. 45728L,45729L,45730L,45731L,45732L,45733L,45734L,45735L,45736L,45737L,
  80296. 45738L,45739L,45740L,45741L,45742L,45743L,45744L,45745L,45746L,45747L,
  80297. 45748L,45749L,45750L,45751L,45752L,45753L,45754L,45755L,45756L,45757L,
  80298. 45758L,45759L,45760L,45761L,45762L,45763L,45764L,45765L,45766L,45767L,
  80299. 45768L,45769L,45770L,45771L,45772L,45773L,45774L,45775L,45776L,45777L,
  80300. 45778L,45779L,45780L,45781L,45782L,45783L,45784L,45785L,45786L,45787L,
  80301. 45788L,45789L,45790L,45791L,45792L,45793L,45794L,45795L,45796L,45797L,
  80302. 45798L,45799L,45800L,45801L,45802L,45803L,45804L,45805L,45806L,45807L,
  80303. 45808L,45809L,45810L,45811L,45812L,45813L,45814L,45815L,45816L,45817L,
  80304. 45818L,45819L,45820L,45821L,45822L,45823L,45824L,45825L,45826L,45827L,
  80305. 45828L,45829L,45830L,45831L,45832L,45833L,45834L,45835L,45836L,45837L,
  80306. 45838L,45839L,45840L,45841L,45842L,45843L,45844L,45845L,45846L,45847L,
  80307. 45848L,45849L,45850L,45851L,45852L,45853L,45854L,45855L,45856L,45857L,
  80308. 45858L,45859L,45860L,45861L,45862L,45863L,45864L,45865L,45866L,45867L,
  80309. 45868L,45869L,45870L,45871L,45872L,45873L,45874L,45875L,45876L,45877L,
  80310. 45878L,45879L,45880L,45881L,45882L,45883L,45884L,45885L,45886L,45887L,
  80311. 45888L,45889L,45890L,45891L,45892L,45893L,45894L,45895L,45896L,45897L,
  80312. 45898L,45899L,45900L,45901L,45902L,45903L,45904L,45905L,45906L,45907L,
  80313. 45908L,45909L,45910L,45911L,45912L,45913L,45914L,45915L,45916L,45917L,
  80314. 45918L,45919L,45920L,45921L,45922L,45923L,45924L,45925L,45926L,45927L,
  80315. 45928L,45929L,45930L,45931L,45932L,45933L,45934L,45935L,45936L,45937L,
  80316. 45938L,45939L,45940L,45941L,45942L,45943L,45944L,45945L,45946L,45947L,
  80317. 45948L,45949L,45950L,45951L,45952L,45953L,45954L,45955L,45956L,45957L,
  80318. 45958L,45959L,45960L,45961L,45962L,45963L,45964L,45965L,45966L,45967L,
  80319. 45968L,45969L,45970L,45971L,45972L,45973L,45974L,45975L,45976L,45977L,
  80320. 45978L,45979L,45980L,45981L,45982L,45983L,45984L,45985L,45986L,45987L,
  80321. 45988L,45989L,45990L,45991L,45992L,45993L,45994L,45995L,45996L,45997L,
  80322. 45998L,45999L,46000L,46001L,46002L,46003L,46004L,46005L,46006L,46007L,
  80323. 46008L,46009L,46010L,46011L,46012L,46013L,46014L,46015L,46016L,46017L,
  80324. 46018L,46019L,46020L,46021L,46022L,46023L,46024L,46025L,46026L,46027L,
  80325. 46028L,46029L,46030L,46031L,46032L,46033L,46034L,46035L,46036L,46037L,
  80326. 46038L,46039L,46040L,46041L,46042L,46043L,46044L,46045L,46046L,46047L,
  80327. 46048L,46049L,46050L,46051L,46052L,46053L,46054L,46055L,46056L,46057L,
  80328. 46058L,46059L,46060L,46061L,46062L,46063L,46064L,46065L,46066L,46067L,
  80329. 46068L,46069L,46070L,46071L,46072L,46073L,46074L,46075L,46076L,46077L,
  80330. 46078L,46079L,46080L,46081L,46082L,46083L,46084L,46085L,46086L,46087L,
  80331. 46088L,46089L,46090L,46091L,46092L,46093L,46094L,46095L,46096L,46097L,
  80332. 46098L,46099L,46100L,46101L,46102L,46103L,46104L,46105L,46106L,46107L,
  80333. 46108L,46109L,46110L,46111L,46112L,46113L,46114L,46115L,46116L,46117L,
  80334. 46118L,46119L,46120L,46121L,46122L,46123L,46124L,46125L,46126L,46127L,
  80335. 46128L,46129L,46130L,46131L,46132L,46133L,46134L,46135L,46136L,46137L,
  80336. 46138L,46139L,46140L,46141L,46142L,46143L,46144L,46145L,46146L,46147L,
  80337. 46148L,46149L,46150L,46151L,46152L,46153L,46154L,46155L,46156L,46157L,
  80338. 46158L,46159L,46160L,46161L,46162L,46163L,46164L,46165L,46166L,46167L,
  80339. 46168L,46169L,46170L,46171L,46172L,46173L,46174L,46175L,46176L,46177L,
  80340. 46178L,46179L,46180L,46181L,46182L,46183L,46184L,46185L,46186L,46187L,
  80341. 46188L,46189L,46190L,46191L,46192L,46193L,46194L,46195L,46196L,46197L,
  80342. 46198L,46199L,46200L,46201L,46202L,46203L,46204L,46205L,46206L,46207L,
  80343. 46208L,46209L,46210L,46211L,46212L,46213L,46214L,46215L,46216L,46217L,
  80344. 46218L,46219L,46220L,46221L,46222L,46223L,46224L,46225L,46226L,46227L,
  80345. 46228L,46229L,46230L,46231L,46232L,46233L,46234L,46235L,46236L,46237L,
  80346. 46238L,46239L,46240L,46241L,46242L,46243L,46244L,46245L,46246L,46247L,
  80347. 46248L,46249L,46250L,46251L,46252L,46253L,46254L,46255L,46256L,46257L,
  80348. 46258L,46259L,46260L,46261L,46262L,46263L,46264L,46265L,46266L,46267L,
  80349. 46268L,46269L,46270L,46271L,46272L,46273L,46274L,46275L,46276L,46277L,
  80350. 46278L,46279L,46280L,46281L,46282L,46283L,46284L,46285L,46286L,46287L,
  80351. 46288L,46289L,46290L,46291L,46292L,46293L,46294L,46295L,46296L,46297L,
  80352. 46298L,46299L,46300L,46301L,46302L,46303L,46304L,46305L,46306L,46307L,
  80353. 46308L,46309L,46310L,46311L,46312L,46313L,46314L,46315L,46316L,46317L,
  80354. 46318L,46319L,46320L,46321L,46322L,46323L,46324L,46325L,46326L,46327L,
  80355. 46328L,46329L,46330L,46331L,46332L,46333L,46334L,46335L,46336L,46337L,
  80356. 46338L,46339L,46340L,46341L,46342L,46343L,46344L,46345L,46346L,46347L,
  80357. 46348L,46349L,46350L,46351L,46352L,46353L,46354L,46355L,46356L,46357L,
  80358. 46358L,46359L,46360L,46361L,46362L,46363L,46364L,46365L,46366L,46367L,
  80359. 46368L,46369L,46370L,46371L,46372L,46373L,46374L,46375L,46376L,46377L,
  80360. 46378L,46379L,46380L,46381L,46382L,46383L,46384L,46385L,46386L,46387L,
  80361. 46388L,46389L,46390L,46391L,46392L,46393L,46394L,46395L,46396L,46397L,
  80362. 46398L,46399L,46400L,46401L,46402L,46403L,46404L,46405L,46406L,46407L,
  80363. 46408L,46409L,46410L,46411L,46412L,46413L,46414L,46415L,46416L,46417L,
  80364. 46418L,46419L,46420L,46421L,46422L,46423L,46424L,46425L,46426L,46427L,
  80365. 46428L,46429L,46430L,46431L,46432L,46433L,46434L,46435L,46436L,46437L,
  80366. 46438L,46439L,46440L,46441L,46442L,46443L,46444L,46445L,46446L,46447L,
  80367. 46448L,46449L,46450L,46451L,46452L,46453L,46454L,46455L,46456L,46457L,
  80368. 46458L,46459L,46460L,46461L,46462L,46463L,46464L,46465L,46466L,46467L,
  80369. 46468L,46469L,46470L,46471L,46472L,46473L,46474L,46475L,46476L,46477L,
  80370. 46478L,46479L,46480L,46481L,46482L,46483L,46484L,46485L,46486L,46487L,
  80371. 46488L,46489L,46490L,46491L,46492L,46493L,46494L,46495L,46496L,46497L,
  80372. 46498L,46499L,46500L,46501L,46502L,46503L,46504L,46505L,46506L,46507L,
  80373. 46508L,46509L,46510L,46511L,46512L,46513L,46514L,46515L,46516L,46517L,
  80374. 46518L,46519L,46520L,46521L,46522L,46523L,46524L,46525L,46526L,46527L,
  80375. 46528L,46529L,46530L,46531L,46532L,46533L,46534L,46535L,46536L,46537L,
  80376. 46538L,46539L,46540L,46541L,46542L,46543L,46544L,46545L,46546L,46547L,
  80377. 46548L,46549L,46550L,46551L,46552L,46553L,46554L,46555L,46556L,46557L,
  80378. 46558L,46559L,46560L,46561L,46562L,46563L,46564L,46565L,46566L,46567L,
  80379. 46568L,46569L,46570L,46571L,46572L,46573L,46574L,46575L,46576L,46577L,
  80380. 46578L,46579L,46580L,46581L,46582L,46583L,46584L,46585L,46586L,46587L,
  80381. 46588L,46589L,46590L,46591L,46592L,46593L,46594L,46595L,46596L,46597L,
  80382. 46598L,46599L,46600L,46601L,46602L,46603L,46604L,46605L,46606L,46607L,
  80383. 46608L,46609L,46610L,46611L,46612L,46613L,46614L,46615L,46616L,46617L,
  80384. 46618L,46619L,46620L,46621L,46622L,46623L,46624L,46625L,46626L,46627L,
  80385. 46628L,46629L,46630L,46631L,46632L,46633L,46634L,46635L,46636L,46637L,
  80386. 46638L,46639L,46640L,46641L,46642L,46643L,46644L,46645L,46646L,46647L,
  80387. 46648L,46649L,46650L,46651L,46652L,46653L,46654L,46655L,46656L,46657L,
  80388. 46658L,46659L,46660L,46661L,46662L,46663L,46664L,46665L,46666L,46667L,
  80389. 46668L,46669L,46670L,46671L,46672L,46673L,46674L,46675L,46676L,46677L,
  80390. 46678L,46679L,46680L,46681L,46682L,46683L,46684L,46685L,46686L,46687L,
  80391. 46688L,46689L,46690L,46691L,46692L,46693L,46694L,46695L,46696L,46697L,
  80392. 46698L,46699L,46700L,46701L,46702L,46703L,46704L,46705L,46706L,46707L,
  80393. 46708L,46709L,46710L,46711L,46712L,46713L,46714L,46715L,46716L,46717L,
  80394. 46718L,46719L,46720L,46721L,46722L,46723L,46724L,46725L,46726L,46727L,
  80395. 46728L,46729L,46730L,46731L,46732L,46733L,46734L,46735L,46736L,46737L,
  80396. 46738L,46739L,46740L,46741L,46742L,46743L,46744L,46745L,46746L,46747L,
  80397. 46748L,46749L,46750L,46751L,46752L,46753L,46754L,46755L,46756L,46757L,
  80398. 46758L,46759L,46760L,46761L,46762L,46763L,46764L,46765L,46766L,46767L,
  80399. 46768L,46769L,46770L,46771L,46772L,46773L,46774L,46775L,46776L,46777L,
  80400. 46778L,46779L,46780L,46781L,46782L,46783L,46784L,46785L,46786L,46787L,
  80401. 46788L,46789L,46790L,46791L,46792L,46793L,46794L,46795L,46796L,46797L,
  80402. 46798L,46799L,46800L,46801L,46802L,46803L,46804L,46805L,46806L,46807L,
  80403. 46808L,46809L,46810L,46811L,46812L,46813L,46814L,46815L,46816L,46817L,
  80404. 46818L,46819L,46820L,46821L,46822L,46823L,46824L,46825L,46826L,46827L,
  80405. 46828L,46829L,46830L,46831L,46832L,46833L,46834L,46835L,46836L,46837L,
  80406. 46838L,46839L,46840L,46841L,46842L,46843L,46844L,46845L,46846L,46847L,
  80407. 46848L,46849L,46850L,46851L,46852L,46853L,46854L,46855L,46856L,46857L,
  80408. 46858L,46859L,46860L,46861L,46862L,46863L,46864L,46865L,46866L,46867L,
  80409. 46868L,46869L,46870L,46871L,46872L,46873L,46874L,46875L,46876L,46877L,
  80410. 46878L,46879L,46880L,46881L,46882L,46883L,46884L,46885L,46886L,46887L,
  80411. 46888L,46889L,46890L,46891L,46892L,46893L,46894L,46895L,46896L,46897L,
  80412. 46898L,46899L,46900L,46901L,46902L,46903L,46904L,46905L,46906L,46907L,
  80413. 46908L,46909L,46910L,46911L,46912L,46913L,46914L,46915L,46916L,46917L,
  80414. 46918L,46919L,46920L,46921L,46922L,46923L,46924L,46925L,46926L,46927L,
  80415. 46928L,46929L,46930L,46931L,46932L,46933L,46934L,46935L,46936L,46937L,
  80416. 46938L,46939L,46940L,46941L,46942L,46943L,46944L,46945L,46946L,46947L,
  80417. 46948L,46949L,46950L,46951L,46952L,46953L,46954L,46955L,46956L,46957L,
  80418. 46958L,46959L,46960L,46961L,46962L,46963L,46964L,46965L,46966L,46967L,
  80419. 46968L,46969L,46970L,46971L,46972L,46973L,46974L,46975L,46976L,46977L,
  80420. 46978L,46979L,46980L,46981L,46982L,46983L,46984L,46985L,46986L,46987L,
  80421. 46988L,46989L,46990L,46991L,46992L,46993L,46994L,46995L,46996L,46997L,
  80422. 46998L,46999L,47000L,47001L,47002L,47003L,47004L,47005L,47006L,47007L,
  80423. 47008L,47009L,47010L,47011L,47012L,47013L,47014L,47015L,47016L,47017L,
  80424. 47018L,47019L,47020L,47021L,47022L,47023L,47024L,47025L,47026L,47027L,
  80425. 47028L,47029L,47030L,47031L,47032L,47033L,47034L,47035L,47036L,47037L,
  80426. 47038L,47039L,47040L,47041L,47042L,47043L,47044L,47045L,47046L,47047L,
  80427. 47048L,47049L,47050L,47051L,47052L,47053L,47054L,47055L,47056L,47057L,
  80428. 47058L,47059L,47060L,47061L,47062L,47063L,47064L,47065L,47066L,47067L,
  80429. 47068L,47069L,47070L,47071L,47072L,47073L,47074L,47075L,47076L,47077L,
  80430. 47078L,47079L,47080L,47081L,47082L,47083L,47084L,47085L,47086L,47087L,
  80431. 47088L,47089L,47090L,47091L,47092L,47093L,47094L,47095L,47096L,47097L,
  80432. 47098L,47099L,47100L,47101L,47102L,47103L,47104L,47105L,47106L,47107L,
  80433. 47108L,47109L,47110L,47111L,47112L,47113L,47114L,47115L,47116L,47117L,
  80434. 47118L,47119L,47120L,47121L,47122L,47123L,47124L,47125L,47126L,47127L,
  80435. 47128L,47129L,47130L,47131L,47132L,47133L,47134L,47135L,47136L,47137L,
  80436. 47138L,47139L,47140L,47141L,47142L,47143L,47144L,47145L,47146L,47147L,
  80437. 47148L,47149L,47150L,47151L,47152L,47153L,47154L,47155L,47156L,47157L,
  80438. 47158L,47159L,47160L,47161L,47162L,47163L,47164L,47165L,47166L,47167L,
  80439. 47168L,47169L,47170L,47171L,47172L,47173L,47174L,47175L,47176L,47177L,
  80440. 47178L,47179L,47180L,47181L,47182L,47183L,47184L,47185L,47186L,47187L,
  80441. 47188L,47189L,47190L,47191L,47192L,47193L,47194L,47195L,47196L,47197L,
  80442. 47198L,47199L,47200L,47201L,47202L,47203L,47204L,47205L,47206L,47207L,
  80443. 47208L,47209L,47210L,47211L,47212L,47213L,47214L,47215L,47216L,47217L,
  80444. 47218L,47219L,47220L,47221L,47222L,47223L,47224L,47225L,47226L,47227L,
  80445. 47228L,47229L,47230L,47231L,47232L,47233L,47234L,47235L,47236L,47237L,
  80446. 47238L,47239L,47240L,47241L,47242L,47243L,47244L,47245L,47246L,47247L,
  80447. 47248L,47249L,47250L,47251L,47252L,47253L,47254L,47255L,47256L,47257L,
  80448. 47258L,47259L,47260L,47261L,47262L,47263L,47264L,47265L,47266L,47267L,
  80449. 47268L,47269L,47270L,47271L,47272L,47273L,47274L,47275L,47276L,47277L,
  80450. 47278L,47279L,47280L,47281L,47282L,47283L,47284L,47285L,47286L,47287L,
  80451. 47288L,47289L,47290L,47291L,47292L,47293L,47294L,47295L,47296L,47297L,
  80452. 47298L,47299L,47300L,47301L,47302L,47303L,47304L,47305L,47306L,47307L,
  80453. 47308L,47309L,47310L,47311L,47312L,47313L,47314L,47315L,47316L,47317L,
  80454. 47318L,47319L,47320L,47321L,47322L,47323L,47324L,47325L,47326L,47327L,
  80455. 47328L,47329L,47330L,47331L,47332L,47333L,47334L,47335L,47336L,47337L,
  80456. 47338L,47339L,47340L,47341L,47342L,47343L,47344L,47345L,47346L,47347L,
  80457. 47348L,47349L,47350L,47351L,47352L,47353L,47354L,47355L,47356L,47357L,
  80458. 47358L,47359L,47360L,47361L,47362L,47363L,47364L,47365L,47366L,47367L,
  80459. 47368L,47369L,47370L,47371L,47372L,47373L,47374L,47375L,47376L,47377L,
  80460. 47378L,47379L,47380L,47381L,47382L,47383L,47384L,47385L,47386L,47387L,
  80461. 47388L,47389L,47390L,47391L,47392L,47393L,47394L,47395L,47396L,47397L,
  80462. 47398L,47399L,47400L,47401L,47402L,47403L,47404L,47405L,47406L,47407L,
  80463. 47408L,47409L,47410L,47411L,47412L,47413L,47414L,47415L,47416L,47417L,
  80464. 47418L,47419L,47420L,47421L,47422L,47423L,47424L,47425L,47426L,47427L,
  80465. 47428L,47429L,47430L,47431L,47432L,47433L,47434L,47435L,47436L,47437L,
  80466. 47438L,47439L,47440L,47441L,47442L,47443L,47444L,47445L,47446L,47447L,
  80467. 47448L,47449L,47450L,47451L,47452L,47453L,47454L,47455L,47456L,47457L,
  80468. 47458L,47459L,47460L,47461L,47462L,47463L,47464L,47465L,47466L,47467L,
  80469. 47468L,47469L,47470L,47471L,47472L,47473L,47474L,47475L,47476L,47477L,
  80470. 47478L,47479L,47480L,47481L,47482L,47483L,47484L,47485L,47486L,47487L,
  80471. 47488L,47489L,47490L,47491L,47492L,47493L,47494L,47495L,47496L,47497L,
  80472. 47498L,47499L,47500L,47501L,47502L,47503L,47504L,47505L,47506L,47507L,
  80473. 47508L,47509L,47510L,47511L,47512L,47513L,47514L,47515L,47516L,47517L,
  80474. 47518L,47519L,47520L,47521L,47522L,47523L,47524L,47525L,47526L,47527L,
  80475. 47528L,47529L,47530L,47531L,47532L,47533L,47534L,47535L,47536L,47537L,
  80476. 47538L,47539L,47540L,47541L,47542L,47543L,47544L,47545L,47546L,47547L,
  80477. 47548L,47549L,47550L,47551L,47552L,47553L,47554L,47555L,47556L,47557L,
  80478. 47558L,47559L,47560L,47561L,47562L,47563L,47564L,47565L,47566L,47567L,
  80479. 47568L,47569L,47570L,47571L,47572L,47573L,47574L,47575L,47576L,47577L,
  80480. 47578L,47579L,47580L,47581L,47582L,47583L,47584L,47585L,47586L,47587L,
  80481. 47588L,47589L,47590L,47591L,47592L,47593L,47594L,47595L,47596L,47597L,
  80482. 47598L,47599L,47600L,47601L,47602L,47603L,47604L,47605L,47606L,47607L,
  80483. 47608L,47609L,47610L,47611L,47612L,47613L,47614L,47615L,47616L,47617L,
  80484. 47618L,47619L,47620L,47621L,47622L,47623L,47624L,47625L,47626L,47627L,
  80485. 47628L,47629L,47630L,47631L,47632L,47633L,47634L,47635L,47636L,47637L,
  80486. 47638L,47639L,47640L,47641L,47642L,47643L,47644L,47645L,47646L,47647L,
  80487. 47648L,47649L,47650L,47651L,47652L,47653L,47654L,47655L,47656L,47657L,
  80488. 47658L,47659L,47660L,47661L,47662L,47663L,47664L,47665L,47666L,47667L,
  80489. 47668L,47669L,47670L,47671L,47672L,47673L,47674L,47675L,47676L,47677L,
  80490. 47678L,47679L,47680L,47681L,47682L,47683L,47684L,47685L,47686L,47687L,
  80491. 47688L,47689L,47690L,47691L,47692L,47693L,47694L,47695L,47696L,47697L,
  80492. 47698L,47699L,47700L,47701L,47702L,47703L,47704L,47705L,47706L,47707L,
  80493. 47708L,47709L,47710L,47711L,47712L,47713L,47714L,47715L,47716L,47717L,
  80494. 47718L,47719L,47720L,47721L,47722L,47723L,47724L,47725L,47726L,47727L,
  80495. 47728L,47729L,47730L,47731L,47732L,47733L,47734L,47735L,47736L,47737L,
  80496. 47738L,47739L,47740L,47741L,47742L,47743L,47744L,47745L,47746L,47747L,
  80497. 47748L,47749L,47750L,47751L,47752L,47753L,47754L,47755L,47756L,47757L,
  80498. 47758L,47759L,47760L,47761L,47762L,47763L,47764L,47765L,47766L,47767L,
  80499. 47768L,47769L,47770L,47771L,47772L,47773L,47774L,47775L,47776L,47777L,
  80500. 47778L,47779L,47780L,47781L,47782L,47783L,47784L,47785L,47786L,47787L,
  80501. 47788L,47789L,47790L,47791L,47792L,47793L,47794L,47795L,47796L,47797L,
  80502. 47798L,47799L,47800L,47801L,47802L,47803L,47804L,47805L,47806L,47807L,
  80503. 47808L,47809L,47810L,47811L,47812L,47813L,47814L,47815L,47816L,47817L,
  80504. 47818L,47819L,47820L,47821L,47822L,47823L,47824L,47825L,47826L,47827L,
  80505. 47828L,47829L,47830L,47831L,47832L,47833L,47834L,47835L,47836L,47837L,
  80506. 47838L,47839L,47840L,47841L,47842L,47843L,47844L,47845L,47846L,47847L,
  80507. 47848L,47849L,47850L,47851L,47852L,47853L,47854L,47855L,47856L,47857L,
  80508. 47858L,47859L,47860L,47861L,47862L,47863L,47864L,47865L,47866L,47867L,
  80509. 47868L,47869L,47870L,47871L,47872L,47873L,47874L,47875L,47876L,47877L,
  80510. 47878L,47879L,47880L,47881L,47882L,47883L,47884L,47885L,47886L,47887L,
  80511. 47888L,47889L,47890L,47891L,47892L,47893L,47894L,47895L,47896L,47897L,
  80512. 47898L,47899L,47900L,47901L,47902L,47903L,47904L,47905L,47906L,47907L,
  80513. 47908L,47909L,47910L,47911L,47912L,47913L,47914L,47915L,47916L,47917L,
  80514. 47918L,47919L,47920L,47921L,47922L,47923L,47924L,47925L,47926L,47927L,
  80515. 47928L,47929L,47930L,47931L,47932L,47933L,47934L,47935L,47936L,47937L,
  80516. 47938L,47939L,47940L,47941L,47942L,47943L,47944L,47945L,47946L,47947L,
  80517. 47948L,47949L,47950L,47951L,47952L,47953L,47954L,47955L,47956L,47957L,
  80518. 47958L,47959L,47960L,47961L,47962L,47963L,47964L,47965L,47966L,47967L,
  80519. 47968L,47969L,47970L,47971L,47972L,47973L,47974L,47975L,47976L,47977L,
  80520. 47978L,47979L,47980L,47981L,47982L,47983L,47984L,47985L,47986L,47987L,
  80521. 47988L,47989L,47990L,47991L,47992L,47993L,47994L,47995L,47996L,47997L,
  80522. 47998L,47999L,48000L,48001L,48002L,48003L,48004L,48005L,48006L,48007L,
  80523. 48008L,48009L,48010L,48011L,48012L,48013L,48014L,48015L,48016L,48017L,
  80524. 48018L,48019L,48020L,48021L,48022L,48023L,48024L,48025L,48026L,48027L,
  80525. 48028L,48029L,48030L,48031L,48032L,48033L,48034L,48035L,48036L,48037L,
  80526. 48038L,48039L,48040L,48041L,48042L,48043L,48044L,48045L,48046L,48047L,
  80527. 48048L,48049L,48050L,48051L,48052L,48053L,48054L,48055L,48056L,48057L,
  80528. 48058L,48059L,48060L,48061L,48062L,48063L,48064L,48065L,48066L,48067L,
  80529. 48068L,48069L,48070L,48071L,48072L,48073L,48074L,48075L,48076L,48077L,
  80530. 48078L,48079L,48080L,48081L,48082L,48083L,48084L,48085L,48086L,48087L,
  80531. 48088L,48089L,48090L,48091L,48092L,48093L,48094L,48095L,48096L,48097L,
  80532. 48098L,48099L,48100L,48101L,48102L,48103L,48104L,48105L,48106L,48107L,
  80533. 48108L,48109L,48110L,48111L,48112L,48113L,48114L,48115L,48116L,48117L,
  80534. 48118L,48119L,48120L,48121L,48122L,48123L,48124L,48125L,48126L,48127L,
  80535. 48128L,48129L,48130L,48131L,48132L,48133L,48134L,48135L,48136L,48137L,
  80536. 48138L,48139L,48140L,48141L,48142L,48143L,48144L,48145L,48146L,48147L,
  80537. 48148L,48149L,48150L,48151L,48152L,48153L,48154L,48155L,48156L,48157L,
  80538. 48158L,48159L,48160L,48161L,48162L,48163L,48164L,48165L,48166L,48167L,
  80539. 48168L,48169L,48170L,48171L,48172L,48173L,48174L,48175L,48176L,48177L,
  80540. 48178L,48179L,48180L,48181L,48182L,48183L,48184L,48185L,48186L,48187L,
  80541. 48188L,48189L,48190L,48191L,48192L,48193L,48194L,48195L,48196L,48197L,
  80542. 48198L,48199L,48200L,48201L,48202L,48203L,48204L,48205L,48206L,48207L,
  80543. 48208L,48209L,48210L,48211L,48212L,48213L,48214L,48215L,48216L,48217L,
  80544. 48218L,48219L,48220L,48221L,48222L,48223L,48224L,48225L,48226L,48227L,
  80545. 48228L,48229L,48230L,48231L,48232L,48233L,48234L,48235L,48236L,48237L,
  80546. 48238L,48239L,48240L,48241L,48242L,48243L,48244L,48245L,48246L,48247L,
  80547. 48248L,48249L,48250L,48251L,48252L,48253L,48254L,48255L,48256L,48257L,
  80548. 48258L,48259L,48260L,48261L,48262L,48263L,48264L,48265L,48266L,48267L,
  80549. 48268L,48269L,48270L,48271L,48272L,48273L,48274L,48275L,48276L,48277L,
  80550. 48278L,48279L,48280L,48281L,48282L,48283L,48284L,48285L,48286L,48287L,
  80551. 48288L,48289L,48290L,48291L,48292L,48293L,48294L,48295L,48296L,48297L,
  80552. 48298L,48299L,48300L,48301L,48302L,48303L,48304L,48305L,48306L,48307L,
  80553. 48308L,48309L,48310L,48311L,48312L,48313L,48314L,48315L,48316L,48317L,
  80554. 48318L,48319L,48320L,48321L,48322L,48323L,48324L,48325L,48326L,48327L,
  80555. 48328L,48329L,48330L,48331L,48332L,48333L,48334L,48335L,48336L,48337L,
  80556. 48338L,48339L,48340L,48341L,48342L,48343L,48344L,48345L,48346L,48347L,
  80557. 48348L,48349L,48350L,48351L,48352L,48353L,48354L,48355L,48356L,48357L,
  80558. 48358L,48359L,48360L,48361L,48362L,48363L,48364L,48365L,48366L,48367L,
  80559. 48368L,48369L,48370L,48371L,48372L,48373L,48374L,48375L,48376L,48377L,
  80560. 48378L,48379L,48380L,48381L,48382L,48383L,48384L,48385L,48386L,48387L,
  80561. 48388L,48389L,48390L,48391L,48392L,48393L,48394L,48395L,48396L,48397L,
  80562. 48398L,48399L,48400L,48401L,48402L,48403L,48404L,48405L,48406L,48407L,
  80563. 48408L,48409L,48410L,48411L,48412L,48413L,48414L,48415L,48416L,48417L,
  80564. 48418L,48419L,48420L,48421L,48422L,48423L,48424L,48425L,48426L,48427L,
  80565. 48428L,48429L,48430L,48431L,48432L,48433L,48434L,48435L,48436L,48437L,
  80566. 48438L,48439L,48440L,48441L,48442L,48443L,48444L,48445L,48446L,48447L,
  80567. 48448L,48449L,48450L,48451L,48452L,48453L,48454L,48455L,48456L,48457L,
  80568. 48458L,48459L,48460L,48461L,48462L,48463L,48464L,48465L,48466L,48467L,
  80569. 48468L,48469L,48470L,48471L,48472L,48473L,48474L,48475L,48476L,48477L,
  80570. 48478L,48479L,48480L,48481L,48482L,48483L,48484L,48485L,48486L,48487L,
  80571. 48488L,48489L,48490L,48491L,48492L,48493L,48494L,48495L,48496L,48497L,
  80572. 48498L,48499L,48500L,48501L,48502L,48503L,48504L,48505L,48506L,48507L,
  80573. 48508L,48509L,48510L,48511L,48512L,48513L,48514L,48515L,48516L,48517L,
  80574. 48518L,48519L,48520L,48521L,48522L,48523L,48524L,48525L,48526L,48527L,
  80575. 48528L,48529L,48530L,48531L,48532L,48533L,48534L,48535L,48536L,48537L,
  80576. 48538L,48539L,48540L,48541L,48542L,48543L,48544L,48545L,48546L,48547L,
  80577. 48548L,48549L,48550L,48551L,48552L,48553L,48554L,48555L,48556L,48557L,
  80578. 48558L,48559L,48560L,48561L,48562L,48563L,48564L,48565L,48566L,48567L,
  80579. 48568L,48569L,48570L,48571L,48572L,48573L,48574L,48575L,48576L,48577L,
  80580. 48578L,48579L,48580L,48581L,48582L,48583L,48584L,48585L,48586L,48587L,
  80581. 48588L,48589L,48590L,48591L,48592L,48593L,48594L,48595L,48596L,48597L,
  80582. 48598L,48599L,48600L,48601L,48602L,48603L,48604L,48605L,48606L,48607L,
  80583. 48608L,48609L,48610L,48611L,48612L,48613L,48614L,48615L,48616L,48617L,
  80584. 48618L,48619L,48620L,48621L,48622L,48623L,48624L,48625L,48626L,48627L,
  80585. 48628L,48629L,48630L,48631L,48632L,48633L,48634L,48635L,48636L,48637L,
  80586. 48638L,48639L,48640L,48641L,48642L,48643L,48644L,48645L,48646L,48647L,
  80587. 48648L,48649L,48650L,48651L,48652L,48653L,48654L,48655L,48656L,48657L,
  80588. 48658L,48659L,48660L,48661L,48662L,48663L,48664L,48665L,48666L,48667L,
  80589. 48668L,48669L,48670L,48671L,48672L,48673L,48674L,48675L,48676L,48677L,
  80590. 48678L,48679L,48680L,48681L,48682L,48683L,48684L,48685L,48686L,48687L,
  80591. 48688L,48689L,48690L,48691L,48692L,48693L,48694L,48695L,48696L,48697L,
  80592. 48698L,48699L,48700L,48701L,48702L,48703L,48704L,48705L,48706L,48707L,
  80593. 48708L,48709L,48710L,48711L,48712L,48713L,48714L,48715L,48716L,48717L,
  80594. 48718L,48719L,48720L,48721L,48722L,48723L,48724L,48725L,48726L,48727L,
  80595. 48728L,48729L,48730L,48731L,48732L,48733L,48734L,48735L,48736L,48737L,
  80596. 48738L,48739L,48740L,48741L,48742L,48743L,48744L,48745L,48746L,48747L,
  80597. 48748L,48749L,48750L,48751L,48752L,48753L,48754L,48755L,48756L,48757L,
  80598. 48758L,48759L,48760L,48761L,48762L,48763L,48764L,48765L,48766L,48767L,
  80599. 48768L,48769L,48770L,48771L,48772L,48773L,48774L,48775L,48776L,48777L,
  80600. 48778L,48779L,48780L,48781L,48782L,48783L,48784L,48785L,48786L,48787L,
  80601. 48788L,48789L,48790L,48791L,48792L,48793L,48794L,48795L,48796L,48797L,
  80602. 48798L,48799L,48800L,48801L,48802L,48803L,48804L,48805L,48806L,48807L,
  80603. 48808L,48809L,48810L,48811L,48812L,48813L,48814L,48815L,48816L,48817L,
  80604. 48818L,48819L,48820L,48821L,48822L,48823L,48824L,48825L,48826L,48827L,
  80605. 48828L,48829L,48830L,48831L,48832L,48833L,48834L,48835L,48836L,48837L,
  80606. 48838L,48839L,48840L,48841L,48842L,48843L,48844L,48845L,48846L,48847L,
  80607. 48848L,48849L,48850L,48851L,48852L,48853L,48854L,48855L,48856L,48857L,
  80608. 48858L,48859L,48860L,48861L,48862L,48863L,48864L,48865L,48866L,48867L,
  80609. 48868L,48869L,48870L,48871L,48872L,48873L,48874L,48875L,48876L,48877L,
  80610. 48878L,48879L,48880L,48881L,48882L,48883L,48884L,48885L,48886L,48887L,
  80611. 48888L,48889L,48890L,48891L,48892L,48893L,48894L,48895L,48896L,48897L,
  80612. 48898L,48899L,48900L,48901L,48902L,48903L,48904L,48905L,48906L,48907L,
  80613. 48908L,48909L,48910L,48911L,48912L,48913L,48914L,48915L,48916L,48917L,
  80614. 48918L,48919L,48920L,48921L,48922L,48923L,48924L,48925L,48926L,48927L,
  80615. 48928L,48929L,48930L,48931L,48932L,48933L,48934L,48935L,48936L,48937L,
  80616. 48938L,48939L,48940L,48941L,48942L,48943L,48944L,48945L,48946L,48947L,
  80617. 48948L,48949L,48950L,48951L,48952L,48953L,48954L,48955L,48956L,48957L,
  80618. 48958L,48959L,48960L,48961L,48962L,48963L,48964L,48965L,48966L,48967L,
  80619. 48968L,48969L,48970L,48971L,48972L,48973L,48974L,48975L,48976L,48977L,
  80620. 48978L,48979L,48980L,48981L,48982L,48983L,48984L,48985L,48986L,48987L,
  80621. 48988L,48989L,48990L,48991L,48992L,48993L,48994L,48995L,48996L,48997L,
  80622. 48998L,48999L,49000L,49001L,49002L,49003L,49004L,49005L,49006L,49007L,
  80623. 49008L,49009L,49010L,49011L,49012L,49013L,49014L,49015L,49016L,49017L,
  80624. 49018L,49019L,49020L,49021L,49022L,49023L,49024L,49025L,49026L,49027L,
  80625. 49028L,49029L,49030L,49031L,49032L,49033L,49034L,49035L,49036L,49037L,
  80626. 49038L,49039L,49040L,49041L,49042L,49043L,49044L,49045L,49046L,49047L,
  80627. 49048L,49049L,49050L,49051L,49052L,49053L,49054L,49055L,49056L,49057L,
  80628. 49058L,49059L,49060L,49061L,49062L,49063L,49064L,49065L,49066L,49067L,
  80629. 49068L,49069L,49070L,49071L,49072L,49073L,49074L,49075L,49076L,49077L,
  80630. 49078L,49079L,49080L,49081L,49082L,49083L,49084L,49085L,49086L,49087L,
  80631. 49088L,49089L,49090L,49091L,49092L,49093L,49094L,49095L,49096L,49097L,
  80632. 49098L,49099L,49100L,49101L,49102L,49103L,49104L,49105L,49106L,49107L,
  80633. 49108L,49109L,49110L,49111L,49112L,49113L,49114L,49115L,49116L,49117L,
  80634. 49118L,49119L,49120L,49121L,49122L,49123L,49124L,49125L,49126L,49127L,
  80635. 49128L,49129L,49130L,49131L,49132L,49133L,49134L,49135L,49136L,49137L,
  80636. 49138L,49139L,49140L,49141L,49142L,49143L,49144L,49145L,49146L,49147L,
  80637. 49148L,49149L,49150L,49151L,49152L,49153L,49154L,49155L,49156L,49157L,
  80638. 49158L,49159L,49160L,49161L,49162L,49163L,49164L,49165L,49166L,49167L,
  80639. 49168L,49169L,49170L,49171L,49172L,49173L,49174L,49175L,49176L,49177L,
  80640. 49178L,49179L,49180L,49181L,49182L,49183L,49184L,49185L,49186L,49187L,
  80641. 49188L,49189L,49190L,49191L,49192L,49193L,49194L,49195L,49196L,49197L,
  80642. 49198L,49199L,49200L,49201L,49202L,49203L,49204L,49205L,49206L,49207L,
  80643. 49208L,49209L,49210L,49211L,49212L,49213L,49214L,49215L,49216L,49217L,
  80644. 49218L,49219L,49220L,49221L,49222L,49223L,49224L,49225L,49226L,49227L,
  80645. 49228L,49229L,49230L,49231L,49232L,49233L,49234L,49235L,49236L,49237L,
  80646. 49238L,49239L,49240L,49241L,49242L,49243L,49244L,49245L,49246L,49247L,
  80647. 49248L,49249L,49250L,49251L,49252L,49253L,49254L,49255L,49256L,49257L,
  80648. 49258L,49259L,49260L,49261L,49262L,49263L,49264L,49265L,49266L,49267L,
  80649. 49268L,49269L,49270L,49271L,49272L,49273L,49274L,49275L,49276L,49277L,
  80650. 49278L,49279L,49280L,49281L,49282L,49283L,49284L,49285L,49286L,49287L,
  80651. 49288L,49289L,49290L,49291L,49292L,49293L,49294L,49295L,49296L,49297L,
  80652. 49298L,49299L,49300L,49301L,49302L,49303L,49304L,49305L,49306L,49307L,
  80653. 49308L,49309L,49310L,49311L,49312L,49313L,49314L,49315L,49316L,49317L,
  80654. 49318L,49319L,49320L,49321L,49322L,49323L,49324L,49325L,49326L,49327L,
  80655. 49328L,49329L,49330L,49331L,49332L,49333L,49334L,49335L,49336L,49337L,
  80656. 49338L,49339L,49340L,49341L,49342L,49343L,49344L,49345L,49346L,49347L,
  80657. 49348L,49349L,49350L,49351L,49352L,49353L,49354L,49355L,49356L,49357L,
  80658. 49358L,49359L,49360L,49361L,49362L,49363L,49364L,49365L,49366L,49367L,
  80659. 49368L,49369L,49370L,49371L,49372L,49373L,49374L,49375L,49376L,49377L,
  80660. 49378L,49379L,49380L,49381L,49382L,49383L,49384L,49385L,49386L,49387L,
  80661. 49388L,49389L,49390L,49391L,49392L,49393L,49394L,49395L,49396L,49397L,
  80662. 49398L,49399L,49400L,49401L,49402L,49403L,49404L,49405L,49406L,49407L,
  80663. 49408L,49409L,49410L,49411L,49412L,49413L,49414L,49415L,49416L,49417L,
  80664. 49418L,49419L,49420L,49421L,49422L,49423L,49424L,49425L,49426L,49427L,
  80665. 49428L,49429L,49430L,49431L,49432L,49433L,49434L,49435L,49436L,49437L,
  80666. 49438L,49439L,49440L,49441L,49442L,49443L,49444L,49445L,49446L,49447L,
  80667. 49448L,49449L,49450L,49451L,49452L,49453L,49454L,49455L,49456L,49457L,
  80668. 49458L,49459L,49460L,49461L,49462L,49463L,49464L,49465L,49466L,49467L,
  80669. 49468L,49469L,49470L,49471L,49472L,49473L,49474L,49475L,49476L,49477L,
  80670. 49478L,49479L,49480L,49481L,49482L,49483L,49484L,49485L,49486L,49487L,
  80671. 49488L,49489L,49490L,49491L,49492L,49493L,49494L,49495L,49496L,49497L,
  80672. 49498L,49499L,49500L,49501L,49502L,49503L,49504L,49505L,49506L,49507L,
  80673. 49508L,49509L,49510L,49511L,49512L,49513L,49514L,49515L,49516L,49517L,
  80674. 49518L,49519L,49520L,49521L,49522L,49523L,49524L,49525L,49526L,49527L,
  80675. 49528L,49529L,49530L,49531L,49532L,49533L,49534L,49535L,49536L,49537L,
  80676. 49538L,49539L,49540L,49541L,49542L,49543L,49544L,49545L,49546L,49547L,
  80677. 49548L,49549L,49550L,49551L,49552L,49553L,49554L,49555L,49556L,49557L,
  80678. 49558L,49559L,49560L,49561L,49562L,49563L,49564L,49565L,49566L,49567L,
  80679. 49568L,49569L,49570L,49571L,49572L,49573L,49574L,49575L,49576L,49577L,
  80680. 49578L,49579L,49580L,49581L,49582L,49583L,49584L,49585L,49586L,49587L,
  80681. 49588L,49589L,49590L,49591L,49592L,49593L,49594L,49595L,49596L,49597L,
  80682. 49598L,49599L,49600L,49601L,49602L,49603L,49604L,49605L,49606L,49607L,
  80683. 49608L,49609L,49610L,49611L,49612L,49613L,49614L,49615L,49616L,49617L,
  80684. 49618L,49619L,49620L,49621L,49622L,49623L,49624L,49625L,49626L,49627L,
  80685. 49628L,49629L,49630L,49631L,49632L,49633L,49634L,49635L,49636L,49637L,
  80686. 49638L,49639L,49640L,49641L,49642L,49643L,49644L,49645L,49646L,49647L,
  80687. 49648L,49649L,49650L,49651L,49652L,49653L,49654L,49655L,49656L,49657L,
  80688. 49658L,49659L,49660L,49661L,49662L,49663L,49664L,49665L,49666L,49667L,
  80689. 49668L,49669L,49670L,49671L,49672L,49673L,49674L,49675L,49676L,49677L,
  80690. 49678L,49679L,49680L,49681L,49682L,49683L,49684L,49685L,49686L,49687L,
  80691. 49688L,49689L,49690L,49691L,49692L,49693L,49694L,49695L,49696L,49697L,
  80692. 49698L,49699L,49700L,49701L,49702L,49703L,49704L,49705L,49706L,49707L,
  80693. 49708L,49709L,49710L,49711L,49712L,49713L,49714L,49715L,49716L,49717L,
  80694. 49718L,49719L,49720L,49721L,49722L,49723L,49724L,49725L,49726L,49727L,
  80695. 49728L,49729L,49730L,49731L,49732L,49733L,49734L,49735L,49736L,49737L,
  80696. 49738L,49739L,49740L,49741L,49742L,49743L,49744L,49745L,49746L,49747L,
  80697. 49748L,49749L,49750L,49751L,49752L,49753L,49754L,49755L,49756L,49757L,
  80698. 49758L,49759L,49760L,49761L,49762L,49763L,49764L,49765L,49766L,49767L,
  80699. 49768L,49769L,49770L,49771L,49772L,49773L,49774L,49775L,49776L,49777L,
  80700. 49778L,49779L,49780L,49781L,49782L,49783L,49784L,49785L,49786L,49787L,
  80701. 49788L,49789L,49790L,49791L,49792L,49793L,49794L,49795L,49796L,49797L,
  80702. 49798L,49799L,49800L,49801L,49802L,49803L,49804L,49805L,49806L,49807L,
  80703. 49808L,49809L,49810L,49811L,49812L,49813L,49814L,49815L,49816L,49817L,
  80704. 49818L,49819L,49820L,49821L,49822L,49823L,49824L,49825L,49826L,49827L,
  80705. 49828L,49829L,49830L,49831L,49832L,49833L,49834L,49835L,49836L,49837L,
  80706. 49838L,49839L,49840L,49841L,49842L,49843L,49844L,49845L,49846L,49847L,
  80707. 49848L,49849L,49850L,49851L,49852L,49853L,49854L,49855L,49856L,49857L,
  80708. 49858L,49859L,49860L,49861L,49862L,49863L,49864L,49865L,49866L,49867L,
  80709. 49868L,49869L,49870L,49871L,49872L,49873L,49874L,49875L,49876L,49877L,
  80710. 49878L,49879L,49880L,49881L,49882L,49883L,49884L,49885L,49886L,49887L,
  80711. 49888L,49889L,49890L,49891L,49892L,49893L,49894L,49895L,49896L,49897L,
  80712. 49898L,49899L,49900L,49901L,49902L,49903L,49904L,49905L,49906L,49907L,
  80713. 49908L,49909L,49910L,49911L,49912L,49913L,49914L,49915L,49916L,49917L,
  80714. 49918L,49919L,49920L,49921L,49922L,49923L,49924L,49925L,49926L,49927L,
  80715. 49928L,49929L,49930L,49931L,49932L,49933L,49934L,49935L,49936L,49937L,
  80716. 49938L,49939L,49940L,49941L,49942L,49943L,49944L,49945L,49946L,49947L,
  80717. 49948L,49949L,49950L,49951L,49952L,49953L,49954L,49955L,49956L,49957L,
  80718. 49958L,49959L,49960L,49961L,49962L,49963L,49964L,49965L,49966L,49967L,
  80719. 49968L,49969L,49970L,49971L,49972L,49973L,49974L,49975L,49976L,49977L,
  80720. 49978L,49979L,49980L,49981L,49982L,49983L,49984L,49985L,49986L,49987L,
  80721. 49988L,49989L,49990L,49991L,49992L,49993L,49994L,49995L,49996L,49997L,
  80722. 49998L,49999L,50000L,50001L,50002L,50003L,50004L,50005L,50006L,50007L,
  80723. 50008L,50009L,50010L,50011L,50012L,50013L,50014L,50015L,50016L,50017L,
  80724. 50018L,50019L,50020L,50021L,50022L,50023L,50024L,50025L,50026L,50027L,
  80725. 50028L,50029L,50030L,50031L,50032L,50033L,50034L,50035L,50036L,50037L,
  80726. 50038L,50039L,50040L,50041L,50042L,50043L,50044L,50045L,50046L,50047L,
  80727. 50048L,50049L,50050L,50051L,50052L,50053L,50054L,50055L,50056L,50057L,
  80728. 50058L,50059L,50060L,50061L,50062L,50063L,50064L,50065L,50066L,50067L,
  80729. 50068L,50069L,50070L,50071L,50072L,50073L,50074L,50075L,50076L,50077L,
  80730. 50078L,50079L,50080L,50081L,50082L,50083L,50084L,50085L,50086L,50087L,
  80731. 50088L,50089L,50090L,50091L,50092L,50093L,50094L,50095L,50096L,50097L,
  80732. 50098L,50099L,50100L,50101L,50102L,50103L,50104L,50105L,50106L,50107L,
  80733. 50108L,50109L,50110L,50111L,50112L,50113L,50114L,50115L,50116L,50117L,
  80734. 50118L,50119L,50120L,50121L,50122L,50123L,50124L,50125L,50126L,50127L,
  80735. 50128L,50129L,50130L,50131L,50132L,50133L,50134L,50135L,50136L,50137L,
  80736. 50138L,50139L,50140L,50141L,50142L,50143L,50144L,50145L,50146L,50147L,
  80737. 50148L,50149L,50150L,50151L,50152L,50153L,50154L,50155L,50156L,50157L,
  80738. 50158L,50159L,50160L,50161L,50162L,50163L,50164L,50165L,50166L,50167L,
  80739. 50168L,50169L,50170L,50171L,50172L,50173L,50174L,50175L,50176L,50177L,
  80740. 50178L,50179L,50180L,50181L,50182L,50183L,50184L,50185L,50186L,50187L,
  80741. 50188L,50189L,50190L,50191L,50192L,50193L,50194L,50195L,50196L,50197L,
  80742. 50198L,50199L,50200L,50201L,50202L,50203L,50204L,50205L,50206L,50207L,
  80743. 50208L,50209L,50210L,50211L,50212L,50213L,50214L,50215L,50216L,50217L,
  80744. 50218L,50219L,50220L,50221L,50222L,50223L,50224L,50225L,50226L,50227L,
  80745. 50228L,50229L,50230L,50231L,50232L,50233L,50234L,50235L,50236L,50237L,
  80746. 50238L,50239L,50240L,50241L,50242L,50243L,50244L,50245L,50246L,50247L,
  80747. 50248L,50249L,50250L,50251L,50252L,50253L,50254L,50255L,50256L,50257L,
  80748. 50258L,50259L,50260L,50261L,50262L,50263L,50264L,50265L,50266L,50267L,
  80749. 50268L,50269L,50270L,50271L,50272L,50273L,50274L,50275L,50276L,50277L,
  80750. 50278L,50279L,50280L,50281L,50282L,50283L,50284L,50285L,50286L,50287L,
  80751. 50288L,50289L,50290L,50291L,50292L,50293L,50294L,50295L,50296L,50297L,
  80752. 50298L,50299L,50300L,50301L,50302L,50303L,50304L,50305L,50306L,50307L,
  80753. 50308L,50309L,50310L,50311L,50312L,50313L,50314L,50315L,50316L,50317L,
  80754. 50318L,50319L,50320L,50321L,50322L,50323L,50324L,50325L,50326L,50327L,
  80755. 50328L,50329L,50330L,50331L,50332L,50333L,50334L,50335L,50336L,50337L,
  80756. 50338L,50339L,50340L,50341L,50342L,50343L,50344L,50345L,50346L,50347L,
  80757. 50348L,50349L,50350L,50351L,50352L,50353L,50354L,50355L,50356L,50357L,
  80758. 50358L,50359L,50360L,50361L,50362L,50363L,50364L,50365L,50366L,50367L,
  80759. 50368L,50369L,50370L,50371L,50372L,50373L,50374L,50375L,50376L,50377L,
  80760. 50378L,50379L,50380L,50381L,50382L,50383L,50384L,50385L,50386L,50387L,
  80761. 50388L,50389L,50390L,50391L,50392L,50393L,50394L,50395L,50396L,50397L,
  80762. 50398L,50399L,50400L,50401L,50402L,50403L,50404L,50405L,50406L,50407L,
  80763. 50408L,50409L,50410L,50411L,50412L,50413L,50414L,50415L,50416L,50417L,
  80764. 50418L,50419L,50420L,50421L,50422L,50423L,50424L,50425L,50426L,50427L,
  80765. 50428L,50429L,50430L,50431L,50432L,50433L,50434L,50435L,50436L,50437L,
  80766. 50438L,50439L,50440L,50441L,50442L,50443L,50444L,50445L,50446L,50447L,
  80767. 50448L,50449L,50450L,50451L,50452L,50453L,50454L,50455L,50456L,50457L,
  80768. 50458L,50459L,50460L,50461L,50462L,50463L,50464L,50465L,50466L,50467L,
  80769. 50468L,50469L,50470L,50471L,50472L,50473L,50474L,50475L,50476L,50477L,
  80770. 50478L,50479L,50480L,50481L,50482L,50483L,50484L,50485L,50486L,50487L,
  80771. 50488L,50489L,50490L,50491L,50492L,50493L,50494L,50495L,50496L,50497L,
  80772. 50498L,50499L,50500L,50501L,50502L,50503L,50504L,50505L,50506L,50507L,
  80773. 50508L,50509L,50510L,50511L,50512L,50513L,50514L,50515L,50516L,50517L,
  80774. 50518L,50519L,50520L,50521L,50522L,50523L,50524L,50525L,50526L,50527L,
  80775. 50528L,50529L,50530L,50531L,50532L,50533L,50534L,50535L,50536L,50537L,
  80776. 50538L,50539L,50540L,50541L,50542L,50543L,50544L,50545L,50546L,50547L,
  80777. 50548L,50549L,50550L,50551L,50552L,50553L,50554L,50555L,50556L,50557L,
  80778. 50558L,50559L,50560L,50561L,50562L,50563L,50564L,50565L,50566L,50567L,
  80779. 50568L,50569L,50570L,50571L,50572L,50573L,50574L,50575L,50576L,50577L,
  80780. 50578L,50579L,50580L,50581L,50582L,50583L,50584L,50585L,50586L,50587L,
  80781. 50588L,50589L,50590L,50591L,50592L,50593L,50594L,50595L,50596L,50597L,
  80782. 50598L,50599L,50600L,50601L,50602L,50603L,50604L,50605L,50606L,50607L,
  80783. 50608L,50609L,50610L,50611L,50612L,50613L,50614L,50615L,50616L,50617L,
  80784. 50618L,50619L,50620L,50621L,50622L,50623L,50624L,50625L,50626L,50627L,
  80785. 50628L,50629L,50630L,50631L,50632L,50633L,50634L,50635L,50636L,50637L,
  80786. 50638L,50639L,50640L,50641L,50642L,50643L,50644L,50645L,50646L,50647L,
  80787. 50648L,50649L,50650L,50651L,50652L,50653L,50654L,50655L,50656L,50657L,
  80788. 50658L,50659L,50660L,50661L,50662L,50663L,50664L,50665L,50666L,50667L,
  80789. 50668L,50669L,50670L,50671L,50672L,50673L,50674L,50675L,50676L,50677L,
  80790. 50678L,50679L,50680L,50681L,50682L,50683L,50684L,50685L,50686L,50687L,
  80791. 50688L,50689L,50690L,50691L,50692L,50693L,50694L,50695L,50696L,50697L,
  80792. 50698L,50699L,50700L,50701L,50702L,50703L,50704L,50705L,50706L,50707L,
  80793. 50708L,50709L,50710L,50711L,50712L,50713L,50714L,50715L,50716L,50717L,
  80794. 50718L,50719L,50720L,50721L,50722L,50723L,50724L,50725L,50726L,50727L,
  80795. 50728L,50729L,50730L,50731L,50732L,50733L,50734L,50735L,50736L,50737L,
  80796. 50738L,50739L,50740L,50741L,50742L,50743L,50744L,50745L,50746L,50747L,
  80797. 50748L,50749L,50750L,50751L,50752L,50753L,50754L,50755L,50756L,50757L,
  80798. 50758L,50759L,50760L,50761L,50762L,50763L,50764L,50765L,50766L,50767L,
  80799. 50768L,50769L,50770L,50771L,50772L,50773L,50774L,50775L,50776L,50777L,
  80800. 50778L,50779L,50780L,50781L,50782L,50783L,50784L,50785L,50786L,50787L,
  80801. 50788L,50789L,50790L,50791L,50792L,50793L,50794L,50795L,50796L,50797L,
  80802. 50798L,50799L,50800L,50801L,50802L,50803L,50804L,50805L,50806L,50807L,
  80803. 50808L,50809L,50810L,50811L,50812L,50813L,50814L,50815L,50816L,50817L,
  80804. 50818L,50819L,50820L,50821L,50822L,50823L,50824L,50825L,50826L,50827L,
  80805. 50828L,50829L,50830L,50831L,50832L,50833L,50834L,50835L,50836L,50837L,
  80806. 50838L,50839L,50840L,50841L,50842L,50843L,50844L,50845L,50846L,50847L,
  80807. 50848L,50849L,50850L,50851L,50852L,50853L,50854L,50855L,50856L,50857L,
  80808. 50858L,50859L,50860L,50861L,50862L,50863L,50864L,50865L,50866L,50867L,
  80809. 50868L,50869L,50870L,50871L,50872L,50873L,50874L,50875L,50876L,50877L,
  80810. 50878L,50879L,50880L,50881L,50882L,50883L,50884L,50885L,50886L,50887L,
  80811. 50888L,50889L,50890L,50891L,50892L,50893L,50894L,50895L,50896L,50897L,
  80812. 50898L,50899L,50900L,50901L,50902L,50903L,50904L,50905L,50906L,50907L,
  80813. 50908L,50909L,50910L,50911L,50912L,50913L,50914L,50915L,50916L,50917L,
  80814. 50918L,50919L,50920L,50921L,50922L,50923L,50924L,50925L,50926L,50927L,
  80815. 50928L,50929L,50930L,50931L,50932L,50933L,50934L,50935L,50936L,50937L,
  80816. 50938L,50939L,50940L,50941L,50942L,50943L,50944L,50945L,50946L,50947L,
  80817. 50948L,50949L,50950L,50951L,50952L,50953L,50954L,50955L,50956L,50957L,
  80818. 50958L,50959L,50960L,50961L,50962L,50963L,50964L,50965L,50966L,50967L,
  80819. 50968L,50969L,50970L,50971L,50972L,50973L,50974L,50975L,50976L,50977L,
  80820. 50978L,50979L,50980L,50981L,50982L,50983L,50984L,50985L,50986L,50987L,
  80821. 50988L,50989L,50990L,50991L,50992L,50993L,50994L,50995L,50996L,50997L,
  80822. 50998L,50999L,51000L,51001L,51002L,51003L,51004L,51005L,51006L,51007L,
  80823. 51008L,51009L,51010L,51011L,51012L,51013L,51014L,51015L,51016L,51017L,
  80824. 51018L,51019L,51020L,51021L,51022L,51023L,51024L,51025L,51026L,51027L,
  80825. 51028L,51029L,51030L,51031L,51032L,51033L,51034L,51035L,51036L,51037L,
  80826. 51038L,51039L,51040L,51041L,51042L,51043L,51044L,51045L,51046L,51047L,
  80827. 51048L,51049L,51050L,51051L,51052L,51053L,51054L,51055L,51056L,51057L,
  80828. 51058L,51059L,51060L,51061L,51062L,51063L,51064L,51065L,51066L,51067L,
  80829. 51068L,51069L,51070L,51071L,51072L,51073L,51074L,51075L,51076L,51077L,
  80830. 51078L,51079L,51080L,51081L,51082L,51083L,51084L,51085L,51086L,51087L,
  80831. 51088L,51089L,51090L,51091L,51092L,51093L,51094L,51095L,51096L,51097L,
  80832. 51098L,51099L,51100L,51101L,51102L,51103L,51104L,51105L,51106L,51107L,
  80833. 51108L,51109L,51110L,51111L,51112L,51113L,51114L,51115L,51116L,51117L,
  80834. 51118L,51119L,51120L,51121L,51122L,51123L,51124L,51125L,51126L,51127L,
  80835. 51128L,51129L,51130L,51131L,51132L,51133L,51134L,51135L,51136L,51137L,
  80836. 51138L,51139L,51140L,51141L,51142L,51143L,51144L,51145L,51146L,51147L,
  80837. 51148L,51149L,51150L,51151L,51152L,51153L,51154L,51155L,51156L,51157L,
  80838. 51158L,51159L,51160L,51161L,51162L,51163L,51164L,51165L,51166L,51167L,
  80839. 51168L,51169L,51170L,51171L,51172L,51173L,51174L,51175L,51176L,51177L,
  80840. 51178L,51179L,51180L,51181L,51182L,51183L,51184L,51185L,51186L,51187L,
  80841. 51188L,51189L,51190L,51191L,51192L,51193L,51194L,51195L,51196L,51197L,
  80842. 51198L,51199L,51200L,51201L,51202L,51203L,51204L,51205L,51206L,51207L,
  80843. 51208L,51209L,51210L,51211L,51212L,51213L,51214L,51215L,51216L,51217L,
  80844. 51218L,51219L,51220L,51221L,51222L,51223L,51224L,51225L,51226L,51227L,
  80845. 51228L,51229L,51230L,51231L,51232L,51233L,51234L,51235L,51236L,51237L,
  80846. 51238L,51239L,51240L,51241L,51242L,51243L,51244L,51245L,51246L,51247L,
  80847. 51248L,51249L,51250L,51251L,51252L,51253L,51254L,51255L,51256L,51257L,
  80848. 51258L,51259L,51260L,51261L,51262L,51263L,51264L,51265L,51266L,51267L,
  80849. 51268L,51269L,51270L,51271L,51272L,51273L,51274L,51275L,51276L,51277L,
  80850. 51278L,51279L,51280L,51281L,51282L,51283L,51284L,51285L,51286L,51287L,
  80851. 51288L,51289L,51290L,51291L,51292L,51293L,51294L,51295L,51296L,51297L,
  80852. 51298L,51299L,51300L,51301L,51302L,51303L,51304L,51305L,51306L,51307L,
  80853. 51308L,51309L,51310L,51311L,51312L,51313L,51314L,51315L,51316L,51317L,
  80854. 51318L,51319L,51320L,51321L,51322L,51323L,51324L,51325L,51326L,51327L,
  80855. 51328L,51329L,51330L,51331L,51332L,51333L,51334L,51335L,51336L,51337L,
  80856. 51338L,51339L,51340L,51341L,51342L,51343L,51344L,51345L,51346L,51347L,
  80857. 51348L,51349L,51350L,51351L,51352L,51353L,51354L,51355L,51356L,51357L,
  80858. 51358L,51359L,51360L,51361L,51362L,51363L,51364L,51365L,51366L,51367L,
  80859. 51368L,51369L,51370L,51371L,51372L,51373L,51374L,51375L,51376L,51377L,
  80860. 51378L,51379L,51380L,51381L,51382L,51383L,51384L,51385L,51386L,51387L,
  80861. 51388L,51389L,51390L,51391L,51392L,51393L,51394L,51395L,51396L,51397L,
  80862. 51398L,51399L,51400L,51401L,51402L,51403L,51404L,51405L,51406L,51407L,
  80863. 51408L,51409L,51410L,51411L,51412L,51413L,51414L,51415L,51416L,51417L,
  80864. 51418L,51419L,51420L,51421L,51422L,51423L,51424L,51425L,51426L,51427L,
  80865. 51428L,51429L,51430L,51431L,51432L,51433L,51434L,51435L,51436L,51437L,
  80866. 51438L,51439L,51440L,51441L,51442L,51443L,51444L,51445L,51446L,51447L,
  80867. 51448L,51449L,51450L,51451L,51452L,51453L,51454L,51455L,51456L,51457L,
  80868. 51458L,51459L,51460L,51461L,51462L,51463L,51464L,51465L,51466L,51467L,
  80869. 51468L,51469L,51470L,51471L,51472L,51473L,51474L,51475L,51476L,51477L,
  80870. 51478L,51479L,51480L,51481L,51482L,51483L,51484L,51485L,51486L,51487L,
  80871. 51488L,51489L,51490L,51491L,51492L,51493L,51494L,51495L,51496L,51497L,
  80872. 51498L,51499L,51500L,51501L,51502L,51503L,51504L,51505L,51506L,51507L,
  80873. 51508L,51509L,51510L,51511L,51512L,51513L,51514L,51515L,51516L,51517L,
  80874. 51518L,51519L,51520L,51521L,51522L,51523L,51524L,51525L,51526L,51527L,
  80875. 51528L,51529L,51530L,51531L,51532L,51533L,51534L,51535L,51536L,51537L,
  80876. 51538L,51539L,51540L,51541L,51542L,51543L,51544L,51545L,51546L,51547L,
  80877. 51548L,51549L,51550L,51551L,51552L,51553L,51554L,51555L,51556L,51557L,
  80878. 51558L,51559L,51560L,51561L,51562L,51563L,51564L,51565L,51566L,51567L,
  80879. 51568L,51569L,51570L,51571L,51572L,51573L,51574L,51575L,51576L,51577L,
  80880. 51578L,51579L,51580L,51581L,51582L,51583L,51584L,51585L,51586L,51587L,
  80881. 51588L,51589L,51590L,51591L,51592L,51593L,51594L,51595L,51596L,51597L,
  80882. 51598L,51599L,51600L,51601L,51602L,51603L,51604L,51605L,51606L,51607L,
  80883. 51608L,51609L,51610L,51611L,51612L,51613L,51614L,51615L,51616L,51617L,
  80884. 51618L,51619L,51620L,51621L,51622L,51623L,51624L,51625L,51626L,51627L,
  80885. 51628L,51629L,51630L,51631L,51632L,51633L,51634L,51635L,51636L,51637L,
  80886. 51638L,51639L,51640L,51641L,51642L,51643L,51644L,51645L,51646L,51647L,
  80887. 51648L,51649L,51650L,51651L,51652L,51653L,51654L,51655L,51656L,51657L,
  80888. 51658L,51659L,51660L,51661L,51662L,51663L,51664L,51665L,51666L,51667L,
  80889. 51668L,51669L,51670L,51671L,51672L,51673L,51674L,51675L,51676L,51677L,
  80890. 51678L,51679L,51680L,51681L,51682L,51683L,51684L,51685L,51686L,51687L,
  80891. 51688L,51689L,51690L,51691L,51692L,51693L,51694L,51695L,51696L,51697L,
  80892. 51698L,51699L,51700L,51701L,51702L,51703L,51704L,51705L,51706L,51707L,
  80893. 51708L,51709L,51710L,51711L,51712L,51713L,51714L,51715L,51716L,51717L,
  80894. 51718L,51719L,51720L,51721L,51722L,51723L,51724L,51725L,51726L,51727L,
  80895. 51728L,51729L,51730L,51731L,51732L,51733L,51734L,51735L,51736L,51737L,
  80896. 51738L,51739L,51740L,51741L,51742L,51743L,51744L,51745L,51746L,51747L,
  80897. 51748L,51749L,51750L,51751L,51752L,51753L,51754L,51755L,51756L,51757L,
  80898. 51758L,51759L,51760L,51761L,51762L,51763L,51764L,51765L,51766L,51767L,
  80899. 51768L,51769L,51770L,51771L,51772L,51773L,51774L,51775L,51776L,51777L,
  80900. 51778L,51779L,51780L,51781L,51782L,51783L,51784L,51785L,51786L,51787L,
  80901. 51788L,51789L,51790L,51791L,51792L,51793L,51794L,51795L,51796L,51797L,
  80902. 51798L,51799L,51800L,51801L,51802L,51803L,51804L,51805L,51806L,51807L,
  80903. 51808L,51809L,51810L,51811L,51812L,51813L,51814L,51815L,51816L,51817L,
  80904. 51818L,51819L,51820L,51821L,51822L,51823L,51824L,51825L,51826L,51827L,
  80905. 51828L,51829L,51830L,51831L,51832L,51833L,51834L,51835L,51836L,51837L,
  80906. 51838L,51839L,51840L,51841L,51842L,51843L,51844L,51845L,51846L,51847L,
  80907. 51848L,51849L,51850L,51851L,51852L,51853L,51854L,51855L,51856L,51857L,
  80908. 51858L,51859L,51860L,51861L,51862L,51863L,51864L,51865L,51866L,51867L,
  80909. 51868L,51869L,51870L,51871L,51872L,51873L,51874L,51875L,51876L,51877L,
  80910. 51878L,51879L,51880L,51881L,51882L,51883L,51884L,51885L,51886L,51887L,
  80911. 51888L,51889L,51890L,51891L,51892L,51893L,51894L,51895L,51896L,51897L,
  80912. 51898L,51899L,51900L,51901L,51902L,51903L,51904L,51905L,51906L,51907L,
  80913. 51908L,51909L,51910L,51911L,51912L,51913L,51914L,51915L,51916L,51917L,
  80914. 51918L,51919L,51920L,51921L,51922L,51923L,51924L,51925L,51926L,51927L,
  80915. 51928L,51929L,51930L,51931L,51932L,51933L,51934L,51935L,51936L,51937L,
  80916. 51938L,51939L,51940L,51941L,51942L,51943L,51944L,51945L,51946L,51947L,
  80917. 51948L,51949L,51950L,51951L,51952L,51953L,51954L,51955L,51956L,51957L,
  80918. 51958L,51959L,51960L,51961L,51962L,51963L,51964L,51965L,51966L,51967L,
  80919. 51968L,51969L,51970L,51971L,51972L,51973L,51974L,51975L,51976L,51977L,
  80920. 51978L,51979L,51980L,51981L,51982L,51983L,51984L,51985L,51986L,51987L,
  80921. 51988L,51989L,51990L,51991L,51992L,51993L,51994L,51995L,51996L,51997L,
  80922. 51998L,51999L,52000L,52001L,52002L,52003L,52004L,52005L,52006L,52007L,
  80923. 52008L,52009L,52010L,52011L,52012L,52013L,52014L,52015L,52016L,52017L,
  80924. 52018L,52019L,52020L,52021L,52022L,52023L,52024L,52025L,52026L,52027L,
  80925. 52028L,52029L,52030L,52031L,52032L,52033L,52034L,52035L,52036L,52037L,
  80926. 52038L,52039L,52040L,52041L,52042L,52043L,52044L,52045L,52046L,52047L,
  80927. 52048L,52049L,52050L,52051L,52052L,52053L,52054L,52055L,52056L,52057L,
  80928. 52058L,52059L,52060L,52061L,52062L,52063L,52064L,52065L,52066L,52067L,
  80929. 52068L,52069L,52070L,52071L,52072L,52073L,52074L,52075L,52076L,52077L,
  80930. 52078L,52079L,52080L,52081L,52082L,52083L,52084L,52085L,52086L,52087L,
  80931. 52088L,52089L,52090L,52091L,52092L,52093L,52094L,52095L,52096L,52097L,
  80932. 52098L,52099L,52100L,52101L,52102L,52103L,52104L,52105L,52106L,52107L,
  80933. 52108L,52109L,52110L,52111L,52112L,52113L,52114L,52115L,52116L,52117L,
  80934. 52118L,52119L,52120L,52121L,52122L,52123L,52124L,52125L,52126L,52127L,
  80935. 52128L,52129L,52130L,52131L,52132L,52133L,52134L,52135L,52136L,52137L,
  80936. 52138L,52139L,52140L,52141L,52142L,52143L,52144L,52145L,52146L,52147L,
  80937. 52148L,52149L,52150L,52151L,52152L,52153L,52154L,52155L,52156L,52157L,
  80938. 52158L,52159L,52160L,52161L,52162L,52163L,52164L,52165L,52166L,52167L,
  80939. 52168L,52169L,52170L,52171L,52172L,52173L,52174L,52175L,52176L,52177L,
  80940. 52178L,52179L,52180L,52181L,52182L,52183L,52184L,52185L,52186L,52187L,
  80941. 52188L,52189L,52190L,52191L,52192L,52193L,52194L,52195L,52196L,52197L,
  80942. 52198L,52199L,52200L,52201L,52202L,52203L,52204L,52205L,52206L,52207L,
  80943. 52208L,52209L,52210L,52211L,52212L,52213L,52214L,52215L,52216L,52217L,
  80944. 52218L,52219L,52220L,52221L,52222L,52223L,52224L,52225L,52226L,52227L,
  80945. 52228L,52229L,52230L,52231L,52232L,52233L,52234L,52235L,52236L,52237L,
  80946. 52238L,52239L,52240L,52241L,52242L,52243L,52244L,52245L,52246L,52247L,
  80947. 52248L,52249L,52250L,52251L,52252L,52253L,52254L,52255L,52256L,52257L,
  80948. 52258L,52259L,52260L,52261L,52262L,52263L,52264L,52265L,52266L,52267L,
  80949. 52268L,52269L,52270L,52271L,52272L,52273L,52274L,52275L,52276L,52277L,
  80950. 52278L,52279L,52280L,52281L,52282L,52283L,52284L,52285L,52286L,52287L,
  80951. 52288L,52289L,52290L,52291L,52292L,52293L,52294L,52295L,52296L,52297L,
  80952. 52298L,52299L,52300L,52301L,52302L,52303L,52304L,52305L,52306L,52307L,
  80953. 52308L,52309L,52310L,52311L,52312L,52313L,52314L,52315L,52316L,52317L,
  80954. 52318L,52319L,52320L,52321L,52322L,52323L,52324L,52325L,52326L,52327L,
  80955. 52328L,52329L,52330L,52331L,52332L,52333L,52334L,52335L,52336L,52337L,
  80956. 52338L,52339L,52340L,52341L,52342L,52343L,52344L,52345L,52346L,52347L,
  80957. 52348L,52349L,52350L,52351L,52352L,52353L,52354L,52355L,52356L,52357L,
  80958. 52358L,52359L,52360L,52361L,52362L,52363L,52364L,52365L,52366L,52367L,
  80959. 52368L,52369L,52370L,52371L,52372L,52373L,52374L,52375L,52376L,52377L,
  80960. 52378L,52379L,52380L,52381L,52382L,52383L,52384L,52385L,52386L,52387L,
  80961. 52388L,52389L,52390L,52391L,52392L,52393L,52394L,52395L,52396L,52397L,
  80962. 52398L,52399L,52400L,52401L,52402L,52403L,52404L,52405L,52406L,52407L,
  80963. 52408L,52409L,52410L,52411L,52412L,52413L,52414L,52415L,52416L,52417L,
  80964. 52418L,52419L,52420L,52421L,52422L,52423L,52424L,52425L,52426L,52427L,
  80965. 52428L,52429L,52430L,52431L,52432L,52433L,52434L,52435L,52436L,52437L,
  80966. 52438L,52439L,52440L,52441L,52442L,52443L,52444L,52445L,52446L,52447L,
  80967. 52448L,52449L,52450L,52451L,52452L,52453L,52454L,52455L,52456L,52457L,
  80968. 52458L,52459L,52460L,52461L,52462L,52463L,52464L,52465L,52466L,52467L,
  80969. 52468L,52469L,52470L,52471L,52472L,52473L,52474L,52475L,52476L,52477L,
  80970. 52478L,52479L,52480L,52481L,52482L,52483L,52484L,52485L,52486L,52487L,
  80971. 52488L,52489L,52490L,52491L,52492L,52493L,52494L,52495L,52496L,52497L,
  80972. 52498L,52499L,52500L,52501L,52502L,52503L,52504L,52505L,52506L,52507L,
  80973. 52508L,52509L,52510L,52511L,52512L,52513L,52514L,52515L,52516L,52517L,
  80974. 52518L,52519L,52520L,52521L,52522L,52523L,52524L,52525L,52526L,52527L,
  80975. 52528L,52529L,52530L,52531L,52532L,52533L,52534L,52535L,52536L,52537L,
  80976. 52538L,52539L,52540L,52541L,52542L,52543L,52544L,52545L,52546L,52547L,
  80977. 52548L,52549L,52550L,52551L,52552L,52553L,52554L,52555L,52556L,52557L,
  80978. 52558L,52559L,52560L,52561L,52562L,52563L,52564L,52565L,52566L,52567L,
  80979. 52568L,52569L,52570L,52571L,52572L,52573L,52574L,52575L,52576L,52577L,
  80980. 52578L,52579L,52580L,52581L,52582L,52583L,52584L,52585L,52586L,52587L,
  80981. 52588L,52589L,52590L,52591L,52592L,52593L,52594L,52595L,52596L,52597L,
  80982. 52598L,52599L,52600L,52601L,52602L,52603L,52604L,52605L,52606L,52607L,
  80983. 52608L,52609L,52610L,52611L,52612L,52613L,52614L,52615L,52616L,52617L,
  80984. 52618L,52619L,52620L,52621L,52622L,52623L,52624L,52625L,52626L,52627L,
  80985. 52628L,52629L,52630L,52631L,52632L,52633L,52634L,52635L,52636L,52637L,
  80986. 52638L,52639L,52640L,52641L,52642L,52643L,52644L,52645L,52646L,52647L,
  80987. 52648L,52649L,52650L,52651L,52652L,52653L,52654L,52655L,52656L,52657L,
  80988. 52658L,52659L,52660L,52661L,52662L,52663L,52664L,52665L,52666L,52667L,
  80989. 52668L,52669L,52670L,52671L,52672L,52673L,52674L,52675L,52676L,52677L,
  80990. 52678L,52679L,52680L,52681L,52682L,52683L,52684L,52685L,52686L,52687L,
  80991. 52688L,52689L,52690L,52691L,52692L,52693L,52694L,52695L,52696L,52697L,
  80992. 52698L,52699L,52700L,52701L,52702L,52703L,52704L,52705L,52706L,52707L,
  80993. 52708L,52709L,52710L,52711L,52712L,52713L,52714L,52715L,52716L,52717L,
  80994. 52718L,52719L,52720L,52721L,52722L,52723L,52724L,52725L,52726L,52727L,
  80995. 52728L,52729L,52730L,52731L,52732L,52733L,52734L,52735L,52736L,52737L,
  80996. 52738L,52739L,52740L,52741L,52742L,52743L,52744L,52745L,52746L,52747L,
  80997. 52748L,52749L,52750L,52751L,52752L,52753L,52754L,52755L,52756L,52757L,
  80998. 52758L,52759L,52760L,52761L,52762L,52763L,52764L,52765L,52766L,52767L,
  80999. 52768L,52769L,52770L,52771L,52772L,52773L,52774L,52775L,52776L,52777L,
  81000. 52778L,52779L,52780L,52781L,52782L,52783L,52784L,52785L,52786L,52787L,
  81001. 52788L,52789L,52790L,52791L,52792L,52793L,52794L,52795L,52796L,52797L,
  81002. 52798L,52799L,52800L,52801L,52802L,52803L,52804L,52805L,52806L,52807L,
  81003. 52808L,52809L,52810L,52811L,52812L,52813L,52814L,52815L,52816L,52817L,
  81004. 52818L,52819L,52820L,52821L,52822L,52823L,52824L,52825L,52826L,52827L,
  81005. 52828L,52829L,52830L,52831L,52832L,52833L,52834L,52835L,52836L,52837L,
  81006. 52838L,52839L,52840L,52841L,52842L,52843L,52844L,52845L,52846L,52847L,
  81007. 52848L,52849L,52850L,52851L,52852L,52853L,52854L,52855L,52856L,52857L,
  81008. 52858L,52859L,52860L,52861L,52862L,52863L,52864L,52865L,52866L,52867L,
  81009. 52868L,52869L,52870L,52871L,52872L,52873L,52874L,52875L,52876L,52877L,
  81010. 52878L,52879L,52880L,52881L,52882L,52883L,52884L,52885L,52886L,52887L,
  81011. 52888L,52889L,52890L,52891L,52892L,52893L,52894L,52895L,52896L,52897L,
  81012. 52898L,52899L,52900L,52901L,52902L,52903L,52904L,52905L,52906L,52907L,
  81013. 52908L,52909L,52910L,52911L,52912L,52913L,52914L,52915L,52916L,52917L,
  81014. 52918L,52919L,52920L,52921L,52922L,52923L,52924L,52925L,52926L,52927L,
  81015. 52928L,52929L,52930L,52931L,52932L,52933L,52934L,52935L,52936L,52937L,
  81016. 52938L,52939L,52940L,52941L,52942L,52943L,52944L,52945L,52946L,52947L,
  81017. 52948L,52949L,52950L,52951L,52952L,52953L,52954L,52955L,52956L,52957L,
  81018. 52958L,52959L,52960L,52961L,52962L,52963L,52964L,52965L,52966L,52967L,
  81019. 52968L,52969L,52970L,52971L,52972L,52973L,52974L,52975L,52976L,52977L,
  81020. 52978L,52979L,52980L,52981L,52982L,52983L,52984L,52985L,52986L,52987L,
  81021. 52988L,52989L,52990L,52991L,52992L,52993L,52994L,52995L,52996L,52997L,
  81022. 52998L,52999L,53000L,53001L,53002L,53003L,53004L,53005L,53006L,53007L,
  81023. 53008L,53009L,53010L,53011L,53012L,53013L,53014L,53015L,53016L,53017L,
  81024. 53018L,53019L,53020L,53021L,53022L,53023L,53024L,53025L,53026L,53027L,
  81025. 53028L,53029L,53030L,53031L,53032L,53033L,53034L,53035L,53036L,53037L,
  81026. 53038L,53039L,53040L,53041L,53042L,53043L,53044L,53045L,53046L,53047L,
  81027. 53048L,53049L,53050L,53051L,53052L,53053L,53054L,53055L,53056L,53057L,
  81028. 53058L,53059L,53060L,53061L,53062L,53063L,53064L,53065L,53066L,53067L,
  81029. 53068L,53069L,53070L,53071L,53072L,53073L,53074L,53075L,53076L,53077L,
  81030. 53078L,53079L,53080L,53081L,53082L,53083L,53084L,53085L,53086L,53087L,
  81031. 53088L,53089L,53090L,53091L,53092L,53093L,53094L,53095L,53096L,53097L,
  81032. 53098L,53099L,53100L,53101L,53102L,53103L,53104L,53105L,53106L,53107L,
  81033. 53108L,53109L,53110L,53111L,53112L,53113L,53114L,53115L,53116L,53117L,
  81034. 53118L,53119L,53120L,53121L,53122L,53123L,53124L,53125L,53126L,53127L,
  81035. 53128L,53129L,53130L,53131L,53132L,53133L,53134L,53135L,53136L,53137L,
  81036. 53138L,53139L,53140L,53141L,53142L,53143L,53144L,53145L,53146L,53147L,
  81037. 53148L,53149L,53150L,53151L,53152L,53153L,53154L,53155L,53156L,53157L,
  81038. 53158L,53159L,53160L,53161L,53162L,53163L,53164L,53165L,53166L,53167L,
  81039. 53168L,53169L,53170L,53171L,53172L,53173L,53174L,53175L,53176L,53177L,
  81040. 53178L,53179L,53180L,53181L,53182L,53183L,53184L,53185L,53186L,53187L,
  81041. 53188L,53189L,53190L,53191L,53192L,53193L,53194L,53195L,53196L,53197L,
  81042. 53198L,53199L,53200L,53201L,53202L,53203L,53204L,53205L,53206L,53207L,
  81043. 53208L,53209L,53210L,53211L,53212L,53213L,53214L,53215L,53216L,53217L,
  81044. 53218L,53219L,53220L,53221L,53222L,53223L,53224L,53225L,53226L,53227L,
  81045. 53228L,53229L,53230L,53231L,53232L,53233L,53234L,53235L,53236L,53237L,
  81046. 53238L,53239L,53240L,53241L,53242L,53243L,53244L,53245L,53246L,53247L,
  81047. 53248L,53249L,53250L,53251L,53252L,53253L,53254L,53255L,53256L,53257L,
  81048. 53258L,53259L,53260L,53261L,53262L,53263L,53264L,53265L,53266L,53267L,
  81049. 53268L,53269L,53270L,53271L,53272L,53273L,53274L,53275L,53276L,53277L,
  81050. 53278L,53279L,53280L,53281L,53282L,53283L,53284L,53285L,53286L,53287L,
  81051. 53288L,53289L,53290L,53291L,53292L,53293L,53294L,53295L,53296L,53297L,
  81052. 53298L,53299L,53300L,53301L,53302L,53303L,53304L,53305L,53306L,53307L,
  81053. 53308L,53309L,53310L,53311L,53312L,53313L,53314L,53315L,53316L,53317L,
  81054. 53318L,53319L,53320L,53321L,53322L,53323L,53324L,53325L,53326L,53327L,
  81055. 53328L,53329L,53330L,53331L,53332L,53333L,53334L,53335L,53336L,53337L,
  81056. 53338L,53339L,53340L,53341L,53342L,53343L,53344L,53345L,53346L,53347L,
  81057. 53348L,53349L,53350L,53351L,53352L,53353L,53354L,53355L,53356L,53357L,
  81058. 53358L,53359L,53360L,53361L,53362L,53363L,53364L,53365L,53366L,53367L,
  81059. 53368L,53369L,53370L,53371L,53372L,53373L,53374L,53375L,53376L,53377L,
  81060. 53378L,53379L,53380L,53381L,53382L,53383L,53384L,53385L,53386L,53387L,
  81061. 53388L,53389L,53390L,53391L,53392L,53393L,53394L,53395L,53396L,53397L,
  81062. 53398L,53399L,53400L,53401L,53402L,53403L,53404L,53405L,53406L,53407L,
  81063. 53408L,53409L,53410L,53411L,53412L,53413L,53414L,53415L,53416L,53417L,
  81064. 53418L,53419L,53420L,53421L,53422L,53423L,53424L,53425L,53426L,53427L,
  81065. 53428L,53429L,53430L,53431L,53432L,53433L,53434L,53435L,53436L,53437L,
  81066. 53438L,53439L,53440L,53441L,53442L,53443L,53444L,53445L,53446L,53447L,
  81067. 53448L,53449L,53450L,53451L,53452L,53453L,53454L,53455L,53456L,53457L,
  81068. 53458L,53459L,53460L,53461L,53462L,53463L,53464L,53465L,53466L,53467L,
  81069. 53468L,53469L,53470L,53471L,53472L,53473L,53474L,53475L,53476L,53477L,
  81070. 53478L,53479L,53480L,53481L,53482L,53483L,53484L,53485L,53486L,53487L,
  81071. 53488L,53489L,53490L,53491L,53492L,53493L,53494L,53495L,53496L,53497L,
  81072. 53498L,53499L,53500L,53501L,53502L,53503L,53504L,53505L,53506L,53507L,
  81073. 53508L,53509L,53510L,53511L,53512L,53513L,53514L,53515L,53516L,53517L,
  81074. 53518L,53519L,53520L,53521L,53522L,53523L,53524L,53525L,53526L,53527L,
  81075. 53528L,53529L,53530L,53531L,53532L,53533L,53534L,53535L,53536L,53537L,
  81076. 53538L,53539L,53540L,53541L,53542L,53543L,53544L,53545L,53546L,53547L,
  81077. 53548L,53549L,53550L,53551L,53552L,53553L,53554L,53555L,53556L,53557L,
  81078. 53558L,53559L,53560L,53561L,53562L,53563L,53564L,53565L,53566L,53567L,
  81079. 53568L,53569L,53570L,53571L,53572L,53573L,53574L,53575L,53576L,53577L,
  81080. 53578L,53579L,53580L,53581L,53582L,53583L,53584L,53585L,53586L,53587L,
  81081. 53588L,53589L,53590L,53591L,53592L,53593L,53594L,53595L,53596L,53597L,
  81082. 53598L,53599L,53600L,53601L,53602L,53603L,53604L,53605L,53606L,53607L,
  81083. 53608L,53609L,53610L,53611L,53612L,53613L,53614L,53615L,53616L,53617L,
  81084. 53618L,53619L,53620L,53621L,53622L,53623L,53624L,53625L,53626L,53627L,
  81085. 53628L,53629L,53630L,53631L,53632L,53633L,53634L,53635L,53636L,53637L,
  81086. 53638L,53639L,53640L,53641L,53642L,53643L,53644L,53645L,53646L,53647L,
  81087. 53648L,53649L,53650L,53651L,53652L,53653L,53654L,53655L,53656L,53657L,
  81088. 53658L,53659L,53660L,53661L,53662L,53663L,53664L,53665L,53666L,53667L,
  81089. 53668L,53669L,53670L,53671L,53672L,53673L,53674L,53675L,53676L,53677L,
  81090. 53678L,53679L,53680L,53681L,53682L,53683L,53684L,53685L,53686L,53687L,
  81091. 53688L,53689L,53690L,53691L,53692L,53693L,53694L,53695L,53696L,53697L,
  81092. 53698L,53699L,53700L,53701L,53702L,53703L,53704L,53705L,53706L,53707L,
  81093. 53708L,53709L,53710L,53711L,53712L,53713L,53714L,53715L,53716L,53717L,
  81094. 53718L,53719L,53720L,53721L,53722L,53723L,53724L,53725L,53726L,53727L,
  81095. 53728L,53729L,53730L,53731L,53732L,53733L,53734L,53735L,53736L,53737L,
  81096. 53738L,53739L,53740L,53741L,53742L,53743L,53744L,53745L,53746L,53747L,
  81097. 53748L,53749L,53750L,53751L,53752L,53753L,53754L,53755L,53756L,53757L,
  81098. 53758L,53759L,53760L,53761L,53762L,53763L,53764L,53765L,53766L,53767L,
  81099. 53768L,53769L,53770L,53771L,53772L,53773L,53774L,53775L,53776L,53777L,
  81100. 53778L,53779L,53780L,53781L,53782L,53783L,53784L,53785L,53786L,53787L,
  81101. 53788L,53789L,53790L,53791L,53792L,53793L,53794L,53795L,53796L,53797L,
  81102. 53798L,53799L,53800L,53801L,53802L,53803L,53804L,53805L,53806L,53807L,
  81103. 53808L,53809L,53810L,53811L,53812L,53813L,53814L,53815L,53816L,53817L,
  81104. 53818L,53819L,53820L,53821L,53822L,53823L,53824L,53825L,53826L,53827L,
  81105. 53828L,53829L,53830L,53831L,53832L,53833L,53834L,53835L,53836L,53837L,
  81106. 53838L,53839L,53840L,53841L,53842L,53843L,53844L,53845L,53846L,53847L,
  81107. 53848L,53849L,53850L,53851L,53852L,53853L,53854L,53855L,53856L,53857L,
  81108. 53858L,53859L,53860L,53861L,53862L,53863L,53864L,53865L,53866L,53867L,
  81109. 53868L,53869L,53870L,53871L,53872L,53873L,53874L,53875L,53876L,53877L,
  81110. 53878L,53879L,53880L,53881L,53882L,53883L,53884L,53885L,53886L,53887L,
  81111. 53888L,53889L,53890L,53891L,53892L,53893L,53894L,53895L,53896L,53897L,
  81112. 53898L,53899L,53900L,53901L,53902L,53903L,53904L,53905L,53906L,53907L,
  81113. 53908L,53909L,53910L,53911L,53912L,53913L,53914L,53915L,53916L,53917L,
  81114. 53918L,53919L,53920L,53921L,53922L,53923L,53924L,53925L,53926L,53927L,
  81115. 53928L,53929L,53930L,53931L,53932L,53933L,53934L,53935L,53936L,53937L,
  81116. 53938L,53939L,53940L,53941L,53942L,53943L,53944L,53945L,53946L,53947L,
  81117. 53948L,53949L,53950L,53951L,53952L,53953L,53954L,53955L,53956L,53957L,
  81118. 53958L,53959L,53960L,53961L,53962L,53963L,53964L,53965L,53966L,53967L,
  81119. 53968L,53969L,53970L,53971L,53972L,53973L,53974L,53975L,53976L,53977L,
  81120. 53978L,53979L,53980L,53981L,53982L,53983L,53984L,53985L,53986L,53987L,
  81121. 53988L,53989L,53990L,53991L,53992L,53993L,53994L,53995L,53996L,53997L,
  81122. 53998L,53999L,54000L,54001L,54002L,54003L,54004L,54005L,54006L,54007L,
  81123. 54008L,54009L,54010L,54011L,54012L,54013L,54014L,54015L,54016L,54017L,
  81124. 54018L,54019L,54020L,54021L,54022L,54023L,54024L,54025L,54026L,54027L,
  81125. 54028L,54029L,54030L,54031L,54032L,54033L,54034L,54035L,54036L,54037L,
  81126. 54038L,54039L,54040L,54041L,54042L,54043L,54044L,54045L,54046L,54047L,
  81127. 54048L,54049L,54050L,54051L,54052L,54053L,54054L,54055L,54056L,54057L,
  81128. 54058L,54059L,54060L,54061L,54062L,54063L,54064L,54065L,54066L,54067L,
  81129. 54068L,54069L,54070L,54071L,54072L,54073L,54074L,54075L,54076L,54077L,
  81130. 54078L,54079L,54080L,54081L,54082L,54083L,54084L,54085L,54086L,54087L,
  81131. 54088L,54089L,54090L,54091L,54092L,54093L,54094L,54095L,54096L,54097L,
  81132. 54098L,54099L,54100L,54101L,54102L,54103L,54104L,54105L,54106L,54107L,
  81133. 54108L,54109L,54110L,54111L,54112L,54113L,54114L,54115L,54116L,54117L,
  81134. 54118L,54119L,54120L,54121L,54122L,54123L,54124L,54125L,54126L,54127L,
  81135. 54128L,54129L,54130L,54131L,54132L,54133L,54134L,54135L,54136L,54137L,
  81136. 54138L,54139L,54140L,54141L,54142L,54143L,54144L,54145L,54146L,54147L,
  81137. 54148L,54149L,54150L,54151L,54152L,54153L,54154L,54155L,54156L,54157L,
  81138. 54158L,54159L,54160L,54161L,54162L,54163L,54164L,54165L,54166L,54167L,
  81139. 54168L,54169L,54170L,54171L,54172L,54173L,54174L,54175L,54176L,54177L,
  81140. 54178L,54179L,54180L,54181L,54182L,54183L,54184L,54185L,54186L,54187L,
  81141. 54188L,54189L,54190L,54191L,54192L,54193L,54194L,54195L,54196L,54197L,
  81142. 54198L,54199L,54200L,54201L,54202L,54203L,54204L,54205L,54206L,54207L,
  81143. 54208L,54209L,54210L,54211L,54212L,54213L,54214L,54215L,54216L,54217L,
  81144. 54218L,54219L,54220L,54221L,54222L,54223L,54224L,54225L,54226L,54227L,
  81145. 54228L,54229L,54230L,54231L,54232L,54233L,54234L,54235L,54236L,54237L,
  81146. 54238L,54239L,54240L,54241L,54242L,54243L,54244L,54245L,54246L,54247L,
  81147. 54248L,54249L,54250L,54251L,54252L,54253L,54254L,54255L,54256L,54257L,
  81148. 54258L,54259L,54260L,54261L,54262L,54263L,54264L,54265L,54266L,54267L,
  81149. 54268L,54269L,54270L,54271L,54272L,54273L,54274L,54275L,54276L,54277L,
  81150. 54278L,54279L,54280L,54281L,54282L,54283L,54284L,54285L,54286L,54287L,
  81151. 54288L,54289L,54290L,54291L,54292L,54293L,54294L,54295L,54296L,54297L,
  81152. 54298L,54299L,54300L,54301L,54302L,54303L,54304L,54305L,54306L,54307L,
  81153. 54308L,54309L,54310L,54311L,54312L,54313L,54314L,54315L,54316L,54317L,
  81154. 54318L,54319L,54320L,54321L,54322L,54323L,54324L,54325L,54326L,54327L,
  81155. 54328L,54329L,54330L,54331L,54332L,54333L,54334L,54335L,54336L,54337L,
  81156. 54338L,54339L,54340L,54341L,54342L,54343L,54344L,54345L,54346L,54347L,
  81157. 54348L,54349L,54350L,54351L,54352L,54353L,54354L,54355L,54356L,54357L,
  81158. 54358L,54359L,54360L,54361L,54362L,54363L,54364L,54365L,54366L,54367L,
  81159. 54368L,54369L,54370L,54371L,54372L,54373L,54374L,54375L,54376L,54377L,
  81160. 54378L,54379L,54380L,54381L,54382L,54383L,54384L,54385L,54386L,54387L,
  81161. 54388L,54389L,54390L,54391L,54392L,54393L,54394L,54395L,54396L,54397L,
  81162. 54398L,54399L,54400L,54401L,54402L,54403L,54404L,54405L,54406L,54407L,
  81163. 54408L,54409L,54410L,54411L,54412L,54413L,54414L,54415L,54416L,54417L,
  81164. 54418L,54419L,54420L,54421L,54422L,54423L,54424L,54425L,54426L,54427L,
  81165. 54428L,54429L,54430L,54431L,54432L,54433L,54434L,54435L,54436L,54437L,
  81166. 54438L,54439L,54440L,54441L,54442L,54443L,54444L,54445L,54446L,54447L,
  81167. 54448L,54449L,54450L,54451L,54452L,54453L,54454L,54455L,54456L,54457L,
  81168. 54458L,54459L,54460L,54461L,54462L,54463L,54464L,54465L,54466L,54467L,
  81169. 54468L,54469L,54470L,54471L,54472L,54473L,54474L,54475L,54476L,54477L,
  81170. 54478L,54479L,54480L,54481L,54482L,54483L,54484L,54485L,54486L,54487L,
  81171. 54488L,54489L,54490L,54491L,54492L,54493L,54494L,54495L,54496L,54497L,
  81172. 54498L,54499L,54500L,54501L,54502L,54503L,54504L,54505L,54506L,54507L,
  81173. 54508L,54509L,54510L,54511L,54512L,54513L,54514L,54515L,54516L,54517L,
  81174. 54518L,54519L,54520L,54521L,54522L,54523L,54524L,54525L,54526L,54527L,
  81175. 54528L,54529L,54530L,54531L,54532L,54533L,54534L,54535L,54536L,54537L,
  81176. 54538L,54539L,54540L,54541L,54542L,54543L,54544L,54545L,54546L,54547L,
  81177. 54548L,54549L,54550L,54551L,54552L,54553L,54554L,54555L,54556L,54557L,
  81178. 54558L,54559L,54560L,54561L,54562L,54563L,54564L,54565L,54566L,54567L,
  81179. 54568L,54569L,54570L,54571L,54572L,54573L,54574L,54575L,54576L,54577L,
  81180. 54578L,54579L,54580L,54581L,54582L,54583L,54584L,54585L,54586L,54587L,
  81181. 54588L,54589L,54590L,54591L,54592L,54593L,54594L,54595L,54596L,54597L,
  81182. 54598L,54599L,54600L,54601L,54602L,54603L,54604L,54605L,54606L,54607L,
  81183. 54608L,54609L,54610L,54611L,54612L,54613L,54614L,54615L,54616L,54617L,
  81184. 54618L,54619L,54620L,54621L,54622L,54623L,54624L,54625L,54626L,54627L,
  81185. 54628L,54629L,54630L,54631L,54632L,54633L,54634L,54635L,54636L,54637L,
  81186. 54638L,54639L,54640L,54641L,54642L,54643L,54644L,54645L,54646L,54647L,
  81187. 54648L,54649L,54650L,54651L,54652L,54653L,54654L,54655L,54656L,54657L,
  81188. 54658L,54659L,54660L,54661L,54662L,54663L,54664L,54665L,54666L,54667L,
  81189. 54668L,54669L,54670L,54671L,54672L,54673L,54674L,54675L,54676L,54677L,
  81190. 54678L,54679L,54680L,54681L,54682L,54683L,54684L,54685L,54686L,54687L,
  81191. 54688L,54689L,54690L,54691L,54692L,54693L,54694L,54695L,54696L,54697L,
  81192. 54698L,54699L,54700L,54701L,54702L,54703L,54704L,54705L,54706L,54707L,
  81193. 54708L,54709L,54710L,54711L,54712L,54713L,54714L,54715L,54716L,54717L,
  81194. 54718L,54719L,54720L,54721L,54722L,54723L,54724L,54725L,54726L,54727L,
  81195. 54728L,54729L,54730L,54731L,54732L,54733L,54734L,54735L,54736L,54737L,
  81196. 54738L,54739L,54740L,54741L,54742L,54743L,54744L,54745L,54746L,54747L,
  81197. 54748L,54749L,54750L,54751L,54752L,54753L,54754L,54755L,54756L,54757L,
  81198. 54758L,54759L,54760L,54761L,54762L,54763L,54764L,54765L,54766L,54767L,
  81199. 54768L,54769L,54770L,54771L,54772L,54773L,54774L,54775L,54776L,54777L,
  81200. 54778L,54779L,54780L,54781L,54782L,54783L,54784L,54785L,54786L,54787L,
  81201. 54788L,54789L,54790L,54791L,54792L,54793L,54794L,54795L,54796L,54797L,
  81202. 54798L,54799L,54800L,54801L,54802L,54803L,54804L,54805L,54806L,54807L,
  81203. 54808L,54809L,54810L,54811L,54812L,54813L,54814L,54815L,54816L,54817L,
  81204. 54818L,54819L,54820L,54821L,54822L,54823L,54824L,54825L,54826L,54827L,
  81205. 54828L,54829L,54830L,54831L,54832L,54833L,54834L,54835L,54836L,54837L,
  81206. 54838L,54839L,54840L,54841L,54842L,54843L,54844L,54845L,54846L,54847L,
  81207. 54848L,54849L,54850L,54851L,54852L,54853L,54854L,54855L,54856L,54857L,
  81208. 54858L,54859L,54860L,54861L,54862L,54863L,54864L,54865L,54866L,54867L,
  81209. 54868L,54869L,54870L,54871L,54872L,54873L,54874L,54875L,54876L,54877L,
  81210. 54878L,54879L,54880L,54881L,54882L,54883L,54884L,54885L,54886L,54887L,
  81211. 54888L,54889L,54890L,54891L,54892L,54893L,54894L,54895L,54896L,54897L,
  81212. 54898L,54899L,54900L,54901L,54902L,54903L,54904L,54905L,54906L,54907L,
  81213. 54908L,54909L,54910L,54911L,54912L,54913L,54914L,54915L,54916L,54917L,
  81214. 54918L,54919L,54920L,54921L,54922L,54923L,54924L,54925L,54926L,54927L,
  81215. 54928L,54929L,54930L,54931L,54932L,54933L,54934L,54935L,54936L,54937L,
  81216. 54938L,54939L,54940L,54941L,54942L,54943L,54944L,54945L,54946L,54947L,
  81217. 54948L,54949L,54950L,54951L,54952L,54953L,54954L,54955L,54956L,54957L,
  81218. 54958L,54959L,54960L,54961L,54962L,54963L,54964L,54965L,54966L,54967L,
  81219. 54968L,54969L,54970L,54971L,54972L,54973L,54974L,54975L,54976L,54977L,
  81220. 54978L,54979L,54980L,54981L,54982L,54983L,54984L,54985L,54986L,54987L,
  81221. 54988L,54989L,54990L,54991L,54992L,54993L,54994L,54995L,54996L,54997L,
  81222. 54998L,54999L,55000L,55001L,55002L,55003L,55004L,55005L,55006L,55007L,
  81223. 55008L,55009L,55010L,55011L,55012L,55013L,55014L,55015L,55016L,55017L,
  81224. 55018L,55019L,55020L,55021L,55022L,55023L,55024L,55025L,55026L,55027L,
  81225. 55028L,55029L,55030L,55031L,55032L,55033L,55034L,55035L,55036L,55037L,
  81226. 55038L,55039L,55040L,55041L,55042L,55043L,55044L,55045L,55046L,55047L,
  81227. 55048L,55049L,55050L,55051L,55052L,55053L,55054L,55055L,55056L,55057L,
  81228. 55058L,55059L,55060L,55061L,55062L,55063L,55064L,55065L,55066L,55067L,
  81229. 55068L,55069L,55070L,55071L,55072L,55073L,55074L,55075L,55076L,55077L,
  81230. 55078L,55079L,55080L,55081L,55082L,55083L,55084L,55085L,55086L,55087L,
  81231. 55088L,55089L,55090L,55091L,55092L,55093L,55094L,55095L,55096L,55097L,
  81232. 55098L,55099L,55100L,55101L,55102L,55103L,55104L,55105L,55106L,55107L,
  81233. 55108L,55109L,55110L,55111L,55112L,55113L,55114L,55115L,55116L,55117L,
  81234. 55118L,55119L,55120L,55121L,55122L,55123L,55124L,55125L,55126L,55127L,
  81235. 55128L,55129L,55130L,55131L,55132L,55133L,55134L,55135L,55136L,55137L,
  81236. 55138L,55139L,55140L,55141L,55142L,55143L,55144L,55145L,55146L,55147L,
  81237. 55148L,55149L,55150L,55151L,55152L,55153L,55154L,55155L,55156L,55157L,
  81238. 55158L,55159L,55160L,55161L,55162L,55163L,55164L,55165L,55166L,55167L,
  81239. 55168L,55169L,55170L,55171L,55172L,55173L,55174L,55175L,55176L,55177L,
  81240. 55178L,55179L,55180L,55181L,55182L,55183L,55184L,55185L,55186L,55187L,
  81241. 55188L,55189L,55190L,55191L,55192L,55193L,55194L,55195L,55196L,55197L,
  81242. 55198L,55199L,55200L,55201L,55202L,55203L,55204L,55205L,55206L,55207L,
  81243. 55208L,55209L,55210L,55211L,55212L,55213L,55214L,55215L,55216L,55217L,
  81244. 55218L,55219L,55220L,55221L,55222L,55223L,55224L,55225L,55226L,55227L,
  81245. 55228L,55229L,55230L,55231L,55232L,55233L,55234L,55235L,55236L,55237L,
  81246. 55238L,55239L,55240L,55241L,55242L,55243L,55244L,55245L,55246L,55247L,
  81247. 55248L,55249L,55250L,55251L,55252L,55253L,55254L,55255L,55256L,55257L,
  81248. 55258L,55259L,55260L,55261L,55262L,55263L,55264L,55265L,55266L,55267L,
  81249. 55268L,55269L,55270L,55271L,55272L,55273L,55274L,55275L,55276L,55277L,
  81250. 55278L,55279L,55280L,55281L,55282L,55283L,55284L,55285L,55286L,55287L,
  81251. 55288L,55289L,55290L,55291L,55292L,55293L,55294L,55295L,55296L,55297L,
  81252. 55298L,55299L,55300L,55301L,55302L,55303L,55304L,55305L,55306L,55307L,
  81253. 55308L,55309L,55310L,55311L,55312L,55313L,55314L,55315L,55316L,55317L,
  81254. 55318L,55319L,55320L,55321L,55322L,55323L,55324L,55325L,55326L,55327L,
  81255. 55328L,55329L,55330L,55331L,55332L,55333L,55334L,55335L,55336L,55337L,
  81256. 55338L,55339L,55340L,55341L,55342L,55343L,55344L,55345L,55346L,55347L,
  81257. 55348L,55349L,55350L,55351L,55352L,55353L,55354L,55355L,55356L,55357L,
  81258. 55358L,55359L,55360L,55361L,55362L,55363L,55364L,55365L,55366L,55367L,
  81259. 55368L,55369L,55370L,55371L,55372L,55373L,55374L,55375L,55376L,55377L,
  81260. 55378L,55379L,55380L,55381L,55382L,55383L,55384L,55385L,55386L,55387L,
  81261. 55388L,55389L,55390L,55391L,55392L,55393L,55394L,55395L,55396L,55397L,
  81262. 55398L,55399L,55400L,55401L,55402L,55403L,55404L,55405L,55406L,55407L,
  81263. 55408L,55409L,55410L,55411L,55412L,55413L,55414L,55415L,55416L,55417L,
  81264. 55418L,55419L,55420L,55421L,55422L,55423L,55424L,55425L,55426L,55427L,
  81265. 55428L,55429L,55430L,55431L,55432L,55433L,55434L,55435L,55436L,55437L,
  81266. 55438L,55439L,55440L,55441L,55442L,55443L,55444L,55445L,55446L,55447L,
  81267. 55448L,55449L,55450L,55451L,55452L,55453L,55454L,55455L,55456L,55457L,
  81268. 55458L,55459L,55460L,55461L,55462L,55463L,55464L,55465L,55466L,55467L,
  81269. 55468L,55469L,55470L,55471L,55472L,55473L,55474L,55475L,55476L,55477L,
  81270. 55478L,55479L,55480L,55481L,55482L,55483L,55484L,55485L,55486L,55487L,
  81271. 55488L,55489L,55490L,55491L,55492L,55493L,55494L,55495L,55496L,55497L,
  81272. 55498L,55499L,55500L,55501L,55502L,55503L,55504L,55505L,55506L,55507L,
  81273. 55508L,55509L,55510L,55511L,55512L,55513L,55514L,55515L,55516L,55517L,
  81274. 55518L,55519L,55520L,55521L,55522L,55523L,55524L,55525L,55526L,55527L,
  81275. 55528L,55529L,55530L,55531L,55532L,55533L,55534L,55535L,55536L,55537L,
  81276. 55538L,55539L,55540L,55541L,55542L,55543L,55544L,55545L,55546L,55547L,
  81277. 55548L,55549L,55550L,55551L,55552L,55553L,55554L,55555L,55556L,55557L,
  81278. 55558L,55559L,55560L,55561L,55562L,55563L,55564L,55565L,55566L,55567L,
  81279. 55568L,55569L,55570L,55571L,55572L,55573L,55574L,55575L,55576L,55577L,
  81280. 55578L,55579L,55580L,55581L,55582L,55583L,55584L,55585L,55586L,55587L,
  81281. 55588L,55589L,55590L,55591L,55592L,55593L,55594L,55595L,55596L,55597L,
  81282. 55598L,55599L,55600L,55601L,55602L,55603L,55604L,55605L,55606L,55607L,
  81283. 55608L,55609L,55610L,55611L,55612L,55613L,55614L,55615L,55616L,55617L,
  81284. 55618L,55619L,55620L,55621L,55622L,55623L,55624L,55625L,55626L,55627L,
  81285. 55628L,55629L,55630L,55631L,55632L,55633L,55634L,55635L,55636L,55637L,
  81286. 55638L,55639L,55640L,55641L,55642L,55643L,55644L,55645L,55646L,55647L,
  81287. 55648L,55649L,55650L,55651L,55652L,55653L,55654L,55655L,55656L,55657L,
  81288. 55658L,55659L,55660L,55661L,55662L,55663L,55664L,55665L,55666L,55667L,
  81289. 55668L,55669L,55670L,55671L,55672L,55673L,55674L,55675L,55676L,55677L,
  81290. 55678L,55679L,55680L,55681L,55682L,55683L,55684L,55685L,55686L,55687L,
  81291. 55688L,55689L,55690L,55691L,55692L,55693L,55694L,55695L,55696L,55697L,
  81292. 55698L,55699L,55700L,55701L,55702L,55703L,55704L,55705L,55706L,55707L,
  81293. 55708L,55709L,55710L,55711L,55712L,55713L,55714L,55715L,55716L,55717L,
  81294. 55718L,55719L,55720L,55721L,55722L,55723L,55724L,55725L,55726L,55727L,
  81295. 55728L,55729L,55730L,55731L,55732L,55733L,55734L,55735L,55736L,55737L,
  81296. 55738L,55739L,55740L,55741L,55742L,55743L,55744L,55745L,55746L,55747L,
  81297. 55748L,55749L,55750L,55751L,55752L,55753L,55754L,55755L,55756L,55757L,
  81298. 55758L,55759L,55760L,55761L,55762L,55763L,55764L,55765L,55766L,55767L,
  81299. 55768L,55769L,55770L,55771L,55772L,55773L,55774L,55775L,55776L,55777L,
  81300. 55778L,55779L,55780L,55781L,55782L,55783L,55784L,55785L,55786L,55787L,
  81301. 55788L,55789L,55790L,55791L,55792L,55793L,55794L,55795L,55796L,55797L,
  81302. 55798L,55799L,55800L,55801L,55802L,55803L,55804L,55805L,55806L,55807L,
  81303. 55808L,55809L,55810L,55811L,55812L,55813L,55814L,55815L,55816L,55817L,
  81304. 55818L,55819L,55820L,55821L,55822L,55823L,55824L,55825L,55826L,55827L,
  81305. 55828L,55829L,55830L,55831L,55832L,55833L,55834L,55835L,55836L,55837L,
  81306. 55838L,55839L,55840L,55841L,55842L,55843L,55844L,55845L,55846L,55847L,
  81307. 55848L,55849L,55850L,55851L,55852L,55853L,55854L,55855L,55856L,55857L,
  81308. 55858L,55859L,55860L,55861L,55862L,55863L,55864L,55865L,55866L,55867L,
  81309. 55868L,55869L,55870L,55871L,55872L,55873L,55874L,55875L,55876L,55877L,
  81310. 55878L,55879L,55880L,55881L,55882L,55883L,55884L,55885L,55886L,55887L,
  81311. 55888L,55889L,55890L,55891L,55892L,55893L,55894L,55895L,55896L,55897L,
  81312. 55898L,55899L,55900L,55901L,55902L,55903L,55904L,55905L,55906L,55907L,
  81313. 55908L,55909L,55910L,55911L,55912L,55913L,55914L,55915L,55916L,55917L,
  81314. 55918L,55919L,55920L,55921L,55922L,55923L,55924L,55925L,55926L,55927L,
  81315. 55928L,55929L,55930L,55931L,55932L,55933L,55934L,55935L,55936L,55937L,
  81316. 55938L,55939L,55940L,55941L,55942L,55943L,55944L,55945L,55946L,55947L,
  81317. 55948L,55949L,55950L,55951L,55952L,55953L,55954L,55955L,55956L,55957L,
  81318. 55958L,55959L,55960L,55961L,55962L,55963L,55964L,55965L,55966L,55967L,
  81319. 55968L,55969L,55970L,55971L,55972L,55973L,55974L,55975L,55976L,55977L,
  81320. 55978L,55979L,55980L,55981L,55982L,55983L,55984L,55985L,55986L,55987L,
  81321. 55988L,55989L,55990L,55991L,55992L,55993L,55994L,55995L,55996L,55997L,
  81322. 55998L,55999L,56000L,56001L,56002L,56003L,56004L,56005L,56006L,56007L,
  81323. 56008L,56009L,56010L,56011L,56012L,56013L,56014L,56015L,56016L,56017L,
  81324. 56018L,56019L,56020L,56021L,56022L,56023L,56024L,56025L,56026L,56027L,
  81325. 56028L,56029L,56030L,56031L,56032L,56033L,56034L,56035L,56036L,56037L,
  81326. 56038L,56039L,56040L,56041L,56042L,56043L,56044L,56045L,56046L,56047L,
  81327. 56048L,56049L,56050L,56051L,56052L,56053L,56054L,56055L,56056L,56057L,
  81328. 56058L,56059L,56060L,56061L,56062L,56063L,56064L,56065L,56066L,56067L,
  81329. 56068L,56069L,56070L,56071L,56072L,56073L,56074L,56075L,56076L,56077L,
  81330. 56078L,56079L,56080L,56081L,56082L,56083L,56084L,56085L,56086L,56087L,
  81331. 56088L,56089L,56090L,56091L,56092L,56093L,56094L,56095L,56096L,56097L,
  81332. 56098L,56099L,56100L,56101L,56102L,56103L,56104L,56105L,56106L,56107L,
  81333. 56108L,56109L,56110L,56111L,56112L,56113L,56114L,56115L,56116L,56117L,
  81334. 56118L,56119L,56120L,56121L,56122L,56123L,56124L,56125L,56126L,56127L,
  81335. 56128L,56129L,56130L,56131L,56132L,56133L,56134L,56135L,56136L,56137L,
  81336. 56138L,56139L,56140L,56141L,56142L,56143L,56144L,56145L,56146L,56147L,
  81337. 56148L,56149L,56150L,56151L,56152L,56153L,56154L,56155L,56156L,56157L,
  81338. 56158L,56159L,56160L,56161L,56162L,56163L,56164L,56165L,56166L,56167L,
  81339. 56168L,56169L,56170L,56171L,56172L,56173L,56174L,56175L,56176L,56177L,
  81340. 56178L,56179L,56180L,56181L,56182L,56183L,56184L,56185L,56186L,56187L,
  81341. 56188L,56189L,56190L,56191L,56192L,56193L,56194L,56195L,56196L,56197L,
  81342. 56198L,56199L,56200L,56201L,56202L,56203L,56204L,56205L,56206L,56207L,
  81343. 56208L,56209L,56210L,56211L,56212L,56213L,56214L,56215L,56216L,56217L,
  81344. 56218L,56219L,56220L,56221L,56222L,56223L,56224L,56225L,56226L,56227L,
  81345. 56228L,56229L,56230L,56231L,56232L,56233L,56234L,56235L,56236L,56237L,
  81346. 56238L,56239L,56240L,56241L,56242L,56243L,56244L,56245L,56246L,56247L,
  81347. 56248L,56249L,56250L,56251L,56252L,56253L,56254L,56255L,56256L,56257L,
  81348. 56258L,56259L,56260L,56261L,56262L,56263L,56264L,56265L,56266L,56267L,
  81349. 56268L,56269L,56270L,56271L,56272L,56273L,56274L,56275L,56276L,56277L,
  81350. 56278L,56279L,56280L,56281L,56282L,56283L,56284L,56285L,56286L,56287L,
  81351. 56288L,56289L,56290L,56291L,56292L,56293L,56294L,56295L,56296L,56297L,
  81352. 56298L,56299L,56300L,56301L,56302L,56303L,56304L,56305L,56306L,56307L,
  81353. 56308L,56309L,56310L,56311L,56312L,56313L,56314L,56315L,56316L,56317L,
  81354. 56318L,56319L,56320L,56321L,56322L,56323L,56324L,56325L,56326L,56327L,
  81355. 56328L,56329L,56330L,56331L,56332L,56333L,56334L,56335L,56336L,56337L,
  81356. 56338L,56339L,56340L,56341L,56342L,56343L,56344L,56345L,56346L,56347L,
  81357. 56348L,56349L,56350L,56351L,56352L,56353L,56354L,56355L,56356L,56357L,
  81358. 56358L,56359L,56360L,56361L,56362L,56363L,56364L,56365L,56366L,56367L,
  81359. 56368L,56369L,56370L,56371L,56372L,56373L,56374L,56375L,56376L,56377L,
  81360. 56378L,56379L,56380L,56381L,56382L,56383L,56384L,56385L,56386L,56387L,
  81361. 56388L,56389L,56390L,56391L,56392L,56393L,56394L,56395L,56396L,56397L,
  81362. 56398L,56399L,56400L,56401L,56402L,56403L,56404L,56405L,56406L,56407L,
  81363. 56408L,56409L,56410L,56411L,56412L,56413L,56414L,56415L,56416L,56417L,
  81364. 56418L,56419L,56420L,56421L,56422L,56423L,56424L,56425L,56426L,56427L,
  81365. 56428L,56429L,56430L,56431L,56432L,56433L,56434L,56435L,56436L,56437L,
  81366. 56438L,56439L,56440L,56441L,56442L,56443L,56444L,56445L,56446L,56447L,
  81367. 56448L,56449L,56450L,56451L,56452L,56453L,56454L,56455L,56456L,56457L,
  81368. 56458L,56459L,56460L,56461L,56462L,56463L,56464L,56465L,56466L,56467L,
  81369. 56468L,56469L,56470L,56471L,56472L,56473L,56474L,56475L,56476L,56477L,
  81370. 56478L,56479L,56480L,56481L,56482L,56483L,56484L,56485L,56486L,56487L,
  81371. 56488L,56489L,56490L,56491L,56492L,56493L,56494L,56495L,56496L,56497L,
  81372. 56498L,56499L,56500L,56501L,56502L,56503L,56504L,56505L,56506L,56507L,
  81373. 56508L,56509L,56510L,56511L,56512L,56513L,56514L,56515L,56516L,56517L,
  81374. 56518L,56519L,56520L,56521L,56522L,56523L,56524L,56525L,56526L,56527L,
  81375. 56528L,56529L,56530L,56531L,56532L,56533L,56534L,56535L,56536L,56537L,
  81376. 56538L,56539L,56540L,56541L,56542L,56543L,56544L,56545L,56546L,56547L,
  81377. 56548L,56549L,56550L,56551L,56552L,56553L,56554L,56555L,56556L,56557L,
  81378. 56558L,56559L,56560L,56561L,56562L,56563L,56564L,56565L,56566L,56567L,
  81379. 56568L,56569L,56570L,56571L,56572L,56573L,56574L,56575L,56576L,56577L,
  81380. 56578L,56579L,56580L,56581L,56582L,56583L,56584L,56585L,56586L,56587L,
  81381. 56588L,56589L,56590L,56591L,56592L,56593L,56594L,56595L,56596L,56597L,
  81382. 56598L,56599L,56600L,56601L,56602L,56603L,56604L,56605L,56606L,56607L,
  81383. 56608L,56609L,56610L,56611L,56612L,56613L,56614L,56615L,56616L,56617L,
  81384. 56618L,56619L,56620L,56621L,56622L,56623L,56624L,56625L,56626L,56627L,
  81385. 56628L,56629L,56630L,56631L,56632L,56633L,56634L,56635L,56636L,56637L,
  81386. 56638L,56639L,56640L,56641L,56642L,56643L,56644L,56645L,56646L,56647L,
  81387. 56648L,56649L,56650L,56651L,56652L,56653L,56654L,56655L,56656L,56657L,
  81388. 56658L,56659L,56660L,56661L,56662L,56663L,56664L,56665L,56666L,56667L,
  81389. 56668L,56669L,56670L,56671L,56672L,56673L,56674L,56675L,56676L,56677L,
  81390. 56678L,56679L,56680L,56681L,56682L,56683L,56684L,56685L,56686L,56687L,
  81391. 56688L,56689L,56690L,56691L,56692L,56693L,56694L,56695L,56696L,56697L,
  81392. 56698L,56699L,56700L,56701L,56702L,56703L,56704L,56705L,56706L,56707L,
  81393. 56708L,56709L,56710L,56711L,56712L,56713L,56714L,56715L,56716L,56717L,
  81394. 56718L,56719L,56720L,56721L,56722L,56723L,56724L,56725L,56726L,56727L,
  81395. 56728L,56729L,56730L,56731L,56732L,56733L,56734L,56735L,56736L,56737L,
  81396. 56738L,56739L,56740L,56741L,56742L,56743L,56744L,56745L,56746L,56747L,
  81397. 56748L,56749L,56750L,56751L,56752L,56753L,56754L,56755L,56756L,56757L,
  81398. 56758L,56759L,56760L,56761L,56762L,56763L,56764L,56765L,56766L,56767L,
  81399. 56768L,56769L,56770L,56771L,56772L,56773L,56774L,56775L,56776L,56777L,
  81400. 56778L,56779L,56780L,56781L,56782L,56783L,56784L,56785L,56786L,56787L,
  81401. 56788L,56789L,56790L,56791L,56792L,56793L,56794L,56795L,56796L,56797L,
  81402. 56798L,56799L,56800L,56801L,56802L,56803L,56804L,56805L,56806L,56807L,
  81403. 56808L,56809L,56810L,56811L,56812L,56813L,56814L,56815L,56816L,56817L,
  81404. 56818L,56819L,56820L,56821L,56822L,56823L,56824L,56825L,56826L,56827L,
  81405. 56828L,56829L,56830L,56831L,56832L,56833L,56834L,56835L,56836L,56837L,
  81406. 56838L,56839L,56840L,56841L,56842L,56843L,56844L,56845L,56846L,56847L,
  81407. 56848L,56849L,56850L,56851L,56852L,56853L,56854L,56855L,56856L,56857L,
  81408. 56858L,56859L,56860L,56861L,56862L,56863L,56864L,56865L,56866L,56867L,
  81409. 56868L,56869L,56870L,56871L,56872L,56873L,56874L,56875L,56876L,56877L,
  81410. 56878L,56879L,56880L,56881L,56882L,56883L,56884L,56885L,56886L,56887L,
  81411. 56888L,56889L,56890L,56891L,56892L,56893L,56894L,56895L,56896L,56897L,
  81412. 56898L,56899L,56900L,56901L,56902L,56903L,56904L,56905L,56906L,56907L,
  81413. 56908L,56909L,56910L,56911L,56912L,56913L,56914L,56915L,56916L,56917L,
  81414. 56918L,56919L,56920L,56921L,56922L,56923L,56924L,56925L,56926L,56927L,
  81415. 56928L,56929L,56930L,56931L,56932L,56933L,56934L,56935L,56936L,56937L,
  81416. 56938L,56939L,56940L,56941L,56942L,56943L,56944L,56945L,56946L,56947L,
  81417. 56948L,56949L,56950L,56951L,56952L,56953L,56954L,56955L,56956L,56957L,
  81418. 56958L,56959L,56960L,56961L,56962L,56963L,56964L,56965L,56966L,56967L,
  81419. 56968L,56969L,56970L,56971L,56972L,56973L,56974L,56975L,56976L,56977L,
  81420. 56978L,56979L,56980L,56981L,56982L,56983L,56984L,56985L,56986L,56987L,
  81421. 56988L,56989L,56990L,56991L,56992L,56993L,56994L,56995L,56996L,56997L,
  81422. 56998L,56999L,57000L,57001L,57002L,57003L,57004L,57005L,57006L,57007L,
  81423. 57008L,57009L,57010L,57011L,57012L,57013L,57014L,57015L,57016L,57017L,
  81424. 57018L,57019L,57020L,57021L,57022L,57023L,57024L,57025L,57026L,57027L,
  81425. 57028L,57029L,57030L,57031L,57032L,57033L,57034L,57035L,57036L,57037L,
  81426. 57038L,57039L,57040L,57041L,57042L,57043L,57044L,57045L,57046L,57047L,
  81427. 57048L,57049L,57050L,57051L,57052L,57053L,57054L,57055L,57056L,57057L,
  81428. 57058L,57059L,57060L,57061L,57062L,57063L,57064L,57065L,57066L,57067L,
  81429. 57068L,57069L,57070L,57071L,57072L,57073L,57074L,57075L,57076L,57077L,
  81430. 57078L,57079L,57080L,57081L,57082L,57083L,57084L,57085L,57086L,57087L,
  81431. 57088L,57089L,57090L,57091L,57092L,57093L,57094L,57095L,57096L,57097L,
  81432. 57098L,57099L,57100L,57101L,57102L,57103L,57104L,57105L,57106L,57107L,
  81433. 57108L,57109L,57110L,57111L,57112L,57113L,57114L,57115L,57116L,57117L,
  81434. 57118L,57119L,57120L,57121L,57122L,57123L,57124L,57125L,57126L,57127L,
  81435. 57128L,57129L,57130L,57131L,57132L,57133L,57134L,57135L,57136L,57137L,
  81436. 57138L,57139L,57140L,57141L,57142L,57143L,57144L,57145L,57146L,57147L,
  81437. 57148L,57149L,57150L,57151L,57152L,57153L,57154L,57155L,57156L,57157L,
  81438. 57158L,57159L,57160L,57161L,57162L,57163L,57164L,57165L,57166L,57167L,
  81439. 57168L,57169L,57170L,57171L,57172L,57173L,57174L,57175L,57176L,57177L,
  81440. 57178L,57179L,57180L,57181L,57182L,57183L,57184L,57185L,57186L,57187L,
  81441. 57188L,57189L,57190L,57191L,57192L,57193L,57194L,57195L,57196L,57197L,
  81442. 57198L,57199L,57200L,57201L,57202L,57203L,57204L,57205L,57206L,57207L,
  81443. 57208L,57209L,57210L,57211L,57212L,57213L,57214L,57215L,57216L,57217L,
  81444. 57218L,57219L,57220L,57221L,57222L,57223L,57224L,57225L,57226L,57227L,
  81445. 57228L,57229L,57230L,57231L,57232L,57233L,57234L,57235L,57236L,57237L,
  81446. 57238L,57239L,57240L,57241L,57242L,57243L,57244L,57245L,57246L,57247L,
  81447. 57248L,57249L,57250L,57251L,57252L,57253L,57254L,57255L,57256L,57257L,
  81448. 57258L,57259L,57260L,57261L,57262L,57263L,57264L,57265L,57266L,57267L,
  81449. 57268L,57269L,57270L,57271L,57272L,57273L,57274L,57275L,57276L,57277L,
  81450. 57278L,57279L,57280L,57281L,57282L,57283L,57284L,57285L,57286L,57287L,
  81451. 57288L,57289L,57290L,57291L,57292L,57293L,57294L,57295L,57296L,57297L,
  81452. 57298L,57299L,57300L,57301L,57302L,57303L,57304L,57305L,57306L,57307L,
  81453. 57308L,57309L,57310L,57311L,57312L,57313L,57314L,57315L,57316L,57317L,
  81454. 57318L,57319L,57320L,57321L,57322L,57323L,57324L,57325L,57326L,57327L,
  81455. 57328L,57329L,57330L,57331L,57332L,57333L,57334L,57335L,57336L,57337L,
  81456. 57338L,57339L,57340L,57341L,57342L,57343L,57344L,57345L,57346L,57347L,
  81457. 57348L,57349L,57350L,57351L,57352L,57353L,57354L,57355L,57356L,57357L,
  81458. 57358L,57359L,57360L,57361L,57362L,57363L,57364L,57365L,57366L,57367L,
  81459. 57368L,57369L,57370L,57371L,57372L,57373L,57374L,57375L,57376L,57377L,
  81460. 57378L,57379L,57380L,57381L,57382L,57383L,57384L,57385L,57386L,57387L,
  81461. 57388L,57389L,57390L,57391L,57392L,57393L,57394L,57395L,57396L,57397L,
  81462. 57398L,57399L,57400L,57401L,57402L,57403L,57404L,57405L,57406L,57407L,
  81463. 57408L,57409L,57410L,57411L,57412L,57413L,57414L,57415L,57416L,57417L,
  81464. 57418L,57419L,57420L,57421L,57422L,57423L,57424L,57425L,57426L,57427L,
  81465. 57428L,57429L,57430L,57431L,57432L,57433L,57434L,57435L,57436L,57437L,
  81466. 57438L,57439L,57440L,57441L,57442L,57443L,57444L,57445L,57446L,57447L,
  81467. 57448L,57449L,57450L,57451L,57452L,57453L,57454L,57455L,57456L,57457L,
  81468. 57458L,57459L,57460L,57461L,57462L,57463L,57464L,57465L,57466L,57467L,
  81469. 57468L,57469L,57470L,57471L,57472L,57473L,57474L,57475L,57476L,57477L,
  81470. 57478L,57479L,57480L,57481L,57482L,57483L,57484L,57485L,57486L,57487L,
  81471. 57488L,57489L,57490L,57491L,57492L,57493L,57494L,57495L,57496L,57497L,
  81472. 57498L,57499L,57500L,57501L,57502L,57503L,57504L,57505L,57506L,57507L,
  81473. 57508L,57509L,57510L,57511L,57512L,57513L,57514L,57515L,57516L,57517L,
  81474. 57518L,57519L,57520L,57521L,57522L,57523L,57524L,57525L,57526L,57527L,
  81475. 57528L,57529L,57530L,57531L,57532L,57533L,57534L,57535L,57536L,57537L,
  81476. 57538L,57539L,57540L,57541L,57542L,57543L,57544L,57545L,57546L,57547L,
  81477. 57548L,57549L,57550L,57551L,57552L,57553L,57554L,57555L,57556L,57557L,
  81478. 57558L,57559L,57560L,57561L,57562L,57563L,57564L,57565L,57566L,57567L,
  81479. 57568L,57569L,57570L,57571L,57572L,57573L,57574L,57575L,57576L,57577L,
  81480. 57578L,57579L,57580L,57581L,57582L,57583L,57584L,57585L,57586L,57587L,
  81481. 57588L,57589L,57590L,57591L,57592L,57593L,57594L,57595L,57596L,57597L,
  81482. 57598L,57599L,57600L,57601L,57602L,57603L,57604L,57605L,57606L,57607L,
  81483. 57608L,57609L,57610L,57611L,57612L,57613L,57614L,57615L,57616L,57617L,
  81484. 57618L,57619L,57620L,57621L,57622L,57623L,57624L,57625L,57626L,57627L,
  81485. 57628L,57629L,57630L,57631L,57632L,57633L,57634L,57635L,57636L,57637L,
  81486. 57638L,57639L,57640L,57641L,57642L,57643L,57644L,57645L,57646L,57647L,
  81487. 57648L,57649L,57650L,57651L,57652L,57653L,57654L,57655L,57656L,57657L,
  81488. 57658L,57659L,57660L,57661L,57662L,57663L,57664L,57665L,57666L,57667L,
  81489. 57668L,57669L,57670L,57671L,57672L,57673L,57674L,57675L,57676L,57677L,
  81490. 57678L,57679L,57680L,57681L,57682L,57683L,57684L,57685L,57686L,57687L,
  81491. 57688L,57689L,57690L,57691L,57692L,57693L,57694L,57695L,57696L,57697L,
  81492. 57698L,57699L,57700L,57701L,57702L,57703L,57704L,57705L,57706L,57707L,
  81493. 57708L,57709L,57710L,57711L,57712L,57713L,57714L,57715L,57716L,57717L,
  81494. 57718L,57719L,57720L,57721L,57722L,57723L,57724L,57725L,57726L,57727L,
  81495. 57728L,57729L,57730L,57731L,57732L,57733L,57734L,57735L,57736L,57737L,
  81496. 57738L,57739L,57740L,57741L,57742L,57743L,57744L,57745L,57746L,57747L,
  81497. 57748L,57749L,57750L,57751L,57752L,57753L,57754L,57755L,57756L,57757L,
  81498. 57758L,57759L,57760L,57761L,57762L,57763L,57764L,57765L,57766L,57767L,
  81499. 57768L,57769L,57770L,57771L,57772L,57773L,57774L,57775L,57776L,57777L,
  81500. 57778L,57779L,57780L,57781L,57782L,57783L,57784L,57785L,57786L,57787L,
  81501. 57788L,57789L,57790L,57791L,57792L,57793L,57794L,57795L,57796L,57797L,
  81502. 57798L,57799L,57800L,57801L,57802L,57803L,57804L,57805L,57806L,57807L,
  81503. 57808L,57809L,57810L,57811L,57812L,57813L,57814L,57815L,57816L,57817L,
  81504. 57818L,57819L,57820L,57821L,57822L,57823L,57824L,57825L,57826L,57827L,
  81505. 57828L,57829L,57830L,57831L,57832L,57833L,57834L,57835L,57836L,57837L,
  81506. 57838L,57839L,57840L,57841L,57842L,57843L,57844L,57845L,57846L,57847L,
  81507. 57848L,57849L,57850L,57851L,57852L,57853L,57854L,57855L,57856L,57857L,
  81508. 57858L,57859L,57860L,57861L,57862L,57863L,57864L,57865L,57866L,57867L,
  81509. 57868L,57869L,57870L,57871L,57872L,57873L,57874L,57875L,57876L,57877L,
  81510. 57878L,57879L,57880L,57881L,57882L,57883L,57884L,57885L,57886L,57887L,
  81511. 57888L,57889L,57890L,57891L,57892L,57893L,57894L,57895L,57896L,57897L,
  81512. 57898L,57899L,57900L,57901L,57902L,57903L,57904L,57905L,57906L,57907L,
  81513. 57908L,57909L,57910L,57911L,57912L,57913L,57914L,57915L,57916L,57917L,
  81514. 57918L,57919L,57920L,57921L,57922L,57923L,57924L,57925L,57926L,57927L,
  81515. 57928L,57929L,57930L,57931L,57932L,57933L,57934L,57935L,57936L,57937L,
  81516. 57938L,57939L,57940L,57941L,57942L,57943L,57944L,57945L,57946L,57947L,
  81517. 57948L,57949L,57950L,57951L,57952L,57953L,57954L,57955L,57956L,57957L,
  81518. 57958L,57959L,57960L,57961L,57962L,57963L,57964L,57965L,57966L,57967L,
  81519. 57968L,57969L,57970L,57971L,57972L,57973L,57974L,57975L,57976L,57977L,
  81520. 57978L,57979L,57980L,57981L,57982L,57983L,57984L,57985L,57986L,57987L,
  81521. 57988L,57989L,57990L,57991L,57992L,57993L,57994L,57995L,57996L,57997L,
  81522. 57998L,57999L,58000L,58001L,58002L,58003L,58004L,58005L,58006L,58007L,
  81523. 58008L,58009L,58010L,58011L,58012L,58013L,58014L,58015L,58016L,58017L,
  81524. 58018L,58019L,58020L,58021L,58022L,58023L,58024L,58025L,58026L,58027L,
  81525. 58028L,58029L,58030L,58031L,58032L,58033L,58034L,58035L,58036L,58037L,
  81526. 58038L,58039L,58040L,58041L,58042L,58043L,58044L,58045L,58046L,58047L,
  81527. 58048L,58049L,58050L,58051L,58052L,58053L,58054L,58055L,58056L,58057L,
  81528. 58058L,58059L,58060L,58061L,58062L,58063L,58064L,58065L,58066L,58067L,
  81529. 58068L,58069L,58070L,58071L,58072L,58073L,58074L,58075L,58076L,58077L,
  81530. 58078L,58079L,58080L,58081L,58082L,58083L,58084L,58085L,58086L,58087L,
  81531. 58088L,58089L,58090L,58091L,58092L,58093L,58094L,58095L,58096L,58097L,
  81532. 58098L,58099L,58100L,58101L,58102L,58103L,58104L,58105L,58106L,58107L,
  81533. 58108L,58109L,58110L,58111L,58112L,58113L,58114L,58115L,58116L,58117L,
  81534. 58118L,58119L,58120L,58121L,58122L,58123L,58124L,58125L,58126L,58127L,
  81535. 58128L,58129L,58130L,58131L,58132L,58133L,58134L,58135L,58136L,58137L,
  81536. 58138L,58139L,58140L,58141L,58142L,58143L,58144L,58145L,58146L,58147L,
  81537. 58148L,58149L,58150L,58151L,58152L,58153L,58154L,58155L,58156L,58157L,
  81538. 58158L,58159L,58160L,58161L,58162L,58163L,58164L,58165L,58166L,58167L,
  81539. 58168L,58169L,58170L,58171L,58172L,58173L,58174L,58175L,58176L,58177L,
  81540. 58178L,58179L,58180L,58181L,58182L,58183L,58184L,58185L,58186L,58187L,
  81541. 58188L,58189L,58190L,58191L,58192L,58193L,58194L,58195L,58196L,58197L,
  81542. 58198L,58199L,58200L,58201L,58202L,58203L,58204L,58205L,58206L,58207L,
  81543. 58208L,58209L,58210L,58211L,58212L,58213L,58214L,58215L,58216L,58217L,
  81544. 58218L,58219L,58220L,58221L,58222L,58223L,58224L,58225L,58226L,58227L,
  81545. 58228L,58229L,58230L,58231L,58232L,58233L,58234L,58235L,58236L,58237L,
  81546. 58238L,58239L,58240L,58241L,58242L,58243L,58244L,58245L,58246L,58247L,
  81547. 58248L,58249L,58250L,58251L,58252L,58253L,58254L,58255L,58256L,58257L,
  81548. 58258L,58259L,58260L,58261L,58262L,58263L,58264L,58265L,58266L,58267L,
  81549. 58268L,58269L,58270L,58271L,58272L,58273L,58274L,58275L,58276L,58277L,
  81550. 58278L,58279L,58280L,58281L,58282L,58283L,58284L,58285L,58286L,58287L,
  81551. 58288L,58289L,58290L,58291L,58292L,58293L,58294L,58295L,58296L,58297L,
  81552. 58298L,58299L,58300L,58301L,58302L,58303L,58304L,58305L,58306L,58307L,
  81553. 58308L,58309L,58310L,58311L,58312L,58313L,58314L,58315L,58316L,58317L,
  81554. 58318L,58319L,58320L,58321L,58322L,58323L,58324L,58325L,58326L,58327L,
  81555. 58328L,58329L,58330L,58331L,58332L,58333L,58334L,58335L,58336L,58337L,
  81556. 58338L,58339L,58340L,58341L,58342L,58343L,58344L,58345L,58346L,58347L,
  81557. 58348L,58349L,58350L,58351L,58352L,58353L,58354L,58355L,58356L,58357L,
  81558. 58358L,58359L,58360L,58361L,58362L,58363L,58364L,58365L,58366L,58367L,
  81559. 58368L,58369L,58370L,58371L,58372L,58373L,58374L,58375L,58376L,58377L,
  81560. 58378L,58379L,58380L,58381L,58382L,58383L,58384L,58385L,58386L,58387L,
  81561. 58388L,58389L,58390L,58391L,58392L,58393L,58394L,58395L,58396L,58397L,
  81562. 58398L,58399L,58400L,58401L,58402L,58403L,58404L,58405L,58406L,58407L,
  81563. 58408L,58409L,58410L,58411L,58412L,58413L,58414L,58415L,58416L,58417L,
  81564. 58418L,58419L,58420L,58421L,58422L,58423L,58424L,58425L,58426L,58427L,
  81565. 58428L,58429L,58430L,58431L,58432L,58433L,58434L,58435L,58436L,58437L,
  81566. 58438L,58439L,58440L,58441L,58442L,58443L,58444L,58445L,58446L,58447L,
  81567. 58448L,58449L,58450L,58451L,58452L,58453L,58454L,58455L,58456L,58457L,
  81568. 58458L,58459L,58460L,58461L,58462L,58463L,58464L,58465L,58466L,58467L,
  81569. 58468L,58469L,58470L,58471L,58472L,58473L,58474L,58475L,58476L,58477L,
  81570. 58478L,58479L,58480L,58481L,58482L,58483L,58484L,58485L,58486L,58487L,
  81571. 58488L,58489L,58490L,58491L,58492L,58493L,58494L,58495L,58496L,58497L,
  81572. 58498L,58499L,58500L,58501L,58502L,58503L,58504L,58505L,58506L,58507L,
  81573. 58508L,58509L,58510L,58511L,58512L,58513L,58514L,58515L,58516L,58517L,
  81574. 58518L,58519L,58520L,58521L,58522L,58523L,58524L,58525L,58526L,58527L,
  81575. 58528L,58529L,58530L,58531L,58532L,58533L,58534L,58535L,58536L,58537L,
  81576. 58538L,58539L,58540L,58541L,58542L,58543L,58544L,58545L,58546L,58547L,
  81577. 58548L,58549L,58550L,58551L,58552L,58553L,58554L,58555L,58556L,58557L,
  81578. 58558L,58559L,58560L,58561L,58562L,58563L,58564L,58565L,58566L,58567L,
  81579. 58568L,58569L,58570L,58571L,58572L,58573L,58574L,58575L,58576L,58577L,
  81580. 58578L,58579L,58580L,58581L,58582L,58583L,58584L,58585L,58586L,58587L,
  81581. 58588L,58589L,58590L,58591L,58592L,58593L,58594L,58595L,58596L,58597L,
  81582. 58598L,58599L,58600L,58601L,58602L,58603L,58604L,58605L,58606L,58607L,
  81583. 58608L,58609L,58610L,58611L,58612L,58613L,58614L,58615L,58616L,58617L,
  81584. 58618L,58619L,58620L,58621L,58622L,58623L,58624L,58625L,58626L,58627L,
  81585. 58628L,58629L,58630L,58631L,58632L,58633L,58634L,58635L,58636L,58637L,
  81586. 58638L,58639L,58640L,58641L,58642L,58643L,58644L,58645L,58646L,58647L,
  81587. 58648L,58649L,58650L,58651L,58652L,58653L,58654L,58655L,58656L,58657L,
  81588. 58658L,58659L,58660L,58661L,58662L,58663L,58664L,58665L,58666L,58667L,
  81589. 58668L,58669L,58670L,58671L,58672L,58673L,58674L,58675L,58676L,58677L,
  81590. 58678L,58679L,58680L,58681L,58682L,58683L,58684L,58685L,58686L,58687L,
  81591. 58688L,58689L,58690L,58691L,58692L,58693L,58694L,58695L,58696L,58697L,
  81592. 58698L,58699L,58700L,58701L,58702L,58703L,58704L,58705L,58706L,58707L,
  81593. 58708L,58709L,58710L,58711L,58712L,58713L,58714L,58715L,58716L,58717L,
  81594. 58718L,58719L,58720L,58721L,58722L,58723L,58724L,58725L,58726L,58727L,
  81595. 58728L,58729L,58730L,58731L,58732L,58733L,58734L,58735L,58736L,58737L,
  81596. 58738L,58739L,58740L,58741L,58742L,58743L,58744L,58745L,58746L,58747L,
  81597. 58748L,58749L,58750L,58751L,58752L,58753L,58754L,58755L,58756L,58757L,
  81598. 58758L,58759L,58760L,58761L,58762L,58763L,58764L,58765L,58766L,58767L,
  81599. 58768L,58769L,58770L,58771L,58772L,58773L,58774L,58775L,58776L,58777L,
  81600. 58778L,58779L,58780L,58781L,58782L,58783L,58784L,58785L,58786L,58787L,
  81601. 58788L,58789L,58790L,58791L,58792L,58793L,58794L,58795L,58796L,58797L,
  81602. 58798L,58799L,58800L,58801L,58802L,58803L,58804L,58805L,58806L,58807L,
  81603. 58808L,58809L,58810L,58811L,58812L,58813L,58814L,58815L,58816L,58817L,
  81604. 58818L,58819L,58820L,58821L,58822L,58823L,58824L,58825L,58826L,58827L,
  81605. 58828L,58829L,58830L,58831L,58832L,58833L,58834L,58835L,58836L,58837L,
  81606. 58838L,58839L,58840L,58841L,58842L,58843L,58844L,58845L,58846L,58847L,
  81607. 58848L,58849L,58850L,58851L,58852L,58853L,58854L,58855L,58856L,58857L,
  81608. 58858L,58859L,58860L,58861L,58862L,58863L,58864L,58865L,58866L,58867L,
  81609. 58868L,58869L,58870L,58871L,58872L,58873L,58874L,58875L,58876L,58877L,
  81610. 58878L,58879L,58880L,58881L,58882L,58883L,58884L,58885L,58886L,58887L,
  81611. 58888L,58889L,58890L,58891L,58892L,58893L,58894L,58895L,58896L,58897L,
  81612. 58898L,58899L,58900L,58901L,58902L,58903L,58904L,58905L,58906L,58907L,
  81613. 58908L,58909L,58910L,58911L,58912L,58913L,58914L,58915L,58916L,58917L,
  81614. 58918L,58919L,58920L,58921L,58922L,58923L,58924L,58925L,58926L,58927L,
  81615. 58928L,58929L,58930L,58931L,58932L,58933L,58934L,58935L,58936L,58937L,
  81616. 58938L,58939L,58940L,58941L,58942L,58943L,58944L,58945L,58946L,58947L,
  81617. 58948L,58949L,58950L,58951L,58952L,58953L,58954L,58955L,58956L,58957L,
  81618. 58958L,58959L,58960L,58961L,58962L,58963L,58964L,58965L,58966L,58967L,
  81619. 58968L,58969L,58970L,58971L,58972L,58973L,58974L,58975L,58976L,58977L,
  81620. 58978L,58979L,58980L,58981L,58982L,58983L,58984L,58985L,58986L,58987L,
  81621. 58988L,58989L,58990L,58991L,58992L,58993L,58994L,58995L,58996L,58997L,
  81622. 58998L,58999L,59000L,59001L,59002L,59003L,59004L,59005L,59006L,59007L,
  81623. 59008L,59009L,59010L,59011L,59012L,59013L,59014L,59015L,59016L,59017L,
  81624. 59018L,59019L,59020L,59021L,59022L,59023L,59024L,59025L,59026L,59027L,
  81625. 59028L,59029L,59030L,59031L,59032L,59033L,59034L,59035L,59036L,59037L,
  81626. 59038L,59039L,59040L,59041L,59042L,59043L,59044L,59045L,59046L,59047L,
  81627. 59048L,59049L,59050L,59051L,59052L,59053L,59054L,59055L,59056L,59057L,
  81628. 59058L,59059L,59060L,59061L,59062L,59063L,59064L,59065L,59066L,59067L,
  81629. 59068L,59069L,59070L,59071L,59072L,59073L,59074L,59075L,59076L,59077L,
  81630. 59078L,59079L,59080L,59081L,59082L,59083L,59084L,59085L,59086L,59087L,
  81631. 59088L,59089L,59090L,59091L,59092L,59093L,59094L,59095L,59096L,59097L,
  81632. 59098L,59099L,59100L,59101L,59102L,59103L,59104L,59105L,59106L,59107L,
  81633. 59108L,59109L,59110L,59111L,59112L,59113L,59114L,59115L,59116L,59117L,
  81634. 59118L,59119L,59120L,59121L,59122L,59123L,59124L,59125L,59126L,59127L,
  81635. 59128L,59129L,59130L,59131L,59132L,59133L,59134L,59135L,59136L,59137L,
  81636. 59138L,59139L,59140L,59141L,59142L,59143L,59144L,59145L,59146L,59147L,
  81637. 59148L,59149L,59150L,59151L,59152L,59153L,59154L,59155L,59156L,59157L,
  81638. 59158L,59159L,59160L,59161L,59162L,59163L,59164L,59165L,59166L,59167L,
  81639. 59168L,59169L,59170L,59171L,59172L,59173L,59174L,59175L,59176L,59177L,
  81640. 59178L,59179L,59180L,59181L,59182L,59183L,59184L,59185L,59186L,59187L,
  81641. 59188L,59189L,59190L,59191L,59192L,59193L,59194L,59195L,59196L,59197L,
  81642. 59198L,59199L,59200L,59201L,59202L,59203L,59204L,59205L,59206L,59207L,
  81643. 59208L,59209L,59210L,59211L,59212L,59213L,59214L,59215L,59216L,59217L,
  81644. 59218L,59219L,59220L,59221L,59222L,59223L,59224L,59225L,59226L,59227L,
  81645. 59228L,59229L,59230L,59231L,59232L,59233L,59234L,59235L,59236L,59237L,
  81646. 59238L,59239L,59240L,59241L,59242L,59243L,59244L,59245L,59246L,59247L,
  81647. 59248L,59249L,59250L,59251L,59252L,59253L,59254L,59255L,59256L,59257L,
  81648. 59258L,59259L,59260L,59261L,59262L,59263L,59264L,59265L,59266L,59267L,
  81649. 59268L,59269L,59270L,59271L,59272L,59273L,59274L,59275L,59276L,59277L,
  81650. 59278L,59279L,59280L,59281L,59282L,59283L,59284L,59285L,59286L,59287L,
  81651. 59288L,59289L,59290L,59291L,59292L,59293L,59294L,59295L,59296L,59297L,
  81652. 59298L,59299L,59300L,59301L,59302L,59303L,59304L,59305L,59306L,59307L,
  81653. 59308L,59309L,59310L,59311L,59312L,59313L,59314L,59315L,59316L,59317L,
  81654. 59318L,59319L,59320L,59321L,59322L,59323L,59324L,59325L,59326L,59327L,
  81655. 59328L,59329L,59330L,59331L,59332L,59333L,59334L,59335L,59336L,59337L,
  81656. 59338L,59339L,59340L,59341L,59342L,59343L,59344L,59345L,59346L,59347L,
  81657. 59348L,59349L,59350L,59351L,59352L,59353L,59354L,59355L,59356L,59357L,
  81658. 59358L,59359L,59360L,59361L,59362L,59363L,59364L,59365L,59366L,59367L,
  81659. 59368L,59369L,59370L,59371L,59372L,59373L,59374L,59375L,59376L,59377L,
  81660. 59378L,59379L,59380L,59381L,59382L,59383L,59384L,59385L,59386L,59387L,
  81661. 59388L,59389L,59390L,59391L,59392L,59393L,59394L,59395L,59396L,59397L,
  81662. 59398L,59399L,59400L,59401L,59402L,59403L,59404L,59405L,59406L,59407L,
  81663. 59408L,59409L,59410L,59411L,59412L,59413L,59414L,59415L,59416L,59417L,
  81664. 59418L,59419L,59420L,59421L,59422L,59423L,59424L,59425L,59426L,59427L,
  81665. 59428L,59429L,59430L,59431L,59432L,59433L,59434L,59435L,59436L,59437L,
  81666. 59438L,59439L,59440L,59441L,59442L,59443L,59444L,59445L,59446L,59447L,
  81667. 59448L,59449L,59450L,59451L,59452L,59453L,59454L,59455L,59456L,59457L,
  81668. 59458L,59459L,59460L,59461L,59462L,59463L,59464L,59465L,59466L,59467L,
  81669. 59468L,59469L,59470L,59471L,59472L,59473L,59474L,59475L,59476L,59477L,
  81670. 59478L,59479L,59480L,59481L,59482L,59483L,59484L,59485L,59486L,59487L,
  81671. 59488L,59489L,59490L,59491L,59492L,59493L,59494L,59495L,59496L,59497L,
  81672. 59498L,59499L,59500L,59501L,59502L,59503L,59504L,59505L,59506L,59507L,
  81673. 59508L,59509L,59510L,59511L,59512L,59513L,59514L,59515L,59516L,59517L,
  81674. 59518L,59519L,59520L,59521L,59522L,59523L,59524L,59525L,59526L,59527L,
  81675. 59528L,59529L,59530L,59531L,59532L,59533L,59534L,59535L,59536L,59537L,
  81676. 59538L,59539L,59540L,59541L,59542L,59543L,59544L,59545L,59546L,59547L,
  81677. 59548L,59549L,59550L,59551L,59552L,59553L,59554L,59555L,59556L,59557L,
  81678. 59558L,59559L,59560L,59561L,59562L,59563L,59564L,59565L,59566L,59567L,
  81679. 59568L,59569L,59570L,59571L,59572L,59573L,59574L,59575L,59576L,59577L,
  81680. 59578L,59579L,59580L,59581L,59582L,59583L,59584L,59585L,59586L,59587L,
  81681. 59588L,59589L,59590L,59591L,59592L,59593L,59594L,59595L,59596L,59597L,
  81682. 59598L,59599L,59600L,59601L,59602L,59603L,59604L,59605L,59606L,59607L,
  81683. 59608L,59609L,59610L,59611L,59612L,59613L,59614L,59615L,59616L,59617L,
  81684. 59618L,59619L,59620L,59621L,59622L,59623L,59624L,59625L,59626L,59627L,
  81685. 59628L,59629L,59630L,59631L,59632L,59633L,59634L,59635L,59636L,59637L,
  81686. 59638L,59639L,59640L,59641L,59642L,59643L,59644L,59645L,59646L,59647L,
  81687. 59648L,59649L,59650L,59651L,59652L,59653L,59654L,59655L,59656L,59657L,
  81688. 59658L,59659L,59660L,59661L,59662L,59663L,59664L,59665L,59666L,59667L,
  81689. 59668L,59669L,59670L,59671L,59672L,59673L,59674L,59675L,59676L,59677L,
  81690. 59678L,59679L,59680L,59681L,59682L,59683L,59684L,59685L,59686L,59687L,
  81691. 59688L,59689L,59690L,59691L,59692L,59693L,59694L,59695L,59696L,59697L,
  81692. 59698L,59699L,59700L,59701L,59702L,59703L,59704L,59705L,59706L,59707L,
  81693. 59708L,59709L,59710L,59711L,59712L,59713L,59714L,59715L,59716L,59717L,
  81694. 59718L,59719L,59720L,59721L,59722L,59723L,59724L,59725L,59726L,59727L,
  81695. 59728L,59729L,59730L,59731L,59732L,59733L,59734L,59735L,59736L,59737L,
  81696. 59738L,59739L,59740L,59741L,59742L,59743L,59744L,59745L,59746L,59747L,
  81697. 59748L,59749L,59750L,59751L,59752L,59753L,59754L,59755L,59756L,59757L,
  81698. 59758L,59759L,59760L,59761L,59762L,59763L,59764L,59765L,59766L,59767L,
  81699. 59768L,59769L,59770L,59771L,59772L,59773L,59774L,59775L,59776L,59777L,
  81700. 59778L,59779L,59780L,59781L,59782L,59783L,59784L,59785L,59786L,59787L,
  81701. 59788L,59789L,59790L,59791L,59792L,59793L,59794L,59795L,59796L,59797L,
  81702. 59798L,59799L,59800L,59801L,59802L,59803L,59804L,59805L,59806L,59807L,
  81703. 59808L,59809L,59810L,59811L,59812L,59813L,59814L,59815L,59816L,59817L,
  81704. 59818L,59819L,59820L,59821L,59822L,59823L,59824L,59825L,59826L,59827L,
  81705. 59828L,59829L,59830L,59831L,59832L,59833L,59834L,59835L,59836L,59837L,
  81706. 59838L,59839L,59840L,59841L,59842L,59843L,59844L,59845L,59846L,59847L,
  81707. 59848L,59849L,59850L,59851L,59852L,59853L,59854L,59855L,59856L,59857L,
  81708. 59858L,59859L,59860L,59861L,59862L,59863L,59864L,59865L,59866L,59867L,
  81709. 59868L,59869L,59870L,59871L,59872L,59873L,59874L,59875L,59876L,59877L,
  81710. 59878L,59879L,59880L,59881L,59882L,59883L,59884L,59885L,59886L,59887L,
  81711. 59888L,59889L,59890L,59891L,59892L,59893L,59894L,59895L,59896L,59897L,
  81712. 59898L,59899L,59900L,59901L,59902L,59903L,59904L,59905L,59906L,59907L,
  81713. 59908L,59909L,59910L,59911L,59912L,59913L,59914L,59915L,59916L,59917L,
  81714. 59918L,59919L,59920L,59921L,59922L,59923L,59924L,59925L,59926L,59927L,
  81715. 59928L,59929L,59930L,59931L,59932L,59933L,59934L,59935L,59936L,59937L,
  81716. 59938L,59939L,59940L,59941L,59942L,59943L,59944L,59945L,59946L,59947L,
  81717. 59948L,59949L,59950L,59951L,59952L,59953L,59954L,59955L,59956L,59957L,
  81718. 59958L,59959L,59960L,59961L,59962L,59963L,59964L,59965L,59966L,59967L,
  81719. 59968L,59969L,59970L,59971L,59972L,59973L,59974L,59975L,59976L,59977L,
  81720. 59978L,59979L,59980L,59981L,59982L,59983L,59984L,59985L,59986L,59987L,
  81721. 59988L,59989L,59990L,59991L,59992L,59993L,59994L,59995L,59996L,59997L,
  81722. 59998L,59999L,60000L,60001L,60002L,60003L,60004L,60005L,60006L,60007L,
  81723. 60008L,60009L,60010L,60011L,60012L,60013L,60014L,60015L,60016L,60017L,
  81724. 60018L,60019L,60020L,60021L,60022L,60023L,60024L,60025L,60026L,60027L,
  81725. 60028L,60029L,60030L,60031L,60032L,60033L,60034L,60035L,60036L,60037L,
  81726. 60038L,60039L,60040L,60041L,60042L,60043L,60044L,60045L,60046L,60047L,
  81727. 60048L,60049L,60050L,60051L,60052L,60053L,60054L,60055L,60056L,60057L,
  81728. 60058L,60059L,60060L,60061L,60062L,60063L,60064L,60065L,60066L,60067L,
  81729. 60068L,60069L,60070L,60071L,60072L,60073L,60074L,60075L,60076L,60077L,
  81730. 60078L,60079L,60080L,60081L,60082L,60083L,60084L,60085L,60086L,60087L,
  81731. 60088L,60089L,60090L,60091L,60092L,60093L,60094L,60095L,60096L,60097L,
  81732. 60098L,60099L,60100L,60101L,60102L,60103L,60104L,60105L,60106L,60107L,
  81733. 60108L,60109L,60110L,60111L,60112L,60113L,60114L,60115L,60116L,60117L,
  81734. 60118L,60119L,60120L,60121L,60122L,60123L,60124L,60125L,60126L,60127L,
  81735. 60128L,60129L,60130L,60131L,60132L,60133L,60134L,60135L,60136L,60137L,
  81736. 60138L,60139L,60140L,60141L,60142L,60143L,60144L,60145L,60146L,60147L,
  81737. 60148L,60149L,60150L,60151L,60152L,60153L,60154L,60155L,60156L,60157L,
  81738. 60158L,60159L,60160L,60161L,60162L,60163L,60164L,60165L,60166L,60167L,
  81739. 60168L,60169L,60170L,60171L,60172L,60173L,60174L,60175L,60176L,60177L,
  81740. 60178L,60179L,60180L,60181L,60182L,60183L,60184L,60185L,60186L,60187L,
  81741. 60188L,60189L,60190L,60191L,60192L,60193L,60194L,60195L,60196L,60197L,
  81742. 60198L,60199L,60200L,60201L,60202L,60203L,60204L,60205L,60206L,60207L,
  81743. 60208L,60209L,60210L,60211L,60212L,60213L,60214L,60215L,60216L,60217L,
  81744. 60218L,60219L,60220L,60221L,60222L,60223L,60224L,60225L,60226L,60227L,
  81745. 60228L,60229L,60230L,60231L,60232L,60233L,60234L,60235L,60236L,60237L,
  81746. 60238L,60239L,60240L,60241L,60242L,60243L,60244L,60245L,60246L,60247L,
  81747. 60248L,60249L,60250L,60251L,60252L,60253L,60254L,60255L,60256L,60257L,
  81748. 60258L,60259L,60260L,60261L,60262L,60263L,60264L,60265L,60266L,60267L,
  81749. 60268L,60269L,60270L,60271L,60272L,60273L,60274L,60275L,60276L,60277L,
  81750. 60278L,60279L,60280L,60281L,60282L,60283L,60284L,60285L,60286L,60287L,
  81751. 60288L,60289L,60290L,60291L,60292L,60293L,60294L,60295L,60296L,60297L,
  81752. 60298L,60299L,60300L,60301L,60302L,60303L,60304L,60305L,60306L,60307L,
  81753. 60308L,60309L,60310L,60311L,60312L,60313L,60314L,60315L,60316L,60317L,
  81754. 60318L,60319L,60320L,60321L,60322L,60323L,60324L,60325L,60326L,60327L,
  81755. 60328L,60329L,60330L,60331L,60332L,60333L,60334L,60335L,60336L,60337L,
  81756. 60338L,60339L,60340L,60341L,60342L,60343L,60344L,60345L,60346L,60347L,
  81757. 60348L,60349L,60350L,60351L,60352L,60353L,60354L,60355L,60356L,60357L,
  81758. 60358L,60359L,60360L,60361L,60362L,60363L,60364L,60365L,60366L,60367L,
  81759. 60368L,60369L,60370L,60371L,60372L,60373L,60374L,60375L,60376L,60377L,
  81760. 60378L,60379L,60380L,60381L,60382L,60383L,60384L,60385L,60386L,60387L,
  81761. 60388L,60389L,60390L,60391L,60392L,60393L,60394L,60395L,60396L,60397L,
  81762. 60398L,60399L,60400L,60401L,60402L,60403L,60404L,60405L,60406L,60407L,
  81763. 60408L,60409L,60410L,60411L,60412L,60413L,60414L,60415L,60416L,60417L,
  81764. 60418L,60419L,60420L,60421L,60422L,60423L,60424L,60425L,60426L,60427L,
  81765. 60428L,60429L,60430L,60431L,60432L,60433L,60434L,60435L,60436L,60437L,
  81766. 60438L,60439L,60440L,60441L,60442L,60443L,60444L,60445L,60446L,60447L,
  81767. 60448L,60449L,60450L,60451L,60452L,60453L,60454L,60455L,60456L,60457L,
  81768. 60458L,60459L,60460L,60461L,60462L,60463L,60464L,60465L,60466L,60467L,
  81769. 60468L,60469L,60470L,60471L,60472L,60473L,60474L,60475L,60476L,60477L,
  81770. 60478L,60479L,60480L,60481L,60482L,60483L,60484L,60485L,60486L,60487L,
  81771. 60488L,60489L,60490L,60491L,60492L,60493L,60494L,60495L,60496L,60497L,
  81772. 60498L,60499L,60500L,60501L,60502L,60503L,60504L,60505L,60506L,60507L,
  81773. 60508L,60509L,60510L,60511L,60512L,60513L,60514L,60515L,60516L,60517L,
  81774. 60518L,60519L,60520L,60521L,60522L,60523L,60524L,60525L,60526L,60527L,
  81775. 60528L,60529L,60530L,60531L,60532L,60533L,60534L,60535L,60536L,60537L,
  81776. 60538L,60539L,60540L,60541L,60542L,60543L,60544L,60545L,60546L,60547L,
  81777. 60548L,60549L,60550L,60551L,60552L,60553L,60554L,60555L,60556L,60557L,
  81778. 60558L,60559L,60560L,60561L,60562L,60563L,60564L,60565L,60566L,60567L,
  81779. 60568L,60569L,60570L,60571L,60572L,60573L,60574L,60575L,60576L,60577L,
  81780. 60578L,60579L,60580L,60581L,60582L,60583L,60584L,60585L,60586L,60587L,
  81781. 60588L,60589L,60590L,60591L,60592L,60593L,60594L,60595L,60596L,60597L,
  81782. 60598L,60599L,60600L,60601L,60602L,60603L,60604L,60605L,60606L,60607L,
  81783. 60608L,60609L,60610L,60611L,60612L,60613L,60614L,60615L,60616L,60617L,
  81784. 60618L,60619L,60620L,60621L,60622L,60623L,60624L,60625L,60626L,60627L,
  81785. 60628L,60629L,60630L,60631L,60632L,60633L,60634L,60635L,60636L,60637L,
  81786. 60638L,60639L,60640L,60641L,60642L,60643L,60644L,60645L,60646L,60647L,
  81787. 60648L,60649L,60650L,60651L,60652L,60653L,60654L,60655L,60656L,60657L,
  81788. 60658L,60659L,60660L,60661L,60662L,60663L,60664L,60665L,60666L,60667L,
  81789. 60668L,60669L,60670L,60671L,60672L,60673L,60674L,60675L,60676L,60677L,
  81790. 60678L,60679L,60680L,60681L,60682L,60683L,60684L,60685L,60686L,60687L,
  81791. 60688L,60689L,60690L,60691L,60692L,60693L,60694L,60695L,60696L,60697L,
  81792. 60698L,60699L,60700L,60701L,60702L,60703L,60704L,60705L,60706L,60707L,
  81793. 60708L,60709L,60710L,60711L,60712L,60713L,60714L,60715L,60716L,60717L,
  81794. 60718L,60719L,60720L,60721L,60722L,60723L,60724L,60725L,60726L,60727L,
  81795. 60728L,60729L,60730L,60731L,60732L,60733L,60734L,60735L,60736L,60737L,
  81796. 60738L,60739L,60740L,60741L,60742L,60743L,60744L,60745L,60746L,60747L,
  81797. 60748L,60749L,60750L,60751L,60752L,60753L,60754L,60755L,60756L,60757L,
  81798. 60758L,60759L,60760L,60761L,60762L,60763L,60764L,60765L,60766L,60767L,
  81799. 60768L,60769L,60770L,60771L,60772L,60773L,60774L,60775L,60776L,60777L,
  81800. 60778L,60779L,60780L,60781L,60782L,60783L,60784L,60785L,60786L,60787L,
  81801. 60788L,60789L,60790L,60791L,60792L,60793L,60794L,60795L,60796L,60797L,
  81802. 60798L,60799L,60800L,60801L,60802L,60803L,60804L,60805L,60806L,60807L,
  81803. 60808L,60809L,60810L,60811L,60812L,60813L,60814L,60815L,60816L,60817L,
  81804. 60818L,60819L,60820L,60821L,60822L,60823L,60824L,60825L,60826L,60827L,
  81805. 60828L,60829L,60830L,60831L,60832L,60833L,60834L,60835L,60836L,60837L,
  81806. 60838L,60839L,60840L,60841L,60842L,60843L,60844L,60845L,60846L,60847L,
  81807. 60848L,60849L,60850L,60851L,60852L,60853L,60854L,60855L,60856L,60857L,
  81808. 60858L,60859L,60860L,60861L,60862L,60863L,60864L,60865L,60866L,60867L,
  81809. 60868L,60869L,60870L,60871L,60872L,60873L,60874L,60875L,60876L,60877L,
  81810. 60878L,60879L,60880L,60881L,60882L,60883L,60884L,60885L,60886L,60887L,
  81811. 60888L,60889L,60890L,60891L,60892L,60893L,60894L,60895L,60896L,60897L,
  81812. 60898L,60899L,60900L,60901L,60902L,60903L,60904L,60905L,60906L,60907L,
  81813. 60908L,60909L,60910L,60911L,60912L,60913L,60914L,60915L,60916L,60917L,
  81814. 60918L,60919L,60920L,60921L,60922L,60923L,60924L,60925L,60926L,60927L,
  81815. 60928L,60929L,60930L,60931L,60932L,60933L,60934L,60935L,60936L,60937L,
  81816. 60938L,60939L,60940L,60941L,60942L,60943L,60944L,60945L,60946L,60947L,
  81817. 60948L,60949L,60950L,60951L,60952L,60953L,60954L,60955L,60956L,60957L,
  81818. 60958L,60959L,60960L,60961L,60962L,60963L,60964L,60965L,60966L,60967L,
  81819. 60968L,60969L,60970L,60971L,60972L,60973L,60974L,60975L,60976L,60977L,
  81820. 60978L,60979L,60980L,60981L,60982L,60983L,60984L,60985L,60986L,60987L,
  81821. 60988L,60989L,60990L,60991L,60992L,60993L,60994L,60995L,60996L,60997L,
  81822. 60998L,60999L,61000L,61001L,61002L,61003L,61004L,61005L,61006L,61007L,
  81823. 61008L,61009L,61010L,61011L,61012L,61013L,61014L,61015L,61016L,61017L,
  81824. 61018L,61019L,61020L,61021L,61022L,61023L,61024L,61025L,61026L,61027L,
  81825. 61028L,61029L,61030L,61031L,61032L,61033L,61034L,61035L,61036L,61037L,
  81826. 61038L,61039L,61040L,61041L,61042L,61043L,61044L,61045L,61046L,61047L,
  81827. 61048L,61049L,61050L,61051L,61052L,61053L,61054L,61055L,61056L,61057L,
  81828. 61058L,61059L,61060L,61061L,61062L,61063L,61064L,61065L,61066L,61067L,
  81829. 61068L,61069L,61070L,61071L,61072L,61073L,61074L,61075L,61076L,61077L,
  81830. 61078L,61079L,61080L,61081L,61082L,61083L,61084L,61085L,61086L,61087L,
  81831. 61088L,61089L,61090L,61091L,61092L,61093L,61094L,61095L,61096L,61097L,
  81832. 61098L,61099L,61100L,61101L,61102L,61103L,61104L,61105L,61106L,61107L,
  81833. 61108L,61109L,61110L,61111L,61112L,61113L,61114L,61115L,61116L,61117L,
  81834. 61118L,61119L,61120L,61121L,61122L,61123L,61124L,61125L,61126L,61127L,
  81835. 61128L,61129L,61130L,61131L,61132L,61133L,61134L,61135L,61136L,61137L,
  81836. 61138L,61139L,61140L,61141L,61142L,61143L,61144L,61145L,61146L,61147L,
  81837. 61148L,61149L,61150L,61151L,61152L,61153L,61154L,61155L,61156L,61157L,
  81838. 61158L,61159L,61160L,61161L,61162L,61163L,61164L,61165L,61166L,61167L,
  81839. 61168L,61169L,61170L,61171L,61172L,61173L,61174L,61175L,61176L,61177L,
  81840. 61178L,61179L,61180L,61181L,61182L,61183L,61184L,61185L,61186L,61187L,
  81841. 61188L,61189L,61190L,61191L,61192L,61193L,61194L,61195L,61196L,61197L,
  81842. 61198L,61199L,61200L,61201L,61202L,61203L,61204L,61205L,61206L,61207L,
  81843. 61208L,61209L,61210L,61211L,61212L,61213L,61214L,61215L,61216L,61217L,
  81844. 61218L,61219L,61220L,61221L,61222L,61223L,61224L,61225L,61226L,61227L,
  81845. 61228L,61229L,61230L,61231L,61232L,61233L,61234L,61235L,61236L,61237L,
  81846. 61238L,61239L,61240L,61241L,61242L,61243L,61244L,61245L,61246L,61247L,
  81847. 61248L,61249L,61250L,61251L,61252L,61253L,61254L,61255L,61256L,61257L,
  81848. 61258L,61259L,61260L,61261L,61262L,61263L,61264L,61265L,61266L,61267L,
  81849. 61268L,61269L,61270L,61271L,61272L,61273L,61274L,61275L,61276L,61277L,
  81850. 61278L,61279L,61280L,61281L,61282L,61283L,61284L,61285L,61286L,61287L,
  81851. 61288L,61289L,61290L,61291L,61292L,61293L,61294L,61295L,61296L,61297L,
  81852. 61298L,61299L,61300L,61301L,61302L,61303L,61304L,61305L,61306L,61307L,
  81853. 61308L,61309L,61310L,61311L,61312L,61313L,61314L,61315L,61316L,61317L,
  81854. 61318L,61319L,61320L,61321L,61322L,61323L,61324L,61325L,61326L,61327L,
  81855. 61328L,61329L,61330L,61331L,61332L,61333L,61334L,61335L,61336L,61337L,
  81856. 61338L,61339L,61340L,61341L,61342L,61343L,61344L,61345L,61346L,61347L,
  81857. 61348L,61349L,61350L,61351L,61352L,61353L,61354L,61355L,61356L,61357L,
  81858. 61358L,61359L,61360L,61361L,61362L,61363L,61364L,61365L,61366L,61367L,
  81859. 61368L,61369L,61370L,61371L,61372L,61373L,61374L,61375L,61376L,61377L,
  81860. 61378L,61379L,61380L,61381L,61382L,61383L,61384L,61385L,61386L,61387L,
  81861. 61388L,61389L,61390L,61391L,61392L,61393L,61394L,61395L,61396L,61397L,
  81862. 61398L,61399L,61400L,61401L,61402L,61403L,61404L,61405L,61406L,61407L,
  81863. 61408L,61409L,61410L,61411L,61412L,61413L,61414L,61415L,61416L,61417L,
  81864. 61418L,61419L,61420L,61421L,61422L,61423L,61424L,61425L,61426L,61427L,
  81865. 61428L,61429L,61430L,61431L,61432L,61433L,61434L,61435L,61436L,61437L,
  81866. 61438L,61439L,61440L,61441L,61442L,61443L,61444L,61445L,61446L,61447L,
  81867. 61448L,61449L,61450L,61451L,61452L,61453L,61454L,61455L,61456L,61457L,
  81868. 61458L,61459L,61460L,61461L,61462L,61463L,61464L,61465L,61466L,61467L,
  81869. 61468L,61469L,61470L,61471L,61472L,61473L,61474L,61475L,61476L,61477L,
  81870. 61478L,61479L,61480L,61481L,61482L,61483L,61484L,61485L,61486L,61487L,
  81871. 61488L,61489L,61490L,61491L,61492L,61493L,61494L,61495L,61496L,61497L,
  81872. 61498L,61499L,61500L,61501L,61502L,61503L,61504L,61505L,61506L,61507L,
  81873. 61508L,61509L,61510L,61511L,61512L,61513L,61514L,61515L,61516L,61517L,
  81874. 61518L,61519L,61520L,61521L,61522L,61523L,61524L,61525L,61526L,61527L,
  81875. 61528L,61529L,61530L,61531L,61532L,61533L,61534L,61535L,61536L,61537L,
  81876. 61538L,61539L,61540L,61541L,61542L,61543L,61544L,61545L,61546L,61547L,
  81877. 61548L,61549L,61550L,61551L,61552L,61553L,61554L,61555L,61556L,61557L,
  81878. 61558L,61559L,61560L,61561L,61562L,61563L,61564L,61565L,61566L,61567L,
  81879. 61568L,61569L,61570L,61571L,61572L,61573L,61574L,61575L,61576L,61577L,
  81880. 61578L,61579L,61580L,61581L,61582L,61583L,61584L,61585L,61586L,61587L,
  81881. 61588L,61589L,61590L,61591L,61592L,61593L,61594L,61595L,61596L,61597L,
  81882. 61598L,61599L,61600L,61601L,61602L,61603L,61604L,61605L,61606L,61607L,
  81883. 61608L,61609L,61610L,61611L,61612L,61613L,61614L,61615L,61616L,61617L,
  81884. 61618L,61619L,61620L,61621L,61622L,61623L,61624L,61625L,61626L,61627L,
  81885. 61628L,61629L,61630L,61631L,61632L,61633L,61634L,61635L,61636L,61637L,
  81886. 61638L,61639L,61640L,61641L,61642L,61643L,61644L,61645L,61646L,61647L,
  81887. 61648L,61649L,61650L,61651L,61652L,61653L,61654L,61655L,61656L,61657L,
  81888. 61658L,61659L,61660L,61661L,61662L,61663L,61664L,61665L,61666L,61667L,
  81889. 61668L,61669L,61670L,61671L,61672L,61673L,61674L,61675L,61676L,61677L,
  81890. 61678L,61679L,61680L,61681L,61682L,61683L,61684L,61685L,61686L,61687L,
  81891. 61688L,61689L,61690L,61691L,61692L,61693L,61694L,61695L,61696L,61697L,
  81892. 61698L,61699L,61700L,61701L,61702L,61703L,61704L,61705L,61706L,61707L,
  81893. 61708L,61709L,61710L,61711L,61712L,61713L,61714L,61715L,61716L,61717L,
  81894. 61718L,61719L,61720L,61721L,61722L,61723L,61724L,61725L,61726L,61727L,
  81895. 61728L,61729L,61730L,61731L,61732L,61733L,61734L,61735L,61736L,61737L,
  81896. 61738L,61739L,61740L,61741L,61742L,61743L,61744L,61745L,61746L,61747L,
  81897. 61748L,61749L,61750L,61751L,61752L,61753L,61754L,61755L,61756L,61757L,
  81898. 61758L,61759L,61760L,61761L,61762L,61763L,61764L,61765L,61766L,61767L,
  81899. 61768L,61769L,61770L,61771L,61772L,61773L,61774L,61775L,61776L,61777L,
  81900. 61778L,61779L,61780L,61781L,61782L,61783L,61784L,61785L,61786L,61787L,
  81901. 61788L,61789L,61790L,61791L,61792L,61793L,61794L,61795L,61796L,61797L,
  81902. 61798L,61799L,61800L,61801L,61802L,61803L,61804L,61805L,61806L,61807L,
  81903. 61808L,61809L,61810L,61811L,61812L,61813L,61814L,61815L,61816L,61817L,
  81904. 61818L,61819L,61820L,61821L,61822L,61823L,61824L,61825L,61826L,61827L,
  81905. 61828L,61829L,61830L,61831L,61832L,61833L,61834L,61835L,61836L,61837L,
  81906. 61838L,61839L,61840L,61841L,61842L,61843L,61844L,61845L,61846L,61847L,
  81907. 61848L,61849L,61850L,61851L,61852L,61853L,61854L,61855L,61856L,61857L,
  81908. 61858L,61859L,61860L,61861L,61862L,61863L,61864L,61865L,61866L,61867L,
  81909. 61868L,61869L,61870L,61871L,61872L,61873L,61874L,61875L,61876L,61877L,
  81910. 61878L,61879L,61880L,61881L,61882L,61883L,61884L,61885L,61886L,61887L,
  81911. 61888L,61889L,61890L,61891L,61892L,61893L,61894L,61895L,61896L,61897L,
  81912. 61898L,61899L,61900L,61901L,61902L,61903L,61904L,61905L,61906L,61907L,
  81913. 61908L,61909L,61910L,61911L,61912L,61913L,61914L,61915L,61916L,61917L,
  81914. 61918L,61919L,61920L,61921L,61922L,61923L,61924L,61925L,61926L,61927L,
  81915. 61928L,61929L,61930L,61931L,61932L,61933L,61934L,61935L,61936L,61937L,
  81916. 61938L,61939L,61940L,61941L,61942L,61943L,61944L,61945L,61946L,61947L,
  81917. 61948L,61949L,61950L,61951L,61952L,61953L,61954L,61955L,61956L,61957L,
  81918. 61958L,61959L,61960L,61961L,61962L,61963L,61964L,61965L,61966L,61967L,
  81919. 61968L,61969L,61970L,61971L,61972L,61973L,61974L,61975L,61976L,61977L,
  81920. 61978L,61979L,61980L,61981L,61982L,61983L,61984L,61985L,61986L,61987L,
  81921. 61988L,61989L,61990L,61991L,61992L,61993L,61994L,61995L,61996L,61997L,
  81922. 61998L,61999L,62000L,62001L,62002L,62003L,62004L,62005L,62006L,62007L,
  81923. 62008L,62009L,62010L,62011L,62012L,62013L,62014L,62015L,62016L,62017L,
  81924. 62018L,62019L,62020L,62021L,62022L,62023L,62024L,62025L,62026L,62027L,
  81925. 62028L,62029L,62030L,62031L,62032L,62033L,62034L,62035L,62036L,62037L,
  81926. 62038L,62039L,62040L,62041L,62042L,62043L,62044L,62045L,62046L,62047L,
  81927. 62048L,62049L,62050L,62051L,62052L,62053L,62054L,62055L,62056L,62057L,
  81928. 62058L,62059L,62060L,62061L,62062L,62063L,62064L,62065L,62066L,62067L,
  81929. 62068L,62069L,62070L,62071L,62072L,62073L,62074L,62075L,62076L,62077L,
  81930. 62078L,62079L,62080L,62081L,62082L,62083L,62084L,62085L,62086L,62087L,
  81931. 62088L,62089L,62090L,62091L,62092L,62093L,62094L,62095L,62096L,62097L,
  81932. 62098L,62099L,62100L,62101L,62102L,62103L,62104L,62105L,62106L,62107L,
  81933. 62108L,62109L,62110L,62111L,62112L,62113L,62114L,62115L,62116L,62117L,
  81934. 62118L,62119L,62120L,62121L,62122L,62123L,62124L,62125L,62126L,62127L,
  81935. 62128L,62129L,62130L,62131L,62132L,62133L,62134L,62135L,62136L,62137L,
  81936. 62138L,62139L,62140L,62141L,62142L,62143L,62144L,62145L,62146L,62147L,
  81937. 62148L,62149L,62150L,62151L,62152L,62153L,62154L,62155L,62156L,62157L,
  81938. 62158L,62159L,62160L,62161L,62162L,62163L,62164L,62165L,62166L,62167L,
  81939. 62168L,62169L,62170L,62171L,62172L,62173L,62174L,62175L,62176L,62177L,
  81940. 62178L,62179L,62180L,62181L,62182L,62183L,62184L,62185L,62186L,62187L,
  81941. 62188L,62189L,62190L,62191L,62192L,62193L,62194L,62195L,62196L,62197L,
  81942. 62198L,62199L,62200L,62201L,62202L,62203L,62204L,62205L,62206L,62207L,
  81943. 62208L,62209L,62210L,62211L,62212L,62213L,62214L,62215L,62216L,62217L,
  81944. 62218L,62219L,62220L,62221L,62222L,62223L,62224L,62225L,62226L,62227L,
  81945. 62228L,62229L,62230L,62231L,62232L,62233L,62234L,62235L,62236L,62237L,
  81946. 62238L,62239L,62240L,62241L,62242L,62243L,62244L,62245L,62246L,62247L,
  81947. 62248L,62249L,62250L,62251L,62252L,62253L,62254L,62255L,62256L,62257L,
  81948. 62258L,62259L,62260L,62261L,62262L,62263L,62264L,62265L,62266L,62267L,
  81949. 62268L,62269L,62270L,62271L,62272L,62273L,62274L,62275L,62276L,62277L,
  81950. 62278L,62279L,62280L,62281L,62282L,62283L,62284L,62285L,62286L,62287L,
  81951. 62288L,62289L,62290L,62291L,62292L,62293L,62294L,62295L,62296L,62297L,
  81952. 62298L,62299L,62300L,62301L,62302L,62303L,62304L,62305L,62306L,62307L,
  81953. 62308L,62309L,62310L,62311L,62312L,62313L,62314L,62315L,62316L,62317L,
  81954. 62318L,62319L,62320L,62321L,62322L,62323L,62324L,62325L,62326L,62327L,
  81955. 62328L,62329L,62330L,62331L,62332L,62333L,62334L,62335L,62336L,62337L,
  81956. 62338L,62339L,62340L,62341L,62342L,62343L,62344L,62345L,62346L,62347L,
  81957. 62348L,62349L,62350L,62351L,62352L,62353L,62354L,62355L,62356L,62357L,
  81958. 62358L,62359L,62360L,62361L,62362L,62363L,62364L,62365L,62366L,62367L,
  81959. 62368L,62369L,62370L,62371L,62372L,62373L,62374L,62375L,62376L,62377L,
  81960. 62378L,62379L,62380L,62381L,62382L,62383L,62384L,62385L,62386L,62387L,
  81961. 62388L,62389L,62390L,62391L,62392L,62393L,62394L,62395L,62396L,62397L,
  81962. 62398L,62399L,62400L,62401L,62402L,62403L,62404L,62405L,62406L,62407L,
  81963. 62408L,62409L,62410L,62411L,62412L,62413L,62414L,62415L,62416L,62417L,
  81964. 62418L,62419L,62420L,62421L,62422L,62423L,62424L,62425L,62426L,62427L,
  81965. 62428L,62429L,62430L,62431L,62432L,62433L,62434L,62435L,62436L,62437L,
  81966. 62438L,62439L,62440L,62441L,62442L,62443L,62444L,62445L,62446L,62447L,
  81967. 62448L,62449L,62450L,62451L,62452L,62453L,62454L,62455L,62456L,62457L,
  81968. 62458L,62459L,62460L,62461L,62462L,62463L,62464L,62465L,62466L,62467L,
  81969. 62468L,62469L,62470L,62471L,62472L,62473L,62474L,62475L,62476L,62477L,
  81970. 62478L,62479L,62480L,62481L,62482L,62483L,62484L,62485L,62486L,62487L,
  81971. 62488L,62489L,62490L,62491L,62492L,62493L,62494L,62495L,62496L,62497L,
  81972. 62498L,62499L,62500L,62501L,62502L,62503L,62504L,62505L,62506L,62507L,
  81973. 62508L,62509L,62510L,62511L,62512L,62513L,62514L,62515L,62516L,62517L,
  81974. 62518L,62519L,62520L,62521L,62522L,62523L,62524L,62525L,62526L,62527L,
  81975. 62528L,62529L,62530L,62531L,62532L,62533L,62534L,62535L,62536L,62537L,
  81976. 62538L,62539L,62540L,62541L,62542L,62543L,62544L,62545L,62546L,62547L,
  81977. 62548L,62549L,62550L,62551L,62552L,62553L,62554L,62555L,62556L,62557L,
  81978. 62558L,62559L,62560L,62561L,62562L,62563L,62564L,62565L,62566L,62567L,
  81979. 62568L,62569L,62570L,62571L,62572L,62573L,62574L,62575L,62576L,62577L,
  81980. 62578L,62579L,62580L,62581L,62582L,62583L,62584L,62585L,62586L,62587L,
  81981. 62588L,62589L,62590L,62591L,62592L,62593L,62594L,62595L,62596L,62597L,
  81982. 62598L,62599L,62600L,62601L,62602L,62603L,62604L,62605L,62606L,62607L,
  81983. 62608L,62609L,62610L,62611L,62612L,62613L,62614L,62615L,62616L,62617L,
  81984. 62618L,62619L,62620L,62621L,62622L,62623L,62624L,62625L,62626L,62627L,
  81985. 62628L,62629L,62630L,62631L,62632L,62633L,62634L,62635L,62636L,62637L,
  81986. 62638L,62639L,62640L,62641L,62642L,62643L,62644L,62645L,62646L,62647L,
  81987. 62648L,62649L,62650L,62651L,62652L,62653L,62654L,62655L,62656L,62657L,
  81988. 62658L,62659L,62660L,62661L,62662L,62663L,62664L,62665L,62666L,62667L,
  81989. 62668L,62669L,62670L,62671L,62672L,62673L,62674L,62675L,62676L,62677L,
  81990. 62678L,62679L,62680L,62681L,62682L,62683L,62684L,62685L,62686L,62687L,
  81991. 62688L,62689L,62690L,62691L,62692L,62693L,62694L,62695L,62696L,62697L,
  81992. 62698L,62699L,62700L,62701L,62702L,62703L,62704L,62705L,62706L,62707L,
  81993. 62708L,62709L,62710L,62711L,62712L,62713L,62714L,62715L,62716L,62717L,
  81994. 62718L,62719L,62720L,62721L,62722L,62723L,62724L,62725L,62726L,62727L,
  81995. 62728L,62729L,62730L,62731L,62732L,62733L,62734L,62735L,62736L,62737L,
  81996. 62738L,62739L,62740L,62741L,62742L,62743L,62744L,62745L,62746L,62747L,
  81997. 62748L,62749L,62750L,62751L,62752L,62753L,62754L,62755L,62756L,62757L,
  81998. 62758L,62759L,62760L,62761L,62762L,62763L,62764L,62765L,62766L,62767L,
  81999. 62768L,62769L,62770L,62771L,62772L,62773L,62774L,62775L,62776L,62777L,
  82000. 62778L,62779L,62780L,62781L,62782L,62783L,62784L,62785L,62786L,62787L,
  82001. 62788L,62789L,62790L,62791L,62792L,62793L,62794L,62795L,62796L,62797L,
  82002. 62798L,62799L,62800L,62801L,62802L,62803L,62804L,62805L,62806L,62807L,
  82003. 62808L,62809L,62810L,62811L,62812L,62813L,62814L,62815L,62816L,62817L,
  82004. 62818L,62819L,62820L,62821L,62822L,62823L,62824L,62825L,62826L,62827L,
  82005. 62828L,62829L,62830L,62831L,62832L,62833L,62834L,62835L,62836L,62837L,
  82006. 62838L,62839L,62840L,62841L,62842L,62843L,62844L,62845L,62846L,62847L,
  82007. 62848L,62849L,62850L,62851L,62852L,62853L,62854L,62855L,62856L,62857L,
  82008. 62858L,62859L,62860L,62861L,62862L,62863L,62864L,62865L,62866L,62867L,
  82009. 62868L,62869L,62870L,62871L,62872L,62873L,62874L,62875L,62876L,62877L,
  82010. 62878L,62879L,62880L,62881L,62882L,62883L,62884L,62885L,62886L,62887L,
  82011. 62888L,62889L,62890L,62891L,62892L,62893L,62894L,62895L,62896L,62897L,
  82012. 62898L,62899L,62900L,62901L,62902L,62903L,62904L,62905L,62906L,62907L,
  82013. 62908L,62909L,62910L,62911L,62912L,62913L,62914L,62915L,62916L,62917L,
  82014. 62918L,62919L,62920L,62921L,62922L,62923L,62924L,62925L,62926L,62927L,
  82015. 62928L,62929L,62930L,62931L,62932L,62933L,62934L,62935L,62936L,62937L,
  82016. 62938L,62939L,62940L,62941L,62942L,62943L,62944L,62945L,62946L,62947L,
  82017. 62948L,62949L,62950L,62951L,62952L,62953L,62954L,62955L,62956L,62957L,
  82018. 62958L,62959L,62960L,62961L,62962L,62963L,62964L,62965L,62966L,62967L,
  82019. 62968L,62969L,62970L,62971L,62972L,62973L,62974L,62975L,62976L,62977L,
  82020. 62978L,62979L,62980L,62981L,62982L,62983L,62984L,62985L,62986L,62987L,
  82021. 62988L,62989L,62990L,62991L,62992L,62993L,62994L,62995L,62996L,62997L,
  82022. 62998L,62999L,63000L,63001L,63002L,63003L,63004L,63005L,63006L,63007L,
  82023. 63008L,63009L,63010L,63011L,63012L,63013L,63014L,63015L,63016L,63017L,
  82024. 63018L,63019L,63020L,63021L,63022L,63023L,63024L,63025L,63026L,63027L,
  82025. 63028L,63029L,63030L,63031L,63032L,63033L,63034L,63035L,63036L,63037L,
  82026. 63038L,63039L,63040L,63041L,63042L,63043L,63044L,63045L,63046L,63047L,
  82027. 63048L,63049L,63050L,63051L,63052L,63053L,63054L,63055L,63056L,63057L,
  82028. 63058L,63059L,63060L,63061L,63062L,63063L,63064L,63065L,63066L,63067L,
  82029. 63068L,63069L,63070L,63071L,63072L,63073L,63074L,63075L,63076L,63077L,
  82030. 63078L,63079L,63080L,63081L,63082L,63083L,63084L,63085L,63086L,63087L,
  82031. 63088L,63089L,63090L,63091L,63092L,63093L,63094L,63095L,63096L,63097L,
  82032. 63098L,63099L,63100L,63101L,63102L,63103L,63104L,63105L,63106L,63107L,
  82033. 63108L,63109L,63110L,63111L,63112L,63113L,63114L,63115L,63116L,63117L,
  82034. 63118L,63119L,63120L,63121L,63122L,63123L,63124L,63125L,63126L,63127L,
  82035. 63128L,63129L,63130L,63131L,63132L,63133L,63134L,63135L,63136L,63137L,
  82036. 63138L,63139L,63140L,63141L,63142L,63143L,63144L,63145L,63146L,63147L,
  82037. 63148L,63149L,63150L,63151L,63152L,63153L,63154L,63155L,63156L,63157L,
  82038. 63158L,63159L,63160L,63161L,63162L,63163L,63164L,63165L,63166L,63167L,
  82039. 63168L,63169L,63170L,63171L,63172L,63173L,63174L,63175L,63176L,63177L,
  82040. 63178L,63179L,63180L,63181L,63182L,63183L,63184L,63185L,63186L,63187L,
  82041. 63188L,63189L,63190L,63191L,63192L,63193L,63194L,63195L,63196L,63197L,
  82042. 63198L,63199L,63200L,63201L,63202L,63203L,63204L,63205L,63206L,63207L,
  82043. 63208L,63209L,63210L,63211L,63212L,63213L,63214L,63215L,63216L,63217L,
  82044. 63218L,63219L,63220L,63221L,63222L,63223L,63224L,63225L,63226L,63227L,
  82045. 63228L,63229L,63230L,63231L,63232L,63233L,63234L,63235L,63236L,63237L,
  82046. 63238L,63239L,63240L,63241L,63242L,63243L,63244L,63245L,63246L,63247L,
  82047. 63248L,63249L,63250L,63251L,63252L,63253L,63254L,63255L,63256L,63257L,
  82048. 63258L,63259L,63260L,63261L,63262L,63263L,63264L,63265L,63266L,63267L,
  82049. 63268L,63269L,63270L,63271L,63272L,63273L,63274L,63275L,63276L,63277L,
  82050. 63278L,63279L,63280L,63281L,63282L,63283L,63284L,63285L,63286L,63287L,
  82051. 63288L,63289L,63290L,63291L,63292L,63293L,63294L,63295L,63296L,63297L,
  82052. 63298L,63299L,63300L,63301L,63302L,63303L,63304L,63305L,63306L,63307L,
  82053. 63308L,63309L,63310L,63311L,63312L,63313L,63314L,63315L,63316L,63317L,
  82054. 63318L,63319L,63320L,63321L,63322L,63323L,63324L,63325L,63326L,63327L,
  82055. 63328L,63329L,63330L,63331L,63332L,63333L,63334L,63335L,63336L,63337L,
  82056. 63338L,63339L,63340L,63341L,63342L,63343L,63344L,63345L,63346L,63347L,
  82057. 63348L,63349L,63350L,63351L,63352L,63353L,63354L,63355L,63356L,63357L,
  82058. 63358L,63359L,63360L,63361L,63362L,63363L,63364L,63365L,63366L,63367L,
  82059. 63368L,63369L,63370L,63371L,63372L,63373L,63374L,63375L,63376L,63377L,
  82060. 63378L,63379L,63380L,63381L,63382L,63383L,63384L,63385L,63386L,63387L,
  82061. 63388L,63389L,63390L,63391L,63392L,63393L,63394L,63395L,63396L,63397L,
  82062. 63398L,63399L,63400L,63401L,63402L,63403L,63404L,63405L,63406L,63407L,
  82063. 63408L,63409L,63410L,63411L,63412L,63413L,63414L,63415L,63416L,63417L,
  82064. 63418L,63419L,63420L,63421L,63422L,63423L,63424L,63425L,63426L,63427L,
  82065. 63428L,63429L,63430L,63431L,63432L,63433L,63434L,63435L,63436L,63437L,
  82066. 63438L,63439L,63440L,63441L,63442L,63443L,63444L,63445L,63446L,63447L,
  82067. 63448L,63449L,63450L,63451L,63452L,63453L,63454L,63455L,63456L,63457L,
  82068. 63458L,63459L,63460L,63461L,63462L,63463L,63464L,63465L,63466L,63467L,
  82069. 63468L,63469L,63470L,63471L,63472L,63473L,63474L,63475L,63476L,63477L,
  82070. 63478L,63479L,63480L,63481L,63482L,63483L,63484L,63485L,63486L,63487L,
  82071. 63488L,63489L,63490L,63491L,63492L,63493L,63494L,63495L,63496L,63497L,
  82072. 63498L,63499L,63500L,63501L,63502L,63503L,63504L,63505L,63506L,63507L,
  82073. 63508L,63509L,63510L,63511L,63512L,63513L,63514L,63515L,63516L,63517L,
  82074. 63518L,63519L,63520L,63521L,63522L,63523L,63524L,63525L,63526L,63527L,
  82075. 63528L,63529L,63530L,63531L,63532L,63533L,63534L,63535L,63536L,63537L,
  82076. 63538L,63539L,63540L,63541L,63542L,63543L,63544L,63545L,63546L,63547L,
  82077. 63548L,63549L,63550L,63551L,63552L,63553L,63554L,63555L,63556L,63557L,
  82078. 63558L,63559L,63560L,63561L,63562L,63563L,63564L,63565L,63566L,63567L,
  82079. 63568L,63569L,63570L,63571L,63572L,63573L,63574L,63575L,63576L,63577L,
  82080. 63578L,63579L,63580L,63581L,63582L,63583L,63584L,63585L,63586L,63587L,
  82081. 63588L,63589L,63590L,63591L,63592L,63593L,63594L,63595L,63596L,63597L,
  82082. 63598L,63599L,63600L,63601L,63602L,63603L,63604L,63605L,63606L,63607L,
  82083. 63608L,63609L,63610L,63611L,63612L,63613L,63614L,63615L,63616L,63617L,
  82084. 63618L,63619L,63620L,63621L,63622L,63623L,63624L,63625L,63626L,63627L,
  82085. 63628L,63629L,63630L,63631L,63632L,63633L,63634L,63635L,63636L,63637L,
  82086. 63638L,63639L,63640L,63641L,63642L,63643L,63644L,63645L,63646L,63647L,
  82087. 63648L,63649L,63650L,63651L,63652L,63653L,63654L,63655L,63656L,63657L,
  82088. 63658L,63659L,63660L,63661L,63662L,63663L,63664L,63665L,63666L,63667L,
  82089. 63668L,63669L,63670L,63671L,63672L,63673L,63674L,63675L,63676L,63677L,
  82090. 63678L,63679L,63680L,63681L,63682L,63683L,63684L,63685L,63686L,63687L,
  82091. 63688L,63689L,63690L,63691L,63692L,63693L,63694L,63695L,63696L,63697L,
  82092. 63698L,63699L,63700L,63701L,63702L,63703L,63704L,63705L,63706L,63707L,
  82093. 63708L,63709L,63710L,63711L,63712L,63713L,63714L,63715L,63716L,63717L,
  82094. 63718L,63719L,63720L,63721L,63722L,63723L,63724L,63725L,63726L,63727L,
  82095. 63728L,63729L,63730L,63731L,63732L,63733L,63734L,63735L,63736L,63737L,
  82096. 63738L,63739L,63740L,63741L,63742L,63743L,63744L,63745L,63746L,63747L,
  82097. 63748L,63749L,63750L,63751L,63752L,63753L,63754L,63755L,63756L,63757L,
  82098. 63758L,63759L,63760L,63761L,63762L,63763L,63764L,63765L,63766L,63767L,
  82099. 63768L,63769L,63770L,63771L,63772L,63773L,63774L,63775L,63776L,63777L,
  82100. 63778L,63779L,63780L,63781L,63782L,63783L,63784L,63785L,63786L,63787L,
  82101. 63788L,63789L,63790L,63791L,63792L,63793L,63794L,63795L,63796L,63797L,
  82102. 63798L,63799L,63800L,63801L,63802L,63803L,63804L,63805L,63806L,63807L,
  82103. 63808L,63809L,63810L,63811L,63812L,63813L,63814L,63815L,63816L,63817L,
  82104. 63818L,63819L,63820L,63821L,63822L,63823L,63824L,63825L,63826L,63827L,
  82105. 63828L,63829L,63830L,63831L,63832L,63833L,63834L,63835L,63836L,63837L,
  82106. 63838L,63839L,63840L,63841L,63842L,63843L,63844L,63845L,63846L,63847L,
  82107. 63848L,63849L,63850L,63851L,63852L,63853L,63854L,63855L,63856L,63857L,
  82108. 63858L,63859L,63860L,63861L,63862L,63863L,63864L,63865L,63866L,63867L,
  82109. 63868L,63869L,63870L,63871L,63872L,63873L,63874L,63875L,63876L,63877L,
  82110. 63878L,63879L,63880L,63881L,63882L,63883L,63884L,63885L,63886L,63887L,
  82111. 63888L,63889L,63890L,63891L,63892L,63893L,63894L,63895L,63896L,63897L,
  82112. 63898L,63899L,63900L,63901L,63902L,63903L,63904L,63905L,63906L,63907L,
  82113. 63908L,63909L,63910L,63911L,63912L,63913L,63914L,63915L,63916L,63917L,
  82114. 63918L,63919L,63920L,63921L,63922L,63923L,63924L,63925L,63926L,63927L,
  82115. 63928L,63929L,63930L,63931L,63932L,63933L,63934L,63935L,63936L,63937L,
  82116. 63938L,63939L,63940L,63941L,63942L,63943L,63944L,63945L,63946L,63947L,
  82117. 63948L,63949L,63950L,63951L,63952L,63953L,63954L,63955L,63956L,63957L,
  82118. 63958L,63959L,63960L,63961L,63962L,63963L,63964L,63965L,63966L,63967L,
  82119. 63968L,63969L,63970L,63971L,63972L,63973L,63974L,63975L,63976L,63977L,
  82120. 63978L,63979L,63980L,63981L,63982L,63983L,63984L,63985L,63986L,63987L,
  82121. 63988L,63989L,63990L,63991L,63992L,63993L,63994L,63995L,63996L,63997L,
  82122. 63998L,63999L,64000L,64001L,64002L,64003L,64004L,64005L,64006L,64007L,
  82123. 64008L,64009L,64010L,64011L,64012L,64013L,64014L,64015L,64016L,64017L,
  82124. 64018L,64019L,64020L,64021L,64022L,64023L,64024L,64025L,64026L,64027L,
  82125. 64028L,64029L,64030L,64031L,64032L,64033L,64034L,64035L,64036L,64037L,
  82126. 64038L,64039L,64040L,64041L,64042L,64043L,64044L,64045L,64046L,64047L,
  82127. 64048L,64049L,64050L,64051L,64052L,64053L,64054L,64055L,64056L,64057L,
  82128. 64058L,64059L,64060L,64061L,64062L,64063L,64064L,64065L,64066L,64067L,
  82129. 64068L,64069L,64070L,64071L,64072L,64073L,64074L,64075L,64076L,64077L,
  82130. 64078L,64079L,64080L,64081L,64082L,64083L,64084L,64085L,64086L,64087L,
  82131. 64088L,64089L,64090L,64091L,64092L,64093L,64094L,64095L,64096L,64097L,
  82132. 64098L,64099L,64100L,64101L,64102L,64103L,64104L,64105L,64106L,64107L,
  82133. 64108L,64109L,64110L,64111L,64112L,64113L,64114L,64115L,64116L,64117L,
  82134. 64118L,64119L,64120L,64121L,64122L,64123L,64124L,64125L,64126L,64127L,
  82135. 64128L,64129L,64130L,64131L,64132L,64133L,64134L,64135L,64136L,64137L,
  82136. 64138L,64139L,64140L,64141L,64142L,64143L,64144L,64145L,64146L,64147L,
  82137. 64148L,64149L,64150L,64151L,64152L,64153L,64154L,64155L,64156L,64157L,
  82138. 64158L,64159L,64160L,64161L,64162L,64163L,64164L,64165L,64166L,64167L,
  82139. 64168L,64169L,64170L,64171L,64172L,64173L,64174L,64175L,64176L,64177L,
  82140. 64178L,64179L,64180L,64181L,64182L,64183L,64184L,64185L,64186L,64187L,
  82141. 64188L,64189L,64190L,64191L,64192L,64193L,64194L,64195L,64196L,64197L,
  82142. 64198L,64199L,64200L,64201L,64202L,64203L,64204L,64205L,64206L,64207L,
  82143. 64208L,64209L,64210L,64211L,64212L,64213L,64214L,64215L,64216L,64217L,
  82144. 64218L,64219L,64220L,64221L,64222L,64223L,64224L,64225L,64226L,64227L,
  82145. 64228L,64229L,64230L,64231L,64232L,64233L,64234L,64235L,64236L,64237L,
  82146. 64238L,64239L,64240L,64241L,64242L,64243L,64244L,64245L,64246L,64247L,
  82147. 64248L,64249L,64250L,64251L,64252L,64253L,64254L,64255L,64256L,64257L,
  82148. 64258L,64259L,64260L,64261L,64262L,64263L,64264L,64265L,64266L,64267L,
  82149. 64268L,64269L,64270L,64271L,64272L,64273L,64274L,64275L,64276L,64277L,
  82150. 64278L,64279L,64280L,64281L,64282L,64283L,64284L,64285L,64286L,64287L,
  82151. 64288L,64289L,64290L,64291L,64292L,64293L,64294L,64295L,64296L,64297L,
  82152. 64298L,64299L,64300L,64301L,64302L,64303L,64304L,64305L,64306L,64307L,
  82153. 64308L,64309L,64310L,64311L,64312L,64313L,64314L,64315L,64316L,64317L,
  82154. 64318L,64319L,64320L,64321L,64322L,64323L,64324L,64325L,64326L,64327L,
  82155. 64328L,64329L,64330L,64331L,64332L,64333L,64334L,64335L,64336L,64337L,
  82156. 64338L,64339L,64340L,64341L,64342L,64343L,64344L,64345L,64346L,64347L,
  82157. 64348L,64349L,64350L,64351L,64352L,64353L,64354L,64355L,64356L,64357L,
  82158. 64358L,64359L,64360L,64361L,64362L,64363L,64364L,64365L,64366L,64367L,
  82159. 64368L,64369L,64370L,64371L,64372L,64373L,64374L,64375L,64376L,64377L,
  82160. 64378L,64379L,64380L,64381L,64382L,64383L,64384L,64385L,64386L,64387L,
  82161. 64388L,64389L,64390L,64391L,64392L,64393L,64394L,64395L,64396L,64397L,
  82162. 64398L,64399L,64400L,64401L,64402L,64403L,64404L,64405L,64406L,64407L,
  82163. 64408L,64409L,64410L,64411L,64412L,64413L,64414L,64415L,64416L,64417L,
  82164. 64418L,64419L,64420L,64421L,64422L,64423L,64424L,64425L,64426L,64427L,
  82165. 64428L,64429L,64430L,64431L,64432L,64433L,64434L,64435L,64436L,64437L,
  82166. 64438L,64439L,64440L,64441L,64442L,64443L,64444L,64445L,64446L,64447L,
  82167. 64448L,64449L,64450L,64451L,64452L,64453L,64454L,64455L,64456L,64457L,
  82168. 64458L,64459L,64460L,64461L,64462L,64463L,64464L,64465L,64466L,64467L,
  82169. 64468L,64469L,64470L,64471L,64472L,64473L,64474L,64475L,64476L,64477L,
  82170. 64478L,64479L,64480L,64481L,64482L,64483L,64484L,64485L,64486L,64487L,
  82171. 64488L,64489L,64490L,64491L,64492L,64493L,64494L,64495L,64496L,64497L,
  82172. 64498L,64499L,64500L,64501L,64502L,64503L,64504L,64505L,64506L,64507L,
  82173. 64508L,64509L,64510L,64511L,64512L,64513L,64514L,64515L,64516L,64517L,
  82174. 64518L,64519L,64520L,64521L,64522L,64523L,64524L,64525L,64526L,64527L,
  82175. 64528L,64529L,64530L,64531L,64532L,64533L,64534L,64535L,64536L,64537L,
  82176. 64538L,64539L,64540L,64541L,64542L,64543L,64544L,64545L,64546L,64547L,
  82177. 64548L,64549L,64550L,64551L,64552L,64553L,64554L,64555L,64556L,64557L,
  82178. 64558L,64559L,64560L,64561L,64562L,64563L,64564L,64565L,64566L,64567L,
  82179. 64568L,64569L,64570L,64571L,64572L,64573L,64574L,64575L,64576L,64577L,
  82180. 64578L,64579L,64580L,64581L,64582L,64583L,64584L,64585L,64586L,64587L,
  82181. 64588L,64589L,64590L,64591L,64592L,64593L,64594L,64595L,64596L,64597L,
  82182. 64598L,64599L,64600L,64601L,64602L,64603L,64604L,64605L,64606L,64607L,
  82183. 64608L,64609L,64610L,64611L,64612L,64613L,64614L,64615L,64616L,64617L,
  82184. 64618L,64619L,64620L,64621L,64622L,64623L,64624L,64625L,64626L,64627L,
  82185. 64628L,64629L,64630L,64631L,64632L,64633L,64634L,64635L,64636L,64637L,
  82186. 64638L,64639L,64640L,64641L,64642L,64643L,64644L,64645L,64646L,64647L,
  82187. 64648L,64649L,64650L,64651L,64652L,64653L,64654L,64655L,64656L,64657L,
  82188. 64658L,64659L,64660L,64661L,64662L,64663L,64664L,64665L,64666L,64667L,
  82189. 64668L,64669L,64670L,64671L,64672L,64673L,64674L,64675L,64676L,64677L,
  82190. 64678L,64679L,64680L,64681L,64682L,64683L,64684L,64685L,64686L,64687L,
  82191. 64688L,64689L,64690L,64691L,64692L,64693L,64694L,64695L,64696L,64697L,
  82192. 64698L,64699L,64700L,64701L,64702L,64703L,64704L,64705L,64706L,64707L,
  82193. 64708L,64709L,64710L,64711L,64712L,64713L,64714L,64715L,64716L,64717L,
  82194. 64718L,64719L,64720L,64721L,64722L,64723L,64724L,64725L,64726L,64727L,
  82195. 64728L,64729L,64730L,64731L,64732L,64733L,64734L,64735L,64736L,64737L,
  82196. 64738L,64739L,64740L,64741L,64742L,64743L,64744L,64745L,64746L,64747L,
  82197. 64748L,64749L,64750L,64751L,64752L,64753L,64754L,64755L,64756L,64757L,
  82198. 64758L,64759L,64760L,64761L,64762L,64763L,64764L,64765L,64766L,64767L,
  82199. 64768L,64769L,64770L,64771L,64772L,64773L,64774L,64775L,64776L,64777L,
  82200. 64778L,64779L,64780L,64781L,64782L,64783L,64784L,64785L,64786L,64787L,
  82201. 64788L,64789L,64790L,64791L,64792L,64793L,64794L,64795L,64796L,64797L,
  82202. 64798L,64799L,64800L,64801L,64802L,64803L,64804L,64805L,64806L,64807L,
  82203. 64808L,64809L,64810L,64811L,64812L,64813L,64814L,64815L,64816L,64817L,
  82204. 64818L,64819L,64820L,64821L,64822L,64823L,64824L,64825L,64826L,64827L,
  82205. 64828L,64829L,64830L,64831L,64832L,64833L,64834L,64835L,64836L,64837L,
  82206. 64838L,64839L,64840L,64841L,64842L,64843L,64844L,64845L,64846L,64847L,
  82207. 64848L,64849L,64850L,64851L,64852L,64853L,64854L,64855L,64856L,64857L,
  82208. 64858L,64859L,64860L,64861L,64862L,64863L,64864L,64865L,64866L,64867L,
  82209. 64868L,64869L,64870L,64871L,64872L,64873L,64874L,64875L,64876L,64877L,
  82210. 64878L,64879L,64880L,64881L,64882L,64883L,64884L,64885L,64886L,64887L,
  82211. 64888L,64889L,64890L,64891L,64892L,64893L,64894L,64895L,64896L,64897L,
  82212. 64898L,64899L,64900L,64901L,64902L,64903L,64904L,64905L,64906L,64907L,
  82213. 64908L,64909L,64910L,64911L,64912L,64913L,64914L,64915L,64916L,64917L,
  82214. 64918L,64919L,64920L,64921L,64922L,64923L,64924L,64925L,64926L,64927L,
  82215. 64928L,64929L,64930L,64931L,64932L,64933L,64934L,64935L,64936L,64937L,
  82216. 64938L,64939L,64940L,64941L,64942L,64943L,64944L,64945L,64946L,64947L,
  82217. 64948L,64949L,64950L,64951L,64952L,64953L,64954L,64955L,64956L,64957L,
  82218. 64958L,64959L,64960L,64961L,64962L,64963L,64964L,64965L,64966L,64967L,
  82219. 64968L,64969L,64970L,64971L,64972L,64973L,64974L,64975L,64976L,64977L,
  82220. 64978L,64979L,64980L,64981L,64982L,64983L,64984L,64985L,64986L,64987L,
  82221. 64988L,64989L,64990L,64991L,64992L,64993L,64994L,64995L,64996L,64997L,
  82222. 64998L,64999L,65000L,65001L,65002L,65003L,65004L,65005L,65006L,65007L,
  82223. 65008L,65009L,65010L,65011L,65012L,65013L,65014L,65015L,65016L,65017L,
  82224. 65018L,65019L,65020L,65021L,65022L,65023L,65024L,65025L,65026L,65027L,
  82225. 65028L,65029L,65030L,65031L,65032L,65033L,65034L,65035L,65036L,65037L,
  82226. 65038L,65039L,65040L,65041L,65042L,65043L,65044L,65045L,65046L,65047L,
  82227. 65048L,65049L,65050L,65051L,65052L,65053L,65054L,65055L,65056L,65057L,
  82228. 65058L,65059L,65060L,65061L,65062L,65063L,65064L,65065L,65066L,65067L,
  82229. 65068L,65069L,65070L,65071L,65072L,65073L,65074L,65075L,65076L,65077L,
  82230. 65078L,65079L,65080L,65081L,65082L,65083L,65084L,65085L,65086L,65087L,
  82231. 65088L,65089L,65090L,65091L,65092L,65093L,65094L,65095L,65096L,65097L,
  82232. 65098L,65099L,65100L,65101L,65102L,65103L,65104L,65105L,65106L,65107L,
  82233. 65108L,65109L,65110L,65111L,65112L,65113L,65114L,65115L,65116L,65117L,
  82234. 65118L,65119L,65120L,65121L,65122L,65123L,65124L,65125L,65126L,65127L,
  82235. 65128L,65129L,65130L,65131L,65132L,65133L,65134L,65135L,65136L,65137L,
  82236. 65138L,65139L,65140L,65141L,65142L,65143L,65144L,65145L,65146L,65147L,
  82237. 65148L,65149L,65150L,65151L,65152L,65153L,65154L,65155L,65156L,65157L,
  82238. 65158L,65159L,65160L,65161L,65162L,65163L,65164L,65165L,65166L,65167L,
  82239. 65168L,65169L,65170L,65171L,65172L,65173L,65174L,65175L,65176L,65177L,
  82240. 65178L,65179L,65180L,65181L,65182L,65183L,65184L,65185L,65186L,65187L,
  82241. 65188L,65189L,65190L,65191L,65192L,65193L,65194L,65195L,65196L,65197L,
  82242. 65198L,65199L,65200L,65201L,65202L,65203L,65204L,65205L,65206L,65207L,
  82243. 65208L,65209L,65210L,65211L,65212L,65213L,65214L,65215L,65216L,65217L,
  82244. 65218L,65219L,65220L,65221L,65222L,65223L,65224L,65225L,65226L,65227L,
  82245. 65228L,65229L,65230L,65231L,65232L,65233L,65234L,65235L,65236L,65237L,
  82246. 65238L,65239L,65240L,65241L,65242L,65243L,65244L,65245L,65246L,65247L,
  82247. 65248L,65249L,65250L,65251L,65252L,65253L,65254L,65255L,65256L,65257L,
  82248. 65258L,65259L,65260L,65261L,65262L,65263L,65264L,65265L,65266L,65267L,
  82249. 65268L,65269L,65270L,65271L,65272L,65273L,65274L,65275L,65276L,65277L,
  82250. 65278L,65279L,65280L,65281L,65282L,65283L,65284L,65285L,65286L,65287L,
  82251. 65288L,65289L,65290L,65291L,65292L,65293L,65294L,65295L,65296L,65297L,
  82252. 65298L,65299L,65300L,65301L,65302L,65303L,65304L,65305L,65306L,65307L,
  82253. 65308L,65309L,65310L,65311L,65312L,65313L,65314L,65315L,65316L,65317L,
  82254. 65318L,65319L,65320L,65321L,65322L,65323L,65324L,65325L,65326L,65327L,
  82255. 65328L,65329L,65330L,65331L,65332L,65333L,65334L,65335L,65336L,65337L,
  82256. 65338L,65339L,65340L,65341L,65342L,65343L,65344L,65313L,65314L,65315L,
  82257. 65316L,65317L,65318L,65319L,65320L,65321L,65322L,65323L,65324L,65325L,
  82258. 65326L,65327L,65328L,65329L,65330L,65331L,65332L,65333L,65334L,65335L,
  82259. 65336L,65337L,65338L,65371L,65372L,65373L,65374L,65375L,65376L,65377L,
  82260. 65378L,65379L,65380L,65381L,65382L,65383L,65384L,65385L,65386L,65387L,
  82261. 65388L,65389L,65390L,65391L,65392L,65393L,65394L,65395L,65396L,65397L,
  82262. 65398L,65399L,65400L,65401L,65402L,65403L,65404L,65405L,65406L,65407L,
  82263. 65408L,65409L,65410L,65411L,65412L,65413L,65414L,65415L,65416L,65417L,
  82264. 65418L,65419L,65420L,65421L,65422L,65423L,65424L,65425L,65426L,65427L,
  82265. 65428L,65429L,65430L,65431L,65432L,65433L,65434L,65435L,65436L,65437L,
  82266. 65438L,65439L,65440L,65441L,65442L,65443L,65444L,65445L,65446L,65447L,
  82267. 65448L,65449L,65450L,65451L,65452L,65453L,65454L,65455L,65456L,65457L,
  82268. 65458L,65459L,65460L,65461L,65462L,65463L,65464L,65465L,65466L,65467L,
  82269. 65468L,65469L,65470L,65471L,65472L,65473L,65474L,65475L,65476L,65477L,
  82270. 65478L,65479L,65480L,65481L,65482L,65483L,65484L,65485L,65486L,65487L,
  82271. 65488L,65489L,65490L,65491L,65492L,65493L,65494L,65495L,65496L,65497L,
  82272. 65498L,65499L,65500L,65501L,65502L,65503L,65504L,65505L,65506L,65507L,
  82273. 65508L,65509L,65510L,65511L,65512L,65513L,65514L,65515L,65516L,65517L,
  82274. 65518L,65519L,65520L,65521L,65522L,65523L,65524L,65525L,65526L,65527L,
  82275. 65528L,65529L,65530L,65531L,65532L,65533L,65534L,65535L,
  82276. };
  82277. #endif
  82278. #if defined(DUK_USE_REGEXP_CANON_BITMAP)
  82279. /*
  82280. * Automatically generated by extract_caseconv.py, do not edit!
  82281. */
  82282. const duk_uint8_t duk_unicode_re_canon_bitmap[256] = {
  82283. 23,0,224,19,1,228,255,255,255,255,255,255,255,255,255,255,255,255,255,127,
  82284. 255,255,255,255,255,255,255,255,231,247,0,16,255,227,255,255,63,255,255,
  82285. 255,255,255,255,255,1,252,255,255,255,255,255,255,255,255,255,255,255,255,
  82286. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82287. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82288. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82289. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82290. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82291. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82292. 227,193,255,255,255,147,255,255,255,255,255,255,255,255,255,255,255,255,
  82293. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82294. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82295. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
  82296. 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,251,
  82297. };
  82298. #endif
  82299. #line 1 "duk_util_bitdecoder.c"
  82300. /*
  82301. * Bitstream decoder.
  82302. */
  82303. /* #include duk_internal.h -> already included */
  82304. /* Decode 'bits' bits from the input stream (bits must be 1...24).
  82305. * When reading past bitstream end, zeroes are shifted in. The result
  82306. * is signed to match duk_bd_decode_flagged.
  82307. */
  82308. DUK_INTERNAL duk_uint32_t duk_bd_decode(duk_bitdecoder_ctx *ctx, duk_small_int_t bits) {
  82309. duk_small_int_t shift;
  82310. duk_uint32_t mask;
  82311. duk_uint32_t tmp;
  82312. /* Note: cannot read more than 24 bits without possibly shifting top bits out.
  82313. * Fixable, but adds complexity.
  82314. */
  82315. DUK_ASSERT(bits >= 1 && bits <= 24);
  82316. while (ctx->currbits < bits) {
  82317. #if 0
  82318. DUK_DDD(DUK_DDDPRINT("decode_bits: shift more data (bits=%ld, currbits=%ld)",
  82319. (long) bits, (long) ctx->currbits));
  82320. #endif
  82321. ctx->currval <<= 8;
  82322. if (ctx->offset < ctx->length) {
  82323. /* If ctx->offset >= ctx->length, we "shift zeroes in"
  82324. * instead of croaking.
  82325. */
  82326. ctx->currval |= ctx->data[ctx->offset++];
  82327. }
  82328. ctx->currbits += 8;
  82329. }
  82330. #if 0
  82331. DUK_DDD(DUK_DDDPRINT("decode_bits: bits=%ld, currbits=%ld, currval=0x%08lx",
  82332. (long) bits, (long) ctx->currbits, (unsigned long) ctx->currval));
  82333. #endif
  82334. /* Extract 'top' bits of currval; note that the extracted bits do not need
  82335. * to be cleared, we just ignore them on next round.
  82336. */
  82337. shift = ctx->currbits - bits;
  82338. mask = (((duk_uint32_t) 1U) << bits) - 1U;
  82339. tmp = (ctx->currval >> shift) & mask;
  82340. ctx->currbits = shift; /* remaining */
  82341. #if 0
  82342. DUK_DDD(DUK_DDDPRINT("decode_bits: %ld bits -> 0x%08lx (%ld), currbits=%ld, currval=0x%08lx",
  82343. (long) bits, (unsigned long) tmp, (long) tmp, (long) ctx->currbits, (unsigned long) ctx->currval));
  82344. #endif
  82345. return tmp;
  82346. }
  82347. DUK_INTERNAL duk_small_uint_t duk_bd_decode_flag(duk_bitdecoder_ctx *ctx) {
  82348. return (duk_small_uint_t) duk_bd_decode(ctx, 1);
  82349. }
  82350. /* Decode a one-bit flag, and if set, decode a value of 'bits', otherwise return
  82351. * default value.
  82352. */
  82353. DUK_INTERNAL duk_uint32_t duk_bd_decode_flagged(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_uint32_t def_value) {
  82354. if (duk_bd_decode_flag(ctx)) {
  82355. return duk_bd_decode(ctx, bits);
  82356. } else {
  82357. return def_value;
  82358. }
  82359. }
  82360. /* Signed variant, allows negative marker value. */
  82361. DUK_INTERNAL duk_int32_t duk_bd_decode_flagged_signed(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_int32_t def_value) {
  82362. return (duk_int32_t) duk_bd_decode_flagged(ctx, bits, (duk_uint32_t) def_value);
  82363. }
  82364. /* Shared varint encoding. Match dukutil.py BitEncode.varuint(). */
  82365. DUK_INTERNAL duk_uint32_t duk_bd_decode_varuint(duk_bitdecoder_ctx *ctx) {
  82366. duk_small_uint_t t;
  82367. /* The bit encoding choices here are based on manual testing against
  82368. * the actual varuints generated by genbuiltins.py.
  82369. */
  82370. switch (duk_bd_decode(ctx, 2)) {
  82371. case 0:
  82372. return 0; /* [0,0] */
  82373. case 1:
  82374. return duk_bd_decode(ctx, 2) + 1; /* [1,4] */
  82375. case 2:
  82376. return duk_bd_decode(ctx, 5) + 5; /* [5,36] */
  82377. default:
  82378. t = duk_bd_decode(ctx, 7);
  82379. if (t == 0) {
  82380. return duk_bd_decode(ctx, 20);
  82381. }
  82382. return (t - 1) + 37; /* [37,163] */
  82383. }
  82384. }
  82385. /* Decode a bit packed string from a custom format used by genbuiltins.py.
  82386. * This function is here because it's used for both heap and thread inits.
  82387. * Caller must supply the output buffer whose size is NOT checked!
  82388. */
  82389. #define DUK__BITPACK_LETTER_LIMIT 26
  82390. #define DUK__BITPACK_LOOKUP1 26
  82391. #define DUK__BITPACK_LOOKUP2 27
  82392. #define DUK__BITPACK_SWITCH1 28
  82393. #define DUK__BITPACK_SWITCH 29
  82394. #define DUK__BITPACK_UNUSED1 30
  82395. #define DUK__BITPACK_EIGHTBIT 31
  82396. DUK_LOCAL const duk_uint8_t duk__bitpacked_lookup[16] = {
  82397. DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3,
  82398. DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7,
  82399. DUK_ASC_8, DUK_ASC_9, DUK_ASC_UNDERSCORE, DUK_ASC_SPACE,
  82400. 0x82, 0x80, DUK_ASC_DOUBLEQUOTE, DUK_ASC_LCURLY
  82401. };
  82402. DUK_INTERNAL duk_small_uint_t duk_bd_decode_bitpacked_string(duk_bitdecoder_ctx *bd, duk_uint8_t *out) {
  82403. duk_small_uint_t len;
  82404. duk_small_uint_t mode;
  82405. duk_small_uint_t t;
  82406. duk_small_uint_t i;
  82407. len = duk_bd_decode(bd, 5);
  82408. if (len == 31) {
  82409. len = duk_bd_decode(bd, 8); /* Support up to 256 bytes; rare. */
  82410. }
  82411. mode = 32; /* 0 = uppercase, 32 = lowercase (= 'a' - 'A') */
  82412. for (i = 0; i < len; i++) {
  82413. t = duk_bd_decode(bd, 5);
  82414. if (t < DUK__BITPACK_LETTER_LIMIT) {
  82415. t = t + DUK_ASC_UC_A + mode;
  82416. } else if (t == DUK__BITPACK_LOOKUP1) {
  82417. t = duk__bitpacked_lookup[duk_bd_decode(bd, 3)];
  82418. } else if (t == DUK__BITPACK_LOOKUP2) {
  82419. t = duk__bitpacked_lookup[8 + duk_bd_decode(bd, 3)];
  82420. } else if (t == DUK__BITPACK_SWITCH1) {
  82421. t = duk_bd_decode(bd, 5);
  82422. DUK_ASSERT_DISABLE(t >= 0); /* unsigned */
  82423. DUK_ASSERT(t <= 25);
  82424. t = t + DUK_ASC_UC_A + (mode ^ 32);
  82425. } else if (t == DUK__BITPACK_SWITCH) {
  82426. mode = mode ^ 32;
  82427. t = duk_bd_decode(bd, 5);
  82428. DUK_ASSERT_DISABLE(t >= 0);
  82429. DUK_ASSERT(t <= 25);
  82430. t = t + DUK_ASC_UC_A + mode;
  82431. } else if (t == DUK__BITPACK_EIGHTBIT) {
  82432. t = duk_bd_decode(bd, 8);
  82433. }
  82434. out[i] = (duk_uint8_t) t;
  82435. }
  82436. return len;
  82437. }
  82438. /* automatic undefs */
  82439. #undef DUK__BITPACK_EIGHTBIT
  82440. #undef DUK__BITPACK_LETTER_LIMIT
  82441. #undef DUK__BITPACK_LOOKUP1
  82442. #undef DUK__BITPACK_LOOKUP2
  82443. #undef DUK__BITPACK_SWITCH
  82444. #undef DUK__BITPACK_SWITCH1
  82445. #undef DUK__BITPACK_UNUSED1
  82446. #line 1 "duk_util_bitencoder.c"
  82447. /*
  82448. * Bitstream encoder.
  82449. */
  82450. /* #include duk_internal.h -> already included */
  82451. DUK_INTERNAL void duk_be_encode(duk_bitencoder_ctx *ctx, duk_uint32_t data, duk_small_int_t bits) {
  82452. duk_uint8_t tmp;
  82453. DUK_ASSERT(ctx != NULL);
  82454. DUK_ASSERT(ctx->currbits < 8);
  82455. /* This limitation would be fixable but adds unnecessary complexity. */
  82456. DUK_ASSERT(bits >= 1 && bits <= 24);
  82457. ctx->currval = (ctx->currval << bits) | data;
  82458. ctx->currbits += bits;
  82459. while (ctx->currbits >= 8) {
  82460. if (ctx->offset < ctx->length) {
  82461. tmp = (duk_uint8_t) ((ctx->currval >> (ctx->currbits - 8)) & 0xff);
  82462. ctx->data[ctx->offset++] = tmp;
  82463. } else {
  82464. /* If buffer has been exhausted, truncate bitstream */
  82465. ctx->truncated = 1;
  82466. }
  82467. ctx->currbits -= 8;
  82468. }
  82469. }
  82470. DUK_INTERNAL void duk_be_finish(duk_bitencoder_ctx *ctx) {
  82471. duk_small_int_t npad;
  82472. DUK_ASSERT(ctx != NULL);
  82473. DUK_ASSERT(ctx->currbits < 8);
  82474. npad = (duk_small_int_t) (8 - ctx->currbits);
  82475. if (npad > 0) {
  82476. duk_be_encode(ctx, 0, npad);
  82477. }
  82478. DUK_ASSERT(ctx->currbits == 0);
  82479. }
  82480. #line 1 "duk_util_bufwriter.c"
  82481. /*
  82482. * Fast buffer writer with slack management.
  82483. */
  82484. /* #include duk_internal.h -> already included */
  82485. /*
  82486. * Macro support functions (use only macros in calling code)
  82487. */
  82488. DUK_LOCAL void duk__bw_update_ptrs(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t curr_offset, duk_size_t new_length) {
  82489. duk_uint8_t *p;
  82490. DUK_ASSERT(thr != NULL);
  82491. DUK_ASSERT(bw_ctx != NULL);
  82492. DUK_UNREF(thr);
  82493. p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, bw_ctx->buf);
  82494. DUK_ASSERT(p != NULL || (DUK_HBUFFER_DYNAMIC_GET_SIZE(bw_ctx->buf) == 0 && curr_offset == 0 && new_length == 0));
  82495. bw_ctx->p = p + curr_offset;
  82496. bw_ctx->p_base = p;
  82497. bw_ctx->p_limit = p + new_length;
  82498. }
  82499. DUK_INTERNAL void duk_bw_init(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_hbuffer_dynamic *h_buf) {
  82500. DUK_ASSERT(thr != NULL);
  82501. DUK_ASSERT(bw_ctx != NULL);
  82502. DUK_ASSERT(h_buf != NULL);
  82503. bw_ctx->buf = h_buf;
  82504. duk__bw_update_ptrs(thr, bw_ctx, 0, DUK_HBUFFER_DYNAMIC_GET_SIZE(h_buf));
  82505. }
  82506. DUK_INTERNAL void duk_bw_init_pushbuf(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t buf_size) {
  82507. DUK_ASSERT(thr != NULL);
  82508. DUK_ASSERT(bw_ctx != NULL);
  82509. (void) duk_push_dynamic_buffer(thr, buf_size);
  82510. bw_ctx->buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, -1);
  82511. duk__bw_update_ptrs(thr, bw_ctx, 0, buf_size);
  82512. }
  82513. /* Resize target buffer for requested size. Called by the macro only when the
  82514. * fast path test (= there is space) fails.
  82515. */
  82516. DUK_INTERNAL duk_uint8_t *duk_bw_resize(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t sz) {
  82517. duk_size_t curr_off;
  82518. duk_size_t add_sz;
  82519. duk_size_t new_sz;
  82520. DUK_ASSERT(thr != NULL);
  82521. DUK_ASSERT(bw_ctx != NULL);
  82522. /* We could do this operation without caller updating bw_ctx->ptr,
  82523. * but by writing it back here we can share code better.
  82524. */
  82525. curr_off = (duk_size_t) (bw_ctx->p - bw_ctx->p_base);
  82526. add_sz = (curr_off >> DUK_BW_SLACK_SHIFT) + DUK_BW_SLACK_ADD;
  82527. new_sz = curr_off + sz + add_sz;
  82528. if (DUK_UNLIKELY(new_sz < curr_off)) {
  82529. /* overflow */
  82530. DUK_ERROR_RANGE(thr, DUK_STR_BUFFER_TOO_LONG);
  82531. return NULL; /* not reachable */
  82532. }
  82533. #if 0 /* for manual torture testing: tight allocation, useful with valgrind */
  82534. new_sz = curr_off + sz;
  82535. #endif
  82536. /* This is important to ensure dynamic buffer data pointer is not
  82537. * NULL (which is possible if buffer size is zero), which in turn
  82538. * causes portability issues with e.g. memmove() and memcpy().
  82539. */
  82540. DUK_ASSERT(new_sz >= 1);
  82541. DUK_DD(DUK_DDPRINT("resize bufferwriter from %ld to %ld (add_sz=%ld)", (long) curr_off, (long) new_sz, (long) add_sz));
  82542. duk_hbuffer_resize(thr, bw_ctx->buf, new_sz);
  82543. duk__bw_update_ptrs(thr, bw_ctx, curr_off, new_sz);
  82544. return bw_ctx->p;
  82545. }
  82546. /* Make buffer compact, matching current written size. */
  82547. DUK_INTERNAL void duk_bw_compact(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx) {
  82548. duk_size_t len;
  82549. DUK_ASSERT(thr != NULL);
  82550. DUK_ASSERT(bw_ctx != NULL);
  82551. DUK_UNREF(thr);
  82552. len = (duk_size_t) (bw_ctx->p - bw_ctx->p_base);
  82553. duk_hbuffer_resize(thr, bw_ctx->buf, len);
  82554. duk__bw_update_ptrs(thr, bw_ctx, len, len);
  82555. }
  82556. DUK_INTERNAL void duk_bw_write_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len) {
  82557. duk_uint8_t *p_base;
  82558. DUK_ASSERT(thr != NULL);
  82559. DUK_ASSERT(bw != NULL);
  82560. DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw));
  82561. DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw));
  82562. DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw));
  82563. DUK_UNREF(thr);
  82564. p_base = bw->p_base;
  82565. DUK_MEMCPY((void *) bw->p,
  82566. (const void *) (p_base + src_off),
  82567. (size_t) len);
  82568. bw->p += len;
  82569. }
  82570. DUK_INTERNAL void duk_bw_write_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len) {
  82571. DUK_ASSERT(thr != NULL);
  82572. DUK_ASSERT(bw != NULL);
  82573. DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw));
  82574. DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw));
  82575. DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw));
  82576. DUK_BW_ENSURE(thr, bw, len);
  82577. duk_bw_write_raw_slice(thr, bw, src_off, len);
  82578. }
  82579. DUK_INTERNAL void duk_bw_insert_raw_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len) {
  82580. duk_uint8_t *p_base;
  82581. duk_size_t buf_sz, move_sz;
  82582. DUK_ASSERT(thr != NULL);
  82583. DUK_ASSERT(bw != NULL);
  82584. DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw));
  82585. DUK_ASSERT(buf != NULL);
  82586. DUK_UNREF(thr);
  82587. p_base = bw->p_base;
  82588. buf_sz = (duk_size_t) (bw->p - p_base); /* constrained by maximum buffer size */
  82589. move_sz = buf_sz - dst_off;
  82590. DUK_ASSERT(p_base != NULL); /* buffer size is >= 1 */
  82591. DUK_MEMMOVE((void *) (p_base + dst_off + len),
  82592. (const void *) (p_base + dst_off),
  82593. (size_t) move_sz);
  82594. DUK_MEMCPY((void *) (p_base + dst_off),
  82595. (const void *) buf,
  82596. (size_t) len);
  82597. bw->p += len;
  82598. }
  82599. DUK_INTERNAL void duk_bw_insert_ensure_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len) {
  82600. DUK_ASSERT(thr != NULL);
  82601. DUK_ASSERT(bw != NULL);
  82602. DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw));
  82603. DUK_ASSERT(buf != NULL);
  82604. DUK_BW_ENSURE(thr, bw, len);
  82605. duk_bw_insert_raw_bytes(thr, bw, dst_off, buf, len);
  82606. }
  82607. DUK_INTERNAL void duk_bw_insert_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len) {
  82608. duk_uint8_t *p_base;
  82609. duk_size_t buf_sz, move_sz;
  82610. DUK_ASSERT(thr != NULL);
  82611. DUK_ASSERT(bw != NULL);
  82612. DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw));
  82613. DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw));
  82614. DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw));
  82615. DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw));
  82616. DUK_UNREF(thr);
  82617. p_base = bw->p_base;
  82618. /* Don't support "straddled" source now. */
  82619. DUK_ASSERT(dst_off <= src_off || dst_off >= src_off + len);
  82620. if (dst_off <= src_off) {
  82621. /* Target is before source. Source offset is expressed as
  82622. * a "before change" offset. Account for the memmove.
  82623. */
  82624. src_off += len;
  82625. }
  82626. buf_sz = (duk_size_t) (bw->p - p_base);
  82627. move_sz = buf_sz - dst_off;
  82628. DUK_ASSERT(p_base != NULL); /* buffer size is >= 1 */
  82629. DUK_MEMMOVE((void *) (p_base + dst_off + len),
  82630. (const void *) (p_base + dst_off),
  82631. (size_t) move_sz);
  82632. DUK_MEMCPY((void *) (p_base + dst_off),
  82633. (const void *) (p_base + src_off),
  82634. (size_t) len);
  82635. bw->p += len;
  82636. }
  82637. DUK_INTERNAL void duk_bw_insert_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len) {
  82638. DUK_ASSERT(thr != NULL);
  82639. DUK_ASSERT(bw != NULL);
  82640. DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw));
  82641. DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw));
  82642. DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw));
  82643. DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw));
  82644. /* Don't support "straddled" source now. */
  82645. DUK_ASSERT(dst_off <= src_off || dst_off >= src_off + len);
  82646. DUK_BW_ENSURE(thr, bw, len);
  82647. duk_bw_insert_raw_slice(thr, bw, dst_off, src_off, len);
  82648. }
  82649. DUK_INTERNAL duk_uint8_t *duk_bw_insert_raw_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) {
  82650. duk_uint8_t *p_base, *p_dst, *p_src;
  82651. duk_size_t buf_sz, move_sz;
  82652. DUK_ASSERT(thr != NULL);
  82653. DUK_ASSERT(bw != NULL);
  82654. DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw));
  82655. DUK_UNREF(thr);
  82656. p_base = bw->p_base;
  82657. buf_sz = (duk_size_t) (bw->p - p_base);
  82658. move_sz = buf_sz - off;
  82659. p_dst = p_base + off + len;
  82660. p_src = p_base + off;
  82661. DUK_MEMMOVE((void *) p_dst, (const void *) p_src, (size_t) move_sz);
  82662. return p_src; /* point to start of 'reserved area' */
  82663. }
  82664. DUK_INTERNAL duk_uint8_t *duk_bw_insert_ensure_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) {
  82665. DUK_ASSERT(thr != NULL);
  82666. DUK_ASSERT(bw != NULL);
  82667. DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw));
  82668. DUK_BW_ENSURE(thr, bw, len);
  82669. return duk_bw_insert_raw_area(thr, bw, off, len);
  82670. }
  82671. DUK_INTERNAL void duk_bw_remove_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) {
  82672. duk_size_t move_sz;
  82673. duk_uint8_t *p_base;
  82674. duk_uint8_t *p_src;
  82675. duk_uint8_t *p_dst;
  82676. DUK_ASSERT(thr != NULL);
  82677. DUK_ASSERT(bw != NULL);
  82678. DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw));
  82679. DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw));
  82680. DUK_ASSERT(off + len <= DUK_BW_GET_SIZE(thr, bw));
  82681. DUK_UNREF(thr);
  82682. p_base = bw->p_base;
  82683. p_dst = p_base + off;
  82684. p_src = p_dst + len;
  82685. move_sz = (duk_size_t) (bw->p - p_src);
  82686. DUK_MEMMOVE((void *) p_dst,
  82687. (const void *) p_src,
  82688. (size_t) move_sz);
  82689. bw->p -= len;
  82690. }
  82691. /*
  82692. * Macro support functions for reading/writing raw data.
  82693. *
  82694. * These are done using mempcy to ensure they're valid even for unaligned
  82695. * reads/writes on platforms where alignment counts. On x86 at least gcc
  82696. * is able to compile these into a bswap+mov. "Always inline" is used to
  82697. * ensure these macros compile to minimal code.
  82698. *
  82699. * Not really bufwriter related, but currently used together.
  82700. */
  82701. DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint16_t duk_raw_read_u16_be(duk_uint8_t **p) {
  82702. union {
  82703. duk_uint8_t b[2];
  82704. duk_uint16_t x;
  82705. } u;
  82706. DUK_MEMCPY((void *) u.b, (const void *) (*p), (size_t) 2);
  82707. u.x = DUK_NTOH16(u.x);
  82708. *p += 2;
  82709. return u.x;
  82710. }
  82711. DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint32_t duk_raw_read_u32_be(duk_uint8_t **p) {
  82712. union {
  82713. duk_uint8_t b[4];
  82714. duk_uint32_t x;
  82715. } u;
  82716. DUK_MEMCPY((void *) u.b, (const void *) (*p), (size_t) 4);
  82717. u.x = DUK_NTOH32(u.x);
  82718. *p += 4;
  82719. return u.x;
  82720. }
  82721. DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_raw_read_double_be(duk_uint8_t **p) {
  82722. duk_double_union du;
  82723. union {
  82724. duk_uint8_t b[4];
  82725. duk_uint32_t x;
  82726. } u;
  82727. DUK_MEMCPY((void *) u.b, (const void *) (*p), (size_t) 4);
  82728. u.x = DUK_NTOH32(u.x);
  82729. du.ui[DUK_DBL_IDX_UI0] = u.x;
  82730. DUK_MEMCPY((void *) u.b, (const void *) (*p + 4), (size_t) 4);
  82731. u.x = DUK_NTOH32(u.x);
  82732. du.ui[DUK_DBL_IDX_UI1] = u.x;
  82733. *p += 8;
  82734. return du.d;
  82735. }
  82736. DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_u16_be(duk_uint8_t **p, duk_uint16_t val) {
  82737. union {
  82738. duk_uint8_t b[2];
  82739. duk_uint16_t x;
  82740. } u;
  82741. u.x = DUK_HTON16(val);
  82742. DUK_MEMCPY((void *) (*p), (const void *) u.b, (size_t) 2);
  82743. *p += 2;
  82744. }
  82745. DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_u32_be(duk_uint8_t **p, duk_uint32_t val) {
  82746. union {
  82747. duk_uint8_t b[4];
  82748. duk_uint32_t x;
  82749. } u;
  82750. u.x = DUK_HTON32(val);
  82751. DUK_MEMCPY((void *) (*p), (const void *) u.b, (size_t) 4);
  82752. *p += 4;
  82753. }
  82754. DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_double_be(duk_uint8_t **p, duk_double_t val) {
  82755. duk_double_union du;
  82756. union {
  82757. duk_uint8_t b[4];
  82758. duk_uint32_t x;
  82759. } u;
  82760. du.d = val;
  82761. u.x = du.ui[DUK_DBL_IDX_UI0];
  82762. u.x = DUK_HTON32(u.x);
  82763. DUK_MEMCPY((void *) (*p), (const void *) u.b, (size_t) 4);
  82764. u.x = du.ui[DUK_DBL_IDX_UI1];
  82765. u.x = DUK_HTON32(u.x);
  82766. DUK_MEMCPY((void *) (*p + 4), (const void *) u.b, (size_t) 4);
  82767. *p += 8;
  82768. }
  82769. #line 1 "duk_util_hashbytes.c"
  82770. /*
  82771. * Hash function duk_util_hashbytes().
  82772. *
  82773. * Currently, 32-bit MurmurHash2.
  82774. *
  82775. * Don't rely on specific hash values; hash function may be endianness
  82776. * dependent, for instance.
  82777. */
  82778. /* #include duk_internal.h -> already included */
  82779. #if defined(DUK_USE_STRHASH_DENSE)
  82780. /* 'magic' constants for Murmurhash2 */
  82781. #define DUK__MAGIC_M ((duk_uint32_t) 0x5bd1e995UL)
  82782. #define DUK__MAGIC_R 24
  82783. DUK_INTERNAL duk_uint32_t duk_util_hashbytes(const duk_uint8_t *data, duk_size_t len, duk_uint32_t seed) {
  82784. duk_uint32_t h = seed ^ ((duk_uint32_t) len);
  82785. while (len >= 4) {
  82786. /* Portability workaround is required for platforms without
  82787. * unaligned access. The replacement code emulates little
  82788. * endian access even on big endian architectures, which is
  82789. * OK as long as it is consistent for a build.
  82790. */
  82791. #if defined(DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS)
  82792. duk_uint32_t k = *((const duk_uint32_t *) (const void *) data);
  82793. #else
  82794. duk_uint32_t k = ((duk_uint32_t) data[0]) |
  82795. (((duk_uint32_t) data[1]) << 8) |
  82796. (((duk_uint32_t) data[2]) << 16) |
  82797. (((duk_uint32_t) data[3]) << 24);
  82798. #endif
  82799. k *= DUK__MAGIC_M;
  82800. k ^= k >> DUK__MAGIC_R;
  82801. k *= DUK__MAGIC_M;
  82802. h *= DUK__MAGIC_M;
  82803. h ^= k;
  82804. data += 4;
  82805. len -= 4;
  82806. }
  82807. switch (len) {
  82808. case 3: h ^= data[2] << 16;
  82809. case 2: h ^= data[1] << 8;
  82810. case 1: h ^= data[0];
  82811. h *= DUK__MAGIC_M;
  82812. }
  82813. h ^= h >> 13;
  82814. h *= DUK__MAGIC_M;
  82815. h ^= h >> 15;
  82816. return h;
  82817. }
  82818. #endif /* DUK_USE_STRHASH_DENSE */
  82819. /* automatic undefs */
  82820. #undef DUK__MAGIC_M
  82821. #undef DUK__MAGIC_R
  82822. #line 1 "duk_util_tinyrandom.c"
  82823. /*
  82824. * A tiny random number generator used for Math.random() and other internals.
  82825. *
  82826. * Default algorithm is xoroshiro128+: http://xoroshiro.di.unimi.it/xoroshiro128plus.c
  82827. * with SplitMix64 seed preparation: http://xorshift.di.unimi.it/splitmix64.c.
  82828. *
  82829. * Low memory targets and targets without 64-bit types use a slightly smaller
  82830. * (but slower) algorithm by Adi Shamir:
  82831. * http://www.woodmann.com/forum/archive/index.php/t-3100.html.
  82832. *
  82833. */
  82834. /* #include duk_internal.h -> already included */
  82835. #if !defined(DUK_USE_GET_RANDOM_DOUBLE)
  82836. #if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS)
  82837. #define DUK__RANDOM_SHAMIR3OP
  82838. #else
  82839. #define DUK__RANDOM_XOROSHIRO128PLUS
  82840. #endif
  82841. #if defined(DUK__RANDOM_SHAMIR3OP)
  82842. #define DUK__UPDATE_RND(rnd) do { \
  82843. (rnd) += ((rnd) * (rnd)) | 0x05UL; \
  82844. (rnd) = ((rnd) & 0xffffffffUL); /* if duk_uint32_t is exactly 32 bits, this is a NOP */ \
  82845. } while (0)
  82846. #define DUK__RND_BIT(rnd) ((rnd) >> 31) /* only use the highest bit */
  82847. DUK_INTERNAL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr) {
  82848. DUK_UNREF(thr); /* Nothing now. */
  82849. }
  82850. DUK_INTERNAL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr) {
  82851. duk_double_t t;
  82852. duk_small_int_t n;
  82853. duk_uint32_t rnd;
  82854. rnd = thr->heap->rnd_state;
  82855. n = 53; /* enough to cover the whole mantissa */
  82856. t = 0.0;
  82857. do {
  82858. DUK__UPDATE_RND(rnd);
  82859. t += DUK__RND_BIT(rnd);
  82860. t /= 2.0;
  82861. } while (--n);
  82862. thr->heap->rnd_state = rnd;
  82863. DUK_ASSERT(t >= (duk_double_t) 0.0);
  82864. DUK_ASSERT(t < (duk_double_t) 1.0);
  82865. return t;
  82866. }
  82867. #endif /* DUK__RANDOM_SHAMIR3OP */
  82868. #if defined(DUK__RANDOM_XOROSHIRO128PLUS)
  82869. DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__rnd_splitmix64(duk_uint64_t *x) {
  82870. duk_uint64_t z;
  82871. z = (*x += DUK_U64_CONSTANT(0x9E3779B97F4A7C15));
  82872. z = (z ^ (z >> 30U)) * DUK_U64_CONSTANT(0xBF58476D1CE4E5B9);
  82873. z = (z ^ (z >> 27U)) * DUK_U64_CONSTANT(0x94D049BB133111EB);
  82874. return z ^ (z >> 31U);
  82875. }
  82876. DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__rnd_rotl(const duk_uint64_t x, duk_small_uint_t k) {
  82877. return (x << k) | (x >> (64U - k));
  82878. }
  82879. DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__xoroshiro128plus(duk_uint64_t *s) {
  82880. duk_uint64_t s0;
  82881. duk_uint64_t s1;
  82882. duk_uint64_t res;
  82883. s0 = s[0];
  82884. s1 = s[1];
  82885. res = s0 + s1;
  82886. s1 ^= s0;
  82887. s[0] = duk__rnd_rotl(s0, 55) ^ s1 ^ (s1 << 14U);
  82888. s[1] = duk__rnd_rotl(s1, 36);
  82889. return res;
  82890. }
  82891. DUK_INTERNAL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr) {
  82892. duk_small_uint_t i;
  82893. duk_uint64_t x;
  82894. /* Mix both halves of the initial seed with SplitMix64. The intent
  82895. * is to ensure that very similar raw seeds (which is usually the case
  82896. * because current seed is Date.now()) result in different xoroshiro128+
  82897. * seeds.
  82898. */
  82899. x = thr->heap->rnd_state[0]; /* Only [0] is used as input here. */
  82900. for (i = 0; i < 64; i++) {
  82901. thr->heap->rnd_state[i & 0x01] = duk__rnd_splitmix64(&x); /* Keep last 2 values. */
  82902. }
  82903. }
  82904. DUK_INTERNAL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr) {
  82905. duk_uint64_t v;
  82906. duk_double_union du;
  82907. /* For big and little endian the integer and IEEE double byte order
  82908. * is the same so a direct assignment works. For mixed endian the
  82909. * 32-bit parts must be swapped.
  82910. */
  82911. v = (DUK_U64_CONSTANT(0x3ff) << 52U) | (duk__xoroshiro128plus((duk_uint64_t *) thr->heap->rnd_state) >> 12U);
  82912. du.ull[0] = v;
  82913. #if defined(DUK_USE_DOUBLE_ME)
  82914. do {
  82915. duk_uint32_t tmp;
  82916. tmp = du.ui[0];
  82917. du.ui[0] = du.ui[1];
  82918. du.ui[1] = tmp;
  82919. } while (0);
  82920. #endif
  82921. return du.d - 1.0;
  82922. }
  82923. #endif /* DUK__RANDOM_XOROSHIRO128PLUS */
  82924. #endif /* !DUK_USE_GET_RANDOM_DOUBLE */
  82925. /* automatic undefs */
  82926. #undef DUK__RANDOM_SHAMIR3OP
  82927. #undef DUK__RANDOM_XOROSHIRO128PLUS
  82928. #undef DUK__RND_BIT
  82929. #undef DUK__UPDATE_RND